qpm_hscode

	qpm_hscode(house_name.ch.d, house_code.i2.r, translation.i2.r
		   [,node.i2.r] [,status.i2.r])

	This routine translates two-character ASCII house names to codes
	and vice versa.  It is a drop in replacement for the routine
	hscode for QPM programs since the GAS QPMs no longer exist.
	This prevents an unnecessary message to the front end.

	house_name	ASCII house name (HOUSE_NAME_LEN characters)
	house_code	house code
	translation	translation direction
			(HSCODE_NAME_TO_CODE -> convert house name to
						house code,
			 HSCODE_CODE_TO_NAME -> convert house code to
						house name)
	[node]		front end logical node number
			(default and only valid value is TEV)
	[status]	returned standard ACNET status value
			(OK -> success,
			 CLIB_INVARG -> invalid house code or node passed,
			 CLIB_NO_SUCH -> no such node or house)

	This function requires the following include files:

	ul_cbsaux_h:auxlib_misc_h, clib_h, nodedefs_h, acnet_errors_h

	Related functions:

	hscode, gsmod, gslist, gslend, gsget, gsgetw, gschk, gsset, gsread,
	gstanc, gsboot

	C/C++ usage:

	short		node = TEV;
	short		house_code;
	short		status;
	short		translation = HSCODE_NAME_TO_CODE;

	qpm_hscode("A1",&house_code,&translation,&node,&status);