OCXOZ0Y ;SLC/RJS,CLA - Order Check Scan ;OCT 30,2024 at 12:49
Source file <OCXOZ0Y.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| R66R1B | ; Send Order Check, Notication messages and/or Execute code for Rule #66 'LAB RESULTS' Relation #1 'HL7 LAB RESULTS'
; Called from R66R1A+10^OCXOZ0X. |
|
| R68R1A | ; Verify all Event/Elements of Rule #68 'DANGEROUS MEDS OVER AGE 64' Relation #1 'MED ORDER FOR PT > 64 AND AMITRIPTYLINE'
; Called from EL122+5^OCXOZ0H, and EL125+5^OCXOZ0H. |
|
| R68R1B | ; Send Order Check, Notication messages and/or Execute code for Rule #68 'DANGEROUS MEDS OVER AGE 64' Relation #1 'MED ORDER FOR PT > 64 AND AMITRIPTYLINE'
; Called from R68R1A+12. |
|
| R68R2A | ; Verify all Event/Elements of Rule #68 'DANGEROUS MEDS OVER AGE 64' Relation #2 'MED ORDER FOR PT > 64 AND CHLORPROPAMIDE'
; Called from EL125+6^OCXOZ0H, and EL123+5^OCXOZ0H. |
|
| R68R2B | ; Send Order Check, Notication messages and/or Execute code for Rule #68 'DANGEROUS MEDS OVER AGE 64' Relation #2 'MED ORDER FOR PT > 64 AND CHLORPROPAMIDE'
; Called from R68R2A+12. |
|
| R68R3A | ; Verify all Event/Elements of Rule #68 'DANGEROUS MEDS OVER AGE 64' Relation #3 'MED ORDER FOR PT > 64 AND DIPYRIDAMOLE'
; Called from EL125+7^OCXOZ0H, and EL124+5^OCXOZ0H. |
|
| R68R3B | ; Send Order Check, Notication messages and/or Execute code for Rule #68 'DANGEROUS MEDS OVER AGE 64' Relation #3 'MED ORDER FOR PT > 64 AND DIPYRIDAMOLE'
; Called from R68R3A+12. |
|
| CKSUM(STR) | ; Compiler Function: GENERATE STRING CHECKSUM
|
|
| GETDATA(DFN,OCXL,OCXDFI) | ; This Local Extrinsic Function returns runtime data
|
|
| MCE122() | ; Verify Event/Element: AMITRIPTYLINE ORDER
|
|
| MCE123() | ; Verify Event/Element: CHLORPROPAMIDE ORDER
|
|
| MCE124() | ; Verify Event/Element: DIPYRIDAMOLE ORDER
|
|
| MCE125() | ; Verify Event/Element: MED ORDER FOR PT > 64
|
|
| NEWRULE(OCXDFN,OCXORD,OCXRUL,OCXREL,OCXNOTF,OCXMESS) | ; Has this rule already been triggered for this order number
|
|
| SETAP(ROOT,DD,DATA,DA) | ; Set Rule Event data
|
