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

Package: Lab Service

Routine: LRLABXOL


Information

LRLABXOL ;RVAMC/PLS/DALISC/FHS - REPRINT ACCESSION LABELS FOR ENTIRE ORDER ; 5/19/93 07:40

Source Information

Source file <LRLABXOL.m>

Entry Points

Name Comments DBIA/ICR reference
EN
1
QUE ;
2 ;
SQ ; Search for accession numbers and build LRORD array 'ORD #(SEQ #,ACC AREA,ACC DATE, ACC #)=""'
PRINT ; Loop thru array and print labels.
END ;

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Variable: LRORD
  • Timeout: DTIME
  • Line Location: 1+1
Function Call: WRITE
  • Prompt: !,"Enter a whole number for the order number."
  • Line Location: 1+1
Function Call: WRITE
  • Prompt: " ORDER NUMBER NOT FOUND"
  • Line Location: 1+4
Function Call: WRITE
  • Prompt: !!,"All tests for this order have been canceled."
  • Line Location: 1+5
Function Call: WRITE
  • Prompt: !,"Labels have been tasked to print ",!
  • Line Location: 1+9
Function Call: WRITE
  • Prompt: !?10,"Label(s) Printed",!
  • Line Location: 1+12
Info |  Source |  Entry Points |  Interaction Calls