Routine: SROXRET

Information

SROXRET ;B'HAM ISC/MAM - UNEXPECTED RETURNS ; 17 JAN 1991 9:00 AM

Package	Total	Call Graph
VA Fileman	3	C^%DTC FILE^DICN D^DIQ
Registration	1	DEM^VADPT

Package	Total	Caller Graph
Surgery	8	SRONEW SROPER SRSCAN2 SRSCHC1 SRSCHUN SRSDT SRSRQST SRSUP1

Name	Comments	DBIA/ICR reference
SET
HELP
ONE
STUFF
ASK
SEL
LOOP	; break procedure if greater than 50 characters

Name	Line Occurrences
Function Call: READ	Timeout: DTIME Variable: SRYN Line Location: ASK+0
Function Call: WRITE	Prompt: @IOF Line Location: ASK+0
Function Call: WRITE	Prompt: @IOF Line Location: ASK+1
Function Call: READ	Timeout: DTIME Variable: X Line Location: SEL+0
Function Call: WRITE	Prompt: @IOF Line Location: SEL+0
Function Call: WRITE	Prompt: !!,"Enter the number corresponding to the operative procedure associated with",!,"this unexpected return to surgery." Line Location: SEL+1
Function Call: READ	Timeout: DTIME Variable: SRYN Line Location: ONE+0
Function Call: WRITE	Prompt: @IOF Line Location: ONE+0
Function Call: WRITE	Prompt: @IOF Line Location: ONE+1
Function Call: WRITE	Prompt: @IOF,!,"Completed cases for "_VADM(1)_" within the past 30 days:",!! Line Location: SET+6
Function Call: WRITE	Prompt: !,CNT_".",?5,OPDATE,?25,SROP(1) Line Location: SET+7
Function Call: WRITE	Prompt: !,?25,SROP(2) Line Location: SET+7
Function Call: WRITE	Prompt: !,?25,SROP(2) Line Location: SET+7
Function Call: WRITE	Prompt: !,?25,SROP(2) Line Location: SET+7
Function Call: WRITE	Prompt: !!,"If this surgical case is related to a previous case, enter 'YES'. Otherwise, ",!,"press RETURN to continue entering information for this operative procedure." Line Location: HELP+0

Name	Line Occurrences (* Changed, ! Killed)
^SRF - [#130]	SROXRET+2, SROXRET+3, STUFF, STUFF+2*, SET, SET+1, SET+2, SET+4
^SRF("AC"	SROXRET+3

Name	Field # of Occurrence
^(	SROXRET+3
^(0	STUFF*

Name	Field # of Occurrence
>> CNT	SROXRET+3, SET+2, SET+6, SET+7, SET+8
D0	STUFF+1!
DA	SROXRET+3, STUFF+1!, STUFF+2*
DA(1	STUFF+1*
DD	STUFF+1!
>> DFN	SROXRET+3*
DIC	STUFF+1!*
DIC(0	STUFF+1*
DINUM	STUFF+1!*
DLAYGO	STUFF+1*!
DTIME	ASK, SEL, ONE
IOF	ASK, ASK+1, SEL, STUFF+3, ONE, ONE+1, SET+6
>> LOOP	LOOP+1*
>> MAM	SET+5*, LOOP+1
MM	SET+4!, LOOP+1*
MMM	SET+4!, SET+5, LOOP+1*
>> OPDATE	SET+3*, SET+7
>> SRDATES	SROXRET+2, SROXRET+3, SET+2, SET+3
>> SRELATE	SROXRET+5, SEL+2, STUFF+2, STUFF+3, SET+8*
>> SRETURN	SROXRET+3, STUFF, STUFF+1, STUFF+2, SET, SET+1, SET+2, SET+4
>> SRETURN(	SEL+1, STUFF, SET+2*
>> SRETURN(0	SROXRET+4
>> SRETURN(2	SROXRET+5
SROP	SET+4!
SROP(	LOOP+1*
SROP(1	SET+5*, SET+7
SROP(2	SET+7
SROP(3	SET+7
SROP(4	SET+7
>> SROPER	SET+4, SET+5, LOOP+1
SRSDATE	SROXRET+2~*, SROXRET+3
>> SRTN	SROXRET+2, SROXRET+3, STUFF+1, STUFF+2, SET
>> SRYN	ASK, ASK+1, ASK+2, ONE, ONE+1, ONE+2
>> VADM(1	SET+6
>> X	SROXRET+2, SROXRET+5, SEL, SEL+1, STUFF, STUFF+1, ONE, ONE+1, ONE+3, SET+8
>> X1	SROXRET+2*
>> X2	SROXRET+2*
>> Y	SET+3*