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

Package: Surgery

Routine: SRSBDEL


Information

SRSBDEL ;B'HAM ISC/MAM - DELETE SERVICE BLOCKOUT ; [ 01/08/98 9:54 AM ]

Source Information

Source file <SRSBDEL.m>

Entry Points

Name Comments DBIA/ICR reference
SER ; service abbreviation
NUM
STDATE
DATE
ASK
DEL
DAY
CK1
CK2
CK0
CK3
CK5
CK4
UPDATE
TIME
MULD ; delete all
END
QUES

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Formatting: !!
  • Prompt: "Select service you wish to delete. (3-4 characters) "
  • Variable: SRSSER
  • Timeout: DTIME
  • Line Location: SER+3
Function Call: WRITE
  • Prompt: !!!,SRSSER_" does not exist.",!
  • Line Location: SER+6
Function Call: WRITE
  • Prompt: !!!,"The service '"_SRSSER_"' has the following time(s) scheduled: "
  • Line Location: SER+10
Function Call: WRITE
  • Prompt: !,?2,$P(SRSOR(I),"^")
  • Line Location: SER+10
Function Call: READ
  • Formatting: !!!
  • Prompt: "Which number would you like to delete ? "
  • Variable: NUM
  • Timeout: DTIME
  • Line Location: NUM+0
Function Call: WRITE
  • Prompt: !!,"Enter a number from 1 to "_CNT_", or '^' to leave this option.",!
  • Line Location: NUM+1
Function Call: WRITE
  • Prompt: !
  • Line Location: DATE+0
Function Call: WRITE
  • Prompt: !!,"No action taken.",!
  • Condition for execution: Y<1
  • Line Location: DATE+0
Function Call: WRITE
  • Prompt: !!,"Past dates cannot be entered.",!
  • Line Location: DATE+1
Function Call: WRITE
  • Prompt: !!,"The date you entered is not a "
  • Line Location: DATE+2
Function Call: WRITE
  • Prompt: DAY2_".",!!
  • Line Location: DATE+2
Function Call: WRITE
  • Prompt: !!,"The service '"_SRSSER_"' is not scheduled for this date at the time period you",!,"have entered. The option 'Display Availability' may be used to determine",!,"the proper date."
  • Line Location: DATE+3
Function Call: READ
  • Variable: Z
  • Timeout: DTIME
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: !!,"If you only want to delete the blockout for this date, enter 'YES'. Enter",!,"RETURN to delete the blockout from this date on."
  • Line Location: ASK+2
Function Call: WRITE
  • Prompt: !!,"Updating Schedules...",!!
  • Line Location: ASK+3
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: !!,"Choose from: "
  • Line Location: QUES+0
Function Call: WRITE
  • Prompt: !,?5,SERV
  • Line Location: QUES+0
Info |  Source |  Entry Points |  Interaction Calls