| ITEM |
-
- CareProviders
- SEQUENCE: 1
- ITEM TYPE: LIST
- ENTITY: VPR SIGNER
- LIST TYPE: ARRAY
- XML NAME: CareProvider
- GET ACTION: D TIUS^VPRSDAT(DIEN)
-
- 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
|
