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

Package: Lab Service

Routine: LRWU6


Information

LRWU6 ;DALOI/STAFF - MODIFY AN EXISTING DATA NAME ;11/04/11 10:19

Source Information

Source file <LRWU6.m>

Entry Points

Name Comments DBIA/ICR reference
ACCESS ;
BEGIN ;
END
TEST ;
DDFIX ;Called from LRWU9 to fix piece position of data name
LOCK ;
DISPLAY ;
NUM ; Numeric data type
FREE ; Free Text datatype
SET ; Set of codes data type
FIX ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!,"You do not have access to this option"
  • Line Location: ACCESS+6
Function Call: WRITE
  • Prompt: !!,"This option allows modifying an existing data name."
  • Line Location: BEGIN+4
Function Call: WRITE
  • Prompt: !
  • Line Location: TEST+11
Function Call: WRITE
  • Prompt: !,"Do you wish to modify this data name"
  • Line Location: TEST+12
Function Call: WRITE
  • Prompt: "Answer 'Y'es or 'N'o"
  • Line Location: TEST+12
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: TEST+15
Function Call: WRITE
  • Prompt: !,"Enter data type for ",LRNAME,": (N)umeric, (S)et of Codes, or (F)ree text? "
  • Line Location: TEST+15
Function Call: WRITE
  • Prompt: !,"Enter 'N', 'S', 'F', or '^'"
  • Line Location: TEST+15
Function Call: WRITE
  • Prompt: !,"Nothing has been changed."
  • Line Location: TEST+19
Function Call: WRITE
  • Prompt: !,$C(7),"Someone else is editing this data name."
  • Line Location: LOCK+5
Function Call: WRITE
  • Prompt: !!,"Data Name: ",LRNAME," Subfield #: ",DA," Type: NUMERIC",!,"Input Transform: ",Q2
  • Line Location: NUM+8
Function Call: WRITE
  • Prompt: !,"Minimum value: ",LRLO,!,"Maximum value: ",LRHI,!,"Maximum # decimal digits: ",LRDEC
  • Line Location: NUM+14
Function Call: WRITE
  • Prompt: !!,"Data Name: ",LRNAME," Subfield #: ",DA," Type: FREE TEXT",!,"Input Transform: ",Q2
  • Line Location: FREE+8
Function Call: WRITE
  • Prompt: !,"Minimum length: ",LRMIN,!,"Maximum length: ",LRMAX
  • Line Location: FREE+13
Function Call: WRITE
  • Prompt: !!,"Data Name: ",LRNAME," Subfield #: ",DA," Type: SET OF CODES"
  • Line Location: SET+8
Function Call: WRITE
  • Prompt: !,$P(LRSET,":")," - ",$P(LRSET,":",2)
  • Line Location: SET+13
Function Call: WRITE
  • Prompt: "."
  • Line Location: FIX+5
Info |  Source |  Entry Points |  Interaction Calls