Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: ICPTAPIU

Package: DRG Grouper

Routine: ICPTAPIU


Information

ICPTAPIU ;ALB/DEK/KER - CPT UTILITIES FOR APIS ; 04/18/2004

Source Information

Source file <ICPTAPIU.m>

Call Graph

Call Graph Total: 5

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

Caller Graph

Caller Graph Total: 22

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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All