Routine: ICPTAPIU

Package	Total	Call Graph
DRG Grouper	2	$$VST^ICPTCOD ($$DTBR,$$GBL)^ICPTSUPT
VA Fileman	2	^DIWP ^DIWW
Kernel	1	$$DT^XLFDT

Package

Total

Call Graph

DRG Grouper

$$VST^ICPTCOD ($$DTBR,$$GBL)^ICPTSUPT

VA Fileman

^DIWP ^DIWW

Kernel

$$DT^XLFDT

Package	Total	Caller Graph
Clinical Reminders	10	PXRMBXTL PXRMCSSC PXRMLEXL PXRMP4I PXRMPTTX PXRMTAXD PXRMTECK PXRMTXCR PXRMTXIN PXRMV2I
DRG Grouper	4	ICPTCOD ICPTCR ICPTID ICPTPRN
Lexicon Utility	4	LEXAR5 LEXQCM LEXQCP2 LEXSRC2
Order Entry Results Reporting	1	ORWPCE2
Registration	1	VACPT
Surgery	1	SROVAR
Third Party Billing	1	ABMCVAPI

Package

Total

Caller Graph

Clinical Reminders

PXRMBXTL PXRMCSSC PXRMLEXL PXRMP4I PXRMPTTX PXRMTAXD PXRMTECK PXRMTXCR
PXRMTXIN PXRMV2I

DRG Grouper

ICPTCOD ICPTCR ICPTID ICPTPRN

Lexicon Utility

LEXAR5 LEXQCM LEXQCP2 LEXSRC2

Order Entry Results Reporting

ORWPCE2

Registration

VACPT

Surgery

SROVAR

Third Party Billing

ABMCVAPI

Entry Points

Name	Comments	DBIA/ICR reference
NEXT(CODE)	; Next CPT Code or Modifier (active or inactive) ; Input: ; CODE = CPT Code/Modifier REQUIRED
COPY	; API to Print Copyright Information
HIST(CODE,ARY)	; Activation History ; Input: ; CODE - CPT Code or Modifier REQUIRED ; .ARY - Array, passed by Reference REQUIRED
STATCHK(CODE,CDT)	; Check Status of CPT Code or Modifier ; Input: ; CODE - CPT Code/Modifier REQUIRED ; CDT - Date to screen against (FileMan format, default = today)
ACT(ICPTG,ICPTC,ICPTS,ICPTD)	; return "ACT" root
CAT(CAT,DFN)	; Return CATEGORY NAME given IEN ; Input: CAT = category ien REQUIRED ; DFN - not in use but included in anticipation of future need
PREV(CODE)	; Previous CPT Code or Modifier (active or inactive) ; Input: ; CODE = CPT Code/Modifier REQUIRED
CATQ
PERIOD(CODE,ARY)	; return Activation/Inactivation Period in ARY
CPTDIST()	; Distribution Date ; Input: none (extrinsic variable) ; Output: returns DISTRIBUTION DATE, date codes effective in Austin
NUM(Y)	; Convert CPT/HCPCS Code to Numeric ; Convert HCPCS to $A() of Alpha _ Numeric Portion

Name	Field # of Occurrence
^DIWP	COPY+5
^DIWW	COPY+6
$$VST^ICPTCOD	PERIOD+28, PERIOD+37, PERIOD+51
$$DTBR^ICPTSUPT	STATCHK+24
$$GBL^ICPTSUPT	STATCHK+21, NEXT+9, PREV+9, HIST+12, PERIOD+22
$$DT^XLFDT	STATCHK+24, PERIOD+28

Name	Line Occurrences
Function Call: WRITE	Prompt: !!! Line Location: COPY+4

Name	Line Occurrences (* Changed, ! Killed)
^DIC(81.1 - [#81.1]	CAT+11, CAT+18
^DIC(81.2 - [#81.2]	CPTDIST+3, COPY+3, COPY+5
^UTILITY($J	COPY+3!

Name	Line Occurrences
$$ACT	STATCHK+25, STATCHK+28, STATCHK+34, STATCHK+36, STATCHK+41, STATCHK+47
CATQ	CAT+9, CAT+10, CAT+12, CAT+13

Name	Field # of Occurrence
^(	COPY+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ARY	HIST~, PERIOD~
ARY(	HIST+20, PERIOD+38, PERIOD+39, PERIOD+43, PERIOD+46, PERIOD+49, PERIOD+52, PERIOD+53
ARY("IEN"	HIST+14*, HIST+16!
ARY(0	HIST+15, HIST+16, HIST+20, HIST+21, PERIOD+20, PERIOD+22, PERIOD+23, PERIOD+24, PERIOD+25
CAT	CAT~, CAT+9, CAT+10, CAT+11, CAT+15
CATN	CAT+7~, CAT+14*, CAT+15, CAT+19
CDT	STATCHK~, STATCHK+24
CODE	STATCHK~, STATCHK+18, NEXT~, NEXT+8, PREV~, PREV+8, HIST~, HIST+10, HIST+12, HIST+13 , PERIOD~, PERIOD+20, PERIOD+22, PERIOD+23
DFN	CAT~
DIR	COPY+2~
DIWF	COPY+2~, COPY+4*
DIWL	COPY+2~, COPY+4*
DIWR	COPY+2~, COPY+4*
>> ICPT0("B"	HIST+15!
ICPTA	STATCHK+17~, STATCHK+25, STATCHK+26, STATCHK+27, STATCHK+28, STATCHK+35, STATCHK+36, STATCHK+40, STATCHK+46, PERIOD+21~ , PERIOD+26, PERIOD+30, PERIOD+31, PERIOD+32, PERIOD+37, PERIOD+38, PERIOD+39, PERIOD+43, PERIOD+46, PERIOD+49 , PERIOD+52, PERIOD+53, PERIOD+54*
ICPTBA	PERIOD+21~, PERIOD+26, PERIOD+29, PERIOD+31, PERIOD+33, PERIOD+43, PERIOD+46*
ICPTBI	PERIOD+21~, PERIOD+38, PERIOD+40, PERIOD+43, PERIOD+46, PERIOD+49, PERIOD+54*
ICPTC	STATCHK+17~, STATCHK+18, STATCHK+21, STATCHK+25, STATCHK+28, STATCHK+34, STATCHK+36, STATCHK+41, STATCHK+47, NEXT+7~ , NEXT+8, NEXT+9, NEXT+10, NEXT+11, PREV+7~, PREV+8, PREV+9, PREV+10, PREV+11, HIST+11~ , HIST+17, HIST+20, PERIOD+21~, PERIOD+23, PERIOD+24*, PERIOD+26, PERIOD+28, PERIOD+37, PERIOD+51, ACT~ , ACT+1
ICPTCA	PERIOD+21~, PERIOD+37, PERIOD+54
ICPTD	STATCHK+17~, STATCHK+24, STATCHK+25, STATCHK+34, STATCHK+40, HIST+11~, HIST+18, HIST+20, ACT~, ACT+1
ICPTF	HIST+11~, HIST+19, HIST+20, PERIOD+21~, PERIOD+32, PERIOD+33, PERIOD+34, PERIOD+44*, PERIOD+46, PERIOD+47
ICPTG	STATCHK+17~, STATCHK+21, STATCHK+25, STATCHK+28, STATCHK+34, STATCHK+36, STATCHK+41, STATCHK+47, NEXT+7~, NEXT+9 , NEXT+10, PREV+7~, PREV+9, PREV+10, HIST+11~, HIST+12, HIST+13, HIST+14, PERIOD+21~, PERIOD+22* , PERIOD+23, PERIOD+24, PERIOD+25, PERIOD+26*, PERIOD+28, PERIOD+30, PERIOD+32, PERIOD+34, PERIOD+37, PERIOD+41 , PERIOD+44, PERIOD+47, PERIOD+51, ACT~, ACT+1
ICPTI	STATCHK+17~, STATCHK+34, STATCHK+35, STATCHK+40, STATCHK+41, STATCHK+46, STATCHK+47, HIST+11~, HIST+13, HIST+14 , HIST+17, HIST+18, HIST+19, PERIOD+21~, PERIOD+38, PERIOD+41*, PERIOD+43, PERIOD+44, PERIOD+51, PERIOD+52 , PERIOD+54
ICPTIEN	STATCHK+17~, STATCHK+29, STATCHK+30, STATCHK+36, STATCHK+37, STATCHK+41, STATCHK+42, STATCHK+47, STATCHK+48, STATCHK+50
ICPTN	HIST+11~, PERIOD+21~, PERIOD+28*, PERIOD+43, PERIOD+46, PERIOD+49
ICPTO	HIST+11~, HIST+14*
ICPTO(	HIST+17, HIST+18, HIST+19
ICPTO(0	HIST+15
ICPTR	STATCHK+17~, STATCHK+25, STATCHK+27, STATCHK+28, STATCHK+29, STATCHK+34, STATCHK+36, STATCHK+41, STATCHK+47, STATCHK+48
ICPTS	PERIOD+21~, PERIOD+24*, PERIOD+38, ACT~, ACT+1
ICPTST	PERIOD+21~, PERIOD+34, PERIOD+35, PERIOD+47, PERIOD+49
ICPTV	PERIOD+21~, PERIOD+37, PERIOD+39, PERIOD+51, PERIOD+53
ICPTZ	PERIOD+21~, PERIOD+24*, PERIOD+25
MCATIEN	CAT+7~, CAT+8, CAT+15, CAT+17*, CAT+18, CAT+19
MCATNM	CAT+7~, CAT+8, CAT+15, CAT+18*, CAT+19
STR	CAT+7~, CAT+9, CAT+10, CAT+11, CAT+12, CAT+13, CAT+14, CAT+15, CAT+16, CAT+17 , CAT+19, CATQ
VARR	COPY+2~, COPY+5*
VAXX	COPY+2~, COPY+5*, COPY+6
X	COPY+2~, COPY+5, STATCHK+17~, STATCHK+26, STATCHK+27, STATCHK+30, STATCHK+35, STATCHK+37, STATCHK+40, STATCHK+42* , STATCHK+46, STATCHK+48*
Y	NUM~, NUM+16

Customize PDF page

Package: DRG Grouper

Routine: ICPTAPIU

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 22

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: