cA234 ;WIJZIGEN RUBRIEKEN ;%A233 ; [ 01/23/96  5:00 PM ]
 ;
T0 ;Wijzigen rubrieken ;
T1 ;Nummer element\"-[] = einde   .[] = ;
T2 ;-[] = keuze element   .[] = ;
 ;
T0F ;Modification des rubriques ;
T1F ;Numéro d'élément \"-[] = fin   .[] = ;
T2F ;-[] = choix d'élément   .[] = ;
 ;
T0E ;Wijzigen rubrieken ;
T1E ;Nummer element\"-[] = einde   .[] = ;
T2E ;-[] = keuze element   .[] = ;
 ;
1 S:SZ2 U1=U1S G 13:SZ2&(K'="-")&(U1S'="") S SZ2=0
11 S BFSW=1 S R="U1\22\3\"_$P($T(@("T1"_QT)),U,2)_X8_""""_"\2\\""-.""[K!(K?1N.1N)&(K'=""-."")" D R0 G 4:U1="-"!(U1="."),11:U1'?1N.N!($L(U1)>3),11:'$D(A(SW2*100+U1)) S SZ1=U1
13 S U2=A(SW2*100+U1) I $P(U2,U,12),$L($P(U2,U,15)),@$P(U2,U,15) D TXT^cAFA1(69) G 11
15 S U7=$P(U2,U,16),K=$P($G(B(U7\100)),D,U7#100),U1S=U1 S:U7>100 B(U7)=K
17 I $L($P(U2,U,19)),$L($P(U2,U,20)),@$P(U2,U,20) X $P(U2,U,19) G 21
 ;
2 D ^cA207
21 I K="-"!(K=",") K:U7>100 B(U7) G 11
23 I $D(U("D")),$E(K)=".",$E(K,2,999)=$E(B(U7),2,999) S K="."
25 I K="." K:U7>100 B(U7) G 4
 ;
3 S U3=K I $L($P(U2,U,8)) X "S U3="_$P(U2,U,8)
31 S FP=$P(U2,U,5)*100+$P(U2,U,6) W @F,U3,$J("",$P(U2,U,9)+$P(U2,U,13)-$L(U3))
33 I U7>100 S $P(B(U7\100),D,U7#100)=K K B(U7)
35 G 11
 ;
4 S SZ2=$S(U1="."!(K="."&(U1)):1,1:0),SZ1=U1 K U1,U2,U3 I $D(X3) K OK D @X3 G YZ:OK=1,1:'OK
41 S K=$P(B(1),D,2) D ^cA218 S @%Q1=0 I I1'=I S U3=-1,X=Q4,Y="^"_Q_Q1_"(I,U3)" D S5
43 S @("^"_Q_Q1_"(I,0)")=B(1) F I=2:1:SW3 S ^(I-1)=B(I)
45 S @%Q1=1
 ;
YZ 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
 ;
C1 I $L($P(U2,U,10)) S FP=2403 W @F
C1A W $P($T(@("T2"_QT)),U,2),X8,@F1
C1Z Q
 ;
S5 S U3=$O(@X) G S5Z:U3="" S @Y=@X G S5
S5Z K @Q3 S J1=$P(B(1),D),@("^"_Q_Q2_"(J1)")=I,I1=I Q
 ;
Z X ^cZ Q
ZZ ; 05.02.01 - 16 u 23 * V7.84