OCXF23.m

OCXF23 ;SLC/RJS,CLA - GENERATES CODE FOR 'Boolean' 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

 ;

 ;

AND(OP1,OP2) ;

 ;

 Q:'$L($G(OP1)) "" Q:'$L($G(OP2)) "" Q "("_OP1_"&"_OP2_")"

 ;

OR(OP1,OP2) ;

 ;

 Q:'$L($G(OP1)) "" Q:'$L($G(OP2)) "" Q "("_OP1_"!"_OP2_")"

 ;

NOT(OP1) ;

 ;

 Q:'$L($G(OP1)) "" Q "'("_OP1_")"

 ;

TRUE(OP1) ;

 ;

 Q:'$L($G(OP1)) "" Q "("_OP1_")"

 ;

FALSE(OP1) ;

 ;

 Q:'$L($G(OP1)) "" Q "'("_OP1_")"

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---OCXF23   543     printed  Apr 09, 2024@21:42:17                                                                                                                                                                                                       Page 2

OCXF23    ;SLC/RJS,CLA - GENERATES CODE FOR 'Boolean' 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       ;

AND(OP1,OP2) ;

 +1       ;

 +2        if '$LENGTH($GET(OP1))

               QUIT ""

           if '$LENGTH($GET(OP2))

               QUIT ""

           QUIT "("_OP1_"&"_OP2_")"

 +3       ;

OR(OP1,OP2) ;

 +1       ;

 +2        if '$LENGTH($GET(OP1))

               QUIT ""

           if '$LENGTH($GET(OP2))

               QUIT ""

           QUIT "("_OP1_"!"_OP2_")"

 +3       ;

NOT(OP1)  ;

 +1       ;

 +2        if '$LENGTH($GET(OP1))

               QUIT ""

           QUIT "'("_OP1_")"

 +3       ;

TRUE(OP1) ;

 +1       ;

 +2        if '$LENGTH($GET(OP1))

               QUIT ""

           QUIT "("_OP1_")"

 +3       ;

FALSE(OP1) ;

 +1       ;

 +2        if '$LENGTH($GET(OP1))

               QUIT ""

           QUIT "'("_OP1_")"

 +3       ;