cANU31	;Printen etiketten ;%ANU31 ; [ 02/24/00  11:43 AM ]
	;
T0	;Printen etiketten ;
T1	; Printen etiketten ;
T3	;Aantal ex.\"nn[] = aantal exemplaren";
T4	;Overslaan\"[] = geen   nn[] = aantal etiketten op eerste blad die reeds bedrukt zijn";
	;
T0F	;Impression des étiquettes ;
T1F	; Impression des étiquettes ;
T3F	;Nombre\"nn[] = nombre d'exemplaires";
T4F	;Ignorer\"nn[] = nombre d'étiquettes qui ont déjà été imprimées à la première page          [] = aucune";
	;
T0D	;Drucken Etikette ;
T1D	; Drucken Etikette ;
T3D	;Menge ex.\"nn[] = mange Exemplare";
T4D	;Überschlagen\"[] = kein   nn[] = menge schon bedruckte Etikette auf den ersten Seite";
	;
	; Titel + alg.init
1	S SKIP=+$P(R,U,2) I SKIP S UI1=SKIP,SKIP=1
11	D P^cA612(2,1,20,80,1,0,1,1,$P($T(@("T1"_QT)),U,2),0,0,7,1,1)
13	D DMS^cAN000("UQC","USC","ETI") G YZ:UQC=""!(USC=""),YZ:'$D(^DMC(UQC,USC))
15	S UREF=^(USC,"DATA","REF"),USL=D,SW3=1,SW1=0
	;
	; Keuze listing
2	I SW1 L -@UREF S SW1=0
21	I 'SKIP S UI1=$$^cANSYN("ETI") I K="-" G YZ
23	D R^cAN000 M A=B I $P(B(1),D,30)=2 G YZ:SKIP,2
	;
	; Gegevens tonen
3	D DMS^cAN000("UQC","USC","ETI") K UTOP X ^DMC(UQC,USC,"LOGGING","TOP")
31	W /CUP(2,3),/SGR(4),UTOP(1),/SGR(0),/CUP(2,15),": ",UTOP(1.1),@F1
33	I 'SW1 S SW1=1 L +@UREF:2 E  D BUSY^cAFA1 G YZ:SKIP,2
35	W /CUP(4,3),/SGR(4),UTOP(2),/SGR(0),/CUP(4,15),": ",UTOP(2.1)
37	S Q1=$P(B(1),D,2)
	;
	; Selectie + Aantal ex.
4	D ^cAN003(6,Q1) I K="-" G YZ:SKIP,2
41	S ATL=1
43	S R="ATL\22\3\"_$P($T(@("T3"_QT)),U,2)_"\2\\K=""-""!(K="","")!K\\\\\1" D R0 G 4:K="-",2:K=","
45	W /CUP(12,3),/SGR(4),$P($P($T(@("T3"_QT)),U,2),D),/SGR(0),/CUP(12,15),": ",+ATL
	;
	; Aantal reeds bedrukt
5	S ATLB="" I '$P(B(1),D,14) G 6
51	S R="ATLB\22\3\"_$P($T(@("T4"_QT)),U,2)_"\2\\""-,""[K!(K?.N)\\\\\1" D R0 G 43:K="-",2:K=","
53	W /CUP(14,3),/SGR(4),$P($P($T(@("T4"_QT)),U,2),D),/SGR(0),/CUP(14,15),": ",+ATLB
	;
	; Printer
6	S R=6_D_1 D ^cA345 G 2:K="," I K="-" G 51:$P(B(1),D,14),43
61	D ^cANU310 L -@UREF
	;
YZ	D C^cA612 Q
	;
R0	S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
	;
ZZ	; 22.06.04 - 16 u 32 * V8