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