Routine: SROQD0

Package	Total	Call Graph
Surgery	4	DRPT^SROQ0A PRESS^SROQD ^SROSTOP $$MANDIV^SROUTL0
Registration	1	(DEM,IN5)^VADPT
VA Fileman	1	C^%DTC

Package	Total	Caller Graph
Surgery	1	SROQD

Entry Points

Name	Comments	DBIA/ICR reference
CASE	; examine case
INDEX
AC
HDR	; print heading
MORT	; look for operations in next quarter
SUM	; print category totals
TMP	; update ^TMP
PAGE
TOT
CLEAN	; deselect deaths attributable to operations outside date range
SPEC

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Condition for execution: $Y Line Location: HDR+2
Function Call: WRITE	Prompt: !,?(IOM-$L(SRINST)\2),SRINST Condition for execution: $E(IOST)="P" Line Location: HDR+2
Function Call: WRITE	Prompt: !,?(IOM-$L(SRRPT)\2),SRRPT,?(IOM-10),$J("PAGE "_SRPAGE,9),!,?(IOM-$L(SRFRTO)\2),SRFRTO Line Location: HDR+2
Function Call: WRITE	Prompt: !,?(IOM-$L(X)\2),X Line Location: HDR+3
Function Call: WRITE	Prompt: !,?124,"DEATH",!,"OP DATE",?10,"CASE #",?22,"IN/OUT",?31,"SURGICAL SPECIALTY",?69,"PROCEDURE(S)",?123,"RELATED" Line Location: HDR+5
Function Call: WRITE	Prompt: ! Line Location: HDR+6
Function Call: WRITE	Prompt: "=" Line Location: HDR+6
Function Call: WRITE	Prompt: !,SRNAME_" * * Continued from previous page * *",! Line Location: HDR+7
Function Call: WRITE	Prompt: !,"TOTAL DEATHS: "_SRDTOT Line Location: SUM+2

Name	Line Occurrences (* Changed, ! Killed)
^SRF - [#130]	AC, CASE+1, CASE+2, TMP+1, TMP+2, MORT+4, CLEAN+2
^SRF("AC"	AC
^SRF("ADT"	MORT+3
^SRO(137.45 - [#137.45]	CASE+5
^TMP("SR"	TMP+1, TMP+2*, CLEAN+4!
^TMP("SRDEATH"	AC+1, TOT, SPEC, INDEX, TMP+3, TMP+4, CLEAN+3!
^TMP("SRDTH"	AC, CASE+7, MORT+2
^TMP("SRINOUT"	TOT, TMP+3*, CLEAN+4!
^TMP("SRNAT"	SPEC, INDEX, TMP+3, TMP+4, CLEAN+4!
^TMP("SRNM"	TOT, SPEC, INDEX, TMP+1*, CLEAN+3!
^TMP("SRPAT"	TMP+1*, CLEAN+3!
^TMP("SRREL"	TOT, TOT+1, SPEC, SPEC+1, INDEX, INDEX+1, TMP+3, TMP+4, CLEAN+4!
^TMP("SRSEC"	TOT, TOT+1, SPEC, SPEC+1, INDEX, INDEX+1, CLEAN+1, CLEAN+2, CLEAN+3!
^TMP("SRTN"	MORT+3!, MORT+4*, MORT+5

Name	Field # of Occurrence
>> DFN	AC, AC+1, TOT, TOT+1, SPEC, SPEC+1, INDEX, INDEX+1, CASE+2, CASE+7 , TMP+1, TMP+2, TMP+3, TMP+4, MORT+2, MORT+3, CLEAN+1, CLEAN+2, CLEAN+3, CLEAN+4
>> EDATE	MORT+1, CLEAN+2
>> I	HDR+6*
IOF	HDR+2
IOM	HDR+2, HDR+3, HDR+6
IOSL	SUM+1
IOST	PAGE, HDR+2
>> SDATE	MORT+1, CLEAN+2
>> SR(0	CASE+2*, CASE+3, CASE+4
>> SRDTH	AC, CASE+6, CASE+7, MORT+5*
>> SRDTOT	SUM+2
>> SRED	AC
>> SRED1	MORT+1*, MORT+3
>> SRFRTO	HDR+2
>> SRHALT	HDR+1
>> SRHDR	PAGE, HDR+6*
>> SRHDR2	HDR+4
>> SRINST	HDR+2
>> SRINSTP	AC
>> SRINV	MORT+3*
>> SRIO	HDR+3
>> SRIOSTAT	TOT, TOT+1, CASE+3*, TMP+2, TMP+3
>> SRNAME	HDR+7
>> SRNAT	SPEC, SPEC+1, CASE+5, TMP+4, CLEAN+1, CLEAN+2, CLEAN+3
>> SRNM	TOT, TOT+1, SPEC, SPEC+1, INDEX, INDEX+1, CLEAN+1, CLEAN+2, CLEAN+3
>> SRPAGE	HDR+2, HDR+6*
>> SRPRINT	HDR+3
>> SRPROC	INDEX, INDEX+1
>> SRREL	TMP+1*, TMP+2, TMP+3, TMP+4
>> SRRPT	HDR+2
>> SRSD	AC, TOT+1, SPEC+1, INDEX+1, CASE+3, CASE+6, TMP+2, TMP+3, TMP+4, MORT+5*
>> SRSD1	MORT+1*, MORT+3
>> SRSDATE	CLEAN+2*
>> SRSEL	AC+1, CASE+5, TMP+3, TMP+4, TMP+5
>> SRSNM	HDR+7
>> SRSOUT	AC, PAGE+1, HDR+1*, SUM+1
>> SRSS	CASE+4*, CASE+5, TMP+2, TMP+3
>> SRTN	AC, TOT, TOT+1, SPEC, SPEC+1, INDEX, INDEX+1, CASE+1, CASE+2, TMP+1 , TMP+2, TMP+3, TMP+4, MORT+3, MORT+4, MORT+5, CLEAN+2
>> VA("PID"	TMP+1
>> VADM(1	TMP+1
>> VADM(3	TMP+1
>> VADM(6	CASE+2, CASE+6, TMP+1
VAIP	CASE+3!
VAIP("D"	CASE+3*
VAIP(13	CASE+3
>> X	CASE+6, HDR+3*, MORT+1
>> X1	CASE+6, MORT+1
>> X2	CASE+6, MORT+1
>> Y	CASE+4*
>> ZTQUEUED	HDR+1