Routine: SRSDT

Information

SRSDT ;B'HAM ISC/MAM - CHANGE DATE OF OPERATION REQUEST; [ 06/14/01 9:54 AM ]

Source file <SRSDT.m>

Package	Total	Call Graph
Surgery	5	^SROERR0 ($$LOCK,UNLOCK)^SROUTL ^SROXRET LATE^SRSREQ ^SRSTCH
VA Fileman	4	^%DT NOW^%DTC (,FILE)^DIE D^DIQ

Package	Total	Caller Graph
Surgery	2	SROERR SRSUPRQ

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: CHANGE+3
Function Call: WRITE	Prompt: !!,"Requests cannot be made for past dates. Please select another date." Line Location: CHANGE+4
Function Call: WRITE	Prompt: !!,"The request for "_SRNM_" has been changed to "_SRSDATE_"." Line Location: NEWDT+9
Function Call: READ	Timeout: DTIME Variable: SRBOTH Line Location: CC+1
Function Call: WRITE	Prompt: !!,"Please answer 'YES' or 'NO'. A '^' is not allowed. " Line Location: CC+2
Function Call: WRITE	Prompt: !!,"Enter RETURN if these cases will remain concurrent, or 'NO' if they will no",!,"longer be associated together." Line Location: CC+3
Routine Call	DIE Line Location: NEWDT+2 NEWDT+3 CC+5 CC+6
Routine Call	DIE Line Location: NEWDT+5

Name	Line Occurrences (* Changed, ! Killed)
^SRF - [#130]	NEWDT+3, NEWDT+8, CC+5
^SRF("AC"	NEWDT+1!
^SRF("ADT"	NEWDT+4!
^SRF("ASP"	NEWDT+6!

Name	Field # of Occurrence
^(	NEWDT+3
^("CON"	NEWDT+8

Name	Field # of Occurrence
>> %	NEWDT+5
%DT	CHANGE+3*!
%DT("A"	CHANGE+3*
>> CON	CHANGE+3, NEWDT+8
DA	NEWDT+2!, NEWDT+3, CC+5, CC+6
>> DFN	NEWDT+4
DIE	NEWDT+2!, NEWDT+3, CC+5*
DR	NEWDT+2!, NEWDT+3!, CC+5*
DT	CHANGE+4
DTIME	CC+1
DUZ	NEWDT+5
>> SRBOTH	NEWDT+8, CC+1, CC+2, CC+3, CC+4*
>> SRDT	CHANGE+3*, CHANGE+4, NEWDT, NEWDT+1, NEWDT+4, NEWDT+6
>> SRDTCH	CHANGE+5*
SREQ	NEWDT+5~
SREQ(130	NEWDT+5*
SRINVDT	NEWDT+4*!
SRLATE	CHANGE+5!
SRLCK	CHANGE+1~*
>> SRNM	NEWDT+9
>> SROERR	NEWDT+7*
>> SRSATT	NEWDT+3*
>> SRSDATE	CHANGE+3, CHANGE+4, NEWDT, NEWDT+2, NEWDT+9*
>> SRSOUT	CHANGE+2
>> SRSREQ	NEWDT+3*
>> SRTN	CHANGE+1, NEWDT+1, NEWDT+2, NEWDT+3, NEWDT+4, NEWDT+5, NEWDT+6, NEWDT+7, NEWDT+8*, NEWDT+10 , CC+5, CC+6
>> SRTS	NEWDT+3*, NEWDT+6
SRTX	NEWDT+7!
X	NEWDT+3!
Y	CHANGE+3, CHANGE+4!, NEWDT+9*