source: WorldVistAEHR/trunk/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/OCXF20.m@ 1046

Last change on this file since 1046 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 820 bytes
RevLine 
[613]1OCXF20 ;SLC/RJS,CLA - GENERATES CODE FOR 'Numeric' OPERATORS ;10/29/98 12:37
2 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**32**;Dec 17,1997
3 ;; ;;ORDER CHECK EXPERT version 1.01 released OCT 29,1998
4 Q
5 ;
6 ;
7GRT(DATA,CVAL) ; GREATER THAN
8 ;
9 Q:'$L($G(DATA)) "" Q:'$L($G(CVAL)) "" Q "("_DATA_">"_CVAL_")"
10 ;
11LESS(DATA,CVAL) ; LESS THAN
12 ;
13 Q:'$L($G(DATA)) "" Q:'$L($G(CVAL)) "" Q "("_DATA_"<"_CVAL_")"
14 ;
15EQ(DATA,CVAL) ; EQUALS
16 ;
17 Q:'$L($G(DATA)) "" Q:'$L($G(CVAL)) "" Q "("_DATA_"="_CVAL_")"
18 ;
19INCL(DATA,CVAL1,CVAL2) ; INCLUSIVE BETWEEN
20 ;
21 Q:'$L($G(DATA)) "" Q:'$L($G(CVAL1)) "" Q:'$L($G(CVAL2)) ""
22 ;
23 Q "'("_$$LESS(DATA,CVAL1)_"!"_$$GRT(DATA,CVAL2)_")"
24 ;
25EXCL(DATA,CVAL1,CVAL2) ; EXCLUSIVE BETWEEN
26 ;
27 Q:'$L($G(DATA)) "" Q:'$L($G(CVAL1)) "" Q:'$L($G(CVAL2)) ""
28 ;
29 Q "("_$$GRT(DATA,CVAL1)_"&"_$$LESS(DATA,CVAL2)_")"
30 ;
Note: See TracBrowser for help on using the repository browser.