cA222 ;INVULLEN RUBRIEKEN ;%A237 ; [ 01/23/96  4:57 PM ]
 G 1
 ;
T0 ;Invullen rubrieken ;
T1 ;[] = ok;
T2 ;Opening ok\"[] = ok   ,[] = hernemen";
 ;
T0F ;Entrée des rubriques ;
T1F ;[] = ok;
T2F ;Création ok\"[] = ok   ,[] = reprendre";
 ;
T0E ;Invullen rubrieken ;
T1E ;[] = ok;
T2E ;Opening ok\"[] = ok   ,[] = hernemen";
 ;
S1 X:$L($P(U2,U,8)) "S U3="_$P(U2,U,8) Q
 ;
1 S SW5=0,U1=SW2*100 G 15
 ;
13 K B($G(U7,0)) S U1=U1-2 S:U1#100<3&(SW2>1) K="" G 7:U1<-1
15 S U1=$O(A(U1)) G 7:U1="" D ^cA907:$L(SW7)&(U1=102) S U1S=U1,U2=A(U1),U7=$P(U2,U,16),B(U7)=$P($G(B(U7\100)),D,U7#100) S:K'="-" K=B(U7)
17 I $L($P(U2,U,4)),@$P(U2,U,4) S U3="" G 33:K'="-",13
170 I $L($P(SW7,U,8)),$D(^HULP(boot,$J+(500/10000),U7)) D S3^cA907 G 55
19 I K'="-",$L($P(U2,U,7)),$L($P(U2,U,14)),@$P(U2,U,14) X "S K="_$P(U2,U,7) G 55
21 I $L($P(U2,U,17)),$L($P(U2,U,18)),@$P(U2,U,18) X $P(U2,U,17) S (U3,B(U7))=K G 51
23 I $L($P(U2,U,19)),$L($P(U2,U,20)),@$P(U2,U,20) X $P(U2,U,19) G 55
25 S K=B(U7) D ^cA207
27 I K="-" K B(U7) G YZ:U1=101,13
29 I K="," K B(U7) S U1=SW2*100 G YZ
33 S B(U7)=K,U3=K S:U7=101 NR=B(U7) G 4
 ;
4 D S1 G 6:'(U7=101&(K'=""))
41 I $D(@Q4) S R=66 D F2 G 47
45 G 6
47 S (NR,K)=$P(B(1),D) D S1 G 1:U1>0,17
 ;
51 D 0^cA207
53 I K="" S K=B(U7) G 4
55 S (U3,B(U7))=K G 29:K=",",4:K'="-",YZ:U1=101,13
 ;
6 S X=U7\100,Y=U7#100 S:'$D(B(X)) B(X)=SL S $P(B(X),D,Y)=B(U7)
61 K B(U7) G 15:U1>0
 ;
7 S R="K\22\3\"_$P($T(@("T2"_QT)),U,2)_"\1\\""-,""[K" D R0
71 G 29:K=",",YZ:K="" I K="-" S U1=U1S-1 G 15
 ;
YZ S U4=K Q
 ;
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
 ;
F1 S R=250
F2 D TXT^cAFA1(R)
FZ K R Q
 ;
Z X ^cZ Q
ZZ ; 05.02.01 - 16 u 23 * V7.84