cA255 ;OPENEN KODES - OP 22-STE LIJN ;%A255; [ 02/05/96  9:33 AM ]
 ;AUTOMATISCH VOLGNUMMER IN RNR
 G 1
 ;
T0 ;Openen codes - op 22' lijn ;
T1 ;Bestand in gebruik;
 ;
T0F ;Création codes - à la 22-me ligne;
T1F ;Fichier en usage;
 ;
T0E ;Openen codes - op 22' lijn ;
T1E ;Bestand in gebruik;
 ;
1 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)
12 F I="RVW","RWZ","ROP","RSS","RQ1","RNR" I $D(^(I)) S @I=^(I)
14 I $D(RQ1) D S6^cA250
16 S RMS=$P(K,D,2)
 ;
2 L +@("^"_QS_Q_RGL_"(RR1,RR2_.1,""RNR"")"):2 E  D F1 G 2
22 S RRZ=1 I $D(RNR) S RRZ=RNR
24 I $D(@Q1) S RRZ=RRZ+1 G 22
26 S @("^"_QS_Q_RGL_"(RR1,RR2_.1,""RNR"")")=RRZ+1 L -@("^"_QS_Q_RGL_"(RR1,RR2_.1,""RNR"")")
28 D ^cA251 X:$D(ROP) ROP G YZ:K="-",YZ:K=","
 ;
3 S R=Q1,@R=B(1) D:$D(RDP) @("CO^"_RDP) D S5^cA250:$D(RQ)
 ;
YZ S FP=$P(RRD,D,2)+1*100 W @F,@F1 Q
 ;
F1 S K=$P($T(@("T1"_QT)),U,2) G FZ
FZ D TXT^cAFA1(250) Q
 ;
Z X ^cZ
ZZ ; 05.02.01 - 16 u 23 * V7.84