VPR PATIENT DISABILITY (97)    ENTITY (1.5)

• Name
  SEQUENCE:   1
  ITEM TYPE:   SIMPLE FIELD
  FILE NUMBER:   2.04
  FIELD NUMBER:   .01
  GET ACTION:   N DIX S DIS=$P(VPRDIS,U) S:DIS VALUE=$$GET1^DIQ(31,+DIS,.01) I DIS="" S DDEOUT=1
• ScPercent
  SEQUENCE:   2
  ITEM TYPE:   SIMPLE FIELD
  FILE NUMBER:   2.04
  FIELD NUMBER:   2
  GET ACTION:   S VALUE=$P(VPRDIS,U,2) S:VALUE="" DDEOUT=1
• IsDisabilityscFlag
  SEQUENCE:   3
  ITEM TYPE:   SIMPLE FIELD
  FILE NUMBER:   2.04
  FIELD NUMBER:   3
  RETURN INTERNAL VALUE:   YES
  OUTPUT TRANSFORM:   S VALUE=$S(VALUE:"true",1:"false")
  GET ACTION:   S VALUE=$P(VPRDIS,U,3) S:VALUE="" DDEOUT=1
• OrigEffDate
  SEQUENCE:   5
  ITEM TYPE:   SIMPLE FIELD
  FILE NUMBER:   2.04
  FIELD NUMBER:   5
  RETURN INTERNAL VALUE:   YES
  OUTPUT TRANSFORM:   S VALUE=$$DATE^VPRSDA(VALUE)
  GET ACTION:   S VALUE=$P(VPRDIS,U,5) S:VALUE="" DDEOUT=1
• CurrEffDate
  SEQUENCE:   6
  ITEM TYPE:   SIMPLE FIELD
  FILE NUMBER:   2.04
  FIELD NUMBER:   6
  RETURN INTERNAL VALUE:   YES
  OUTPUT TRANSFORM:   S VALUE=$$DATE^VPRSDA(VALUE)
  GET ACTION:   S VALUE=$P(VPRDIS,U,6) S:VALUE="" DDEOUT=1
• Extremity
  SEQUENCE:   4
  ITEM TYPE:   ENTITY
  FILE NUMBER:   2.04
  FIELD NUMBER:   4
  ENTITY:   VPR CODE TABLE
  GET ACTION:   S VALUE=$P(VPRDIS,U,4) S:VALUE="" DDEOUT=1

This entity supports VPR PATIENT EXTENSION, returning a disability the
patient has sustained. It expects to receive the results of RDIS^DGRPDB as
its ID string, for every entry in the patient's sub-file.