$TXT Created by PHELPS,TY at CIF.FO-ALBANY.MED.VA.GOV (KIDS) on Wednesday, 04/09/03 at 10:26 ============================================================================= Run Date: MAY 15, 2003 Designation: EN*7*73 Package : EN - ENGINEERING Priority: Mandatory Version : 7 SEQ #70 Status: Released Compliance Date: JUN 15, 2003 ============================================================================= Subject: File 6914 Equipment Inventory, field #11 Purchase Order Number Category: - Data Dictionary Description: ============ This patch addresses the problem of entering a Purchase Order Number containing an "E", which the system fails to accept. ASSOCIATED NOIS: --------------- 1. DUR-0601-32547 DD file# 6914 ASSOCIATED E3R(s): ----------------- N/A PARTICIPATING TEST SITES: ------------------------ NOIS OVERVIEW: ------------- 1. DUR-0601-32547 DD file# 6914 Problem: ------- The system language, in some cases, treats the "E" in a number string as an exponential notation (For instance "1E3" would equate to "1000"). Due to this "E" exponential notation, the value of the Purchase Order Number becomes too large for the system to handle and the system issues the error "illegal number". See Example below: 1 New Inventory Entry 2 Multiple Inventory Entry 3 Inventory Edit 4 Display Equipment Record 5 Equipment Reports ... 6 PM Parameters ... 7 Generate PM Schedule ... 8 Record Equipment PMI ... 9 Print Bar Code Labels for Equipment Management ... 10 Bar Coded Equipment Inventory Management ... 11 Purchase Order Group Edit 12 Lockout/Tagout Enter/Edit 13 Turn-In/Disposition Equipment Select Equipment Management Option: 11 Purchase Order Group Edit Multiple Equipment Edit PURCHASE ORDER #: 1E123456 %DSM-E-NUMBER, illegal number %DSM-I-ATLABEL, IT+3^DIR1:1 . X $P(%B3,U,5,99) Resolution: ---------- Correct the input screening of the Purchase Order Number to view the entry as a character string and not as a numeric value. Hence, not evoking the exponential logic which expanded the Purchase Order Number. Example: 1 New Inventory Entry 2 Multiple Inventory Entry 3 Inventory Edit 4 Display Equipment Record 5 Equipment Reports ... 6 PM Parameters ... 7 Generate PM Schedule ... 8 Record Equipment PMI ... 9 Print Bar Code Labels for Equipment Management ... 10 Bar Coded Equipment Inventory Management ... 11 Purchase Order Group Edit 12 Lockout/Tagout Enter/Edit 13 Turn-In/Disposition Equipment Select Equipment Management Option: 11 Purchase Order Group Edit Multiple Equipment Edit PURCHASE ORDER #: 1E123456 1 Equipment Items found with Purchase Order # = 688-1E123456 Line Equipment Category Manufacturer Model Count 1 unspecified unspecified unspecified 1 Select line(s) to edit: (1-1): TECHNICAL: --------- In "MUMPS math operations" the "E" in a number string denotes an exponential notation. (For instance "1E3" would equate to "1000"). The INPUT TRANSFORM for the PURCHASE ORDER # (#11) field in the EQUIPMENT INV. (#6914) file contains a math operation (X<0) (testing the input for a negative value). This expression will equate "E" as an exponential notation. In some cases the value of the input Purchase Order number becomes too large for the system to handle. The INPUT TRANSFORM already has a test for a leading negative character (-) earlier, which makes the test for a negative value redundant as well as invalid. The negative value check (X<0) has been removed from the INPUT TRANSFORM. ROUTINE SUMMARY =============== N/A INSTALLATION INSTRUCTIONS ========================= This patch can be loaded with users in the system. Installation time will be less than 2 minutes. 1. Choose the PackMan message containing this patch and invoke the INSTALL/CHECK MESSAGE PackMan option. 2. Start up the Kernel Installation and Distribution System Menu [XPD MAIN]: Edits and Distribution ... Utilities ... Installation ... Select Kernel Installation & Distribution System Option: Installation --- 1 Load a Distribution 2 Verify Checksums in Transport Global 3 Print Transport Global 4 Compare Transport Global to Current System 5 Backup a Transport Global 6 Install Package(s) Restart Install of Package(s) Unload a Distribution 3. From this menu, you may elect to use the following options (When prompted for the INSTALL NAME, enter EN*7.0*73): a. 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.). 4. Use the Install Package(s) option and select the package EN*7.0*73. a. When prompted 'Want KIDS to INHIBIT LOGONs during the install? YES//', answer NO. b. When prompted 'Want to DISABLE Scheduled Options, Menu Options, and Protocols? YES//' answer NO. Example install follows: 1 Load a Distribution 2 Verify Checksums in Transport Global 3 Print Transport Global 4 Compare Transport Global to Current System 5 Backup a Transport Global 6 Install Package(s) Restart Install of Package(s) Unload a Distribution Select Installation Option: 6 Install Package(s) Select INSTALL NAME: EN 1 EN*7.0*68 Loaded from Distribution 5/10/01@16:17:11 => Released EN*7*68 SEQ #66 2 EN*7.0*73 Loaded from Distribution 3/18/03@12:55:28 => EN*7*73 TEST v1 CHOOSE 1-2: 2 EN*7.0*73 Loaded from Distribution 3/18/03@12:55:28 => EN*7*73 TEST v1 This Distribution was loaded on Mar 18, 2003@12:55:28 with header of EN*7*73 TEST v1 It consisted of the following Install(s): EN*7.0*73 Checking Install for Package EN*7.0*73 Install Questions for EN*7.0*73 Incoming Files: 6914 EQUIPMENT INV. (Partial Definition) Note: You already have the 'EQUIPMENT INV.' File. Want KIDS to INHIBIT LOGONs during the install? YES// NO Want to DISABLE Scheduled Options, Menu Options, and Protocols? YES// NO Enter the Device you want to print the Install messages. You can queue the install by enter a 'Q' at the device prompt. Enter a '^' to abort the install. DEVICE: HOME// TELNET Install Started for EN*7.0*73 : EN*7.0*73 -------------------------------------------------------------------------- Mar 18, 2003@12:57:25 Build Distribution Date: Mar 18, 2003 Installing Routines: Mar 18, 2003@12:57:25 Installing Data Dictionaries: Mar 18, 2003@12:57:26 Updating Routine file... Updating KIDS files... EN*7.0*73 Installed. Mar 18, 2003@12:57:26 Install Message sent #6032901 -------------------------------------------------------------------------- +------------------------------------------------------------+ 100% | 25 50 75 | Complete +------------------------------------------------------------+ Install Completed Routine Information: ==================== ============================================================================= User Information: Entered By : HARTIN,JAMES Date Entered : MAR 17, 2003 Completed By: PHELPS,TY Date Completed: MAY 15, 2003 Released By : DIETRICH,JON Date Released : MAY 15, 2003 ============================================================================= Packman Mail Message: ===================== $END TXT