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: OCXOZ0Z

Package: Order Entry Results Reporting

Routine: OCXOZ0Z


Information

OCXOZ0Z ;SLC/RJS,CLA - Order Check Scan ;OCT 30,2024 at 12:49

Source Information

Source file <OCXOZ0Z.m>

Call Graph

Call Graph

Call Graph Total: 3

Package Total Call Graph
Order Entry Results Reporting 2 EN^ORB3  $$PPLINK^ORQPTQ1  
Toolkit 1 ENVAL^XPAR  

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 OCXOZ0G  OCXOZ0H  

Entry Points

Name Comments DBIA/ICR reference
R69R1A ; Verify all Event/Elements of Rule #69 'LAB THRESHOLD' Relation #1 'IF HL7 LAB RESULTS AND (GREATER THAN THRESHOLD VAL...'
; Called from EL5+7^OCXOZ0G, and EL131+5^OCXOZ0H, and EL132+5^OCXOZ0H.
R69R1B ; Send Order Check, Notication messages and/or Execute code for Rule #69 'LAB THRESHOLD' Relation #1 'IF HL7 LAB RESULTS AND (GREATER THAN THRESHOLD VAL...'
; Called from R69R1A+13.
R70R1A ; Verify all Event/Elements of Rule #70 'NO ALLERGY ASSESSMENT' Relation #1 'NO ALLERGY ASSESSMENT AND (RADIOLOGY ORDER OR PHAR...'
; Called from EL28+5^OCXOZ0H, and EL135+5^OCXOZ0H, and EL136+5^OCXOZ0H, and EL137+5^OCXOZ0H.
R70R1B ; Send Order Check, Notication messages and/or Execute code for Rule #70 'NO ALLERGY ASSESSMENT' Relation #1 'NO ALLERGY ASSESSMENT AND (RADIOLOGY ORDER OR PHAR...'
; Called from R70R1A+14.
CKSUM(STR) ; Compiler Function: GENERATE STRING CHECKSUM
GETDATA(DFN,OCXL,OCXDFI) ; This Local Extrinsic Function returns runtime data
LABTHRSR(OCXDUZ,OCXLAB,OCXSPEC,OCXRSLT,OCXPTDFN)
MCE131() ; Verify Event/Element: GREATER THAN LAB THRESHOLD
MCE132() ; Verify Event/Element: LESS THAN LAB THRESHOLD
MCE135() ; Verify Event/Element: DIET ORDER
MCE136() ; Verify Event/Element: NO ALLERGY ASSESSMENT
MCE137() ; Verify Event/Element: PHARMACY ORDER
MCE28() ; Verify Event/Element: RADIOLOGY ORDER
MCE5() ; Verify Event/Element: HL7 FINAL LAB RESULT
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 R69R1B+34
$$PPLINK^ORQPTQ1 LABTHRSR+14
ENVAL^XPAR LABTHRSR+7

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^OCXD(860.7 - [#860.7] NEWRULE+13, NEWRULE+47!
^OCXS(860.2 - [#860.2] R69R1A+10, R70R1A+11, NEWRULE+38
^TMP("OCXCHK" GETDATA+3, MCE131+5, MCE132+5, MCE135+6, MCE136+6, MCE137+6, MCE28+6, MCE5+5, NEWRULE+50, NEWRULE+55
^TMP("OCXSWAP" R69R1B+26

Label References

Name Line Occurrences
$$CKSUM NEWRULE+10
$$GETDATA R69R1B+14, R69R1B+19
$$LABTHRSR R69R1B+19
$$MCE131 R69R1A+13
$$MCE132 R69R1A+14
$$MCE135 R70R1A+16
$$MCE136 R70R1A+13
$$MCE137 R70R1A+15
$$MCE28 R70R1A+14
$$MCE5 R69R1A+12
$$NEWRULE R69R1B+33, R70R1B+18
R69R1B R69R1A+13, R69R1A+14
R70R1B R70R1A+14, R70R1A+15, R70R1A+16
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 R69R1B+14, R69R1B+19, R69R1B+33, R69R1B+34, R70R1B+18, GETDATA~, GETDATA+3, MCE135+5, MCE136+5, MCE137+5
, MCE28+5
OCXCKSUM NEWRULE+7~, NEWRULE+10*, NEWRULE+13, NEWRULE+20
OCXCMSG R69R1B+12~, R69R1B+13*, R70R1B+10~, R70R1B+11*, R70R1B+12*, R70R1B+23
OCXDATA R69R1B+12~, R69R1B+24*, R69R1B+26*, R69R1B+27*, R69R1B+34, R70R1B+10~, 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 MCE131+4, MCE131+5, MCE132+4, MCE132+5, MCE135+5*, MCE135+6, MCE136+5*, MCE136+6, MCE137+5*, MCE137+6
, MCE28+5*, MCE28+6, MCE5+4, MCE5+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 R69R1B+12~, R69R1B+19, R69R1B+24*, R69R1B+34, R70R1B+10~, LABTHRSR~
OCXDUZ( R69R1B+29*, LABTHRSR+15*
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
OCXERR LABTHRSR+4~, LABTHRSR+7
OCXEXCD LABTHRSR+4~, LABTHRSR+5*, LABTHRSR+15*, LABTHRSR+16
OCXFORD R69R1B+12~, R70R1B+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
OCXL GETDATA~, GETDATA+3
OCXLAB LABTHRSR~, LABTHRSR+2, LABTHRSR+5
OCXLABSP LABTHRSR+4~, LABTHRSR+5*, LABTHRSR+7, LABTHRSR+11
OCXLOGD R69R1B+12~, R70R1B+10~
OCXLOGS R69R1B+12~, R70R1B+10~
OCXMESS NEWRULE~, NEWRULE+4, NEWRULE+10, NEWRULE+27
OCXNDX NEWRULE+7~
OCXNMSG R69R1B+12~, R69R1B+14*, R69R1B+33, R69R1B+34, R70R1B+10~, R70R1B+13*
OCXNOTF NEWRULE~, NEWRULE+4
OCXNUM R69R1B+12~, R69R1B+24*, R69R1B+27*, R69R1B+30*, R69R1B+31*, R69R1B+33, R69R1B+34, R70R1B+10~
>> OCXOCMSG( R70R1B+23*
>> OCXOCMSG(999999 R70R1B+23
>> OCXOERR R69R1A+3, R69R1B+3, R69R1B+20, R70R1A+3, R70R1B+3, R70R1B+19
>> OCXOLOG NEWRULE+45
OCXOP LABTHRSR+4~, LABTHRSR+6*, LABTHRSR+7, LABTHRSR+13
OCXORD R69R1B+29, R69R1B+30, NEWRULE~, NEWRULE+5*, NEWRULE+13, NEWRULE+20, NEWRULE+26
>> OCXOSRC R69R1B+25, R69R1B+28, R69R1B+31, R70R1B+11
OCXPENT LABTHRSR+4~, LABTHRSR+10*, LABTHRSR+11, LABTHRSR+13, LABTHRSR+14, LABTHRSR+15
OCXPORD R69R1B+12~, R70R1B+10~
>> OCXPSD R69R1B+31, R70R1B+11
OCXPTDFN LABTHRSR~, LABTHRSR+14
OCXPVAL LABTHRSR+4~, LABTHRSR+11*, LABTHRSR+12, LABTHRSR+13
OCXQUIT R69R1B+12~, R70R1B+10~
OCXREL NEWRULE~, NEWRULE+4, NEWRULE+33, NEWRULE+34, NEWRULE+36, NEWRULE+41, NEWRULE+47
OCXRES MCE131+3~, MCE132+3~, MCE135+4~, MCE136+4~, MCE137+4~, MCE28+4~, MCE5+3~
OCXRES(131 MCE131+4*
OCXRES(132 MCE132+4*
OCXRES(135 MCE135+5*
OCXRES(136 MCE136+5*
OCXRES(137 MCE137+5*
OCXRES(28 MCE28+5*
OCXRES(5 MCE5+4*
OCXRSLT LABTHRSR~, LABTHRSR+2, LABTHRSR+13
OCXRUL NEWRULE~, NEWRULE+3, NEWRULE+13, NEWRULE+20, NEWRULE+26, NEWRULE+27, NEWRULE+28, NEWRULE+30, NEWRULE+35, NEWRULE+38
, NEWRULE+47
>> OCXRULE("R69R1B" R69R1B+10, R69R1B+32*
>> OCXRULE("R70R1B" R70R1B+8
OCXSPEC LABTHRSR~, LABTHRSR+2, LABTHRSR+5
OCXTIME NEWRULE+7~, NEWRULE+9*, NEWRULE+13, NEWRULE+20, NEWRULE+26, NEWRULE+44
>> OCXTMP R69R1B+19*
>> OCXTRACE R69R1B+34
OCXTSP NEWRULE+7~, NEWRULE+12*, NEWRULE+15, NEWRULE+20
>> OCXTSPI NEWRULE+13
OCXTSPL NEWRULE+7~, NEWRULE+13*, NEWRULE+15
OCXX LABTHRSR+4~, LABTHRSR+7, LABTHRSR+9
OCXX( LABTHRSR+10, LABTHRSR+11
>> ORERR LABTHRSR+8
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 R69R1B+29, R69R1B+30, 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