cTU16 ;OVERZICHT ETIKETTEN ;%TU16 ; [ 04/11/96  9:21 AM ]
 G 1
 ;
T1 ;VANAF ETIKET\"-[] = einde programma   .[] = vanaf het begin   [] = specifiek etiket";
T2 ;TOT ETIKET\"I[] = idem als vorige   .[] = tot het einde   [] = specifiek etiket";
T3 ;PLAATS BLANCO PAPIER OP DE PRINTER EN SCHAKEL HEM AAN\"[] = ok   ,[] = hernemen   .[] = later drukken";
T4 ;VANAF HET BEGIN;TOT HET EINDE;
T5 ;HET ETIKET;
T6 ;BLZ :;
 ;
1 B 1 S U=";",NM2=@("^"_Q_"BA(99,2)"),NM3=^(3),BLZ=0
11 I 'QP S I1=PP(1),I1X=PP(2) G 29
12 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
19 F K=1,2 S FP=K*200+717 W @F,@F9,":",@F2 S FP=FP-15 W @F,@F6,$P($P($T(@("T"_K)),U,2),D,1),@F9
 ;
2 S R="K\22\3\"_$P($T(T1),U,2)_"\1\\"".-""[K" D R0 G YZ:K="-"
21 I K="." S K=$P($T(T4),U,2),I1=1
22 E  S R="I1\2000\"_$P($T(T5),U,2)_"\LIE\LIE1" D ^cA101 G 2:K="-" S K=$P(^(K,0),D,2)
23 S FP=920 W @F,K,@F2
24 S R="K\22\3\"_$P($T(T2),U,2)_"\1\\"".-""[K!(K=""I""&'I1)\\\1" D R0 G 2:K="-"
25 I K="." S K=$P($T(T4),U,3),I1X="~" G 27
26 S I1X=I1,R="I1X\2000\"_$P($T(T5),U,2)_"\LIE\LIE1" D:K'="I" ^cA101 G 24:K="-",26:I1]I1X S K=$P(@("^"_Q_"LIE(I1X,0)"),D,2)
27 S PP(1)=I1,PP(2)=I1X,FP=1120 W @F,K,@F2
28 S R="K\22\3\"_$P($T(T3),U,2)_"\1\\""-,.""[K" D R0 G 24:K="-",19:K="," I K="." D R9 G 19
29 X F70 W @F80 D 8 G 31:$D(@("^"_Q_"LIE(I1)"))
 ;
3 S I1=$O(@("^"_Q_"LIE(I1)")) I I1=""!(I1]I1X) W # G YZ
31 S N1=^(I1,0),OM=$P(@("^"_Q_"LI($P(N1,D,3),0)"),D,1),K=@("^"_Q_"LIE(I1,0)"),I2=100,MAX=$P(K,D,10)*11\28,A3=$P(K,D,9)*6\25
33 S MAX=MAX+3,L=L+5+A3 I L>53 W # D 8 S L=5+A3
34 S S1="",I2=100 D 85 W !,": ",$E($P(N1,D,1)_" "_$P(N1,D,2),1,MAX-3),?MAX,":"
35 W !,": Param.: ",$TR($P(K,D,8,99),D," "),?MAX,":",!,": ",$J($E(OM,1,MAX-3),MAX-3)," :" D 85
 ;
4 S X2=I2,I2=$O(^(I2)) I I2="" W !,": ",$E(S1,1,MAX-3),?MAX,":" G 5
41 I I2\100'=(X2\100) W !,": ",$E(S1,1,MAX-3),?MAX,":" S S1="",A3=A3-1 G 5:'A3
42 S K=^(I2),S2=$P(K,U,2),S2=S2_$J("",+K-$L(S2)+1),S1=S1_S2 G 4
 ;
5 S A3=A3-1 W:A3>0 !,":",?MAX,":" G 5:A3>1 D 85 W ! G 3
 ;
8 S L=0,BLZ=BLZ+1 W !,QN,?72,$P($T(T6),U,2),$J(BLZ,3),!,NM2,?30,@F82,$P($T(+1),U,2),@F83,*13,?72,DT,!,NM3,?73,TD,! Q
85 W !,":" F I=2:1:MAX W "-"
86 W ":" Q
 ;
YZ X F71 Q
 ;
R0 S R0=$P(R,D,5) I $L(R0),R0'["""" S $P(R,D,5)=R0_"^"_$T(+0)
R0A S R0=$P(R,D,7) I $L(R0),R0'="DCTR" S $P(R,D,7)="",R1=$P(R,D,8),R0=$P($T(@R0),U,2,99) S:$L(R1) R0=R0_"&("_R1_")" S $P(R,D,8)=R0
R0Z S $P(R,D,12)=$T(+0) K R0,R1 D ^cA100 Q  ; v11 30.05.94
 ;
R9 S R1=$T(+0) I $D(QPT) F R0=1,2 I $L($P(QPT,"#",R0)) S $P(R1,"#",R0)=$P(QPT,"#",R0)
R9A F R0=1:1 Q:'$D(PP(R0))  S R1=R1_D_PP(R0)
R9B S @%Q1=0,R2="^"_Q_"PP($I,0)" L @R2 S R0=$G(@R2,1),^(0)=R0+1,^(R0)=R1,^(R0,1)=1_D_D_QT_D_$G(ISO)_D,@%Q1=1
R9Z K R0,R1,R2 L  Q  ;V6 08.09.95
 ;
Z X ^cZ Q
ZZ ; 14.01.99 - 21 u 28 * V5.7