cA204 ;WIJZIGEN/RAADPLEGEN ;%A200 ;do naar %A208 ; [ 01/23/96  4:56 PM ]
 G 1
 ;
T0 ;Wijzigen/raadplegen ;
T1 ;Wijzigen;raadplegen;
T2 ;Er bestaan ;schermen.;
T3 ;scherm 1;
T4 ;vervolg;
 ;
T0F ;Modifications/consultations;
T1F ;Modification;consultation;
T2F ;Il y a ;écrans.;
T3F ;écran 1;
T4F ;suite;
 ;
T0E ;Wijzigen/raadplegen ;
T1E ;Wijzigen;raadplegen;
T2E ;Er bestaan ;schermen.;
T3E ;scherm 1;
T4E ;vervolg;
 ;
S1 I 'B,SW4<2 S KW=$S(U5:",",1:1)
S1Z Q
 ;
S2 K A,B,K
S2Z S K=U5 Q
 ;
S3 S S0=$P(R,D,2)+1 W !?2 I J="" S S1="x",S2=$P($T(@("T3"_QT)),U,2) S:SW4>1 S2=S2_"-"_SW4 G S3B
S3A S S3=J,J=$O(K(J)) G S3H:J="" S S1=J,S2=$P(@("^"_Q_"BA(""%A"",9,Q1,K(J))"),D,2)
S3B S S1=$J(S1,A)_"[] = "_$E(S2_$J("",B+3),1,B+3)
S3C G S3F:S0=24 I $X+$L(S1)<81 D S4 W S1 G S3A
S3D S S0=S0+1 I S0<25 W !?2,S1 G S3A
S3E S J=S3 G S3Z
S3F I $X<T!('I&'$L($O(K(J)))) W S1 G S3A
S3G S I=1
S3H I I W:S0<24 !?2 W:$X'>T ?T,$J("",A),"[] = ",$P($T(@("T4"_QT)),U,2) G S3E:$L(J)
S3Z K S0,S1,S2,S3 Q
 ;
S4 I S0=$P(R,D,2)+1,T<$X S T=$X
S4Z Q
 ;
1 K A,B S I1=^HULP("PAS",$J+(200/10000),Q1)
 ;
2 I SW4>1 S FP=254 W @F,@F5,$P($T(@("T2"_QT)),U,2),@F4,SW4," ",@F5,$P($T(@("T2"_QT)),U,3)
 ;
3 K K S A=$L(SW4),B=0,I=""
31 S I=$O(@("^"_Q_"BA(""%A"",9,Q1,I)")) G 37:I="" S K=^(I),OK=0 X $P(K,D,4) 
33 I OK S J=$P(K,D),K(J)=I S:$L(J)>A A=$L(J) S J=$P(K,D,2) S:$L(J)>B B=$L(J) 
35 G 31
37 D S1 S J=$P($T(@("T3"_QT)),U,2) S:SW4>1 J=J_"-"_SW4 I $L(J)>B S B=$L(J)
39 S (I,T)=0,J="" I $D(KW),$L(KW) S (K,U5)=KW,KW="" G YZ:K=",",41
 ;
4 S R="U5\22\3\"_$P($T(@("T1"_QT)),U,3-WIJZ)_"\S3\"_A_"\\$L(K)!I\\\1" D R0 G YZ:K="-"!(K=",")
41 I K,K'>SW4 D S2,^cA208 G 1
43 I $L(K),$D(K(K)) S R=$P(@("^"_Q_"BA(""%A"",9,Q1,K(K))"),D,3) D S2,@$P(R,U) S SW2=U5 G 1
45 S:$L(K) J="" G 4
 ;
YZ G 2^cA203
 ;
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