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

Package: Surgery

Routine: SRSWL6


Information

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

Source Information

Source file <SRSWL6.m>

Entry Points

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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: SRSWL6+3
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+15
Function Call: WRITE
  • Prompt: ?40,SROP(2)
  • Line Location: PRINT+15
Function Call: WRITE
  • Prompt: !,"Tentative Date of Operation: "_SROPDT
  • Line Location: PRINT+18
Function Call: WRITE
  • Prompt: !,"* Procedure performed since entry on list ("_SROLD("DATE")_")"
  • Line Location: PRINT+20
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+22
Function Call: WRITE
  • Prompt: "-"
  • Line Location: PRINT+22
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: PAGE+3
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,"Surgery Waiting List for "_NAME,!,"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