============================================================================= Run Date: SEP 03, 2025 Designation: DG*5.3*1145 Package : DG - REGISTRATION Priority: EMERGENCY Version : 5.3 SEQ #1006 Status: Released Compliance Date: SEP 09, 2025 ============================================================================= Subject: CONFIDENTIAL PHONE NUMBER UPDATE Category: - Data Dictionary - Enhancement (Emergency) Description: ============ ************************************************************************** IMPORTANT NOTE: DG*5.3*1145 is an emergency patch. This patch must be installed at all VistA sites by close of business on Tuesday, September 9, 2025. ************************************************************************** Veterans Health Information Systems and Technology Architecture (VistA) Registration, Eligibility & Enrollment (REE) patch DG*5.3*1145 is being released as a VistA sustainment patch to support the Veterans Health Administration (VHA) Enrollment System (VES). Patch DG*5.3*1145 is being released with IVM*2.0*217 in Host File DG_53_P1145.KID. Patch DG*5.3*1145 adds a new cross-reference trigger to the existing CONFIDENTIAL PHONE NUMBER field (#.1315) of the PATIENT file (#2). This new cross-reference will trigger an update to the new CONFIDENTIAL PHONE CHG DT/TM field (#.14121) of the PATIENT file (#2) with the data type of date. Patch DG*5.3*1145 adds a cross-reference trigger to the new CONFIDENTIAL PHONE CHG DT/TM field (#.14121) of the PATIENT file (#2). This new cross-reference will trigger an update to the new CONFIDENTIAL PHONE CHG SOURCE field (#.14122) of the PATIENT file (#2) with five set values: 'HEC' FOR HEC; 'VAMC' FOR VAMC; 'HBSC' FOR HBSC; 'VOA' FOR VOA; 'VET360' FOR VET360; Patch DG*5.3*1145 adds a cross-reference trigger to the new CONFIDENTIAL PHONE CHG SOURCE field (#.14122) of the PATIENT file (#2). This new cross-reference will trigger an update to the new CONFIDENTIAL PHONE CHG SITE field (#.14123) of the PATIENT file (#2) with a pointer to the INSTITUTION file (#4). Listing of Updates: =================== This patch makes the following enhancements to VistA REE: 1. Adds a new cross-reference trigger to the existing CONFIDENTIAL PHONE NUMBER field (#.1315) in the PATIENT file (#2). The new cross-reference triggers the CONFIDENTIAL PHONE CHG DT/TM field (#.14121). DATA NAME GLOBAL DATA ELEMENT TITLE LOCATION TYPE -------------------------------------------------------------------------- 2,.1315 CONFIDENTIAL PHONE NUMBER .13;15 FREE TEXT INPUT TRANSFORM: K:$L(X)>20 X I $D(X) K:'(X?4.20N!(X?4.N1"X "1.N)) X I $D(X) S DFN=DA D CAD^DGLOCK3 MAXIMUM LENGTH: 20 LAST EDITED: JUL 25, 2025 HELP-PROMPT: Enter the telephone number of the confidential address at which the patient is located [4-20 characters]. "X" and extension number allowed. DESCRIPTION: If the 'Confidential Address Active' prompt is answered YES, enter the telephone number of the confidential address at which the patient is located [4-20 characters]. The number must start with at least 4 numbers and may include an "X" followed by at least 1 number for the extension. NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER CROSS-REFERENCE: ^^TRIGGER^2^.14119 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$ S($D(^DPT(D0,.141)):^(.141),1:"") S X=$P(Y (1),U,19),X=X S DIU=X K Y S X=DIV S X=$G(D UZ) S DIH=$G(^DPT(DIV(0),.141)),DIV=X S $P (^(.141),U,19)=DIV,DIH=2,DIG=.14119 D ^DIC R 2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$ S($D(^DPT(D0,.141)):^(.141),1:"") S X=$P(Y (1),U,19),X=X S DIU=X K Y S X=DIV S X=$G(D UZ) S DIH=$G(^DPT(DIV(0),.141)),DIV=X S $P (^(.141),U,19)=DIV,DIH=2,DIG=.14119 D ^DIC R CREATE VALUE)= S X=$G(DUZ) DELETE VALUE)= S X=$G(DUZ) FIELD)= CONFIDENTIAL PHONE CHANGE USER This cross-reference will record the user who has just changed the patient's confidential phone number. CROSS-REFERENCE: ^^TRIGGER^2^.14121 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$ S($D(^DPT(D0,.141)):^(.141),1:"") S X=$P(Y (1),U,21),X=X S DIU=X K Y S X=DIV S X=$$NO W^XLFDT() S DIH=$G(^DPT(DIV(0),.141)),DIV= X S $P(^(.141),U,21)=DIV,DIH=2,DIG=.14121 D ^DICR 2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$ S($D(^DPT(D0,.141)):^(.141),1:"") S X=$P(Y (1),U,21),X=X S DIU=X K Y S X=DIV S X=$$NO W^XLFDT() S DIH=$G(^DPT(DIV(0),.141)),DIV= X S $P(^(.141),U,21)=DIV,DIH=2,DIG=.14121 D ^DICR CREATE VALUE)= S X=$$NOW^XLFDT() DELETE VALUE)= S X=$$NOW^XLFDT() FIELD)= CONFIDENTIAL PHONE CHG DT/TM This cross reference will update the CONFIDENTIAL PHONE CHANGE DT/TM with the current date and time stamp each time this field is changed. RECORD INDEX: ADTTM2 (#596) MUMPS ACTION Short Descr: CONFIDENTIAL ADDRESS Cross-Reference Description: This cross-reference will update the CONFIDENTIAL ADDR CHANGE DT/TM field when the confidential address data changes for a patient. Set Logic: D CONF^DGDDDTTM Kill Logic: D CONF^DGDDDTTM X(1): CONFIDENTIAL STREET [LINE 1] (2,.1411) (forwards) X(2): CONFIDENTIAL STREET [LINE 2] (2,.1412) (forwards) X(3): CONFIDENTIAL STREET [LINE 3] (2,.1413) (forwards) X(4): CONFIDENTIAL ADDRESS CITY (2,.1414) (forwards) X(5): CONFIDENTIAL ADDRESS STATE (2,.1415) (forwards) X(6): CONFIDENTIAL ADDRESS ZIP CODE (2,.1416) (forwards) X(7): CONFIDENTIAL START DATE (2,.1417) (forwards) X(8): CONFIDENTIAL END DATE (2,.1418) (forwards) X(9): CONFIDENTIAL ADDRESS ACTIVE? (2,.14105) (forwards) X(10): CONFIDENTIAL ADDR PROVINCE (2,.14114) (forwards) X(11): CONFIDENTIAL ADDR POSTAL CODE (2,.14115) (forwards) X(12): CONFIDENTIAL ADDR COUNTRY (2,.14116) (forwards) X(13): CONFIDENTIAL ADDRESS COUNTY (2,.14111) (forwards) X(14): CONFIDENTIAL PHONE NUMBER (2,.1315) (forwards) FIELD INDEX: ADGFMD1315 (#897) MUMPS I ACTION Short Descr: This x-ref calls the DG FIELD MONITOR event point. Description: This cross reference activates the DG FIELD MONITOR event point. Applications that wish to monitor edit activity related to this field may subscribe to that event point and take action as indicated by the changes that occur. Refer to the DG FIELD MONITOR protocol for a description of the information available at the time of the event. Set Logic: D FC^DGFCPROT(.DA,2,.1315,"SET",$H,$G(DUZ) ,.X,.X1,.X2,$G(XQY0)) Q Kill Logic: D FC^DGFCPROT(.DA,2,.1315,"KILL",$H,$G(DUZ ),.X,.X1,.X2,$G(XQY0)) Q X(1): CONFIDENTIAL PHONE NUMBER (2,.1315) (forwards) 2. Adds a new CONFIDENTIAL PHONE CHG DT/TM field (#.14121) in the PATIENT file (#2). Sets change date and time. The cross-reference triggers the new CONFIDENTIAL PHONE CHG SOURCE field (#.14122) in the PATIENT file (#2). DATA NAME GLOBAL DATA ELEMENT TITLE LOCATION TYPE -------------------------------------------------------------------------- 2,.14121 CONFIDENTIAL PHONE CHG DT/TM .141;21 DATE INPUT TRANSFORM: S %DT="ESTX" D ^%DT S X=Y K:Y<1 X LAST EDITED: JUN 11, 2025 HELP-PROMPT: Please enter the date and time the Confidential phone number was changed. DESCRIPTION: This field will contain the date and time of the last Confidential phone number update. NOTES: TRIGGERED by the CONFIDENTIAL PHONE NUMBER field of the PATIENT File CROSS-REFERENCE: ^^TRIGGER^2^.14122 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$ S($D(^DPT(D0,.141)):^(.141),1:"") S X=$P(Y (1),U,22),X=X S DIU=X K Y S X=DIV S X="VAM C" S DIH=$G(^DPT(DIV(0),.141)),DIV=X S $P( ^(.141),U,22)=DIV,DIH=2,DIG=.14122 D ^DICR 2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$ S($D(^DPT(D0,.141)):^(.141),1:"") S X=$P(Y (1),U,22),X=X S DIU=X K Y S X=DIV S X="VAM C" S DIH=$G(^DPT(DIV(0),.141)),DIV=X S $P( ^(.141),U,22)=DIV,DIH=2,DIG=.14122 D ^DICR CREATE VALUE)= S X="VAMC" DELETE VALUE)= S X="VAMC" FIELD)= CONFIDENTIAL PHONE CHG SOURCE This cross reference will update the CONFIDENTIAL PHONE CHG SOURCE with the source of the last Confidential phone number change. 3. Adds a new CONFIDENTIAL PHONE CHG SOURCE field (#.14122) in the PATIENT file (#2) with five source values. Sets source. The cross-reference triggers the new CONFIDENTIAL PHONE CHG SITE field (#.14123) in the PATIENT file (#2). DATA NAME GLOBAL DATA ELEMENT TITLE LOCATION TYPE -------------------------------------------------------------------------- 2,.14122 CONFIDENTIAL PHONE CHG SOURCE .141;22 SET 'HEC' FOR HEC; 'VAMC' FOR VAMC; 'HBSC' FOR HBSC; 'VOA' FOR VOA; 'VET360' FOR VET360; LAST EDITED: JUN 11, 2025 HELP-PROMPT: Please enter the source of the Confidential phone number change. DESCRIPTION: This field will hold the source of the last Confidential phone number change. NOTES: TRIGGERED by the CONFIDENTIAL PHONE CHG DT/TM field of the PATIENT File CROSS-REFERENCE: ^^TRIGGER^2^.14123 1)= X ^DD(2,.14122,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.141)):^(.141),1:"") S X=$P(Y(1),U,23),X=X S DIU=X K Y S X=DIV S X=$$GETSITE^DGMTU4($G(DUZ)) I X S X=$O(^DI C(4,"D",X,"")) X ^DD(2,.14122,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)_$P($G(^DD(2,.14122,0)),U, 3) S X=$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59 ))="VAMC" 1.4)= S DIH=$G(^DPT(DIV(0),.141)),DIV=X S $P(^(.141),U,23)=DIV,DIH=2,DIG=.14123 D ^D ICR 2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$P($G(^DD(2,.14122,0)),U,3) S X=$P($P(Y(1),$C(59)_X_":",2),$C(59))="V AMC" I X S X=DIV S Y(1)=$S($D(^DPT(D0,.141 )):^(.141),1:"") S X=$P(Y(1),U,23),X=X S D IU=X K Y S X="" X ^DD(2,.14122,1,1,2.4) 2.4)= S DIH=$G(^DPT(DIV(0),.141)),DIV=X S $P(^(.141),U,23)=DIV,DIH=2,DIG=.14123 D ^D ICR CREATE CONDITION)= CONFIDENTIAL PHONE CHG SOURCE="VAMC" CREATE VALUE)= S X=$$GETSITE^DGMTU4($G(DUZ )) I X S X=$O(^DIC(4,"D",X,"")) DELETE CONDITION)= OLD CONFIDENTIAL PHONE CHG SOU="VAMC" DELETE VALUE)= @ FIELD)= CONFIDENTIAL PHONE CHG SITE This cross-reference will trigger the population of the CONFIDENTIAL PHONE CHG SITE field with the appropriate station number if the CONFIDENTIAL PHONE CHG SOURCE equals "VAMC". The CONFIDENTIAL PHONE CHG SITE field should be overwritten for cases where the site would be incorrect (i.e. uploading Z05 message). 4. Adds a new CONFIDENTIAL PHONE CHG SITE field (#.14123) in the PATIENT file (#2) with pointer to the INSTITUTION file (#4). DATA NAME GLOBAL DATA ELEMENT TITLE LOCATION TYPE -------------------------------------------------------------------------- 2,.14123 CONFIDENTIAL PHONE CHG SITE .141;23 POINTER TO INSTITUTION FILE (#4) LAST EDITED: JUN 10, 2025 HELP-PROMPT: Please enter the site that last changed this patient's Confidential phone number. DESCRIPTION: This field will hold the site that last changed this patient's Confidential phone number. This field is only populated when the CONFIDENTIAL PHONE CHG SOURCE is listed as VAMC. NOTES: TRIGGERED by the CONFIDENTIAL PHONE CHG SOURCE field of the PATIENT File FILES POINTED TO FIELDS INSTITUTION (#4) CONFIDENTIAL PHONE CHG SITE (#.14123) EHRM Impact Statement: ---------------------- This patch should have no EHRM impact, and can be installed at all sites, including EHRM converted sites. Patch Components: ----------------- Files & Fields Associated: File Name (Number) Field Name (Number) New/Modified/Deleted ------------------ ------------------- -------------------- PATIENT (#2) CONFIDENTIAL PHONE Modified NUMBER (#.1315) CONFIDENTIAL PHONE New CHG DT/TM (#.14121) CONFIDENTIAL PHONE New CHG SOURCE (#.14122) CONFIDENTIAL PHONE New CHG SITE (#.14123) 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 ------------- ---- ------------------ -------------------- N/A Remote Procedures Associated: Remote Procedure Name New/Modified/Deleted --------------------- -------------------- N/A Parameter Definitions Associated: Parameter Name New/Modified/Deleted -------------- -------------------- N/A Additional Information: ----------------------- N/A New Service Requests (NSRs): N/A Patient Safety Issues (PSIs): N/A Defect Tracking System Ticket(s) & Overview: -------------------------------------------- VES-59239: In VES, if a user updates the Confidential Phone Number only, the Confidential Phone is not being updated in VistA. Problem: ------- Confidential Phone Number is not being updated in VistA from VES. Resolution: ---------- Modify the CONFIDENTIAL PHONE NUMBER field (#.1315) in the PATIENT file (#2) with a new trigger and create new CONFIDENTIAL PHONE CHG DT/TM field (#.14121), CONFIDENTIAL PHONE CHG SOURCE field (#.14122) and CONFIDENTIAL PHONE CHG SITE field (#.14123) in the PATIENT file (#2). Test Sites: ----------- VA Pittsburgh Healthcare System (PA) Durham VA Medical Center (NC) Test Sites - SNOW Change Order #: --------------------------------- VA Pittsburgh Healthcare System (PA) - CHG0640711 Durham VA Medical Center (NC) - CHG0641973 Software and Documentation Retrieval Instructions: -------------------------------------------------- The software for this patch is being released using a host file. The host file is available at the following location: /srv/vista/patches/SOFTWARE/DG_53_P1145.KID 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 --------------------------------------------------------------------- Changes to the Income Verification Match (IVM) Technical Manual are described in Patch IVM*2.0*217. Patch Installation: ------------------- Pre/Post Installation Overview: N/A Pre-Installation Instructions: The IVM BACKGROUND JOB [IVM BACKGROUND JOB] should be unscheduled. Use the Schedule/Unschedule Options [XUTM SCHEDULE] option on the TaskMan Management [XUTM MGR] menu. Note the currently scheduled date/time. The HL7 incoming/outgoing filers should be stopped. Stop All Messaging Background Processes by using the [HL STOP ALL] option on the Filer and Link Management Options [HL MENU FILER LINK MGT] menu on the HL7 Main Menu [HL MAIN MENU]. 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: Menu Text Option Name --------- ----------- Register a Patient [DG REGISTER PATIENT] Load/Edit Patient Data [DG LOAD PATIENT DATA] View Registration Data [DG REGISTRATION VIEW] Eligibility Verification [DG ELIGIBILITY VERIFICATION] Enter a Request/Notification [FBCH ENTER REQUEST] Preregistration Menu [DGPRE PRE-REGISTER OPTION] Installation Instructions: -------------------------- 1. Use the Load a Distribution option contained on the Kernel Installation and Distribution System Menu to load the Host file. When prompted to "Enter a Host File:", enter /srv/vista/patches/SOFTWARE/DG_53_P1145.KID 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 or build name. (ex. ) NOTE: Using will not bring up a Multi-Package build even if it was loaded immediately before this step. It will only bring up the last patch in the build. 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 . iii. At the Subject prompt after the subject name, press Enter to accept the default. iv. 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 Backup Type: B// Press Enter to select Build v. When prompted for Enter a Host File:, enter the path and name for the host file backup file. If you don't specify a directory, the default directory of HFS Primary Directory will be used. 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. If prompted 'Want KIDS to Rebuild Menu Trees Upon Completion of Install? NO//', answer NO. ii. When prompted 'Want KIDS to INHIBIT LOGONs during the install? NO//', answer NO. iii. 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 option: Menu Text Option Name --------- ----------- Register a Patient [DG REGISTER PATIENT] Load/Edit Patient Data [DG LOAD PATIENT DATA] View Registration Data [DG REGISTRATION VIEW] Eligibility Verification [DG ELIGIBILITY VERIFICATION] Enter a Request/Notification [FBCH ENTER REQUEST] Preregistration Menu [DGPRE PRE-REGISTER OPTION] 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: ------------------------------- 1. The HL7 incoming/outgoing filers should be restarted. Use the Restart/Start All Links and Filers [HL TASK RESTART] option on the Filer and Link Management Options [HL MENU FILER LINK MGT] menu on the HL7 Main Menu [HL MAIN MENU]. 2. The IVM BACKGROUND JOB [IVM BACKGROUND JOB] should be rescheduled. Use the Schedule/Unschedule Options [XUTM SCHEDULE] option on the TaskMan Management [XUTM MGR] menu and enter the scheduled date/time that was noted in the Pre-Installation instruction section above. 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 [XPD BACKUP] was run as directed, either the entire build or routines will be available for restoration should the need arise. Regardless of the type of backup chosen, either the entire build including routines and build components (Data Dictionary, options, protocols, templates, etc.) or routines only, the backup results will be available in a MailMan message with a subject similar to the following: "Subject: Backup of DG*5.3*1145, IVM*2.0*217 on Jul 8, 2025." For multi-builds, if the full build was backed up, the backup will be available in the Host File specified during the backup process. Routine Information: ==================== No routines included. ============================================================================= User Information: Entered By : Date Entered : APR 24, 2025 Completed By: Date Completed: SEP 02, 2025 Released By : Date Released : SEP 03, 2025 ============================================================================= Packman Mail Message: ===================== No routines included