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

OCXOZ12.m

Go to the documentation of this file.
  1. OCXOZ12 ;SLC/RJS,CLA - Order Check Scan ;OCT 30,2024 at 12:49
  1. ;;3.0;ORDER ENTRY/RESULTS REPORTING;**32,221,243**;Dec 17,1997;Build 242
  1. ;; ;;ORDER CHECK EXPERT version 1.01 released OCT 29,1998
  1. ;
  1. ; ***************************************************************
  1. ; ** Warning: This routine is automatically generated by the **
  1. ; ** Rule Compiler (^OCXOCMP) and ANY changes to this routine **
  1. ; ** will be lost the next time the rule compiler executes. **
  1. ; ***************************************************************
  1. ;
  1. Q
  1. ;
  1. R73R2B ; Send Order Check, Notication messages and/or Execute code for Rule #73 'METFORMIN EGFR - LAB RESULTS' Relation #2 'METFORMIN ORDER AND NO METFORMIN EGFR'
  1. ; Called from R73R2A+12^OCXOZ11.
  1. ;
  1. Q:$G(OCXOERR)
  1. ;
  1. ; Local Extrinsic Functions
  1. ; GETDATA( ---------> GET DATA FROM THE ACTIVE DATA FILE
  1. ;
  1. Q:$D(OCXRULE("R73R2B"))
  1. ;
  1. N OCXNMSG,OCXCMSG,OCXPORD,OCXFORD,OCXDATA,OCXNUM,OCXDUZ,OCXQUIT,OCXLOGS,OCXLOGD
  1. I ($G(OCXOSRC)="CPRS ORDER PRESCAN") S OCXCMSG=(+OCXPSD)_"^100^^Metformin - no eGFR calculated within past "_$$GETDATA(DFN,"86^147",162)_" days." I 1
  1. E S OCXCMSG="Metformin - no eGFR calculated within past "_$$GETDATA(DFN,"86^147",162)_" days."
  1. S OCXNMSG=""
  1. ;
  1. Q:$G(OCXOERR)
  1. ;
  1. ; Send Order Check Message
  1. ;
  1. S OCXOCMSG($O(OCXOCMSG(999999),-1)+1)=OCXCMSG
  1. Q
  1. ;
  1. GETDATA(DFN,OCXL,OCXDFI) ; This Local Extrinsic Function returns runtime data
  1. ;
  1. N OCXE,VAL,PC S VAL=""
  1. 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)
  1. Q VAL
  1. ;