Routine: SROQD1

Package	Total	Call Graph
Surgery	3	TMP^SROQ0A ^SROSTOP PROC^SROUTL
VA Fileman	1	^DIR

Package

Total

Call Graph

TMP^SROQ0A ^SROSTOP PROC^SROUTL

^DIR

Package	Total	Caller Graph
Surgery	1	SROQD

Package

Total

Caller Graph

Name	Comments	DBIA/ICR reference
CASE	; print case information
PATS	; print patient list
HDR	; print heading
IP	; loop through index procedures
SUM	; print total for specialty or index procedure
SUM1	; print grand total for all specialties or index procedures
NAT	; loop through national specialties
PRESS
NEW	; print national specialty or index procedure category
PAGE

Name	Line Occurrences
Function Call: WRITE	Prompt: !,">>> "_SRNATNM_" <<<",! Line Location: NEW+2
Function Call: WRITE	Prompt: ?44,SRPROC(I),! Line Location: CASE+8
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,!,?(IOM-$L(SRPRINT)\2),SRPRINT Line Location: HDR+2
Function Call: WRITE	Prompt: !!,"OP DATE",?12,"PATIENT NAME",?44,"DATE OF DEATH",?60,"LOCAL SPECIALTY",?102,"IN/OUT",?111,"DEATH RELATED" Line Location: HDR+3
Function Call: WRITE	Prompt: !,"CASE #",?12,"PATIENT ID# (AGE)",?44,"PROCEDURE(S)" Line Location: HDR+4
Function Call: WRITE	Prompt: ! Line Location: HDR+5
Function Call: WRITE	Prompt: "=" Line Location: HDR+5
Function Call: WRITE	Prompt: !,">>> "_SRNATNM_" <<< * * Continued from previous page * *" Line Location: HDR+6
Function Call: WRITE	Prompt: !!,"TOTAL DEATHS FOR "_SRNATNM_": "_SRDNAT,! Line Location: SUM+2
Function Call: WRITE	Prompt: "-" Line Location: SUM+2
Function Call: WRITE	Prompt: !!,"TOTAL FOR ALL "_$S(SRSEL=2:"SPECIALTIES",1:"INDEX PROCEDURES")_": "_SRDTOT Line Location: SUM1+2
Function Call: WRITE	Prompt: !! Line Location: PRESS+0
Routine Call	DIR Line Location: PRESS

Name	Line Occurrences (* Changed, ! Killed)
^DIC(45.3 - [#45.3]	NAT+1, NAT+2
^SRF - [#130]	CASE+4
^SRO(137.45 - [#137.45]	CASE+7
^TMP("SR"	CASE+4
^TMP("SRIP"	IP+1
^TMP("SRPAT"	CASE+2
^TMP("SRSEC"	NAT+2, NAT+3, IP+1, PATS+1, CASE+4

Name	Field # of Occurrence
>> DFN	PATS+1*, CASE+2, CASE+4
DIR	PRESS!
DIR(0	PRESS*
>> DTOUT	PRESS
>> DUOUT	PRESS
>> I	CASE+8, HDR+5, SUM+2*
IOF	HDR+2
IOM	HDR+2, HDR+5, SUM+2
IOSL	NEW+1, CASE+1, SUM+1, SUM1+1
IOST	PAGE, HDR+2
>> SR	CASE+4*, CASE+7
>> SRAGE	CASE+2*, CASE+8
>> SRDD	CASE+2, CASE+3, CASE+8
>> SRDNAT	NAT+1, NAT+2, NAT+3, IP+1, CASE+1*, SUM+2
>> SRDTOT	CASE+1*, SUM1+2
>> SRFRTO	HDR+2
>> SRHALT	HDR+1
>> SRHDR	PAGE, HDR+5*
>> SRINST	HDR+2
>> SRIOSTAT	CASE+5*, CASE+8
>> SRL	CASE+7*
>> SRNAT	NAT+1, NAT+2, NAT+3, IP+1, PATS+1, CASE+4
>> SRNATNM	NAT+1, NAT+2, NAT+3, IP+1, NEW+1*, NEW+2, HDR+6, SUM+2
>> SRNM	PATS+1*, CASE+2, CASE+4, CASE+8
>> SRPAGE	HDR+2, HDR+5*
>> SRPRINT	HDR+2
>> SRPROC(	CASE+8
>> SRREL	CASE+6*, CASE+8
>> SRRPT	HDR+2
>> SRSD	CASE+4*, CASE+8
>> SRSEL	SUM1+2
>> SRSNM	NAT+2, IP+1, NEW+2*, HDR+6
>> SRSOUT	NAT+2, NAT+4, IP+1, IP+2, NEW+1, PATS+1, PATS+2, CASE+1, PAGE+1, HDR+1* , SUM+1, SUM1+1, PRESS*
>> SRSPEC	NAT+1
>> SRSS	CASE+7*, CASE+8
>> SRSSN	CASE+2*, CASE+8
>> SRSUPCPT	CASE+7*
>> SRTN	CASE+4*, CASE+8
>> SRX	CASE+4*, CASE+5, CASE+6
>> SRZ	CASE+2*
>> X	CASE+3, CASE+4, CASE+7*
>> X1	CASE+2*
>> X2	CASE+2*
>> Y	CASE+5, CASE+6
>> ZTQUEUED	HDR+1

Information