©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
OCXOZ0O ;SLC/RJS,CLA - Order Check Scan ;JAN 28,2014 at 03:37
Source file <OCXOZ0O.m>
| Package | Total | Call Graph |
|---|---|---|
| Order Entry Results Reporting | 2 | R24R1B^OCXOZ0P EN^ORB3 |
| Package | Total | Caller Graph |
|---|---|---|
| Order Entry Results Reporting | 2 | OCXOZ0G OCXOZ0N |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| NEWRULE(OCXDFN,OCXORD,OCXRUL,OCXREL,OCXNOTF,OCXMESS) | ; Has this rule already been triggered for this order number
|
|
| 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 |
|
| CKSUM(STR) | ; Compiler Function: GENERATE STRING CHECKSUM
|
|
| MCE101() | ; Verify Event/Element: HL7 FINAL IMAGING RESULT
|
|
| MCE47() | ; Verify Event/Element: ORDER REQUIRES CO-SIGNATURE
|
|
| MCE55() | ; Verify Event/Element: CONSULT FINAL RESULTS
|
|
| MCE49() | ; Verify Event/Element: ORDER FLAGGED FOR RESULTS
|
|
| SETAP(ROOT,DD,DATA,DA) | ; Set Rule Event data
|
|
| MCE5() | ; Verify Event/Element: HL7 FINAL LAB RESULT
|
|
| R24R1A | ; Verify all Event/Elements of Rule #24 'ORDERER FLAGGED RESULTS AVAILABLE' Relation #1 'ORDER FLAGGED FOR RESULTS AND (LAB RESULT OR IMAGI...'
; Called from EL5+5^OCXOZ0G, and EL49+5^OCXOZ0G, and EL55+5^OCXOZ0G, and EL101+5^OCXOZ0G. |
|
| R22R1A | ; Verify all Event/Elements of Rule #22 'ORDER REQUIRES CO-SIGNATURE' Relation #1 'COSIG'
; Called from EL47+5^OCXOZ0G. |
|
| R19R1B | ; Send Order Check, Notication messages and/or Execute code for Rule #19 'PATIENT DISCHARGE' Relation #1 'DISCHARGE'
; Called from R19R1A+10^OCXOZ0N. |
|
| GETDATA(DFN,OCXL,OCXDFI) | ; This Local Extrinsic Function returns runtime data
|
|
| R22R1B | ; Send Order Check, Notication messages and/or Execute code for Rule #22 'ORDER REQUIRES CO-SIGNATURE' Relation #1 'COSIG'
; Called from R22R1A+10. |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^OCXD(860.7 - [#860.7] | NEWRULE+13, NEWRULE+47! |
| ^OCXS(860.2 - [#860.2] | R22R1A+8, R24R1A+11, NEWRULE+38 |
| ^TMP("OCXCHK" | GETDATA+3, MCE101+5, MCE47+6, MCE49+5, MCE5+5, MCE55+5, NEWRULE+50, NEWRULE+55 |
| ^TMP("OCXSWAP" | R19R1B+22, R22R1B+20 |
| Name | Line Occurrences |
|---|---|
| $$CKSUM | NEWRULE+10 |
| $$GETDATA | R19R1B+14 |
| $$INT2DT | R19R1B+14 |
| $$MCE101 | R24R1A+15 |
| $$MCE47 | R22R1A+10 |
| $$MCE49 | R24R1A+13 |
| $$MCE5 | R24R1A+14 |
| $$MCE55 | R24R1A+16 |
| $$NEWRULE | R19R1B+29, R22R1B+27 |
| R22R1B | R22R1A+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 | R19R1B+14, R19R1B+29, R19R1B+30, R22R1B+27, R22R1B+28, GETDATA~, GETDATA+3 |
| >> OCXAP | INT2DT+5*, INT2DT+18*, INT2DT+21 |
| OCXCKSUM | NEWRULE+7~, NEWRULE+10*, NEWRULE+13, NEWRULE+20 |
| OCXCMSG | R19R1B+12~, R19R1B+13*, R22R1B+10~, R22R1B+11* |
| >> OCXCNT | INT2DT+12*, INT2DT+13*, INT2DT+14, INT2DT+15 |
| OCXCYR | INT2DT+4~, INT2DT+9*, INT2DT+20 |
| OCXDATA | R19R1B+12~, R19R1B+20*, R19R1B+22*, R19R1B+23*, R19R1B+30, R22R1B+10~, R22R1B+18*, R22R1B+20*, R22R1B+21*, R22R1B+28 , 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* |
| OCXDAY | INT2DT+4~, INT2DT+5*, INT2DT+15*, INT2DT+20, INT2DT+21, INT2DT+22 |
| >> OCXDF(37 | MCE101+4, MCE101+5, MCE47+5*, MCE47+6, MCE49+4, MCE49+5, MCE5+4, MCE5+5, MCE55+4, MCE55+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 |
| OCXDT | INT2DT~, INT2DT+3, INT2DT+6*, INT2DT+7*, INT2DT+8*, INT2DT+10*, INT2DT+11*, INT2DT+14, INT2DT+15 |
| OCXDUZ | R19R1B+12~, R19R1B+20*, R19R1B+30, R22R1B+10~, R22R1B+18*, R22R1B+28 |
| OCXDUZ( | R19R1B+25*, R22R1B+23* |
| 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 |
| OCXF | INT2DT~, INT2DT+3*, INT2DT+16, INT2DT+19, INT2DT+20 |
| OCXFORD | R19R1B+12~, R22R1B+10~ |
| 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 |
| OCXHR | INT2DT+4~, INT2DT+5*, INT2DT+8*, INT2DT+18, INT2DT+19*, INT2DT+20, INT2DT+21 |
| OCXL | GETDATA~, GETDATA+3 |
| OCXLOGD | R19R1B+12~, R22R1B+10~ |
| OCXLOGS | R19R1B+12~, R22R1B+10~ |
| OCXLPYR | INT2DT+4~, INT2DT+5*, INT2DT+11*, INT2DT+13 |
| OCXMESS | NEWRULE~, NEWRULE+4, NEWRULE+10, NEWRULE+27 |
| OCXMIN | INT2DT+4~, INT2DT+5*, INT2DT+7*, INT2DT+20, INT2DT+21 |
| OCXMON | INT2DT+4~, INT2DT+5*, INT2DT+14*, INT2DT+15, INT2DT+16*, INT2DT+17*, INT2DT+20, INT2DT+21, INT2DT+22 |
| OCXNDX | NEWRULE+7~ |
| OCXNMSG | R19R1B+12~, R19R1B+14*, R19R1B+29, R19R1B+30, R22R1B+10~, R22R1B+12*, R22R1B+27, R22R1B+28 |
| OCXNOTF | NEWRULE~, NEWRULE+4 |
| OCXNUM | R19R1B+12~, R19R1B+20*, R19R1B+23*, R19R1B+26*, R19R1B+27*, R19R1B+29, R19R1B+30, R22R1B+10~, R22R1B+18*, R22R1B+21* , R22R1B+24*, R22R1B+25*, R22R1B+27, R22R1B+28 |
| >> OCXOERR | R19R1B+3, R19R1B+16, R22R1A+3, R22R1B+3, R22R1B+14, R24R1A+3 |
| >> OCXOLOG | NEWRULE+45 |
| OCXORD | R19R1B+25, R19R1B+26, R22R1B+23, R22R1B+24, MCE47+5, NEWRULE~, NEWRULE+5*, NEWRULE+13, NEWRULE+20, NEWRULE+26 |
| >> OCXOSRC | R19R1B+21, R19R1B+24, R19R1B+27, R22R1B+19, R22R1B+22, R22R1B+25 |
| OCXPORD | R19R1B+12~, R22R1B+10~ |
| >> OCXPSD | R19R1B+27, R22R1B+25 |
| OCXQUIT | R19R1B+12~, R22R1B+10~ |
| OCXREL | NEWRULE~, NEWRULE+4, NEWRULE+33, NEWRULE+34, NEWRULE+36, NEWRULE+41, NEWRULE+47 |
| OCXRES | MCE101+3~, MCE47+4~, MCE49+3~, MCE5+3~, MCE55+3~ |
| OCXRES(101 | MCE101+4* |
| OCXRES(47 | MCE47+5* |
| OCXRES(49 | MCE49+4* |
| OCXRES(5 | MCE5+4* |
| OCXRES(55 | MCE55+4* |
| OCXRUL | NEWRULE~, NEWRULE+3, NEWRULE+13, NEWRULE+20, NEWRULE+26, NEWRULE+27, NEWRULE+28, NEWRULE+30, NEWRULE+35, NEWRULE+38 , NEWRULE+47 |
| >> OCXRULE("R19R1B" | R19R1B+10, R19R1B+28* |
| >> OCXRULE("R22R1B" | R22R1B+8, R22R1B+26* |
| OCXSEC | INT2DT+4~, INT2DT+5*, INT2DT+6*, INT2DT+21 |
| OCXTIME | NEWRULE+7~, NEWRULE+9*, NEWRULE+13, NEWRULE+20, NEWRULE+26, NEWRULE+44 |
| >> OCXTRACE | R19R1B+30, R22R1B+28 |
| OCXTSP | NEWRULE+7~, NEWRULE+12*, NEWRULE+15, NEWRULE+20 |
| >> OCXTSPI | NEWRULE+13 |
| OCXTSPL | NEWRULE+7~, NEWRULE+13*, NEWRULE+15 |
| OCXYR | INT2DT+4~, INT2DT+5*, INT2DT+10*, INT2DT+11*, INT2DT+20, INT2DT+21, INT2DT+22 |
| 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 | R19R1B+25, R19R1B+26, R22R1B+23, R22R1B+24, GETDATA+3, INT2DT+14, INT2DT+15, INT2DT+16, NEWRULE+26, SETAP+2 , SETAP+3 |
| VAL | GETDATA+2~*, GETDATA+3*, GETDATA+4 |