Routine: SROAPRT6

Information

SROAPRT6 ;BIR/MAM - PRINT OUTCOME INFO ;01/29/07

Source file <SROAPRT6.m>

Package	Total	Call Graph
Surgery	3	PAGE^SROAPAS ^SROAPRT7 SSPRIN^SROCPT0
DRG Grouper	2	$$ICDDX^ICDCODE $$CPT^ICPTCOD
VA Fileman	2	C^%DTC D^DIQ

Package	Total	Caller Graph
Surgery	1	SROAPAS

Name	Comments	DBIA/ICR reference
DISP	;
YN	;
RET	; print returns
MOD	;; append CPT modifiers to CPT code

Name	Line Occurrences
Function Call: WRITE	Prompt: !,?27,"OUTCOME INFORMATION" Line Location: DISP+1
Function Call: WRITE	Prompt: !!,$J("Postoperative Diagnosis Code (ICD9): ",39)_$P(SRAO(1),"^"),!,$J("Length of Postoperative Hospital Stay: ",39)_$P(SRAO(2),"^") Line Location: DISP+2
Function Call: WRITE	Prompt: !,$J("Date of Death: ",39)_$P(SRAO(3),"^") Line Location: DISP+3
Function Call: WRITE	Prompt: !,$J("Death Unrelated/Related: ",39)_$S($P($G(^SRF(SRTN,.4)),"^",7)="R":"RELATED",$P($G(^SRF(SRTN,.4)),"^",7)="U":"UNRELATED",1:"") Line Location: DISP+5
Function Call: WRITE	Prompt: !,$J("Death Unrelated/Related: ",39)_"N/A" Line Location: DISP+6
Function Call: WRITE	Prompt: !,$J("Return to OR Within 30 Days: ",39)_$P(SRAO(4),"^") Line Location: DISP+7
Function Call: WRITE	Prompt: !,?15,"CPT Code: "_SRCPT(X) Line Location: RET+1

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	SROAPRT6+5
^SRF - [#130]	SROAPRT6+2, SROAPRT6+3, SROAPRT6+7, SROAPRT6+10*, DISP+4, DISP+5
^SRO(136 - [#136]	SROAPRT6+2, SROAPRT6+7

Name	Field # of Occurrence
>> CASE	SROAPRT6+7*, MOD+1
>> DFN	SROAPRT6+5
>> I	SROAPRT6+10*
IOSL	DISP+8
IOST	DISP+8
>> NYUK	SROAPRT6+6, SROAPRT6+9, SROAPRT6+10, YN+1
>> SHEMP	SROAPRT6+10, YN+1*
SRA	SROAPRT6+2!
SRA(205	SROAPRT6+3*, SROAPRT6+5
SRA(3	DISP+6
>> SRAO(	SROAPRT6+10*
>> SRAO(1	SROAPRT6+2*, DISP+2
>> SRAO(2	SROAPRT6+4*, DISP+2
>> SRAO(3	SROAPRT6+6*, DISP+3, DISP+4, DISP+5
>> SRAO(4	SROAPRT6+10*, DISP+7
>> SRC	SROAPRT6+7*, SROAPRT6+8, SROAPRT6+9
SRCPT	SROAPRT6+6!
SRCPT(	SROAPRT6+9*, RET+1
>> SRDEAD	SROAPRT6+5*, SROAPRT6+6
>> SRET	SROAPRT6+6, SROAPRT6+7
>> SRSOUT	DISP+8
SRTN	SROAPRT6+2, SROAPRT6+3, SROAPRT6+7, SROAPRT6+10, DISP+4, DISP+5, MOD+1~*
>> X	SROAPRT6+2, SROAPRT6+3, SROAPRT6+4, SROAPRT6+5, DISP+5, DISP+6, RET+1
>> X1	DISP+4*
>> X2	DISP+4*
>> Y	SROAPRT6+5, SROAPRT6+8, SROAPRT6+9