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

Package: Aberdeen GPRA Report

Routine: CIMGAGPU


Information

CIMGAGPU ; CMI/TUCSON/LAB - NO DESCRIPTION PROVIDED ;

Source Information

Source file <CIMGAGPU.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
Kernel 3 HOME^%ZIS  ^%ZISC  ($$OPEN,$$STATUS)^%ZISH  
VA Fileman 3 FILE^DICN  (,IX1)^DIK  ^DIR  
IHS VA Utilities 2 ^XBFMK  EN^XBVK  

Entry Points

Name Comments DBIA/ICR reference
STRIP(Z) ;REMOVE CONTROLL CHARACTERS
READF ;read file
BANNER ;EP
SITE
TEXT ;
XIT ;
FILE ;upload global
V ; GET VERSION
PRINT
PROC ;
DIR ;

External References

Name Field # of Occurrence
HOME^%ZIS XIT+2
^%ZISC READF+7
$$OPEN^%ZISH READF+3
$$STATUS^%ZISH READF+6
FILE^DICN PROC+11
^DIK PROC+7
IX1^DIK PROC+24
^DIR DIR+3, DIR+7
^XBFMK PROC+6, PROC+14
EN^XBVK XIT+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"This option is used to upload a SU's GPRA data.",!,"You must specify the directory in which the GPRA data files resides",!,"and then enter the filename of the GPRA data.",!
  • Line Location: CIMGAGPU+5
Function Call: WRITE
  • Prompt: !!,"Directory not entered!! Bye."
  • Line Location: DIR+4
Function Call: WRITE
  • Prompt: !,"Directory=",CIMDIR," ","File=",CIMFILE
  • Line Location: DIR+10
Function Call: WRITE
  • Prompt: !,*7,"CANNOT OPEN (OR ACCESS) FILE '",CIMDIR,CIMFILE,"'."
  • Line Location: READF+4
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: READF+6
Function Call: WRITE
  • Prompt: !!,"All done reading file",!
  • Line Location: READF+8
Function Call: WRITE
  • Prompt: !,"Processing",!
  • Line Location: PROC+1
Function Call: WRITE
  • Prompt: "error in data"
  • Line Location: PROC+3
Function Call: WRITE
  • Prompt: !,"error uploading file......"
  • Line Location: PROC+12
Function Call: WRITE
  • Prompt: !,"Data uploaded."
  • Line Location: PROC+25
Function Call: WRITE
  • Prompt: !?80-$L(CIMX)\2,CIMX
  • Line Location: PRINT+1
Function Call: WRITE
  • Prompt: !?80-(8+$L(CIM("VERSION")))/2,"Version ",CIM("VERSION")
  • Line Location: PRINT+2
Function Call: WRITE
  • Prompt: !!?80-$L(CIM("SITE"))\2,CIM("SITE")
  • Line Location: SITE+0
Routine Call
  • %ZIS
  • Line Location:
    • XIT+2
Routine Call
  • DIR
  • Line Location:
    • DIR+3
    • DIR+7

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^CIMAGP( PROC+5, PROC+18*, PROC+19*, PROC+20*, PROC+21*, PROC+22*
^DIC(4 - [#4] SITE
^TMP("CIMGPRA" READF+5!, READF+6*, PROC+2, PROC+16

Label References

Name Line Occurrences
$$STRIP READF+6
DIR DIR+8
PRINT V+2
XIT DIR+4, READF+4, PROC+3, PROC+12, PROC+26, SITE

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% XIT+7!
%Y XIT+7!
A XIT+5!
B XIT+5!
C XIT+5!
CIM XIT+7!
CIM("SITE" SITE*
CIM("VERSION" V+1*, PRINT+2
>> CIM0 PROC+2*, PROC+3, PROC+5, PROC+9
CIMC READF+1~, READF+2*, READF+6*
>> CIMDIR DIR+2*, DIR+5*, DIR+10, READF+3, READF+4
>> CIMFILE DIR+6*, DIR+9*, DIR+10, READF+3, READF+4
>> CIMIEN PROC+13*, PROC+18, PROC+19, PROC+20, PROC+21, PROC+22, PROC+24
CIMJ XIT+7!, V+4*, PRINT+1*
CIMLINE XIT+7!, V+2*, V+4*, PRINT+1
>> CIMOIEN PROC+5*, PROC+7
CIMTEXT XIT+7!, V+2*, V+3*
CIMX XIT+7!, V+4*, PRINT+1*!
D PROC+17*, PROC+18, PROC+19, PROC+20, PROC+21, PROC+22, XIT+5!
D0 PROC+10!
DA DIR+3!, DIR+7!, PROC+7*, PROC+24*, XIT+7!
DD PROC+10!
DIC PROC+9*, XIT+7!
DIC(0 PROC+9*
>> DIK PROC+7*, PROC+24*
DIR DIR+1!, DIR+3!, DIR+7!
DIR("A" DIR+3*, DIR+7*
DIR(0 DIR+3*, DIR+7*
>> DIRUT DIR+4, DIR+8
>> DLAYGO PROC+9*
DO PROC+10!
DTIME READF+6
DUZ(2 SITE
E XIT+5!
F XIT+5!
G XIT+5!
H XIT+5!
I READF+1~, READF+6*, XIT+5!, STRIP+1~, STRIP+2*
IO READF+6
IOF CIMGAGPU+4, PRINT
IOPAR XIT+1!
J XIT+5!
K XIT+5!
L XIT+5!
M XIT+5!
N PROC+17*, PROC+18, PROC+19, PROC+20, PROC+21, PROC+22, XIT+5!, XIT+6!
N1 XIT+6!
N2 PROC+17*, PROC+18, PROC+19, PROC+20, PROC+21, XIT+6!
N3 PROC+17*, PROC+18, PROC+19, PROC+20, XIT+6!
N4 PROC+17*, PROC+18, PROC+19, XIT+6!
N5 PROC+17*, PROC+18, XIT+6!
N6 XIT+6!
O XIT+5!
P XIT+5!
Q XIT+5!
R XIT+5!
S XIT+5!
T XIT+5!
U PROC+3, PROC+9
V PROC+16*, PROC+17, XIT+5!
W XIT+5!
X READF+1~, READF+6*, PROC+5*, PROC+9*, PROC+16*, XIT+4!, XIT+5!, XIT+7!
X1 XIT+4!
X2 XIT+4!
X3 XIT+4!
X4 XIT+4!
X5 XIT+4!
X6 XIT+4!
Y DIR+5, DIR+9, READF+1~, READF+3*, READF+4, PROC+5*, PROC+12, PROC+13, XIT+5!, XIT+7!
Z XIT+5!, STRIP~, STRIP+2*, STRIP+3

Marked Items

Name Field # of Occurrence
$T(@CIMTEXT+CIMJ V+4, PRINT+1
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All