>I get an error on this. What am I doing wrong?
>
>

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

Check this excellent blog on this topic
Difference between Function and Procedure

And also see Parameters passed by reference (Wiki Discussion)

For me the logical choice would be to have Success as a return code and call the procedure as a function

llSuccess = EligibilityValidation("New", ....)

Though the name of the function now will need to change also to better reflect it returns a status.