Sub-Field: 2.02

Parent File	Name	Number	Package
VA PATIENT(#2)	RACE INFORMATION	2.02	Registration

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	RACE INFORMATION	0;1	POINTER TO RACE FILE (#10)	RACE(#10) INPUT TRANSFORM: `S DIC("S")="I '$G(^(.02))" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X S:$D(X) DINUM=X` LAST EDITED: `AUG 31, 2006` HELP-PROMPT: `Select from the available listing all races which best identify this patient` DESCRIPTION: Patient's race SCREEN: `S DIC("S")="I '$G(^(.02))"` EXPLANATION: `Inactive values are not selectable` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `2.02^B` 1)= S ^DPT(DA(1),.02,"B",$E(X,1,30),DA)="" 2)= K ^DPT(DA(1),.02,"B",$E(X,1,30),DA) CROSS-REFERENCE: `^^TRIGGER^2.02^.02` 1)= X ^DD(2.02,.01,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.02,D1,0)):^(0),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=+$O(^DIC(10.3,"C","S",0)) S:X=0 X="" X ^DD(2.02,.01,1,2,1.4) 1.3)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S Y(1)=$S($D(^DPT(D0,.02,D1,0)):^(0),1:"") S X=$S('$D(^DIC(10.3,+$P(Y(1),U,2),0)):"",1:$P(^(0),U,1))="" 1.4)= S DIH=$G(^DPT(DIV(0),.02,DIV(1),0)),DIV=X S $P(^(0),U,2)=DIV,DIH=2.02,DIG=.02 D ^DICR 2)= Q CREATE CONDITION)= METHOD OF COLLECTION="" CREATE VALUE)= S X=+$O(^DIC(10.3,"C","S",0)) S:X=0 X="" DELETE VALUE)= NO EFFECT FIELD)= METHOD SELF IDENTIFICATION is the default value for collection method CROSS-REFERENCE: `2.02^ARACE^MUMPS` 1)= S:'$P(^DPT(DA(1),0),"^",6) $P(^(0),"^",6)=X 2)= S:$P(^DPT(DA(1),0),"^",6)=X $P(^DPT(DA(1),0),"^",6)="" 3)= IHS XREF TO KEEP RACE FIELDS IN SYNC IHS/OIT/DMJ,LJF 09/08/2006 PATCH 1006: Until Patient Registration only uses this field, the old RACE field must be kept in sync.
.02	METHOD OF COLLECTION	0;2	POINTER TO RACE AND ETHNICITY COLLECTION METHOD FILE (#10.3)	**********************REQUIRED FIELD********************** RACE AND ETHNICITY COLLECTION METHOD(#10.3) LAST EDITED: `AUG 14, 2002` HELP-PROMPT: `Enter the method in which the race value was collected` DESCRIPTION: Method used to collect patient's race NOTES: `TRIGGERED by the RACE INFORMATION field of the RACE INFORMATION sub-field of the VA PATIENT File`

.01

RACE INFORMATION

0;1

POINTER TO RACE FILE (#10)

RACE(#10)

INPUT TRANSFORM: S DIC("S")="I '$G(^(.02))" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X S:$D(X) DINUM=X
LAST EDITED: AUG 31, 2006
HELP-PROMPT: Select from the available listing all races which best identify this patient
DESCRIPTION:
```
Patient's race
```
SCREEN: S DIC("S")="I '$G(^(.02))"
EXPLANATION: Inactive values are not selectable
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER

CROSS-REFERENCE: 2.02^B

1)= S ^DPT(DA(1),.02,"B",$E(X,1,30),DA)=""

2)= K ^DPT(DA(1),.02,"B",$E(X,1,30),DA)

CROSS-REFERENCE: ^^TRIGGER^2.02^.02

1)= X ^DD(2.02,.01,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.02,D1,0)):^(0),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=+$O(^DIC(10.3,"C","S",0)) S:X=0 X="" X ^DD(2.02,.01,1,2,1.4)

1.3)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S Y(1)=$S($D(^DPT(D0,.02,D1,0)):^(0),1:"") S X=$S('$D(^DIC(10.3,+$P(Y(1),U,2),0)):"",1:$P(^(0),U,1))=""

1.4)= S DIH=$G(^DPT(DIV(0),.02,DIV(1),0)),DIV=X S $P(^(0),U,2)=DIV,DIH=2.02,DIG=.02 D ^DICR

2)= Q

CREATE CONDITION)= METHOD OF COLLECTION=""

CREATE VALUE)= S X=+$O(^DIC(10.3,"C","S",0)) S:X=0 X=""

DELETE VALUE)= NO EFFECT

FIELD)= METHOD

SELF IDENTIFICATION is the default value for collection method

CROSS-REFERENCE: 2.02^ARACE^MUMPS

1)= S:'$P(^DPT(DA(1),0),"^",6) $P(^(0),"^",6)=X

2)= S:$P(^DPT(DA(1),0),"^",6)=X $P(^DPT(DA(1),0),"^",6)=""

3)= IHS XREF TO KEEP RACE FIELDS IN SYNC

IHS/OIT/DMJ,LJF 09/08/2006 PATCH 1006:  Until Patient Registration only uses this field, the old RACE field must be kept in sync.

.02

METHOD OF COLLECTION

0;2

POINTER TO RACE AND ETHNICITY COLLECTION METHOD FILE (#10.3)

************************REQUIRED FIELD************************

RACE AND ETHNICITY COLLECTION METHOD(#10.3)

LAST EDITED: AUG 14, 2002
HELP-PROMPT: Enter the method in which the race value was collected
DESCRIPTION:
```
Method used to collect patient's race
```
NOTES: TRIGGERED by the RACE INFORMATION field of the RACE INFORMATION sub-field of the VA PATIENT File

Customize PDF page

Package: Registration

VA PATIENT(#2)-->2.02

Sub-Field: 2.02

Information

Details