KPSBP ;STOCKBEHEER (Specifief product) ;KPSB ; Quit naar KPSBP [ 05/31/2001  3:50 PM ]
 G 1
 ;
T4 ;Dit is een moeder met "Stockbeweging over kinderen"
 ;
1 S LC=LCX,SCHTYP="P",FP=1401 W @F,@F1
15 D STORE^vhTERMINA()
 S K=$$SELECT^PRODUKT6("L",LC)
 D REFRESH^vhTERMINA()
 I 'K S:$D(@Q3) K=COMM G YZ
 ;
2 S PR=K
 G 15:'$$IsCommAkt^PRODUKT2(PR,,,0)
 I $P(@("^"_Q_"PR(PR,0)"),D,23)="S" S FP=2211 W @F,@F1,$P(^(0),D) S K=$P($T(T4),U,2) X ^cTXT(0,"N",250) R K G 15
 I '$D(@("^"_Q_"PR(PR,""J""_LC)")) G 15:$E($N(^("J")),1)'="J" S LC=$P(^($N(^("J"))),D,1),FP=2401 W @F,@F1 G 3
21 G 3 ;:'$D(@Q0) S (HGS,VNR,SVNR)=$P(^(PR),D,2),SLN=15,I=$D(@Q1)
23 I HGS<11 S SLN=14+HGS,SVNR=1 G 3
25 I '$D(^(HGS+10)) S SLN=15+(9-(LVNR-HGS)),SVNR=HGS-(9-(LVNR-HGS))
 ;
3 S (WVKS,WVKK)="" K ^HULP($J+100) D ^KPSB2,^KPSBW
 ;
YZ Q
 ;
Z X ^cZ Q
ZZ ; 19.04.91 -  8 u 13