$TXT Created by YORTY,M ROBERT at MNTVMM.FO-ALBANY.MED.VA.GOV (KIDS) on Wednesday, 04/30/03 at 15:36 ============================================================================= Run Date: JUN 12, 2003 Designation: DG*5.3*515 Package : DG - REGISTRATION Priority: Mandatory Version : 5.3 SEQ #449 Status: Released Compliance Date: JUL 13, 2003 ============================================================================= Subject: G&L SHEET (MT COPAY APPLICABILITY) CHANGES Category: - Routine Description: ============ Geographic Means Tests was introduced changing the naming conventions of Category A and Category C Means Tests. This patch will update the Gains and Losses (G&L) Sheet [DG G&L SHEET] with modifications needed to conform to these changes in the display of Means Test status. Changes will include the following: ----------------------------------- 1. The legend displaying Means Test status for patients in the 'Gains and Losses (G&L) Sheet' [DG G&L SHEET] option will replace Category 'A' Veteran with MT Copay Exempt; replace Category 'C' Veteran with MT Copay Required; add GMT Copay Required. Patients with a Pending Adjudication Means Test status will display whether the pending adjudication is for MT Copay Required or GMT Copay Required, with the latter determination being displayed on the G&L Sheet. 2. Title of 'Means Test Indicator's' under the parameters display of the 'Gains and Losses (G&L) Sheet' option will be replaced with 'Means Test Copay Applicability'. 3. Title of 'Means Test Display' under the parameters display of the 'G&L Parameter Edit' [DGPM G&L PARAMETER EDIT] option will be replaced with 'Means Test Copay Applicability Display'. This patch addresses the following E3R(s): ------------------------------------------ There are no E3R(s) associated with this patch. This patch addresses the following NOIS messages: ------------------------------------------------- MAD-0103-41926 GMT COPAY REQUIRED NOT DISPLAY ON G&L Overview of NOIS Message(s): ---------------------------- MAD-0103-41926 GMT COPAY REQUIRED NOT DISPLAY ON G&L Problem: -------- MT Copay Required was still showing on the G&L Sheet as Cat C but the GMT Copay Required was not displaying. This led the site to believe they were treating a SC patient. Resolution: ----------- The legend when displaying Means Test was updated to conform to the Geographic Means Test statuses. GMT Copay Required was added as one of the edit checks when displaying the legend along side of the patient listed under the G&L Sheet. Titles for Means Test under the parameters display have been updated to include 'Copay Applicability' in its description. Test Sites: ----------- =======================INSTALLATION INSTRUCTIONS========================== This patch can be installed with users on the system, however it should be installed during off hours to minimize disruption to users. Install Time - 1 minute. Please ensure that your programming variables are set, including your DUZ(0)="@", otherwise installation will abort. 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.3;Registration;**[patch list]**;AUG 13,1993 CHECK^XTSUMBLD results Routine Before Patch After Patch Patch List ------- ------------ ----------- ---------- DGPMGL 11934242 11982095 85,515 DGPMGL5 3750408 3862499 515 DGPMGLG5 4941032 4470914 34,137,515 DGPMGLP 12183476 12220002 20,134,515 Total number of routines - 4 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 DG*5.3*515): 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. c. When prompted 'Want to DISABLE Scheduled Options, Menu Options, and Protocols? YES//', answer NO. 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: - DGPMGLG5 Routine: DGPMGLG5 * OLD * DGPMGLG5 ;ALB/LM - G&L GENERATION, CONT.; 24 MAY 90 * NEW * DGPMGLG5 ;ALB/LM - G&L GENERATION, CONT.; 27 APR 2003 * OLD * ;;5.3;Registration;**34,137**;Aug 13, 1993 * NEW * ;;5.3;Registration;**34,137,515**;Aug 13, 1993 * OLD * I MT,$D(^DGMT(408.31,"C",DFN)) S X=$$MTIENLT^DGMTU3(1,DFN,-TO) I $D(^DGMT(408.31,+X,0)) S X=$P(^(0),"^",3) S X=$P(^DG(408.32,+X,0),"^",2) I "^A^B^C^R^ "[("^"_X_"^") S X=$C($A(X)+32),ID=ID_X,LEG(X)="" K X * NEW * I MT,$D(^DGMT(408.31,"C",DFN)) N DGX,X D * ADD * . S DGX=$$MTIENLT^DGMTU3(1,DFN,-TO) * ADD * . I $D(^DGMT(408.31,+DGX,0)) D * ADD * . . S X=$P(^(0),"^",3),X=$P(^DG(408.32,+X,0),"^",2) * ADD * . . I $G(X)="P" D ;evaluate pending adjudication to MT (C) or GMT (G) * ADD * . . . I '$D(DGX) S X="U" Q * ADD * . . . S X=$$PA^DGMTUTL(DGX),X=$S('$D(X):"U",X="MT":"C",X="GMT":"G",1:" U") * ADD * . . I "^A^B^C^G^R^"[("^"_X_"^") S X=$C($A(X)+32),ID=ID_X,LEG(X)="" K X,DGX Routine Checksum: Routine Name: - DGPMGLP Routine: DGPMGLP * OLD * DGPMGLP ;ALB/LM/MJK - G&L PRINT ROUTINE; 11 JUNE 90 * NEW * DGPMGLP ;ALB/LM/MJK - G&L PRINT ROUTINE; 27 APR 2003 * OLD * ;;5.3;Registration;**20,134**;Aug 13, 1993 * NEW * ;;5.3;Registration;**20,134,515**;Aug 13, 1993 * OLD * F I="+","*","#","!","a","b","c","r" S C=C+1 I $D(LEG(I)) S X="'"_I_"' - "_$P($T(LEG+C),";;",2)_"; " W:$X>(131-$L(X)) ! W X * NEW * F I="+","*","#","!","a","b","c","g","r" S C=C+1 I $D(LEG(I)) S X="'"_I _"' - "_$P($T(LEG+C),";;",2)_"; " W:$X>(131-$L(X)) ! W X * ADD * ;;MT Copay Exempt * OLD * ;;Category 'A' Veteran * NEW * ;;Category 'B' Veteran * ADD * ;;MT Copay Required * ADD * ;;GMT Copay Required * DEL * ;;Category 'B' Veteran * DEL * ;;Category 'C' Veteran Routine Checksum: Routine Name: - DGPMGL Routine: DGPMGL * OLD * DGPMGL ;ALB/MRL/LM/MJK - G&L ENTRY POINT; 1 FEB 89 * NEW * DGPMGL ;ALB/MRL/LM/MJK - G&L ENTRY POINT; 29 APR 2003 * OLD * ;;5.3;Registration;**85**;Aug 13, 1993 * NEW * ;;5.3;Registration;**85,515**;Aug 13, 1993 * OLD * W !,$E("Means Test Indicator's"_L,1,58),$S(MT:"",1:"NOT "),"DISPLAYED" * NEW * W !,$E("Means Test Copay Applicability"_L,1,58),$S(MT:"",1:"NOT "),"DISPLAYED" Routine Checksum: Routine Name: - DGPMGL5 Routine: DGPMGL5 * OLD * DGPMGL5 ;ALB/MRL - G&L PARAMETER ENTRY/EDIT; 28 JUN 89 * NEW * DGPMGL5 ;ALB/MRL - G&L PARAMETER ENTRY/EDIT; 29 APR 2003 * OLD * ;;5.3;Registration;;Aug 13, 1993 * NEW * ;;5.3;Registration;**515**;Aug 13, 1993 * OLD * W !,"Means Test Display",?43,": ",$S($P(DGPM,"^",3):"YES",1:"NO") * NEW * W !,"Means Test Copay Applicability Display",?43,": ",$S($P(DGPM,"^",3):"YES",1:"NO") Routine Checksum: ============================================================================= User Information: Entered By : YORTY,M ROBERT Date Entered : APR 28, 2003 Completed By: RYAN,DOLORES G Date Completed: JUN 12, 2003 Released By : FITCH,DONNA Date Released : JUN 12, 2003 ============================================================================= Packman Mail Message: ===================== $END TXT