VPR NAME (6)    ENTITY (1.5)

Name Value
NAME VPR NAME
DATA MODEL SDA
DISPLAY NAME Name
ITEM
  • FamilyName
    SEQUENCE:   2
    ITEM TYPE:   FIXED STRING
    GET ACTION:   S VALUE=$G(VPRNAME("FAMILY"))
  • NameSuffix
    SEQUENCE:   5
    ITEM TYPE:   FIXED STRING
    GET ACTION:   S VALUE=$G(VPRNAME("SUFFIX"))
  • GivenName
    SEQUENCE:   6
    ITEM TYPE:   FIXED STRING
    GET ACTION:   S VALUE=$G(VPRNAME("GIVEN"))
  • MiddleName
    SEQUENCE:   7
    ITEM TYPE:   FIXED STRING
    GET ACTION:   S VALUE=$G(VPRNAME("MIDDLE"))
DESCRIPTION 
This entity accepts a standard formatted name string (LNAME,FNAME MI)
as the ID and parses the components using Kernel's XLFNAME utilities.
GET EXIT ACTION K VPRNAME
GET ID ACTION K VPRNAME S VPRNAME=$G(DIEN) D NAMECOMP^XLFNAME(.VPRNAME)