cABVBK13	;Functies Class Definition-queries ; 
	;
T6	;Klasse;Groep;Interne naam;Query
T9	;Combinatie Interne naam/Afwijking is niet uniek binnen deze klasse.
	;
T6E	;Class;Group;Internal name;Query
T9E	;Combination Internal name/Deviation is not unique in this class .
	;
YZ	Q
	;
	;
HDRDCQ(CLASSID,AFWIJK,VOLGNR,INTNAAM,NOCLASS)	; header Class definition-query
	N HCLASSID,HAFWIJK,HVOLGNR,HINTNAAM,CGROEP,CINTNAAM
	S $ZT="^dmERROR"
	S U=";"
	D QT^cAFVBO01
	I '$L(CLASSID),('$L(AFWIJK)),('$L(VOLGNR)),('$L(INTNAAM)) S HCLASSID=..B101.DCId,HAFWIJK=..B132,HVOLGNR=..B102,HINTNAAM=..B103 G HDRDCQA
	S HCLASSID=CLASSID,HAFWIJK=AFWIJK,HVOLGNR=VOLGNR,HINTNAAM=INTNAAM
HDRDCQA	S CGROEP=$P(^DDC(0,"KLASSE",HCLASSID,0),"\",3)
	I $L(CGROEP) S CGROEP=$$DATA^cAFVBO01("DKODE","0","CODE.9022",CGROEP,101)
	S CINTNAAM=$P(^DDC(0,"KLASSE",HCLASSID,0),"\")
	S OUT="\\"
	I 'NOCLASS S OUT=OUT_"\"_$P($T(@("T6"_QT)),U,2)_";"_HCLASSID_" "_CGROEP_" "_CINTNAAM_"; \\\"
	S OUT=OUT_"\"_$P($T(@("T6"_QT)),U,5)_";"_$S($L(HAFWIJK):HAFWIJK_" ",1:"")_HVOLGNR_" "_HINTNAAM_"; \\\"
HDRDCQZ	Q OUT
	;	
	;
CHKUNIQ(CLASSID,INTNAAM,AFW,UI1)	;Controleren of Klassenaam+Interne naam klasse+afwijking uniek is
	Q 1  ; KU : 26.10.05  : hoeft niet meer zodat er meerdere zelfde queries kunnen bestaan
	S $ZT="^dmERROR"
	N @$$INITVAR^cAFVBA01("CLASSID,INTNAAM,AFW,UI1")
	D QT^cAFVBO01
	S R=$$UI1^cAFA1("DC.QUER","M1",CLASSID,INTNAAM,AFW)
	S OUT=1 I $L(R),R'=$g(UI1) S OUT="0\"_$P($T(@("T9"_QT)),U,2)
CHKUNIQZ	Q OUT
	;
ZZ	; 29.08.07 - 10 u 22 * V8.09