Routine: BGP6D3B

Package	Total	Call Graph
IHS GPRA Information System	9	$$FLU^BGP6D3 ($$ANCONT,$$ANIMCONT,$$BI,$$PNEU)^BGP6D31 ($$DTAP,$$DTAPTD,$$HIGHRP)^BGP6D3A $$FIRSTPDX^BGP6D3C $$PREG^BGP6D7 ($$CPT,$$CPTI,$$TRAN)^BGP6DU $$DATE^BGP6UTL ($$CPTREFT,$$LASTDX,$$NMIREF)^BGP6UTL1 $$EDD^BGP6UTL2
Patient Care Component Reports	2	$$START1^APCLDF $$VD^APCLV
DRG Grouper	1	$$CODEN^ICPTCOD
IHS Patient	1	$$DOB^AUPNPAT
Kernel	1	($$FMADD,$$FMTE)^XLFDT

Package	Total	Caller Graph
IHS GPRA Information System	2	BGP6D3 BGP6EL3

Entry Points

Name	Comments	DBIA/ICR reference
PNEUCONJ(P,BDATE,EDATE,FORE)	;EP
GLAUCOMA(P,BDATE,EDATE)	;EP
TDE
N	;
PREG(P,BDATE,EDATE)	;
IZOSTER(P,BDATE,EDATE,FORE)	;EP
I13	;EP - PN
TD	;new tdap and td stuff for v11.1
PN	;EP - called from elder
OPTOM	;
LASTTDAP(P,BDATE,EDATE)	;EP
PNEUD(P,BDATE,EDATE,FORE)	;EP

External References

Name	Field # of Occurrence
$$START1^APCLDF	IZOSTER+7, PNEUD+7, PNEUD+9, PNEUD+11, PNEUCONJ+7, PNEUCONJ+9, PNEUCONJ+11
$$VD^APCLV	LASTTDAP+8
$$DOB^AUPNPAT	PN+1, PN+8, PN+18, PN+22, TD+1, TD+16, IZOSTER+18, IZOSTER+20, PNEUD+22, PNEUD+24 , PNEUD+26, PNEUCONJ+22, PNEUCONJ+24, PNEUCONJ+26, PNEUCONJ+28, LASTTDAP+22, LASTTDAP+30
$$FLU^BGP6D3	TD+9
$$ANCONT^BGP6D31	PNEUD+19, PNEUCONJ+19, LASTTDAP+19
$$ANIMCONT^BGP6D31	IZOSTER+15
$$BI^BGP6D31	PNEUD+7
$$PNEU^BGP6D31	PN+1, PN+4, PN+10
$$DTAP^BGP6D3A	TD+1
$$DTAPTD^BGP6D3A	TD+4
$$HIGHRP^BGP6D3A	I13+7, I13+8
$$FIRSTPDX^BGP6D3C	TD+33
$$PREG^BGP6D7	PREG+1
$$CPT^BGP6DU	IZOSTER+9, PNEUD+13, PNEUCONJ+13, OPTOM+6
$$CPTI^BGP6DU	LASTTDAP+15
$$TRAN^BGP6DU	IZOSTER+11, PNEUD+15, PNEUCONJ+15
$$DATE^BGP6UTL	PN+41, PN+50, PN+52, OPTOM+8, LASTTDAP+11, LASTTDAP+16, LASTTDAP+20, LASTTDAP+28, LASTTDAP+31
$$CPTREFT^BGP6UTL1	IZOSTER+20, PNEUD+26, PNEUCONJ+28
$$LASTDX^BGP6UTL1	TD+67, TD+69, TD+71, GLAUCOMA+1
$$NMIREF^BGP6UTL1	IZOSTER+18, PNEUD+22, PNEUD+24, PNEUCONJ+22, PNEUCONJ+24, PNEUCONJ+26, LASTTDAP+30
$$EDD^BGP6UTL2	TD+35
$$CODEN^ICPTCOD	LASTTDAP+14, LASTTDAP+29
$$FMADD^XLFDT	PN+4, PN+25, TD+4, TD+33, TD+49, TD+51, TD+52, TD+53, TD+54, TD+67 , TD+69, TD+71, PREG+1
$$FMTE^XLFDT	IZOSTER+5, IZOSTER+6, PNEUD+5, PNEUD+6, PNEUCONJ+5, PNEUCONJ+6

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ATXAX("B"	IZOSTER+9, IZOSTER+11, IZOSTER+20, PNEUD+13, PNEUD+15, PNEUD+26, PNEUCONJ+13, PNEUCONJ+15, PNEUCONJ+28, OPTOM+6
^AUPNPREF - [#9000022]	LASTTDAP+25, LASTTDAP+26
^AUPNPREF("AA"	LASTTDAP+25
^AUPNVIMM - [#9000010.11]	LASTTDAP+6, LASTTDAP+7, LASTTDAP+8
^AUPNVIMM("AA"	LASTTDAP+4, LASTTDAP+5
^AUTTIMM("C"	IZOSTER+18, PNEUD+22, PNEUD+24, PNEUCONJ+22, PNEUCONJ+24, PNEUCONJ+26, LASTTDAP+3, LASTTDAP+24

Label References

Name	Line Occurrences
$$GLAUCOMA	OPTOM+4
$$IZOSTER	TD+16
$$LASTTDAP	TD+39
$$PNEUCONJ	PN+35
$$PNEUD	PN+22, PN+25, PN+28
$$PREG	I13+17
TDE	TD+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	IZOSTER+1~, IZOSTER+9, IZOSTER+10, IZOSTER+11, IZOSTER+12, PNEUD+11, PNEUD+13, PNEUD+14, PNEUD+15, PNEUD+16 , PNEUCONJ+13, PNEUCONJ+14, PNEUCONJ+15, PNEUCONJ+16, OPTOM+6, OPTOM+7, OPTOM+8
B	PN+8, PN+9, PN+18, PN+19, LASTTDAP+1~, LASTTDAP+22, LASTTDAP+25, LASTTDAP+29, LASTTDAP+30
BD	IZOSTER+1~, IZOSTER+3, IZOSTER+9, IZOSTER+11, PNEUD+3, PNEUD+13, PNEUD+15, PNEUCONJ+3*, PNEUCONJ+13, PNEUCONJ+15
BDATE	IZOSTER~, IZOSTER+3, IZOSTER+6, IZOSTER+7, PNEUD~, PNEUD+3, PNEUD+6, PNEUD+7, PNEUD+9, PNEUD+11 , PNEUCONJ~, PNEUCONJ+3, PNEUCONJ+6*, PNEUCONJ+7, PNEUCONJ+9, PNEUCONJ+11, GLAUCOMA~, GLAUCOMA+1, LASTTDAP~, LASTTDAP+9 , LASTTDAP+15, PREG~
BGPA65	PN+10, PN+28, TDE!
>> BGPA65BD	PN+9, PN+10, PN+19, PN+28
>> BGPACTCL	I13+6, I13+7, I13+9, I13+11, I13+13, I13+15, OPTOM+2
>> BGPACTUP	I13+4, I13+8, I13+10, I13+12, I13+14, I13+16
>> BGPAGEB	I13+4, I13+6, I13+7, I13+8, I13+9, I13+10, I13+11, I13+12, I13+13, I13+14 , I13+15, I13+16, PN+10, PN+11, PN+14, PN+15, PN+28, PN+29, PN+32, PN+33 , OPTOM+3
>> BGPBDATE	I13+17, PN+35, TD+35, OPTOM+4, OPTOM+6
>> BGPD1	I13+6, I13+18, PN+39, PN+45, OPTOM+1, OPTOM+5*
>> BGPD10	I13+13*, I13+18
>> BGPD11	I13+14*, I13+18
>> BGPD12	I13+15*, I13+18
>> BGPD13	I13+16*, I13+18
>> BGPD14	I13+17*, I13+18, TD+31
>> BGPD2	I13+5*, I13+18, PN+40, PN+47, PN+48
>> BGPD3	I13+4*, I13+18
>> BGPD4	I13+7*, I13+18, PN+46, PN+48
>> BGPD5	I13+8*, I13+18, PN+46
>> BGPD6	I13+9*, I13+18, PN+45, PN+48
>> BGPD7	I13+10*, I13+18
>> BGPD8	I13+11*, I13+18, PN+45, PN+48
>> BGPD9	I13+12*, I13+18
>> BGPDMD2	I13+5
BGPDTAPP	I13+1~, I13+19*, N+5
>> BGPDV	PN+37, PN+38, PN+39, PN+40, PN+41, PN+42, PN+44, PN+45, PN+46, PN+47 , PN+48*, PN+50
>> BGPEDATE	I13+7, I13+8, I13+17, PN+1, PN+4, PN+10, PN+22, PN+25, PN+28, PN+35 , TD+1, TD+4, TD+9, TD+16, TD+33, TD+35, TD+37, TD+38, OPTOM+4, OPTOM+6
>> BGPEDD	TD+35*, TD+38, TD+44, TD+49, TD+50, TD+51, TD+53, TD+63
BGPFLU	I13+1~, TD+9*, TD+10, TD+11, N+3, N+7, TDE!
>> BGPFPRDX	TD+33*, TD+39
BGPG	IZOSTER+1~, PNEUD+1!, PNEUD+11!, PNEUCONJ+1!
BGPG(1	IZOSTER+8, PNEUD+8, PNEUD+10, PNEUD+12, PNEUCONJ+8, PNEUCONJ+10, PNEUCONJ+12
>> BGPIMM	LASTTDAP+23*, LASTTDAP+24
BGPLPNU	TDE!, IZOSTER+1~, IZOSTER+2, IZOSTER+8, IZOSTER+10, IZOSTER+12, IZOSTER+13, PNEUD+2, PNEUD+8, PNEUD+10* , PNEUD+12, PNEUD+14, PNEUD+16, PNEUD+17, PNEUCONJ+2, PNEUCONJ+8, PNEUCONJ+10, PNEUCONJ+12, PNEUCONJ+14, PNEUCONJ+16* , PNEUCONJ+17
>> BGPN1	PN+2, PN+11, PN+14, PN+15, PN+41, OPTOM+1, OPTOM+7*
>> BGPN10	TD+5*, TD+12, TD+13, TD+19, TD+20, TD+23, TD+24, TD+27, TD+28
>> BGPN11	TD+6*, TD+14, TD+15, TD+21, TD+22, TD+25, TD+26
>> BGPN12	TD+3*, TD+14, TD+15, TD+21, TD+22, TD+25, TD+26
>> BGPN13	TD+10*, TD+12, TD+19, TD+23, TD+27
>> BGPN14	TD+11*, TD+14, TD+21, TD+25
>> BGPN15	TD+12*
>> BGPN16	TD+14*
>> BGPN17	TD+17*, TD+19, TD+20, TD+23, TD+24, TD+27, TD+28
>> BGPN18	TD+18*, TD+21, TD+22, TD+25, TD+26
>> BGPN19	TD+19*
>> BGPN20	TD+21*
>> BGPN21	TD+23*
>> BGPN22	TD+25*
>> BGPN23	PN+23*, PN+29, PN+32, PN+33
>> BGPN24	PN+24*
>> BGPN25	PN+26, PN+28, PN+29*, PN+33
>> BGPN26	PN+27*
>> BGPN27	PN+28*, PN+33
>> BGPN28	PN+31, PN+32, PN+33*, PN+34, PN+52, PN+53
>> BGPN29	TD+27*
>> BGPN3	PN+3*, TD+25, TD+26
>> BGPN30	TD+13*
>> BGPN31	TD+15*
>> BGPN32	TD+20*
>> BGPN33	TD+22*
>> BGPN34	TD+24*
>> BGPN35	TD+26*
>> BGPN36	PN+35*, PN+54
>> BGPN37	PN+26, PN+28, PN+29, PN+34, PN+35*, PN+52, TD+27, TD+28
>> BGPN38	TD+28*
>> BGPN39	TD+40*, TD+42
>> BGPN4	PN+5, PN+10, PN+11*, PN+15
>> BGPN40	TD+41*
>> BGPN41	TD+61, TD+75
>> BGPN42	TD+60, TD+74
>> BGPN43	TD+59, TD+73
>> BGPN44	TD+62, TD+76
>> BGPN6	PN+6*
>> BGPN7	PN+10*, PN+15
>> BGPN8	PN+13, PN+14, PN+15*, PN+41, PN+50, TD+23, TD+24
>> BGPN9	TD+2*, TD+12, TD+13, TD+19, TD+20, TD+23, TD+24, TD+27, TD+28
>> BGPNMI	LASTTDAP+22*
>> BGPPLPNU	I13+19, PN+22, PN+35, PN+36, PN+52
>> BGPPNA65	PN+19*
BGPPNCON	TDE!
BGPPNEU	I13+1~, PN+22*, PN+23, PN+24, PN+36
BGPPNEUD	I13+1~, PN+25*, PN+26, PN+27
>> BGPRTYPE	PN+38, PN+43, PN+48, PN+50, TD+7
>> BGPSEX	I13+17
>> BGPSTOP	I13+18, OPTOM+2, OPTOM+3, OPTOM+4
BGPTD	I13+1~, TD+4*, TD+5, TD+6, N+2, N+6, TDE!
BGPTDAP	I13+1~, I13+19, TD+1, TD+2, TD+3, N+1, N+5, TDE!
BGPTDAPP	TD+36!, TD+39*, TD+40, TD+41, TD+55, TD+64, TDE!
>> BGPTRIM	TD+30, TD+59, TD+60, TD+61, TD+62, TD+73, TD+74, TD+75, TD+76*, N+5
BGPVAL	PN+4*, PN+5, PN+6, TDE!
BGPVALH	PN+41, PN+50, TDE!
>> BGPVALUD	I13+19, PN+51, PN+52, PN+53, PN+54, TD+32, N+5, N+6, N+7, N+8
>> BGPVALUE	I13+19, PN+1, PN+2, PN+3, PN+41, PN+42, PN+50, N+1, N+2, N+3 , N+4, OPTOM+8
BGPX	LASTTDAP+1~, LASTTDAP+2, LASTTDAP+4, LASTTDAP+11, LASTTDAP+16, LASTTDAP+17, LASTTDAP+20, LASTTDAP+28, LASTTDAP+31
BGPZ	IZOSTER+15, PNEUD+19, PNEUCONJ+19, LASTTDAP+1~, LASTTDAP+19
BGPZOST	I13+1~, TD+16*, TD+17, TD+18, N+4, N+8
C	LASTTDAP+1~, LASTTDAP+3, LASTTDAP+4, LASTTDAP+5, LASTTDAP+14, LASTTDAP+15
D	TD+37, TD+38, TD+39, LASTTDAP+1~, LASTTDAP+4, LASTTDAP+5, LASTTDAP+15, LASTTDAP+16, LASTTDAP+25*, LASTTDAP+27
>> DFN	I13+7, I13+8, I13+17, PN+1, PN+4, PN+8, PN+10, PN+18, PN+22, PN+25 , PN+28, PN+35, TD+1, TD+4, TD+9, TD+16, TD+33, TD+35, TD+39, TD+67 , TD+69, TD+71, OPTOM+4, OPTOM+6, PREG+1
E	IZOSTER+1~, IZOSTER+7, PNEUD+7, PNEUD+9, PNEUD+11, PNEUCONJ+7, PNEUCONJ+9, PNEUCONJ+11, LASTTDAP+22, LASTTDAP+25
ED	IZOSTER+1~, IZOSTER+4, IZOSTER+9, IZOSTER+11, IZOSTER+15, IZOSTER+18, IZOSTER+20, PNEUD+4, PNEUD+13, PNEUD+15 , PNEUD+19, PNEUD+22, PNEUD+24, PNEUD+26, PNEUCONJ+4*, PNEUCONJ+13, PNEUCONJ+15, PNEUCONJ+19, PNEUCONJ+22, PNEUCONJ+24 , PNEUCONJ+26, PNEUCONJ+28
EDATE	IZOSTER~, IZOSTER+4, IZOSTER+5, IZOSTER+7, PNEUD~, PNEUD+4, PNEUD+5, PNEUD+7, PNEUD+9, PNEUD+11 , PNEUCONJ~, PNEUCONJ+4, PNEUCONJ+5*, PNEUCONJ+7, PNEUCONJ+9, PNEUCONJ+11, GLAUCOMA~, GLAUCOMA+1, LASTTDAP~, LASTTDAP+10 , LASTTDAP+15, LASTTDAP+19, LASTTDAP+22, LASTTDAP+30, PREG~, PREG+1
FB	TD+47~, TD+53*, TD+58
FE	TD+47~, TD+54*
FORE	IZOSTER~, PNEUD~, PNEUCONJ~
G	TD+48, TD+56, TD+57, TD+58, TD+59, TD+60, TD+61, TD+62, TD+66, TD+68 , TD+70, TD+72, TD+73, TD+74, TD+75, TD+76, IZOSTER+1~, IZOSTER+18, IZOSTER+19, PNEUD+22 , PNEUD+23, PNEUD+24, PNEUD+25, PNEUCONJ+22, PNEUCONJ+23, PNEUCONJ+24, PNEUCONJ+25, PNEUCONJ+26, PNEUCONJ+27, LASTTDAP+1~ , LASTTDAP+30*, LASTTDAP+31
>> I	LASTTDAP+24*, LASTTDAP+25
ID	LASTTDAP+1~, LASTTDAP+6, LASTTDAP+7, LASTTDAP+8, LASTTDAP+9, LASTTDAP+10, LASTTDAP+11
P	IZOSTER~, IZOSTER+7, IZOSTER+9, IZOSTER+11, IZOSTER+15, IZOSTER+18, IZOSTER+20, PNEUD~, PNEUD+7, PNEUD+9 , PNEUD+11, PNEUD+13, PNEUD+15, PNEUD+19, PNEUD+22, PNEUD+24, PNEUD+26, PNEUCONJ~, PNEUCONJ+7, PNEUCONJ+9 , PNEUCONJ+11, PNEUCONJ+13, PNEUCONJ+15, PNEUCONJ+19, PNEUCONJ+22, PNEUCONJ+24, PNEUCONJ+26, PNEUCONJ+28, GLAUCOMA~, GLAUCOMA+1 , LASTTDAP~, LASTTDAP+4, LASTTDAP+5, LASTTDAP+15, LASTTDAP+19, LASTTDAP+22, LASTTDAP+25, LASTTDAP+30, PREG~
R	IZOSTER+1~, IZOSTER+20, IZOSTER+21, PNEUD+26, PNEUD+27, PNEUCONJ+28, PNEUCONJ+29, LASTTDAP+1~, LASTTDAP+22, LASTTDAP+27* , LASTTDAP+28, LASTTDAP+29*
SB	TD+47~, TD+51*, TD+54, TD+57
SE	TD+47~, TD+52*, TD+57
TB	TD+47~, TD+49*, TD+52, TD+56
TE	TD+47~, TD+50*, TD+56
U	PN+2, PN+3, PN+5, PN+6, PN+10, PN+23, PN+24, PN+26, PN+27, PN+28 , PN+35, PN+41, PN+50, PN+52, TD+3, TD+6, TD+10, TD+11, TD+17, TD+18 , TD+55, TD+64, N+1, N+2, N+3, N+4, N+5, N+6, N+7, N+8 , IZOSTER+8, IZOSTER+10, IZOSTER+12, IZOSTER+13, IZOSTER+16, IZOSTER+19, IZOSTER+21, PNEUD+8, PNEUD+10, PNEUD+12 , PNEUD+14, PNEUD+16, PNEUD+17, PNEUD+20, PNEUD+23, PNEUD+25, PNEUD+27, PNEUCONJ+8, PNEUCONJ+10, PNEUCONJ+12 , PNEUCONJ+14, PNEUCONJ+16, PNEUCONJ+17, PNEUCONJ+20, PNEUCONJ+23, PNEUCONJ+25, PNEUCONJ+27, PNEUCONJ+29, OPTOM+8, LASTTDAP+6 , LASTTDAP+7, LASTTDAP+8, LASTTDAP+11, LASTTDAP+16, LASTTDAP+17, LASTTDAP+20, LASTTDAP+25, LASTTDAP+26, LASTTDAP+28, LASTTDAP+31
X	I13+2, I13+3, I13+17, TD+55, TD+56, TD+57, TD+58, TD+64, TD+67, TD+69 , TD+71, IZOSTER+1~, IZOSTER+7, IZOSTER+15, IZOSTER+16, PNEUD+7, PNEUD+9, PNEUD+19, PNEUD+20, PNEUCONJ+7* , PNEUCONJ+9, PNEUCONJ+11, PNEUCONJ+19, PNEUCONJ+20, LASTTDAP+1~, LASTTDAP+5, LASTTDAP+6, LASTTDAP+7, LASTTDAP+8, LASTTDAP+19* , LASTTDAP+20, LASTTDAP+25*
Y	I13+2, I13+3, TD+67, TD+68, TD+69, TD+70, TD+71, TD+72, LASTTDAP+1~, LASTTDAP+25 , LASTTDAP+26

Customize PDF page

Package: IHS GPRA Information System

Routine: BGP6D3B

Information

Source Information

Call Graph

Call Graph Total: 14

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Global Variables Directly Accessed

Label References

Local Variables

Legend: