VPR DRUG PRODUCT (58)    ENTITY (1.5)

• SDACodingStandard
  SEQUENCE:   1
  ITEM TYPE:   FIXED STRING
  FIXED RESPONSE:   VA50
  GET ACTION:   S VALUE=$P($G(DATA),U,3)
• Extension
  SEQUENCE:   5
  ITEM TYPE:   ENTITY
  FILE NUMBER:   50
  ENTITY:   VPR DRUG PRODUCT EXTENSION
  GET ACTION:   S VALUE=DIEN
• Code
  SEQUENCE:   6
  ITEM TYPE:   ID
  FILE NUMBER:   50
  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(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:VALUE CODE^VPRSDAP(.DATA,50.6)
• 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
  FIELD NUMBER:   22
  EXTENDED POINTER LKUP:   5
  GET ACTION:   Q S VALUE=$P($G(@VPRVAP@(22)),U,2)
• Identifier1
  SEQUENCE:   16
  ITEM TYPE:   ID
  OUTPUT TRANSFORM:   S VALUE=VALUE_";PSDRUG("
• Identifier2
  SEQUENCE:   17
  ITEM TYPE:   SIMPLE FIELD
  FILE NUMBER:   50
  FIELD NUMBER:   22
  RETURN INTERNAL VALUE:   YES
  OUTPUT TRANSFORM:   S VALUE=VALUE_";PSNDF(50.68,"
  GET ACTION:   S VALUE=$P($G(@VPRVAP@(22)),U)

This entity expects a Drug file #50 ien and returns a coded element,
including national VA Product information and RxNorm codes if available.
It is intended for use with VPR MEDICATION.