cA221 ;SELEKTIE PATROON ;%A221 ; [ 01/23/96  4:57 PM ]
 ;
T0 ;Selectie patroon ;
T1 ;Nummer patroon;   [] = vervolg;
T2 ;Patroon ;
 ;
T0F ;Sélection masque ;
T1F ;Numéro de masque;   [] = suite;
T2F ;Masque ;
 ;
T0E ;Selectie patroon ;
T1E ;Nummer patroon;   [] = vervolg;
T2E ;Patroon ;
 ;
1 S RR=$G(R),RL=$P(RR,D,2)\100*100+1,RB=$P(RR,D,3) I '$L(RB) S K="-" G Y
11 S RP=$O(@("^"_Q_"BA(""%A"",1,RB,0)")) I RP="" S K=0 G Y
13 I $O(^(RP))="" S K=RP G Y
 ;
2 S RP=0
21 S FP=RL,RV=0 W @F,@F1
23 S RP=$O(@("^"_Q_"BA(""%A"",1,RB,RP)")) I $L(RP) W @F,$J(RP,4),". ",$G(^(RP)) S FP=FP+100 I FP<2300 G 23
25 I $L(RP),$L($O(^(RP))) S RV=1
 ;
3 S R="K\24\3\"_$P($T(@("T1"_QT)),U,2)_$P($T(@("T1"_QT)),U,4-RV)_"\\2\\K=""-""!(K="","")!(K?.N)" D R0 G Y:K="-"!(K=","),21:K=""&RV,2:K=""
31 I $D(@("^"_Q_"BA(""%A"",1,RB,+K)")) S K=+K G Y
33 S RA=$P($T(@("T2"_QT)),U,2)_K,R=8 D F2 G 3
 ;
Y S FP=RL W @F,@F1 I $L($P(RR,D)) S @$P(RR,D)=K
YZ K RA,RB,RL,RP,RR,RV 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