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