OCXF21 ;SLC/RJS,CLA - GENERATES CODE FOR 'Date' OPERATORS ;10/29/98  12:37
 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**32**;Dec 17,1997
 ;;  ;;ORDER CHECK EXPERT version 1.01 released OCT 29,1998
 Q
 ;
 ;
 ;
AFTER(DATA,CVAL) ; AFTER DATE
 ;
 Q $$GRT^OCXF20(DATA,"$$DT2INT("_CVAL_")") ; GREATER THAN
 ;
BEFORE(DATA,CVAL) ; BEFORE DATE
 ;
 Q $$LESS^OCXF20(DATA,"$$DT2INT("_CVAL_")") ; LESS THAN
 ;
ON(DATA,CVAL) ; ON DATE
 ;
 Q $$EQ^OCXF20(DATA,"$$DT2INT("_CVAL_")") ; EQUALS
 ;
DINCL(DATA,CVAL1,CVAL2) ; INCLUSIVE BETWEEN DATES
 ;
 Q $$INCL^OCXF20(DATA,"$$DT2INT("_CVAL1_")","$$DT2INT("_CVAL2_")") ; INCLUSIVE BETWEEN
 ;
DEXCL(DATA,CVAL1,CVAL2) ; EXCLUSIVE BETWEEN DATES
 ;
 Q $$EXCL^OCXF20(DATA,"$$DT2INT("_CVAL1_")","$$DT2INT("_CVAL2_")") ; EXCLUSIVE BETWEEN
 ;