VPR DOCUMENT TITLE (39) ENTITY (1.5)

Name	Value
NAME	VPR DOCUMENT TITLE
DEFAULT FILE NUMBER	8926.1
DATA MODEL	SDA
DISPLAY NAME	NationalTitle
ITEM	Code SEQUENCE: 6 ITEM TYPE: ID GET ACTION: S VALUE=$P($G(DATA),U) Description SEQUENCE: 7 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 8926.1 FIELD NUMBER: .01 GET ACTION: S VALUE=$P($G(DATA),U,2) SDACodingStandard SEQUENCE: 1 ITEM TYPE: FIXED STRING FIXED RESPONSE: VA8926.1 GET ACTION: S VALUE=$P($G(DATA),U,3) OriginalText SEQUENCE: 3 ITEM TYPE: FIXED STRING GET ACTION: S VALUE=$G(TIUTTL)
DESCRIPTION	This entity supports VPR ADVANCE DIRECTIVE, VPR CW NOTES, and VPR DOCUMENT EXTENSION. It expects a TIU Document Type #8925.1 ien, and converts that to a National Title #8926.1 ien to extract a record.
GET ENTRY ACTION	D NATL^VPRSDAT(.ID) ;ID=#8925.1 ien
GET EXIT ACTION	K TIUTTL