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

Package: IHS GPRA Information System

Routine: BGP8DARO


Information

BGP8DARO ; IHS/CMI/LAB - ihs area GPRA 02 Sep 2004 1:11 PM 01 Jul 2010 11:43 AM ;

Source Information

Source file <BGP8DARO.m>

Call Graph

Call Graph Total: 15

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

Entry Points

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

External References

Name Field # of Occurrence
^%ZIS GI+9
HOME^%ZIS TSKMN+5
^%ZISC DRIVER+4, NODEV1+3, EXIT+1
^%ZTLOAD TSKMN+5
KILL^AUPNPAT EXIT+3
EN^BGP8ASL ASU+9
PT^BGP8DSL GI+5
TEXT^BGP8DSL GI+3
PRINT^BGP8PARQ DRIVER+2, NODEV1+1
$$D^BGP8UTL EISSEX+9, EISSEX+10, EISSEX+11, EISSEX+12
$$LZERO^BGP8UTL EISSEX+9, EISSEX+10, EISSEX+11, EISSEX+12
$$RZERO^BGP8UTL EISSEX+6
ONN1^BGP8UTL DRIVER+3, NODEV1+2
$$GETDIR^BGP8UTL2 EISSEX+2
^DIR CHOICE+11, TP+1, TP+18, BY+5, BEN+3, ASU+3, ASU+7, B+6, F+8, EOP+5
, ENDDATE+8, CHKY+2
^XBDBQUE NODEV+2
^XBFMK EISSEX+23, EXIT+4
EN^XBVK EXIT+2
$$FMADD^XLFDT TP+12
$$FMTE^XLFDT NT+2, NT+3, NT+4, TP+16, BY+17, BY+18, BY+19
$$NOW^XLFDT EISSEX+6
$$UP^XLFSTR CHOICE+14

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,$$CTR(BGPA_" Area Aggregate Other National Measures Report",80)
  • Line Location: BGP8DARO+7
Function Call: WRITE
  • Prompt: !!!,"Please select the type of report would you like to run:"
  • Line Location: CHOICE+1
Function Call: WRITE
  • Prompt: !!?8,"H Hard-coded Report: Report with all parameters set to the"
  • Line Location: CHOICE+2
Function Call: WRITE
  • Prompt: !?11,"same as the National GPRA Report (report period of "
  • Line Location: CHOICE+3
Function Call: WRITE
  • Prompt: !?11,"October 1, 2017 - September 30, 2018, baseline period of "
  • Line Location: CHOICE+4
Function Call: WRITE
  • Prompt: !?11,"October 1, 2009 - September 30, 2010, and AI/AN patients only)"
  • Line Location: CHOICE+5
Function Call: WRITE
  • Prompt: !!?8,"U User-defined Report: You select the report and baseline"
  • Line Location: CHOICE+6
Function Call: WRITE
  • Prompt: !?11,"periods and beneficiary population"
  • Line Location: CHOICE+7
Function Call: WRITE
  • Prompt: !
  • Line Location: CHOICE+8
Function Call: WRITE
  • Prompt: !!,"Please enter an H for Hard-coded or a U for User-defined."
  • Line Location: CHOICE+15
Function Call: WRITE
  • Prompt: !!,"no year entered..bye"
  • Line Location: H+11
Function Call: WRITE
  • Prompt: !!,"no year entered..bye"
  • Line Location: H+17
Function Call: WRITE
  • Prompt: !!,"Beneficiary Population is set to American Indian/Alaskan Native Only."
  • Line Location: NT+5
Function Call: WRITE
  • Prompt: !,"Year not entered.",!
  • Line Location: TP+6
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: BY+16
Function Call: WRITE
  • Prompt: !?5,"Report Period: ",?31,$$FMTE^XLFDT(BGPBD)," to ",?31,$$FMTE^XLFDT(BGPED)
  • Line Location: BY+17
Function Call: WRITE
  • Prompt: !?5,"Previous Year Period: ",?31,$$FMTE^XLFDT(BGPPBD)," to ",?31,$$FMTE^XLFDT(BGPPED)
  • Line Location: BY+18
Function Call: WRITE
  • Prompt: !?5,"Baseline Period: ",?31,$$FMTE^XLFDT(BGPBBD)," to ",?31,$$FMTE^XLFDT(BGPBED)
  • Line Location: BY+19
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. 2018"
  • Line Location: F+4
Function Call: WRITE
  • Prompt: !!,"Please enter a year only!",!
  • Line Location: F+12
Function Call: WRITE
  • Prompt: !!,"When entering dates, if you do not enter a full 4 digit year (e.g. 2018)"
  • Line Location: ENDDATE+1
Function Call: WRITE
  • Prompt: !,"will assume a year in the past, if you want to put in a future date,"
  • Line Location: ENDDATE+2
Function Call: WRITE
  • Prompt: !,"remember to enter the full 4 digit year. For example, if today is"
  • Line Location: ENDDATE+3
Function Call: WRITE
  • Prompt: !,"January 4, 2010 and you type in 6/30/10 the system will assume the year"
  • Line Location: ENDDATE+4
Function Call: WRITE
  • Prompt: !,"as 1910 since that is a date in the past. You must type 6/30/2010 if you"
  • Line Location: ENDDATE+5
Function Call: WRITE
  • Prompt: !,"want a date in the future."
  • Line Location: ENDDATE+6
Function Call: WRITE
  • Prompt: !
  • Line Location: ENDDATE+8
Function Call: WRITE
  • Prompt: !!,"The baseline year and the previous year time periods are the same.",!!
  • Line Location: CHKY+1
Routine Call
  • %ZIS
  • Line Location:
    • TSKMN+5
Routine Call
  • DIR
  • Line Location:
    • CHOICE+11
    • TP+1
    • TP+18
    • BY+5
    • BEN+3
    • ASU+3
    • ASU+7
    • B+6
    • F+8
    • EOP+5
    • ENDDATE+8
    • CHKY+2
Routine Call
  • %ZIS
  • Line Location:
    • GI+9

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUTTAREA - [#9999999.21] BGP8DARO+6
^AUTTAREA("C" BGP8DARO+6
^AUTTLOC - [#9999999.06] BGP8DARO+6, EISSEX+9, EISSEX+10, EISSEX+11, EISSEX+12, EISSEX+15, EISSEX+22
^BGPCTRL - [#90241.01] H+2
^BGPCTRL("B" H+1
^BGPINDR("ON" GI+1
^DIC(4 - [#4] LOC+1
^VA(200 - [#200] USR+1

Label References

Name Line Occurrences
$$CTR BGP8DARO+7
ASU H, GI+4, GI+6
B H+16
BY BY+9, BY+20, BEN+4
CHKY BY+20
CHOICE CHOICE+15
ENDDATE TP+4
EXIT BGP8DARO+5, CHOICE+12, H+11, H+17, TP+2, ASU+4, ASU+10, GI+8, GI+10, DRIVER+5
, TSKMN+5, NODEV1+4
F H+10, TP+5, B+10, F+12
NODEV GI+8
NT H+8
TP TP+6, TP+15, BY+6, BY+7
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 BGP8DARO+6*, BGP8DARO+7
>> BGPAREAA INTRO+8*
>> BGPASUF EISSEX+15*, EISSEX+22*
BGPBBD H+5*, H+18*, NT+4, BY+12*, BY+19, BY+20!
>> BGPBD INTRO+9*, H+3*, H+13*, NT+2, TP+7*, TP+8*, TP+9*, TP+10*, TP+13*, TP+14*
, TP+16, BY+12, BY+14, BY+17, F+13*
BGPBED H+5*, H+18*, NT+4, BY+13*, BY+19, BY+20!
>> BGPBEN NT+5*, BEN+1*, BEN+5*
>> BGPBENF BEN+5*
>> BGPBENF(0 NT+5*
>> BGPBPER H+17, H+18, B+1*, B+11*
>> BGPC EISSEX+7*, EISSEX+9, EISSEX+10, EISSEX+11, EISSEX+12
>> BGPDELT GI+8, GI+9
>> BGPDO TP+15, TP+18*, TP+19*, TP+20*
>> BGPED INTRO+9*, H+3*, H+13*, NT+2, TP+7*, TP+8*, TP+9*, TP+10*, TP+13*, TP+14*
, TP+15, TP+16, BY+13, BY+15, BY+17, F+13*
>> BGPEXCEL EISSEX+1*, EISSEX+5, EISSEX+16, DRIVER+3
>> BGPFONN1 EISSEX+9*, EISSEX+17
>> BGPFONN2 EISSEX+10*, EISSEX+18
>> BGPFONN3 EISSEX+11*, EISSEX+19
>> BGPFONN4 EISSEX+12*, EISSEX+20
>> BGPIND( GI+1*
>> BGPINDG GI+2*
>> BGPNOW EISSEX+6*, EISSEX+9, EISSEX+10, EISSEX+11, EISSEX+12
BGPPBD H+4*, H+14*, NT+3, BY+14*, BY+18, BY+20!
BGPPED H+4*, H+14*, NT+3, BY+15*, BY+18, BY+20!
>> BGPPER H+6*, H+11, H+13, H+14, TP+6, TP+7, TP+8, TP+9, TP+10, TP+12
, TP+13*, TP+14*, BY+10, F+1*, F+13*, ENDDATE+7*, ENDDATE+10*
>> BGPQTR H+6*, H+12*, TP+3*, TP+4, TP+5, TP+7, TP+8, TP+9, TP+10, TP+11
>> BGPQUIT F+10*
>> BGPROT GI+6, GI+8
>> BGPRPTT ASU+2*, ASU+5*, EISSEX+1, NODEV1+2
>> BGPRTC CHOICE+16*, INTRO+1, H
>> BGPRTYPE INTRO+10*
>> BGPSUCNT ASU+1*
BGPSUL ASU+8!, ASU+10
BGPSUL( ASU+11, EISSEX+7
>> BGPSUMON EISSEX+1
>> BGPTP INTRO+9*
>> BGPUF EISSEX+2*, EISSEX+8, EISSEX+17, EISSEX+18, EISSEX+19, EISSEX+20
>> BGPVDT BY+1*, BY+8*, BY+10, B+1*, B+9*, B+11, F+3*, F+11*, F+13, ENDDATE+7*
, ENDDATE+10*
>> BGPYRPTH INTRO+10*
>> C ASU+11*, ASU+12
>> D TP+12*, TP+13, TP+14
DA TP+1!, TP+18!, BEN+3!, ASU+3!, ASU+7!, EISSEX+24!, CHKY+2!
DD EISSEX+24!
DFOUT EOP+4!
DIADD EISSEX+24!
DIC EISSEX+24!, F+9!
DINUM EISSEX+24!
DIR CHOICE+13!, TP+1!, TP+18!, BY+5!, BEN+3!, ASU+3!, ASU+7!, B+6!, EOP+3~, ENDDATE+8!
, CHKY+2!
DIR("?" CHOICE+10*, B+5*, F+7*
DIR("A" CHOICE+9*, TP+1*, TP+18*, BY+4*, BEN+2*, ASU+3*, ASU+7*, B+4*, F+6*, ENDDATE+8*
, CHKY+2*
DIR("B" CHOICE+10*, TP+18*, BEN+3*, ASU+3*, CHKY+2*
DIR(0 CHOICE+9*, TP+1*, TP+18*, BY+3*, BEN+2*, ASU+3*, ASU+7*, B+3*, F+5*, EOP+5*
, ENDDATE+8*, CHKY+2*
DIRUT CHOICE+12, TP+2, TP+19, BY+6, BY+7*, BEN+4, ASU+4, GI+4, B+7, B+8*
, F+10*, EOP+4!, ENDDATE+8*, ENDDATE+9, CHKY+3
DLAYGO EISSEX+24!
DLOUT EOP+4!
DR EISSEX+24!
DT TP+15
DTOUT EOP+4!
DUOUT BY+7, B+8, F+10, EOP+4!, ENDDATE+8
DUZ USR+1
DUZ(2 BGP8DARO+6, EISSEX+9, EISSEX+10, EISSEX+11, EISSEX+12, EISSEX+15, EISSEX+22, LOC+1
IO DRIVER+1, TSKMN+1
IO("DOC" TSKMN+2
IO("Q" GI+11
IO("S" EOP+2
>> IOCPU TSKMN+5
IOF BGP8DARO+4
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 BGP8DARO+6, H+3, H+4, H+5, H+6, EISSEX+9, EISSEX+10, EISSEX+11, EISSEX+12, EISSEX+15
, EISSEX+22, USR+1, LOC+1
X H+1*, H+2, BY+10*, BY+11*, BY+12, BY+13, ASU+11*, EISSEX+7*, EISSEX+24!, GI+1*
, CTR~, CTR+1, ENDDATE+8!
>> XBNS NODEV+1*
>> XBRC NODEV+1*
>> XBRP NODEV+1*
>> XBRX NODEV+1*
Y CHOICE+14*, CHOICE+15, CHOICE+16, H+2*, H+3, H+4, H+5, H+6, TP+3, TP+20
, BY+8, BY+9, BY+20!, BEN+5, ASU+5, EISSEX+24!, B+9, B+10, F+11, F+12
, CTR~, CTR+1, ENDDATE+8!, ENDDATE+10, CHKY+3*
Y(0 BEN+5
>> 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