cTN202	;Functies beheer firma's ; cTN202
	;
T1	;Vennootschap;Q-waarde;Naam;
	;
T1F	;Société;Valuer Q;Nom;
	;
T1E	;Company;Q Value;Name;
	;
YZ	Q
	;
HD(SW,QVALUE,NAME)	; Header
	N R
	S $ZT="^dmERROR"
	;
	;
	S D="\",U=";",R=""
	D QT^cAFVBO01
	;
	; Via Parameters
	I $G(SW) S R="\\"_$P($T(@("T1"_QT)),U,2)_"\"_$P($T(@("T1"_QT)),U,3)_";"_$G(QVALUE)_"\\\\"_$P($T(@("T1"_QT)),U,4)_";"_$G(NAME) G HDZ
	;
HDA	S QVAL=..B101
	S NAME=..B102
	;
HDY	S R="\\"_$P($T(@("T1"_QT)),U,2)_"\"_$P($T(@("T1"_QT)),U,3)_";"_QVAL_"\\\\"_$P($T(@("T1"_QT)),U,4)_";"_NAME
	;
HDZ	Q R
	;
ZZ	; 29.08.07 - 10 u 22 * V8.09