cA272 ;UITGESTELD VERWIJDEREN ;%A270 ;do uit %A271 ;
 G 1
 ;
T0 ;Uitgesteld verwijderen ;
T1 ;Tijdens de uitvoering van dit programma kan er niet gewerkt worden in :;
T2 ;De bestanden zijn in gebruik ;-bestand is in gebruik ;
T3 ;Doorgaan\".[] = ja   -[] = einde programma";
 ;
T0F ;Annulations différées ;
T1F ;Ne veuillez pas utiliser les programmes suivantes pendant ce programme ci :;
T2F ;Fichiers en usage ;-fichier en usage ;
T3F ;Continuer\".[] = oui   -[] = fin du programme";
 ;
T0E ;Uitgesteld verwijderen ;
T1E ;Tijdens de uitvoering van dit programma kan er niet gewerkt worden in :;
T2E ;De bestanden zijn in gebruik ;-bestand is in gebruik ;
T3E ;Doorgaan\".[] = ja   -[] = einde programma";
 ;
1 S FP=301 W @F,@F1,!?2,$P($T(@("T1"_QT)),U,2),! S I1="%A",I2=3,I="" I Q1="PR" S I1="%P",I2=4
11 I Q1="PR" S I=$O(@("^"_Q_"BA(I1,5,I)"))
13 I Q1'="PR" S I=$O(@("^"_Q_"BA(I1,5,Q1,I)"))
14 G 2:I="" S R=^(I)
15 S K=$P(R,D),R=$P(R,D,2,999) I K="" G 15:$L(R),11
17 S UGL=$P(K,U),US=$P(K,U,2),K=$P(K,U,3) S:US="" US=0 I $D(@("^"_Q_UGL_"(0,US)")),$L(K),$D(@("^"_Q_"BA(""MENU"",K,0)")) W !?2,$P(^(0),D)
19 G 15
 ;
2 S QQ=Q,UGL=Q1,US="" D S1 S (I,J)=0 G YZ:'OK
21 I Q1="PR" S I=$O(@("^"_Q_"BA(I1,I2,I)")) 
23 I Q1'="PR" S I=$O(@("^"_Q_"BA(I1,I2,Q1,I)")) 
25 G 3:I="" S R=^(I) S QQ=$P(R,D),UGL=$P(R,D,2),US=$P(R,D,3) S:QQ="" QQ=Q D S1 G 21:OK,YZ
 ;
3 S R="K\22\3\"_$P($T(@("T3"_QT)),U,2)_"\1\\""-.""[K&$L(K)" D R0 G YZ:K="-"
31 I Q1="PR",$D(@("^"_Q_"BA(I1,I2,0)")),$L(^(0)) X ^(0) G YZ
33 I Q1'="PR",$D(@("^"_Q_"BA(I1,I2,Q1,0)")),$L(^(0)) X ^(0) G YZ
 ;
YZ ZD  L  S FP=301 W @F,@F1 Q
 ;
S1 S COM="",OK=1 I $L(US),$D(@("^"_QQ_UGL_"(0,US,""UDUO"")")) S COM=$P(^("UDUO"),D)
S1A I '$L(COM),$D(@("^"_QQ_UGL_"(0,0)")) S COM=$P(^(0),U)
S1B L +@("^"_QQ_UGL):2 E  S K=COM_$P($T(@("T2"_QT)),U,$S($L(COM):3,1:2)) D F1 S OK=0
S1Z 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
 ;
F1 S R=250
F2 X ^cTXT(0,$E(QT_"N"),R) R K
FZ K R Q
 ;
Z X ^cZ Q
ZZ ; 05.02.01 - 16 u 23 * V7.84