OCXOZ0S ;SLC/RJS,CLA - Order Check Scan ;OCT 30,2024 at 12:49
Source file <OCXOZ0S.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
R49R1A | ; Verify all Event/Elements of Rule #49 'SITE FLAGGED RESULT' Relation #1 'INPATIENT AND (SITE FLAGGED LAB RESULT OR SITE FLA...'
; Called from EL127+6^OCXOZ0G, and EL59+5^OCXOZ0G, and EL102+5^OCXOZ0G, and EL109+5^OCXOZ0G. |
|
R49R1B | ; Send Order Check, Notication messages and/or Execute code for Rule #49 'SITE FLAGGED RESULT' Relation #1 'INPATIENT AND (SITE FLAGGED LAB RESULT OR SITE FLA...'
; Called from R49R1A+14. |
|
R49R2A | ; Verify all Event/Elements of Rule #49 'SITE FLAGGED RESULT' Relation #2 'OUTPATIENT AND (SITE FLAGGED LAB RESULT OR SITE FL...'
; Called from EL128+6^OCXOZ0G, and EL59+6^OCXOZ0G, and EL102+6^OCXOZ0G, and EL109+6^OCXOZ0G. |
|
CKSUM(STR) | ; Compiler Function: GENERATE STRING CHECKSUM
|
|
GETDATA(DFN,OCXL,OCXDFI) | ; This Local Extrinsic Function returns runtime data
|
|
INT2DT(OCXDT,OCXF) | ; This Local Extrinsic Function converts an OCX internal format
; date into an Externl Format (Human Readable) date. 'OCXF=SHORT FORMAT OCXF=LONG FORMAT |
|
MCE102() | ; Verify Event/Element: SITE FLAGGED FINAL IMAGING RESULT
|
|
MCE109() | ; Verify Event/Element: SITE FLAGGED FINAL CONSULT RESULT
|
|
MCE127() | ; Verify Event/Element: INPATIENT
|
|
MCE128() | ; Verify Event/Element: OUTPATIENT
|
|
MCE59() | ; Verify Event/Element: SITE FLAGGED FINAL LAB RESULT
|
|
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
|