Routine: SRSCPT2

Package	Total	Caller Graph
Surgery	1	SRSCPT

Entry Points

Name	Comments	DBIA/ICR reference
CASE	; get case number
SET	; set variables & print info
HDR	; print heading
OPS	; print operations
UT
UTIL	; set ^TMP("SR",$J)
LOOP	; break procedure if greater than 59 characters

Name	Line Occurrences
Function Call: WRITE	Prompt: $$NODATA^SROUTL0() Line Location: SRSCPT2+7
Function Call: WRITE	Prompt: !,SRSDATE,?18,SRSNM_" ("_VA("PID")_")",?60,SRSUR,!,SRTN Line Location: SET+9
Function Call: WRITE	Prompt: !,"NON-O.R." Condition for execution: SRFLG=3&(SRNON) Line Location: SET+9
Function Call: WRITE	Prompt: ! Line Location: SET+11
Function Call: WRITE	Prompt: "-" Line Location: SET+11
Function Call: READ	Timeout: DTIME Variable: X Line Location: HDR+2
Function Call: WRITE	Prompt: @IOF Condition for execution: $Y Line Location: HDR+4
Function Call: WRITE	Prompt: !,?(80-$L(SRINST)\2),SRINST,!,?23,"Completed Cases Missing CPT Codes",!,?(80-$L(SRTITLE)\2),SRTITLE,!,?(80-$L(SRFRTO)\2),SRFRTO Line Location: HDR+4
Function Call: WRITE	Prompt: !!,"Operation Date",?18,"Patient (ID#)",?60,"Surgeon/Provider",!,"Case #",! Line Location: HDR+5
Function Call: WRITE	Prompt: "=" Line Location: HDR+5
Function Call: WRITE	Prompt: !,?18,SROPS(1) Line Location: OPS+2
Function Call: WRITE	Prompt: !,?18,SROPS(2) Line Location: OPS+2
Function Call: WRITE	Prompt: !,?18,SROPS(2) Line Location: OPS+2
Function Call: WRITE	Prompt: !,?18,SROPS(2) Line Location: OPS+2

Name	Line Occurrences (* Changed, ! Killed)
^ECC(723	UT
^SRF - [#130]	SRSCPT2+5, SET+2, SET+3, SET+4, SET+5, SET+6, SET+7, SET+8, UTIL+1, UTIL+2 , UT, UT+1
^SRF("AC"	SRSCPT2+5
^SRO(136 - [#136]	UTIL+4
^SRO(137.45 - [#137.45]	UT+1
^TMP("SR"	SRSCPT2+6, SRSCPT2+7, CASE+1, UT+2*
^VA(200 - [#200]	SET+8

Name	Field # of Occurrence
^(	SET+7

Name	Field # of Occurrence
>> CNT	SET+5, SET+6, SET+10*
>> DFN	SET+3*
DTIME	HDR+2
IOF	HDR+4
IOSL	SET+1
IOST	HDR+2
>> LINE	SET+11, HDR+5
>> LOOP	LOOP+1*
>> M	OPS+1*, LOOP+1
MM	OPS+1!, LOOP+1*
MMM	OPS+1!, LOOP+1*
>> OP	SET+5*, SET+6
SR	CASE+1!
SR(	SET+7*, SET+8
SR(0	SET+3*
>> SRFLG	SET+9, UTIL+2, UTIL+3, HDR+3
>> SRFRTO	HDR+4
>> SRHALT	HDR+1
>> SRHDR	SRSCPT2+6*, HDR+2
>> SRINST	HDR+4
>> SRMISS	UTIL+4*, UTIL+5
>> SRNON	SET+2, SET+8, SET+9, UTIL+1, UTIL+2, UTIL+3, UT, UT+1
SROP	CASE+1!
SROP(	SET+6*, SET+10
SROP(1	SET+4*
>> SROPER	SET+10, OPS+1, LOOP+1*
SROPS	OPS+1!
SROPS(	LOOP+1*
SROPS(1	OPS+1*, OPS+2
SROPS(2	OPS+2
SROPS(3	OPS+2
SROPS(4	OPS+2
>> SRSDATE	SET+3*, SET+9
>> SRSDT	SRSCPT2+5, SRSCPT2+6, CASE+1, UT+2
>> SRSEDT	SRSCPT2+5
>> SRSNM	SET+3*, SET+9
>> SRSOUT	SRSCPT2+6, CASE+1, SET+1, HDR+1, HDR+2*
>> SRSPEC	SRSCPT2+6, SRSCPT2+7, CASE+1, UT, UT+1, HDR+5
>> SRSPECN	UT, UT+1, UT+2
>> SRSSN	SET+3*
>> SRSUR	SET+8*, SET+9
>> SRTITLE	HDR+3*, HDR+4
>> SRTN	SRSCPT2+5, CASE+1, SET+2, SET+3, SET+4, SET+5, SET+6, SET+7, SET+8, SET+9 , UTIL+1, UTIL+2, UTIL+4, UT, UT+1, UT+2
>> VA("PID"	SET+3, SET+9
>> VADM(1	SET+3
>> X	HDR+2*
>> Y	SET+3*
>> ZTQUEUED	HDR+1