OCXF21.m

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

 ;

OCXF21    ;SLC/RJS,CLA - GENERATES CODE FOR 'Date' OPERATORS ;10/29/98  12:37

 +1       ;;3.0;ORDER ENTRY/RESULTS REPORTING;**32**;Dec 17,1997

 +2       ;;  ;;ORDER CHECK EXPERT version 1.01 released OCT 29,1998

 +3        QUIT 

 +4       ;

 +5       ;

 +6       ;

AFTER(DATA,CVAL) ; AFTER DATE

 +1       ;

 +2       ; GREATER THAN

           QUIT $$GRT^OCXF20(DATA,"$$DT2INT("_CVAL_")")

 +3       ;

BEFORE(DATA,CVAL) ; BEFORE DATE

 +1       ;

 +2       ; LESS THAN

           QUIT $$LESS^OCXF20(DATA,"$$DT2INT("_CVAL_")")

 +3       ;

ON(DATA,CVAL) ; ON DATE

 +1       ;

 +2       ; EQUALS

           QUIT $$EQ^OCXF20(DATA,"$$DT2INT("_CVAL_")")

 +3       ;

DINCL(DATA,CVAL1,CVAL2) ; INCLUSIVE BETWEEN DATES

 +1       ;

 +2       ; INCLUSIVE BETWEEN

           QUIT $$INCL^OCXF20(DATA,"$$DT2INT("_CVAL1_")","$$DT2INT("_CVAL2_")")

 +3       ;

DEXCL(DATA,CVAL1,CVAL2) ; EXCLUSIVE BETWEEN DATES

 +1       ;

 +2       ; EXCLUSIVE BETWEEN

           QUIT $$EXCL^OCXF20(DATA,"$$DT2INT("_CVAL1_")","$$DT2INT("_CVAL2_")")

 +3       ;