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

Package: Lab Service

Routine: LRWU3


Information

LRWU3 ;SLC/RWF - COLLECT STARTING AND ENDING DATES FOR REPORTS ; 7/23/87 14:17 ;

Source Information

Source file <LRWU3.m>

Entry Points

Name Comments DBIA/ICR reference
A1
A2
A3
LRAN ;get first and last LRAN
W1
W2
W3
STAR ;set LRSTAR if list by date instead of accession number
S3
ADATE ;Get an accession date
ADHELP

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: A1+0
Function Call: WRITE
  • Prompt: !,"Date to START with: TODAY//"
  • Line Location: A1+0
Function Call: WRITE
  • Prompt: !,"Enter the most recent date you want."
  • Line Location: A1+0
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: A2+0
Function Call: WRITE
  • Prompt: !,"Date to END with: ",$S($D(LREDT):LREDT,1:"LAST"),"//"
  • Line Location: A2+0
Function Call: WRITE
  • Prompt: !,"Enter the oldest date you want.",!
  • Line Location: A2+0
Function Call: WRITE
  • Prompt: " (LAST)"
  • Line Location: A2+1
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: W1+0
Function Call: WRITE
  • Prompt: !,"First Accession number: 1//"
  • Line Location: W1+0
Function Call: WRITE
  • Prompt: !,"Enter the first Accession number to use"
  • Line Location: W1+0
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: W2+0
Function Call: WRITE
  • Prompt: !,"Last Accession number: LAST//"
  • Line Location: W2+0
Function Call: WRITE
  • Prompt: !,"Enter the Last Accession to use."
  • Line Location: W2+0
Function Call: WRITE
  • Prompt: !,"The last Accession number MUST be greater or equal to",!," the first Accession number"
  • Line Location: W2+1
Function Call: WRITE
  • Prompt: !,"Do you wish to list by date (rather than by accession number)"
  • Line Location: STAR+1
Function Call: WRITE
  • Prompt: !,"Answer 'Y'es or 'N'o."
  • Line Location: STAR+1
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: ADATE+1
Function Call: WRITE
  • Prompt: !,"Enter the date of the accession to be used. If the accession is done",!," on a yearly basis, enter the year, such as ",$E(DT,2,3),!
  • Line Location: ADHELP+0
Info |  Source |  Entry Points |  Interaction Calls