cI32 ;TESTEN ^%TXT ;%I32 ; [ 02/21/00  5:42 PM ]
 G 1
 ;
S4 S S1=^(S4),S3=+$G(^HULP(boot,$J+(100/10000),B,S2,S4)) I S1'=S3 S ^HULP(boot,$J,P,B,S2)=S3_" """_$C(S4)_""" TOV "_$E(TL)_" "_S1
S4Z Q
 ;
S3 I AT(B)'=AT($E(TL)) S ^HULP(boot,$J,P,B)=AT(B)_" VERSCHILLEND VAN "_$E(TL)_" = "_AT($E(TL))
S3A S (S2,S4)=""
S3B S S2=$O(^HULP(boot,$J+(100/10000),$E(TL),S2)) G S3Z:S2=""
S3C S S4=$O(^HULP(boot,$J+(100/10000),$E(TL),S2,S4)) G S3B:S4="" D S4 G S3C
S3Z K S1,S2,S3,S4 Q
 ;
S2 I '$D(^cTXT(P,B,S2)) ; S ^HULP(boot,$J,P,B,S2)="NIET TERUGGEVONDEN" G S2Z
S2A S S3=$G(^(S2)) F S4=33:1:38,44,47,58:1:64,91:1:96,123:1:126 S ^HULP(boot,$J+(100/10000),B,S2,S4)=$L(S3,$C(S4))-1
S2Z K S3,S4 Q
 ;
S1 I '$D(^cTXT(P,B,0)) S ^HULP(boot,$J,P,B,0)="BESTAAT NIET IN ^cTXT"
S1A S S1=$O(^cTXT(P,B,99),-1),AT(B)=+S1
S1B F S2=1:1:S1 D S2
S1Z K S1,S2 Q
 ;
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
 ;
2 S P="" K ^HULP(boot,$J) W !!
21 S P=$O(^UTILITY($J,P)) G 3:P=""  W P,$J("",9-$L(P)) I $X>70 W !
23 K AT,^HULP(boot,$J+(100/10000)) F A=1:1:$L(TL) S B=$E(TL,A) D S1
25 F A=1:1:$L(TL) S B=$E(TL,A) D S3
27 K ^HULP(boot,$J+(100/10000)) G 21
 ;
3 I $D(^HULP(boot,$J)) W !!,"ZIE FOUTMELDINGEN IN ^HULP(",boot,",",$J,$C(7),!
31 E  W !!,"ALLES OK",$C(7),!
 ;
YZ Q
 ;
ZZ ; 13.03.00 - 17 u 31 * V7.3