KPGETPR2 ;HAAL PRODUKTEN IN VOLGORDE ;(VOLGENS KLASSIFIKATIE);KPGETPR2; [ 11/19/93  3:01 PM ]
 G 1
 ;
 ;Initialisatie
1 S Q0="^"_Q_"PR(PR,0)",Q1="^"_Q_"PH(HG)",Q2="^"_Q_"PH(HG,GRS)",Q3="^"_Q_"PH(HG,GRS,SGS)",Q4="^"_Q_"PH(HG,GRS,SGS,MK,PRCS)"
11 S (SWP,SWS)=0
 ;
 ;Ophalen produkten
2 I HG'=0 S X=$D(@Q1) G 22:X
21 S HG=$N(@Q1) I HG=-1!(HG]HGX) G YZ
22 D:$D(PHOOFD) @PHOOFD S GRS=GR I GR'=0 S X=$D(@Q2) G 24:X
23 S GRS=$N(@Q2) I GRS=-1!(GRS]GRX) W:$D(PHOOFD) # G 21
24 S SGS=SG I SG'=0 S X=$D(@Q3) G 26:X
25 S SGS=$N(@Q3) I SGS=-1!(SGS]SGX) G 23
26 S PRCS=PRC I PRC'=0 S X=$D(@Q4) G 28:X
27 S PRCS=$N(@Q4) I PRCS=-1!(PRCS]PRCX) G 25:'SWP!SWS,25:'$D(PLINE) D @PLINE S SWP=0,SWS=1,LN=LN+1 G 25
28 S PR=+^(PRCS) D ^KPCHKPR G 27:'OK D @("^"_PROGRAM) G 27
 ;
YZ Q
 ;
 Q
Z X ^cZ Q
ZZ ; 06.05.91 - 14 u 19