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