m.Success = .T.

DO EligibilityValidation WITH ;
	'NEW', ;
	THISFORM.txtPat_No.Value, ;
	DATE(), ;
	@Success