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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: CIMGAGPA

Package: Aberdeen GPRA Report

Routine: CIMGAGPA


Information

CIMGAGPA ; CMI/TUCSON/LAB - aberdeen area GPRA ; [ 03/09/00 4:19 PM ]

Source Information

Source file <CIMGAGPA.m>

Call Graph

Call Graph Total: 9

Package Total Call Graph
IHS VA Utilities 4 ^XBDBQUE  $$VAL^XBDIQ1  ^XBFMK  EN^XBVK  
VA Fileman 2 ^DIC  ^DIR  
Aberdeen GPRA Report 1 SU1^CIMGAGP0  
IHS Patient 1 KILL^AUPNPAT  
Kernel 1 $$FMTE^XLFDT  

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 ;
ZIS ;call to XBDBQUE
ASU ;
SU(S) ;
FAC(S) ;
GETSU ;
Q ;which quarter
USR() ;EP - Return name of current user from ^VA(200.
INTRO ;
EXIT ;
CTR(X,Y) ;EP - Center X in a field Y wide.
Y ;fiscal year
GETTAX ;

External References

Name Field # of Occurrence
KILL^AUPNPAT EXIT+2
SU1^CIMGAGP0 GETTAX+6
^DIC GETTAX+3
^DIR DATES+6, ASU+3, ASU+14, Q+1, Y+7, EOP+5
^XBDBQUE ZIS+5
$$VAL^XBDIQ1 ASU+12, GETSU+4
^XBFMK ZIS+2, EXIT+3
EN^XBVK EXIT+1
$$FMTE^XLFDT DATES+6, ASU+12, GETSU+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,$$CTR("Aberdeen Area GPRA Report",80)
  • Line Location: CIMGAGPA+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(CIM0,U,3)),?15,"QTR: ",$$VAL^XBDIQ1(19255.01,X,.04),?30,"SU: ",$$SU($P(CIM0,U,6)),?55,"Facility: ",$E($$FAC($P(CIM0,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(CIM0,U,3)),?15,"QTR: ",$$VAL^XBDIQ1(19255.01,X,.04),?30,"SU: ",$$SU($P(CIM0,U,6)),?55,"Facility: ",$E($$FAC($P(CIM0,U,5)),1,15)
  • Line Location: GETSU+4
Function Call: WRITE
  • Prompt: !
  • Line Location: Y+1
Function Call: WRITE
  • Prompt: !,"Enter the FY of interest. Use a 4 digit year, e.g. 1999, 2000"
  • Line Location: Y+3
Function Call: WRITE
  • Prompt: !!,"Please enter a year only!",!
  • Line Location: Y+11
Routine Call
  • DIC
  • Line Location:
    • GETTAX+3
Routine Call
  • DIR
  • Line Location:
    • DATES+6
    • ASU+3
    • ASU+14
    • Q+1
    • Y+7
    • EOP+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ATXAX - [#9002226] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUTTLOC("C" ASU+17, FAC+1
^AUTTSU - [#9999999.22] SU+3
^AUTTSU("C" SU+1
^CIMAGP( 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 CIMGAGPA+5
$$FAC ASU+12, GETSU+4
$$SU ASU+12, GETSU+4
ASU ASU+6
DATES ASU+4
EXIT INTRO+1, DATES+4, DATES+7, ZIS+6
INTRO DATES+9, GETSU+2
Q DATES+9
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
>> C ASU+11*, ASU+14
>> CIM0 ASU+12*, GETSU+4*
>> CIMASUF ZIS+1*
CIMBD DATES+1!, ASU+8, GETSU+1, Q+4*, Q+5*, Q+6*, Q+7*, Y+12*
CIMED DATES+1!, ASU+8, GETSU+1, Q+4*, Q+5*, Q+6*, Q+7*, Y+12*
CIMPER DATES+1!, DATES+6, ASU+8, GETSU+1, Q+4, Q+5, Q+6, Q+7, Y+12*
>> CIMQTR DATES+2*, ASU+8, GETSU+1, Q+3*
>> CIMQUIT DATES+4, DATES+9, ASU+6, ASU+9*, ASU+15*, ASU+16*, Q+2*, Y+9*
>> CIMQY DATES+5*, DATES+8*, DATES+9
>> CIMRPTT ASU+2*, ASU+5*, ASU+6, ASU+19
>> CIMSU ASU+7*
>> CIMSUC ASU+7*
>> CIMSUCNT ASU+1*, ASU+7*, ASU+8*, ASU+17*
CIMSUL ASU+7!, ASU+8!, ASU+9, ASU+17!, GETSU+1!, GETSU+2
CIMSUL( ASU+8*, ASU+11, ASU+17*, GETSU+1*, GETSU+4
CIMSUL1 ASU+11!
CIMSUL1( ASU+11*, ASU+12, ASU+17
>> CIMSUNM ASU+17*
CIMTAX GETTAX+1!, GETTAX+2*
>> CIMVDT Y+2*, Y+10*, Y+12
>> CIMX ASU+8*, GETSU+1*, GETTAX+5*
DA DATES+6!, ASU+3!, ASU+14!, ZIS+3!, Q+1!
DD ZIS+3!
DFOUT EOP+4!
DIADD ZIS+3!
DIC ZIS+3!, GETTAX+3*, Y+8!
DIC("A" GETTAX+3*
DIC(0 GETTAX+3*
DINUM ZIS+3!
DIR DATES+6!, ASU+3!, ASU+14!, Q+1!, EOP+3~
DIR("?" Y+6*
DIR("A" DATES+6*, ASU+3*, ASU+14*, Q+1*, Y+5*
DIR("B" DATES+6*, ASU+3*, ASU+14*
DIR(0 DATES+6*, ASU+3*, ASU+14*, Q+1*, Y+4*, EOP+5*
DIRUT DATES+7, ASU+4, ASU+15, Q+2, Y+9*, EOP+4!
DLAYGO ZIS+3!
DLOUT EOP+4!
DR ZIS+3!
DTOUT EOP+4!
DUOUT Y+9, EOP+4!
DUZ USR+1
DUZ(2 LOC+1
IO("S" EOP+2
IOF CIMGAGPA+4
IOM CTR+1
IOST 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 ASU+8, ASU+12, ASU+17, GETSU+1, GETSU+4, FAC+3, SU+3, USR+1, LOC+1
>> V ASU+8*, GETSU+1*
X ASU+11*, ASU+12*, ASU+17*, GETSU+4*, ZIS+3!, CTR~, CTR+1
>> XBNS ZIS+4*
>> XBRC ZIS+4*
>> XBRP ZIS+4*
>> XBRX ZIS+4*
Y DATES+8, ASU+5, ASU+16, ASU+17, ZIS+3!, GETTAX+4, GETTAX+5, Q+2, Q+3, Q+4
, Q+5, Q+6, Q+7, Y+10, Y+11, CTR~, CTR+1
>> ZTQUEUED EOP+2
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All