cA208 ;WIJZIGEN/RAADPLEGEN ;%A203 ;do uit %A204 ; [ 01/23/96  4:56 PM ]
 ;
T0 ;Wijzigen/Raadplegen ;
T1 ;Scherm ;
T2 ;Er bestaan ;schermen.;
T3 ;Nummer element\",[] = "_x1_"   .x[] = scherm x";
 ;
T0F ;Modification/Consultation;
T1F ;Ecran ;
T2F ;Il y a ;écrans.;
T3F ;Numéro d'élément\",[] = "_x1_"   .x[] = écran x";
 ;
T0E ;Wijzigen/Raadplegen ;
T1E ;Scherm ;
T2E ;Er bestaan ;schermen.;
T3E ;Nummer element\",[] = "_x1_"   .x[] = scherm x";
 ;
1 I SW4>1 S FP=254 W @F,@F5,$P($T(@("T2"_QT)),U,2),@F4,SW4," ",@F5,$P($T(@("T2"_QT)),U,3)
11 S SW5=SW2'=U5,SW2=U5,FP=354 W @F,@F2 I SW4>1 W @F5,$P($T(@("T1"_QT)),U,2),SW2
13 S B(1)=@("^"_Q_Q1_"(I1,0)") F I=1:1:9 I $D(^(I)) S B(I+1)=^(I)
15 S A(101)=@("^"_Q_Q1_"(0,101)"),A(102)=^(102),U1=SW2*100+(SW2=1*2),U4=102
17 S U1=$O(^(U1)) I U1\100=SW2 S U4=U4+1,A(U4)=^(U1) G 17
19 S U1=102,U4=2,FP=601 W:SW5 @F,@F1 I SW2>1 F K=101,102 S U2=A(K),$P(U2,U,12)=1,$P(U2,U,15)=1,A(K)=U2
 ;
2 S U1=$O(A(U1)) G 3:U1="" S U2=A(U1),U4=U4+1,I=$P(U2,U,16),J=I#100,I=I\100,K="" I I,'$D(B(I)) S B(I)=D,$P(B(I),D,24)=D
21 I I,J S K=$P(B(I),D,J)
23 D S2 G 2
 ;
3 S KW="",SW5=0 I 'WIJZ G 5
31 S R="U1\22\3\"_$P($T(@("T3"_QT)),U,2)_"\2\\$L(K)\\\1" D R0 G Y:K="-" I K="," S K=".,"
33 I $E(K)="." S KW=$E(K,2),K="-" G Y:KW'=SW2&$L(KW),3
35 S U2=$G(A(100+U1)),U7=$P(U2,U,16) G 3:'$L(U2)
37 I $P(U2,U,12),$L($P(U2,U,15)),@$P(U2,U,15) S R=69 D F2 G 3
39 S K=$P($G(B(U7\100)),D,U7#100)
 ;         
4 I $L($P(U2,U,17)),$L($P(U2,U,18)),@$P(U2,U,18) X $P(U2,U,17) G 3:K="-"!(K=",") S KW=K D 0^cA207 S:K="" K=KW G 45
41 I $L($P(U2,U,19)),$L($P(U2,U,20)),@$P(U2,U,20) X $P(U2,U,19) G 45
43 D ^cA207
45 I K'="-",K'="," D S2 S I=$P(U2,U,16),J=I#100,I=I\100 I I,J S $P(B(I),D,J)=K
47 G 3
 ;
5 I $D(X3),$L(X3) D @X3
51 G YZ
 ;
Y S I1=^HULP("PAS",$J+(200/10000),Q1) I $D(X3),$L(X3) K OK D @X3 G 3:'OK,YY:OK=1
YA S @%Q1=0,@("^"_Q_Q1_"(I1,0)")=B(1),J=$O(B(""),-1),K=D,$P(K,D,24)=D F I=2:1:J S ^(I-1)=$G(B(I),K)
YB D ^cA218 I I'=I1 D S1 L -@Q3 S I1=I L +@Q3:2 E  S R=14 D F2 S K="-"
YY S ^HULP("PAS",$J+(200/10000),Q1)=I1,@%Q1=1
YZ Q
 ;
S2 S U3=K I $L($P(U2,U,8)) X "S U3="_$P(U2,U,8)
S2A I SW5 S FP=$P(U2,U,2)*100+$P(U2,U,3) W:$P(U2,U,22) @F,$J(U4,2) I '$P(U2,U,23) S FP=FP+2 W @F,@F6,$P(U2,U),@F9
S2B 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))
S2C I SW5,'$P(U2,U,23),$P(U2,U,2)=$P(U2,U,5) S FP=FP-3 W @F,@F9,":"
S2Z Q
 ;
S1 S S01="^"_Q_Q1_"("""_I1_""")"
S1A S S01=$Q(@S01) I $P(S01,"""",2)=I1 S S02=$P(S01,I1)_I_$P(S01,I1,2,999),@S02=@S01 G S1A
S1B S @("^"_Q_Q2_"($P(B(1),D))")=I K @Q3
S1Z K S01,S02 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