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 |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: BGP9DS

Package: IHS GPRA Information System

Routine: BGP9DS


Information

BGP9DS ; IHS/CMI/LAB - IHS gpra print ;

Source Information

Source file <BGP9DS.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
IHS Patient 1 $$HRN^AUPNPAT  
Kernel 1 $$FMTE^XLFDT  
VA Fileman 1 ^DIR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
IHS GPRA Information System 1 BGP9DP  

Entry Points

Name Comments DBIA/ICR reference
WTITLE ;EP - write title line
LOC() ;EP - Return location name from file 4 based on DUZ(2).
HEADER ;EP
CTR(X,Y) ;EP - Center X in a field Y wide.
H1 ;
START ;
USR() ;EP - Return name of current user from ^VA(200.
HEADER1 ;
GO
PRINTL ;print one line

External References

Name Field # of Occurrence
$$HRN^AUPNPAT PRINTL+7
^DIR HEADER+2
$$FMTE^XLFDT HEADER1+4, HEADER1+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,T,!
  • Line Location: WTITLE+3
Function Call: WRITE
  • Prompt: !,$E(T,1,S)
  • Line Location: WTITLE+7
Function Call: WRITE
  • Prompt: !,$E(T,(S+1),$L(T)),!
  • Line Location: WTITLE+8
Function Call: WRITE
  • Prompt: !,^BGPINDN(BGPL,72,X,0)
  • Line Location: PRINTL+3
Function Call: WRITE
  • Prompt: !,$E($P(^DPT(DFN,0),U),1,22),?24,$$HRN^AUPNPAT(DFN,DUZ(2)),?31,$E(BGPCOM,1,14),?46,BGPSEX,?49,BGPAGE
  • Line Location: PRINTL+7
Function Call: WRITE
  • Prompt: ?53,$P(^XTMP("BGP9D",BGPJ,BGPH,"LIST",BGPL,BGPCOM,BGPSEX,BGPAGE,DFN),"|||",1)
  • Line Location: PRINTL+8
Function Call: WRITE
  • Prompt: ?65,$P(^XTMP("BGP9D",BGPJ,BGPH,"LIST",BGPL,BGPCOM,BGPSEX,BGPAGE,DFN),"|||",2)
  • Line Location: PRINTL+10
Function Call: WRITE
  • Prompt: !
  • Line Location: HEADER+2
Function Call: WRITE
  • Prompt: "ZZZZZZZ",!
  • Line Location: HEADER1+2
Function Call: WRITE
  • Prompt: !,"***** CONFIDENTIAL PATIENT INFORMATION, COVERED BY THE PRIVACY ACT *****"
  • Line Location: HEADER1+3
Function Call: WRITE
  • Prompt: !?3,$P(^VA(200,DUZ,0),U,2),?35,$$FMTE^XLFDT(DT),?70,"Page ",BGPGPG,!
  • Line Location: HEADER1+4
Function Call: WRITE
  • Prompt: !,$$CTR("*** IHS 2009 Clinical Performance Measure Patient List ***",80),!
  • Line Location: HEADER1+5
Function Call: WRITE
  • Prompt: $$CTR($P(^DIC(4,DUZ(2),0),U),80),!
  • Line Location: HEADER1+6
Function Call: WRITE
  • Prompt: $$CTR(X,80),!
  • Line Location: HEADER1+7
Function Call: WRITE
  • Prompt: $$CTR($S(BGPLIST="A":"Entire Patient List",BGPLIST="R":"Random Patient List",1:"Patient List by Provider: "_BGPLPROV),80),!
  • Line Location: HEADER1+8
Function Call: WRITE
  • Prompt: !,$TR($J("",80)," ","-")
  • Line Location: HEADER1+9
Function Call: WRITE
  • Prompt: !,"UP=User Pop; AC=Active Clinical; AD=Active Diabetic; AAD=Active Adult Diabetic",!,"PREG=Pregnant Female; IMM=Active IMM Pkg Pt; IHD=Active Ischemic Heart Disease",!
  • Line Location: H1+4
Function Call: WRITE
  • Prompt: !,^BGPINDN(BGPL,BGPTSUB,X,0)
  • Line Location: H1+5
Function Call: WRITE
  • Prompt: !,"PATIENT NAME",?24,"HRN",?31,"COMMUNITY",?45,"SEX",?49,"AGE",?53,"DENOMINATOR",?65,"NUMERATOR"
  • Line Location: H1+6
Function Call: WRITE
  • Prompt: !,$TR($J("",80)," ","-")
  • Line Location: H1+7
Routine Call
  • DIR
  • Line Location:
    • HEADER+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^BGPINDN - [#90536.01] GO+3, GO+4, GO+7, GO+8, GO+9, GO+11, GO+18, GO+19, GO+22, GO+23
, GO+24, GO+26, GO+32, GO+33, GO+34, GO+36, GO+37, GO+39, GO+40, GO+42
, GO+43, GO+45, WTITLE+2, H1+2, H1+5
^DIC(4 - [#4] HEADER1+6, LOC+1
^DPT - [#2] PRINTL+7
^VA(200 - [#200] HEADER1+4, USR+1
^XTMP("BGP9D" GO+50, GO+51, GO+52, GO+53, PRINTL+8, PRINTL+10

Label References

Name Line Occurrences
$$CTR HEADER1+5, HEADER1+6, HEADER1+7, HEADER1+8
GO START+11, START+12, START+13
H1 GO+48, PRINTL+4
HEADER START+9, GO+10, GO+16, GO+25, GO+35, GO+38, GO+41, GO+44, GO+46, GO+57
, PRINTL+2, H1+3
HEADER1 HEADER+1
PRINTL GO+53
WTITLE GO+1

Naked Globals

Name Field # of Occurrence
^(0 USR+1, LOC+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> BGPAGE GO+52*, GO+53, PRINTL+7, PRINTL+8, PRINTL+10
>> BGPAREAA START+1
>> BGPBD HEADER1+7
>> BGPCNT START+10*, START+11*, START+12*, START+13*, START+16*, PRINTL+1
>> BGPCOM GO+50*, GO+51, GO+52, GO+53, PRINTL+7, PRINTL+8, PRINTL+10
>> BGPCOUNT START+8*, GO+53*, PRINTL+1
>> BGPCPPL START+4
>> BGPED HEADER1+7
>> BGPFIRSP START+8*, H1+1, H1+8*
>> BGPGPG START+5*, HEADER+1, HEADER1+1*, HEADER1+4
>> BGPGUI HEADER1+2
>> BGPH GO+50, GO+51, GO+52, GO+53, PRINTL+8, PRINTL+10
>> BGPINDT GO+8, GO+23
>> BGPIOSL GO+10, GO+16, GO+25, GO+35, GO+38, GO+41, GO+44, GO+46, GO+57, PRINTL+2
, H1+3
>> BGPJ GO+50, GO+51, GO+52, GO+53, PRINTL+8, PRINTL+10
>> BGPL START+7*, START+10, GO+3, GO+4, GO+7, GO+8, GO+9, GO+11, GO+18, GO+19
, GO+22, GO+23, GO+24, GO+26, GO+32, GO+33, GO+34, GO+36, GO+37, GO+39
, GO+40, GO+42, GO+43, GO+45, GO+50, GO+51, GO+52, GO+53, WTITLE+2, PRINTL+8
, PRINTL+9, PRINTL+10, H1+2, H1+5
>> BGPLIST START+2, START+13, HEADER1+8
>> BGPLIST( START+7, START+10
>> BGPLPROV HEADER1+8
>> BGPNODE GO+31*, GO+32*, GO+33*, GO+34, GO+36
>> BGPNPL START+3
>> BGPPCNT START+8*, GO+58, PRINTL+6*
>> BGPQUIT START+5*, START+7, START+9, GO+3, GO+4, GO+9, GO+10, GO+16, GO+18, GO+19
, GO+24, GO+25, GO+35, GO+38, GO+41, GO+44, GO+46, GO+49, GO+50, GO+51
, GO+52, GO+53, GO+57, PRINTL+2, PRINTL+5, HEADER+2*, H1+3
>> BGPRTYPE GO+7, GO+8, GO+22, GO+23, GO+32, GO+33
>> BGPSEX GO+51*, GO+52, GO+53, PRINTL+7, PRINTL+8, PRINTL+10
>> BGPTSUB H1+1*, H1+2, H1+5
>> BGPX GO+3*, GO+4, GO+18*, GO+19, GO+34*, GO+36, GO+37*, GO+39, GO+40*, GO+42
, GO+43*, GO+45
>> BGPY GO+4*, GO+7, GO+8, GO+9, GO+11, GO+19*, GO+22, GO+23, GO+24, GO+26
>> BGPZ GO+9*, GO+11, GO+24*, GO+26
>> C H1+2*, H1+3
>> DFN GO+53*, PRINTL+7, PRINTL+8, PRINTL+10
DIR HEADER+2!
DIR(0 HEADER+2*
DT HEADER1+4
>> DTOUT HEADER+2
DUZ HEADER1+4, USR+1
DUZ(2 PRINTL+7, HEADER1+6, LOC+1
>> I WTITLE+6*
IO HEADER+2
IO(0 HEADER+2
IOF HEADER1+1
IOM CTR+1
IOST HEADER+2
S WTITLE+1~, WTITLE+5*, WTITLE+6*, WTITLE+7, WTITLE+8
T WTITLE+1~, WTITLE+2*, WTITLE+3, WTITLE+4, WTITLE+7, WTITLE+8
U WTITLE+2, PRINTL+7, HEADER1+4, HEADER1+6, USR+1, LOC+1
X WTITLE+1~, WTITLE+4*, WTITLE+6, HEADER1+7*, H1+2*, H1+5*, CTR~, CTR+1
Y WTITLE+1~, WTITLE+6*, HEADER+2, CTR~, CTR+1
>> ZTQUEUED HEADER+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All