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

Call Graph Total: 7

Package Total Call Graph
Surgery 4 $$ORDIV^SROUTL0  DAYCHK^SRSBD1  (CURRENT,DELCHK)^SRSBUTL  ^SRSKILL  
VA FileMan 3 ^%DT  (C,DW)^%DTC  ^DIK  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Surgery 1 SRSBDEL  

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

External References

Name Field # of Occurrence
^%DT DATE
C^%DTC CK0, CK5, CK4, UPDATE
DW^%DTC DATE
^DIK MULD+5, MULD+6
$$ORDIV^SROUTL0 SER+8
DAYCHK^SRSBD1 DATE+3
CURRENT^SRSBUTL SER+1
DELCHK^SRSBUTL MULD+4
^SRSKILL END+1

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

Global Variables Directly Accessed

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

Label References

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

Naked Globals

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT DATE*
>> %DT("A" DATE*
>> CNT SER+7*, SER+10, NUM+1, TIME*
>> DA MULD+4*, MULD+6*
>> DA(1 MULD+4*, MULD+5, MULD+6*
>> DA(2 MULD+4*, MULD+5, MULD+6*
>> DA(3 MULD+4*, MULD+5, MULD+6!
>> DAY SER+9*, STDATE*, DATE+2, DATE+4, DAY, TIME, MULD+4, MULD+7
>> DAY2 DATE+2, DAY*, TIME
>> DAYOFW DATE*, DATE+2
>> DIK MULD+5*, MULD+6*
DT DATE+1
DTIME SER+3, NUM, ASK, END
>> ETIME TIME*
>> I SER+7*, SER+9*, SER+10*, DEL+2*, DEL+5*, TIME*, MULD+1*, QUES*
IOF END+1
>> NUM NUM*, NUM+1, STDATE
>> OR SER+7*, SER+8, SER+9, TIME
>> S DEL+2*, DEL+3, MULD+1*, MULD+2
>> SERV QUES*
SRBCKH DEL+1, MULD+2*, END+1!
SRBPRG SER+1*, END+1!
>> SRCHK DATE+3
>> SRMM SER+5*
>> SRS1 DEL+2*, DEL+3, DEL+5
>> SRS2 DEL+2*, DEL+3, DEL+5
>> SRSALL ASK+3*, DEL, DEL+7, MULD+3
>> SRSDATE DATE*, DATE+1, DEL+1, DEL+3, DEL+4, DEL+6, CK0*, CK5*, CK4*, UPDATE*
>> SRSET STDATE*, DEL+2
>> SRSITE("DIV" SER+8
>> SRSNUM DATE+4*, CK1, CK2, CK0, CK3, CK5, CK4, MULD+7
>> SRSOR SER+9*, STDATE*, DATE+4, DEL+1, DEL+3, DEL+4, DEL+6, UPDATE, TIME, MULD+4
, MULD+7
>> SRSOR( SER+10, STDATE, TIME*
>> SRSOUT SER+2*, SER+3*, NUM*, END
>> SRSSER SER+3*, SER+4, SER+5*, SER+6, SER+7, SER+9, SER+10, DATE+3, DATE+4, TIME
, MULD+1, MULD+4, MULD+7
>> SRSST STDATE*, DATE+4, DEL+2, MULD+4, MULD+7
>> SRX1 MULD+1
>> SRX2 MULD+1
>> TIME TIME*
>> X DATE*, CK1*, CK2*, CK0, CK3*, CK5, CK4*, UPDATE*, MULD+4*, END*
>> X0 DEL+3*, DEL+5
>> X1 DEL+4*, DEL+5*, DEL+6, 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