OCXOZ0P ;SLC/RJS,CLA - Order Check Scan ;OCT 30,2024 at 12:49
Source file <OCXOZ0P.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| 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
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^OCXD(860.7 - [#860.7] | NEWRULE+13, NEWRULE+47! |
| ^OCXS(860.2 - [#860.2] | R35R1A+10, R38R1A+8, R38R2A+8, NEWRULE+38 |
| ^TMP("OCXCHK" | GETDATA+3, MCE100+5, MCE126+5, MCE20+5, MCE40+5, MCE6+5, NEWRULE+50, NEWRULE+55 |
| ^TMP("OCXSWAP" | R35R1B+21, R38R1B+21, R38R2B+21 |
| Name | Line Occurrences |
|---|---|
| $$CKSUM | NEWRULE+10 |
| $$GETDATA | R35R1B+13, R38R1B+13, R38R2B+13 |
| $$MCE100 | R35R1A+13, R35R1A+15 |
| $$MCE126 | R38R2A+10 |
| $$MCE20 | R35R1A+12 |
| $$MCE40 | R35R1A+14 |
| $$MCE6 | R38R1A+10 |
| $$NEWRULE | R35R1B+28, R38R1B+28, R38R2B+28 |
| R35R1B | R35R1A+13, R35R1A+15 |
| R38R1B | R38R1A+10 |
| R38R2B | R38R2A+10 |
| SETAP | NEWRULE+23, NEWRULE+30, NEWRULE+36, NEWRULE+48, NEWRULE+57 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ASC | CKSUM+2~, CKSUM+4* |
| CKSUM | CKSUM+2~*, CKSUM+4*, CKSUM+5 |
| DA | SETAP~, SETAP+2, SETAP+3 |
| DATA | SETAP~, SETAP+1 |
| DD | SETAP~, SETAP+2, SETAP+3 |
| DFN | R35R1B+13, R35R1B+28, R35R1B+29, R38R1B+13, R38R1B+28, R38R1B+29, R38R2B+13, R38R2B+28, R38R2B+29, GETDATA~ , GETDATA+3 |
| OCXCKSUM | NEWRULE+7~, NEWRULE+10*, NEWRULE+13, NEWRULE+20 |
| OCXCMSG | R35R1B+11~, R35R1B+12*, R38R1B+11~, R38R1B+12*, R38R2B+11~, R38R2B+12* |
| OCXDATA | R35R1B+11~, R35R1B+19*, R35R1B+21*, R35R1B+22*, R35R1B+29, R38R1B+11~, R38R1B+19*, R38R1B+21*, R38R1B+22*, R38R1B+29 , R38R2B+11~, R38R2B+19*, R38R2B+21*, R38R2B+22*, R38R2B+29, NEWRULE+7~, NEWRULE+17!, NEWRULE+23, NEWRULE+25!, NEWRULE+30 , NEWRULE+32!, NEWRULE+36, NEWRULE+42!, NEWRULE+48, NEWRULE+53!, NEWRULE+57 |
| OCXDATA( | NEWRULE+18*, NEWRULE+26*, NEWRULE+27*, NEWRULE+33*, NEWRULE+43*, NEWRULE+44*, NEWRULE+45*, NEWRULE+54*, NEWRULE+55* |
| OCXDATA("AT" | NEWRULE+20* |
| OCXDATA("B" | NEWRULE+19*, NEWRULE+28*, NEWRULE+34*, NEWRULE+46*, NEWRULE+56* |
| >> OCXDF(37 | MCE100+4, MCE100+5, MCE126+4, MCE126+5, MCE20+4, MCE20+5, MCE40+4, MCE40+5, MCE6+4, MCE6+5 |
| OCXDFI | GETDATA~, GETDATA+3, NEWRULE+7~, NEWRULE+50*, NEWRULE+54, NEWRULE+55, NEWRULE+56, NEWRULE+57 |
| OCXDFN | NEWRULE~, NEWRULE+3, NEWRULE+5*, NEWRULE+13, NEWRULE+18, NEWRULE+19, NEWRULE+20, NEWRULE+23, NEWRULE+29, NEWRULE+47 , NEWRULE+50, NEWRULE+55 |
| OCXDUZ | R35R1B+11~, R35R1B+19*, R35R1B+29, R38R1B+11~, R38R1B+19*, R38R1B+29, R38R2B+11~, R38R2B+19*, R38R2B+29 |
| OCXDUZ( | R35R1B+24*, R38R1B+24*, R38R2B+24* |
| OCXE | GETDATA+2~, GETDATA+3* |
| OCXELE | NEWRULE+7~, NEWRULE+38*, NEWRULE+43, NEWRULE+44, NEWRULE+45, NEWRULE+46, NEWRULE+47, NEWRULE+48, NEWRULE+50, NEWRULE+52 , NEWRULE+55 |
| OCXFORD | R35R1B+11~, R38R1B+11~, R38R2B+11~ |
| OCXGR | NEWRULE+7~, NEWRULE+22*, NEWRULE+23, NEWRULE+29*, NEWRULE+30, NEWRULE+35*, NEWRULE+36, NEWRULE+41 |
| OCXGR1 | NEWRULE+40~, NEWRULE+41*, NEWRULE+48, NEWRULE+52 |
| OCXGR2 | NEWRULE+51~, NEWRULE+52*, NEWRULE+57 |
| OCXL | GETDATA~, GETDATA+3 |
| OCXLOGD | R35R1B+11~, R38R1B+11~, R38R2B+11~ |
| OCXLOGS | R35R1B+11~, R38R1B+11~, R38R2B+11~ |
| OCXMESS | NEWRULE~, NEWRULE+4, NEWRULE+10, NEWRULE+27 |
| OCXNDX | NEWRULE+7~ |
| OCXNMSG | R35R1B+11~, R35R1B+13*, R35R1B+28, R35R1B+29, R38R1B+11~, R38R1B+13*, R38R1B+28, R38R1B+29, R38R2B+11~, R38R2B+13* , R38R2B+28, R38R2B+29 |
| OCXNOTF | NEWRULE~, NEWRULE+4 |
| OCXNUM | R35R1B+11~, R35R1B+19*, R35R1B+22*, R35R1B+25*, R35R1B+26*, R35R1B+28, R35R1B+29, R38R1B+11~, R38R1B+19*, R38R1B+22* , R38R1B+25*, R38R1B+26*, R38R1B+28, R38R1B+29, R38R2B+11~, R38R2B+19*, R38R2B+22*, R38R2B+25*, R38R2B+26*, R38R2B+28 , R38R2B+29 |
| >> OCXOERR | R35R1A+3, R35R1B+3, R35R1B+15, R38R1A+3, R38R1B+3, R38R1B+15, R38R2A+3, R38R2B+3, R38R2B+15 |
| >> OCXOLOG | NEWRULE+45 |
| OCXORD | R35R1B+24, R35R1B+25, R38R1B+24, R38R1B+25, R38R2B+24, R38R2B+25, NEWRULE~, NEWRULE+5*, NEWRULE+13, NEWRULE+20 , NEWRULE+26 |
| >> OCXOSRC | R35R1B+20, R35R1B+23, R35R1B+26, R38R1B+20, R38R1B+23, R38R1B+26, R38R2B+20, R38R2B+23, R38R2B+26 |
| OCXPORD | R35R1B+11~, R38R1B+11~, R38R2B+11~ |
| >> OCXPSD | R35R1B+26, R38R1B+26, R38R2B+26 |
| OCXQUIT | R35R1B+11~, R38R1B+11~, R38R2B+11~ |
| OCXREL | NEWRULE~, NEWRULE+4, NEWRULE+33, NEWRULE+34, NEWRULE+36, NEWRULE+41, NEWRULE+47 |
| OCXRES | MCE100+3~, MCE126+3~, MCE20+3~, MCE40+3~, MCE6+3~ |
| OCXRES(100 | MCE100+4* |
| OCXRES(126 | MCE126+4* |
| OCXRES(20 | MCE20+4* |
| OCXRES(40 | MCE40+4* |
| OCXRES(6 | MCE6+4* |
| OCXRUL | NEWRULE~, NEWRULE+3, NEWRULE+13, NEWRULE+20, NEWRULE+26, NEWRULE+27, NEWRULE+28, NEWRULE+30, NEWRULE+35, NEWRULE+38 , NEWRULE+47 |
| >> OCXRULE("R35R1B" | R35R1B+9, R35R1B+27* |
| >> OCXRULE("R38R1B" | R38R1B+9, R38R1B+27* |
| >> OCXRULE("R38R2B" | R38R2B+9, R38R2B+27* |
| OCXTIME | NEWRULE+7~, NEWRULE+9*, NEWRULE+13, NEWRULE+20, NEWRULE+26, NEWRULE+44 |
| >> OCXTRACE | R35R1B+29, R38R1B+29, R38R2B+29 |
| OCXTSP | NEWRULE+7~, NEWRULE+12*, NEWRULE+15, NEWRULE+20 |
| >> OCXTSPI | NEWRULE+13 |
| OCXTSPL | NEWRULE+7~, NEWRULE+13*, NEWRULE+15 |
| PC | GETDATA+2~, GETDATA+3* |
| PTR | CKSUM+2~, CKSUM+4* |
| ROOT | SETAP~, SETAP+1, SETAP+2, SETAP+3* |
| STR | CKSUM~, CKSUM+3*, CKSUM+4 |
| U | R35R1B+24, R35R1B+25, R38R1B+24, R38R1B+25, R38R2B+24, R38R2B+25, GETDATA+3, NEWRULE+26, SETAP+2, SETAP+3 |
| VAL | GETDATA+2~*, GETDATA+3*, GETDATA+4 |
