KFPORT G 33 ; MODULE INDIKATOE PORT;KFPORT; [ 11/10/2000  3:49 PM ]
 ;
33 S UPT=$P($P($$CALC^PORT(UR),D),"#",2)
47 D S0
 ;
YZ K KL,PB,PL,PM,PP,PPAR,U2,ULV,UMC,UN,UPAR,UPT,X Q
 ;
S0 S UZ=@("^"_Q_UGL_"(KC,US,UR,0)"),UZ=100
S0A S UZ=$N(^(UZ)) I UZ'=-1 S U2=^(UZ) G S0A:'$L($P(U2,D,2)) S ^(UZ)=$P(U2,D,1,23)_D_UPT_D_$P(U2,D,25,99) G S0A
S0Z Q
 ;