VPR PRF HISTORY (153) ENTITY (1.5)

Name	Value
NAME	VPR PRF HISTORY
DEFAULT FILE NUMBER	26.14
DATA MODEL	SDA
DISPLAY NAME	Assignment
ITEM	AssignmentId SEQUENCE: 1 ITEM TYPE: ID UpdateTime SEQUENCE: 2 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 26.14 FIELD NUMBER: .02 RETURN INTERNAL VALUE: YES OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE) GET ACTION: S VALUE=$P($G(VPRH("ASSIGNDT")),U) Action SEQUENCE: 3 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 26.14 FIELD NUMBER: .03 GET ACTION: S VALUE=$P($G(VPRH("ACTION")),U,2) Site SEQUENCE: 4 ITEM TYPE: ENTITY FILE NUMBER: 26.14 FIELD NUMBER: .09 RETURN INTERNAL VALUE: YES ENTITY: VPR FACILITY GET ACTION: S VALUE=$P($G(VPRH("ORIGFAC")),U) Comment SEQUENCE: 5 ITEM TYPE: WORD PROCESSING FILE NUMBER: 26.14 FIELD NUMBER: 1 GET ACTION: N I S I=0 F S I=$O(VPRH("COMMENT",I)) Q:I<1 S WP(I)=$G(VPRH("COMMENT",I,0)) DBRSNumbers SEQUENCE: 6 ITEM TYPE: LIST ENTITY: VPR PRF DBRS RECORD LIST TYPE: ARRAY XML NAME: DBRS GET ACTION: N I S I=0 F S I=$O(VPRH("DBRS",I)) Q:I<1 S DLIST(I)=$P($G(VPRH("DBRS",I)),U,1,2) EnteredBy SEQUENCE: 7 ITEM TYPE: ENTITY FILE NUMBER: 26.14 FIELD NUMBER: .04 ENTITY: VPR PROVIDER GET ACTION: S VALUE=$P($G(VPRH("ENTERBY")),U) ApprovedBy SEQUENCE: 8 ITEM TYPE: ENTITY FILE NUMBER: 26.14 FIELD NUMBER: .05 ENTITY: VPR PROVIDER GET ACTION: S VALUE=$P($G(VPRH("APPRVBY")),U) DocumentNumber SEQUENCE: 9 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 26.14 FIELD NUMBER: .06 OUTPUT TRANSFORM: S VALUE=VALUE_";TIU" GET ACTION: S VALUE=$P($G(VPRH("TIULINK")),U)
DESCRIPTION	This entity supports VPR PATIENT RECORD FLAG, to return each entry in the PRF Assignment History file #26.14 for the flag. It is intended to be used within the VPR PRF EXTENSION entity.
GET EXIT ACTION	K VPRH
GET ID ACTION	K VPRH S:'$$GETHIST^DGPFAAH(DIEN,.VPRH,1) DDEOUT=1