cA258 ;OPENEN KODES - OP 22-STE LIJN ;%A258; [ 04/29/98  5:09 PM ]
 ;VRAAG NAAR DE KODE
 G 1
 ;
T0 ;Openen codes - op 22' lijn ;
T1 ;Code bestaat reeds ;
 ;
T0F ;Création codes - ligne 22 ;
T1F ;Code existe déjà;
 ;
T0E ;Openen codes - op 22' lijn ;
T1E ;Code bestaat reeds ;
 ;
1 S %08=$J+.1 D ^cA338 S R=R20_D_R19_D_$G(RBIB) D ^cA609 S R20=$P(R,D),R19=$P(R,D,2),RBIB=$P(R,D,3) I RBIB="" K RBIB
12 S RGL=R20 F R=1:1:R19-1 I $D(R(R)) S @("RR"_R)=$TR(R(R),"""","")
14 S Q1="^"_QS_Q_RGL_"(RR1,RR2,RRZ_"" "")",K=@("^"_$S($D(RBIB):QS_QT_RBIB,1:QS_Q_RGL)_"(RR1,RR2_.1,0)") F I="RRD","RRT","RSM","RRV","RRM" S @I=^(I)
16 F I="RVW","RWZ","ROP","RSS","RQ1","RNR" I $D(^(I)) S @I=^(I)
18 I $D(RQ1) D S6^cA250
19 S RMS=$P(K,D,2),FP=1901 W @F,@F1
 ;
2 S R="RRZ\22\3\"_RMS_D_D_$P(RSM,D)_D_D_""",-""[K&$L(K)"_$S($L($P(RSM,D,2)):"!("_$P(RSM,D,2)_")",1:"!$L(K)") D R0 G Y:K="-"!(K=",")
22 I $D(@Q1) S K=$P($T(@("T1"_QT)),U,2) D F1 G 2
24 D ^cA251 X:$D(ROP) ROP G 2:K="-",Y:K=","
 ;
3 S R=Q1,@R=B(1) D S5^cA250:$D(RQ)
32 S K=RRZ
 ;
Y S ^HULP(boot,"PAS",$J+.1)=K,%08=$J+.1 D ^cA339 S K=^HULP(boot,"PAS",$J+.1) K ^($J+.1)
YZ S FP=1901 W @F,@F1 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
ZZ ; 05.02.01 - 16 u 23 * V7.84