$TXT Created by KOPP,TERRY at MNTVBB.FO-ALBANY.MED.VA.GOV (KIDS) on Wednesday, 04/07/04 at 11:01 ============================================================================= Run Date: APR 22, 2004 Designation: IB*2*265 Package : IB - INTEGRATED BILLING Priority: Mandatory Version : 2 SEQ #236 Status: Released Compliance Date: MAY 23, 2004 ============================================================================= Subject: EOB FILE ENHANCEMENTS Category: - Data Dictionary - Routine Description: ============ This patch was produced as a result of a determination that data missing in VistA was needed to give the users the ability for EEOBs (Electronic Explanation of Benefits) contained on an ERA (Electronic Remittance Advice) to be automatically verified. The criteria to be used for verification include the statement start and end dates from the 835 flat file. We already receive the data in the flat file, but do not currently store it. This patch will retrieve the 2 fields from the 835 flat file and will store them in 2 new fields in the EXPLANATION OF BENEFITS file (#361.1) in fields STATEMENT START DATE (#1.1) and STATEMENT END DATE (#1.11). These 2 fields will then be included when EEOB data is displayed in TPJI (Third Party Joint Inquiry). In addition, the TRACE NUMBER field (#.07) in the EXPLANATION OF BENEFITS file (#361.1) was originally defined as having a maximum length of 20 characters. Payers can actually send up to 30 characters in this field. If the payer's trace # exceeds 20 characters, the reasons for the adjustments are not stored with the EEOB detail. This patch increases the length of the TRACE NUMBER field to 30 characters. This was reported in NOIS LOU-0404-40646. Associated patches: (v)IB*2*135 <<= must be installed BEFORE `IB*2*265' This patch addresses the following New Service Request (NSR): ------------------------------------------------------------- There is no NSR associated with this patch. This patch addresses the following NOIS message(s): --------------------------------------------------- LOU-0404-40646 EDI LOCKBOX TRACE # FIELD Test Sites: ----------- VISN # Facility M type/OS ------ ----------------------- ----------- 9 603 Louisville, Ky. DSM VMS 7 679 Tuscaloosa, Al. CACHE NT 21 570 Fresno, Ca. CACHE VMS 17 671 South Texas, Tx. DSM VMS ================INSTALLATION INSTRUCTIONS ================= It is recommended that the installation occur early in the morning before users are normally on the system. Install Time - less than 5 minutes 1. LOAD TRANSPORT GLOBAL --------------------- Choose the PackMan message containing this patch and invoke the INSTALL/CHECK MESSAGE PackMan option. 2. DISABLE ROUTINE MAPPING (DSM for Open VMS sites only) ----------------------- Disable routine mapping on all systems for the routines listed in step 3 below. NOTE: If the routines included in this patch are not currently in your mapped routine set, please skip this step. 3. COMPONENTS SENT WITH PATCH -------------------------- The following is a list of the routines included in this patch. The second line of each of these routines now looks like: ;;2.0;INTEGRATED BILLING;**[patch list]**;21-MAR-94 CHECK^XTSUMBLD results Routine name Before Patch After Patch Patch List ============ ============ =========== ========== IBCEOB 16335907 16566276 137,135,265 IBJTBA1 8893946 9181326 135,265 Total number of routines - 2 Total number of routines modified: 2 Total number of new routines: 0 The following is a list of fields included in this patch: NOTE: These are new fields. Field Name (Number) File Name (Number) ------------------- ------------------ TRACE NUMBER (#.07) EXPLANATION OF BENEFITS (#361.1) STATEMENT START DATE (#1.1) EXPLANATION OF BENEFITS (#361.1) STATEMENT END DATE (#1.11) EXPLANATION OF BENEFITS (#361.1) 4. START UP KIDS ------------- Start up the Kernel Installation and Distribution System Menu [XPD MAIN]: Edits and Distribution ... Utilities ... Installation ... Select Kernel Installation & Distribution System Option: INStallation --- Load a Distribution Print Transport Global Compare Transport Global to Current System Verify Checksums in Transport Global Install Package(s) Restart Install of Package(s) Unload a Distribution Backup a Transport Global Select Installation Option: 5. Select Installation Option: -------------------------- NOTE: The following are OPTIONAL - (When prompted for the INSTALL NAME, enter IB*2.0*265): a. Backup a Transport Global - This option will create a backup message of any routines exported with this patch. It will not backup any other changes such as DD's or templates. b. 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 components of this patch (routines, DD's, templates, etc.). c. Verify Checksums in Transport Global - This option will allow you to ensure the integrity of the routines that are in the transport global. 6. Select Installation Option: Install Package(s) ---------------- **This is the step to start the installation of this KIDS patch: a. Choose the Install Package(s) option to start the patch install. b. When prompted 'Want KIDS to INHIBIT LOGONs during the install? YES//' answer NO (unless otherwise indicated) c. When prompted 'Want to DISABLE Scheduled Options, Menu Options, and Protocols? YES//' answer NO (unless otherwise indicated) 7. REBUILD MAPPED ROUTINE(S) (DSM for Open VMS sites only) ------------------------- Optional - Include the routines distributed with this patch in the mapped routine set. NOTE: This step is only necessary if you performed step 2 or if you wish to include the routines in your mapped set. Routine Information: -------------------- ROUTINE: IBCEOB LINE: 5+10 contains only a semi-colon Add the following 2 lines after line 5+10: I $P(IB0,U,9) S DR=DR_"1.1///"_$$DATE^IBCEU($P(IB0,U,9))_";" I $P(IB0,U,10) S DR=DR_"1.11///"_$$DATE^IBCEU($P(IB0,U,10))_";" ROUTINE: IBJTBA1 Add the following lines after line MRA2+18 S IBD="Svc From Dt: "_$S('$P(IBM1,U,10):"",1:$$DAT1^IBOUTL($P(IBM1,U,10))) S IBSTR=$$SETLN^IBJTBA(IBD,"",2,38) S IBD="Svc To Dt: "_$S('$P(IBM1,U,11):"",1:$$DAT1^IBOUTL($P(IBM1,U,11))) S IBSTR=$$SETLN^IBJTBA(IBD,IBSTR,54,25) S IBLN=$$SET^IBJTBA(IBSTR,IBLN) Routine Information: ==================== Routine Name: - IBCEOB Routine Checksum: Routine Name: - IBJTBA1 Routine Checksum: ============================================================================= User Information: Entered By : KOPP,TERRY M Date Entered : FEB 19, 2004 Completed By: TORRANCE,LORI Date Completed: APR 22, 2004 Released By : JACKSON,SHERYL Date Released : APR 22, 2004 ============================================================================= Packman Mail Message: ===================== $END TXT