Sub-Field: 81.01

Parent File	Name	Number	Package
CPT(#81)	DESCRIPTION	81.01	CPT HCPCS Codes

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	DESCRIPTION	0;1	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>80!($L(X)<1) X` LAST EDITED: `AUG 23, 1988` HELP-PROMPT: `ANSWER MUST BE 1-80 CHARACTERS IN LENGTH` DESCRIPTION: `This field contains the full description of the CPT code.` CROSS-REFERENCE: `81.01^B` `1)= S ^ICPT(DA(1),"D","B",$E(X,1,30),DA)=""` `2)= K ^ICPT(DA(1),"D","B",$E(X,1,30),DA)` CROSS-REFERENCE: `81^C^MUMPS` 1)= S %1=1 F %=1:1:$L(X)+1 S I=$E(X,%) I "!@#$%&() -+={}[]~`:;,./<>?\\|'1234567890"""[I S I=$E($E(X,%1,%-1),1,30),%1=%+1 I $L(I)>2,^DD(81.01,.01,9.9)'[I S ^ICPT("C",I,DA(1),DA)="" 2)= S %1=1 F %=1:1:$L(X)+1 S I=$E(X,%) I "!@#$%&() -+={}[]~`:;,./<>?\\|'1234567890"""[I S I=$E($E(X,%1,%-1),1,30),%1=%+1 I $L(I)>2 K ^ICPT("C",I,DA(1),DA)

DESCRIPTION

0;1

FREE TEXT

INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>80!($L(X)<1) X
LAST EDITED: AUG 23, 1988
HELP-PROMPT: ANSWER MUST BE 1-80 CHARACTERS IN LENGTH
DESCRIPTION:
This field contains the full description of the CPT code.
CROSS-REFERENCE: 81.01^B
1)= S ^ICPT(DA(1),"D","B",$E(X,1,30),DA)=""
2)= K ^ICPT(DA(1),"D","B",$E(X,1,30),DA)
CROSS-REFERENCE: 81^C^MUMPS
1)= S %1=1 F %=1:1:$L(X)+1 S I=$E(X,%) I "!@#$%&*() -+={}[]~`:;,./<>?\|'1234567890"""[I S I=$E($E(X,%1,%-1),1,30),%1=%+1 I $L(I)>2,^DD(81.01,.01,9.9)'[I S ^ICPT("C",I,DA(1),DA)=""
2)= S %1=1 F %=1:1:$L(X)+1 S I=$E(X,%) I "!@#$%&*() -+={}[]~`:;,./<>?\|'1234567890"""[I S I=$E($E(X,%1,%-1),1,30),%1=%+1 I $L(I)>2 K ^ICPT("C",I,DA(1),DA)