VPR INSURED ADDRESS (65)    ENTITY (1.5)

Name Value
NAME VPR INSURED ADDRESS
DEFAULT FILE NUMBER 2.312
DATA MODEL SDA
DISPLAY NAME Address
ITEM
  • Street
    SEQUENCE:   4
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   2.312
    FIELD NUMBER:   3.06
    GET ACTION:   S VALUE=$G(VPRINS(VPRP,26)) S:$L($G(VPRINS(VPRP,27))) VALUE=VALUE_";"_$G(VPRINS(VPRP,27))
  • City
    SEQUENCE:   5
    ITEM TYPE:   ENTITY
    FILE NUMBER:   2.312
    FIELD NUMBER:   3.08
    ENTITY:   VPR CODE ONLY
    OUTPUT TRANSFORM:   S VALUE=$E(VALUE,1,50)
    GET ACTION:   S VALUE=$G(VPRINS(VPRP,28))
  • State
    SEQUENCE:   6
    ITEM TYPE:   ENTITY
    FILE NUMBER:   2.312
    FIELD NUMBER:   3.09
    RETURN INTERNAL VALUE:   YES
    ENTITY:   VPR STATE
    GET ACTION:   S VALUE=$P($G(VPRINS(VPRP,29)),U)
  • Zip
    SEQUENCE:   7
    ITEM TYPE:   ENTITY
    FILE NUMBER:   2.312
    FIELD NUMBER:   3.1
    ENTITY:   VPR CODE ONLY
    GET ACTION:   S VALUE=$G(VPRINS(VPRP,30))
  • Country
    SEQUENCE:   8
    ITEM TYPE:   ENTITY
    FILE NUMBER:   2.312
    FIELD NUMBER:   3.13
    ENTITY:   VPR COUNTRY
    OUTPUT TRANSFORM:   N Y S Y=$$FIND1^DIC(779.004,,,VALUE) S:Y VALUE=Y
DESCRIPTION 
This entity supports VPR INSURANCE by returning the Insured's address
components from the PATIENT INSURANCE TYPE (#2.312) sub-file. It expects
the record IENS string as the ID (DIEN), as well as the VPRINS array.