Routine: SROAPRT6

Information

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

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

Name	Line Occurrences
Function Call: WRITE	Prompt: !,?27,"OUTCOME INFORMATION" Line Location: DISP+1
Function Call: WRITE	Prompt: !!,$J("Postoperative Diagnosis Code "_$$ICDSTR^SROICD(SRTN)_": ",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