Routine: CIMGAGPU

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

Customize PDF page

Package: Aberdeen GPRA Report

Routine: CIMGAGPU

Information

Source Information

Call Graph

Call Graph Total: 8

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items