VPR IV PRODUCT (94) ENTITY (1.5)

Name	Value
NAME	VPR IV PRODUCT
DEFAULT FILE NUMBER	50
DATA MODEL	SDA
DISPLAY NAME	DrugProduct
ITEM	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
DESCRIPTION	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.
GET EXIT ACTION	K VPRPSIV I $D(VPRVAP) K @VPRVAP,VPRVAP
GET ID ACTION	D IV1^VPRSDAP(.DIEN)