VPR DOCUMENT EXTENSION (109)    ENTITY (1.5)

Name Value
NAME VPR DOCUMENT EXTENSION
DEFAULT FILE NUMBER 8925
DATA MODEL SDA
DISPLAY NAME DocumentExtension
ITEM
  • CareProviders
    SEQUENCE:   1
    ITEM TYPE:   LIST
    ENTITY:   VPR SIGNER
    LIST TYPE:   ARRAY
    XML NAME:   CareProvider
    GET ACTION:   N I,N S N=0 F I=1502,1508 S:$G(VPRTIU(DIEN,I,"I")) N=N+1,DLIST(N)=VPRTIU(DIEN,I,"I")_U_$S(I=1502:"S",1:"C")
  • PatientLocation
    SEQUENCE:   11
    ITEM TYPE:   ENTITY
    FILE NUMBER:   8925
    FIELD NUMBER:   1205
    RETURN INTERNAL VALUE:   YES
    ENTITY:   VPR LOCATION
    GET ACTION:   S VALUE=$G(VPRTIU(DIEN,1205,"I"))
  • SignatureMode
    SEQUENCE:   2
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   8925
    FIELD NUMBER:   1505
  • Service
    SEQUENCE:   12
    ITEM TYPE:   ENTITY
    FILE NUMBER:   8925
    FIELD NUMBER:   1404
    RETURN INTERNAL VALUE:   YES
    ENTITY:   VPR SERVICE
    GET ACTION:   S VALUE=$G(VPRTIU(DIEN,1404,"I"))
  • SecondaryVisit
    SEQUENCE:   13
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   8925
    FIELD NUMBER:   1207
    RETURN INTERNAL VALUE:   YES
    GET ACTION:   S VALUE=$G(VPRTIU(DIEN,1207,"I"))
  • VisitID
    SEQUENCE:   14
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   8925
    FIELD NUMBER:   15001
    GET ACTION:   S VALUE=$G(VPRTIU(DIEN,15001,"I"))
  • AmendedOn
    SEQUENCE:   15
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   8925
    FIELD NUMBER:   1601
    RETURN INTERNAL VALUE:   YES
    OUTPUT TRANSFORM:   S VALUE=$$DATE^VPRSDA(VALUE)
    GET ACTION:   S VALUE=$G(VPRTIU(DIEN,1601,"I"))
  • AmendedBy
    SEQUENCE:   16
    ITEM TYPE:   ENTITY
    FILE NUMBER:   8925
    FIELD NUMBER:   1602
    RETURN INTERNAL VALUE:   YES
    ENTITY:   VPR PROVIDER
    GET ACTION:   S VALUE=$G(VPRTIU(DIEN,1602,"I"))
  • AmendedSigned
    SEQUENCE:   17
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   8925
    FIELD NUMBER:   1603
    RETURN INTERNAL VALUE:   YES
    OUTPUT TRANSFORM:   S VALUE=$$DATE^VPRSDA(VALUE)
    GET ACTION:   S VALUE=$G(VPRTIU(DIEN,1603,"I"))
  • AdminClosureMode
    SEQUENCE:   18
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   8925
    FIELD NUMBER:   1613
  • Class
    SEQUENCE:   19
    ITEM TYPE:   ENTITY
    FILE NUMBER:   8925
    FIELD NUMBER:   .04
    RETURN INTERNAL VALUE:   YES
    ENTITY:   VPR DOCUMENT CLASS
    GET ACTION:   S VALUE=$G(VPRTIU(DIEN,.04,"I"))
  • Parent
    SEQUENCE:   3
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   8925
    FIELD NUMBER:   2101
    RETURN INTERNAL VALUE:   YES
    GET ACTION:   N X S X=$G(VPRTIU(DIEN,2101,"I")) S:X VALUE=X_";TIU"
  • Subject
    SEQUENCE:   4
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   8925
    FIELD NUMBER:   1701
    GET ACTION:   S VALUE=$G(VPRTIU(DIEN,1701,"I"))
  • NationalTitle
    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")),VPRNATL=+$G(^TIU(8925.1,+VALUE,15)) S:'VPRNATL DDEOUT=1
  • NationalTitleRole
    SEQUENCE:   6
    ITEM TYPE:   ENTITY
    FILE NUMBER:   8925
    FIELD NUMBER:   .01
    EXTENDED POINTER LKUP:   1501
    RETURN INTERNAL VALUE:   YES
    ENTITY:   VPR DOCUMENT ROLE
    OUTPUT TRANSFORM:   S VALUE=$P($G(^TIU(8926.1,+VALUE,0)),U,5)
    GET ACTION:   S:'$G(VPRNATL) DDEOUT=1 S:$G(VPRNATL) VALUE=VPRNATL
  • NationalTitleService
    SEQUENCE:   7
    ITEM TYPE:   ENTITY
    FILE NUMBER:   8925
    FIELD NUMBER:   .01
    EXTENDED POINTER LKUP:   1501
    RETURN INTERNAL VALUE:   YES
    ENTITY:   VPR DOCUMENT SERVICE
    OUTPUT TRANSFORM:   S VALUE=$P($G(^TIU(8926.1,+VALUE,0)),U,7)
    GET ACTION:   S:'$G(VPRNATL) DDEOUT=1 S:$G(VPRNATL) VALUE=VPRNATL
  • NationalTitleSetting
    SEQUENCE:   8
    ITEM TYPE:   ENTITY
    FILE NUMBER:   8925
    FIELD NUMBER:   .01
    EXTENDED POINTER LKUP:   1501
    RETURN INTERNAL VALUE:   YES
    ENTITY:   VPR DOCUMENT SETTING
    OUTPUT TRANSFORM:   S VALUE=$P($G(^TIU(8926.1,+VALUE,0)),U,6)
    GET ACTION:   S:'$G(VPRNATL) DDEOUT=1 S:$G(VPRNATL) VALUE=VPRNATL
  • NationalTitleSubject
    SEQUENCE:   9
    ITEM TYPE:   ENTITY
    FILE NUMBER:   8925
    FIELD NUMBER:   .01
    EXTENDED POINTER LKUP:   1501
    RETURN INTERNAL VALUE:   YES
    ENTITY:   VPR DOCUMENT SUBJECT
    OUTPUT TRANSFORM:   S VALUE=$P($G(^TIU(8926.1,+VALUE,0)),U,4)
    GET ACTION:   S:'$G(VPRNATL) DDEOUT=1 S:$G(VPRNATL) VALUE=VPRNATL
  • NationalTitleType
    SEQUENCE:   10
    ITEM TYPE:   ENTITY
    FILE NUMBER:   8925
    FIELD NUMBER:   .01
    EXTENDED POINTER LKUP:   1501
    RETURN INTERNAL VALUE:   YES
    ENTITY:   VPR DOCUMENT TYPE
    OUTPUT TRANSFORM:   S VALUE=$P($G(^TIU(8926.1,+VALUE,0)),U,8)
    GET ACTION:   S:'$G(VPRNATL) DDEOUT=1 S:$G(VPRNATL) VALUE=VPRNATL
DESCRIPTION
This entity extends VPR DOCUMENT; it expects the VPRTIU array to be defined.
GET EXIT ACTION K VPRNATL