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

Info | Desc | Directly Accessed By Routines | Accessed By FileMan Db Calls | Pointed To By FileMan Files | Fields | ICR | Found Entries | Global Variables Directly Accessed | Naked Globals | Local Variables | All

Print Page as PDF

Global: ^DIC(8.1

Package: Registration

Global: ^DIC(8.1

Information

FileMan FileNo	FileMan Filename	Package
8.1	MAS ELIGIBILITY CODE	Registration

Description

The MAS ELIGIBILITY CODE file consists of those codes which have been established by VACO MAS. Addition to this file of local codes or modification of those codes distributed by the MAS package developers could have a negative impact on the performance of the MAS module as well as other modules. If local codes are desired, the site can enter them in the ELIGIBILITY CODE file (#8). Each code entered in the ELIGIBILITY CODE file must point to an entry in MAS ELIGIBILITY CODE file via the MAS ELIGIBILITY CODE field.

Directly Accessed By Routines, Total: 33

Package	Total	Routines
Registration	18	DG53114T DG53121P DG53177P DG53546P DG53672E DG53672R DGEEREIM DGENELA DGMTR DGPTUTL DGRRLU1 DGRRLU6 ^DIC(8.1 DGENUPL1 DGRPC2 DGRRLUA DGRRPSEE ^DIC(8
Scheduling	11	SCDXUTL0 SCMSVUT1 SCRPO SCRPU3 SCRPW62 SDAMA305 SDCO22 SDECELG SDM4 SDMEAN SDWLSC
Income Verification Match	2	IVMUFNC5 IVMZ7CR
Integrated Billing	1	IBNCPDPU
VBECS	1	VBECLU

Accessed By FileMan Db Calls, Total: 9

Package	Total	Routines
Registration	6	DG531061P DG531075P DG531081P DG531098P DG531109P DG53P314
Scheduling	2	SDES2GETELIGCD SDWLTR
Beneficiary Travel	1	DGBT1

Pointed To By FileMan Files, Total: 3

Package	Total	FileMan Files
Registration	2	PATIENT ENROLLMENT(#27.11)[50.01] ELIGIBILITY CODE(#8)[8]
Integrated Billing	1	PFSS ACCOUNT(#375)[2.07]

Fields, Total: 8

Field #	Name	Loc	Type	Details
.01	NAME	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X` `MAXIMUM LENGTH: 30` LAST EDITED: `APR 26, 2022` HELP-PROMPT: `Answer must be 3-30 characters in length.` DESCRIPTION: `This is the official name of the MAS eligibility code.` DELETE TEST: `1,0)= I 1 W !?5,"Deleting a MAS ELIGIBILITY file entry is not allowed"` LAYGO TEST: `1,0)= W !?5,*7,"Adding entries to the MAS ELIGIBILITY file is not allowed??" I 0` `UNEDITABLE` CROSS-REFERENCE: `8.1^B` `1)= S ^DIC(8.1,"B",$E(X,1,30),DA)=""` `2)= K ^DIC(8.1,"B",$E(X,1,30),DA)`
1	CARD COLOR	0;2	SET	**********************REQUIRED FIELD********************** 'P' FOR PURPLE; 'B' FOR BLUE; 'R' FOR RED; LAST EDITED: `OCT 23, 1996` DESCRIPTION: `This field indicates the color of the patient's card for the MAS eligibility.`
2	ABBREVIATION	0;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>4!($L(X)<1) X` LAST EDITED: `JAN 23, 2018` 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.` `UNEDITABLE`
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: `AUG 25, 2021` 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.` `UNEDITABLE` CROSS-REFERENCE: `8.1^C` `1)= S ^DIC(8.1,"C",$E(X,1,30),DA)=""` `2)= K ^DIC(8.1,"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: `JAN 23, 2018` 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.` `UNEDITABLE`
5	PRINT NAME	0;6	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>25!($L(X)<1) X` LAST EDITED: `OCT 18, 1989` 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: `MAY 04, 1992` DESCRIPTION: `If the eligibility is inactive then this field will be set to 'YES'.` `UNEDITABLE`
7	SELECT AS ADDITIONAL	0;8	SET	'0' FOR NO; '1' FOR YES; LAST EDITED: `JUL 20, 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.` `UNEDITABLE`

Found Entries, Total: 30

NAME: SERVICE CONNECTED 50% to 100%	NAME: AID & ATTENDANCE	NAME: SC LESS THAN 50%	NAME: NSC, VA PENSION	NAME: NSC	NAME: OTHER FEDERAL AGENCY	NAME: ALLIED VETERAN	NAME: HUMANITARIAN EMERGENCY
NAME: SHARING AGREEMENT	NAME: REIMBURSABLE INSURANCE	NAME: DOM. PATIENT	NAME: CHAMPVA	NAME: COLLATERAL OF VET.	NAME: EMPLOYEE	NAME: HOUSEBOUND	NAME: MEXICAN BORDER WAR
NAME: WORLD WAR I	NAME: PRISONER OF WAR	NAME: TRICARE	NAME: MEDICARE	NAME: CATASTROPHICALLY DISABLED	NAME: PURPLE HEART RECIPIENT	NAME: EXPANDED MH CARE NON-ENROLLEE	NAME: COMPACT ACT ELIGIBLE
NAME: SPECIAL TX AUTHORITY CARE	NAME: HUD-VASH	NAME: CLINICAL EVALUATION	NAME: PRESUMPTIVE PSYCHOSIS ELIGIBLE	NAME: WORLD WAR II	NAME: SERVICE ACT

ICR, Total: 2

ICR LINK	Subscribing Package(s)	Fields Referenced	Description
ICR #2516	Clinical Information Resource Network Scheduling Integrated Billing
ICR #7052	Scheduling	NAME (.01). Access: Direct Global Read & w/Fileman TYPE (4). Access: Direct Global Read & w/Fileman

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(8.1 - [#8.1]	.01(XREF 1S), .01(XREF 1K), 3(XREF 1S), 3(XREF 1K)

Naked Globals

Name	Field # of Occurrence
^("0"	ID3+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> DA	.01(XREF 1S), .01(XREF 1K), 3(XREF 1S), 3(XREF 1K)
U	ID3+1
X	.01+1!, .01(XREF 1S), .01(XREF 1K), 2+1!, 3+1!, 3(XREF 1S), 3(XREF 1K), 5+1!

Info | Desc | Directly Accessed By Routines | Accessed By FileMan Db Calls | Pointed To By FileMan Files | Fields | ICR | Found Entries | Global Variables Directly Accessed | Naked Globals | Local Variables | All