VPR DRUG CLASS (92) ENTITY (1.5)
Name
Value
NAME
VPR DRUG CLASS
DEFAULT FILE NUMBER
50.605
DATA MODEL
SDA
DISPLAY NAME
ATCCode
ITEM
SDACodingStandard
SEQUENCE: 1
ITEM TYPE: FIXED STRING
FIXED RESPONSE: VA50.605
Code
SEQUENCE: 6
ITEM TYPE: SIMPLE FIELD
FILE NUMBER: 50.605
FIELD NUMBER: .01
GET ACTION: S VALUE=$P(VPRDCLS,U,2)
Description
SEQUENCE: 7
ITEM TYPE: SIMPLE FIELD
FILE NUMBER: 50.605
FIELD NUMBER: 1
GET ACTION: S VALUE=$P(VPRDCLS,U,3)
GET EXIT ACTION
K VPRDCLS
GET ID ACTION
S VPRDCLS=$G(DIEN),DIEN=$P(DIEN,U)