KFSPD ;DRUKKEN SPOORDOKUMENTEN;KFSPD; Do naar KFSP702, KFSP725 [ 03/22/2001  3:11 PM ]
 G 1
 ;
T3 ;SPOORDOKUMENTEN GOED AFGEDRUKT
T4 ;E[] = einde(ok)   H[] = hernemen
 ;
R0 S R7=1 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,$E("........................................",1,R6),@F,@F0
R0D R K W @F2 I $L(K)'>R6,K'[D&(K'?.E1C.E),@R7 S @$P(R,D,1)=K
R0E E  G R0C
R0F S FP=$P(R,D,9)*100+($P(R,D,10)*1) I FP W @F,$J("",R6),@F,K
R0Z K R,R0,R2,R3,R4,R5,R6,R7 Q  ;V5 02.01.86
 ;
1 D INIT^vhPRINTER(80) G 9:'$D(Print)
11 S:'$D(V) V=0 S SPG=@("^"_Q_"BA(176)")
 I '$D(SW36) N SW36,KBA S SW36=0 F I=1,1.1,2:1:12 S @(Q_"BA(99,I)")=@("^"_Q_"BA(99,I)")
 I '$D(US) N US S US="F"
 ;
2 ;
702 D ^KFSP702 ;DOKUMENT "C702"
725 ;D ^KFSP725 ;DOKUMENT "C725"
 ;
8 S R="K\22\3\"_$P($T(T3),U,2)_"\"""_$P($T(T4),U,2)_"""\1\\""EH""[K&$L(K)" D R0 G 1:K="H"
 ;
9 K KN,KN2,KA,KS,KP,KW,KT,TL,KT1,PAL,COL,KAR,GEW,GEWS,SPG,LVS,KFRC
91 I K'=",",$D(SW13),'SW13 X:$D(SW12) @("^"_Q_"OD(0,US,1)"),^("UT"),^("UF") S K=","
 ;
YZ Q
 ;