KOFKD1 ;AFDRUKKEN OFFERTES ;KOFKD1; [ 11/29/2003   1:16 PM ]
 G 1
 ;
S2 S Y=$P(B(I),D,1),J=$P(">\'<\=\<\'>\'=",D,$P(B(I),D,2)) G S2C:$L(J)
S2A S OK=1 F J=1:1:$L(Y) I $E(Y,J)'="#" S OK=$E(X,J-1+$P($P(B(I),D,3),",",1))=$E(Y,J) Q:'OK
S2B G S2Z
S2C I (X'?.N)!(Y'?.N) S OK=J_"Y" S:J="<" OK="']Y&(X'=Y)" S:J=">" OK="]Y&(X'=Y)" S:J="'>" OK="']Y!(X=Y)" S:J="'<" OK="]Y!(X=Y)" S OK="S OK=X"_OK X OK
S2D E  S OK="S OK=X"_J_"Y" X OK
S2Z Q
 ;
1 S K=$P($T(+1),U,2)_QN_" ",FP=203+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5
11 S NVG=0,KSEL=1 D KP^KSEL G YZ:K="-"
13 D INIT^vhPRINTER(80) G 11:'$D(Print)
15 I NVG S KLX=NVG
 ;
2 S R=51 D ^KFOLE
21 S I=100 I $N(B(I))'=-1 D ^KSELO
25 I KL'=0 S X=$D(@Q0) G 29:X
27 S KL=$N(@Q0) G Y:KL=-1 I KL'?.N G Y:KL]KLX
29 S K=KL S:K?.N K=^(K) S KC=$P(K," ",2) G 27:'$D(@("^"_Q_"OFKL(KC)")) S A(0)=@("^"_Q_"KL(K,0)") F I=1:1:SW3-1 S A(I)=^(I)
 ;
3 S I=100
31 S I=$N(B(I)) G 4:I=-1 S X=$P(A(I\100-1),D,I#100) D S2 G 27:'OK,31
 ;
4 D ^KOFKD2 G 27
 ;
Y S R=$P(^cLOG(boot,"DEV",$$DEV^vhPRINTER($I,1)),D,11) S:'R R=66 D ^KFOLE D CLOSE^vhPRINTER
YZ K @("^"_Q_"SEL($J)") Q
 ;