OCXOZ0H ;SLC/RJS,CLA - Order Check Scan ;JUL 1,2021 at 11:27
;;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
;
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^OCXOZ0U ; Check Relation #1 in Rule #57 'CLOZAPINE'
Q
;
EL144 ; Examine every rule that involves Element #144 [CLOZAPINE ANC < 1.0]
; Called from SCAN+9^OCXOZ01.
;
Q:$G(OCXOERR)
;
D R57R2A^OCXOZ0V ; Check Relation #2 in Rule #57 'CLOZAPINE'
Q
;
EL145 ; Examine every rule that involves Element #145 [CLOZAPINE ANC >= 1.0 & < 1.5]
; Called from SCAN+9^OCXOZ01.
;
Q:$G(OCXOERR)
;
D R57R3A^OCXOZ0V ; Check Relation #3 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^OCXOZ0V ; 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^OCXOZ0V ; 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^OCXOZ0W ; 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^OCXOZ0W ; 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^OCXOZ0W ; 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^OCXOZ0X ; 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^OCXOZ0X ; 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^OCXOZ0X ; 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^OCXOZ0X ; 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^OCXOZ0Y ; Check Relation #1 in Rule #67 'GLUCOPHAGE - LAB RESULTS'
D R67R2A^OCXOZ0Y ; 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^OCXOZ0Y ; 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^OCXOZ0Y ; 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^OCXOZ0Z ; 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^OCXOZ0Z ; Check Relation #1 in Rule #68 'DANGEROUS MEDS OVER AGE 64'
D R68R2A^OCXOZ0Z ; Check Relation #2 in Rule #68 'DANGEROUS MEDS OVER AGE 64'
D R68R3A^OCXOZ0Z ; 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^OCXOZ0Z ; 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^OCXOZ0Z ; 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^OCXOZ0Z ; 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^OCXOZ0Z ; 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^OCXOZ10 ; 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^OCXOZ10 ; 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^OCXOZ10 ; 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^OCXOZ10 ; 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^OCXOZ11 ; 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^OCXOZ11 ; Check Relation #1 in Rule #71 'OPIOID MEDICATIONS'
Q
;
EL142 ; Examine every rule that involves Element #142 [HL7 PHARMACY DCED ORDER]
; Called from SCAN+9^OCXOZ01.
;
Q:$G(OCXOERR)
;
D R72R1A^OCXOZ11 ; Check Relation #1 in Rule #72 'AUTO DCED CONTROLLED SUBSTANCE ORDERS'
D R72R2A^OCXOZ11 ; Check Relation #2 in Rule #72 'AUTO DCED CONTROLLED SUBSTANCE ORDERS'
Q
;
EL143 ; Examine every rule that involves Element #143 [HL7 PHARMACY HASH MISMATCH]
; Called from SCAN+9^OCXOZ01.
;
Q:$G(OCXOERR)
;
D R72R1A^OCXOZ11 ; Check Relation #1 in Rule #72 'AUTO DCED CONTROLLED SUBSTANCE ORDERS'
Q
;
EL141 ; Examine every rule that involves Element #141 [HL7 DEA CERT REVOKED]
; Called from SCAN+9^OCXOZ01.
;
Q:$G(OCXOERR)
;
D R72R2A^OCXOZ11 ; Check Relation #2 in Rule #72 'AUTO DCED CONTROLLED SUBSTANCE ORDERS'
Q
;
R3R1A ; Verify all Event/Elements of Rule #3 'CRITICAL LAB RESULTS' Relation #1 'CRITICAL LAB TEST'
; Called from EL24+5^OCXOZ0F.
;
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^OCXOZ0I
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
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HOCXOZ0H 8200 printed Apr 09, 2024@21:28:19 Page 2
OCXOZ0H ;SLC/RJS,CLA - Order Check Scan ;JUL 1,2021 at 11:27
+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 ;
EL118 ; Examine every rule that involves Element #118 [CLOZAPINE NO WBC 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 ;
EL144 ; Examine every rule that involves Element #144 [CLOZAPINE ANC < 1.0]
+1 ; Called from SCAN+9^OCXOZ01.
+2 ;
+3 if $GET(OCXOERR)
QUIT
+4 ;
+5 ; Check Relation #2 in Rule #57 'CLOZAPINE'
DO R57R2A^OCXOZ0V
+6 QUIT
+7 ;
EL145 ; Examine every rule that involves Element #145 [CLOZAPINE ANC >= 1.0 & < 1.5]
+1 ; Called from SCAN+9^OCXOZ01.
+2 ;
+3 if $GET(OCXOERR)
QUIT
+4 ;
+5 ; Check Relation #3 in Rule #57 'CLOZAPINE'
DO R57R3A^OCXOZ0V
+6 QUIT
+7 ;
EL71 ; Examine every rule that involves Element #71 [AMINOGLYCOSIDE ORDER SESSION]
+1 ; Called from SCAN+9^OCXOZ01.
+2 ;
+3 if $GET(OCXOERR)
QUIT
+4 ;
+5 ; Check Relation #1 in Rule #59 'AMINOGLYCOSIDE ORDER'
DO R59R1A^OCXOZ0V
+6 QUIT
+7 ;
EL72 ; Examine every rule that involves Element #72 [PATIENT OVER CT OR MRI DEVICE LIMITATIONS]
+1 ; Called from SCAN+9^OCXOZ01.
+2 ;
+3 if $GET(OCXOERR)
QUIT
+4 ;
+5 ; Check Relation #1 in Rule #60 'CT OR MRI PHYSICAL LIMIT CHECK'
DO R60R1A^OCXOZ0V
+6 QUIT
+7 ;
EL73 ; Examine every rule that involves Element #73 [CREATININE CLEARANCE ESTIMATE]
+1 ; Called from SCAN+9^OCXOZ01.
+2 ;
+3 if $GET(OCXOERR)
QUIT
+4 ;
+5 ; Check Relation #1 in Rule #61 'CREATININE CLEARANCE ESTIMATION'
DO R61R1A^OCXOZ0W
+6 QUIT
+7 ;
EL96 ; Examine every rule that involves Element #96 [CREATININE CLEARANCE DATE/TIME]
+1 ; Called from SCAN+9^OCXOZ01.
+2 ;
+3 if $GET(OCXOERR)
QUIT
+4 ;
+5 ; Check Relation #1 in Rule #61 'CREATININE CLEARANCE ESTIMATION'
DO R61R1A^OCXOZ0W
+6 QUIT
+7 ;
EL97 ; Examine every rule that involves Element #97 [RENAL RESULTS]
+1 ; Called from SCAN+9^OCXOZ01.
+2 ;
+3 if $GET(OCXOERR)
QUIT
+4 ;
+5 ; Check Relation #1 in Rule #61 'CREATININE CLEARANCE ESTIMATION'
DO R61R1A^OCXOZ0W
+6 QUIT
+7 ;
EL84 ; Examine every rule that involves Element #84 [INPATIENT FOOD-DRUG REACTION]
+1 ; Called from SCAN+9^OCXOZ01.
+2 ;
+3 if $GET(OCXOERR)
QUIT
+4 ;
+5 ; Check Relation #1 in Rule #62 'FOOD/DRUG INTERACTION'
DO R62R1A^OCXOZ0X
+6 QUIT
+7 ;
EL91 ; Examine every rule that involves Element #91 [PATIENT WITH GLUCOPHAGE MED]
+1 ; Called from SCAN+9^OCXOZ01.
+2 ;
+3 if $GET(OCXOERR)
QUIT
+4 ;
+5 ; Check Relation #1 in Rule #63 'GLUCOPHAGE - CONTRAST MEDIA'
DO R63R1A^OCXOZ0X
+6 QUIT
+7 ;
EL106 ; Examine every rule that involves Element #106 [RADIOLOGY PROCEDURE CONTAINS NON-BARIUM CONTRAST MEDIA]
+1 ; Called from SCAN+9^OCXOZ01.
+2 ;
+3 if $GET(OCXOERR)
QUIT
+4 ;
+5 ; Check Relation #1 in Rule #63 'GLUCOPHAGE - CONTRAST MEDIA'
DO R63R1A^OCXOZ0X
+6 QUIT
+7 ;
EL95 ; Examine every rule that involves Element #95 [POLYPHARMACY]
+1 ; Called from SCAN+9^OCXOZ01.
+2 ;
+3 if $GET(OCXOERR)
QUIT
+4 ;
+5 ; Check Relation #1 in Rule #65 'POLYPHARMACY'
DO R65R1A^OCXOZ0X
+6 QUIT
+7 ;
EL86 ; Examine every rule that involves Element #86 [GLUCOPHAGE ORDER]
+1 ; Called from SCAN+9^OCXOZ01.
+2 ;
+3 if $GET(OCXOERR)
QUIT
+4 ;
+5 ; Check Relation #1 in Rule #67 'GLUCOPHAGE - LAB RESULTS'
DO R67R1A^OCXOZ0Y
+6 ; Check Relation #2 in Rule #67 'GLUCOPHAGE - LAB RESULTS'
DO R67R2A^OCXOZ0Y
+7 QUIT
+8 ;
EL111 ; Examine every rule that involves Element #111 [GLUCOPHAGE CREATININE > 1.5]
+1 ; Called from SCAN+9^OCXOZ01.
+2 ;
+3 if $GET(OCXOERR)
QUIT
+4 ;
+5 ; Check Relation #1 in Rule #67 'GLUCOPHAGE - LAB RESULTS'
DO R67R1A^OCXOZ0Y
+6 QUIT
+7 ;
EL112 ; Examine every rule that involves Element #112 [NO GLUCOPHAGE CREATININE]
+1 ; Called from SCAN+9^OCXOZ01.
+2 ;
+3 if $GET(OCXOERR)
QUIT
+4 ;
+5 ; Check Relation #2 in Rule #67 'GLUCOPHAGE - LAB RESULTS'
DO R67R2A^OCXOZ0Y
+6 QUIT
+7 ;
EL122 ; Examine every rule that involves Element #122 [AMITRIPTYLINE ORDER]
+1 ; Called from SCAN+9^OCXOZ01.
+2 ;
+3 if $GET(OCXOERR)
QUIT
+4 ;
+5 ; Check Relation #1 in Rule #68 'DANGEROUS MEDS OVER AGE 64'
DO R68R1A^OCXOZ0Z
+6 QUIT
+7 ;
EL125 ; Examine every rule that involves Element #125 [MED ORDER FOR PT > 64]
+1 ; Called from SCAN+9^OCXOZ01.
+2 ;
+3 if $GET(OCXOERR)
QUIT
+4 ;
+5 ; Check Relation #1 in Rule #68 'DANGEROUS MEDS OVER AGE 64'
DO R68R1A^OCXOZ0Z
+6 ; Check Relation #2 in Rule #68 'DANGEROUS MEDS OVER AGE 64'
DO R68R2A^OCXOZ0Z
+7 ; Check Relation #3 in Rule #68 'DANGEROUS MEDS OVER AGE 64'
DO R68R3A^OCXOZ0Z
+8 QUIT
+9 ;
EL123 ; Examine every rule that involves Element #123 [CHLORPROPAMIDE ORDER]
+1 ; Called from SCAN+9^OCXOZ01.
+2 ;
+3 if $GET(OCXOERR)
QUIT
+4 ;
+5 ; Check Relation #2 in Rule #68 'DANGEROUS MEDS OVER AGE 64'
DO R68R2A^OCXOZ0Z
+6 QUIT
+7 ;
EL124 ; Examine every rule that involves Element #124 [DIPYRIDAMOLE ORDER]
+1 ; Called from SCAN+9^OCXOZ01.
+2 ;
+3 if $GET(OCXOERR)
QUIT
+4 ;
+5 ; Check Relation #3 in Rule #68 'DANGEROUS MEDS OVER AGE 64'
DO R68R3A^OCXOZ0Z
+6 QUIT
+7 ;
EL131 ; Examine every rule that involves Element #131 [GREATER THAN LAB THRESHOLD]
+1 ; Called from SCAN+9^OCXOZ01.
+2 ;
+3 if $GET(OCXOERR)
QUIT
+4 ;
+5 ; Check Relation #1 in Rule #69 'LAB THRESHOLD'
DO R69R1A^OCXOZ0Z
+6 QUIT
+7 ;
EL132 ; Examine every rule that involves Element #132 [LESS THAN LAB THRESHOLD]
+1 ; Called from SCAN+9^OCXOZ01.
+2 ;
+3 if $GET(OCXOERR)
QUIT
+4 ;
+5 ; Check Relation #1 in Rule #69 'LAB THRESHOLD'
DO R69R1A^OCXOZ0Z
+6 QUIT
+7 ;
EL28 ; Examine every rule that involves Element #28 [RADIOLOGY ORDER]
+1 ; Called from SCAN+9^OCXOZ01.
+2 ;
+3 if $GET(OCXOERR)
QUIT
+4 ;
+5 ; Check Relation #1 in Rule #70 'NO ALLERGY ASSESSMENT'
DO R70R1A^OCXOZ10
+6 QUIT
+7 ;
EL135 ; Examine every rule that involves Element #135 [DIET ORDER]
+1 ; Called from SCAN+9^OCXOZ01.
+2 ;
+3 if $GET(OCXOERR)
QUIT
+4 ;
+5 ; Check Relation #1 in Rule #70 'NO ALLERGY ASSESSMENT'
DO R70R1A^OCXOZ10
+6 QUIT
+7 ;
EL136 ; Examine every rule that involves Element #136 [NO ALLERGY ASSESSMENT]
+1 ; Called from SCAN+9^OCXOZ01.
+2 ;
+3 if $GET(OCXOERR)
QUIT
+4 ;
+5 ; Check Relation #1 in Rule #70 'NO ALLERGY ASSESSMENT'
DO R70R1A^OCXOZ10
+6 QUIT
+7 ;
EL137 ; Examine every rule that involves Element #137 [PHARMACY ORDER]
+1 ; Called from SCAN+9^OCXOZ01.
+2 ;
+3 if $GET(OCXOERR)
QUIT
+4 ;
+5 ; Check Relation #1 in Rule #70 'NO ALLERGY ASSESSMENT'
DO R70R1A^OCXOZ10
+6 QUIT
+7 ;
EL138 ; Examine every rule that involves Element #138 [DUP OPIOID MEDS]
+1 ; Called from SCAN+9^OCXOZ01.
+2 ;
+3 if $GET(OCXOERR)
QUIT
+4 ;
+5 ; Check Relation #1 in Rule #71 'OPIOID MEDICATIONS'
DO R71R1A^OCXOZ11
+6 QUIT
+7 ;
EL139 ; Examine every rule that involves Element #139 [OPIOID MED ORDER]
+1 ; Called from SCAN+9^OCXOZ01.
+2 ;
+3 if $GET(OCXOERR)
QUIT
+4 ;
+5 ; Check Relation #1 in Rule #71 'OPIOID MEDICATIONS'
DO R71R1A^OCXOZ11
+6 QUIT
+7 ;
EL142 ; Examine every rule that involves Element #142 [HL7 PHARMACY DCED ORDER]
+1 ; Called from SCAN+9^OCXOZ01.
+2 ;
+3 if $GET(OCXOERR)
QUIT
+4 ;
+5 ; Check Relation #1 in Rule #72 'AUTO DCED CONTROLLED SUBSTANCE ORDERS'
DO R72R1A^OCXOZ11
+6 ; Check Relation #2 in Rule #72 'AUTO DCED CONTROLLED SUBSTANCE ORDERS'
DO R72R2A^OCXOZ11
+7 QUIT
+8 ;
EL143 ; Examine every rule that involves Element #143 [HL7 PHARMACY HASH MISMATCH]
+1 ; Called from SCAN+9^OCXOZ01.
+2 ;
+3 if $GET(OCXOERR)
QUIT
+4 ;
+5 ; Check Relation #1 in Rule #72 'AUTO DCED CONTROLLED SUBSTANCE ORDERS'
DO R72R1A^OCXOZ11
+6 QUIT
+7 ;
EL141 ; Examine every rule that involves Element #141 [HL7 DEA CERT REVOKED]
+1 ; Called from SCAN+9^OCXOZ01.
+2 ;
+3 if $GET(OCXOERR)
QUIT
+4 ;
+5 ; Check Relation #2 in Rule #72 'AUTO DCED CONTROLLED SUBSTANCE ORDERS'
DO R72R2A^OCXOZ11
+6 QUIT
+7 ;
R3R1A ; Verify all Event/Elements of Rule #3 'CRITICAL LAB RESULTS' Relation #1 'CRITICAL LAB TEST'
+1 ; Called from EL24+5^OCXOZ0F.
+2 ;
+3 if $GET(OCXOERR)
QUIT
+4 ;
+5 ; Local Extrinsic Functions
+6 ; MCE24( -----------> Verify Event/Element: 'HL7 LAB TEST RESULTS CRITICAL'
+7 ;
+8 if $GET(^OCXS(860.2,3,"INACT"))
QUIT
+9 ;
+10 IF $$MCE24
DO R3R1B^OCXOZ0I
+11 QUIT
+12 ;
MCE24() ; Verify Event/Element: HL7 LAB TEST RESULTS CRITICAL
+1 ;
+2 ;
+3 NEW OCXRES
+4 IF $LENGTH(OCXDF(37))
SET OCXRES(24,37)=OCXDF(37)
+5 if '(OCXDF(37))
QUIT 0
IF $DATA(^TMP("OCXCHK",$JOB,OCXDF(37),24))
QUIT $GET(^TMP("OCXCHK",$JOB,OCXDF(37),24))
+6 QUIT 0
+7 ;
