cAN222(USA,UQA,SWPF)	   ;BEHEER VRIJE VELDEN ;%AN222 ; [ 11/08/01  12:10 PM ]
	G 1
	; SWPF=1 : moet enkel diegene nemen die beginnen met UQA
	;           vb : "KL","EA",1 --> EA en EA1
	;
T0	;beheer vrije velden;
	;
T0F	;gestion des champs libres;
	;
T0E	;free fields;
	;
	; algemene initialisatie
1	S $ZT="TRAP^cAN000"
10	S UTX=$P($T(@("T0"_QT)),U,2)
11	I $G(USA)="" G YZ   ; 1' parameter is onmisbaar
12	I $G(UQA)="" D
	. D DMA(Q,USA,$S('$G(SWPF):"O",1:""))
	. ; S K=USA                               ; ophalen uit DMS
	. ; S UQA=$P($G(^DMS(Q,K,"DMA","O")),D),USA=$P($G(^("O")),D,2)
	. ; I UQA="",USA="" D
	.. ; S UQA=$P($G(^DMS(0,K,"DMA","O")),D),USA=$P($G(^("O")),D,2)
13	G YZ:USA="",YZ:UQA="",YZ:'$D(^DMA(UQA,USA,0,"DMS")),YZ:'$D(^("VV"))
14	S (C,DMS)=^("DMS") D DMS^cAN000("UQC","USC",C) I UQC=""!(USC="") G YZ
	S DMS2=$P($G(^(2)),D,2)
15	S UVV=^DMA(UQA,USA,0,"VV"),UTIT=$G(^("TIT"))
17	S I=$G(^("WIN")) F J=1:1:8 S $P(I,D,J)=+$P(I,D,J)
19	S J=I
	;
	; window + titel tonen
2	I 'UTIT D O^cA612($P(J,D),$P(J,D,2),$P(J,D,3),$P(J,D,4),$P(J,D,5),$P(J,D,6),$P(J,D,7),$P(J,D,8)) G 3
22	S I=$P(^DMC(UQC,USC,"TAAL",$E(QT_"N")),D,2)
23	S I=UTX_" "_I
24	I $P(UTIT,D,8)=1 S I=$$UC^cAFA1($E(I))_$E(I,2,99)
25	I $P(UTIT,D,8)=2 S I=$$UC^cAFA1(I)
26	D P^cA612($P(J,D),$P(J,D,2),$P(J,D,3),$P(J,D,4),$P(J,D,5),$P(J,D,6),$P(J,D,7),$P(J,D,8),I,$P(UTIT,D,2),$P(UTIT,D,3),$P(UTIT,D,4),$P(UTIT,D,6),$P(UTIT,D,7))
	;
	; aantal pagina's & nodes
3	S USL=D,$P(USL,D,29)=D,(SW2,SW3,SW5)=1,I=0
31	F  S I=$O(^DMA(UQA,USA,I)) Q:I=""  S SW4=I,J="" D
	. F  S J=$O(^DMA(UQA,USA,I,J)) Q:J=""  S U7=$G(^(J,16)) I U7\100>SW3 S SW3=U7\100
	;
	; test vrije velden + gelijklopende DMA's
33	F I=1:1:$L(UVV,D) S J=$P(UVV,D,I) D
	. I $P(J,U),$P(J,U)'>SW4,$P(J,U,2),$P(J,U,3) S UVV($P(J,U))=J D
	.. S R=0 F C=0:1 S R=$O(^DMA(UQA,USA,$P(J,U),R)) Q:R=""
	.. I $P(J,U,2)>C K UVV($P(J,U))
	.. I $P(J,U,3)>C K UVV($P(J,U))
	.. I $P(J,U,3)<$P(J,U,2) K UVV($P(J,U))
35	S UVV="",SW2=$O(UVV("")),(I,J,DMA)="" 
37	I SW2 F  S I=$O(^DMA(I)) Q:I=""  D:$E(I,1,$L(UQA))=UQA&$G(SWPF)!'$G(SWPF)
	. F  S J=$O(^DMA(I,J)) Q:J=""  I I'=UQA!(J'=USA) D
	.. I $G(^(J,0,"DMS"))=DMS!($S($L(DMS2):$G(^("DMS"))=DMS2,1:0)),$G(^("VV")) S DMA=DMA+1,DMA(DMA)=I_D_J D
	... L +^DMA(I,J):2 E  S SW2=0,DMA=DMA-1 K DMA(DMA+1)
	;
	; overgang naar beheer
4	I SW2 G ^cAN2221
	;
Y	D C^cA612
YA	F R=1:1:DMA S I=$P(DMA(R),D),J=$P(DMA(R),D,2) L -^DMA(I,J)
YZ	Q
	;
DMA(Q,DMS,UFU)
	S UQA="",USA=""
	I $L($G(UFU)) S UQA=$P($G(^DMS(Q,DMS,"DMA",UFU)),D),USA=$P($G(^(UFU)),D,2) G DMAY
	S UFU="" F  S UFU=$O(^DMS(Q,DMS,"DMA",UFU)) Q:UFU=""  S:$L(UQA)>$L($P(^(UFU),D))!'$L(UQA) UQA=$P(^(UFU),D),USA=$P(^(UFU),D,2)
DMAY	I Q'=0,'$L(UQA),'$L(USA) D DMA(0,DMS,$G(UFU))
DMAZ	Q
	;
ZZ	; 23.06.05 - 17 u 03 * V8.04