Routine: BGP7D33

Package	Total	Call Graph
IHS GPRA Information System	3	($$ANCONT,$$ANNECONT,$$MMRCONT)^BGP7D31 GETIMMS^BGP7D32 ($$IPLSNOND,$$PLTAX,$$PLTAXND)^BGP7DU
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	BGP7D32

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+53, MMR+4, PVS+1, MEPV+1, MUPV+1, RUBPV+1, REF+2 , REFMR+2, REFRM+1, MEX+1, MEX+6, MUX+1, MUX+4, RUBX+1, RUBX+6
$$ANCONT^BGP7D31	MRC+1, RMC+1, MUX+13, RUBX+14
$$ANNECONT^BGP7D31	OPV+50
$$MMRCONT^BGP7D31	MMRC+3, MEX+14
GETIMMS^BGP7D32	OPV+6, MMR+14, MR+3, RM+2, ME+1, MU+1, RUB+1
$$IPLSNOND^BGP7DU	OPV+44, MEX+4, RUBX+4
$$PLTAX^BGP7DU	MUX+2
$$PLTAXND^BGP7DU	OPV+43, MEX+3, RUBX+3
$$CODEN^ICPTCOD	OPV+59, REF+8, REFMR+7, REFRM+6, MEX+11, MUX+9, RUBX+11
$$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+57
Function Call: READ	Timeout: 4,1:3)_U_$S(BGPNMI:"NMI Variable: Q $S(BGPNMI Line Location: OPV+61
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+56, OPV+60, REF+5, REF+9, REFMR+5, REFMR+8, REFRM+4, REFRM+7, MEX+9, MEX+12 , MUX+7, MUX+10, RUBX+9, RUBX+12
^AUPNPREF("AA"	OPV+56, OPV+60, REF+5, REF+9, REFMR+5, REFMR+8, REFRM+4, REFRM+7, MEX+9, MEX+12 , MUX+7, MUX+10, RUBX+9, RUBX+12
^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+55, REF+4, REFMR+4, REFRM+3, MEX+8, MUX+6, RUBX+8
^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+53, OPV+56, OPV+60, REF+2, REF+5, REF+9, REFMR+2, REFMR+5, REFMR+8, REFRM+1 , REFRM+4, REFRM+7, MEX+6, MEX+9, MEX+12, MUX+4, MUX+7, MUX+10, RUBX+6*, RUBX+9 , RUBX+12
>> 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+54, OPV+55, OPV+58, OPV+59, 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+7, MEX+8, MEX+10, MEX+11 , MUX+5, MUX+6, MUX+8, MUX+9, RUBX+7, RUBX+8, RUBX+10, RUBX+11
>> BGPME	MR+1, ME+2, ME+4, RUB+6, RUB+7, MEPV+2, RUBPV+6, RUBPV+7, MEX+1, MEX+3 , MEX+4, MEX+5, MEX+9, MEX+12, MEX+15, RUBX+17, RUBX+18
>> 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+16
>> 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+16, RUBX+18
>> BGPNMI	OPV+53, OPV+56, OPV+57, OPV+60, OPV+61, 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+17
>> BGPRUB	MR+1, RUB+2, RUB+4, RUB+7, RUBPV+2, RUBPV+7, RUBX+1, RUBX+3, RUBX+4, RUBX+5 , RUBX+9, RUBX+12, RUBX+15, RUBX+18
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+50, MMRC+3, MRC+1, RMC+1, MEX+14, MUX+13, RUBX+14*
>> 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+56, OPV+60, 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+9, MEX+12, MUX+7, MUX+10, RUBX+9, RUBX+12
>> E	OPV+28, OPV+41, OPV+53, OPV+56, OPV+60, 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+6 , MEX+9, MEX+12, MUX+1, MUX+4, MUX+7, MUX+10, RUBX+1, RUBX+6, RUBX+9, RUBX+12
>> 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+43, OPV+44, OPV+50, OPV+53, 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+3, MEX+4 , MEX+6, MEX+14, MUX+1, MUX+4, MUX+13, RUBX+1, RUBX+3, RUBX+4, RUBX+6, RUBX+14
>> G	OPV+10, MMR+4
>> I	OPV+55, OPV+56, OPV+59, OPV+60, 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+8, MEX+9, MEX+11, MEX+12 , MUX+6, MUX+7, MUX+9, MUX+10, RUBX+8, RUBX+9, RUBX+11, RUBX+12
P	OPV~, OPV+6, OPV+10, OPV+11, OPV+12, OPV+28, OPV+41, OPV+43, OPV+44, OPV+50 , OPV+53, OPV+56, OPV+60, 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+3, MEX+4, MEX+6, MEX+9, MEX+12, MEX+14, MUX+1, MUX+2, MUX+4, MUX+7 , MUX+10, MUX+13, RUBX+1, RUBX+3, RUBX+4, RUBX+6, RUBX+9, RUBX+12, RUBX+14
>> R	OPV+53, OPV+56, OPV+57, OPV+60, OPV+61, 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+44, OPV+51, OPV+56 , OPV+57, OPV+60, OPV+61, 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+9, MEX+12, MUX+7, MUX+10, RUBX+9, RUBX+12 , RUBX+16, RUBX+17, RUBX+18
>> 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+50, OPV+51, OPV+56, OPV+60 , 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+9, MEX+12, MEX+14, MEX+15, MUX+7, MUX+10 , MUX+13, MUX+14, RUBX+9, RUBX+12, RUBX+14, RUBX+15, RUBX+16, RUBX+17, RUBX+18*
>> Y	OPV+15, OPV+17, OPV+19, OPV+20, OPV+21, OPV+22, OPV+33, OPV+34, OPV+35, OPV+36 , OPV+56, OPV+60, 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+9, MEX+12, MUX+7, MUX+10, RUBX+9, RUBX+12*

Name

Field # of Occurrence

>> %

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

>> B

OPV+53*, OPV+56, OPV+60, REF+2*, REF+5, REF+9, REFMR+2*, REFMR+5, REFMR+8, REFRM+1*
, REFRM+4, REFRM+7, MEX+6*, MEX+9, MEX+12, MUX+4*, MUX+7, MUX+10, RUBX+6*, RUBX+9
, RUBX+12

>> 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+54*, OPV+55, OPV+58*, OPV+59, 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+7*, MEX+8, MEX+10*, MEX+11
, MUX+5*, MUX+6, MUX+8*, MUX+9, RUBX+7*, RUBX+8, RUBX+10*, RUBX+11

>> BGPME

MR+1*, ME+2*, ME+4*, RUB+6, RUB+7, MEPV+2*, RUBPV+6, RUBPV+7, MEX+1*, MEX+3*
, MEX+4*, MEX+5, MEX+9*, MEX+12*, MEX+15*, RUBX+17, RUBX+18

>> 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+16

>> 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+16, RUBX+18

>> BGPNMI

OPV+53*, OPV+56*, OPV+57, OPV+60*, OPV+61, 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+17

>> BGPRUB

MR+1*, RUB+2*, RUB+4*, RUB+7, RUBPV+2*, RUBPV+7, RUBX+1*, RUBX+3*, RUBX+4*, RUBX+5
, RUBX+9*, RUBX+12*, RUBX+15*, RUBX+18

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+50*, MMRC+3*, MRC+1*, RMC+1*, MEX+14*, MUX+13*, RUBX+14*

>> 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+56*, OPV+60*, 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+9*, MEX+12*, MUX+7*, MUX+10*, RUBX+9*, RUBX+12*

>> E

OPV+28*, OPV+41*, OPV+53*, OPV+56, OPV+60, 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+6*
, MEX+9, MEX+12, MUX+1*, MUX+4*, MUX+7, MUX+10, RUBX+1*, RUBX+6*, RUBX+9, RUBX+12

>> 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+43, OPV+44, OPV+50, OPV+53, 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+3, MEX+4
, MEX+6, MEX+14, MUX+1, MUX+4, MUX+13, RUBX+1, RUBX+3, RUBX+4, RUBX+6, RUBX+14

>> G

OPV+10*, MMR+4*

>> I

OPV+55*, OPV+56, OPV+59*, OPV+60, 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+8*, MEX+9, MEX+11*, MEX+12
, MUX+6*, MUX+7, MUX+9*, MUX+10, RUBX+8*, RUBX+9, RUBX+11*, RUBX+12

P

OPV~, OPV+6, OPV+10, OPV+11, OPV+12, OPV+28, OPV+41, OPV+43, OPV+44, OPV+50
, OPV+53, OPV+56, OPV+60, 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+3, MEX+4, MEX+6, MEX+9, MEX+12, MEX+14, MUX+1, MUX+2, MUX+4, MUX+7
, MUX+10, MUX+13, RUBX+1, RUBX+3, RUBX+4, RUBX+6, RUBX+9, RUBX+12, RUBX+14

>> R

OPV+53*, OPV+56*, OPV+57, OPV+60*, OPV+61, 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+44, OPV+51, OPV+56
, OPV+57, OPV+60, OPV+61, 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+9, MEX+12, MUX+7, MUX+10, RUBX+9, RUBX+12
, RUBX+16, RUBX+17, RUBX+18

>> 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+50*, OPV+51, OPV+56*, OPV+60*
, 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+9*, MEX+12*, MEX+14*, MEX+15, MUX+7*, MUX+10*
, MUX+13*, MUX+14, RUBX+9*, RUBX+12*, RUBX+14*, RUBX+15, RUBX+16*, RUBX+17*, RUBX+18*

>> Y

OPV+15*, OPV+17*, OPV+19*, OPV+20*, OPV+21, OPV+22*, OPV+33*, OPV+34*, OPV+35, OPV+36*
, OPV+56*, OPV+60*, 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+9*, MEX+12*, MUX+7*, MUX+10*, RUBX+9*, RUBX+12*

Customize PDF page

Package: IHS GPRA Information System

Routine: BGP7D33

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