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: BGP2D71

Package: IHS GPRA Information System

Routine: BGP2D71


Information

BGP2D71 ; IHS/CMI/LAB - measure C ;

Source Information

Source file <BGP2D71.m>

Call Graph

Call Graph Total: 13

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!
Info |  Source |  Call Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Local Variables |  All