Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: OCXF20

OCXF20.m

Go to the documentation of this file.
  1. 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
  1. ;; ;;ORDER CHECK EXPERT version 1.01 released OCT 29,1998
  1. Q
  1. ;
  1. ;
  1. GRT(DATA,CVAL) ; GREATER THAN
  1. ;
  1. Q:'$L($G(DATA)) "" Q:'$L($G(CVAL)) "" Q "("_DATA_">"_CVAL_")"
  1. ;
  1. LESS(DATA,CVAL) ; LESS THAN
  1. ;
  1. Q:'$L($G(DATA)) "" Q:'$L($G(CVAL)) "" Q "("_DATA_"<"_CVAL_")"
  1. ;
  1. EQ(DATA,CVAL) ; EQUALS
  1. ;
  1. Q:'$L($G(DATA)) "" Q:'$L($G(CVAL)) "" Q "("_DATA_"="_CVAL_")"
  1. ;
  1. INCL(DATA,CVAL1,CVAL2) ; INCLUSIVE BETWEEN
  1. ;
  1. Q:'$L($G(DATA)) "" Q:'$L($G(CVAL1)) "" Q:'$L($G(CVAL2)) ""
  1. ;
  1. Q "'("_$$LESS(DATA,CVAL1)_"!"_$$GRT(DATA,CVAL2)_")"
  1. ;
  1. EXCL(DATA,CVAL1,CVAL2) ; EXCLUSIVE BETWEEN
  1. ;
  1. Q:'$L($G(DATA)) "" Q:'$L($G(CVAL1)) "" Q:'$L($G(CVAL2)) ""
  1. ;
  1. Q "("_$$GRT(DATA,CVAL1)_"&"_$$LESS(DATA,CVAL2)_")"
  1. ;