cTI28	;Wijzigen lijn ;Do naar %TI280 ; [ 09/19/96  11:42 AM ]
	G 1
	;
T0	;Wijzigen lijn ;
T1	;Lijnnummer;
T2	;Lijn onbekend;
	;
T0F	;Modif. ligne;
T1F	;N° de ligne;
T2F	;Ligne inconnue;
	;
R0	S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
	;
S0	S SW12=1 G YZ
	;
1	K C,CA S (SW12,OK)=1,WZ="" S:$D(@("^"_Q_UGL_"(0,US,""UWZ"")")) UWZ=^("UWZ")
11	S X=200,Y=101 I $D(^(X)) S I=^(X) I I,$O(@("^"_QT_"BIB(UGL,X,I,X)"))\100*100'=X S I=$D(@("^"_Q_UGL_"(0,US,0)"))
12	F I=1:1 S X=$O(^(X)) Q:X<200!(X>299)  S C(Y)=^(X),Y=Y+1
13	I '$L($E(K,2,$L(K))) G YZ:$O(@("^"_Q_UGL_"(KC,US,UR,100)"))="",15
14	S UZ=+$E(K,2,$L(K)) G 19:$D(@("^"_Q_UGL_"(KC,US,UR,UZ+100)")) K WZ,UWZ S SW12=0,UZ=^(0)-100 D @$P(USM,D,4) G YZ
15	S R="UZ\"_$S(+USM:+USM,1:22)_"\3\"_$P($T(@("T1"_QT)),U,2)_"\\3\\"",-""[K&$L(K)!(K?1N.N&K)" D R0 G YZ:K="-"!(K=",")
17	I '$D(@("^"_Q_UGL_"(KC,US,UR,UZ+100)")) S MSG=$P($T(@("T2"_QT)),U,2) D F1 D ^cAFA0("",0,0,0,0,27) G 15
19	S (A(1),B(1))=^(UZ+100) D S1 S UM=$P(B(1),D,17) D:$L($P(B(1),D)) ^cTI280 S U1=100 G 21
	;
2	S U1=U1-2 G 75:U1<100
21	S U1=$O(C(U1)) G 7:U1="" S U2=C(U1),U7=$P(U2,U,16),B(U7)="" S:K'="-" K="" I $P(U2,U,12),@$P(U2,U,15) G 21:K'="-",2
23	I $L($P(U2,U,4)),@$P(U2,U,4) S U3="",X=1 G 2:K="-" K B(U7) G 21:U1>0,7
25	I $L($P(U2,U,7)),@$P(U2,U,14) G 2:K="-" X "S K="_$P(U2,U,7) G 33
27	I $L($P(U2,U,17)),@$P(U2,U,18) X $P(U2,U,17) S (U3,B(U7))=K G 5
29	I $L($P(U2,U,19)),@$P(U2,U,20) X $P(U2,U,19) G 33
	;
3	S (K,U3,B(U7))=$P(A(1),D,U7#100) G 5
33	I K="-" G 75:U1=101,2
35	I K="," G 75:U1=101 S U1=100 G 21
37	S (B(U7),U3)=K
	;
4	X:$L($P(U2,U,8)) $P(U2,U,8)
41	G 6
	;
5	S R="K\"_$P(U2,U,2)_D_$P(U2,U,3)_"\"_$P(U2,U)_"\C2\"_$P(U2,U,9)_D_$P(U2,U,21)_D_""",-""[K"
51	S R=R_$S($L($P(U2,U,11)):"!("_$P(U2,U,11)_")",1:"!1") D R0
53	G 4:K="",33
	;
6	S:U7#100 $P(B(1),D,U7#100)=B(U7) I UUM[(U7_U) S X=U7_$P($P(UUM,U7,2),D) D S2
61	K B(U7) G 21:U1>0
	;
7	I $D(UTA(UZ)) S FP=UTA(UZ)*100+$P(UV,U) W @F,@F7,@$P(FG,D,10),@F8 F I=1:1 S X=$P(UUM,D,I) Q:'$L(X)  D S3
71	I $D(UWZ) D @UWZ
73	S @("^"_Q_UGL_"(KC,US,UR,UZ+100)")=B(1)
75	S:B(1)'=A(1) SW13=1 S FP=$P(UD,D,2)+1*100+1 W @F,@F1 G 15
	;
YZ	K UWZ,WZ,C,A Q
	;
S1	F I=1:1 S X=$P(UUM,D,I) Q:'$L(X)  S U3=$S('$P(X,U):@$P(X,U),1:$P(A(1),D,$P(X,U)#100)) D S2
S1Z	W @F1 Q
	;
S2	F II=1:1:4 S @("S"_II)=$P(X,U,II)
S2A	S FP=$P(UD,D,2)+2*100+$P(UV,U,S2)+1,K=$S('S1:@S1,1:$P(B(1),D,S1#100)) X:$L(S4) S4 I K="" G S2Z
S2B	I S3="L" W @F,K,$J("",$P(UV,U,S2+1)-$P(UV,U,S2)-$L(K))
S2C	E  W @F,$J(K,$P(UV,U,S2+1)-$P(UV,U,S2)-1)
S2Z	Q
	;
S3	F II=1:1:4 S @("S"_II)=$P(X,U,II)
S3A	S FP=UTA(UZ)*100+$P(UV,U,S2)+1,K=$S('S1:@S1,1:$P(B(1),D,S1#100)) X:$L(S4) S4 G S3D:'$L(K)
S3B	I S3="L" W @F,K,$J("",$P(UV,U,S2+1)-$P(UV,U,S2)-$L(K))
S3C	E  W @F,$J(K,$P(UV,U,S2+1)-$P(UV,U,S2)-1)
S3D	S FP=UTA(UZ)*100+$P(UV,U,S2+1) W @F,@F7,@$P(FG,D,10),@F8
S3Z	K S1,S2,S3,S4 Q
	;
C1	W:$L($P(U2,U,10)) !?2,$P(U2,U,10),@F2 Q
C2	W !?2 W:$L($P(U2,U,10)) $P(U2,U,10),"   " W:$L(K) "[] = ",K W @F2 Q
	;
F1	S FP=2403+F60 W @F,@F4,MSG,"  [] = ok ",@F5,@F2,@F0 K MSG Q
	;
ZZ	; 19.09.96 - 13 u 49 * V6.2.05