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

Package: Registration

VA PATIENT(#2)-->2.04

Sub-Field: 2.04


Information

Parent File Name Number Package
VA PATIENT(#2) RATED DISABILITIES (VA) 2.04 Registration

Details

Field # Name Loc Type Details
.01 RATED DISABILITIES (VA) 0;1 POINTER TO DISABILITY CONDITION FILE (#31) DISABILITY CONDITION(#31)

  • INPUT TRANSFORM:  I $D(X) D EK^DGLOCK Q
  • LAST EDITED:  JUL 28, 1986
  • HELP-PROMPT:  Enter the disability conditions for this patient. Select from the available list.
  • DESCRIPTION:  
    From the available listing choose and enter conditions for which the applicant has been verified as being service connected.
  • DELETE TEST:  1,0)= D EK^DGLOCK I '$D(X)
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  2.04^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.
  • FIELD INDEX:  ARD (#334) MUMPS ACTION
    Short Descr:  Rated Disabilities modification
    Set Logic:  S DGRDCHG=1
    Set Cond:  I (X1(1)'=X2(1))!(X1(2)'=X2(2))!(X1(3)'=X2(3))
    Kill Logic:  S DGRDCHG=1
    Kill Cond:  I (X1(1)'=X2(1))!(X1(2)'=X2(2))!(X1(3)'=X2(3))
    Whole Kill:  S DGRDCHG=1
    X(1):  RATED DISABILITIES (VA)  (2.04,.01)  (forwards)
    X(2):  DISABILITY %  (2.04,2)  (forwards)
    X(3):  SERVICE CONNECTED  (2.04,3)  (forwards)
2 DISABILITY % 0;2 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>100)!(X<0)!(X?.E1"."1N.N) X I $D(X) D EK^DGLOCK
  • LAST EDITED:  JUL 28, 1986
  • HELP-PROMPT:  Enter the disability % for this condition on this patient.
  • DESCRIPTION:  
    Enter the percentage at which the VA rated this disability for this patient.  Only users who hold the designated security key may enter/edit this field.
  • DELETE TEST:  1,0)= D EK^DGLOCK I '$D(X)
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  2.04^AENR2^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.
  • FIELD INDEX:  ARD (#334) MUMPS ACTION
    Short Descr:  Rated Disabilities modification
    Set Logic:  S DGRDCHG=1
    Set Cond:  I (X1(1)'=X2(1))!(X1(2)'=X2(2))!(X1(3)'=X2(3))
    Kill Logic:  S DGRDCHG=1
    Kill Cond:  I (X1(1)'=X2(1))!(X1(2)'=X2(2))!(X1(3)'=X2(3))
    Whole Kill:  S DGRDCHG=1
    X(1):  RATED DISABILITIES (VA)  (2.04,.01)  (forwards)
    X(2):  DISABILITY %  (2.04,2)  (forwards)
    X(3):  SERVICE CONNECTED  (2.04,3)  (forwards)
3 SERVICE CONNECTED 0;3 SET
  • '0' FOR NO;
  • '1' FOR YES;

  • INPUT TRANSFORM:  S DFN=DA(1) D:X SC^DGLOCK1 I $D(X) D EK^DGLOCK
  • LAST EDITED:  OCT 06, 1986
  • HELP-PROMPT:  Enter 'Y' if the patient is service connected for this disability, 'N' if not.
  • DESCRIPTION:  
    Enter whether or not this rated disability was rated as service connected.  Only users who hold the designated security key may enter/edit this field.
  • DELETE TEST:  1,0)= D EK^DGLOCK I '$D(X)
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  2.04^AENR3^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.
  • FIELD INDEX:  ARD (#334) MUMPS ACTION
    Short Descr:  Rated Disabilities modification
    Set Logic:  S DGRDCHG=1
    Set Cond:  I (X1(1)'=X2(1))!(X1(2)'=X2(2))!(X1(3)'=X2(3))
    Kill Logic:  S DGRDCHG=1
    Kill Cond:  I (X1(1)'=X2(1))!(X1(2)'=X2(2))!(X1(3)'=X2(3))
    Whole Kill:  S DGRDCHG=1
    X(1):  RATED DISABILITIES (VA)  (2.04,.01)  (forwards)
    X(2):  DISABILITY %  (2.04,2)  (forwards)
    X(3):  SERVICE CONNECTED  (2.04,3)  (forwards)
4 EXTREMITY AFFECTED 0;4 SET
  • 'BL' FOR BOTH LOWER;
  • 'BU' FOR BOTH UPPER;
  • 'RL' FOR RIGHT LOWER;
  • 'RU' FOR RIGHT UPPER;
  • 'LL' FOR LEFT LOWER;
  • 'LU' FOR LEFT UPPER;

  • LAST EDITED:  NOV 29, 2005
5 ORIGINAL EFFECTIVE DATE 0;5 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1!(Y>DT) X
  • LAST EDITED:  JUL 14, 2005
  • DESCRIPTION:  
    Data will be stuffed from messages from the HEC.  This field indicates the first date that this disability was evaluated.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
6 CURRENT EFFECTIVE DATE 0;6 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1!(Y>DT) X
  • LAST EDITED:  JUL 28, 2005
  • DESCRIPTION:  
    Data will be stuffed from messages from the HEC.  This field indicates the most recent date that this disability was evaluated.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
Info |  Details |  All