Sub-Field: 2.06

Parent File	Name	Number	Package
VA PATIENT(#2)	ETHNICITY INFORMATION	2.06	Registration

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	ETHNICITY INFORMATION	0;1	POINTER TO ETHNICITY FILE (#10.2)	ETHNICITY(#10.2) INPUT TRANSFORM: `S DIC("S")="I '$G(^(.02))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=X` LAST EDITED: `JUL 12, 2002` HELP-PROMPT: `Select from the available listing the ethnicity which best identifies this patient` DESCRIPTION: Patient's ethnicity TECHNICAL DESCR: Although this field is defined to be multi-valued, the AONLYONE cross reference prevents multiple values from being stored. This is because the current business definition for ethnicity only accounts for a single value. 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.06^B` 1)= S ^DPT(DA(1),.06,"B",$E(X,1,30),DA)="" 2)= K ^DPT(DA(1),.06,"B",$E(X,1,30),DA) CROSS-REFERENCE: `^^TRIGGER^2.06^.02` 1)= X ^DD(2.06,.01,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.06,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.06,.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,.06,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),.06,DIV(1),0)),DIV=X S $P(^(0),U,2)=DIV,DIH=2.06,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 FIELD INDEX: `AONLYONE (#53) MUMPS ACTION` Short Descr: Only one entry allowed in multiple Description: Cross reference deletes all entries in the multiple EXCEPT the one just added. This has the net affect of only allowing one entry to exist in the multiple. Set Logic: N DGFDA,DGMSG,DGD0,DGD1,DGLOOP S DGD0=DA(1),DGD1=DA S DGLOOP=0 F S DGLOOP=$O(^DPT(DGD0,.06,DGLOOP)) Q:'DGLOOP I DGLOOP'=DGD1 S DGFDA(2.06,DGLOOP_","_DGD0_",",.01)="@" D FILE^DIE("","DGFDA","DGMSG") K DGFDA,DGMSG Kill Logic: Q X(1): ETHNICITY INFORMATION (2.06,.01) (forwards)
.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 ethnicity value was collected` DESCRIPTION: Method used to collect patient's ethnicity NOTES: `TRIGGERED by the ETHNICITY INFORMATION field of the ETHNICITY INFORMATION sub-field of the VA PATIENT File`

.01

ETHNICITY INFORMATION

0;1

POINTER TO ETHNICITY FILE (#10.2)

ETHNICITY(#10.2)

INPUT TRANSFORM: S DIC("S")="I '$G(^(.02))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=X
LAST EDITED: JUL 12, 2002
HELP-PROMPT: Select from the available listing the ethnicity which best identifies this patient
DESCRIPTION:
```
Patient's ethnicity
```

TECHNICAL DESCR:

Although this field is defined to be multi-valued, the AONLYONE cross reference prevents multiple values from being stored.  This is because the current business definition for ethnicity only accounts for a single value.

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.06^B

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

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

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

1)= X ^DD(2.06,.01,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.06,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.06,.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,.06,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),.06,DIV(1),0)),DIV=X S $P(^(0),U,2)=DIV,DIH=2.06,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

FIELD INDEX: AONLYONE (#53) MUMPS ACTION

Short Descr:  Only one entry allowed in multiple

Description:  Cross reference deletes all entries in the multiple EXCEPT the one just added.  This has the net affect of only allowing one entry to exist in the multiple.

Set Logic:  N DGFDA,DGMSG,DGD0,DGD1,DGLOOP S DGD0=DA(1),DGD1=DA S DGLOOP=0 F  S DGLOOP=$O(^DPT(DGD0,.06,DGLOOP)) Q:'DGLOOP  I DGLOOP'=DGD1 S DGFDA(2.06,DGLOOP_","_DGD0_",",.01)="@" D FILE^DIE("","DGFDA","DGMSG") K DGFDA,DGMSG

Kill Logic:  Q

X(1):  ETHNICITY INFORMATION  (2.06,.01)  (forwards)

.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 ethnicity value was collected

DESCRIPTION:

Method used to collect patient's ethnicity

NOTES: TRIGGERED by the ETHNICITY INFORMATION field of the ETHNICITY INFORMATION sub-field of the VA PATIENT File

Customize PDF page

Package: Registration

VA PATIENT(#2)-->2.06

Sub-Field: 2.06

Information

Details