Routine: BGP6D72

Package	Total	Call Graph
IHS GPRA Information System	6	$$DATE^BGP1UTL $$LDL^BGP6D2 ($$CPT,$$CPTI,$$TRAN,$$TRANI)^BGP6DU $$DATE^BGP6UTL ($$LASTDX,$$LASTPRC)^BGP6UTL1 ($$ICD,$$ICDDX)^BGP6UTL2
Kernel	2	($$FMADD,$$FMTE)^XLFDT $$UP^XLFSTR
DRG Grouper	1	$$CODEN^ICPTCOD
IHS Patient	1	$$DOB^AUPNPAT
IHS VA Utilities	1	$$VAL^XBDIQ1
Patient Care Component Reports	1	$$START1^APCLDF

Package	Total	Caller Graph
IHS GPRA Information System	4	BGP6D721 BGP6D731 BGP6D75 BGP6D87

Name	Comments	DBIA/ICR reference
READM(P,D,PV)	;EP
DSCH(H)	;
AMI(P,BDATE,EDATE)	;
EXPIRED(H)	;EP
CHOL(P,BDATE,EDATE)	;
BETAALG1(P,BGPD)	;EP - Beta Blocker allergy
LOINC(A,B)	;
AMA(H)	;EP
AMIO(P,BDATE,EDATE)	;
AMIH(P,BDATE,EDATE)	;
IHEDCHM	;EP
BETAPOV	;
TRANS(H)	;EP

Name	Field # of Occurrence
$$START1^APCLDF	AMIO+4, AMI+3, AMIH+3, BETAPOV+1, BETAPOV+11
$$DOB^AUPNPAT	BETAPOV+1, BETAPOV+11
$$DATE^BGP1UTL	BETAPOV+6, BETAPOV+7, BETAPOV+8
$$LDL^BGP6D2	IHEDCHM+9
$$CPT^BGP6DU	AMIO+10, AMIO+20
$$CPTI^BGP6DU	CHOL+14
$$TRAN^BGP6DU	AMIO+12, AMIO+22
$$TRANI^BGP6DU	CHOL+15
$$DATE^BGP6UTL	IHEDCHM+27, BETAPOV+4, BETAPOV+14, BETAPOV+25, BETAPOV+33
$$LASTDX^BGP6UTL1	AMIO+14, AMIO+24, AMIO+27, AMIO+28
$$LASTPRC^BGP6UTL1	AMIO+7, AMIO+17
$$ICD^BGP6UTL2	AMI+19, AMIH+20, BETAPOV+6, BETAPOV+7, BETAPOV+8, BETAPOV+25
$$ICDDX^BGP6UTL2	BETAPOV+6, BETAPOV+7, BETAPOV+8, BETAPOV+20
$$CODEN^ICPTCOD	CHOL+14, CHOL+15
$$VAL^XBDIQ1	BETAPOV+3, BETAPOV+13, BETAPOV+21
$$FMADD^XLFDT	AMIO+4, AMIO+7, AMIO+10, AMIO+12, AMIO+14, AMIO+17, AMIO+20, AMIO+22, AMIO+24, AMIO+28 , READM+1
$$FMTE^XLFDT	AMI+3, AMIH+3, BETAPOV+1, BETAPOV+11
$$UP^XLFSTR	BETAPOV+3, BETAPOV+13, BETAPOV+21, BETAPOV+32

Name	Line Occurrences (* Changed, ! Killed)
^ATXAX - [#9002226]	LOINC+3, LOINC+5
^ATXAX("B"	CHOL+4, AMIO+10, AMIO+12, AMIO+20, AMIO+22, AMI+5, AMIH+5, BETAPOV+5, BETAPOV+18, BETAPOV+25
^ATXLAB - [#9002228]	CHOL+9
^ATXLAB("B"	CHOL+3
^AUPNPROB - [#9000011]	BETAPOV+20, BETAPOV+22, BETAPOV+23, BETAPOV+24, BETAPOV+25
^AUPNPROB("AC"	BETAPOV+19
^AUPNVINP - [#9000010.02]	AMI+23, AMIH+15, AMIH+24, AMA+1, EXPIRED+1, DSCH+1, TRANS+1
^AUPNVINP("AD"	AMI+12, AMI+22, AMIH+12, AMIH+23
^AUPNVLAB - [#9000010.09]	CHOL+8, CHOL+9, CHOL+10, CHOL+11
^AUPNVLAB("AE"	CHOL+5, CHOL+6, CHOL+7
^AUPNVPOV - [#9000010.07]	AMI+19, AMIH+20, BETAPOV+6, BETAPOV+7, BETAPOV+8
^AUPNVPOV("AD"	AMI+19, AMIH+20
^AUPNVSIT - [#9000010]	AMI+7, AMI+8, AMI+9, AMI+10, AMI+12, AMI+20, AMIH+7, AMIH+8, AMIH+9, AMIH+10 , AMIH+21, READM+5
^AUPNVSIT("AAH"	READM+2, READM+3
^DG(405.1 - [#405.1]	AMA+3, EXPIRED+3, TRANS+3
^GMR(120.8 - [#120.8]	BETAPOV+30, BETAPOV+31, BETAPOV+32, BETAPOV+33
^LAB(95.3 - [#95.3]	LOINC+2, LOINC+4
^TMP($J	IHEDCHM+30!, AMI+2!, AMI+4, AMI+6, AMIH+2!, AMIH+4, AMIH+6

Name	Line Occurrences
$$AMA	AMI+15, AMIH+16
$$AMIO	IHEDCHM+5
$$EXPIRED	AMI+17, AMIH+18
$$LOINC	CHOL+11
$$TRANS	AMI+16, AMIH+17

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	CHOL+14, CHOL+15, LOINC+1~, LOINC+2, LOINC+3, LOINC+4, LOINC+5, AMI+19, AMIH+20
A	LOINC~, LOINC+2, LOINC+4, AMI+3, AMIH+3
B	CHOL+2, CHOL+5, LOINC~, LOINC+3, LOINC+5, AMI+3, AMI+12, AMI+13, AMI+18, AMIH+3 , AMIH+12, AMIH+13, AMIH+19
BDATE	CHOL~, CHOL+5, CHOL+14, CHOL+15, AMIO~, AMIO+4, AMIO+7, AMIO+10, AMIO+12, AMIO+14 , AMIO+17, AMIO+20, AMIO+22, AMIO+24, AMIO+27, AMIO+28, AMI~, AMI+3, AMIH~, AMIH+3
>> BGPACTCL	IHEDCHM+7
>> BGPACTUP	IHEDCHM+4, IHEDCHM+6
>> BGPAGEB	IHEDCHM+2, IHEDCHM+3
BGPAMI	IHEDCHM+5*, IHEDCHM+29!
>> BGPBDATE	IHEDCHM+5, IHEDCHM+9
>> BGPC	BETAALG1+1, BETAPOV+4, BETAPOV+6, BETAPOV+7, BETAPOV+8, BETAPOV+10, BETAPOV+11, BETAPOV+14, BETAPOV+15, BETAPOV+17 , BETAPOV+25, BETAPOV+27, BETAPOV+29, BETAPOV+33*, BETAPOV+34
BGPD	BETAALG1~, BETAPOV+1, BETAPOV+11, BETAPOV+22, BETAPOV+31
>> BGPD1	IHEDCHM+1, IHEDCHM+7, IHEDCHM+8, IHEDCHM+26
>> BGPD2	IHEDCHM+1, IHEDCHM+6
>> BGPD3	IHEDCHM+1*
>> BGPD4	IHEDCHM+1*
>> BGPD5	IHEDCHM+1*
>> BGPD6	IHEDCHM+1*
>> BGPD7	IHEDCHM+1*
>> BGPD8	IHEDCHM+1*
>> BGPD9	IHEDCHM+1*
>> BGPEDATE	IHEDCHM+5, IHEDCHM+9
BGPG	CHOL+1!, AMIO+1~, AMIO+2!, AMIO+7, AMIO+8, AMIO+10, AMIO+11, AMIO+12, AMIO+13, AMIO+14 , AMIO+15, AMIO+17, AMIO+18, AMIO+20, AMIO+21, AMIO+22, AMIO+23, AMIO+24, AMIO+25, BETAPOV+1! , BETAPOV+11!
BGPG(	BETAPOV+2, BETAPOV+4, BETAPOV+6, BETAPOV+7, BETAPOV+8, BETAPOV+12, BETAPOV+14
BGPG(1	AMIO+5, AMIO+27*, AMIO+29
BGPG(2	AMIO+28*, AMIO+29
BGPLDL	IHEDCHM+9*, IHEDCHM+10, IHEDCHM+11, IHEDCHM+12, IHEDCHM+19, IHEDCHM+20, IHEDCHM+25, IHEDCHM+27, IHEDCHM+29!
>> BGPN1	IHEDCHM+1, IHEDCHM+10
>> BGPN2	IHEDCHM+1, IHEDCHM+13, IHEDCHM+16, IHEDCHM+21, IHEDCHM+24*
>> BGPN3	IHEDCHM+1, IHEDCHM+17
>> BGPN4	IHEDCHM+1, IHEDCHM+18
>> BGPN5	IHEDCHM+1*
>> BGPN6	IHEDCHM+1*
>> BGPN7	IHEDCHM+1*
>> BGPRTYPE	IHEDCHM+8, IHEDCHM+9, IHEDCHM+11, IHEDCHM+19, IHEDCHM+26
>> BGPSTOP	IHEDCHM+2, IHEDCHM+3, IHEDCHM+4, IHEDCHM+5, IHEDCHM+8*
>> BGPVALUE	IHEDCHM+28*
>> BGPX	AMI+6, AMIH+6
>> BGPXPHV	IHEDCHM+25*
BGPY	BETAPOV+1!
BGPY(	BETAPOV+4, BETAPOV+6, BETAPOV+7, BETAPOV+8, BETAPOV+10, BETAPOV+14, BETAPOV+15, BETAPOV+25, BETAPOV+27, BETAPOV+33* , BETAPOV+34
D	IHEDCHM+29!, CHOL+2, CHOL+5, CHOL+6, CHOL+7, CHOL+9, CHOL+11, AMI+6, AMI+19, AMI+20 , AMI+22, AMIH+6, AMIH+20, AMIH+21, AMIH+23, READM~, READM+1, READM+6
>> DFN	IHEDCHM+5, IHEDCHM+9, BETAPOV+11
>> E	CHOL+2, CHOL+5, CHOL+14, CHOL+15, AMIO+4, AMI+3, AMI+6, AMIH+3, AMIH+6, READM+5 , READM+6, READM+7, BETAPOV+1, BETAPOV+11
>> ED	READM+1*, READM+7
EDATE	CHOL~, CHOL+5, CHOL+14, CHOL+15, AMIO~, AMIO+27, AMI~, AMI+3, AMIH~, AMIH+3 , AMIH+15
G	CHOL+2, CHOL+5, CHOL+6, CHOL+7, CHOL+9, CHOL+11, CHOL+13, AMI+2!, AMI+6, AMI+20* , AMI+21, AMIH+2!, AMIH+6, AMIH+21, AMIH+22, READM+1, READM+8, READM+9
G(	AMI+20, AMI+22, AMIH+21, AMIH+23
G(0	AMI+22, AMI+23, AMIH+23, AMIH+24
H	AMI+11, AMI+12, AMI+14, AMI+15, AMI+16, AMI+17, AMI+22, AMI+23, AMIH+11, AMIH+12* , AMIH+14, AMIH+15, AMIH+16, AMIH+17, AMIH+18, AMIH+23*, AMIH+24, AMA~, AMA+1, EXPIRED~ , EXPIRED+1, DSCH~, DSCH+1, TRANS~, TRANS+1
>> I	BETAPOV+20*, BETAPOV+25
>> J	CHOL+10*, CHOL+11
>> L	CHOL+2, CHOL+6, CHOL+7
>> M	CHOL+2, AMI+6, AMIH+6*
>> N	CHOL+2, CHOL+4, CHOL+11, BETAPOV+3, BETAPOV+4, BETAPOV+13, BETAPOV+14, BETAPOV+21, BETAPOV+25, BETAPOV+32 , BETAPOV+33
>> O	CHOL+2*
P	CHOL~, CHOL+5, CHOL+6, CHOL+7, CHOL+14, CHOL+15, AMIO~, AMIO+4, AMIO+7, AMIO+10 , AMIO+12, AMIO+14, AMIO+17, AMIO+20, AMIO+22, AMIO+24, AMIO+27, AMIO+28, AMI~, AMI+3 , AMIH~, AMIH+3, READM~, READM+2, READM+3, BETAALG1~, BETAPOV+1, BETAPOV+11, BETAPOV+19, BETAPOV+30
PV	READM~, READM+4
>> Q	CHOL+2*
>> R	CHOL+2, CHOL+3, CHOL+9
>> S	CHOL+2*
>> T	AMI+5, AMI+19, AMIH+5, AMIH+20, BETAPOV+5, BETAPOV+6, BETAPOV+7, BETAPOV+8, BETAPOV+18, BETAPOV+25
U	IHEDCHM+5, IHEDCHM+10, IHEDCHM+11, IHEDCHM+12, IHEDCHM+19, IHEDCHM+20, IHEDCHM+25, IHEDCHM+27, CHOL+9, CHOL+10 , CHOL+11, CHOL+14, CHOL+15, LOINC+2, LOINC+4, AMIO+5, AMIO+8, AMIO+11, AMIO+13, AMIO+15 , AMIO+18, AMIO+21, AMIO+23, AMIO+25, AMIO+29, AMI+6, AMI+8, AMI+9, AMI+10, AMI+12 , AMI+19, AMI+20, AMI+23, AMIH+6, AMIH+8, AMIH+9, AMIH+10, AMIH+15, AMIH+20, AMIH+21 , AMIH+24, READM+5, AMA+1, AMA+3, EXPIRED+1, EXPIRED+3, DSCH+1, TRANS+1, TRANS+3, BETAPOV+2 , BETAPOV+4, BETAPOV+6, BETAPOV+7, BETAPOV+8, BETAPOV+10, BETAPOV+12, BETAPOV+14, BETAPOV+15, BETAPOV+20, BETAPOV+22 , BETAPOV+23, BETAPOV+24, BETAPOV+25, BETAPOV+27, BETAPOV+31, BETAPOV+32, BETAPOV+33, BETAPOV+34
V	IHEDCHM+12, IHEDCHM+13, IHEDCHM+14, IHEDCHM+15, IHEDCHM+16, IHEDCHM+17, IHEDCHM+18, IHEDCHM+20, IHEDCHM+21, IHEDCHM+22 , IHEDCHM+23, IHEDCHM+24, IHEDCHM+26, IHEDCHM+27, IHEDCHM+28, IHEDCHM+29!, AMI+6, AMI+7, AMI+8, AMI+9 , AMI+10, AMI+12, AMI+19, AMI+20, AMI+22, AMI+23, AMIH+6, AMIH+7, AMIH+8, AMIH+9 , AMIH+10, AMIH+12, AMIH+20, AMIH+21, AMIH+23, AMIH+24, READM+2, READM+3, READM+4, READM+5
>> X	CHOL+7, CHOL+8, CHOL+9, CHOL+10, CHOL+11, AMIO+4, READM+2, READM+3, AMA+1, AMA+2 , AMA+3, AMA+4, EXPIRED+1, EXPIRED+2, EXPIRED+3, EXPIRED+4, TRANS+1, TRANS+2, TRANS+3, TRANS+4 , BETAPOV+1, BETAPOV+2, BETAPOV+4, BETAPOV+6, BETAPOV+7, BETAPOV+8, BETAPOV+11, BETAPOV+12, BETAPOV+14, BETAPOV+19 , BETAPOV+20, BETAPOV+21, BETAPOV+22, BETAPOV+23, BETAPOV+24, BETAPOV+25, BETAPOV+30*, BETAPOV+31, BETAPOV+32, BETAPOV+33
>> Y	AMIO+3, AMIO+4, AMI+19, AMIH+20, BETAPOV+1, BETAPOV+2, BETAPOV+3, BETAPOV+6, BETAPOV+7, BETAPOV+8 , BETAPOV+11, BETAPOV+12, BETAPOV+13, BETAPOV+20, BETAPOV+25
>> Z	BETAPOV+6, BETAPOV+7, BETAPOV+8*

Customize PDF page

Package: IHS GPRA Information System

Routine: BGP6D72

Information

Source Information

Call Graph

Call Graph Total: 12

Caller Graph

Caller Graph Total: 4

Entry Points

External References

Global Variables Directly Accessed

Label References

Local Variables

Legend: