VPR RACE (23) ENTITY (1.5)

Name	Value
NAME	VPR RACE
DEFAULT FILE NUMBER	10.99
DATA MODEL	SDA
DISPLAY NAME	Race
ITEM	Code SEQUENCE: 6 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 10.99 FIELD NUMBER: 1 GET ACTION: I '$G(DIEN),$G(DATA) S VALUE=$$GET1^DIQ(10,+DATA,3,"I") ;use #10 code if no master Description SEQUENCE: 7 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 10.99 FIELD NUMBER: .01 GET ACTION: I '$G(DIEN),$G(DATA) S VALUE=$$LOWER^VALM1($P(DATA,U,2)) ;use #10 name if no master SDACodingStandard SEQUENCE: 1 ITEM TYPE: FIXED STRING FIXED RESPONSE: CDC Extension SEQUENCE: 5 ITEM TYPE: ENTITY FILE NUMBER: 10.99 ENTITY: VPR CDC EXTENSION GET ACTION: S VALUE=$G(DATA1) ;VADM(12,#,1)
DESCRIPTION	This entity supports VPR PATIENT, and expects the VADM(12,#) array from VADPT where ID is the subscript. The GET ID ACTION logic will get the Race file #10 ien from the current VADM(12) entry and convert it to Race Master file #10.99 ien; the #10 ien^name will be available in DATA, and the method of collection in DATA1.
GET EXIT ACTION	K DATA,DATA1
GET ID ACTION	S DATA=$G(VADM(12,DIEN)),DATA1=$G(VADM(12,DIEN,1)),DIEN=+$G(^DIC(10,+DATA,"MASTER")) ;convert #10 ien^name to #10.99 ien