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