Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Details |  All
Print Page as PDF
Sub-Field: 81.01

Package: CPT HCPCS Codes

CPT(#81)-->81.01

Sub-Field: 81.01


Information

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

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)
Info |  Details |  All