- 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
- ;
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HOCXF21 785 printed Feb 18, 2025@23:51:05 Page 2
- 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 ;