VPR CODE TABLE (69)    ENTITY (1.5)

Name Value
NAME VPR CODE TABLE
DATA MODEL SDA
DISPLAY NAME CodeTable
ITEM
  • SDACodingStandard
    SEQUENCE:   1
    ITEM TYPE:   FIXED STRING
    GET ACTION:   S VALUE=$P(VPRCODE,U,3)
  • Code
    SEQUENCE:   6
    ITEM TYPE:   FIXED STRING
    GET ACTION:   S VALUE=$P(VPRCODE,U)
  • Description
    SEQUENCE:   7
    ITEM TYPE:   FIXED STRING
    GET ACTION:   S VALUE=$P(VPRCODE,U,2)
  • OriginalText
    SEQUENCE:   3
    ITEM TYPE:   FIXED STRING
    GET ACTION:   S VALUE=$G(DATA)
GET ENTRY ACTION D CODED^VPRSDA
GET EXIT ACTION K VPRCODE
GET ID ACTION S VPRCODE=$G(DIEN) S:VPRCODE="" DDEOUT=1