Global: ^DGEN(27.11

FileMan FileNo	FileMan Filename	Package
27.11	PATIENT ENROLLMENT	Registration

Package	Total	Routines
Registration	21	^DGEN(27.11 DG53514 DGCV DGENA DGENA1 DGENA1A DGENA3 DGENA4 DGENDD DGENEGT1 DGENL2 DGENRPT1 DGENRPT2 DGENRPT3 DGENRPT4 DGLOCK DGOTHRP6 DGPPRP3 DGRRPSEE DGRTRIG DGRUGPRP
Scheduling	4	SCRPW24 TEAM POSITIONS ^SDEC(409.85 ^SDWL(409.3
VA Point of Service	3	VPSAPPT VPSRPC16 VPSSEND
Accounts Receivable	1	RCXVDC2
Enrollment Application System	1	EASWTAPI
Income Verification Match	1	IVMZ07C
Integrated Billing	1	IBOSCDC
Pharmacy Benefits Management	1	PSUDEM1

Package	Total	Routines
Registration	24	DG531027P DGCV DGCV1 DGEN DGENA1 DGENA1A DGENA3 DGENA6 DGENELA4 DGENL2 DGENRPT1 DGENRPT2 DGENRPT3 DGENRPT4 DGENU DGENUPL2 DGOTHFS2 DGOTHRP6 DGPPDRPT DGPPRP3 DGREG DGRRLU1 DGRUGPRP VAFHLZEN
Scheduling	9	SCRPW24 SDCCRSCU SDECU3 SDES2GETREGS SDES2PATSEARCH SDHL7 SDHL7APU SDRPA08 SDWLTR
VA Point of Service	3	VPSAPPT VPSRPC16 VPSSEND
Accounts Receivable	1	RCXVDC2
Enrollment Application System	1	EASWTAPI
Income Verification Match	1	IVMCM
Integrated Billing	1	IBECEA36

Package	Total	FileMan Files
Registration	2	PATIENT ENROLLMENT(#27.11)[.09] PATIENT(#2)[27.01]

Package	Total	FileMan Files
Registration	5	PATIENT REGISTRATION ONLY REASON(#408.43)[.15] PATIENT ENROLLMENT(#27.11)[.09] ENROLLMENT STATUS(#27.15)[.04] MAS ELIGIBILITY CODE(#8.1)[50.01] PATIENT(#2)[.02]
Kernel	2	INSTITUTION(#4)[.06] NEW PERSON(#200)[75.02]
Enrollment Application System	1	MEANS TEST STATUS(#408.32)[50.14]

Fields, Total: 51

Field #	Name	Loc	Type	Details
.01	APPLICATION DATE	0;1	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="EPX" D ^%DT S X=Y K:Y<1 X I $D(X) D H^DGUTL K:X>DGTIME X K DGTIME,DGDATE I $G(X)>0 D ENRAPP^DGENDD` LAST EDITED: `JUL 01, 2021` HELP-PROMPT: `Enter the Application Date for enrollment. Application Date cannot be before 10/1/1996 or patient's DOB. It cannot be a future date or equal to or after patient's Date of Death.` DESCRIPTION: `The date of the application for enrollment or date of registration. The Application Date is user entered or set by the upload from ES. The date of the registration cannot be entered in VistA, it is set by the system during` `new patient registration to today's date or by the upload from ES. Application Date:` `Must be a date prior or equal to the Veteran's 'Date of Death', if the Application Date is user entered or provided in the upload from ES` `Must be a precise date, i.e. a day, month and year MUST be included` `Cannot be a date prior to the Veteran's 'Date of Birth'` `Cannot be a date in the future` `Cannot be a date prior to 10/1/1996` `UNEDITABLE` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `27.11^B` `1)= S ^DGEN(27.11,"B",$E(X,1,30),DA)=""` `2)= K ^DGEN(27.11,"B",$E(X,1,30),DA)` CROSS-REFERENCE: `27.11^AENR01^MUMPS` `1)= D E2711^DGRTRIG(DA)` `2)= D E2711^DGRTRIG(DA)` `3)= DO NOT DELETE` `This cross-reference is used to notify HEC of changes that may affect enrollment.`
.02	PATIENT	0;2	POINTER TO PATIENT FILE (#2)	**********************REQUIRED FIELD********************** PATIENT(#2) LAST EDITED: `JUL 24, 1997` HELP-PROMPT: `Enter the patient to enroll.` DESCRIPTION: `The patient associated with the enrollment.` `UNEDITABLE` CROSS-REFERENCE: `27.11^C` `1)= S ^DGEN(27.11,"C",$E(X,1,30),DA)=""` `2)= K ^DGEN(27.11,"C",$E(X,1,30),DA)` `This cross-reference allows look-up by patient.`
.03	SOURCE OF ENROLLMENT	0;3	SET	**********************REQUIRED FIELD********************** '1' FOR VAMC; '2' FOR HEC; '3' FOR OTHER VAMC; LAST EDITED: `SEP 13, 2005` HELP-PROMPT: `Enter the source of the enrollment determination.` DESCRIPTION: `How the enrollment was determined.` CROSS-REFERENCE: `27.11^AENR03^MUMPS` `1)= D E2711^DGRTRIG(DA)` `2)= D E2711^DGRTRIG(DA)` `3)= DO NOT DELETE` `This cross-reference is used to notify HEC of changes that may affect enrollment.`
.04	ENROLLMENT STATUS	0;4	POINTER TO ENROLLMENT STATUS FILE (#27.15)	**********************REQUIRED FIELD******************** ENROLLMENT STATUS(#27.15) LAST EDITED: `SEP 13, 2005` HELP-PROMPT: `Enter the status of the application for enrollment.` DESCRIPTION: `The status of an application for enrollment.` `UNEDITABLE` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `27.11^AENRC^MUMPS` `1)= D SET2^DGENDD(DA,X)` `2)= D KILL2^DGENDD(DA,X)` `3)= DO NOT DELETE` `This index sorts the patients by their current enrollment status. The CURRENT ENROLLMENT field of the PATIENT file also triggers this cross-reference.` `The format of the index is:` `^DPT("AENRC",,)=""` CROSS-REFERENCE: `27.11^AC^MUMPS` `1)= D SETREM^DGENDD(DA,X)` `2)= D SETREM^DGENDD(DA,X)` `This cross-reference calls an API that will update the Remarks field #.091 of the Patient file #2 depending on the value of the enrollment status. If the enrollment status contains the word REJECTED, then the Remarks` `field will be updated with the message REJECTED. If the enrollment status is not a Rejected status then the message REJECTED** will be removed from the Remarks field.` CROSS-REFERENCE: `27.11^AENR04^MUMPS` `1)= D E2711^DGRTRIG(DA)` `2)= D E2711^DGRTRIG(DA)` `3)= DO NOT DELETE` `This cross-reference is used to notify HEC of changes that may affect enrollment.`
.05	REASON CANCELED/DECLINED	0;5	SET	'1' FOR DISSATISFIED WITH CARE; '2' FOR GEOGRAPHIC ACCESS; '3' FOR OTHER INSURANCE; '4' FOR OTHER; '5' FOR ACA PREFERENCE; '6' FOR ENROLLMENT CLERICAL ERROR; LAST EDITED: `JUL 01, 2021` HELP-PROMPT: `Enter the reason the veteran is declining or cancelling enrollment.` DESCRIPTION: `When a patient self dis-enrolls or requests that his enrollment be ceased, s/he is asked to give a reason.`
.06	FACILITY RECEIVED	0;6	POINTER TO INSTITUTION FILE (#4)	INSTITUTION(#4) INPUT TRANSFORM: `S DIC("S")="I $P($G(^(99)),""^"")]""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `SEP 13, 2005` HELP-PROMPT: `Enter the facility that received the patient's application for enrollment.` DESCRIPTION: `This field should be used to document the VAMC that receives the application for enrollment.` SCREEN: `S DIC("S")="I $P($G(^(99)),""^"")]"""""` EXPLANATION: `Allows only facilities that have a station number.` `UNEDITABLE` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `27.11^AENR06^MUMPS` `1)= D E2711^DGRTRIG(DA)` `2)= D E2711^DGRTRIG(DA)` `3)= DO NOT DELETE` `This cross-reference is used to notify HEC of changes that may affect enrollment.`
.07	ENROLLMENT PRIORITY	0;7	SET	'1' FOR GROUP 1; '2' FOR GROUP 2; '3' FOR GROUP 3; '4' FOR GROUP 4; '5' FOR GROUP 5; '6' FOR GROUP 6; '7' FOR GROUP 7; '8' FOR GROUP 8; LAST EDITED: `SEP 13, 2005` HELP-PROMPT: `Enter the enrollment priority group determined for this patient.` DESCRIPTION: `This field will contain the enrollment priority group determined for this enrollment.` `UNEDITABLE` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `27.11^ADGRU07^MUMPS` `1)= N DG1 S DG1=+$P(^(0),"^",2) I +DG1>0,($T(ADGRU^DGRUDD01)'="") D ADGRU^DGRUDD01(DG1)` `2)= N DG1 S DG1=+$P(^(0),"^",2) I +DG1>0,($T(ADGRU^DGRUDD01)'="") D ADGRU^DGRUDD01(DG1)` `This cross reference is used to remember that changes were made to a monitored data field in the PATIENT ENROLLEMENT File (#27.11) required for a vendor RAI/MDS COTS system. Execution of this cross reference will create` `an entry in the ADT/HL7 PIVOT file (#391.71) and mark it as requiring transmission of an HL7 demographic A08 update message to the COTS interface.` `The local variable DGRUGA08 will be set to 1 if the cross reference is not to be executed as part of a re-indexing.` CROSS-REFERENCE: `27.11^AENR07^MUMPS` `1)= D E2711^DGRTRIG(DA)` `2)= D E2711^DGRTRIG(DA)` `3)= DO NOT DELETE` `This cross-reference is used to notify HEC of changes that may affect enrollment.`
.08	EFFECTIVE DATE	0;8	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `SEP 13, 2005` HELP-PROMPT: `Enter the effective date of the enrollment change.` DESCRIPTION: `For any change that may affect a patient's enrollment, this field documents the effective date of the change.` CROSS-REFERENCE: `27.11^AENR08^MUMPS` `1)= D E2711^DGRTRIG(DA)` `2)= D E2711^DGRTRIG(DA)` `3)= DO NOT DELETE` `This cross-reference is used to notify HEC of changes that may affect enrollment.`
.09	PRIOR ENROLLMENT RECORD	0;9	POINTER TO PATIENT ENROLLMENT FILE (#27.11)	PATIENT ENROLLMENT(#27.11) LAST EDITED: `JUL 24, 1997` HELP-PROMPT: `Enter the last enrollment record for the patient before this one.` DESCRIPTION: `This field is used to maintain the enrollment history for the patient. The enrollment history will be kept in the form of a linked list of enrollment records, with each record pointing to the enrollment record that came` `before it.` `UNEDITABLE`
.1	ENROLLMENT DATE	0;10	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `SEP 13, 2005` HELP-PROMPT: `Enter the date the enrollment period begins.` DESCRIPTION: `Beginning of the enrollment cycle.` `UNEDITABLE` CROSS-REFERENCE: `27.11^AENR1^MUMPS` `1)= D E2711^DGRTRIG(DA)` `2)= D E2711^DGRTRIG(DA)` `3)= DO NOT DELETE` `This cross-reference is used to notify HEC of changes that may affect enrollment.`
.11	ENROLLMENT END DATE	0;11	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `SEP 13, 2005` HELP-PROMPT: `Enter the last day of the veteran's enrollment period.` DESCRIPTION: `The date specifying the end of the veteran's enrollment period.` `UNEDITABLE` CROSS-REFERENCE: `27.11^AENR11^MUMPS` `1)= D E2711^DGRTRIG(DA)` `2)= D E2711^DGRTRIG(DA)` `3)= DO NOT DELETE` `This cross-reference is used to notify HEC of changes that may affect enrollment.`
.12	ENROLLMENT SUBGROUP	0;12	SET	'1' FOR a; '2' FOR b; '3' FOR c; '4' FOR d; '5' FOR e; '7' FOR g; LAST EDITED: `JAN 26, 2009` HELP-PROMPT: `Enter the enrollment priority subgroup determined for this patient.` DESCRIPTION: `This field will contain the enrollment priority subgroup determined for this enrollment.` CROSS-REFERENCE: `27.11^AENR12^MUMPS` `1)= D E2711^DGRTRIG(DA)` `2)= D E2711^DGRTRIG(DA)` `3)= DO NOT DELETE` `This cross-reference is used to notify HEC of changes that may affect enrollment.`
.13	REASON FOR CLOSED APPLICATION	0;13	SET	'1' FOR ABANDONED APPLICATION; LAST EDITED: `MAY 16, 2017` HELP-PROMPT: `Select '1', ABANDONED APPLICATION, as the reason the Veteran's application has been closed.` DESCRIPTION: `When an application is closed due to no response received from veteran for 365 days after initial pending notifications were sent.`
.14	PT APPLIED FOR ENROLLMENT?	0;14	SET	'0' FOR NO; '1' FOR YES; LAST EDITED: `JUL 01, 2021` HELP-PROMPT: `Select Y or YES if the patient wants to apply for enrollment for VHA Healthcare benefits. Select N or NO if the patient only wants to register without applying for enrollment.` DESCRIPTION: `This field will be set to 0 (zero) if the patient did not apply for enrollment (registration only), or 1 if the patient did apply for enrollment.` AUDIT: `YES, ALWAYS` CROSS-REFERENCE: `27.11^AD^MUMPS` `1)= N DGDFN,DGFDA S DGDFN=$$GET1^DIQ(27.11,DA,.02,"I") I $$FINDCUR^DGENA(DGDFN)=DA S DGFDA(2,DGDFN_",",27.04)=X D FILE^DIE("","DGFDA")` `2)= N DGDFN,DGFDA S DGDFN=$$GET1^DIQ(27.11,DA,.02,"I") I $$FINDCUR^DGENA(DGDFN)=DA S DGFDA(2,DGDFN_",",27.04)=X D FILE^DIE("","DGFDA")` `If this enrollment record is the current enrollment record for the patient, this trigger updates the PT APPLIED FOR ENROLLMENT? (#27.04) field in the PATIENT (#2) file with the value entered or edited for this field.`
.15	REGISTRATION ONLY REASON	0;15	POINTER TO PATIENT REGISTRATION ONLY REASON FILE (#408.43)	PATIENT REGISTRATION ONLY REASON(#408.43) INPUT TRANSFORM: `S DIC("S")="I $$REASON^DGREG(Y,$G(XQY0))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `JUL 01, 2021` HELP-PROMPT: `Select the appropriate Self-Reported Registration Only Reason for this patient.` DESCRIPTION: `Select from the available list, the Self-Reported Registration Only Reason which best defines this patient's primary reason for registering without applying for enrollment.` SCREEN: `S DIC("S")="I $$REASON^DGREG(Y,$G(XQY0))"` EXPLANATION: `Selections available:` AUDIT: `YES, ALWAYS`
.16	REGISTRATION ONLY DATE	0;16	DATE	INPUT TRANSFORM: `S %DT="ESTX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAY 01, 2020` HELP-PROMPT: `Enter the date and time the patient registered.` DESCRIPTION: `This field contains the date and time when the patient was first registered. It can also be blank (null) for any patients that existed prior to the creation of this field.` AUDIT: `YES, ALWAYS` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
.17	SOURCE OF REGISTRATION	0;17	SET	'1' FOR VAMC; '2' FOR HEC; '3' FOR HCA; '4' FOR CARMA; '5' FOR OTHER; LAST EDITED: `FEB 21, 2020` HELP-PROMPT: `Please select the source of registration for the patient.` DESCRIPTION: `This field determines the source of registration for the patient.` AUDIT: `YES, ALWAYS` `SOURCE OF DATA: Q`
25	CANCELED/DECLINED REMARKS	R;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>60!($L(X)<1) X` LAST EDITED: `MAY 19, 1997` HELP-PROMPT: `If REASON CANCELED/DECLINED is OTHER, enter an explanation of up to 60 characters.` DESCRIPTION: `This field is used to enter an explanation for why the veteran is canceling or declining enrollment if the only code that fits is OTHER.`
50.01	ELIGIBILITY CODE	E;1	POINTER TO MAS ELIGIBILITY CODE FILE (#8.1)	MAS ELIGIBILITY CODE(#8.1) LAST EDITED: `JUL 24, 1997` HELP-PROMPT: `Enter the eligibility code associated with the enrollment determination.` DESCRIPTION: `The eligibility code associated with the enrollment priority determination.` `UNEDITABLE`
50.02	SERVICE CONNECTED	E;2	SET	'Y' FOR YES; 'N' FOR NO; LAST EDITED: `JUL 24, 1997` HELP-PROMPT: `Enter YES if the veteran has a service connected disability, NO otherwise.` DESCRIPTION: `The service connection indicator associated with the enrollment priority determination.` `UNEDITABLE` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
50.03	SERVICE CONNECTED PERCENTAGE	E;3	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>100)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `JUL 24, 1997` HELP-PROMPT: `Enter the service connected percentage associated with the enrollment determination.` DESCRIPTION: `The service connected percentage associated with the enrollment priority determination.` `UNEDITABLE`
50.04	POW STATUS INDICATED	E;4	SET	'Y' FOR YES; 'N' FOR NO; 'U' FOR UNKNOWN; LAST EDITED: `JUL 24, 1997` HELP-PROMPT: `Enter the POW status associated with the enrollment priority determination.` DESCRIPTION: `The POW status associated with the enrollment priority determination.` `UNEDITABLE`
50.05	RECEIVING A&A BENEFITS	E;5	SET	'Y' FOR YES; 'N' FOR NO; 'U' FOR UNKNOWN; LAST EDITED: `JUL 24, 1997` HELP-PROMPT: `Enter the RECEIVING A&A BENEFITS status associated with the enrollment priority determination.` DESCRIPTION: `The RECEIVING A&A BENEFITS status associated with the enrollment priority determination.` `UNEDITABLE`
50.06	RECEIVING HOUSEBOUND BENEFITS	E;6	SET	'Y' FOR YES; 'N' FOR NO; 'U' FOR UNKNOWN; LAST EDITED: `JUL 24, 1997` HELP-PROMPT: `Enter the RECEIVING HOUSEBOUND BENEFITS status that the enrollment priority determination is based on.` DESCRIPTION: `The RECEIVING HOUSEBOUND BENEFITS status that the enrollment priority determination is based on.` `UNEDITABLE`
50.07	RECEIVING A VA PENSION	E;7	SET	'Y' FOR YES; 'N' FOR NO; 'U' FOR UNKNOWN; LAST EDITED: `JUL 24, 1997` HELP-PROMPT: `Enter the RECEIVING A VA PENSION status that the enrollment priority determination is based on.` DESCRIPTION: `The RECEIVING A VA PENSION status that the enrollment priority determination is based on.` `UNEDITABLE`
50.08	TOTAL ANNUAL VA CHECK AMOUNT	E;8	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99999.99)!(X<0) X` LAST EDITED: `AUG 29, 1997` HELP-PROMPT: `Enter the TOTAL ANNUAL VA CHECK AMOUNT associated with the enrollment priority determination.` DESCRIPTION: `The TOTAL ANNUAL VA CHECK AMOUNT associated with the enrollment determination.` `UNEDITABLE`
50.09	DISABILITY RET. FROM MILITARY	E;9	SET	'0' FOR NO; '1' FOR YES, RECEIVING MILITARY RETIREMENT; '2' FOR YES, RECEIVING MILITARY RETIREMENT IN LIEU OF VA COMPENSATION; '3' FOR UNKNOWN; LAST EDITED: `JUL 24, 1997` HELP-PROMPT: `Enter the status of DISABILITY RETIREMENT FROM MILITARY associated with the enrollment priority determination.` DESCRIPTION: `The status of DISABILITY RET. FROM MILITARY that is associated with the enrollment priority determination.` `UNEDITABLE`
50.1	MEDICAID	E;10	SET	'0' FOR NO; '1' FOR YES; LAST EDITED: `JUL 24, 1997` HELP-PROMPT: `Enter the Medicaid eligibility associated with the enrollment priority determination.` DESCRIPTION: `The Medicaid eligibility associated with the enrollment priority determination.` `UNEDITABLE`
50.11	EXPOSED TO AGENT ORANGE	E;11	SET	'Y' FOR YES; 'N' FOR NO; 'U' FOR UNKNOWN; LAST EDITED: `JUL 24, 1997` HELP-PROMPT: `Enter the status of EXPOSED TO AGENT ORANGE associated with the enrollment priority determination.` DESCRIPTION: `The EXPOSED TO AGENT ORANGE status associated with the enrollment priority determination.` `UNEDITABLE`
50.12	RADIATION EXPOSURE INDICATED	E;12	SET	'Y' FOR YES; 'N' FOR NO; 'U' FOR UNKNOWN; LAST EDITED: `MAY 07, 2006` HELP-PROMPT: `Enter the RADIATION EXPOSURE INDICATED status associated with the enrollment priority determination.` DESCRIPTION: `Enter 'Y' if the veteran was exposed to ionizing radiation 1) at a nuclear device testing site (e.g. the Pacific Islands, NM or NV) or 2) as a POW or while serving in Hiroshima and/or Nagasaki, Japan from August 6, 1945` `through July 1, 1946, or 3) served at Department of Energy plants at Paducah, KY, Portsmouth, OH or the K25 area at Oak Ridge, TN for at least 250 days before February 1, 1992 or 4) served at Longshot, Milrow, or Cannikin` `underground nuclear tests at Amchitka Island, AK prior to January 1, 1974.` `Veterans exposed by method #3 or #4 are not eligible for copay exemption or enrollment in priority 6 based on their IR exposure.` `Enter 'N' if not exposed or 'U' if unknown.` `Once the record has been verified only HEC users may enter/edit this field.` `The RADIATION EXPOSURE INDICATED status associated with the enrollment priority determination.` `UNEDITABLE`
50.13	SOUTHWEST ASIA CONDITIONS	E;13	SET	'Y' FOR YES; 'N' FOR NO; 'U' FOR UNKNOWN; LAST EDITED: `JUN 21, 2006` HELP-PROMPT: `Enter the SOUTHWEST ASIA CONDITIONS status associated with the enrollment priority determination.` DESCRIPTION: `The SOUTHWEST ASIA CONDITIONS status associated with the enrollment priority determination.` `UNEDITABLE`
50.14	MEANS TEST STATUS	E;14	POINTER TO MEANS TEST STATUS FILE (#408.32)	MEANS TEST STATUS(#408.32) LAST EDITED: `JUL 24, 1997` HELP-PROMPT: `Enter the MEANS TEST STATUS associated with the enrollment priority determination.` DESCRIPTION: `The MEANS TEST STATUS associated with the enrollment priority determination.` `UNEDITABLE`
50.15	VETERAN CATASTROPHICALLY DISABLED	E;15	SET	'Y' FOR YES; 'N' FOR NO; LAST EDITED: `JUN 18, 1999` HELP-PROMPT: `This field must be "Y" or "N".` DESCRIPTION: `This field was created to capture the Veteran's CATASTROPHIC DISABILITY status associated with the enrollment priority determination.`
50.16	PURPLE HEART INDICATED?	E;16	SET	'Y' FOR YES; 'N' FOR NO; LAST EDITED: `DEC 19, 2000` DESCRIPTION: `This field corresponds to the CURRENT PH INDICATOR field .531 in the PATIENT file 2. It can be set by setting Purple Heart Indicated in the Registration screens, or by the Z11 Upload from HEC. Acceptable values are Y and` `N.` TECHNICAL DESCR: `Added for Purple Heart DG5.3314.`
50.17	UNEMPLOYABLE	E;17	SET	'Y' FOR YES; 'N' FOR NO; LAST EDITED: `MAY 19, 2004` DESCRIPTION: `Is this patient unemployable due to an SC condition as rated by VARO?`
50.18	COMBAT VETERAN END DATE	E;18	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:X<1 X` LAST EDITED: `MAY 19, 2004` HELP-PROMPT: `(No range limit on date)` DESCRIPTION: `For veterans who have combat vet eligibility, this field represents the date when that eligibility ends.`
50.19	PROJ 112/SHAD	E;19	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `JUN 02, 2005`
50.2	DISCHARGED DUE TO DISABILITY	E;20	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `JUL 08, 2005` HELP-PROMPT: `Line of Duty disability discharge?` DESCRIPTION: `Indicates whether or not discharge was due to a disability incurred in the Line of Duty.`
50.22	AGENT ORANGE EXPOSURE LOCATION	E;22	SET	'B' FOR BLUE WATER NAVY; 'K' FOR KOREAN DMZ; 'V' FOR VIETNAM; 'T' FOR THAILAND(U.S. OR ROYAL THAI MIL BASE); 'L' FOR LAOS; 'C' FOR CAMBODIA(MIMOT OR KREK,KAMPONG CHAM); 'G' FOR GUAM, AMERICAN SAMOA, OR TERRITORIAL WATERS; 'J' FOR JOHNSTON ATOLL; 'O' FOR OTHER; LAST EDITED: `JAN 06, 2023` HELP-PROMPT: `Enter where the patient was exposed to agent orange.` DESCRIPTION: `For this veteran applicant who was exposed to agent orange (EXPOSED TO AGENT ORANGE prompt must be answered YES) enter the location where the exposure occurred.`
50.23	MEDAL OF HONOR INDICATED?	E;23	SET	'Y' FOR YES; 'N' FOR NO; LAST EDITED: `JUL 03, 2019` HELP-PROMPT: `If the patient is a Veteran, enter 'Y' if Medal of Honor has been awarded, 'N' if Medal of Honor was revoked or set in error, or leave field blank if Medal of Honor has never been awarded.` DESCRIPTION: `This field cannot be edited in VistA. It is set by the Z11 Upload from HEC. A response of 'YES' or 'NO' is indicated only if the patient is a Veteran.` TECHNICAL DESCR: `This field is updated by the F cross-reference on the CURRENT MOH INDICATOR (#.541) field in the PATIENT (#2) file.` `UNEDITABLE`
50.24	CAMP LEJEUNE INDICATED?	E;24	SET	'Y' FOR YES; 'N' FOR NO; LAST EDITED: `MAR 13, 2015` HELP-PROMPT: `Enter "Y" if there is sufficient evidence that the Veteran was housed at Camp Lejeune for a minimum of 30 days between and inclusive of August 1, 1953 and December 31, 1987. Otherwise, enter "N".` DESCRIPTION: `This field corresponds to the CAMP LEJEUNE (#.321701) field in the PATIENT File #2. It can be set by setting the Camp Lejeune Eligibility Indicator on the Registration Screens, or by the Z11 Upload from the HEC.`
50.25	CAMP LEJEUNE DATE	E;25	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAR 13, 2015` HELP-PROMPT: `This is the date when the CAMP LEJEUNE ELIGIBILITY INDICATOR field was last changed.` DESCRIPTION: `This is the system generated date noting when the CAMP LEJEUNE ELIGIBILITY INDICATOR field was last changed.` TECHNICAL DESCR: `This field is System Generated and should never be entered in by a user.` `UNEDITABLE`
50.26	CAMP LEJEUNE CHANGE SITE	E;26	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>10!($L(X)<3) X` LAST EDITED: `MAR 13, 2015` HELP-PROMPT: `Answer must be 3-10 characters in length.` DESCRIPTION: `The System Generated point-of-entry site that last changed the CAMP LEJEUNE ELIGIBILITY INDICATOR field.` TECHNICAL DESCR: `This field is System Generated and should never be entered in by a user.` `UNEDITABLE`
50.27	CAMP LEJEUNE SOURCE	E;27	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>10!($L(X)<3) X` LAST EDITED: `JAN 23, 2015` HELP-PROMPT: `Answer must be 3-10 characters in length.` DESCRIPTION: `The System Generated source that last affected a change to the CAMP LEJEUNE ELIGIBILITY INDICATOR field.` TECHNICAL DESCR: `This field is System Generated and should never be entered in by a user.` `UNEDITABLE`
50.28	MOH AWARD DATE	E;28	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X K:Y>DT X` LAST EDITED: `JUL 18, 2019` HELP-PROMPT: `If the patient is a Veteran, enter the date the Medal of Honor was awarded. The date cannot be in the future.` DESCRIPTION: `This field cannot be edited in VistA. It is set by the Z11 upload from HEC. A date is indicated only if the patient is a Veteran.` AUDIT: `YES, ALWAYS` `UNEDITABLE` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
50.29	MOH STATUS DATE	E;29	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X K:Y>DT X` LAST EDITED: `JUL 18, 2019` HELP-PROMPT: `If the patient is a Veteran, enter the date the MOH Indicator or the MOH Award Date was last modified. The date cannot be in the future.` DESCRIPTION: `This field cannot be edited in VistA. It is set by the Z11 upload from HEC. A date is indicated only if the patient is a Veteran.` AUDIT: `YES, ALWAYS` `UNEDITABLE` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
50.3	MOH COPAYMENT EXEMPTION DATE	E;30	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X K:Y>DT X` LAST EDITED: `JUL 18, 2019` HELP-PROMPT: `If the patient is a Veteran, enter the date the Veteran is eligible for exemption from payments for healthcare, prescriptions and long-term care. The date cannot be in the future.` DESCRIPTION: `This field cannot be edited in VistA. This date is determined by the VistA system based off Medal of Honor Award date and Legislation date. A date is indicated only if the patient is a veteran.` AUDIT: `YES, ALWAYS` `UNEDITABLE` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
50.31	EXPANDED MH CARE TYPE	E;31	SET	'OTH-90' FOR EMERGENT MH OTH; 'OTH-EXT' FOR EXTENDED MH CARE; LAST EDITED: `SEP 20, 2019` HELP-PROMPT: `Enter the EXPANDED MH CARE TYPE associated with the enrollment priority determination.` DESCRIPTION: `The EXPANDED MH CARE TYPE associated with the enrollment priority determination.`
75.01	DATE/TIME ENTERED	U;1	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JUL 24, 1997` HELP-PROMPT: `Enter the date and time the record is being created.` DESCRIPTION: `This field is used as part of the audit trail for the enrollment process.` `UNEDITABLE`
75.02	ENTERED BY	U;2	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `JUL 24, 1997` HELP-PROMPT: `Enter the user who is enrolling the veteran.` DESCRIPTION: `For local enrollments, this field will point to the user who is enrolling the veteran.` `UNEDITABLE`
76	RADIATION EXPOSURE METHOD	E;21	SET	'2' FOR HIROSHIMA/NAGASAKI; '3' FOR ATMOS NUCLR TESTING; '4' FOR H/N AND ATMOS TESTING; '5' FOR UNDERGRD NUCLR TESTING; '6' FOR EXPOS AT NUCLR FACILITY; '7' FOR OTHER; '8' FOR ENEWETAK; '9' FOR EXPOS IN PALOMARES B52; '10' FOR THULE AFB B52; LAST EDITED: `JAN 06, 2023` DESCRIPTION: `The RADIATION EXPOSURE METHOD associated with the enrollment priority determination.` `UNEDITABLE`

ICR LINK	Subscribing Package(s)	Fields Referenced	Description
ICR #2462	Scheduling Pharmacy Benefits Management Patient Representative VA Point of Service	ENROLLMENT DATE (.01). Access: Direct Global Read & w/Fileman SOURCE OF ENROLLMENT (.03). Access: Direct Global Read & w/Fileman ENROLLMENT STATUS (.04). Access: Direct Global Read & w/Fileman FACILITY RECEIVED (.06). Access: Direct Global Read & w/Fileman ENROLLMENT PRIORITY (.07). Access: Direct Global Read & w/Fileman EFFECTIVE DATE (.08). Access: Direct Global Read & w/Fileman	Zeroeth node.'C' crossreference.
ICR #4947	Spinal Cord Dysfunction	(n/a). Access: Direct Global Read & w/Fileman ENROLLMENT PRIORITY (.07). Access: Direct Global Read & w/Fileman ENROLLMENT SUBGROUP (.12). Access: Direct Global Read & w/Fileman MEANS TEST STATUS (50.14). Access: Direct Global Read & w/Fileman	C Cross-reference
ICR #5158	Integrated Billing	C Cross-reference (n/a). Access: Direct Global Read & w/Fileman EFFECTIVE DATE (.08). Access: Direct Global Read & w/Fileman ENROLLMENT PRIORITY (.07). Access: Read w/Fileman SERVICE CONNECTED (50.02). Access: Direct Global Read & w/Fileman ELIGIBILITY CODE (50.01). Access: Read w/Fileman SERVICE CONNECTED PERCENTAGE (50.03). Access: Read w/Fileman
ICR #7023	Scheduling	ENROLLMENT PRIORITY (.07). Access: Read w/Fileman ENROLLMENT SUB-GROUP (.12). Access: Read w/Fileman

Name	Field # of Occurrence
^%DT	.01+1, .08+1, .1+1, .11+1, .16+1, 50.18+1, 50.25+1, 50.28+1, 50.29+1, 50.3+1 , 75.01+1
$$FINDCUR^DGENA	.14(XREF 2S), .14(XREF 2K)
ENRAPP^DGENDD	.01+1
KILL2^DGENDD	.04(XREF 1K)
SET2^DGENDD	.04(XREF 1S)
SETREM^DGENDD	.04(XREF 2S), .04(XREF 2K)
E2711^DGRTRIG	.01(XREF 2S), .01(XREF 2K), .03(XREF 1S), .03(XREF 1K), .04(XREF 3S), .04(XREF 3K), .06(XREF 1S), .06(XREF 1K), .07(XREF 993S), .07(XREF 993K) , .08(XREF 1S), .08(XREF 1K), .1(XREF 1S), .1(XREF 1K), .11(XREF 1S), .11(XREF 1K), .12(XREF 1S), .12(XREF 1K)
ADGRU^DGRUDD01	.07(XREF 992S), .07(XREF 992K)
H^DGUTL	.01+1
^DIC	.06+1, .15+1
FILE^DIE	.14(XREF 2S), .14(XREF 2K)
$$GET1^DIQ	.14(XREF 2S), .14(XREF 2K)
Y^DIQ	ID.02+1

Name	Line Occurrences (* Changed, ! Killed)
^DD(2	ID.02+1
^DGEN(27.11 - [#27.11]	.01(XREF 1S), .01(XREF 1K), .02(XREF 1S), .02(XREF 1K)
^DPT - [#2]	ID.02+1

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	.01+1, .08+1, .1+1, .11+1, .16+1, 50.18+1, 50.25+1, 50.28+1, 50.29+1, 50.3+1 , 75.01+1*
%I	ID.02+1*!
>> C	ID.02+1*
>> DA	.01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .02(XREF 1S), .02(XREF 1K), .03(XREF 1S), .03(XREF 1K), .04(XREF 1S), .04(XREF 1K) , .04(XREF 2S), .04(XREF 2K), .04(XREF 3S), .04(XREF 3K), .06(XREF 1S), .06(XREF 1K), .07(XREF 993S), .07(XREF 993K), .08(XREF 1S), .08(XREF 1K) , .1(XREF 1S), .1(XREF 1K), .11(XREF 1S), .11(XREF 1K), .12(XREF 1S), .12(XREF 1K), .14(XREF 2S), .14(XREF 2K)
DG1	.07(XREF 992S), .07(XREF 992K)
DGDATE	.01+1!
DGDFN	.14(XREF 2S), .14(XREF 2K)
DGFDA	.14(XREF 2S), .14(XREF 2K)
DGFDA(2	.14(XREF 2S), .14(XREF 2K)
DGTIME	.01+1!
DIC	ID.02+1, .06+1!, .15+1!
DIC("S"	.06+1, .06SCR+1, .15+1, .15SCR+1
>> DIE	.06+1, .15+1
DT	50.28+1, 50.29+1, 50.3+1
U	ID.02+1
X	.01+1!, .01(XREF 1S), .01(XREF 1K), .02(XREF 1S), .02(XREF 1K), .04(XREF 1S), .04(XREF 1K), .04(XREF 2S), .04(XREF 2K), .06+1! , .08+1!, .1+1!, .11+1!, .14(XREF 2S), .14(XREF 2K), .15+1!, .16+1!, 25+1!, 50.03+1!, 50.08+1! , 50.18+1!, 50.25+1!, 50.26+1!, 50.27+1!, 50.28+1!, 50.29+1!, 50.3+1!, 75.01+1!
>> Y	ID.02+1*, .01+1, .06+1, .08+1, .1+1, .11+1, .15+1, .16+1, 50.18+1, 50.25+1 , 50.28+1, 50.29+1, 50.3+1, 75.01+1

Customize PDF page

Package: Registration

Global: ^DGEN(27.11

Information

Description

Directly Accessed By Routines, Total: 33

Accessed By FileMan Db Calls, Total: 40

Pointed To By FileMan Files, Total: 2

Pointer To FileMan Files, Total: 8

Fields, Total: 51

ICR, Total: 4

External References

Global Variables Directly Accessed

Naked Globals

Local Variables

Legend:

Marked Items