VPR PATIENT NOK2 ADDRESS (183)    ENTITY (1.5)

Name Value
NAME VPR PATIENT NOK2 ADDRESS
DEFAULT FILE NUMBER 2
DATA MODEL SDA
DISPLAY NAME Address
ITEM
  • Street
    SEQUENCE:   4
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   2
    FIELD NUMBER:   .2193
    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:   .2196
    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:   .2197
    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:   .2198
    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:   .2101
    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 secondary Next of Kin.
GET EXIT ACTION K VPR("ForeignCountryFlag")
GET ID ACTION D NOK2^VPRSDAD(DFN)