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

Package: DRG Grouper

ICD DIAGNOSIS(#80)-->80.067

Sub-Field: 80.067


Information

Parent File Name Number Package
ICD DIAGNOSIS(#80) DIAGNOSIS 80.067 DRG Grouper

Details

Field # Name Loc Type Details
.01 DIAGNOSIS 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 diagnosis text was first used.
  • CROSS-REFERENCE:  80.067^B
    1)= S ^ICD9(DA(1),67,"B",$E(X,1,30),DA)=""
    2)= K ^ICD9(DA(1),67,"B",$E(X,1,30),DA)
    ^ICD9(IEN1,67,"B",EFF,IEN2) - Where IEN1 is the internal entry number in the ICD-9 Diagnosis file #80, EFF is the effective date for the diagnosis (short text), and IEN2 is the internal entry number in the DIAGNOSIS
    multiple where the diagnosis short text is stored.
  • CROSS-REFERENCE:  80^AST^MUMPS
    1)= D SAST^ICDIDX(80)
    2)= D KAST^ICDIDX(80)
    ^ICD9("AST",(CODE_" "),EFF,IEN1,IEN2) - Where CODE is the ICD Diagnosis code, EFF is the effective date for the diagnosis (short text), IEN1 is the internal entry number in the ICD Diagnosis (#80) and IEN2 is the
    internal entry number in the DIAGNOSIS multiple (#80.067) where the short text is stored.
  • CROSS-REFERENCE:  80^ASTS1^MUMPS
    1)= D SASTS1^ICDIDX(80)
    2)= D KASTS1^ICDIDX(80)
    ^ICD9("ASTS",SYS,(CODE_" "),EFF,IEN1,IEN2) - Where SYS is the coding system, CODE is the ICD Diagnosis code, EFF is the effective date for the diagnosis (short text), IEN1 is the internal entry number in the ICD
    Diagnosis file (#80) and IEN2 is the internal entry number in the DIAGNOSIS multiple (#80.067) where the short text is stored.
1 DIAGNOSIS 0;2 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>60!($L(X)<1) X
  • LAST EDITED:  SEP 17, 2011
  • HELP-PROMPT:  Answer must be 1-60 characters in length.
  • DESCRIPTION:  
    This is the Diagnosis (short text).
Info |  Details