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

Package: IHS GPRA Information System

Routine: BGP4ULF


Information

BGP4ULF ; IHS/CMI/LAB - NO DESCRIPTION PROVIDED 27 May 2014 4:26 PM ; 09 Apr 2014 3:29 PM

Source Information

Source file <BGP4ULF.m>

Call Graph

Call Graph Total: 12

Package Total Call Graph
IHS GPRA Information System 4 EOP^BGP4DH  GETIEN^BGP4EUTL  GETIEN^BGP4PUTL  GETIEN^BGP4UTL  
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^BGP4DH EOJ+10
GETIEN^BGP4EUTL PROCEL+28
GETIEN^BGP4PUTL PROCPED+28
GETIEN^BGP4UTL PROC+30
FILE^DICN CY+3, PY+3, BY+3, ELCY+3, ELPY+3, ELBY+3, PEDCY+3, PEDPY+3, PEDBY+3
^DIK PROC+25, 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+24, 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 2014 CRS data.",!,"You must specify the directory in which the CRS 2014 data file resides",!,"and then enter the filename of the data.",!
  • Line Location: BGP4ULF+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 BG141"
  • 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+27
Function Call: WRITE
  • Prompt: !!,"unable to lock global. TRY LATER"
  • Line Location: PROC+28
Function Call: WRITE
  • Prompt: !!,"unable to lock global. TRY LATER"
  • Line Location: PROC+29
Function Call: WRITE
  • Prompt: !!,"error in file creation...call programmer."
  • Line Location: PROC+31
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
^BGPGPDCJ - [#90552.03] Classic Fileman Calls
^BGPGPDPJ - [#90552.04] Classic Fileman Calls
^BGPGPDBJ - [#90552.05] Classic Fileman Calls
^BGPPEDCJ - [#90552.12] Classic Fileman Calls
^BGPPEDPJ - [#90552.13] Classic Fileman Calls
^BGPPEDBJ - [#90552.14] Classic Fileman Calls
^BGPELDCJ - [#90553.03] Classic Fileman Calls
^BGPELDPJ - [#90553.04] Classic Fileman Calls
^BGPELDBJ - [#90553.05] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^BGPELDBJ - [#90553.05] EOJ+6, PROCEL+27, ELBY+11*, ELBY+12*, ELBY+13*, ELBY+14*, ELBY+15*
^BGPELDCJ - [#90553.03] EOJ+4, PROCEL+25, PROCEL+6, PROCEL+7!, PROCEL+8, ELCY+11*, ELCY+12*, ELCY+13*, ELCY+14*, ELCY+15*
^BGPELDPJ - [#90553.04] EOJ+5, PROCEL+26, ELPY+11*, ELPY+12*, ELPY+13*, ELPY+14*, ELPY+15*
^BGPGPDBJ - [#90552.05] PROC+29, EOJ+3, BY+11*, BY+12*, BY+13*, BY+14*, BY+15*
^BGPGPDCJ - [#90552.03] PROC+27, EOJ+1, PROC+8, PROC+9!, PROC+10, CY+11*, CY+12*, CY+13*, CY+14*, CY+15*
^BGPGPDPJ - [#90552.04] PROC+28, EOJ+2, PY+11*, PY+12*, PY+13*, PY+14*, PY+15*
^BGPPEDBJ - [#90552.14] EOJ+9, PROCPED+27, PEDBY+11*, PEDBY+12*, PEDBY+13*, PEDBY+14*, PEDBY+15*
^BGPPEDCJ - [#90552.12] EOJ+7, PROCPED+25, PROCPED+6, PROCPED+7!, PROCPED+8, PEDCY+11*, PEDCY+12*, PEDCY+13*, PEDCY+14*, PEDCY+15*
^BGPPEDPJ - [#90552.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+27, PROC+28, PROC+29, PROC+31, 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+11, PROCEL+9, PROCPED+9
>> BGP10 PROC+19, PROCEL+17, PROCPED+18
>> BGP11 PROC+20, PROCEL+18, PROCPED+19
>> BGP12 PROC+21, PROCEL+19, PROCPED+20
>> BGP14 PROC+22, PROCEL+20
>> BGP2 PROC+12, PROCEL+10, PROCPED+10
>> BGP3 PROC+13, PROCEL+11, PROCPED+11
>> BGP4 PROC+14, PROCEL+12, PROCPED+12
>> BGP5 PROC+15, PROCEL+13, PROCPED+13
>> BGP6 PROC+16, PROCEL+14, PROCPED+14
>> BGP7 PROCPED+15
>> BGP8 PROC+17, PROCEL+15, PROCPED+16
>> BGP9 PROC+18, 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+31, 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+8*, PROC+23*, PROC+25, 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+25*, 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+25*, 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 BGP4ULF+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+11, PROC+12, PROC+13, PROC+14, PROC+15, PROC+16, PROC+17, PROC+18, PROC+19
, PROC+20, PROC+21, PROC+22, 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+8*, PROC+9, PROC+10, PROC+23, 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+10*
, PROC+11, PROC+12, PROC+13, PROC+14, PROC+15, PROC+16, PROC+17, PROC+18, PROC+19, PROC+20
, PROC+21, PROC+22, 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
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All