KPFI4 G 1 ;PRODUKTENFICHE;(VOLGENS PRODUKTNAAM);KPFI1;Do van KPFI8 - Quit naar KPFI3 [ 04/24/2003  10:28 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_"PR1(PRC)"
23 I PRC'=0 S X=$D(@Q1) G 100:X
25 S PRC=$N(@Q1) I PRC=-1!(PRC]PRCX) G 160
100 S PR=+^(PRC) D ^KPCHKPR G 25:'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 25
 ;
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