- OCXOZ0H ;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
- ;
- 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
- ;
- EL122 ; Examine every rule that involves Element #122 [AMITRIPTYLINE ORDER]
- ; Called from SCAN+9^OCXOZ01.
- ;
- Q:$G(OCXOERR)
- ;
- D R68R1A^OCXOZ0Y ; 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^OCXOZ0Y ; Check Relation #1 in Rule #68 'DANGEROUS MEDS OVER AGE 64'
- D R68R2A^OCXOZ0Y ; Check Relation #2 in Rule #68 'DANGEROUS MEDS OVER AGE 64'
- D R68R3A^OCXOZ0Y ; 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^OCXOZ0Y ; 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^OCXOZ0Y ; 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^OCXOZ0Z ; 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^OCXOZ0Z ; 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^OCXOZ0Z ; 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^OCXOZ0Z ; 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^OCXOZ10 ; 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^OCXOZ10 ; 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^OCXOZ10 ; Check Relation #1 in Rule #72 'AUTO DCED CONTROLLED SUBSTANCE ORDERS'
- D R72R2A^OCXOZ10 ; 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^OCXOZ10 ; 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^OCXOZ10 ; Check Relation #2 in Rule #72 'AUTO DCED CONTROLLED SUBSTANCE ORDERS'
- Q
- ;
- EL86 ; Examine every rule that involves Element #86 [METFORMIN ORDER]
- ; Called from SCAN+9^OCXOZ01.
- ;
- Q:$G(OCXOERR)
- ;
- D R73R1A^OCXOZ11 ; Check Relation #1 in Rule #73 'METFORMIN EGFR - LAB RESULTS'
- D R73R2A^OCXOZ11 ; Check Relation #2 in Rule #73 'METFORMIN EGFR - LAB RESULTS'
- Q
- ;
- EL146 ; Examine every rule that involves Element #146 [METFORMIN EGFR < 45]
- ; Called from SCAN+9^OCXOZ01.
- ;
- Q:$G(OCXOERR)
- ;
- D R73R1A^OCXOZ11 ; Check Relation #1 in Rule #73 'METFORMIN EGFR - LAB RESULTS'
- Q
- ;
- EL147 ; Examine every rule that involves Element #147 [NO METFORMIN EGFR]
- ; Called from SCAN+9^OCXOZ01.
- ;
- Q:$G(OCXOERR)
- ;
- D R73R2A^OCXOZ11 ; Check Relation #2 in Rule #73 'METFORMIN EGFR - LAB RESULTS'
- 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 8201 printed Feb 18, 2025@23:52:36 Page 2
- OCXOZ0H ;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 ;
- 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 ;
- 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^OCXOZ0Y
- +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^OCXOZ0Y
- +6 ; Check Relation #2 in Rule #68 'DANGEROUS MEDS OVER AGE 64'
- DO R68R2A^OCXOZ0Y
- +7 ; Check Relation #3 in Rule #68 'DANGEROUS MEDS OVER AGE 64'
- DO R68R3A^OCXOZ0Y
- +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^OCXOZ0Y
- +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^OCXOZ0Y
- +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^OCXOZ0Z
- +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^OCXOZ0Z
- +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^OCXOZ0Z
- +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^OCXOZ0Z
- +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^OCXOZ10
- +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^OCXOZ10
- +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^OCXOZ10
- +6 ; Check Relation #2 in Rule #72 'AUTO DCED CONTROLLED SUBSTANCE ORDERS'
- DO R72R2A^OCXOZ10
- +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^OCXOZ10
- +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^OCXOZ10
- +6 QUIT
- +7 ;
- EL86 ; Examine every rule that involves Element #86 [METFORMIN ORDER]
- +1 ; Called from SCAN+9^OCXOZ01.
- +2 ;
- +3 if $GET(OCXOERR)
- QUIT
- +4 ;
- +5 ; Check Relation #1 in Rule #73 'METFORMIN EGFR - LAB RESULTS'
- DO R73R1A^OCXOZ11
- +6 ; Check Relation #2 in Rule #73 'METFORMIN EGFR - LAB RESULTS'
- DO R73R2A^OCXOZ11
- +7 QUIT
- +8 ;
- EL146 ; Examine every rule that involves Element #146 [METFORMIN EGFR < 45]
- +1 ; Called from SCAN+9^OCXOZ01.
- +2 ;
- +3 if $GET(OCXOERR)
- QUIT
- +4 ;
- +5 ; Check Relation #1 in Rule #73 'METFORMIN EGFR - LAB RESULTS'
- DO R73R1A^OCXOZ11
- +6 QUIT
- +7 ;
- EL147 ; Examine every rule that involves Element #147 [NO METFORMIN EGFR]
- +1 ; Called from SCAN+9^OCXOZ01.
- +2 ;
- +3 if $GET(OCXOERR)
- QUIT
- +4 ;
- +5 ; Check Relation #2 in Rule #73 'METFORMIN EGFR - LAB RESULTS'
- DO R73R2A^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 ;