cA251	;BEHEER KODES (INVULLEN RUBRIEKEN) ;%A250; Quit naar %A250 [ 01/17/02  10:46 AM ]
	;
T0	;Beheer codes (invullen rubrieken) ;
	;
T0F	;Gestion codes (remplir rubriques) ;
	;
T0E	;Beheer codes (invullen rubrieken) ;
	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	S R21=100,K=""
11	I '$D(C) 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>199!'X  S C(Y)=^(X),Y=Y+1
13	G 21
	;
2	S R21=R21-2 G YZ:R21<100
21	S R21=$O(C(R21)) G YZ:'R21 S R22=C(R21),R27=$P(R22,U,16),B(R27)="" S:K'="-" K=""
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,YZ
25	I $L($P(R22,U,7)),@$P(R22,U,14) G 33: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 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)"
31	S R=R_$S($L($P(R22,U,11)):"!("_$P(R22,U,11)_")",1:"!1") D R0
33	I K="-" G YZ:R21=101 S X=R27\100,Y=R27#100 S:Y $P(B(X),D,Y)="" D S1 S K="-" G 2
35	I K="," G YZ:R21=101 S R21=100 K B S FP=$P(RRD,D,2)+2*100+$P(RRV,U)+1 W @F,@F2 G 21
39	S (B(R27),R23)=K
	;
4	X:$L($P(R22,U,8)) $P(R22,U,8) D S1 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 X=R27\100,Y=R27#100 S:'$D(B(X)) B(X)="" S:Y $P(B(X),D,Y)=B(R27)
61	K B(R27) G 21:R21>0
	;
YZ	K R21,R22,R23,R27 Q
	;
C1	W !?2,$P(R22,U,10) Q
C2	W !?2 W:$L($P(R22,U,10)) $P(R22,U,10),"   " W:$L(K) "[] = ",K Q
	;
S1	I RRM[(R27_U) S X=R27_U_$P($P(RRM,R27_U,2),D,1) D S2
S1Z	Q
	;
S2	F II=1:1:4 S @("RS"_II)=$P(X,U,II)
S2A	S FP=$P(RRD,D,2)+2*100+$P(RRV,U,RS2)+2 I K="-" S K="" G S2C
S2B	S K=$S('RS1:@RS1,1:R23) X:$L(RS4) RS4 I $L($P(R22,U,4)),@$P(R22,U,4),R27'="UZ" G S2Z
S2C	I RS3="L" W @F,K,$J("",$P(RRV,U,RS2+1)-$P(RRV,U,RS2)-$L(K)-2)
S2D	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