Index: cANU220.mac.rou
===================================================================
diff -u -r734 -r3542
--- cANU220.mac.rou	(.../cANU220.mac.rou)	(revision 734)
+++ cANU220.mac.rou	(.../cANU220.mac.rou)	(revision 3542)
@@ -1,95 +1,96 @@
-cANU220 ;Opmaken bestand ;%ANU22 ; [ 15/10/2001 - 16:04:31 - 58727,57871 ]
- G 1
- ;
-T0 ;Opmaken bestand ;
- ;
-T0F ;Cr�ation fichier ;
- ;
-T0E ;Opmaken bestand ;
- ;
- ; data lezen van schijf
-R(R) K B
-RA S S1=UDD(R),UREF=UREF(R)
-RB I S1<5 D
- . S B(1)=@UREF@(0) F S2=2:1:SW3(R) S B(S2)=$G(^(S2-1),USL)
-RC I S1=5 D
- . S B(1)=@UREF
-RZ K S1,S2 Q
- ;
- ; Bepalen K adhv U2
-S1 S UI1=IX,UREF=UREF(Q1),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
- . S UDD=UDD(U2(18)),UI1=K,K="",UREF=UREF(U2(18)) 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) D R(U2(18)) S OK=1
- . S SWA=SWA+1,U2(1)=$G(U2("LINK",SWA,1))
- . F I=4,8,13,16:1:18 S U2(I)=$G(U2("LINK",SWA,I))
-S1Z Q
- ;
- ; Correctie Merge
-S2 F I=1,4,8,13,16:1:18 S U2(I)=$G(U2(I))
-S2Z Q
- ;
- ; Initialisatie
-1 S LISREF=$NA(@UREF,$L(UREF,",")),LISUI1=UI1
- ;
- ; 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(@LISREF@(UZA)) G 39
-32 S UZB=UZB+1 I '$D(@LISREF@(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 IX="",USL=D,UFU="U",TEL=0 W:QP /WSCRON
-41 S $ZT="TRAP^cAN000"
-43 D ^cAN004("IX",Q1) I IX="" G 9
-45 S UI1=IX 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
-51 S UZA=UZA+1,UZB=0 K RL,RN,RT S RT=0 I '$D(@LISREF@(UZA)) G 43:'TIT S TIT=0 G 45
-53 S UZB=UZB+1 I '$D(@LISREF@(UZA,UZB)) D ^cA700 S TEL=TEL+1 W:QP /CUP(17,17),TEL G 51
-55 K U2 S U2(1)=$G(^(UZB,1)) F I=4,8,13,16:1:18 S U2(I)=$G(^(I))
-57 I $D(^("LINK")) F SWA=1:1 Q:'$D(@LISREF@(UZA,UZB,"LINK",SWA))  D
- . S U2("LINK",SWA,1)=$G(^(SWA,1))
- . F I=4,8,13,16:1:18 S U2("LINK",SWA,I)=$G(^(I))
-59 D S1
- ;
- ; Opzetten veld
-6 S U3=K I $L(U2(8)) K REFRESH X U2(8)
-61 S RT=RT+1,RT(RT)=$E(U3,1,U2(13)),RL(RT)=U2(13),RN(RT)=U2(4)
- I TIT S RT(RT)=U2(1),RN(RT)=0 ; VJ-12.10.00
-63 G 53
- ;
- ; Einde
-9 D W^cAN220("LIS",0,LISUI1,125,DT)
-91 I QP D B^cA612:'$G(PTS),^cA702,C^cA612
- ;
-YZ Q
- ;
-ZZ ; 05.02.01 - 16 u 23 * V7.84
\ No newline at end of file
+cANU220	;Opmaken bestand ;%ANU22 ; [ 10/15/01  2:55 PM ]
+	G 1
+	;
+T0	;Opmaken bestand ;
+	;
+T0F	;Cr�ation fichier ;
+	;
+T0E	;Opmaken bestand ;
+	;
+	; data lezen van schijf
+R(R)	K B
+RA	S S1=UDD(R),UREF=UREF(R)
+RB	I S1<5 D
+	. S B(1)=@UREF@(0) F S2=2:1:SW3(R) S B(S2)=$G(^(S2-1),USL)
+RC	I S1=5 D
+	. S B(1)=@UREF
+RZ	K S1,S2 Q
+	;
+	; Bepalen K adhv U2
+S1	S UI1=IX,UREF=UREF(Q1),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
+	. S UDD=UDD(U2(18)),UI1=K,K="",UREF=UREF(U2(18)) 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) D R(U2(18)) S OK=1
+	. S SWA=SWA+1,U2(1)=$G(U2("LINK",SWA,1))
+	. F I=4,8,13,16:1:18 S U2(I)=$G(U2("LINK",SWA,I))
+S1Z	Q
+	;
+	; Correctie Merge
+S2	F I=1,4,8,13,16:1:18 S U2(I)=$G(U2(I))
+S2Z	Q
+	;
+	; Initialisatie
+1	S LISREF=$NA(@UREF,$L(UREF,",")),LISUI1=UI1
+	;
+	; 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(@LISREF@(UZA)) G 39
+32	S UZB=UZB+1 I '$D(@LISREF@(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 IX="",USL=D,UFU="U",TEL=0 W:QP /WSCRON
+41	S $ZT="TRAP^cAN000"
+43	D ^cAN004("IX",Q1) I IX="" G 9
+45	S UI1=IX 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
+51	S UZA=UZA+1,UZB=0 K RL,RN,RT S RT=0 I '$D(@LISREF@(UZA)) G 43:'TIT S TIT=0 G 45
+53	S UZB=UZB+1 I '$D(@LISREF@(UZA,UZB)) D ^cA700 S TEL=TEL+1 W:QP /CUP(17,17),TEL G 51
+55	K U2 S U2(1)=$G(^(UZB,1)) F I=4,8,13,16:1:18 S U2(I)=$G(^(I))
+57	I $D(^("LINK")) F SWA=1:1 Q:'$D(@LISREF@(UZA,UZB,"LINK",SWA))  D
+	. S U2("LINK",SWA,1)=$G(^(SWA,1))
+	. F I=4,8,13,16:1:18 S U2("LINK",SWA,I)=$G(^(I))
+59	D S1
+	;
+	; Opzetten veld
+6	S U3=K I $L(U2(8)) K REFRESH X U2(8)
+61	S RT=RT+1,RT(RT)=$E(U3,1,U2(13)),RL(RT)=U2(13),RN(RT)=U2(4)
+	I TIT S RT(RT)=U2(1),RN(RT)=0 ; VJ-12.10.00
+63	G 53
+	;
+	; Einde
+9	D W^cAN220("LIS",0,LISUI1,125,DT)
+91	I QP D B^cA612:'$G(PTS),^cA702,C^cA612
+	;
+YZ	Q
+	;
+ZZ	; 07.11.01 -  9 u 36 * V7.89
+