VPR PATIENT RECORD FLAG (54) ENTITY (1.5)

Name	Value
NAME	VPR PATIENT RECORD FLAG
DEFAULT FILE NUMBER	26.13
DATA MODEL	SDA
DISPLAY NAME	Alert
ITEM	AlertType SEQUENCE: 4 ITEM TYPE: ENTITY ENTITY: VPR CODE TABLE GET ACTION: S VALUE="PRF^PATIENT RECORD FLAG" Extension SEQUENCE: 3 ITEM TYPE: ENTITY FILE NUMBER: 26.13 ENTITY: VPR PRF EXTENSION GET ACTION: S VALUE=DIEN ExternalId SEQUENCE: 13 ITEM TYPE: ID OUTPUT TRANSFORM: S VALUE=$P($G(VPRF("FLAG")),U) ;vptr Alert SEQUENCE: 5 ITEM TYPE: ENTITY FILE NUMBER: 26.13 FIELD NUMBER: .02 RETURN INTERNAL VALUE: YES ENTITY: VPR CODE TABLE GET ACTION: N X S X=$G(VPRF("FLAG")) S:X VALUE=+X_U_$P(X,U,2)_"^VA"_+$P(X,"(",2) Comments SEQUENCE: 6 ITEM TYPE: WORD PROCESSING FILE NUMBER: 26.13 FIELD NUMBER: 1 WORD WRAP: 1 GET ACTION: M WP=VPRF("NARR") S:'$D(WP) DDEOUT=1 Status SEQUENCE: 7 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 26.13 FIELD NUMBER: .03 RETURN INTERNAL VALUE: YES FIXED RESPONSE: A OUTPUT TRANSFORM: S VALUE=$S(VALUE:"A",1:"I") GET ACTION: S VALUE=+$G(VPRF("STATUS")) EnteredBy SEQUENCE: 8 ITEM TYPE: ENTITY FILE NUMBER: 26.14 FIELD NUMBER: .04 RETURN INTERNAL VALUE: YES ENTITY: VPR USER GET ACTION: S VALUE=$P($G(VPRFLH("ENTERBY")),U),IEN=+$G(VPRFLH) EnteredAt SEQUENCE: 9 ITEM TYPE: ENTITY FILE NUMBER: 26.13 FIELD NUMBER: .05 RETURN INTERNAL VALUE: YES ENTITY: VPR FACILITY GET ACTION: S VALUE=$P($G(VPRF("ORIGSITE")),U) S:'VALUE VALUE=$G(VASITE) EnteredOn SEQUENCE: 10 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(VPRF1H("ASSIGNDT")),U),IEN=+$G(VPRF1H) FromTime SEQUENCE: 11 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(VPRF1H("ASSIGNDT")),U),IEN=+$G(VPRF1H) ToTime SEQUENCE: 12 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 26.13 FIELD NUMBER: .06 RETURN INTERNAL VALUE: YES OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE) GET ACTION: S VALUE=$P($G(VPRF("REVIEWDT")),U)
DESCRIPTION	This entity populates the Alert container in HealthShare with active national Patient Record Flags for a patient DFN.
GET ENTRY ACTION	S VASITE=+$$SITE^VASITE S:VASITE'>0 VASITE=$$KSP^XUPARAM("INST")
GET EXIT ACTION	K VPRF,VPRF1H,VPRFLH,VASITE
GET ID ACTION	D PRF1^VPRSDAF(.DIEN)
GET QUERY ROUTINE	PRFQ^VPRSDAF