OCXOZ0P ;SLC/RJS,CLA - Order Check Scan ;JUL 23,2025 at 13:11
Source file <OCXOZ0P.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| R35R1A | ; Verify all Event/Elements of Rule #35 'LAB ORDER CANCELLED' Relation #1 '(CANCEL OR REQCANCEL) AND CANCELED BY NON-ORIG ORD...'
; Called from EL100+8^OCXOZ0F, and EL20+5^OCXOZ0G, and EL40+5^OCXOZ0G. |
|
| R35R1B | ; Send Order Check, Notication messages and/or Execute code for Rule #35 'LAB ORDER CANCELLED' Relation #1 '(CANCEL OR REQCANCEL) AND CANCELED BY NON-ORIG ORD...'
; Called from R35R1A+13. |
|
| R38R1A | ; Verify all Event/Elements of Rule #38 'NEW ORDER PLACED' Relation #1 'NEW'
; Called from EL6+5^OCXOZ0G. |
|
| R38R1B | ; Send Order Check, Notication messages and/or Execute code for Rule #38 'NEW ORDER PLACED' Relation #1 'NEW'
; Called from R38R1A+10. |
|
| R38R2A | ; Verify all Event/Elements of Rule #38 'NEW ORDER PLACED' Relation #2 'DCED'
; Called from EL126+5^OCXOZ0G. |
|
| R38R2B | ; Send Order Check, Notication messages and/or Execute code for Rule #38 'NEW ORDER PLACED' Relation #2 'DCED'
; Called from R38R2A+10. |
|
| CKSUM(STR) | ; Compiler Function: GENERATE STRING CHECKSUM
|
|
| GETDATA(DFN,OCXL,OCXDFI) | ; This Local Extrinsic Function returns runtime data
|
|
| MCE100() | ; Verify Event/Element: CANCELED BY NON-ORIG ORDERING PROVIDER
|
|
| MCE126() | ; Verify Event/Element: HL7 DCED OERR ORDER
|
|
| MCE20() | ; Verify Event/Element: HL7 LAB ORDER CANCELLED
|
|
| MCE40() | ; Verify Event/Element: HL7 LAB REQUEST CANCELLED
|
|
| MCE6() | ; Verify Event/Element: HL7 NEW OERR ORDER
|
|
| 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
|
