VPR ADVANCE DIRECTIVE (38)    ENTITY (1.5)

Name Value
NAME VPR ADVANCE DIRECTIVE
DEFAULT FILE NUMBER 8925
DATA MODEL SDA
DISPLAY NAME AdvanceDirective
ITEM
  • ToTime
    SEQUENCE:   12
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   8925
    OUTPUT TRANSFORM:   S VALUE=$$DATE^VPRSDA(VALUE)
    GET ACTION:   S DDEOUT=1 ;S VALUE=$P($G(VPRADV),U,3)
  • ExternalId
    SEQUENCE:   13
    ITEM TYPE:   ID
    OUTPUT TRANSFORM:   S VALUE=VALUE_";TIU(8925,"
  • AlertType
    SEQUENCE:   4
    ITEM TYPE:   ENTITY
    FILE NUMBER:   8925
    FIELD NUMBER:   .04
    RETURN INTERNAL VALUE:   YES
    ENTITY:   VPR CODE TABLE
    GET ACTION:   S VALUE="AD^ADVANCE DIRECTIVE"
  • Alert
    SEQUENCE:   5
    ITEM TYPE:   ENTITY
    FILE NUMBER:   8925
    FIELD NUMBER:   .01
    RETURN INTERNAL VALUE:   YES
    ENTITY:   VPR DOCUMENT TITLE
    GET ACTION:   S VALUE=$G(VPRTIU(DIEN,.01,"I"))
  • Comments
    SEQUENCE:   6
    ITEM TYPE:   WORD PROCESSING
    FILE NUMBER:   8925
    FIELD NUMBER:   2
    GET ACTION:   D TEXT^VPRSDAT
  • Status
    SEQUENCE:   7
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   8925
    FIELD NUMBER:   .01
    OUTPUT TRANSFORM:   S VALUE=$S(VALUE["RESCIND":"I",1:"A")
  • EnteredBy
    SEQUENCE:   8
    ITEM TYPE:   ENTITY
    FILE NUMBER:   8925
    FIELD NUMBER:   1302
    RETURN INTERNAL VALUE:   YES
    ENTITY:   VPR USER
    GET ACTION:   S VALUE=$G(VPRTIU(DIEN,1202,"I"))
  • EnteredAt
    SEQUENCE:   9
    ITEM TYPE:   ENTITY
    FILE NUMBER:   8925
    FIELD NUMBER:   1212
    RETURN INTERNAL VALUE:   YES
    ENTITY:   VPR FACILITY
    GET ACTION:   S VALUE=$G(VPRTIU(DIEN,1212,"I")) S:'VALUE VALUE=$$SITE^VPRSDA
  • EnteredOn
    SEQUENCE:   10
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   8925
    FIELD NUMBER:   1201
    RETURN INTERNAL VALUE:   YES
    OUTPUT TRANSFORM:   S VALUE=$$DATE^VPRSDA(VALUE)
    GET ACTION:   S VALUE=$G(VPRTIU(DIEN,1201,"I"))
  • FromTime
    SEQUENCE:   11
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   8925
    FIELD NUMBER:   1301
    RETURN INTERNAL VALUE:   YES
    OUTPUT TRANSFORM:   S VALUE=$$DATE^VPRSDA(VALUE)
    GET ACTION:   S VALUE=$G(VPRTIU(DIEN,1301,"I"))
DESCRIPTION
This entity populates the Advance Directive container in HealthShare.
GET EXIT ACTION K VPRTIU,^TMP("TIUPPCV",$J)
GET ID ACTION D AD1^VPRSDAT(.DIEN)
GET QUERY ROUTINE ADVDIR^VPRSDAQ