Sub-Field: 2.02

Parent File	Name	Number	Package
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: `FEB 25, 2022` 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^AENR20201^MUMPS` `1)= D EVENT^IVMPLOG($G(DA(1)))` `2)= D EVENT^IVMPLOG($G(DA(1)))` `3)= DO NOT DELETE` `This cross-reference is used to notify HEC of changes that may affect enrollment.` FIELD INDEX: `AVAFC20201 (#398) MUMPS I ACTION` `Short Descr: This x-ref calls the DG FIELD MONITOR event point.` `Description: This cross reference activates the DG FIELD MONITOR event point. Applications that wish to monitor edit activity related to this field may subscribe to that event point and take action as indicated by the changes that` `occur. Refer to the DG FIELD MONITOR protocol for a description of the information available at the time of the event.` `Set Logic: D FC^DGFCPROT(.DA,2.02,.01,"SET",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q` `Kill Logic: D FC^DGFCPROT(.DA,2.02,.01,"KILL",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q` `X(1): RACE INFORMATION (2.02,.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 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 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: FEB 25, 2022
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^AENR20201^MUMPS
1)= D EVENT^IVMPLOG($G(DA(1)))
2)= D EVENT^IVMPLOG($G(DA(1)))
3)= DO NOT DELETE
This cross-reference is used to notify HEC of changes that may affect enrollment.
FIELD INDEX: AVAFC20201 (#398) MUMPS I ACTION
Short Descr: This x-ref calls the DG FIELD MONITOR event point.
Description: This cross reference activates the DG FIELD MONITOR event point. Applications that wish to monitor edit activity related to this field may subscribe to that event point and take action as indicated by the changes that
occur. Refer to the DG FIELD MONITOR protocol for a description of the information available at the time of the event.
Set Logic: D FC^DGFCPROT(.DA,2.02,.01,"SET",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q
Kill Logic: D FC^DGFCPROT(.DA,2.02,.01,"KILL",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q
X(1): RACE INFORMATION (2.02,.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 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 PATIENT File

Customize PDF page

Package: Registration

PATIENT(#2)-->2.02

Sub-Field: 2.02

Information

Details