cI31 ;BEHEER ^%TXT ;%I31 ; [ 02/23/00  8:54 AM ]
 G 1
 ;
1 D QQM^cQ6 W !,$P($T(+1),U,2)
11 D ^cRSEL I '$L($O(^UTILITY($J,""))) G YZ
13 R !!,"TAALKODES   <NF> ",TL S:TL="" TL="NF" G 13:$L(TL)<2,13:TL'?.U
15 S X="ZR  ZI H_"" ;""_P X X1 ZS @H D ^cA338 ZL @H X ^cE D ^cA339 X Y1 ZR  ZS @H"
16 S X1="S T="""" F  S T=$O(^cTXT(P,$E(TL),T)) Q:T=""""  ZI "" ;"" F A=1:1:$L(TL) S B=$E(TL,A),C=$G(^cTXT(P,B,T)) X X2 ZI B_T_"" ;""_C"
 ;S X1="F T=0:1:AT ZI "" ;"" F A=1:1:$L(TL) S B=$E(TL,A),C=$G(^cTXT(P,B,T)) X X2 ZI B_T_"" ;""_C"
17 S X2="I $E(C,$L(C))'=U S C=C_U"
18 S Y1="ZL @H F A=2:1 S C=$T(+A) Q:'$L(C)  S B=$E(C),T=+$P($E(C,2,9),U) I B?1U S ^cTXT(P,B,T)=$P(C,U,2,999) X Y2"
19 S Y2="S C=^(T) I $E(C,$L(C))'=U S ^(T)=^(T)_U"
 ;
2 S P=""
21 S P=$O(^UTILITY($J,P)) G 11:P=""
23 S AT=+$O(^cTXT(P,$E(TL),""),-1),H="Z"_$I X X G 21
 ;
YZ Q
 ;
ZZ ; 13.03.00 - 17 u 31 * V7.3