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 ;JAN 28,2014 at 03:37
  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. R68R1A ; Verify all Event/Elements of  Rule #68 'DANGEROUS MEDS OVER AGE 64'  Relation #1 'MED ORDER FOR PT > 64 AND AMITRIPTYLINE'
  1.  ;  Called from EL122+5^OCXOZ0I, and EL125+5^OCXOZ0I.
  1.  ;
  1.  Q:$G(OCXOERR)
  1.  ;
  1.  ;      Local Extrinsic Functions
  1.  ; MCE122( ---------->  Verify Event/Element: 'AMITRIPTYLINE ORDER'
  1.  ; MCE125( ---------->  Verify Event/Element: 'MED ORDER FOR PT > 64'
  1.  ;
  1.  Q:$G(^OCXS(860.2,68,"INACT"))
  1.  ;
  1.  I $$MCE125 D 
  1.  .I $$MCE122 D R68R1B
  1.  Q
  1.  ;
  1. R68R1B ; Send Order Check, Notication messages and/or Execute code for  Rule #68 'DANGEROUS MEDS OVER AGE 64'  Relation #1 'MED ORDER FOR PT > 64 AND AMITRIPTYLINE'
  1.  ;  Called from R68R1A+12.
  1.  ;
  1.  Q:$G(OCXOERR)
  1.  ;
  1.  ;      Local Extrinsic Functions
  1.  ; GETDATA( ---------> GET DATA FROM THE ACTIVE DATA FILE
  1.  ;
  1.  Q:$D(OCXRULE("R68R1B"))
  1.  ;
  1.  N OCXNMSG,OCXCMSG,OCXPORD,OCXFORD,OCXDATA,OCXNUM,OCXDUZ,OCXQUIT,OCXLOGS,OCXLOGD
  1.  I ($G(OCXOSRC)="CPRS ORDER PRESCAN") S OCXCMSG=(+OCXPSD)_"^30^^Patient is "_$$GETDATA(DFN,"122^125",62)_". "_$$GETDATA(DFN,"122^125",141) I 1
  1.  E  S OCXCMSG="Patient is "_$$GETDATA(DFN,"122^125",62)_". "_$$GETDATA(DFN,"122^125",141)
  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. R68R2A ; Verify all Event/Elements of  Rule #68 'DANGEROUS MEDS OVER AGE 64'  Relation #2 'MED ORDER FOR PT > 64 AND CHLORPROPAMIDE'
  1.  ;  Called from EL125+6^OCXOZ0I, and EL123+5^OCXOZ0I.
  1.  ;
  1.  Q:$G(OCXOERR)
  1.  ;
  1.  ;      Local Extrinsic Functions
  1.  ; MCE123( ---------->  Verify Event/Element: 'CHLORPROPAMIDE ORDER'
  1.  ; MCE125( ---------->  Verify Event/Element: 'MED ORDER FOR PT > 64'
  1.  ;
  1.  Q:$G(^OCXS(860.2,68,"INACT"))
  1.  ;
  1.  I $$MCE125 D 
  1.  .I $$MCE123 D R68R2B
  1.  Q
  1.  ;
  1. R68R2B ; Send Order Check, Notication messages and/or Execute code for  Rule #68 'DANGEROUS MEDS OVER AGE 64'  Relation #2 'MED ORDER FOR PT > 64 AND CHLORPROPAMIDE'
  1.  ;  Called from R68R2A+12.
  1.  ;
  1.  Q:$G(OCXOERR)
  1.  ;
  1.  ;      Local Extrinsic Functions
  1.  ; GETDATA( ---------> GET DATA FROM THE ACTIVE DATA FILE
  1.  ;
  1.  Q:$D(OCXRULE("R68R2B"))
  1.  ;
  1.  N OCXNMSG,OCXCMSG,OCXPORD,OCXFORD,OCXDATA,OCXNUM,OCXDUZ,OCXQUIT,OCXLOGS,OCXLOGD
  1.  I ($G(OCXOSRC)="CPRS ORDER PRESCAN") S OCXCMSG=(+OCXPSD)_"^30^^Patient is "_$$GETDATA(DFN,"123^125",62)_". "_$$GETDATA(DFN,"123^125",142) I 1
  1.  E  S OCXCMSG="Patient is "_$$GETDATA(DFN,"123^125",62)_". "_$$GETDATA(DFN,"123^125",142)
  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. R68R3A ; Verify all Event/Elements of  Rule #68 'DANGEROUS MEDS OVER AGE 64'  Relation #3 'MED ORDER FOR PT > 64 AND DIPYRIDAMOLE'
  1.  ;  Called from EL125+7^OCXOZ0I, and EL124+5^OCXOZ0I.
  1.  ;
  1.  Q:$G(OCXOERR)
  1.  ;
  1.  ;      Local Extrinsic Functions
  1.  ; MCE124( ---------->  Verify Event/Element: 'DIPYRIDAMOLE ORDER'
  1.  ; MCE125( ---------->  Verify Event/Element: 'MED ORDER FOR PT > 64'
  1.  ;
  1.  Q:$G(^OCXS(860.2,68,"INACT"))
  1.  ;
  1.  I $$MCE125 D 
  1.  .I $$MCE124 D R68R3B
  1.  Q
  1.  ;
  1. R68R3B ; Send Order Check, Notication messages and/or Execute code for  Rule #68 'DANGEROUS MEDS OVER AGE 64'  Relation #3 'MED ORDER FOR PT > 64 AND DIPYRIDAMOLE'
  1.  ;  Called from R68R3A+12.
  1.  ;
  1.  Q:$G(OCXOERR)
  1.  ;
  1.  ;      Local Extrinsic Functions
  1.  ; GETDATA( ---------> GET DATA FROM THE ACTIVE DATA FILE
  1.  ;
  1.  Q:$D(OCXRULE("R68R3B"))
  1.  ;
  1.  N OCXNMSG,OCXCMSG,OCXPORD,OCXFORD,OCXDATA,OCXNUM,OCXDUZ,OCXQUIT,OCXLOGS,OCXLOGD
  1.  I ($G(OCXOSRC)="CPRS ORDER PRESCAN") S OCXCMSG=(+OCXPSD)_"^30^^Patient is "_$$GETDATA(DFN,"124^125",62)_".  "_$$GETDATA(DFN,"124^125",144) I 1
  1.  E  S OCXCMSG="Patient is "_$$GETDATA(DFN,"124^125",62)_".  "_$$GETDATA(DFN,"124^125",144)
  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. R69R1A ; Verify all Event/Elements of  Rule #69 'LAB THRESHOLD'  Relation #1 'IF HL7 LAB RESULTS AND (GREATER THAN THRESHOLD VAL...'
  1.  ;  Called from EL5+7^OCXOZ0G, and EL131+5^OCXOZ0I, and EL132+5^OCXOZ0I.
  1.  ;
  1.  Q:$G(OCXOERR)
  1.  ;
  1.  ;      Local Extrinsic Functions
  1.  ; MCE131( ---------->  Verify Event/Element: 'GREATER THAN LAB THRESHOLD'
  1.  ; MCE132( ---------->  Verify Event/Element: 'LESS THAN LAB THRESHOLD'
  1.  ; MCE5( ------------>  Verify Event/Element: 'HL7 FINAL LAB RESULT'
  1.  ;
  1.  Q:$G(^OCXS(860.2,69,"INACT"))
  1.  ;
  1.  I $$MCE5 D 
  1.  .I $$MCE131 D R69R1B^OCXOZ13
  1.  .I $$MCE132 D R69R1B^OCXOZ13
  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.  ;
  1. MCE122() ; Verify Event/Element: AMITRIPTYLINE ORDER
  1.  ;
  1.  ;  OCXDF(37) -> PATIENT IEN data field
  1.  ;
  1.  N OCXRES
  1.  S OCXDF(37)=$G(DFN) I $L(OCXDF(37)) S OCXRES(122,37)=OCXDF(37)
  1.  Q:'(OCXDF(37)) 0 I $D(^TMP("OCXCHK",$J,OCXDF(37),122)) Q $G(^TMP("OCXCHK",$J,OCXDF(37),122))
  1.  Q 0
  1.  ;
  1. MCE123() ; Verify Event/Element: CHLORPROPAMIDE ORDER
  1.  ;
  1.  ;  OCXDF(37) -> PATIENT IEN data field
  1.  ;
  1.  N OCXRES
  1.  S OCXDF(37)=$G(DFN) I $L(OCXDF(37)) S OCXRES(123,37)=OCXDF(37)
  1.  Q:'(OCXDF(37)) 0 I $D(^TMP("OCXCHK",$J,OCXDF(37),123)) Q $G(^TMP("OCXCHK",$J,OCXDF(37),123))
  1.  Q 0
  1.  ;
  1. MCE124() ; Verify Event/Element: DIPYRIDAMOLE ORDER
  1.  ;
  1.  ;  OCXDF(37) -> PATIENT IEN data field
  1.  ;
  1.  N OCXRES
  1.  S OCXDF(37)=$G(DFN) I $L(OCXDF(37)) S OCXRES(124,37)=OCXDF(37)
  1.  Q:'(OCXDF(37)) 0 I $D(^TMP("OCXCHK",$J,OCXDF(37),124)) Q $G(^TMP("OCXCHK",$J,OCXDF(37),124))
  1.  Q 0
  1.  ;
  1. MCE125() ; Verify Event/Element: MED ORDER FOR PT > 64
  1.  ;
  1.  ;  OCXDF(37) -> PATIENT IEN data field
  1.  ;
  1.  N OCXRES
  1.  S OCXDF(37)=$G(DFN) I $L(OCXDF(37)) S OCXRES(125,37)=OCXDF(37)
  1.  Q:'(OCXDF(37)) 0 I $D(^TMP("OCXCHK",$J,OCXDF(37),125)) Q $G(^TMP("OCXCHK",$J,OCXDF(37),125))
  1.  Q 0
  1.  ;
  1. MCE131() ; Verify Event/Element: GREATER THAN LAB THRESHOLD
  1.  ;
  1.  ;
  1.  N OCXRES
  1.  I $L(OCXDF(37)) S OCXRES(131,37)=OCXDF(37)
  1.  Q:'(OCXDF(37)) 0 I $D(^TMP("OCXCHK",$J,OCXDF(37),131)) Q $G(^TMP("OCXCHK",$J,OCXDF(37),131))
  1.  Q 0
  1.  ;
  1. MCE132() ; Verify Event/Element: LESS THAN LAB THRESHOLD
  1.  ;
  1.  ;
  1.  N OCXRES
  1.  I $L(OCXDF(37)) S OCXRES(132,37)=OCXDF(37)
  1.  Q:'(OCXDF(37)) 0 I $D(^TMP("OCXCHK",$J,OCXDF(37),132)) Q $G(^TMP("OCXCHK",$J,OCXDF(37),132))
  1.  Q 0
  1.  ;
  1. MCE5() ; Verify Event/Element: HL7 FINAL LAB RESULT
  1.  ;
  1.  ;
  1.  N OCXRES
  1.  I $L(OCXDF(37)) S OCXRES(5,37)=OCXDF(37)
  1.  Q:'(OCXDF(37)) 0 I $D(^TMP("OCXCHK",$J,OCXDF(37),5)) Q $G(^TMP("OCXCHK",$J,OCXDF(37),5))
  1.  Q 0
  1.  ;