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

Package: IHS GPRA Information System

Routine: BGP7DAR8


Information

BGP7DAR8 ; IHS/CMI/LAB - ihs area GPRA 02 Sep 2004 1:11 PM ; 11 Dec 2007 4:08 PM

Source Information

Source file <BGP7DAR8.m>

Call Graph

Call Graph Total: 14

Package Total Call Graph
IHS GPRA Information System 4 EN^BGP7ASL  PT^BGP7DSL  PRINT^BGP7PARP  ($$D,$$LZERO,$$RZERO,EXCELGS)^BGP7UTL  
Kernel 4 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  ($$FMTE,$$NOW)^XLFDT  
IHS VA Utilities 3 ^XBDBQUE  ^XBFMK  EN^XBVK  
IHS Patient 1 KILL^AUPNPAT  
Registration 1 TERM^VALM0  
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 ;
USR() ;EP - Return name of current user from ^VA(200.
INTRO ;
EXIT ;
TSKMN ;EP ENTRY POINT FROM TASKMAN
NODEV1 ;
GI ;gather all gpra measures
NODEV ;

External References

Name Field # of Occurrence
^%ZIS GI+7
HOME^%ZIS TSKMN+5
^%ZISC DRIVER+4, EXIT+1, NODEV1+2
^%ZTLOAD TSKMN+5
KILL^AUPNPAT EXIT+3
EN^BGP7ASL ASU+9
PT^BGP7DSL GI+3
PRINT^BGP7PARP DRIVER+2, NODEV1+1
$$D^BGP7UTL EISSEX+9, EISSEX+10, EISSEX+11
$$LZERO^BGP7UTL EISSEX+9, EISSEX+10, EISSEX+11
$$RZERO^BGP7UTL EISSEX+6
EXCELGS^BGP7UTL DRIVER+3
^DIR ASU+3, ASU+7, B+6, F+8, EOP+5
TERM^VALM0 BGP7DAR8+5
^XBDBQUE NODEV+2
^XBFMK EISSEX+19, EXIT+4
EN^XBVK EXIT+2
$$FMTE^XLFDT TP+19, TP+20, TP+21
$$NOW^XLFDT EISSEX+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$$CTR("IHS 2007 National GPRA Report",80)
  • Line Location: BGP7DAR8+6
Function Call: WRITE
  • Prompt: !!,$$CTR(BGPA_" Area Aggregate National GPRA Report",80)
  • Line Location: BGP7DAR8+8
Function Call: WRITE
  • Prompt: !,$$CTR(X,80)
  • Line Location: BGP7DAR8+10
Function Call: WRITE
  • Prompt: !!,"no year entered..bye"
  • Line Location: TP+5
Function Call: WRITE
  • Prompt: !!,"no year entered..bye"
  • Line Location: TP+11
Function Call: WRITE
  • Prompt: !!,"The date ranges for this report are:"
  • Line Location: TP+18
Function Call: WRITE
  • Prompt: !?5,"Report Period: ",?31,$$FMTE^XLFDT(BGPBD)," to ",?31,$$FMTE^XLFDT(BGPED)
  • Line Location: TP+19
Function Call: WRITE
  • Prompt: !?5,"Previous Year Period: ",?31,$$FMTE^XLFDT(BGPPBD)," to ",?31,$$FMTE^XLFDT(BGPPED)
  • Line Location: TP+20
Function Call: WRITE
  • Prompt: !?5,"Baseline Period: ",?31,$$FMTE^XLFDT(BGPBBD)," to ",?31,$$FMTE^XLFDT(BGPBED)
  • Line Location: TP+21
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. 2005"
  • 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. 2002, 2005"
  • Line Location: F+4
Function Call: WRITE
  • Prompt: !!,"Please enter a year only!",!
  • Line Location: F+12
Routine Call
  • %ZIS
  • Line Location:
    • TSKMN+5
Routine Call
  • DIR
  • Line Location:
    • ASU+3
    • ASU+7
    • B+6
    • F+8
    • EOP+5
Routine Call
  • %ZIS
  • Line Location:
    • GI+7

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("OS" EISSEX+3
^AUTTAREA - [#9999999.21] BGP7DAR8+7
^AUTTAREA("C" BGP7DAR8+7
^AUTTLOC - [#9999999.06] BGP7DAR8+7, EISSEX+9, EISSEX+10, EISSEX+11, EISSEX+13, EISSEX+18
^AUTTSITE(1 EISSEX+3, EISSEX+4
^BGPINDA("GPRA" GI+1
^DIC(4 - [#4] LOC+1
^VA(200 - [#200] USR+1

Label References

Name Line Occurrences
$$CTR BGP7DAR8+6, BGP7DAR8+8, BGP7DAR8+10
ASU GI+4
EXIT INTRO+1, ASU+4, ASU+10, GI+6, GI+8, DRIVER+5, TSKMN+5, NODEV1+3
F B+10, F+12
NODEV GI+6
TSKMN GI+9

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+6!, GI+7!*
>> BDWC EISSEX+7*, EISSEX+9, EISSEX+10, EISSEX+11
>> BGP7RPTH TP+2*
>> BGPA BGP7DAR8+7*, BGP7DAR8+8
>> BGPAREAA TP+1*
>> BGPASUF EISSEX+13*, EISSEX+18*
>> BGPBBD TP+15*, TP+21
>> BGPBD TP+14*, TP+19, F+13*
>> BGPBED TP+15*, TP+21
>> BGPBEN TP+2*
>> BGPBPER B+1*, B+11*
>> BGPDELT GI+6, GI+7
>> BGPED TP+14*, TP+19, F+13*
>> BGPEXCEL EISSEX+1*, EISSEX+5*, EISSEX+14
>> BGPFN EISSEX+9*, EISSEX+15
>> BGPFN2 EISSEX+10*, EISSEX+16
>> BGPFNEIS EISSEX+11*, EISSEX+17
>> BGPIND( GI+1*
>> BGPINDT GI+2*
>> BGPNOW EISSEX+6*, EISSEX+9, EISSEX+10, EISSEX+11
>> BGPPBD TP+16*, TP+20
>> BGPPED TP+16*, TP+20
>> BGPPER TP+17*, F+1*, F+13*
>> BGPQTR TP+17*
>> BGPQUIT F+10*
>> BGPROT GI+4, GI+6
>> BGPRPTT ASU+2*, ASU+5*, DRIVER+3
>> BGPRTYPE TP+2*
>> BGPSUCNT ASU+1*
BGPSUL ASU+8!, ASU+10
BGPSUL( ASU+11, EISSEX+7
>> BGPUF EISSEX+2*, EISSEX+3*, EISSEX+4*, EISSEX+8, EISSEX+15, EISSEX+16, EISSEX+17
>> BGPVDT B+1*, B+9*, B+11, F+3*, F+11*, F+13
>> C ASU+11*, ASU+12
DA ASU+3!, ASU+7!, EISSEX+20!
DD EISSEX+20!
DFOUT EOP+4!
DIADD EISSEX+20!
DIC EISSEX+20!, F+9!
DINUM EISSEX+20!
DIR ASU+3!, ASU+7!, B+6!, EOP+3~
DIR("?" B+5*, F+7*
DIR("A" ASU+3*, ASU+7*, B+4*, F+6*
DIR("B" ASU+3*
DIR(0 ASU+3*, ASU+7*, B+3*, F+5*, EOP+5*
DIRUT ASU+4, B+7, B+8*, F+10*, EOP+4!
DLAYGO EISSEX+20!
DLOUT EOP+4!
DR EISSEX+20!
DTOUT EOP+4!
DUOUT B+8, F+10, EOP+4!
DUZ USR+1
DUZ(2 BGP7DAR8+7, EISSEX+9, EISSEX+10, EISSEX+11, EISSEX+13, EISSEX+18, LOC+1
IO DRIVER+1, TSKMN+1
IO("DOC" TSKMN+2
IO("Q" GI+9
IO("S" EOP+2
>> IOCPU TSKMN+5
IOF BGP7DAR8+4
IOM TSKMN+3, CTR+1
ION TSKMN+1
IOP GI+6!, GI+7!
>> IORVOFF BGP7DAR8+9
>> IORVON BGP7DAR8+9
IOSL TSKMN+3
IOST TSKMN+1, EOP+1
>> IOT EOP+2
>> POP GI+8
U BGP7DAR8+7, EISSEX+3, EISSEX+4, EISSEX+9, EISSEX+10, EISSEX+11, EISSEX+13, EISSEX+18, USR+1, LOC+1
X BGP7DAR8+9*, BGP7DAR8+10, ASU+11*, EISSEX+7*, EISSEX+20!, GI+1*, CTR~, CTR+1
>> XBNS NODEV+1*
>> XBRC NODEV+1*
>> XBRP NODEV+1*
>> XBRX NODEV+1*
Y ASU+5, EISSEX+20!, 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, 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