VPR ICD OP (239)    ENTITY (1.5)

Name Value
NAME VPR ICD OP
DEFAULT FILE NUMBER 80.1
DATA MODEL SDA
DISPLAY NAME ProcedureCode
ITEM
  • Code
    SEQUENCE:   6
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   80.1
    FIELD NUMBER:   .01
    GET ACTION:   S:$G(VPRCODE) VALUE=$P(VPRCODE,U,2)
  • Description
    SEQUENCE:   7
    ITEM TYPE:   FIXED STRING
    GET ACTION:   S VALUE=$P($G(VPRCODE),U,5)
  • SDACodingStandard
    SEQUENCE:   1
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   80.1
    FIELD NUMBER:   1.1
    OUTPUT TRANSFORM:   S VALUE=$$SNAM^ICDEX(VALUE)
    GET ACTION:   S VALUE=$P(VPRCODE,U,15)
GET ENTRY ACTION S VPRDT=$G(DATA("DATE"),DT)
GET EXIT ACTION K VPRDT,VPRCODE
GET ID ACTION S VPRCODE=$$ICDOP^ICDEX(DIEN,VPRDT,,"I")