Class sqlru.dates Extends %Persistent
{

Property A1 As %Date;

Property A2 As %Date;

ClassMethod check(A1 As %Date, A2 As %Date) As %Status
{
	quit:(A1>A2) $$$ERROR(5001,"A1>A2")
	quit $$$OK
}

Trigger BeforeIU [ Event = INSERT/UPDATE ]
{
	s %msg=..check({A1},{A2})
	if $$$ISERR(%msg) s sqlcode=$s(%oper="INSERT":-104,1:-105)
}

Method %OnBeforeSave(insert As %Boolean) As %Status [ Private, ServerOnly = 1 ]
{
	set status = ..check(..A1,..A2)
	quit status
}

}