KFSPE ;DRUKKEN SPOORETIKETTEN;KFSPE; [ 11/29/2003   1:16 PM ]
 G 1
 ;
T3 ;SPOORETIKETTEN 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
 ;
R3 S R1=$P(R,D,2),R2=$P(R,D,4),R0=$J($P(R,D,1),0,R2),R3=" ",R4="" S:R2 R4=","_$P(R0,".",2),R1=R1-1-R2 S:R0<0 R3="-",R0=-R0
R3A S R0=+$P(R0,".",1) F R5=3,7 S R6=$L(R0) G R3B:R6'>R5 S R0=$E(R0,1,R6-R5)_"."_$E(R0,R6-R5+1,R6)
R3B W ?$P(R,D,3),$J(R0,R1),R4,R3
R3Z K R0,R1,R2,R3,R4,R5,R6 Q  ;V1 26.11.84
 ;
1 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"
 D INIT^vhPRINTER(80) G 9:'$D(Print)
 ;
2 S R=18 D ^KFOLE S FNR=-1
21 S FNR=$N(^HULP($J,"EXTRAS","S",FNR)) G 7:FNR=-1 S KC=$P(^(FNR),D,1),(UR,LN)=0,K=""
23 S UR=$N(@("^"_Q_"FA(US,FNR,UR)")) I UR'=-1 S X=^(UR,3) G 23:'$P(X,D,1) S K=X
25 S:K="" K=@("^"_Q_"KL(^"_Q_"K1(KC),0)") S KN=$P(K,D,2),KN2=$P(K,D,3),KA=$P(K,D,4),KS=$P(K,D,5),KP=$P(K,D,6),KW=$P(K,D,7)
27 S KT=$P(K,D,9),TL=$F("NFDE",KT)-1,K=@("^"_Q_"FA(US,FNR,0,3)"),PAL=$P($P(K,D,21),"#",1),COL=$P($P(K,D,21),"#",2)
29 S KAR=$P($P(K,D,21),"#",3),TOE=PAL+COL+KAR G 21:'TOE
 ;
3 W !!!?V+7,@(Q_"BA(99,1)"),!!?V+7,@(Q_"BA(99,2)"),!?V+7,@(Q_"BA(99,3)"),! S R=(PAL+COL+KAR)_D_7_D_(V+47) D:+R R3
31 W !!!!?V+7,KA W:$L(KA) " " W KN,!?V+7,KN2,!?V+7,KS,!?V+7,KP,"   ",KW,#
33 S TOE=TOE-1 G 3:TOE,21
 ;
7 S R=$P(^cLOG(boot,"DEV",$$DEV^vhPRINTER($I,1)),D,11) S:'R R=66 D ^KFOLE D CLOSE^vhPRINTER
 ;
8 S R="K\22\3\"_$P($T(T3),U,2)_"\"""_$P($T(T4),U,2)_"""\1\\""EH""[K&$L(K)" D R0 G 2:K="H"
 ;
9 K KN,KN2,KA,KS,KP,KW,KT,TL,PAL,COL,KAR,TOE I SW36 F I=1,2,3 K @(Q_"BA(99,I)")
91 I K'=",",$D(SW13),'SW13 X:$D(SW12) @("^"_Q_"OD(0,US,1)"),^("UT"),^("UF") S K=","
 ;
YZ Q
 ;