$TXT Created by NTHONY at DEVVOO.DOMAIN.EXT (KIDS) on Thursday, 04/14/22 at 11:42 ============================================================================= Run Date: JUL 05, 2022 Designation: DG*5.3*1075 Package : DG - REGISTRATION Priority: Mandatory Version : 5.3 SEQ #941 Status: Released Compliance Date: AUG 05, 2022 ============================================================================= Associated patches: (v)DG*5.3*1061 <<= must be installed BEFORE `DG*5.3*1075' (v)DG*5.3*1067 <<= must be installed BEFORE `DG*5.3*1075' (v)DG*5.3*1018 <<= must be installed BEFORE `DG*5.3*1075' Subject: HUD-VASH ELIG, REGISTRATION SCREEN CHECKS, E&E WEB SERV. END POINT & PORT Category: - Routine - Enhancement (Mandatory) - Data Dictionary - Input Template - Other Description: ============ Veterans Health Information Systems and Technology Architecture (VistA) Registration, Eligibility & Enrollment (REE) patch DG*5.3*1075 is being released to support enhancements for the Eligibility and Enrollment (E&E) program. Patch DG*5.3*1075 is also being released in support of the Veterans Health Administration (VHA) Enrollment System (VES) 6.1 release. Refer to Informational Patch EAS*1*212 (Enrollment Application System) for additional details regarding the VES release. VistA is updated to support new legislation that allows some individuals who are not eligible for enrollment for U.S. Department of Veterans Affairs (VA) health care to receive benefits from the Housing and Urban Development- Veterans Affairs Supportive Housing (HUD-VASH) program. The VA is partnering with the HUD to provide case management and clinical services to former service members and Veterans enrolled in the HUD Housing Choice Voucher (HCV) rental assistance program. Patch DG*5.3*1075 modifies VistA to identify Veterans and former service members who are recipients of VA services under HUD-VASH. Patch DG*5.3*1075 adds a new secondary eligibility and a new VHA Profile (VHAP) to identify patients who receive HUD-VASH services. VES and VistA users will be able to assign the HUD-VASH eligibility to patients, and VES will automatically assign the new HUD-VASH Restricted Care VHAP. The new secondary eligibility and VHAP are shared between VES and VistA on the Health Level Seven (HL7) ORU/ORF-Z07 and ORU/ORF-Z11 messages. VES is the authoritative source for HUD-VASH eligibility. Patch DG*5.3*1075 updates the DG EE SUMMARY SERVER Host/Port in VistA to support the ES move to the Amazon Web Services (AWS) GovCloud (US). Patch DG*5.3*1075 updates the ENVIRONMENTAL FACTORS screen for the Agent Orange and Ion Radiation Exposure processing to enforce validation to prevent the creation of Z07 inconsistencies. Patch DG*5.3*1075 modifies the ELIGIBILITY STATUS DATA, SCREEN <7> screen and the COMPENSATION AND PENSION, SCREEN <7> EXPANSION screen to set default values for certain compensation and pension eligibility prompts. Listing of Updates: =================== This patch makes the following enhancements to VistA REE: ************************************************************************** SECTION 1: DATA DICTIONARY UPDATES ************************************************************************** 1. The HUD-VASH eligibility code is added to the MAS ELIGIBILITY CODE (#8.1) file. This entry is provided in the build file and installed with the patch. NUMBER: 26 NAME: HUD-VASH CARD COLOR: RED ABBREVIATION: HUDV VA CODE NUMBER: 13 TYPE: NON-VETERAN PRINT NAME: HUD-VASH SELECT AS ADDITIONAL: YES 2. The HUD-VASH eligibility code is added to the ELIGIBILITY CODE (#8) file. This entry is added to the file by the post install routine POST^DG531075P. NAME: HUD-VASH CARD COLOR: RED ABBREVIATION: HUDV VA CODE NUMBER: 13 TYPE: NON-VETERAN PRINT NAME: HUD-VASH SELECT AS ADDITIONAL: YES MAS ELIGIBILITY CODE: HUD-VASH ID FORMAT: VA STANDARD AGENCY: VA NOTE: Eligibility data is entered in ELIGIBILITY STATUS DATA, SCREEN <7> screen. VistA Registration options that display the ELIGIBILITY STATUS DATA, SCREEN <7> screen include: Register a Patient [DG REGISTER PATIENT] Load/Edit Patient Data [DG LOAD PATIENT DATA] Eligibility Verification [DG ELIGIBILITY VERIFICATION] View Registration Data [DG REGISTRATION VIEW] Enter a Request/Notification [FBCH ENTER REQUEST] a. Users cannot add the new HUD-VASH eligibility in Group [3] at the PRIMARY ELIGIBILITY CODE prompt. b. The new HUD-VASH eligibility code is not available for selection by the user until the current date/time is greater than or equal to the "DG PATCH DG*5.3*1075 ACTIVE" parameter date/time value. See item 8 below for information on this parameter. c. The Help Text ("?", "??") for the PRIMARY ELIGIBILITY CODE prompt does not list HUD-VASH in the selection list. d. While VistA users are not prohibited from entering the new HUD-VASH eligibility code as a secondary eligibility, VES calculates eligibility and returns the authoritative eligibilities on ORU/ORF-Z11 messages. 3. A new VHAP is added to the HEALTH BENEFIT PLAN (#25.11) file: NUMBER: 97 NAME : HUD-VASH RESTRICTED CARE PLAN CODE: 307 COVERAGE CODE: HUD1001 SHORT DESCRIPTION: HUDVASH LONG DESCRIPTION: Veterans who are enrolled and not enrolled Veterans and former service members can be seen for services related to their enrollment in the Housing and Urban Development-Veterans Affairs Supportive Housing (HUD-VASH) program. These Veterans and former service members are not subject to copayment requirements and are exempt from copayments for inpatient services and medications related to their HUD-VASH services. Veterans and former service members assigned this VHAP meet one of the following conditions: * Cancelled/Declined - Receive medical benefits for HUD-VASH conditions only * Rejected - Receive medical benefits for HUD-VASH and SC conditions only * Ineligible and SC 0% - Receive medical benefits for HUD-VASH and SC conditions only * Ineligible and MST - Receive medical benefits for HUD-VASH and MST conditions only * Ineligible with a bar to benefits (excluding Dishonorable, Bad Conduct General Court Martial and Fugitive Felon Program (FFP)) - Receive medical benefits for HUD-VASH conditions only * Former Service members with Other Than Honorable (OTH) discharges who present for certain services * Presumptive (38 USC 1702- 38 CFR 17.109) For eligible individuals, under Veterans Comprehensive Prevention, Access to Care, and Treatment Act of 2020 (COMPACT), Section 201, VA will furnish, reimburse, pay for emergent suicide care, make referrals, as appropriate, for care following the period of emergent suicide care. Eligible individuals are Veterans who served in the active military service, regardless of length of service, and who were discharged, excluding anyone who received a dishonorable discharge or was discharged or dismissed by reason 4. The DESCRIPTION of the RADIATION EXPOSURE INDICATED? (#.32103) field of the PATIENT (#2) file is modified as shown below. DATA NAME GLOBAL DATA ELEMENT TITLE LOCATION TYPE -------------------------------------------------------------------------- 2,.32103 RADIATION EXPOSURE INDICATED? .321;3 SET (Required) WERE YOU EXPOSED TO RADIATION 'Y' FOR YES; 'N' FOR NO; 'U' FOR UNKNOWN; INPUT TRANSFORM: S DFN=DA D SV^DGLOCK LAST EDITED: FEB 10, 2022 HELP-PROMPT: Enter the RADIATION EXPOSURE INDICATED associated with the enrollment priority determination DESCRIPTION: Enter 'Y' if the veteran was exposed to ionizing radiation: 2) Nagasaki/Hiroshima - Veteran was exposed to ionizing radiation as a POW or while serving in Hiroshima and/or Nagasaki, Japan from August 6, 1945 through July 1, 1946. 3) Atmospheric Nuclear Testing - exposure occurred at an atmospheric nuclear device test site (e.g. the Pacific Islands, NM or NV). 4) H/N and Atmospheric Testing - exposure occurred as a POW in Hiroshima or Nagasaki AND at an atmospheric nuclear device test site. 5) Underground Nuclear Testing - exposure occurred while at Longshot, Milrow, or Cannikin underground nuclear tests at Amchitka Island, AK prior to January 1, 1974. 6) Exposure at Nuclear Facility - exposure occurred while 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. 7) Other - a method that does not fit any of the other categories Only Veterans exposed by methods #2, 3 or 4 are eligible for copayment 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 in VES only VES users may enter/edit this field. GROUP: IRD NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER CROSS-REFERENCE: ^^TRIGGER^2^.3212 1)= X ^DD(2,.32103,1,1,1.3) I X S X=DIV S Y(2)=";"_$S($D(^DD(2,.3212,0)):$P(^(0),U,3 ),1:""),Y(1)=$S($D(^DPT(D0,.321)):^(.321), 1:"") S X=$P($P(Y(2),";"_$P(Y(1),U,12)_":" ,2),";",1) S DIU=X K Y S X=DIV S X="" X ^D D(2,.32103,1,1,1.4) 1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0) =X S Y(1)=$C(59)_$S($D(^DD(2,.32103,0)):$P (^(0),U,3),1:"") S X=$P($P(Y(1),$C(59)_Y(0 )_":",2),$C(59),1)="NO" 1.4)= S DIH=$S($D(^DPT(DIV(0),.321)):^(.32 1),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,11 ,99)) S DIH=DIH_U" S %=$P(DIH,U,13,999),D IU=$P(DIH,U,12),^(.321)=$P(DIH,U,1,11)_U_D IV_$S(%]"":U_%,1:""),DIH=2,DIG=.3212 D ^DI CR:$O(^DD(DIH,DIG,1,0))>0 2)= Q CREATE CONDITION)= #.32103="NO" CREATE VALUE)= @ DELETE VALUE)= NO EFFECT FIELD)= #.3212 CROSS-REFERENCE: ^^TRIGGER^2^.32111 1)= X ^DD(2,.32103,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.321)):^(.321),1:"") S X=$P(Y(1),U,11) S DIU=X K Y S X=DIV S X="" X ^DD(2,.32103,1,2,1.4) 1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0) =X S Y(1)=$C(59)_$S($D(^DD(2,.32103,0)):$P (^(0),U,3),1:"") S X=$P($P(Y(1),$C(59)_Y(0 )_":",2),$C(59),1)="NO" 1.4)= S DIH=$S($D(^DPT(DIV(0),.321)):^(.32 1),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,10 ,99)) S DIH=DIH_U" S %=$P(DIH,U,12,999),D IU=$P(DIH,U,11),^(.321)=$P(DIH,U,1,10)_U_D IV_$S(%]"":U_%,1:""),DIH=2,DIG=.32111 D ^D ICR:$O(^DD(DIH,DIG,1,0))>0 2)= Q CREATE CONDITION)= #.32103="NO" CREATE VALUE)= @ DELETE VALUE)= NO EFFECT FIELD)= #.32111 CROSS-REFERENCE: 2^AENR32103^MUMPS 1)= D AUTOUPD^DGENA2(DA) 2)= D AUTOUPD^DGENA2(DA) 3)= DO NOT DELETE This cross-reference is used to update the patient's current Patient Enrollment record. 5. The DESCRIPTION of the RADIATION EXPOSURE METHOD (#.3212) field in the PATIENT (#2) file is modified as shown below. DATA NAME GLOBAL DATA ELEMENT TITLE LOCATION TYPE -------------------------------------------------------------------------- 2,.3212 RADIATION EXPOSURE METHOD .321;12 SET '2' FOR HIROSHIMA/NAGASAKI; '3' FOR ATMOSPHERIC NUCLEAR TESTING; '4' FOR H/N AND ATMOSPHERIC TESTING; '5' FOR UNDERGROUND NUCLEAR TESTING; '6' FOR EXPOSURE AT NUCLEAR FACILITY; '7' FOR OTHER; INPUT TRANSFORM: S DFN=DA D IR^DGLOCK Q LAST EDITED: FEB 10, 2022 HELP-PROMPT: Select from the listing available the method by which this patient was exposed to ionizing radiation. DESCRIPTION: This field represents the method by which the exposure to ionizing radiation occurred. 2) Nagasaki/Hiroshima - if the Veteran was exposed to ionizing radiation as a POW or while serving in Hiroshima and/or Nagasaki, Japan from August 6, 1945 through July 1, 1946. 3) Atmospheric Nuclear Testing - if exposure occurred at an atmospheric nuclear device test site (e.g. the Pacific Islands, NM or NV). 4) H/N and Atmospheric Testing - if exposure occurred as a POW in Hiroshima or Nagasaki AND at an atmospheric nuclear device test site. 5) Underground Nuclear Testing - if exposure occurred while at Longshot, Milrow, or Cannikin underground nuclear tests at Amchitka Island, AK prior to January 1, 1974. 6) Exposure at Nuclear Facility - if exposure occurred while 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. 7) Other - a method that does not fit any of the other categories. Only Veterans exposed by methods #2, 3 or 4 are eligible for copayment exemption or enrollment in priority 6 based on their IR exposure. Once the record has been verified in VES only VES users may enter/edit this field. DELETE TEST: 1,0)= S DFN=DA D IRD^DGLOCK1 I '$D(X) GROUP: IRD NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER TRIGGERED by the RADIATION EXPOSURE INDICATED? field of the PATIENT File CROSS-REFERENCE: 2^AENR3212^MUMPS 1)= D AUTOUPD^DGENA2(DA) 2)= D AUTOUPD^DGENA2(DA) 3)= DO NOT DELETE This cross-reference is used to update the patient's current Patient Enrollment record. 6. The DESCRIPTION of the AGENT ORANGE EXPOS. INDICATED? (#.32102) field in the PATIENT (#2) file is updated as shown below. DATA NAME GLOBAL DATA ELEMENT TITLE LOCATION TYPE -------------------------------------------------------------------------- 2,.32102 AGENT ORANGE EXPOS. INDICATED? .321;2 SET (Required) EXPOSED TO AGENT ORANGE 'Y' FOR YES; 'N' FOR NO; 'U' FOR UNKNOWN; INPUT TRANSFORM: S DFN=DA D SV^DGLOCK LAST EDITED: DEC 09, 2020 HELP-PROMPT: Enter 'Y' if this patient claims exposure to agent orange, 'N' if not, 'U' if unknown. DESCRIPTION: For this veteran applicant enter 'Y' if s/he was exposed to the chemical agent orange, 'N' if not, or 'U' if unknown. Exposure can be claimed by those serving in the KOREAN DMZ between January 1, 1968 and December 31, 1969; or served in country in Vietnam or the offshore waters of Vietnam during Jan 9, 1962 to May 7, 1975. When Consistency Check # 25 is active (AGENT ORANGE EXPOSURE INDICATED WITHOUT VIETNAM ERA PERIOD OF SERVICE), exposure cannot be claimed unless the Period of Service (#.323) field in the Patient (#2) file is answered VIETNAM ERA, which entails those serving in the Korean DMZ between January 1, 1968 and December 31, 1969 or served in country in Vietnam or the offshore waters of Vietnam during Jan 9, 1962 to May 7, 1975. Once eligibility is verified in VES only VES users with edit capability may enter/edit this field. GROUP: AO NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER CROSS-REFERENCE: ^^TRIGGER^2^.32107 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$P($G(^DD(2,.32102,0)),U,3) S X=$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59)) ="NO" I X S X=DIV S Y(1)=$S($D(^DPT(D0,.32 1)):^(.321),1:"") S X=$P(Y(1),U,7),X=X S D IU=X K Y S X="" X ^DD(2,.32102,1,1,1.4) 1.4)= S DIH=$G(^DPT(DIV(0),.321)),DIV=X S $P(^(.321),U,7)=DIV,DIH=2,DIG=.32107 D ^DI CR 2)= Q CREATE CONDITION)= #.32102="NO" CREATE VALUE)= @ DELETE VALUE)= NO EFFECT FIELD)= #.32107 CROSS-REFERENCE: ^^TRIGGER^2^.3211 1)= X ^DD(2,.32102,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.321)):^(.321),1:"") S X=$P(Y(1),U,10),X=X S DIU=X K Y S X="" S D IH=$G(^DPT(DIV(0),.321)),DIV=X S $P(^(.321 ),U,10)=DIV,DIH=2,DIG=.3211 D ^DICR 1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0) =X S Y(1)=$C(59)_$P($G(^DD(2,.32102,0)),U, 3) S X=$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59 ))="NO" 2)= Q CREATE CONDITION)= #.32102="NO" CREATE VALUE)= @ DELETE VALUE)= NO EFFECT FIELD)= #.3211 CROSS-REFERENCE: ^^TRIGGER^2^.32109 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$P($G(^DD(2,.32102,0)),U,3) S X=$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59)) ="NO" I X S X=DIV S Y(1)=$S($D(^DPT(D0,.32 1)):^(.321),1:"") S X=$P(Y(1),U,9),X=X S D IU=X K Y S X="" X ^DD(2,.32102,1,3,1.4) 1.4)= S DIH=$G(^DPT(DIV(0),.321)),DIV=X S $P(^(.321),U,9)=DIV,DIH=2,DIG=.32109 D ^DI CR 2)= Q CREATE CONDITION)= #.32102="NO" CREATE VALUE)= @ DELETE VALUE)= NO EFFECT FIELD)= #.32109 CROSS-REFERENCE: 2^AENR32102^MUMPS 1)= D AUTOUPD^DGENA2(DA) 2)= D AUTOUPD^DGENA2(DA) 3)= DO NOT DELETE This cross-reference is used to update the patient's current Patient Enrollment record. CROSS-REFERENCE: ^^TRIGGER^2^.3213 1)= X ^DD(2,.32102,1,5,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.321)):^(.321),1:"") S X=$P(Y(1),U,13),X=X S DIU=X K Y S X="" S D IH=$G(^DPT(DIV(0),.321)),DIV=X S $P(^(.321 ),U,13)=DIV,DIH=2,DIG=.3213 D ^DICR 1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0) =X S Y(1)=$C(59)_$P($G(^DD(2,.32102,0)),U, 3) S X=$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59 ),1)="NO" 2)= Q CREATE CONDITION)= #.32102="NO" CREATE VALUE)= @ DELETE VALUE)= NO EFFECT FIELD)= #.3213 7. The DESCRIPTION of the AGENT ORANGE EXPOSURE LOCATION (#.3213) field in the PATIENT (#2) file is updated as shown below. DATA NAME GLOBAL DATA ELEMENT TITLE LOCATION TYPE -------------------------------------------------------------------------- 2,.3213 AGENT ORANGE EXPOSURE LOCATION .321;13 SET (Required) Agent Orange Exposure Location 'B' FOR BLUE WATER NAVY; 'K' FOR KOREAN DMZ; 'V' FOR VIETNAM; 'O' FOR OTHER; LAST EDITED: DEC 29, 2020 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. Once eligibility is verified in VES only VES users may enter/edit this field. This field cannot be deleted as long as agent orange exposure is indicated. SCREEN: S DIC("S")="I $$CHKAOEL^DGRP6EF(Y)" EXPLANATION: Available locations are shown. DELETE TEST: 1,0)= S DFN=DA D AOD^DGLOCK1 I '$D(X) NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER TRIGGERED by the AGENT ORANGE EXPOS. INDICATED? field of the PATIENT File CROSS-REFERENCE: 2^AENR3213^MUMPS 1)= D AUTOUPD^DGENA2(DA) 2)= D AUTOUPD^DGENA2(DA) 3)= DO NOT DELETE This MUMPS cross-reference is used to update the patient's current Patient Enrollment record. 8. A new parameter DG PATCH DG*5.3*1075 ACTIVE is added to the PARAMETER DEFINITION (#8989.51) file. The parameter value is a timestamp. NAME: DG PATCH DG*5.3*1075 ACTIVE DISPLAY TEXT: Active date/time for patch DG*5.3*1075 VALUE DATA TYPE: date/time VALUE DOMAIN: ::T VALUE HELP: Enter the date/time when patch DG*5.3*1075 becomes active. DESCRIPTION: This parameter contains the date/time when the functionality in patch DG*5.3*1075 becomes active. PRECEDENCE: 1 ENTITY FILE: PACKAGE An instance of this parameter is created in the PARAMETER file (#8989.5) with a timestamp value of Aug 03, 2022@1700 indicating when the new HUD-VASH eligibility code will be active. The timestamp value is set via post-install routine POST^DG531075P. ENTITY (PKG): REGISTRATION PARAMETER: DG PATCH DG*5.3*1075 ACTIVE INSTANCE: 1 VALUE: AUG 03, 2022@17:00 9. The ELIGIBILITY (#.01) field of the PATIENT ELIGIBILITIES (#361) subfile of the PATIENT (#2) file is modified. The SCREEN logic is modified to add the routine invocation $$HUDCK^DGLOCK1(Y). DATA NAME GLOBAL DATA ELEMENT TITLE LOCATION TYPE -------------------------------------------------------------------------- 2.0361,.01 ELIGIBILITY 0;1 POINTER TO ELIGIBILITY CODE FILE (#8) (Multiply asked) INPUT TRANSFORM: S DIC("S")="I '$P(^(0),U,7),$S($P(^(0),U,8 ):1,'$D(^DPT(D0,.36)):0,1:Y=+^(.36)),$$ELG CHK^DGRPTU(D0),$$HUDCK^DGLOCK1(Y)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X I $D(X) S DIN UM=X LAST EDITED: MAR 25, 2022 HELP-PROMPT: Select other eligibilities to which this patient may be entitled. DESCRIPTION: Enter all eligibilities under which this patient may receive care. The patients primary eligibility as well as all other eligibilities he is entitled to is stored in this multiple. TECHNICAL DESCR: Unlike previous versions of the PATIENT file, in this version ALL the patient's eligibilities are stored in this multiple. When the user enters/edits that patient's PRIMARY ELIGIBILITY CODE, that code is automatically stored in the multiple as well as in the PRIMARY ELIGIBILITY CODE field. This change was necessary to accomodate the VA/DOD sharing SCREEN: S DIC("S")="I '$P(^(0),U,7),$S($P(^(0),U,8 ):1,'$D(^DPT(D0,.36)):0,1:Y=+^(.36)),$$ELG CHK^DGRPTU(D0),$$HUDCK^DGLOCK1(Y)" EXPLANATION: Select other eligibilities for the patient . The primary may be selected but it must already exist. DELETE TEST: 1,0)= S DFN=DA(1) D EV^DGLOCK D:$D(X) COV^ DGLOCK3(DA) I '$D(X)!(+$G(^DPT(DA(1),.36)) =DA) W:$D(X) !?5,"Deleting primary eligibi lity is not allowed" NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER CROSS-REFERENCE: 2.0361^B 1)= S ^DPT(DA(1),"E","B",$E(X,1,30),DA)="" 2)= K ^DPT(DA(1),"E","B",$E(X,1,30),DA) CROSS-REFERENCE: 2^AEL1^MUMPS 1)= S ^DPT("AEL",DA(1),+X)="" 2)= K ^DPT("AEL",DA(1),+X) I X=$$FIND1^DIC (8,"","B","COLLATERAL OF VET") D ARCHALL^D GRP1152U(DA(1)) When an eligibility is deleted, the KILL logic will remove the item from the "AEL" cross reference and then check if "COLLATERAL OF VET" eligibility is being removed. If so, code is called to archive all CCP entries in the COMMUNITY CARE PROGRAM sub-file (#2.191) of the PATIENT file (#2). The ARCHIVE (#.04) field of the CCP entry is set to 1. CROSS-REFERENCE: ^^TRIGGER^2.0361^.03 1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA ,DIV(1)=D1 S Y(1)=$S($D(^DPT(D0,"E",D1,0)) :^(0),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y X ^DD(2.0361,.01,1,3,1.1) X ^DD(2.0361, .01,1,3,1.4) 1.1)= S X=DIV S X="" I $D(^DIC(8,DA,0)),$D (^DIC(8.2,+$P(^(0),U,10),"LONG")) X ^("LON G") 1.4)= S DIH=$G(^DPT(DIV(0),"E",DIV(1),0)), DIV=X S $P(^(0),U,3)=DIV,DIH=2.0361,DIG=.0 3 D ^DICR 2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA ,DIV(1)=D1 S Y(1)=$S($D(^DPT(D0,"E",D1,0)) :^(0),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="" S DIH=$G(^DPT(DIV(0),"E",DIV(1), 0)),DIV=X S $P(^(0),U,3)=DIV,DIH=2.0361,DI G=.03 D ^DICR CREATE VALUE)= S X="" I $D(^DIC(8,DA,0)),$ D(^DIC(8.2,+$P(^(0),U,10),"LONG")) X ^("LO NG") DELETE VALUE)= @ FIELD)= LONG CROSS-REFERENCE: 2^AO^MUMPS 1)= S DFN=DA(1) D EN^DGMTR K DGREQF 2)= S DFN=DA(1) D EN^DGMTR K DGREQF This cross-reference is used to determine whether or not a means test or co-pay test is required. CROSS-REFERENCE: 2^AENR01^MUMPS 1)= D AUTOUPD^DGENA2(DA(1)) 2)= D AUTOUPD^DGENA2(DA(1)) 3)= DO NOT DELETE This cross-reference is used to update the patient's current Patient Enrollment record. When deleting an eligibility, at the point the kill logic of this x-ref is executed the data still exists in the global. To determine whether an eligibility still exists the "B" x-ref is checked - if not there, the eligibility is ignored. FILES POINTED TO FIELDS ELIGIBILITY CODE (#8) ELIGIBILITY (#.01) 10. The INPUT TRANSFORM of the NUMBER (#.01) field of the PATIENT CONTACT RELATION (#12.11) file is modified to only allow whole numbers. DATA NAME GLOBAL DATA ELEMENT TITLE LOCATION TYPE -------------------------------------------------------------------------- 12.11,.01 NUMBER 0;1 NUMBER (Required) INPUT TRANSFORM: K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X LAST EDITED: FEB 04, 2022 HELP-PROMPT: Type a whole number between 1 and 999. DESCRIPTION: This field contains the number of the Patient Contact Relation. CROSS-REFERENCE: 12.11^B 1)= S ^DG(12.11,"B",$E(X,1,30),DA)="" 2)= K ^DG(12.11,"B",$E(X,1,30),DA) This cross-reference allows the user to lookup an entry by the NUMBER field. ************************************************************************** SECTION 2: REGISTRATION SCREEN UPDATES ************************************************************************** 1. The Patient Inquiry [DG PATIENT INQUIRY] option displays the new HUD-VASH eligibility with Other Eligibilities: when HUD-VASH eligibility is assigned to the patient. ** BEGIN SCREEN CAPTURE ** DGPATIENTONE,TEST ONE; ########## ###-##-### MMM, DD, YYYY ========================================================================== Combat Vet Status: NOT ELIGIBLE End Date: 08/31/2025 COMPACT Act Status: ELIGIBLE Primary Eligibility: HUMANITARIAN EMERGENCY (VERIFIED) Other Eligibilities: HUD-VASH Unemployable: NO Permanent & Total Disabled: NO Status : PATIENT HAS NO INPATIENT OR LODGER ACTIVITY IN THE COMPUTER Type to continue or '^' to exit: ^ ** END SCREEN CAPTURE ** 2. VistA Registration options that display the ELIGIBILITY STATUS DATA, SCREEN <7> screen include: Register a Patient [DG REGISTER PATIENT] Load/Edit Patient Data [DG LOAD PATIENT DATA] Eligibility Verification [DG ELIGIBILITY VERIFICATION] View Registration Data [DG REGISTRATION VIEW] Enter a Request/Notification [FBCH ENTER REQUEST] a. Users cannot add the new HUD-VASH in Group [3] at the PRIMARY ELIGIBILITY CODE prompt on the ELIGIBILITY STATUS DATA, SCREEN <7>. b. The Help Text ("?", "??") for the PRIMARY ELIGIBILITY CODE prompt does not list HUD-VASH in the selection list. 3. The FEE BASIS (FB) package also displays the ELIGIBILITY STATUS DATA, SCREEN <7> screen in the Enter a Request/Notification [FBCH ENTER REQUEST] option. 4. The ENVIRONMENTAL FACTORS screen is updated as follows: a. If the patient's eligibility has been verified by VES, the user is prevented from entering or editing data in Group [1] (Agent Orange Exposure) and Group [2] (ION Radiation Exposure). The informational message "Eligibility is Verified. Only VES users may enter/edit Agent Orange or ION Radiation Exposure." is displayed as well. NOTE: "Eligibility verified by VES" is defined as the ELIGIBILITY STATUS ENTERED BY (#.3616) field = POSTMASTER and the ELIGIBILITY STATUS (#.3611) field in the PATIENT (#2) file equal to "V" (VERIFIED). ** BEGIN SCREEN CAPTURE ** DGPATIENT,ONE XXX XX, XXXX XXX-XX-XXX NSC VETERAN ========================================================================== **** ENVIRONMENTAL FACTORS **** <1> A/O Exp.: NO Reg: Exam: <2> ION Rad.: NO Reg: Method: [3] SW Asia Cond: Reg: Exam: [4] N/T Radium: <5> Camp Lejeune: Eligibility is Verified in VES. Only VES users may enter/edit Agent Orange or ION Radiation Exposure. SELECT AN ENVIRONMENTAL FACTOR (3-4) OR (Q)UIT: QUIT// ** END SCREEN CAPTURE ** b. When editing ION Radiation Exposure data, the RADIATION EXPOSURE METHOD: prompt shall only display if the user answered YES to Radiation Exposure Indicated?. i. If the user answers YES to RADIATION EXPOSURE INDICATED? and leaves the RADIATION EXPOSURE METHOD: blank, the screen shall require the user to respond. The system shall display "??", the Help Prompt text, and then redisplay the prompt. ** BEGIN SCREEN CAPTURE ** DGPATIENT,ONE XXX XX, XXXX XXX-XX-XXXX NSC VETERAN ========================================================================== **** ENVIRONMENTAL FACTORS **** [1] A/O Exp.: NO Reg: Exam: [2] ION Rad.: NO Reg: Method: [3] SW Asia Cond: Reg: Exam: [4] N/T Radium: <5> Camp Lejeune: SELECT AN ENVIRONMENTAL FACTOR (1-4) OR (Q)UIT: QUIT// 2 ION Rad RADIATION EXPOSURE INDICATED?: NO// Y YES RADIATION EXPOSURE METHOD: ?? Select from the listing available the method by which this patient was exposed to ionizing radiation. Choose from: 2 HIROSHIMA/NAGASAKI 3 ATMOSPHERIC NUCLEAR TESTING 4 H/N AND ATMOSPHERIC TESTING 5 UNDERGROUND NUCLEAR TESTING 6 EXPOSURE AT NUCLEAR FACILITY 7 OTHER RADIATION EXPOSURE METHOD: ** END SCREEN CAPTURE ** ii. If the user enters caret (^) at the RADIATION EXPOSURE METHOD: prompt, the action is aborted. - The value of the RADIATION EXPOSURE METHOD (#.3212) field is left unchanged. - If the RADIATION EXPOSURE INDICATED (#.32103) field was changed from NO to YES, it is reverted to NO. - If the RADIATION EXPOSURE INDICATED (#.32103) field was changed from UNK to YES, it is reverted to UNK. - If the RADIATION EXPOSURE INDICATED (#.32103) field was changed from NULL to YES, it is set to NO. - The user is returned to the ENVIRONMENTAL FACTORS screen. ** BEGIN SCREEN CAPTURE ** DGPATIENT,ONE XXX XX, XXXX XXX-XX-XXXX NSC VETERAN ========================================================================== **** ENVIRONMENTAL FACTORS **** [1] A/O Exp.: NO Reg: Exam: [2] ION Rad.: NO Reg: Method: [3] SW Asia Cond: Reg: Exam: [4] N/T Radium: <5> Camp Lejeune: SELECT AN ENVIRONMENTAL FACTOR (1-4) OR (Q)UIT: QUIT// 2 ION Rad RADIATION EXPOSURE INDICATED?: NO// Y YES RADIATION EXPOSURE METHOD: ^ DGPATIENT,ONE XXX XX, XXXX XXX-XX-XXXX NSC VETERAN ========================================================================== **** ENVIRONMENTAL FACTORS **** [1] A/O Exp.: NO Reg: Exam: [2] ION Rad.: NO Reg: Method: [3] SW Asia Cond: Reg: Exam: [4] N/T Radium: <5> Camp Lejeune: SELECT AN ENVIRONMENTAL FACTOR (1-4) OR (Q)UIT: QUIT// ** END SCREEN CAPTURE ** c. When editing Agent Orange Exposure data, the behavior of the AGENT ORANGE EXPOSURE LOCATION: prompt is updated if the user aborts by entering a caret (^). - The value stored in the AGENT ORANGE EXPOSURE LOCATION (#.321) field is left unchanged. - If the AGENT ORANGE EXPOS. INDICATED? (#.32102) field was changed from NO to YES, it is reverted to NO. - If the AGENT ORANGE EXPOS. INDICATED? (#.32102) field was changed from UNK to YES, it is reverted to UNK. - If the AGENT ORANGE EXPOS. INDICATED? (#.32102) field was changed from NULL to YES, it is set to NO. - The user is returned to the ENVIRONMENTAL FACTORS screen. 5. The ELIGIBILITY STATUS DATA, SCREEN <7> screen is modified. The following prompts shall display a default value of "NO" if the patient is a non-Veteran and shall display a default value of "UNANSWERED" if the patient is a Veteran. a. "Aid & Attendance:" b. "Housebound:" c. "VA Pension:" ** BEGIN SCREEN CAPTURE ** ELIGIBILITY STATUS DATA, SCREEN <7> DGPATIENTTWO,TWO XXX XX,XXXX XXX-XX-XXXX NON-VETERAN (OTHER) ========================================================================== [1] Patient Type: NON-VETERAN (OTHER) Veteran: NO Svc Connected: N/A SC Percent: N/A Rated Incomp.: UNANSWERED Claim Number: UNANSWERED Folder Loc.: UNANSWERED [2] Aid & Attendance: NO Housebound: NO VA Pension: NO VA Disability: UNANSWERED Total Check Amount: NOT APPLICABLE GI Insurance: UNANSWERED Amount: UNANSWERED [3] Primary Elig Code: HUMANITARIAN EMERGENCY Other Elig Code(s): NO ADDITIONAL ELIGIBILITIES IDENTIFIED Period of Service: OTHER NON-VETERANS [4] Service Connected Conditions as stated by applicant --------------------------------------------------- NONE STATED to CONTINUE, 1-4 or ALL to EDIT, ^N for screen N or '^' to QUIT: ** END SCREEN CAPTURE ** 6. The COMPENSATION AND PENSION, SCREEN <7> EXPANSION screen is modified as follows. a. The following labels shall display a default value of "NO" if the patient is a non-Veteran and shall initially display "UNANSWERED" if the patient is a Veteran. i. "Aid & Attendance:" ii. "Housebound:" iii. "VA Pension:" b. The following prompts shall display a default of NO if the patient is a non-Veteran and no default value if the patient is a Veteran. i. RECEIVING A&A BENEFITS?: ii. RECEIVING HOUSEBOUND BENEFITS?: iii. RECEIVING A VA PENSION?: ** BEGIN SCREEN CAPTURE ** COMPENSATION AND PENSION, SCREEN <7> EXPANSION DGPATIENTTWO,TWO; XXX-XX-XXXX NON-VETERAN (OTHER) ========================================================================== Aid & Attendance: NO Housebound: NO VA Pension: NO VA Disability: UNANSWERED Total Check Amount: NOT APPLICABLE GI Insurance: UNANSWERED Amount: UNANSWERED RECEIVING A&A BENEFITS?: NO// NO RECEIVING HOUSEBOUND BENEFITS?: NO// NO RECEIVING A VA PENSION?: NO// NO RECEIVING VA DISABILITY?: GI INSURANCE POLICY?: ** END SCREEN CAPTURE ** 7. During consistency check processing the following prompts are updated. a. The prompts shall display a default of NO if the patient is a non-Veteran and no default value if the patient is a Veteran. i. RECEIVING A&A BENEFITS?: ii. RECEIVING HOUSEBOUND BENEFITS?: iii. RECEIVING A VA PENSION?: b. The above prompts are updated in the following options during consistency check processing: Preregister a Patient [DGPRE PRE-REGISTER OPTION] Load/Edit Patient Data [DG LOAD PATIENT DATA] Register a Patient [DG REGISTER PATIENT] Eligibility Verification [DG ELIGIBILITY VERIFICATION] Edit Inconsistent Data for a Patient [DG CONSISTENCY PATIENT] Fee Basis: Enter a Request/Notification [FBCH ENTER REQUEST] ** BEGIN SCREEN CAPTURE ** DGPATIENTTWO,TWO MON DD,YYYY ###-##-#### NON-VETERAN (OTHER) ========================================================================== 13 - POS UNSPECIFIED+ 14 - ELIG CODE UNSPECIFIED 62 - EMERGENCY CONTACT NAME MISSING 99 - CAN'T PROCESS FURTHER Inconsistencies followed by [+] will prevent a Z07 DO YOU WANT TO UPDATE THESE INCONSISTENCIES NOW? Yes// (Yes) E-NAME: TYPE: NON-VETERAN (OTHER)// VETERAN (Y/N)?: NO// RECEIVING A&A BENEFITS?: NO// NO RECEIVING HOUSEBOUND BENEFITS?: NO// NO RECEIVING A VA PENSION?: NO// NO POW STATUS INDICATED?: U UNKNOWN PRIMARY ELIGIBILITY CODE: PERIOD OF SERVICE: Checking data for consistency... ** END SCREEN CAPTURE ** ************************************************************************** SECTION 3: DG EE SUMMARY SERVER UPDATES ************************************************************************** The server host and port number is updated for the DG EE SUMMARY SERVER web server. The post-install routine POST^DG531075P updates the server with the appropriate host and port number based on the type of system in which the patch is installed: Production, Pre-Production (Mirror), SQA or Development. Patch Components: ----------------- Files & Fields Associated: File Name (Number) Field Name (Number) New/Modified/Deleted ------------------ ------------------- -------------------- PATIENT (#2) RADIATION EXPOSURE Modified INDICATED? (#.32103) RADIATION EXPOSURE Modified METHOD (#.3212) AGENT ORANGE EXPOS. Modified INDICATED? (#.32102) AGENT ORANGE EXPOSURE Modified LOCATION (#.3213) PATIENT ELIGIBILITIES ELIGIBILITIES (#.01) Modified (#2.0361) PATIENT CONTACT NUMBER (#.01) Modified RELATION (#12.11) Forms Associated: Form Name File Number New/Modified/Deleted --------- ----------- -------------------- N/A Mail Groups Associated: Mail Group Name New/Modified/Deleted --------------- -------------------- N/A Options Associated: Option Name Type New/Modified/Deleted ----------- ---- -------------------- N/A Protocols Associated: Protocol Name New/Modified/Deleted ------------- -------------------- N/A Security Keys Associated: Security Key Name ----------------- N/A Templates Associated: Template Name Type File Name (Number) New/Modified/Deleted ------------- ---- ------------------ -------------------- DG LOAD EDIT SCREEN 7 Input PATIENT (#2) Modified Remote Procedures Associated: Remote Procedure Name New/Modified/Deleted --------------------- -------------------- N/A Parameter Definitions Associated: Parameter Name New/Modified/Deleted -------------- -------------------- DG PATCH DG*5.3*1075 ACTIVE NEW Additional Information: ----------------------- N/A New Service Requests (NSRs): ---------------------------- N/A Patient Safety Issues (PSIs): ----------------------------- N/A Defect Tracking System Ticket(s) & Overview: -------------------------------------------- Problem: -------- VES-20870 Problem: The input transform for the NUMBER (#.01) field in the PATIENT CONTACT RELATION (#12.11) file allows decimal number values. Resolution: Modified the input transform to allow whole numbers only. VES-20880 Problem: Routine DGREG line 1 is not SAC compliant. Resolution: Updated line 1 to remove slashes between initials. VES-21427 Problem: Routine DGRP3 line 2 is not SAC compliant. Resolution: Updated line 2 to remove the * between patch numbers. VES-21986 Problem: Trigger in ELIGIBILTY field #.01 of PATIENT ELIGIBILITIES subfile (#361) contains non-SAC compliant $N functions in the compiled code. Resolution: Trigger for the LONG ID (#.03) field deleted and recreated, resulting in compiled code that does not have the obsolete $N function. Test Sites: ----------- West Palm Beach VA Medical Center, FL VA NY Harbor Health Care System (Buffalo, Manhattan) VA Montana Health Care System (Ft. Harrison, Miles City) Software and Documentation Retrieval Instructions: -------------------------------------------------- The software for this patch is being released in a PackMan message. Documentation describing the new functionality is included in this release. Documentation can be found on the VA Software Documentation Library at: https://www.domain.ext/vdl/. Documentation can also be obtained at https://download.vista.domain.ext/index.html/SOFTWARE. Documentation Title File Name --------------------------------------------------------------------- DG*5.3*1075 Release Notes DG_5_3_1075_RN.PDF User Manual Version 5.3 - Registration Menu PIMS_REG_UM.PDF PIMS Version 5.3 Technical Manual PIMS_TM.PDF Changes to the Income Verification Match (IVM) Technical Manual are described in Informational Patch IVM*2.0*206. Patch Installation: ------------------ Pre/Post Installation Overview: ------------------------------- The pre-install routine PRE^DG531075P removes a non-SAC compliant trigger which is replaced by a corrected version in the build. The post-install routine POST^DG531075P does the following: 1. Modifies the Server Host (endpoint) and Port Number for the DG EE SUMMARY SERVER web server. 2. Creates an instance of the DG PATCH DG*5.3*1075 ACTIVE timestamp parameter, defined in the PARAMETER DEFINITION (#8989.51) file and stored in the PARAMETER (#8989.5) file, and sets it to a value of "AUG 03, 2022@1700". 3. Adds eligibility code HUD-VASH to the ELIGIBILITY CODE (#8) file. The post-install associates the code to the corresponding code in the MAS ELIGIBILITY CODE (#8.1) file. 4. Recompiles all input templates associated with the ELIGIBILITY (#.01) field of the PATIENT ELIGIBILITIES (#2.0361) subfile of the PATIENT (#2) file. The routine is automatically deleted once the installation completes. Pre-Installation Instructions: ------------------------------ This patch may be installed with users on the system although it is recommended that it be installed during non-peak hours to minimize potential disruption to users. This patch should take less than 5 minutes to install. The following options should be disabled during installation. Register a Patient [DG REGISTER PATIENT] View Registration Data [DG REGISTRATION VIEW] Load/Edit Patient Data [DG LOAD PATIENT DATA] Eligibility Verification [DG ELIGIBILITY VERIFICATION] Patient Inquiry [DG PATIENT INQUIRY] Preregister a Patient [DGPRE PRE-REGISTER OPTION] Enter a Request/Notification [FBCH ENTER REQUEST] Edit Inconsistent Data for a Patient [DG CONSISTENCY PATIENT] Installation Instructions: -------------------------- 1. Choose the PackMan message containing this build. Then select the INSTALL/CHECK MESSAGE PackMan option to load the build. 2. From the Kernel Installation and Distribution System Menu, select the Installation Menu. From this menu, A. Select the Verify Checksums in Transport Global option to confirm the integrity of the routines that are in the transport global. When prompted for the INSTALL NAME, enter the patch name (ex. DG*5.3*1075). B. Select the Backup a Transport Global option to create a backup message. You must use this option and specify what to backup; the entire Build or just Routines. The backup message can be used to restore the routines and components of the build to the pre-patch condition. i. At the Installation option menu, select Backup a Transport Global. ii. At the Select INSTALL NAME prompt, enter your build DG*5.3*1075. iii. When prompted for the following, enter "R" for Routines or "B" for Build. Select one of the following: B Build (including Routines) R Routines Only Enter response: Build iv. When prompted "Do you wish to secure this message? NO//", press and take the default response of "NO". v. When prompted with, "Send mail to: Last name, First Name", press to take default recipient. Add any additional recipients. vi. When prompted with "Select basket to send to: IN//", press and take the default IN mailbox or select a different mailbox. C. You may also elect to use the following options: i. Print Transport Global - This option will allow you to view the components of the KIDS build. ii. Compare Transport Global to Current System - This option will allow you to view all changes that will be made when this patch is installed. It compares all of the components of this patch, such as routines, DDs, templates, etc. D. Select the Install Package(s) option and choose the patch to install. i. For a Non-Production system ONLY, the following prompt is displayed: 1 - Pre-Prod, 2 - SQA, 3 - Development Enter the type of system into which this patch is being installed: Enter 1 if patch is being installed in a Pre-Production (Mirror) system. Enter 2 if patch is being installed in a Software Quality Assurance system. Enter 3 if patch is being installed in a Development system. NOTE: The SQA and DEVELOPMENT environments are not applicable to VistA facilities. ii. If prompted 'Want KIDS to Rebuild Menu Trees Upon Completion of Install? NO//', answer NO. iii. When prompted 'Want KIDS to INHIBIT LOGONs during the install? NO//', answer NO. iv. When prompted 'Want to DISABLE Scheduled Options, Menu Options, and Protocols? NO//', answer YES. a. When prompted 'Enter options you wish to mark as 'Out Of Order':', select the following options: Option Name Menu Text ----------- --------- Register a Patient [DG REGISTER PATIENT] View Registration Data [DG REGISTRATION VIEW] Load/Edit Patient Data [DG LOAD PATIENT DATA] Eligibility Verification [DG ELIGIBILITY VERIFICATION] Patient Inquiry [DG PATIENT INQUIRY] Preregister a Patient [DGPRE PRE-REGISTER OPTION] Enter a Request/Notification [FBCH ENTER REQUEST] Edit Inconsistent Data for a Patient [DG CONSISTENCY PATIENT] Press the Enter key when you are done selecting options. b. When prompted 'Enter protocols you wish to mark as 'Out Of Order':', press the Enter key. c. When prompted 'Delay Install (Minutes): (0 - 60): 0//', answer 0. Post-Installation Instructions: ------------------------------- N/A Back-Out/Roll Back Plan: ------------------------ In the event a site/patch installer determines that this patch should be backed out, the site/patch installer should submit a YOUR IT Services ticket with the Enterprise Service Desk (ESD) for assistance with the procedure. Any issues would need to be evaluated to determine if: a back-out of the software is appropriate; a new patch is needed; or if data requires correction or restoration. During installation, if the option "Backup a Transport Global" was run as directed, then the entire Build or Routines (depending on which option was chosen) will have the ability to be restored from the "backup" MailMan message that was generated. Routine Information: ==================== The second line of each of these routines now looks like: ;;5.3;Registration;**[Patch List]**;Jan 26 2022;Build 13 The checksums below are new checksums, and can be checked with CHECK1^XTSUMBLD. Routine Name: DG531075P Before: n/a After: B42167665 **1075** Routine Name: DGLOCK1 Before: B22804317 After: B26442061 **121,314,1014,1061,1075** Routine Name: DGREG Before:B217762062 After:B219712676 **1,32,108,147,149,182,245,250, 513,425,533,574,563,624,658, 864,886,915,926,1024,993,1040, 1027,1045,1067,1075** Routine Name: DGRP3 Before: B25723602 After: B25969975 **997,1067,1075** Routine Name: DGRP6EF Before: B33525270 After: B51641588 **689,659,737,688,909,1014,1018, 1075** Routine Name: DGRP7 Before: B26302611 After: B28677125 **528,653,688,842,952,977,1016, 1061,1075** Routine Name: DGRP7CP Before: B20220559 After: B22878393 **842,1075** Routine Name: DGRPCE Before: B38905978 After: B41418216 **121,122,175,297,342,451,626, 689,653,754,797,855,952,1075** Routine Name: DGRPCE1 Before: B69985020 After: B70232261 **108,226,470,454,489,505,522, 451,632,689,657,688,804,754, 797,855,903,952,1075** Routine list of preceding patches: 1018, 1061, 1067 ============================================================================= User Information: Entered By : Date Entered : JAN 12, 2022 Completed By: Date Completed: JUL 05, 2022 Released By : Date Released : JUL 05, 2022 ============================================================================= Packman Mail Message: ===================== $END TXT