VPR PATIENT NOK2 (182)    ENTITY (1.5)

Name Value
NAME VPR PATIENT NOK2
DEFAULT FILE NUMBER 2
DATA MODEL SDA
DISPLAY NAME SupportContact
ITEM
  • Name
    SEQUENCE:   2
    ITEM TYPE:   ENTITY
    FILE NUMBER:   2
    FIELD NUMBER:   .2191
    ENTITY:   VPR NAME
    GET ACTION:   S VALUE=$G(VAOA(9))
  • Address
    SEQUENCE:   6
    ITEM TYPE:   ENTITY
    FILE NUMBER:   2
    ENTITY:   VPR PATIENT NOK2 ADDRESS
    GET ACTION:   S VALUE=DIEN
  • ContactInfo
    SEQUENCE:   7
    ITEM TYPE:   COMPLEX GROUP
    COMPLEX TYPE:
    • COMPLEX ITEM SEQUENCE:   2
      COMPLEX ITEM NAME:   HomePhoneNumber
    • COMPLEX ITEM SEQUENCE:   3
      COMPLEX ITEM NAME:   WorkPhoneNumber
  • HomePhoneNumber
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   2
    FIELD NUMBER:   .2199
    GET ACTION:   S VALUE=$G(VAOA(8))
  • WorkPhoneNumber
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   2
    FIELD NUMBER:   .211011
  • Relationship
    SEQUENCE:   8
    ITEM TYPE:   ENTITY
    FILE NUMBER:   2
    FIELD NUMBER:   .2192
    ENTITY:   VPR TEXT ONLY
    GET ACTION:   S VALUE=$G(VAOA(10)) S:VALUE="" VALUE=$G(VAOA(12))
  • ContactType
    SEQUENCE:   9
    ITEM TYPE:   ENTITY
    FILE NUMBER:   2
    ENTITY:   VPR CODE TABLE
    GET ACTION:   S VALUE="NOK^Next of Kin"
  • PrimaryContact
    SEQUENCE:   10
    ITEM TYPE:   FIXED STRING
    FIXED RESPONSE:   false
  • EnteredAt
    SEQUENCE:   13
    ITEM TYPE:   ENTITY
    FILE NUMBER:   2
    ENTITY:   VPR FACILITY
    GET ACTION:   S VALUE=$G(VASITE) ;default #4 ien
DESCRIPTION
This entity supports VPR PATIENT, and expects the Patient file #2 ien
as the ID. It returns the patient's secondary Next of Kin.
GET ENTRY ACTION S VAOA("A")=3,DFN=ID D OAD^VADPT
GET EXIT ACTION K VAOA
GET ID ACTION S:$G(VAOA(9))="" DDEOUT=1