VPR PATIENT LANGUAGE (143)    ENTITY (1.5)

• PreferredLanguage
  SEQUENCE:   7
  ITEM TYPE:   ENTITY
  FILE NUMBER:   2.07
  FIELD NUMBER:   .02
  ENTITY:   VPR LANGUAGE
  GET ACTION:   S VALUE=+$G(VPRLNG) S:VALUE<1 DDEOUT=1 I VALUE S DATA=$P(VPRLNG,U,2)
• Use
  SEQUENCE:   8
  ITEM TYPE:   FIXED STRING
  GET ACTION:   S VALUE=$G(VASTN)
• EnteredOn
  SEQUENCE:   9
  ITEM TYPE:   SIMPLE FIELD
  FILE NUMBER:   2.07
  FIELD NUMBER:   .01
  RETURN INTERNAL VALUE:   YES
  OUTPUT TRANSFORM:   S VALUE=$$DATE^VPRSDA(VALUE)
  GET ACTION:   S VALUE=$P($G(VADM(13)),U) I VALUE,(VALUE<1500000)!($P(VALUE,".")>DT) S VALUE=$$GET1^DIQ(2,DFN,.097,"I") S:VALUE VALUE=VALUE_".12"

This entity supports VPR PATIENT, returning the patient's preferred
language from the Language Date/Time sub-file. It expects VPRLNG and the
VADM array to be defined.