cI10 ; afdrukken T-LIJNEN en plaatsen in ^TXT in eigen UCI ;%I10;
 ;
1 D ^cRSEL G YZ:$D(^UTILITY($J))\10=0 S PRG=0,T="N",PT=". ",U=";"
11 I $D(F70) X F70 W @F80,!
2 S PRG=$O(^UTILITY($J,PRG)) G YZ:PRG="" S NP=PRG S:$E(NP,1)'="%" NP="%"_NP
3 S K="ZL "_PRG_" S A=$P($T(+1),U,2),^TXT(NP,T,0)=A W !!!,PRG,PT,A,!! F J=1:1 S A=$P($T(@(""T""_J)),U,2,999) Q:'$L(A)  S ^(J)=A W !,$J(J,2),PT,A,""*"""
4 X K G 2
 ;
YZ W # X:$D(F71) F71 Q
 ;
Z X ^cZ Q
ZZ ; 01.03.89 - 11 u 51