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

OCXOZ0G.m

Go to the documentation of this file. 
  1. OCXOZ0G ;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. EL75 ; Examine every rule that involves Element #75 [STAT IMAGING RESULT]
  1.  ;  Called from SCAN+9^OCXOZ01.
  1.  ;
  1.  Q:$G(OCXOERR)
  1.  ;
  1.  D R18R2A^OCXOZ0M   ; Check Relation #2 in Rule #18 'STAT RESULTS AVAILABLE'
  1.  Q
  1.  ;
  1. EL110 ; Examine every rule that involves Element #110 [STAT CONSULT RESULT]
  1.  ;  Called from SCAN+9^OCXOZ01.
  1.  ;
  1.  Q:$G(OCXOERR)
  1.  ;
  1.  D R18R3A^OCXOZ0M   ; Check Relation #3 in Rule #18 'STAT RESULTS AVAILABLE'
  1.  Q
  1.  ;
  1. EL56 ; Examine every rule that involves Element #56 [PATIENT DISCHARGE]
  1.  ;  Called from SCAN+9^OCXOZ01.
  1.  ;
  1.  Q:$G(OCXOERR)
  1.  ;
  1.  D R19R1A^OCXOZ0M   ; Check Relation #1 in Rule #19 'PATIENT DISCHARGE'
  1.  Q
  1.  ;
  1. EL47 ; Examine every rule that involves Element #47 [ORDER REQUIRES CO-SIGNATURE]
  1.  ;  Called from SCAN+9^OCXOZ01.
  1.  ;
  1.  Q:$G(OCXOERR)
  1.  ;
  1.  D R22R1A^OCXOZ0N   ; Check Relation #1 in Rule #22 'ORDER REQUIRES CO-SIGNATURE'
  1.  Q
  1.  ;
  1. EL5 ; Examine every rule that involves Element #5 [HL7 FINAL LAB RESULT]
  1.  ;  Called from SCAN+9^OCXOZ01.
  1.  ;
  1.  Q:$G(OCXOERR)
  1.  ;
  1.  D R24R1A^OCXOZ0N   ; Check Relation #1 in Rule #24 'ORDERER FLAGGED RESULTS AVAILABLE'
  1.  D R66R1A^OCXOZ0X   ; Check Relation #1 in Rule #66 'LAB RESULTS'
  1.  D R69R1A^OCXOZ0Z   ; Check Relation #1 in Rule #69 'LAB THRESHOLD'
  1.  Q
  1.  ;
  1. EL49 ; Examine every rule that involves Element #49 [ORDER FLAGGED FOR RESULTS]
  1.  ;  Called from SCAN+9^OCXOZ01.
  1.  ;
  1.  Q:$G(OCXOERR)
  1.  ;
  1.  D R24R1A^OCXOZ0N   ; Check Relation #1 in Rule #24 'ORDERER FLAGGED RESULTS AVAILABLE'
  1.  Q
  1.  ;
  1. EL55 ; Examine every rule that involves Element #55 [CONSULT FINAL RESULTS]
  1.  ;  Called from SCAN+9^OCXOZ01.
  1.  ;
  1.  Q:$G(OCXOERR)
  1.  ;
  1.  D R24R1A^OCXOZ0N   ; Check Relation #1 in Rule #24 'ORDERER FLAGGED RESULTS AVAILABLE'
  1.  Q
  1.  ;
  1. EL101 ; Examine every rule that involves Element #101 [HL7 FINAL IMAGING RESULT]
  1.  ;  Called from SCAN+9^OCXOZ01.
  1.  ;
  1.  Q:$G(OCXOERR)
  1.  ;
  1.  D R24R1A^OCXOZ0N   ; Check Relation #1 in Rule #24 'ORDERER FLAGGED RESULTS AVAILABLE'
  1.  Q
  1.  ;
  1. EL60 ; Examine every rule that involves Element #60 [NEW OBR STAT ORDER]
  1.  ;  Called from SCAN+9^OCXOZ01.
  1.  ;
  1.  Q:$G(OCXOERR)
  1.  ;
  1.  D R28R1A^OCXOZ0O   ; Check Relation #1 in Rule #28 'STAT ORDER PLACED'
  1.  Q
  1.  ;
  1. EL61 ; Examine every rule that involves Element #61 [NEW ORC STAT ORDER]
  1.  ;  Called from SCAN+9^OCXOZ01.
  1.  ;
  1.  Q:$G(OCXOERR)
  1.  ;
  1.  D R28R1A^OCXOZ0O   ; Check Relation #1 in Rule #28 'STAT ORDER PLACED'
  1.  Q
  1.  ;
  1. EL42 ; Examine every rule that involves Element #42 [PATIENT TRANSFERRED FROM PSYCH WARD]
  1.  ;  Called from SCAN+9^OCXOZ01.
  1.  ;
  1.  Q:$G(OCXOERR)
  1.  ;
  1.  D R32R1A^OCXOZ0O   ; Check Relation #1 in Rule #32 'PATIENT TRANSFERRED FROM PSYCHIATRY TO ANOTHER UNIT'
  1.  Q
  1.  ;
  1. EL20 ; Examine every rule that involves Element #20 [HL7 LAB ORDER CANCELLED]
  1.  ;  Called from SCAN+9^OCXOZ01.
  1.  ;
  1.  Q:$G(OCXOERR)
  1.  ;
  1.  D R35R1A^OCXOZ0P   ; Check Relation #1 in Rule #35 'LAB ORDER CANCELLED'
  1.  Q
  1.  ;
  1. EL40 ; Examine every rule that involves Element #40 [HL7 LAB REQUEST CANCELLED]
  1.  ;  Called from SCAN+9^OCXOZ01.
  1.  ;
  1.  Q:$G(OCXOERR)
  1.  ;
  1.  D R35R1A^OCXOZ0P   ; Check Relation #1 in Rule #35 'LAB ORDER CANCELLED'
  1.  Q
  1.  ;
  1. EL6 ; Examine every rule that involves Element #6 [HL7 NEW OERR ORDER]
  1.  ;  Called from SCAN+9^OCXOZ01.
  1.  ;
  1.  Q:$G(OCXOERR)
  1.  ;
  1.  D R38R1A^OCXOZ0P   ; Check Relation #1 in Rule #38 'NEW ORDER PLACED'
  1.  Q
  1.  ;
  1. EL126 ; Examine every rule that involves Element #126 [HL7 DCED OERR ORDER]
  1.  ;  Called from SCAN+9^OCXOZ01.
  1.  ;
  1.  Q:$G(OCXOERR)
  1.  ;
  1.  D R38R2A^OCXOZ0P   ; Check Relation #2 in Rule #38 'NEW ORDER PLACED'
  1.  Q
  1.  ;
  1. EL23 ; Examine every rule that involves Element #23 [HL7 LAB ORDER RESULTS ABNORMAL]
  1.  ;  Called from SCAN+9^OCXOZ01.
  1.  ;
  1.  Q:$G(OCXOERR)
  1.  ;
  1.  D R42R1A^OCXOZ0Q   ; Check Relation #1 in Rule #42 'ABNORMAL LAB RESULTS'
  1.  Q
  1.  ;
  1. EL103 ; Examine every rule that involves Element #103 [HL7 LAB TEST RESULTS ABNORMAL]
  1.  ;  Called from SCAN+9^OCXOZ01.
  1.  ;
  1.  Q:$G(OCXOERR)
  1.  ;
  1.  D R42R2A^OCXOZ0Q   ; Check Relation #2 in Rule #42 'ABNORMAL LAB RESULTS'
  1.  Q
  1.  ;
  1. EL48 ; Examine every rule that involves Element #48 [ORDER REQUIRES ELECTRONIC SIGNATURE]
  1.  ;  Called from SCAN+9^OCXOZ01.
  1.  ;
  1.  Q:$G(OCXOERR)
  1.  ;
  1.  D R44R1A^OCXOZ0Q   ; Check Relation #1 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^OCXOZ0R   ; Check Relation #1 in Rule #48 'SITE FLAGGED ORDER'
  1.  D R48R2A^OCXOZ0R   ; 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^OCXOZ0R   ; Check Relation #1 in Rule #48 'SITE FLAGGED ORDER'
  1.  D R49R1A^OCXOZ0S   ; 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^OCXOZ0R   ; Check Relation #2 in Rule #48 'SITE FLAGGED ORDER'
  1.  D R49R2A^OCXOZ0S   ; 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^OCXOZ0S   ; Check Relation #1 in Rule #49 'SITE FLAGGED RESULT'
  1.  D R49R2A^OCXOZ0S   ; 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^OCXOZ0S   ; Check Relation #1 in Rule #49 'SITE FLAGGED RESULT'
  1.  D R49R2A^OCXOZ0S   ; 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^OCXOZ0S   ; Check Relation #1 in Rule #49 'SITE FLAGGED RESULT'
  1.  D R49R2A^OCXOZ0S   ; 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^OCXOZ0T   ; 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^OCXOZ0T   ; Check Relation #1 in Rule #50 'BIOCHEM ABNORMALITIES/CONTRAST MEDIA CHECK'
  1.  D R50R2A^OCXOZ0T   ; 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^OCXOZ0T   ; 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^OCXOZ0U   ; 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^OCXOZ0U   ; 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^OCXOZ0U   ; 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^OCXOZ0U   ; 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^OCXOZ0U   ; 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^OCXOZ0U   ; Check Relation #1 in Rule #57 'CLOZAPINE'
  1.  D R57R2A^OCXOZ0V   ; Check Relation #2 in Rule #57 'CLOZAPINE'
  1.  D R57R3A^OCXOZ0V   ; Check Relation #3 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^OCXOZ0U   ; Check Relation #1 in Rule #57 'CLOZAPINE'
  1.  Q
  1.  ;