OCXOZ0G ;SLC/RJS,CLA - Order Check Scan ;OCT 30,2024 at 12:49
;;3.0;ORDER ENTRY/RESULTS REPORTING;**32,221,243**;Dec 17,1997;Build 242
;; ;;ORDER CHECK EXPERT version 1.01 released OCT 29,1998
;
; ***************************************************************
; ** Warning: This routine is automatically generated by the **
; ** Rule Compiler (^OCXOCMP) and ANY changes to this routine **
; ** will be lost the next time the rule compiler executes. **
; ***************************************************************
;
Q
;
EL75 ; Examine every rule that involves Element #75 [STAT IMAGING RESULT]
; Called from SCAN+9^OCXOZ01.
;
Q:$G(OCXOERR)
;
D R18R2A^OCXOZ0M ; Check Relation #2 in Rule #18 'STAT RESULTS AVAILABLE'
Q
;
EL110 ; Examine every rule that involves Element #110 [STAT CONSULT RESULT]
; Called from SCAN+9^OCXOZ01.
;
Q:$G(OCXOERR)
;
D R18R3A^OCXOZ0M ; Check Relation #3 in Rule #18 'STAT RESULTS AVAILABLE'
Q
;
EL56 ; Examine every rule that involves Element #56 [PATIENT DISCHARGE]
; Called from SCAN+9^OCXOZ01.
;
Q:$G(OCXOERR)
;
D R19R1A^OCXOZ0M ; Check Relation #1 in Rule #19 'PATIENT DISCHARGE'
Q
;
EL47 ; Examine every rule that involves Element #47 [ORDER REQUIRES CO-SIGNATURE]
; Called from SCAN+9^OCXOZ01.
;
Q:$G(OCXOERR)
;
D R22R1A^OCXOZ0N ; Check Relation #1 in Rule #22 'ORDER REQUIRES CO-SIGNATURE'
Q
;
EL5 ; Examine every rule that involves Element #5 [HL7 FINAL LAB RESULT]
; Called from SCAN+9^OCXOZ01.
;
Q:$G(OCXOERR)
;
D R24R1A^OCXOZ0N ; Check Relation #1 in Rule #24 'ORDERER FLAGGED RESULTS AVAILABLE'
D R66R1A^OCXOZ0X ; Check Relation #1 in Rule #66 'LAB RESULTS'
D R69R1A^OCXOZ0Z ; Check Relation #1 in Rule #69 'LAB THRESHOLD'
Q
;
EL49 ; Examine every rule that involves Element #49 [ORDER FLAGGED FOR RESULTS]
; Called from SCAN+9^OCXOZ01.
;
Q:$G(OCXOERR)
;
D R24R1A^OCXOZ0N ; Check Relation #1 in Rule #24 'ORDERER FLAGGED RESULTS AVAILABLE'
Q
;
EL55 ; Examine every rule that involves Element #55 [CONSULT FINAL RESULTS]
; Called from SCAN+9^OCXOZ01.
;
Q:$G(OCXOERR)
;
D R24R1A^OCXOZ0N ; Check Relation #1 in Rule #24 'ORDERER FLAGGED RESULTS AVAILABLE'
Q
;
EL101 ; Examine every rule that involves Element #101 [HL7 FINAL IMAGING RESULT]
; Called from SCAN+9^OCXOZ01.
;
Q:$G(OCXOERR)
;
D R24R1A^OCXOZ0N ; Check Relation #1 in Rule #24 'ORDERER FLAGGED RESULTS AVAILABLE'
Q
;
EL60 ; Examine every rule that involves Element #60 [NEW OBR STAT ORDER]
; Called from SCAN+9^OCXOZ01.
;
Q:$G(OCXOERR)
;
D R28R1A^OCXOZ0O ; Check Relation #1 in Rule #28 'STAT ORDER PLACED'
Q
;
EL61 ; Examine every rule that involves Element #61 [NEW ORC STAT ORDER]
; Called from SCAN+9^OCXOZ01.
;
Q:$G(OCXOERR)
;
D R28R1A^OCXOZ0O ; Check Relation #1 in Rule #28 'STAT ORDER PLACED'
Q
;
EL42 ; Examine every rule that involves Element #42 [PATIENT TRANSFERRED FROM PSYCH WARD]
; Called from SCAN+9^OCXOZ01.
;
Q:$G(OCXOERR)
;
D R32R1A^OCXOZ0O ; Check Relation #1 in Rule #32 'PATIENT TRANSFERRED FROM PSYCHIATRY TO ANOTHER UNIT'
Q
;
EL20 ; Examine every rule that involves Element #20 [HL7 LAB ORDER CANCELLED]
; Called from SCAN+9^OCXOZ01.
;
Q:$G(OCXOERR)
;
D R35R1A^OCXOZ0P ; Check Relation #1 in Rule #35 'LAB ORDER CANCELLED'
Q
;
EL40 ; Examine every rule that involves Element #40 [HL7 LAB REQUEST CANCELLED]
; Called from SCAN+9^OCXOZ01.
;
Q:$G(OCXOERR)
;
D R35R1A^OCXOZ0P ; Check Relation #1 in Rule #35 'LAB ORDER CANCELLED'
Q
;
EL6 ; Examine every rule that involves Element #6 [HL7 NEW OERR ORDER]
; Called from SCAN+9^OCXOZ01.
;
Q:$G(OCXOERR)
;
D R38R1A^OCXOZ0P ; Check Relation #1 in Rule #38 'NEW ORDER PLACED'
Q
;
EL126 ; Examine every rule that involves Element #126 [HL7 DCED OERR ORDER]
; Called from SCAN+9^OCXOZ01.
;
Q:$G(OCXOERR)
;
D R38R2A^OCXOZ0P ; Check Relation #2 in Rule #38 'NEW ORDER PLACED'
Q
;
EL23 ; Examine every rule that involves Element #23 [HL7 LAB ORDER RESULTS ABNORMAL]
; Called from SCAN+9^OCXOZ01.
;
Q:$G(OCXOERR)
;
D R42R1A^OCXOZ0Q ; Check Relation #1 in Rule #42 'ABNORMAL LAB RESULTS'
Q
;
EL103 ; Examine every rule that involves Element #103 [HL7 LAB TEST RESULTS ABNORMAL]
; Called from SCAN+9^OCXOZ01.
;
Q:$G(OCXOERR)
;
D R42R2A^OCXOZ0Q ; Check Relation #2 in Rule #42 'ABNORMAL LAB RESULTS'
Q
;
EL48 ; Examine every rule that involves Element #48 [ORDER REQUIRES ELECTRONIC SIGNATURE]
; Called from SCAN+9^OCXOZ01.
;
Q:$G(OCXOERR)
;
D R44R1A^OCXOZ0Q ; Check Relation #1 in Rule #44 'ORDER REQUIRES ELECTRONIC SIGNATURE'
Q
;
EL58 ; Examine every rule that involves Element #58 [NEW SITE FLAGGED ORDER]
; Called from SCAN+9^OCXOZ01.
;
Q:$G(OCXOERR)
;
D R48R1A^OCXOZ0R ; Check Relation #1 in Rule #48 'SITE FLAGGED ORDER'
D R48R2A^OCXOZ0R ; Check Relation #2 in Rule #48 'SITE FLAGGED ORDER'
Q
;
EL127 ; Examine every rule that involves Element #127 [INPATIENT]
; Called from SCAN+9^OCXOZ01.
;
Q:$G(OCXOERR)
;
D R48R1A^OCXOZ0R ; Check Relation #1 in Rule #48 'SITE FLAGGED ORDER'
D R49R1A^OCXOZ0S ; Check Relation #1 in Rule #49 'SITE FLAGGED RESULT'
Q
;
EL128 ; Examine every rule that involves Element #128 [OUTPATIENT]
; Called from SCAN+9^OCXOZ01.
;
Q:$G(OCXOERR)
;
D R48R2A^OCXOZ0R ; Check Relation #2 in Rule #48 'SITE FLAGGED ORDER'
D R49R2A^OCXOZ0S ; Check Relation #2 in Rule #49 'SITE FLAGGED RESULT'
Q
;
EL59 ; Examine every rule that involves Element #59 [SITE FLAGGED FINAL LAB RESULT]
; Called from SCAN+9^OCXOZ01.
;
Q:$G(OCXOERR)
;
D R49R1A^OCXOZ0S ; Check Relation #1 in Rule #49 'SITE FLAGGED RESULT'
D R49R2A^OCXOZ0S ; Check Relation #2 in Rule #49 'SITE FLAGGED RESULT'
Q
;
EL102 ; Examine every rule that involves Element #102 [SITE FLAGGED FINAL IMAGING RESULT]
; Called from SCAN+9^OCXOZ01.
;
Q:$G(OCXOERR)
;
D R49R1A^OCXOZ0S ; Check Relation #1 in Rule #49 'SITE FLAGGED RESULT'
D R49R2A^OCXOZ0S ; Check Relation #2 in Rule #49 'SITE FLAGGED RESULT'
Q
;
EL109 ; Examine every rule that involves Element #109 [SITE FLAGGED FINAL CONSULT RESULT]
; Called from SCAN+9^OCXOZ01.
;
Q:$G(OCXOERR)
;
D R49R1A^OCXOZ0S ; Check Relation #1 in Rule #49 'SITE FLAGGED RESULT'
D R49R2A^OCXOZ0S ; Check Relation #2 in Rule #49 'SITE FLAGGED RESULT'
Q
;
EL129 ; Examine every rule that involves Element #129 [ABNORMAL RENAL RESULTS]
; Called from SCAN+9^OCXOZ01.
;
Q:$G(OCXOERR)
;
D R50R1A^OCXOZ0T ; Check Relation #1 in Rule #50 'BIOCHEM ABNORMALITIES/CONTRAST MEDIA CHECK'
Q
;
EL130 ; Examine every rule that involves Element #130 [CONTRAST MEDIA ORDER]
; Called from SCAN+9^OCXOZ01.
;
Q:$G(OCXOERR)
;
D R50R1A^OCXOZ0T ; Check Relation #1 in Rule #50 'BIOCHEM ABNORMALITIES/CONTRAST MEDIA CHECK'
D R50R2A^OCXOZ0T ; Check Relation #2 in Rule #50 'BIOCHEM ABNORMALITIES/CONTRAST MEDIA CHECK'
Q
;
EL133 ; Examine every rule that involves Element #133 [NO CREAT RESULTS W/IN X DAYS]
; Called from SCAN+9^OCXOZ01.
;
Q:$G(OCXOERR)
;
D R50R2A^OCXOZ0T ; Check Relation #2 in Rule #50 'BIOCHEM ABNORMALITIES/CONTRAST MEDIA CHECK'
Q
;
EL63 ; Examine every rule that involves Element #63 [PATIENT HAS RECENT CHOLECYSTOGRAM]
; Called from SCAN+9^OCXOZ01.
;
Q:$G(OCXOERR)
;
D R51R1A^OCXOZ0U ; Check Relation #1 in Rule #51 'RECENT CHOLECYSTOGRAM ORDER'
Q
;
EL64 ; Examine every rule that involves Element #64 [PHARMACY PATIENT OVER 65]
; Called from SCAN+9^OCXOZ01.
;
Q:$G(OCXOERR)
;
D R53R1A^OCXOZ0U ; Check Relation #1 in Rule #53 'RENAL FUNCTIONS OVER AGE 65 CHECK'
Q
;
EL65 ; Examine every rule that involves Element #65 [SESSION ORDER FOR ANGIOGRAM]
; Called from SCAN+9^OCXOZ01.
;
Q:$G(OCXOERR)
;
D R54R1A^OCXOZ0U ; Check Relation #1 in Rule #54 'CONCURRENT LAB ORDERS FOR ANGIOGRAM, CATH - PERIPHERAL'
Q
;
EL66 ; Examine every rule that involves Element #66 [CONTRAST MEDIA ALLERGY]
; Called from SCAN+9^OCXOZ01.
;
Q:$G(OCXOERR)
;
D R55R1A^OCXOZ0U ; Check Relation #1 in Rule #55 'ALLERGY - CONTRAST MEDIA REACTION'
Q
;
EL67 ; Examine every rule that involves Element #67 [RECENT BARIUM STUDY ORDERED]
; Called from SCAN+9^OCXOZ01.
;
Q:$G(OCXOERR)
;
D R56R1A^OCXOZ0U ; Check Relation #1 in Rule #56 'RECENT BARIUM STUDY'
Q
;
EL116 ; Examine every rule that involves Element #116 [CLOZAPINE DRUG SELECTED]
; Called from SCAN+9^OCXOZ01.
;
Q:$G(OCXOERR)
;
D R57R1A^OCXOZ0U ; Check Relation #1 in Rule #57 'CLOZAPINE'
D R57R2A^OCXOZ0V ; Check Relation #2 in Rule #57 'CLOZAPINE'
D R57R3A^OCXOZ0V ; Check Relation #3 in Rule #57 'CLOZAPINE'
Q
;
EL117 ; Examine every rule that involves Element #117 [CLOZAPINE NO ANC W/IN 7 DAYS]
; Called from SCAN+9^OCXOZ01.
;
Q:$G(OCXOERR)
;
D R57R1A^OCXOZ0U ; Check Relation #1 in Rule #57 'CLOZAPINE'
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HOCXOZ0G 9091 printed Nov 22, 2024@17:36:01 Page 2
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
+2 ;; ;;ORDER CHECK EXPERT version 1.01 released OCT 29,1998
+3 ;
+4 ; ***************************************************************
+5 ; ** Warning: This routine is automatically generated by the **
+6 ; ** Rule Compiler (^OCXOCMP) and ANY changes to this routine **
+7 ; ** will be lost the next time the rule compiler executes. **
+8 ; ***************************************************************
+9 ;
+10 QUIT
+11 ;
EL75 ; Examine every rule that involves Element #75 [STAT IMAGING RESULT]
+1 ; Called from SCAN+9^OCXOZ01.
+2 ;
+3 if $GET(OCXOERR)
QUIT
+4 ;
+5 ; Check Relation #2 in Rule #18 'STAT RESULTS AVAILABLE'
DO R18R2A^OCXOZ0M
+6 QUIT
+7 ;
EL110 ; Examine every rule that involves Element #110 [STAT CONSULT RESULT]
+1 ; Called from SCAN+9^OCXOZ01.
+2 ;
+3 if $GET(OCXOERR)
QUIT
+4 ;
+5 ; Check Relation #3 in Rule #18 'STAT RESULTS AVAILABLE'
DO R18R3A^OCXOZ0M
+6 QUIT
+7 ;
EL56 ; Examine every rule that involves Element #56 [PATIENT DISCHARGE]
+1 ; Called from SCAN+9^OCXOZ01.
+2 ;
+3 if $GET(OCXOERR)
QUIT
+4 ;
+5 ; Check Relation #1 in Rule #19 'PATIENT DISCHARGE'
DO R19R1A^OCXOZ0M
+6 QUIT
+7 ;
EL47 ; Examine every rule that involves Element #47 [ORDER REQUIRES CO-SIGNATURE]
+1 ; Called from SCAN+9^OCXOZ01.
+2 ;
+3 if $GET(OCXOERR)
QUIT
+4 ;
+5 ; Check Relation #1 in Rule #22 'ORDER REQUIRES CO-SIGNATURE'
DO R22R1A^OCXOZ0N
+6 QUIT
+7 ;
EL5 ; Examine every rule that involves Element #5 [HL7 FINAL LAB RESULT]
+1 ; Called from SCAN+9^OCXOZ01.
+2 ;
+3 if $GET(OCXOERR)
QUIT
+4 ;
+5 ; Check Relation #1 in Rule #24 'ORDERER FLAGGED RESULTS AVAILABLE'
DO R24R1A^OCXOZ0N
+6 ; Check Relation #1 in Rule #66 'LAB RESULTS'
DO R66R1A^OCXOZ0X
+7 ; Check Relation #1 in Rule #69 'LAB THRESHOLD'
DO R69R1A^OCXOZ0Z
+8 QUIT
+9 ;
EL49 ; Examine every rule that involves Element #49 [ORDER FLAGGED FOR RESULTS]
+1 ; Called from SCAN+9^OCXOZ01.
+2 ;
+3 if $GET(OCXOERR)
QUIT
+4 ;
+5 ; Check Relation #1 in Rule #24 'ORDERER FLAGGED RESULTS AVAILABLE'
DO R24R1A^OCXOZ0N
+6 QUIT
+7 ;
EL55 ; Examine every rule that involves Element #55 [CONSULT FINAL RESULTS]
+1 ; Called from SCAN+9^OCXOZ01.
+2 ;
+3 if $GET(OCXOERR)
QUIT
+4 ;
+5 ; Check Relation #1 in Rule #24 'ORDERER FLAGGED RESULTS AVAILABLE'
DO R24R1A^OCXOZ0N
+6 QUIT
+7 ;
EL101 ; Examine every rule that involves Element #101 [HL7 FINAL IMAGING RESULT]
+1 ; Called from SCAN+9^OCXOZ01.
+2 ;
+3 if $GET(OCXOERR)
QUIT
+4 ;
+5 ; Check Relation #1 in Rule #24 'ORDERER FLAGGED RESULTS AVAILABLE'
DO R24R1A^OCXOZ0N
+6 QUIT
+7 ;
EL60 ; Examine every rule that involves Element #60 [NEW OBR STAT ORDER]
+1 ; Called from SCAN+9^OCXOZ01.
+2 ;
+3 if $GET(OCXOERR)
QUIT
+4 ;
+5 ; Check Relation #1 in Rule #28 'STAT ORDER PLACED'
DO R28R1A^OCXOZ0O
+6 QUIT
+7 ;
EL61 ; Examine every rule that involves Element #61 [NEW ORC STAT ORDER]
+1 ; Called from SCAN+9^OCXOZ01.
+2 ;
+3 if $GET(OCXOERR)
QUIT
+4 ;
+5 ; Check Relation #1 in Rule #28 'STAT ORDER PLACED'
DO R28R1A^OCXOZ0O
+6 QUIT
+7 ;
EL42 ; Examine every rule that involves Element #42 [PATIENT TRANSFERRED FROM PSYCH WARD]
+1 ; Called from SCAN+9^OCXOZ01.
+2 ;
+3 if $GET(OCXOERR)
QUIT
+4 ;
+5 ; Check Relation #1 in Rule #32 'PATIENT TRANSFERRED FROM PSYCHIATRY TO ANOTHER UNIT'
DO R32R1A^OCXOZ0O
+6 QUIT
+7 ;
EL20 ; Examine every rule that involves Element #20 [HL7 LAB ORDER CANCELLED]
+1 ; Called from SCAN+9^OCXOZ01.
+2 ;
+3 if $GET(OCXOERR)
QUIT
+4 ;
+5 ; Check Relation #1 in Rule #35 'LAB ORDER CANCELLED'
DO R35R1A^OCXOZ0P
+6 QUIT
+7 ;
EL40 ; Examine every rule that involves Element #40 [HL7 LAB REQUEST CANCELLED]
+1 ; Called from SCAN+9^OCXOZ01.
+2 ;
+3 if $GET(OCXOERR)
QUIT
+4 ;
+5 ; Check Relation #1 in Rule #35 'LAB ORDER CANCELLED'
DO R35R1A^OCXOZ0P
+6 QUIT
+7 ;
EL6 ; Examine every rule that involves Element #6 [HL7 NEW OERR ORDER]
+1 ; Called from SCAN+9^OCXOZ01.
+2 ;
+3 if $GET(OCXOERR)
QUIT
+4 ;
+5 ; Check Relation #1 in Rule #38 'NEW ORDER PLACED'
DO R38R1A^OCXOZ0P
+6 QUIT
+7 ;
EL126 ; Examine every rule that involves Element #126 [HL7 DCED OERR ORDER]
+1 ; Called from SCAN+9^OCXOZ01.
+2 ;
+3 if $GET(OCXOERR)
QUIT
+4 ;
+5 ; Check Relation #2 in Rule #38 'NEW ORDER PLACED'
DO R38R2A^OCXOZ0P
+6 QUIT
+7 ;
EL23 ; Examine every rule that involves Element #23 [HL7 LAB ORDER RESULTS ABNORMAL]
+1 ; Called from SCAN+9^OCXOZ01.
+2 ;
+3 if $GET(OCXOERR)
QUIT
+4 ;
+5 ; Check Relation #1 in Rule #42 'ABNORMAL LAB RESULTS'
DO R42R1A^OCXOZ0Q
+6 QUIT
+7 ;
EL103 ; Examine every rule that involves Element #103 [HL7 LAB TEST RESULTS ABNORMAL]
+1 ; Called from SCAN+9^OCXOZ01.
+2 ;
+3 if $GET(OCXOERR)
QUIT
+4 ;
+5 ; Check Relation #2 in Rule #42 'ABNORMAL LAB RESULTS'
DO R42R2A^OCXOZ0Q
+6 QUIT
+7 ;
EL48 ; Examine every rule that involves Element #48 [ORDER REQUIRES ELECTRONIC SIGNATURE]
+1 ; Called from SCAN+9^OCXOZ01.
+2 ;
+3 if $GET(OCXOERR)
QUIT
+4 ;
+5 ; Check Relation #1 in Rule #44 'ORDER REQUIRES ELECTRONIC SIGNATURE'
DO R44R1A^OCXOZ0Q
+6 QUIT
+7 ;
EL58 ; Examine every rule that involves Element #58 [NEW SITE FLAGGED ORDER]
+1 ; Called from SCAN+9^OCXOZ01.
+2 ;
+3 if $GET(OCXOERR)
QUIT
+4 ;
+5 ; Check Relation #1 in Rule #48 'SITE FLAGGED ORDER'
DO R48R1A^OCXOZ0R
+6 ; Check Relation #2 in Rule #48 'SITE FLAGGED ORDER'
DO R48R2A^OCXOZ0R
+7 QUIT
+8 ;
EL127 ; Examine every rule that involves Element #127 [INPATIENT]
+1 ; Called from SCAN+9^OCXOZ01.
+2 ;
+3 if $GET(OCXOERR)
QUIT
+4 ;
+5 ; Check Relation #1 in Rule #48 'SITE FLAGGED ORDER'
DO R48R1A^OCXOZ0R
+6 ; Check Relation #1 in Rule #49 'SITE FLAGGED RESULT'
DO R49R1A^OCXOZ0S
+7 QUIT
+8 ;
EL128 ; Examine every rule that involves Element #128 [OUTPATIENT]
+1 ; Called from SCAN+9^OCXOZ01.
+2 ;
+3 if $GET(OCXOERR)
QUIT
+4 ;
+5 ; Check Relation #2 in Rule #48 'SITE FLAGGED ORDER'
DO R48R2A^OCXOZ0R
+6 ; Check Relation #2 in Rule #49 'SITE FLAGGED RESULT'
DO R49R2A^OCXOZ0S
+7 QUIT
+8 ;
EL59 ; Examine every rule that involves Element #59 [SITE FLAGGED FINAL LAB RESULT]
+1 ; Called from SCAN+9^OCXOZ01.
+2 ;
+3 if $GET(OCXOERR)
QUIT
+4 ;
+5 ; Check Relation #1 in Rule #49 'SITE FLAGGED RESULT'
DO R49R1A^OCXOZ0S
+6 ; Check Relation #2 in Rule #49 'SITE FLAGGED RESULT'
DO R49R2A^OCXOZ0S
+7 QUIT
+8 ;
EL102 ; Examine every rule that involves Element #102 [SITE FLAGGED FINAL IMAGING RESULT]
+1 ; Called from SCAN+9^OCXOZ01.
+2 ;
+3 if $GET(OCXOERR)
QUIT
+4 ;
+5 ; Check Relation #1 in Rule #49 'SITE FLAGGED RESULT'
DO R49R1A^OCXOZ0S
+6 ; Check Relation #2 in Rule #49 'SITE FLAGGED RESULT'
DO R49R2A^OCXOZ0S
+7 QUIT
+8 ;
EL109 ; Examine every rule that involves Element #109 [SITE FLAGGED FINAL CONSULT RESULT]
+1 ; Called from SCAN+9^OCXOZ01.
+2 ;
+3 if $GET(OCXOERR)
QUIT
+4 ;
+5 ; Check Relation #1 in Rule #49 'SITE FLAGGED RESULT'
DO R49R1A^OCXOZ0S
+6 ; Check Relation #2 in Rule #49 'SITE FLAGGED RESULT'
DO R49R2A^OCXOZ0S
+7 QUIT
+8 ;
EL129 ; Examine every rule that involves Element #129 [ABNORMAL RENAL RESULTS]
+1 ; Called from SCAN+9^OCXOZ01.
+2 ;
+3 if $GET(OCXOERR)
QUIT
+4 ;
+5 ; Check Relation #1 in Rule #50 'BIOCHEM ABNORMALITIES/CONTRAST MEDIA CHECK'
DO R50R1A^OCXOZ0T
+6 QUIT
+7 ;
EL130 ; Examine every rule that involves Element #130 [CONTRAST MEDIA ORDER]
+1 ; Called from SCAN+9^OCXOZ01.
+2 ;
+3 if $GET(OCXOERR)
QUIT
+4 ;
+5 ; Check Relation #1 in Rule #50 'BIOCHEM ABNORMALITIES/CONTRAST MEDIA CHECK'
DO R50R1A^OCXOZ0T
+6 ; Check Relation #2 in Rule #50 'BIOCHEM ABNORMALITIES/CONTRAST MEDIA CHECK'
DO R50R2A^OCXOZ0T
+7 QUIT
+8 ;
EL133 ; Examine every rule that involves Element #133 [NO CREAT RESULTS W/IN X DAYS]
+1 ; Called from SCAN+9^OCXOZ01.
+2 ;
+3 if $GET(OCXOERR)
QUIT
+4 ;
+5 ; Check Relation #2 in Rule #50 'BIOCHEM ABNORMALITIES/CONTRAST MEDIA CHECK'
DO R50R2A^OCXOZ0T
+6 QUIT
+7 ;
EL63 ; Examine every rule that involves Element #63 [PATIENT HAS RECENT CHOLECYSTOGRAM]
+1 ; Called from SCAN+9^OCXOZ01.
+2 ;
+3 if $GET(OCXOERR)
QUIT
+4 ;
+5 ; Check Relation #1 in Rule #51 'RECENT CHOLECYSTOGRAM ORDER'
DO R51R1A^OCXOZ0U
+6 QUIT
+7 ;
EL64 ; Examine every rule that involves Element #64 [PHARMACY PATIENT OVER 65]
+1 ; Called from SCAN+9^OCXOZ01.
+2 ;
+3 if $GET(OCXOERR)
QUIT
+4 ;
+5 ; Check Relation #1 in Rule #53 'RENAL FUNCTIONS OVER AGE 65 CHECK'
DO R53R1A^OCXOZ0U
+6 QUIT
+7 ;
EL65 ; Examine every rule that involves Element #65 [SESSION ORDER FOR ANGIOGRAM]
+1 ; Called from SCAN+9^OCXOZ01.
+2 ;
+3 if $GET(OCXOERR)
QUIT
+4 ;
+5 ; Check Relation #1 in Rule #54 'CONCURRENT LAB ORDERS FOR ANGIOGRAM, CATH - PERIPHERAL'
DO R54R1A^OCXOZ0U
+6 QUIT
+7 ;
EL66 ; Examine every rule that involves Element #66 [CONTRAST MEDIA ALLERGY]
+1 ; Called from SCAN+9^OCXOZ01.
+2 ;
+3 if $GET(OCXOERR)
QUIT
+4 ;
+5 ; Check Relation #1 in Rule #55 'ALLERGY - CONTRAST MEDIA REACTION'
DO R55R1A^OCXOZ0U
+6 QUIT
+7 ;
EL67 ; Examine every rule that involves Element #67 [RECENT BARIUM STUDY ORDERED]
+1 ; Called from SCAN+9^OCXOZ01.
+2 ;
+3 if $GET(OCXOERR)
QUIT
+4 ;
+5 ; Check Relation #1 in Rule #56 'RECENT BARIUM STUDY'
DO R56R1A^OCXOZ0U
+6 QUIT
+7 ;
EL116 ; Examine every rule that involves Element #116 [CLOZAPINE DRUG SELECTED]
+1 ; Called from SCAN+9^OCXOZ01.
+2 ;
+3 if $GET(OCXOERR)
QUIT
+4 ;
+5 ; Check Relation #1 in Rule #57 'CLOZAPINE'
DO R57R1A^OCXOZ0U
+6 ; Check Relation #2 in Rule #57 'CLOZAPINE'
DO R57R2A^OCXOZ0V
+7 ; Check Relation #3 in Rule #57 'CLOZAPINE'
DO R57R3A^OCXOZ0V
+8 QUIT
+9 ;
EL117 ; Examine every rule that involves Element #117 [CLOZAPINE NO ANC W/IN 7 DAYS]
+1 ; Called from SCAN+9^OCXOZ01.
+2 ;
+3 if $GET(OCXOERR)
QUIT
+4 ;
+5 ; Check Relation #1 in Rule #57 'CLOZAPINE'
DO R57R1A^OCXOZ0U
+6 QUIT
+7 ;
