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

Package: Surgery

Routine: SROWL0


Information

SROWL0 ;B'HAM ISC/MAM - EDIT OR DELETE WAITING LIST ; 16 OCT 1989 08:00

Source Information

Source file <SROWL0.m>

Entry Points

Name Comments DBIA/ICR reference
DEL
EDIT
LIST
DIE
DIK ; delete entry
END
ARRAY ; set array containing waiting list info
LOOP ; break procedure if greater than 36 characters

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!
  • Line Location: EDIT+1
Function Call: WRITE
  • Prompt: @IOF,!,"Procedures entered on the Waiting List for "_SRSDPT,!!
  • Line Location: LIST+0
Function Call: WRITE
  • Prompt: !!,"There are no entries on the Waiting List for "_SRSDPT_".",!!
  • Line Location: LIST+2
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: LIST+4
Function Call: WRITE
  • Prompt: !!!,"Select Number: "
  • Line Location: LIST+4
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: LIST+5
Function Call: WRITE
  • Prompt: !!,"Select the number corresponding to the entry you want to "_$S(SRDEL:"delete",1:"edit")_". Enter '^'",!,"to quit this option.",!!,"Press RETURN to continue "
  • Line Location: LIST+5
Function Call: READ
  • Variable: SRYN
  • Timeout: DTIME
  • Line Location: DIK+1
Function Call: WRITE
  • Prompt: !!,"Enter 'NO' if you have made a mistake and do not want to remove this",!,"procedure from the list, or 'YES' to delete the entry."
  • Line Location: DIK+2
Function Call: WRITE
  • Prompt: !!,"No action taken."
  • Line Location: DIK+3
Function Call: WRITE
  • Prompt: !!,SRSDPT_" has been removed from the Waiting List."
  • Line Location: DIK+5
Function Call: WRITE
  • Prompt: !!,"Press RETURN to continue "
  • Line Location: END+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+1
Function Call: WRITE
  • Prompt: !,CNT_". "_SRSNM,?40,"Date Entered on List:",?66,SRDT,!,?3,SROP(1),?40,"Tentative Operation Date: ",?66,SROPDT
  • Line Location: ARRAY+5
Function Call: WRITE
  • Prompt: !,?3,SROP(2)
  • Line Location: ARRAY+6
Function Call: WRITE
  • Prompt: !
  • Line Location: ARRAY+7
Info |  Source |  Entry Points |  Interaction Calls