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

Package: IHS GPRA Information System

Routine: BGPDAREA


Information

BGPDAREA ; IHS/CMI/LAB - ihs area GPRA ;

Source Information

Source file <BGPDAREA.m>

Call Graph

Call Graph Total: 11

Package Total Call Graph
IHS VA Utilities 4 ^XBDBQUE  $$VAL^XBDIQ1  ^XBFMK  EN^XBVK  
Kernel 4 ^%ZIS  ^%ZISC  ^%ZTLOAD  $$FMTE^XLFDT  
IHS GPRA Information System 1 PRINT^BGPDPARP  
IHS Patient 1 KILL^AUPNPAT  
VA Fileman 1 ^DIR  

Entry Points

Name Comments DBIA/ICR reference
EOP ;EP - End of page.
LOC() ;EP - Return location name from file 4 based on DUZ(2).
DATES ;
OLD ;
ZIS ;call to XBDBQUE
ASU ;
FAC(S) ;
DRIVER ;
GETSU ;
N
Q ;which quarter
CTR(X,Y) ;EP - Center X in a field Y wide.
INTRO ;
EXIT ;
TSKMN ;EP ENTRY POINT FROM TASKMAN
SU(S) ;
Y ;fiscal year
BY ;get baseline year
USR() ;EP - Return name of current user from ^VA(200.

External References

Name Field # of Occurrence
^%ZIS ZIS+6
^%ZISC DRIVER+3
^%ZTLOAD TSKMN+5
KILL^AUPNPAT EXIT+2
PRINT^BGPDPARP DRIVER+2
^DIR DATES+6, BY+6, ASU+3, ASU+14, Q+1, Y+7, EOP+5
^XBDBQUE OLD+2
$$VAL^XBDIQ1 ASU+12, GETSU+4
^XBFMK ZIS+2, EXIT+3
EN^XBVK EXIT+1
$$FMTE^XLFDT DATES+6, N+3, N+4, N+5, ASU+12, GETSU+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,$$CTR(BGPA_" Area GPRA Report",80)
  • Line Location: BGPDAREA+7
Function Call: WRITE
  • Prompt: !
  • Line Location: BY+1
Function Call: WRITE
  • Prompt: !,"Enter the Baseline Year that you would like to compare the data to.",!,"Use a 4 digit year, e.g. 1999, 2000"
  • Line Location: BY+3
Function Call: WRITE
  • Prompt: !!,"Please enter a year only!",!
  • Line Location: BY+10
Function Call: WRITE
  • Prompt: !!,"The date ranges for this report are:"
  • Line Location: N+2
Function Call: WRITE
  • Prompt: !?5,"Reporting Period: ",?31,$$FMTE^XLFDT(BGPBD)," to ",?31,$$FMTE^XLFDT(BGPED)
  • Line Location: N+3
Function Call: WRITE
  • Prompt: !?5,"Previous Year Period: ",?31,$$FMTE^XLFDT(BGPPBD)," to ",?31,$$FMTE^XLFDT(BGPPED)
  • Line Location: N+4
Function Call: WRITE
  • Prompt: !?5,"Baseline Period: ",?31,$$FMTE^XLFDT(BGPBBD)," to ",?31,$$FMTE^XLFDT(BGPBED)
  • Line Location: N+5
Function Call: WRITE
  • Prompt: !!,"No data from that time period has been uploaded from the service units.",!
  • Line Location: ASU+9
Function Call: WRITE
  • Prompt: !?2,X,")",?5,"FY: ",$$FMTE^XLFDT($P(BGP0,U,3)),?15,"QTR: ",$$VAL^XBDIQ1(90240.01,BGPSUL1(X),.04),?30,"SU: ",$$SU($P(BGP0,U,6)),?55,"Facility: ",$E($$FAC($P(BGP0,U,5)),1,15)
  • Line Location: ASU+12
Function Call: WRITE
  • Prompt: !!,"No data from that time period has been uploaded from the service units.",!
  • Line Location: GETSU+2
Function Call: WRITE
  • Prompt: !!,"Data from the following Facilities has been received and will be used",!,"in the Area Aggregate Report:",!
  • Line Location: GETSU+3
Function Call: WRITE
  • Prompt: !?5,"FY: ",$$FMTE^XLFDT($P(BGP0,U,3)),?15,"QTR: ",$$VAL^XBDIQ1(90240.01,X,.04),?30,"SU: ",$$SU($P(BGP0,U,6)),?55,"Facility: ",$E($$FAC($P(BGP0,U,5)),1,15)
  • Line Location: GETSU+4
Function Call: WRITE
  • Prompt: !!
  • Line Location: ZIS+6
Function Call: WRITE
  • Prompt: !,"Report Aborted"
  • Line Location: ZIS+7
Function Call: WRITE
  • Prompt: !
  • Line Location: Y+1
Function Call: WRITE
  • Prompt: !,"Enter the YEAR of interest. Use a 4 digit year, e.g. 2002"
  • Line Location: Y+3
Function Call: WRITE
  • Prompt: !!,"Please enter a year only!",!
  • Line Location: Y+11
Routine Call
  • DIR
  • Line Location:
    • DATES+6
    • BY+6
    • ASU+3
    • ASU+14
    • Q+1
    • Y+7
    • EOP+5
Routine Call
  • %ZIS
  • Line Location:
    • ZIS+6

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUTTAREA - [#9999999.21] BGPDAREA+6
^AUTTAREA("C" BGPDAREA+6
^AUTTLOC - [#9999999.06] BGPDAREA+6, ZIS+1
^AUTTLOC("C" ASU+17, FAC+1
^AUTTSU - [#9999999.22] SU+3
^AUTTSU("C" SU+1
^BGPD - [#90240.01] ASU+8, ASU+12, ASU+17, GETSU+1, GETSU+4
^DIC(4 - [#4] ASU+17, FAC+3, LOC+1
^VA(200 - [#200] USR+1

Label References

Name Line Occurrences
$$CTR BGPDAREA+7
$$FAC ASU+12, GETSU+4
$$SU ASU+12, GETSU+4
ASU ASU+6
BY BY+10, ASU+4
DATES BY+8
EXIT INTRO+1, DATES+4, DATES+7, DRIVER+4, TSKMN+5, OLD+3
INTRO DATES+11, GETSU+2
N BY+11, BY+12, BY+13, BY+14, BY+15, BY+16
Q DATES+11
TSKMN ZIS+8
Y DATES+3, Y+11
ZIS ASU+19

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 ZIS+6*
>> BGP0 ASU+12*, GETSU+4*
>> BGPA BGPDAREA+6*, BGPDAREA+7
>> BGPAREAA INTRO+2*
>> BGPASUF ZIS+1*
>> BGPBBD BY+11*, BY+12*, BY+13*, BY+14*, BY+15*, BY+16*, N+5, GETSU+1
BGPBD DATES+1!, DATES+9*, DATES+10*, N, N+3, ASU+8, GETSU+1, Q+4*, Q+5*, Q+6*
, Q+7*
>> BGPBED BY+11*, BY+12*, BY+13*, BY+14*, BY+15*, BY+16*, N+5, GETSU+1
BGPED DATES+1!, DATES+9*, DATES+10*, N+1, N+3, ASU+8, GETSU+1, Q+4*, Q+5*, Q+6*
, Q+7*
>> BGPIND( ZIS+4*
>> BGPPBD N*, N+4
>> BGPPED N+1*, N+4
BGPPER DATES+1!, DATES+6, ASU+8, GETSU+1, Q+4, Q+5, Q+6, Q+7, Y+12*
>> BGPQTR DATES+2*, BY+11, BY+12, BY+13, BY+14, BY+15, BY+16, ASU+8, GETSU+1, Q+3*
>> BGPQUIT DATES+4, DATES+11, ASU+6, ASU+9*, ASU+15*, ASU+16*, Q+2*, Y+9*
>> BGPQY DATES+5*, DATES+8*, DATES+9, DATES+10, DATES+11, BY+11, BY+13
>> BGPRPTT ASU+2*, ASU+5*, ASU+6, ASU+19
>> BGPSU ASU+7*
>> BGPSUC ASU+7*
>> BGPSUCNT ASU+1*, ASU+7*, ASU+8*, ASU+17*
BGPSUL ASU+7!, ASU+8!, ASU+9, ASU+17!, GETSU+1!, GETSU+2
BGPSUL( ASU+8*, ASU+11, ASU+17*, GETSU+1*, GETSU+4
BGPSUL1 ASU+11!
BGPSUL1( ASU+11*, ASU+12, ASU+17
>> BGPSUNM ASU+17*
>> BGPVDT DATES+9, DATES+10, BY+2*, BY+9*, BY+11, BY+12, BY+13, BY+14, BY+15, BY+16
, Y+2*, Y+10*, Y+12
>> BGPX ASU+8*, GETSU+1*
>> C ASU+11*, ASU+14
DA DATES+6!, ASU+3!, ASU+14!, ZIS+3!, Q+1!
DD ZIS+3!
DFOUT EOP+4!
DIADD ZIS+3!
DIC BY+7!, ZIS+3!, Y+8!
DINUM ZIS+3!
DIR DATES+6!, ASU+3!, ASU+14!, Q+1!, EOP+3~
DIR("?" Y+6*
DIR("A" DATES+6*, BY+5*, ASU+3*, ASU+14*, Q+1*, Y+5*
DIR("B" DATES+6*, ASU+3*, ASU+14*
DIR(0 DATES+6*, BY+4*, ASU+3*, ASU+14*, Q+1*, Y+4*, EOP+5*
DIRUT DATES+7, BY+8*, ASU+4, ASU+15, Q+2, Y+9*, EOP+4!
DLAYGO ZIS+3!
DLOUT EOP+4!
DR ZIS+3!
DTOUT EOP+4!
DUOUT BY+8, Y+9, EOP+4!
DUZ USR+1
DUZ(2 BGPDAREA+6, ZIS+1, LOC+1
IO DRIVER+1, TSKMN+1
IO("DOC" TSKMN+2
IO("Q" ZIS+8
IO("S" EOP+2
>> IOCPU TSKMN+5
IOF BGPDAREA+5
IOM TSKMN+3, CTR+1
ION TSKMN+1
IOSL TSKMN+3
IOST TSKMN+1, EOP+1
>> IOT EOP+2
N FAC+1~*, FAC+2, FAC+3, SU+1~*, SU+2, SU+3
S FAC~, FAC+1, SU~, SU+1
U BGPDAREA+6, ASU+8, ASU+12, ASU+17, GETSU+1, GETSU+4, ZIS+1, FAC+3, SU+3, USR+1
, LOC+1
>> V ASU+8*, GETSU+1*
X ASU+11*, ASU+12*, ASU+17*, GETSU+4*, ZIS+3!, ZIS+4*, CTR~, CTR+1
>> XBNS OLD+1*
>> XBRC OLD+1*
>> XBRP OLD+1*
>> XBRX OLD+1*
Y DATES+8, BY+9, BY+10, ASU+5, ASU+16, ASU+17, ZIS+3!, Q+2, Q+3, Q+4
, Q+5, Q+6, Q+7, Y+10, Y+11, CTR~, CTR+1
>> ZTCPU TSKMN+5*
>> ZTDESC TSKMN+5*
>> ZTDTH TSKMN+5*
>> ZTIO TSKMN+1*, TSKMN+2*, TSKMN+3*
>> ZTQUEUED EOP+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