ICPTCOD ;ALB/DEK/KER - CPT CODE APIS ; 04/18/2004
Source file <ICPTCOD.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
CODEC(CODE) | ; Return the CPT/HCPCS Code
|
|
CPTQ | ||
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 ** |
|
VALCPTQ | ||
VALCPT(CODE,CDT,SRC,DFN) | ;check if CPT code is valid for selection
|
|
CODEN(CODE) | ; Rreturn the IEN of a CPT/HCPCS code
|
|
CPT(CODE,CDT,SRC,DFN) | ; returns basic info on CPT/HCPCS code
|
|
TRIM(X) | ; Trim Spaces
|
|
CODMQ | ||
CPTD(CODE,OUTARR,DFN,CDT) | ; Returns CPT description
|
|
VST(IEN,VDATE,TYPE) | ||
VLTCP(IEN,VDATE,ARY) | ; Versioned Description - Long Text (CPT Procedure)
|
|
VSTCP(IEN,VDATE) | ; Versioned Short Text (CPT Procedure)
|
|
CPTDQ |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DIC(81.3 - [#81.3] | CPTD+34, CODM+41, CODM+42, CODM+43, CODM+44 |
^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! |
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 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
ACTMD | CODM+28~, CODM+46* |
ARR | CPTD+21~, CPTD+32*, CPTD+33*, CODM+28~, CODM+50* |
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+49, 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, 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+47* |
MDST | CODM+28~, CODM+44*, CODM+45, CODM+47 |
MI | CODM+28~, CODM+43*, CODM+44, CODM+46, CODM+49, CODM+50 |
MN | CODM+28~, CODM+47*, CODM+48, CODM+50 |
MVST | CODM+28~, CODM+49*, CODM+50 |
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+50 |
SRC | CPT~, CPT+30, CODM~, CODM+34, CODM+45, CODM+46, 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+50*, CODM+51*, 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 |