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