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: ASUL19IT

Package: Supply

Routine: ASUL19IT


Information

ASUL19IT ; IHS/ITSC/LMH -INPUT TRANSFORM USER TABLE 19 ;

Source Information

Source file <ASUL19IT.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
Supply 5 READNAME^ASUL19IT  (IEN,USR)^ASULALGO  SETAREA^ASULARST  USR^ASULDIRA  USR^ASULDIRR  
VA Fileman 3 DQ^DICQ  ^DIE  ^DIR  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Supply 3 ASUL19IT  ASUL20IT  ^ASUL(19  

Entry Points

Name Comments DBIA/ICR reference
NMIT ;EP ; INPUT TRANSFORM FOR NAME (.01) FIELD
NAME ;
ERR ;
ASUL19RC ;EP;WITH LOCAL ARRAY KILL
DIC ;EP; SET DIC
HLPPGLST ;
HLPUSADD ;
EN2 ;EP; DIC ALREADY SET
PGIT ;EP;;PROGRAM POINTER INPUT TRANSFORM FOR FILEMAN
READUSR ;Get User to be processed
FILE ;
HLPUSLST ;
X ;
CDIT ;EP;;USER CODE INPUT TRANSFORM FOR FILEMAN
READNAME ;EP ;READ USER NAME
ARIT ;EP;;AREA POINTER INPUT TRANSFORM FOR FILEMAN
HELP ;HELP INPUT USER TABLE 19

External References

Name Field # of Occurrence
READNAME^ASUL19IT READUSR+16
IEN^ASULALGO EN2+23, CDIT+1
USR^ASULALGO EN2+7
SETAREA^ASULARST ASUL19IT+6
USR^ASULDIRA READUSR+16
USR^ASULDIRR ASUL19IT+4, READUSR+10
DQ^DICQ HLPUSLST+3, HLPPGLST+3
^DIE FILE+10
^DIR EN2+34, NAME+1, READNAME+3, READUSR+8, READUSR+15, HLPUSLST+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?10,"DUZ(2) must be set so Area Accounting Point can be determined"
  • Line Location: ASUL19IT+5
Function Call: WRITE
  • Prompt: !?10,"Can't compute USER code for IEN:",DA
  • Line Location: EN2+24
Function Call: WRITE
  • Prompt: !?10,"Adding entry in User Table (19)"
  • Line Location: FILE+2
Function Call: WRITE
  • Prompt: !?15," CODE: ",ASUL(19,"USR")
  • Line Location: FILE+3
Function Call: WRITE
  • Prompt: !?15," NAME: ",ASUL(19,"USR","NM")
  • Line Location: FILE+4
Function Call: WRITE
  • Prompt: !?15," PROGRAM: ",ASUL(22,"PGM","NM")
  • Line Location: FILE+5
Function Call: WRITE
  • Prompt: !?15," AREA: ",ASUL(1,"AR","NM")
  • Line Location: FILE+6
Function Call: WRITE
  • Prompt: !?5,"You may only access User table entries for the Area you are signed"
  • Line Location: HELP+1
Function Call: WRITE
  • Prompt: !?5,"in to SAMS with. This is determined using the setting of DUZ(2)"
  • Line Location: HELP+2
Function Call: WRITE
  • Prompt: !?5,"which is set when you sign in to SAMS. If you wish to change Areas,"
  • Line Location: HELP+3
Function Call: WRITE
  • Prompt: !?5,"you must sign out of SAMS and then sign back in to SAMS selecting the"
  • Line Location: HELP+4
Function Call: WRITE
  • Prompt: !?5,"appropriate DIVISION (area). If when you sign in to SAMS you are not"
  • Line Location: HELP+5
Function Call: WRITE
  • Prompt: !?5,"prompted for a DIVISION, then you are automatically signed on as a"
  • Line Location: HELP+6
Function Call: WRITE
  • Prompt: !?5,"specific Area and are restricted to that Area."
  • Line Location: HELP+7
Function Call: WRITE
  • Prompt: !!?5,"You will be asked for the User Code or User Name for the entry you wish"
  • Line Location: HELP+8
Function Call: WRITE
  • Prompt: !?5,"to Access. If an entry for that User does not exist, you will also be asked"
  • Line Location: HELP+9
Function Call: WRITE
  • Prompt: !?5,"for the User Name or User Code (whichever has not already been enterd)"
  • Line Location: HELP+10
Function Call: WRITE
  • Prompt: !?5,"so that a new entry may be added. Once an entry has been added to the"
  • Line Location: HELP+11
Function Call: WRITE
  • Prompt: !?5,"table, only the NAME field may be changed. To change any other field,"
  • Line Location: HELP+12
Function Call: WRITE
  • Prompt: !?5,"you must delete the entry and re-enter it with the changes. Deletions"
  • Line Location: HELP+13
Function Call: WRITE
  • Prompt: !?5,"however, may only be done by those with specific access keys."
  • Line Location: HELP+14
Function Call: WRITE
  • Prompt: !,"For the User to be added, Enter either:"
  • Line Location: HLPUSADD+1
Function Call: WRITE
  • Prompt: !?10,"3 digit User code (first 2 must equal valid Program code)"
  • Line Location: HLPUSADD+2
Function Call: WRITE
  • Prompt: !?10,"?? to see a list of current entries in the User Table"
  • Line Location: HLPUSADD+3
Function Call: WRITE
  • Prompt: !?10,"Enter '^' or <enter> to end session of User entry update"
  • Line Location: HLPUSADD+4
Routine Call
  • DIE
  • Line Location:
    • FILE+10
Routine Call
  • DIR
  • Line Location:
    • EN2+34
    • NAME+1
    • READNAME+3
    • READUSR+8
    • READUSR+15
    • HLPUSLST+4

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ASUL(19 - [#9002039.19] Classic Fileman Calls
^ASUL(22 - [#9002039.22] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ASUL(19 - [#9002039.19] EN2+4, EN2+19, EN2+20, EN2+32, FILE+8*, FILE+9*
^ASUL(22 - [#9002039.22] EN2+13

Label References

Name Line Occurrences
ASUL19RC EN2+3, EN2+36
EN2 DIC+2
ERR EN2+11, EN2+15, EN2+18, EN2+24, EN2+30, EN2+35, EN2+36, EN2+37, READNAME+4
FILE EN2+28
HELP EN2+15, EN2+18
HLPPGLST HLPUSLST+5
NAME EN2+26
NMIT EN2+4
X EN2+3, EN2+11

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> ASUL("REQ" X+2
>> ASUL(1 ASUL19IT+6, EN2+4, EN2+8, EN2+10, EN2+16, EN2+17, EN2+32, FILE+6, FILE+7, READUSR+13
>> ASUL(19 ASUL19IT+4, EN2+3, EN2+5, EN2+7*, EN2+8*, EN2+10*, EN2+20*, EN2+21*, EN2+22, EN2+25*
, EN2+31*, EN2+32*, EN2+33, EN2+34, EN2+36, X+1, X+2!, NAME+1, READNAME+1, READNAME+2
, READNAME+5*, FILE+3, FILE+4, FILE+7, FILE+9, FILE+10, ERR+1!, ASUL19RC+1!, READUSR+4, READUSR+8*
, READUSR+9*, READUSR+12, READUSR+13, READUSR+16, READUSR+18
>> ASUL(22 X+2!, FILE+5, FILE+7, ERR+1!
ASUL19 EN2+23*, EN2+25!
>> D HLPUSLST+3*, HLPPGLST+3*
>> D0 FILE+10*
>> DA ASUL19IT+4, EN2+3*, EN2+4, EN2+7*, EN2+8*, EN2+10*, EN2+12*, EN2+14, EN2+16, EN2+17
, EN2+19, EN2+20, EN2+21, EN2+23, EN2+24, X+1*, CDIT+1, ARIT+1, PGIT+1, FILE+10*
DD FILE+10!
DIC ASUL19IT+9~, DIC+1~, DIC+2*, HLPUSLST+1~, HLPUSLST+2*, HLPPGLST+1~, HLPPGLST+2*
DIC("S" HLPUSLST+2*
DIC("W" DIC+2*
DIC(0 ASUL19IT+7*, DIC+2*, HLPUSLST+3*, HLPPGLST+3*
DIE ASUL19IT+9~, FILE+1*, DIC+1~, DIC+2*
DIK EN2+1~
DIR EN2+1~, READUSR+1~, READUSR+15!, HLPUSLST+1~
DIR("?" READNAME+1*, READUSR+6*
DIR("??" READUSR+7*
DIR("A" EN2+34*, NAME+1*, READNAME+1*, READUSR+3*, READUSR+4*, READUSR+5*, READUSR+15*, HLPUSLST+4*
DIR("B" READNAME+2*, HLPUSLST+4*
DIR(0 EN2+34*, NAME+1*, READNAME+1*, READUSR+2*, READUSR+15*, HLPUSLST+4*
>> DIROUT READUSR+8
>> DIRUT EN2+3, EN2+35, EN2+37, NAME+2
>> DIX ASUL19IT+8
DO HLPUSLST+1~, HLPPGLST+1~
DR EN2+1~, FILE+7*
DTOUT EN2+11, EN2+27, EN2+35, EN2+37, READNAME+4, ERR+1!, READUSR+8
DUOUT EN2+11, EN2+27, EN2+35, EN2+37, READNAME+4, ERR+1!, READUSR+8
DUZ(2 ASUL19IT+5
>> DZ HLPUSLST+3*, HLPPGLST+3*
U EN2+20, FILE+8, FILE+9
X ASUL19IT+5!, ASUL19IT+8*, EN2+2*, EN2+3*, EN2+5*, EN2+6, EN2+7, EN2+8*, EN2+9, EN2+10*
, EN2+11, EN2+12, EN2+13, EN2+22, EN2+27, EN2+30, EN2+31, EN2+35, EN2+36, EN2+37
, X+1*, NAME+2!, READNAME+4, READNAME+5, NMIT+1!, CDIT+1!, ARIT+1!, PGIT+1*!, FILE+10!, ERR+1!
, READUSR+9, READUSR+10, READUSR+16*
X(1 READUSR+16*
>> Y EN2+3, EN2+24, EN2+35, NAME+2, READUSR+11, READUSR+14, READUSR+16, HLPUSLST+5
Z CDIT+1~*, ARIT+1~*, PGIT+1~*
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