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)