Routine: OCXOZ10

Package	Total	Call Graph
Order Entry Results Reporting	3	R66R1B^OCXOZ11 EN^ORB3 $$TAKEMED^ORKPS

Package	Total	Caller Graph
Order Entry Results Reporting	2	OCXOZ0G OCXOZ0H

Entry Points

Name	Comments	DBIA/ICR reference
NEWRULE(OCXDFN,OCXORD,OCXRUL,OCXREL,OCXNOTF,OCXMESS)	; Has this rule already been triggered for this order number
R66R1A	; Verify all Event/Elements of Rule #66 'LAB RESULTS' Relation #1 'HL7 LAB RESULTS' ; Called from EL5+6^OCXOZ0G.
R65R1A	; Verify all Event/Elements of Rule #65 'POLYPHARMACY' Relation #1 'POLYPHARMACY' ; Called from EL95+5^OCXOZ0H.
R65R1B	; Send Order Check, Notication messages and/or Execute code for Rule #65 'POLYPHARMACY' Relation #1 'POLYPHARMACY' ; Called from R65R1A+10.
CKSUM(STR)	; Compiler Function: GENERATE STRING CHECKSUM
MCE84()	; Verify Event/Element: INPATIENT FOOD-DRUG REACTION
R62R1A	; Verify all Event/Elements of Rule #62 'FOOD/DRUG INTERACTION' Relation #1 'INPATIENT FOOD DRUG REACTION' ; Called from EL84+5^OCXOZ0H.
MCE91()	; Verify Event/Element: PATIENT WITH GLUCOPHAGE MED
R62R1B	; Send Order Check, Notication messages and/or Execute code for Rule #62 'FOOD/DRUG INTERACTION' Relation #1 'INPATIENT FOOD DRUG REACTION' ; Called from R62R1A+10.
R63R1B	; Send Order Check, Notication messages and/or Execute code for Rule #63 'GLUCOPHAGE - CONTRAST MEDIA' Relation #1 'IF PROC USES NON-BARIUM MEDIA AND PATIENT TAKING G...' ; Called from R63R1A+12.
MCE106()	; Verify Event/Element: RADIOLOGY PROCEDURE CONTAINS NON-BARIUM CONTRAST MEDIA
R63R1A	; Verify all Event/Elements of Rule #63 'GLUCOPHAGE - CONTRAST MEDIA' Relation #1 'IF PROC USES NON-BARIUM MEDIA AND PATIENT TAKING G...' ; Called from EL91+5^OCXOZ0H, and EL106+5^OCXOZ0H.
MCE5()	; Verify Event/Element: HL7 FINAL LAB RESULT
GETDATA(DFN,OCXL,OCXDFI)	; This Local Extrinsic Function returns runtime data
MCE95()	; Verify Event/Element: POLYPHARMACY
SETAP(ROOT,DD,DATA,DA)	; Set Rule Event data

Name	Field # of Occurrence
R66R1B^OCXOZ11	R66R1A+10
EN^ORB3	R62R1B+29
$$TAKEMED^ORKPS	MCE91+8

Name	Line Occurrences (* Changed, ! Killed)
^OCXD(860.7 - [#860.7]	NEWRULE+13, NEWRULE+47!
^OCXS(860.2 - [#860.2]	R62R1A+8, R63R1A+9, R65R1A+8, R66R1A+8, NEWRULE+38
^TMP("OCXCHK"	GETDATA+3, MCE106+6, MCE5+5, MCE84+5, MCE91+7, MCE91+10*, MCE95+6, NEWRULE+50, NEWRULE+55
^TMP("OCXSWAP"	R62R1B+21

Name	Line Occurrences
$$CKSUM	NEWRULE+10
$$GETDATA	R62R1B+13, R65R1B+11, R65R1B+12
$$MCE106	R63R1A+11
$$MCE5	R66R1A+10
$$MCE84	R62R1A+10
$$MCE91	R63R1A+12
$$MCE95	R65R1A+10
$$NEWRULE	R62R1B+28
R62R1B	R62R1A+10
R63R1B	R63R1A+12
R65R1B	R65R1A+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	R62R1B+13, R62R1B+28, R62R1B+29, R65R1B+11, R65R1B+12, GETDATA~, GETDATA+3, MCE106+5, MCE91+6, MCE95+5
OCXCKSUM	NEWRULE+7~, NEWRULE+10*, NEWRULE+13, NEWRULE+20
OCXCMSG	R62R1B+11~, R62R1B+12, R63R1B+7~, R63R1B+8, R63R1B+9, R63R1B+16, R65R1B+10~, R65R1B+11, R65R1B+12*, R65R1B+19
OCXDATA	R62R1B+11~, R62R1B+19, R62R1B+21, R62R1B+22*, R62R1B+29, R63R1B+7~, R65R1B+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(103	MCE91+8*
>> OCXDF(37	MCE106+5, MCE106+6, MCE5+4, MCE5+5, MCE84+4, MCE84+5, MCE91+6, MCE91+7, MCE91+8, MCE91+10 , MCE95+5*, MCE95+6
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	R62R1B+11~, R62R1B+19*, R62R1B+29, R63R1B+7~, R65R1B+10~
OCXDUZ(	R62R1B+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	R62R1B+11~, R63R1B+7~, R65R1B+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
OCXLOGD	R62R1B+11~, R63R1B+7~, R65R1B+10~
OCXLOGS	R62R1B+11~, R63R1B+7~, R65R1B+10~
OCXMESS	NEWRULE~, NEWRULE+4, NEWRULE+10, NEWRULE+27
OCXNDX	NEWRULE+7~
OCXNMSG	R62R1B+11~, R62R1B+13, R62R1B+28, R62R1B+29, R63R1B+7~, R63R1B+10, R65R1B+10~, R65R1B+13*
OCXNOTF	NEWRULE~, NEWRULE+4
OCXNUM	R62R1B+11~, R62R1B+19, R62R1B+22, R62R1B+25, R62R1B+26, R62R1B+28, R62R1B+29, R63R1B+7~, R65R1B+10~
>> OCXOCMSG(	R63R1B+16, R65R1B+19
>> OCXOCMSG(999999	R63R1B+16, R65R1B+19
>> OCXOERR	R62R1A+3, R62R1B+3, R62R1B+15, R63R1A+3, R63R1B+3, R63R1B+12, R65R1A+3, R65R1B+3, R65R1B+15, R66R1A+3
>> OCXOLOG	NEWRULE+45
OCXORD	R62R1B+24, R62R1B+25, NEWRULE~, NEWRULE+5*, NEWRULE+13, NEWRULE+20, NEWRULE+26
>> OCXOSRC	R62R1B+20, R62R1B+23, R62R1B+26, R63R1B+8, R65R1B+11
OCXPORD	R62R1B+11~, R63R1B+7~, R65R1B+10~
>> OCXPSD	R62R1B+26, R63R1B+8, R65R1B+11
OCXQUIT	R62R1B+11~, R63R1B+7~, R65R1B+10~
OCXREL	NEWRULE~, NEWRULE+4, NEWRULE+33, NEWRULE+34, NEWRULE+36, NEWRULE+41, NEWRULE+47
OCXRES	MCE106+4~, MCE5+3~, MCE84+3~, MCE91+5~, MCE95+4~
OCXRES(106	MCE106+5*
OCXRES(5	MCE5+4*
OCXRES(84	MCE84+4*
OCXRES(91	MCE91+6, MCE91+8, MCE91+10*, MCE91+11
OCXRES(95	MCE95+5*
OCXRUL	NEWRULE~, NEWRULE+3, NEWRULE+13, NEWRULE+20, NEWRULE+26, NEWRULE+27, NEWRULE+28, NEWRULE+30, NEWRULE+35, NEWRULE+38 , NEWRULE+47
>> OCXRULE("R62R1B"	R62R1B+9, R62R1B+27*
>> OCXRULE("R63R1B"	R63R1B+5
>> OCXRULE("R65R1B"	R65R1B+8
OCXTIME	NEWRULE+7~, NEWRULE+9*, NEWRULE+13, NEWRULE+20, NEWRULE+26, NEWRULE+44
>> OCXTRACE	R62R1B+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	R62R1B+24, R62R1B+25, GETDATA+3, NEWRULE+26, SETAP+2, SETAP+3
VAL	GETDATA+2~, GETDATA+3, GETDATA+4

Customize PDF page

Package: Order Entry Results Reporting

Routine: OCXOZ10

Information

Source Information

Call Graph

Call Graph Total: 3

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Global Variables Directly Accessed

Label References

Local Variables

Legend: