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

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

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
Info |  Source |  Entry Points |  Interaction Calls