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 Dec 13, 2024@02:24:30 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 ;
