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	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

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

External References

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

Interaction Calls

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

Global Variables Directly Accessed

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!

Label References

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

Naked Globals

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: