Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: BGP1D71

Package: IHS GPRA Information System

Routine: BGP1D71


Information

BGP1D71 ; IHS/CMI/LAB - measure C ;

Source Information

Source file <BGP1D71.m>

Call Graph

Call Graph Total: 13

Package Total Call Graph
IHS GPRA Information System 6 ($$BMI,$$OB,$$OW)^BGP1D6  ($$CPTSM,$$DX,$$LASTHF,$$TOBACCO)^BGP1D7  ($$MEDNUTRD,$$OTHREL,$$PED,$$SPECEX,$$SPECNUTR)^BGP1D711  ($$CPT,$$CPTI)^BGP1DU  $$DATE^BGP1UTL  ($$LASTDX,$$LASTDXI)^BGP1UTL1  
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 NEWSTUFF+29, NEWSTUFF+55
$$DOB^AUPNPAT I19+7, I19+8, I19+9, NEWSTUFF+32
$$BMI^BGP1D6 IC1+6
$$OB^BGP1D6 IC1+8
$$OW^BGP1D6 IC1+7
$$CPTSM^BGP1D7 I19+9
$$DX^BGP1D7 I19+8, I19+38
$$LASTHF^BGP1D7 QUIT+15, QUIT+17, QUIT+19, GETLAST+2, GETLAST+4, GETLAST+6
$$TOBACCO^BGP1D7 I19+7, I19+36
$$MEDNUTRD^BGP1D711 IC1+20
$$OTHREL^BGP1D711 IC1+23
$$PED^BGP1D711 I19+27, SET+10
$$SPECEX^BGP1D711 IC1+22
$$SPECNUTR^BGP1D711 IC1+21
$$CPT^BGP1DU NEWSTUFF+21, NEWSTUFF+47
$$CPTI^BGP1DU NEWSTUFF+13, NEWSTUFF+15, NEWSTUFF+39, NEWSTUFF+41
$$DATE^BGP1UTL IC1+24, IC1+25, IC1+26, IC1+27, NXT+3, NXT+5, NXT+7, QUIT+3, QUIT+5, QUIT+13
, SET+21, SET+23
$$LASTDX^BGP1UTL1 NEWSTUFF+19, NEWSTUFF+45
$$LASTDXI^BGP1UTL1 QUIT+2, QUIT+4, POT+2, POT+4
$$ICDDX^ICDCODE QUIT+11
$$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, POT+4
, SET+13
$$FMTE^XLFDT TOMPED+4

Global Variables Directly Accessed

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

Label References

Name Line Occurrences
$$GETLAST NEWSTUFF+32
$$QUIT SET+15
$$TOMPED I19+43
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, POT+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% IC1+33!, I19+11*, I19+12*, I19+13*, I19+18, NXT+8!, TOMPED+5*, TOMPED+12*, KVARS+1!
A IC1+33!, NXT+8!, KVARS+1!
B IC1+33!, NXT+8!, KVARS+1!
BD GETHF1+2~, GETHF1+5*, GETHF1+11, QUIT~, QUIT+2, QUIT+4, QUIT+9, QUIT+15, QUIT+17, QUIT+19
, GETLAST~, GETLAST+2, GETLAST+4, GETLAST+6
BDATE IC1+33!, NXT+8!, TOMPED~, TOMPED+4, TOMREF+7, KVARS+1!
BGP1320 I19+2!, NXT+8!, I91+2!, KVARS+2!
>> BGP365 IC1+20, IC1+21, IC1+22, IC1+23, I19+27, I19+36, I19+38, I19+43
>> BGPACTCL IC1+10, IC1+12, I19+5, I19+22, 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+23, I19+24, I19+25
, SET+4, SET+5, SET+6
>> BGPAGEE IC1+6, IC1+7, IC1+8
BGPALLED IC1+4!, IC1+33!, NXT+8!, 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+4, POT+8
, 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+22*, I19+23, I19+24, I19+25, I19+26
, NXT+1, I91+1*
>> BGPD10 I19+1*, I91+1*, SET+6*
>> BGPD2 IC1+1*, IC1+11*, IC1+18, IC1+30, I19+1*, I19+16*, I19+17*, I19+18*, I19+19*, I19+20*
, I19+21, I19+22, 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+23*, I91+1*
>> BGPD4 IC1+1*, IC1+13*, IC1+18, I19+1*, I19+24*, I91+1*
>> BGPD5 IC1+1*, IC1+14*, IC1+18, I19+1*, I19+25*, 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+27, I19+36, I19+38, I19+43, 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+33*, I19+34, I19+41, I91+1*
>> BGPN10 I19+1*, I91+1*, SET+19*
>> BGPN11 I19+1*, I19+34*, I19+42, I91+1*
>> BGPN2 IC1+1*, IC1+21*, I19+1*, I19+33*, I19+34, I91+1*
>> BGPN3 IC1+1*, IC1+22*, I19+1*, I19+39*, I19+41, I19+42, NXT+4, I91+1*
>> BGPN4 IC1+1*, IC1+23*, I19+1*, I19+43*, NXT+6, I91+1*
>> BGPN5 IC1+1*, I19+1*, I19+41*, I91+1*
>> BGPN6 IC1+1*, I19+1*, I19+42*, 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+8!, I91+2!, I91+3*, SET+15*, SET+16, SET+24, KVARS+1!
BGPREM I19+3*, I91+3*, POT+6*, POT+11*, POT+12*, POT+15, KVARS+2!
>> BGPRTYPE I19+5, I19+6, I19+26, I19+35, I19+43, NXT+1, NXT+2, NXT+4, NXT+6, SET+21
>> BGPSCPT I19+9*, I19+19, I19+20
BGPSDX I19+2!, I19+8*, I19+12, I19+13, I19+18, NXT+8!, I91+2!, KVARS+2!
>> BGPSDXQ I19+38*, I19+39, NXT+5
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+21*, I19+26*, I91+4*, SET+1*
BGPTC I19+2!, I19+3*, I19+27*, I19+33, NXT+3, NXT+8!, I91+2!, I91+3*, KVARS+1!
BGPTC1 I19+2!, I19+3*, NXT+8!, I91+2!, I91+3*, SET+10*, SET+11, SET+23, KVARS+2!
BGPTOB I19+2!, I19+36*, I19+37*, I19+39, NXT+5, NXT+8!, I91+2!, KVARS+2!
BGPTOBD I19+2!, I19+3*, NXT+8!, 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+14
BGPTOBS I19+2!, NXT+8!, 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+43*, NXT+7, NXT+8!, I91+2!, KVARS+2!
BGPTQ I19+2!, I19+39*, NXT+8!, I91+2!, KVARS+1!
BGPTU I19+3*, NXT+8!, 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+5*, POT+15*, SET+1, KVARS+2!
BGPTUC I19+3*, NXT+8!, I91+3*, NEWSTUFF+9*, NEWSTUFF+35*, KVARS+2!
BGPTUHF I19+3*, NXT+8!, I91+3*, KVARS+2!
BGPTUQ I19+3*, NXT+8!, 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*, SET+21*, SET+23*, SET+24*
C IC1+33!, NXT+8!, GETALLHF+2*, GETALLHF+6*, GETALLHF+10*, GETHF1+1, GETHF1+7, KVARS+1!
D IC1+33!, NXT+8!, 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+27, I19+36, I19+38, I19+43, 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
, POT+6, SET+10, SET+15
E IC1+33!, NXT+8!, TOMPED+4*, KVARS+1!
ED GETHF1+2~, GETHF1+4*, GETHF1+10, QUIT~, QUIT+2, QUIT+4, QUIT+8, QUIT+15, QUIT+17, QUIT+19
, GETLAST~, GETLAST+2, GETLAST+4, GETLAST+6
EDATE IC1+33!, NXT+8!, TOMPED~, TOMPED+4, TOMREF+8, KVARS+1!
F IC1+33!, I19+14*, I19+16, I19+17, NXT+8!, KVARS+1!
G TOMREF+2*, TOMREF+3, TOMREF+4, TOMREF+11*, TOMREF+12, QUIT+1~, QUIT+6*, QUIT+13*, QUIT+14, QUIT+15*
, QUIT+16, QUIT+17*, QUIT+18, QUIT+19*, QUIT+20, GETLAST+2*, GETLAST+3, GETLAST+4*, GETLAST+5, GETLAST+6*
, GETLAST+7, GETLAST+8*, GETLAST+9, GETLAST+10, NEWSTUFF+25*, NEWSTUFF+51*, POT+6*
H IC1+33!, NXT+8!, GETHF1+6*, GETHF1+7*, GETHF1+8, GETHF1+9, GETHF1+13, GETHF1+14, GETHF1+18*, GETHF1+24
, KVARS+1!
>> I TOMREF+4*, TOMREF+5
N DNKA+1~, DNKA+4*, DNKA+5, DNKA+6, DNKA+7
O GETHF1+6!
P IC1+33!, NXT+8!, TOMPED~, TOMPED+4, TOMREF+2, TOMREF+3, TOMREF+4, QUIT~, QUIT+2, QUIT+4
, QUIT+6, QUIT+15, QUIT+17, QUIT+19, GETLAST~, GETLAST+2, GETLAST+4, GETLAST+6, KVARS+1!
S IC1+33!, NXT+8!, KVARS+1!
T IC1+33!, NXT+8!, TOMPED+6*, TOMPED+7*, TOMPED+8, TOMPED+9, TOMPED+10*, TOMPED+11, TOMPED+12, QUIT+1~
, QUIT+11*, QUIT+12, NEWSTUFF+24*, NEWSTUFF+29, NEWSTUFF+50*, NEWSTUFF+55, KVARS+1!
U IC1+24, IC1+25, IC1+26, IC1+27, I19+12, I19+13, I19+16, I19+17, I19+19, I19+20
, I19+33, I19+39, NXT+3, NXT+5, NXT+7, 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+7, QUIT+8, QUIT+9, QUIT+10, QUIT+11, QUIT+13, QUIT+16, QUIT+18, QUIT+20
, 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+7, POT+8, POT+9
, POT+10, POT+11, POT+12, SET+11, SET+23, SET+24
V IC1+28*, IC1+29*, IC1+30*, IC1+31*, IC1+32, IC1+33!, NXT+8!, DNKA~, DNKA+2, DNKA+4
, KVARS+1!
X IC1+33!, NXT+8!, TOMPED+4*, TOMPED+6*, TOMPED+7, TOMPED+12, TOMREF+2*, TOMREF+3, TOMREF+4, TOMREF+9
, QUIT+1~, QUIT+6*, QUIT+7, QUIT+8, QUIT+9, QUIT+10, QUIT+13, 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+6*, POT+7, POT+8, POT+9
, POT+10, KVARS+1!
Y IC1+33!, NXT+8!, TOMPED+3*, TOMPED+4, TOMREF+9*, TOMREF+10, TOMREF+11, GETHF1+19*, GETHF1+20, QUIT+1~
, QUIT+2*, QUIT+3, QUIT+4*, QUIT+5, QUIT+10*, QUIT+11, QUIT+13, 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+4*, POT+5, POT+10*, POT+11, POT+12, SET+13*, SET+14*, SET+15, KVARS+1!
Z IC1+33!, NXT+8!, TOMREF+5*, TOMREF+6, TOMREF+7, TOMREF+8, TOMREF+11, NEWSTUFF+28*, NEWSTUFF+29, NEWSTUFF+30
, NEWSTUFF+54*, NEWSTUFF+55, NEWSTUFF+56, KVARS+1!
Info |  Source |  Call Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Local Variables |  All