Sub-Field: 2.396

Parent File	Name	Number	Package
PATIENT(#2)	CD STATUS DIAGNOSES	2.396	Registration

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	CD STATUS DIAGNOSES	0;1	POINTER TO CATASTROPHIC DISABILITY REASONS FILE (#27.17)	CATASTROPHIC DISABILITY REASONS(#27.17) INPUT TRANSFORM: `S DIC("S")="I $$TYPE^DGENA5(Y)=""D""&($P(^DGEN(27.17,+Y,0),U,9)=$$ICDVER^DGENA5(""D""))" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X` OUTPUT TRANSFORM: `S Y=$$DISP^DGENLCD1(Y)` LAST EDITED: `SEP 10, 2014` HELP-PROMPT: `Select a CD diagnosis.` DESCRIPTION: `This is a diagnosis which determines that the veteran is catastrophically disabled.` SCREEN: `S DIC("S")="I $$TYPE^DGENA5(Y)=""D""&($P(^DGEN(27.17,+Y,0),U,9)=$$ICDVER^DGENA5(""D""))"` EXPLANATION: `Must specify a CD REASON that is a diagnosis and the diagnosis coding system must match the value stored in the CD Reasons file.` `UNEDITABLE` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `2.396^B` `1)= S ^DPT(DA(1),.396,"B",$E(X,1,30),DA)=""` `2)= K ^DPT(DA(1),.396,"B",$E(X,1,30),DA)` CROSS-REFERENCE: `2.396^AENR01^MUMPS` `1)= D EVENT^IVMPLOG($G(DA(1)))` `2)= D EVENT^IVMPLOG($G(DA(1)))` `3)= DO NOT DELETE` `This cross-reference is used to notify HEC of changes that may affect enrollment.`

CD STATUS DIAGNOSES

0;1

POINTER TO CATASTROPHIC DISABILITY REASONS FILE (#27.17)

INPUT TRANSFORM: S DIC("S")="I $$TYPE^DGENA5(Y)=""D""&($P(^DGEN(27.17,+Y,0),U,9)=$$ICDVER^DGENA5(""D""))" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X
OUTPUT TRANSFORM: S Y=$$DISP^DGENLCD1(Y)
LAST EDITED: SEP 10, 2014
HELP-PROMPT: Select a CD diagnosis.
DESCRIPTION:
This is a diagnosis which determines that the veteran is catastrophically disabled.
SCREEN: S DIC("S")="I $$TYPE^DGENA5(Y)=""D""&($P(^DGEN(27.17,+Y,0),U,9)=$$ICDVER^DGENA5(""D""))"
EXPLANATION: Must specify a CD REASON that is a diagnosis and the diagnosis coding system must match the value stored in the CD Reasons file.
UNEDITABLE
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 2.396^B
1)= S ^DPT(DA(1),.396,"B",$E(X,1,30),DA)=""
2)= K ^DPT(DA(1),.396,"B",$E(X,1,30),DA)
CROSS-REFERENCE: 2.396^AENR01^MUMPS
1)= D EVENT^IVMPLOG($G(DA(1)))
2)= D EVENT^IVMPLOG($G(DA(1)))
3)= DO NOT DELETE
This cross-reference is used to notify HEC of changes that may affect enrollment.