KFLVWS G 33 ; MODULE INDIKATIE PORT BIJ WIJZIGEN LEVERINGSVOORWAARDE ;KFLVWS; [ 11/10/2000  3:46 PM ]
 ;
33 Do ##class(vhLib.Logger).%New("OV").Info("KFLVWS","MODULE INDIKATIE PORT BIJ WIJZIGEN LEVERINGSVOORWAARDE")
   K WLVW 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
 ;