cA270 ;UITGESTELD VERWIJDEREN ;%A270 ;do naar %A271 ; [ 12/10/92  5:15 PM ]
 ;
T0 ;Uitgesteld verwijderen ;
T1 ;Keuze bestand\"-[] = einde programma";
T2 ;KL\K1;LE\L1;AR\R1;PR\PR1;ARA\RA1;BL\BL1;NA\NA1;NP\NP1;WE\W1;VT\VT1;
 ;
T0F ;Annulations différées ;
T1F ;Choix fichier\"-[] = fin du programme";
T2F ;KL\K1;LE\L1;AR\R1;PR\PR1;ARA\RA1;BL\BL1;NA\NA1;NP\NP1;WE\W1;VT\VT1;
 ;
T0E ;Uitgesteld verwijderen ;
T1E ;Keuze bestand\"-[] = einde programma";
T2E ;KL\K1;LE\L1;AR\R1;PR\PR1;ARA\RA1;BL\BL1;NA\NA1;NP\NP1;WE\W1;VT\VT1;
 ;
1 S K=$P($T(@("T0"_QT)),U,2)_QN_" ",FP=203+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5
11 K UTA S I="%"
13 S I=$O(@("^"_Q_"BA(I)")) I $E(I)'="%" G YZ:'$D(UTA),2
15 I I="%A" D  G 13
150 .S J="" F  S J=$O(@("^"_Q_"BA(I,3,J)")) Q:J=""  D S1
17 I I="%P" S J="PR" D S1 G 13
19 G 13
 ;
2 S (I,J)="",FP=303
21 S I=$O(UTA(I)) I $L(I) S J=J+1,FP=FP+100 W @F,$J(J,2),". ",UTA(I) S UTA(J)=I K UTA(I) G 21
23 S R="K\22\3\"_$P($T(@("T1"_QT)),U,2)_D_$L(J) D R0 G YZ:K="-"!(K=","),23:'K,23:'$D(UTA(K))
25 D S2 I $D(Q1),$L(Q1) K UTA D ^cA271 I K="-"!(K=",") G 1
 ;
YZ Q
 ;
S1 I $D(@("^"_Q_J_"(0,0)")) S UTA(J)=$P(^(0),U)
S1Z Q
 ;
S2 S Q1=UTA(K),S1=$P($T(@("T2"_QT)),U,2,999)
S2A S S2=$P(S1,U),S1=$P(S1,U,2,999) I S2="" G S2A:$L(S1) K Q1 G S2Z
S2B G S2A:$P(S2,D)'=Q1 S Q2=$P(S2,D,2)
S2Z K S1,S2 Q
 ;
R0 S R0=$P(R,D,5) I $L(R0),R0'["""" S $P(R,D,5)=R0_"^"_$T(+0)
R0A S R0=$P(R,D,7) I $L(R0),R0'="DCTR" S $P(R,D,7)="",R1=$P(R,D,8),R0=$P($T(@R0),U,2,99) S:$L(R1) R0=R0_"&("_R1_")" S $P(R,D,8)=R0
R0Z S $P(R,D,12)=$T(+0) K R0,R1 D ^cA100 Q  ; v11 30.05.94
 ;
Z X ^cZ Q
ZZ ; 05.02.01 - 16 u 23 * V7.84