dmNGRID	; functions used in DAMLib.*Grid* ; dmNGRID
	;
YZ	Q
	;
	
	;
DATA(FILE,IND,BIN)	; gets data from ^VBN(0,FILE,IND for B-index BIN
	Q $P($G(^VBN(0,FILE,IND,BIN\100-1)),"\",BIN#100)
	;
EXIST(FILE,IND)	; does ^VBN(0,FILE,IND) exists ?
	N OK
	S OK=0 I $D(^VBN(0,FILE,IND)) S OK=1
	Q OK
	;
EXFN(GRIDId)	; gets the exportlocation
	n i,r,D
	S D="\",r=0
	s i="" f  s i=$o(^VB(0,"CONNECT",i)) q:i=""  i $$DI^cAN000($p($g(^(i,0)),D),"")=$$DI^cAN000($zu(110),"") s r=$p(^(0),D,6) Q
	I i="" D
	. L +^VB(0,"CONNECT")
	. S i=$o(^VB(0,"CONNECT",i),-1) S:'i i=999
	. S i=i+1
	. S ^VB(0,"CONNECT",i,0)=$ZU(110)_D_$ZU(110)
	. L -^VB(0,"CONNECT")
	S r=r+1,$P(^VB(0,"CONNECT",i,0),D,6)=r
	q r
	;
EXLOC(GRIDId)	; gets the exportlocation
	n i,r,D
	S D="\",r=""
	s i="" f  s i=$o(^VB(0,"CONNECT",i)) q:i=""  i $$DI^cAN000($p($g(^(i,0)),D),"")=$$DI^cAN000($zu(110),"") s r=$p(^(0),D,5) Q
	q $Tr(r,"/","\")
	;
LIM(GRIDId)	; gets the limiet for the records in a resultset
	n i,r,D
	S D="\",r=0
	s i="" f  s i=$o(^VB(0,"CONNECT",i)) q:i=""  i $$DI^cAN000($p($g(^(i,0)),D),"")=$$DI^cAN000($zu(110),"") s r=+$p(^(0),D,4) Q
	I 'r s r=500
	q r
	;
SETLOG(GRIDId,TABId,QU,NBR,SQL,SEC,EXP)	; opzetten log-bestand
	N (GRIDId,TABId,QU,NBR,SQL,SEC,EXP)
	S D="\" D ^cA105,^cA106
	L +^VB(0,"USER.QUERY")
	S i=$O(^VB(0,"USER.QUERY",""),-1) S:'i i=999
	L -^VB(0,"USER.QUERY")
	S i=i+1,^VB(0,"USER.QUERY",i,0)=$G(GRIDId)_D_$G(TABId)_D_$G(QU)_D_$G(NBR)_D_DT_D_TD_D_$G(SEC)_D_$G(EXP)
	S ^(1)=$G(SQL)
	Q
	;
TYPE(R)	; aan de hand van data type de functie bepalen
	I 'R S R="%ALPHAUP(~col~)" G TYPEZ              ; tekst
	I R=1 S R="" G TYPEZ                            ; numeriek
	I R=2 S R="TO_DATE(~col~,~DateFM~)" G TYPEZ     ; datum
	I R=3 S R="TO_DATE(~col~,~DateFM~)" G TYPEZ     ; datum($h)
TYPEZ	Q R
	;
ZZ	; 18.05.04 - 15 u 49 * V8