Routine: SROAUTL0

Information

SROAUTL0 ;BIR/ADM,SLM - RISK ASSESSMENT UTILITY ;08/16/2011

Name	Comments	DBIA/ICR reference
PREOP
PREMD
OPER
LR
OUT1	; man preop edit scr
LAB	; man lab edit scrn
CPTS	; put CPT codes in array for display
DISP	; display CPT code info
OTH
PRESS
OCC	; occur data
OCCEND

Name	Line Occurrences
Function Call: WRITE	Prompt: "Principal CPT Code: "_SRW Line Location: DISP+4
Function Call: WRITE	Prompt: !,?5,SRDES(I) Line Location: DISP+4
Function Call: WRITE	Prompt: !,?3,"Modifier: " Line Location: DISP+5
Function Call: WRITE	Prompt: $P($$MOD^ICPTMOD(SRMO,"I"),"^",2),"-",$P($$MOD^ICPTMOD(SRMO,"I"),"^",3) Line Location: DISP+8
Function Call: WRITE	Prompt: ! Line Location: DISP+10
Function Call: WRITE	Prompt: ! Line Location: OTH+0
Function Call: WRITE	Prompt: !,?5,SRDES(I) Line Location: OTH+2
Function Call: WRITE	Prompt: !,?3,"Modifier: " Line Location: OTH+3
Function Call: WRITE	Prompt: $P($$MOD^ICPTMOD(SRMO,"I"),"^",2),"-",$P($$MOD^ICPTMOD(SRMO,"I"),"^",3) Line Location: OTH+6