Routine: SROACC1

Package	Total	Call Graph
Surgery	2	(HDR,LOOP,OPER)^SROACC0 ($$DIV,$$NODATA)^SROUTL0
DRG Grouper	1	($$CPT,$$CPTD)^ICPTCOD
Registration	1	DEM^VADPT
VA Fileman	1	D^DIQ

Package

Total

Call Graph

(HDR,LOOP,OPER)^SROACC0 ($$DIV,$$NODATA)^SROUTL0

($$CPT,$$CPTD)^ICPTCOD

DEM^VADPT

D^DIQ

Package	Total	Caller Graph
Surgery	1	SROACC0

Package

Total

Caller Graph

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

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

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

Name	Field # of Occurrence
^(	PRINT+5
^(0	UTIL+8

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

Information