$TXT Created by THEROUX,JOHN at MNTVBB.FO-ALBANY.MED.VA.GOV (KIDS) on Friday, 07/07/06 at 11:17 ============================================================================= Run Date: OCT 03, 2006 Designation: DG*5.3*720 Package : DG - REGISTRATION Priority: Mandatory Version : 5.3 SEQ #636 Status: Released Compliance Date: NOV 03, 2006 ============================================================================= Associated patches: (v)DG*5.3*620 <<= must be installed BEFORE `DG*5.3*720' (v)DG*5.3*700 <<= must be installed BEFORE `DG*5.3*720' Subject: EDITING PATIENT NAME Category: - Routine - PATCH FOR A PATCH Description: ============ This patch restores the ability to delete a patient's middle name, suffix and multiple birth indicator (MBI). MBI changes will no longer be considered a catastrophic edit. This patch also corrects part of the suffix help text. ASSOCIATED REMEDY TICKET: ========================= 1) HD148324 Incorrect Help Text in the Registration software and unable to delete incorrect suffix Duplicates: HD 153806 HD 155972 2) HD 148693 Receiving catastrophic alert erroneously ASSOCIATED NSR'S: ================= N/A PARTICIPATING TEST SITES: ========================= Detroit, MI Madison, WI Providence, RI Grand Junction,CO N. FL/S. GA VHS Miami, FL REMEDY OVERVIEW: ================ 1) HD 148324 Incorrect Help Text in the Registration software and unable to delete incorrect suffix Problem: ======== Patch DG*5.3*700 made it impossible to delete a patient's Middle Name, Suffix, or Multiple Birth Indicator using Screen #1 of the Load/Edit Patient Data [DG LOAD PATIENT DATA] option. The Remedy ticket reporting this also pointed out that the following help text for the Suffix should be corrected to change the second "II" to "III": "Answer with this person's suffix(es), such as JR, SR, II, or II." Solution: ========= Routine DGRPECE was modified to allow deleting data in these fields. Routine DPTNAME1 was changed to correct the help text for the suffix. 2) HD 148693 Receiving catastrophic alert erroneously Problem: ======== Patch DG*5.3*700 considered a change to the multiple birth indicator (MBI) as contributing to a possible catastrophic edit. We are now advised that the MBI shouldn't be counted in the CE alert, since it isn't an identify field, but instead is used like a flag. Solution: ========= Routine DGRPECE will be further modified not to consider changes to the MBI as contributing to a catastrophic edit. INSTALLATION INSTRUCTIONS: =========================== This patch may be run with users on the system. Installation will take less than 5 minutes. 1. Use the INSTALL/CHECK MESSAGE option on the PackMan menu to unload the KIDS distribution included with this message. NOTE: If the required patches are not installed, the transport global will be removed. If the transport global is removed you will need to repeat this step. 2. From the Kernel Installation and Distribution System Menu, select the Installation menu. 3. From this menu, you may elect to use the following options (when prompted for INSTALL NAME, enter DG*5.3*720): a. Compare Transport Global to Current System - this option will allow you to view all changes that will be made when the patch is installed. It compares all components of the patch (routines, DDs, templates, etc.). b. Verify Checksums in Transport Global - this option will allow you to ensure the integrity of the routines that are in the transport global. c. Print Transport Global - this option will allow you to view the components of the KIDS build. d. 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. 4. Use the Install Package(s) option and select the package DG*5.3*720. 5. When prompted 'Want KIDS to INHIBIT LOGONs during the install? YES//', respond NO. 6. When prompted,'Want to DISABLE Scheduled Options, Menu Options, and Protocols? NO//', respond Yes. When prompted,'Enter options you wish to mark as 'Out Of Order':', enter: Register a Patient [DG REGISTER PATIENT] Load/Edit Patient Data [DG LOAD PATIENT DATA] When prompted,'Enter protocols you wish to mark as 'Out Of Order':', press enter. ROUTINE SUMMARY: ================ The following is a list of the routine(s) included in this patch. The second line of each of these routine(s) will look like: ;;5.3;Registration;**[patch list]**;Aug 13, 1993 Using old logic: CHECK^XTSUMBLD results Routine name Before Patch After Patch Patch List ============ ============ =========== ========== DGRPECE 10368388 10332062 638,682,700,720 DPTNAME1 3479328 3483812 244,620,720 Routine Information: ==================== The checksums below are new checksums, and can be checked with CHECK1^XTSUMBLD. Routine Name: DGRPECE Before: B48381081 After: B48581552 **638,682,700,720** Description of Changes: DGRPECE.INT.1 |"PATVEE"|DGRPECE.INT.1 ************************************************************************** ***** DGRPECE.INT.1 +2 ;;5.3;Registration;**638,682,700,720**;Aug 13, 1993 ................... |"PATVEE"|DGRPECE.INT.1 +2 ;;5.3;Registration;**638,682,700**;Aug 13, 1993 --------------------------------------- DGRPECE.INT.1 +54 S BUFFER("MBI")=Y ................... |"PATVEE"|DGRPECE.INT.1 --------------------------------------- DGRPECE.INT.1 ................... |"PATVEE"|DGRPECE.INT.1 +55 S BUFFER("MBI")=Y --------------------------------------- DGRPECE.INT.1 +96 BEFORE(IEN,BEF,BUF) ;save original name, ssn, dob, sex, mbi, prefix, degr ee ................... |"PATVEE"|DGRPECE.INT.1 +96 BEFORE(IEN,BEF,BUF) ;save original name, ssn, dob, sex --------------------------------------- DGRPECE.INT.1 +105 S BEF("MIDDLE")="",BEF("SUFFIX")="",BUF("MIDDLE")="",BUF("SUFFIX")= "" ................... |"PATVEE"|DGRPECE.INT.1 +105 S BEF("MIDDLE")="",BEF("SUFFIX")="",BUF("MIDDLE")="",BUF("MIDDLE")= "" --------------------------------------- DGRPECE.INT.1 +129 I $D(BUF("MIDDLE")),BUF("MIDDLE")'=BEF("MIDDLE") D ................... |"PATVEE"|DGRPECE.INT.1 +129 I $D(BUF("MIDDLE")),BUF("MIDDLE")'="",BUF("MIDDLE")'=BEF("MIDDLE") D --------------------------------------- DGRPECE.INT.1 +131 I $D(BUF("SUFFIX")),BUF("SUFFIX")'=BEF("SUFFIX") D ................... |"PATVEE"|DGRPECE.INT.1 +131 I $D(BUF("SUFFIX")),BUF("SUFFIX")'="",BUF("SUFFIX")'=BEF("SUFFIX") D --------------------------------------- DGRPECE.INT.1 +144 I $D(BUF("MBI")),BUF("MBI")'=BEF("MBI") D +145 . S SAV("MBI")=BUF("MBI") ................... |"PATVEE"|DGRPECE.INT.1 +144 I $D(BUF("MBI")),BUF("MBI")'="",BUF("MBI")'=BEF("MBI") D +145 . S SAV("MBI")=BUF("MBI"),DGCNT=DGCNT+1 --------------------------------------- DGRPECE.INT.1 +148 I DGCNT=0,$D(SAV("MBI")) Q 1 ; multiple birth indicator change ................... |"PATVEE"|DGRPECE.INT.1 --------------------------------------- DGRPECE.INT.1 +150 I DGCNT<2 Q 1 ;make one change w/o CE message +151 I DGCNT>1 Q 2 ;more than 1 change, send CE message ................... |"PATVEE"|DGRPECE.INT.1 +149 I DGCNT<2 Q 1 ;make one change w/o alert +150 I DGCNT>1 Q 2 ;more than 1 change, send warning message Routine Name: DPTNAME1 Before: B10381357 After: B10389564 **244,620,720** Description of Changes: DPTNAME1.INT.1 |"PATVEE"|DPTNAME1.INT.1 ************************************************************************** ***** DPTNAME1.INT.1 +2 ;;5.3;Registration;**244,620,720**;Aug 13, 1993 ................... |"PATVEE"|DPTNAME1.INT.1 +2 ;;5.3;Registration;**244,620**;Aug 13, 1993 --------------------------------------- DPTNAME1.INT.1 +51 D HTEXT("suffix(es), such as JR, SR, II, or III.",DGM("LENGTH")) ................... |"PATVEE"|DPTNAME1.INT.1 +51 D HTEXT("suffix(es), such as JR, SR, II, or II.",DGM("LENGTH")) ************************************************************************** ***** ============================================================================= User Information: Entered By : THEROUX,JOHN Date Entered : JUN 27, 2006 Completed By: BOWEN,MARY JANE Date Completed: OCT 03, 2006 Released By : HEUER,CINDY Date Released : OCT 03, 2006 ============================================================================= Packman Mail Message: ===================== $END TXT