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)