Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

Entry Points

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

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^GECS(2101.7 - [#2101.7] Classic Fileman Calls
^DIC(4 - [#4] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call