Routine: BGP6D71

Package	Total	Call Graph
IHS GPRA Information System	7	($$BMI,$$OB,$$OW)^BGP6D6 $$LASTHF^BGP6D7 ($$MEDNUTRD,$$OTHREL,$$PED,$$SPECEX,$$SPECNUTR)^BGP6D711 ($$CPT,$$CPTI)^BGP6DU $$DATE^BGP6UTL $$LASTDX^BGP6UTL1 ($$ICD,$$ICDDX)^BGP6UTL2
Patient Care Component Reports	2	$$START1^APCLDF $$PRIMPOV^APCLV
DRG Grouper	1	$$CODEN^ICPTCOD
IHS Patient	1	$$DOB^AUPNPAT
Kernel	1	($$FMADD,$$FMTE)^XLFDT

Package	Total	Caller Graph
IHS GPRA Information System	1	BGP6DPA2

Entry Points

Name	Comments	DBIA/ICR reference
GETALLHF	;
QUIT(P,BD,ED)	;
DNKA(V)	;EP - is this a DNKA visit?
GETHF1	;
POT	;if potential check for 2 codes
KVARS	;
TOMREF	;
SET	;
I91	;EP
NEWSTUFF	;new stuff
IC1	;EP
TOMPED(P,BDATE,EDATE)	;EP
GETLAST(P,BD,ED)	;

External References

Name	Field # of Occurrence
$$START1^APCLDF	TOMPED+4
$$PRIMPOV^APCLV	DNKA+2, DNKA+4
$$DOB^AUPNPAT	NEWSTUFF+34
$$BMI^BGP6D6	IC1+6
$$OB^BGP6D6	IC1+8
$$OW^BGP6D6	IC1+7
$$LASTHF^BGP6D7	QUIT+14, QUIT+16, QUIT+18, GETLAST+2, GETLAST+4
$$MEDNUTRD^BGP6D711	IC1+20
$$OTHREL^BGP6D711	IC1+23
$$PED^BGP6D711	SET+10
$$SPECEX^BGP6D711	IC1+22
$$SPECNUTR^BGP6D711	IC1+21
$$CPT^BGP6DU	NEWSTUFF+21, NEWSTUFF+49
$$CPTI^BGP6DU	NEWSTUFF+13, NEWSTUFF+15, NEWSTUFF+41, NEWSTUFF+43
$$DATE^BGP6UTL	IC1+24, IC1+25, IC1+26, IC1+27, QUIT+3, QUIT+12, SET+21, SET+23
$$LASTDX^BGP6UTL1	QUIT+2, NEWSTUFF+19, NEWSTUFF+47, POT+2
$$ICD^BGP6UTL2	QUIT+11, NEWSTUFF+30, NEWSTUFF+58, POT+11
$$ICDDX^BGP6UTL2	QUIT+10
$$CODEN^ICPTCOD	NEWSTUFF+13, NEWSTUFF+15, NEWSTUFF+41, NEWSTUFF+43
$$FMADD^XLFDT	NEWSTUFF+13, NEWSTUFF+15, NEWSTUFF+34, NEWSTUFF+41, NEWSTUFF+43, POT+2, SET+13
$$FMTE^XLFDT	TOMPED+4

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ATXAX("B"	QUIT+11, NEWSTUFF+21, NEWSTUFF+24, NEWSTUFF+49, NEWSTUFF+52, POT+10
^AUPNPREF - [#9000022]	TOMREF+5
^AUPNPREF("AA"	TOMREF+2, TOMREF+3, TOMREF+4
^AUPNPROB - [#9000011]	QUIT+5, QUIT+6, QUIT+7, QUIT+8, QUIT+9, QUIT+12, NEWSTUFF+26, NEWSTUFF+27, NEWSTUFF+28, NEWSTUFF+29 , NEWSTUFF+31, NEWSTUFF+54, NEWSTUFF+55, NEWSTUFF+56, NEWSTUFF+57, NEWSTUFF+59, POT+5, POT+6, POT+7, POT+8 , POT+9
^AUPNPROB("AC"	QUIT+4, NEWSTUFF+25, NEWSTUFF+53, POT+4
^AUPNVHF("AA"	GETHF1+8, GETHF1+9, GETHF1+16
^AUPNVPED - [#9000010.16]	TOMPED+7
^AUTTEDT - [#9999999.09]	TOMPED+9, TOMPED+10, TOMREF+9
^AUTTHF - [#9999999.64]	GETHF1+13, GETHF1+14, GETHF1+15, GETHF1+16
^AUTTHF("AC"	GETHF1+7
^AUTTHF("B"	GETALLHF+2, GETALLHF+6, GETALLHF+10
^ICD9 - [#80]	QUIT+12, NEWSTUFF+31, NEWSTUFF+59
^TMP($J	IC1+34!

Label References

Name	Line Occurrences
$$GETLAST	NEWSTUFF+34
$$QUIT	SET+15
GETALLHF	NEWSTUFF+7
GETHF1	GETALLHF+3, GETALLHF+7, GETALLHF+11
KVARS	SET+1
NEWSTUFF	I91+5
POT	NEWSTUFF+36, NEWSTUFF+46
SET	NEWSTUFF+8, NEWSTUFF+18, NEWSTUFF+61, POT+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	IC1+33!, TOMPED+5, TOMPED+12, KVARS+2!
A	IC1+33!, KVARS+2!
B	IC1+33!, KVARS+2!
BD	GETHF1+2~, GETHF1+5*, GETHF1+11, QUIT~, QUIT+2, QUIT+8, QUIT+14, QUIT+16, QUIT+18, GETLAST~ , GETLAST+2, GETLAST+4
BDATE	IC1+33!, TOMPED~, TOMPED+4, TOMREF+7, KVARS+2!
BGP1320	I91+2!, KVARS+3!
>> BGP365	IC1+20, IC1+21, IC1+22, IC1+23
>> BGPACTCL	IC1+10, IC1+12, SET+3
>> BGPACTUP	IC1+5, I91+4
>> BGPAGEB	IC1+10, IC1+12, IC1+13, IC1+14, IC1+15, IC1+16, IC1+17, SET+4, SET+5, SET+6
>> BGPAGEE	IC1+6, IC1+7, IC1+8
BGPALLED	IC1+4!, IC1+33!, TOMPED+1!, KVARS+2!
BGPALLED(	TOMPED+6, TOMPED+7, TOMPED+12
BGPALLED(1	TOMPED+5
BGPALLH	GETALLHF+1!
BGPALLH(	GETALLHF+16, GETHF1+22, GETHF1+26
BGPALLH(0	GETALLHF+15
>> BGPBDATE	NEWSTUFF+7, NEWSTUFF+19, NEWSTUFF+21, NEWSTUFF+34, POT+2, POT+7, SET+10, SET+14
>> BGPBDX	GETHF1+5, NEWSTUFF+7, NEWSTUFF+34, NEWSTUFF+47, NEWSTUFF+49
BGPBMI	IC1+3, IC1+6, IC1+7, IC1+8, IC1+33!
>> BGPD1	IC1+1, IC1+10, IC1+18, IC1+28, I91+1*
>> BGPD10	I91+1, SET+6
>> BGPD2	IC1+1, IC1+11, IC1+18, IC1+30, I91+1*
>> BGPD3	IC1+1, IC1+12, IC1+13, IC1+14, IC1+15, IC1+16, IC1+17, IC1+18, IC1+29, I91+1*
>> BGPD4	IC1+1, IC1+13, IC1+18, I91+1*
>> BGPD5	IC1+1, IC1+14, IC1+18, I91+1*
>> BGPD6	IC1+1, IC1+15, IC1+18, I91+1, SET+2, SET+3
>> BGPD7	IC1+1, IC1+16, IC1+18, I91+1, SET+3, SET+4, SET+5, SET+6, SET+21
>> BGPD8	IC1+1, IC1+17, IC1+18, I91+1, SET+4
>> BGPD9	IC1+1, I91+1, SET+5*
>> BGPDMD2	IC1+11
>> BGPEDATE	IC1+6, IC1+20, IC1+21, IC1+22, IC1+23, NEWSTUFF+7, NEWSTUFF+13, NEWSTUFF+15, NEWSTUFF+19, NEWSTUFF+21 , NEWSTUFF+41, NEWSTUFF+43, SET+10, SET+15
>> BGPEDX	GETHF1+4, NEWSTUFF+7, NEWSTUFF+28, NEWSTUFF+34, NEWSTUFF+47, NEWSTUFF+49, NEWSTUFF+56
>> BGPINFO	KVARS+1
BGPLAST	GETLAST+1~
BGPLAST(	GETLAST+8
BGPLAST(0	GETLAST+6
BGPLAST(9999999	GETLAST+3, GETLAST+5
>> BGPLPED	TOMPED+2, TOMPED+5, TOMPED+12, TOMPED+13
BGPMN	IC1+4!, IC1+20*, IC1+24, IC1+33!
>> BGPN1	IC1+1, IC1+20, I91+1*
>> BGPN10	I91+1, SET+19
>> BGPN11	I91+1*
>> BGPN2	IC1+1, IC1+21, I91+1*
>> BGPN3	IC1+1, IC1+22, I91+1*
>> BGPN4	IC1+1, IC1+23, I91+1*
>> BGPN5	IC1+1, I91+1
>> BGPN6	IC1+1, I91+1, SET+11*, SET+19
>> BGPN7	I91+1, SET+11
>> BGPN8	I91+1, SET+16, SET+18, SET+19, SET+24
>> BGPN9	I91+1, SET+18
BGPOB	IC1+3, IC1+8, IC1+9, IC1+12, IC1+33!
>> BGPOTH	IC1+23*, IC1+27
BGPOW	IC1+3, IC1+7, IC1+9, IC1+33!
BGPOWOB	IC1+9*, IC1+10, IC1+33!
BGPQ	I91+2!, I91+3, SET+15, SET+16, SET+24, KVARS+2!
BGPREM	I91+3, POT+4, POT+11*, POT+14, KVARS+3!
BGPSDX	I91+2!, KVARS+3!
BGPSN	IC1+4!, IC1+21*, IC1+25, IC1+33!
BGPSPEX	IC1+4!, IC1+22*, IC1+26, IC1+33!
>> BGPSTOP	IC1+5, I91+4, SET+1*
BGPTC	I91+2!, I91+3*, KVARS+2!
BGPTC1	I91+2!, I91+3, SET+10, SET+11, SET+23, KVARS+3!
BGPTOB	I91+2!, KVARS+3!
BGPTOBD	I91+2!, I91+3, NEWSTUFF+9, NEWSTUFF+10, NEWSTUFF+14, NEWSTUFF+16, NEWSTUFF+20, NEWSTUFF+22, NEWSTUFF+31, NEWSTUFF+37* , NEWSTUFF+38, NEWSTUFF+42, NEWSTUFF+44, NEWSTUFF+48, NEWSTUFF+50, NEWSTUFF+59, POT+1, SET+13, SET+21, KVARS+3!
BGPTOBS	GETALLHF+5, GETALLHF+9, GETALLHF+13, GETALLHF+16, GETALLHF+17, GETHF1+1, GETHF1+3!, GETHF1+19, GETHF1+20, GETHF1+21 , GETHF1+22, GETHF1+23, GETHF1+25!, GETHF1+26, I91+2!, NEWSTUFF+6!, NEWSTUFF+8, NEWSTUFF+9, NEWSTUFF+10, NEWSTUFF+11 , NEWSTUFF+12, NEWSTUFF+18, NEWSTUFF+33, NEWSTUFF+34*, NEWSTUFF+36, NEWSTUFF+37, NEWSTUFF+38, NEWSTUFF+39, NEWSTUFF+40, NEWSTUFF+46 , KVARS+3!
BGPTOBS(	GETHF1+12, GETHF1+13, GETHF1+14, GETHF1+15, GETHF1+16*, GETHF1+21, GETHF1+22, GETHF1+24
BGPTOBS(0	GETHF1+20
>> BGPTOBX	I91+3, NEWSTUFF+9, NEWSTUFF+10, NEWSTUFF+14, NEWSTUFF+16, NEWSTUFF+20, NEWSTUFF+22, NEWSTUFF+31, NEWSTUFF+37, NEWSTUFF+38 , NEWSTUFF+42, NEWSTUFF+44, NEWSTUFF+48, NEWSTUFF+50, NEWSTUFF+59*
BGPTOM	I91+2!, KVARS+3!
BGPTQ	I91+2!, KVARS+2!
BGPTU	I91+3, NEWSTUFF+8, NEWSTUFF+9, NEWSTUFF+10, NEWSTUFF+11, NEWSTUFF+14, NEWSTUFF+16, NEWSTUFF+20, NEWSTUFF+22, NEWSTUFF+31 , NEWSTUFF+37, NEWSTUFF+38, NEWSTUFF+39, NEWSTUFF+42, NEWSTUFF+44, NEWSTUFF+48, NEWSTUFF+50, NEWSTUFF+59, NEWSTUFF+61, POT+3 , POT+14*, SET+1, KVARS+3!
BGPTUC	I91+3, NEWSTUFF+9, NEWSTUFF+37*, KVARS+3!
BGPTUHF	I91+3*, KVARS+3!
BGPTUQ	I91+3, NEWSTUFF+9, NEWSTUFF+37*, SET+18, KVARS+3!
>> BGPVALUE	IC1+19, IC1+24, IC1+25, IC1+26, IC1+27, IC1+31, IC1+32, SET+21, SET+23, SET+24*
C	IC1+33!, GETALLHF+2, GETALLHF+6, GETALLHF+10, GETHF1+1, GETHF1+7, GETLAST+1~, GETLAST+4, GETLAST+5, KVARS+2!
D	IC1+33!, DNKA+1~, DNKA+2, DNKA+3, DNKA+5, DNKA+6, DNKA+7, TOMPED+6, TOMREF+3, TOMREF+4 , GETALLHF+15, GETALLHF+16, GETHF1+6, GETHF1+9, GETHF1+10, GETHF1+11, GETHF1+12, GETHF1+13, GETHF1+14, GETHF1+15 , GETHF1+16, GETHF1+20, GETHF1+24, GETHF1+26, KVARS+2!
>> DFN	IC1+6, IC1+7, IC1+8, IC1+20, IC1+21, IC1+22, IC1+23, GETHF1+8, GETHF1+9, GETHF1+16 , NEWSTUFF+13, NEWSTUFF+15, NEWSTUFF+19, NEWSTUFF+21, NEWSTUFF+25, NEWSTUFF+34, NEWSTUFF+41, NEWSTUFF+43, NEWSTUFF+47, NEWSTUFF+49 , NEWSTUFF+53, POT+2, POT+4, SET+10, SET+15
E	IC1+33!, TOMPED+4*, KVARS+2!
ED	GETHF1+2~, GETHF1+4*, GETHF1+10, QUIT~, QUIT+2, QUIT+7, QUIT+14, QUIT+16, QUIT+18, GETLAST~ , GETLAST+2, GETLAST+4
EDATE	IC1+33!, TOMPED~, TOMPED+4, TOMREF+8, KVARS+2!
F	IC1+33!, KVARS+2!
G	TOMREF+2, TOMREF+3, TOMREF+4, TOMREF+11, TOMREF+12, QUIT+1~, QUIT+4, QUIT+12, QUIT+13, QUIT+14* , QUIT+15, QUIT+16, QUIT+17, QUIT+18, QUIT+19, NEWSTUFF+25, NEWSTUFF+53, POT+4*
H	IC1+33!, GETHF1+6, GETHF1+7, GETHF1+8, GETHF1+9, GETHF1+13, GETHF1+14, GETHF1+15, GETHF1+16, GETHF1+20* , GETHF1+26, KVARS+2!
>> I	TOMREF+4*, TOMREF+5
N	DNKA+1~, DNKA+4*, DNKA+5, DNKA+6, DNKA+7
O	GETHF1+6!
P	IC1+33!, TOMPED~, TOMPED+4, TOMREF+2, TOMREF+3, TOMREF+4, QUIT~, QUIT+2, QUIT+4, QUIT+14 , QUIT+16, QUIT+18, GETLAST~, GETLAST+2, GETLAST+4, KVARS+2!
S	IC1+33!, GETLAST+1~, GETLAST+2*, GETLAST+3, KVARS+2!
T	IC1+33!, TOMPED+6, TOMPED+7, TOMPED+8, TOMPED+9, TOMPED+10, TOMPED+11, TOMPED+12, QUIT+1~, QUIT+10 , GETLAST+1~, GETLAST+6, GETLAST+7, GETLAST+8, NEWSTUFF+24, NEWSTUFF+30, NEWSTUFF+52, NEWSTUFF+58, POT+10, POT+11 , KVARS+2!
U	IC1+24, IC1+25, IC1+26, IC1+27, TOMPED+7, TOMPED+10, TOMPED+12, TOMREF+5, TOMREF+9, TOMREF+11 , GETALLHF+5, GETALLHF+9, GETALLHF+13, GETHF1+12, GETHF1+13, GETHF1+14, GETHF1+15, GETHF1+16, GETHF1+22, GETHF1+24 , QUIT+3, QUIT+5, QUIT+6, QUIT+7, QUIT+8, QUIT+9, QUIT+10, QUIT+12, QUIT+15, QUIT+17 , QUIT+19, GETLAST+3, GETLAST+5, NEWSTUFF+9, NEWSTUFF+10, NEWSTUFF+11, NEWSTUFF+12, NEWSTUFF+14, NEWSTUFF+16, NEWSTUFF+20 , NEWSTUFF+22, NEWSTUFF+26, NEWSTUFF+27, NEWSTUFF+28, NEWSTUFF+29, NEWSTUFF+31, NEWSTUFF+37, NEWSTUFF+38, NEWSTUFF+39, NEWSTUFF+40 , NEWSTUFF+42, NEWSTUFF+44, NEWSTUFF+48, NEWSTUFF+50, NEWSTUFF+54, NEWSTUFF+55, NEWSTUFF+56, NEWSTUFF+57, NEWSTUFF+59, POT+5 , POT+6, POT+7, POT+8, POT+9, SET+11, SET+23, SET+24
V	IC1+28, IC1+29, IC1+30, IC1+31, IC1+32, IC1+33!, DNKA~, DNKA+2, DNKA+4, KVARS+2!
X	IC1+33!, TOMPED+4, TOMPED+6, TOMPED+7, TOMPED+12, TOMREF+2, TOMREF+3, TOMREF+4, TOMREF+9, QUIT+1~ , QUIT+4, QUIT+5, QUIT+6, QUIT+7, QUIT+8, QUIT+9, QUIT+12, NEWSTUFF+12, NEWSTUFF+13, NEWSTUFF+15 , NEWSTUFF+25, NEWSTUFF+26, NEWSTUFF+27, NEWSTUFF+28, NEWSTUFF+29, NEWSTUFF+31, NEWSTUFF+40, NEWSTUFF+41, NEWSTUFF+43, NEWSTUFF+53 , NEWSTUFF+54, NEWSTUFF+55, NEWSTUFF+56, NEWSTUFF+57, NEWSTUFF+59, POT+1, POT+2, POT+4, POT+5, POT+6 , POT+7, POT+8, POT+9, KVARS+2!
Y	IC1+33!, TOMPED+3, TOMPED+4, TOMREF+9, TOMREF+10, TOMREF+11, GETHF1+21, GETHF1+22, QUIT+1~, QUIT+2 , QUIT+3, QUIT+9, QUIT+10, QUIT+11, QUIT+12, NEWSTUFF+13, NEWSTUFF+14, NEWSTUFF+15, NEWSTUFF+16, NEWSTUFF+18 , NEWSTUFF+19, NEWSTUFF+20, NEWSTUFF+21, NEWSTUFF+22, NEWSTUFF+25, NEWSTUFF+31, NEWSTUFF+41, NEWSTUFF+42, NEWSTUFF+43, NEWSTUFF+44 , NEWSTUFF+46, NEWSTUFF+47, NEWSTUFF+48, NEWSTUFF+49, NEWSTUFF+50, NEWSTUFF+53, NEWSTUFF+59, POT+2, POT+3, POT+9* , POT+11, SET+13, SET+14, SET+15, KVARS+2!
Z	IC1+33!, TOMREF+5, TOMREF+6, TOMREF+7, TOMREF+8, TOMREF+11, NEWSTUFF+29, NEWSTUFF+30, NEWSTUFF+31, NEWSTUFF+57* , NEWSTUFF+58, NEWSTUFF+59, KVARS+2!

Customize PDF page

Package: IHS GPRA Information System

Routine: BGP6D71

Information

Source Information

Call Graph

Call Graph Total: 12

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Global Variables Directly Accessed

Label References

Local Variables

Legend: