VPR IV PRODUCT (94)    ENTITY (1.5)

• SDACodingStandard
  SEQUENCE:   1
  ITEM TYPE:   FIXED STRING
  FIXED RESPONSE:   VA50.68
  GET ACTION:   S VALUE=$P($G(DATA),U,3)
• LabelName
  SEQUENCE:   23
  ITEM TYPE:   FIXED STRING
  GET ACTION:   S:$P(VPRPSIV,U,4)="A" VALUE=$P(VPRPSIV,U,5)
• Identifier1
  SEQUENCE:   16
  ITEM TYPE:   ID
  OUTPUT TRANSFORM:   S VALUE=VALUE_";PSDRUG("
  GET ACTION:   S:DIEN<1 DDEOUT=1
• Identifier2
  SEQUENCE:   17
  ITEM TYPE:   SIMPLE FIELD
  FILE NUMBER:   50
  GET ACTION:   N X S X=$P(VPRPSIV,U) S:X VALUE=X_";PS(52."_$S($P(VPRPSIV,U,4)="A":6,1:7)
• OriginalText
  SEQUENCE:   3
  ITEM TYPE:   SIMPLE FIELD
  FILE NUMBER:   50
  FIELD NUMBER:   .01
  GET ACTION:   S VALUE=$G(@VPRVAP@(.01))
• ProductName
  SEQUENCE:   10
  ITEM TYPE:   SIMPLE FIELD
  FILE NUMBER:   50
  GET ACTION:   S VALUE=$P(VPRPSIV,U,2)
• Code
  SEQUENCE:   6
  ITEM TYPE:   ID
  GET ACTION:   S VALUE=$P($G(DATA),U)
• Description
  SEQUENCE:   7
  ITEM TYPE:   SIMPLE FIELD
  FILE NUMBER:   50
  FIELD NUMBER:   .01
  GET ACTION:   S VALUE=$P($G(DATA),U,2)
• ATCCode
  SEQUENCE:   18
  ITEM TYPE:   ENTITY
  FILE NUMBER:   50
  FIELD NUMBER:   25
  RETURN INTERNAL VALUE:   YES
  ENTITY:   VPR DRUG CLASS
  GET ACTION:   S VALUE=$G(@VPRVAP@(25))
• Generic
  SEQUENCE:   22
  ITEM TYPE:   ENTITY
  FILE NUMBER:   50
  FIELD NUMBER:   20
  RETURN INTERNAL VALUE:   YES
  ENTITY:   VPR DRUG GENERIC
  GET ACTION:   S DATA=$G(@VPRVAP@(20)),VALUE=$P(DATA,U) D:DATA CODE^VPRSDAP(.DATA,50.6)
• StrengthQty
  SEQUENCE:   19
  ITEM TYPE:   FIXED STRING
  GET ACTION:   S:$P(VPRPSIV,U,4)="A" VALUE=+$P($P(VPRPSIV,U,3)," ") I $P(VPRPSIV,U,4)'="A" S DDEOUT=1
• StrengthUnits
  SEQUENCE:   20
  ITEM TYPE:   ENTITY
  FILE NUMBER:   50
  ENTITY:   VPR CODE ONLY
  GET ACTION:   S:$P(VPRPSIV,U,4)="A" VALUE=$P($P(VPRPSIV,U,3)," ",2) I $P(VPRPSIV,U,4)'="A" S DDEOUT=1
• BaseQty
  SEQUENCE:   8
  ITEM TYPE:   FIXED STRING
  GET ACTION:   S:$P(VPRPSIV,U,4)="B" VALUE=+$P($P(VPRPSIV,U,3)," ") I $P(VPRPSIV,U,4)'="B" S DDEOUT=1
• BaseUnits
  SEQUENCE:   9
  ITEM TYPE:   ENTITY
  FILE NUMBER:   50
  ENTITY:   VPR CODE ONLY
  GET ACTION:   S:$P(VPRPSIV,U,4)="B" VALUE=$P($P(VPRPSIV,U,3)," ",2) I $P(VPRPSIV,U,4)'="B" S DDEOUT=1

This entity expects a string of data from OEL^PSOORRL describing an IV
solution or additive, in the form ien^name^amount^type[^bottle]. It
returns a coded element, including national VA Product information and
RxNorm codes if available. It is intended for use with VPR MEDICATION.