cAFVBF01	;Functies voor forms ; cAFVBF01 [ 03/23/00  4:03 PM ]
	;
YZ	Q
	;
DELTEMP(GRIDID,USC)	
	N OK
	S OK=1
	I '$L($G(GRIDID)) G DELTEMPZ
	I '$L($G(USC)) K ^mtemp99(GRIDID) G DELTEMPZ
	K ^mtemp99(GRIDID,USC)
DELTEMPZ	Q OK
	;
FRFLD(GRIDID,Q,DMS,UQA,USA)	; Ophalen vrije velden voor DMS
	N (GRIDID,Q,DMS,TAB,UQA,USA,QT,QU)
	S $ZT="ERR^"_$T(+0)
	S D="\",U=";" D QT^cAFVBO01
	S OK=0,TEL=0
	; bepalen USA en UQA
	I $G(USA)="" D
	. S UFU="R"                               ; ophalen uit DMS
	. S UQA=$P($G(^DMS(Q,DMS,"DMA",UFU)),D),USA=$P($G(^(UFU)),D,2)
	. I UQA="",USA="" D
	.. S UQA=$P($G(^DMS(0,DMS,"DMA",UFU)),D),USA=$P($G(^(UFU)),D,2)
	I '$L(USA) D  I USA="" G FRFLDZ
	. D DMS^cAN000("UQC","USC",DMS,1) I '$L(UQC)!'$L(USC) Q
	. S USA=USC,UQA=UQC I $L($P(^DMS(Q,DMS,0),D,3)) S USA=$P(^(0),D,4),UQA=$P(^(0),D,3)
	S UVV=$G(^DMA(UQA,USA,0,"VV")) I '$L(UVV) G FRFLDZ
	;
FRFLDA	S GRIDID=$G(GRIDID)
	I '$L(GRIDID) S GRIDID=$$GRIDID()
	K ^mtemp99(GRIDID,"COMMON") S OK=GRIDID
	; ophalen vrije velden : enkel voor 1 scherm
	S TEL=0 F I=1 S J=$P(UVV,D,I) I $P(J,U),$P(J,U,2),$P(J,U,3) D
	. S R=0 F C=1:1 S R=$O(^DMA(UQA,USA,$P(J,U),R)) Q:R=""  I C'<$P(J,U,2)&(C'>$P(J,U,3)) D
	.. S TEL=TEL+1
	.. S ^mtemp99(GRIDID,"COMMON",TEL,0)=$P(^(R,1),D,QTU)_D_($G(^(19))'="S K=K")_D_(+$G(^(9)))_D_$G(^(16))  ; omschrijving
	S TEL=TEL_D_"Select Text01, Text02, Text03 from Tech.Temp where GridId="_GRIDID
FRFLDZ	Q OK_D_TEL
	;
GRIDID()	; ophalen volgnr grid
	N GRIDID
	L +^mtemp99(0)
	S GRIDID=$G(^mtemp99(0),1)
	F  Q:'$D(^mtemp99(GRIDID))  S GRIDID=GRIDID+1 
	S ^mtemp99(0)=GRIDID+1
	L -^mtemp99(0)
	Q GRIDID
	;
ERR	; errortrap
	D LOG^dmERROR
	S OK=0_"\Error occuring during built temporary file : "_$ze s $ze=""
ERRZ	Q OK
	;
	;
ZZ	; 29.08.07 - 10 u 22 * V8.09