VPR PATIENT NOK ADDRESS (73)    ENTITY (1.5)

Name Value
NAME VPR PATIENT NOK ADDRESS
DEFAULT FILE NUMBER 2
DATA MODEL SDA
DISPLAY NAME Address
ITEM
  • Street
    SEQUENCE:   4
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   2
    FIELD NUMBER:   .213
    GET ACTION:   S VALUE=$G(VAOA(1)) I $L(VALUE) N I F I=2,3 S:$L($G(VAOA(I))) VALUE=VALUE_";"_VAOA(I)
  • City
    SEQUENCE:   5
    ITEM TYPE:   ENTITY
    FILE NUMBER:   2
    FIELD NUMBER:   .216
    ENTITY:   VPR CODE ONLY
    OUTPUT TRANSFORM:   S VALUE=$E(VALUE,1,50)
    GET ACTION:   S VALUE=$G(VAOA(4))
  • State
    SEQUENCE:   6
    ITEM TYPE:   ENTITY
    FILE NUMBER:   2
    FIELD NUMBER:   .217
    RETURN INTERNAL VALUE:   YES
    ENTITY:   VPR STATE
    GET ACTION:   S VALUE=$S(VAOA("HasCountry")=1:VAOA("Province"),1:$P($G(VAOA(5)),U))
  • Zip
    SEQUENCE:   7
    ITEM TYPE:   ENTITY
    FILE NUMBER:   2
    FIELD NUMBER:   .218
    ENTITY:   VPR CODE ONLY
    GET ACTION:   S VALUE=$S(VAOA("HasCountry")=1:VAOA("PostalCode"),$P($G(VAOA(11)),U,2)'="":$P(VAOA(11),U,2),1:$G(VAOA(6)))
  • Country
    SEQUENCE:   8
    ITEM TYPE:   ENTITY
    FILE NUMBER:   2
    FIELD NUMBER:   .221
    RETURN INTERNAL VALUE:   YES
    ENTITY:   VPR COUNTRY
DESCRIPTION
This entity supports VPR PATIENT, and expects the Patient file #2 ien
as the ID. It returns the address of the patient's Next of Kin.
GET EXIT ACTION K VPR("ForeignCountryFlag")
GET ID ACTION D NOK^VPRSDAD(DFN)