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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: LRWU5

Package: Lab Service

Routine: LRWU5


Information

LRWU5 ;SLC/RWF/BA - ADD A NEW DATA NAME TO FILE 63 ; 5/15/87 22:53 ;

Source Information

Source file <LRWU5.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
VA FileMan 4 ^DIC  YN^DICN  IX1^DIK  ^DIR  
Lab Service 2 DISPLAY^LRWU6  DT^LRX  

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

Package Total Caller Graph
Lab Service 1 LRWU5  

Entry Points

Name Comments DBIA/ICR reference
ACCESS ;
BEGIN ;
END ;
TEST ;
CHECK ;
LOCK ;
SITE ;
NUM ;
MIN ;
MAX ;
DECIMAL ;
CODES ;
CHK1
CHK2
FREE ;
NAME ;check before filing to make sure a user on another session

External References

Name Field # of Occurrence
^DIC CHECK+2
YN^DICN LOCK+20
IX1^DIK TEST+10
^DIR LOCK+17, MIN+6, MAX+6, DECIMAL+6
DISPLAY^LRWU6 TEST+11
DT^LRX BEGIN+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!,"You do not have access to this option"
  • Line Location: ACCESS+1
Function Call: WRITE
  • Prompt: !!,"This option will add a new data name to the lab package."
  • Line Location: BEGIN+3
Function Call: READ
  • Formatting: !
  • Prompt: "DATA NAME: "
  • Variable: X
  • Timeout: DTIME
  • Line Location: TEST+1
Function Call: READ
  • Timeout: DTIME
  • Line Location: TEST+4
Function Call: WRITE
  • Prompt: !,"Enter 'N', 'S', 'F', or '^'"
  • Line Location: TEST+4
Function Call: WRITE
  • Prompt: !,"Nothing has been added."
  • Line Location: TEST+7
Function Call: WRITE
  • Prompt: !!,"'",LRNAME,"' added as a new data name"
  • Line Location: TEST+11
Function Call: WRITE
  • Prompt: !!,"You must now add a new test in the LABORATORY TEST file and use",!,LRNAME," as the entry for the DATA NAME field."
  • Line Location: TEST+11
Function Call: WRITE
  • Prompt: $C(7)," ??",!,"ANSWER MUST BE 2-30 CHARACTERS AND NOT CONTAIN '='"
  • Line Location: CHECK+1
Function Call: WRITE
  • Prompt: $C(7),!,"This data name already exists"
  • Line Location: CHECK+2
Function Call: WRITE
  • Prompt: $C(7),!,"This data name exists in the ^DD(63.04,""B"" cross reference only."
  • Line Location: CHECK+7
Function Call: WRITE
  • Prompt: !,"Enter a support ticket if assistance is needed to correct this file."
  • Line Location: CHECK+8
Function Call: WRITE
  • Prompt: !!,"Please wait a maximum of "_$G(DILOCKTM,5)_" seconds while it is"
  • Line Location: LOCK+6
Function Call: WRITE
  • Prompt: !,"determined whether internal entry number "_DA_" is available....."
  • Line Location: LOCK+7
Function Call: WRITE
  • Prompt: !!,"Someone else is defining this internal entry number."
  • Line Location: LOCK+10
Function Call: WRITE
  • Prompt: !,"Trying again to find a new internal entry number."
  • Line Location: LOCK+11
Function Call: WRITE
  • Prompt: !
  • Line Location: LOCK+16
Function Call: WRITE
  • Prompt: !!,"Internal entry number "_DA_" is available.",!!
  • Line Location: LOCK+19
Function Call: WRITE
  • Prompt: !,"ARE YOU ADDING ",LRNAME," (SUBFIELD # ",DA,") AS A NEW DATA NAME"
  • Line Location: LOCK+20
Function Call: WRITE
  • Prompt: " Answer 'Y'es or 'N'o."
  • Line Location: LOCK+20
Function Call: WRITE
  • Prompt: !,"Your site number is not defined, indicating that fileman was not ",!,"installed correctly. Contact your site manager!"
  • Line Location: SITE+1
Function Call: READ
  • Formatting: !
  • Prompt: "INTERNALLY-STORED CODE: // "
  • Variable: X
  • Timeout: DTIME
  • Line Location: CODES+1
Function Call: READ
  • Prompt: " WILL STAND FOR: // "
  • Variable: X
  • Timeout: DTIME
  • Line Location: CODES+1
Function Call: WRITE
  • Prompt: !,": and ; not allowed ",$C(7)
  • Line Location: CHK1+2
Function Call: WRITE
  • Prompt: !,": and ; not allowed ",$C(7)
  • Line Location: CHK2+2
Function Call: WRITE
  • Prompt: !,"Too many codes* ",$C(7)
  • Line Location: CHK2+3
Function Call: READ
  • Formatting: !
  • Prompt: "Minimum length: "
  • Variable: X
  • Timeout: DTIME
  • Line Location: FREE+1
Function Call: WRITE
  • Prompt: " Enter a whole number from 1 to 20"
  • Line Location: FREE+1
Function Call: READ
  • Formatting: !
  • Prompt: "Maximum length: "
  • Variable: X
  • Timeout: DTIME
  • Line Location: FREE+5
Function Call: WRITE
  • Prompt: " Enter a whole number between ",Q3," to 50"
  • Line Location: FREE+5
Function Call: WRITE
  • Prompt: !,"This data name has already been added by someone else"
  • Line Location: NAME+7
Function Call: WRITE
  • Prompt: !,"in another session after you selected the data name."
  • Line Location: NAME+8
Function Call: WRITE
  • Prompt: !,"Nothing is being saved from your session since the data name is now on file."
  • Line Location: NAME+9
Routine Call
  • DIC
  • Line Location:
    • CHECK+2
Routine Call
  • DIR
  • Line Location:
    • LOCK+17
    • MIN+6
    • MAX+6
    • DECIMAL+6

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(0 CHECK+1
^DD(63.04 END+2, TEST+9*, CHECK+5, CHECK+9, LOCK+8, LOCK+12, DECIMAL+12*, CODES+5*, FREE+10*, NAME+5
^XMB(1 - [#4.3] CHECK+9
^XUSEC("LRLIASON" ACCESS+1

Label References

Name Line Occurrences
@( TEST+7
CHECK TEST+1
CHK1 CODES+1
CHK2 CODES+1
LOCK LOCK+9
NAME DECIMAL+10, CODES+3, FREE+8
SITE CHECK+9
TEST BEGIN+3

Naked Globals

Name Field # of Occurrence
^("DT" DECIMAL+12*, CODES+5*, FREE+10*
^("XUS" CHECK+9
^(3 DECIMAL+12*, CODES+5*, FREE+10*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% END+1!, LOCK+20*, LOCK+21
DA END+1!, END+2, TEST+1*, TEST+3, CHECK+9*, LOCK+7, LOCK+8, LOCK+12*, LOCK+19, LOCK+20
DECIMAL+12, CODES+5, FREE+10
DA(1 TEST+10*
DIC END+1!, CHECK+2*
DIC(0 CHECK+2*
DIK END+1!, TEST+10*
>> DILOCKTM LOCK+6, LOCK+8
DIR END+1!
DIR("?" MIN+5*, MAX+5*, DECIMAL+5*
DIR("A" LOCK+17*, MIN+3*, MAX+3*, DECIMAL+3*
DIR("B" MAX+4*, DECIMAL+4*
DIR(0 LOCK+17*, MIN+2*, MAX+2*, DECIMAL+2*
DT DECIMAL+12, CODES+5, FREE+10
DTDOUT DECIMAL+1!
DTIME BEGIN+2*, TEST+1, TEST+4, CODES+1, FREE+1, FREE+5
DTOUT LOCK+9, MIN+1!, MIN+7, MAX+1!, MAX+7, DECIMAL+7
DUOUT LOCK+9, MIN+1!, MIN+7, MAX+1!, MAX+7, DECIMAL+7
DUTOU DECIMAL+1!
DUZ ACCESS+1
I END+1!, TEST+1*, TEST+4*, CHECK+9*, LOCK+12*, LOCK+20*, CODES+1*, FREE+1*, FREE+5*
LMX END+1!
LRDEC END+1!
LREND BEGIN+2*, END+1!, TEST+1, TEST+2, LOCK+9*, LOCK+18, SITE+2*
LRI END+1!
LRLO END+1!
LRMIN END+1!
LRMOD BEGIN+1~, BEGIN+2*, NAME+5
LRNAME END+1!, TEST+11, CHECK+2*, CHECK+5, LOCK+20, DECIMAL+12, CODES+5, CHK2+3, FREE+10, NAME+5
LROK END+1!, TEST+1*, TEST+7, CHECK+1*, CHECK+2*, CHECK+6*, CHECK+9, LOCK+21*, SITE+2*, MIN+7*
MAX+7*, DECIMAL+7*, DECIMAL+11, CODES+2*, CODES+4, FREE+2*, FREE+6*, FREE+9, NAME+6*
LROK1 END+1!, CODES+1*, CHK1*, CHK1+2*, CHK2*, CHK2+2*, CHK2+3*
LRPIECE END+1!
LRSET END+1!
LRTYPE END+1!
Q1 END+1!, TEST+7*
Q2 END+1!, CODES+1*, CODES+2, CODES+5, CHK2+2*, CHK2+3*
Q3 END+1!, MIN+8*, DECIMAL+12, CHK1+2*, CHK1+3*, CHK2+3, FREE+3*, FREE+5, FREE+10
Q4 END+1!, MAX+8*, DECIMAL+12, CHK2+3*, FREE+7*, FREE+10
Q5 END+1!, DECIMAL+8*, DECIMAL+12
U BEGIN+2*, TEST+1, TEST+3, TEST+4, TEST+5, TEST+9, CHECK+1, CHECK+9, CHK1CHK2
FREE+1, FREE+2, FREE+5, FREE+6
X END+1!, TEST+1*, TEST+3, TEST+4*, TEST+5, TEST+7, CHECK+1, CHECK+2, CODES+1*, CHK1
CHK1+2, CHK1+3, CHK2CHK2+2, CHK2+3, FREE+1*, FREE+2, FREE+3, FREE+5*, FREE+6
FREE+7
Y END+1!, CHECK+2, MIN+8, MAX+7, MAX+8, DECIMAL+7, DECIMAL+8
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All