Routine: SROMORT

Information

SROMORT ;B'HAM ISC/MAM - MORTALITY REPORT ; [ 10/01/98 12:55 PM ]

Package	Total	Call Graph
Surgery	3	^SROSTOP $$MANDIV^SROUTL0 ^SRSKILL
VA Fileman	2	C^%DTC D^DIQ
Kernel	1	^%ZISC
Registration	1	(DEM,INP)^VADPT

Package	Total	Caller Graph
Surgery	2	SROCMP SROMOR

Name	Comments	DBIA/ICR reference
SEARCH	; search for procedures
END	;
HDR	; print heading
OPS
BEG	; entry when queued
UTIL	; set ^TMP
OTHER	; other operations
PRINT	; print mortality information
PAGE
LOOP	; break procedure if greater than 55 characters
MORE

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"No mortalities for the selected date range.",! Line Location: BEG+5
Function Call: WRITE	Prompt: !!,"Press RETURN to continue " Line Location: END+2
Function Call: WRITE	Prompt: @IOF Line Location: END+3
Function Call: WRITE	Prompt: @IOF Condition for execution: $Y Line Location: HDR+2
Function Call: WRITE	Prompt: !,?(132-$L(SRINST)\2),SRINST,?120,"PAGE ",PAGE,!,?58,"SURGICAL SERVICE",?100,"REVIEWED BY: ",!,?58,"MORTALITY REPORT",?100,"DATE REVIEWED: " Line Location: HDR+2
Function Call: WRITE	Prompt: !,?(132-$L(SRFRTO)\2),SRFRTO,?100,SRPRINT Line Location: HDR+3
Function Call: WRITE	Prompt: !!!,"OPERATION DATE",?17,"PATIENT",?50,"PRINCIPAL OPERATIVE PROCEDURE",?112,"DATE OF DEATH",!,?17,"ID#",?112,"AUTOPSY (Y/N)",! Line Location: HDR+4
Function Call: WRITE	Prompt: "=" Line Location: HDR+4
Function Call: WRITE	Prompt: !,?(132-$L(SRSS)\2),SRSS,! Line Location: HDR+5
Function Call: WRITE	Prompt: "-" Line Location: HDR+5
Function Call: WRITE	Prompt: !!,SRSDT,?17,SRNAME,?50,SROPS(1),?112,SRSDEAD,!,?17,VA("PID"),?50,SROPS(2),?112,SRAUT Line Location: OPS+5
Function Call: WRITE	Prompt: !,?50,SROPS(3) Line Location: OPS+5
Function Call: WRITE	Prompt: !,?50,SROPS(3) Line Location: OPS+5
Function Call: READ	Timeout: DTIME Variable: X Line Location: PAGE+0

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	BEG+2
^DGPT - [#45]	OPS+3
^DPT("AEXP1"	BEG+3
^SRF - [#130]	SEARCH+2, UTIL+1, UTIL+2, UTIL+3, OTHER+1, OTHER+2, OPS
^SRF("B"	SEARCH+2
^SRO(137.45 - [#137.45]	UTIL+3
^TMP("SR"	BEG+1!, BEG+4, BEG+5, END+1!, MORE, UTIL+4*

Name	Field # of Occurrence
^(	MORE

Name	Field # of Occurrence
>> DFN	BEG+3, MORE, SEARCH+2, UTIL+4
DT	BEG+2
DTIME	END+2, PAGE
>> I	OPS*
IO	BEG+1
IOF	END+1, END+3, HDR+2
IOM	HDR+4
IOSL	PRINT+1
IOST	END+1, END+2, PAGE
>> LINE	HDR+4, HDR+5
>> LOOP	LOOP+1*
>> M	OPS+1*, LOOP+1
MM	OPS+1!, LOOP+1*
MMM	OPS+1!, LOOP+1*
>> OPER	OTHER+1, OTHER+2, OPS
>> PAGE	BEG+1, HDR+2, HDR+6
>> SRAD	PRINT+2*, OPS+3
>> SRAUT	OPS+2, OPS+3, OPS+4*, OPS+5
>> SRCUTDT	SEARCH+1*, SEARCH+2
>> SRDEAD	MORE*, PRINT+2
>> SRED	BEG+2, BEG+3
SRFRTO	BEG+1~, BEG+2*, HDR+3
>> SRHALT	HDR+1
>> SRHDR	BEG+1, HDR+6, PAGE
>> SRINST	HDR+2
>> SRINSTP	SEARCH+2
>> SRLONG	OTHER+1*, OTHER+2
>> SRNAME	PRINT+3*, OPS+5
>> SROPER	OTHER+1, OTHER+3, OPS, OPS+1, LOOP+1
>> SROPERS	OTHER+1, OTHER+2, OTHER+3
SROPS	OPS+1!
SROPS(	LOOP+1*
SROPS(1	OPS+1*, OPS+5
SROPS(2	OPS+1*, OPS+5
SROPS(3	OPS+5
SROPS(4	OPS+5
>> SRPRINT	BEG+2*, HDR+3
>> SRPTF	OPS+2, OPS+3
>> SRSD	BEG+2, BEG+3
>> SRSD1	BEG+3*, SEARCH+1, UTIL+4
>> SRSDATE	BEG+4, MORE, SEARCH+2, UTIL+4, PRINT+2
>> SRSDEAD	PRINT+2*, OPS+5
>> SRSDT	PRINT+2*, OPS+5
>> SRSEDT	BEG+3*, SEARCH+2
>> SRSOUT	BEG+1, BEG+4, END+2, MORE, HDR+1, PRINT+1, PAGE*
SRSS	BEG+4, BEG+5!, MORE, UTIL+3, UTIL+4, HDR+5
SRTN	END+3!, MORE, SEARCH+2, UTIL+1, UTIL+2, UTIL+3, UTIL+4, OTHER+1, OTHER+2, OPS
>> SSN	PRINT+3*
>> VA("PID"	PRINT+3, OPS+5
>> VADM(1	PRINT+3
>> VAIN(10	OPS+3
>> VAINDT	OPS+3*
>> X	END+2, MORE, SEARCH+1, PAGE*
>> X1	SEARCH+1*
>> X2	SEARCH+1*
>> Y	BEG+2, UTIL+3, PRINT+2*
>> ZTQUEUED	END+1, HDR+1
>> ZTREQ	END+1*
>> ZTSTOP	END+1