$TXT Created by GINSBERG,ELIOT at MNTVLL.FO-ALBANY.MED.VA.GOV (KIDS) on Tuesday, 04/18/06 at 14:29 ============================================================================= Run Date: OCT 19, 2006 Designation: IVM*2*116 Package : IVM - INCOME VERIFICATION MATCH Priority: Mandatory Version : 2 SEQ #98 Status: Released Compliance Date: NOV 19, 2006 ============================================================================= Associated patches: (v)IVM*2*99 <<= must be installed BEFORE `IVM*2*116' Subject: Fix Copay Test Transmission Category: - Routine Description: ============ Non Service Connected Veterans, who are in an Enrollment Priority Group 5 or Group 6, do not require a Means Test but they are required to have an Rx Copay Test. Currently the Full Data HL7 Transmission (ORU/ORF~Z07) from VistA to the Health Eligibility Center (HEC) is not including the test. The Full Data HL7 Transmission is only sending the Rx Copay Test to the HEC when the test is linked to a valid Means Test. This link is identified when the LINKED RX COPAY/MEANS TEST field (#2.06) of the ANNUAL MEANS TEST file (408.31) in the Means Test contains a pointer to the Rx Copay Test and vice versa. This patch (IVM*2.0*116) is correctly identifying Priority Group 5 and 6 veterans who only require an Rx Copay Test, and those tests will be included in the Full Data HL7 Transmission. This patch addresses the following New Service Request (NSR): ------------------------------------------------------------- There is no NSR associated with this patch. This patch addresses the following Remedy ticket(s): --------------------------------------------------------- HD0000000136202 Can not delete and upload the means test for a particular patient. Overview of Remedy Ticket: ---------------------------- See above Test Sites: ----------- Ann Arbor Salisbury Montana HCS ================INSTALLATION INSTRUCTIONS ================= If installed during the normal workday, it is recommended that the following selection(s) in the OPTION (#19) file, and all of their descendants be disabled to prevent possible conflicts while running the KIDS Install. Other VISTA users will not be affected. IVM BACKGROUND JOB [IVM BACKGROUND JOB] 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. 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: ;;2.0;INCOME VERIFICATION MATCH;**[patch list]**; 21-OCT-94 CHECK^XTSUMBLD results Routine Before Patch After Patch Patch List ------- ------------ ----------- ---------- IVMPTRN9 9994911 10894353 9,11,19,12,21 17,46,50,53,34 49,58,79,99,116 Total number of routines - 1 # of routines changes - 1 3. 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: 4. Select Installation Option: --------------------------- NOTE: The following are OPTIONAL - (When prompted for the INSTALL NAME, enter IVM*2.0*116): 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. 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 (unless otherwise indicated) c. When prompted 'Want to DISABLE Scheduled Options, Menu Options, and Protocols? YES//' answer YES d. When prompted 'Enter options you wish to mark as 'Out Of Order':' Enter the following options: IVM BACKGROUND JOB [IVM BACKGROUND JOB] e. When prompted 'Enter protocols you wish to mark as 'Out Of Order':' press . Routine Information: ==================== The checksums below are new checksums, and can be checked with CHECK1^XTSUMBLD. Routine Name: IVMPTRN9 Before: B27173973 After: B32694345 **9,11,19,12,21,17,46,50,53,34, 49,58,79,99,116** Description of Changes: Summary of changes: changed module GOTO (co-pay ZMT segment) to handle linked co-pay tests and stand alone co-pay tests better Before: +31 N CPTST,LINK +32 S SEQS="1,17",CPTST=+$$LST^DGMTU(DFN,IVMMTDT,2),LINK=$P($G(^DGMT(40 8.31,CPTST,2)),U,6) +33 I LINK=+$$LST^DGMTU(DFN,IVMMTDT,1) S SEQS="1,2,3,4,9,10,12,15,16,17 ,18,22,25,26" +34 S IVMCT=IVMCT+1,^TMP("HLS",$J,IVMCT)=$$EN^IVMCZMT(DFN,SEQS,IVMMTDT, 2,2,.DELETE,1) After: +31 N IVMCPDT,CPTST,LINK,CPDATE +32 ;should be ok to get the last co-pay test for this year vs. looking from the IVMMTDT backwards +33 ;as long as the means test date is in the current year +34 S CPTST=$$LST^DGMTU(DFN,$E(IVMIY,1,3)+1_1231,2) +35 I CPTST D +36 . S CPDATE=$P(CPTST,U,2) +37 . S LINK=$P($G(^DGMT(408.31,+CPTST,2)),U,6) +38 . I TESTTYPE=1,$E(CPDATE,1,3)=$E(IVMMTDT,1,3) D +39 . . ;if you have a means test and a linked co-pay test then send both (the means test +40 . . ;was already sent from above) +41 . . ;if means and copay are not linked, don't send the co-pay test (the means test +42 . . ;was already sent from above) +43 . . I LINK=+$$LST^DGMTU(DFN,IVMMTDT,1) S TESTTYPE=2,(IVMCPDT,IVMMTD T)=CPDATE +44 . . Q +45 . Q +46 ;always send the 2nd ZMT segment +47 S SEQS="1,17" +48 ;can also send a co-pay test if there is no means test (see module GETTYPE) +49 I TESTTYPE=2 D +50 . S SEQS="1,2,3,4,5,6,7,9,10,12,15,16,17,18,21,22,25,26" +51 . Q +52 S IVMCT=IVMCT+1,^TMP("HLS",$J,IVMCT)=$$EN^IVMCZMT(DFN,SEQS,IVMMTDT, 2,2,.DELETE,1) ============================================================================= User Information: Entered By : MULLER,RICHARD Date Entered : FEB 15, 2006 Completed By: KOPP,TERRY M Date Completed: OCT 19, 2006 Released By : GANUS,MAUNETTE Date Released : OCT 19, 2006 ============================================================================= Packman Mail Message: ===================== $END TXT