Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping

Info | Desc | Accessed By FileMan Db Calls | Pointed To By FileMan Files | Pointer To FileMan Files | Fields | ICR | Found Entries | All

Print Page as PDF

Global: ^DIC(8

Package: Registration

Global: ^DIC(8

Information

FileMan FileNo	FileMan Filename	Package
8	ELIGIBILITY CODE	Registration

Description

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.

Accessed By FileMan Db Calls, Total: 53

Pointed To By FileMan Files, Total: 14

Pointer To FileMan Files, Total: 3

Fields, Total: 13

Field #	Name	Loc	Type	Details
.01	NAME	0;1		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)`
.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.`
1	CARD COLOR	0;2	SET	**********************REQUIRED FIELD********************** '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`
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.`
3	VA CODE NUMBER	0;4	NUMBER	**********************REQUIRED FIELD********************** 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`
4	TYPE	0;5	SET	**********************REQUIRED FIELD********************** '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`
5	PRINT NAME	0;6	FREE TEXT	**********************REQUIRED FIELD********************** 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`
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'.`
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	MAS ELIGIBILITY CODE	0;9	POINTER TO MAS ELIGIBILITY CODE FILE (#8.1)	**********************REQUIRED FIELD********************** MAS ELIGIBILITY CODE(#8.1) 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,DIG=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,DIG=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,DIG=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,DIG=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`
9	ID FORMAT	0;10	POINTER TO IDENTIFICATION FORMAT FILE (#8.2)	**********************REQUIRED FIELD********************** IDENTIFICATION FORMAT(#8.2) 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)`
10	SYNONYM	S;0	Multiple #8.01	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.`
11	AGENCY	0;11	POINTER TO AGENCY FILE (#4.11)	AGENCY(#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.`

Found Entries, Total: 30

ICR, Total: 6

Info | Desc | Accessed By FileMan Db Calls | Pointed To By FileMan Files | Pointer To FileMan Files | Fields | ICR | Found Entries | All