Index: WorldVistAEHR/trunk/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/OCXOZ0I.m
===================================================================
--- WorldVistAEHR/trunk/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/OCXOZ0I.m	(revision 613)
+++ WorldVistAEHR/trunk/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/OCXOZ0I.m	(revision 623)
@@ -1,268 +1,253 @@
-OCXOZ0I	;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
-	;
-EL114	; Examine every rule that involves Element #114 [CLOZAPINE ANC < 1.5]
-	;  Called from SCAN+9^OCXOZ01.
-	;
-	Q:$G(OCXOERR)
-	;
-	D R57R2A^OCXOZ0W   ; Check Relation #2 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 R57R2A^OCXOZ0W   ; Check Relation #2 in Rule #57 'CLOZAPINE'
-	Q
-	;
-EL115	; Examine every rule that involves Element #115 [CLOZAPINE ANC >= 1.5]
-	;  Called from SCAN+9^OCXOZ01.
-	;
-	Q:$G(OCXOERR)
-	;
-	D R57R3A^OCXOZ0W   ; Check Relation #3 in Rule #57 'CLOZAPINE'
-	Q
-	;
-EL120	; Examine every rule that involves Element #120 [CLOZAPINE WBC >= 3.0 & < 3.5]
-	;  Called from SCAN+9^OCXOZ01.
-	;
-	Q:$G(OCXOERR)
-	;
-	D R57R3A^OCXOZ0W   ; Check Relation #3 in Rule #57 'CLOZAPINE'
-	Q
-	;
-EL140	; Examine every rule that involves Element #140 [CLOZAPINE ANC >= 1.5 & < 2.0]
-	;  Called from SCAN+9^OCXOZ01.
-	;
-	Q:$G(OCXOERR)
-	;
-	D R57R4A^OCXOZ0W   ; Check Relation #4 in Rule #57 'CLOZAPINE'
-	Q
-	;
-EL71	; Examine every rule that involves Element #71 [AMINOGLYCOSIDE ORDER SESSION]
-	;  Called from SCAN+9^OCXOZ01.
-	;
-	Q:$G(OCXOERR)
-	;
-	D R59R1A^OCXOZ0X   ; Check Relation #1 in Rule #59 'AMINOGLYCOSIDE ORDER'
-	Q
-	;
-EL72	; Examine every rule that involves Element #72 [PATIENT OVER CT OR MRI DEVICE LIMITATIONS]
-	;  Called from SCAN+9^OCXOZ01.
-	;
-	Q:$G(OCXOERR)
-	;
-	D R60R1A^OCXOZ0X   ; Check Relation #1 in Rule #60 'CT OR MRI PHYSICAL LIMIT CHECK'
-	Q
-	;
-EL73	; Examine every rule that involves Element #73 [CREATININE CLEARANCE ESTIMATE]
-	;  Called from SCAN+9^OCXOZ01.
-	;
-	Q:$G(OCXOERR)
-	;
-	D R61R1A^OCXOZ0Y   ; Check Relation #1 in Rule #61 'CREATININE CLEARANCE ESTIMATION'
-	Q
-	;
-EL96	; Examine every rule that involves Element #96 [CREATININE CLEARANCE DATE/TIME]
-	;  Called from SCAN+9^OCXOZ01.
-	;
-	Q:$G(OCXOERR)
-	;
-	D R61R1A^OCXOZ0Y   ; Check Relation #1 in Rule #61 'CREATININE CLEARANCE ESTIMATION'
-	Q
-	;
-EL97	; Examine every rule that involves Element #97 [RENAL RESULTS]
-	;  Called from SCAN+9^OCXOZ01.
-	;
-	Q:$G(OCXOERR)
-	;
-	D R61R1A^OCXOZ0Y   ; Check Relation #1 in Rule #61 'CREATININE CLEARANCE ESTIMATION'
-	Q
-	;
-EL84	; Examine every rule that involves Element #84 [INPATIENT FOOD-DRUG REACTION]
-	;  Called from SCAN+9^OCXOZ01.
-	;
-	Q:$G(OCXOERR)
-	;
-	D R62R1A^OCXOZ0Z   ; Check Relation #1 in Rule #62 'FOOD/DRUG INTERACTION'
-	Q
-	;
-EL91	; Examine every rule that involves Element #91 [PATIENT WITH GLUCOPHAGE MED]
-	;  Called from SCAN+9^OCXOZ01.
-	;
-	Q:$G(OCXOERR)
-	;
-	D R63R1A^OCXOZ0Z   ; Check Relation #1 in Rule #63 'GLUCOPHAGE - CONTRAST MEDIA'
-	Q
-	;
-EL106	; Examine every rule that involves Element #106 [RADIOLOGY PROCEDURE CONTAINS NON-BARIUM CONTRAST MEDIA]
-	;  Called from SCAN+9^OCXOZ01.
-	;
-	Q:$G(OCXOERR)
-	;
-	D R63R1A^OCXOZ0Z   ; Check Relation #1 in Rule #63 'GLUCOPHAGE - CONTRAST MEDIA'
-	Q
-	;
-EL95	; Examine every rule that involves Element #95 [POLYPHARMACY]
-	;  Called from SCAN+9^OCXOZ01.
-	;
-	Q:$G(OCXOERR)
-	;
-	D R65R1A^OCXOZ0Z   ; Check Relation #1 in Rule #65 'POLYPHARMACY'
-	Q
-	;
-EL86	; Examine every rule that involves Element #86 [GLUCOPHAGE ORDER]
-	;  Called from SCAN+9^OCXOZ01.
-	;
-	Q:$G(OCXOERR)
-	;
-	D R67R1A^OCXOZ10   ; Check Relation #1 in Rule #67 'GLUCOPHAGE - LAB RESULTS'
-	D R67R2A^OCXOZ10   ; Check Relation #2 in Rule #67 'GLUCOPHAGE - LAB RESULTS'
-	Q
-	;
-EL111	; Examine every rule that involves Element #111 [GLUCOPHAGE CREATININE > 1.5]
-	;  Called from SCAN+9^OCXOZ01.
-	;
-	Q:$G(OCXOERR)
-	;
-	D R67R1A^OCXOZ10   ; Check Relation #1 in Rule #67 'GLUCOPHAGE - LAB RESULTS'
-	Q
-	;
-EL112	; Examine every rule that involves Element #112 [NO GLUCOPHAGE CREATININE]
-	;  Called from SCAN+9^OCXOZ01.
-	;
-	Q:$G(OCXOERR)
-	;
-	D R67R2A^OCXOZ10   ; Check Relation #2 in Rule #67 'GLUCOPHAGE - LAB RESULTS'
-	Q
-	;
-EL122	; Examine every rule that involves Element #122 [AMITRIPTYLINE ORDER]
-	;  Called from SCAN+9^OCXOZ01.
-	;
-	Q:$G(OCXOERR)
-	;
-	D R68R1A^OCXOZ11   ; Check Relation #1 in Rule #68 'DANGEROUS MEDS OVER AGE 64'
-	Q
-	;
-EL125	; Examine every rule that involves Element #125 [MED ORDER FOR PT > 64]
-	;  Called from SCAN+9^OCXOZ01.
-	;
-	Q:$G(OCXOERR)
-	;
-	D R68R1A^OCXOZ11   ; Check Relation #1 in Rule #68 'DANGEROUS MEDS OVER AGE 64'
-	D R68R2A^OCXOZ11   ; Check Relation #2 in Rule #68 'DANGEROUS MEDS OVER AGE 64'
-	D R68R3A^OCXOZ11   ; Check Relation #3 in Rule #68 'DANGEROUS MEDS OVER AGE 64'
-	Q
-	;
-EL123	; Examine every rule that involves Element #123 [CHLORPROPAMIDE ORDER]
-	;  Called from SCAN+9^OCXOZ01.
-	;
-	Q:$G(OCXOERR)
-	;
-	D R68R2A^OCXOZ11   ; Check Relation #2 in Rule #68 'DANGEROUS MEDS OVER AGE 64'
-	Q
-	;
-EL124	; Examine every rule that involves Element #124 [DIPYRIDAMOLE ORDER]
-	;  Called from SCAN+9^OCXOZ01.
-	;
-	Q:$G(OCXOERR)
-	;
-	D R68R3A^OCXOZ11   ; Check Relation #3 in Rule #68 'DANGEROUS MEDS OVER AGE 64'
-	Q
-	;
-EL131	; Examine every rule that involves Element #131 [GREATER THAN LAB THRESHOLD]
-	;  Called from SCAN+9^OCXOZ01.
-	;
-	Q:$G(OCXOERR)
-	;
-	D R69R1A^OCXOZ11   ; Check Relation #1 in Rule #69 'LAB THRESHOLD'
-	Q
-	;
-EL132	; Examine every rule that involves Element #132 [LESS THAN LAB THRESHOLD]
-	;  Called from SCAN+9^OCXOZ01.
-	;
-	Q:$G(OCXOERR)
-	;
-	D R69R1A^OCXOZ11   ; Check Relation #1 in Rule #69 'LAB THRESHOLD'
-	Q
-	;
-EL28	; Examine every rule that involves Element #28 [RADIOLOGY ORDER]
-	;  Called from SCAN+9^OCXOZ01.
-	;
-	Q:$G(OCXOERR)
-	;
-	D R70R1A^OCXOZ12   ; Check Relation #1 in Rule #70 'NO ALLERGY ASSESSMENT'
-	Q
-	;
-EL135	; Examine every rule that involves Element #135 [DIET ORDER]
-	;  Called from SCAN+9^OCXOZ01.
-	;
-	Q:$G(OCXOERR)
-	;
-	D R70R1A^OCXOZ12   ; Check Relation #1 in Rule #70 'NO ALLERGY ASSESSMENT'
-	Q
-	;
-EL136	; Examine every rule that involves Element #136 [NO ALLERGY ASSESSMENT]
-	;  Called from SCAN+9^OCXOZ01.
-	;
-	Q:$G(OCXOERR)
-	;
-	D R70R1A^OCXOZ12   ; Check Relation #1 in Rule #70 'NO ALLERGY ASSESSMENT'
-	Q
-	;
-EL137	; Examine every rule that involves Element #137 [PHARMACY ORDER]
-	;  Called from SCAN+9^OCXOZ01.
-	;
-	Q:$G(OCXOERR)
-	;
-	D R70R1A^OCXOZ12   ; Check Relation #1 in Rule #70 'NO ALLERGY ASSESSMENT'
-	Q
-	;
-EL138	; Examine every rule that involves Element #138 [DUP OPIOID MEDS]
-	;  Called from SCAN+9^OCXOZ01.
-	;
-	Q:$G(OCXOERR)
-	;
-	D R71R1A^OCXOZ13   ; Check Relation #1 in Rule #71 'OPIOID MEDICATIONS'
-	Q
-	;
-EL139	; Examine every rule that involves Element #139 [OPIOID MED ORDER]
-	;  Called from SCAN+9^OCXOZ01.
-	;
-	Q:$G(OCXOERR)
-	;
-	D R71R1A^OCXOZ13   ; Check Relation #1 in Rule #71 'OPIOID MEDICATIONS'
-	Q
-	;
-R3R1A	; Verify all Event/Elements of  Rule #3 'CRITICAL LAB RESULTS'  Relation #1 'CRITICAL LAB TEST'
-	;  Called from EL24+5^OCXOZ0G.
-	;
-	Q:$G(OCXOERR)
-	;
-	;      Local Extrinsic Functions
-	; MCE24( ----------->  Verify Event/Element: 'HL7 LAB TEST RESULTS CRITICAL'
-	;
-	Q:$G(^OCXS(860.2,3,"INACT"))
-	;
-	I $$MCE24 D R3R1B^OCXOZ0J
-	Q
-	;
-MCE24()	; Verify Event/Element: HL7 LAB TEST RESULTS CRITICAL
-	;
-	;
-	N OCXRES
-	I $L(OCXDF(37)) S OCXRES(24,37)=OCXDF(37)
-	Q:'(OCXDF(37)) 0 I $D(^TMP("OCXCHK",$J,OCXDF(37),24)) Q $G(^TMP("OCXCHK",$J,OCXDF(37),24))
-	Q 0
-	;
+OCXOZ0I ;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
+ ;
+EL120 ; Examine every rule that involves Element #120 [CLOZAPINE WBC >= 3.0 & < 3.5]
+ ;  Called from SCAN+9^OCXOZ01.
+ ;
+ Q:$G(OCXOERR)
+ ;
+ D R57R3A^OCXOZ0W   ; Check Relation #3 in Rule #57 'CLOZAPINE'
+ D R57R4A^OCXOZ0W   ; Check Relation #4 in Rule #57 'CLOZAPINE'
+ Q
+ ;
+EL115 ; Examine every rule that involves Element #115 [CLOZAPINE ANC >= 1.5]
+ ;  Called from SCAN+9^OCXOZ01.
+ ;
+ Q:$G(OCXOERR)
+ ;
+ D R57R4A^OCXOZ0W   ; Check Relation #4 in Rule #57 'CLOZAPINE'
+ Q
+ ;
+EL121 ; Examine every rule that involves Element #121 [CLOZAPINE WBC >= 3.5]
+ ;  Called from SCAN+9^OCXOZ01.
+ ;
+ Q:$G(OCXOERR)
+ ;
+ D R57R5A^OCXOZ0X   ; Check Relation #5 in Rule #57 'CLOZAPINE'
+ Q
+ ;
+EL71 ; Examine every rule that involves Element #71 [AMINOGLYCOSIDE ORDER SESSION]
+ ;  Called from SCAN+9^OCXOZ01.
+ ;
+ Q:$G(OCXOERR)
+ ;
+ D R59R1A^OCXOZ0X   ; Check Relation #1 in Rule #59 'AMINOGLYCOSIDE ORDER'
+ Q
+ ;
+EL72 ; Examine every rule that involves Element #72 [PATIENT OVER CT OR MRI DEVICE LIMITATIONS]
+ ;  Called from SCAN+9^OCXOZ01.
+ ;
+ Q:$G(OCXOERR)
+ ;
+ D R60R1A^OCXOZ0X   ; Check Relation #1 in Rule #60 'CT OR MRI PHYSICAL LIMIT CHECK'
+ Q
+ ;
+EL73 ; Examine every rule that involves Element #73 [CREATININE CLEARANCE ESTIMATE]
+ ;  Called from SCAN+9^OCXOZ01.
+ ;
+ Q:$G(OCXOERR)
+ ;
+ D R61R1A^OCXOZ0Y   ; Check Relation #1 in Rule #61 'CREATININE CLEARANCE ESTIMATION'
+ Q
+ ;
+EL96 ; Examine every rule that involves Element #96 [CREATININE CLEARANCE DATE/TIME]
+ ;  Called from SCAN+9^OCXOZ01.
+ ;
+ Q:$G(OCXOERR)
+ ;
+ D R61R1A^OCXOZ0Y   ; Check Relation #1 in Rule #61 'CREATININE CLEARANCE ESTIMATION'
+ Q
+ ;
+EL97 ; Examine every rule that involves Element #97 [RENAL RESULTS]
+ ;  Called from SCAN+9^OCXOZ01.
+ ;
+ Q:$G(OCXOERR)
+ ;
+ D R61R1A^OCXOZ0Y   ; Check Relation #1 in Rule #61 'CREATININE CLEARANCE ESTIMATION'
+ Q
+ ;
+EL84 ; Examine every rule that involves Element #84 [INPATIENT FOOD-DRUG REACTION]
+ ;  Called from SCAN+9^OCXOZ01.
+ ;
+ Q:$G(OCXOERR)
+ ;
+ D R62R1A^OCXOZ0Z   ; Check Relation #1 in Rule #62 'FOOD/DRUG INTERACTION'
+ Q
+ ;
+EL91 ; Examine every rule that involves Element #91 [PATIENT WITH GLUCOPHAGE MED]
+ ;  Called from SCAN+9^OCXOZ01.
+ ;
+ Q:$G(OCXOERR)
+ ;
+ D R63R1A^OCXOZ0Z   ; Check Relation #1 in Rule #63 'GLUCOPHAGE - CONTRAST MEDIA'
+ Q
+ ;
+EL106 ; Examine every rule that involves Element #106 [RADIOLOGY PROCEDURE CONTAINS NON-BARIUM CONTRAST MEDIA]
+ ;  Called from SCAN+9^OCXOZ01.
+ ;
+ Q:$G(OCXOERR)
+ ;
+ D R63R1A^OCXOZ0Z   ; Check Relation #1 in Rule #63 'GLUCOPHAGE - CONTRAST MEDIA'
+ Q
+ ;
+EL95 ; Examine every rule that involves Element #95 [POLYPHARMACY]
+ ;  Called from SCAN+9^OCXOZ01.
+ ;
+ Q:$G(OCXOERR)
+ ;
+ D R65R1A^OCXOZ0Z   ; Check Relation #1 in Rule #65 'POLYPHARMACY'
+ Q
+ ;
+EL86 ; Examine every rule that involves Element #86 [GLUCOPHAGE ORDER]
+ ;  Called from SCAN+9^OCXOZ01.
+ ;
+ Q:$G(OCXOERR)
+ ;
+ D R67R1A^OCXOZ10   ; Check Relation #1 in Rule #67 'GLUCOPHAGE - LAB RESULTS'
+ D R67R2A^OCXOZ10   ; Check Relation #2 in Rule #67 'GLUCOPHAGE - LAB RESULTS'
+ Q
+ ;
+EL111 ; Examine every rule that involves Element #111 [GLUCOPHAGE CREATININE > 1.5]
+ ;  Called from SCAN+9^OCXOZ01.
+ ;
+ Q:$G(OCXOERR)
+ ;
+ D R67R1A^OCXOZ10   ; Check Relation #1 in Rule #67 'GLUCOPHAGE - LAB RESULTS'
+ Q
+ ;
+EL112 ; Examine every rule that involves Element #112 [NO GLUCOPHAGE CREATININE]
+ ;  Called from SCAN+9^OCXOZ01.
+ ;
+ Q:$G(OCXOERR)
+ ;
+ D R67R2A^OCXOZ10   ; Check Relation #2 in Rule #67 'GLUCOPHAGE - LAB RESULTS'
+ Q
+ ;
+EL122 ; Examine every rule that involves Element #122 [AMITRIPTYLINE ORDER]
+ ;  Called from SCAN+9^OCXOZ01.
+ ;
+ Q:$G(OCXOERR)
+ ;
+ D R68R1A^OCXOZ11   ; Check Relation #1 in Rule #68 'DANGEROUS MEDS OVER AGE 64'
+ Q
+ ;
+EL125 ; Examine every rule that involves Element #125 [MED ORDER FOR PT > 64]
+ ;  Called from SCAN+9^OCXOZ01.
+ ;
+ Q:$G(OCXOERR)
+ ;
+ D R68R1A^OCXOZ11   ; Check Relation #1 in Rule #68 'DANGEROUS MEDS OVER AGE 64'
+ D R68R2A^OCXOZ11   ; Check Relation #2 in Rule #68 'DANGEROUS MEDS OVER AGE 64'
+ D R68R3A^OCXOZ11   ; Check Relation #3 in Rule #68 'DANGEROUS MEDS OVER AGE 64'
+ Q
+ ;
+EL123 ; Examine every rule that involves Element #123 [CHLORPROPAMIDE ORDER]
+ ;  Called from SCAN+9^OCXOZ01.
+ ;
+ Q:$G(OCXOERR)
+ ;
+ D R68R2A^OCXOZ11   ; Check Relation #2 in Rule #68 'DANGEROUS MEDS OVER AGE 64'
+ Q
+ ;
+EL124 ; Examine every rule that involves Element #124 [DIPYRIDAMOLE ORDER]
+ ;  Called from SCAN+9^OCXOZ01.
+ ;
+ Q:$G(OCXOERR)
+ ;
+ D R68R3A^OCXOZ11   ; Check Relation #3 in Rule #68 'DANGEROUS MEDS OVER AGE 64'
+ Q
+ ;
+EL131 ; Examine every rule that involves Element #131 [GREATER THAN LAB THRESHOLD]
+ ;  Called from SCAN+9^OCXOZ01.
+ ;
+ Q:$G(OCXOERR)
+ ;
+ D R69R1A^OCXOZ11   ; Check Relation #1 in Rule #69 'LAB THRESHOLD'
+ Q
+ ;
+EL132 ; Examine every rule that involves Element #132 [LESS THAN LAB THRESHOLD]
+ ;  Called from SCAN+9^OCXOZ01.
+ ;
+ Q:$G(OCXOERR)
+ ;
+ D R69R1A^OCXOZ11   ; Check Relation #1 in Rule #69 'LAB THRESHOLD'
+ Q
+ ;
+EL28 ; Examine every rule that involves Element #28 [RADIOLOGY ORDER]
+ ;  Called from SCAN+9^OCXOZ01.
+ ;
+ Q:$G(OCXOERR)
+ ;
+ D R70R1A^OCXOZ12   ; Check Relation #1 in Rule #70 'NO ALLERGY ASSESSMENT'
+ Q
+ ;
+EL135 ; Examine every rule that involves Element #135 [DIET ORDER]
+ ;  Called from SCAN+9^OCXOZ01.
+ ;
+ Q:$G(OCXOERR)
+ ;
+ D R70R1A^OCXOZ12   ; Check Relation #1 in Rule #70 'NO ALLERGY ASSESSMENT'
+ Q
+ ;
+EL136 ; Examine every rule that involves Element #136 [NO ALLERGY ASSESSMENT]
+ ;  Called from SCAN+9^OCXOZ01.
+ ;
+ Q:$G(OCXOERR)
+ ;
+ D R70R1A^OCXOZ12   ; Check Relation #1 in Rule #70 'NO ALLERGY ASSESSMENT'
+ Q
+ ;
+EL137 ; Examine every rule that involves Element #137 [PHARMACY ORDER]
+ ;  Called from SCAN+9^OCXOZ01.
+ ;
+ Q:$G(OCXOERR)
+ ;
+ D R70R1A^OCXOZ12   ; Check Relation #1 in Rule #70 'NO ALLERGY ASSESSMENT'
+ Q
+ ;
+EL138 ; Examine every rule that involves Element #138 [DUP OPIOID MEDS]
+ ;  Called from SCAN+9^OCXOZ01.
+ ;
+ Q:$G(OCXOERR)
+ ;
+ D R71R1A^OCXOZ13   ; Check Relation #1 in Rule #71 'OPIOID MEDICATIONS'
+ Q
+ ;
+EL139 ; Examine every rule that involves Element #139 [OPIOID MED ORDER]
+ ;  Called from SCAN+9^OCXOZ01.
+ ;
+ Q:$G(OCXOERR)
+ ;
+ D R71R1A^OCXOZ13   ; Check Relation #1 in Rule #71 'OPIOID MEDICATIONS'
+ Q
+ ;
+R3R1A ; Verify all Event/Elements of  Rule #3 'CRITICAL LAB RESULTS'  Relation #1 'CRITICAL LAB TEST'
+ ;  Called from EL24+5^OCXOZ0G.
+ ;
+ Q:$G(OCXOERR)
+ ;
+ ;      Local Extrinsic Functions
+ ; MCE24( ----------->  Verify Event/Element: 'HL7 LAB TEST RESULTS CRITICAL'
+ ;
+ Q:$G(^OCXS(860.2,3,"INACT"))
+ ;
+ I $$MCE24 D R3R1B^OCXOZ0J
+ Q
+ ;
+MCE24() ; Verify Event/Element: HL7 LAB TEST RESULTS CRITICAL
+ ;
+ ;
+ N OCXRES
+ I $L(OCXDF(37)) S OCXRES(24,37)=OCXDF(37)
+ Q:'(OCXDF(37)) 0 I $D(^TMP("OCXCHK",$J,OCXDF(37),24)) Q $G(^TMP("OCXCHK",$J,OCXDF(37),24))
+ Q 0
+ ;
