VPR PRF EXTENSION (106) ENTITY (1.5)

Name	Value
NAME	VPR PRF EXTENSION
DEFAULT FILE NUMBER	26.13
DATA MODEL	SDA
DISPLAY NAME	AlertExtension
ITEM	OwnSite SEQUENCE: 1 ITEM TYPE: ENTITY FILE NUMBER: 26.13 FIELD NUMBER: .04 RETURN INTERNAL VALUE: YES ENTITY: VPR FACILITY GET ACTION: S VALUE=$P($G(VPRF("OWNER")),U) Category SEQUENCE: 2 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 26.15 FIELD NUMBER: .03 GET ACTION: S IEN=+$G(VPRF("FLAG")) DocumentNumber SEQUENCE: 3 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 26.14 FIELD NUMBER: .06 RETURN INTERNAL VALUE: YES OUTPUT TRANSFORM: S VALUE=VALUE_";TIU" GET ACTION: S VALUE=$P($G(VPRFLH("TIULINK")),U),IEN=+$G(VPRFLH) DBRSNumbers SEQUENCE: 4 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(VPRF("DBRS#",I)) Q:I<1 S DLIST(I)=$P($G(VPRF("DBRS#",I)),U)_U_$P($G(VPRF("DBRS OTHER",I)),U) ApprovedBy SEQUENCE: 5 ITEM TYPE: ENTITY FILE NUMBER: 26.14 FIELD NUMBER: .05 RETURN INTERNAL VALUE: YES ENTITY: VPR PROVIDER GET ACTION: S VALUE=$P($G(VPRFLH("APPRVBY")),U),IEN=+$G(VPRFLH) Action SEQUENCE: 6 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 26.14 FIELD NUMBER: .03 GET ACTION: S VALUE=$P($G(VPRFLH("ACTION")),U,2),IEN=+$G(VPRFLH) Assignments SEQUENCE: 7 ITEM TYPE: LIST ENTITY: VPR PRF HISTORY LIST TYPE: ARRAY XML NAME: Assignment GET ACTION: N VPRAH,IEN,N S N=$$GETALL^DGPFAAH(DIEN,.VPRAH),IEN=0 F N=1:1 S IEN=$O(VPRAH(IEN)) Q:IEN<1 S DLIST(N)=IEN
DESCRIPTION	This entity extends VPR PATIENT RECORD FLAG; it expects the VPRF array to be defined.
GET EXIT ACTION	K VPRDBRS,VPRDBRS1