VPR PATIENT LANGUAGE (143) ENTITY (1.5)

Name	Value
NAME	VPR PATIENT LANGUAGE
DEFAULT FILE NUMBER	2.07
DATA MODEL	SDA
DISPLAY NAME	PatientLanguage
ITEM	PreferredLanguage SEQUENCE: 7 ITEM TYPE: ENTITY FILE NUMBER: 2.07 FIELD NUMBER: .02 ENTITY: VPR LANGUAGE GET ACTION: S VALUE=+$G(VPRLNG) S:VALUE<1 DDEOUT=1 I VALUE S DATA=$P(VPRLNG,U,2) Use SEQUENCE: 8 ITEM TYPE: FIXED STRING GET ACTION: S VALUE=$G(VASTN) EnteredOn SEQUENCE: 9 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 2.07 FIELD NUMBER: .01 RETURN INTERNAL VALUE: YES OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE) GET ACTION: S VALUE=$P($G(VADM(13)),U) I VALUE,(VALUE<1500000)!($P(VALUE,".")>DT) S VALUE=$$GET1^DIQ(2,DFN,.097,"I") S:VALUE VALUE=VALUE_".12"
DESCRIPTION	This entity supports VPR PATIENT, returning the patient's preferred language from the Language Date/Time sub-file. It expects VPRLNG and the VADM array to be defined.
GET EXIT ACTION	K VPRLNG
GET ID ACTION	S:'$G(VPRLNG) DDEOUT=1