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)
|