cANU310	;Printen etiketten ;%ANU31 ; [ 10/15/01  2:53 PM ]
	G 1
	;
T0	;Printen etiketten ;
	;
T0F	;Impression d' étiquettes ;
	;
T0E	;Printen etiketten ;
	;
	; data lezen van schijf
R(R)	K B
RA	S S1=UDD(R)
RB	I S1<5 D
	. S B(1)=@UREF(R)@(0) F S2=2:1:SW3(R) S B(S2)=$G(^(S2-1),USL)
RC	I S1=5 D
	. S B(1)=@UREF(R)
RZ	K S1,S2 Q
	;
	; Bepalen K adhv U2
S1	S SWA=0,K="" K B M B=A
S1A	S U7=U2(16) I U7>100 S K=$P($G(B(U7\100)),D,U7#100)
S1B	I $L(U2(17)) X U2(17)
S1C	I $L(U2(18)),$L(K) S OK=0 D  I OK G S1A
	. N UI1 S UDD=UDD(U2(18)),UI1=K,K="" I UDD<3 D
	.. I UDD=1 S UI1=$G(@Q2(U2(18))@(UI1))
	.. I UDD=2 S UI1=$P(UI1," ")_" "
	. I $L(UI1),$D(@UREF(U2(18))) D R(U2(18)) S OK=1
	. S SWA=SWA+1,U2(1)=$G(U2("LINK",SWA,1))
	. F I=8,13,16:1:18 S U2(I)=$G(U2("LINK",SWA,I))
S1Z	Q
	;
	; Correctie Merge
S2	F I=1,8,13,16:1:18 S U2(I)=$G(U2(I))
S2Z	Q
	;
	; Printen
S3	I 'EPB F I=1:1:$P(E(1),D,13) W ! S LN=LN+1             ; bovenmarge
S3A	F I=1:1:$P(E(1),D,6) W:$P(E(1),D,8)=4 @F82 W TXT(I),! S LN=LN+1
S3B	S EPB=EPB+1 I EPB<$P(E(1),D,14)!'$P(E(1),D,14) D       ; onderl.afst.
	. F I=1:1:$P(E(1),D,15) W ! S LN=LN+1
S3C	I EPB=$P(E(1),D,14) W $$FF^cA334 S (EPB,LN)=0                   ; nieuw blad
S3D	F I=1:1:$P(E(1),D,6) S TXT(I)=$J("",$P(E(1),D,3))      ; linkermarge
S3Z	S EPL=0 Q
	;
	; Initialisatie
1	K ^HULP(boot,$J+(100/10000)) X F70 W @F80 D  W $$CR^cA334
	. I $P(B(1),D,8)=1 W @F84
	. I $P(B(1),D,8)=2 W @F81
	. I $P(B(1),D,8)=3 W @F85
	. I $P(B(1),D,8)=4 W @F82
11	S LN=0
19	S ETIREF=$NA(@UREF,$L(UREF,",")),ETIUI1=UI1 M E=B
	;
	; Initialisatie ivm hoofdbestand
2	D DMS^cAN000("UQC","USC",Q1) G YZ:UQC=""!(USC=""),YZ:'$D(^DMC(UQC,USC))
21	S UDD(Q1)=^(USC,"DATA"),UREF(Q1)=^("DATA","REF")
23	S UXX="" I '$D(^DMS(Q,Q1,0)),'$D(^DMS(0,Q1,0)) G YZ    ; VJ 15.10.01
	S UQA=$P(^(0),D,3) I UQA="" S UQA=0
	S USA=$P(^(0),D,4) I USA="" S USA=Q1
	S UXX=$G(^DMA(UQA,USA,0,6))   ; beveiliging v/h raadplegen
	;
	; Gekoppelde bestanden
3	S UZA=0
31	S UZA=UZA+1,UZB=0 I '$D(@ETIREF@(UZA)) G 39
32	S UZB=UZB+1 I '$D(@ETIREF@(UZA,UZB)) G 31
33	K U2 M U2=^(UZB) S SWA=0
35	D S2 I $L(U2(18)) S X=U2(18),OK=0 D  G 35:OK,YZ
	. S I=$G(^DMS(Q,X),$G(^DMS(0,X))),UQC=$P(I,D),USC=$P(I,D,2)
	. Q:UQC=""!(USC="")  Q:'$D(^DMC(UQC,USC))
	. S UDD(X)=^(USC,"DATA"),UREF(X)=^("DATA","REF")
	. I UDD(X)=1 S Q2(X)=^("OUD")
	. S SWA=SWA+1 K I M I=U2("LINK",SWA),U2=I S OK=1
37	G 32
	; Aantal nodes per bestand
39	S X="" F  S X=$O(UDD(X)) Q:X=""  S SW3(X)=1 D
	. S I=$G(^DMS(Q,X,0),$G(^DMS(0,X,0))),UQA=$P(I,D,3),USA=$P(I,D,4)
	. I $L(UQA),$L(USA) F I=1:1 Q:'$D(^DMA(UQA,USA,I))  D
	.. S J="" F  S J=$O(^DMA(UQA,USA,I,J)) Q:J=""  D
	... S U7=$G(^(J,16)) I U7\100>SW3(X) S SW3(X)=U7\100
	;
	; Aflopen data volgens gemaakte selectie
4	S UI1="",USL=D,UFU="U"
41	S $ZT="TRAP^cAN000"
43	D ^cAN004("UI1",Q1) I UI1="" G 7
45	D R(Q1) M A=B I $P(B(1),D,30)=2 G 43
	I $L($P(UXX,D,3)) S OK=0 X $P(UXX,D,3) I 'OK G 43      ; VJ 15.10.01
	;
	; Lijn per lijn
5	S UZA=0,LN=LN+1
51	S UZA=UZA+1,UZB=0,TXT="" I '$D(@ETIREF@(UZA)) G 43
53	S UZB=UZB+1 I '$D(@ETIREF@(UZA,UZB)) S ^HULP(boot,$j+(100/10000),LN,UZA)=TXT G 51
55	K U2 S U2(1)=$G(^(UZB,1)) F I=8,13,16:1:18 S U2(I)=$G(^(I))
57	I $D(^("LINK")) F SWA=1:1 Q:'$D(@ETIREF@(UZA,UZB,"LINK",SWA))  D
	. S U2("LINK",SWA,1)=$G(^(SWA,1))
	. F I=8,13,16:1:18 S U2("LINK",SWA,I)=$G(^(I))
59	D S1
	;
	; Opzetten rubriek
6	S U3=K I $L(U2(8)) K REFRESH X U2(8)
61	S:$L(TXT)&$L(U3) TXT=TXT_" " S TXT=TXT_$E(U3,1,U2(13))
63	G 53
	;
	; Printen
7	S (E,EPB,LN)=0
71	I ATLB'<$P(E(1),D,4) D  G 71                           ; overslaan
	. F I=1:1:$P(E(1),D,6) S TXT(I)=""
	. S ATLB=ATLB-$P(E(1),D,4) D S3
73	F I=1:1:$P(E(1),D,6) S TXT(I)=$J("",$P(E(1),D,3))      ; linkermarge
75	S EPL=0 I ATLB D  S ATLB=0
	. F I=1:1:ATLB S EPL=EPL+1 F J=1:1:$P(E(1),D,6) D
	.. S TXT(J)=TXT(J)_$J("",$P(E(1),D,7)+$P(E(1),D,5))
	;
	; Klaargestelde etiketten
8	S A=ATL,E=$O(^HULP(boot,$J+(100/10000),E)) I E="" D S3:EPL G 9
81	K B M B=^(E)
83	S EPL=EPL+1,A=A-1 
85	F I=1:1:$P(E(1),D,6) S TXT(I)=TXT(I)_$E($G(B(I))_$J("",$P(E(1),D,7)),1,$P(E(1),D,7)) I EPL<$P(E(1),D,4) S TXT(I)=TXT(I)_$J("",$P(E(1),D,5))
87	I EPL=$P(E(1),D,4) D S3
89	G 83:A,8
	;
9	W:LN&$P(E(1),D,14) $$FF^cA334 W @F83 X F71 K ^HULP(boot,$J+(100/10000))
91	N EXTWIJZ S EXTWIJZ=1 D W^cAN220("ETI",0,ETIUI1,125,DT)
	;
YZ	Q
	;
ZZ	; 07.11.01 -  9 u 36 * V7.89