VPR COMMENT (100) ENTITY (1.5)

Name	Value
NAME	VPR COMMENT
DATA MODEL	SDA
DISPLAY NAME	Comment
ITEM	Id SEQUENCE: 1 ITEM TYPE: ID EnteredAt SEQUENCE: 2 ITEM TYPE: ENTITY ENTITY: VPR FACILITY GET ACTION: S VALUE=$P(VPRCMT,U,5) EnteredBy SEQUENCE: 3 ITEM TYPE: ENTITY ENTITY: VPR PROVIDER GET ACTION: S VALUE=$P(VPRCMT,U,3) EnteredOn SEQUENCE: 4 ITEM TYPE: SIMPLE FIELD OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE,1) GET ACTION: S VALUE=$P(VPRCMT,U,2) CommentType SEQUENCE: 5 ITEM TYPE: SIMPLE FIELD GET ACTION: S VALUE=$P(VPRCMT,U,4) CommentText SEQUENCE: 6 ITEM TYPE: SIMPLE FIELD GET ACTION: S VALUE=$P(VPRCMT,U,6) EnteredOnTime SEQUENCE: 7 ITEM TYPE: SIMPLE FIELD OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE) GET ACTION: S VALUE=$P(VPRCMT,U,2)
DESCRIPTION	This entity supports comments in multiple SDA containers, such as Allergies and Problems; it returns a single comment, and is intended to be used with a List property. A string in the following format is expected as the ID: id ^ date ^ user ^ type ^ facility ^ text
GET EXIT ACTION	K VPRCMT
GET ID ACTION	S VPRCMT=$G(DIEN),DIEN=$P(DIEN,U)