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

Package: CPT Files

CPT(#81)-->81.061

Sub-Field: 81.061


Information

Parent File Name Number Package
CPT(#81) SHORT NAME (VERSIONED) 81.061 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:  AUG 06, 2007
  • HELP-PROMPT:  TYPE A DATE NOT EARLIER THAN JAN 01, 1979
  • DESCRIPTION:  
    This is the date the procedure text was first used.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  81.061^B
    1)= S ^ICPT(DA(1),61,"B",$E(X,1,30),DA)=""
    2)= K ^ICPT(DA(1),61,"B",$E(X,1,30),DA)
    ^ICPT(IEN1,61,"B",EFF,IEN2) - Where IEN1 is the internal entry number in the CPT-4 Procedure file #81, EFF is the effective date for the procedure (short text), and IEN2 is the internal entry number in the SHORT NAME
    (VERSIONED) multiple where t he versioned short text is stored.
  • CROSS-REFERENCE:  81^AST^MUMPS
    1)= S:$L($P($G(^ICPT(DA(1),0)),"^",1)) ^ICPT("AST",($P($G(^ICPT(DA(1),0)),"^",1)_" "),+X,DA(1),DA)=""
    2)= K:$L($P($G(^ICPT(DA(1),0)),"^",1)) ^ICPT("AST",($P($G(^ICPT(DA(1),0)),"^",1)_" "),+X,DA(1),DA)
    ^ICPT("AST",(CODE_" "),EFF,IEN1,IEN2) - Where CODE is the CPT-4 Procedure Code, EFF is the effective date for the procedure text (short text), IEN1 is the internal entry number in the CPT-4 Procedure file (#81) and IEN2
    is the internal entry number in the SHORT NAME (VERSIONED) multiple where the versioned short text is stored.
1 SHORT NAME (VERSIONED) 0;2 FREE TEXT

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