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

Package: Lab Service

Routine: LRULA


Information

LRULA ;AVAMC/REG - EDIT LOCATION ;3/9/94 13:28 ;

Source Information

Source file <LRULA.m>

Entry Points

Name Comments DBIA/ICR reference
A
D
L
END

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: A+0
Function Call: WRITE
  • Prompt: $C(7),!,"No date for ",LRAA(1)
  • Line Location: D+0
Function Call: READ
  • Formatting: !!
  • Prompt: "Select Accession Number: "
  • Variable: LRAN
  • Timeout: DTIME
  • Line Location: L+0
Function Call: WRITE
  • Prompt: $C(7)," Enter numbers only."
  • Line Location: L+0
Function Call: WRITE
  • Prompt: $C(7),!,"Accession ",LRAN," for ",LRD," doesn't exist for ",LRAA(1)
  • Line Location: L+1
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: L+2
Function Call: WRITE
  • Prompt: $C(7),!,"LOCATION ABBREVIATION DOES NOT EXIST"
  • Line Location: L+3
Info |  Source |  Entry Points |  Interaction Calls