cTI22	;Invullen rubrieken ;%TI14 ; [ 09/19/96  11:40 AM ]
	G 1
	;
T0	;Invullen rubrieken ;
	;
T0F	;Entrée des rubriques ;
	;
R0	S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
	;
S1	I UUM[(U7_U) S X=U7_$P($P(UUM,U7,2),D) D S2
S1Z	Q
	;
S2	F II=1:1:4 S @("S"_II)=$P(X,U,II)
S2A	S FP=UL*100+$P(UV,U,S2)+1 I K="-" S K="" G S2C
S2B	S K=$S('S1:@S1,1:U3) X:$L(S4) S4 G S2E:K="" I $L($P(U2,U,4)),@$P(U2,U,4),U7'="UZ" G S2E
S2C	I S3="L" W @F,K,$J("",$P(UV,U,S2+1)-$P(UV,U,S2)-$L(K))
S2D	E  W @F,$J(K,$P(UV,U,S2+1)-$P(UV,U,S2)-1)
S2E	S FP=UL*100+$P(UV,U,S2+1) W @F,@F7,@$P(FG,D,10),@F8
S2Z	Q
	;
S3	S X="" K:UTA($O(UTA(X)))=+UD UTA($O(UTA(X))) F I=1:1 S X=$O(UTA(X)) Q:'X  S UTA(X)=UTA(X)-1
S3Z	Q
	;
1	S FP=UL*100+1 W @F,@F1 I UL>$P(UD,D,2) S UL=UL-1,FP=UD*100+1 W @F,@FDL D S3
11	S U1=100 I '$D(C) S X=$D(@("^"_Q_UGL_"(0,US,0)")),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	S K="",FP=UL*100+$P(UV,U) W @F,@F7,@$P(FG,D,10),@F8 G 21
	;
2	S U1=U1-2 G YZ:U1<100
21	S U1=$O(C(U1)) G YZ:'U1 S U2=C(U1),U7=$P(U2,U,16),B(U7)="" S:K'="-" K=""
23	I $L($P(U2,U,4)),@$P(U2,U,4) S U3="",X=1 G 2:K="-" D S1 K B(U7) G 21:U1>0,YZ
25	I $L($P(U2,U,7)),@$P(U2,U,14) G 33: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	D ^cA207
33	I K="-" G YZ:U1=101 S X=U7\100,Y=U7#100 S:Y $P(B(X),D,Y)="" D S1 S K="-" G 2
35	I K="," G YZ:U1=101 S U1=100 K B S FP=UL*100+$P(UV,U)+1 W @F,@F2 G 21
37	S (B(U7),U3)=K
	;
4	X:$L($P(U2,U,8)) $P(U2,U,8) D S1 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 X=U7\100,Y=U7#100 S:'$D(B(X)) $P(B(X),D,28)=D S:Y $P(B(X),D,Y)=B(U7)
61	K B(U7) G 21:U1>0
	;
YZ	S U4=K,SW13=1 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
	;
ZZ	; 19.09.96 - 13 u 49 * V6.2.05