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

Package: Surgery

Routine: SRSWL14


Information

SRSWL14 ;BIR/MAM - WAITING LIST, BRIEF-ONE ; [ 12/06/99 11:10 AM ]

Source Information

Source file <SRSWL14.m>

Entry Points

Name Comments DBIA/ICR reference
BEG ; entry when queued
END
MORE
ANOTHER
PRINT ; print information
PAGE ; end of page
HDR ; print heading
LOOP ; break operation if greater than 39 characters

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: SRSWL14+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+0
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: END+2
Function Call: WRITE
  • Prompt: !!,"Press RETURN to continue "
  • Line Location: END+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+2
Function Call: WRITE
  • Prompt: !,SRDT,?15,SRSDPT,?40,SROP(1),!,"Tentative Admission: "_SRADT
  • Line Location: PRINT+8
Function Call: WRITE
  • Prompt: ?40,SROP(2)
  • Line Location: PRINT+8
Function Call: WRITE
  • Prompt: !,"Tentative Date of Operation: "_TEMPDT
  • Line Location: PRINT+9
Function Call: WRITE
  • Prompt: !,"* Procedure performed since entry on list ("_SROLD("DATE")_")"
  • Line Location: PRINT+10
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+11
Function Call: WRITE
  • Prompt: "-"
  • Line Location: PRINT+11
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: PAGE+2
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,"Surgery Waiting List for ",SRSNM,!,"Printed "_SRTIME,!!,"Date Entered",?15,"Patient",?40,"Operative Procedure",!
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: "="
  • Line Location: HDR+2
Info |  Source |  Entry Points |  Interaction Calls