$TXT Created by ANDERSON,DOUGLAS at MNTVBB.FO-WASH.MED.VA.GOV (KIDS) on Thursday, 08/21/03 at 10:55 ============================================================================= Run Date: SEP 17, 2003 Designation: PRC*5.1*71 Package : PRC - IFCAP Priority: EMERGENCY Version : 5.1 SEQ #57 Status: Released Compliance Date: SEP 19, 2003 ============================================================================= Subject: ACCRUAL (MONTHLY) SV TRANSMISSION DATE Category: - Routine - Other Description: ============ This patch is part of the End of Accounting Month Schedule Change (EOAM) project. It will modify the date of transmission assigned to the SV code sheet that is generated by the Accrual (Monthly) [PRCB MONTHLY ACCRUAL] process. It will also modify the option description text for the Accrual (Monthly) option that is displayed from the OPTION (#19) file. After the installation of this patch, the SV code sheet that is generated by the Accrual (Monthly) [PRCB MONTHLY ACCRUAL] option will be transmitted to FMS on the same day that it is run, rather than being held until the last day of the month. The new description for the Accrual (Monthly) option in the (#19) file will appear as displayed below: This option will collect IFCAP purchase card orders accrual data. As part of the End of Accounting Month Schedule Change project the scheduling of this option through TaskMan was removed in IFCAP patch PRC*5.1*67. The option must now be run manually and the data transmitted to FMS by 8 PM Central Time on the last workday of the month. Please allow enough time for the running of the option in order to assure timely submittal of data. This patch addresses the following E3R(s): ------------------------------------------ There are no E3Rs associated with this patch. This patch addresses the following NOIS message(s): --------------------------------------------------- There are no NOIS messages associated with this patch. Test Sites: ----------- GLAHS - West LA Campus North Texas VHCS St. Cloud VAMC ================INSTALLATION INSTRUCTIONS ================= If installed during the normal workday, it is recommended that the following menu options (File #19) and all of their descendants be disabled to prevent possible conflicts while running the KIDS Install. Other VISTA users will not be affected. Accrual (Monthly) [PRCB MONTHLY ACCRUAL] 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: ;;5.1;IFCAP;**[patch list]**;Oct 20, 2000 CHECK^XTSUMBLD results Routine Before Patch After Patch Patch List ------- ------------ ----------- ---------- PRCB8B 7182142 7166232 71 Total number of routines - 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 PRC*5.1*71): 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. Want KIDS to Rebuild Menu Trees Upon Completion of Install? YES// answer YES unless your facility has policy to regularly rebuild the Menu Trees via a TaskMan job. c. When prompted 'Want KIDS to INHIBIT LOGONs during the install? YES//' answer NO (unless otherwise indicated) d. When prompted 'Want to DISABLE Scheduled Options, Menu Options, and Protocols? YES//' answer YES (unless otherwise indicated) e. When prompted 'Enter options you wish to mark as 'Out Of Order':' Enter the following options: Accrual (Monthly) [PRCB MONTHLY ACCRUAL] f. When prompted 'Enter protocols you wish to mark as 'Out Of Order':' press . 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 Name: - PRCB8B Previous code at tag SV2: SV2() ;create sv2 N PRCDATA,A,B S A=$$DATE^PRC0C($P(PRCFC,"^",10)+40,"H") S A=$$DATE^PRC0C($P(A,"^",4)_"/1/"_$P(A,"^",3),"E") D PIECE($P(A,"^",9),13,2),PIECE($E($P(A,"^"),3,4),12,2) S A=$$DATE^PRC0C($P(A,"^",8)-1,"H") D PIECE("SV2",1,3),PIECE($E($P(A,"^",3),3,4),2,2),PIECE($P(A,"^",4),3,2) ,PIECE($P(A,"^",5),4,2) D PIECE($P(A,"^",9),5,2),PIECE($E($P(A,"^"),3,4),6,2) S B=$S(PRCAMT<0:-PRCAMT,1:PRCAMT) D PIECE(PRCEM,7,1),PIECE($J(B,0,2),16,15) QUIT PRCDATA_"^~" ; Code at SV2 after PRC*5.1*71: SV2() ;create sv2 N PRCDATA,A,B S A=$$DATE^PRC0C($P(PRCFC,"^",10)+40,"H") S A=$$DATE^PRC0C($P(A,"^",4)_"/1/"_$P(A,"^",3),"E") D PIECE($P(A,"^",9),13,2),PIECE($E($P(A,"^"),3,4),12,2) S A=$$DATE^PRC0C(DT,"I") D PIECE("SV2",1,3),PIECE($E($P(A,"^",3),3,4),2,2),PIECE($P(A,"^",4),3,2) ,PIECE($P(A,"^",5),4,2) D PIECE($P(A,"^",9),5,2),PIECE($E($P(A,"^"),3,4),6,2) S B=$S(PRCAMT<0:-PRCAMT,1:PRCAMT) D PIECE(PRCEM,7,1),PIECE($J(B,0,2),16,15) QUIT PRCDATA_"^~" ; Routine Checksum: See CHECK^XTSUMBLD results. ============================================================================= User Information: Entered By : ANDERSON,DOUGLAS W Date Entered : JUN 23, 2003 Completed By: ROBBINS,BRADLEY Date Completed: SEP 17, 2003 Released By : COOPER,SAMANTHA Date Released : SEP 17, 2003 ============================================================================= Packman Mail Message: ===================== $END TXT