VPR CUSTOM PAIR (134)    ENTITY (1.5)

Name Value
NAME VPR CUSTOM PAIR
DATA MODEL SDA
DISPLAY NAME NVPair
ITEM
  • Name
    SEQUENCE:   1
    ITEM TYPE:   FIXED STRING
    GET ACTION:   S VALUE=$P(VPRITM,U)
  • Value
    SEQUENCE:   2
    ITEM TYPE:   FIXED STRING
    GET ACTION:   S VALUE=$P(VPRITM,U,2)
GET EXIT ACTION K VPRITM
GET ID ACTION S VPRITM=$G(DIEN)