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

Package: CPT Files

CPT MODIFIER(#81.3)-->81.362

Sub-Field: 81.362


Information

Parent File Name Number Package
CPT MODIFIER(#81.3) DESCRIPTION (VERSIONED) 81.362 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 description was first used.
  • CROSS-REFERENCE:  81.362^B
    1)= S ^DIC(81.3,DA(1),62,"B",$E(X,1,30),DA)=""
    2)= K ^DIC(81.3,DA(1),62,"B",$E(X,1,30),DA)
    ^DIC(81.3,IEN1,62,"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 description (long text), and IEN2 is the internal entry number in the
    DESCRIPTION (VERSIONED) multiple where the versioned procedure description is stored.
  • CROSS-REFERENCE:  81.3^ASD^MUMPS
    1)= S:$L($P($G(^DIC(81.3,DA(1),0)),"^",1)) ^DIC(81.3,"ADS",($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,"ADS",($P($G(^DIC(81.3,DA(1),0)),"^",1)_" "),+X,DA(1),DA)
    ^DIC(81.3,"ADS",(CODE_" "),EFF,IEN1,IEN2) - Where CODE is the CPT-4 Procedure Code, EFF is the effective date for the description (long text), IEN1 is the internal entry number in the CPT-4 Procedure file (#81.3) and
    IEN2 is the internal entry number in the DESCRIPTION (VERSIONED) multiple where the versioned long text is stored.
1 DESCRIPTION (VERSIONED) 1;0 WORD-PROCESSING #81.372

  • LAST EDITED:  MAR 19, 2004
Info |  Details |  All