cTU32 ;DRUKKEN ETIKETTEN ;%TU15;Go uit %TU15 [ 04/11/96  9:22 AM ]
 ;
1 S I1X=PP(4),AE=0,I1=0,K1=0,AEP=0 X F70 I LASER D ^cAL320
 E  W @F80
 ;
15 K ^HULP($J)
16 F X=1:1:EAR-1 S AE=AE+1 D 6:AE>A1 F Y=1:1:A3 S ^HULP($J,Y,AE)=""
17 I PP(3)'=0 S (I1,K1,K)=PP(3) X $P(SN,U,2):$L($P(SN,U,2)) S I1=K G 25
 ;
2 I NR S K1=$O(@("^"_Q_"LIH(NR,K1)")) G Y:K1="" S I1=^(K1) S:Q1="PR" PR=I1 G 25
21 I $L($P(SN,U,3)) X $P(SN,U,3) G Y:I1=-1!(Y1=""),25
23 S I1=$O(@("^"_Q_Q1_"(I1)")) G Y:I1=""!(I1]I1X)
25 G 2:'$D(@("^"_Q_Q1_"(I1,0)")) S K="",OE=EA
 ;
3 S K=$O(^(K)) I K<99&(K?1N.N) S B(K+1)=^(K) G 3
31 S:PP(5) $P(^(13),D,4,6)=PP(5)_D_PP(6)_D_PP(7)
33 S (I2,J)=0,AL=0,AE=AE+1 I AE>A1 D 6
 ;
4 S I2=$O(@("^"_Q_"LIE(J2,I2)")) I I2="" G 33:$D(SWKL)!$D(SWLE) S (K5,K9)="",OE=OE-1 G 33:OE,2
41 S I=^(I2) I I2\100'=J S J=I2\100,AL=AL+1,^HULP($J,AL,AE)=""
43 S U3="",R=$P(I,U,6)
45 I $L(R) X $P(I,U,7) G 5:J1="" S S1=$P(I,U,4),K=D S:$D(@("^"_Q_R_"(J1,S1\100-1)")) K=^(S1\100-1) D S3 S (U3,K)=S1 G 5
47 S J1=I1,S1=$P(I,U,4),K=D S:$D(B(S1\100)) K=B(S1\100) D S3 S (U3,K)=S1
 ;
5 I $L($P(I,U,3)) S K=U3,U3="S U3="_$P(I,U,3) X U3
51 S U3=$E(U3,1,I) S:$L(U3) U3=U3_" " S:I?.N4";" U3=U3_$J("",I+1-$L(U3)) S ^(AE)=^HULP($J,AL,AE)_U3 G 4
 ;
6 F K=1:1:A3-LASER W !,?A4 I $D(^HULP($J,K,1)) F I=1:1:A1 I $D(^(I)) S J=$E(^(I),1,A2-1) W J,$J("",A2-$L(J))
 S AEP=AEP+2 I LASER,AEP<AEPMAX W *27,"&l",AEPB,"D",!,*27,"&l6D",!    ; <Aantal etiketten boven elkaar> lines/inch,<lf>,6 lines/inch,<lf>
 I AEP=AEPMAX W # S AEP=0
69 K ^HULP($J) S AE=1 Q
 ;
Y D 6 I AEP W #
YZ X F71 Q
 ;
S3 I S1 S S1=$P(K,D,S1#100) Q
S3Z S U3="" X S1 S S1=U3 Q
 ;
ZZ ; 14.01.99 - 21 u 28 * V5.7