Routine: SRSBDEL

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

Package

Total

Call Graph

Surgery

$$ORDIV^SROUTL0 DAYCHK^SRSBD1 ^SRSKILL

VA Fileman

^%DT (C,DW)^%DTC ^DIK

Package	Total	Caller Graph
Surgery	1	SRSBDEL

Package

Total

Caller Graph

Surgery

SRSBDEL

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

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

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

Local Variables

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

Customize PDF page

Package: Surgery

Routine: SRSBDEL

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

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