Routine: SROOPRM

Information

SROOPRM ;B'HAM ISC/KKA - UPDATE NORMAL O.R. HOURS ; [ 07/27/98 2:33 PM ]

Source file <SROOPRM.m>

Package	Total	Call Graph
VA Fileman	3	^DIC FILE^DICN ^DIE
Surgery	2	(HELP,S,T)^SROOPRM1 ^SRSKILL

Package	Total	Caller Graph
Surgery	1	SR NORMAL HOURS

Name	Comments	DBIA/ICR reference
BEGIN	;
END
LKUPRM	;***get internal entry number of o.r.***
RPTRM
SETUP	; add the days of the week if they do not exist
UPDATE	;***update one characteristic***
CHOICE	;***find out user's choice***
JUMP
EDIT	;***dispay heading and choices***
DEL	; delete absurd times
FDAY	;*****start with sunday and follow w/ consec days until user changes
CHNG	;***loop through days of week starting with user's day of choice*
DAY	;***get internal entry number of day to be edited***
PL	;***update more than one characteristic***

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!,SRLINE,!,?15,"Normal Daily Schedules for Operating Rooms",!,SRLINE,! Line Location: LKUPRM+2
Function Call: WRITE	Prompt: ! Line Location: LKUPRM+3
Function Call: WRITE	Prompt: @IOF Line Location: END+0
Function Call: READ	Timeout: DTIME Variable: SRANS Line Location: DAY+2
Function Call: WRITE	Prompt: !!,"Day entered not valid.",!,"Press RETURN to continue: " Line Location: DAY+2
Function Call: WRITE	Prompt: @IOF,!,?10,"Editing the ",SREXT," Schedule for the ",$P(^SC($P(SRREC,"^",1),0),"^",1)," Operating Room",!,SRLINE,! Line Location: EDIT+1
Function Call: WRITE	Prompt: !,"1. Normal Start Time: ",?24,SRNST,!,"2. Normal End Time: ",?24,SRNET,!,"3. Inactive (Y/N):",?24,SRIN,!!,SRLINE,! Line Location: EDIT+4
Function Call: READ	Timeout: DTIME Variable: SRCH Line Location: CHOICE+2
Function Call: WRITE	Prompt: !! Line Location: JUMP+6
Function Call: WRITE	Prompt: !! Line Location: JUMP+7
Function Call: WRITE	Prompt: !!,"Normal Starting Time must be earlier than Normal Ending Time.",! Line Location: UPDATE+2
Function Call: WRITE	Prompt: !!,"Normal Ending Time must be later than Normal Starting Time.",! Line Location: UPDATE+3
Routine Call	DIE Line Location: UPDATE+1 DEL+1
Routine Call	DIC Line Location: LKUPRM+3 DAY+1 JUMP

Name	Line Occurrences (* Changed, ! Killed)
^DD(131.7	SETUP+1
^SC - [#44]	EDIT+1
^SRS - [#131.7]	EDIT+2, UPDATE+2, UPDATE+3, SETUP+1

Name	Field # of Occurrence
^(0	UPDATE+2, UPDATE+3

Name	Field # of Occurrence
>> C	BEGIN+1*
DA	UPDATE+1!, DEL+1, SETUP+1!, SETUP+2!
DA(1	UPDATE+1, DEL+1, SETUP+1*
DD	SETUP+1!, SETUP+2!
DIC	LKUPRM+3!, DAY+1!, JUMP!, SETUP+1!, SETUP+2!
DIC("A"	LKUPRM+3*
DIC("P"	SETUP+1*
DIC("S"	LKUPRM+3*
DIC(0	LKUPRM+3, DAY+1, JUMP, SETUP+1
DIE	UPDATE+1!, DEL+1
DO	SETUP+1!, SETUP+2!
DR	UPDATE+1!, DEL+1
DTIME	DAY+2, CHOICE+2
IOF	LKUPRM+2, END, EDIT+1
>> SR1	JUMP+5*, PL+1
>> SR2	JUMP+5*, PL+1
>> SRANS	DAY+2*
>> SRC	PL+1*
>> SRCH	CHOICE+2, CHOICE+3, JUMP, JUMP+2*, JUMP+3, JUMP+4, JUMP+5, JUMP+6, JUMP+7
>> SRCHNG	LKUPRM+1, FDAY+1, FDAY+2, CHOICE+3*, CHNG+1
>> SRCKNM	JUMP+4*
>> SRD	FDAY+1*
>> SRDAY	DAY+1, EDIT+2, UPDATE+1, UPDATE+2, UPDATE+3, DEL+1, SETUP+1
>> SRENT	LKUPRM+3*, DAY+1, EDIT+2, JUMP, UPDATE+1, UPDATE+2, UPDATE+3, DEL+1, SETUP+1
>> SREXT	DAY+1*, EDIT+1
>> SRGOOD	CHOICE+1*
>> SRIN	EDIT+2, EDIT+3, EDIT+4
>> SRLINE	BEGIN+1*, LKUPRM+2, EDIT+1, EDIT+4
>> SRNDE	EDIT+2*
>> SRNET	EDIT+2, EDIT+3, EDIT+4
>> SRNEW	DAY+1*, CHNG+1
>> SRNEWC	CHNG+1*
>> SRNST	EDIT+2, EDIT+3, EDIT+4
>> SRNUM	JUMP+7, PL+1, UPDATE+1, UPDATE+2, UPDATE+3, DEL+1
>> SRREC	LKUPRM+3*, EDIT+1
>> SRSAVE	LKUPRM+1, DAY+1, DAY+2
>> SRSOUT	LKUPRM+1, FDAY+1, FDAY+2, EDIT+1, CHOICE+2, JUMP+3, JUMP+4, JUMP+5, PL+1, CHNG+1
>> SRSTOP	LKUPRM+1, FDAY+1, FDAY+2, JUMP+1, CHNG+1
>> SRWRONG	LKUPRM+1, DAY+1, DAY+2*
>> X	FDAY+1, DAY+2, CHOICE+3, JUMP, JUMP+1, CHNG+1, SETUP+1
>> Y	LKUPRM+3, DAY+1, JUMP
>> Y(0	LKUPRM+3, DAY+1