Routine: BGP5ULF

Package	Total	Call Graph
IHS GPRA Information System	4	EOP^BGP5DH GETIEN^BGP5EUTL GETIEN^BGP5PUTL GETIEN^BGP5UTL
Kernel	4	HOME^%ZIS ^%ZISC ($$OPEN,$$STATUS)^%ZISH $$UP^XLFSTR
VA Fileman	3	FILE^DICN (,IX1)^DIK ^DIR
IHS VA Utilities	1	^XBFMK

Entry Points

Name	Comments	DBIA/ICR reference
STRIP(Z)	;REMOVE CONTROLL CHARACTERS
ELCY	;
PROCPED	;
ELPY	;
READF	;EP read file
EOJ	;EP
PEDCY	;
PY	;
PROCEL	;
FILENAME	;
CY	;
FILE	;
ELBY	;
PEDBY	;
PROC	;
BY	;
DIR	;
PEDPY	;

External References

Name	Field # of Occurrence
HOME^%ZIS	FILE+1, EOJ+12
^%ZISC	READF+7
$$OPEN^%ZISH	READF+3
$$STATUS^%ZISH	READF+6
EOP^BGP5DH	EOJ+10
GETIEN^BGP5EUTL	PROCEL+28
GETIEN^BGP5PUTL	PROCPED+28
GETIEN^BGP5UTL	PROC+32
FILE^DICN	CY+3, PY+3, BY+3, ELCY+3, ELPY+3, ELBY+3, PEDCY+3, PEDPY+3, PEDBY+3
^DIK	PROC+27, PROCEL+23, PROCPED+23
IX1^DIK	CY+17, PY+17, BY+17, ELCY+17, ELPY+17, ELBY+17, PEDCY+17, PEDPY+17, PEDBY+17
^DIR	DIR+3, FILENAME+3
^XBFMK	PROC+26, CY+6, PY+6, BY+6, PROCEL+22, ELCY+6, ELPY+6, ELBY+6, PROCPED+22, PEDCY+6 , PEDPY+6, PEDBY+6
$$UP^XLFSTR	FILENAME+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"This option is used to upload a SU's 2015 CRS data.",!,"You must specify the directory in which the CRS 2015 data file resides",!,"and then enter the filename of the data.",! Line Location: BGP5ULF+5
Function Call: WRITE	Prompt: !!,"Directory not entered!! Bye." Line Location: DIR+4
Function Call: WRITE	Prompt: !!,"Directory not entered!! Bye." Line Location: DIR+5
Function Call: WRITE	Prompt: !! Line Location: FILENAME+1
Function Call: WRITE	Prompt: !!,"Filename must begin with BG151" Line Location: FILENAME+6
Function Call: WRITE	Prompt: !,"Directory=",BGPDIR," ","File=",BGPFILE Line Location: FILENAME+8
Function Call: WRITE	Prompt: !,*7,"CANNOT OPEN (OR ACCESS) FILE '",BGPDIR,BGPFILE,"'." 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+3
Function Call: WRITE	Prompt: !!,"unable to lock global. TRY LATER" Line Location: PROC+29
Function Call: WRITE	Prompt: !!,"unable to lock global. TRY LATER" Line Location: PROC+30
Function Call: WRITE	Prompt: !!,"unable to lock global. TRY LATER" Line Location: PROC+31
Function Call: WRITE	Prompt: !!,"error in file creation...call programmer." Line Location: PROC+33
Function Call: WRITE	Prompt: !,"error uploading file......" Line Location: CY+4
Function Call: WRITE	Prompt: !,"error uploading file......" Line Location: PY+4
Function Call: WRITE	Prompt: !,"error uploading file......" Line Location: BY+4
Function Call: WRITE	Prompt: !,"Data uploaded." Line Location: BY+18
Function Call: WRITE	Prompt: !,"Processing",! Line Location: PROCEL+1
Function Call: WRITE	Prompt: !!,"unable to lock global. TRY LATER" Line Location: PROCEL+25
Function Call: WRITE	Prompt: !!,"unable to lock global. TRY LATER" Line Location: PROCEL+26
Function Call: WRITE	Prompt: !!,"unable to lock global. TRY LATER" Line Location: PROCEL+27
Function Call: WRITE	Prompt: !!,"error in file creation...call programmer." Line Location: PROCEL+29
Function Call: WRITE	Prompt: !,"error uploading file......" Line Location: ELCY+4
Function Call: WRITE	Prompt: !,"error uploading file......" Line Location: ELPY+4
Function Call: WRITE	Prompt: !,"error uploading file......" Line Location: ELBY+4
Function Call: WRITE	Prompt: !,"Data uploaded." Line Location: ELBY+18
Function Call: WRITE	Prompt: !,"Processing",! Line Location: PROCPED+1
Function Call: WRITE	Prompt: !!,"unable to lock global. TRY LATER" Line Location: PROCPED+25
Function Call: WRITE	Prompt: !!,"unable to lock global. TRY LATER" Line Location: PROCPED+26
Function Call: WRITE	Prompt: !!,"unable to lock global. TRY LATER" Line Location: PROCPED+27
Function Call: WRITE	Prompt: !!,"error in file creation...call programmer." Line Location: PROCPED+29
Function Call: WRITE	Prompt: !,"error uploading file......" Line Location: PEDCY+4
Function Call: WRITE	Prompt: !,"error uploading file......" Line Location: PEDPY+4
Function Call: WRITE	Prompt: !,"error uploading file......" Line Location: PEDBY+4
Function Call: WRITE	Prompt: !,"Data uploaded." Line Location: PEDBY+18
Routine Call	%ZIS Line Location: FILE+1 EOJ+12
Routine Call	DIR Line Location: DIR+3 FILENAME+3

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^BGPGPDCK - [#90554.03]	Classic Fileman Calls
^BGPGPDPK - [#90554.04]	Classic Fileman Calls
^BGPGPDBK - [#90554.05]	Classic Fileman Calls
^BGPPEDCK - [#90554.12]	Classic Fileman Calls
^BGPPEDPK - [#90554.13]	Classic Fileman Calls
^BGPPEDBK - [#90554.14]	Classic Fileman Calls
^BGPELDCK - [#90555.03]	Classic Fileman Calls
^BGPELDPK - [#90555.04]	Classic Fileman Calls
^BGPELDBK - [#90555.05]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^BGPELDBK - [#90555.05]	EOJ+6, PROCEL+27, ELBY+11, ELBY+12, ELBY+13, ELBY+14, ELBY+15*
^BGPELDCK - [#90555.03]	EOJ+4, PROCEL+25, PROCEL+6, PROCEL+7!, PROCEL+8, ELCY+11, ELCY+12, ELCY+13, ELCY+14, ELCY+15*
^BGPELDPK - [#90555.04]	EOJ+5, PROCEL+26, ELPY+11, ELPY+12, ELPY+13, ELPY+14, ELPY+15*
^BGPGPDBK - [#90554.05]	PROC+31, EOJ+3, BY+11, BY+12, BY+13, BY+14, BY+15*
^BGPGPDCK - [#90554.03]	PROC+29, EOJ+1, PROC+9, PROC+10!, PROC+11, CY+11, CY+12, CY+13, CY+14, CY+15*
^BGPGPDPK - [#90554.04]	PROC+30, EOJ+2, PY+11, PY+12, PY+13, PY+14, PY+15*
^BGPPEDBK - [#90554.14]	EOJ+9, PROCPED+27, PEDBY+11, PEDBY+12, PEDBY+13, PEDBY+14, PEDBY+15*
^BGPPEDCK - [#90554.12]	EOJ+7, PROCPED+25, PROCPED+6, PROCPED+7!, PROCPED+8, PEDCY+11, PEDCY+12, PEDCY+13, PEDCY+14, PEDCY+15*
^BGPPEDPK - [#90554.13]	EOJ+8, PROCPED+26, PEDPY+11, PEDPY+12, PEDPY+13, PEDPY+14, PEDPY+15*
^TMP("BGPUPL"	READF+5!, READF+6*, PROC+4, PROC+5, CY+7, PY+7, BY+7, PROCEL+2, PROCEL+3, ELCY+7 , ELPY+7, ELBY+7, PROCPED+2, PROCPED+3, PEDCY+7, PEDPY+7, PEDBY+7

Label References

Name	Line Occurrences
$$STRIP	READF+6
DIR	FILENAME+4, FILENAME+5
EOJ	DIR+4, DIR+5, READF+4, PROC+29, PROC+30, PROC+31, PROC+33, CY+4, PY+4, BY+4 , BY+19, PROCEL+25, PROCEL+26, PROCEL+27, PROCEL+29, ELCY+4, ELPY+4, ELBY+4, ELBY+19, PROCPED+25 , PROCPED+26, PROCPED+27, PROCPED+29, PEDCY+4, PEDPY+4, PEDBY+4, PEDBY+19
FILENAME	FILENAME+6, FILENAME+10
PROCEL	PROC+1
PROCPED	PROC+2
READF	FILENAME+9

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	EOJ+16!
%Y	EOJ+16!
A	EOJ+14!
B	EOJ+14!
BGP	EOJ+16!
>> BGP0	PROC+4, PROC+6, CY+1, PY+1, BY+1, PROCEL+2, PROCEL+4, ELCY+1, ELPY+1, ELBY+1 , PROCPED+2*, PROCPED+4, PEDCY+1, PEDPY+1, PEDBY+1
BGP1	PROC+12, EOJ+17!, PROCEL+9, PROCPED+9
BGP10	PROC+20, EOJ+17!, PROCEL+17, PROCPED+18
BGP11	PROC+21, EOJ+17!, PROCEL+18, PROCPED+19
BGP12	PROC+22, EOJ+17!, PROCEL+19, PROCPED+20
BGP13	EOJ+17!
BGP14	PROC+23, EOJ+17!, PROCEL+20
BGP2	PROC+13, EOJ+17!, PROCEL+10, PROCPED+10
BGP21	PROC+7*, PROC+24, EOJ+17!
BGP3	PROC+14, EOJ+17!, PROCEL+11, PROCPED+11
BGP4	PROC+15, EOJ+17!, PROCEL+12, PROCPED+12
BGP5	PROC+16, EOJ+17!, PROCEL+13, PROCPED+13
BGP6	PROC+17, EOJ+17!, PROCEL+14, PROCPED+14
BGP7	EOJ+17!, PROCPED+15
BGP8	PROC+18, EOJ+17!, PROCEL+15, PROCPED+16
BGP9	PROC+19, EOJ+17!, PROCEL+16, PROCPED+17
BGPC	READF+1~, READF+2, READF+6
>> BGPDIR	DIR+2, DIR+6, FILENAME+8, READF+3, READF+4
>> BGPFILE	FILENAME+2, FILENAME+7, FILENAME+8, READF+3, READF+4, PROC+1, PROC+2
>> BGPG	PROC+5, PROCEL+3, PROCPED+3*
>> BGPIEN	PROC+33, CY+1, CY+5, CY+11, CY+12, CY+13, CY+14, CY+15, CY+17, PY+1 , PY+5, PY+11, PY+12, PY+13, PY+14, PY+15, PY+17, BY+1, BY+5, BY+11 , BY+12, BY+13, BY+14, BY+15, BY+17, PROCEL+29, ELCY+1, ELCY+5, ELCY+11, ELCY+12 , ELCY+13, ELCY+14, ELCY+15, ELCY+17, ELPY+1, ELPY+5, ELPY+11, ELPY+12, ELPY+13, ELPY+14 , ELPY+15, ELPY+17, ELBY+1, ELBY+5, ELBY+11, ELBY+12, ELBY+13, ELBY+14, ELBY+15, ELBY+17 , PROCPED+29, PEDCY+1, PEDCY+5, PEDCY+11, PEDCY+12, PEDCY+13, PEDCY+14, PEDCY+15, PEDCY+17, PEDPY+1 , PEDPY+5, PEDPY+11, PEDPY+12, PEDPY+13, PEDPY+14, PEDPY+15, PEDPY+17, PEDBY+1, PEDBY+5*, PEDBY+11 , PEDBY+12, PEDBY+13, PEDBY+14, PEDBY+15, PEDBY+17
BGPJ	EOJ+16!
BGPLINE	EOJ+16!
>> BGPOIEN	PROC+9, PROC+25, PROC+27, PROCEL+6, PROCEL+21, PROCEL+23, PROCPED+6, PROCPED+21, PROCPED+23
BGPTEXT	EOJ+16!
BGPX	EOJ+16!
C	EOJ+14!
D	CY+10, CY+11, CY+12, CY+13, CY+14, CY+15, PY+10, PY+11, PY+12, PY+13 , PY+14, PY+15, BY+10, BY+11, BY+12, BY+13, BY+14, BY+15, EOJ+14!, ELCY+10 , ELCY+11, ELCY+12, ELCY+13, ELCY+14, ELCY+15, ELPY+10, ELPY+11, ELPY+12, ELPY+13, ELPY+14 , ELPY+15, ELBY+10, ELBY+11, ELBY+12, ELBY+13, ELBY+14, ELBY+15, PEDCY+10, PEDCY+11, PEDCY+12 , PEDCY+13, PEDCY+14, PEDCY+15, PEDPY+10, PEDPY+11, PEDPY+12, PEDPY+13, PEDPY+14, PEDPY+15, PEDBY+10* , PEDBY+11, PEDBY+12, PEDBY+13, PEDBY+14, PEDBY+15
D0	CY+2!, PY+2!, BY+2!, ELCY+2!, ELPY+2!, ELBY+2!, PEDCY+2!, PEDPY+2!, PEDBY+2!
DA	DIR+3!, FILENAME+3!, PROC+27, CY+17, PY+17, BY+17, EOJ+16!, PROCEL+23, ELCY+17, ELPY+17* , ELBY+17, PROCPED+23, PEDCY+17, PEDPY+17, PEDBY+17*
DD	CY+2!, PY+2!, BY+2!, ELCY+2!, ELPY+2!, ELBY+2!, PEDCY+2!, PEDPY+2!, PEDBY+2!
DIC	CY+1, PY+1, BY+1, EOJ+16!, ELCY+1, ELPY+1, ELBY+1, PEDCY+1, PEDPY+1, PEDBY+1*
DIC(0	CY+1, PY+1, BY+1, ELCY+1, ELPY+1, ELBY+1, PEDCY+1, PEDPY+1, PEDBY+1*
>> DIK	PROC+27, CY+17, PY+17, BY+17, PROCEL+23, ELCY+17, ELPY+17, ELBY+17, PROCPED+23, PEDCY+17 , PEDPY+17, PEDBY+17
>> DINUM	CY+1, PY+1, BY+1, ELCY+1, ELPY+1, ELBY+1, PEDCY+1, PEDPY+1, PEDBY+1*
DIR	DIR+1!, DIR+3!, FILENAME+3!
DIR("A"	DIR+3, FILENAME+3
DIR(0	DIR+3, FILENAME+3
>> DIRUT	DIR+4, FILENAME+4
>> DLAYGO	CY+1, PY+1, BY+1, ELCY+1, ELPY+1, ELBY+1, PEDCY+1, PEDPY+1, PEDBY+1*
DO	CY+2!, PY+2!, BY+2!, ELCY+2!, ELPY+2!, ELBY+2!, PEDCY+2!, PEDPY+2!, PEDBY+2!
DTIME	READF+6
E	EOJ+14!
F	EOJ+14!
G	EOJ+14!
H	EOJ+14!
I	READF+1~, READF+6, EOJ+14!, STRIP+1~, STRIP+2
IO	READF+6
IOF	BGP5ULF+4
IOPAR	EOJ+11!
J	EOJ+14!
K	EOJ+14!
L	EOJ+14!
M	EOJ+14!
N	CY+10, CY+11, CY+12, CY+13, CY+14, CY+15, PY+10, PY+11, PY+12, PY+13 , PY+14, PY+15, BY+10, BY+11, BY+12, BY+13, BY+14, BY+15, EOJ+14!, EOJ+15! , ELCY+10, ELCY+11, ELCY+12, ELCY+13, ELCY+14, ELCY+15, ELPY+10, ELPY+11, ELPY+12, ELPY+13 , ELPY+14, ELPY+15, ELBY+10, ELBY+11, ELBY+12, ELBY+13, ELBY+14, ELBY+15, PEDCY+10, PEDCY+11 , PEDCY+12, PEDCY+13, PEDCY+14, PEDCY+15, PEDPY+10, PEDPY+11, PEDPY+12, PEDPY+13, PEDPY+14, PEDPY+15 , PEDBY+10*, PEDBY+11, PEDBY+12, PEDBY+13, PEDBY+14, PEDBY+15
N1	EOJ+15!
N2	CY+10, CY+11, CY+12, CY+13, CY+14, PY+10, PY+11, PY+12, PY+13, PY+14 , BY+10, BY+11, BY+12, BY+13, BY+14, EOJ+15!, ELCY+10, ELCY+11, ELCY+12, ELCY+13 , ELCY+14, ELPY+10, ELPY+11, ELPY+12, ELPY+13, ELPY+14, ELBY+10, ELBY+11, ELBY+12, ELBY+13 , ELBY+14, PEDCY+10, PEDCY+11, PEDCY+12, PEDCY+13, PEDCY+14, PEDPY+10, PEDPY+11, PEDPY+12, PEDPY+13 , PEDPY+14, PEDBY+10*, PEDBY+11, PEDBY+12, PEDBY+13, PEDBY+14
N3	CY+10, CY+11, CY+12, CY+13, PY+10, PY+11, PY+12, PY+13, BY+10, BY+11 , BY+12, BY+13, EOJ+15!, ELCY+10, ELCY+11, ELCY+12, ELCY+13, ELPY+10, ELPY+11, ELPY+12 , ELPY+13, ELBY+10, ELBY+11, ELBY+12, ELBY+13, PEDCY+10, PEDCY+11, PEDCY+12, PEDCY+13, PEDPY+10 , PEDPY+11, PEDPY+12, PEDPY+13, PEDBY+10*, PEDBY+11, PEDBY+12, PEDBY+13
N4	CY+10, CY+11, CY+12, PY+10, PY+11, PY+12, BY+10, BY+11, BY+12, EOJ+15! , ELCY+10, ELCY+11, ELCY+12, ELPY+10, ELPY+11, ELPY+12, ELBY+10, ELBY+11, ELBY+12, PEDCY+10* , PEDCY+11, PEDCY+12, PEDPY+10, PEDPY+11, PEDPY+12, PEDBY+10, PEDBY+11, PEDBY+12
N5	CY+10, CY+11, PY+10, PY+11, BY+10, BY+11, EOJ+15!, ELCY+10, ELCY+11, ELPY+10* , ELPY+11, ELBY+10, ELBY+11, PEDCY+10, PEDCY+11, PEDPY+10, PEDPY+11, PEDBY+10, PEDBY+11
N6	EOJ+15!
O	EOJ+14!
P	EOJ+14!
Q	EOJ+14!
R	EOJ+14!
S	EOJ+14!
T	EOJ+14!
U	PROC+6, PROC+12, PROC+13, PROC+14, PROC+15, PROC+16, PROC+17, PROC+18, PROC+19, PROC+20 , PROC+21, PROC+22, PROC+23, PROC+24, CY+1, PY+1, BY+1, PROCEL+4, PROCEL+9, PROCEL+10 , PROCEL+11, PROCEL+12, PROCEL+13, PROCEL+14, PROCEL+15, PROCEL+16, PROCEL+17, PROCEL+18, PROCEL+19, PROCEL+20 , ELCY+1, ELPY+1, ELBY+1, PROCPED+4, PROCPED+9, PROCPED+10, PROCPED+11, PROCPED+12, PROCPED+13, PROCPED+14 , PROCPED+15, PROCPED+16, PROCPED+17, PROCPED+18, PROCPED+19, PROCPED+20, PEDCY+1, PEDPY+1, PEDBY+1
V	CY+7, CY+8, CY+9, CY+10, PY+7, PY+8, PY+9, PY+10, BY+7, BY+8 , BY+9, BY+10, EOJ+14!, ELCY+7, ELCY+8, ELCY+9, ELCY+10, ELPY+7, ELPY+8, ELPY+9 , ELPY+10, ELBY+7, ELBY+8, ELBY+9, ELBY+10, PEDCY+7, PEDCY+8, PEDCY+9, PEDCY+10, PEDPY+7* , PEDPY+8, PEDPY+9, PEDPY+10, PEDBY+7, PEDBY+8, PEDBY+9*, PEDBY+10
W	EOJ+14!
X	READF+1~, READF+6, PROC+6, PROC+9, PROC+10, PROC+11, PROC+25, CY+1, CY+7, PY+1 , PY+7, BY+1, BY+7, EOJ+13!, EOJ+14!, EOJ+16!, PROCEL+4, PROCEL+6, PROCEL+7, PROCEL+8 , PROCEL+21, ELCY+1, ELCY+7, ELPY+1, ELPY+7, ELBY+1, ELBY+7, PROCPED+4, PROCPED+6, PROCPED+7 , PROCPED+8, PROCPED+21, PEDCY+1, PEDCY+7, PEDPY+1, PEDPY+7, PEDBY+1, PEDBY+7*
X1	EOJ+13!
X2	EOJ+13!
X3	EOJ+13!
X4	EOJ+13!
X5	EOJ+13!
X6	EOJ+13!
Y	DIR+5, DIR+6, FILENAME+5, FILENAME+6, FILENAME+7, READF+1~, READF+3, READF+4, PROC+6, PROC+11* , PROC+12, PROC+13, PROC+14, PROC+15, PROC+16, PROC+17, PROC+18, PROC+19, PROC+20, PROC+21 , PROC+22, PROC+23, PROC+24, CY+4, CY+5, PY+4, PY+5, BY+4, BY+5, EOJ+14! , EOJ+16!, PROCEL+4, PROCEL+8, PROCEL+9, PROCEL+10, PROCEL+11, PROCEL+12, PROCEL+13, PROCEL+14, PROCEL+15 , PROCEL+16, PROCEL+17, PROCEL+18, PROCEL+19, PROCEL+20, ELCY+4, ELCY+5, ELPY+4, ELPY+5, ELBY+4 , ELBY+5, PROCPED+4, PROCPED+8, PROCPED+9, PROCPED+10, PROCPED+11, PROCPED+12, PROCPED+13, PROCPED+14, PROCPED+15 , PROCPED+16, PROCPED+17, PROCPED+18, PROCPED+19, PROCPED+20, PEDCY+4, PEDCY+5, PEDPY+4, PEDPY+5, PEDBY+4 , PEDBY+5
Z	EOJ+14!, STRIP~, STRIP+2*, STRIP+3

Customize PDF page

Package: IHS GPRA Information System

Routine: BGP5ULF

Information

Source Information

Call Graph

Call Graph Total: 12

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: