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 ; Sep 14, 2021@10:02

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 ;
DECIMAL ;LR*5.2*558: decimal query moved to be ask first so that
MIN ;
MAX ;
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, DECIMAL+12, MIN+16, MAX+21, MAX+34
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
    • DECIMAL+12
    • MIN+16
    • MAX+21
    • MAX+34

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, MAX+39*, 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
MIN MAX+26
NAME MAX+37, CODES+3, FREE+8
SITE CHECK+9
TEST BEGIN+3

Naked Globals

Name Field # of Occurrence
^("DT" MAX+39*, CODES+5*, FREE+10*
^("XUS" CHECK+9
^(3 MAX+39*, 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
, MAX+39, 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!, DECIMAL+6~, MIN+5~, MAX+5~, MAX+30~
DIR("?" DECIMAL+11*, MIN+15*, MAX+20*
DIR("A" LOCK+17*, DECIMAL+9*, MIN+13*, MAX+14*, MAX+31*, MAX+32*
DIR("B" DECIMAL+10*, MAX+19*, MAX+33*
DIR("PRE" MIN+12*, MAX+13*
DIR(0 LOCK+17*, DECIMAL+8*, MIN+8*, MAX+9*, MAX+33*
DT MAX+39, CODES+5, FREE+10
DTIME BEGIN+2*, TEST+1, TEST+4, CODES+1, FREE+1, FREE+5
DTOUT LOCK+9, DECIMAL+5!, DECIMAL+13, MIN+1!, MIN+17, MAX+1!, MAX+22
DUOUT LOCK+9, DECIMAL+5!, DECIMAL+13, MIN+1!, MIN+17, MAX+1!, MAX+22
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*
LRHIGH MAX+5~, MAX+23*, MAX+25*, MAX+26
LRI END+1!
LRLO END+1!
LRLOW MIN+5~, MIN+18*, MIN+21*, MAX+19, MAX+26
LRMIN END+1!
LRMOD BEGIN+1~, BEGIN+2*, NAME+5
LRNAME END+1!, TEST+11, CHECK+2*, CHECK+5, LOCK+20, MAX+39, 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*, DECIMAL+13*
, MIN+17*, MAX+22*, MAX+38, 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!
LRPREFIX MIN+5~, MIN+19, MIN+21, MAX+5~, MAX+24, MAX+25
LRSET END+1!
LRTYPE END+1!
LRVALHIT MAX+5~, MAX+6*, MAX+26, MAX+35*
Q1 END+1!, TEST+7*
Q2 END+1!, CODES+1*, CODES+2, CODES+5, CHK2+2*, CHK2+3*
Q3 END+1!, MIN+18*, MIN+19*, MIN+21, MAX+19, MAX+39, CHK1+2*, CHK1+3*, CHK2+3, FREE+3*
, FREE+5, FREE+10
Q4 END+1!, MAX+23*, MAX+24*, MAX+25, MAX+39, CHK2+3*, FREE+7*, FREE+10
Q5 END+1!, DECIMAL+14*, MIN+8, MAX+9, MAX+39
U BEGIN+2*, TEST+1, TEST+3, TEST+4, TEST+5, TEST+9, CHECK+1, CHECK+9, 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, DECIMAL+6~, DECIMAL+13, DECIMAL+14, MIN+5~, MIN+18, MAX+5~, MAX+22, MAX+23
, MAX+30~, MAX+35
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All