Changeset 623 for WorldVistAEHR/trunk/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/OCXOZ14.m

Timestamp:

Dec 4, 2009, 12:11:15 AM (14 years ago)

Author:

George Lilly

Message:

revised back to 6/30/08 version

File:

• WorldVistAEHR/trunk/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/OCXOZ14.m (modified) (1 diff)

WorldVistAEHR/trunk/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/OCXOZ14.m

@@ -1 @@
-OCXOZ14 ;SLC/RJS,CLA - Order Check Scan ;NOV 8,2009 at 18:44
-        ;;3.0;ORDER ENTRY/RESULTS REPORTING;**32,221,243**;Dec 17,1997;Build 242
-        ;;  ;;ORDER CHECK EXPERT version 1.01 released OCT 29,1998
-        ;
-        ; ***************************************************************
-        ; ** Warning: This routine is automatically generated by the   **
-        ; ** Rule Compiler (^OCXOCMP) and ANY changes to this routine  **
-        ; ** will be lost the next time the rule compiler executes.    **
-        ; ***************************************************************
-        ;
-        Q
-        ;
-R71R1B  ; Send Order Check, Notication messages and/or Execute code for  Rule #71 'OPIOID MEDICATIONS'  Relation #1 'OPIOID MED ORDER AND DUP OPIOID MEDS'
-        ;  Called from R71R1A+12^OCXOZ13.
-        ;
-        Q:$G(OCXOERR)
-        ;
-        ;      Local Extrinsic Functions
-        ; GETDATA( ---------> GET DATA FROM THE ACTIVE DATA FILE
-        ;
-        Q:$D(OCXRULE("R71R1B"))
-        ;
-        N OCXNMSG,OCXCMSG,OCXPORD,OCXFORD,OCXDATA,OCXNUM,OCXDUZ,OCXQUIT,OCXLOGS,OCXLOGD
-        I ($G(OCXOSRC)="CPRS ORDER PRESCAN") S OCXCMSG=(+OCXPSD)_"^33^^Duplicate opioid medications: "_$$GETDATA(DFN,"138^139",158) I 1
-        E  S OCXCMSG="Duplicate opioid medications: "_$$GETDATA(DFN,"138^139",158)
-        S OCXNMSG=""
-        ;
-        Q:$G(OCXOERR)
-        ;
-        ; Send Order Check Message
-        ;
-        S OCXOCMSG($O(OCXOCMSG(999999),-1)+1)=OCXCMSG
-        Q
-        ;
-GETDATA(DFN,OCXL,OCXDFI)        ;     This Local Extrinsic Function returns runtime data
-        ;
-        N OCXE,VAL,PC S VAL=""
-        F PC=1:1:$L(OCXL,U) S OCXE=$P(OCXL,U,PC) I OCXE S VAL=$G(^TMP("OCXCHK",$J,DFN,OCXE,OCXDFI)) Q:$L(VAL)
-        Q VAL
-        ;
+OCXOZ14 ;SLC/RJS,CLA - Order Check Scan ;DEC 27,2007 at 06:00
+ ;;3.0;ORDER ENTRY/RESULTS REPORTING;**32,221**;Dec 17,1997
+ ;;  ;;ORDER CHECK EXPERT version 1.01 released OCT 29,1998
+ ;
+ ; ***************************************************************
+ ; ** Warning: This routine is automatically generated by the   **
+ ; ** Rule Compiler (^OCXOCMP) and ANY changes to this routine  **
+ ; ** will be lost the next time the rule compiler executes.    **
+ ; ***************************************************************
+ ;
+ Q
+ ;
+R71R1B ; Send Order Check, Notication messages and/or Execute code for  Rule #71 'OPIOID MEDICATIONS'  Relation #1 'OPIOID MED ORDER AND DUP OPIOID MEDS'
+ ;  Called from R71R1A+12^OCXOZ13.
+ ;
+ Q:$G(OCXOERR)
+ ;
+ ;      Local Extrinsic Functions
+ ; GETDATA( ---------> GET DATA FROM THE ACTIVE DATA FILE
+ ;
+ Q:$D(OCXRULE("R71R1B"))
+ ;
+ N OCXNMSG,OCXCMSG,OCXPORD,OCXFORD,OCXDATA,OCXNUM,OCXDUZ,OCXQUIT,OCXLOGS,OCXLOGD
+ I ($G(OCXOSRC)="CPRS ORDER PRESCAN") S OCXCMSG=(+OCXPSD)_"^33^^Duplicate opioid medications: "_$$GETDATA(DFN,"138^139",158) I 1
+ E  S OCXCMSG="Duplicate opioid medications: "_$$GETDATA(DFN,"138^139",158)
+ S OCXNMSG=""
+ ;
+ Q:$G(OCXOERR)
+ ;
+ ; Send Order Check Message
+ ;
+ S OCXOCMSG($O(OCXOCMSG(999999),-1)+1)=OCXCMSG
+ Q
+ ;
+GETDATA(DFN,OCXL,OCXDFI) ;     This Local Extrinsic Function returns runtime data
+ ;
+ N OCXE,VAL,PC S VAL=""
+ F PC=1:1:$L(OCXL,U) S OCXE=$P(OCXL,U,PC) I OCXE S VAL=$G(^TMP("OCXCHK",$J,DFN,OCXE,OCXDFI)) Q:$L(VAL)
+ Q VAL
+ ;