Routine: SROACC6

Package	Total	Call Graph
Surgery	3	HDR^SROACC (LOOP,OPER)^SROACC0 ($$DIV,$$NODATA)^SROUTL0
CPT HCPCS Codes	1	($$CPT,$$CPTD)^ICPTCOD
Registration	1	DEM^VADPT
VA FileMan	1	D^DIQ

Package	Total	Caller Graph
Surgery	1	SROACC

Entry Points

Name	Comments	DBIA/ICR reference
SRTN
LOOP	; break procedure greater than 50 characters
DESC	; print description
PRINT	; print each case
UTIL	; set ^TMP("SR")
LINE

Name	Line Occurrences
Function Call: WRITE	Prompt: $$NODATA^SROUTL0() Line Location: SROACC6+9
Function Call: WRITE	Prompt: !!,?(132-$L(CPT1)\2),CPT1 Line Location: DESC+3
Function Call: WRITE	Prompt: !,?50,"PRINCIPAL PROCEDURES" Line Location: DESC+4
Function Call: WRITE	Prompt: !,?54,"OTHER PROCEDURES" Line Location: DESC+5
Function Call: WRITE	Prompt: !,?(132-$L(Y)\2),Y Line Location: DESC+7
Function Call: WRITE	Prompt: !! Line Location: DESC+8
Function Call: WRITE	Prompt: "-" Line Location: DESC+8
Function Call: WRITE	Prompt: !,SRDT,?20,SRNAME,?60,SROP(1),?111,SRSUR,!,?3,SRTN,?20,VA("PID") Line Location: PRINT+13
Function Call: WRITE	Prompt: ?60,SROP(2) Condition for execution: $D(SROP(2)) Line Location: PRINT+13
Function Call: WRITE	Prompt: ?111,SRATT,! Line Location: PRINT+13
Function Call: WRITE	Prompt: "NON-O.R." Condition for execution: SRFLG=3&(SRNON) Line Location: PRINT+14
Function Call: WRITE	Prompt: ?20,SRSS Line Location: PRINT+14
Function Call: WRITE	Prompt: ?60,SROP(3) Line Location: PRINT+14
Function Call: WRITE	Prompt: ?60,SROP(3) Line Location: PRINT+14
Function Call: WRITE	Prompt: ?60,SROP(3) Line Location: PRINT+14
Function Call: WRITE	Prompt: !,?60,SROPT(LOOP) Line Location: PRINT+16
Function Call: WRITE	Prompt: ! Line Location: PRINT+17
Function Call: WRITE	Prompt: ! Line Location: LINE+0
Function Call: WRITE	Prompt: "=" Line Location: LINE+0

Name	Line Occurrences (* Changed, ! Killed)
^ECC(723 - [#723]	PRINT+5
^SRF - [#130]	SROACC6+5, PRINT+2, PRINT+3, PRINT+4, PRINT+5, PRINT+8, UTIL+1, UTIL+2
^SRF("AC"	SROACC6+5
^SRO(136 - [#136]	UTIL+4, UTIL+5
^SRO(137.45 - [#137.45]	PRINT+4
^TMP("SR"	SROACC6+8, SROACC6+9, SRTN, DESC+1, DESC+6, UTIL+4, UTIL+5
^VA(200 - [#200]	PRINT+9, PRINT+10

Name	Field # of Occurrence
^(	PRINT+8

Name	Field # of Occurrence
>> CPT	UTIL+4, UTIL+5
>> CPT1	DESC+2*, DESC+3
>> DFN	PRINT+3*
>> EDATE	DESC+2, DESC+7
>> EDATE1	SROACC6+5
>> I	DESC+7*
IOSL	PRINT+1
>> LINE	DESC+8, LINE
>> LOOP	LOOP+1, PRINT+16
>> M	LOOP+1, PRINT+12, PRINT+15
MM	LOOP+1*, PRINT+12!
MMM	LOOP+1*, PRINT+12!, PRINT+15
>> OP	UTIL+5*
>> SDATE1	SROACC6+5
>> SR(	PRINT+8*
>> SRATT	PRINT+8, PRINT+10, PRINT+13
>> SRCPT	DESC+2, DESC+7, UTIL+4, UTIL+5
>> SRCPTT	PRINT+15*, PRINT+16
SRDESC	DESC+7!
SRDESC(	DESC+7
>> SRDT	PRINT+3, PRINT+6, PRINT+13
>> SRFLG	PRINT+14, UTIL+2, UTIL+3
>> SRHDR	SROACC6+6*
>> SRNAME	PRINT+7*, PRINT+13
>> SRNON	PRINT+2, PRINT+4, PRINT+5, PRINT+8, PRINT+14, UTIL+1, UTIL+2, UTIL+3
SROP	PRINT+12!
SROP(	LOOP+1*
SROP(1	PRINT+12*, PRINT+13
SROP(2	PRINT+13
SROP(3	PRINT+14
SROP(4	PRINT+14
SROP(5	PRINT+14
>> SROPER	LOOP+1, PRINT+12
SROPT	PRINT+12!
SROPT(	PRINT+16
SROPT(1	PRINT+15*
>> SRSDT	SROACC6+5, SROACC6+8, SRTN, PRINT+3, PRINT+6, UTIL+4, UTIL+5
>> SRSOUT	SROACC6+6, SROACC6+8, SRTN, DESC+1, PRINT+1
>> SRSS	PRINT+4, PRINT+5, PRINT+14
>> SRSUR	PRINT+8, PRINT+9, PRINT+13
>> SRTN	SROACC6+5, SRTN, PRINT+2, PRINT+3, PRINT+4, PRINT+5, PRINT+8, PRINT+13, UTIL+1, UTIL+2 , UTIL+4, UTIL+5
>> SSN	PRINT+7*
>> TYPE	SROACC6+7, SROACC6+8, SRTN, DESC+1, DESC+4, DESC+5, DESC+6
>> VA("PID"	PRINT+7, PRINT+13
>> VADM(1	PRINT+7
>> X	DESC+1, DESC+2, DESC+6, DESC+7, PRINT+4, PRINT+5
>> Y	DESC+7, PRINT+3, PRINT+6*