$TXT Created by MULLER,RICHARD at MNTVBB.FO-ALBANY.MED.VA.GOV (KIDS) on Monday, 06/16/03 at 10:04 ============================================================================= Run Date: JUL 24, 2003 Designation: DG*5.3*519 Package : DG - REGISTRATION Priority: Mandatory Version : 5.3 SEQ #458 Status: Released Compliance Date: AUG 24, 2003 ============================================================================= Associated patches: (v)DG*5.3*476 <<= must be installed BEFORE `DG*5.3*519' Subject: FIX QUERY RESPONSE FOR FUTURE MT Category: - Routine Description: ============ Problem: ======== Future Dated Income Tests are not correctly being identified, and the resulting IVM FULL DATA (Z07) Transmission to the HEC is not containing the test data. This is causing the Income Tests to be deleted from the IVM CLIENT INCOME (#300.13) File at the HEC. Resolution: =========== The code in the Z07 Builder will be modified to correctly identify future dated Income Tests when no current dated Income Test is found for the Income Year in the transmission. This patch addresses the following E3R(s): ------------------------------------------ There are no E3Rs associated with this patch. This patch addresses the following NOIS message(s): --------------------------------------------------- IVM-0503-30088: Means Tests Corrupted in File at HEC Overview of NOIS Message(s): --------------------------- NOIS: IVM-0503-30088 - Means Tests Corrupted in File at HEC Problem: Means Tests are being corrupted in the INCOME YEAR sub-file (#300.1313) record in the IVM CLIENT INCOME File (#300.13). Resolution: The Future Dated Income Test API will be modified to correctly identify the tests. Test Sites: ----------- Madison Milwaukee ================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. [IVM BACKGROUND JOB] IVM BACKGROUND JOB You may wish to stop the HL7 filers prior to the install to prevent possible 'No Source Errors' from occurring. No transmissions will be lost if the filers are not stopped first, they will be picked up once the filers are restarted. The patch should be installed during non-peak hours. Install Time - 15 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.3;Registration;**[patch list]**;Aug 13, 1993 CHECK^XTSUMBLD results Routine Before Patch After Patch Patch List ------- ------------ ----------- ---------- DGMTU 14923156 15086721 4,33,182,277,290 374,358,420,426,411 332,433,456,476,519 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 DG*5.3*519): 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 (unless otherwise indicated) c. When prompted 'Want to DISABLE Scheduled Options, Menu Options, and Protocols? YES//' answer YES (unless otherwise indicated) 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 . 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. 8. When the installation is complete, be sure to re-start the filers if you chose to stop them. Routine Information: ==================== Routine Name: - DGMTU Before: FUT(DFN,DGDT,DGMTYPT) ; Future Means Tests for a patient ; Input: ; DFN Patient IEN ; DGDT Date (Optional- default to today) ; DGMTYPT Type of Test (Optional - default to Means Test) ; Output: ; If a DCD test was performed it will be returned, else the ; earliest performed future test for the Income Year. ; Future MT IEN^Date of Test (Future)^Status Name^Status Code^ ; Source of Test ; N DGIDT,Y,MTIEN,SRCE,DONE,MTNOD,ARR,FIRST,TYPTST S:'$D(DGMTYPT) DGMTYPT=1 S TYPTST=$S(DGMTYPT=2:"AF",1:"AE") S DGIDT=$S($G(DGDT)>0:DGDT,1:DT),DONE=0 S (ARR,FIRST,Y)="" S:$P(DGIDT,".",2) DGIDT=$P(DGIDT,".") F S DGIDT=$O(^IVM(301.5,TYPTST,DFN,DGIDT)) Q:'DGIDT!(DONE) D .S MTIEN=0 .F S MTIEN=$O(^IVM(301.5,TYPTST,DFN,DGIDT,MTIEN)) Q:'MTIEN!(DONE) D ..Q:'$D(^DGMT(408.31,MTIEN,0)) ..S MTNOD=^DGMT(408.31,MTIEN,0),SRCE=$P(MTNOD,U,23) ..I SRCE'=1 S DONE=1,Y=MTIEN_U_$P(MTNOD,U)_U_$$MTS^DGMTU(DFN,+$P(MTNOD, U,3))_U_$P(MTNOD,U,23) Q ..I 'DONE,'$D(ARR($P(MTNOD,U))) S ARR($P(MTNOD,U))=MTIEN_U_$P(MTNOD,U)_ U_$$MTS^DGMTU(DFN,+$P(MTNOD,U,3))_U_$P(MTNOD,U,23) I 'DONE S FIRST=$O(ARR("")) I FIRST S Y=ARR(FIRST) Q $G(Y) After: FUT(DFN,DGDT,DGMTYPT) ; Future Means Tests for a patient ; Input: ; DFN Patient IEN ; DGDT Date (Optional- default to today) ; DGMTYPT Type of Test (Optional - default to MT) ; Output: ; If a DCD test was performed it will be returned, else the ; current future dated test for the Income Year. ; MT IEN^Date of Test^Status Name^Status Code^Source ; N DGIDT,Y,MTIEN,SRCE,DONE,MTNOD,ARR,LAST,TYPTST S:'$D(DGMTYPT) DGMTYPT=1 S TYPTST=$S(DGMTYPT=2:"AF",1:"AE") S DGIDT=$S($G(DGDT)>0:DGDT,1:DT),DONE=0 S (ARR,LAST,Y)="" S:$P(DGIDT,".",2) DGIDT=$P(DGIDT,".") F S DGIDT=$O(^IVM(301.5,TYPTST,DFN,DGIDT)) Q:'DGIDT!(DONE) D .S MTIEN=0 .F S MTIEN=$O(^IVM(301.5,TYPTST,DFN,DGIDT,MTIEN)) Q:'MTIEN!(DONE) D ..Q:'$D(^DGMT(408.31,MTIEN,0)) ..S MTNOD=^DGMT(408.31,MTIEN,0),SRCE=$P(MTNOD,U,23) ..I SRCE'=1 S DONE=1,Y=MTIEN_U_$P(MTNOD,U)_U_$$MTS^DGMTU(DFN,+$P(MTNOD, U,3))_U_$P(MTNOD,U,23) Q ..I 'DONE,'$D(ARR($P(MTNOD,U),MTIEN)) S ARR($P(MTNOD,U),MTIEN)=MTIEN_U_ $P(MTNOD,U)_U_$$MTS^DGMTU(DFN,+$P(MTNOD,U,3))_U_$P(MTNOD,U,23) I 'DONE S LAST=$O(ARR(""),-1) I LAST S Y=ARR(LAST,$O(ARR(LAST,""),-1)) Q $G(Y) Routine Checksum: ============================================================================= User Information: Entered By : MULLER,RICHARD Date Entered : MAY 13, 2003 Completed By: HUA,PATRICK Date Completed: JUL 24, 2003 Released By : GROOMS,ANTHONY E Date Released : JUL 24, 2003 ============================================================================= Packman Mail Message: ===================== $END TXT