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

OCXOZ0H.m

Go to the documentation of this file. 
  1. OCXOZ0H ;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. EL118 ; Examine every rule that involves Element #118 [CLOZAPINE NO WBC W/IN 7 DAYS]
  1.  ;  Called from SCAN+9^OCXOZ01.
  1.  ;
  1.  Q:$G(OCXOERR)
  1.  ;
  1.  D R57R1A^OCXOZ0U   ; Check Relation #1 in Rule #57 'CLOZAPINE'
  1.  Q
  1.  ;
  1. EL144 ; Examine every rule that involves Element #144 [CLOZAPINE ANC < 1.0]
  1.  ;  Called from SCAN+9^OCXOZ01.
  1.  ;
  1.  Q:$G(OCXOERR)
  1.  ;
  1.  D R57R2A^OCXOZ0V   ; Check Relation #2 in Rule #57 'CLOZAPINE'
  1.  Q
  1.  ;
  1. EL145 ; Examine every rule that involves Element #145 [CLOZAPINE ANC >= 1.0 & < 1.5]
  1.  ;  Called from SCAN+9^OCXOZ01.
  1.  ;
  1.  Q:$G(OCXOERR)
  1.  ;
  1.  D R57R3A^OCXOZ0V   ; Check Relation #3 in Rule #57 'CLOZAPINE'
  1.  Q
  1.  ;
  1. EL71 ; Examine every rule that involves Element #71 [AMINOGLYCOSIDE ORDER SESSION]
  1.  ;  Called from SCAN+9^OCXOZ01.
  1.  ;
  1.  Q:$G(OCXOERR)
  1.  ;
  1.  D R59R1A^OCXOZ0V   ; Check Relation #1 in Rule #59 'AMINOGLYCOSIDE ORDER'
  1.  Q
  1.  ;
  1. EL72 ; Examine every rule that involves Element #72 [PATIENT OVER CT OR MRI DEVICE LIMITATIONS]
  1.  ;  Called from SCAN+9^OCXOZ01.
  1.  ;
  1.  Q:$G(OCXOERR)
  1.  ;
  1.  D R60R1A^OCXOZ0V   ; Check Relation #1 in Rule #60 'CT OR MRI PHYSICAL LIMIT CHECK'
  1.  Q
  1.  ;
  1. EL73 ; Examine every rule that involves Element #73 [CREATININE CLEARANCE ESTIMATE]
  1.  ;  Called from SCAN+9^OCXOZ01.
  1.  ;
  1.  Q:$G(OCXOERR)
  1.  ;
  1.  D R61R1A^OCXOZ0W   ; Check Relation #1 in Rule #61 'CREATININE CLEARANCE ESTIMATION'
  1.  Q
  1.  ;
  1. EL96 ; Examine every rule that involves Element #96 [CREATININE CLEARANCE DATE/TIME]
  1.  ;  Called from SCAN+9^OCXOZ01.
  1.  ;
  1.  Q:$G(OCXOERR)
  1.  ;
  1.  D R61R1A^OCXOZ0W   ; Check Relation #1 in Rule #61 'CREATININE CLEARANCE ESTIMATION'
  1.  Q
  1.  ;
  1. EL97 ; Examine every rule that involves Element #97 [RENAL RESULTS]
  1.  ;  Called from SCAN+9^OCXOZ01.
  1.  ;
  1.  Q:$G(OCXOERR)
  1.  ;
  1.  D R61R1A^OCXOZ0W   ; Check Relation #1 in Rule #61 'CREATININE CLEARANCE ESTIMATION'
  1.  Q
  1.  ;
  1. EL84 ; Examine every rule that involves Element #84 [INPATIENT FOOD-DRUG REACTION]
  1.  ;  Called from SCAN+9^OCXOZ01.
  1.  ;
  1.  Q:$G(OCXOERR)
  1.  ;
  1.  D R62R1A^OCXOZ0X   ; Check Relation #1 in Rule #62 'FOOD/DRUG INTERACTION'
  1.  Q
  1.  ;
  1. EL91 ; Examine every rule that involves Element #91 [PATIENT WITH GLUCOPHAGE MED]
  1.  ;  Called from SCAN+9^OCXOZ01.
  1.  ;
  1.  Q:$G(OCXOERR)
  1.  ;
  1.  D R63R1A^OCXOZ0X   ; Check Relation #1 in Rule #63 'GLUCOPHAGE - CONTRAST MEDIA'
  1.  Q
  1.  ;
  1. EL106 ; Examine every rule that involves Element #106 [RADIOLOGY PROCEDURE CONTAINS NON-BARIUM CONTRAST MEDIA]
  1.  ;  Called from SCAN+9^OCXOZ01.
  1.  ;
  1.  Q:$G(OCXOERR)
  1.  ;
  1.  D R63R1A^OCXOZ0X   ; Check Relation #1 in Rule #63 'GLUCOPHAGE - CONTRAST MEDIA'
  1.  Q
  1.  ;
  1. EL95 ; Examine every rule that involves Element #95 [POLYPHARMACY]
  1.  ;  Called from SCAN+9^OCXOZ01.
  1.  ;
  1.  Q:$G(OCXOERR)
  1.  ;
  1.  D R65R1A^OCXOZ0X   ; Check Relation #1 in Rule #65 'POLYPHARMACY'
  1.  Q
  1.  ;
  1. EL122 ; Examine every rule that involves Element #122 [AMITRIPTYLINE ORDER]
  1.  ;  Called from SCAN+9^OCXOZ01.
  1.  ;
  1.  Q:$G(OCXOERR)
  1.  ;
  1.  D R68R1A^OCXOZ0Y   ; Check Relation #1 in Rule #68 'DANGEROUS MEDS OVER AGE 64'
  1.  Q
  1.  ;
  1. EL125 ; Examine every rule that involves Element #125 [MED ORDER FOR PT > 64]
  1.  ;  Called from SCAN+9^OCXOZ01.
  1.  ;
  1.  Q:$G(OCXOERR)
  1.  ;
  1.  D R68R1A^OCXOZ0Y   ; Check Relation #1 in Rule #68 'DANGEROUS MEDS OVER AGE 64'
  1.  D R68R2A^OCXOZ0Y   ; Check Relation #2 in Rule #68 'DANGEROUS MEDS OVER AGE 64'
  1.  D R68R3A^OCXOZ0Y   ; Check Relation #3 in Rule #68 'DANGEROUS MEDS OVER AGE 64'
  1.  Q
  1.  ;
  1. EL123 ; Examine every rule that involves Element #123 [CHLORPROPAMIDE ORDER]
  1.  ;  Called from SCAN+9^OCXOZ01.
  1.  ;
  1.  Q:$G(OCXOERR)
  1.  ;
  1.  D R68R2A^OCXOZ0Y   ; Check Relation #2 in Rule #68 'DANGEROUS MEDS OVER AGE 64'
  1.  Q
  1.  ;
  1. EL124 ; Examine every rule that involves Element #124 [DIPYRIDAMOLE ORDER]
  1.  ;  Called from SCAN+9^OCXOZ01.
  1.  ;
  1.  Q:$G(OCXOERR)
  1.  ;
  1.  D R68R3A^OCXOZ0Y   ; Check Relation #3 in Rule #68 'DANGEROUS MEDS OVER AGE 64'
  1.  Q
  1.  ;
  1. EL131 ; Examine every rule that involves Element #131 [GREATER THAN LAB THRESHOLD]
  1.  ;  Called from SCAN+9^OCXOZ01.
  1.  ;
  1.  Q:$G(OCXOERR)
  1.  ;
  1.  D R69R1A^OCXOZ0Z   ; Check Relation #1 in Rule #69 'LAB THRESHOLD'
  1.  Q
  1.  ;
  1. EL132 ; Examine every rule that involves Element #132 [LESS THAN LAB THRESHOLD]
  1.  ;  Called from SCAN+9^OCXOZ01.
  1.  ;
  1.  Q:$G(OCXOERR)
  1.  ;
  1.  D R69R1A^OCXOZ0Z   ; Check Relation #1 in Rule #69 'LAB THRESHOLD'
  1.  Q
  1.  ;
  1. EL28 ; Examine every rule that involves Element #28 [RADIOLOGY ORDER]
  1.  ;  Called from SCAN+9^OCXOZ01.
  1.  ;
  1.  Q:$G(OCXOERR)
  1.  ;
  1.  D R70R1A^OCXOZ0Z   ; Check Relation #1 in Rule #70 'NO ALLERGY ASSESSMENT'
  1.  Q
  1.  ;
  1. EL135 ; Examine every rule that involves Element #135 [DIET ORDER]
  1.  ;  Called from SCAN+9^OCXOZ01.
  1.  ;
  1.  Q:$G(OCXOERR)
  1.  ;
  1.  D R70R1A^OCXOZ0Z   ; Check Relation #1 in Rule #70 'NO ALLERGY ASSESSMENT'
  1.  Q
  1.  ;
  1. EL136 ; Examine every rule that involves Element #136 [NO ALLERGY ASSESSMENT]
  1.  ;  Called from SCAN+9^OCXOZ01.
  1.  ;
  1.  Q:$G(OCXOERR)
  1.  ;
  1.  D R70R1A^OCXOZ0Z   ; Check Relation #1 in Rule #70 'NO ALLERGY ASSESSMENT'
  1.  Q
  1.  ;
  1. EL137 ; Examine every rule that involves Element #137 [PHARMACY ORDER]
  1.  ;  Called from SCAN+9^OCXOZ01.
  1.  ;
  1.  Q:$G(OCXOERR)
  1.  ;
  1.  D R70R1A^OCXOZ0Z   ; Check Relation #1 in Rule #70 'NO ALLERGY ASSESSMENT'
  1.  Q
  1.  ;
  1. EL138 ; Examine every rule that involves Element #138 [DUP OPIOID MEDS]
  1.  ;  Called from SCAN+9^OCXOZ01.
  1.  ;
  1.  Q:$G(OCXOERR)
  1.  ;
  1.  D R71R1A^OCXOZ10   ; Check Relation #1 in Rule #71 'OPIOID MEDICATIONS'
  1.  Q
  1.  ;
  1. EL139 ; Examine every rule that involves Element #139 [OPIOID MED ORDER]
  1.  ;  Called from SCAN+9^OCXOZ01.
  1.  ;
  1.  Q:$G(OCXOERR)
  1.  ;
  1.  D R71R1A^OCXOZ10   ; Check Relation #1 in Rule #71 'OPIOID MEDICATIONS'
  1.  Q
  1.  ;
  1. EL142 ; Examine every rule that involves Element #142 [HL7 PHARMACY DCED ORDER]
  1.  ;  Called from SCAN+9^OCXOZ01.
  1.  ;
  1.  Q:$G(OCXOERR)
  1.  ;
  1.  D R72R1A^OCXOZ10   ; Check Relation #1 in Rule #72 'AUTO DCED CONTROLLED SUBSTANCE ORDERS'
  1.  D R72R2A^OCXOZ10   ; Check Relation #2 in Rule #72 'AUTO DCED CONTROLLED SUBSTANCE ORDERS'
  1.  Q
  1.  ;
  1. EL143 ; Examine every rule that involves Element #143 [HL7 PHARMACY HASH MISMATCH]
  1.  ;  Called from SCAN+9^OCXOZ01.
  1.  ;
  1.  Q:$G(OCXOERR)
  1.  ;
  1.  D R72R1A^OCXOZ10   ; Check Relation #1 in Rule #72 'AUTO DCED CONTROLLED SUBSTANCE ORDERS'
  1.  Q
  1.  ;
  1. EL141 ; Examine every rule that involves Element #141 [HL7 DEA CERT REVOKED]
  1.  ;  Called from SCAN+9^OCXOZ01.
  1.  ;
  1.  Q:$G(OCXOERR)
  1.  ;
  1.  D R72R2A^OCXOZ10   ; Check Relation #2 in Rule #72 'AUTO DCED CONTROLLED SUBSTANCE ORDERS'
  1.  Q
  1.  ;
  1. EL86 ; Examine every rule that involves Element #86 [METFORMIN ORDER]
  1.  ;  Called from SCAN+9^OCXOZ01.
  1.  ;
  1.  Q:$G(OCXOERR)
  1.  ;
  1.  D R73R1A^OCXOZ11   ; Check Relation #1 in Rule #73 'METFORMIN EGFR - LAB RESULTS'
  1.  D R73R2A^OCXOZ11   ; Check Relation #2 in Rule #73 'METFORMIN EGFR - LAB RESULTS'
  1.  Q
  1.  ;
  1. EL146 ; Examine every rule that involves Element #146 [METFORMIN EGFR < 45]
  1.  ;  Called from SCAN+9^OCXOZ01.
  1.  ;
  1.  Q:$G(OCXOERR)
  1.  ;
  1.  D R73R1A^OCXOZ11   ; Check Relation #1 in Rule #73 'METFORMIN EGFR - LAB RESULTS'
  1.  Q
  1.  ;
  1. EL147 ; Examine every rule that involves Element #147 [NO METFORMIN EGFR]
  1.  ;  Called from SCAN+9^OCXOZ01.
  1.  ;
  1.  Q:$G(OCXOERR)
  1.  ;
  1.  D R73R2A^OCXOZ11   ; Check Relation #2 in Rule #73 'METFORMIN EGFR - LAB RESULTS'
  1.  Q
  1.  ;
  1. R3R1A ; Verify all Event/Elements of  Rule #3 'CRITICAL LAB RESULTS'  Relation #1 'CRITICAL LAB TEST'
  1.  ;  Called from EL24+5^OCXOZ0F.
  1.  ;
  1.  Q:$G(OCXOERR)
  1.  ;
  1.  ;      Local Extrinsic Functions
  1.  ; MCE24( ----------->  Verify Event/Element: 'HL7 LAB TEST RESULTS CRITICAL'
  1.  ;
  1.  Q:$G(^OCXS(860.2,3,"INACT"))
  1.  ;
  1.  I $$MCE24 D R3R1B^OCXOZ0I
  1.  Q
  1.  ;
  1. MCE24() ; Verify Event/Element: HL7 LAB TEST RESULTS CRITICAL
  1.  ;
  1.  ;
  1.  N OCXRES
  1.  I $L(OCXDF(37)) S OCXRES(24,37)=OCXDF(37)
  1.  Q:'(OCXDF(37)) 0 I $D(^TMP("OCXCHK",$J,OCXDF(37),24)) Q $G(^TMP("OCXCHK",$J,OCXDF(37),24))
  1.  Q 0
  1.  ;