Routine: SROCOMP

Package	Total	Call Graph
Surgery	3	SSPRIN^SROCPT ^SROPS ^SRSKILL
DRG Grouper	1	$$CPT^ICPTCOD
Registration	1	DEM^VADPT
VA Fileman	1	(D,Y)^DIQ

Package

Total

Call Graph

Surgery

SSPRIN^SROCPT ^SROPS ^SRSKILL

DRG Grouper

$$CPT^ICPTCOD

Registration

DEM^VADPT

VA Fileman

(D,Y)^DIQ

Package	Total	Caller Graph
Surgery	1	SROMEN-M&M

Package

Total

Caller Graph

Surgery

SROMEN-M&M

Name	Comments	DBIA/ICR reference
END
HDR
RELATE	; print related returns
RET
POST	; postop occurrences
INTRA	; intraop occurrences
LOOP	; break procedure if greater than 55 characters

Name	Field # of Occurrence
D^DIQ	SROCOMP+4
Y^DIQ	SROCOMP+7
$$CPT^ICPTCOD	SROCOMP+9
SSPRIN^SROCPT	SROCOMP+9
^SROPS	SROCOMP+2
^SRSKILL	END+1
DEM^VADPT	SROCOMP+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Date of Operation: ",?21,SRSDATE,!,"Principal Operation: ",?21,SROPS(1) Line Location: SROCOMP+17
Function Call: WRITE	Prompt: !,?21,SROPS(2) Line Location: SROCOMP+17
Function Call: WRITE	Prompt: !,?21,SROPS(2) Line Location: SROCOMP+17
Function Call: WRITE	Prompt: !!,"Surgeon: ",?19,SRSUR,!,"Attending Surgeon: "_SRATT,!,"Attending Code: ",?16,SRATC Line Location: SROCOMP+18
Function Call: WRITE	Prompt: !!,"Principal "_$S(DIAG="POST":"Postop",1:"Preop")_" Diagnosis: ",?30,SRDIAG Line Location: SROCOMP+19
Function Call: WRITE	Prompt: "NONE ENTERED" Line Location: SROCOMP+20
Function Call: WRITE	Prompt: "NONE ENTERED" Line Location: SROCOMP+22
Function Call: WRITE	Prompt: !!,"Press RETURN to continue " Line Location: END+0
Function Call: WRITE	Prompt: @IOF Line Location: END+1
Function Call: READ	Timeout: DTIME Variable: X Line Location: RET+0
Function Call: WRITE	Prompt: !!,"Press RETURN to list more information, or '^' to leave this option." Line Location: RET+1
Function Call: WRITE	Prompt: @IOF,!,SRNAME,?50,"OCCURRENCES",! Line Location: HDR+0
Function Call: WRITE	Prompt: "-" Line Location: HDR+0
Function Call: WRITE	Prompt: ! Condition for execution: CMP>1 Line Location: INTRA+2
Function Call: WRITE	Prompt: ?30,$P(INTRA(CMP),"^") Line Location: INTRA+2
Function Call: WRITE	Prompt: !,?30,"Outcome: "_OUT Line Location: INTRA+2
Function Call: WRITE	Prompt: ! Condition for execution: CMP>1 Line Location: POST+2
Function Call: WRITE	Prompt: ?30,$P(POST(CMP),"^") Line Location: POST+2
Function Call: WRITE	Prompt: D Line Location: POST+2
Function Call: WRITE	Prompt: !,?30,"Outcome: "_OUT Line Location: POST+3
Function Call: WRITE	Prompt: !,SRSDATE,?10,SROPS(1) Line Location: RELATE+4
Function Call: WRITE	Prompt: !,?10,SROPS(2) Line Location: RELATE+4
Function Call: WRITE	Prompt: !,?10,SROPS(2) Line Location: RELATE+4
Function Call: WRITE	Prompt: ! Line Location: RELATE+5

Name	Line Occurrences (* Changed, ! Killed)
^DD(130	SROCOMP+7
^ICD9 - [#80]	SROCOMP+12
^SRF - [#130]	SROCOMP+3, SROCOMP+5, SROCOMP+7, SROCOMP+9, SROCOMP+11, SROCOMP+12, SROCOMP+14, SROCOMP+15, SROCOMP+25, RELATE+2
^VA(200 - [#200]	SROCOMP+6

Name	Line Occurrences
END	SROCOMP+2, SROCOMP+22, SROCOMP+24
HDR	SROCOMP+16
INTRA	SROCOMP+21
LOOP	SROCOMP+10, RELATE+3
POST	SROCOMP+23
RELATE	SROCOMP+26
RET	SROCOMP+26, RET+1, INTRA+1, POST+1, RELATE+1

Name	Field # of Occurrence
^("OP"	SROCOMP+9
^(0	SROCOMP+14, SROCOMP+15

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> C	SROCOMP+7*
>> CMP	SROCOMP+14, SROCOMP+15, SROCOMP+21, SROCOMP+23, INTRA+2, POST+2, POST+3
>> CNT	SROCOMP+14, SROCOMP+15, SROCOMP+25*
>> CPT	SROCOMP+9*
>> D	POST+2*
>> DFN	SROCOMP+3*
>> DIAG	SROCOMP+11*, SROCOMP+12, SROCOMP+19
DTIME	END, RET
>> ICD	SROCOMP+12*
>> INTRA(	SROCOMP+14*, SROCOMP+21, INTRA+2
>> INTRA(0	SROCOMP+20, SROCOMP+21
IOF	END+1, HDR
IOSL	INTRA+1, POST+1, RELATE+1
>> LINE	HDR*
>> LOOP	LOOP+1*
>> M	SROCOMP+10, LOOP+1, RELATE+3
MM	SROCOMP+10!, LOOP+1*, RELATE+3!
MMM	SROCOMP+10!, LOOP+1*, RELATE+3!
>> OUT	INTRA+2, POST+3
>> POST(	SROCOMP+15*, SROCOMP+23, POST+2, POST+3
>> POST(0	SROCOMP+22, SROCOMP+23
>> RET	SROCOMP+25, SROCOMP+26, RELATE+2
>> SR(	SROCOMP+5*
>> SR(0	SROCOMP+3*, SROCOMP+4
>> SRATC	SROCOMP+7, SROCOMP+8, SROCOMP+18
>> SRATT	SROCOMP+5, SROCOMP+6, SROCOMP+18
>> SRDIAG	SROCOMP+12, SROCOMP+13, SROCOMP+19
>> SRNAME	SROCOMP+3*, HDR
SRNEWOP	SROCOMP+2!
>> SROPER	SROCOMP+9, SROCOMP+10, LOOP+1, RELATE+2, RELATE+3*
SROPS	SROCOMP+10!, RELATE+3!
SROPS(	LOOP+1*
SROPS(1	SROCOMP+10, SROCOMP+17, RELATE+3, RELATE+4
SROPS(2	SROCOMP+17, RELATE+4
SROPS(3	SROCOMP+17, RELATE+4
SRRET	SROCOMP+25!
SRRET(	SROCOMP+25*, SROCOMP+26, RELATE+2
SRRET(0	SROCOMP+26
>> SRSDATE	SROCOMP+4, SROCOMP+17, RELATE+2, RELATE+4
>> SRSOUT	SROCOMP+2, SROCOMP+21, SROCOMP+22, SROCOMP+23, SROCOMP+24, SROCOMP+26, END, RET, INTRA+1, POST+1 , RELATE+1
>> SRSUR	SROCOMP+5, SROCOMP+6, SROCOMP+18
SRTN	SROCOMP+2, SROCOMP+3, SROCOMP+5, SROCOMP+7, SROCOMP+9, SROCOMP+11, SROCOMP+12, SROCOMP+14, SROCOMP+15, SROCOMP+25 , END+1!
>> VA("PID"	SROCOMP+3
>> VADM(1	SROCOMP+3
>> X	SROCOMP+9, SROCOMP+11, SROCOMP+12, SROCOMP+25, END, RET, RET+1
>> Y	SROCOMP+4, SROCOMP+7, SROCOMP+9, SROCOMP+25, RELATE+2*

Customize PDF page

Package: Surgery

Routine: SROCOMP

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: