$TXT Created by THEROUX,JOHN at MNTVBB.FO-ALBANY.MED.VA.GOV (KIDS) on Friday, 03/11/05 at 10:06 ============================================================================= Run Date: MAR 17, 2005 Designation: DG*5.3*609 Package : DG - REGISTRATION Priority: Mandatory Version : 5.3 SEQ #559 Status: Released Compliance Date: APR 17, 2005 ============================================================================= Subject: PTF PROBLEM WITH INACTIVE REFERRING/ORDERING AND RENDERING PROVIDERS Category: - Data Dictionary Description: ============ This patch will address selection of inactive providers appearing as invalid or inactive when the inactive date is greater than the CPT Procedure Date. ASSOCIATED REMEDY/NOIS: ====================== HD63905 - STC-0404-42164 PTF Problem with Rendering Provider ASSOCIATED E3R(s): ================== N/A PARTICIPATING TEST SITES: ========================= St Cloud,MN,Cache VMS El Paso,TX, Cache NT Asheville, NC, DSM Milwaukee,WI,DSM and installed at: Memphis, Tn,Cache VMS NOIS OVERVIEW: ============== 1. HD63905 - STC-0404-42164 PTF Problem with Rendering Provider Problem: ------- Attempting to select an inactive Provider in the CPT Capture action under PTF Menu - LOAD/EDIT PTF DATA the selection process will not allow any Provider with an inactive date since the check is made against data entry date and should be checked against the CPT Procedure Date. Resolution: ---------- Modify Data Dictionary entries under CPT RECORD DATE/TIME for Input Transform and Screening to allow entry of Provider as long as it falls before the Provider Inactive date. The following Data Dictionary entries have been modified: 45.06,.02 REFERRING OR ORDERING PROVIDER 45.06,.03 RENDERING PROVIDER Data Dictionary Modifications: BEFORE: 45.06,.02 REFERRING OR ORDERING PROVIDER 0;2 POINTER TO NEW PERSON FILE (#200) INPUT TRANSFORM:S DIC("S")="I $$SCREEN^DGPMDD(Y,DA,DT)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X LAST EDITED: JUN 17, 2004 HELP-PROMPT: Enter the name of the provider referring or ordering the service or item SCREEN: S DIC("S")="I $$SCREEN^DGPMDD(Y,DA,DT)" EXPLANATION: Only Allow Active Providers NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER 45.06,.03 RENDERING PROVIDER 0;3 POINTER TO NEW PERSON FILE (#200) (Required) INPUT TRANSFORM:S DIC("S")="I $$SCREEN^DGPMDD(Y,DA,DT)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X LAST EDITED: JUN 17, 2004 HELP-PROMPT: Enter the name of the provider performing the procedure. SCREEN: S DIC("S")="I $$SCREEN^DGPMDD(Y,DA,DT)" EXPLANATION: Only Allow Active Providers. NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER AFTER: 45.06,.02 REFERRING OR ORDERING PROVIDER 0;2 POINTER TO NEW PERSON FILE (#200) INPUT TRANSFORM:S IENS=DA_","_DA(1)_",",CPTDT=$$GET1^DIQ(45.06 ,IENS,.01,"I") S DIC("S")="I $$SCREEN^DGPMDD(Y,DA,CPTDT)" D ^DIC K DIC,IENS,CPTDT S DIC=DIE,X=+Y K:Y<0 X LAST EDITED: JUN 17, 2004 HELP-PROMPT: Enter the name of the provider referring or ordering the service or item SCREEN: S IENS=DA_","_DA(1)_",",CPTDT=$$GET1^DIQ(45.06 ,IENS,.01,"I") S DIC("S")="I $$SCREEN^DGPMDD(Y,DA,CPTDT)" K IENS,CPTDT EXPLANATION: Only Allow Active Providers NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER 45.06,.03 RENDERING PROVIDER 0;3 POINTER TO NEW PERSON FILE (#200) (Required) INPUT TRANSFORM:S IENS=DA_","_DA(1)_",",CPTDT=$$GET1^DIQ(45.06 ,IENS,.01,"I") S DIC("S")="I $$SCREEN^DGPMDD(Y,DA,CPTDT)" D ^DIC K DIC,IENS,CPTDT S DIC=DIE,X=+Y K:Y<0 X LAST EDITED: JUN 17, 2004 HELP-PROMPT: Enter the name of the provider performing the procedure. SCREEN: S IENS=DA_","_DA(1)_",",CPTDT=$$GET1^DIQ(45.06 ,IENS,.01,"I") S DIC("S")="I $$SCREEN^DGPMDD(Y,DA,CPTDT)" K IENS,CPTDT EXPLANATION: Only Allow Active Providers. NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER INSTALLATION INSTRUCTIONS ========================= This patch can be installed at any time. Users do not need to be off the system. Installation will take 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 --- 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 3. From this menu, you may elect to use the following options (when prompted for the INSTALL NAME, enter DG*5.3*609): 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. Print Transport Global - this option will allow you to view the components of the KIDS build. 4. Use the Install Package(s) option and select the package DG*5.3*609. a. When prompted 'Want KIDS to INHIBIT LOGONs during the install? YES//', answer NO (unless otherwise indicated). b. When prompted 'Want to DISABLE Scheduled Options, Menu Options, and Protocols? YES//', respond NO. c. When prompted 'Enter protocols you wish to mark as 'Out Of Order':', hit enter. Routine Information: ==================== ============================================================================= User Information: Entered By : BECKWITH,RALPH Date Entered : JUN 16, 2004 Completed By: BOWEN,MARY JANE Date Completed: MAR 16, 2005 Released By : BENBOW,PHYLLIS O Date Released : MAR 17, 2005 ============================================================================= Packman Mail Message: ===================== $END TXT