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

Package: Surgery

Routine: SRSWL1


Information

SRSWL1 ;B'HAM ISC/MAM - WAITING LIST, BRIEF-ALL ; 17 OCT 1989 7:35 AM

Source Information

Source file <SRSWL1.m>

Entry Points

Name Comments DBIA/ICR reference
BEG ; entry when queued
END
HDR ; print heading
MORE ; continue looping on 'WL' x-ref
PRINT ; print information
LOOP ; break operation if greater than 39 characters
PAGE ; end of page

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: SRSWL1+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: @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
Function Call: WRITE
  • Prompt: !,SRDT,?15,SRSDPT,?40,SROP(1),!,"Tentative Admission: "_SRADT
  • Line Location: PRINT+7
Function Call: WRITE
  • Prompt: ?40,SROP(2)
  • Line Location: PRINT+7
Function Call: WRITE
  • Prompt: !,"Tentative Date of Operation: "_SROPDT
  • Line Location: PRINT+8
Function Call: WRITE
  • Prompt: !,"* Procedure performed since entry on list ("_SROLD("DATE")_")"
  • Line Location: PRINT+9
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+10
Function Call: WRITE
  • Prompt: "-"
  • Line Location: PRINT+10
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: PAGE+2
Info |  Source |  Entry Points |  Interaction Calls