cTI20	;Wijzigen hoofding ;%TI14 ; [ 12/21/01  2:48 PM ]
	G 1
	;
T0	;Wijzigen hoofding ;
T1	;Nummer element;
T2	;Niet wijzigbaar  [] = ok ;
	;
T0F	;Modific. en-téte ;
T1F	;N° d'élément;
T2F	;Non modifiable   [] = ok ;
	;
T0E	;Wijzigen hoofding ;
T1E	;Nummer element;
T2E	;Niet wijzigbaar  [] = ok ;
	;
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 UWH=D,K1=K,(X,K)=100,Y=$D(@("^"_Q_UGL_"(0,US,0)"))
10	S I=$G(^(X)) I I D
	. I KC>200200 S I=I+1
	. I $O(@("^"_QT_"BIB(UGL,X,I,X)"))\100*100'=X S Y=$D(@("^"_Q_UGL_"(0,US,0)"))
11	K A F  S X=$O(^(X)) Q:X<100!(X>199)  S K=K+1,A(K)=^(X)
13	I $L(K1)>1 S K=K1 I '$D(A(100+$E(K1,2,$L(K1)))) K A D @$P(USM,D,4) K A Q
15	K B S SW12=1,B(1)=@("^"_Q_UGL_"(KC,US,UR,1)") F I=2:1:SW3 I $D(^(I)) S B(I)=^(I)
17	S U1=100,U4=0 F I=1:1 S U1=$O(A(U1)) Q:U1=""  S U2=A(U1),FP=$P(UD,D,3)+$P(U2,U,2)*100+$P(U2,U,3),U4=U4+1 W @F,$J(U4,2)
19	I $L(K1)>1 S U2=A(100+$E(K1,2,$L(K1))) G 21
	;
2	S R="K\"_$S(+USM:+USM,1:22)_"\3\"_$P($T(@("T1"_QT)),U,2)_"\\2\\"",-""[K&($L(K)=1)!(K?.N&$D(A(K+100)))" D R0 G 3:K="-"!(K=",") S U2=A(K+100)
21	I $P(U2,U,12),@$P(U2,U,15) S FP=2403+F60 W @F,@F2,@F4,$P($T(@("T2"_QT)),U,2),@F5,@F0 D ^cAFA0("",0,0,0,0,27) G 2
22	I $L($P(U2,U,19)),@$P(U2,U,20) X $P(U2,U,19) G 2:K="-"!(K=","),25
23	S $P(U2,U,2)=$S(+USM:+USM,1:22)
24	D ^cA207 G 2:K="-",3:K=","
25	S SW13=1,U3=K I $L($P(U2,U,8)) S U3="S U3="_$P(U2,U,8) X U3
26	S FP=$P(UD,D,3)+$P(U2,U,5)*100+$P(U2,U,6) W @F,$J("",$P(U2,U,9)),$J("",$P(U2,U,13)),@F,U3
27	I $P(U2,U,16)'?.N!($P(U2,U,16)<101) G 2:$P(U2,U,16)?.N S @$P(U2,U,16)=K G 2
28	S X=$P(U2,U,16)\100,Y=$P(U2,U,16)#100,U2="",$P(B(X),D,Y)=K G 2
	;
3	K U2,U3 S U1=100,@("^"_Q_UGL_"(KC,US,UR,1)")=B(1) F I=2:1:SW3 I $D(^(I)) S ^(I)=B(I)
31	G YZ:K=","
33	F I=1:1 S U1=$O(A(U1)) Q:U1=""  S U2=A(U1) I '$P(U2,U,22) S FP=$P(UD,D,3)+$P(U2,U,2)*100+$P(U2,U,3) W @F,"  "
	;
YZ	K A,B,UWH Q
	;
C1	W !?2,$P(U2,U,10),@F2 Q
	;
ZZ	; 07.02.02 - 11 u 22 * V7.91