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: 80.268

Package: DRG Grouper

DRG(#80.2)-->80.268

Sub-Field: 80.268


Information

Parent File Name Number Package
DRG(#80.2) DESCRIPTION (VERSIONED) 80.268 DRG Grouper

Details

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

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:2781001>X X
  • LAST EDITED:  AUG 06, 2007
  • HELP-PROMPT:  TYPE A DATE NOT EARLIER THAN OCT 01, 1978
  • DESCRIPTION:  
    This is the date the description was first used.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  80.268^B
    1)= S ^ICD(DA(1),68,"B",$E(X,1,30),DA)=""
    2)= K ^ICD(DA(1),68,"B",$E(X,1,30),DA)
    ^ICD(IEN1,68,"B",EFF,IEN2) - Where IEN1 is the internal entry number in the DRG file #80.2, EFF is the effective date for the description (long text), and IEN2 is the internal entry number in the DESCRIPTION (VERSIONED)
    multiple where the versio ned description is stored.
  • CROSS-REFERENCE:  80.2^ADS^MUMPS
    1)= S:$L($P($G(^ICD(DA(1),0)),"^",1)) ^ICD("ADS",($P($G(^ICD(DA(1),0)),"^",1)_" "),+X,DA(1),DA)=""
    2)= K:$L($P($G(^ICD(DA(1),0)),"^",1)) ^ICD("ADS",($P($G(^ICD(DA(1),0)),"^",1)_" "),+X,DA(1),DA)
    ^ICD("ADS",(DRG_" "),EFF,IEN1,IEN2) - Where DRG is the DRG Name, EFF is the effective date for the description (long text), IEN1 is the internal entry number in the DRG file (#80.2) and IEN2 is the internal entry number
    in the DESCRIPTION (VERSIONED) multiple where the versioned long text is stored.
1 DESCRIPTION 1;0 Multiple #80.2681 80.2681

  • DESCRIPTION:  
    This is the long description (multiple line).
Info |  Details |  All