STANDARD DATA DICTIONARY #8 -- ELIGIBILITY CODE FILE 3/24/25 PAGE 1
STORED IN ^DIC(8, (30 ENTRIES) SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 5.3)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
The ELIGIBILITY CODE file contains all the eligibility codes that can be assigned to a patient. All entries in this file must be
associated with an entry in the MAS ELIGIBILITY CODE file.
The MAS ELIGIBILITY CODE(#8.1) file consists of those codes which have been established by VACO MAS.
The site is not allowed to add entries to the MAS ELIGIBILITY CODE file. However, the site is permitted to add local entries to
the ELIGIBILITY CODE file. To add/edit eligibility codes use the option 'Eligibility Code Enter/Edit [DG ELIG CODE ENTER/EDIT]'.
The option is on the 'Eligibility/ID Maintenance Menu [DG ELIG MAINTENANCE]' menu.
Normally, adding local codes is not needed. However, the VA/DOD sharing agreement software, being developed by the Dallas ISC, does
need and use this functionality.
DD ACCESS: @
RD ACCESS: d
WR ACCESS: @
DEL ACCESS: @
LAYGO ACCESS: @
APPLICATION GROUP(S): VA
IDENTIFIED BY: VA CODE NUMBER (#3)[R], MAS ELIGIBILITY CODE (#8)[R]
"WRITE": W " ",$P(^(0),U,4)," ",@("$P($P($C(59)_$S($D(^DD(8,4,0)):$P(^(0),U,3),1:0)_$E("_DIC_"Y,0),0),$C(59)_$P(^(0),U,5
)_"":"",2),$C(59),1)")
POINTED TO BY: PRIMARY ELIGIBILITY CODE field (#.361) of the PATIENT File (#2)
ELIGIBILITY field (#.01) of the PATIENT ELIGIBILITIES sub-field (#2.0361) of the PATIENT File (#2)
REGISTRATION ELIGIBILITY CODE field (#13) of the DISPOSITION LOG-IN DATE/TIME sub-field (#2.101) of the PATIENT File
(#2)
ELIGIBILITY field (#.01) of the ELIGIBILITY sub-field (#21.01) of the PERIOD OF SERVICE File (#21)
ELIGIBILITY CODE field (#.02) of the ELIGIBILITY CHANGES sub-field (#33.02) of the OTH ELIGIBILITY PATIENT File
(#33)
ELIGIBILITY EXCLUSION field (#.01) of the ELIGIBILITY EXCLUSION sub-field (#43.08) of the MAS PARAMETERS File (#43)
ELIGIBILITY OF VISIT field (#30) of the PATIENT sub-field (#44.003) of the APPOINTMENT sub-field (#44.001) of the
HOSPITAL LOCATION File (#44)
ADMITTING ELIGIBILITY field (#20.1) of the PTF File (#45)
ELIGIBILITY field (#3) of the BENEFICIARY TRAVEL CLAIM File (#392)
ADMITTING ELIGIBILITY field (#.2) of the PATIENT MOVEMENT File (#405)
DEFAULT ELIGIBILITY field (#6) of the APPOINTMENT TYPE File (#409.1)
ELIGIBILITY FOR VISIT field (#4) of the CLINIC STOP CODE sub-field (#409.51) of the SCHEDULING VISITS File (#409.5)
ELIGIBILITY OF ENCOUNTER field (#.13) of the OUTPATIENT ENCOUNTER File (#409.68)
PRIMARY ELIGIBILITY CODE (RAD) field (#.01) of the PRIMARY ELIGIBILITY CODE (RAD) sub-field (#790.13) of the WV SITE
PARAMETER File (#790.02)
PRIMARY ELIGIBILITY CODE (LAB) field (#.01) of the PRIMARY ELIGIBILITY CODE (LAB) sub-field (#790.14) of the WV SITE
PARAMETER File (#790.02)
VISIT ELIGIBILITY field (#80) of the A&SP CLINIC VISIT File (#509850.6)
ELIGIBILITY field (#.21) of the VISIT File (#9000010)
CROSS
REFERENCED BY: ID FORMAT(AF), NAME(B), VA CODE NUMBER(C), MAS ELIGIBILITY CODE(D), SYNONYM(SYN)
LAST MODIFIED: OCT 12,2021@11:31:25
8,.01 NAME 0;1 (Required)
INPUT TRANSFORM: K:$L(X)>30!(+X=X)!($L(X)<3)!'(X'?1P.E) X
HELP-PROMPT: NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION
DESCRIPTION: This field contains the site specific name for the eligibility. In most cases the name will be the
same as the MAS ELIGIBILITY CODE pointed to by the MAS ELIGIBILITY CODE field of this file.
CROSS-REFERENCE: 8^B
1)= S ^DIC(8,"B",$E(X,1,30),DA)=""
2)= K ^DIC(8,"B",$E(X,1,30),DA)
8,.12 MAKE RECORD SENSITIVE? 0;12 SET
'1' FOR YES;
'0' FOR NO;
LAST EDITED: APR 17, 1996
HELP-PROMPT: Enter YES if patients with this eligibility should have their records automatically placed in the
DG SECURITY LOG file.
DESCRIPTION: Answer YES if patients with this eligibility should have there records automatically added to the
DG SECURITY LOG file so that the patient's record will be listed as sensitive.
8,1 CARD COLOR 0;2 SET (Required)
'P' FOR PURPLE;
'B' FOR BLUE;
'R' FOR RED;
DESCRIPTION: This field indicates the color of the patient's card for the MAS eligibility.
This field is automatically updated with the value of the 'CARD COLOR' of the MAS ELIGIBILITY
CODE(#8.1) entry pointed to by field #8, MAS ELIGIBILITY CODE.
This field is uneditable.
WRITE AUTHORITY: ^
NOTES: TRIGGERED by the MAS ELIGIBILITY CODE field of the ELIGIBILITY CODE File
8,2 ABBREVIATION 0;3 FREE TEXT
INPUT TRANSFORM: K:$L(X)>4!($L(X)<1) X
HELP-PROMPT: ANSWER MUST BE 1-4 CHARACTERS IN LENGTH
DESCRIPTION: This field may contain an abbreviation for the eligibility name. It may be used in place of the
name in selected prints.
8,3 VA CODE NUMBER 0;4 NUMBER (Required)
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<1)!(X?.E1"."1.N) X
LAST EDITED: MAR 15, 2019
HELP-PROMPT: Type a number between 1 and 99, 0 decimal digits.
DESCRIPTION: This field contains the VA CODE NUMBER that has been assigned to this eligibility.
This field is automatically updated with the value of the 'VA CODE NUMBER' of the MAS ELIGIBILITY
CODE(#8.1) entry pointed to by field #8, MAS ELIGIBILITY CODE.
This field is uneditable.
WRITE AUTHORITY: ^
UNEDITABLE
NOTES: TRIGGERED by the MAS ELIGIBILITY CODE field of the ELIGIBILITY CODE File
CROSS-REFERENCE: 8^C
1)= S ^DIC(8,"C",$E(X,1,30),DA)=""
2)= K ^DIC(8,"C",$E(X,1,30),DA)
This index allows lookup and reporting based on the VA CODE NUMBER
8,4 TYPE 0;5 SET (Required)
'N' FOR NON-VETERAN;
'Y' FOR VETERAN;
LAST EDITED: SEP 12, 1984
DESCRIPTION: This field indicates the type of patient that can be assigned this eligibility. The patient is
either a 'veteran' or a 'non-veteran' type.
This field is automatically updated with the value of the 'TYPE' of the MAS ELIGIBILITY CODE(#8.1)
entry pointed to by field #8, MAS ELIGIBILITY CODE.
This field is uneditable.
WRITE AUTHORITY: ^
NOTES: TRIGGERED by the MAS ELIGIBILITY CODE field of the ELIGIBILITY CODE File
8,5 PRINT NAME 0;6 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>25!($L(X)<1) X
LAST EDITED: OCT 02, 1986
HELP-PROMPT: Enter abbreviated Eligibility Code name for ouput in limited space.
DESCRIPTION: This field contains a shorten eligibility name that is used for output that has limited space to
print.
UNEDITABLE
8,6 INACTIVE 0;7 SET
'1' FOR YES;
LAST EDITED: NOV 21, 1986
DESCRIPTION:
If the eligibility is inactive then this field will be set to 'YES'.
8,7 SELECT AS ADDITIONAL 0;8 SET
'0' FOR NO;
'1' FOR YES;
LAST EDITED: JUL 12, 2021
DESCRIPTION: This field indicates whether patients may be assigned this eligibility as an 'additional'
eligibility.
If the field is set to 'NO' or is not filled in, then the eligibility can only be assigned as a
primary eligibility.
If set to 'YES', then the eligibility can be used as both a primary and an 'additional'
eligibility.
This field is automatically updated with the value of the 'SELECT AS ADDITIONAL' of the MAS
ELIGIBILITY CODE(FILE #8.1) entry pointed to by field #8, MAS ELIGIBILITY CODE.
This field is uneditable.
WRITE AUTHORITY: ^
NOTES: TRIGGERED by the MAS ELIGIBILITY CODE field of the ELIGIBILITY CODE File
8,8 MAS ELIGIBILITY CODE 0;9 POINTER TO MAS ELIGIBILITY CODE FILE (#8.1) (Required)
INPUT TRANSFORM: S DIC("S")="I '$P(^(0),U,7)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: JUL 30, 2021
DESCRIPTION: This field is required. All entries in this file must be associated with an entry in the MAS
ELIGIBILITY CODE file in order to be valid.
This relationship with the MAS ELIGIBILITY CODE is used throughout the MAS software for statistics
and reporting purposes. It is very important.
When this field is entered or edited, then the fields CARD COLOR(#1), VA CODE NUMBER(#3), TYPE(#4),
and SELECT AS ADDITIONAL(#7) are automatically updated. They are updated with the values of same
fields entered for the MAS ELIGIBILITY CODE entry that was selected.
SCREEN: S DIC("S")="I '$P(^(0),U,7)"
EXPLANATION: Allows only 'active' MAS eligibility codes.
CROSS-REFERENCE: 8^D
1)= S ^DIC(8,"D",$E(X,1,30),DA)=""
2)= K ^DIC(8,"D",$E(X,1,30),DA)
CROSS-REFERENCE: ^^TRIGGER^8^1
1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DIC(8,D0,0)):^(0),1:"") S X=$P(Y(1),U,2),X=X S DIU=
X K Y S X=DIV S X=$P(^DIC(8.1,X,0),U,2) S DIH=$G(^DIC(8,DIV(0),0)),DIV=X S $P(^(0),U,2)=DIV,DIH=8,D
IG=1 D ^DICR
2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DIC(8,D0,0)):^(0),1:"") S X=$P(Y(1),U,2),X=X S DIU=
X K Y S X="" S DIH=$G(^DIC(8,DIV(0),0)),DIV=X S $P(^(0),U,2)=DIV,DIH=8,DIG=1 D ^DICR
CREATE VALUE)= S X=$P(^DIC(8.1,X,0),U,2)
DELETE VALUE)= @
FIELD)= CARD COLOR
CROSS-REFERENCE: ^^TRIGGER^8^3
1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DIC(8,D0,0)):^(0),1:"") S X=$P(Y(1),U,4),X=X S DIU=
X K Y S X=DIV S X=$P(^DIC(8.1,X,0),U,4) S DIH=$G(^DIC(8,DIV(0),0)),DIV=X S $P(^(0),U,4)=DIV,DIH=8,D
IG=3 D ^DICR
2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DIC(8,D0,0)):^(0),1:"") S X=$P(Y(1),U,4),X=X S DIU=
X K Y S X="" S DIH=$G(^DIC(8,DIV(0),0)),DIV=X S $P(^(0),U,4)=DIV,DIH=8,DIG=3 D ^DICR
CREATE VALUE)= S X=$P(^DIC(8.1,X,0),U,4)
DELETE VALUE)= @
FIELD)= VA CODE NUMBER
CROSS-REFERENCE: ^^TRIGGER^8^4
1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DIC(8,D0,0)):^(0),1:"") S X=$P(Y(1),U,5),X=X S DIU=
X K Y S X=DIV S X=$P(^DIC(8.1,X,0),U,5) S DIH=$G(^DIC(8,DIV(0),0)),DIV=X S $P(^(0),U,5)=DIV,DIH=8,D
IG=4 D ^DICR
2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DIC(8,D0,0)):^(0),1:"") S X=$P(Y(1),U,5),X=X S DIU=
X K Y S X="" S DIH=$G(^DIC(8,DIV(0),0)),DIV=X S $P(^(0),U,5)=DIV,DIH=8,DIG=4 D ^DICR
CREATE VALUE)= S X=$P(^DIC(8.1,X,0),U,5)
DELETE VALUE)= @
FIELD)= TYPE
CROSS-REFERENCE: ^^TRIGGER^8^7
1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DIC(8,D0,0)):^(0),1:"") S X=$P(Y(1),U,8),X=X S DIU=
X K Y S X=DIV S X=$P(^DIC(8.1,X,0),U,8) S DIH=$G(^DIC(8,DIV(0),0)),DIV=X S $P(^(0),U,8)=DIV,DIH=8,D
IG=7 D ^DICR
2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DIC(8,D0,0)):^(0),1:"") S X=$P(Y(1),U,8),X=X S DIU=
X K Y S X="" S DIH=$G(^DIC(8,DIV(0),0)),DIV=X S $P(^(0),U,8)=DIV,DIH=8,DIG=7 D ^DICR
CREATE VALUE)= S X=$P(^DIC(8.1,X,0),U,8)
DELETE VALUE)= @
FIELD)= SELECT AS ADDITIONAL
8,9 ID FORMAT 0;10 POINTER TO IDENTIFICATION FORMAT FILE (#8.2) (Required)
LAST EDITED: NOV 25, 2012
HELP-PROMPT: Select the ID format to be used.
DESCRIPTION: This field indicates which identification format is to be used when setting a patient's ID who has
been assigned this eligibility.
Most eligibilities should be associated with 'VA STANDARD' format. This format is the patient's
Social Security Number.
If your site has a DOD/VA sharing agreement AND are running the VA/DOD software developed by the
Dallas ISC, then you may have to associate some DOD specific eligibilities with a format other than
'VA STANDARD'.
CROSS-REFERENCE: 8^AF
1)= S ^DIC(8,"AF",$E(X,1,30),DA)=""
2)= K ^DIC(8,"AF",$E(X,1,30),DA)
8,10 SYNONYM S;0 Multiple #8.01
DESCRIPTION: This multiple contains all of the alternative names by which a user may call up this eligibility
code. This can be modified at the site level.
8.01,.01 SYNONYM 0;1 FREE TEXT (Multiply asked)
INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<2)!'(X?1A.E) X
LAST EDITED: NOV 25, 1986
HELP-PROMPT: ANSWER MUST BE 2-30 CHARACTERS IN LENGTH
DESCRIPTION: This multiple fields allows the site to specify alternate name that the user can use to select
this eligibility.
CROSS-REFERENCE: 8.01^B
1)= S ^DIC(8,DA(1),"S","B",$E(X,1,30),DA)=""
2)= K ^DIC(8,DA(1),"S","B",$E(X,1,30),DA)
CROSS-REFERENCE: 8^SYN
1)= S ^DIC(8,"SYN",$E(X,1,30),DA(1),DA)=""
2)= K ^DIC(8,"SYN",$E(X,1,30),DA(1),DA)
8,11 AGENCY 0;11 POINTER TO AGENCY FILE (#4.11)
LAST EDITED: JAN 04, 1990
DESCRIPTION: This field contains the AGENCY that is associated with this eligibility. Normally, the agency is
the VA.
FILES POINTED TO FIELDS
AGENCY (#4.11) AGENCY (#11)
IDENTIFICATION FORMAT (#8.2) ID FORMAT (#9)
MAS ELIGIBILITY CODE (#8.1) MAS ELIGIBILITY CODE (#8)
INPUT TEMPLATE(S):
DG ELIG ENTER/EDIT JAN 04, 1990@08:47 USER #0
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):