diff --git a/PROMS/VEPROMS User Interface/PROMSFixes.Sql b/PROMS/VEPROMS User Interface/PROMSFixes.Sql index dd995cd1..7d88e3d2 100644 --- a/PROMS/VEPROMS User Interface/PROMSFixes.Sql +++ b/PROMS/VEPROMS User Interface/PROMSFixes.Sql @@ -23810,6 +23810,60 @@ GO IF (@@Error = 0) PRINT 'Running vesp_UpdateUserSettings Succeeded' ELSE PRINT 'Running vesp_UpdateUserSettings Failed to Execute' GO + +-- ============================================= +-- Author: Matthew Schill +-- Create date: 5/19/2025 +-- Description: Allow option to not prompt user with MS Word messages +-- when generating Summaries +-- ============================================= +--- MSWordSummaryPrompt = ahouls user be prompted with message? +-- default = yes (true) +IF NOT EXISTS(SELECT * + FROM INFORMATION_SCHEMA.COLUMNS + WHERE TABLE_NAME = 'Users' + AND COLUMN_NAME = 'MSWordSummaryPrompt') +ALTER TABLE Users ADD MSWordSummaryPrompt bit NOT NULL DEFAULT(1); +go +-- Display the status +IF (@@Error = 0) PRINT 'Altered table [Users] Succeeded for MSWordSummaryPrompt' +ELSE PRINT 'Altered table [Users] Error on Alter for MSWordSummaryPrompt' +go + + +IF EXISTS (SELECT * FROM dbo.sysobjects WHERE id = OBJECT_ID(N'[vesp_UpdateUserSettingMSWordSummaryPrompt]') AND OBJECTPROPERTY(id,N'IsProcedure') = 1) + DROP PROCEDURE [vesp_UpdateUserSettingMSWordSummaryPrompt]; +GO + +SET ANSI_NULLS ON +GO +SET QUOTED_IDENTIFIER ON +GO +-- ============================================= +-- Author: Matthew Schill +-- Create date: 5/19/2025 +-- Description: Allow option to not prompt user with MS Word messages +-- when generating Summaries +-- ============================================= +CREATE PROCEDURE [dbo].[vesp_UpdateUserSettingMSWordSummaryPrompt] + +( + @UID varchar(100), + @Prompt bit = null +) +WITH EXECUTE AS OWNER +AS + UPDATE Users SET + MSWordSummaryPrompt = ISNULL(@Prompt, MSWordSummaryPrompt) + WHERE UserID =@UID + + RETURN +GO + +IF (@@Error = 0) PRINT 'Running vesp_UpdateUserSettingMSWordSummaryPrompt Succeeded' +ELSE PRINT 'Running vesp_UpdateUserSettingMSWordSummaryPrompt Failed to Execute' +GO + --- begin changes for: ---C2025-023 - Electronic Procedures - Modifications to PROMS --- The following IsEPAnnotationType column was added for EP Annotations. @@ -24062,8 +24116,8 @@ BEGIN TRY -- Try Block DECLARE @RevDate varchar(255) DECLARE @RevDescription varchar(255) - set @RevDate = '4/8/2025 11:24' - set @RevDescription = 'Added support for EP Viewer Editing' + set @RevDate = '5/19/2025 8:44 AM' + set @RevDescription = 'C2025-013 Add ability to disable message that opening Summaries in MS Word' Select cast(@RevDate as datetime) RevDate, @RevDescription RevDescription PRINT 'SQL Code Revision ' + @RevDate + ' - ' + @RevDescription