cA205 ;VERWIJDEREN ;%A200 ; [ 01/23/96 4:56 PM ] G 1 ; T0 ;Verwijderen ; T1 ;,[] = hernemen V[] = verwijderen; T2 ;,[] = hernemen V[] = definitief verwijderen; ; T0F ;Annulation du fichier ; T1F ;,[] = reprendre V[] = radier; T2F ;,[] = reprendre V[] = radier définitivement; ; T0E ;Verwijderen ; T1E ;,[] = hernemen V[] = verwijderen; T2E ;,[] = hernemen V[] = definitief verwijderen; ; S2 S U2=A(U1),X=$P(U2,U,16) S:'$D(B(X\100)) B(X\100)="\\\\\\\\\\\\\\\\\\\\\\\\\" S (K,U3)=$P(B(X\100),D,X#100) I $L($P(U2,U,8)) X "S U3="_$P(U2,U,8) S2A S FP=$P(U2,U,5)*100+$P(U2,U,6) G S2Z:'SW5 I '$P(U2,U,23),$P(U2,U,2)=$P(U2,U,5) S FP=FP-3 W @F,@F9,":" S2B S FP=$P(U2,U,2)*100+$P(U2,U,3) W:$P(U2,U,22) @F,$J(U1#100,2) I '$P(U2,U,23) S FP=FP+2 W @F,@F6,$P(U2,U),@F9 S2C S FP=$P(U2,U,5)*100+$P(U2,U,6) S2Z W:'SW5 @F,$J("",$P(U2,U,9)),$J("",$P(U2,U,13)) W @F,U3 Q ; 1 S (SW2,SW5)=1,SW7="",U1=100,Q3="^"_Q_Q1_"(I1)",Q4="^"_Q_Q2_"(J1)",SR="^cA101" D S1 S:$D(^(5)) SR=^(5) S:$D(^(4)) X3=^(4) S:$D(^(7)) SW7=^(7) D SV^cA243 I $L(SW7) D S7^cA908 11 S K=$P($T(@("T0"_QT)),U,2)_$P(^(0),U)_" "_QN_" ",FP=203+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5 12 S BJ=DJ S:$D(@("^"_Q_"BA(2)")) BJ=$P(^(2),D,2)\1 ; 13 S R="I1\2000\"_X1_D_Q1_D_Q2 D @SR G YZ:K="-" 15 L @Q3:2 E S R=14 D F2 G 13 16 I $L(SW7) D ^cA908 I K="-" G 13 17 S B(1)=@("^"_Q_Q1_"(I1,0)"),U1=100,J1=$P(B(1),D) F I=1:1:6 I $D(^(I)) S B(I+1)=^(I) 19 S U1=$O(A(U1)) I U1>0 D S2 G 19 ; 2 S SW5=0 I $D(X3) I $L($P(X3,U)) K OK D @$P(X3,U) G 3:OK=1,13:'OK 21 S K=@("^"_Q_Q1_"(I1,0)") F K=BJ,BJ+.02 I $D(^(K)) F X=1:1:30 G 41:$P(^(K),D,X) 23 F K=BJ+1,BJ+1.02 I $D(^(K)) F X=1:1:30 G 43:$P(^(K),D,X) 24 I Q1="KL",$P(B(1),D,15) F K=BJ-1,BJ-.98 I $D(^(K)) F X=1:1:30 G 45:$P(^(K),D,X) 25 I Q1="AR" F K=BJ-1,BJ-.98 I $D(^(K)) F X=1:1:30 G 45:$P(^(K),D,X) 27 S X=$O(^(99999)) I X>99999&(X<1000000)&($E(X)?1N) G 47 29 I $L(X),$E(X)'?1U G 49 ; 3 S R="K\22\3\"_$P($T(@("T1"_QT)),U,2)_"\\1\\""-,V""[K&$L(K)\\\1" D R0 G 13:K'="V" 35 S R="K\23\3\"_$P($T(@("T2"_QT)),U,2)_"\\1\\""-,V""[K&$L(K)\\\1" D R0 G 13:K'="V" 36 I $D(X3) I $L($P(X3,U,2)) K OK D @$P(X3,U,2) G 39:OK=1,13:'OK 37 S @%Q1=0 K @Q3,@Q4 S @%Q1=1 39 S K=X1_" "_J1 S R=76 D F2 G 13 ; 41 S R=41 D F2 G 13 43 S R=42 D F2 G 13 45 S R=43 D F2 G 13 47 S R=127 D F2 G 13 49 S R=133 D F2 G 13 ; YZ K A,B Q ; S1 S Y=@("^"_Q_Q1_"(0,0)"),Y=SW2+1*100,(X,K)=SW2*100,K=SW2>1*2+K S1A S X=$O(^(X)) I X>0,X