Routine: SROACC5

Package	Total	Call Graph
Surgery	3	HDR^SROACC (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^SROACC (LOOP,OPER)^SROACC0 ($$DIV,$$NODATA)^SROUTL0

($$CPT,$$CPTD)^ICPTCOD

DEM^VADPT

D^DIQ

Package	Total	Caller Graph
Surgery	1	SROACC

Package

Total

Caller Graph

Name	Comments	DBIA/ICR reference
CNT	; get count
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: SROACC5+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+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+17
Function Call: WRITE	Prompt: ! Line Location: PRINT+18
Function Call: WRITE	Prompt: ! Line Location: LINE+0
Function Call: WRITE	Prompt: "=" Line Location: LINE+0

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

Name	Field # of Occurrence
>> CPT	SROACC5+6, CNT+1, CNT+2, MORE+2, MORE+3, SRTN, DESC+1, DESC+5, UTIL+4, UTIL+5*
>> CPT1	MORE+2*, DESC+2
>> DFN	PRINT+3*
>> EDATE	MORE+2, DESC+5
>> EDATE1	SROACC5+5
>> I	DESC+5*
IOSL	MORE+1, PRINT+1
>> LINE	DESC+6, LINE
>> LOOP	LOOP+1, PRINT+17
>> M	LOOP+1, PRINT+12, PRINT+16
MM	LOOP+1*, PRINT+12!
MMM	LOOP+1*, PRINT+12!, PRINT+16
>> OP	UTIL+5*
>> SDATE1	SROACC5+5
>> SR(	PRINT+8*
>> SRATT	PRINT+8, PRINT+10, PRINT+13
>> SRCPTT	PRINT+16*, PRINT+17
SRDESC	DESC+5!
SRDESC(	DESC+5
>> SRDT	PRINT+3, PRINT+6, PRINT+13
>> SRFLG	PRINT+14, UTIL+2, UTIL+3
>> SRHDR	SROACC5+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+17
SROPT(1	PRINT+16*
>> SRSDT	SROACC5+5, MORE+3, SRTN, PRINT+3, PRINT+6, UTIL+4, UTIL+5
>> SRSOUT	SROACC5+6, MORE+1, MORE+3, SRTN, DESC+1, PRINT+1
>> SRSS	PRINT+4, PRINT+5, PRINT+14
>> SRSUR	PRINT+8, PRINT+9, PRINT+13
>> SRTN	SROACC5+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	MORE+2, MORE+3, SRTN, DESC+1, DESC+3, DESC+4
>> VA("PID"	PRINT+7, PRINT+13
>> VADM(1	PRINT+7
>> X	CNT+1, CNT+2, MORE+2, DESC+5, PRINT+4, PRINT+5, UTIL+4*
>> Y	DESC+5, PRINT+3, PRINT+6*

Information