VPR ORDER FLAG (266) ENTITY (1.5)

Name	Value
NAME	VPR ORDER FLAG
DEFAULT FILE NUMBER	100.008
DATA MODEL	SDA
DISPLAY NAME	Flag
ITEM	FlagStatus SEQUENCE: 1 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 100.008 FIELD NUMBER: 31 RETURN INTERNAL VALUE: YES OUTPUT TRANSFORM: S VALUE=$S(VALUE:"true",1:"false") GET ACTION: S VALUE=$P($G(ORFLAG),U) FlaggedOn SEQUENCE: 2 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 100.008 FIELD NUMBER: 33 RETURN INTERNAL VALUE: YES OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE) GET ACTION: S VALUE=$P($G(ORFLAG),U,3) FlaggedBy SEQUENCE: 3 ITEM TYPE: ENTITY FILE NUMBER: 100.008 FIELD NUMBER: 34 RETURN INTERNAL VALUE: YES ENTITY: VPR USER GET ACTION: S VALUE=$P($G(ORFLAG),U,4) FlagReason SEQUENCE: 4 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 100.008 FIELD NUMBER: 35 GET ACTION: S VALUE=$P($G(ORFLAG),U,5) UnflaggedOn SEQUENCE: 5 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 100.008 FIELD NUMBER: 36 RETURN INTERNAL VALUE: YES OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE) GET ACTION: S VALUE=$P($G(ORFLAG),U,6) UnflaggedBy SEQUENCE: 6 ITEM TYPE: ENTITY FILE NUMBER: 100.008 FIELD NUMBER: 37 RETURN INTERNAL VALUE: YES ENTITY: VPR USER GET ACTION: S VALUE=$P($G(ORFLAG),U,7) UnflagReason SEQUENCE: 7 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 100.008 FIELD NUMBER: 38 GET ACTION: S VALUE=$P($G(ORFLAG),U,8) OrderAction SEQUENCE: 8 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 100.008 FIELD NUMBER: 2 RETURN INTERNAL VALUE: YES
DESCRIPTION	This entity returns flag data for an order action. It is intended to be called from VPR MED EXTENSION.
GET EXIT ACTION	K ORFLAG
GET ID ACTION	S ORFLAG=$G(^OR(100,+$P($G(DIEN),",",2),8,+$G(DIEN),3)) S:ORFLAG="" DDEOUT=1