Routine: SRSWREQ

Information

SRSWREQ ;BIR/MAM - REQUEST FROM WAITING LIST ;08/11/05

Package	Total	Call Graph
Surgery	4	^SRSKILL LATE^SRSREQ LFTOVR^SRSREQUT ^SRSRQST
VA Fileman	4	^%DT ^DIC D^DIQ ^DIR
Registration	1	DEM^VADPT

Package	Total	Caller Graph
Surgery	2	SROERR SRSWREQ

Name	Comments	DBIA/ICR reference
END
REQ
LIST
DEAD
DATE
OK
ARRAY	; set array for waiting list info

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,! Line Location: SRSWREQ+3
Function Call: WRITE	Prompt: !!,"The records show that "_SRNM_" died on "_Y_".",! Line Location: DEAD+1
Function Call: WRITE	Prompt: !!,"There are no entries on the Waiting List for "_SRNM_"." Line Location: DEAD+2
Function Call: WRITE	Prompt: @IOF,!,"Procedures Entered on the Waiting List for "_SRNM_": ",!! Line Location: LIST+0
Function Call: READ	Timeout: DTIME Variable: SRW Line Location: LIST+3
Function Call: READ	Timeout: DTIME Variable: X Line Location: LIST+4
Function Call: WRITE	Prompt: !!,"Select the number corresponding to the entry for which the request will",!,"be made.",!!,"Press RETURN to continue " Line Location: LIST+4
Function Call: WRITE	Prompt: ! Line Location: DATE+0
Function Call: WRITE	Prompt: !!,"Requests cannot be made for past dates.",!!,"Press RETURN to continue " Line Location: DATE+1
Function Call: WRITE	Prompt: ! Line Location: END+0
Function Call: WRITE	Prompt: @IOF Line Location: END+1
Function Call: WRITE	Prompt: !,CNT_". "_SRSERV,?40,"Date Entered on List: "_SRDT,!,?3,SROPER,! Line Location: ARRAY+3
Function Call: READ	Timeout: DTIME Variable: SRYN Line Location: OK+0
Function Call: WRITE	Prompt: !!,"Enter RETURN if this is the procedure that you would like to make into a",!,"request. Otherwise, enter 'NO'." Line Location: OK+1
Routine Call	DIC Line Location: SRSWREQ+3
Routine Call	DIR Line Location: END

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	DEAD+1
^SRO(133.8 - [#133.8]	DEAD+2, LIST+1, ARRAY+1, ARRAY+2
^SRO(137.45 - [#137.45]	ARRAY+1
^VA(200 - [#200]	DATE+5

Name	Line Occurrences
ARRAY	LIST+1
DATE	DATE+1, DATE+3
DEAD	SRSWREQ+2
END	SRSWREQ+3, DEAD+1, DEAD+2, LIST+2, LIST+3, REQ+1, DATE
LIST	LIST+4
OK	LIST+2, OK+1
REQ	LIST+2

Name	Field # of Occurrence
^(	DEAD+1
^(0	ARRAY+2

Name	Field # of Occurrence
%DT	DATE!*
%DT("A"	DATE*
>> CNT	LIST, ARRAY+1, ARRAY+2, ARRAY+3
>> DFN	SRSWREQ+2, SRSWREQ+4, DEAD+1, DEAD+2, LIST+1
DIC	SRSWREQ+3!*
DIC("A"	SRSWREQ+3*
DIC(0	SRSWREQ+3*
DIR	DATE+5!, END!
DIR("A"	END*
DIR("B"	DATE+5*
DIR(0	END*
DT	DATE+1
DTIME	LIST+3, LIST+4, OK
IOF	SRSWREQ+3, LIST, END+1
>> ORNP	DATE+5
>> ORVP	SRSWREQ+2
>> SRCL(	DATE+4*
>> SRDT	ARRAY+2*, ARRAY+3
>> SREQDT	DATE+2*
>> SRI	DATE+4*
SRLATE	DATE+3!
>> SRNM	DEAD*, DEAD+1, DEAD+2, LIST
>> SROFN	LIST+1*, ARRAY+2
>> SROPER	ARRAY+2*, ARRAY+3
>> SRSDATE	DATE+1*
>> SRSDPT	SRSWREQ+2, SRSWREQ+4
>> SRSER	ARRAY+1*, ARRAY+2
>> SRSERV	ARRAY+1*, ARRAY+2, ARRAY+3
>> SRSOP	DATE+4*
>> SRSOTH	REQ*, REQ+1
>> SRSOUT	SRSWREQ+2, SRSWREQ+3, LIST+2, LIST+3, REQ+1, DATE, END
>> SRSS	LIST, LIST+1, DATE+4*, ARRAY+1, ARRAY+2
>> SRSSN	DEAD*
>> SRSST	DATE+1*
SRTN	END+1!
SRW	LIST!, LIST+2, LIST+3, LIST+4, DATE+4
SRW(	LIST+4, DATE+4, ARRAY+2*
SRW(2	LIST+2
>> SRWL	SRSWREQ+2*
>> SRYN	LIST+2, OK, OK+1
>> ST	DATE+6*
>> VA("PID"	DEAD
>> VADM(1	DEAD
>> X	LIST+4*
>> Y	SRSWREQ+3, SRSWREQ+4, DEAD+1, DATE, DATE+1, DATE+2, ARRAY+2