============================================================================= Run Date: OCT 23, 2024 Designation: DG*5.3*1121 Package : DG - REGISTRATION Priority: EMERGENCY Version : 5.3 SEQ #985 Status: Released Compliance Date: OCT 29, 2024 ============================================================================= Associated patches: (v)DG*5.3*806 <<= must be installed BEFORE `DG*5.3*1121' (v)DG*5.3*867 <<= must be installed BEFORE `DG*5.3*1121' (v)DG*5.3*1118 <<= must be installed BEFORE `DG*5.3*1121' Subject: EDIT EMPLOYEE DETAILS, INTERNATIONAL PHONE, PERSIAN GULF INDICATOR Category: - Enhancement (Emergency) - Routine - Data Dictionary Description: ============ Veterans Health Information Systems and Technology Architecture (VistA) Registration, Eligibility & Enrollment (REE) patch DG*5.3*1121 is being released to support enhancements for the Eligibility and Enrollment (E&E) program. Patch DG*5.3*1121 is also being released in support of the Veterans Health Administration (VHA) Enrollment System (VES) 6.11 release. DG*5.3*1121 is being released with IVM*2.0*215 in Host File DG_53_P1121.KID. ************************************************************************** ************************************************************************** IMPORTANT NOTE: DG*5.3*1121 is an emergency patch. The national release date is October 23, 2024, with a three-day compliance period. This patch must be installed at all VistA sites by close of business on Tuesday, October 29, 2024. ************************************************************************** ************************************************************************** Patch DG*5.3*1121 modifies the APPLICANT/SPOUSE EMPLOYMENT DATA, SCREEN <4> to make the screen not editable. Patch DG*5.3*1121 adds Data Dictionary TELEPHONE COUNTRY CODE file (#12.12). Patch DG*5.3*1121 adds TEMPORARY COUNTRY CODE field (#.12116), COUNTRY CODE [RESIDENCE] field (#.1327), COUNTRY CODE [CELLULAR] field (#.1328), COUNTRY CODE [WORK] field (#.1329), and CONFIDENTIAL COUNTRY CODE field (#.13201) to the PATIENT file (#2). Patch DG*5.3*1121 adds TEMPORARY EXTENSION field (#.12117), EXTENSION [RESIDENCE] field (#.13211), EXTENSION [CELLULAR] field (#.13212), EXTENSION [WORK] field (#.13213) and CONFIDENTIAL EXTENSION field (#.13214) to the PATIENT file (#2). Patch DG*5.3*1121 adds the PERSIAN GULF INDICATOR field (#.32117) and PERSIAN GULF LAST CHANGE DATE field (#.32118) to the PATIENT file (#2). Patch DG*5.3*1121 modifies the Integration Control Registration (ICR) #10061 SVC^VADPT to return the new value PERSIAN GULF INDICATOR (#2,.32117) and the PERSIAN GULF LAST CHANGE DATE (#2.32118). Patch DG*5.3*1121 adds two new triggers to the PHONE NUMBER [WORK] field (#.132) of the PATIENT file (#2). The ZEL segment of the Health Level 7 (HL7) ORU/ORF-Z11 message is modified. Sequences 49 and 50 are added for PERSIAN GULF INDICATOR and PERSIAN GULF LAST CHANGE DATE. The values for these sequences are stored in the PERSIAN GULF INDICATOR field (#.32117) and PERSIAN GULF LAST CHANGE DATE field (#.32118) of the PATIENT file (#2). The ZTA segment of the HL7 ORU/ORF-Z07 message is modified. Sequence 10 is added for TEMPORARY INTERNATIONAL PHONE NUMBER. Also, the 13th sequence of the PID segment of the HL7 ORU/ORF-Z07 message is modified. Components 5 through 8 are added in Sequence 13 for COUNTRY CODE, AREA CODE, PHONE NUMBER, and EXTENSION. Listing of Updates: =================== This patch makes the following enhancements to VistA REE: ************************************************************************ SECTION 1: DATA DICTIONARY UPDATES ************************************************************************ 1. DG*5.3*1121 adds a new Data Dictionary entry. TELEPHONE COUNTRY CODE file (#12.12) is installed and populated with 245 records containing the international dialing code, the country name, and the country's short display name. DATA NAME GLOBAL DATA ELEMENT TITLE LOCATION TYPE -------------------------------------------------------------------------- This file contains the list of telephone country codes using the International Telecommunications Union (ITU) Standard. This list is necessary to accurately store, transmit, and receive patient phone numbers that are outside the United States. NOTE: This file is controlled by the MAS Health Eligibility Center, Member Services. Records in this file should not be added, edited, or deleted. Any changes to this file's structure or its records should only be done through a national patch release. Performing local modifications would likely cause database corruption. POINTED TO BY: TEMPORARY COUNTRY CODE field (#.12116) of the PATIENT File (#2) CONFIDENTIAL COUNTRY CODE field (#.13201) of the PATIENT File (#2) COUNTRY CODE [RESIDENCE] field (#.1327) of the PATIENT File (#2) COUNTRY CODE [CELLULAR] field (#.1328) of the PATIENT File (#2) COUNTRY CODE [WORK] field (#.1329) of the PATIENT File (#2) CROSS REFERENCED BY: NAME(B) LAST MODIFIED: JUL 25,2024@14:52:54 12.12,.01 NAME 0;1 FREE TEXT (Required) COUNTRY NAME INPUT TRANSFORM: K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X MAXIMUM LENGTH: 30 LAST EDITED: JUL 22, 2024 HELP-PROMPT: Enter the country of origin for this phone number. DESCRIPTION: This field contains the name of the country. This name will not appear on the screen at data entry. CROSS-REFERENCE: 12.12^B 1)= S ^DG(12.12,"B",$E(X,1,30),DA)="" 2)= K ^DG(12.12,"B",$E(X,1,30),DA) 12.12,.02 COUNTRY DIALING CODE 0;2 NUMBER (Required) INPUT TRANSFORM: K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X LAST EDITED: JUL 22, 2024 HELP-PROMPT: Enter the international dialing code. DESCRIPTION: This value is the dialing code required to call this country. 12.12,.03 COUNTRY DISPLAY NAME 0;3 FREE TEXT INPUT TRANSFORM: K:$L(X)>12!($L(X)<1) X MAXIMUM LENGTH: 12 LAST EDITED: JUL 25, 2024 HELP-PROMPT: Enter the country display name. DESCRIPTION: This value is the display name for the country and is a shorter version of the full country name. This value will display on screen after selecting a TELEPHONE COUNTRY CODE. INPUT TEMPLATE(S): PRINT TEMPLATE(S): SORT TEMPLATE(S): FORM(S)/BLOCK(S): 2. DG*5.3*1121 adds 5 new fields in the PATIENT File (#2) to accommodate storing the country code. DATA NAME GLOBAL DATA ELEMENT TITLE LOCATION TYPE -------------------------------------------------------------------------- 2,.12116 TEMPORARY COUNTRY CODE .121;16 POINTER TO TELEPHONE COUNTRY CODE FILE (#12.12) LAST EDITED: JUL 22, 2024 HELP-PROMPT: Enter the country dialing code for TEMPORARY PHONE NUMBER. DESCRIPTION: TEMPORARY COUNTRY CODE is the international dialing code for TEMPORARY PHONE NUMBER, Field (#.1219) from the PATIENT File (#2). FILES POINTED TO FIELDS TELEPHONE COUNTRY CODE (#12.12) TEMPORARY COUNTRY CODE (#.12116) DATA NAME GLOBAL DATA ELEMENT TITLE LOCATION TYPE -------------------------------------------------------------------------- 2,.1327 COUNTRY CODE [RESIDENCE] .132;7 POINTER TO TELEPHONE COUNTRY CODE FILE (#12.12) LAST EDITED: JUL 22, 2024 HELP-PROMPT: Enter the country dialing code for PHONE NUMBER [RESIDENCE]. DESCRIPTION: COUNTRY CODE [RESIDENCE] is the international dialing code for PHONE NUMBER [RESIDENCE], Field (#.131) from the PATIENT File (#2). FILES POINTED TO FIELDS TELEPHONE COUNTRY CODE (#12.12) COUNTRY CODE [RESIDENCE] (#.1327) DATA NAME GLOBAL DATA ELEMENT TITLE LOCATION TYPE -------------------------------------------------------------------------- 2,.1328 COUNTRY CODE [CELLULAR] .132;8 POINTER TO TELEPHONE COUNTRY CODE FILE (#12.12) LAST EDITED: JUL 26, 2024 HELP-PROMPT: Enter the country dialing code for PHONE NUMBER [CELLULAR]. DESCRIPTION: COUNTRY CODE [CELLULAR] is the international dialing code for PHONE NUMBER [CELLULAR], Field (#.134) from the PATIENT File (#2). FILES POINTED TO FIELDS TELEPHONE COUNTRY CODE (#12.12) COUNTRY CODE [CELLULAR] (#.1328) DATA NAME GLOBAL DATA ELEMENT TITLE LOCATION TYPE -------------------------------------------------------------------------- 2,.1329 COUNTRY CODE [WORK] .132;9 POINTER TO TELEPHONE COUNTRY CODE FILE (#12.12) LAST EDITED: JUL 22, 2024 HELP-PROMPT: Enter the country dialing code for PHONE NUMBER [WORK]. DESCRIPTION: COUNTRY CODE [WORK] is the international dialing code for PHONE NUMBER [WORK], Field (#.132) from the PATIENT File (#2). NOTES: TRIGGERED by the PHONE NUMBER [WORK] field of the PATIENT File FILES POINTED TO FIELDS TELEPHONE COUNTRY CODE (#12.12) COUNTRY CODE [WORK] (#.1329) DATA NAME GLOBAL DATA ELEMENT TITLE LOCATION TYPE -------------------------------------------------------------------------- 2,.13201 CONFIDENTIAL COUNTRY CODE .132;10 POINTER TO TELEPHONE COUNTRY CODE FILE (#12.12) LAST EDITED: JUL 26, 2024 HELP-PROMPT: Enter the country dialing code for CONFIDENTIAL PHONE NUMBER. DESCRIPTION: CONFIDENTIAL COUNTRY CODE is the international dialing code for CONFIDENTIAL PHONE NUMBER, Field (#.1315) from the PATIENT File (#2). FILES POINTED TO FIELDS TELEPHONE COUNTRY CODE (#12.12) CONFIDENTIAL COUNTRY CODE (#.13201) 3. DG*5.3*1121 adds 5 new fields in the PATIENT file (#2) to accommodate storing the telephone number extensions. DATA NAME GLOBAL DATA ELEMENT TITLE LOCATION TYPE -------------------------------------------------------------------------- 2,.12117 TEMPORARY EXTENSION .121;17 FREE TEXT INPUT TRANSFORM: K:$L(X)>6!($L(X)<1)!'(X?.N) X MAXIMUM LENGTH: 6 LAST EDITED: AUG 29, 2024 HELP-PROMPT: Answer must be 1-6 digits in length. DESCRIPTION: TEMPORARY EXTENSION is the telephone extension for TEMPORARY PHONE NUMBER, Field (#.1219) from the PATIENT File (#2). DATA NAME GLOBAL DATA ELEMENT TITLE LOCATION TYPE -------------------------------------------------------------------------- 2,.13211 EXTENSION [RESIDENCE] .132;11 FREE TEXT INPUT TRANSFORM: K:$L(X)>6!($L(X)<1)!'(X?.N) X MAXIMUM LENGTH: 6 LAST EDITED: AUG 29, 2024 HELP-PROMPT: Answer must be 1-6 digits in length. DESCRIPTION: EXTENSION [RESIDENCE] is the telephone extension for PHONE NUMBER [RESIDENCE], Field (#.131) from the PATIENT File (#2). DATA NAME GLOBAL DATA ELEMENT TITLE LOCATION TYPE -------------------------------------------------------------------------- 2,.13212 EXTENSION [CELLULAR] .132;12 FREE TEXT INPUT TRANSFORM: K:$L(X)>6!($L(X)<1)!'(X?.N) X MAXIMUM LENGTH: 6 LAST EDITED: AUG 29, 2024 HELP-PROMPT: Answer must be 1-6 digits in length. DESCRIPTION: EXTENSION [CELLULAR] is the telephone extension for PHONE NUMBER [CELLULAR], Field (#.134) from the PATIENT File (#2). DATA NAME GLOBAL DATA ELEMENT TITLE LOCATION TYPE -------------------------------------------------------------------------- 2,.13213 EXTENSION [WORK] .132;13 FREE TEXT INPUT TRANSFORM: K:$L(X)>6!($L(X)<1)!'(X?.N) X MAXIMUM LENGTH: 6 LAST EDITED: AUG 29, 2024 HELP-PROMPT: Answer must be 1-6 digits in length. DESCRIPTION: EXTENSION [WORK] is the telephone extension for PHONE NUMBER [WORK] Field, (#.132) from the PATIENT File (#2). NOTES: TRIGGERED by the PHONE NUMBER [WORK] field of the PATIENT File DATA NAME GLOBAL DATA ELEMENT TITLE LOCATION TYPE -------------------------------------------------------------------------- 2,.13214 CONFIDENTIAL EXTENSION .132;14 FREE TEXT INPUT TRANSFORM: K:$L(X)>6!($L(X)<1)!'(X?.N) X MAXIMUM LENGTH: 6 LAST EDITED: AUG 29, 2024 HELP-PROMPT: Answer must be 1-6 digits in length. DESCRIPTION: CONFIDENTIAL EXTENSION is the telephone extension for the CONFIDENTIAL PHONE NUMBER, Field (#.1315) from the PATIENT File (#2). 4. Patch DG*5.3*1121 adds the PERSIAN GULF INDICATOR field (#.32117) and the PERSIAN GULF LAST CHANGE DATE field (#.32118) to the PATIENT file (#2). Both fields are not editable. The PERSIAN GULF LAST CHANGE DATE field is not displayed to the user and is for internal use only. PERSIAN GULF INDICATOR (#.32117) DATA NAME GLOBAL DATA ELEMENT TITLE LOCATION TYPE -------------------------------------------------------------------------- 2,.32117 PERSIAN GULF INDICATOR .321;17 SET (BOOLEAN Data Type) LAST EDITED: AUG 19, 2024 HELP-PROMPT: If the patient indicates deployment to the Persian Gulf, enter "YES". If the patient indicates there was no deployment to the Persian Gulf, enter "NO". Enter no response if deployment is unknown. DESCRIPTION: This field should be set to YES if the patient deployed to the Persian Gulf, NO if the patient did not deploy to the Persian Gulf or left blank if it is unknown. The Persian Gulf Indicator is entered and maintained by the VHA Enrollment System and shared with VistA via HL7 messaging. The field is not editable in VistA and is only shared so that it may be displayed to a VistA user along with the patient's other Environmental Factors. The Persian Gulf Indicator is stored internally as 1 for YES, 0 for NO and NULL for UNKNOWN. TECHNICAL DESCR: The Persian Gulf Indicator is stored internally as 1 for YES, 0 for No and NULL for UNKNOWN. It is entered and maintained by the VHA Enrollment System and shared with VistA via HL7 messaging. This field is UNEDITABLE. WRITE AUTHORITY: ^ PERSIAN GULF LAST CHANGE DATE (#.32118) DATA NAME GLOBAL DATA ELEMENT TITLE LOCATION TYPE -------------------------------------------------------------------------- 2,.32118 PERSIAN GULF LAST CHANGE DATE .321;18 DATE INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:3991231X) X LAST EDITED: AUG 08, 2024 HELP-PROMPT: Type a date between 8/2/1999 and 12/31/2099 DESCRIPTION: This is the date that the Persian Gulf Indicator was last changed. TECHNICAL DESCR: The Persian Gulf Last Change Date is a record of when the Persian Gulf Indicator was last changed in the system. It is stored in the internal FileMan format. This field is not displayed on any VistA screens and is for internal reference only. It is maintained by the VHA Enrollment System and is shard with VistA via HL7 messaging. WRITE AUTHORITY: ^ 5. DG*5.3*1121 adds two new triggers to PHONE NUMBER [WORK] field (#.132) of the PATIENT file (#2). These triggers delete the values in the EXTENSION [WORK] field (#.13213) and COUNTRY CODE [WORK] field (#.1329) of the PATIENT file (#2) when PHONE NUMBER [WORK] field is deleted. DATA NAME GLOBAL DATA ELEMENT TITLE LOCATION TYPE -------------------------------------------------------------------------- 2,.132 PHONE NUMBER [WORK] .13;2 FREE TEXT (audited) OFFICE PHONE INPUT TRANSFORM: K:$L(X)>20!($L(X)<4) X LAST EDITED: SEP 10, 2024 HELP-PROMPT: If employed, enter the telephone number of this applicants place of employment [4-20 characters]. DESCRIPTION: Enter the office phone number [4-20 characters] where this applicant can be reached while employed, if employed. AUDIT: YES, ALWAYS GROUP: PEMP CROSS-REFERENCE: 2^AENR132^MUMPS 1)= D EVENT^IVMPLOG(DA) 2)= D EVENT^IVMPLOG(DA) 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(DU Z) S DIH=$G(^DPT(DIV(0),.132)),DIV=X S $P( ^(.132),U,5)=DIV,DIH=2,DIG=.1325 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,5),X=X S DIU=X K Y S X=DIV S X=$G(DU Z) S DIH=$G(^DPT(DIV(0),.132)),DIV=X S $P( ^(.132),U,5)=DIV,DIH=2,DIG=.1325 D ^DICR 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)),DIV=X S $P(^(.132),U,6)=DIV,DIH=2,DIG=.1326 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)),DIV=X S $P(^(.132),U,6)=DIV,DIH=2,DIG=.1326 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 ^DIC R 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 ^D ICR CREATE VALUE)= NO EFFECT DELETE CONDITION)= PHONE NUMBER [WORK]="" DELETE VALUE)= @ FIELD)= EXTENSION [WORK] Trigger the deletion of EXTENSION [WORK] whenver 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=".1 32;" D AVAFC^VAFCDD01(DA) 2)= I ($T(AVAFC^VAFCDD01)'="") S VAFCF=".1 32;" 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^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. ************************************************************************ SECTION 2: REGISTRATION SCREEN UPDATES ************************************************************************ 1. Editing is no longer allowed on the APPLICANT/SPOUSE EMPLOYMENT DATA, SCREEN <4> screen: ** BEGIN SCREEN CAPTURE ** APPLICANT/SPOUSE EMPLOYMENT DATA, SCREEN <4> DGPATIENT,ONE MMM DD,YYYY ###-##-#### NSC VETERAN ========================================================================== <1> Employer: ANY EMPLOYER I <2> Spouse's: ANY EMPLOYER II 111 ANY STREET 333 ANY STREET ANN ARBOR,MI 48104 ANN ARBOR,MI 48104 Phone: 555-222-1111 Phone: 555-222-3333 Occupation: SECRETARY Occupation: SOFTWARE ENGINEER to CONTINUE, ^N for screen N or '^' to QUIT: ** END SCREEN CAPTURE ** 2. The Persian Gulf Data Group <7> is added as an uneditable field to the ENVIRONMENTAL FACTORS screen of the Environmental Factors Data Group <3> on the MILITARY SERVICE DATA SCREEN <6>. This field displays the PERSIAN GULF INDICATOR field (#.32117) of the PATIENT file (#2). If the field has no value, the default value of "UNKNOWN" is displayed. ** BEGIN SCREEN CAPTURE ** DGPATIENT,ONE MMM DD, YYYY ###-##-#### NSC VETERAN ========================================================================== **** ENVIRONMENTAL FACTORS **** <1> A/O Exp.: Reg: Exam: <2> ION Rad.: Reg: Method: [3] SW Asia Cond: NO Reg: Exam: [4] N/T Radium: <5> Camp Lejeune: <6> TERA: NO <7> Persian Gulf: UNKNOWN Only VES users may enter/edit Agent Orange, ION Radiation Exposure, Toxic Exposure Risk Activity (TERA), or Persian Gulf. SELECT AN ENVIRONMENTAL FACTOR (3-4) OR (Q)UIT: QUIT// ** END OF SCREEN CAPTURE ** ************************************************************************** SECTION 3: HL7 ORU/ORF-Z11 PROCESSING ************************************************************************** The fields below are added to the ZEL segment in the ORU/ORF-Z11 HL7 message received from VES. The data from these fields is stored in the PERSIAN GULF DEPLOYMENT COHORT field (#.32117) and PERSIAN GULF LAST CHANGE DATE field (#.32118) of the PATIENT file (#2). SEQ FIELD --- ----- 49 PERSIAN GULF INDICATOR 50 PERSIAN GULF LAST CHANGE DATE ************************************************************************** SECTION 4: HL7 ORU/ORF-Z07 PROCESSING ************************************************************************** 1. The field below is added to the ZTA segment in the ORU/ORF-Z07 HL7 message. The data from the TEMPORARY COUNTRY CODE field (#.12116), TEMPORARY PHONE NUMBER field (#.1219), the TEMPORARY EXTENSION field (#.12117) of the PATIENT (#2) file is populated in the TEMPORARY ADDRESS INTERNATIONAL PHONE (Seq 10) of the ZTA segment of ORU/ORF-Z07 in the format of COUNTRY CODE~AREA CODE~PHONE NUMBER~EXTENSION. SEQ FIELD --- ----- 10 TEMPORARY ADDRESS INTERNATIONAL PHONE (COUNTRY CODE~AREA CODE~PHONE NUMBER~EXTENSION) 2. The 13th sequence of the PID segment in the ORU/ORF-Z07 HL7 message is modified to include components 5 through 8 to accommodate international phone numbers. These component values are retrieved from the PATIENT file (#2) and populated in Sequence 13 of the PID segment in the ORU/ORF-Z07 message. Below is the list of the 13th sequence components and their corresponding PATIENT file (#2) fields. CATEGORY COMPONENT PATIENT file (#2) field -------- --------- ----------------------- Confidential Country Code CONFIDENTIAL COUNTRY CODE field (#.13201) Phone Area Code CONFIDENTIAL PHONE NUMBER field (#.1315) Phone Number CONFIDENTIAL PHONE NUMBER field (#.1315) Extension CONFIDENTIAL EXTENSION field (#.13214) Residential Country Code COUNTRY CODE [RESIDENCE] field (#.1327) Phone Area Code PHONE NUMBER [RESIDENCE] field (#.131) Phone Number PHONE NUMBER [RESIDENCE] field (#.131) Extension EXTENSION [RESIDENCE] field (#.13211) Cellular Country Code COUNTRY CODE [CELLULAR] field (#.1328) Phone Area Code PHONE NUMBER [CELLULAR] field (#.134) Phone Number PHONE NUMBER [CELLULAR] field (#.134) Extension EXTENSION [CELLULAR] field (#.13212) Work Phone Country Code COUNTRY CODE [WORK] field (#.1329) Area Code PHONE NUMBER [WORK] field (#.132) Phone Number PHONE NUMBER [WORK] field (#.132) Extension EXTENSION [WORK] field (#.13213) ************************************************************************* SECTION 5: VADPT API & ICR MODIFICATIONS ************************************************************************* In support of external systems requiring access to the new PERSIAN GULF INDICATOR field (#.32117) and the PERSIAN GULF LAST CHANGE DATE field (#.32118) of the PATIENT file (#2), patch DG*5.3*1121 modifies the supported Integration Control Registration (ICR) #10061 for the Service data Application Programming Interface (API) in SVC^VADPT. The new PERSIAN GULF INDICATOR field (#.32117) is accessible in the (16) node of the array created by SVC^VADPT. The format of this field will be the internal and external values separated by a "^" character. The data in node 16 will be either "1^YES", "0^NO", or NULL. For example: VASV(16)="1^YES". The new PERSIAN GULF LAST CHANGE DATE field (#.32118) is accessible in the (17) node of the array created by SVC^VADPT, The format of the data will be null if there has been no change to the PERSIAN GULF INDICATOR with the internal and external values separated by a "^". For example: VASV(17)="3230629^JUN 29,2023" The optional input variable VAHOW can be set to return the data in alpha subscripts. The PERSIAN GULF INDICATOR is returned in the "PGI" subscript. For example: VASV("PGI")="0^NO". The PERSIAN GULF LAST CHANGE DATE is returned in the "LCD" subscript. For example: VASV("LCD")="3230629^JUN 29,2023" NOTE: For additional information on the SVC^VAPDT API, see the Patient Information Management System (PIMS) Technical Manual located on the Veteran Affairs (VA) Software Document Library Patch Components: ----------------- Files & Fields Associated: File Name (Number) Field Name (Number) New/Modified/Deleted ------------------ ---------------------------- -------------------- PATIENT (#2) PERSIAN GULF INDICATOR (#.32117) NEW PATIENT (#2) PERSIAN GULF LAST CHANGE DATE NEW (#.32118) PATIENT (#2) TEMPORARY COUNTRY CODE (#.12116) NEW PATIENT (#2) COUNTRY CODE [RESIDENCE] (#.1327) NEW PATIENT (#2) COUNTRY CODE [CELLULAR] (#.1328) NEW PATIENT (#2) COUNTRY CODE [WORK] (#.1329) NEW PATIENT (#2) CONFIDENTIAL COUNTRY CODE NEW (#.13201) PATIENT (#2) TEMPORARY EXTENSION (#.12117) NEW PATIENT (#2) EXTENSION [RESIDENCE] (#.13211) NEW PATIENT (#2) EXTENSION [CELLULAR] (#.13212) NEW PATIENT (#2) EXTENSION [WORK] (#.13213) NEW PATIENT (#2) CONFIDENTIAL EXTENSION (#.13214) NEW PATIENT (#2) PHONE NUMBER [WORK] (#.132) MODIFIED TELEPHONE COUNTRY NEW CODE (#12.12) 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: -------------------------------------------- N/A Test Sites: ----------- VA Black Hills Health Care System (Fort Meade, Hot Springs), SD Durham VA Medical Center, NC Southern Arizona VA Health Care System, Tucson Test Sites - SNOW Change Order #: --------------------------------- VA Black Hills Health Care System - CHG0531686 Durham VA Medical Center - CHG0532494 Southern Arizona VA Health Care System - CHG0532220 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_P1121.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_P1121.KID Release Notes DG_5_3_P1121_RN.PDF PIMS Version 5.3 User Manual - 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 Patch IVM*2.0*215. Patch Installation: ------------------- Pre/Post Installation Overview: ------------------------------- The post-install routine DG531121P performs the following action: - Recompiles all input templates that reference PHONE NUMBER [WORK] field (#.132) in the PATIENT file (#2). The output of the post-install routine is shown below. Note that the template and routine names listed here may differ at each site installing the patch. The templates and routine names listed will not be captured in the INSTALL file (#9.7). ** BEGIN SCREEN CAPTURE ** Running Post-Install Routine: POST^DG531121P >>> Beginning the DG*5.3*1121 Post-install routine... >>> Recompile all compiled input templates that contain the following fields: o PHONE NUMBER [WORK] (#.132) field in the PATIENT (#2) file Compiling DVBA C ADD 2507 PAT Input Template of File 2............ 'DVBAXA1' ROUTINE FILED.. 'DVBAXA2' ROUTINE FILED.. 'DVBAXA3' ROUTINE FILED. 'DVBAXA4' ROUTINE FILED.. 'DVBAXA5' ROUTINE FILED. 'DVBAXA6' ROUTINE FILED.. 'DVBAXA7' ROUTINE FILED. 'DVBAXA8' ROUTINE FILED.. 'DVBAXA9' ROUTINE FILED. 'DVBAXA10' ROUTINE FILED.. 'DVBAXA11' ROUTINE FILED. 'DVBAXA12' ROUTINE FILED.. 'DVBAXA13' ROUTINE FILED. 'DVBAXA14' ROUTINE FILED. 'DVBAXA' ROUTINE FILED...... 'DVBAXA15' ROUTINE FILED. 'DVBAXA16' ROUTINE FILED. Compiling DGRPT 10-10T REGISTRATION Input Template of File 2.......... 'DGRPTX1' ROUTINE FILED. 'DGRPTX2' ROUTINE FILED.. 'DGRPTX3' ROUTINE FILED.. 'DGRPTX4' ROUTINE FILED. 'DGRPTX5' ROUTINE FILED.. 'DGRPTX6' ROUTINE FILED. 'DGRPTX7' ROUTINE FILED.. 'DGRPTX8' ROUTINE FILED.. 'DGRPTX9' ROUTINE FILED. 'DGRPTX10' ROUTINE FILED.. 'DGRPTX11' ROUTINE FILED.. 'DGRPTX12' ROUTINE FILED. 'DGRPTX13' ROUTINE FILED.. 'DGRPTX14' ROUTINE FILED.. 'DGRPTX15' ROUTINE FILED. 'DGRPTX16' ROUTINE FILED.. 'DGRPTX17' ROUTINE FILED. 'DGRPTX18' ROUTINE FILED.. 'DGRPTX19' ROUTINE FILED.. 'DGRPTX20' ROUTINE FILED.. 'DGRPTX21' ROUTINE FILED.. 'DGRPTX22' ROUTINE FILED.. 'DGRPTX23' ROUTINE FILED... 'DGRPTX24' ROUTINE FILED.. 'DGRPTX25' ROUTINE FILED. 'DGRPTX26' ROUTINE FILED. 'DGRPTX' ROUTINE FILED....................... 'DGRPTX28' ROUTINE FILED.. 'DGRPTX29' ROUTINE FILED.. 'DGRPTX30' ROUTINE FILED.. 'DGRPTX31' ROUTINE FILED. 'DGRPTX32' ROUTINE FILED.. 'DGRPTX33' ROUTINE FILED. 'DGRPTX34' ROUTINE FILED.. 'DGRPTX35' ROUTINE FILED. 'DGRPTX36' ROUTINE FILED... 'DGRPTX38' ROUTINE FILED. 'DGRPTX39' ROUTINE FILED. 'DGRPTX27' ROUTINE FILED.. 'DGRPTX37' ROUTINE FILED. 'DGRPTX40' ROUTINE FILED. >>> Re-compile completed. >>> Patch DG*5.3*1121 - Post-install complete. ** END SCREEN CAPTURE ** NOTE: The post install routine will be automatically deleted after installation by the KIDS build. 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] 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_P1121.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] 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 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. If only the routines were backed up, they will be available in a MailMan message with a subject similar to the following: "Subject: Backup of DG*5.3*1121, on Aug 27, 2024." 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: ==================== The second line of each of these routines now looks like: ;;5.3;Registration;**[Patch List]**;Apr 10 2024;Build 11 The checksums below are new checksums, and can be checked with CHECK1^XTSUMBLD. Routine Name: DG531121P Before: n/a After: B2397106 **1121** Routine Name: DGENPTA1 Before: B38698474 After: B40958134 **121,147,314,677,659,653,688, 810,754,838,841,842,978,1036, 1064,1093,1103,1121** Routine Name: DGENUPL Before: B49381688 After: B53146972 **147,222,232,363,472,497,564, 677,672,688,871,909,952,1103, 1121** Routine Name: DGENUPLA Before:B138070375 After:B149873918 **397,379,497,451,564,672,659, 583,653,688,754,909,978,952, 1064,1090,1103,1121** Routine Name: DGRP4 Before: B9074330 After: B9438070 **624,867,1121** Routine Name: DGRP6EF Before: B59478265 After: B62627292 **689,659,737,688,909,1014,1018, 1075,1084,1090,1103,1118,1121** Routine Name: DGRPV Before: B22343325 After: B22673422 **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** Routine Name: VADPT Before: B18417337 After: B18682561 **193,343,389,415,489,498,688, 754,887,996,1061,1103,1121** Routine Name: VADPT0 Before: B15320923 After: B15492098 **343,342,415,489,498,528,689, 789,688,759,754,887,952,996, 1059,1064,1103,1121** Routine Name: VADPT4 Before: B45604614 After: B48556340 **343,342,528,689,688,790,797, 935,952,1007,1018,1090,1103, 1118,1121** Routine Name: VAFCQRY3 Before:B101601272 After:B158096768 **575,707,754,944,941,1121** Routine Name: VAFHLZTA Before: B11519709 After: B17640058 **68,653,688,806,1121** Routine list of preceding patches: 806, 867, 1118 ============================================================================= User Information: Entered By : Date Entered : APR 16, 2024 Completed By: Date Completed: OCT 22, 2024 Released By : Date Released : OCT 23, 2024 ============================================================================= Packman Mail Message: ===================== No routines included