KPSBS1 ;STOCKBEHEER (Opzoeken laatste *) ;KPSB ; Quit naar KPSB
 G 1
 ;
1 S (HGS,VNR,SVNR)=0
11 S VNR=$N(@Q1) I VNR'=-1 S:$P($P(^(VNR,0),D,1),U,2)="*" HGS=VNR S SVNR=VNR G 11
13 S LVNR=SVNR I 'HGS K VNR,SVNR G 2
15 I HGS<11 S SLN=14+HGS,SVNR=1 G 2
17 I SVNR-HGS<10 S SLN=15+(9-(SVNR-HGS)),SVNR=HGS-(9-(SVNR-HGS)) G 2
19 S SVNR=HGS,SLN=15
 ;
2 G ^KPSBS
 ;
YZ Q