cI55 ;KONTROLE 'TO' MET 'T'-LIJNEN ; [ 01/26/95   6:07 PM ]
 ;
1 K ^HULP(boot,$J) S US="F",UGL="TO",KC=0
11 S KC=$O(@("^"_Q_UGL_"(KC)")) G YZ:'$L(KC) W !,KC S UR=""
13 S UR=$O(@("^"_Q_UGL_"(KC,US,UR)")) G 11:'$L(UR) S U5=^(UR,1),DAT=$P(U5,D,2),UZ=100
15 S UZ=$O(@("^"_Q_UGL_"(KC,US,UR,UZ)")) G 13:'$L(UZ) S B(1)=^(UZ),PR=$P(B(1),D,2) G 15:'PR
17 S X="T"_$S($E(DAT,7,8)>50:19,1:20)_$E(DAT,7,8)_$E(DAT,4,5)_$E(DAT,1,2)_$J(UR,6)_$J(UZ-100,3)
19 G 15:$D(@("^"_Q_"PR(PR,X)")) S ^HULP(boot,$J,KC,UR,UZ)=PR G 15
 ;
YZ Q
 ;
S1 S ^(X)=$P(U5,D,2)_D_KC_D_$P(U5,D,4)_D_$P(B(1),D,3)_D_$P(B(1),D,3)_D_$P(B(1),D,25)_D_$P(U5,D,3)_D_$P(B(1),D,36)
S1Z Q