Routine: SRSCPT1

Package	Total	Caller Graph
Surgery	1	SRSCPT

Entry Points

Name	Comments	DBIA/ICR reference
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: SRSCPT1+5
Function Call: WRITE	Prompt: !,SRSDATE,?18,SRSNM_" ("_VA("PID")_")",?60,SRSUR,!,SRTN Line Location: SET+12
Function Call: WRITE	Prompt: !,"NON-O.R." Condition for execution: SRFLG=3&(SRNON) Line Location: SET+12
Function Call: WRITE	Prompt: ! Line Location: SET+14
Function Call: WRITE	Prompt: "-" Line Location: SET+14
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: !,?(80-$L("Specialty: "_SRSPECN)\2),"Specialty: "_SRSPECN,!!,"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)
^SRF - [#130]	SRSCPT1+2, SET+2, SET+3, SET+5, SET+7, SET+8, SET+9, SET+10, SET+11, UTIL+1 , UTIL+2
^SRF("AC"	SRSCPT1+2
^SRO(136 - [#136]	UTIL+4
^TMP("SR"	SRSCPT1+4, SRSCPT1+5, UT*
^VA(200 - [#200]	SET+11

Name	Field # of Occurrence
^(	SET+10

Name	Field # of Occurrence
>> CNT	SET+8, SET+9, SET+13*
>> DFN	SET+6*
DTIME	HDR+2
>> EDATE	SRSCPT1+3
>> ENDATE	SRSCPT1+3*
IOF	HDR+4
IOSL	SET+1
IOST	HDR+2
>> LINE	SET+14, HDR+5
>> LOOP	LOOP+1*
>> M	OPS+1*, LOOP+1
MM	OPS+1!, LOOP+1*
MMM	OPS+1!, LOOP+1*
>> OP	SET+8*, SET+9
>> SDATE	SRSCPT1+3
SR	SRSCPT1+4!
SR(	SET+10*, SET+11
SR(0	SET+3*, SET+4, SET+6
>> SRFLG	SET+4, SET+5, SET+12, UTIL+2, UTIL+3, HDR+3
>> SRFRTO	HDR+4
>> SRHALT	HDR+1
>> SRHDR	SRSCPT1+4*, HDR+2
>> SRINST	HDR+4
>> SRMISS	UTIL+4*, UTIL+5
>> SRNON	SET+2, SET+4, SET+5, SET+11, SET+12, UTIL+1, UTIL+2, UTIL+3
SROP	SRSCPT1+4!
SROP(	SET+9*, SET+13
SROP(1	SET+7*
>> SROPER	SET+13, 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+6*, SET+12
>> SRSDT	SRSCPT1+2, SRSCPT1+4, UT
>> SRSEDT	SRSCPT1+2
>> SRSNM	SET+6*, SET+12
>> SRSOUT	SRSCPT1+4, SET+1, HDR+1, HDR+2*
>> SRSPEC	SET+4, SET+5
>> SRSPECN	HDR+5
>> SRSSN	SET+6*
>> SRSUR	SET+11*, SET+12
>> SRTITLE	HDR+3*, HDR+4
>> SRTN	SRSCPT1+2, SRSCPT1+4, SET+2, SET+3, SET+5, SET+7, SET+8, SET+9, SET+10, SET+11 , SET+12, UTIL+1, UTIL+2, UTIL+4, UT
>> STARTDT	SRSCPT1+3*
>> VA("PID"	SET+6, SET+12
>> VADM(1	SET+6
>> X	HDR+2*
>> Y	SET+6*
>> ZTQUEUED	HDR+1