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

Package: Surgery

Routine: SRSCAN


Information

SRSCAN ;B'HAM ISC/MAM - CANCEL SCHEDULED OPERATION;[JAN 30,2001@14:16]

Source Information

Source file <SRSCAN.m>

Entry Points

Name Comments DBIA/ICR reference
LOOK
ASK
OK
END
OTHER ; other operations
LOOP ; break procedure if greater than 60 characters
LIST ; list cases
OPS

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: SRSCAN+2
Function Call: WRITE
  • Prompt: @IOF,!,SRNAME,!
  • Line Location: SRSCAN+3
Function Call: WRITE
  • Prompt: !
  • Line Location: LOOK+0
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: LOOK+1
Function Call: WRITE
  • Prompt: !!,"There are no procedures scheduled for "_VADM(1)_".",!!
  • Line Location: LOOK+1
Function Call: WRITE
  • Prompt: !!,"Press RETURN to continue "
  • Line Location: LOOK+1
Function Call: READ
  • Formatting: !!
  • Prompt: "Select Number: "
  • Variable: SRNUM
  • Timeout: DTIME
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: !!,"Enter the number which corresponds to the case that you want to cancel."
  • Line Location: ASK+1
Function Call: WRITE
  • Prompt: !!,"You have entered an invalid number, please select again. "
  • Line Location: ASK+2
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: ASK+4
Function Call: WRITE
  • Prompt: !!,$C(7),"This operation already has a start time and cannot be cancelled.",!!,"Press RETURN to continue "
  • Line Location: ASK+4
Function Call: WRITE
  • Prompt: !!,"This operation is not scheduled."
  • Line Location: ASK+5
Function Call: READ
  • Formatting: !!
  • Prompt: "Is this the correct operation ? YES// "
  • Variable: SRYN
  • Timeout: DTIME
  • Line Location: OK+0
Function Call: WRITE
  • Prompt: !!,"Enter RETURN if this is the scheduled procedure that you want",!,"to cancel, or 'NO' to quit this option."
  • Line Location: OK+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+0
Function Call: WRITE
  • Prompt: !,CNT_". "_SRSDATE,?15,SROPS(1)
  • Line Location: OPS+4
Function Call: WRITE
  • Prompt: !,?15,SROPS(2)
  • Line Location: OPS+4
Function Call: WRITE
  • Prompt: !,?15,SROPS(2)
  • Line Location: OPS+4
Function Call: WRITE
  • Prompt: !,?15,SROPS(2)
  • Line Location: OPS+4
Function Call: WRITE
  • Prompt: !,?15,SROPS(2)
  • Line Location: OPS+4
Info |  Source |  Entry Points |  Interaction Calls