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

Package: Lab Service

Routine: LRNDLST


Information

LRNDLST ;SLC/CJS - PRINT LIST OF NON-DRAW ORDERS ;2/19/91 11:03 ;

Source Information

Source file <LRNDLST.m>

Entry Points

Name Comments DBIA/ICR reference
END
GO
ORD
PRNT ;
EN

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?10," You may enter 'ALL' as a response",!
  • Line Location: LRNDLST+2
Function Call: WRITE
  • Prompt: !!?10,"Report Queued to device "_ION,!
  • Line Location: LRNDLST+5
Function Call: READ
  • Variable: %
  • Timeout: DTIME
  • Line Location: END+3
Function Call: WRITE
  • Prompt: !,"Answer 'Y' or 'N': "
  • Line Location: END+3
Function Call: READ
  • Prompt: ""'^' TO HALT: ""
  • Variable: W
  • Timeout: DTIME
  • Line Location: GO+1
Function Call: WRITE
  • Prompt: !,"REPORT EMPTY"
  • Line Location: GO+4
Function Call: WRITE
  • Prompt: !,"Finished",!
  • Line Location: GO+5
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $E(IOST,1,2)="P-"
  • Line Location: GO+5
Function Call: WRITE
  • Prompt: @IOF,!,"LIST OF PATIENT LAB ORDERS NOT DRAWN "_Y,!!!?10,"LISTING FOR ( ",LRLLOC," ) ",?50,"PG: ",PG,!
  • Line Location: ORD+4
Function Call: WRITE
  • Prompt: @IOF,!!?10,"LISTING FOR ( ",LRLLOC," ) ",?50,"PG: ",PG,!
  • Line Location: PRNT+4
Info |  Source |  Entry Points |  Interaction Calls