| 1 | OCXOZ14 ;SLC/RJS,CLA - Order Check Scan ;SEP 4,2007 at 23:12
|
|---|
| 2 | ;;3.0;ORDER ENTRY/RESULTS REPORTING;**32,221**;Dec 17,1997
|
|---|
| 3 | ;; ;;ORDER CHECK EXPERT version 1.01 released OCT 29,1998
|
|---|
| 4 | ;
|
|---|
| 5 | ; ***************************************************************
|
|---|
| 6 | ; ** Warning: This routine is automatically generated by the **
|
|---|
| 7 | ; ** Rule Compiler (^OCXOCMP) and ANY changes to this routine **
|
|---|
| 8 | ; ** will be lost the next time the rule compiler executes. **
|
|---|
| 9 | ; ***************************************************************
|
|---|
| 10 | ;
|
|---|
| 11 | Q
|
|---|
| 12 | ;
|
|---|
| 13 | R71R1B ; Send Order Check, Notication messages and/or Execute code for Rule #71 'OPIOID MEDICATIONS' Relation #1 'OPIOID MED ORDER AND DUP OPIOID MEDS'
|
|---|
| 14 | ; Called from R71R1A+12^OCXOZ13.
|
|---|
| 15 | ;
|
|---|
| 16 | Q:$G(OCXOERR)
|
|---|
| 17 | ;
|
|---|
| 18 | ; Local Extrinsic Functions
|
|---|
| 19 | ; GETDATA( ---------> GET DATA FROM THE ACTIVE DATA FILE
|
|---|
| 20 | ;
|
|---|
| 21 | Q:$D(OCXRULE("R71R1B"))
|
|---|
| 22 | ;
|
|---|
| 23 | N OCXNMSG,OCXCMSG,OCXPORD,OCXFORD,OCXDATA,OCXNUM,OCXDUZ,OCXQUIT,OCXLOGS,OCXLOGD
|
|---|
| 24 | I ($G(OCXOSRC)="CPRS ORDER PRESCAN") S OCXCMSG=(+OCXPSD)_"^33^^Duplicate opioid medications: "_$$GETDATA(DFN,"138^139",158) I 1
|
|---|
| 25 | E S OCXCMSG="Duplicate opioid medications: "_$$GETDATA(DFN,"138^139",158)
|
|---|
| 26 | S OCXNMSG=""
|
|---|
| 27 | ;
|
|---|
| 28 | Q:$G(OCXOERR)
|
|---|
| 29 | ;
|
|---|
| 30 | ; Send Order Check Message
|
|---|
| 31 | ;
|
|---|
| 32 | S OCXOCMSG($O(OCXOCMSG(999999),-1)+1)=OCXCMSG
|
|---|
| 33 | Q
|
|---|
| 34 | ;
|
|---|
| 35 | GETDATA(DFN,OCXL,OCXDFI) ; This Local Extrinsic Function returns runtime data
|
|---|
| 36 | ;
|
|---|
| 37 | N OCXE,VAL,PC S VAL=""
|
|---|
| 38 | 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)
|
|---|
| 39 | Q VAL
|
|---|
| 40 | ;
|
|---|
