cANU12 ;Uitvoeren uitgestelde selecties ;%ANU12 ; [ 02/24/00 11:13 AM ] G 1 ; T0 ;Uitvoeren uitgestelde selecties ; T1 ;Volgnr.; Omschrijving selectie ; Bestand ; Uitv. ; Verw. ; BG ; T2 ;Keuze; T3 ;x[] = wijzigen lijn x .[] = selecties uitvoeren; [] = vervolg;D[] = detail; T4 ;Uitvoeren selectie\"0[] = neen 1[] = ja"; T5 ;Verwijderen na uitvoeren\"0[] = neen 1[] = ja"; T6 ;Bevestiging\".[] = selecties uitvoeren"; T7 ;Er zijn geen uitgestelde selecties klaargesteld ; T8 ;Uitvoeren via BG\"0[] = neen 1[] = ja"; ; T0F ;Exécuter sélections différées ; T1F ;Numéro ; Description sélection ; Fichier ; Exéc. ; Annul.;JAP ; T2F ;Choix; T3F ;x[] = modifier ligne x .[] = exécuter sélections; [] = suite;D[] = détail; T4F ;Exécuter sélection\"0[] = non 1[] = oui"; T5F ;Annuler après exécution\"0[] = non 1[] = oui"; T6F ;Confirmation\".[] = exécuter sélections"; T7F ;Il n'y a pas des sélections différées ; T8F ;Exécuter par JAP\"0[] = non 1[] = oui"; ; ; tonen van 1 lijn S1 S UI1=$P(B,D) I $G(%bg) G S1Z W /CUP(L,1),$J(I3,8),@F2 X ^DMC(UQC,USC,"LOGGING","TOP") S1A W /CUP(L,10),/cDR(1),/cDR(3),/cDR(0)," ",$E(UTOP(1.1),1,28) S1B W /CUP(L,40),/cDR(1),/cDR(3),/cDR(0)," ",$E(UTOP(2.1),1,15) S1C W /CUP(L,57),/cDR(1),/cDR(3),/cDR(0)," ",$$JN^cAFO1($P(B,D,2)) S1D W /CUP(L,65),/cDR(1),/cDR(3),/cDR(0)," ",$$JN^cAFO1($P(B,D,3)) S1E W /CUP(L,73),/cDR(1),/cDR(3),/cDR(0)," ",$$JN^cAFO1($P(B,D,6)) S1Z Q ; ; Window + titel + initialisatie 1 ;D O^cA612(2,1,20,80,1,0,1,1),T^cA612($P($T(@("T0"_QT)),U,2),0,0,7,1,1) ;10.03.00 D P^cA612(2,1,20,80,1,0,1,1,$P($T(@("T0"_QT)),U,2),0,0,7,1,1) 11 W /CUP(2,2),@F4 F I=2:1:7 W $P($T(@("T1"_QT)),U,I) I I<7 W /cDR(1),/cDR(3),/cDR(0) 13 W @F5,/WDSP 15 S G=$NA(^UTILI(Q,"SEL.INT"),2) 17 D DMS^cAN000("UQC","USC","SEL",$G(%bg)) G YZ:UQC=""!(USC="") 19 L +^HULP(G):2 E G YZ:$G(%bg) D TXT^cAFA1(14) G YZ I $G(%bg) S K="." G 5 ; ; Tonen detail 2 S I3=1,SW=0 21 K A S I3=I3-1,L=3,V=0 W /CUP(L,1),@F1 23 S I3=$O(@G@(I3)) I I3="" G 4:SW,3 25 S A(I3)=L,B=^(I3,0) D S1 I L<17 S L=L+1 G 23 27 I $L($O(@G@(I3))) S V=1 29 I SW G 4 ; ; Vraagstelling 3 I V=0,'$D(A) S K=$P($T(@("T7"_QT)),U,2) D TXT^cAFA1(250) G Y 31 S SW=0,R="K\22\3\"_$P($T(@("T2"_QT)),U,2)_"\C1\3\\\\\1\\\1" D R0 33 I RK=25 S I3=$O(A(""))-14 G 21 ; PgUp 34 I RK=26&V S I3=$O(A(""),-1) G 21 ; PgDn 35 I RK=31 S I3=$O(A(""))-1 G 21 ; pijl /^ 36 I RK=32 S I3=$O(A(""))+1 G 21 ; pijl v/ 37 I RK'=28 G 31 39 G 21:K=""&V,2:K="D",5:K=".",Y:K="-",31:'K S K=+K ; ; Wijzigen lijn 4 I '$D(@G@(K)) G 31 41 I '$D(A(K)) S I3=K-7,SW=1 G 21 43 S L=A(K),B=@G@(K,0),C=I3,I3=K W /CUP(L,1),"->" 45 S X=$P(B,D,2),R="X\22\3\"_$P($T(@("T4"_QT)),U,2)_"\1\\""-01""[K&$L(K)\\\\\1" D R0 I K="-" G 49 46 S $P(B,D,2)=K D S1 W /CUP(L,1),"->" 47 S X=$P(B,D,3),R="X\22\3\"_$P($T(@("T5"_QT)),U,2)_"\1\\""-01""[K&$L(K)\\\\\1" D R0 I K="-" G 45 48 S $P(B,D,3)=K D S1 W /CUP(L,1),"->" S X=$P(B,D,6),R="X\22\3\"_$P($T(@("T8"_QT)),U,2)_"\1\\""-01""[K&$L(K)\\\\\1" D R0 I K="-" G 47 S $P(B,D,6)=K D S1 S @G@(I3,0)=B 49 S B=@G@(I3,0) D S1 S I3=C G 31 ; ; Uitvoeren selecties 5 S I3=0 51 K A S L=3 I '$G(%bg) W /CUP(L,1),@F1 53 S I3=$O(@G@(I3)) I I3="" G 6 55 S A(I3)=L,B=^(I3,0) D S1 I L<17 S L=L+1 G 53 ; 6 I '$D(A) G 7 61 S I3=$O(A("")),L=3,B=@G@(I3,0) D S1 I '$G(%bg) W /CUP(L,1),"->",/WDSP I $G(%bg),'$P(B,D,6) G 66 63 I $P(B,D,2) D ; uitv. . N B,I3,G D INT^cANU11(UI1,"X") 65 I $P(B,D,3) K @G@(I3) ; verw. 66 S R=I3_D_$G(%bg)_D_$G(QQ) D ^cA609 S %bg=$P(R,D,2),I3=$P(R,D) I $G(%bg) S QQ=$P(R,D,3) ; init. 67 S G=$NA(^UTILI(Q,"SEL.INT"),2),K=".",RK=28 69 D DMS^cAN000("UQC","USC","SEL",$G(%bg)) G 51 ; ; Opkuis bestand 7 L +@G 71 S I3=0 F I=1:1 S I3=$O(@G@(I3)) Q:I3="" I I3>I D . M @G@(I)=@G@(I3) . K @G@(I3) 73 L -@G ; ; Uitgang Y L -^HULP(G) YZ D:'$g(%bg) C^cA612 Q ; BG(QQ) ;Uitvoeren uitgestelde selecties ; output to dummy file S %bg=1 F S Q=$P(QQ," "),QQ=$P(QQ," ",2,999) Q:Q="" D 15 BGZ Q ; R0 S $P(R,D,12)=$T(+0) D ^cAN1000 Q ; v12 23.01.95 ; ; Commentaar C1 W !?2,$P($T(@("T3"_QT)),U,2) I V W $P($T(@("T3"_QT)),U,3) C1Z W !?2,$P($T(@("T3"_QT)),U,4) Q ; ZZ ; 04.11.04 - 10 u 11 * V8.02