Index: cANU310.mac.rou
===================================================================
diff -u -r734 -r3542
--- cANU310.mac.rou	(.../cANU310.mac.rou)	(revision 734)
+++ cANU310.mac.rou	(.../cANU310.mac.rou)	(revision 3542)
@@ -1,126 +1,127 @@
-cANU310 ;Printen etiketten ;%ANU31 ; [ 15/10/2001 - 16:03:37 - 58727,57817 ]
- 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 ; 05.02.01 - 16 u 23 * V7.84
\ No newline at end of file
+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
+