cTI23	;Module verwijderen ;%TI14 ; [ 09/19/96  11:41 AM ]
	G 1
	;
T0	;Module verwijderen ;
T1	;Lijnnummer;
T2	;".[] = volledig verwijderen";
T3	;Verwijderen;
T4	;"V[] = definitief verwijderen   -[] = hernemen";
T5	;Lijn onbekend;Laatste lijn uit ;
T6	;Lijn; niet verwijderbaar;bon met voorschot;
	;
T0F	;Module annulation ;
T1F	;N° de ligne;
T2F	;".[] = annulation complète";
T3F	;Annulation;
T4F	;"V[] = annulation définitive   -[] = reprendre";
T5F	;Ligne inconnue;Dernière ligne d'un ;
T6F	;Ligne; non annulable;bon avec acompte;
	;
R0	S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
	;
S0	S SW12=1 G YZ
	;
1	S OK=1 S:$D(@("^"_Q_UGL_"(0,US,""UVW"")")) UVW=^("UVW") I $O(@("^"_Q_UGL_"(KC,US,UR,100)"))="" G:$L(K)>1 11 S UZ="." G 2
11	I $L($E(K,2,$L(K))) S SWV=1,UZ=+$E(K,2,$L(K)) G 16:$D(^(UZ+100)) S UZ=@("^"_Q_UGL_"(KC,US,UR,0)")-100 D @$P(USM,D,4) G YZ
13	S SWV=1,R="UZ\"_$S(+USM:+USM,1:22)_"\3\"_$P($T(@("T1"_QT)),U,2)_D_$P($T(@("T2"_QT)),U,2)_"\3\\"",-.""[K&$L(K)!(K?1N.N&K)" D R0 G Y:K="-"!(K=",") I K="." G 2:'+$P(^(1),D,12) S MSG=$P($T(@("T6"_QT)),U,4)_$P($T(@("T6"_QT)),U,3) D F1 R *K G 13
15	I '$D(^(UZ+100)) S MSG=$P($T(@("T5"_QT)),U,2) D F1 R *K G 13
16	; I $O(^(100))=(UZ+100),+$P(^(1),D,12) D S5 I 'OK S OK=1,MSG=$P($T(@("T5"_QT)),U,3)_$P($T(@("T6"_QT)),U,4)_$P($T(@("T6"_QT)),U,3) D F1 R *K G 13
17	S SWV=0,(U2,A(1))=^(UZ+100),FP=$P(UD,D,2)+2*100+3 W @F,UZ,"  ",$P(U2,D)," ",$P(U2,D,4),@F2
19	I $P(U2,D,19)!$P(U2,D,30) S MSG=$P($T(@("T6"_QT)),U,2)_$P($T(@("T6"_QT)),U,3) D F1 R *K S FP=$P(UD,D,2)+1*100+1 W @F,@F1 G 13
	;
2	S OK=1,R="K\"_$S(+USM:+USM,1:22)_"\3\"_$P($T(@("T3"_QT)),U,2)_D_$P($T(@("T4"_QT)),U,2)_"\1\\"",-V""[K&$L(K)\\\1" D R0 I K="-"!(K=",") S FP=$P(UD,D,2)+1*100+1 W @F,@F1 G 13
21	G 25:'UZ I $D(UVW),$L($P(UVW,D)) X $P(UVW,D)
22	I 'OK G 2:OK="-" S MSG=$P($T(@("T6"_QT)),U,2)_$P($T(@("T6"_QT)),U,3) D F1 R *K G Y
23	D S1,S3:$P(U2,D,30),S4:$P(U2,D,17)="G" S SW13=1 G Y
25	I $D(UVW),$L($P(UVW,D)) S U1=100 F I=1:1 S U1=$O(@("^"_Q_UGL_"(KC,US,UR,U1)")) Q:U1=""  S (U2,A(1))=^(U1),UZ=U1-100 X $P(UVW,D) Q:'OK
27	I 'OK G 2:OK="-" S MSG=UOU_$P($T(@("T6"_QT)),U,3) D F1 R *K G Y
28	I $D(UVW),$L($P(UVW,D,2)) X $P(UVW,D,2) G 27:'OK
29	S @%Q1=0 K UTA,@("^"_Q_UGL_"(KC,US,UR)"),@("^"_Q_UGB_"(US,UR)"),@("^"_Q_UG2_"(US,KC,UR)"),@("^"_Q_UG1_"(US,UR)") S K=",",SW13=0
	;
Y	S SW12=1
YZ	K UVW,OK,SWV,A Q
	;
S1	S @%Q1=0,X=@("^"_Q_UGL_"(KC,US,UR,UZ+100)"),X=UZ+99
S1A	F I=1:1 S X=$O(^(X)) Q:X=""  S U2=^(X) K ^(X) D S2:$D(UTA(X-100)) Q:'$P(U2,D,18)
S1B	S X="",Y=+UD F I=1:1 S X=$O(UTA(X)) Q:X=""  S Y=UTA(X)+1
S1C	S UL=Y
S1Z	Q
	;
S2	S Y=UTA(X-100) K UTA(X-100)
S2A	S FP=Y*100+1 W @F,@F2 F II=1:1 S Z=$P(UV,U,II) Q:'Z  S FP=Y*100+Z W @F,@F7,@$P(FG,D,10),@F8
S2Z	Q
	;
S3	S K=$P(U2,D,30),$P(^(K),D,30)=$P(^(K),D,30)-1 F I=9,10,16,29 S $P(^(K),D,I)=$P(^(K),D,I)-$P(U2,D,I)
S3A	S:'$P(^(K),D,30) $P(^(K),D,8)="",K=$P(U5,D,20),$P(K,"#",2)=$P(K,"#",2)-1,$P(^(1),D,20)=K
S3Z	Q
	;
S4	S K=$P(^(1),D,20),$P(K,"#")=$P(K,"#")-1,$P(^(1),D,20)=K
S4Z	Q
	;
S5	S X=UZ+100,OK=1 I '+$P(^(UZ+100),D,18) G S5Z:$O(^(UZ+100))'="" S OK=0 G S5Z
S5A	S X=$O(^(X)) I '$L(X) S OK=0 G S5Z
S5B	G S5A:$P(^(X),D,19)=(UZ+100)
S5Z	K X Q
	;
F1	S FP=2403+F60 W @F,@F4,MSG,"  [] = ok ",@F5,@F2,@F0 K MSG Q
	;
ZZ	; 22.11.04 - 16 u 14 * V8.02