============================================================================= Run Date: APR 09, 2026 Designation: DG*5.3*1143 Package : DG - REGISTRATION Priority: Mandatory Version : 5.3 SEQ #1016 Status: Released Compliance Date: APR 23, 2026 ============================================================================= Associated patches: (v)DG*5.3*892 <<= must be installed BEFORE `DG*5.3*1143' (v)DG*5.3*1052 <<= must be installed BEFORE `DG*5.3*1143' (v)DG*5.3*1111 <<= must be installed BEFORE `DG*5.3*1143' (v)DG*5.3*1127 <<= must be installed BEFORE `DG*5.3*1143' (v)DG*5.3*1149 <<= must be installed BEFORE `DG*5.3*1143' Subject: REALTIME ENTERPRISE CONTACT UPDATES Category: - Enhancement (Mandatory) - Routine - Data Dictionary - Other Description: ============ ************************************************************** When the patch is installed, the Real-Time Update functionality is not activated. The real-time functionality will be activated in a phased approach which will be communicated separately to each site. ************************************************************** Veterans Health Information Systems and Technology Architecture (VistA) Registration, Eligibility & Enrollment (REE) patch DG*5.3*1143 is being released to support enhancements for the Veteran Experience Services Enrollment and Eligibility (VESEE) program. Patch DG*5.3*1143 is also being released in support of the Veterans Health Administration (VHA) Enrollment System (VES) Contact Broker Microservice release. Patch DG*5.3*1143 is being released with IVM*2.0*219 and PSO*7.0*819 in Host File DG_53_P1143.KID. Patch DG*5.3*1143 enhances VistA to communicate all patient contact information updates to VES in real time. Patient contact information consists of the patient address fields, phone numbers, and email address. In all instances where this contact data is updated in VistA the updates are sent directly to VES via the web service DG RTAU CONTACTINFO on the server DG RTAU SERVER which are installed as part of this patch. The updates are verified by the VES and if any fields violate data format rules, the user is given the opportunity to correct the data. Once the data is successfully received by VES, the data is filed in the patient record in VistA. Patch DG*5.3*1143 adds the ENABLE REALTIME ADDRESS UPDATE field (#1403) to the MAS PARAMETERS file (#43). This field is used to indicate if the Real Time Address (RTA) update service is enabled or disabled. If enabled, all patient contact updates are sent to VES in real time via the web service. If disabled, these updates are saved to the database locally and queued for transmission via the Health Level 7 (HL7) batch process as per the original VistA processing. In this document, this will be referred to as the RTA Switch. The RTA Switch is set to disabled when the patch is installed. Patch DG*5.3*1143 modifies the data input validation criteria for patient phone numbers and the email address to conform with the data requirements of VES. Patch DG*5.3*1143 modifies the PATIENT DEMOGRAPHIC DATA, SCREEN <1> screen to make data group <4> which contains the cell phone and email address, read-only. Patch DG*5.3*1143 modifies the ADDITIONAL PATIENT DEMOGRAPHIC DATA, SCREEN <1.1> screen: - A new data group, data group <5> is added for entering the patient cell phone and email address. - If the RTA Switch is ON, new Save and Discard options are displayed on the bottom of the screen when the user has made edits to the data. - If the user selects Discard, all the changes are removed and the original data are displayed on the screen. - If the user selects Save, the changes to the patient data are sent to VES via the web service. The data is validated by VES. If any data fields fail validation, one or more informational messages are displayed to indicate which fields need correcting and the user may then re-edit the data. Once a successful response is received, the data is then saved into the VistA database. All other options or places in VistA that allow the user to update the patient contact information, or all Integration Agreements (IAs) where external packages are allowed to update contact data will also send the updates to VES via the web service if the RTA Switch is ON. In these cases, the user is given the opportunity to correct any data validation errors prior to saving the data. ************************************************************************* NOTE: When running the ^XINDEX routine, sites will encounter an XINDEX Error after the installation of this patch. Routine DGRTAUWS uses HealtheVet Web Services Client (HWSC). It calls a Cache Class to parse the eXtensible Markup Language (XML) document returned by the web service call. A Standards and Conventions (SAC) Exemption (202509051055-06) was approved on 09/05/2025. ************************************************************************* The errors reported by XINDEX are: ***** ERRORS & WARNINGS IN DGRTAUWS ***** EN+28 S - Non-standard $Z special variable used. SENDREQ+4 W - Vendor specific code is restricted.] SENDREQ+4 F - Unrecognized argument in SET command. SENDREQ+4 F - UNDEFINED COMMAND (rest of line not checked). SENDREQ+5 W - Vendor specific code is restricted.] SENDREQ+6 W - Vendor specific code is restricted.] SENDREQ+10 W - Vendor specific code is restricted.] SENDREQ+12 W - Vendor specific code is restricted.] SENDREQ+12 S - Access to SSVN's or $SYSTEM restricted to Kernel. SENDREQ+13 W - Vendor specific code is restricted.] SENDREQ+14 W - Vendor specific code is restricted.] RETRY+5 W - Vendor specific code is restricted.] RETRY+5 W - Vendor specific code is restricted.] RETRY+9 W - Vendor specific code is restricted.] ERR+1 S - Non-standard $Z special variable used. ************************************************************************* Listing of Updates: =================== This patch makes the following enhancements to VistA REE: ********************************************************************* PART 1: Database Updates ********************************************************************* 1. A new parameter is added on the EVENT^IVMPLOG trigger for all the contact information fields. When a field is changed, this trigger is intended to place the patient record on the HL7 nightly batch job queue for transmission to VES. The added parameter passed to the EVENT^IVMPLOG routine will engage logic that will check the ENABLE REALTIME ADDRESS UPDATE field (#1403) in the MAS PARAMETERS file (#43). If that parameter is set to YES, the patient record will not be placed on the nightly batch job queue since the record will be sent via the Real-Time Address Update web service. If the MAS PARAMETER is set to NO, real-time address updates are not active, therefore the patient record is placed on the nightly batch queue. The fields listed below from the PATIENT file (#2), have the following modification made to the EVENT^IVMPLOG cross-reference trigger: Changed from: 1)= D EVENT^IVMPLOG(DA) 2)= D EVENT^IVMPLOG(DA) Changed to: 1)= D EVENT^IVMPLOG(DA,1) 2)= D EVENT^IVMPLOG(DA,1) Field list: ----------- STREET ADDRESS [LINE 1] (#.111) STREET ADDRESS [LINE 2] (#.112) STREET ADDRESS [LINE 3] (#.113) CITY (#.114) STATE (#.115) ZIP+4 (#.1112) RESIDENTIAL ADDRESS [LINE 1] (#.1151) RESIDENTIAL ADDRESS [LINE 2] (#.1152) RESIDENTIAL ADDRESS [LINE 3] (#.1153) RESIDENTIAL CITY (#.1154) RESIDENTIAL STATE (#.1155) RESIDENTIAL ZIP+4 (#.1156) RESIDENTIAL COUNTY (#.1157) COUNTY (#.117) COUNTRY (#.1173) ADDRESS CHANGE DT/TM (#.118) BAD ADDRESS INDICATOR (#.121) TEMPORARY ADDRESS COUNTY (#.12111) TEMPORARY ADDRESS CHANGE DT/TM (#.12113) CONFIDENTIAL ADDRESS COUNTY (#.14111) CONFIDENTIAL ADDR CHANGE DT/TM (#.14112) PHONE NUMBER [RESIDENCE] (#.131) PHONE NUMBER [WORK] (#.132) TEMPORARY PHONE NUMBER (#.1219) 2. The input transform, help text and description fields for the PATIENT file (#2) fields listed and shown below are modified to conform to field validation rules of ES. PHONE NUMBER [CELLULAR] field (#.134), PHONE NUMBER [RESIDENCE] field (#.131), PHONE NUMBER [WORK] field (#.132), TEMPORARY PHONE NUMBER field (#.1219), CONFIDENTIAL PHONE NUMBER field (#.1315) and EMAIL ADDRESS field (#.133) in the PATIENT file (#2). DATA NAME GLOBAL DATA ELEMENT TITLE LOCATION TYPE ------------------------------------------------------------------------- 2,.134 PHONE NUMBER [CELLULAR] .13;4 FREE TEXT (audited) Cell Phone INPUT TRANSFORM: S X=$TR(X,"x","X") K:$L(X)>17 X I $D(X) K :'(X?10N!(X?10N1"X"1.6N)) X MAXIMUM LENGTH: 17 LAST EDITED: SEP 24, 2025 HELP-PROMPT: Answer must be 10 numbers in length with an optional 'X' and 1-6 digit extension number allowed. DESCRIPTION: Enter the telephone number for the applicant's mobile phone. The number must be 10 numbers and may include an 'X' followed by 1-6 numbers for the extension. AUDIT: YES, ALWAYS NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER CROSS-REFERENCE: ^^TRIGGER^2^.139 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$ S($D(^DPT(D0,.13)):^(.13),1:"") S X=$P(Y(1 ),U,9),X=X S DIU=X K Y S X=DIV S X=$$NOW^X LFDT() S DIH=$G(^DPT(DIV(0),.13)),DIV=X S $P(^(.13),U,9)=DIV,DIH=2,DIG=.139 D ^DICR 2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$ S($D(^DPT(D0,.13)):^(.13),1:"") S X=$P(Y(1 ),U,9),X=X S DIU=X K Y S X=DIV S X=$$NOW^X LFDT() S DIH=$G(^DPT(DIV(0),.13)),DIV=X S $P(^(.13),U,9)=DIV,DIH=2,DIG=.139 D ^DICR CREATE VALUE)= S X=$$NOW^XLFDT() DELETE VALUE)= S X=$$NOW^XLFDT() FIELD)= #.139 This cross reference will update the CELLULAR NUMBER CHANGE DT/TM field with current date and time stamp each time this field is changed. RECORD INDEX: AXENR13 (#705) MUMPS R ACTION Short Descr: TRIGGER A MESSAGE FOR ANY CHANGE TO THESE FIELDS Description: This cross-reference will trigger a message to the HEC anytime one of the related fields is changed. Set Logic: D EVENT^IVMPLOG(DA,1) Kill Logic: D EVENT^IVMPLOG(DA,1) X(1): EMAIL ADDRESS (2,.133) (forwards) X(2): PHONE NUMBER [CELLULAR] (2,.134) (forwards) X(3): PAGER NUMBER (2,.135) (forwards) FIELD INDEX: AVAFC134 (#823) 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,.134,"SET",$H,$G(DUZ), .X,.X1,.X2,$G(XQY0)) Q Kill Logic: D FC^DGFCPROT(.DA,2,.134,"KILL",$H,$G(DUZ) ,.X,.X1,.X2,$G(XQY0)) Q X(1): PHONE NUMBER [CELLULAR] (2,.134) (forwards) DATA NAME GLOBAL DATA ELEMENT TITLE LOCATION TYPE -------------------------------------------------------------------------- 2,.131 PHONE NUMBER [RESIDENCE] .13;1 FREE TEXT (audited) INPUT TRANSFORM: S X=$TR(X,"x","X") K:$L(X)>17 X I $D(X) K: '(X?10N!(X?10N1"X"1.6N)) X MAXIMUM LENGTH: 17 LAST EDITED: SEP 25, 2025 HELP-PROMPT: Answer must be 10 numbers in length with an optional 'X' and 1-6 digit extension number allowed. DESCRIPTION: Enter the telephone number [10 numbers] for this applicant's place of residence. The number must be 10 numbers and may include an 'X' followed by 1-6 numbers for the extension. AUDIT: YES, ALWAYS GROUP: DEMOG NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER CROSS-REFERENCE: 2^AENR131^MUMPS 1)= D EVENT^IVMPLOG(DA,1) 2)= D EVENT^IVMPLOG(DA,1) 3)= DO NOT DELETE This cross-reference is used to notify HEC of changes that may affect enrollment. CROSS-REFERENCE: 2^F 1)= S ^DPT("F",$E(X,1,30),DA)="" 2)= K ^DPT("F",$E(X,1,30),DA) This cross reference will update the PHONE NUMBER CHANGE DT/TM field with current date and time stamp each time this field is changed. CROSS-REFERENCE: ^^TRIGGER^2^.1321 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$ S($D(^DPT(D0,.132)):^(.132),1:"") S X=$P(Y (1),U,1),X=X S DIU=X K Y S X=DIV S X=$$NOW ^XLFDT() S DIH=$G(^DPT(DIV(0),.132)),DIV=X S $P(^(.132),U,1)=DIV,DIH=2,DIG=.1321 D ^ DICR 2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$ S($D(^DPT(D0,.132)):^(.132),1:"") S X=$P(Y (1),U,1),X=X S DIU=X K Y S X=DIV S X=$$NOW ^XLFDT() S DIH=$G(^DPT(DIV(0),.132)),DIV=X S $P(^(.132),U,1)=DIV,DIH=2,DIG=.1321 D ^ DICR CREATE VALUE)= S X=$$NOW^XLFDT() DELETE VALUE)= S X=$$NOW^XLFDT() FIELD)= RESIDENCE NUMBER CHANGE DT/TM This cross reference will update the RESIDENCE NUMBER CHANGE DT/TM field with the current date and time stamp each time this field is changed. CROSS-REFERENCE: 2^IVM131^MUMPS 1)= S IVMX=X,X="IVMPXFR" X ^%ZOSF("TEST") D:$T DPT^IVMPXFR S X=IVMX K IVMX 2)= S IVMX=X,X="IVMPXFR" X ^%ZOSF("TEST") D:$T DPT^IVMPXFR S X=IVMX K IVMX This cross-reference will check the IVM PATIENT file to see if a change to this field will require transmission to the IVM Center. If it does, the IVM PATIENT file entry's TRANSMISSION STATUS will be set to 0 and the nightly background job will transmit the updated information. CROSS-REFERENCE: 2^AVAFC131^MUMPS 1)= I ($T(AVAFC^VAFCDD01)'="") S VAFCF=".1 31;" D AVAFC^VAFCDD01(DA) 2)= I ($T(AVAFC^VAFCDD01)'="") S VAFCF=".1 31;" D AVAFC^VAFCDD01(DA) This cross reference is used to remember that changes were made to the PATIENT file (#2) outside of the Registration process. 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 ADT-A08 message. The local variable VAFCFLG will be set to 1 if the cross reference is not executed because the change is being made from within the Registration process. Execution of this cross reference can be prevented by setting the local variable VAFCA08 equal to 1. The local variable VAFCF is used to identify the field edited. This data is stored in the FIELD(S) EDITED (#2.1) field in the ADT/HL7 PIVOT file (#391.71). CROSS-REFERENCE: 2^ADGRU131^MUMPS 1)= D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUD D01(DA) 2)= D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUD D01(DA) This cross reference is used to remember that changes were made to a monitored data field in the PATIENT File (#2) 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. DATA NAME GLOBAL DATA ELEMENT TITLE LOCATION TYPE ------------------------------------------------------------------------- 2,.132 PHONE NUMBER [WORK] .13;2 FREE TEXT (audited) OFFICE PHONE INPUT TRANSFORM: S X=$TR(X,"x","X") K:$L(X)>17 X I $D(X) K: '(X?10N!(X?10N1"X"1.6N)) X MAXIMUM LENGTH: 17 LAST EDITED: SEP 24, 2025 HELP-PROMPT: Answer must be 10 numbers in length with an optional 'X' and 1-6 digit extension number allowed. DESCRIPTION: Enter the office phone number [10 numbers] where this applicant can be reached while employed, if employed. The number must be 10 numbers and may include an 'X' followed by 1-6 numbers for the extension. AUDIT: YES, ALWAYS GROUP: PEMP NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER CROSS-REFERENCE: 2^AENR132^MUMPS 1)= D EVENT^IVMPLOG(DA,1) 2)= D EVENT^IVMPLOG(DA,1) 3)= DO NOT DELETE This cross-reference is used to notify HEC of changes that may affect enrollment. CROSS-REFERENCE: ^^TRIGGER^2^.1325 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)= $S($D(^DPT(D0,.132)):^(.132),1:"") S X=$P (Y(1),U,5),X=X S DIU=X K Y S X=DIV S X=$G (DUZ) S DIH=$G(^DPT(DIV(0),.132)),DIV=X S $P(^(.132),U,5)=DIV,DIH=2,DIG=.1325 D ^D ICR 2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)= $S($D(^DPT(D0,.132)):^(.132),1:"") S X=$P (Y(1),U,5),X=X S DIU=X K Y S X=DIV S X=$G (DUZ) S DIH=$G(^DPT(DIV(0),.132)),DIV=X S $P(^(.132),U,5)=DIV,DIH=2,DIG=.1325 D ^D ICR CREATE VALUE)= S X=$G(DUZ) DELETE VALUE)= S X=$G(DUZ) FIELD)= PHONE [WORK] CHANGE USER This cross-reference will record the user who has just changed the patient's work phone number. CROSS-REFERENCE: ^^TRIGGER^2^.1326 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)= $S($D(^DPT(D0,.132)):^(.132),1:"") S X=$P (Y(1),U,6),X=X S DIU=X K Y S X=DIV S X=$$ NOW^XLFDT() S DIH=$G(^DPT(DIV(0),.132)),D IV=X S $P(^(.132),U,6)=DIV,DIH=2,DIG=.132 6 D ^DICR 2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)= $S($D(^DPT(D0,.132)):^(.132),1:"") S X=$P (Y(1),U,6),X=X S DIU=X K Y S X=DIV S X=$$ NOW^XLFDT() S DIH=$G(^DPT(DIV(0),.132)),D IV=X S $P(^(.132),U,6)=DIV,DIH=2,DIG=.132 6 D ^DICR CREATE VALUE)= S X=$$NOW^XLFDT() DELETE VALUE)= S X=$$NOW^XLFDT() FIELD)= PHONE [WORK] CHANGE DT/TM This cross reference will update the PHONE [WORK] CHANGE DT/TM field with the current date and time stamp each time this field is changed. CROSS-REFERENCE: ^^TRIGGER^2^.1329 1)= Q 2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)= X S Y(1)=$S($D(^DPT(D0,.13)):^(.13),1:"") S X=$P(Y(1),U,2)="" I X S X=DIV S Y(1)=$ S($D(^DPT(D0,.132)):^(.132),1:"") S X=$P( Y(1),U,9),X=X S DIU=X K Y S X="" X ^DD(2, .132,1,4,2.4) 2.4)= S DIH=$G(^DPT(DIV(0),.132)),DIV=X S $P(^(.132),U,9)=DIV,DIH=2,DIG=.1329 D ^D ICR CREATE VALUE)= NO EFFECT DELETE CONDITION)= PHONE NUMBER [WORK]="" DELETE VALUE)= @ FIELD)= COUNTRY CODE [WORK] Trigger the deletion of COUNTRY CODE [WORK] whenever this field is deleted. CROSS-REFERENCE: ^^TRIGGER^2^.13213 1)= Q 2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)= X S Y(1)=$S($D(^DPT(D0,.13)):^(.13),1:"") S X=$P(Y(1),U,2)="" I X S X=DIV S Y(1)=$ S($D(^DPT(D0,.132)):^(.132),1:"") S X=$P( Y(1),U,13),X=X S DIU=X K Y S X="" X ^DD(2 ,.132,1,5,2.4) 2.4)= S DIH=$G(^DPT(DIV(0),.132)),DIV=X S $P(^(.132),U,13)=DIV,DIH=2,DIG=.13213 D ^DICR CREATE VALUE)= NO EFFECT DELETE CONDITION)= PHONE NUMBER [WORK]="" DELETE VALUE)= @ FIELD)= EXTENSION [WORK] Trigger the deletion of EXTENSION [WORK] whenever this field is deleted. CROSS-REFERENCE: 2^IVM132^MUMPS 1)= S IVMX=X,X="IVMPXFR" X ^%ZOSF("TEST") D:$T DPT^IVMPXFR S X=IVMX K IVMX 2)= S IVMX=X,X="IVMPXFR" X ^%ZOSF("TEST") D:$T DPT^IVMPXFR S X=IVMX K IVMX This cross-reference will check the IVM PATIENT file to see if a change to this field will require transmission to the IVM Center. If it does, the IVM PATIENT file entry's TRANSMISSION STATUS will be set to 0 and the nightly background job will transmit the updated information. CROSS-REFERENCE: 2^AVAFC132^MUMPS 1)= I ($T(AVAFC^VAFCDD01)'="") S VAFCF=". 132;" D AVAFC^VAFCDD01(DA) 2)= I ($T(AVAFC^VAFCDD01)'="") S VAFCF=". 132;" D AVAFC^VAFCDD01(DA) This cross reference is used to remember that changes were made to the PATIENT file (#2) outside of the Registration process. 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 ADT-A08 message. The local variable VAFCFLG will be set to 1 if the cross reference is not executed because the change is being made from within the Registration process. Execution of this cross reference can be prevented by setting the local variable VAFCA08 equal to 1. The local variable VAFCF is used to identify the field edited. This data is stored in the FIELD(S) EDITED (#2.1) field in the ADT/HL7 PIVOT file (#391.71). CROSS-REFERENCE: 2^ADGRU132^MUMPS 1)= D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRU DD01(DA) 2)= D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRU DD01(DA) This cross reference is used to remember that changes were made to a monitored data field in the PATIENT File (#2) 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. DATA NAME GLOBAL DATA ELEMENT TITLE LOCATION TYPE -------------------------------------------------------------------------- 2,.1219 TEMPORARY PHONE NUMBER .121;10 FREE TEXT INPUT TRANSFORM: S X=$TR(X,"x","X") K:$L(X)>17 X I $D(X) K: '(X?10N!(X?10N1"X"1.6N)) X I $D(X) S DFN=D A D TAD^DGLOCK MAXIMUM LENGTH: 17 LAST EDITED: SEP 24, 2025 HELP-PROMPT: Answer must be 10 numbers in length with an optional 'X' and 1-6 digit extension number allowed. DESCRIPTION: If the TEMPORARY ADDRESS ACTIVE? prompt is answered YES, enter the telephone number at which the applicant can be contacted [10 numbers] during his/her absence from their residence, otherwise nothing may be entered. This field may not be deleted as long as the need for a temporary address is indicated. The number must be 10 numbers and may include an 'X' followed by 1-6 numbers for the extension. GROUP: TAD NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER CROSS-REFERENCE: 2^AENR1219^MUMPS 1)= D EVENT^IVMPLOG(DA,1) 2)= D EVENT^IVMPLOG(DA,1) 3)= DO NOT DELETE This cross-reference is used to notify HEC of changes that may affect enrollment. DATA NAME GLOBAL DATA ELEMENT TITLE LOCATION TYPE -------------------------------------------------------------------------- 2,.1315 CONFIDENTIAL PHONE NUMBER .13;15 FREE TEXT INPUT TRANSFORM: S X=$TR(X,"x","X") K:$L(X)>17 X I $D(X) K:'(X?10N!(X?10N1"X"1.6N)) X I $D(X) S DFN=DA D CAD^DGLOCK3 MAXIMUM LENGTH: 17 LAST EDITED: SEP 25, 2025 HELP-PROMPT: Answer must be 10 numbers in length with an optional 'X' and 1-6 digit 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 [10 numbers]. The number must be 10 numbers and may include an 'X' followed by 1-6 numbers 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) DATA NAME GLOBAL DATA ELEMENT TITLE LOCATION TYPE ------------------------------------------------------------------------- 2,.133 EMAIL ADDRESS .13;3 FREE TEXT Email Address INPUT TRANSFORM: K:$L(X)>72!($L(X)<6)!(X["..")!($P(X,"@",2 ,99)["@")!'(X?1AN.63E1"@"1.E1"."2.AN.E)!( X[".@")!(X["@.")!($E(X,$L(X))'?1AN) X I $ D(X) N Y S Y=$TR(X,"!#$%&'*+-/=?_{}`@."," ") K:Y'?.AN X MAXIMUM LENGTH: 72 LAST EDITED: JAN 27, 2026 HELP-PROMPT: Enter the applicant's email address [6-72 characters]. The email is made up of three main parts: a username, the @ symbol, and the domain name. EXECUTABLE HELP: D 133^DGMTDD5 NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER CROSS-REFERENCE: ^^TRIGGER^2^.136 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)= $S($D(^DPT(D0,.13)):^(.13),1:"") S X=$P(Y (1),U,6),X=X S DIU=X K Y S X=DIV S X=$$NO W^XLFDT() S DIH=$G(^DPT(DIV(0),.13)),DIV= X S $P(^(.13),U,6)=DIV,DIH=2,DIG=.136 D ^ DICR 2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)= $S($D(^DPT(D0,.13)):^(.13),1:"") S X=$P(Y (1),U,6),X=X S DIU=X K Y S X=DIV S X=$$NO W^XLFDT() S DIH=$G(^DPT(DIV(0),.13)),DIV= X S $P(^(.13),U,6)=DIV,DIH=2,DIG=.136 D ^ DICR 3)= DO NOT DELETE CREATE VALUE)= S X=$$NOW^XLFDT() DELETE VALUE)= S X=$$NOW^XLFDT() FIELD)= #.136 This cross reference will update the EMAIL ADDRESS CHANGE DT/TM field with current date and time stamp each time this field is changed. RECORD INDEX: AXENR13 (#705) MUMPS R ACTION Short Descr: TRIGGER A MESSAGE FOR ANY CHANGE TO THESE FIELDS Description: This cross-reference will trigger a message to the HEC anytime one of the related fields is changed. Set Logic: D EVENT^IVMPLOG(DA,1) Kill Logic: D EVENT^IVMPLOG(DA,1) X(1): EMAIL ADDRESS (2,.133) (forwards) X(2): PHONE NUMBER [CELLULAR] (2,.134) (forwards) X(3): PAGER NUMBER (2,.135) (forwards) FIELD INDEX: AVAFC133 (#822) 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,.133,"SET",$H,$G(DUZ) ,.X,.X1,.X2,$G(XQY0)) Q Kill Logic: D FC^DGFCPROT(.DA,2,.133,"KILL",$H,$G(DUZ ),.X,.X1,.X2,$G(XQY0)) Q X(1): EMAIL ADDRESS (2,.133) (forwards) 3. The input transforms for CONFIDENTIAL END DATE field (#.1418) and TEMPORARY ADDRESS END DATE field (#.1218) in the PATIENT file (#2) are modified as shown below. The end date is no longer checked against the start date to reject an end date that is before the start date. That check is now done in the code when the user inputs the date. NOTE: The listings shown below are not the complete listing of the fields. Additionally TEMPORARY ADDRESS END DATE was renamed from TEMPORARY ADDRESS END DT. DATA NAME GLOBAL DATA ELEMENT TITLE LOCATION TYPE ------------------------------------------------------------------------- 2,.1418 CONFIDENTIAL END DATE .141;8 DATE INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:Y<1 X I $D(X) S DFN=DA D CAD^DGLOCK3 LAST EDITED: AUG 11, 2025 HELP-PROMPT: Enter the date the applicant will no longer be contacted at the confidential address. End date must be after start date. DESCRIPTION: If the 'Confidential Address Active' prompt is answered YES, enter the date the applicant will no longer be contacted at this address. 2,.1218 TEMPORARY ADDRESS END DATE .121;8 DATE END DATE OF TEMP ADDRESS INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X I $D(X) S DFN=DA D TAD^DGLOCK LAST EDITED: AUG 11, 2025 HELP-PROMPT: Enter the date as of which the patient will no longer be at the temporary address indicated. DESCRIPTION: If the WANT TO ENTER A TEMPORARY ADDRESS prompt is answered YES enter the date as of which the applicant will no longer be contacted at that temporary address, otherwise nothing may be entered. This field may not be deleted as long as the need for a temporary address is indicated. 4. The fields CONFIDENTIAL START DATE field (#.1417) and TEMPORARY ADDRESS START DATE field (#.1217) in the PATIENT file (#2) are modified as shown below. The fields are set to be Required. DATA NAME GLOBAL DATA ELEMENT TITLE LOCATION TYPE ------------------------------------------------------------------------- 2,.1417 CONFIDENTIAL START DATE .141;7 DATE (Required) INPUT TRANSFORM: S %DT="EX",%DT(0)=DT D ^%DT S X=Y K:Y<1 X K %DT(0) I $D(X) S DFN=DA D CAD^DGLOCK3 LAST EDITED: SEP 29, 2025 HELP-PROMPT: Enter the date to begin contacting the applicant at the confidential address. Date cannot be in the past. DESCRIPTION: If the 'Confidential Address Active' prompt is answered YES, enter the date to begin contacting the applicant at the confidential address. TECHNICAL DESCR: This field contains an input transform which does a number of things. It validates the date entered, does not allow a date prior to the current date, and prevents changes to this field if the Confidential Address is flagged INACTIVE. Special note: the input transform sets %DT(0)=DT to validate the date entered. Because changes to this field will update the CONFIDENTIAL ADDRESS CHANGE DT/TM field, it is necessary to kill %DT(0) after the validation. This variable, if valued, can prevent EVENT^IVMPLOG from setting the transmit flag if only the Start and End dates are changed. DELETE TEST: 1,0)= S DFN=DA D CADD1^DGLOCK3 I '$D(X) NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMME FIELD INDEX: ADGFMD1417 (#230) 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,.1417,"SET",$H,$G(DUZ ),.X,.X1,.X2,$G(XQY0)) Q Kill Logic: D FC^DGFCPROT(.DA,2,.1417,"KILL",$H,$G(DU Z),.X,.X1,.X2,$G(XQY0)) Q X(1): CONFIDENTIAL START DATE (2,.1417) (forwards) 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) DATA NAME GLOBAL DATA ELEMENT TITLE LOCATION TYPE ------------------------------------------------------------------------- 2,.1217 TEMPORARY ADDRESS START DATE .121;7 DATE (Required) START DATE OF TEMP ADDRESS INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X I $D(X) S DFN=DA D TAD^DGLOCK LAST EDITED: JAN 02, 2026 HELP-PROMPT: Enter the date on which the patient will first be found at the temporary address indicated. DESCRIPTION: If the WANT TO ENTER A TEMPORARY ADDRESS prompt is answered YES enter the date on which the applicant will commence being contacted at the temporary address indicated, otherwise nothing may be entered. This field may not be deleted as long as the need for a temporary address is indicated. DELETE TEST: 1,0)= S DFN=DA D TADD^DGLOCK1 I '$D(X) GROUP: TAD NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMME CROSS-REFERENCE: 2^AGU1^MUMPS 1)= Q 2)= Q RECORD INDEX: ADTTM1 (#595) MUMPS ACTION Short Descr: TEMPORARY ADDRESS Cross-Reference Description: This cross-reference will update the TEMPORARY ADDRESS CHANGE DT/TM field when the Temporary Address data changes for a patient. Set Logic: D TEMP^DGDDDTTM Kill Logic: D TEMP^DGDDDTTM X(1): TEMPORARY STREET [LINE 1] (2,.1211) (forwards) X(2): TEMPORARY STREET [LINE 2] (2,.1212) (forwards) X(3): TEMPORARY STREET [LINE 3] (2,.1213) (forwards) X(4): TEMPORARY CITY (2,.1214) (forwards) X(5): TEMPORARY STATE (2,.1215) (forwards) X(6): TEMPORARY ZIP CODE (2,.1216) (forwards) X(7): TEMPORARY ADDRESS START DATE (2,.1217) (forwards) X(8): TEMPORARY ADDRESS END DATE (2,.1218) (forwards) X(9): TEMPORARY ADDRESS ACTIVE? (2,.12105) (forwards) X(10): TEMPORARY ZIP+4 (2,.12112) (forwards) X(11): TEMPORARY ADDRESS PROVINCE (2,.1221) (forwards) X(12): TEMPORARY ADDRESS POSTAL CODE (2,.1222) (forwards) X(13): TEMPORARY ADDRESS COUNTRY (2,.1223) (forwards) 5. The input transforms for TEMPORARY ADDRESS ACTIVE? field (#.12105) and CONFIDENTIAL ADDRESS ACTIVE? field (#.14105) in the PATIENT file (#2) are removed. The code that was executed by the transforms are now executed in the code when the user inputs the value. The descriptions of both fields are also updated to be more accurate as to what happens when the user sets the field to "N" NOTE: The listings shown below are not the complete listing of the fields. DATA NAME GLOBAL DATA ELEMENT TITLE LOCATION TYPE ------------------------------------------------------------------------- 2,.12105 TEMPORARY ADDRESS ACTIVE? .121;9 SET (Required) WANT TO ENTER TEMP ADDR 'Y' FOR YES; 'N' FOR NO; LAST EDITED: AUG 07, 2025 HELP-PROMPT: Enter 'Y' if you want to enter/edit Temporary address data, 'N' if not. DESCRIPTION: Enter 'Y' if you wish to enter a temporary address for this applicant at this time, or 'N' if not. A 'NO' response will cause the temporary address 'Start Date' and 'End Date' fields to be automatically deleted. 2,.14105 CONFIDENTIAL ADDRESS ACTIVE? .141;9 SET (Required) 'Y' FOR YES; 'N' FOR NO; LAST EDITED: AUG 07, 2025 HELP-PROMPT: Enter 'Y' if you want to enter or edit confidential address data. DESCRIPTION: Enter 'Y' if you wish to enter a confidential address for this applicant at this time. A 'NO' response will cause the Confidential Start Date and Confidential End Date fields to be automatically deleted. 6. The field TEMPORARY ADDRESS COUNTRY field (#.1223) of the PATIENT file (#2) is modified as shown below. Help-Prompt text is added. DATA NAME GLOBAL DATA ELEMENT TITLE LOCATION TYPE ------------------------------------------------------------------------- 2,.1223 TEMPORARY ADDRESS COUNTRY .122;3 POINTER TO COUNTRY CODE FI LE (#779.004) LAST EDITED: JUL 25, 2025 HELP-PROMPT: Enter the country where the patient's temporary mailing address is located. DESCRIPTION: Enter the country where the patient's temporary address is located. If entering an Army/Air Force Post Office (APO) or a Fleet Post Office (FPO) address select United States as the country. RECORD INDEX: ADTTM1 (#595) MUMPS ACTION Short Descr: TEMPORARY ADDRESS Cross-Reference Description: This cross-reference will update the TEMPORARY ADDRESS CHANGE DT/TM field when the Temporary Address data changes for a patient. Set Logic: D TEMP^DGDDDTTM Kill Logic: D TEMP^DGDDDTTM X(1): TEMPORARY STREET [LINE 1] (2,.1211) (forwards) X(2): TEMPORARY STREET [LINE 2] (2,.1212) (forwards) X(3): TEMPORARY STREET [LINE 3] (2,.1213) (forwards) X(4): TEMPORARY CITY (2,.1214) (forwards) X(5): TEMPORARY STATE (2,.1215) (forwards) X(6): TEMPORARY ZIP CODE (2,.1216) (forwards) X(7): TEMPORARY ADDRESS START DATE (2,.1217) (forwards) X(8): TEMPORARY ADDRESS END DATE (2,.1218) (forwards) X(9): TEMPORARY ADDRESS ACTIVE? (2,.12105) (forwards) X(10): TEMPORARY ZIP+4 (2,.12112) (forwards) X(11): TEMPORARY ADDRESS PROVINCE (2,.1221) (forwards) X(12): TEMPORARY ADDRESS POSTAL CODE (2,.1222) (forwards) X(13): TEMPORARY ADDRESS COUNTRY (2,.1223) (forwards) FIELD INDEX: AXTCNTRY (#818) MUMPS R ACTION Short Descr: Clear temporary addr fields when country changes Description: This cross reference is fired whenever the field TEMP MAILING ADDRESS COUNTRY is changed. It will clear data in fields associated with whether the COUNTRY value is domestic or foreign. In the case of a foreign address, this cross reference will clear the TEMPORARY ADDRESS STATE, TEMPORARY ADDRESS COUNTY and TEMPORARY ADDRESS ZIP+4 fields. For a domestic temporary address, this cross reference will clear the TEMPORARY PROVINCE and TEMPORARY POSTAL CODE fields. See routine ^DGCNTRY for modifying which fields are cleared by this cross reference. Set Logic: I ($T(EN^DGCNTRY)'="") D EN^DGCNTRY(2,"TE MP",.1223) Kill Logic: Q X(1): TEMPORARY ADDRESS COUNTRY (2,.1223) (forwards) FILES POINTED TO FIELDS COUNTRY CODE (#779.004) TEMPORARY ADDRESS COUNTRY (#.1223) 7. The cross references listed below have the following modification made to the EVENT^IVMPLOG set and kill logic: Changed from: Set Logic: D EVENT^IVMPLOG(DA) Kill Logic: D EVENT^IVMPLOG(DA) Changed to: Set Logic: D EVENT^IVMPLOG(DA,1) Kill Logic: D EVENT^IVMPLOG(DA,1) Index Name: AXENR13 Root Type: INDEX FILE -------------------------------------------------------------------------- CROSS-REFERENCE VALUES: Order... Subscr Type Length Field or Computed Expression -------- ------ ---- ------ ------------------------------------- 1 FIELD EMAIL ADDRESS (#.133) 2 FIELD PHONE NUMBER [CELLULAR] (#.134) 3 FIELD PAGER NUMBER (#.135) Set Logic: D EVENT^IVMPLOG(DA,1) Kill Logic: D EVENT^IVMPLOG(DA,1) Whole Kill: Set Condition: Kill Condition: Index Name: AX1171 Root Type: INDEX FILE CROSS-REFERENCE VALUES: Order... Subscr Type Length Field or Computed Expression -------- ------ ---- ------ ------------------------------------- 1 FIELD PROVINCE (#.1171) Set Logic: D EVENT^IVMPLOG(DA,1) Kill Logic: D EVENT^IVMPLOG(DA,1) Whole Kill: Set Condition: Kill Condition: Index Name: AX1172 Root Type: INDEX FILE CROSS-REFERENCE VALUES: Order... Subscr Type Length Field or Computed Expression -------- ------ ---- ------ ------------------------------------- 1 FIELD POSTAL CODE (#.1172) Set Logic: D EVENT^IVMPLOG(DA,1) Kill Logic: D EVENT^IVMPLOG(DA,1) Whole Kill: Set Condition: Kill Condition: Index Name: AX1173 Root Type: INDEX FILE CROSS-REFERENCE VALUES: Order... Subscr Type Length Field or Computed Expression -------- ------ ---- ------ ------------------------------------- 1 FIELD COUNTRY (#.1173) Set Logic: D EVENT^IVMPLOG(DA,1) Kill Logic: D EVENT^IVMPLOG(DA,1) Whole Kill: Set Condition: Kill Condition: 8. A new field ENABLE REALTIME ADDRESS UPDATE field (#1403) is added to the MAS PARAMETERS file (#43). This field indicates whether or not Real-time address updates are active. This field is initialized to NO when the patch is installed. ** BEGIN SCREEN CAPTURE ** DATA NAME GLOBAL DATA ELEMENT TITLE LOCATION TYPE -------------------------------------------------------------------------- 43,1403 ENABLE REALTIME ADDRESS UPDATE RTAU;1 SET '0' FOR NO; '1' FOR YES; LAST EDITED: AUG 27, 2025 HELP-PROMPT: Enter YES for enabling contact information updates to be sent in real-time to the Enrollment System. Enter NO to disable real-time updates. DESCRIPTION: Do you wish to enable the Real-time Address Update service? If YES, updates to patient contact information are sent in real-time via the webservice to the Enrollment System. If NO, legacy HL7 messaging will be used. This value is modified via FileMan only. ** END SCREEN CAPTURE ** 9. A new entry, DG RTAU API KEY, is added to the PARAMETER DEFINITION file (#8989.51). The parameter will contain the API KEY which is inserted into the RTA web service request when sending patient contact data to VES. ** BEGIN SCREEN CAPTURE ** NAME: DG RTAU API KEY DISPLAY TEXT: Real Time Address Update Service API Key MULTIPLE VALUED: No PROHIBIT EDITING: Yes VALUE DATA TYPE: free text VALUE HELP: Enter the API Key for the RTA Update Service DESCRIPTION: The API Key is sent on the message header for the Real Time Address Update web service. Without a valid key, the request is rejected. PRECEDENCE: 1 ENTITY FILE: PACKAGE ** END SCREEN CAPTURE ** ********************************************************************* PART 2: Screen Updates ********************************************************************* The PATIENT DEMOGRAPHIC DATA, SCREEN <1> screen is modified to make data group <4> which contains the cell phone and email address, read-only. ** BEGIN SCREEN CAPTURE ** PATIENT DEMOGRAPHIC DATA, SCREEN <1> DGPATIENT,DGPATIENTONE XXX XX,XXXX XXX-XX-XXXX NSC VETERAN ========================================================================== [1] Name: DGPATIENT,DGPATIENTONE [6] Preferred Name: Not Answered DOB: XXX XX,XXXX SS: XXX-XX-XXXX Family: Birth Sex: MALE MBI: UNANSWERED Given: TEN [2] Alias: < No alias entries on file > Middle: Prefix: Suffix: Degree: Self-Identified Gender Identity: UNANSWERED [3] Remarks: NO REMARKS ENTERED FOR THIS PATIENT <4> Cell Phone: 1234567890X5 Email Address: TEST@TEST.COM [5] Pref Lang: ENGLISH Date/Time: SEP 16,2025@15:39:49 to CONTINUE, 1,2,3,5,6 or ALL to EDIT, ^N for screen N or '^' to QUIT: ** END SCREEN CAPTURE ** ADDITIONAL PATIENT DEMOGRAPHIC DATA, SCREEN <1.1> screen changes. - Data group <5> is added for Cell Phone and Email Address. - (S)ave and (D)iscard options are provided once the user makes any edits on the screen. ** BEGIN SCREEN CAPTURE ** ADDITIONAL PATIENT DEMOGRAPHIC DATA, SCREEN <1.1> DGPATIENT,DGPATIENTONE XXX XX,XXXX XXX-XX-XXXX NSC VETERAN ========================================================================== [1] Residential Address: [2] Mailing Address: 10 DOWNING STREET 100 S MAIN ST LONDON SW1A 2AA ANN ARBOR,MI 48104-1944 UNITED KINGDOM UNITED STATES County: NOT APPLICABLE County: WASHTENAW (161) Phone: 2345678890 Bad Addr: Office: 2223334444 [3] Temporary Mailing Address: [4] Confidential Mailing Address: 100 N MAIN STREET 17A GENOA AVE ANN ARBOR,MI 48104 MILFORD,MA 01757 UNITED STATES UNITED STATES County: WASHTENAW (161) County: WORCESTER (027) Phone: 1234512345 Phone: UNANSWERED From/To: JUL 18,2025-JUL 28,2025 From/To: JUL 18,2025-JUL 28,2025 Categories: ELIGIBILITY/ENROLLMENT(Active) [5] Cell Phone: 1234567890X89 Email Address: UNANSWERED (S)ave or (D)iscard changes, 1-5 or ALL to EDIT, or '^' to QUIT: ** END SCREEN CAPTURE ** If the user selects Discard, the screen repaints with all changes removed and the original data restored. If the user selects Save, the edited data is transmitted to VES via the RTA web service and is validated. If a success response is received, the data is saved to the patient record in VistA and the user is taken to the next screen. If a data validation error occurs, the user will be given an informational message for each field in which an error occurred. The user may then correct the error(s) and Save the data again. An example of a rejected update is shown below where the Home and Office phones numbers are not valid. ** BEGIN SCREEN CAPTURE ** ADDITIONAL PATIENT DEMOGRAPHIC DATA, SCREEN <1.1> DGPATIENT,DGPATIENTONE XXX XX,XXXX XXX-XX-XXXX NSC VETERAN ======================================================================== [1] Residential Address: [2] Mailing Address: 10 DOWNING STREET 100 S MAIN ST LONDON SW1A 2AA ANN ARBOR,MI 48104-1944 UNITED KINGDOM UNITED STATES County: NOT APPLICABLE County: WASHTENAW (161) Phone: 123-451-2345 Bad Addr: Office: 222-333-4444 [3] Temporary Mailing Address: [4] Confidential Mailing Address: 100 N MAIN STREET 17A GENOA AVE ANN ARBOR,MI 48104 MILFORD,MA 01757 UNITED STATES UNITED STATES County: WASHTENAW (161) County: WORCESTER (027) Phone: 1234567890 Phone: UNANSWERED From/To: JUL 18,2025-JUL 28,2025 From/To: JUL 18,2025-JUL 28,2025 Categories: ELIGIBILITY/ENROLLMENT(Active) [5] Cell Phone: 1234567890X89 Email Address: UNANSWERED (S)ave or (D)iscard changes, 1-5 or ALL to EDIT, or '^' to QUIT: ** Webservice call failed:400 Error. (1) Office Phone.phoneNumber: Phone number is invalid. Only digits and x or X are allowed. (2) Residential Phone.phoneNumber: Phone number is invalid. Only digits and x or X are allowed. Press ENTER to continue: ** END SCREEN CAPTURE ** ********************************************************************* PART 3: Contact Information Web Service ********************************************************************* Patch DG*5.3*1143 adds an integration point to the VES Contact Information Web Service to Send updated contact information to VES for a given ICN. The web server, DG RTAU SERVER, and a service, DG RTAU CONTACTINFO, are configured by a post-install routine. This routine creates entries in the HWSC configuration files to define the web server DG RTAU SERVER in the WEB SERVER (#18.12) file and the service DG RTAU CONTACTINFO in the WEB SERVICE (#18.02) file. 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) STREET ADDRESS [LINE 1] Modified (#.111) STREET ADDRESS [LINE 2] Modified (#.112) STREET ADDRESS [LINE 3] Modified (#.113) CITY (#.114) Modified STATE (#.115) Modified ZIP+4 (#.1112) Modified RESIDENTIAL ADDRESS Modified [LINE 1] (#.1151) RESIDENTIAL ADDRESS Modified [LINE 2] (#.1152) RESIDENTIAL ADDRESS Modified [LINE 3] (#.1153) RESIDENTIAL CITY Modified (#.1154) RESIDENTIAL STATE Modified (#.1155) RESIDENTIAL ZIP+4 Modified (#.1156) RESIDENTIAL COUNTY Modified (#.1157) COUNTY (#.117) Modified COUNTRY (#.1173) Modified BAD ADDRESS INDICATOR Modified (#.121) ADDRESS CHANGE DT/TM Modified (#.118) TEMPORARY ADDRESS Modified ACTIVE? (#.12105) TEMPORARY ADDRESS COUNTY Modified (#.12111) TEMPORARY ADDRESS CHANGE Modified DT/TM (#.12113) TEMPORARY ADDRESS START Modified DATE (#.1217) TEMPORARY ADDRESS END Modified DATE (#.1218) TEMPORARY PHONE NUMBER Modified (#.1219) TEMPORARY ADDRESS Modified COUNTRY (#.1223) PHONE NUMBER [RESIDENCE] Modified (#.131) CONFIDENTIAL PHONE Modified NUMBER (#.1315) PHONE NUMBER [WORK] Modified (#.132) EMAIL ADDRESS (#.133) Modified PHONE NUMBER [CELLULAR] Modified (#.134) CONFIDENTIAL ADDRESS Modified ACTIVE? (#.14105) CONFIDENTIAL ADDRESS Modified COUNTY (#.14111) CONFIDENTIAL ADDR CHANGE Modified DT/TM (#.14112) CONFIDENTIAL START DATE Modified (#.1417) CONFIDENTIAL END DATE Modified (#.1418) MAS PARAMETERS (#43) ENABLE REALTIME ADDRESS New UPDATE RTAU (#1403) 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 -------------- -------------------- DG RTAU API KEY NEW Additional Information: ----------------------- N/A New Service Requests (NSRs): ---------------------------- N/A Patient Safety Issues (PSIs): ----------------------------- N/A Defect Tracking System Ticket(s) & Overview: -------------------------------------------- N/A Test Sites: ----------- VA Tennessee Valley Health Care System Oscar G. Johnson VA Medical Center (Iron Mountain) Southern Arizona VA Health Care System (Tucson) Test Sites - SNOW Change Order #: --------------------------------- VA Tennessee Valley Health Care System - CHG0702263 Oscar G. Johnson VA Medical Center (Iron Mountain) - CHG0700457 Southern Arizona VA Health Care System (Tucson) - CHG0702229 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_P1143.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 --------------------------------------------------------------------- DG_53_P1143.KID Release Notes DG_5_3_P1143_RN.PDF DG _53_P1143.KID Deployment, Installation, Back-out and Rollback Guide DG_5_3_P1143_DIBRG.PDF PIMS Version 5.3 ADT Technical Manual ADT_PIMS_TM.PDF PIMS Version 5.3 User Manual - Registration Menu PIMS_REG_UM.PDF Patch Installation: ------------------- Pre/Post Installation Overview: ------------------------------- The post-install routine, DG531043P, was developed to perform the following actions: 1. Adds the ENABLE REALTIME ADDRESS UPDATE field (#1403) to the MAS PARAMETERS file (#43). 2. The instance of the ENABLE REALTIME ADDRESS UPDATE parameter is initialized to Zero (0), which will disable real-time address updates. 4. Adds HWSC web server DG RTAU SERVER. 5. Adds HWSC web service file entry DG RTAU CONTACTINFO. 6. Updates the DG RTAU SERVER with the DG RTAU CONTACTINFO service. 7. Creates an instance of the DG RTAU API KEY parameter, defined in the PARAMETER DEFINITION (#8989.51) file and stored in the PARAMETER (#8989.5) file. 8. Based on what type of site in which the patch is being installed (Mirror/Pre-Prod, SQA, Development or Production) the appropriate API KEY value is set in the DG RTAU API KEY parameter instance created above. (During installation, the installer is prompted for the type of site. See the installation instructions below.) 7. The parameter definition for DG RTAU API KEY is set to READ-ONLY in the PARAMETER DEFINIION file (#8989.51). 8. All input templates that reference the fields modified by this patch will be recompiled. NOTE: The post install routine will be deleted after installation by the KIDS build. 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: Menu Text Option Name --------- ----------- Register a Patient [DG REGISTER PATIENT] Patient Address Update [DG ADDRESS UPDATE] 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] Collateral Patient Register [DG COLLATERAL PATIENT] 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_P1143.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. For a Non-Production system ONLY, the following prompt is displayed: 1 - Mirror/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 Mirror/Pre-Prod 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 option: Menu Text Option Name --------- ----------- Register a Patient [DG REGISTER PATIENT] Patient Address Update [DG ADDRESS UPDATE] 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] Collateral Patient Register [DG COLLATERAL 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: ------------------------------- 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. For additional information, please refer to the DG_53_P1149.KID Deployment, Installation, Back-out and Rollback Guide (DIBRG). Routine Information: ==================== The second line of each of these routines now looks like: ;;5.3;Registration;**[Patch List]**;Aug 13, 1993;Build 35 The checksums below are new checksums, and can be checked with CHECK1^XTSUMBLD. Routine Name: DG531143P Before: n/a After: B67656571 **1143** Routine Name: DGADDUTL Before: B79576915 After:B117594194 **658,695,730,688,808,851,872, 915,925,941,1010,1040,1056,1143** Routine Name: DGADDVAL Before: B11543186 After: B16300892 **1014,1040,1143** Routine Name: DGCOL Before: B33658039 After: B35114556 **2,23,32,993,1023,1027,1052,1143** Routine Name: DGLOCK Before: B53950031 After: B58002194 **108,161,247,485,672,673,688, 754,797,1040,1143** Routine Name: DGLOCK3 Before: B11146338 After: B13873357 **489,527,688,1014,1040,1143** Routine Name: DGMTDD5 Before: B43767578 After: B48921263 **688,1143** Routine Name: DGREGAED Before: B75270132 After:B163217260 **522,560,658,730,688,808,915, 941,1010,1014,1040,1127,1143** Routine Name: DGREGAZL Before: B42841680 After: B48002011 **522,560,581,730,760,915,1143** Routine Name: DGREGCOP Before: B2444526 After: B27569754 **941,1127,1143** Routine Name: DGREGCP1 Before: B35647252 After:B132878704 **941,1010,1040,1056,1143** Routine Name: DGREGCP2 Before: B3251423 After: B2989743 **941,1143** Routine Name: DGREGRED Before: B94068398 After:B180980819 **941,1010,1014,1040,1127,1143** Routine Name: DGREGTE2 Before: B21247832 After:B143878628 **688,754,851,1040,1143** Routine Name: DGREGTED Before: B76088143 After:B176471835 **688,851,941,1014,1040,1127,1143** Routine Name: DGREGTZL Before: B51269802 After: B57869017 **851,892,1143** Routine Name: DGRP1 Before: B39257079 After: B39242957 **109,161,506,244,546,570,629, 638,649,700,653,688,750,851, 907,925,941,985,1014,1033,1056, 1111,1143** Routine Name: DGRPCADD Before: B22721275 After:B132527069 **489,624,688,754,887,941,1056,1143** Routine Name: DGRPCTRG Before: B902330 After: B1012175 **653,1143** Routine Name: DGRPE Before:B133713162 After:B135544406 **32,114,139,169,175,247,190, 343,397,342,454,415,489,506, 244,547,522,528,555,508,451, 626,638,624,677,672,702,689, 735,688,797,842,865,871,887, 941,985,997,1014,1040,1044,1056, 1067,1064,1085,1111,1143** Routine Name: DGRPE1 Before: B26101808 After: B60392764 **114,327,451,631,688,808,804, 909,952,1085,1093,1111,1143** Routine Name: DGRPH Before: B33512639 After: B33881874 **114,343,397,415,489,545,638, 624,689,842,941,985,997,1014, 1056,1064,1143** Routine Name: DGRPP Before: B23184743 After: B44364001 **92,147,343,404,397,489,689, 688,828,797,871,997,1014,1040, 1027,1143** Routine Name: DGRPU1 Before: B6546031 After: B13166683 **139,169,415,527,508,664,941,1143** Routine Name: DGRPV Before: B23011449 After: B23505024 **109,114,247,190,327,365,343, 397,415,489,546,545,451,624, 677,672,689,716,688,797,842, 871,887,941,985,997,1014,1064, 1081,1093,1121,1149,1143** Routine Name: DGRTAUPD Before: n/a After:B208631675 **1143** Routine Name: DGRTAUPD1 Before: n/a After: B6611518 **1143** Routine Name: DGRTAUWS Before: n/a After: B35849847 **1143** Routine Name: DGUAMWS Before:B118112982 After:B118850346 **1014,1065,1084,1127,1143** Routine list of preceding patches: 892, 1052, 1111, 1127, 1149 ============================================================================= User Information: Entered By : Date Entered : MAR 11, 2025 Completed By: Date Completed: APR 09, 2026 Released By : Date Released : APR 09, 2026 ============================================================================= Packman Mail Message: ===================== No routines included