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 |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: ICPTCOD

Package: CPT HCPCS Codes

Routine: ICPTCOD


Information

ICPTCOD ;ALB/DEK/KER - CPT CODE APIS ;11/29/2007

Source Information

Source file <ICPTCOD.m>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
CPT HCPCS Codes 3 $$NUM^ICPTAPIU  ($$MOD,$$MODP,$$VSTCM)^ICPTMOD  ($$DTBR,$$EFF,$$MSG)^ICPTSUPT  
Kernel 1 $$DT^XLFDT  

Caller Graph

Caller Graph Total: 317

Package Total Caller Graph
Surgery 55 SRHLUO1  SRHLUO2  SRHLUO3  SRHLVUO1  SRHLVUO2  SRO1L1  SROACC  SROACC0  
SROACC1  SROACC2  SROACC3  SROACC4  SROACC5  SROACC6  SROACCM  SROACOD  
SROADX1  SROALEC  SROALST  SROAOPS  SROAOTH  SROAPAS  SROAPCA1  SROAPRT6  
SROAR1  SROAR2  SROATCM1  SROATM2  SROATM3  SROATMNO  SROAUTL  SROAUTL0  
SROAX  SROCD0  SROCD2  SROCDX  SROCOMP  SROCPT  SROCPT0  SROCVER  
SROESAD1  SROESNR2  SROGMTS  SRONAN1  SROPCE0A  SROQIDP  SRORTRN  SROTHER  
SROUTL  SROUTLN  SROVER  SROVER1  SROVER2  SROVER3  SRSCOR  
Event Capture 38 ECBEN2A  ECBEP1B  ECED1  ECED2  ECED3  ECEDU  ECEFPAT  ECHECK1  
ECINCPT  ECMDDSSU  ECMDECS  ECMFECS  ECMLMN  ECMLMP  ECNTPCE  ECOSSUM  
ECPAT  ECPCER  ECPROV3  ECPRSUM1  ECRDSSA  ECRDSSEC  ECRDSSU  ECRDSSU2  
ECRECSIC  ECRECSPC  ECRPROC  ECRPRSN  ECRPRSN2  ECSCPT1  ECSCR  ECSCRN  
ECSUM1  ECSUM2  ECUERPC  ECUMRPC  ECUTL  ECV3RPC  
Integrated Billing 33 IBACSV  IBATUTL  IBBAADTI  IBCCPT  IBCEF1  IBCRBC1  IBCRBC3  IBCRBF  
IBCRBH1  IBCREC  IBCRER  IBCRLM  IBCRU6  IBCSC61  IBCU1  IBCU62  
IBCU63  IBCU7  IBCU7A1  IBECPTE  IBECPTT  IBEFUNC2  IBFBWL2  IBJDB21  
IBOBL  IBOCNC1  IBOCNC2  IBOCOSI  IBTOECT  IBTRH5B  IBTUBO1  IBTUTL5  
IBYPSP1  
PCE Patient Care Encounter 27 PX10118P  PXAICPT  PXAICPTV  PXBDCPT  PXBGCPT  PXBGCPT2  PXBGCPT4  PXBMCPT2  
PXBPCPT  PXBPCPT1  PXBSTOR  PXBUTL  PXCACPT  PXCECPT  PXCEVFI1  PXCPTAPI  
PXKFCPT1  PXKMAIN2  PXLEX  PXPNARR  PXPXRMI1  PXQUTL  PXRPC1  PXRRMDR  
PXSCH2  PXVP215  PXVRPC4A  
Lexicon Utility 17 LEX10CS2  LEX2044P  LEX2047A  LEXABC2  LEXASO  LEXINF3  LEXQCP  LEXQCPA  
LEXQHL3  LEXQL  LEXQL4  LEXU  LEXU2  LEXU4  LEXU6  LEXU7  
LEXXM  
Automated Information Collection System 14 IBDF17  IBDF18A2  IBDF18E0  IBDFBK3  IBDFLST  IBDFN12  IBDFN14  IBDFN4  
IBDFN7  IBDFN8  IBDFN9  IBDFRPC6  IBDFUTL1  ^IBE(357.69  
Scheduling 14 SCMSVUT1  SCRPW15  SCRPW241  SCRPW40  SCRPW45  SCRPW46  SCRPW56  SDAMBAE3  
SDAMBAE4  SDAMBMR1  SDAMBMR2  SDCO0  SDOECPT  SDPPADD1  
Lab Service 13 LRBEBA  LRBEBA4  LRBEBA5  LRBEECPT  LRBEPEND  LRBEPRPT  LRBLPCSS  LRBLS  
LRCAPES  LRCAPES1  LRCAPPH1  LRCAPPH3  LRSRVR7  
Fee Basis 10 FBAAFS  FBAAIARC  FBAALU  FBAAMP  FBAAPAA  FBAASOUT  FBAAUTL4  FBAAUTL5  
FBPHON2  FBUTL135  
Imaging 9 MAGDHOW4  MAGDQR04  MAGDQR06  MAGDQR21  MAGDRPC3  MAGJUTL4  MAGNTLR2  MAGNTLR7  
MAGVRS81  
Clinical Case Registries 8 RORHL04  RORHL05  RORHL06  RORHL09  RORRP042  RORTSK13  RORX015A  RORX015C  
DSS Extracts 8 ECXAECQ  ECXAECS  ECXASUR  ECXCPRO  ECXFEKEY  ECXPRO1  ECXUCPT  ECXUTL3  
Virtual Patient Record 8 VPRDJ04  VPRDJ04A  VPRDMC  VPRDPXIM  VPRDRA  VPRDSR  VPRDVSIT  VPRSDA  
Clinical Reminders 7 PXRMDBL2  PXRMLEX  PXRMRAD  PXRMRCPT  PXRMTDLG  PXRMTXCR  PXRMTXIM  
Enterprise Health Management Platform 7 HMPDJ04  HMPDJ04A  HMPDJ04E  HMPDMC  HMPDRA  HMPDSR  HMPDVSIT  
Registration 6 DGPTFJC  DGPTFM2  DGPTFM3  DGPTFQWK  DGPTUTL1  VAFHLPR1  
CPT HCPCS Codes 5 DGYACPT  ICPT616  ICPTAPIU  ICPTID  ICPTMOD2  
Order Entry Results Reporting 5 ORDV04A  ORQQPL1  ORWGAPIA  ORWPCE  ORWPCE3  
Quasar 5 ACKQASU4  ACKQR2  ACKQUT1  ACKQUTL5  ACKQUTL8  
Radiology Nuclear Medicine 5 RA45PST2  RACPTMSC  RAMAIN5  RAMRPIN  RANPRO5  
Clinical Procedures 4 MDHL7U3  MDPCE2  MDRPCW  MDRPCW1  
Health Summary 3 GMTSPXU1  GMTSRAE  GMTSROE  
National Health Information Network 3 NHINVRA  NHINVSIT  NHINVSR  
VistA Integration Adapter 3 VIABRPC  VIABRPC4  VIABRPC7  
Hospital Based Home Care 2 HBHCRP1A  HBHCUTL3  
Text Integration Utility 2 TIUPXAPC  TIUPXAPM  
VBECS 2 VBECRPCA  VBECRPCH  
Automated Lab Instruments 1 LA7VOBRA  
Clinical Information Resource Network 1 RGHOUT  
IFCAP 1 PRCPCUT1  
My HealtheVet 1 MHVUMRPC  

Entry Points

Name Comments DBIA/ICR reference
CPT(CODE,CDT,SRC,DFN) ; returns basic info on CPT/HCPCS code
CPTQ
CPTD(CODE,OUTARR,DFN,CDT) ; Returns CPT description
CPTDQ
CODM(CODE,OUTARR,SRC,CDT,DFN) ; returns list of modifiers for a code
;
; Input: CODE CPT/HCPCS code, Internal or External Format (Required)
; ARY Array Name for list returned
; e.g. "ABC" or "ABC("TEST")"
; Default = ^TMP("ICPTM",$J)
; SRC Source Screen
; If 0 or Null, check Level I/II code/modifiers
; If >0, check Level I/II/III code/modifiers
; CDT Date (default = TODAY)
; DFN Not in use, future need
;
; Output: # Number of modifiers that apply
;
; OUTARR Array in the format:
;
; ARY(Mod) = Versioned Name^Mod IEN
;
; Where
; Mod is the .01 field)
; Versioned Name is 1 field of the 61 multiple
;
; or
;
; -1^Error Description
;
; ** NOTE - User must initialize ^TMP("ICPTM",$J) array if used **
CODMQ
CODEN(CODE) ; Rreturn the IEN of a CPT/HCPCS code
CODEC(CODE) ; Return the CPT/HCPCS Code
VALCPT(CODE,CDT,SRC,DFN) ;check if CPT code is valid for selection
VALCPTQ
VST(IEN,VDATE,TYPE)
VSTCP(IEN,VDATE) ; Versioned Short Text (CPT Procedure)
VLTCP(IEN,VDATE,ARY) ; Versioned Description - Long Text (CPT Procedure)
TRIM(X) ; Trim Spaces

External References

Name Field # of Occurrence
$$NUM^ICPTAPIU CODM+35
$$MOD^ICPTMOD CODM+48
$$MODP^ICPTMOD CODM+46
$$VSTCM^ICPTMOD CODM+51, VST+2
$$DTBR^ICPTSUPT CPT+33, CPTD+30, CODM+40, VALCPT+16
$$EFF^ICPTSUPT CPT+36
$$MSG^ICPTSUPT CPT+37, CPTD+33
$$DT^XLFDT CPT+33, CPTD+30, VALCPT+16, VSTCP+3, VLTCP+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(81.3 - [#81.3] CPTD+34, CODM+41, CODM+42, CODM+43, CODM+45
^ICPT - [#81] CPT+29, CPT+30, CPT+31, CPTD+29, CODM+33, CODM+34, CODEC+7, VSTCP+2, VSTCP+4, VSTCP+7
, VSTCP+8, VSTCP+9, VLTCP+2, VLTCP+4, VLTCP+8, VLTCP+9, VLTCP+10, VLTCP+11, VLTCP+12, VLTCP+13
, VLTCP+14, VLTCP+15
^ICPT("ADS" VLTCP+5, VLTCP+7
^ICPT("AST" VSTCP+5, VSTCP+7
^ICPT("B" CODEN+7
^TMP("ICPTD" CPTD+27!
^TMP("ICPTM" CODM+39!

Label References

Name Line Occurrences
$$CODEC CODM+35
$$CODEN CPT+28, CPTD+28, CODM+32
$$CPT VALCPT+17
$$TRIM CPTD+32, VSTCP+7, VSTCP+9, VSTCP+10, VLTCP+9, VLTCP+13, VLTCP+15
$$VSTCP CPT+34, VST+1
CODMQ CODM+30, CODM+33, CODM+34
CPTDQ CPTD+22, CPTD+29
CPTQ CPT+27, CPT+29, CPT+30, CPT+32
VALCPTQ VALCPT+18
VLTCP CPTD+31

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ACTMD CODM+28~, CODM+48*
ARR CPTD+21~, CPTD+32*, CPTD+33*, CODM+28~, CODM+52*
ARY VLTCP~, VLTCP+14!
ARY( VLTCP+9*, VLTCP+13*, VLTCP+15*
ARY(0 VLTCP+6, VLTCP+9*, VLTCP+10, VLTCP+13*, VLTCP+15*
BR CODM+28~, CODM+41*, CODM+42, CODM+43
CDT CPT~, CPT+33*, CPT+34, CPT+36, CPT+37, CPTD~, CPTD+30*, CPTD+31, CPTD+33, CODM~
, CODM+29*, CODM+40*, CODM+46, CODM+48, CODM+51, VALCPT~, VALCPT+16*, VALCPT+17
COD CODEN+6~, CODEN+7*, CODEN+8
CODA CODM+28~, CODM+35*, CODM+41, CODM+42
CODE CPT~, CPT+27, CPT+28*, CPT+29, CPT+30, CPT+31, CPT+34, CPT+35, CPT+36, CPTD~
, CPTD+22, CPTD+28*, CPTD+29, CPTD+31, CPTD+34, CODM~, CODM+30, CODM+32, CODM+46, CODEN~
, CODEN+5, CODEN+7, CODEC~, CODEC+5, CODEC+7, VALCPT~, VALCPT+15*, VALCPT+17
CODEC CODM+28~, CODM+35*
CODI CODM+28~, CODM+32*, CODM+33, CODM+34, CODM+35
CPT0 VSTCP+1~, VSTCP+4*, VSTCP+10, VLTCP+1~, VLTCP+4*
CPTC VSTCP+1~, VSTCP+4*, VSTCP+5, VSTCP+7, VLTCP+1~, VLTCP+4*, VLTCP+5, VLTCP+7
CPTD VLTCP+1~, VLTCP+8*, VLTCP+9, VLTCP+12*, VLTCP+13, VLTCP+14*, VLTCP+15
CPTE VLTCP+1~
CPTI VSTCP+1~, VSTCP+2*, VSTCP+4, VSTCP+7, VSTCP+8, VSTCP+9, VLTCP+1~, VLTCP+2*, VLTCP+4, VLTCP+7
, VLTCP+8, VLTCP+9, VLTCP+10, VLTCP+11, VLTCP+12, VLTCP+13, VLTCP+14, VLTCP+15
CPTSTD VSTCP+1~, VSTCP+5*, VSTCP+6, VSTCP+7, VSTCP+8*, VSTCP+9, VLTCP+1~, VLTCP+5*, VLTCP+6, VLTCP+7
, VLTCP+10*, VLTCP+11
CPTSTI VSTCP+1~, VSTCP+7*, VSTCP+9*, VLTCP+1~, VLTCP+7*, VLTCP+8, VLTCP+9, VLTCP+11*, VLTCP+12, VLTCP+13
CPTT VLTCP+1~, VLTCP+8*, VLTCP+9*, VLTCP+12*, VLTCP+13*, VLTCP+14*, VLTCP+15*
CPTTXT VSTCP+1~, VSTCP+6, VSTCP+7*, VSTCP+8, VSTCP+9*, VLTCP+1~
CPTVDT VSTCP+1~, VSTCP+3*, VSTCP+5, VLTCP+1~, VLTCP+3*, VLTCP+5
CTV CPTD+21~, CPTD+31
CTV( CPTD+31, CPTD+32
DATA CPT+26~, CPT+31*, CPT+32, CPT+35
DFN CPT~, CPTD~, CODM~, VALCPT~, VALCPT+15*, VALCPT+17
EFF CPT+26~, CPT+36*, CPT+37
END CPTD+21~, CPTD+26*, CODM+28~, CODM+38*
ER CODM+28~, CODM+42*, CODM+43
I CPTD+21~, CPTD+28*, CPTD+31*, CPTD+32
IEN VST~, VST+1, VST+2, VSTCP~, VSTCP+2, VLTCP~, VLTCP+2
MD CODM+28~, CODM+49*
MDPS CODM+44~, CODM+46*
MDST CODM+28~, CODM+45*, CODM+47, CODM+49
MI CODM+28~, CODM+43*, CODM+45, CODM+46, CODM+48, CODM+51, CODM+52
MN CODM+28~, CODM+49*, CODM+50, CODM+52
MVST CODM+28~, CODM+51*, CODM+52
N CPTD+21~, CPTD+22*, CPTD+28*, CPTD+29*, CPTD+31*, CPTD+32*, CPTD+33*, CPTD+34*, CPTDQ
OUTARR CPTD~, CPTD+23*, CPTD+24*, CPTD+25*, CPTD+26*, CPTD+27, CPTD+32, CPTD+33, CODM~, CODM+31*
, CODM+36*, CODM+37*, CODM+38*, CODM+39, CODM+52
SRC CPT~, CPT+30, CODM~, CODM+34, CODM+46, CODM+47, CODM+48, VALCPT~, VALCPT+15*, VALCPT+17
STR CPT+26~, CPT+27*, CPT+29*, CPT+30*, CPT+32*, CPT+35*, CPT+37*, CPTQ, CODM+28~, CODM+30*
, CODM+32*, CODM+33*, CODM+34*, CODM+52*, CODM+53*, CODMQ, VALCPT+14~, VALCPT+17*, VALCPT+18, VALCPT+19*
, VALCPT+20*, VALCPTQ
TYPE VST~, VST+1, VST+2
VCPT CPT+26~, CPT+34*, CPT+37
VDATE VST~, VST+1, VST+2, VSTCP~, VSTCP+3, VLTCP~, VLTCP+3
X TRIM~, TRIM+1*, TRIM+2*, TRIM+3*, TRIM+4
Y CODEC+6~, CODEC+7*, CODEC+8
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Local Variables  | All