Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: OCXOZ0P

Package: Order Entry Results Reporting

Routine: OCXOZ0P


Information

OCXOZ0P ;SLC/RJS,CLA - Order Check Scan ;JUL 1,2021 at 11:27

Source Information

Source file <OCXOZ0P.m>

Call Graph

Call Graph

Call Graph Total: 1

Package Total Call Graph
Order Entry Results Reporting 1 EN^ORB3  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Order Entry Results Reporting 2 OCXOZ0F  OCXOZ0G  

Entry Points

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

External References

Name Field # of Occurrence
EN^ORB3 R35R1B+29, R38R1B+29, R38R2B+29

Global Variables Directly Accessed

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

Label References

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

Local Variables

Legend:

>> 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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Local Variables  | All