Index: WorldVistAEHR/trunk/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/OCXOZ0H.m
===================================================================
--- WorldVistAEHR/trunk/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/OCXOZ0H.m	(revision 613)
+++ WorldVistAEHR/trunk/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/OCXOZ0H.m	(revision 623)
@@ -1,288 +1,289 @@
-OCXOZ0H	;SLC/RJS,CLA - Order Check Scan ;NOV 8,2009 at 18:44
-	;;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
-	;
-EL56	; Examine every rule that involves Element #56 [PATIENT DISCHARGE]
-	;  Called from SCAN+9^OCXOZ01.
-	;
-	Q:$G(OCXOERR)
-	;
-	D R19R1A^OCXOZ0N   ; 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^OCXOZ0O   ; 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^OCXOZ0O   ; Check Relation #1 in Rule #24 'ORDERER FLAGGED RESULTS AVAILABLE'
-	D R66R1A^OCXOZ0Z   ; Check Relation #1 in Rule #66 'LAB RESULTS'
-	D R69R1A^OCXOZ11   ; 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^OCXOZ0O   ; 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^OCXOZ0O   ; 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^OCXOZ0O   ; 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^OCXOZ0P   ; 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^OCXOZ0P   ; 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^OCXOZ0P   ; 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^OCXOZ0Q   ; 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^OCXOZ0Q   ; 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^OCXOZ0Q   ; 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^OCXOZ0Q   ; 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^OCXOZ0R   ; 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^OCXOZ0R   ; 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^OCXOZ0R   ; 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^OCXOZ0S   ; Check Relation #1 in Rule #48 'SITE FLAGGED ORDER'
-	D R48R2A^OCXOZ0S   ; 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^OCXOZ0S   ; Check Relation #1 in Rule #48 'SITE FLAGGED ORDER'
-	D R49R1A^OCXOZ0T   ; 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^OCXOZ0S   ; Check Relation #2 in Rule #48 'SITE FLAGGED ORDER'
-	D R49R2A^OCXOZ0U   ; 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^OCXOZ0T   ; Check Relation #1 in Rule #49 'SITE FLAGGED RESULT'
-	D R49R2A^OCXOZ0U   ; 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^OCXOZ0T   ; Check Relation #1 in Rule #49 'SITE FLAGGED RESULT'
-	D R49R2A^OCXOZ0U   ; 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^OCXOZ0T   ; Check Relation #1 in Rule #49 'SITE FLAGGED RESULT'
-	D R49R2A^OCXOZ0U   ; 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^OCXOZ0U   ; 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^OCXOZ0U   ; Check Relation #1 in Rule #50 'BIOCHEM ABNORMALITIES/CONTRAST MEDIA CHECK'
-	D R50R2A^OCXOZ0V   ; 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^OCXOZ0V   ; 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^OCXOZ0V   ; 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^OCXOZ0V   ; 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^OCXOZ0V   ; 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^OCXOZ0V   ; 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^OCXOZ0W   ; 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^OCXOZ0W   ; Check Relation #1 in Rule #57 'CLOZAPINE'
-	D R57R2A^OCXOZ0W   ; Check Relation #2 in Rule #57 'CLOZAPINE'
-	D R57R3A^OCXOZ0W   ; Check Relation #3 in Rule #57 'CLOZAPINE'
-	D R57R4A^OCXOZ0W   ; Check Relation #4 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^OCXOZ0W   ; Check Relation #1 in Rule #57 'CLOZAPINE'
-	Q
-	;
-EL118	; Examine every rule that involves Element #118 [CLOZAPINE NO WBC W/IN 7 DAYS]
-	;  Called from SCAN+9^OCXOZ01.
-	;
-	Q:$G(OCXOERR)
-	;
-	D R57R1A^OCXOZ0W   ; Check Relation #1 in Rule #57 'CLOZAPINE'
-	Q
-	;
+OCXOZ0H ;SLC/RJS,CLA - Order Check Scan ;DEC 27,2007 at 06:00
+ ;;3.0;ORDER ENTRY/RESULTS REPORTING;**32,221**;Dec 17,1997
+ ;;  ;;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
+ ;
+EL5 ; Examine every rule that involves Element #5 [HL7 FINAL LAB RESULT]
+ ;  Called from SCAN+9^OCXOZ01.
+ ;
+ Q:$G(OCXOERR)
+ ;
+ D R24R1A^OCXOZ0O   ; Check Relation #1 in Rule #24 'ORDERER FLAGGED RESULTS AVAILABLE'
+ D R66R1A^OCXOZ0Z   ; Check Relation #1 in Rule #66 'LAB RESULTS'
+ D R69R1A^OCXOZ11   ; 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^OCXOZ0O   ; 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^OCXOZ0O   ; 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^OCXOZ0O   ; 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^OCXOZ0P   ; 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^OCXOZ0P   ; 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^OCXOZ0P   ; 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^OCXOZ0Q   ; 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^OCXOZ0Q   ; 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^OCXOZ0Q   ; 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^OCXOZ0Q   ; 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^OCXOZ0R   ; 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^OCXOZ0R   ; 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^OCXOZ0R   ; 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^OCXOZ0S   ; Check Relation #1 in Rule #48 'SITE FLAGGED ORDER'
+ D R48R2A^OCXOZ0S   ; 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^OCXOZ0S   ; Check Relation #1 in Rule #48 'SITE FLAGGED ORDER'
+ D R49R1A^OCXOZ0T   ; 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^OCXOZ0S   ; Check Relation #2 in Rule #48 'SITE FLAGGED ORDER'
+ D R49R2A^OCXOZ0U   ; 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^OCXOZ0T   ; Check Relation #1 in Rule #49 'SITE FLAGGED RESULT'
+ D R49R2A^OCXOZ0U   ; 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^OCXOZ0T   ; Check Relation #1 in Rule #49 'SITE FLAGGED RESULT'
+ D R49R2A^OCXOZ0U   ; 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^OCXOZ0T   ; Check Relation #1 in Rule #49 'SITE FLAGGED RESULT'
+ D R49R2A^OCXOZ0U   ; 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^OCXOZ0U   ; 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^OCXOZ0U   ; Check Relation #1 in Rule #50 'BIOCHEM ABNORMALITIES/CONTRAST MEDIA CHECK'
+ D R50R2A^OCXOZ0V   ; 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^OCXOZ0V   ; 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^OCXOZ0V   ; 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^OCXOZ0V   ; 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^OCXOZ0V   ; 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^OCXOZ0V   ; 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^OCXOZ0W   ; Check Relation #1 in Rule #56 'RECENT BARIUM STUDY'
+ Q
+ ;
+EL114 ; Examine every rule that involves Element #114 [CLOZAPINE ANC < 1.5]
+ ;  Called from SCAN+9^OCXOZ01.
+ ;
+ Q:$G(OCXOERR)
+ ;
+ D R57R1A^OCXOZ0W   ; Check Relation #1 in Rule #57 'CLOZAPINE'
+ Q
+ ;
+EL116 ; Examine every rule that involves Element #116 [CLOZAPINE DRUG SELECTED]
+ ;  Called from SCAN+9^OCXOZ01.
+ ;
+ Q:$G(OCXOERR)
+ ;
+ D R57R1A^OCXOZ0W   ; Check Relation #1 in Rule #57 'CLOZAPINE'
+ D R57R2A^OCXOZ0W   ; Check Relation #2 in Rule #57 'CLOZAPINE'
+ D R57R3A^OCXOZ0W   ; Check Relation #3 in Rule #57 'CLOZAPINE'
+ D R57R4A^OCXOZ0W   ; Check Relation #4 in Rule #57 'CLOZAPINE'
+ D R57R5A^OCXOZ0X   ; Check Relation #5 in Rule #57 'CLOZAPINE'
+ Q
+ ;
+EL119 ; Examine every rule that involves Element #119 [CLOZAPINE WBC < 3.0]
+ ;  Called from SCAN+9^OCXOZ01.
+ ;
+ Q:$G(OCXOERR)
+ ;
+ D R57R1A^OCXOZ0W   ; Check Relation #1 in Rule #57 'CLOZAPINE'
+ Q
+ ;
+EL118 ; Examine every rule that involves Element #118 [CLOZAPINE NO WBC W/IN 7 DAYS]
+ ;  Called from SCAN+9^OCXOZ01.
+ ;
+ Q:$G(OCXOERR)
+ ;
+ D R57R2A^OCXOZ0W   ; Check Relation #2 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 R57R3A^OCXOZ0W   ; Check Relation #3 in Rule #57 'CLOZAPINE'
+ Q
+ ;
