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 |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: BGP8DAR

Package: IHS GPRA Information System

Routine: BGP8DAR


Information

BGP8DAR ;IHS/CMI/LAB - GPRA AREA REPORT;

Source Information

Source file <BGP8DAR.m>

Call Graph

Call Graph Total: 15

Package Total Call Graph
IHS GPRA Information System 6 EN^BGP8ASL  ENDDATE^BGP8DGPU  (PT,TEXT)^BGP8DSL  PRINT^BGP8PARP  ($$D,$$LZERO,$$RZERO,GNT1)^BGP8UTL  $$GETDIR^BGP8UTL2  
Kernel 4 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  ($$FMADD,$$FMTE,$$NOW)^XLFDT  
IHS VA Utilities 3 ^XBDBQUE  ^XBFMK  EN^XBVK  
IHS Patient 1 KILL^AUPNPAT  
VA Fileman 1 ^DIR  

Entry Points

Name Comments DBIA/ICR reference
EOP ;EP - End of page.
EISSEX ;
B ;fiscal year
ZIS ;call to XBDBQUE
ASU ;
F ;fiscal year
CTR(X,Y) ;EP - Center X in a field Y wide.
DRIVER ;
LOC() ;EP - Return location name from file 4 based on DUZ(2).
TP ;
SUMONLY ;EP
USR() ;EP - Return name of current user from ^VA(200.
INTRO ;
EXIT ;
TSKMN ;EP ENTRY POINT FROM TASKMAN
NODEV1 ;
NT ;END TEST STUFF
BY ;get baseline year
GI ;gather all gpra measures
NODEV ;

External References

Name Field # of Occurrence
^%ZIS GI+9
HOME^%ZIS TSKMN+5
^%ZISC DRIVER+4, EXIT+1, NODEV1+3
^%ZTLOAD TSKMN+5
KILL^AUPNPAT EXIT+3
EN^BGP8ASL ASU+9
ENDDATE^BGP8DGPU TP+14
PT^BGP8DSL GI+4
TEXT^BGP8DSL GI+3
PRINT^BGP8PARP DRIVER+2, NODEV1+1
$$D^BGP8UTL EISSEX+9, EISSEX+10, EISSEX+11, EISSEX+12, EISSEX+13, EISSEX+14, EISSEX+15
$$LZERO^BGP8UTL EISSEX+9, EISSEX+10, EISSEX+11, EISSEX+12, EISSEX+13, EISSEX+14, EISSEX+15
$$RZERO^BGP8UTL EISSEX+6
GNT1^BGP8UTL DRIVER+3, NODEV1+2
$$GETDIR^BGP8UTL2 EISSEX+2
^DIR TP+11, TP+28, BY+5, ASU+3, ASU+7, B+6, F+8, EOP+5, SUMONLY+12
^XBDBQUE NODEV+2
^XBFMK EISSEX+33, EXIT+4
EN^XBVK EXIT+2
$$FMADD^XLFDT TP+22
$$FMTE^XLFDT TP+26, NT+2, NT+3, NT+4
$$NOW^XLFDT EISSEX+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,$$CTR(BGPA_" Area Aggregate National GPRA/GPRAMA Report",80)
  • Line Location: BGP8DAR+6
Function Call: WRITE
  • Prompt: !,"Year not entered.",!
  • Line Location: TP+16
Function Call: WRITE
  • Prompt: !!,"Enter the Baseline Year to compare data to.",!,"Use a 4 digit year, e.g. 2010"
  • Line Location: BY+2
Function Call: WRITE
  • Prompt: !!,"Please enter a year only!",!
  • Line Location: BY+9
Function Call: WRITE
  • Prompt: !!,"The date ranges for this report are:"
  • Line Location: NT+1
Function Call: WRITE
  • Prompt: !?5,"Report Period: ",?31,$$FMTE^XLFDT(BGPBD)," to ",?31,$$FMTE^XLFDT(BGPED)
  • Line Location: NT+2
Function Call: WRITE
  • Prompt: !?5,"Previous Year Period: ",?31,$$FMTE^XLFDT(BGPPBD)," to ",?31,$$FMTE^XLFDT(BGPPED)
  • Line Location: NT+3
Function Call: WRITE
  • Prompt: !?5,"Baseline Period: ",?31,$$FMTE^XLFDT(BGPBBD)," to ",?31,$$FMTE^XLFDT(BGPBED)
  • Line Location: NT+4
Function Call: WRITE
  • Prompt: !!!,"You will now be able to select which sites to use in the",!,"area aggregate/facility report.",!
  • Line Location: ASU+6
Function Call: WRITE
  • Prompt: !!,"No sites selected"
  • Line Location: ASU+10
Function Call: WRITE
  • Prompt: !!,"A total of ",C," facilities have been selected.",!!
  • Line Location: ASU+12
Function Call: WRITE
  • Prompt: !!,"Enter the BASELINE year for the report. Use a 4 digit ",!,"year, e.g. 2010"
  • Line Location: B+2
Function Call: WRITE
  • Prompt: !!,"Please enter a year only!",!
  • Line Location: B+10
Function Call: WRITE
  • Prompt: !
  • Line Location: F+2
Function Call: WRITE
  • Prompt: !,"Enter the Fiscal Year (FY) for the report END date. Use a 4 digit",!,"year, e.g. 2010, 2018"
  • Line Location: F+4
Function Call: WRITE
  • Prompt: !!,"Please enter a year only!",!
  • Line Location: F+12
Function Call: WRITE
  • Prompt: !,$$CTR("IHS 2018 Area National GPRA/GPRAMA Report Clinical Performance Summaries")
  • Line Location: SUMONLY+3
Function Call: WRITE
  • Prompt: !!,"This will produce ONLY the clinical performance summaries for the Area "
  • Line Location: SUMONLY+4
Function Call: WRITE
  • Prompt: !,"National GPRA/GPRAMA Report for the 2018 GPRA year. If you want the detailed "
  • Line Location: SUMONLY+5
Function Call: WRITE
  • Prompt: !,"information included in the report, including performance measure "
  • Line Location: SUMONLY+6
Function Call: WRITE
  • Prompt: !,"definitions and number of patients in each denominator and numerator"
  • Line Location: SUMONLY+7
Function Call: WRITE
  • Prompt: !,"you need to run the AGP menu option."
  • Line Location: SUMONLY+8
Function Call: WRITE
  • Prompt: !!,"The CRSGPRANT export files will not be created; use the AGP menu option "
  • Line Location: SUMONLY+9
Function Call: WRITE
  • Prompt: !,"to run the report that will create these files."
  • Line Location: SUMONLY+10
Function Call: WRITE
  • Prompt: !
  • Line Location: SUMONLY+11
Routine Call
  • %ZIS
  • Line Location:
    • TSKMN+5
Routine Call
  • DIR
  • Line Location:
    • TP+11
    • TP+28
    • BY+5
    • ASU+3
    • ASU+7
    • B+6
    • F+8
    • EOP+5
    • SUMONLY+12
Routine Call
  • %ZIS
  • Line Location:
    • GI+9

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUTTAREA - [#9999999.21] BGP8DAR+5, SUMONLY+2
^AUTTAREA("C" BGP8DAR+5, SUMONLY+2
^AUTTLOC - [#9999999.06] BGP8DAR+5, EISSEX+9, EISSEX+10, EISSEX+11, EISSEX+12, EISSEX+13, EISSEX+14, EISSEX+15, EISSEX+20, EISSEX+32
, SUMONLY+2
^BGPCTRL - [#90241.01] TP+4
^BGPCTRL("B" TP+3
^BGPINDR("GPRA" GI+1
^DIC(4 - [#4] LOC+1
^VA(200 - [#200] USR+1

Label References

Name Line Occurrences
$$CTR BGP8DAR+6, SUMONLY+3
ASU GI+5, GI+6
BY BY+9
EXIT INTRO+1, TP+12, ASU+4, ASU+10, GI+8, GI+10, DRIVER+5, TSKMN+5, NODEV1+4
F TP+15, B+10, F+12
NODEV GI+8
NT TP+9
TP TP+16, TP+25, BY+6, BY+7, SUMONLY+14
TSKMN GI+11

Naked Globals

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS GI+8!, GI+9!*
>> BGPA BGP8DAR+5*, BGP8DAR+6, SUMONLY+2*
>> BGPAREAA TP+1*
>> BGPASUF EISSEX+20*, EISSEX+32*
>> BGPBBD TP+7*, BY+12*, NT+4
>> BGPBD TP+5*, TP+10*, TP+17*, TP+18*, TP+19*, TP+20*, TP+23*, TP+24*, TP+26, BY+12
, BY+14, NT+2, F+13*
>> BGPBED TP+7*, BY+13*, NT+4
>> BGPBEN TP+2*
>> BGPBPER B+1*, B+11*
>> BGPC EISSEX+7*, EISSEX+9, EISSEX+10, EISSEX+11, EISSEX+12, EISSEX+13, EISSEX+14, EISSEX+15
>> BGPDELT GI+8, GI+9
>> BGPDO TP+25, TP+28*, TP+29*, TP+30*
>> BGPED TP+5*, TP+10*, TP+17*, TP+18*, TP+19*, TP+20*, TP+23*, TP+24*, TP+25, TP+26
, BY+13, BY+15, NT+2, F+13*
>> BGPEXCEL EISSEX+1*, EISSEX+5, EISSEX+21, DRIVER+3, NODEV1+2
>> BGPFDEV1 EISSEX+11*, EISSEX+28
>> BGPFDEV2 EISSEX+12*, EISSEX+29
>> BGPFDEV3 EISSEX+13*, EISSEX+30
>> BGPFDEV4 EISSEX+14*, EISSEX+31
>> BGPFGNT1 EISSEX+9*, EISSEX+22
>> BGPFGNT2 EISSEX+10*, EISSEX+23
>> BGPFGNT3 EISSEX+15*, EISSEX+24
>> BGPIFTR DRIVER+3, NODEV1+2
>> BGPIND( GI+1*
>> BGPINDG GI+2*
>> BGPNOW EISSEX+6*, EISSEX+9, EISSEX+10, EISSEX+11, EISSEX+12, EISSEX+13, EISSEX+14, EISSEX+15
>> BGPPBD TP+6*, BY+14*, NT+3
>> BGPPED TP+6*, BY+15*, NT+3
>> BGPPER TP+8*, TP+16, TP+17, TP+18, TP+19, TP+20, TP+22, TP+23*, TP+24*, BY+10
, F+1*, F+13*
>> BGPQTR TP+8*, TP+13*, TP+14, TP+15, TP+17, TP+18, TP+19, TP+20, TP+21
>> BGPQUIT F+10*
>> BGPROT GI+6, GI+8
>> BGPRPTT ASU+2*, ASU+5*, EISSEX+1, DRIVER+3, NODEV1+2
>> BGPRTYPE TP+2*
>> BGPSUCNT ASU+1*
BGPSUL ASU+8!, ASU+10
BGPSUL( ASU+11, EISSEX+7
>> BGPSUMON EISSEX+1, SUMONLY+13*
>> BGPTP TP+10*
>> BGPUF EISSEX+2*, EISSEX+8, EISSEX+22, EISSEX+23, EISSEX+24, EISSEX+28, EISSEX+29, EISSEX+30, EISSEX+31
>> BGPVDT BY+1*, BY+8*, BY+10, B+1*, B+9*, B+11, F+3*, F+11*, F+13
>> BGPYRPTH TP+2*
>> C ASU+11*, ASU+12, EISSEX+1
>> D TP+22*, TP+23, TP+24
DA TP+11!, TP+28!, ASU+3!, ASU+7!, EISSEX+34!
DD EISSEX+34!
DFOUT EOP+4!
DIADD EISSEX+34!
DIC EISSEX+34!, F+9!
DINUM EISSEX+34!
DIR TP+11!, TP+28!, BY+5!, ASU+3!, ASU+7!, B+6!, EOP+3~, SUMONLY+12!
DIR("?" B+5*, F+7*
DIR("A" TP+11*, TP+28*, BY+4*, ASU+3*, ASU+7*, B+4*, F+6*, SUMONLY+12*
DIR("B" TP+28*, ASU+3*
DIR(0 TP+11*, TP+28*, BY+3*, ASU+3*, ASU+7*, B+3*, F+5*, EOP+5*, SUMONLY+12*
DIRUT TP+12, TP+29, BY+6, BY+7*, ASU+4, GI+5, B+7, B+8*, F+10*, EOP+4!
DLAYGO EISSEX+34!
DLOUT EOP+4!
DR EISSEX+34!
DT TP+25
DTOUT EOP+4!
DUOUT BY+7, B+8, F+10, EOP+4!
DUZ USR+1
DUZ(2 BGP8DAR+5, EISSEX+9, EISSEX+10, EISSEX+11, EISSEX+12, EISSEX+13, EISSEX+14, EISSEX+15, EISSEX+20, EISSEX+32
, LOC+1, SUMONLY+2
IO DRIVER+1, TSKMN+1
IO("DOC" TSKMN+2
IO("Q" GI+11
IO("S" EOP+2
>> IOCPU TSKMN+5
IOF BGP8DAR+4, SUMONLY+1
IOM TSKMN+3, CTR+1
ION TSKMN+1
IOP GI+8!, GI+9!
IOSL TSKMN+3
IOST TSKMN+1, EOP+1
>> IOT EOP+2
>> POP GI+10
U BGP8DAR+5, TP+5, TP+6, TP+7, TP+8, EISSEX+9, EISSEX+10, EISSEX+11, EISSEX+12, EISSEX+13
, EISSEX+14, EISSEX+15, EISSEX+20, EISSEX+32, USR+1, LOC+1, SUMONLY+2
X TP+3*, TP+4, BY+10*, BY+11*, BY+12, BY+13, ASU+11*, EISSEX+7*, EISSEX+34!, GI+1*
, CTR~, CTR+1
>> XBNS NODEV+1*
>> XBRC NODEV+1*
>> XBRP NODEV+1*
>> XBRX NODEV+1*
Y TP+4*, TP+5, TP+6, TP+7, TP+8, TP+13, TP+30, BY+8, BY+9, ASU+5
, EISSEX+34!, B+9, B+10, F+11, F+12, CTR~, CTR+1
>> ZTCPU TSKMN+5*
>> ZTDESC TSKMN+5*
>> ZTDTH TSKMN+5*
>> ZTIO TSKMN+1*, TSKMN+2*, TSKMN+3*
>> ZTQUEUED EISSEX+8, EXIT+2, EOP+2
>> ZTREQ EXIT+2*
>> ZTRTN TSKMN+5*
ZTSAVE TSKMN+4!
ZTSAVE("BGP*" TSKMN+4*
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All