VPR ALLERGY ASSESSMENT (128)    ENTITY (1.5)

Name Value
NAME VPR ALLERGY ASSESSMENT
DEFAULT FILE NUMBER 120.86
DATA MODEL SDA
DISPLAY NAME Allergy
ITEM
  • Allergy
    SEQUENCE:   3
    ITEM TYPE:   ENTITY
    FILE NUMBER:   120.86
    FIELD NUMBER:   1
    RETURN INTERNAL VALUE:   YES
    ENTITY:   VPR CODE TABLE
    GET ACTION:   S VALUE=$S($G(GMRAL)=0:"NKA^No Known Allergies",$G(GMRAL)=1:"ALG^Assessment",1:"NONE^No Assessment")
  • EnteredBy
    SEQUENCE:   22
    ITEM TYPE:   ENTITY
    FILE NUMBER:   120.86
    FIELD NUMBER:   2
    RETURN INTERNAL VALUE:   YES
    ENTITY:   VPR USER
  • EnteredOn
    SEQUENCE:   24
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   120.86
    FIELD NUMBER:   3
    RETURN INTERNAL VALUE:   YES
    OUTPUT TRANSFORM:   S VALUE=$$DATE^VPRSDA(VALUE)
  • EnteredAt
    SEQUENCE:   23
    ITEM TYPE:   ENTITY
    FILE NUMBER:   120.86
    ENTITY:   VPR FACILITY
    GET ACTION:   S VALUE=$G(VASITE) ;default #4 ien
  • Clinician
    SEQUENCE:   5
    ITEM TYPE:   ENTITY
    FILE NUMBER:   120.86
    FIELD NUMBER:   2
    RETURN INTERNAL VALUE:   YES
    ENTITY:   VPR PROVIDER
  • FromTime
    SEQUENCE:   25
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   120.86
    FIELD NUMBER:   3
    RETURN INTERNAL VALUE:   YES
    OUTPUT TRANSFORM:   S VALUE=$$DATE^VPRSDA(VALUE)
  • ExternalId
    SEQUENCE:   27
    ITEM TYPE:   ID
    OUTPUT TRANSFORM:   S VALUE=VALUE_";DFN"
DESCRIPTION
This entity works with VPR ALLERGY to populate the Allergy container, if 
the patient has not been assessed or found to have No Known Allergies
(NKA).
GET ENTRY ACTION S VASITE=+$$SITE^VASITE S:VASITE'>0 VASITE=$$KSP^XUPARAM("INST")
GET EXIT ACTION K GMRAL,VASITE
GET ID ACTION S:'$G(DFN) DFN=DIEN S GMRAL=$P($G(^GMR(120.86,+DFN,0)),U,2)
GET QUERY ROUTINE ASSESS^VPRSDAQ