©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
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 |