Routine: BGP2D71

Package	Total	Call Graph
IHS GPRA Information System	6	($$BMI,$$OB,$$OW)^BGP2D6 ($$CPTSM,$$DX,$$LASTHF,$$TOBACCO)^BGP2D7 ($$MEDNUTRD,$$OTHREL,$$PED,$$SPECEX,$$SPECNUTR)^BGP2D711 ($$CPT,$$CPTI)^BGP2DU $$DATE^BGP2UTL $$LASTDX^BGP2UTL1
DRG Grouper	2	$$ICDDX^ICDCODE $$CODEN^ICPTCOD
Patient Care Component Reports	2	$$START1^APCLDF $$PRIMPOV^APCLV
IHS Patient	1	$$DOB^AUPNPAT
Kernel	1	($$FMADD,$$FMTE)^XLFDT
Taxonomy	1	$$ICD^ATXCHK

Entry Points

Name	Comments	DBIA/ICR reference
NXT	;
GETALLHF	;
I19	;EP
DNKA(V)	;EP - is this a DNKA visit?
GETHF1	;
POT	;if potential check for 2 codes
KVARS	;
TOMREF	;
SET	;
I91	;EP
NEWSTUFF	;new stuff
QUIT(P,BD,ED)	;
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
$$ICD^ATXCHK	I19+15, QUIT+10, NEWSTUFF+29, NEWSTUFF+55, POT+10
$$DOB^AUPNPAT	I19+7, I19+8, I19+9, NEWSTUFF+32
$$BMI^BGP2D6	IC1+6
$$OB^BGP2D6	IC1+8
$$OW^BGP2D6	IC1+7
$$CPTSM^BGP2D7	I19+9
$$DX^BGP2D7	I19+8, I19+40
$$LASTHF^BGP2D7	QUIT+13, QUIT+15, QUIT+17, GETLAST+2, GETLAST+4, GETLAST+6
$$TOBACCO^BGP2D7	I19+7, I19+38
$$MEDNUTRD^BGP2D711	IC1+20
$$OTHREL^BGP2D711	IC1+23
$$PED^BGP2D711	I19+29, SET+10
$$SPECEX^BGP2D711	IC1+22
$$SPECNUTR^BGP2D711	IC1+21
$$CPT^BGP2DU	NEWSTUFF+21, NEWSTUFF+47
$$CPTI^BGP2DU	NEWSTUFF+13, NEWSTUFF+15, NEWSTUFF+39, NEWSTUFF+41
$$DATE^BGP2UTL	IC1+24, IC1+25, IC1+26, IC1+27, NXT+4, NXT+5, NXT+7, NXT+9, QUIT+3, QUIT+11 , SET+21, SET+23
$$LASTDX^BGP2UTL1	QUIT+2, NEWSTUFF+19, NEWSTUFF+45, POT+2
$$ICDDX^ICDCODE	QUIT+9
$$CODEN^ICPTCOD	NEWSTUFF+13, NEWSTUFF+15, NEWSTUFF+39, NEWSTUFF+41
$$FMADD^XLFDT	I19+7, I19+8, I19+9, NEWSTUFF+13, NEWSTUFF+15, NEWSTUFF+32, NEWSTUFF+39, NEWSTUFF+41, POT+2, SET+13
$$FMTE^XLFDT	TOMPED+4

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ATXAX("B"	I19+14, QUIT+10, NEWSTUFF+21, NEWSTUFF+24, NEWSTUFF+47, NEWSTUFF+50, POT+9
^AUPNPREF - [#9000022]	TOMREF+5
^AUPNPREF("AA"	TOMREF+2, TOMREF+3, TOMREF+4
^AUPNPROB - [#9000011]	QUIT+5, QUIT+6, QUIT+7, QUIT+8, QUIT+11, NEWSTUFF+26, NEWSTUFF+27, NEWSTUFF+28, NEWSTUFF+30, NEWSTUFF+52 , NEWSTUFF+53, NEWSTUFF+54, NEWSTUFF+56, POT+5, POT+6, POT+7, POT+8
^AUPNPROB("AC"	QUIT+4, NEWSTUFF+25, NEWSTUFF+51, 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+11, NEWSTUFF+30, NEWSTUFF+56
^TMP($J	IC1+34!

Label References

Name	Line Occurrences
$$GETLAST	NEWSTUFF+32
$$QUIT	SET+15
$$TOMPED	I19+45
GETALLHF	NEWSTUFF+7
GETHF1	GETALLHF+3, GETALLHF+7, GETALLHF+11
KVARS	SET+1
NEWSTUFF	I19+6, I91+5
POT	NEWSTUFF+34, NEWSTUFF+44
SET	NEWSTUFF+8, NEWSTUFF+18, NEWSTUFF+58, POT+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

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

Customize PDF page

Package: IHS GPRA Information System

Routine: BGP2D71

Information

Source Information

Call Graph

Call Graph Total: 13

Entry Points

External References

Global Variables Directly Accessed

Label References

Local Variables

Legend: