Routine: BGP5D71

Package	Total	Call Graph
IHS GPRA Information System	7	($$BMI,$$OB,$$OW)^BGP5D6 $$LASTHF^BGP5D7 ($$MEDNUTRD,$$OTHREL,$$PED,$$SPECEX,$$SPECNUTR)^BGP5D711 ($$CPT,$$CPTI)^BGP5DU $$DATE^BGP5UTL $$LASTDX^BGP5UTL1 ($$ICD,$$ICDDX)^BGP5UTL2
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	BGP5DPA2

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+33
$$BMI^BGP5D6	IC1+6
$$OB^BGP5D6	IC1+8
$$OW^BGP5D6	IC1+7
$$LASTHF^BGP5D7	QUIT+14, QUIT+16, QUIT+18, GETLAST+2, GETLAST+4, GETLAST+6
$$MEDNUTRD^BGP5D711	IC1+20
$$OTHREL^BGP5D711	IC1+23
$$PED^BGP5D711	SET+10
$$SPECEX^BGP5D711	IC1+22
$$SPECNUTR^BGP5D711	IC1+21
$$CPT^BGP5DU	NEWSTUFF+21, NEWSTUFF+48
$$CPTI^BGP5DU	NEWSTUFF+13, NEWSTUFF+15, NEWSTUFF+40, NEWSTUFF+42
$$DATE^BGP5UTL	IC1+24, IC1+25, IC1+26, IC1+27, QUIT+3, QUIT+12, SET+21, SET+23
$$LASTDX^BGP5UTL1	QUIT+2, NEWSTUFF+19, NEWSTUFF+46, POT+2
$$ICD^BGP5UTL2	QUIT+11, NEWSTUFF+30, NEWSTUFF+57, POT+11
$$ICDDX^BGP5UTL2	QUIT+10
$$CODEN^ICPTCOD	NEWSTUFF+13, NEWSTUFF+15, NEWSTUFF+40, NEWSTUFF+42
$$FMADD^XLFDT	NEWSTUFF+13, NEWSTUFF+15, NEWSTUFF+33, NEWSTUFF+40, NEWSTUFF+42, 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+48, NEWSTUFF+51, 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+53, NEWSTUFF+54, NEWSTUFF+55, NEWSTUFF+56, NEWSTUFF+58, POT+5, POT+6, POT+7, POT+8 , POT+9
^AUPNPROB("AC"	QUIT+4, NEWSTUFF+25, NEWSTUFF+52, POT+4
^AUPNVHF("AA"	GETHF1+8, GETHF1+9, GETHF1+14
^AUPNVPED - [#9000010.16]	TOMPED+7
^AUTTEDT - [#9999999.09]	TOMPED+9, TOMPED+10, TOMREF+9
^AUTTHF - [#9999999.64]	GETHF1+13, GETHF1+14
^AUTTHF("AC"	GETHF1+7
^AUTTHF("B"	GETALLHF+2, GETALLHF+6, GETALLHF+10
^ICD9 - [#80]	QUIT+12, NEWSTUFF+31, NEWSTUFF+58
^TMP($J	IC1+34!

Label References

Name	Line Occurrences
$$GETLAST	NEWSTUFF+33
$$QUIT	SET+15
GETALLHF	NEWSTUFF+7
GETHF1	GETALLHF+3, GETALLHF+7, GETALLHF+11
KVARS	SET+1
NEWSTUFF	I91+5
POT	NEWSTUFF+35, NEWSTUFF+45
SET	NEWSTUFF+8, NEWSTUFF+18, NEWSTUFF+60, 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, GETLAST+6
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+20, GETHF1+24
BGPALLH(0	GETALLHF+15
>> BGPBDATE	NEWSTUFF+7, NEWSTUFF+19, NEWSTUFF+21, NEWSTUFF+33, POT+2, POT+7, SET+10, SET+14
>> BGPBDX	GETHF1+5, NEWSTUFF+7, NEWSTUFF+33, NEWSTUFF+46, NEWSTUFF+48
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+40, NEWSTUFF+42, SET+10, SET+15
>> BGPEDX	GETHF1+4, NEWSTUFF+7, NEWSTUFF+28, NEWSTUFF+33, NEWSTUFF+46, NEWSTUFF+48, NEWSTUFF+55
>> BGPINFO	KVARS+1
BGPLAST	GETLAST+1~
BGPLAST(	GETLAST+10
BGPLAST(0	GETLAST+8
BGPLAST(9999999	GETLAST+3, GETLAST+5, GETLAST+7*
>> 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+36* , NEWSTUFF+37, NEWSTUFF+41, NEWSTUFF+43, NEWSTUFF+47, NEWSTUFF+49, NEWSTUFF+58, POT+1, SET+13, SET+21, KVARS+3!
BGPTOBS	GETALLHF+5, GETALLHF+9, GETALLHF+13, GETALLHF+16, GETALLHF+17, GETHF1+1, GETHF1+3!, GETHF1+17, GETHF1+18, GETHF1+19 , GETHF1+20, GETHF1+21, GETHF1+23!, GETHF1+24, I91+2!, NEWSTUFF+6!, NEWSTUFF+8, NEWSTUFF+9, NEWSTUFF+10, NEWSTUFF+11 , NEWSTUFF+12, NEWSTUFF+18, NEWSTUFF+33, NEWSTUFF+35, NEWSTUFF+36, NEWSTUFF+37, NEWSTUFF+38, NEWSTUFF+39, NEWSTUFF+45, KVARS+3!
BGPTOBS(	GETHF1+12, GETHF1+13, GETHF1+14*, GETHF1+19, GETHF1+20, GETHF1+22
BGPTOBS(0	GETHF1+18
>> BGPTOBX	I91+3, NEWSTUFF+9, NEWSTUFF+10, NEWSTUFF+14, NEWSTUFF+16, NEWSTUFF+20, NEWSTUFF+22, NEWSTUFF+31, NEWSTUFF+36, NEWSTUFF+37 , NEWSTUFF+41, NEWSTUFF+43, NEWSTUFF+47, NEWSTUFF+49, NEWSTUFF+58*
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+36, NEWSTUFF+37, NEWSTUFF+38, NEWSTUFF+41, NEWSTUFF+43, NEWSTUFF+47, NEWSTUFF+49, NEWSTUFF+58, NEWSTUFF+60, POT+3 , POT+14*, SET+1, KVARS+3!
BGPTUC	I91+3, NEWSTUFF+9, NEWSTUFF+36*, KVARS+3!
BGPTUHF	I91+3*, KVARS+3!
BGPTUQ	I91+3, NEWSTUFF+9, NEWSTUFF+36*, 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, 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+18* , GETHF1+22*, GETHF1+24, KVARS+2!
>> DFN	IC1+6, IC1+7, IC1+8, IC1+20, IC1+21, IC1+22, IC1+23, GETHF1+8, GETHF1+9, GETHF1+14 , NEWSTUFF+13, NEWSTUFF+15, NEWSTUFF+19, NEWSTUFF+21, NEWSTUFF+25, NEWSTUFF+33, NEWSTUFF+40, NEWSTUFF+42, NEWSTUFF+46, NEWSTUFF+48 , NEWSTUFF+52, 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, GETLAST+6
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, GETLAST+2, GETLAST+3, GETLAST+4, GETLAST+5, GETLAST+6* , GETLAST+7, GETLAST+8, GETLAST+9, GETLAST+10, NEWSTUFF+25, NEWSTUFF+52, POT+4
H	IC1+33!, GETHF1+6, GETHF1+7, GETHF1+8, GETHF1+9, GETHF1+13, GETHF1+14, GETHF1+18*, GETHF1+24, 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, GETLAST+6, KVARS+2!
S	IC1+33!, KVARS+2!
T	IC1+33!, TOMPED+6, TOMPED+7, TOMPED+8, TOMPED+9, TOMPED+10, TOMPED+11, TOMPED+12, QUIT+1~, QUIT+10 , NEWSTUFF+24, NEWSTUFF+30, NEWSTUFF+51, NEWSTUFF+57, 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+20, GETHF1+22, 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, GETLAST+7, 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+36, NEWSTUFF+37, NEWSTUFF+38, NEWSTUFF+39, NEWSTUFF+41 , NEWSTUFF+43, NEWSTUFF+47, NEWSTUFF+49, NEWSTUFF+53, NEWSTUFF+54, NEWSTUFF+55, NEWSTUFF+56, NEWSTUFF+58, 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+39, NEWSTUFF+40, NEWSTUFF+42, NEWSTUFF+52 , NEWSTUFF+53, NEWSTUFF+54, NEWSTUFF+55, NEWSTUFF+56, NEWSTUFF+58, 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+19, GETHF1+20, 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+40, NEWSTUFF+41, NEWSTUFF+42, NEWSTUFF+43 , NEWSTUFF+45, NEWSTUFF+46, NEWSTUFF+47, NEWSTUFF+48, NEWSTUFF+49, NEWSTUFF+52, NEWSTUFF+58, 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+56* , NEWSTUFF+57, NEWSTUFF+58, KVARS+2!

Customize PDF page

Package: IHS GPRA Information System

Routine: BGP5D71

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: