cA203 ;WIJZIGEN/RAADPLEGEN ;%A203 ;overlay %A204 ; [ 01/23/96  4:55 PM ]
 ;
T0 ;Wijzigen/raadplegen ;
T1 ;Wijzigen;raadplegen;
T2 ;Er bestaan ;schermen.;
 ;
T0F ;Modifications/consultations ;
T1F ;Modification du fichier;consultation du fichier;
T2F ;Il y a ;écrans.;
 ;
T0E ;Wijzigen/raadplegen ;
T1E ;Wijzigen;raadplegen;
T2E ;Er bestaan ;schermen.;
 ;
1 S K=$P($T(@("T1"_QT)),U,3-WIJZ)_" "_$P(@("^"_Q_Q1_"(0,0)"),U)_" "_QN_" ",FP=203+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5
11 S (SW4,SW5,SW6)=1,(SW2,SW7)="",Q3="^"_Q_Q1_"(I1)",Q4="^"_Q_Q1_"(I1,U3)"
13 S X3=$G(^(-3*WIJZ+6)),SR=$G(^(5),"^cA101"),SW7=$G(^(7)) D SW^cA243:WIJZ,S6^cA908:$L(SW7) 
15 I $O(^(SW4+1*100))\100-1=SW4 S SW4=SW4+1 G 15
17 I SW4>1 S FP=254 W @F,@F5,$P($T(@("T2"_QT)),U,2),@F4,SW4," ",@F5,$P($T(@("T2"_QT)),U,3)
19 S x1=$TR($P(X1," ",$L(X1," ")),"ABCDEFGHIJKLMNOPQRSTUVWXYZ","abcdefghijklmnopqrstuvwxyz")
 ;
2 K ^HULP("PAS",$J+(200/10000),Q1) L  S FP=355 W @F,@F2
21 K A,B S R="I1\2000\"_X1_D_Q1_D_Q2 D @SR G YZ:K="-"!(K=",")
23 I $L(SW7),WIJZ D ^cA908 G 21:K="-"
25 S B(1)=@("^"_Q_Q1_"(I1,0)") F I=1:1:9 I $D(^(I)) S B(I+1)=^(I)
27 S A(101)=@("^"_Q_Q1_"(0,101)"),A(102)=^(102)
 ;
3 S (U1,U4,U5)=0 I SW2 S KW=SW2
31 S U1=$O(A(U1)) G 4:U1="" S U2=A(U1),U4=U4+1,I=$P(U2,U,16),J=I#100,I=I\100,K="" I I,J S K=$P(B(I),D,J)
33 S U3=K I $L($P(U2,U,8)) X "S U3="_$P(U2,U,8)
35 I SW6 S FP=$P(U2,U,2)*100+$P(U2,U,3) W @F,$J($S($P(U2,U,22):U4,1:""),2) I '$P(U2,U,23) W @F6,$P(U2,U),@F9
37 S FP=$P(U2,U,5)*100+$P(U2,U,6),I=$P(U2,U,9)+$P(U2,U,13) W @F,$E(U3,1,I),$J("",I-$L(U3)) I SW6,'$P(U2,U,23) S FP=FP-3 W @F,@F9,": "
39 G 31
 ;
4 S SW6=0,^HULP("PAS",$J+(200/10000),Q1)=I1 I WIJZ L (Q1(I1),@Q3):2 E  S R=14 D F2 G 2
41 G ^cA204
 ;
YZ Q
 ;
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