- OCXF20 ;SLC/RJS,CLA - GENERATES CODE FOR 'Numeric' 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
- ;
- ;
- GRT(DATA,CVAL) ; GREATER THAN
- ;
- Q:'$L($G(DATA)) "" Q:'$L($G(CVAL)) "" Q "("_DATA_">"_CVAL_")"
- ;
- LESS(DATA,CVAL) ; LESS THAN
- ;
- Q:'$L($G(DATA)) "" Q:'$L($G(CVAL)) "" Q "("_DATA_"<"_CVAL_")"
- ;
- EQ(DATA,CVAL) ; EQUALS
- ;
- Q:'$L($G(DATA)) "" Q:'$L($G(CVAL)) "" Q "("_DATA_"="_CVAL_")"
- ;
- INCL(DATA,CVAL1,CVAL2) ; INCLUSIVE BETWEEN
- ;
- Q:'$L($G(DATA)) "" Q:'$L($G(CVAL1)) "" Q:'$L($G(CVAL2)) ""
- ;
- Q "'("_$$LESS(DATA,CVAL1)_"!"_$$GRT(DATA,CVAL2)_")"
- ;
- EXCL(DATA,CVAL1,CVAL2) ; EXCLUSIVE BETWEEN
- ;
- Q:'$L($G(DATA)) "" Q:'$L($G(CVAL1)) "" Q:'$L($G(CVAL2)) ""
- ;
- Q "("_$$GRT(DATA,CVAL1)_"&"_$$LESS(DATA,CVAL2)_")"
- ;
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HOCXF20 850 printed Feb 18, 2025@23:51:04 Page 2
- OCXF20 ;SLC/RJS,CLA - GENERATES CODE FOR 'Numeric' 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 ;
- GRT(DATA,CVAL) ; GREATER THAN
- +1 ;
- +2 if '$LENGTH($GET(DATA))
- QUIT ""
- if '$LENGTH($GET(CVAL))
- QUIT ""
- QUIT "("_DATA_">"_CVAL_")"
- +3 ;
- LESS(DATA,CVAL) ; LESS THAN
- +1 ;
- +2 if '$LENGTH($GET(DATA))
- QUIT ""
- if '$LENGTH($GET(CVAL))
- QUIT ""
- QUIT "("_DATA_"<"_CVAL_")"
- +3 ;
- EQ(DATA,CVAL) ; EQUALS
- +1 ;
- +2 if '$LENGTH($GET(DATA))
- QUIT ""
- if '$LENGTH($GET(CVAL))
- QUIT ""
- QUIT "("_DATA_"="_CVAL_")"
- +3 ;
- INCL(DATA,CVAL1,CVAL2) ; INCLUSIVE BETWEEN
- +1 ;
- +2 if '$LENGTH($GET(DATA))
- QUIT ""
- if '$LENGTH($GET(CVAL1))
- QUIT ""
- if '$LENGTH($GET(CVAL2))
- QUIT ""
- +3 ;
- +4 QUIT "'("_$$LESS(DATA,CVAL1)_"!"_$$GRT(DATA,CVAL2)_")"
- +5 ;
- EXCL(DATA,CVAL1,CVAL2) ; EXCLUSIVE BETWEEN
- +1 ;
- +2 if '$LENGTH($GET(DATA))
- QUIT ""
- if '$LENGTH($GET(CVAL1))
- QUIT ""
- if '$LENGTH($GET(CVAL2))
- QUIT ""
- +3 ;
- +4 QUIT "("_$$GRT(DATA,CVAL1)_"&"_$$LESS(DATA,CVAL2)_")"
- +5 ;