$TXT Created by KOPP,TERRY at MNTVBB.FO-ALBANY.MED.VA.GOV (KIDS) on Wednesday, 03/24/04 at 12:26 ============================================================================= Run Date: APR 14, 2004 Designation: PRCA*4.5*216 Package : PRCA - ACCOUNTS RECEIVABLE Priority: Mandatory Version : 4.5 SEQ #184 Status: Released Compliance Date: MAY 15, 2004 ============================================================================= Subject: E-PAYMENTS PHASE II PREP Category: - Routine Description: ============ This patch was produced to address two issues relating to EDI Lockbox. The first issue is there is a problem with bill number identification when an ERA is received. If the payer identifies the claim by using the format of the 3 digit station number, a space and then the rest of the bill number, VistA cannot find it in the site's A/R file. The solution is to put a dash in place of the space so the Fileman lookup into the site's A/R will return the correct entry. The second issue is there is data missing from VistA that will allow for automatic verification of EEOBs (Electronic Explanation of Benefits) contained on an ERA (Electronic Remittance Advice). The criteria to be used for verification includes the first 5 characters of the patient's last name from the 835 flat file. We already receive the data in the flat file, but do not currently store it for every EEOB. It is only stored in VistA for claims that cannot be automatically found in the site's A/R (invalid claims). This patch will change the logic in VistA to store the patient's name from the 835 flat file in the FREE TEXT PATIENT NAME field (#.15) in the subfile ERA DETAIL (#344.41) within the ELECTRONIC REMITTANCE ADVICE file (#344.4) for both valid and invalid claims. Associated patches: (v)PRCA*4.5*173 <<= must be installed BEFORE `PRCA*4.5*216' 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): --------------------------------------------------- There are no NOIS messages associated with this patch Overview of NOIS Message(s): ---------------------------- N/A Test Sites: ----------- VISN # Facility M type/OS ------ ----------------------- ----------- 4 503 Altoona, Pa. CACHE VMS 9 603 Louisville, Ky. DSM VMS 7 679 Tuscaloosa, Al. CACHE NT 21 570 Fresno, Ca. CACHE VMS 17 671 San Antonio 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: ;;4.5;Accounts Receivable;**[patch list]**;Mar 20, 1995 CHECK^XTSUMBLD results Routine name Before Patch After Patch Patch List ============ ============ =========== ========== RCDPESR2 29685734 29658433 173,216 RCDPESR4 18178004 18216454 173,216 Total number of routines - 2 Total number of routines modified: 2 Total number of new routines: 0 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 PRCA*4.5*216): 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: RCDPESR2 code changes UPDEOB+7 WAS: ; patient name (if invalid bill)^amt billed IS NOW: ; patient name on EEOB^amt billed UPDEOB+40 WAS: . I +RC0=5 S RCCT=RCCT+1,RCCT1=0,RCBILL=$P(RC0,U,2),Z=$$BILL^RCDPESR1(RCBILL,.RCIB),Z=$ S(Z:$S($G(RCIB):Z,1:-1),1:-1),^TMP($J,"RCDP-EOB",RCCT,0)=Z_U_RCBILL D IS NOW: . I +RC0=5 S RCCT=RCCT+1,RCCT1=0,RCBILL=$P(RC0,U,2),Z=$$BILL^RCDPESR1(RCBILL,.RCIB),Z=$ S(Z>0:$S($G(RCIB):Z,1:-1),1:-1),^TMP($J,"RCDP-EOB",RCCT,0)=Z_U_RCBILL D UPDEOB+41 WAS: .. I Z'>0 S $P(^TMP($J,"RCDPEOB",RCCT,"EOB"),U,5)=$P(RC0,U,3)_","_$P(RC0,U,4)_" "_$P(RC0,U,5) ; Save pt name IS NOW: .. S $P(^TMP($J,"RCDPEOB",RCCT,"EOB"),U,5)=$P(RC0,U,3)_","_$P(R C0,U,4)_" "_$P(RC0,U,5) ; Save pt name RCDPESR4 code changes: EXTERA+38 WAS: ... S A=$P(XMRG,U,2),B=$E(A,1,3)_"-"_$E(A,4,$L(A)) IS NOW: ... S A=$P(XMRG,U,2),A=$TR(A," "),B=$E(A,1,3)_"-"_$E(A,4,$L(A)) Routine Information: ==================== Routine Name: - RCDPESR2 Routine Checksum: Routine Name: - RCDPESR4 Routine Checksum: ============================================================================= User Information: Entered By : KOPP,TERRY M Date Entered : FEB 19, 2004 Completed By: TORRANCE,LORI Date Completed: APR 14, 2004 Released By : BARRICK,DENISE Date Released : APR 14, 2004 ============================================================================= Packman Mail Message: ===================== $END TXT