KPFI11 G 1 ;PRODUKTENFICHE ;KPFI11;Do naar KPFI8 [ 11/29/2003   1:16 PM ]
 ;
 ;    initialisatie + vraag
1 S BLZ=0,TIT="PRODUKTENFICHE",Q10="^"_Q_"PR(0,0)"
 ;
2 S I=@Q10,I=100,SW3=10
21 S I=$N(^(I)) I I?.N&(I'=-1)&(I'>2000) D  G 21
 .I SCR'=5,I>1200 Q
 .S U2=^(I)
 .Q:U2=""
 .I $P(U2,U,16)\100>SW3 S SW3=$P(U2,U,16)\100
 .S C(I\100,$P(U2,U,2),$P(U2,U,3))=$P(U2,U,1)_U_$P(U2,U,6)_U_$P(U2,U,8)_U_$P(U2,U,16)_U_$P(U2,U,23)
23 S I=""
25 S K=1,I=$N(C(I)) G 3:I=-1 S I2=0
27 S I2=$N(C(I,I2)) I I2=-1 S C(I)=K G 25
29 S:$N(C(I,I2))'=-1 K=K+($N(C(I,I2))-I2) G 27
 ;
3 S DUP=""
31 D INIT^vhPRINTER("S;B") G YZ:'$D(Print)
33 D ^KPCHKPR
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
35 S R=$P(^cLOG(boot,"DEV",$$DEV^vhPRINTER($I,1)),D,11) S:'R R=66 D ^KFOLE
37 D CLOSE^vhPRINTER
 ;
YZ K @("^"_Q_"PSEL($J)") Q
 ;