KTWREF G 1 ;WIJZIGEN REFERENTIE TOELEVERINGEN [ 05/05/99  1:42 PM ]
 ;
S1 S KK=K S:'$L($P(K,"/",2)) K="" S K=$P(K,"/",1) D S2,^KTO4 S $P(B(1),D,10)=K,R=100
S1A S R=$N(A(R)) G S1C:R=-1,S1A:$P(A(R),U,16)'=110
S1B S FP=$P(A(R),U,5)*100+$P(A(R),U,6) W @F,$J("",$P(A(R),U,9)),$J("",$P(A(R),U,13)),@F,K
S1C S K=KK
S1Z Q
 ;
S2 S R=K,K="" F I=1:1:$L(R) I $E(R,I)?.N S K=K_$E(R,I)
S2Z Q
 ;
1 Q:$$ISDIRORD^FLOWTOE(TR)
 S Q15="^(""W    0.0T""_UOD_$J(TR,6,0)_$J((TZ-100),3,0))",TZ=100
3 S X=@("^"_Q_UGL_"(LC,TR,1)"),UOD=$TR($$EXTDATE^vhDTyp($$INTDATE^vhDTyp($P(X,D,2)),"DS"),D,"")
5 S TZ=$N(@("^"_Q_UGL_"(LC,TR,TZ)")) G 9:TZ=-1 S X=^(TZ),PR=$P(X,D,2) G 5:'PR S X=@("^"_Q_"PR(PR,""W    0.0T""_UOD_$J(TR,6,0)_$J((TZ-100),3,0))")
7 S X=$P(X,D,1,2)_D_K_D_$P(X,D,4,99),@Q15=X G 5
9 I $P(U2,U,16)=103 D S1
 ;
YZ K Q15,X,UOD,TZ,PR Q
 Q
Z X ^cZ Q
ZZ ; 24.05.91 - 16 u 20