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 |  Marked Items |  All
Print Page as PDF
Routine: CIMGAGP

Package: Aberdeen GPRA Report

Routine: CIMGAGP


Information

CIMGAGP ; CMI/TUCSON/LAB - aberdeen area GPRA ; [ 03/16/00 1:55 PM ]

Source Information

Source file <CIMGAGP.m>

Call Graph

Call Graph Total: 12

Package Total Call Graph
IHS VA Utilities 5 ^XBDBQUE  ^XBFMK  ^XBGSAVE  EN^XBNEW  EN^XBVK  
Kernel 3 HOME^%ZIS  ^%ZISC  $$FMTE^XLFDT  
VA Fileman 2 ^DIC  ^DIR  
Aberdeen GPRA Report 1 (SU,SU1)^CIMGAGP0  
IHS Patient 1 KILL^AUPNPAT  

Entry Points

Name Comments DBIA/ICR reference
GS ;EP called from xbnew
DATES ;
EXIT1 ;
ZIS ;call to XBDBQUE
LOC() ;EP - Return location name from file 4 based on DUZ(2).
CTR(X,Y) ;EP - Center X in a field Y wide.
EOP ;EP - End of page.
USR() ;EP - Return name of current user from ^VA(200.
LISTS ;any lists with indicators?
INDSL ;;
Q ;which quarter
SET6 ;
INTRO ;
EXIT ;
Y ;fiscal year
HOME ;
GETTAX ;

External References

Name Field # of Occurrence
HOME^%ZIS EXIT+7
^%ZISC EXIT1+1
KILL^AUPNPAT EXIT+5
SU^CIMGAGP0 INTRO+4
SU1^CIMGAGP0 GETTAX+7
^DIC HOME+1, ZIS+3, GETTAX+4
^DIR DATES+6, LISTS+4, LISTS+8, Q+1, Y+7, EOP+5
^XBDBQUE ZIS+13
^XBFMK ZIS+9, EXIT+6, GETTAX+3
^XBGSAVE GS+16
EN^XBNEW EXIT1+3
EN^XBVK EXIT+1
$$FMTE^XLFDT DATES+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,$$CTR("Aberdeen Area GPRA Report",80)
  • Line Location: CIMGAGP+5
Function Call: WRITE
  • Prompt: !!,"Cannot find community taxonomy"
  • Line Location: INTRO+5
Function Call: WRITE
  • Prompt: !,"No HOME Location entered!!! PHN Visits counts to Home will be calculated",!,"using clinic 11 only!!"
  • Line Location: HOME+2
Function Call: WRITE
  • Prompt: !!
  • Line Location: LISTS+1
Function Call: WRITE
  • Prompt: !,J,")",?5,X
  • Line Location: LISTS+3
Function Call: WRITE
  • Prompt: !!,"UNABLE TO CREATE REPORT FILE ENTRY - NOTIFY SITE MANAGER!"
  • Line Location: ZIS+3
Function Call: WRITE
  • Prompt: !!,"A file will be created called G",$P(^AUTTLOC(DUZ(2),0),U,10)_"."_CIMRPT,".",!,"It will reside in the public/export directory.",!,"This file should be sent to your Area Office.",!!
  • Line Location: ZIS+11
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
  • %ZIS
  • Line Location:
    • EXIT+7
Routine Call
  • DIC
  • Line Location:
    • HOME+1
    • ZIS+3
    • GETTAX+4
Routine Call
  • DIR
  • Line Location:
    • DATES+6
    • LISTS+4
    • LISTS+8
    • Q+1
    • Y+7
    • EOP+5

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUTTAREA - [#9999999.21] INTRO+3
^AUTTLOC - [#9999999.06] INTRO+3, INTRO+7, ZIS+11, GS+14
^CIMAGP( ZIS+6!, ZIS+7*, ZIS+8*, SET6+1, SET6+2, GS+1, GS+2, GS+3, GS+4, GS+5
, GS+6, GS+7, GS+8, GS+9, GS+10, GS+11, GS+12
^CIMGDATA GS+1!, GS+17!, SET6+1*, SET6+2*, GS+2*, GS+4*, GS+6*, GS+8*, GS+10*, GS+11*
^DIC(4 - [#4] LOC+1
^TMP($J GS+17!
^VA(200 - [#200] GS+15, USR+1

Label References

Name Line Occurrences
$$CTR CIMGAGP+5
DATES DATES+9, LISTS+5
EXIT INTRO+1, INTRO+6, DATES+4, DATES+7, ZIS+3, ZIS+14
GETTAX INTRO+6
LISTS HOME+2, LISTS+9
Q DATES+9
SET6 GS+12
Y DATES+3, Y+11
ZIS LISTS+6

Naked Globals

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
A EXIT+3!
B EXIT+3!
C ZIS+7*, ZIS+8, EXIT+3!, SET6+1*, SET6+2, GS+1*, GS+2*, GS+4*, GS+6*, GS+8*
, GS+10*, GS+11
>> CIMAREA INTRO+3*
>> CIMASUF INTRO+7*, INTRO+8, ZIS+2
CIMBD DATES+1!, ZIS+2, Q+4*, Q+5*, Q+6*, Q+7*, Y+12*
CIMED DATES+1!, ZIS+2, Q+4*, Q+5*, Q+6*, Q+7*, Y+12*
>> CIMHOME HOME+2*, HOME+3*
CIMLIST LISTS+2*!, LISTS+7!
CIMLIST( LISTS+10*
CIMPER DATES+1!, DATES+6, ZIS+2, Q+4, Q+5, Q+6, Q+7, Y+12*
>> CIMQTR DATES+2*, ZIS+2, Q+3*
>> CIMQUIT INTRO+5, DATES+4, DATES+9, ZIS+3*, Q+2*, Y+9*
>> CIMQY DATES+5*, DATES+8*, DATES+9
>> CIMRPT ZIS+4*, ZIS+6, ZIS+7, ZIS+8, ZIS+11, SET6+1, SET6+2, GS+1, GS+2, GS+3
, GS+4, GS+5, GS+6, GS+7, GS+8, GS+9, GS+10, GS+11, GS+12, GS+14
>> CIMSUC INTRO+8*, ZIS+2
CIMTAX GETTAX+1!, GETTAX+2*
CIMTAX( ZIS+7
CIMTAX("" INTRO+6
>> CIMVDT Y+2*, Y+10*, Y+12
>> CIMX GETTAX+6*
D EXIT+3!
DA DATES+6!, LISTS+4!, LISTS+8!, ZIS+3!, ZIS+10!, Q+1!
DD ZIS+10!
DFOUT EOP+4!
DIADD ZIS+2*, ZIS+3!, ZIS+10!
DIC HOME+1!*, ZIS+2!*, ZIS+3!, ZIS+10!, GETTAX+4*, Y+8!
DIC("A" HOME+1*, GETTAX+4*
DIC("DR" ZIS+2*
DIC("S" GETTAX+4*
DIC(0 HOME+1*, ZIS+2*, GETTAX+4*
DINUM ZIS+10!
DIR DATES+6!, LISTS+4!, LISTS+8!, Q+1!, EOP+3~
DIR("?" Y+6*
DIR("A" DATES+6*, LISTS+4*, LISTS+8*, Q+1*, Y+5*
DIR("B" DATES+6*, LISTS+4*
DIR(0 DATES+6*, LISTS+4*, LISTS+8*, Q+1*, Y+4*, EOP+5*
DIRUT DATES+7, LISTS+5, LISTS+9, Q+2, Y+9*, EOP+4!
DLAYGO ZIS+2*, ZIS+3!, ZIS+10!
DLOUT EOP+4!
DR ZIS+3!, ZIS+10!
DTOUT EOP+4!
DUOUT Y+9, EOP+4!
DUZ GS+15, USR+1
DUZ(2 INTRO+3, INTRO+7, ZIS+11, GS+14, LOC+1
E EXIT+3!
F EXIT+3!, GS+14*, GS+15
G EXIT+3!
H EXIT+3!
I EXIT+3!
IO("S" EOP+2
IOF CIMGAGP+4
IOM CTR+1
IOPAR EXIT1+2!
IOST EOP+1
>> IOT EOP+2
J LISTS+3*, EXIT+3!
K EXIT+3!
L EXIT+3!
M EXIT+3!
N EXIT+3!, EXIT+4!
N1 EXIT+4!
N2 EXIT+4!
N3 EXIT+4!
N4 EXIT+4!
N5 EXIT+4!
N6 EXIT+4!
O EXIT+3!
P EXIT+3!
Q EXIT+3!
R EXIT+3!
S EXIT+3!
T LISTS+3*, EXIT+3!
U INTRO+3, INTRO+7, ZIS+11, GS+14, GS+15, USR+1, LOC+1
V EXIT+3!
W EXIT+3!
X LISTS+3*, LISTS+10*, ZIS+2*, ZIS+7*, ZIS+10!, EXIT+2!, EXIT+3!, SET6+1, SET6+2, GS+1*
, GS+2, GS+3, GS+4, GS+5, GS+6, GS+7, GS+8, GS+9, GS+10, GS+11
, GS+12, CTR~, CTR+1
X1 EXIT+2!
X2 EXIT+2!, SET6+1, SET6+2, GS+3*, GS+4, GS+5, GS+6, GS+7, GS+8, GS+9
, GS+10, GS+11, GS+12
X3 EXIT+2!, SET6+1, SET6+2, GS+5*, GS+6, GS+7, GS+8, GS+9, GS+10, GS+11
, GS+12
X4 EXIT+2!, SET6+1, SET6+2, GS+7*, GS+8, GS+9, GS+10, GS+11, GS+12
X5 EXIT+2!, SET6+1, SET6+2, GS+9*, GS+10, GS+11, GS+12
X6 EXIT+2!, SET6+1, SET6+2, GS+12*
>> XBF GS+15*
>> XBFLT GS+15*
>> XBFN GS+15*
>> XBGL GS+13*
>> XBMED GS+15*
>> XBNS ZIS+12*
>> XBRC ZIS+12*
>> XBRP ZIS+12*
>> XBRX ZIS+12*
>> XBTLE GS+15*
Y DATES+8, HOME+2, HOME+3, LISTS+5, LISTS+6, LISTS+10, ZIS+3, ZIS+4, ZIS+10!, EXIT+3!
, GETTAX+5, GETTAX+6, Q+2, Q+3, Q+4, Q+5, Q+6, Q+7, Y+10, Y+11
, CTR~, CTR+1
Z LISTS+10*, EXIT+3!
>> ZTQUEUED EOP+2

Marked Items

Name Field # of Occurrence
$T(@T+J LISTS+3
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 |  Marked Items |  All