Routine: ICPTMOD2

Package	Total	Call Graph
DRG Grouper	3	$$CODEN^ICPTCOD $$VSTCM^ICPTMOD $$EFF^ICPTSUPT
Kernel	1	($$DT,$$FMADD)^XLFDT

Package	Total	Caller Graph
DRG Grouper	1	ICPTMOD

Entry Points

Name	Comments	DBIA/ICR reference
MODA	; Create an array of Modifiers for a CPT Code
MULT	; Finds iens for all modifiers with same 2-letter code ; MOD = .01, check B x-ref for dupliate .01 fields ; Output: ; STR - a ";" delimited string of IENS for modifier MOD
MODC(MOD)	; Checks modifier for active range including code
MODP(CODE,MOD,MFT,MDT,SRC,DFN)	; Check if modifier can be used with code (pair)

External References

Name	Field # of Occurrence
$$CODEN^ICPTCOD	MODP+35
$$VSTCM^ICPTMOD	MODP+43
$$EFF^ICPTSUPT	MODP+33, MODP+40, MODC+6
$$DT^XLFDT	MODA+34, MODP+30, MODP+52, MODP+53
$$FMADD^XLFDT	MODP+52, MODP+53

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(81.3 - [#81.3]	MODA+35, MODA+36, MODA+37, MODP+32, MODP+41, MODP+42, MODP+44, MODP+45, MODC+8, MODC+10 , MODC+13, MULT+4
^ICPT - [#81]	MODP+35, MODP+36, MODP+39
^ICPT("BA"	MODA+33, MODP+38

Label References

Name	Line Occurrences
$$MODP	MODA+38

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
A	MODA+32~, MODA+40*, MODA+41
ADT	MODP+28~, MODP+48, MODP+49, MODP+50, MODP+51, MODP+52, MODP+53, MODP+55*
ARY	MODA+32!
ARY(	MODA+39*, MODA+40
ARY(0	MODA+41*
BEGA	MODP+28~, MODP+46*, MODP+49, MODP+50, MODP+51
BEGR	MODP+28~, MODP+46*, MODP+47, MODP+53
CDT	MODP+28~, MODP+43*, MODP+50, MODP+54, MODP+55
CODE	MODA+33, MODA+38, MODA+41, MODP~, MODP+35, MODP+36*, MODP+37, MODP+38
CODEA	MODP+28~, MODP+37*, MODP+46, MODP+48, MODP+49, MODP+50, MODP+51, MODC+8, MODC+12
CODN	MODP+28~, MODP+35*, MODP+36
DFN	MODP~
EFF	MODA+32~, MODA+36*, MODA+39
ENDA	MODP+28~, MODP+47*, MODP+48, MODP+49, MODP+50, MODP+51
ENDR	MODP+28~, MODP+47*, MODP+48, MODP+53
I	MODA+32~, MODA+40*, MODA+41
ICD	MODP+28~, MODP+48, MODP+52, MODP+53
ID	MODA+32~, MODA+38*, MODA+39
IDT	MODP+28~, MODP+48, MODP+49, MODP+50, MODP+51, MODP+52, MODP+53*
LACT	MODP+28~, MODP+44, MODP+49, MODP+50*, MODP+54
LINA	MODP+28~, MODP+44, MODP+51, MODP+54
MDT	MODP~, MODP+29, MODC+6
MFT	MODP~, MODP+29*, MODP+31, MODP+35
MIEN	MODA+32~, MODA+35, MODA+36, MODA+37, MODA+38, MODP+28~, MODP+31, MODP+32, MODP+34, MODP+35 , MODP+38*, MODP+40, MODP+41, MODP+42, MODP+43, MODP+44, MODP+45, MODP+53
MOD	MODA+32~, MODA+37, MODA+39, MODA+40, MODP~, MODP+32, MODP+35, MODP+55*, MODP+56, MODP+57 , MODC~, MODC+6, MODC+8, MODC+10, MODC+13, MODC+14, MULT+4
MODEFF	MODP+28~, MODP+40, MODC+5~, MODC+6, MODC+7
MODI	MODP+28~, MODP+42*, MODP+53
>> MODN	MULT+4*
MODNM	MODP+28~, MODP+41, MODC+5~, MODC+13, MODC+14
MODST	MODP+28~, MODP+43*, MODP+53
ND	MODP+28~, MODP+45*, MODP+46, MODP+47, MODP+48, MODP+52
NSTA	MODP+28~, MODP+45~, MODP+49, MODP+50*, MODP+52
>> PR	MODC+8*, MODC+9, MODC+10
>> PRN	MODC+10*, MODC+11, MODC+12
RIEN	MODP+28~, MODP+44*, MODP+45
RSTA	MODP+28~, MODP+44, MODP+49, MODP+50, MODP+54, MODP+56
SIEN	MODP+28~, MODP+38*, MODP+39
SRC	MODA+32~, MODA+35, MODP~, MODP+38, MODP+39
ST	MODA+32~, MODA+36, MODA+40, MODA+41*
STA	MODP+28~, MODP+43, MODP+53, MODP+55*
STI	MODP+28~, MODP+43*
>> STR	MODC+7, MODC+9, MODC+11, MODC+12, MODC+14, MULT+4
STX	MODP+28~, MODP+43!
STX(	MODP+53*, MODP+55
STX("B"	MODP+53*, MODP+55
TA	MODP+28~
TA(	MODP+33*
TA(0	MODP+33*, MODP+34
TA(1	MODP+34
TEFF	MODP+28~, MODP+33*
TI	MODP+28~, MODP+32, MODP+33
TIEN	MODP+28~, MODP+32*, MODP+33
VDT	MODA+34, MODA+38, MODP+28~, MODP+29, MODP+30*, MODP+31, MODP+33, MODP+40, MODP+43
X	MODA+32~, MODA+38*, MODA+39

Customize PDF page

Package: DRG Grouper

Routine: ICPTMOD2

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Global Variables Directly Accessed

Label References

Local Variables

Legend: