Routine: SRSCHOR

Information

SRSCHOR ;B'HAM ISC/ADM - SCHEDULE OPERATING ROOM; 23 Oct 1992 9:05 AM

Source file <SRSCHOR.m>

Package	Total	Call Graph
Surgery	3	^SRSDISP ^SRSGRPH ^SRSTIME
VA Fileman	2	^%DTC ^DIR

Package	Total	Caller Graph
Surgery	2	SRSCHD SRSCHDC

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: ROOM+0
Function Call: WRITE	Prompt: !!,"To schedule a case an operating room MUST be selected. Enter '^' to exit.",! Line Location: ROOM+1
Function Call: WRITE	Prompt: !!,"Overlapping reservations on "_$E(SRSDATE,4,5)_"/"_$E(SRSDATE,6,7)_"/"_$E(SRSDATE,2,3)_". This case cannot be scheduled." Line Location: LAP+0
Function Call: WRITE	Prompt: !!,"Press RETURN to continue " Line Location: LAP+1
Routine Call	DIR Line Location: ROOM

Name	Line Occurrences (* Changed, ! Killed)
^SRS - [#131.7]	PATRN+1

Name	Field # of Occurrence
>> COUNT	ROOM+5, PATRN+2, PATRN+4*
DIR	ROOM!
DIR("A"	ROOM*
DIR(0	ROOM*
DTIME	LAP+1
>> DTOUT	ROOM
>> DUOUT	ROOM
>> I	GRPH+2*
>> MM	ROOM+5*
>> P	ROOM+3*
>> S	GRPH+1, GRPH+2, PATRN+2, PATRN+4*
SRGRPH	ROOM+5!
SRGRPH(	PATRN+2*, PATRN+4
>> SRNOREQ	DISP*
>> SRS1	GRPH+1, GRPH+2, PATRN+1, PATRN+2, PATRN+4
>> SRS2	GRPH+1, GRPH+2, PATRN+1, PATRN+2, PATRN+4
>> SRSAVE	ROOM+5*, PATRN+5
>> SRSDATE	ROOM+2, ROOM+5, PATRN+1, PATRN+2, PATRN+3, PATRN+4, PATRN+5*, LAP, DW
>> SRSDAY	ROOM+2, DW
>> SRSDT1	ROOM+5
>> SRSDT2	ROOM+5
SRSDT3	ROOM+5!*, PATRN+3!
>> SRSET	ROOM+3, GRPH, GRPH+1
>> SRSET1	PATRN+3
>> SRSOR	ROOM+2*, PATRN+1
>> SRSOUT	DISP, ROOM, ROOM+3, ROOM+4
>> SRSST	ROOM+3, GRPH, GRPH+1
>> SRSTIME	ROOM+5, GRPH, PATRN+3
>> X	ROOM+2, LAP+1*, DW
>> X1	ROOM+2, DW
>> X2	ROOM+2, DW
>> XX	ROOM+5*
>> Y	ROOM+1, ROOM+2
>> Z	ROOM+4*