$TXT Created by GOLDSMITH,RHONDA at MNTVBB.FO-ALBANY.MED.VA.GOV (KIDS) on Tuesday, 12/28/04 at 12:33 ============================================================================= Run Date: MAR 01, 2005 Designation: PRCA*4.5*226 Package : PRCA - ACCOUNTS RECEIVABLE Priority: Mandatory Version : 4.5 SEQ #198 Status: Released Compliance Date: APR 01, 2005 ============================================================================= Associated patches: (v)PRCA*4.5*153<<= must be installed BEFORE `PRCA*4.5*226' (v)PRCA*4.5*192<<= must be installed BEFORE `PRCA*4.5*226' Subject: WR DOCUMENTS NOT SENT TO FMS Category: - Routine Description: ============ This patch addresses 2 issues. The first issue is incorrect coding in routine RCBEUBIL. This is not causing an error and it doesn't appear to have caused any incorrect data in the past but the change is needed to safeguard against any future problems. The second issue is incorrect coding in routine RCBEUTR1. The code is looking at file #430 instead of #433. If a contractual adjustment is made, a Modified Billing Document is being sent to FMS instead of the correct Write Off Document. This problem only affects bills with a category of 30 (tricare) or 32 (tricare third party) AND using a contractual adjustment. Associated E3R(s): ================= N/A Associated NOIS: ================ 1. ISH-0604-40854 Incorrect Code in Routine RCBEUBIL 2. ISH-0604-40855 Incorrect Code Found in Routine RCBEUTR1 PARTICIPATING TEST SITES: ========================= El Paso,TX VA Greater Los Angeles HCS Wilmington,DE NOIS OVERVIEW: ============== 1. ISH-0604-40854 Incorrect Code in Routine RCBEUBIL Problem: ------- Corefls Development found the following incorrect codes in routine RCBEUBIL: variable BILLDA should be RCBILLDA FYMULT(RCTRANDA) ; update the fiscal year multiple for bill ; to equal the fiscal year multiple for transaction in file 433 N BILLDA,FYDA S BILLDA=$P($G(^PRCA(433,RCTRANDA,0)),"^",2) I 'BILLDA Q S FYDA=0 F S FYDA=$O(^PRCA(433,RCTRANDA,4,FYDA)) Q:'FYDA D . I $D(^PRCA(430,RCBILLDA,2,FYDA,0)) S $P(^PRCA(430,RCBILLDA ,2,FYDA,0),"^",2)=$P(^PRCA(433,RCTRANDA,4,FYDA,0),"^",2 Q Resolution ---------- Changed variable BILLDA to RCBILLDA in order to safeguard possible bad data sent from external applications. 2. ISH-0604-40855 Incorrect Code Found in Routine RCBEUTR1 Problem: -------- The COREFLS Development found the following incorrect code in routine RCBEUTR1: the error is at INCDEC+81 in routine RCBEUTR1. The code is looking at the wrong node. As a result, any WR documents meeting this requirement will not be sent to FMS. . ; category=30 tricare or 32 tricare third party, and contract adj . I (CATEG=30!(CATEG=32)),$P($G(^PRCA(430,RCBILLDA,8)),"^",8) D Q In the highlighted portion above, the code is looking at the bill file (430) for a contract adjustment. It should be looking at the transaction file (433). Resolution: ----------- Changed the code to read from correct file #433 so that correct FMS document (Write Off Document)will be generated when a contractual adjustment is being processed. ROUTINE SUMMARY: ================ 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 Before Patch After Patch Patch List --------- ------------ ----------- ---------- RCBEUBIL 6922117 6940318 153,226 RCBEUTR1 8288030 8289019 153,169,192,226 Total number of routines = 2 INSTALLATION INSTRUCTIONS: ========================= This patch can be loaded with users in the system. Installation time will be less than 5 minutes. 1. Choose the PackMan message containing this patch and invoke the INSTALL/CHECK MESSAGE PackMan option. 2. (DSM for Open VMS sites only) Disable routine mapping on all systems for the routines listed in the Routine Summary. NOTE: If the routines included in this patch are not currently in your mapped routine set, please skip this step. 3. 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: 4. From this menu, you may elect to use the following options (When prompted for the INSTALL NAME, enter PRCA*4.5*226): 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. 5. Use the Install Package(s) option and select the package PRCA*4.5*226. a. When prompted 'Want KIDS to INHIBIT LOGONs during the install? YES//', answer NO (unless otherwise indicated). b. When prompted 'Want to DISABLE Scheduled Options, Menu Options, and Protocols? YES//', answer YES. c. When prompted 'Enter options you wish to mark as 'Out Of Order':', enter the following options: [PRCAC TR DECREASE] Decrease Adjustment [PRCAC TR ADJUSTMENT] Adjustment to an AR record d. When prompted 'Enter protocols you wish to mark as 'Out Of Order':', press . 6. (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 Name: - RCBEUBIL Routine Checksum: Routine Name: - RCBEUTR1 Routine Checksum: ============================================================================= User Information: Entered By : GOLDSMITH,RHONDA Date Entered : DEC 22, 2004 Completed By: ILUSTRISIMO,LUCY Date Completed: FEB 25, 2005 Released By : MURRAY,JOHN J Date Released : MAR 01, 2005 ============================================================================= Packman Mail Message: ===================== $END TXT