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 |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: BGP7D35

Package: IHS GPRA Information System

Routine: BGP7D35


Information

BGP7D35 ; IHS/CMI/LAB - measure C 01 Nov 2014 12:11 PM ;

Source Information

Source file <BGP7D35.m>

Call Graph

Call Graph Total: 9

Package Total Call Graph
IHS GPRA Information System 5 ($$ANCONT,$$MMRCONT)^BGP7D31  ($$IMMREF,GETIMMS)^BGP7D32  ($$IPLSNOND,$$PLTAXND)^BGP7DU  $$CPTREFT^BGP7UTL1  $$ICD^BGP7UTL2  
DRG Grouper 1 ($$CODEN,$$CPT)^ICPTCOD  
IHS Patient 1 $$DOB^AUPNPAT  
Kernel 1 $$FMDIFF^XLFDT  
Patient Care Component Reports 1 $$START1^APCLDF  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
IHS GPRA Information System 1 BGP7D32  

Entry Points

Name Comments DBIA/ICR reference
VAR(P,EDATE) ;EP
I
HIB(P,EDATE) ;EP
HEP(P,EDATE) ;EP
EVIDVAR(P,C,ED) ;EP - HX CHICKEN POX, IMMUNE
PNEUMO(P,EDATE,MINN) ;EP

External References

Name Field # of Occurrence
$$START1^APCLDF VAR+19, VAR+22, I+2, HIB+26, PNEUMO+27
$$DOB^AUPNPAT VAR+10, VAR+19, VAR+22, VAR+35, HEP+9, I+2, I+8, I+13, HIB+8, HIB+26
, HIB+41, HIB+46, HIB+49, PNEUMO+9, PNEUMO+27, PNEUMO+38, PNEUMO+43
$$ANCONT^BGP7D31 I+18, HIB+51, PNEUMO+48
$$MMRCONT^BGP7D31 VAR+32
$$IMMREF^BGP7D32 HIB+49
GETIMMS^BGP7D32 VAR+6, HEP+5, HIB+5, PNEUMO+6
$$IPLSNOND^BGP7DU VAR+26, I+6
$$PLTAXND^BGP7DU VAR+25, I+5
$$CPTREFT^BGP7UTL1 I+13, HIB+46, PNEUMO+43
$$ICD^BGP7UTL2 HEP+15, HEP+17, PNEUMO+14, PNEUMO+16
$$CODEN^ICPTCOD VAR+41
$$CPT^ICPTCOD VAR+15, VAR+17, HEP+15, HEP+17, HIB+13, HIB+15, PNEUMO+14, PNEUMO+16
$$FMDIFF^XLFDT HEP+21, HIB+19, HIB+31, PNEUMO+20, PNEUMO+32

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Timeout: 4,1:3)_U_$S(BGPNMI:"NMI
  • Variable: Q $S(BGPNMI
  • Line Location: VAR+39
Function Call: READ
  • Timeout: 4,1:3)_U_$S(BGPNMI:"NMI
  • Variable: Q $S(BGPNMI
  • Line Location: VAR+43
Function Call: READ
  • Timeout: 4,1:3)_U_$S(BGPNMI:"NMI",1:"Ref")_"
  • Variable: Q $S(BGPNMI
  • Line Location: I+12
Function Call: READ
  • Timeout: 4,1:3)_U_$S(BGPNMI:"NMI",1:"Ref")_"
  • Variable: Q $S(BGPNMI
  • Line Location: I+17
Function Call: READ
  • Timeout: 4,1:3)_U_$S(BGPNMI:"NMI",1:"Ref")_"
  • Variable: Q $S(BGPNMI
  • Line Location: HIB+45
Function Call: READ
  • Timeout: $P(R,U,3)="N"
  • Variable: S
  • Line Location: HIB+47
Function Call: READ
  • Timeout: 4,1:3)_U_$S(BGPNMI:"NMI",1:"Ref")_"
  • Variable: Q $S(BGPNMI
  • Line Location: HIB+50
Function Call: READ
  • Timeout: 4,1:3)_U_$S(BGPNMI:"NMI",1:"Ref")_"
  • Variable: Q $S(BGPNMI
  • Line Location: PNEUMO+42
Function Call: READ
  • Timeout: 4,1:3)_U_$S(BGPNMI:"NMI",1:"Ref")_"
  • Variable: Q $S(BGPNMI
  • Line Location: PNEUMO+47

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ATXAX("B" HEP+10, I+13, HIB+46, PNEUMO+14, PNEUMO+16, PNEUMO+43
^AUPNPREF - [#9000022] VAR+38, VAR+42, I+11, HIB+44, PNEUMO+41
^AUPNPREF("AA" VAR+38, VAR+42, I+11, HIB+44, PNEUMO+41
^AUPNVCPT - [#9000010.18] VAR+15, HEP+15, HIB+13, PNEUMO+14
^AUPNVCPT("AD" VAR+14, HEP+14, HIB+12, PNEUMO+13
^AUPNVSIT - [#9000010] VAR+13, HEP+13, HIB+11, PNEUMO+12
^AUPNVSIT("AA" VAR+11, VAR+12, HEP+11, HEP+12, HIB+9, HIB+10, PNEUMO+10, PNEUMO+11
^AUPNVTC - [#9000010.33] VAR+17, HEP+17, HIB+15, PNEUMO+16
^AUPNVTC("AD" VAR+16, HEP+16, HIB+14, PNEUMO+15
^AUTTIMM("C" VAR+37, I+10, HIB+43, PNEUMO+40, EVIDVAR+2
^BICONT - [#9002084.81] EVIDVAR+5, EVIDVAR+10, EVIDVAR+11
^BIPC - [#9002084.11] EVIDVAR+3, EVIDVAR+6, EVIDVAR+9
^BIPC("AC" EVIDVAR+2

Label References

Name Line Occurrences
$$EVIDVAR VAR+27

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % VAR+19*, VAR+22*, I+2*, HIB+26*, PNEUMO+27*
B VAR+1~, VAR+35*, VAR+38, VAR+42, I+8*, I+11, HIB+41*, HIB+44, PNEUMO+38*, PNEUMO+41
BD VAR+1~, VAR+10*, VAR+11, HEP+1~, HEP+9*, HEP+11, HIB+8*, HIB+9, PNEUMO+9*, PNEUMO+10
BGP10743 HEP+1~, HEP+2*, HEP+11*, HEP+15*, HEP+17*, I
>> BGPADOL I
BGPAHIB HIB+2!, HIB+25
BGPAHIB( HIB+6*, HIB+27*
BGPAHIB(9999999 HIB+13*, HIB+15*
BGPAPNU PNEUMO+3!, PNEUMO+26
BGPAPNU( PNEUMO+7*, PNEUMO+28*
BGPAPNU(9999999 PNEUMO+14*, PNEUMO+16*
BGPC VAR+1~, HEP+1~, HIB+1!, PNEUMO+1!
BGPG VAR+1~, VAR+19!, VAR+22!, HEP+1~, I+2!, HIB+1!, HIB+26!, PNEUMO+1!, PNEUMO+27!
BGPG( HIB+27, PNEUMO+28
BGPG(1 VAR+20, VAR+23, I+3, HIB+27, PNEUMO+28
BGPHEP HEP+1~, HEP+24*, HEP+26, I
BGPHEP( HEP+7*, HEP+19, HEP+21!, HEP+24
BGPHEP(9999999 HEP+15*, HEP+17*
BGPHIB HIB+2!, HIB+22*, HIB+23, HIB+25!*, HIB+34*, HIB+35
BGPHIB( HIB+6*, HIB+17, HIB+19!, HIB+22, HIB+27*, HIB+29, HIB+31!, HIB+34
BGPHIB(9999999 HIB+13*, HIB+15*
BGPIMM VAR+1~, VAR+36*, VAR+37, VAR+40*, VAR+41, I+9*, I+10, HIB+42*, HIB+43, HIB+49*
, PNEUMO+39*, PNEUMO+40
BGPNMI VAR+1~, VAR+35*, VAR+38*, VAR+39, VAR+42*, VAR+43, I+8*, I+11*, I+12, I+14*
, HIB+41*, HIB+44*, HIB+45, HIB+47*, HIB+50, PNEUMO+38*, PNEUMO+41*, PNEUMO+42, PNEUMO+44*
BGPPNU PNEUMO+3!, PNEUMO+23*, PNEUMO+24, PNEUMO+26!*, PNEUMO+35*, PNEUMO+36
BGPPNU( PNEUMO+7*, PNEUMO+18, PNEUMO+20!, PNEUMO+23, PNEUMO+28*, PNEUMO+30, PNEUMO+32!, PNEUMO+35
BGPPNU(9999999 PNEUMO+14*, PNEUMO+16*
BGPVARI VAR+1~, VAR+3!, VAR+18
BGPVARI(9999999 VAR+15*, VAR+17*
BGPX VAR+1~, VAR+6, HEP+1~, HEP+5, HIB+1!, HIB+5, PNEUMO+1!, PNEUMO+6
BGPX( HEP+7, HIB+6, PNEUMO+7
BGPX(0 VAR+8
BGPZ VAR+1~, VAR+27*, VAR+32*, I+18*, HIB+51*, PNEUMO+48*
C VAR+1~, VAR+5*, VAR+6, HEP+1~, HEP+4*, HEP+5, HEP+19*, HEP+20, HIB+4*, HIB+5
, HIB+17*, HIB+18, HIB+29*, HIB+30, PNEUMO+5*, PNEUMO+6, PNEUMO+18*, PNEUMO+19, PNEUMO+30*, PNEUMO+31
, EVIDVAR~, EVIDVAR+2
>> D VAR+38*, VAR+42*, I+11*, HIB+44*, PNEUMO+41*, EVIDVAR+6*, EVIDVAR+7, EVIDVAR+10, EVIDVAR+11
>> E VAR+19*, VAR+22*, VAR+35*, VAR+38, VAR+42, I+2*, I+8*, I+11, HIB+26*, HIB+41*
, HIB+44, PNEUMO+27*, PNEUMO+38*, PNEUMO+41
ED VAR+1~, VAR+10*, VAR+11*, VAR+12, VAR+15, VAR+17, HEP+1~, HEP+9*, HEP+11*, HEP+12
, HEP+15, HEP+17, HIB+8*, HIB+9*, HIB+10, HIB+13, HIB+15, PNEUMO+9*, PNEUMO+10*, PNEUMO+11
, PNEUMO+14, PNEUMO+16, EVIDVAR~, EVIDVAR+9
EDATE VAR~, VAR+6, VAR+10, VAR+19, VAR+22, VAR+25, VAR+26, VAR+27, VAR+32, VAR+35
, HEP~, HEP+5, HEP+9, I+2, I+5, I+6, I+8, I+13, I+18, HIB~
, HIB+5, HIB+8, HIB+26, HIB+41, HIB+46, HIB+49, HIB+51, PNEUMO~, PNEUMO+6, PNEUMO+9
, PNEUMO+27, PNEUMO+38, PNEUMO+43, PNEUMO+48
G VAR+1~, VAR+10*, HEP+1~, HEP+9*, HIB+8*, PNEUMO+9*, EVIDVAR+2*, EVIDVAR+10*, EVIDVAR+11*, EVIDVAR+12
>> I VAR+37*, VAR+38, VAR+41*, VAR+42, I+10*, I+11, HIB+43*, HIB+44, PNEUMO+40*, PNEUMO+41
MINN PNEUMO~, PNEUMO+24, PNEUMO+36
P VAR~, VAR+6, VAR+10, VAR+11, VAR+12, VAR+19, VAR+22, VAR+25, VAR+26, VAR+27
, VAR+32, VAR+35, VAR+38, VAR+42, HEP~, HEP+5, HEP+9, HEP+11, HEP+12, I+2
, I+5, I+6, I+8, I+11, I+13, I+18, HIB~, HIB+5, HIB+8, HIB+9
, HIB+10, HIB+26, HIB+41, HIB+44, HIB+46, HIB+49, HIB+51, PNEUMO~, PNEUMO+6, PNEUMO+9
, PNEUMO+10, PNEUMO+11, PNEUMO+27, PNEUMO+38, PNEUMO+41, PNEUMO+43, PNEUMO+48, EVIDVAR~, EVIDVAR+2
R VAR+1~, VAR+35*, VAR+38*, VAR+39, VAR+42*, VAR+43, I+8*, I+11*, I+12, I+13*
, I+14, HIB+41*, HIB+44*, HIB+45, HIB+46*, HIB+47, HIB+49*, HIB+50, PNEUMO+38*, PNEUMO+41*
, PNEUMO+42, PNEUMO+43*, PNEUMO+44, EVIDVAR+3*, EVIDVAR+4, EVIDVAR+5, EVIDVAR+10, EVIDVAR+11
T HEP+1~, HEP+10*, HEP+15, HEP+17
U VAR+8, VAR+15, VAR+17, VAR+18, VAR+20, VAR+23, VAR+25, VAR+26, VAR+28, VAR+33
, VAR+38, VAR+39, VAR+42, VAR+43, HEP+15, HEP+17, HEP+26, I, I+3, I+5
, I+6, I+11, I+12, I+14, I+19, HIB+13, HIB+15, HIB+23, HIB+27, HIB+35
, HIB+44, HIB+45, HIB+47, HIB+50, HIB+52, PNEUMO+14, PNEUMO+16, PNEUMO+24, PNEUMO+28, PNEUMO+36
, PNEUMO+41, PNEUMO+42, PNEUMO+44, PNEUMO+49, EVIDVAR+3, EVIDVAR+6, EVIDVAR+9, EVIDVAR+10, EVIDVAR+11
V VAR+1~, VAR+12*, VAR+13, VAR+14, VAR+16, HEP+1~, HEP+12*, HEP+13, HEP+14, HEP+16
, HIB+10*, HIB+11, HIB+12, HIB+14, PNEUMO+11*, PNEUMO+12, PNEUMO+13, PNEUMO+15
X VAR+1~, VAR+14*, VAR+15, VAR+16*, VAR+17, VAR+27*, VAR+28, VAR+32*, VAR+33, VAR+38*
, VAR+42*, HEP+1~, HEP+7*, HEP+14*, HEP+15, HEP+16*, HEP+17, HEP+19*, HEP+20, HEP+21
, HEP+22, HEP+24*, I+11*, I+18*, I+19, HIB+6*, HIB+12*, HIB+13, HIB+14*, HIB+15
, HIB+17*, HIB+18, HIB+19, HIB+20, HIB+22*, HIB+27*, HIB+29*, HIB+30, HIB+31, HIB+32
, HIB+34*, HIB+44*, HIB+51*, HIB+52, PNEUMO+7*, PNEUMO+13*, PNEUMO+14, PNEUMO+15*, PNEUMO+16, PNEUMO+18*
, PNEUMO+19, PNEUMO+20, PNEUMO+21, PNEUMO+23*, PNEUMO+28*, PNEUMO+30*, PNEUMO+31, PNEUMO+32, PNEUMO+33, PNEUMO+35*
, PNEUMO+41*, PNEUMO+48*, PNEUMO+49, EVIDVAR+1~, EVIDVAR+2*, EVIDVAR+3, EVIDVAR+6, EVIDVAR+9
Y VAR+1~, VAR+15*, VAR+17*, VAR+38*, VAR+42*, HEP+1~, HEP+15*, HEP+17*, HEP+19*, HEP+20*
, HEP+21, HEP+22*, I+11*, HIB+13*, HIB+15*, HIB+17*, HIB+18*, HIB+19, HIB+20*, HIB+29*
, HIB+30*, HIB+31, HIB+32*, HIB+44*, PNEUMO+14*, PNEUMO+16*, PNEUMO+18*, PNEUMO+19*, PNEUMO+20, PNEUMO+21*
, PNEUMO+30*, PNEUMO+31*, PNEUMO+32, PNEUMO+33*, PNEUMO+41*, EVIDVAR+2*
Z HEP+1~, HEP+15*, HEP+17*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All