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 ;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. EL142 ; Examine every rule that involves Element #142 [NO SS REFILL REQUEST]
  1.  ;  Called from SCAN+9^OCXOZ01.
  1.  ;
  1.  Q:$G(OCXOERR)
  1.  ;
  1.  D R44R1A^OCXOZ0R   ; Check Relation #1 in Rule #44 'ORDER REQUIRES ELECTRONIC SIGNATURE'
  1.  Q
  1.  ;
  1. EL143 ; Examine every rule that involves Element #143 [SS REFILL REQUEST]
  1.  ;  Called from SCAN+9^OCXOZ01.
  1.  ;
  1.  Q:$G(OCXOERR)
  1.  ;
  1.  D R44R2A^OCXOZ0S   ; Check Relation #2 in Rule #44 'ORDER REQUIRES ELECTRONIC SIGNATURE'
  1.  Q
  1.  ;
  1. EL58 ; Examine every rule that involves Element #58 [NEW SITE FLAGGED ORDER]
  1.  ;  Called from SCAN+9^OCXOZ01.
  1.  ;
  1.  Q:$G(OCXOERR)
  1.  ;
  1.  D R48R1A^OCXOZ0S   ; Check Relation #1 in Rule #48 'SITE FLAGGED ORDER'
  1.  D R48R2A^OCXOZ0T   ; Check Relation #2 in Rule #48 'SITE FLAGGED ORDER'
  1.  Q
  1.  ;
  1. EL127 ; Examine every rule that involves Element #127 [INPATIENT]
  1.  ;  Called from SCAN+9^OCXOZ01.
  1.  ;
  1.  Q:$G(OCXOERR)
  1.  ;
  1.  D R48R1A^OCXOZ0S   ; Check Relation #1 in Rule #48 'SITE FLAGGED ORDER'
  1.  D R49R1A^OCXOZ0U   ; Check Relation #1 in Rule #49 'SITE FLAGGED RESULT'
  1.  Q
  1.  ;
  1. EL128 ; Examine every rule that involves Element #128 [OUTPATIENT]
  1.  ;  Called from SCAN+9^OCXOZ01.
  1.  ;
  1.  Q:$G(OCXOERR)
  1.  ;
  1.  D R48R2A^OCXOZ0T   ; Check Relation #2 in Rule #48 'SITE FLAGGED ORDER'
  1.  D R49R2A^OCXOZ0U   ; Check Relation #2 in Rule #49 'SITE FLAGGED RESULT'
  1.  Q
  1.  ;
  1. EL59 ; Examine every rule that involves Element #59 [SITE FLAGGED FINAL LAB RESULT]
  1.  ;  Called from SCAN+9^OCXOZ01.
  1.  ;
  1.  Q:$G(OCXOERR)
  1.  ;
  1.  D R49R1A^OCXOZ0U   ; Check Relation #1 in Rule #49 'SITE FLAGGED RESULT'
  1.  D R49R2A^OCXOZ0U   ; Check Relation #2 in Rule #49 'SITE FLAGGED RESULT'
  1.  Q
  1.  ;
  1. EL102 ; Examine every rule that involves Element #102 [SITE FLAGGED FINAL IMAGING RESULT]
  1.  ;  Called from SCAN+9^OCXOZ01.
  1.  ;
  1.  Q:$G(OCXOERR)
  1.  ;
  1.  D R49R1A^OCXOZ0U   ; Check Relation #1 in Rule #49 'SITE FLAGGED RESULT'
  1.  D R49R2A^OCXOZ0U   ; Check Relation #2 in Rule #49 'SITE FLAGGED RESULT'
  1.  Q
  1.  ;
  1. EL109 ; Examine every rule that involves Element #109 [SITE FLAGGED FINAL CONSULT RESULT]
  1.  ;  Called from SCAN+9^OCXOZ01.
  1.  ;
  1.  Q:$G(OCXOERR)
  1.  ;
  1.  D R49R1A^OCXOZ0U   ; Check Relation #1 in Rule #49 'SITE FLAGGED RESULT'
  1.  D R49R2A^OCXOZ0U   ; Check Relation #2 in Rule #49 'SITE FLAGGED RESULT'
  1.  Q
  1.  ;
  1. EL129 ; Examine every rule that involves Element #129 [ABNORMAL RENAL RESULTS]
  1.  ;  Called from SCAN+9^OCXOZ01.
  1.  ;
  1.  Q:$G(OCXOERR)
  1.  ;
  1.  D R50R1A^OCXOZ0V   ; Check Relation #1 in Rule #50 'BIOCHEM ABNORMALITIES/CONTRAST MEDIA CHECK'
  1.  Q
  1.  ;
  1. EL130 ; Examine every rule that involves Element #130 [CONTRAST MEDIA ORDER]
  1.  ;  Called from SCAN+9^OCXOZ01.
  1.  ;
  1.  Q:$G(OCXOERR)
  1.  ;
  1.  D R50R1A^OCXOZ0V   ; Check Relation #1 in Rule #50 'BIOCHEM ABNORMALITIES/CONTRAST MEDIA CHECK'
  1.  D R50R2A^OCXOZ0V   ; Check Relation #2 in Rule #50 'BIOCHEM ABNORMALITIES/CONTRAST MEDIA CHECK'
  1.  Q
  1.  ;
  1. EL133 ; Examine every rule that involves Element #133 [NO CREAT RESULTS W/IN X DAYS]
  1.  ;  Called from SCAN+9^OCXOZ01.
  1.  ;
  1.  Q:$G(OCXOERR)
  1.  ;
  1.  D R50R2A^OCXOZ0V   ; Check Relation #2 in Rule #50 'BIOCHEM ABNORMALITIES/CONTRAST MEDIA CHECK'
  1.  Q
  1.  ;
  1. EL63 ; Examine every rule that involves Element #63 [PATIENT HAS RECENT CHOLECYSTOGRAM]
  1.  ;  Called from SCAN+9^OCXOZ01.
  1.  ;
  1.  Q:$G(OCXOERR)
  1.  ;
  1.  D R51R1A^OCXOZ0W   ; Check Relation #1 in Rule #51 'RECENT CHOLECYSTOGRAM ORDER'
  1.  Q
  1.  ;
  1. EL64 ; Examine every rule that involves Element #64 [PHARMACY PATIENT OVER 65]
  1.  ;  Called from SCAN+9^OCXOZ01.
  1.  ;
  1.  Q:$G(OCXOERR)
  1.  ;
  1.  D R53R1A^OCXOZ0W   ; Check Relation #1 in Rule #53 'RENAL FUNCTIONS OVER AGE 65 CHECK'
  1.  Q
  1.  ;
  1. EL65 ; Examine every rule that involves Element #65 [SESSION ORDER FOR ANGIOGRAM]
  1.  ;  Called from SCAN+9^OCXOZ01.
  1.  ;
  1.  Q:$G(OCXOERR)
  1.  ;
  1.  D R54R1A^OCXOZ0W   ; Check Relation #1 in Rule #54 'CONCURRENT LAB ORDERS FOR ANGIOGRAM, CATH - PERIPHERAL'
  1.  Q
  1.  ;
  1. EL66 ; Examine every rule that involves Element #66 [CONTRAST MEDIA ALLERGY]
  1.  ;  Called from SCAN+9^OCXOZ01.
  1.  ;
  1.  Q:$G(OCXOERR)
  1.  ;
  1.  D R55R1A^OCXOZ0W   ; Check Relation #1 in Rule #55 'ALLERGY - CONTRAST MEDIA REACTION'
  1.  Q
  1.  ;
  1. EL67 ; Examine every rule that involves Element #67 [RECENT BARIUM STUDY ORDERED]
  1.  ;  Called from SCAN+9^OCXOZ01.
  1.  ;
  1.  Q:$G(OCXOERR)
  1.  ;
  1.  D R56R1A^OCXOZ0W   ; Check Relation #1 in Rule #56 'RECENT BARIUM STUDY'
  1.  Q
  1.  ;
  1. EL116 ; Examine every rule that involves Element #116 [CLOZAPINE DRUG SELECTED]
  1.  ;  Called from SCAN+9^OCXOZ01.
  1.  ;
  1.  Q:$G(OCXOERR)
  1.  ;
  1.  D R57R1A^OCXOZ0W   ; Check Relation #1 in Rule #57 'CLOZAPINE'
  1.  D R57R2A^OCXOZ0X   ; Check Relation #2 in Rule #57 'CLOZAPINE'
  1.  D R57R3A^OCXOZ0X   ; Check Relation #3 in Rule #57 'CLOZAPINE'
  1.  D R57R4A^OCXOZ0X   ; Check Relation #4 in Rule #57 'CLOZAPINE'
  1.  Q
  1.  ;
  1. EL117 ; Examine every rule that involves Element #117 [CLOZAPINE NO ANC W/IN 7 DAYS]
  1.  ;  Called from SCAN+9^OCXOZ01.
  1.  ;
  1.  Q:$G(OCXOERR)
  1.  ;
  1.  D R57R1A^OCXOZ0W   ; Check Relation #1 in Rule #57 'CLOZAPINE'
  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^OCXOZ0W   ; Check Relation #1 in Rule #57 'CLOZAPINE'
  1.  Q
  1.  ;
  1. EL114 ; Examine every rule that involves Element #114 [CLOZAPINE ANC < 1.5]
  1.  ;  Called from SCAN+9^OCXOZ01.
  1.  ;
  1.  Q:$G(OCXOERR)
  1.  ;
  1.  D R57R2A^OCXOZ0X   ; Check Relation #2 in Rule #57 'CLOZAPINE'
  1.  Q
  1.  ;
  1. EL119 ; Examine every rule that involves Element #119 [CLOZAPINE WBC < 3.0]
  1.  ;  Called from SCAN+9^OCXOZ01.
  1.  ;
  1.  Q:$G(OCXOERR)
  1.  ;
  1.  D R57R2A^OCXOZ0X   ; Check Relation #2 in Rule #57 'CLOZAPINE'
  1.  Q
  1.  ;
  1. EL115 ; Examine every rule that involves Element #115 [CLOZAPINE ANC >= 1.5]
  1.  ;  Called from SCAN+9^OCXOZ01.
  1.  ;
  1.  Q:$G(OCXOERR)
  1.  ;
  1.  D R57R3A^OCXOZ0X   ; Check Relation #3 in Rule #57 'CLOZAPINE'
  1.  Q
  1.  ;
  1. EL120 ; Examine every rule that involves Element #120 [CLOZAPINE WBC >= 3.0 & < 3.5]
  1.  ;  Called from SCAN+9^OCXOZ01.
  1.  ;
  1.  Q:$G(OCXOERR)
  1.  ;
  1.  D R57R3A^OCXOZ0X   ; Check Relation #3 in Rule #57 'CLOZAPINE'
  1.  Q
  1.  ;
  1. EL141 ; Examine every rule that involves Element #141 [CLOZAPINE ANC >= 1.5 & < 2.0]
  1.  ;  Called from SCAN+9^OCXOZ01.
  1.  ;
  1.  Q:$G(OCXOERR)
  1.  ;
  1.  D R57R4A^OCXOZ0X   ; Check Relation #4 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^OCXOZ0X   ; 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^OCXOZ0Y   ; 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^OCXOZ0Z   ; 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^OCXOZ0Z   ; 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^OCXOZ0Z   ; 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^OCXOZ10   ; 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^OCXOZ10   ; 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^OCXOZ10   ; 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^OCXOZ10   ; Check Relation #1 in Rule #65 'POLYPHARMACY'
  1.  Q
  1.  ;
  1. EL86 ; Examine every rule that involves Element #86 [GLUCOPHAGE ORDER]
  1.  ;  Called from SCAN+9^OCXOZ01.
  1.  ;
  1.  Q:$G(OCXOERR)
  1.  ;
  1.  D R67R1A^OCXOZ11   ; Check Relation #1 in Rule #67 'GLUCOPHAGE - LAB RESULTS'
  1.  D R67R2A^OCXOZ11   ; Check Relation #2 in Rule #67 'GLUCOPHAGE - LAB RESULTS'
  1.  Q
  1.  ;