Routine: BGP2D31

Package	Total	Call Graph
IHS GPRA Information System	4	$$DATE^BGP1UTL ($$CPT,$$TRAN)^BGP2DU $$DATE^BGP2UTL ($$CPTREFT,$$LASTPRC,$$NMIREF,$$REFUSAL)^BGP2UTL1
Patient Care Component Reports	2	$$START1^APCLDF ($$CLINIC,$$PRIMPOV)^APCLV
IHS Patient	1	$$DOB^AUPNPAT
Kernel	1	($$FMADD,$$FMTE)^XLFDT
Taxonomy	1	$$ICD^ATXCHK

Package	Total	Caller Graph
IHS GPRA Information System	14	BGP2CU2 BGP2D28 BGP2D3 BGP2D33 BGP2D34 BGP2D35 BGP2D36 BGP2D37 BGP2D38 BGP2D3A BGP2D811 BGP2D86 BGP2DPA1 BGP2EL31

Name	Comments	DBIA/ICR reference
MMRCONT(P,C,ED)	;EP - ANApHYLAXIS/NEOMYCIN/IMMUNE CONTRAINDICATION
BI()	;
HOSP(P,BDATE,EDATE)	;EP
ANEGCONT(P,C,ED)	;EP - ANALPHYLAXIS/EGG CONTRAINDICATION
ERURG(P,BDATE,EDATE)	;EP
LAST(P,BDATE,EDATE)	;EP last asthma dx
II	;EP
SEV(P,BDATE,EDATE)	;EP
V2ASTH(P,BDATE,EDATE)	;EP
ANNECONT(P,C,ED)	;EP - ANALPHYLAXIS/NEOMYCIN CONTRAINDICATION
PNEU(P,BDATE,EDATE,FORE)	;EP
ANCONT(P,C,ED)	;EP - ANALPHYLAXIS CONTRAINDICATION
ANIMCONT(P,C,ED)	;EP - ANApHYLAXIS/IMMUNE CONTRAINDICATION

Name	Field # of Occurrence
$$START1^APCLDF	ERURG+5, V2ASTH+4, LAST+3, HOSP+4, PNEU+7, PNEU+9, PNEU+11, PNEU+13, PNEU+17
$$CLINIC^APCLV	ERURG+14
$$PRIMPOV^APCLV	ERURG+16, HOSP+13
$$ICD^ATXCHK	ERURG+16, V2ASTH+13, V2ASTH+26, SEV+8, HOSP+13
$$DOB^AUPNPAT	II+10, PNEU+28, PNEU+30, PNEU+32, PNEU+34
$$DATE^BGP1UTL	ERURG+18
$$CPT^BGP2DU	PNEU+19
$$TRAN^BGP2DU	PNEU+21
$$DATE^BGP2UTL	II+17, V2ASTH+15, V2ASTH+39, LAST+4
$$CPTREFT^BGP2UTL1	PNEU+46
$$LASTPRC^BGP2UTL1	PNEU+15
$$NMIREF^BGP2UTL1	PNEU+28, PNEU+30, PNEU+32, PNEU+34
$$REFUSAL^BGP2UTL1	PNEU+37, PNEU+39, PNEU+41, PNEU+43
$$FMADD^XLFDT	PNEU+37, PNEU+39, PNEU+41, PNEU+43, PNEU+45
$$FMTE^XLFDT	ERURG+5, V2ASTH+4, LAST+3, HOSP+4, PNEU+5, PNEU+6, PNEU+37, PNEU+39, PNEU+41, PNEU+43

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ATXAX("B"	ERURG+7, V2ASTH+6, V2ASTH+21, SEV+3, HOSP+6, PNEU+19, PNEU+21, PNEU+46
^AUPNPROB - [#9000011]	V2ASTH+23, V2ASTH+24, V2ASTH+25, V2ASTH+27, V2ASTH+28, V2ASTH+29, SEV+5, SEV+6, SEV+7, SEV+9 , SEV+10
^AUPNPROB("AC"	V2ASTH+22, SEV+4
^AUPNVAST("AS"	V2ASTH+33, V2ASTH+36, V2ASTH+38, SEV+14, SEV+17, SEV+19
^AUPNVPOV - [#9000010.07]	V2ASTH+13
^AUPNVPOV("AD"	V2ASTH+13
^AUPNVSIT - [#9000010]	ERURG+10, ERURG+11, ERURG+12, ERURG+13, ERURG+16, V2ASTH+9, V2ASTH+10, V2ASTH+11, V2ASTH+12, HOSP+9 , HOSP+10, HOSP+11, HOSP+12, HOSP+13
^AUPNVSIT("AC"	ERURG+3, V2ASTH+2, HOSP+2
^AUTTIMM("C"	PNEU+28, PNEU+30, PNEU+32, PNEU+34, PNEU+37, PNEU+39, PNEU+41, PNEU+43, PNEU+48, PNEU+59 , PNEU+70, PNEU+81, ANCONT+2, ANNECONT+2, MMRCONT+2, ANIMCONT+2, ANEGCONT+2
^AUTTIMM(0	BI+1
^BICONT - [#9002084.81]	PNEU+51, PNEU+52, PNEU+62, PNEU+63, PNEU+73, PNEU+74, PNEU+84, PNEU+85, ANCONT+5, ANCONT+10 , ANNECONT+5, ANNECONT+10, ANNECONT+11, MMRCONT+5, MMRCONT+10, MMRCONT+11, MMRCONT+12, MMRCONT+13, ANIMCONT+5, ANIMCONT+10 , ANIMCONT+11, ANIMCONT+12, ANEGCONT+5, ANEGCONT+10, ANEGCONT+11
^BIPC - [#9002084.11]	PNEU+49, PNEU+53, PNEU+55, PNEU+56, PNEU+60, PNEU+64, PNEU+66, PNEU+67, PNEU+71, PNEU+75 , PNEU+77, PNEU+78, PNEU+82, PNEU+86, PNEU+87, PNEU+89, ANCONT+3, ANCONT+6, ANCONT+9, ANNECONT+3 , ANNECONT+6, ANNECONT+9, MMRCONT+3, MMRCONT+6, MMRCONT+9, ANIMCONT+3, ANIMCONT+6, ANIMCONT+9, ANEGCONT+3, ANEGCONT+6 , ANEGCONT+9
^BIPC("AC"	PNEU+48, PNEU+59, PNEU+70, PNEU+81, ANCONT+2, ANNECONT+2, MMRCONT+2, ANIMCONT+2, ANEGCONT+2
^TMP($J	ERURG+4!, ERURG+6, ERURG+9, V2ASTH+3!, V2ASTH+5, V2ASTH+8, V2ASTH+15, HOSP+3!, HOSP+5, HOSP+8

Name	Line Occurrences
$$ANCONT	PNEU+25
$$BI	PNEU+7
$$ERURG	II+8
$$HOSP	II+7
$$SEV	II+10
$$V2ASTH	II+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	II+18!, ERURG+16, V2ASTH+13, HOSP+13, PNEU+17, PNEU+19, PNEU+20, PNEU+21, PNEU+22
A	II+18!, ERURG+1~, ERURG+5, V2ASTH+4, V2ASTH+19~, SEV+1~, HOSP+4*
B	II+18!, ERURG+5, V2ASTH+4, V2ASTH+19~, SEV+1~, HOSP+4*
>> BD	PNEU+3*, PNEU+19, PNEU+21
BDATE	II+18!, ERURG~, ERURG+5, V2ASTH~, V2ASTH+4, SEV~, LAST~, LAST+3, HOSP~, HOSP+4 , PNEU~, PNEU+3, PNEU+6*, PNEU+7, PNEU+9, PNEU+11, PNEU+13, PNEU+15, PNEU+17
>> BGPACTCL	II+4
>> BGPACTUP	II+2, II+3
>> BGPBDATE	II+6, II+7, II+8
>> BGPD1	II+1, II+3
>> BGPD2	II+1, II+4, II+5, II+17
>> BGPD3	II+1*
>> BGPD4	II+1*
>> BGPD5	II+1*
>> BGPD6	II+1*
>> BGPD7	II+1*
>> BGPD8	II+1*
>> BGPD9	II+1*
>> BGPEDATE	II+6, II+7, II+8, II+10
BGPG	LAST+1!, PNEU+1!, PNEU+15!, PNEU+17!
BGPG(1	LAST+4, PNEU+8, PNEU+10, PNEU+12, PNEU+14, PNEU+15*, PNEU+16, PNEU+18
>> BGPHOSP	II+1, II+7, II+17
>> BGPLPNU	PNEU+2, PNEU+8, PNEU+10, PNEU+12, PNEU+14, PNEU+16, PNEU+18, PNEU+20, PNEU+22, PNEU+23 , PNEU+38, PNEU+40, PNEU+42, PNEU+44, PNEU+58, PNEU+69, PNEU+80, PNEU+91*, PNEU+92
>> BGPN1	II+1, II+6, II+7, II+16, II+17
>> BGPN2	II+1, II+7
>> BGPN3	II+1, II+9, II+17
>> BGPN4	II+1, II+11
>> BGPN5	II+1, II+12
>> BGPN6	II+1, II+13
>> BGPN7	II+1, II+14
>> BGPN8	II+1, II+15
>> BGPNER	II+1, II+8, II+9, II+17
>> BGPRBEG	PNEU+45*, PNEU+46, PNEU+55, PNEU+66, PNEU+77, PNEU+87
>> BGPSEV	II+1, II+10, II+11, II+12, II+13, II+14, II+15, II+17
>> BGPSTOP	II+2, II+5
>> BGPVALUE	II+17*
>> BGPZ	PNEU+25*
C	II+18!, ERURG+14*, ERURG+15, ANCONT~, ANCONT+2, ANNECONT~, ANNECONT+2, MMRCONT~, MMRCONT+2, ANIMCONT~ , ANIMCONT+2, ANEGCONT~, ANEGCONT+2
D	II+18!, ERURG+1~, V2ASTH+13, V2ASTH+14, V2ASTH+33, V2ASTH+34, V2ASTH+36, V2ASTH+38, V2ASTH+39, SEV+14* , SEV+15, SEV+17, SEV+19, PNEU+53, PNEU+54, PNEU+64, PNEU+65, PNEU+75, PNEU+76, PNEU+86 , PNEU+88, ANCONT+6, ANCONT+7, ANCONT+10, ANNECONT+6, ANNECONT+7, ANNECONT+10, ANNECONT+11, MMRCONT+6, MMRCONT+7 , MMRCONT+10, MMRCONT+11, MMRCONT+12, MMRCONT+13, ANIMCONT+6, ANIMCONT+7, ANIMCONT+10, ANIMCONT+11, ANIMCONT+12, ANEGCONT+6* , ANEGCONT+7, ANEGCONT+10, ANEGCONT+11
>> DFN	II+6, II+7, II+8, II+10
E	II+18!, ERURG+1~, ERURG+5, V2ASTH+4, V2ASTH+36, SEV+17, LAST+3, HOSP+4, PNEU+7, PNEU+9 , PNEU+11, PNEU+13, PNEU+17*
ED	PNEU+4*, PNEU+19, PNEU+21, PNEU+25, PNEU+28, PNEU+30, PNEU+32, PNEU+34, PNEU+37, PNEU+39 , PNEU+41, PNEU+43, PNEU+45, PNEU+46, PNEU+56, PNEU+67, PNEU+78, PNEU+89, ANCONT~, ANCONT+9 , ANNECONT~, ANNECONT+9, MMRCONT~, MMRCONT+9, ANIMCONT~, ANIMCONT+9, ANEGCONT~, ANEGCONT+9
EDATE	II+18!, ERURG~, ERURG+5, V2ASTH~, V2ASTH+4, V2ASTH+23, V2ASTH+32, SEV~, SEV+5, SEV+13 , LAST~, LAST+3, HOSP~, HOSP+4, PNEU~, PNEU+4, PNEU+5*, PNEU+7, PNEU+9, PNEU+11 , PNEU+13, PNEU+15, PNEU+17, PNEU+37, PNEU+39, PNEU+41, PNEU+43
>> EDATE1	V2ASTH+32, V2ASTH+33, SEV+13, SEV+14
F	II+18!
FORE	PNEU~, PNEU+36
G	ERURG+1~, ERURG+9, ERURG+16, ERURG+18, V2ASTH+8, V2ASTH+15, V2ASTH+17, V2ASTH+19~, V2ASTH+20, V2ASTH+22 , V2ASTH+29, V2ASTH+31, SEV+1~, SEV+2, SEV+4, HOSP+8, HOSP+13, HOSP+15, PNEU+28, PNEU+29 , PNEU+30, PNEU+31, PNEU+32, PNEU+33, PNEU+34, PNEU+35, PNEU+37, PNEU+38, PNEU+39, PNEU+40 , PNEU+41, PNEU+42, PNEU+43, PNEU+44, PNEU+48, PNEU+57, PNEU+58, PNEU+59, PNEU+68, PNEU+69 , PNEU+70, PNEU+79, PNEU+80, PNEU+81, PNEU+90, PNEU+91, ANCONT+2, ANCONT+10, ANCONT+11, ANNECONT+2 , ANNECONT+10, ANNECONT+11, ANNECONT+12, MMRCONT+2, MMRCONT+10, MMRCONT+11, MMRCONT+12, MMRCONT+13, MMRCONT+14, ANIMCONT+2 , ANIMCONT+10, ANIMCONT+11, ANIMCONT+12, ANIMCONT+13, ANEGCONT+2, ANEGCONT+10, ANEGCONT+11, ANEGCONT+12
G(	SEV+12
G(0	SEV+12
G(9999999	SEV+10*
H	II+18!, ERURG+16, ERURG+18, HOSP+8, HOSP+13*, HOSP+15
>> LAST	V2ASTH+36, V2ASTH+37, V2ASTH+38, SEV+17, SEV+18, SEV+19
P	II+18!, ERURG~, ERURG+2, ERURG+3, ERURG+5, V2ASTH~, V2ASTH+1, V2ASTH+2, V2ASTH+4, V2ASTH+22 , V2ASTH+33, V2ASTH+36, V2ASTH+38, SEV~, SEV+4, SEV+14, SEV+17, SEV+19, LAST~, LAST+3 , HOSP~, HOSP+1, HOSP+2, HOSP+4, PNEU~, PNEU+7, PNEU+9, PNEU+11, PNEU+13, PNEU+15 , PNEU+17, PNEU+19, PNEU+21, PNEU+25, PNEU+28, PNEU+30, PNEU+32, PNEU+34, PNEU+37, PNEU+39 , PNEU+41, PNEU+43, PNEU+46, PNEU+48, PNEU+59, PNEU+70, PNEU+81, ANCONT~, ANCONT+2, ANNECONT~ , ANNECONT+2, MMRCONT~, MMRCONT+2, ANIMCONT~, ANIMCONT+2, ANEGCONT~, ANEGCONT+2
>> R	PNEU+49, PNEU+50, PNEU+51, PNEU+52, PNEU+60, PNEU+61, PNEU+62, PNEU+63, PNEU+71, PNEU+72 , PNEU+73, PNEU+74, PNEU+82, PNEU+83, PNEU+84, PNEU+85, ANCONT+3, ANCONT+4, ANCONT+5, ANCONT+10 , ANNECONT+3, ANNECONT+4, ANNECONT+5, ANNECONT+10, ANNECONT+11, MMRCONT+3, MMRCONT+4, MMRCONT+5, MMRCONT+10, MMRCONT+11 , MMRCONT+12, MMRCONT+13, ANIMCONT+3, ANIMCONT+4, ANIMCONT+5, ANIMCONT+10, ANIMCONT+11, ANIMCONT+12, ANEGCONT+3*, ANEGCONT+4 , ANEGCONT+5, ANEGCONT+10, ANEGCONT+11
S	II+18!, V2ASTH+19~, V2ASTH+38, V2ASTH+39, SEV+1~, SEV+19, SEV+20
T	II+18!, ERURG+1~, ERURG+7, ERURG+8, ERURG+16, V2ASTH+6, V2ASTH+7, V2ASTH+13, V2ASTH+19~, V2ASTH+21* , V2ASTH+26, SEV+1~, SEV+3, SEV+8, HOSP+6, HOSP+7, HOSP+13, PNEU+46, PNEU+47
U	II+9, II+16, II+17, ERURG+9, ERURG+11, ERURG+12, ERURG+13, ERURG+16, ERURG+18, V2ASTH+8 , V2ASTH+10, V2ASTH+11, V2ASTH+12, V2ASTH+13, V2ASTH+15, V2ASTH+17, V2ASTH+23, V2ASTH+24, V2ASTH+25, V2ASTH+27 , V2ASTH+28, V2ASTH+29, V2ASTH+39, SEV+5, SEV+6, SEV+7, SEV+9, SEV+10, LAST+4, HOSP+8 , HOSP+10, HOSP+11, HOSP+12, HOSP+13, PNEU+8, PNEU+10, PNEU+12, PNEU+14, PNEU+16, PNEU+18 , PNEU+20, PNEU+22, PNEU+23, PNEU+26, PNEU+29, PNEU+31, PNEU+33, PNEU+35, PNEU+38, PNEU+40 , PNEU+42, PNEU+44, PNEU+47, PNEU+49, PNEU+52, PNEU+53, PNEU+55, PNEU+56, PNEU+58, PNEU+60 , PNEU+63, PNEU+64, PNEU+66, PNEU+67, PNEU+69, PNEU+71, PNEU+74, PNEU+75, PNEU+77, PNEU+78 , PNEU+80, PNEU+82, PNEU+85, PNEU+86, PNEU+87, PNEU+89, PNEU+91, ANCONT+3, ANCONT+6, ANCONT+9 , ANCONT+10, ANNECONT+3, ANNECONT+6, ANNECONT+9, ANNECONT+10, ANNECONT+11, MMRCONT+3, MMRCONT+6, MMRCONT+9, MMRCONT+10 , MMRCONT+11, MMRCONT+12, MMRCONT+13, ANIMCONT+3, ANIMCONT+6, ANIMCONT+9, ANIMCONT+10, ANIMCONT+11, ANIMCONT+12, ANEGCONT+3 , ANEGCONT+6, ANEGCONT+9, ANEGCONT+10, ANEGCONT+11
V	II+18!, ERURG+1~, ERURG+9, ERURG+10, ERURG+11, ERURG+12, ERURG+13, ERURG+14, ERURG+16, V2ASTH+8 , V2ASTH+9, V2ASTH+10, V2ASTH+11, V2ASTH+12, V2ASTH+13, V2ASTH+19~, SEV+1~, HOSP+8*, HOSP+9, HOSP+10 , HOSP+11, HOSP+12, HOSP+13
X	II+18!, ERURG+1~, ERURG+9, V2ASTH+8, V2ASTH+15, V2ASTH+19~, V2ASTH+22, V2ASTH+23, V2ASTH+24, V2ASTH+25 , V2ASTH+27, V2ASTH+28, V2ASTH+29, SEV+1~, SEV+4, SEV+5, SEV+6, SEV+7, SEV+9, SEV+10 , SEV+12, LAST+3, HOSP+8, PNEU+7, PNEU+9, PNEU+11, PNEU+13, PNEU+25, PNEU+26, PNEU+48* , PNEU+49, PNEU+53, PNEU+55, PNEU+56, PNEU+59, PNEU+60, PNEU+64, PNEU+66, PNEU+67, PNEU+70 , PNEU+71, PNEU+75, PNEU+77, PNEU+78, PNEU+81, PNEU+82, PNEU+86, PNEU+87, PNEU+89, ANCONT+1~ , ANCONT+2, ANCONT+3, ANCONT+6, ANCONT+9, ANNECONT+1~, ANNECONT+2, ANNECONT+3, ANNECONT+6, ANNECONT+9, MMRCONT+1~ , MMRCONT+2, MMRCONT+3, MMRCONT+6, MMRCONT+9, ANIMCONT+1~, ANIMCONT+2, ANIMCONT+3, ANIMCONT+6, ANIMCONT+9, ANEGCONT+1~ , ANEGCONT+2, ANEGCONT+3, ANEGCONT+6, ANEGCONT+9
Y	II+18!, V2ASTH+13, V2ASTH+19~, V2ASTH+24, V2ASTH+26, SEV+1~, SEV+6, SEV+8, LAST+2, LAST+3 , PNEU+48, PNEU+59, PNEU+70, PNEU+81, ANCONT+2, ANNECONT+2, MMRCONT+2, ANIMCONT+2, ANEGCONT+2*
Z	II+16*, II+17, II+18!

Customize PDF page

Package: IHS GPRA Information System

Routine: BGP2D31

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 14

Entry Points

External References

Global Variables Directly Accessed

Label References

Local Variables

Legend: