OCXOZ0Q ;SLC/RJS,CLA - Order Check Scan ;JUL 23,2025 at 13:11
Source file <OCXOZ0Q.m>
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| R42R1A | ; Verify all Event/Elements of  Rule #42 'ABNORMAL LAB RESULTS'  Relation #1 'ABNORMAL LAB ORDER'
 ; Called from EL23+5^OCXOZ0G.  | 
|
| R42R1B | ; Send Order Check, Notication messages and/or Execute code for  Rule #42 'ABNORMAL LAB RESULTS'  Relation #1 'ABNORMAL LAB ORDER'
 ; Called from R42R1A+10.  | 
|
| R42R2A | ; Verify all Event/Elements of  Rule #42 'ABNORMAL LAB RESULTS'  Relation #2 'ABNORMAL LAB TEST'
 ; Called from EL103+5^OCXOZ0G.  | 
|
| R42R2B | ; Send Order Check, Notication messages and/or Execute code for  Rule #42 'ABNORMAL LAB RESULTS'  Relation #2 'ABNORMAL LAB TEST'
 ; Called from R42R2A+10.  | 
|
| R44R1A | ; Verify all Event/Elements of  Rule #44 'ORDER REQUIRES ELECTRONIC SIGNATURE'  Relation #1 'ELECTRONIC SIGNATURE'
 ; Called from EL48+5^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  | 
|
| MCE103() | ; Verify Event/Element: HL7 LAB TEST RESULTS ABNORMAL
 | 
|
| MCE23() | ; Verify Event/Element: HL7 LAB ORDER RESULTS ABNORMAL
 | 
|
| MCE48() | ; Verify Event/Element: ORDER REQUIRES ELECTRONIC SIGNATURE
 | 
|
| 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
 |