cA279 ;SEQUENTIEEL VERWIJDEREN ;%A279 ; [ 07/20/95   2:16 PM ]
 G 1
 ;
T0 ;Sequentieel verwijderen ;
T1 ;Alfabetische\alfabetische;numerieke\numerieke;
T2 ;Keuze;
T3 ;1[] = klaarstellen voor uitgesteld verwijderen;
T4 ;2[] = verwijderen bij uitgesteld verwijderen;
T5 ;Bevestiging\".[] = ok   ,[] = hernemen";
 ;
T0F ;Annulation séquentielle ;
T1F ;Alphabétique\alphabétique;numérique\numérique;
T2F ;Choix;
T3F ;1[] = préparer pour annulation différée;
T4F ;2[] = annuler lors de l'annulation différée;
T5F ;Confirmation\".[] = ok   ,[] = reprendre";
 ;
T0E ;Sequentieel verwijderen ;
T1E ;Alfabetische\alfabetische;numerieke\numerieke;
T2E ;Keuze;
T3E ;1[] = klaarstellen voor uitgesteld verwijderen;
T4E ;2[] = verwijderen bij uitgesteld verwijderen;
T5E ;Bevestiging\".[] = ok   ,[] = hernemen";
 ;
1 S Q1=$P(R,U,2),Q2=$P(R,U,3),EV=$P(R,U,4),NUM=$P(R,U,5)
11 I '$D(@("^"_Q_Q1_"(0,0)")) G YZ
13 S MV=$P(^(0),U),FP=202 W @F11,@F1,@F,@F4,$P($T(@("T0"_QT)),U,2),MV," ",QN," ",@F5
 ;
2 S TXT=EV_D_MV_D_$P($T(@("T1"_QT)),U,2+NUM)_D_Q1_D_Q2_D_1 D ^cA306 G YZ:K="-"
21 S R="UK\22\3\"_$P($T(@("T2"_QT)),U,2)_"\S1\1\\""-,12""[K&$L(K)" D R0 G 2:'K
23 S FP=1603 W @F,@F1,$P($P($T(@("T"_(2+UK)_QT)),U,2)," = ",2)
25 S R="K\22\3\"_$P($T(@("T5"_QT)),U,2)_"\1\\""-,.""[K&$L(K)" D R0 G 21:K="-",2:K=","
27 L +^HULP(Q1,Q):2 E  S R=14 D F2 G 25
 ;
3 S I1=""
31 S R="I1\"_Q1 D ^cA327 I I1="" L -^HULP(Q1,Q) G YZ
33 S B(1)=^(0),KC=$P(B(1),D) K ^HULP(Q1,Q,KC) I UK=1 S ^HULP(Q1,Q,KC)=""
35 S FP=2203 W @F,$TR($P(B(1),D,1,2),D," "),@F1 G 31
 ;
YZ Q
 ;
S1 W !?2,$P($T(@("T3"_QT)),U,2),!?2,$P($T(@("T4"_QT)),U,2) 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 W @F,@F1
FZ K R Q
 ;
Z X ^cZ Q
ZZ ; 05.02.01 - 16 u 23 * V7.84