Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Details
Print Page as PDF
Sub-Field: 2.06

Package: Registration

PATIENT(#2)-->2.06

Sub-Field: 2.06


Information

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

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:  FEB 25, 2022
  • 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
  • CROSS-REFERENCE:  2^AENR20601^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:  AONLYONE (#195) 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)
  • FIELD INDEX:  AVAFC20601 (#399) 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.06,.01,"SET",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q
    Kill Logic: D FC^DGFCPROT(.DA,2.06,.01,"KILL",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) 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 PATIENT File
Info |  Details