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 |  Caller 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: GECSSITE

Package: Generic Code Sheet

Routine: GECSSITE


Information

GECSSITE ;WISC/RFJ/KLD-get site, fy, person data ;01 Nov 93

Source Information

Source file <GECSSITE.m>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
VA FileMan 3 NOW^%DTC  ^DIC  $$GET1^DIQ  
Kernel 1 $$REPEAT^XLFSTR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 9

Package Total Caller Graph
Generic Code Sheet 9 GECSBATC  GECSEDIT  GECSENTR  GECSMUT1  GECSMUT2  GECSPURG  GECSREP0  GECSTRAN  
GECSUTIL  

Entry Points

Name Comments DBIA/ICR reference
GETSITE(GECSSITE)
GETUSER ; find user

External References

Name Field # of Occurrence
NOW^%DTC GETUSER+4
^DIC GECSSITE+20
$$GET1^DIQ GETSITE+28, GETSITE+30, GETSITE+33, GETSITE+38
$$REPEAT^XLFSTR GETSITE+7, GETSITE+13, GETSITE+20, GETSITE+27, GETSITE+32, GETSITE+36, GETSITE+40, GETSITE+46

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"NO SITE PARAMETERS HAVE BEEN ENTERED IN FILE 2101.7,"
  • Line Location: GECSSITE+10
Function Call: WRITE
  • Prompt: !,"SITE ",DONTASK," NOT FOUND IN FILE 2101.7."
  • Line Location: GECSSITE+16
Function Call: WRITE
  • Prompt: !!,"Site Missing From GENERIC CODE SHEET FILE 2101.7"
  • Line Location: GETSITE+6
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("*",57)
  • Line Location: GETSITE+7
Function Call: WRITE
  • Prompt: !,"Site ",GECS("SITE"),GECS("SITE1")," does not exist in File #2101.7. Please contact"
  • Line Location: GETSITE+8
Function Call: WRITE
  • Prompt: !,"your Information Resource Management(IRM) Personnel and"
  • Line Location: GETSITE+9
Function Call: WRITE
  • Prompt: !,"inform them that Site ",GECS("SITE"),GECS("SITE1")," must"
  • Line Location: GETSITE+10
Function Call: WRITE
  • Prompt: " be inserted into File"
  • Line Location: GETSITE+11
Function Call: WRITE
  • Prompt: !,"#2101.7 in order for you to continue with this option."
  • Line Location: GETSITE+12
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("*",57)
  • Line Location: GETSITE+13
Function Call: WRITE
  • Prompt: !!,"Site Missing From INSTITUTION FILE #4"
  • Line Location: GETSITE+19
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("*",51)
  • Line Location: GETSITE+20
Function Call: WRITE
  • Prompt: !,"Site ",GECS("SITE"),GECS("SITE1")," does not exit"
  • Line Location: GETSITE+21
Function Call: WRITE
  • Prompt: " in the INSTITUTION FILE #4"
  • Line Location: GETSITE+22
Function Call: WRITE
  • Prompt: !,"Please contact your Information Resource Management"
  • Line Location: GETSITE+23
Function Call: WRITE
  • Prompt: !,"(IRM) Personnel and inform them that Site "
  • Line Location: GETSITE+24
Function Call: WRITE
  • Prompt: GECS("SITE"),GECS("SITE1")," must"
  • Line Location: GETSITE+25
Function Call: WRITE
  • Prompt: !,"be inserted into File #4."
  • Line Location: GETSITE+26
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("*",51)
  • Line Location: GETSITE+27
Function Call: WRITE
  • Prompt: !!,"STATION NAME missing from INSTITUTION FILE #4"
  • Line Location: GETSITE+31
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("*",60)
  • Line Location: GETSITE+32
Function Call: WRITE
  • Prompt: !,"Site ",$$GET1^DIQ(4,+GECSSITE,99)," STATION NAME is not entered in Field #.01 of the"
  • Line Location: GETSITE+33
Function Call: WRITE
  • Prompt: !,"INSTITUTION FILE #4. Please inform your Information Resource"
  • Line Location: GETSITE+34
Function Call: WRITE
  • Prompt: !,"Management(IRM) Personnel."
  • Line Location: GETSITE+35
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("*",60)
  • Line Location: GETSITE+36
Function Call: WRITE
  • Prompt: !!,"STATION NUMBER missing from INSTITUTION FILE #4"
  • Line Location: GETSITE+39
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("*",62)
  • Line Location: GETSITE+40
Function Call: WRITE
  • Prompt: !,"INTERNAL ENTRY NUMBER(IEN) "_GECSSITE_" does not have "
  • Line Location: GETSITE+41
Function Call: WRITE
  • Prompt: "a STATION NUMBER"
  • Line Location: GETSITE+42
Function Call: WRITE
  • Prompt: !,"entered in field #99 of the INSTITUTION FILE #4. Please "
  • Line Location: GETSITE+43
Function Call: WRITE
  • Prompt: "inform"
  • Line Location: GETSITE+44
Function Call: WRITE
  • Prompt: !,"your Information Resource Management(IRM) Personnel."
  • Line Location: GETSITE+45
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("*",62)
  • Line Location: GETSITE+46
Function Call: WRITE
  • Prompt: !,"Station: ",STATNAME," (#",%,")"
  • Line Location: GETSITE+49
Function Call: WRITE
  • Prompt: !,"YOU ARE NOT AN AUTHORIZED USER. CONTACT IRM SERVICE"
  • Line Location: GETUSER+3
Routine Call
  • DIC
  • Line Location:
    • GECSSITE+20

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^GECS(2101.7 - [#2101.7] Classic Fileman Calls
^DIC(4 - [#4] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" GETUSER+4
^DIC(4 - [#4] GECSSITE+15, GECSSITE+18, GETSITE+17
^GECS(2101.7 - [#2101.7] GECSSITE+10, GECSSITE+11, GECSSITE+15, GECSSITE+18, GETSITE+5
^VA(200 - [#200] GETUSER+2

Label References

Name Line Occurrences
GETSITE GECSSITE+11, GECSSITE+15, GECSSITE+21
GETUSER GECSSITE+7, GETSITE+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% GECSSITE+3~, GECSSITE+15*, GECSSITE+18*, GECSSITE+19, GETSITE+1~, GETSITE+5*, GETSITE+14, GETSITE+38*, GETSITE+47, GETSITE+48
, GETSITE+49, GETUSER+1~
%H GETUSER+1~
%I GETUSER+1~
%Y GECSSITE+3~
DIC GECSSITE+3~, GECSSITE+20*
DIC("A" GECSSITE+20*
DIC("B" GECSSITE+19*, GECSSITE+20
DIC(0 GECSSITE+20*
DONTASK GECSSITE+3~, GECSSITE+4*, GECSSITE+14, GECSSITE+15, GECSSITE+16
DUZ GETUSER+2
GECS GECSSITE+5!, GECSSITE+10!, GECSSITE+16!, GETSITE+3!, GETUSER+3!
GECS("FY" GETUSER+5*
GECS("PER" GECSSITE+7, GETSITE+3, GETUSER+2*, GETUSER+3
GECS("SITE" GETSITE+8, GETSITE+10, GETSITE+16, GETSITE+17, GETSITE+21, GETSITE+25, GETSITE+48*
GECS("SITE1" GETSITE+8, GETSITE+10, GETSITE+17, GETSITE+21, GETSITE+25, GETSITE+48*
GECS("SITENOASK" GECSSITE+4
>> GECSFNOP GETSITE+49
GECSSITE GETSITE~, GETSITE+5, GETSITE+15, GETSITE+28, GETSITE+30, GETSITE+33, GETSITE+38, GETSITE+41
I GECSSITE+3~
SITE99 GETSITE+1~, GETSITE+30*, GETSITE+37
>> SITEM GETSITE+14*
STATNAME GETSITE+1~, GETSITE+28*, GETSITE+29, GETSITE+37, GETSITE+49
SUBSITE GETSITE+1~, GETSITE+17*, GETSITE+18
X GECSSITE+3~, GETUSER+1~, GETUSER+4, GETUSER+5
Y GECSSITE+3~, GECSSITE+20, GECSSITE+21, GETUSER+1~, GETUSER+4*, GETUSER+5
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All