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 ;
SITE ;
NUM ;
MIN ;
MAX ;
DECIMAL ;
CODES ;
CHK1
CHK2
FREE ;

External References

Name Field # of Occurrence
^DIC CHECK+2
YN^DICN CHECK+4
IX1^DIK TEST+9
^DIR MIN+6, MAX+6, DECIMAL+6
DISPLAY^LRWU6 TEST+10
DT^LRX BEGIN+1

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+1
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+10
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+10
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: !,"ARE YOU ADDING ",LRNAME," (SUBFIELD # ",DA,") AS A NEW DATA NAME"
  • Line Location: CHECK+4
Function Call: WRITE
  • Prompt: " Answer 'Y'es or 'N'o."
  • Line Location: CHECK+4
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
Routine Call
  • DIC
  • Line Location:
    • CHECK+2
Routine Call
  • DIR
  • Line Location:
    • MIN+6
    • MAX+6
    • DECIMAL+6

Global Variables Directly Accessed

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

Label References

Name Line Occurrences
@( TEST+7
CHECK TEST+1
CHK1 CODES+1
CHK2 CODES+1
SITE CHECK+3
TEST BEGIN+1

Naked Globals

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% END+1!, CHECK+4*, CHECK+5
DA END+1!, TEST+1*, TEST+3, CHECK+3*, CHECK+4, DECIMAL+10, CODES+3, FREE+8
DA(1 TEST+9*
DIC END+1!, CHECK+2*
DIC(0 CHECK+2*
DIK END+1!, TEST+9*
DIR END+1!
DIR("?" MIN+5*, MAX+5*, DECIMAL+5*
DIR("A" MIN+3*, MAX+3*, DECIMAL+3*
DIR("B" MAX+4*, DECIMAL+4*
DIR(0 MIN+2*, MAX+2*, DECIMAL+2*
DT DECIMAL+10, CODES+3, FREE+8
DTDOUT DECIMAL+1!
DTIME BEGIN+1*, TEST+1, TEST+4, CODES+1, FREE+1, FREE+5
DTOUT MIN+1!, MIN+7, MAX+1!, MAX+7, DECIMAL+7
DUOUT MIN+1!, MIN+7, MAX+1!, MAX+7, DECIMAL+7
DUTOU DECIMAL+1!
DUZ ACCESS+1
I END+1!, TEST+1*, TEST+4*, CHECK+3*, CHECK+4*, CODES+1*, FREE+1*, FREE+5*
LMX END+1!
LRDEC END+1!
LREND BEGIN+1*, END+1!, TEST+1, TEST+2, SITE+2*
LRI END+1!
LRLO END+1!
LRMIN END+1!
LRNAME END+1!, TEST+10, CHECK+2*, CHECK+4, DECIMAL+10, CODES+3, CHK2+3, FREE+8
LROK END+1!, TEST+1*, TEST+7, CHECK+1*, CHECK+2*, CHECK+3, CHECK+5*, SITE+2*, MIN+7*, MAX+7*
, DECIMAL+7*, CODES+2*, FREE+2*, FREE+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+3, CHK2+2*, CHK2+3*
Q3 END+1!, MIN+8*, DECIMAL+10, CHK1+2*, CHK1+3*, CHK2+3, FREE+3*, FREE+5, FREE+8
Q4 END+1!, MAX+8*, DECIMAL+10, CHK2+3*, FREE+7*, FREE+8
Q5 END+1!, DECIMAL+8*, DECIMAL+10
U BEGIN+1*, TEST+1, TEST+3, TEST+4, TEST+5, TEST+8, CHECK+1, CHECK+3, CHK1, CHK2
, 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, CHK2, CHK2+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