KPSBP1 ;STOCKBEHEER (Opzoeken bepaald produkt) ;KPSB ; Quit naar KPSB
 G 1
 ;
1 G YZ:'$D(@Q0) S (HGS,VNR,SVNR)=$P(^(PR),D,2),SLN=15,I=$D(@Q1)
11 I HGS<11 S SLN=14+HGS,SVNR=1 G YZ
13 G YZ:$D(^(HGS+10)) F I=HGS+9:-1:HGS Q:$D(^(I))
15 S SLN=15+(9-(I-HGS)),SVNR=HGS-(9-(I-HGS))
 ;
YZ Q
 ;
Z X ^cZ Q
ZZ ; 02.04.91 - 11 u 40