By the way, Nadya

This code has a problem.

LPARAMETERS nError, cMethod, nLine, tcSys16, toErrObj
IF m.nError = 1839 && Requery cancelled	

	IF VARTYPE(m.plStop) = "L" AND m.plStop 
		* Have we stopped already?
	ELSE
		RETRY
	ENDIF
ELSE
	DODEFAULT(nError, cMethod, nLine, tcSys16, toErrObj)
ENDIF

I think you should code it like this...

LPARAMETERS m.tnError, m.tcMethod, m.tnLine, m.tcSys16, m.toErrObj
IF m.tnError = 1839 && Requery cancelled	

	IF VARTYPE(m.plStop) = "L" AND m.plStop 
		* Have we stopped already?
	ELSE
		RETRY
	ENDIF
ELSE
	DODEFAULT(m.tnError, m.tcMethod, m.tnLine, m.tcSys16, m.toErrObj)
ENDIF

Because! nError with or without the mdot is possibly a field name in some naming conventions. You can run into a conflict. Further, you are mixing different types of notations. nError and toErr. Every parameter is supposed to be prefaced with "t". You can and IMO should name them properly.