VPR PATIENT DISABILITY (97) ENTITY (1.5)

Name	Value
NAME	VPR PATIENT DISABILITY
DEFAULT FILE NUMBER	2.04
DATA MODEL	SDA
DISPLAY NAME	Disability
ITEM	Name SEQUENCE: 1 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 2.04 FIELD NUMBER: .01 GET ACTION: N DIX S DIS=$P(VPRDIS,U) S:DIS VALUE=$$GET1^DIQ(31,+DIS,.01) I DIS="" S DDEOUT=1 ScPercent SEQUENCE: 2 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 2.04 FIELD NUMBER: 2 GET ACTION: S VALUE=$P(VPRDIS,U,2) S:VALUE="" DDEOUT=1 IsDisabilityscFlag SEQUENCE: 3 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 2.04 FIELD NUMBER: 3 RETURN INTERNAL VALUE: YES OUTPUT TRANSFORM: S VALUE=$S(VALUE:"true",1:"false") GET ACTION: S VALUE=$P(VPRDIS,U,3) S:VALUE="" DDEOUT=1 OrigEffDate SEQUENCE: 5 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 2.04 FIELD NUMBER: 5 RETURN INTERNAL VALUE: YES OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE) GET ACTION: S VALUE=$P(VPRDIS,U,5) S:VALUE="" DDEOUT=1 CurrEffDate SEQUENCE: 6 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 2.04 FIELD NUMBER: 6 RETURN INTERNAL VALUE: YES OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE) GET ACTION: S VALUE=$P(VPRDIS,U,6) S:VALUE="" DDEOUT=1 Extremity SEQUENCE: 4 ITEM TYPE: ENTITY FILE NUMBER: 2.04 FIELD NUMBER: 4 ENTITY: VPR CODE TABLE GET ACTION: S VALUE=$P(VPRDIS,U,4) S:VALUE="" DDEOUT=1
DESCRIPTION	This entity supports VPR PATIENT EXTENSION, returning a disability the patient has sustained. It expects to receive the results of RDIS^DGRPDB as its ID string, for every entry in the patient's sub-file.
GET EXIT ACTION	K VPRDIS
GET ID ACTION	S VPRDIS=$G(DIEN) I DIEN="" S DDEOUT=1