Routine: SRSTIME

Information

SRSTIME ;B'HAM ISC/MAM - SET SCHEDULE TIMES ; 15 NOV 1991 1:20 PM

Package	Total	Call Graph
VA Fileman	4	^%DT C^%DTC D^DIQ ^DIR

Package	Total	Caller Graph
Surgery	5	SRSBOUT SRSCHC SRSCHD2 SRSCHOR SRSUP1

Name	Comments	DBIA/ICR reference
ASK
TIMES2	; ending time
CHK
TOMM	; next day end time
TIMES	; sets starting and ending times for reservations

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: TIMES+1
Function Call: WRITE	Prompt: " ("_Z_")" Line Location: TIMES+5
Function Call: WRITE	Prompt: ! Line Location: TIMES2+1
Function Call: WRITE	Prompt: " ("_Z_")" Line Location: TIMES2+5
Function Call: WRITE	Prompt: !!,"The ending time must be after the starting time." Line Location: TIMES2+5
Function Call: WRITE	Prompt: !!,"You have entered an ending time which is earlier than the starting time.",! Line Location: TOMM+2
Routine Call	DIR Line Location: TIMES+3 TIMES2+3 ASK+1

Name	Field # of Occurrence
%DT	CHK!*
%DT(0	CHK*
DIR	TIMES+1!, TIMES+3!, TIMES2+1!, TIMES2+3!, ASK!, ASK+1!
DIR("?"	TIMES+1, TIMES+2, TIMES2+1, TIMES2+2, ASK+1*
DIR("A"	TIMES+1, TIMES2+1, ASK*
DIR("B"	ASK*
DIR(0	TIMES+1, TIMES2+1, ASK*
>> DIRUT	TIMES+3, TIMES2+3
>> DTOUT	ASK+1
>> DUOUT	ASK+1
>> SRSBANG	TOMM+2
>> SRSDATE	TIMES+5, TIMES2+6, TOMM+1, CHK
>> SRSDT1	TIMES+5*, TIMES2+6
SRSDT2	TIMES2+6, ASK+1!, ASK+2
>> SRSDT3	TOMM+1*, ASK+2
>> SRSDTT	TOMM+1*, ASK
SRSET1	TIMES+3!, TIMES2+3!, TIMES2+7*
>> SRSOUT	TIMES+3, TIMES2+1, TIMES2+3, TIMES2+6, TOMM+2
SRSST1	TIMES+3!, TIMES+5*, TIMES2+3!
>> SRSTIME	TIMES2+7*
>> SRT	TIMES+5*, TIMES2+5, TIMES2+7
>> X	TOMM+1, CHK*
>> X1	TOMM+1*
>> X2	TOMM+1*
>> Y	TIMES+4, TIMES2+4, TOMM+1*, ASK+1, CHK
>> Z	TIMES+4, TIMES+5, TIMES2+4, TIMES2+5, TIMES2+7, ASK, ASK+1, ASK+2, CHK*
>> Z(0	TIMES+4, TIMES2+4
>> Z(1	TIMES+4, TIMES+5, TIMES2+4, TIMES2+5, TIMES2+6
>> Z(2	TIMES+4, TIMES+5, TIMES2+4, TIMES2+5, TIMES2+6