VPR DRUG PRODUCT (58)    ENTITY (1.5)

Name Value
NAME VPR DRUG PRODUCT
DEFAULT FILE NUMBER 50
DATA MODEL SDA
DISPLAY NAME DrugProduct
ITEM
  • 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)
DESCRIPTION
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.
GET ENTRY ACTION D NDF^VPRSDAP(.ID) ;ID=#50ien
GET EXIT ACTION I $D(VPRVAP) K @VPRVAP,VPRVAP
GET ID ACTION S:'DIEN DDEOUT=1