Routine: SROCPT0

Package	Total	Call Graph
DRG Grouper	2	($$CPT,$$CPTD)^ICPTCOD $$MOD^ICPTMOD
VA Fileman	1	EN^DDIOL

Package	Total	Caller Graph
Surgery	9	SROACOD SROALST SROAOTH SROAPCA1 SROAPRT6 SROAUTL0 SROCD0 SROCDX SROUTLN

Entry Points

Name	Comments	DBIA/ICR reference
ACTIV(SRTN,SRCODE)	; screen for active CPT codes
SSPRIN	; append CPT modifiers to principal CPT code
DES	; get short name and description
1
SSOTH	; append CPT modifiers to other CPT code
IN	; check CPT input
DUP	; check for duplicate other procedure CPT
OTHDISP	; output other procedure CPT
DISPLAY	; output principal CPT

External References

Name	Field # of Occurrence
EN^DDIOL	1+6, DISPLAY+6, DISPLAY+9, OTHDISP+6, OTHDISP+9, DUP+4
$$CPT^ICPTCOD	DISPLAY+3, OTHDISP+3, DES+3, ACTIV+4
$$CPTD^ICPTCOD	1+5, DES+4
$$MOD^ICPTMOD	DISPLAY+9, OTHDISP+9, SSPRIN+3, SSOTH+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: DISPLAY+10

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^SRF - [#130]	1+3, DISPLAY+9, OTHDISP+9, DES+2, ACTIV+3
^SRO(136 - [#136]	DISPLAY+5, DISPLAY+8, DISPLAY+9, OTHDISP+5, OTHDISP+8, OTHDISP+9, DUP+2, DUP+4, SSPRIN+1, SSPRIN+2 , SSPRIN+3, SSOTH+1, SSOTH+2, SSOTH+3

Label References

Name	Line Occurrences
DES	DISPLAY+5, OTHDISP+5
SSOTH	OTHDISP+4
SSPRIN	DISPLAY+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> DA	1+2, OTHDISP+3, DUP+3
>> DA(1	1+2
DT	1+1, DES+2, ACTIV+2
ICPTVDT	1+4, ACTIV+1!, ACTIV+4*
>> QPQPQ	DISPLAY+4, OTHDISP+4
SRCMOD	IN+1!, SSPRIN+1~, SSPRIN+2, SSPRIN+3, SSPRIN+4, SSOTH+1~, SSOTH+2, SSOTH+3*, SSOTH+4
SRCODE	1~, 1+5, DISPLAY+2~, OTHDISP+2~, DES+1, DES+3, DES+4, ACTIV~, ACTIV+4
SRCOMMA	SSPRIN+1~, SSPRIN+2, SSPRIN+4, SSOTH+1~, SSOTH+2, SSOTH+4
SRCPT	DISPLAY+2~, DISPLAY+6, OTHDISP+2~, OTHDISP+6, IN+1~, IN+2, SSPRIN+1~, SSPRIN+2, SSPRIN+4, SSPRIN+5 , SSOTH+1~, SSOTH+2, SSOTH+4*, SSOTH+5
SRDA	1~, 1+2, 1+3, DISPLAY+2~, DISPLAY+3, DISPLAY+5, DISPLAY+8, DISPLAY+9, OTHDISP+2~, OTHDISP+3* , OTHDISP+5, OTHDISP+8, OTHDISP+9, DES+1, SSOTH+1, SSOTH+2, SSOTH+3
SRDA(1	OTHDISP+3*, OTHDISP+5, OTHDISP+8, OTHDISP+9, DES+1
SRDAA	DES+1~*, DES+2
SRDATE	1~, 1+1, 1+3, 1+4*, 1+5
SRDD	DES+1~, DES+2*, DES+3, DES+4
SRDES	1~, DISPLAY+2~, OTHDISP+2~
SRDES(	1+6, DES+5
>> SRDIE	DISPLAY+4, OTHDISP+4
SRI	1~, 1+6, DISPLAY+2~, DISPLAY+8, DISPLAY+9, OTHDISP+2~, OTHDISP+8, OTHDISP+9, DES+4, DES+5 , SSPRIN+1~, SSPRIN+2, SSPRIN+3, SSOTH+1~, SSOTH+2, SSOTH+3
SRK	DISPLAY+2~, OTHDISP+2~, DES+1, DES+3, DES+4*, DES+6
SRM	SSPRIN+1~, SSPRIN+3, SSOTH+1~, SSOTH+3
SROK	ACTIV+2~, ACTIV+4, ACTIV+5
SRP	DISPLAY+2~, OTHDISP+2~
SRQ	DUP+1~, DUP+2, DUP+3, DUP+4*
SRSDATE	ACTIV+2~, ACTIV+3, ACTIV+4
SRTN	1+2, DISPLAY+3, OTHDISP+3, DES+1, ACTIV~, ACTIV+3, DUP+2, DUP+4, SSPRIN+1, SSPRIN+2 , SSPRIN+3, SSOTH+1, SSOTH+2, SSOTH+3
SRW	DISPLAY+2~, DISPLAY+6, OTHDISP+2~, OTHDISP+6, DES+3*
SRX	1~, 1+5, 1+6, DISPLAY+2~, DISPLAY+7, DISPLAY+9, OTHDISP+2~, OTHDISP+7, OTHDISP+9, IN+1~ , DUP+1~, DUP+2*, DUP+3, DUP+4
SRY	DISPLAY+2~, DISPLAY+9, OTHDISP+2~, OTHDISP+9, DES+3, DES+4
SRZ	DISPLAY+2~, DISPLAY+9, OTHDISP+2~, OTHDISP+9
U	DUP+4
X	DES+1~, DES+4, DES+5, IN+1, IN+2, DUP+4!, SSPRIN+1~, SSOTH+1~
>> Y	1+5, DISPLAY+1, DISPLAY+3, OTHDISP+1, OTHDISP+3, DES+1, DES+6, SSPRIN+2, SSPRIN+5, SSOTH+2 , SSOTH+5*
Z	DES+1~, DES+5*

Customize PDF page

Package: Surgery

Routine: SROCPT0

Information

Source Information

Call Graph

Call Graph Total: 3

Caller Graph

Caller Graph Total: 9

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: