&AtClient Procedure Noncompliant() EndProcedure Procedure Compliant() EndProcedure