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.361

Package: CPT Files

CPT MODIFIER(#81.3)-->81.361

Sub-Field: 81.361


Information

Parent File Name Number Package
CPT MODIFIER(#81.3) NAME (VERSIONED) 81.361 CPT Files

Details

Field # Name Loc Type Details
.01 VERSION DATE 0;1 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:2790101>X X
  • LAST EDITED:  MAR 19, 2004
  • HELP-PROMPT:  TYPE A DATE NOT EARLIER THAN JAN 01, 1979
  • DESCRIPTION:  
    This is the date the modifier text was first used.
  • CROSS-REFERENCE:  81.361^B
    1)= S ^DIC(81.3,DA(1),61,"B",$E(X,1,30),DA)=""
    2)= K ^DIC(81.3,DA(1),61,"B",$E(X,1,30),DA)
    ^DIC(81.3,IEN1,61,"B",EFF,IEN2) - Where IEN1 is the internal entry number in the CPT-4 Modifier file #81.3, EFF is the effective date for the modifier name (short text), and IEN2 is the internal entry number in the NAME
    (VERSIONED) multiple where the versioned short text is stored.
  • CROSS-REFERENCE:  81.3^AST^MUMPS
    1)= S:$L($P($G(^DIC(81.3,DA(1),0)),"^",1)) ^DIC(81.3,"AST",($P($G(^DIC(81.3,DA(1),0)),"^",1)_" "),+X,DA(1),DA)=""
    2)= K:$L($P($G(^DIC(81.3,DA(1),0)),"^",1)) ^DIC(81.3,"AST",($P($G(^DIC(81.3,DA(1),0)),"^",1)_" "),+X,DA(1),DA)
    ^DIC(81.3,"AST",(CODE_" "),EFF,IEN1,IEN2) - Where CODE is the CPT-4 Modifier Code, EFF is the effective date for the modifier text (short text), IEN1 is the internal entry number in the CPT-4 Modifier file (#81.3) and
    IEN2 is the internal entry number in the SHORT NAME (VERSIONED) multiple where the versioned short text is stored.
1 NAME (VERSIONED) 0;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>60!($L(X)<1) X
  • LAST EDITED:  MAR 19, 2004
  • HELP-PROMPT:  Answer must be 1-60 characters in length
  • DESCRIPTION:  
    This is the modifier that was used beginning on the 'effective date.'
Info |  Details |  All