KPFI3 G 1 ;PRODUKTENFICHE ;KPFI1;Quit naar KPFI1 - Do naar KPFI4 [ 11/29/2003   1:16 PM ]
 ;
 ;    initialisatie + vraag
1 S DOC=$P($T(+1),";",2),LSTX="KLPB"
11 S SELK=1 D PP^KPSEL G YZ:K="-"
 S SW3=10
 ;
2 S I=@Q10,I=100
21 S I=$N(^(I)) I I?.N&(I'=-1)&(I'>2000) D  G 21
 .S U2=^(I)
 .Q:U2=""
 .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 @("^KPFI"_($F("PKLB",LST)+2))
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
 ;
R0 S R7="K'[D&(K'?.E1C.E)" S:$P(R,D,8)'="" R7=R7_","_$P(R,D,8) S:$P(R,D,7)'="" R7=R7_","_$P($T(@$P(R,D,7))," ",2,99)
R0A S R2=$P(R,D,2),R3=$P(R,D,3),R4=$P(R,D,4),R5=$P(R,D,5),R6=$P(R,D,6)
R0B S R0=$L(R4)+R3+3 S FP=R2*100+R3+F60 W @F W:R3<4 @F1 W @F2,R4," : " I R5'="" W:R5["""" !,?2,@R5 D:R5'["""" @R5
R0C S FP=R2*100+R0+F60 W @F,@F2 W $E("........................................",1,R6),@F,@F0
R0D R K S:$P(R,D,7)="DCTR" RD=$P(K,".",1),RM=$P(K,".",2),RJ=$P(K,".",3) W @F2 I $L(K)'>R6,@R7 S @$P(R,D,1)=K G R0F
R0E G R0C
R0F S FP=$P(R,D,9)*100+($P(R,D,10)*1) I FP W @F,$E("                                        ",1,R6),@F,K
R0Z K R,R0,R2,R3,R4,R5,R6,R7,RD,RM,RJ Q
 ;
Z X ^cZ Q
ZZ ; 07.11.88 - 12 u 46