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