OCXOZ0T ;SLC/RJS,CLA - Order Check Scan ;JUL 23,2025 at 13:11
Source file <OCXOZ0T.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| R49R2B | ; Send Order Check, Notication messages and/or Execute code for Rule #49 'SITE FLAGGED RESULT' Relation #2 'OUTPATIENT AND (SITE FLAGGED LAB RESULT OR SITE FL...'
; Called from R49R2A+14^OCXOZ0S. |
|
| R50R1A | ; Verify all Event/Elements of Rule #50 'BIOCHEM ABNORMALITIES/CONTRAST MEDIA CHE...' Relation #1 'CONTRAST MEDIA ORDER AND ABNORMAL RENAL RESULTS'
; Called from EL129+5^OCXOZ0G, and EL130+5^OCXOZ0G. |
|
| R50R1B | ; Send Order Check, Notication messages and/or Execute code for Rule #50 'BIOCHEM ABNORMALITIES/CONTRAST MEDIA CHE...' Relation #1 'CONTRAST MEDIA ORDER AND ABNORMAL RENAL RESULTS'
; Called from R50R1A+12. |
|
| R50R2A | ; Verify all Event/Elements of Rule #50 'BIOCHEM ABNORMALITIES/CONTRAST MEDIA CHE...' Relation #2 'CONTRAST MEDIA ORDER AND NO CREAT RESULTS W/IN X D...'
; Called from EL130+6^OCXOZ0G, and EL133+5^OCXOZ0G. |
|
| R50R2B | ; Send Order Check, Notication messages and/or Execute code for Rule #50 'BIOCHEM ABNORMALITIES/CONTRAST MEDIA CHE...' Relation #2 'CONTRAST MEDIA ORDER AND NO CREAT RESULTS W/IN X D...'
; Called from R50R2A+12. |
|
| 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 |
|
| MCE129() | ; Verify Event/Element: ABNORMAL RENAL RESULTS
|
|
| MCE130() | ; Verify Event/Element: CONTRAST MEDIA ORDER
|
|
| MCE133() | ; Verify Event/Element: NO CREAT RESULTS W/IN X DAYS
|
|
| 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
|
