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

Package: DRG Grouper

ICD OPERATION/PROCEDURE(#80.1)-->80.167

Sub-Field: 80.167


Information

Parent File Name Number Package
ICD OPERATION/PROCEDURE(#80.1) OPERATION/PROCEDURE 80.167 DRG Grouper

Details

Field # Name Loc Type Details
.01 OPER/PROCEDURE EFFECTIVE DATE 0;1 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:2781001>X X
  • LAST EDITED:  SEP 30, 2011
  • HELP-PROMPT:  Enter a date not earlier than Oct 1, 1978.
  • DESCRIPTION:  
    This is the date the operation/procedure became effective.
  • CROSS-REFERENCE:  80.167^B
    1)= S ^ICD0(DA(1),67,"B",$E(X,1,30),DA)=""
    2)= K ^ICD0(DA(1),67,"B",$E(X,1,30),DA)
    ^ICD0(IEN1,67,"B",EFF,IEN2) - Where IEN1 is the internal entry number in the ICD Operation/Procedure file #80.1, EFF is the effective date for the operation/procedure (short text), and IEN2 is the internal entry number
    in the OPERATION/PROCEDURE (VERSIONED) multiple where the versioned short text is stored.
  • CROSS-REFERENCE:  80.1^AST^MUMPS
    1)= D SAST^ICDIDX(80.1)
    2)= D KAST^ICDIDX(80.1)
    ^ICD0("AST",(CODE_" "),EFF,IEN1,IEN2) - Where CODE is the ICD operation/procedure Code, EFF is the effective date for the operation/procedure (short text), IEN1 is the internal entry number in the ICD-9
    Operation/Procedure file (#80.1) and IEN2 is the internal entry number in the OPERATION/PROCEDURE multiple where the short text is stored.
  • CROSS-REFERENCE:  80.1^ASTS1^MUMPS
    1)= D SASTS1^ICDIDX(80.1)
    2)= D KASTS1^ICDIDX(80.1)
    ^ICD0("ASTS",SYS,(CODE_" "),EFF,IEN1,IEN2) - Where SYS is the coding system, CODE is the ICD procedure code, EFF is the effective date for the Operation/Procedure (short text), IEN1 is the internal entry number in the
    ICD Operation/Procedure file (#80.1) and IEN2 is the internal entry number in the OPERATION/PROCEDURE multiple (#80.167) where the short text is stored.
1 OPERATION/PROCEDURE 0;2 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>60!($L(X)<1) X
  • LAST EDITED:  SEP 30, 2011
  • HELP-PROMPT:  Answer must be 1-60 characters in length.
  • DESCRIPTION:  
    This is the operations/procedure (short text) that was used beginning on the effective date.
Info |  Details