VPR ALLERGY (31)    ENTITY (1.5)

• Allergy
  SEQUENCE:   3
  ITEM TYPE:   ENTITY
  FILE NUMBER:   120.8
  FIELD NUMBER:   1
  RETURN INTERNAL VALUE:   YES
  ENTITY:   VPR CODE TABLE
  OUTPUT TRANSFORM:   S VALUE=$$ALLERGEN^VPRSDAL(VALUE)
  GET ACTION:   S VALUE=$P(VPRALG,U,9)
• EnteredAt
  SEQUENCE:   23
  ITEM TYPE:   ENTITY
  FILE NUMBER:   120.8
  ENTITY:   VPR FACILITY
  GET ACTION:   S VALUE=$G(VASITE) ;default #4 ien
• EnteredOn
  SEQUENCE:   24
  ITEM TYPE:   SIMPLE FIELD
  FILE NUMBER:   120.8
  FIELD NUMBER:   4
  RETURN INTERNAL VALUE:   YES
  OUTPUT TRANSFORM:   S VALUE=$$DATE^VPRSDA(VALUE)
  GET ACTION:   N X,Y,%DT S X=$P($G(GMRAY),U,10),%DT="TSX" I $L(X) D ^%DT S:Y>0 VALUE=Y
• Extension
  SEQUENCE:   2
  ITEM TYPE:   ENTITY
  FILE NUMBER:   120.8
  ENTITY:   VPR ALLERGY EXTENSION
  GET ACTION:   S VALUE=DIEN
• Clinician
  SEQUENCE:   5
  ITEM TYPE:   ENTITY
  FILE NUMBER:   120.8
  FIELD NUMBER:   21
  RETURN INTERNAL VALUE:   YES
  ENTITY:   VPR PROVIDER
• AllergyCategory
  SEQUENCE:   4
  ITEM TYPE:   ENTITY
  FILE NUMBER:   120.8
  FIELD NUMBER:   3.1
  RETURN INTERNAL VALUE:   YES
  ENTITY:   VPR CODE TABLE
  OUTPUT TRANSFORM:   N X S X=$$EXTERNAL^DILFD(120.8,3.1,,VALUE),VALUE=X_U_X_"^VHAT"
  GET ACTION:   S VALUE=$P(VPRALG,U,7)
• Status
  SEQUENCE:   19
  ITEM TYPE:   SIMPLE FIELD
  FILE NUMBER:   120.8
  FIELD NUMBER:   22
  RETURN INTERNAL VALUE:   YES
  OUTPUT TRANSFORM:   S VALUE=$S(VALUE:"I",1:"A")
• FromTime
  SEQUENCE:   25
  ITEM TYPE:   SIMPLE FIELD
  FILE NUMBER:   120.85
  OUTPUT TRANSFORM:   S VALUE=$$DATE^VPRSDA(VALUE)
  GET ACTION:   S VALUE=$$EVTDT^VPRSDAL(DIEN)
• ToTime
  SEQUENCE:   26
  ITEM TYPE:   SIMPLE FIELD
  FILE NUMBER:   120.8
  FIELD NUMBER:   23
  RETURN INTERNAL VALUE:   YES
  OUTPUT TRANSFORM:   S VALUE=$$DATE^VPRSDA(VALUE)
• InactiveTime
  SEQUENCE:   12
  ITEM TYPE:   SIMPLE FIELD
  FILE NUMBER:   120.8
  FIELD NUMBER:   23
  RETURN INTERNAL VALUE:   YES
  OUTPUT TRANSFORM:   S VALUE=$$DATE^VPRSDA(VALUE)
  GET ACTION:   S VALUE=$P($G(VPRALG("ERROR")),";",2)
• InactiveComments
  SEQUENCE:   13
  ITEM TYPE:   SIMPLE FIELD
  FILE NUMBER:   120.8
  GET ACTION:   S VALUE=$$CMT1^VPRSDAL(DIEN,"E")
• ExternalId
  SEQUENCE:   27
  ITEM TYPE:   ID
• EnteredBy
  SEQUENCE:   22
  ITEM TYPE:   ENTITY
  FILE NUMBER:   120.8
  FIELD NUMBER:   5
  RETURN INTERNAL VALUE:   YES
  ENTITY:   VPR USER
• Reaction
  SEQUENCE:   6
  ITEM TYPE:   ENTITY
  FILE NUMBER:   120.8
  ENTITY:   VPR ALLERGY SIGN/SYMPTOM
  GET ACTION:   I $D(VPRALG("S")) N X S X=$G(VPRALG("S",1)),VALUE=$P($P(X,U),";",2)_U_$P($P(X,U),";")_$S($L($P(X,U,2))>1:U_$P($P(X,U,2),";",2),1:"") ;first
• Severity
  SEQUENCE:   7
  ITEM TYPE:   ENTITY
  FILE NUMBER:   120.85
  ENTITY:   VPR CODE TABLE
  GET ACTION:   S VALUE=$$SEVRTY^VPRSDAL(DIEN)
• Certainty
  SEQUENCE:   8
  ITEM TYPE:   ENTITY
  FILE NUMBER:   120.8
  FIELD NUMBER:   19
  RETURN INTERNAL VALUE:   YES
  ENTITY:   VPR CODE ONLY
  OUTPUT TRANSFORM:   S VALUE=$S(VALUE:"Confirmed",1:"") ;FHIR value
  GET ACTION:   S VALUE=($E($P($G(GMRAY),U,4))="V")
• VerifiedTime
  SEQUENCE:   14
  ITEM TYPE:   SIMPLE FIELD
  FILE NUMBER:   120.8
  FIELD NUMBER:   20
  RETURN INTERNAL VALUE:   YES
  OUTPUT TRANSFORM:   S VALUE=$$DATE^VPRSDA(VALUE)
  GET ACTION:   S VALUE=$P($G(GMRAY),U,9)
• FreeTextAllergy
  SEQUENCE:   17
  ITEM TYPE:   SIMPLE FIELD
  FILE NUMBER:   120.8
  FIELD NUMBER:   .02
  GET ACTION:   S VALUE=$P(VPRALG,U,2) S:VALUE="" VALUE=$P($G(GMRAY),U)

This entity populates the Allergy container in HealthShare from the
PATIENT ALLERGIES (#120.8) file; it expects the record IEN as the ID (DIEN).
 
This entity is supported by code in routine VPRSDAL, which uses the
GMRADPT and GMRAOR2 routines to extract allergies. Data in SDA is
maintained by monitoring the following protocol events:
  GMRA ENTERED IN ERROR
  GMRA SIGN-OFF ON DATA
  GMRA VERIFY DATA