Routine: BGP5D33

Package	Total	Call Graph
IHS GPRA Information System	3	($$ANCONT,$$ANNECONT,$$MMRCONT)^BGP5D31 GETIMMS^BGP5D32 $$PLTAX^BGP5DU
DRG Grouper	1	($$CODEN,$$CPT)^ICPTCOD
IHS Patient	1	$$DOB^AUPNPAT
Kernel	1	$$FMDIFF^XLFDT
Patient Care Component Reports	1	$$START1^APCLDF

Package	Total	Caller Graph
IHS GPRA Information System	1	BGP5D32

Name	Comments	DBIA/ICR reference
MMRC	;K BGPG S %=P_"^LAST DX [BGP MMR CONTRAINDICATIONS;DURING "_$$DOB^AUPNPAT(P)_"-"_EDATE,E=$$START1^APCLDF(%,"BGPG(")
MUX	;
REF	;
PVS	;
REFMR	;
MEPV	;
RMC	;
90707	;;
90706	;;
90705	;;
90704	;;
RM	;
90709	;;
90708	;;
MUPV	;
RUBPV	;
OPV(P,EDATE)	;EP
RUBX	;
MMR(P,EDATE)	;EP
MRC	;
ME
REFRM
RUB
MU
MR	;see if one M/R, Mumps or R/M
90710	;;
MEX	;

Name	Field # of Occurrence
$$START1^APCLDF	OPV+28, OPV+41, PVS+1, MEPV+1, MUPV+1, RUBPV+1, MEX+1, MUX+1, RUBX+1
$$DOB^AUPNPAT	OPV+10, OPV+28, OPV+41, OPV+52, MMR+4, PVS+1, MEPV+1, MUPV+1, RUBPV+1, REF+2 , REFMR+2, REFRM+1, MEX+1, MEX+4, MUX+1, MUX+4, RUBX+1, RUBX+4
$$ANCONT^BGP5D31	MRC+1, RMC+1, MUX+13, RUBX+12
$$ANNECONT^BGP5D31	OPV+49
$$MMRCONT^BGP5D31	MMRC+3, MEX+12
GETIMMS^BGP5D32	OPV+6, MMR+14, MR+3, RM+2, ME+1, MU+1, RUB+1
$$PLTAX^BGP5DU	OPV+43, MEX+2, MUX+2, RUBX+2
$$CODEN^ICPTCOD	OPV+58, REF+8, REFMR+7, REFRM+6, MEX+9, MUX+9, RUBX+9
$$CPT^ICPTCOD	OPV+15, OPV+17, MMR+10
$$FMDIFF^XLFDT	OPV+21, OPV+35

Name	Line Occurrences
Function Call: READ	Timeout: 4,1:3)_U_$S(BGPNMI:"NMI Variable: Q $S(BGPNMI Line Location: OPV+56
Function Call: READ	Timeout: 4,1:3)_U_$S(BGPNMI:"NMI Variable: Q $S(BGPNMI Line Location: OPV+60
Function Call: READ	Timeout: 4,1:3)_U_$S(BGPNMI:"NMI Variable: Q $S(BGPNMI Line Location: REF+6
Function Call: READ	Timeout: 4,1:3)_U_$S(BGPNMI:"NMI Variable: Q $S(BGPNMI Line Location: REF+10

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPREF - [#9000022]	OPV+55, OPV+59, REF+5, REF+9, REFMR+5, REFMR+8, REFRM+4, REFRM+7, MEX+7, MEX+10 , MUX+7, MUX+10, RUBX+7, RUBX+10
^AUPNPREF("AA"	OPV+55, OPV+59, REF+5, REF+9, REFMR+5, REFMR+8, REFRM+4, REFRM+7, MEX+7, MEX+10 , MUX+7, MUX+10, RUBX+7, RUBX+10
^AUPNVCPT - [#9000010.18]	OPV+15, MMR+10
^AUPNVCPT("AD"	OPV+14, MMR+8, MMR+9
^AUPNVSIT - [#9000010]	OPV+13, MMR+7
^AUPNVSIT("AA"	OPV+11, OPV+12, MMR+5, MMR+6
^AUPNVTC - [#9000010.33]	OPV+17
^AUPNVTC("AD"	OPV+16
^AUTTIMM("C"	OPV+54, REF+4, REFMR+4, REFRM+3, MEX+6, MUX+6, RUBX+6
^TMP($J	MMR+2!, MMR+10*, MMR+16, MR+5, RM+4, ME+3, MU+3, RUB+3

Name	Field # of Occurrence
>> %	OPV+28, OPV+41, PVS+1, MEPV+1, MUPV+1, RUBPV+1, MEX+1, MUX+1, RUBX+1*
>> B	OPV+52, OPV+55, OPV+59, REF+2, REF+5, REF+9, REFMR+2, REFMR+5, REFMR+8, REFRM+1 , REFRM+4, REFRM+7, MEX+4, MEX+7, MEX+10, MUX+4, MUX+7, MUX+10, RUBX+4*, RUBX+7 , RUBX+10
>> BD	OPV+10, OPV+11, MMR+4, MMR+5
>> BGPAOPV(	OPV+29*
BGPAPOV	OPV+3!, OPV+27
BGPAPOV(	OPV+8*
BGPAPOV(9999999	OPV+15, OPV+17
BGPC	OPV+1!, MMR+1!
BGPG	OPV+1!, OPV+28!, OPV+30!, OPV+41!, MMR+1!, PVS+1!, PVS+3!, MEPV+1!, MEPV+3!, MUPV+1! , MUPV+3!, RUBPV+1!, RUBPV+3!, MEX+1!, MUX+1!, RUBX+1!
BGPG(	OPV+29
BGPG(1	OPV+29, OPV+42, PVS+2, MEPV+2, MUPV+2, RUBPV+2, MEX+1, MUX+1, RUBX+1
>> BGPIMM	OPV+53, OPV+54, OPV+57, OPV+58, REF+3, REF+4, REF+7, REF+8, REFMR+3, REFMR+4 , REFMR+6, REFMR+7, REFRM+2, REFRM+3, REFRM+5, REFRM+6, MEX+5, MEX+6, MEX+8, MEX+9 , MUX+5, MUX+6, MUX+8, MUX+9, RUBX+5, RUBX+6, RUBX+8, RUBX+9
>> BGPME	MR+1, ME+2, ME+4, RUB+6, RUB+7, MEPV+2, RUBPV+6, RUBPV+7, MEX+1, MEX+2 , MEX+3, MEX+7, MEX+10, MEX+13*, RUBX+15, RUBX+16
>> BGPMMR	MMR+11, MMR+17, MMR+18, REF+2*
>> BGPMR	MR+1, MR+4, MR+6, RUB+5, RUBPV+5, REFMR+1, REFMR+5, REFMR+8*, RUBX+14
>> BGPMU	MR+1, MU+2, MU+4, RUB+5, RUB+7, MUPV+2, RUBPV+5, RUBPV+7, MUX+1, MUX+2 , MUX+3, MUX+7, MUX+10, MUX+14*, RUBX+14, RUBX+16
>> BGPNMI	OPV+52, OPV+55, OPV+56, OPV+59, OPV+60, REF+2, REF+5, REF+6, REF+9, REF+10 , REFMR+2*
BGPOPV	OPV+3!, OPV+24, OPV+25, OPV+38, OPV+39
BGPOPV(	OPV+8, OPV+19, OPV+21!, OPV+24, OPV+29, OPV+33, OPV+35!, OPV+38
BGPOPV(9999999	OPV+15, OPV+17
BGPPOV	OPV+27!*
>> BGPRM	MR+1, RM+3, RM+5, RUB+6, RUBPV+6, REFRM, REFRM+4, REFRM+7*, RUBX+15
>> BGPRUB	MR+1, RUB+2, RUB+4, RUB+7, RUBPV+2, RUBPV+7, RUBX+1, RUBX+2, RUBX+3, RUBX+7* , RUBX+10, RUBX+13, RUBX+16
BGPX	OPV+1!, OPV+6!, MMR+1!, MMR+14!, MMR+15, MR+3!, MR+4, RM+2, RM+3, ME+1! , ME+2, MU+1, MU+2, RUB+1, RUB+2
BGPX(	OPV+8
>> BGPZ	OPV+49, MMRC+3, MRC+1, RMC+1, MEX+12, MUX+13, RUBX+12*
>> C	OPV+5, OPV+6, OPV+19, OPV+20, OPV+33, OPV+34, MMR+13, MMR+14, MR+2, MR+3 , RM+1, RM+2, ME, ME+1, MU, MU+1, RUB*, RUB+1
>> D	OPV+55, OPV+59, MMR+16, MR+5, RM+4, ME+3, MU+3, RUB+3, REF+5, REF+9 , REFMR+5, REFMR+8, REFRM+4, REFRM+7, MEX+7, MEX+10, MUX+7, MUX+10, RUBX+7, RUBX+10
>> E	OPV+28, OPV+41, OPV+52, OPV+55, OPV+59, PVS+1, MEPV+1, MUPV+1, RUBPV+1, REF+2 , REF+5, REF+9, REFMR+2, REFMR+5, REFMR+8, REFRM+1, REFRM+4, REFRM+7, MEX+1, MEX+4 , MEX+7, MEX+10, MUX+1, MUX+4, MUX+7, MUX+10, RUBX+1, RUBX+4, RUBX+7, RUBX+10
>> ED	OPV+10, OPV+11, OPV+12, OPV+15, OPV+17, MMR+4, MMR+5, MMR+6, MMR+10
EDATE	OPV~, OPV+6, OPV+10, OPV+28, OPV+41, OPV+49, OPV+52, MMR~, MMR+4, MMR+14 , MR+3, RM+2, ME+1, MU+1, RUB+1, PVS+1, MEPV+1, MUPV+1, RUBPV+1, REF+2 , MMRC+3, MRC+1, REFMR+2, RMC+1, REFRM+1, MEX+1, MEX+4, MEX+12, MUX+1, MUX+4 , MUX+13, RUBX+1, RUBX+4, RUBX+12
>> G	OPV+10, MMR+4
>> I	OPV+54, OPV+55, OPV+58, OPV+59, REF+4, REF+5, REF+8, REF+9, REFMR+4, REFMR+5 , REFMR+7, REFMR+8, REFRM+3, REFRM+4, REFRM+6, REFRM+7, MEX+6, MEX+7, MEX+9, MEX+10 , MUX+6, MUX+7, MUX+9, MUX+10, RUBX+6, RUBX+7, RUBX+9, RUBX+10
P	OPV~, OPV+6, OPV+10, OPV+11, OPV+12, OPV+28, OPV+41, OPV+43, OPV+49, OPV+52 , OPV+55, OPV+59, MMR~, MMR+4, MMR+5, MMR+6, MMR+14, MR+3, RM+2, ME+1 , MU+1, RUB+1, PVS+1, MEPV+1, MUPV+1, RUBPV+1, REF+2, REF+5, REF+9, MMRC+3 , MRC+1, REFMR+2, REFMR+5, REFMR+8, RMC+1, REFRM+1, REFRM+4, REFRM+7, MEX+1, MEX+2 , MEX+4, MEX+7, MEX+10, MEX+12, MUX+1, MUX+2, MUX+4, MUX+7, MUX+10, MUX+13 , RUBX+1, RUBX+2, RUBX+4, RUBX+7, RUBX+10, RUBX+12
>> R	OPV+52, OPV+55, OPV+56, OPV+59, OPV+60, REF+2, REF+5, REF+6, REF+9, REF+10 , REF+12*
U	OPV+15, OPV+17, OPV+25, OPV+29, OPV+39, OPV+42, OPV+43, OPV+50, OPV+55, OPV+56 , OPV+59, OPV+60, MMR+10, MMR+15, MMR+18, RUB+5, RUB+6, RUB+7, PVS+2, RUBPV+5 , RUBPV+6, RUBPV+7, REF+5, REF+6, REF+9, REF+10, MMRC+4, MRC+2, REFMR+5, REFMR+8 , RMC+2, REFRM+4, REFRM+7, MEX+7, MEX+10, MUX+7, MUX+10, RUBX+7, RUBX+10, RUBX+14 , RUBX+15, RUBX+16
>> V	OPV+12, OPV+13, OPV+14, OPV+16, MMR+6, MMR+7, MMR+8, MMR+9
>> X	OPV+8, OPV+14, OPV+15, OPV+16, OPV+17, OPV+19, OPV+20, OPV+21, OPV+22, OPV+24* , OPV+29, OPV+33, OPV+34, OPV+35, OPV+36, OPV+38, OPV+49, OPV+50, OPV+55, OPV+59 , MMR+9, MMR+10, REF+5, REF+9, MMRC+3, MMRC+4, MRC+1, MRC+2, REFMR+5, REFMR+8* , RMC+1, RMC+2, REFRM+4, REFRM+7, MEX+7, MEX+10, MEX+12, MEX+13, MUX+7, MUX+10 , MUX+13, MUX+14, RUBX+7, RUBX+10, RUBX+12, RUBX+13, RUBX+14, RUBX+15, RUBX+16*
>> Y	OPV+15, OPV+17, OPV+19, OPV+20, OPV+21, OPV+22, OPV+33, OPV+34, OPV+35, OPV+36 , OPV+55, OPV+59, MMR+10, MMR+16, MMR+17, MR+5, MR+6, RM+4, RM+5, ME+3* , ME+4, MU+3, MU+4, RUB+3, RUB+4, REF+5, REF+9, REFMR+5, REFMR+8, REFRM+4* , REFRM+7, MEX+7, MEX+10, MUX+7, MUX+10, RUBX+7, RUBX+10*

Name

Field # of Occurrence

>> %

OPV+28*, OPV+41*, PVS+1*, MEPV+1*, MUPV+1*, RUBPV+1*, MEX+1*, MUX+1*, RUBX+1*

>> B

OPV+52*, OPV+55, OPV+59, REF+2*, REF+5, REF+9, REFMR+2*, REFMR+5, REFMR+8, REFRM+1*
, REFRM+4, REFRM+7, MEX+4*, MEX+7, MEX+10, MUX+4*, MUX+7, MUX+10, RUBX+4*, RUBX+7
, RUBX+10

>> BD

OPV+10*, OPV+11, MMR+4*, MMR+5

>> BGPAOPV(

OPV+29*

BGPAPOV

OPV+3!, OPV+27

BGPAPOV(

OPV+8*

BGPAPOV(9999999

OPV+15*, OPV+17*

BGPC

OPV+1!, MMR+1!

BGPG

OPV+1!, OPV+28!, OPV+30!, OPV+41!, MMR+1!, PVS+1!, PVS+3!, MEPV+1!, MEPV+3!, MUPV+1!
, MUPV+3!, RUBPV+1!, RUBPV+3!, MEX+1!, MUX+1!, RUBX+1!

BGPG(

OPV+29

BGPG(1

OPV+29, OPV+42, PVS+2, MEPV+2, MUPV+2, RUBPV+2, MEX+1, MUX+1, RUBX+1

>> BGPIMM

OPV+53*, OPV+54, OPV+57*, OPV+58, REF+3*, REF+4, REF+7*, REF+8, REFMR+3*, REFMR+4
, REFMR+6*, REFMR+7, REFRM+2*, REFRM+3, REFRM+5*, REFRM+6, MEX+5*, MEX+6, MEX+8*, MEX+9
, MUX+5*, MUX+6, MUX+8*, MUX+9, RUBX+5*, RUBX+6, RUBX+8*, RUBX+9

>> BGPME

MR+1*, ME+2*, ME+4*, RUB+6, RUB+7, MEPV+2*, RUBPV+6, RUBPV+7, MEX+1*, MEX+2*
, MEX+3, MEX+7*, MEX+10*, MEX+13*, RUBX+15, RUBX+16

>> BGPMMR

MMR+11*, MMR+17*, MMR+18, REF+2*

>> BGPMR

MR+1*, MR+4*, MR+6*, RUB+5, RUBPV+5, REFMR+1, REFMR+5*, REFMR+8*, RUBX+14

>> BGPMU

MR+1*, MU+2*, MU+4*, RUB+5, RUB+7, MUPV+2*, RUBPV+5, RUBPV+7, MUX+1*, MUX+2*
, MUX+3, MUX+7*, MUX+10*, MUX+14*, RUBX+14, RUBX+16

>> BGPNMI

OPV+52*, OPV+55*, OPV+56, OPV+59*, OPV+60, REF+2*, REF+5*, REF+6, REF+9*, REF+10
, REFMR+2*

BGPOPV

OPV+3!, OPV+24*, OPV+25, OPV+38*, OPV+39

BGPOPV(

OPV+8*, OPV+19, OPV+21!, OPV+24, OPV+29*, OPV+33, OPV+35!, OPV+38

BGPOPV(9999999

OPV+15*, OPV+17*

BGPPOV

OPV+27!*

>> BGPRM

MR+1*, RM+3*, RM+5*, RUB+6, RUBPV+6, REFRM, REFRM+4*, REFRM+7*, RUBX+15

>> BGPRUB

MR+1*, RUB+2*, RUB+4*, RUB+7, RUBPV+2*, RUBPV+7, RUBX+1*, RUBX+2*, RUBX+3, RUBX+7*
, RUBX+10*, RUBX+13*, RUBX+16

BGPX

OPV+1!, OPV+6!, MMR+1!, MMR+14!, MMR+15, MR+3!, MR+4, RM+2, RM+3, ME+1!
, ME+2, MU+1, MU+2, RUB+1, RUB+2

BGPX(

OPV+8

>> BGPZ

OPV+49*, MMRC+3*, MRC+1*, RMC+1*, MEX+12*, MUX+13*, RUBX+12*

>> C

OPV+5*, OPV+6, OPV+19*, OPV+20, OPV+33*, OPV+34, MMR+13*, MMR+14, MR+2*, MR+3
, RM+1*, RM+2, ME*, ME+1, MU*, MU+1, RUB*, RUB+1

>> D

OPV+55*, OPV+59*, MMR+16*, MR+5*, RM+4*, ME+3*, MU+3*, RUB+3*, REF+5*, REF+9*
, REFMR+5*, REFMR+8*, REFRM+4*, REFRM+7*, MEX+7*, MEX+10*, MUX+7*, MUX+10*, RUBX+7*, RUBX+10*

>> E

OPV+28*, OPV+41*, OPV+52*, OPV+55, OPV+59, PVS+1*, MEPV+1*, MUPV+1*, RUBPV+1*, REF+2*
, REF+5, REF+9, REFMR+2*, REFMR+5, REFMR+8, REFRM+1*, REFRM+4, REFRM+7, MEX+1*, MEX+4*
, MEX+7, MEX+10, MUX+1*, MUX+4*, MUX+7, MUX+10, RUBX+1*, RUBX+4*, RUBX+7, RUBX+10

>> ED

OPV+10*, OPV+11*, OPV+12, OPV+15, OPV+17, MMR+4*, MMR+5*, MMR+6, MMR+10

EDATE

OPV~, OPV+6, OPV+10, OPV+28, OPV+41, OPV+49, OPV+52, MMR~, MMR+4, MMR+14
, MR+3, RM+2, ME+1, MU+1, RUB+1, PVS+1, MEPV+1, MUPV+1, RUBPV+1, REF+2
, MMRC+3, MRC+1, REFMR+2, RMC+1, REFRM+1, MEX+1, MEX+4, MEX+12, MUX+1, MUX+4
, MUX+13, RUBX+1, RUBX+4, RUBX+12

>> G

OPV+10*, MMR+4*

>> I

OPV+54*, OPV+55, OPV+58*, OPV+59, REF+4*, REF+5, REF+8*, REF+9, REFMR+4*, REFMR+5
, REFMR+7*, REFMR+8, REFRM+3*, REFRM+4, REFRM+6*, REFRM+7, MEX+6*, MEX+7, MEX+9*, MEX+10
, MUX+6*, MUX+7, MUX+9*, MUX+10, RUBX+6*, RUBX+7, RUBX+9*, RUBX+10

P

OPV~, OPV+6, OPV+10, OPV+11, OPV+12, OPV+28, OPV+41, OPV+43, OPV+49, OPV+52
, OPV+55, OPV+59, MMR~, MMR+4, MMR+5, MMR+6, MMR+14, MR+3, RM+2, ME+1
, MU+1, RUB+1, PVS+1, MEPV+1, MUPV+1, RUBPV+1, REF+2, REF+5, REF+9, MMRC+3
, MRC+1, REFMR+2, REFMR+5, REFMR+8, RMC+1, REFRM+1, REFRM+4, REFRM+7, MEX+1, MEX+2
, MEX+4, MEX+7, MEX+10, MEX+12, MUX+1, MUX+2, MUX+4, MUX+7, MUX+10, MUX+13
, RUBX+1, RUBX+2, RUBX+4, RUBX+7, RUBX+10, RUBX+12

>> R

OPV+52*, OPV+55*, OPV+56, OPV+59*, OPV+60, REF+2*, REF+5*, REF+6, REF+9*, REF+10
, REF+12*

U

OPV+15, OPV+17, OPV+25, OPV+29, OPV+39, OPV+42, OPV+43, OPV+50, OPV+55, OPV+56
, OPV+59, OPV+60, MMR+10, MMR+15, MMR+18, RUB+5, RUB+6, RUB+7, PVS+2, RUBPV+5
, RUBPV+6, RUBPV+7, REF+5, REF+6, REF+9, REF+10, MMRC+4, MRC+2, REFMR+5, REFMR+8
, RMC+2, REFRM+4, REFRM+7, MEX+7, MEX+10, MUX+7, MUX+10, RUBX+7, RUBX+10, RUBX+14
, RUBX+15, RUBX+16

>> V

OPV+12*, OPV+13, OPV+14, OPV+16, MMR+6*, MMR+7, MMR+8, MMR+9

>> X

OPV+8*, OPV+14*, OPV+15, OPV+16*, OPV+17, OPV+19*, OPV+20, OPV+21, OPV+22, OPV+24*
, OPV+29*, OPV+33*, OPV+34, OPV+35, OPV+36, OPV+38*, OPV+49*, OPV+50, OPV+55*, OPV+59*
, MMR+9*, MMR+10, REF+5*, REF+9*, MMRC+3*, MMRC+4, MRC+1*, MRC+2, REFMR+5*, REFMR+8*
, RMC+1*, RMC+2, REFRM+4*, REFRM+7*, MEX+7*, MEX+10*, MEX+12*, MEX+13, MUX+7*, MUX+10*
, MUX+13*, MUX+14, RUBX+7*, RUBX+10*, RUBX+12*, RUBX+13, RUBX+14*, RUBX+15*, RUBX+16*

>> Y

OPV+15*, OPV+17*, OPV+19*, OPV+20*, OPV+21, OPV+22*, OPV+33*, OPV+34*, OPV+35, OPV+36*
, OPV+55*, OPV+59*, MMR+10*, MMR+16*, MMR+17, MR+5*, MR+6, RM+4*, RM+5, ME+3*
, ME+4, MU+3*, MU+4, RUB+3*, RUB+4, REF+5*, REF+9*, REFMR+5*, REFMR+8*, REFRM+4*
, REFRM+7*, MEX+7*, MEX+10*, MUX+7*, MUX+10*, RUBX+7*, RUBX+10*

Customize PDF page

Package: IHS GPRA Information System

Routine: BGP5D33

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Local Variables

Legend:

Marked Items

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed