VPR ALLERGY EXTENSION (101)    ENTITY (1.5)

Name Value
NAME VPR ALLERGY EXTENSION
DEFAULT FILE NUMBER 120.8
DATA MODEL SDA
DISPLAY NAME AllergyExtension
ITEM
  • Mechanism
    SEQUENCE:   1
    ITEM TYPE:   ENTITY
    FILE NUMBER:   120.8
    FIELD NUMBER:   17
    ENTITY:   VPR CODE ONLY
    GET ACTION:   S VALUE=$P($G(GMRAY),U,6)
  • Source
    SEQUENCE:   2
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   120.8
    FIELD NUMBER:   6
    GET ACTION:   S VALUE=$P($G(GMRAY),U,5)
  • Comments
    SEQUENCE:   3
    ITEM TYPE:   LIST
    ENTITY:   VPR COMMENT
    LIST TYPE:   ARRAY
    XML NAME:   Comment
    GET ACTION:   D ALGCMT^VPRSDAL(DIEN)
  • Reactions
    SEQUENCE:   4
    ITEM TYPE:   LIST
    ENTITY:   VPR ALLERGY SIGN/SYMPTOM
    LIST TYPE:   ARRAY
    XML NAME:   Reaction
    GET ACTION:   N I,X S I=0 F S I=$O(VPRALG("S",I)) Q:I<1 S X=$G(VPRALG("S",I)),DLIST(I)=+$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:"")
  • DrugClasses
    SEQUENCE:   5
    ITEM TYPE:   LIST
    ENTITY:   VPR DRUG CLASS
    GET ACTION:   N I S I=0 F S I=$O(GMRAY("V",I)) Q:I<1 S DLIST(I)=I_U_GMRAY("V",I)
  • DrugProducts
    SEQUENCE:   6
    ITEM TYPE:   LIST
    ENTITY:   VPR DRUG INGREDIENT
    LIST TYPE:   ARRAY
    XML NAME:   DrugProduct
    GET ACTION:   M DLIST=GMRAY("I")
  • OriginalCode
    SEQUENCE:   7
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   120.8
    FIELD NUMBER:   1
    RETURN INTERNAL VALUE:   YES
    GET ACTION:   S VALUE=$P($G(VPRALG),U,9)
  • InactiveUser
    SEQUENCE:   8
    ITEM TYPE:   ENTITY
    FILE NUMBER:   120.8
    FIELD NUMBER:   24
    RETURN INTERNAL VALUE:   YES
    ENTITY:   VPR USER
  • AllergyObservations
    SEQUENCE:   9
    ITEM TYPE:   LIST
    ENTITY:   VPR ALLERGY OBSERVATION
    GET ACTION:   M DLIST=GMRAY("O")
DESCRIPTION
This entity extends VPR ALLERGY. It expects the GMRAY variable and array
to be defined, from the GET ID ACTION call to GMRAOR2.