cI551 ;UITKUISEN  TL - PR(,'L' ;%I551; [ 09/21/94  11:35 AM ]
 ;AFGELEID VAN %I550
 G 1
 ;
 ; verwijderen link
S1 K @("^"_Q_"TL(KC,US,UR,PR,VNR)") I $O(^(0))="" K ^(0)
S1A S $P(@("^"_Q_"TOL(KC,US,UR,UZ)"),D,27)=""
S1Z Q
 ;
1 S KC=0,US="F"
11 F  S KC=$O(@("^"_Q_"TOL(KC)")) Q:'$L(KC)  S UR="" D
 . F  S UR=$O(@("^"_Q_"TOL(KC,US,UR)")) Q:'$L(UR)  S UZ=100,FP=2403 W @F,KC,"  ",UR,@F2 D
 .. F  S UZ=$O(@("^"_Q_"TOL(KC,US,UR,UZ)")) Q:'$L(UZ)  S X=^(UZ) I $P(X,D,2) D
 ... S PR=$P(X,D,2),VNR=$P(X,D,27) Q:'VNR
 ... S IL=$G(@("^"_Q_"TL(KC,US,UR,PR,VNR)")) I '$L(IL) D S1A Q
 ... I '$D(@("^"_Q_"PR(PR,IL)")) D S1
 ;
YZ Q
 ;
Z X ^cZ Q
ZZ ; 21.09.94 - 11 u 43 * V5.5