Sub-Field: 358.33

Parent File	Name	Number	Package
IMP/EXP SELECTION(#358.3)	CPT MODIFIER	358.33	Automated Information Collection System

Parent File

Name

Number

Package

CPT MODIFIER

358.33

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	CPT MODIFIER	0;1	FREE TEXT	INPUT TRANSFORM: `D MOD^IBDF4C K:$L(X)>2!($L(X)<2) X` LAST EDITED: `SEP 20, 1999` HELP-PROMPT: `Answer must be 2 characters in length. This field is related to the CPT MODIFIER file.` DESCRIPTION: 2 character CPT Modifier Code EXECUTABLE HELP: `D LOOKUP^IBDF4C` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `358.33^B` 1)= S ^IBE(358.3,DA(1),3,"B",$E(X,1,30),DA)="" 2)= K ^IBE(358.3,DA(1),3,"B",$E(X,1,30),DA)
1	NAME	0;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` LAST EDITED: `SEP 20, 1999` HELP-PROMPT: `Answer must be 3-30 characters in length.` DESCRIPTION: Description (name) of the CPT Modifier

CPT MODIFIER

0;1

FREE TEXT

INPUT TRANSFORM: D MOD^IBDF4C K:$L(X)>2!($L(X)<2) X
LAST EDITED: SEP 20, 1999
HELP-PROMPT: Answer must be 2 characters in length. This field is related to the CPT MODIFIER file.
DESCRIPTION:
```
2 character CPT Modifier Code
```
EXECUTABLE HELP: D LOOKUP^IBDF4C
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER

CROSS-REFERENCE: 358.33^B

1)= S ^IBE(358.3,DA(1),3,"B",$E(X,1,30),DA)=""

2)= K ^IBE(358.3,DA(1),3,"B",$E(X,1,30),DA)

NAME

0;2

FREE TEXT