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 Files

CPT(#81)-->81.01

Sub-Field: 81.01


Information

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

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:  MAR 22, 2007
  • HELP-PROMPT:  Answer must be 1-80 characters in length.
  • DESCRIPTION:  
    This field contains the full description of the CPT code.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • 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