KPFI5 G 1 ;PRODUKTENFICHE;(VOLGENS KLASSIFIKATIE);KPFI1;Do van KPFI8 - Quit naar KPFI3 [ 04/24/2003  10:27 AM ]
 ;
1 S I=100 G 19:$N(B(I))=-1 S BLZ=0 D HD,^KPSELS
19 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)"
23 I HG'=0 S X=$D(@Q1) G 27:X
25 S HG=$N(@Q1) I HG=-1!(HG]HGX) G 160
27 S GRS=GR I GR'=0 S X=$D(@Q2) G 31:X
29 S GRS=$N(@Q2) I GRS=-1!(GRS]GRX) G 25
31 S SGS=SG I SG'=0 S X=$D(@Q3) G 35:X
33 S SGS=$N(@Q3) I SGS=-1!(SGS]SGX) G 29
35 S PRCS=PRC I PRC'=0 S X=$D(@Q4) G 100:X
37 S PRCS=$N(@Q4) I PRCS=-1!(PRCS]PRCX) G 33
100 S PR=+^(PRCS) D ^KPCHKPR G 37:'OK
101 F I=0:1:16 S B(I+1)=A(I)
102 F I="I","J" S B(I)=A(I)
112 D ^KPFI8
116 F I=0:1:16 K B(I+1)
118 F I="I","J" K B(I)
119 G 37
 ;
160 K A,B,C
 ;
YZ Q
 ;
HD S (BLZ,Print("BLZ"))=BLZ+1,(LN,Print("LIJN"))=0,Print("LMARG")=3
 D FTITEL^OUTPUT2(73,TIT)
 W !!
 Q
 ;
 Q
Z X ^cZ Q
ZZ ; 28.04.88 - 15 u 18