VPR CW NOTES (82) ENTITY (1.5)

Name	Value
NAME	VPR CW NOTES
DEFAULT FILE NUMBER	8925
DATA MODEL	SDA
DISPLAY NAME	Alert
ITEM	ExternalId SEQUENCE: 13 ITEM TYPE: ID OUTPUT TRANSFORM: S VALUE=VALUE_";TIU(8925," AlertType SEQUENCE: 4 ITEM TYPE: ENTITY FILE NUMBER: 8925 FIELD NUMBER: .04 RETURN INTERNAL VALUE: YES ENTITY: VPR CODE TABLE OUTPUT TRANSFORM: S VALUE=$S(VALUE="C":"C^CRISIS NOTE",VALUE="W":"W^CLINICAL WARNING",1:"") GET ACTION: S VALUE=$G(VPRTYP) S:VALUE="" DDEOUT=1 Alert SEQUENCE: 5 ITEM TYPE: ENTITY FILE NUMBER: 8925 FIELD NUMBER: .01 RETURN INTERNAL VALUE: YES ENTITY: VPR DOCUMENT TITLE GET ACTION: S VALUE=$G(VPRTIU(DIEN,.01,"I")) Comments SEQUENCE: 6 ITEM TYPE: WORD PROCESSING FILE NUMBER: 8925 FIELD NUMBER: 2 GET ACTION: M WP=VPRTIU(DIEN,"TEXT") Status SEQUENCE: 7 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 8925 FIELD NUMBER: .05 RETURN INTERNAL VALUE: YES OUTPUT TRANSFORM: S VALUE=$S(VALUE<7:"C",VALUE<9:"A",1:"I") GET ACTION: S VALUE=$G(VPRTIU(DIEN,.05,"I")) EnteredBy SEQUENCE: 8 ITEM TYPE: ENTITY FILE NUMBER: 8925 FIELD NUMBER: 1202 RETURN INTERNAL VALUE: YES ENTITY: VPR USER GET ACTION: S VALUE=$G(VPRTIU(DIEN,1202,"I")) EnteredAt SEQUENCE: 9 ITEM TYPE: ENTITY FILE NUMBER: 8925 FIELD NUMBER: 1212 RETURN INTERNAL VALUE: YES ENTITY: VPR FACILITY GET ACTION: S VALUE=$G(VPRTIU(DIEN,1212,"I")) S:'VALUE VALUE=$G(VASITE) EnteredOn SEQUENCE: 10 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 8925 FIELD NUMBER: 1201 RETURN INTERNAL VALUE: YES OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE) GET ACTION: S VALUE=$G(VPRTIU(DIEN,1201,"I")) FromTime SEQUENCE: 11 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 8925 FIELD NUMBER: 1301 RETURN INTERNAL VALUE: YES OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE) GET ACTION: S VALUE=$G(VPRTIU(DIEN,1301,"I"))
DESCRIPTION	This entity populates the Alert container in HealthShare.
GET ENTRY ACTION	S VASITE=+$$SITE^VASITE S:VASITE'>0 VASITE=$$KSP^XUPARAM("INST")
GET EXIT ACTION	K VPRTIU,VPRTYP,VASITE
GET ID ACTION	D CW1^VPRSDAF
GET QUERY ROUTINE	CWQ^VPRSDAF