I have in a method of a form:

FOR m.icounter = 1 TO THISFORM.ControlCount
	oControl = ThisForm.Controls[m.icounter]
	IF ALLTRIM(UPPER(oControl.Baseclass)) = "TEXTBOX" 
		IF !EMPTY(oControl.Tag) .and. !EMPTY(oControl.controlsource)
			TRY
				qtag = ocontrol.Tag
				qnewval = EVALUATE(oControl.controlSource)
				qtype = TYPE('EVALUATE(oControl.controlsource)')
				qsysnum = thisform.ca_sysnum
				qagnum = thisform.ca_ag_num
                                *UWUSRCreate is a program part of which is shown below
				=UWUSRCreate(qTag,qnewval,qtype,qsysnum,qagnum)
			CATCH
			ENDTRY
		ENDIF
	ENDIF
ENDFOR

A snapshot of the UWUSRCreate function:

LPARAMETERS tRecord, tValue, tType, tCoId, tAgId

*I verified that at this point the following values are correct:
*tRecord = "UGI_CCONFEE"
*tValue = 1.15
*tType = "N"
*tcoId = 12
*tAgId = ""

#DEFINE UGI_CCONFEE        8159760   && Contract Fee

TRY
   iGroupID = EVALUATE(tRecord) 
CATCH
   iGroupID = 0  && I land here because UGI_CCONFEE is undefined why?
ENDTRY

Yet this works from the command window:

UGI_CCONFEE = 8159760
trecord = "UGI_CCONFEE"
?EVALUATE(trecord) && returns 8159760 as it should

Why does it not work in my program using #DEFINE? I must be overlooking something basic... ?

TIA,
Tracy