Routine: SROALEC

Package	Total	Call Graph
Surgery	2	$$XL^SROAX $$MANDIV^SROUTL0
DRG Grouper	1	$$CPT^ICPTCOD
Registration	1	DEM^VADPT
VA Fileman	1	D^DIQ

Package	Total	Caller Graph
Surgery	1	SROALOG

Entry Points

Name	Comments	DBIA/ICR reference
CASE
HDR	; print heading
UTL	; set up TMP global
OTHER	; other operations
TOT
SRSD
GRAND
PRINT	; print case info
CPT	; check code for exclusion and get output value
PAGE
LOOP	; break procedures

External References

Name	Field # of Occurrence
D^DIQ	PRINT+8
$$CPT^ICPTCOD	CPT+2
$$XL^SROAX	UTL+5
$$MANDIV^SROUTL0	SROALEC+4
DEM^VADPT	PRINT+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,SRTN,?18,SRANM_" "_VA("PID"),?53,SRATYPE,?67,SRSTATUS,!,SRDT,?18,SROPS(1),! Line Location: PRINT+10
Function Call: WRITE	Prompt: ! Line Location: PRINT+11
Function Call: WRITE	Prompt: ?18,SROPS(I),! Line Location: PRINT+12
Function Call: WRITE	Prompt: !,">>> Final CPT Coding is not complete." Line Location: PRINT+16
Function Call: WRITE	Prompt: !,"CPT Codes: ",SRPROCS Line Location: PRINT+17
Function Call: WRITE	Prompt: ! Line Location: PRINT+18
Function Call: WRITE	Prompt: "-" Line Location: PRINT+18
Function Call: READ	Timeout: DTIME Variable: X Line Location: PAGE+1
Function Call: WRITE	Prompt: !!,"If you want to continue the listing, press the 'Enter' key.",!,"Type '^' to return to the menu." Line Location: PAGE+2
Function Call: WRITE	Prompt: @IOF,!,?(80-$L(SRTITLE)\2),SRTITLE,?70,$J("PAGE "_SRPAGE,9) Line Location: HDR+1
Function Call: WRITE	Prompt: !,?(80-$L(SRINST)\2),SRINST Condition for execution: $E(IOST)="P" Line Location: HDR+1
Function Call: WRITE	Prompt: !,?(80-$L(SRFRTO)\2),SRFRTO Line Location: HDR+1
Function Call: WRITE	Prompt: !,">>> "_SRSS Line Location: HDR+3
Function Call: WRITE	Prompt: "=" Line Location: HDR+4
Function Call: WRITE	Prompt: !!,"TOTAL FOR "_SRSS_": ",TOT Line Location: TOT+0
Function Call: WRITE	Prompt: !!,"TOTAL: ",GRAND Line Location: GRAND+0
Function Call: WRITE	Prompt: !!,"TOTAL FOR ALL SPECIALTIES: ",GRAND Line Location: GRAND+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^SRF - [#130]	SROALEC+4, UTL+2, UTL+3, UTL+4, UTL+6, UTL+10, PRINT+3, PRINT+6, OTHER+1, OTHER+2
^SRF("AC"	SROALEC+4
^SRO(136 - [#136]	UTL+5, PRINT+13, PRINT+14, PRINT+16
^SRO(137 - [#137]	CPT+3
^SRO(137.45 - [#137.45]	SROALEC+3, UTL+10, PRINT+5
^TMP("SRA"	SROALEC+2!, SROALEC+5, SROALEC+6, UTL+10, UTL+11, SRSD

Label References

Name	Line Occurrences
CASE	SROALEC+6, SRSD
CPT	PRINT+13, PRINT+14
GRAND	SROALEC+7, SROALEC+8, SROALEC+9, SROALEC+10, SROALEC+11
HDR	SROALEC+8, SROALEC+9, SROALEC+10, PAGE
LOOP	PRINT+7
OTHER	PRINT+6
PAGE	PRINT+2, PRINT+9, PAGE+2
PRINT	CASE+6
SRSD	SROALEC+5
TOT	SROALEC+5, GRAND+2
UTL	SROALEC+4

Naked Globals

Name	Field # of Occurrence
^(	SROALEC+6, SRSD

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> DFN	PRINT+3*
DTIME	PAGE+1
>> GRAND	SROALEC+2, SROALEC+7, SROALEC+8, SROALEC+9, SROALEC+10, SROALEC+11, CASE+6, GRAND, GRAND+1
I	PRINT+3~, PRINT+6, PRINT+11, PRINT+12*
IOF	HDR+1
IOSL	PRINT+2, PRINT+9
IOST	PAGE, HDR+1, HDR+2
>> LINE	PRINT+18, HDR+4
>> LOOP	LOOP+1*
>> M	PRINT+7*, LOOP+1
MM	PRINT+7!, LOOP+1*
MMM	PRINT+7!, LOOP+1*
>> SRA	SROALEC+6, UTL+6, UTL+7, UTL+8, UTL+9, UTL+10, UTL+11, SRSD*, CASE, CASE+3 , PRINT+8
>> SRA(0	PRINT+3*, PRINT+5
SRA2	CASE~*, CASE+1, CASE+2, CASE+5
>> SRANM	PRINT+3, PRINT+4, PRINT+10
>> SRASP	SROALEC+3, UTL+4
>> SRASSN	PRINT+3*
>> SRAST	UTL+7, UTL+8, UTL+9
>> SRATYPE	CASE+1, CASE+3, CASE+4, CASE+5, PRINT+10
>> SRCODE	PRINT+13, PRINT+15, CPT+1, CPT+2, CPT+4*
SRCPLT	UTL+1~, UTL+5*
SRDA	PRINT+1~, PRINT+14*
>> SRDT	PRINT+8*, PRINT+10
>> SRED	SROALEC+4
SREX	CPT+1~, CPT+3, CPT+4
>> SRFLG	SROALEC+3, SROALEC+7, SROALEC+8, SROALEC+9, UTL+4, GRAND+1, GRAND+2
>> SRFRTO	HDR+1
>> SRHDR	SROALEC+2, PAGE, HDR+5
>> SRINST	HDR+1
>> SRINSTP	SROALEC+4
>> SRLONG	OTHER+1*, OTHER+2
>> SRNEW	SROALEC+2, SROALEC+6, SRSD, PRINT+2, HDR+5
>> SROPER	PRINT+6, PRINT+7, OTHER+1, OTHER+3, LOOP+1
>> SROPERS	OTHER+1, OTHER+2, OTHER+3
SROPS	PRINT+7!
SROPS(	PRINT+11, PRINT+12, LOOP+1*
SROPS(1	PRINT+7*, PRINT+10
>> SROTHER	PRINT+6, OTHER+1, OTHER+2
>> SRPAGE	SROALEC+2, HDR+1, HDR+5
>> SRPRINT	HDR+2
SRPROCS	PRINT+1~, PRINT+13, PRINT+15, PRINT+16, PRINT+17
>> SRSD	SROALEC+4, SROALEC+6, UTL+10, UTL+11, SRSD*, PRINT+8, CPT+2
>> SRSOUT	SROALEC+2, SROALEC+4, SROALEC+5, SROALEC+6, SROALEC+7, SRSD, PRINT+2, PRINT+9, PRINT+18, PAGE+1
>> SRSP	SROALEC+5, SROALEC+6, SROALEC+7, SROALEC+9, SROALEC+10, SROALEC+11, UTL+10, PRINT+11, PRINT+12, HDR+3 , HDR+4, GRAND, GRAND+1, GRAND+2
SRSP1	PRINT+1~, PRINT+5*, PRINT+11
>> SRSPEC	SROALEC+3*, SROALEC+8, GRAND+2
>> SRSS	SROALEC+5, SROALEC+8, SROALEC+9, SROALEC+10, SROALEC+11, UTL+10, SRSD, HDR+3, TOT, GRAND+2*
>> SRSTATUS	PRINT+8*, PRINT+10
>> SRTITLE	SROALEC+2*, HDR+1
>> SRTN	SROALEC+4, SROALEC+6, UTL+2, UTL+3, UTL+4, UTL+5, UTL+6, UTL+10, UTL+11, SRSD* , PRINT+3, PRINT+6, PRINT+10, PRINT+13, PRINT+14, PRINT+16, OTHER+1, OTHER+2
SRY	PRINT+1~, PRINT+13, PRINT+14, CPT+2, CPT+3
>> TOT	SROALEC+2, SROALEC+5, SROALEC+6, SRSD, CASE+6, TOT
>> VA("PID"	PRINT+3, PRINT+10
VADM	PRINT+3!
VADM(1	PRINT+3
>> X	PRINT+5, PRINT+8, PAGE+1*, PAGE+2
Y	PRINT+8, CPT+1~, CPT+2

Customize PDF page

Package: Surgery

Routine: SROALEC

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: