Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
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>

Call Graph

Call Graph Total: 6

Package Total Call Graph
Surgery 3 $$ORDIV^SROUTL0  DAYCHK^SRSBD1  ^SRSKILL  
VA Fileman 3 ^%DT  (C,DW)^%DTC  ^DIK  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Surgery 1 SRSBDEL  

Entry Points

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

External References

Name Field # of Occurrence
^%DT DATE
C^%DTC CK0, CK5, CK4, UPDATE
DW^%DTC DATE
^DIK MULD+2, MULD+3
$$ORDIV^SROUTL0 SER+7
DAYCHK^SRSBD1 DATE+3
^SRSKILL END+1

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Prompt: "Select service you wish to delete. (3-4 characters) "
  • Formatting: !!
  • Timeout: DTIME
  • Variable: SRSSER
  • Line Location: SER+2
Function Call: WRITE
  • Prompt: !!!,SRSSER_" does not exist.",!
  • Line Location: SER+5
Function Call: WRITE
  • Prompt: !!!,"The service '"_SRSSER_"' has the following time(s) scheduled: "
  • Line Location: SER+9
Function Call: WRITE
  • Prompt: !,?2,$P(SRSOR(I),"^")
  • Line Location: SER+9
Function Call: READ
  • Prompt: "Which number would you like to delete ? "
  • Formatting: !!!
  • Timeout: DTIME
  • Variable: NUM
  • 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
  • Timeout: DTIME
  • Variable: Z
  • 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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^SC - [#44] SER+8
^SRS - [#131.7] SER+8, DEL+1, DEL+2, DEL+4*, UPDATE, MULD+1, MULD+3
^SRS("C" QUES
^SRS("R" MULD+4!
^SRS("SER" SER+5, SER+6, SER+8, DATE+4, TIME, MULD+4!

Label References

Name Line Occurrences
ASK ASK+2
CK0 CK0, CK3
CK1 CK1, MULD+1
CK2 CK2
CK4 CK4
CK5 CK4
DATE DATE+1
DAY DATE+2, TIME
DEL UPDATE
END SER+2, NUM, DATE, DATE+3, ASK, DEL+5
MULD ASK+3
NUM NUM+1
QUES SER+3
SER SER+3, SER+5
STDATE DATE+2
TIME SER+8
UPDATE CK1, CK2, CK3, CK4, MULD+1

Naked Globals

Name Field # of Occurrence
^( TIME
^(1 DEL+1*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT DATE*
>> %DT("A" DATE*
>> CNT SER+6*, SER+9, NUM+1, TIME*
>> DA MULD+1*, MULD+3*
>> DA(1 MULD+1*, MULD+2, MULD+3*
>> DA(2 MULD+1*, MULD+2, MULD+3*
>> DA(3 MULD+1*, MULD+2, MULD+3!
>> DAY SER+8*, STDATE*, DATE+2, DATE+4, DAY, TIME, MULD+1, MULD+4
>> DAY2 DATE+2, DAY*, TIME
>> DAYOFW DATE*, DATE+2
>> DIK MULD+2*, MULD+3*
DT DATE+1
DTIME SER+2, NUM, ASK, END
>> ETIME TIME*
>> I SER+6*, SER+8*, SER+9*, DEL*, DEL+3*, TIME*, QUES*
IOF END+1
>> NUM NUM*, NUM+1, STDATE
>> OR SER+6*, SER+7, SER+8, TIME
>> S DEL*, DEL+1
>> SERV QUES*
>> SRCHK DATE+3
>> SRMM SER+4*
>> SRS1 DEL*, DEL+1, DEL+3
>> SRS2 DEL*, DEL+1, DEL+3
>> SRSALL ASK+3*, DEL+5
>> SRSDATE DATE*, DATE+1, DEL+1, DEL+2, DEL+4, CK0*, CK5*, CK4*, UPDATE*
>> SRSET STDATE*, DEL
>> SRSITE("DIV" SER+7
>> SRSNUM DATE+4*, CK1, CK2, CK0, CK3, CK5, CK4, MULD+4
>> SRSOR SER+8*, STDATE*, DATE+4, DEL+1, DEL+2, DEL+4, UPDATE, TIME, MULD+1, MULD+4
>> SRSOR( SER+9, STDATE, TIME*
>> SRSOUT SER+1*, SER+2*, NUM*, END
>> SRSSER SER+2*, SER+3, SER+4*, SER+5, SER+6, SER+8, SER+9, DATE+3, DATE+4, TIME
, MULD+1, MULD+4
>> SRSST STDATE*, DATE+4, DEL, MULD+1, MULD+4
>> TIME TIME*
>> X DATE*, CK1*, CK2*, CK0, CK3*, CK5, CK4*, UPDATE*, MULD+1*, END*
>> X0 DEL+1*, DEL+3
>> X1 DEL+2*, DEL+3*, DEL+4, CK0*, CK5*, CK4*, UPDATE*
>> X2 CK0*, CK5*, CK4*, UPDATE*
>> X5 CK0*, CK4*
>> Y DATE
>> Z ASK*, ASK+1*, ASK+2, ASK+3
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All