VPR PATIENT ALIAS (21)    ENTITY (1.5)

Name Value
NAME VPR PATIENT ALIAS
DEFAULT FILE NUMBER 2.01
DATA MODEL SDA
DISPLAY NAME Alias
ITEM
  • FamilyName
    SEQUENCE:   1
    ITEM TYPE:   FIXED STRING
    GET ACTION:   S VALUE=$P(DPTNM,U)
  • GivenName
    SEQUENCE:   3
    ITEM TYPE:   FIXED STRING
    GET ACTION:   S VALUE=$P(DPTNM,U,2)
  • NameSuffix
    SEQUENCE:   2
    ITEM TYPE:   FIXED STRING
    GET ACTION:   S VALUE=$P(DPTNM,U,4)
  • MiddleName
    SEQUENCE:   4
    ITEM TYPE:   FIXED STRING
    GET ACTION:   S VALUE=$P(DPTNM,U,3)
DESCRIPTION 
This entity supports VPR PATIENT, and expects the FileMan IENS string as 
the ID for each entry in the Alias sub-file.
GET EXIT ACTION K DPTNM
GET ID ACTION K DPTNM S DPTNM=$$GET1^DIQ(2.01,DIEN_",",.01),DPTNM=$$NAMECOMP^VPRSDA(DPTNM)