cABVBP13	;Functies End 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
	;
	;
HDRDPQ(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.DPId,HAFWIJK=..B132,HVOLGNR=..B102,HINTNAAM=..B103 G HDRDPQA
	S HCLASSID=CLASSID,HAFWIJK=AFWIJK,HVOLGNR=VOLGNR,HINTNAAM=INTNAAM
HDRDPQA	S CGROEP=$P(^DDP(0,"KLASSE",HCLASSID,0),"\",3)
	S CINTNAAM=$P(^DDP(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_"; \\\"
HDRDPQZ	Q OUT
	;	
	;
ZZ	; 29.08.07 - 10 u 22 * V8.09