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