Routine: SRSBOUT

Information

SRSBOUT ;B'HAM ISC/MAM - BLOCK OUT TIME ON OR SCHEDULE ; [ 09/22/98 11:36 AM ]

Call Graph

Call Graph Total: 9

Package	Total	Call Graph
VA FileMan	5	^%DT (,C)^%DTC ^DIC ^DIE ^DIR
Surgery	4	(BLOCKED,CHK,CURRENT)^SRSBUTL ^SRSKILL ^SRSTIME PATRN^SRSUTL

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 2

Package	Total	Caller Graph
Surgery	2	SRSBOUT SRSBUTL

Entry Points

Name	Comments	DBIA/ICR reference
CNG
INT	; collision with service at the same time
S	; set up ^SRS
END
MNTH	; one day each month
SER	; select service
ROOM	; select operating room
DATE	; select date to begin
TIME	; select starting and ending times
PAT
MUL2	;
CK1
CK2
CK0
CK3
CK5
CK4
UPDATE
HELP

External References

Name	Field # of Occurrence
^%DT	DATE+1
^%DTC	PAT+3, PAT+5
C^%DTC	CK0, CK5, CK4, UPDATE
^DIC	ROOM+1
^DIE	MUL2+1
^DIR	INT+9
BLOCKED^SRSBUTL	PAT+8
CHK^SRSBUTL	PAT+8
CURRENT^SRSBUTL	SER+1
^SRSKILL	END+2
^SRSTIME	TIME+1
PATRN^SRSUTL	UPDATE+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Time collision with '"_$P(SRSSER1,"^",5)_"' which has reservations from "_STIME_" to "_ETIME_".",! Line Location: INT+2
Function Call: WRITE	Prompt: !,"I will search for available openings. Please wait." Line Location: INT+5
Function Call: WRITE	Prompt: !,?5,$E(SRSDT,4,5),"-",$E(SRSDT,6,7),"-",$E(SRSDT,2,3)," is not available" Line Location: INT+7
Function Call: WRITE	Prompt: !,?5,$E(SRSDT,4,5),"-",$E(SRSDT,6,7),"-",$E(SRSDT,2,3)," is available" Line Location: INT+8
Function Call: WRITE	Prompt: !!,"Your Service Block has not been set." Line Location: INT+10
Function Call: WRITE	Prompt: !!,"Press RETURN to continue " Line Location: END+0
Function Call: WRITE	Prompt: @IOF Line Location: END+2
Function Call: READ	Timeout: DTIME Line Location: MNTH+1
Function Call: WRITE	Prompt: !!,"If this blockout should appear on the same day every month, on the last",!,"week of that month, enter 'YES'. Otherwise, enter RETURN." Line Location: MNTH+3
Function Call: READ	Timeout: DTIME Line Location: SER+2
Function Call: WRITE	Prompt: !!,"You service abbreviation cannot include the equal sign." Line Location: SER+4
Function Call: WRITE	Prompt: !!!,"Enter a 3 to 4 letter abbreviation for the service, i.e. card, gen, gi.",!! Line Location: SER+5
Function Call: WRITE	Prompt: !!,"Your service abbreviation cannot include the letter 'X'." Line Location: SER+6
Function Call: WRITE	Prompt: !!,"Abbreviation must be 3 to 4 characters. " Line Location: SER+7
Function Call: WRITE	Prompt: !!,?5,"A Service Block for """,SRSSER,""" already exists. Please try agian." Line Location: ROOM+2
Function Call: WRITE	Prompt: !!,"Past dates cannot be entered." Line Location: DATE+1
Function Call: READ	Formatting: !! Prompt: "Select Number: " Variable: Z Timeout: DTIME Line Location: PAT+0
Function Call: WRITE	Prompt: !!,"Enter 1, 2, or 3." Line Location: PAT+2
Function Call: WRITE	Prompt: !!,"Updating Schedules...",! Line Location: PAT+11
Function Call: WRITE	Prompt: !!,"Enter '1' to create the blockout on the same day and time every week, '2' to",!,"create the blockout on the same day and time every other week, or '3' to " Line Location: HELP+0
Function Call: WRITE	Prompt: !,"create the blockout for the same day of the week and week of the month only." Line Location: HELP+1
Routine Call	DIC Line Location: ROOM+1
Routine Call	DIE Line Location: MUL2+1
Routine Call	DIR Line Location: INT+9

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^SRS - [#131.7]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^SRS - [#131.7]	S+1, S+2, S+3*, MUL2+3, UPDATE+2
^SRS("R"	CNG, INT+1, PAT+9
^SRS("SER"	ROOM+2
^TMP($J	END+1!

Label References

Name	Line Occurrences
CK0	CK0, CK3
CK1	CK1
CK2	CK2
CK4	CK4
CK5	CK4
CNG	PAT+9
DATE	DATE+1
END	SER+2, SER+3, ROOM+1, DATE+1, TIME+1, PAT, PAT+10, CK4+1
HELP	PAT+1
INT	CNG+1
MNTH	MNTH+3, PAT+4
PAT	PAT+1, PAT+2
S	MUL2+3
SER	SER+4, SER+5, SER+6, SER+7, ROOM+2
UPDATE	MUL2+4, CK1, CK2, CK3, CK4

Naked Globals

Name	Field # of Occurrence
^(	CNG

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	DATE+1*
>> %DT("A"	DATE+1*
>> DA	MUL2+1*
DIC	ROOM+1!*
DIC("A"	ROOM+1*
DIC("S"	ROOM+1*
DIC(0	ROOM+1*
DIE	MUL2+1!*
DIR	INT+9~
DIR("A"	INT+9*
DIR("B"	INT+9*
DIR(0	INT+9*
DR	MUL2+1!*
DR(2	MUL2+1*
DR(3	MUL2+1*
DR(4	MUL2+1*
DT	DATE+1
DTIME	END, MNTH+1, SER+2, PAT
DUZ	MUL2+1, MUL2+2
>> EN1	CNG*, CNG+1
>> EN2	CNG*, CNG+1
>> ETIME	INT+1*, INT+2
>> I	CNG, INT+1, PAT+9*
IOF	END+2
>> J	CNG, CNG+1, INT+1, PAT+9*
SRBCHK	END+1!
SRBCHK(	INT+4, INT+6, INT+7, INT+8, UPDATE+1
SRBFLG	INT+10, END+1!, PAT+7, PAT+10
SRBPRG	END+1!, SER+1, ROOM+1
>> SRMM	SER+8*
>> SRS1	CNG*, CNG+1
>> SRS2	CNG*, CNG+1
>> SRSBANG	INT+2, TIME+1, PAT+9, PAT+10
>> SRSBOUT	MUL2+2*
>> SRSDATE	INT+4, S+1, S+2, S+3, DATE+1, PAT+3, PAT+5, MUL2+3, CK0, CK5* , CK4, UPDATE, UPDATE+1, UPDATE+2
>> SRSDAY	CNG, INT+1, PAT+5*, PAT+9, MUL2+1, MUL2+2
SRSDT	INT+6~*, INT+7, INT+8
>> SRSET	CNG, PAT+6*, MUL2+1
>> SRSNUM	CNG+1, PAT+5*, MUL2+1, CK1, CK2, CK0, CK3, CK5, CK4
>> SRSOR	CNG, INT+1, S+1, S+2, S+3, ROOM+1*, ROOM+2, PAT+9, MUL2+1, MUL2+3 , UPDATE+2
>> SRSOUT	MNTH+1, TIME+1, PAT*, PAT+4
>> SRSSER	INT+4, SER+2, SER+3, SER+4, SER+5, SER+6, SER+7, SER+8, ROOM+2, MUL2+1 , MUL2+2
>> SRSSER1	INT+1*, INT+2
>> SRSST	CNG, PAT+6*, MUL2+1
>> SRSTIME	PAT+6, MUL2+2
>> STIME	INT+1*, INT+2
>> X	END, PAT+3, PAT+5, MUL2+2, CK1, CK2, CK0, CK3, CK5, CK4 , UPDATE, UPDATE+2*
>> X1	PAT+3, PAT+5, CK0, CK5, CK4, UPDATE
>> X2	PAT+3, PAT+5, CK0, CK5, CK4, UPDATE
>> X5	CK0, CK4
Y	INT+9~, ROOM+1, DATE+1, PAT+5*
>> Z	MNTH+2, PAT, PAT+1, PAT+2, PAT+3*, PAT+4, PAT+5
>> Z1	MNTH+1, MNTH+2, MNTH+3

Customize PDF page

Package: Surgery