VPR REFERRAL ACTIVITY (177) ENTITY (1.5)

Name	Value
NAME	VPR REFERRAL ACTIVITY
DEFAULT FILE NUMBER	123.02
DATA MODEL	SDA
DISPLAY NAME	RequestAction
ITEM	Action SEQUENCE: 1 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 123.02 FIELD NUMBER: 1 GET ACTION: S VALUE=$P($G(VPRACT),U,2) ActionDate SEQUENCE: 2 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 123.02 FIELD NUMBER: 2 RETURN INTERNAL VALUE: YES OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE) GET ACTION: S VALUE=$P($G(VPRACT),U,3) Provider SEQUENCE: 3 ITEM TYPE: ENTITY FILE NUMBER: 123.02 FIELD NUMBER: 3 RETURN INTERNAL VALUE: YES ENTITY: VPR PROVIDER GET ACTION: S VALUE=$P($G(VPRACT),U,4) EnteredBy SEQUENCE: 4 ITEM TYPE: ENTITY FILE NUMBER: 123.02 FIELD NUMBER: 4 RETURN INTERNAL VALUE: YES ENTITY: VPR USER GET ACTION: S VALUE=$P($G(VPRACT),U,5) ActionId SEQUENCE: 5 ITEM TYPE: ID Comment SEQUENCE: 6 ITEM TYPE: WORD PROCESSING FILE NUMBER: 123.02 FIELD NUMBER: 5 GET ACTION: M WP=VPRCACT(+DIEN,1) S:'$O(WP(0)) DDEOUT=1 ForwardedFrom SEQUENCE: 7 ITEM TYPE: ENTITY FILE NUMBER: 123.02 FIELD NUMBER: 6 RETURN INTERNAL VALUE: YES ENTITY: VPR CONSULT SERVICE GET ACTION: S VALUE=$P($G(VPRACT),U,6) PriorProvider SEQUENCE: 8 ITEM TYPE: ENTITY FILE NUMBER: 123.02 FIELD NUMBER: 7 RETURN INTERNAL VALUE: YES ENTITY: VPR PROVIDER GET ACTION: S VALUE=$P($G(VPRACT),U,7)
DESCRIPTION	This entity supports VPR REFERRAL EXTENSION, returning an entry in the Request Processing Activity multiple of the Request/Consultation file #123. It expects the VPRCACT array, defined in the GET ACTION field of the Extension property RequestActions.
GET EXIT ACTION	K VPRACT
GET ID ACTION	S VPRACT=$G(VPRCACT(+DIEN,0))