cAB1094	;Beheer vrije velden; %AB10 [ 03/29/01  9:23 AM ]
	;
	G 1
	;
T0	; Beheer vrije velden;
T1	;Volgnummer\"[] = toevoegen   xx[] = wijzigen   V[] = verwijderen";
T2	;Nummer pagina;
T3	;Van rubriek;
T4	;Tot rubriek;
T5	;Nummer element;
T6	;Bevestiging\".[] = openen   ,[] = hernemen   x[] = element x";
T7	;Verwijderen\"V[] = verwijderen   ,[] = hernemen";
T8	;Te verwijderen vrij veld;
	;
1	D P^cA612(2,1,20,80,1,0,0,1,$P($T(@("T0"_QT)),U,2),0,1,1,0,0)
11	D TOON
13	S R="KEUZE\22\3\"_$P($T(@("T1"_QT)),U,2)_"\2\\(K?.N&(K'<1)&(K'>I1))!(""V-""[K)\\\1" D R0 I K="-" G YZ
15	I KEUZE="" D TOEV G 11             
17	I KEUZE="V" D WEG G 11
19	I KEUZE?1.N&(KEUZE<(I1+1)) D WIJZ G 11
	;
YZ	I ^DMA(UQA,USA,"0","VV")="" K ^DMA(UQA,USA,"0","VV")
	D C^cA612 Q
	;
R0	S $P(R,D,12)=$T(+0) D ^cAN1000 Q
	;
	;  Op het scherm tonen van de verschillende velden
SCHRIJF	W /CUP(1,1),@F1
	W /CUP(2,2),"1 ",@F6,$P($T(@("T2"_QT)),U,2),@F9," : ",$P($P($G(^DMA(UQA,USA,"0","VV")),D,KEUZE),U,1)
	W /CUP(3,2),"2 ",@F6,$P($T(@("T3"_QT)),U,2),@F9,"   : ",$P($P($G(^DMA(UQA,USA,"0","VV")),D,KEUZE),U,2)
	W /CUP(4,2),"3 ",@F6,$P($T(@("T4"_QT)),U,2),@F9,"   : ",$P($P($G(^DMA(UQA,USA,"0","VV")),D,KEUZE),U,3)
SCHRIJFZ	Q
	;
	;  Toevoegen van vrije velden
TOEV	D O^cA612(15,1,7,80,1,0,0,1)
	N BLZ,VAN,TOT
	S KEUZE=I1+1
	D SCHRIJF
TOEVA	S R="BLZ\22\3\"_$P($T(@("T2"_QT)),U,2)_"\\2\\(K?.N)!(""-""[K)\\\\\1" D R0 I K="-" G TOEVZ
	W /CUP(2,2),"1 ",@F6,$P($T(@("T2"_QT)),U,2),@F9," : ",BLZ
TOEVB	S R="VAN\22\3\"_$P($T(@("T3"_QT)),U,2)_"\\2\\(K?.N)!(""-""[K)\\\\\1" D R0 I K="-" G TOEVA
	W /CUP(3,2),"2 ",@F6,$P($T(@("T3"_QT)),U,2),@F9,"   : ",VAN
TOEVC	S R="TOT\22\3\"_$P($T(@("T4"_QT)),U,2)_"\\2\\(K?.N)!(""-""[K)\\\\\1" D R0 I K="-" G TOEVB
	I TOT<VAN G TOEVC
	W /CUP(4,2),"3 ",@F6,$P($T(@("T4"_QT)),U,2),@F9,"   : ",TOT
	S R="BEV\22\3\"_$P($T(@("T6"_QT)),U,2)_"\1\\$L(K)&(""123-,.""[K)\\\\\1" D R0 I K="-" G TOEVC
	I BEV=1!(BEV=",") G TOEVA
	I BEV=2 G TOEVB
	I BEV=3 G TOEVC
	I BEV="." D
	. S DEEL=BLZ_U_VAN_U_TOT
	. S $P(^DMA(UQA,USA,"0","VV"),D,KEUZE)=DEEL
TOEVZ	D C^cA612 Q
	;
	;  Op het scherm tonen van de vrije velden
TOON	W /CUP(1,1),@F1
	S I1=1
	I '$D(^DMA(UQA,USA,"0","VV")) S I1=0 G TOONZ
TOONA	S VVELD=$P(^DMA(UQA,USA,"0","VV"),D,I1)
	I VVELD="" S I1=I1-1 G TOONZ
	W /CUP(I1+1,2),$J(I1,2),". ",VVELD
	S I1=I1+1
	G TOONA
TOONZ	Q
	;
	;  Verwijderen vrije velden
WEG	S R="KEUZE\22\3\"_$P($T(@("T8"_QT)),U,2)_"\\2\\$L(K)&((K?.N&(K'<1)&(K'>I1))!(""-""[K))" D R0 I K="-" G WEGZ
	D O^cA612(15,1,7,80,1,0,0,1)
	D SCHRIJF
	S R="VERW\22\3\"_$P($T(@("T7"_QT)),U,2)_"\1\\$L(K)&(""V,-""[K)\\\1" D R0 I K="-"!(K=",") D C^cA612 G WEG
	S VVELD=^DMA(UQA,USA,"0","VV")
	I KEUZE="1" S NVVELD=$P(VVELD,D,2,99)
	I KEUZE=I1 S NVVELD=$P(VVELD,D,1,(I1-1))
	I KEUZE'="1"&(KEUZE'=I1) D
	. S NVVELD=$P(VVELD,D,1,(KEUZE-1))
	. S NVVELD=NVVELD_D_$P(VVELD,D,(KEUZE+1),99)
	D C^cA612
	S ^DMA(UQA,USA,"0","VV")=NVVELD
WEGZ	Q
	;
	;  Wijzigen vrije velden
WIJZ	D O^cA612(15,1,7,80,1,0,0,1)
WIJZA	D SCHRIJF
	S R="NR\22\3\"_$P($T(@("T5"_QT)),U,2)_"\\1\\$L(K)&(""123-""[K)" D R0 I K="-" G YZ I K="-" G WIJZZ
	S INHOUD=$P($P($G(^DMA(UQA,USA,"0","VV")),D,KEUZE),U,NR)
	I NR=1 S R="INHOUD\22\3\"_$P($T(@("T2"_QT)),U,2)_"\\2\\(K?.N)!(""-""[K)\\\\\1" D R0 I K="-" G WIJZA
WIJZB	I NR=2 S R="INHOUD\22\3\"_$P($T(@("T3"_QT)),U,2)_"\\2\\(K?.N)!(""-""[K)\\\\\1" D R0 I K="-" G WIJZA
WIJZC	I NR=3 S R="INHOUD\22\3\"_$P($T(@("T4"_QT)),U,2)_"\\2\\(K?.N)!(""-""[K)\\\\\1" D R0 I K="-" G WIJZA
	I NR=2&(INHOUD>$P($P($G(^DMA(UQA,USA,"0","VV")),D,KEUZE),U,3)) G WIJZB
	I NR=3&(INHOUD<$P($P($G(^DMA(UQA,USA,"0","VV")),D,KEUZE),U,2)) G WIJZC
	S DEEL=$P($G(^DMA(UQA,USA,"0","VV")),D,KEUZE)
	S $P(DEEL,U,NR)=INHOUD
	S $P(^DMA(UQA,USA,"0","VV"),D,KEUZE)=DEEL
	G WIJZA
WIJZZ	D C^cA612 Q
	;
ZZ	; 18.05.01 - 11 u 18 * V7.86