cANU12 ;Uitvoeren uitgestelde selecties ;%ANU12 ; [ 02/24/00  11:13 AM ]
 G 1
 ;
T0 ;Uitvoeren uitgestelde selecties ;
T1 ;Volgnr.; Omschrijving selectie            ; Bestand        ; Uitv. ; Verw. ;
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 ;
 ;
T0F ;Exécuter sélections différées ;
T1F ;Numéro ; Description sélection            ; Fichier        ; Exéc. ; Annul.;
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 ;
 ;
 ; tonen van 1 lijn
S1 W /CUP(L,1),$J(I3,8),@F2 S UI1=$P(B,D) X ^DMC(UQC,USC,"LOGGING","TOP")
S1A W /CUP(L,10),/cDR(1),/cDR(3),/cDR(0)," ",$E(UTOP(1.1),1,33)
S1B W /CUP(L,45),/cDR(1),/cDR(3),/cDR(0)," ",$E(UTOP(2.1),1,15)
S1C W /CUP(L,62),/cDR(1),/cDR(3),/cDR(0)," ",$$JN^cAFO1($P(B,D,2))
S1D W /CUP(L,70),/cDR(1),/cDR(3),/cDR(0)," ",$$JN^cAFO1($P(B,D,3))
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:6 W $P($T(@("T1"_QT)),U,I) I I<6 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 YZ:UQC=""!(USC="")
19 L +^HULP(G):2 E  D TXT^cAFA1(14) G YZ
 ;
 ; 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 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 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 W /CUP(L,1),"->",/WDSP
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.
 S R=I3 D ^cA609 S I3=R                                      ; init.
67 S G=$NA(^UTILI(Q,"SEL.INT"),2),K=".",RK=28
69 D DMS^cAN000("UQC","USC","SEL") 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 C^cA612 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 ; 13.03.00 - 17 u 31 * V7.3