VPR ICD (10) ENTITY (1.5)

Name	Value
NAME	VPR ICD
DEFAULT FILE NUMBER	80
DATA MODEL	SDA
DISPLAY NAME	DiagnosisCode
ITEM	Code SEQUENCE: 6 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 80 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,4) SDACodingStandard SEQUENCE: 1 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 80 GET ACTION: S VALUE=$$SNAM^ICDEX($P(VPRCODE,U,20)) OriginalText SEQUENCE: 3 ITEM TYPE: FIXED STRING GET ACTION: S VALUE=$G(DATA("TEXT"))
GET ENTRY ACTION	S VPRSYS=$G(DATA("SYS")),VPRDT=$G(DATA("DATE"),DT)
GET EXIT ACTION	K VPRSYS,VPRDT,VPRCODE
GET ID ACTION	S:VPRSYS="" VPRSYS=$$SAB^ICDEX($$CSI^ICDEX(80,DIEN),VPRDT) S VPRCODE=$$ICDDATA^ICDXCODE(VPRSYS,DIEN,VPRDT,"I")