Index: cA251.mac.rou
===================================================================
diff -u -r734 -r3542
--- cA251.mac.rou	(.../cA251.mac.rou)	(revision 734)
+++ cA251.mac.rou	(.../cA251.mac.rou)	(revision 3542)
@@ -1,56 +1,57 @@
-cA251 ;BEHEER KODES (INVULLEN RUBRIEKEN) ;%A250; Quit naar %A250 [ 02/05/96  9:29 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_$P($P(RRM,R27,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 ; 05.02.01 - 16 u 23 * V7.84
\ No newline at end of file
+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
+