cA253	;BEHEER KODES (WIJZIGEN) ;%A250 ; Quit naar %A250 [ 12/31/01  12:15 PM ]
	;
T0	;Beheer codes (wijzigen) ;
	;
T0F	;Gestion codes (modifier) ;
	;
T0E	;Beheer codes (wijzigen) ;
	G 1
	;
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
	;
1	K C S (SW12,OK)=1,WZ=""
11	S X=$S($D(Q99):$D(@Q99),1:$D(@("^"_$S($D(RBIB):QS_QT_RBIB,1:QS_Q_RGL)_"(RR1,RR2_.1,0)"))),X=100,Y=101 F I=1:1 S X=$O(^(X)) Q:X=""!'X!(X>199)  S C(Y)=^(X),Y=Y+1
13	S RRZ="" G YZ:$O(@Q1)="" S RRZ=K
19	S (A(1),B(1))=@Q1,RL1=$P(RRD,D,2)+2 D S1 S R21=100 G 21
	;
2	S R21=R21-2 G YZ:R21<100
21	S R21=$O(C(R21)) G 7:R21="" S R22=C(R21),R27=$P(R22,U,16),B(R27)="" S:K'="-" K="" I $P(R22,U,12),@$P(R22,U,15) G 21:K'="-",2
23	I $L($P(R22,U,4)),@$P(R22,U,4) S R23="",X=1 G 2:K="-" D S1 K B(R27) G 21:R21>0,7
25	I $L($P(R22,U,7)),@$P(R22,U,14) G 2:K="-" X "S K="_$P(R22,U,7) G 33
27	I $L($P(R22,U,17)),@$P(R22,U,18) X $P(R22,U,17) S (R23,B(R27))=K G 5
29	I $L($P(R22,U,19)),@$P(R22,U,20) X $P(R22,U,19) G 33
	;
3	S (K,R23,B(R27))=$P(A(1),D,R27#100) G 5
33	I K="-" G YZ:R21=101,2
35	I K="," G YZ:R21=101 S R21=100 G 21
37	S (B(R27),R23)=K
	;
4	X:$L($P(R22,U,8)) $P(R22,U,8)
41	G 6
	;
5	S R="K\"_$P(R22,U,2)_D_$P(R22,U,3)_"\"_$P(R22,U,1)_"\C2\"_$P(R22,U,9)_D_$P(R22,U,21)_D_""",-""[K"
51	S R=R_$S($L($P(R22,U,11)):"!("_$P(R22,U,11)_")",1:"!1") D R0
53	G 4:K="",33
	;
6	S:R27#100 $P(B(1),D,R27#100)=B(R27) I RRM[(R27_U) S X=R27_U_$P($P(RRM,R27_U,2),D,1) D S2
61	K B(R27) G 21:R21>0
	;
7	S RL1="" F I=1:1 S RL1=$O(RTA(RL1)) Q:RL1=""  I RTA(RL1)=RRZ Q
71	D S1:RL1 S R=Q1,@R=B(1) D:$D(RDP) @("CO^"_RDP) D S5^cA250:$D(RQ)
	;
YZ	K RL1,WZ,C,A,B Q
	;
C1	W:$L($P(R22,U,10)) !?2,$P(R22,U,10) Q
C2	W !?2 W:$L($P(R22,U,10)) $P(R22,U,10),"   " W:$L(K) "[] = ",K Q
	;
S0	S R="K\"_$P(R22,U,2)_D_$P(R22,U,3)_"\"_$P(R22,U,1)_"\C1\"_$P(R22,U,9)_D_$P(R22,U,21)_D_""",-""[K&$L(K)"
S0A	S R=R_$S($L($P(R22,U,11)):"!("_$P(R22,U,11)_")",1:"!1") D R0
S0Z	Q
	;
S1	F I=1:1 S X=$P(RRM,D,I) Q:'$L(X)  D S2
S1Z	Q
	;
S2	F II=1:1:4 S @("RS"_II)=$P(X,U,II)
S2A	S FP=RL1*100+$P(RRV,U,RS2)+2,K=$S('RS1:@RS1,1:$P(B(1),D,RS1#100)) X:$L(RS4) RS4
S2B	I RS3="L" W @F,K,$J("",$P(RRV,U,RS2+1)-$P(RRV,U,RS2)-$L(K)-2)
S2C	E  S FP=FP-1 W @F,$J(K,$P(RRV,U,RS2+1)-$P(RRV,U,RS2)-1)
S2Z	K RS1,RS2,RS3,RS4 Q
	;
Z	X ^cZ Q
ZZ	; 07.02.02 - 11 u 22 * V7.91