C2025-023 Electronic Procedures - Modifications to PROMS (Phase 1)
This commit is contained in:
@@ -23810,6 +23810,224 @@ GO
|
||||
IF (@@Error = 0) PRINT 'Running vesp_UpdateUserSettings Succeeded'
|
||||
ELSE PRINT 'Running vesp_UpdateUserSettings Failed to Execute'
|
||||
GO
|
||||
--- begin changes for:
|
||||
---C2025-023 - Electronic Procedures - Modifications to PROMS
|
||||
--- The following IsEPAnnotationType column was added for EP Annotations.
|
||||
--- IsEPAnnotationType = Is for EPs
|
||||
IF NOT EXISTS(SELECT *
|
||||
FROM INFORMATION_SCHEMA.COLUMNS
|
||||
WHERE TABLE_NAME = 'AnnotationTypes'
|
||||
AND COLUMN_NAME = 'IsEPAnnotationType')
|
||||
ALTER TABLE AnnotationTypes ADD IsEPAnnotationType bit NOT NULL DEFAULT(0);
|
||||
go
|
||||
-- Display the status
|
||||
IF (@@Error = 0) PRINT 'Altered table [AnnotationTypes] Succeeded for IsEPAnnotationType'
|
||||
ELSE PRINT 'Altered table [AnnotationTypes] Error on Alter for IsEPAnnotationType'
|
||||
go
|
||||
|
||||
|
||||
IF EXISTS (SELECT * FROM dbo.sysobjects WHERE id = OBJECT_ID(N'[getAnnotationType]') AND OBJECTPROPERTY(id,N'IsProcedure') = 1)
|
||||
DROP PROCEDURE [getAnnotationType];
|
||||
GO
|
||||
|
||||
SET ANSI_NULLS ON
|
||||
GO
|
||||
SET QUOTED_IDENTIFIER ON
|
||||
GO
|
||||
-- =============================================
|
||||
-- Author: Matthew Schill
|
||||
-- Create date: 3/21/2025
|
||||
-- Description: Add EP to AnnotationTypes
|
||||
-- =============================================
|
||||
CREATE PROCEDURE [dbo].[getAnnotationType]
|
||||
(
|
||||
@TypeID int
|
||||
)
|
||||
WITH EXECUTE AS OWNER
|
||||
AS
|
||||
SELECT
|
||||
[TypeID],
|
||||
[Name],
|
||||
[Config],
|
||||
[DTS],
|
||||
[UserID],
|
||||
[LastChanged],
|
||||
(SELECT COUNT(*) FROM [Annotations] WHERE [Annotations].[TypeID]=[AnnotationTypes].[TypeID]) [AnnotationCount],
|
||||
[IsEPAnnotationType]
|
||||
FROM [AnnotationTypes]
|
||||
WHERE [TypeID]=@TypeID
|
||||
|
||||
SELECT
|
||||
[Annotations].[AnnotationID],
|
||||
[Annotations].[ItemID],
|
||||
[Annotations].[TypeID],
|
||||
[Annotations].[RtfText],
|
||||
[Annotations].[SearchText],
|
||||
[Annotations].[Config],
|
||||
[Annotations].[DTS],
|
||||
[Annotations].[UserID],
|
||||
[Annotations].[LastChanged],
|
||||
[Items].[PreviousID] [Item_PreviousID],
|
||||
[Items].[ContentID] [Item_ContentID],
|
||||
[Items].[DTS] [Item_DTS],
|
||||
[Items].[UserID] [Item_UserID]
|
||||
FROM [Annotations]
|
||||
JOIN [Items] ON
|
||||
[Items].[ItemID]=[Annotations].[ItemID]
|
||||
WHERE
|
||||
[Annotations].[TypeID]=@TypeID
|
||||
|
||||
RETURN
|
||||
GO
|
||||
|
||||
IF (@@Error = 0) PRINT 'Running getAnnotationType Succeeded'
|
||||
ELSE PRINT 'Running getAnnotationType Failed to Execute'
|
||||
GO
|
||||
|
||||
IF EXISTS (SELECT * FROM dbo.sysobjects WHERE id = OBJECT_ID(N'[getAnnotationTypeByName]') AND OBJECTPROPERTY(id,N'IsProcedure') = 1)
|
||||
DROP PROCEDURE [getAnnotationTypeByName];
|
||||
GO
|
||||
|
||||
SET ANSI_NULLS ON
|
||||
GO
|
||||
SET QUOTED_IDENTIFIER ON
|
||||
GO
|
||||
-- =============================================
|
||||
-- Author: Matthew Schill
|
||||
-- Create date: 3/21/2025
|
||||
-- Description: Add EP to AnnotationTypes
|
||||
-- =============================================
|
||||
CREATE PROCEDURE [dbo].[getAnnotationTypeByName]
|
||||
(
|
||||
@Name nvarchar(100)
|
||||
)
|
||||
WITH EXECUTE AS OWNER
|
||||
AS
|
||||
SELECT
|
||||
[TypeID],
|
||||
[Name],
|
||||
[Config],
|
||||
[DTS],
|
||||
[UserID],
|
||||
[LastChanged],
|
||||
(SELECT COUNT(*) FROM [Annotations] WHERE [Annotations].[TypeID]=[AnnotationTypes].[TypeID]) [AnnotationCount],
|
||||
[IsEPAnnotationType]
|
||||
FROM [AnnotationTypes]
|
||||
WHERE [Name]=@Name
|
||||
RETURN
|
||||
GO
|
||||
|
||||
IF (@@Error = 0) PRINT 'Running getAnnotationTypeByName Succeeded'
|
||||
ELSE PRINT 'Running getAnnotationTypeByName Failed to Execute'
|
||||
GO
|
||||
|
||||
IF EXISTS (SELECT * FROM dbo.sysobjects WHERE id = OBJECT_ID(N'[getAnnotationTypes]') AND OBJECTPROPERTY(id,N'IsProcedure') = 1)
|
||||
DROP PROCEDURE [getAnnotationTypes];
|
||||
GO
|
||||
|
||||
SET ANSI_NULLS ON
|
||||
GO
|
||||
SET QUOTED_IDENTIFIER ON
|
||||
GO
|
||||
-- =============================================
|
||||
-- Author: Matthew Schill
|
||||
-- Create date: 3/21/2025
|
||||
-- Description: Add EP to AnnotationTypes
|
||||
-- =============================================
|
||||
CREATE PROCEDURE [dbo].[getAnnotationTypes]
|
||||
WITH EXECUTE AS OWNER
|
||||
AS
|
||||
SELECT
|
||||
[TypeID],
|
||||
[Name],
|
||||
[Config],
|
||||
[DTS],
|
||||
[UserID],
|
||||
[LastChanged],
|
||||
(SELECT COUNT(*) FROM [Annotations] WHERE [Annotations].[TypeID]=[AnnotationTypes].[TypeID]) [AnnotationCount],
|
||||
[IsEPAnnotationType]
|
||||
FROM [AnnotationTypes]
|
||||
RETURN
|
||||
|
||||
GO
|
||||
|
||||
IF (@@Error = 0) PRINT 'Running getAnnotationTypes Succeeded'
|
||||
ELSE PRINT 'Running getAnnotationTypes Failed to Execute'
|
||||
GO
|
||||
|
||||
IF Not Exists(SELECT * FROM sys.objects Where name = 'EPFormats' AND type in (N'U'))
|
||||
Begin -- Rofst Tables
|
||||
|
||||
SET ANSI_NULLS ON
|
||||
SET QUOTED_IDENTIFIER ON
|
||||
|
||||
CREATE TABLE [dbo].[EPFormats](
|
||||
[FormatID] [int] IDENTITY(1,1) NOT NULL,
|
||||
[Name] [nvarchar](100) NOT NULL,
|
||||
[Data] [xml] NULL,
|
||||
[Created] [datetime] NOT NULL DEFAULT (getdate()),
|
||||
[CreatedBy] [nvarchar](100) NOT NULL DEFAULT (upper(suser_sname())),
|
||||
[Updated] [datetime] NOT NULL DEFAULT (getdate()),
|
||||
[UpdatedBy] [nvarchar](100) NOT NULL DEFAULT (upper(suser_sname()))
|
||||
CONSTRAINT [PK_EPFormats] PRIMARY KEY CLUSTERED
|
||||
(
|
||||
[FormatID] ASC
|
||||
)WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON, OPTIMIZE_FOR_SEQUENTIAL_KEY = OFF) ON [PRIMARY]
|
||||
) ON [PRIMARY] TEXTIMAGE_ON [PRIMARY]
|
||||
|
||||
IF (@@Error = 0) PRINT 'Table Creation: [EPFormats] Succeeded'
|
||||
ELSE PRINT 'Table Creation: [EPFormats] Error on Creation'
|
||||
|
||||
End
|
||||
Go
|
||||
|
||||
IF EXISTS (SELECT * FROM dbo.sysobjects WHERE id = OBJECT_ID(N'[vesp_UpdateEPFormat]') AND OBJECTPROPERTY(id,N'IsProcedure') = 1)
|
||||
DROP PROCEDURE [vesp_UpdateEPFormat];
|
||||
GO
|
||||
|
||||
SET ANSI_NULLS ON
|
||||
GO
|
||||
SET QUOTED_IDENTIFIER ON
|
||||
GO
|
||||
-- =============================================
|
||||
-- Author: Matthew Schill
|
||||
-- Create date: 3/26/2025
|
||||
-- Description: Update / Insert EP Format
|
||||
-- =============================================
|
||||
CREATE PROCEDURE [dbo].[vesp_UpdateEPFormat]
|
||||
(
|
||||
@name nvarchar(100),
|
||||
@data nvarchar(max),
|
||||
@userID nvarchar(15)
|
||||
)
|
||||
WITH EXECUTE AS OWNER
|
||||
AS
|
||||
|
||||
IF EXISTS(Select 1 FROM EPFormats where Name = @name )
|
||||
BEGIN
|
||||
UpDate EPFormats
|
||||
SET Name = @name,
|
||||
Data = @data,
|
||||
Updated = getdate(),
|
||||
UpdatedBy = upper(@userID)
|
||||
WHERE Name = @name
|
||||
END
|
||||
ELSE
|
||||
BEGIN
|
||||
INSERT INTO EPFormats (Name, Data, CreatedBy, UpdatedBy)
|
||||
values (@name, @data, 'Migration', 'Migration')
|
||||
|
||||
END
|
||||
|
||||
GO
|
||||
|
||||
IF (@@Error = 0) PRINT 'Running vesp_UpdateEPFormat Succeeded'
|
||||
ELSE PRINT 'Running vesp_UpdateEPFormat Failed to Execute'
|
||||
GO
|
||||
UPDATE Formats SET ApplicablePlant = 1000 WHERE [Name] LIKE 'EPTST%';
|
||||
Go
|
||||
--- end changes for:
|
||||
---C2025-023 - Electronic Procedures - Modifications to PROMS
|
||||
|
||||
/*
|
||||
---------------------------------------------------------------------------
|
||||
@@ -23844,8 +24062,8 @@ BEGIN TRY -- Try Block
|
||||
DECLARE @RevDate varchar(255)
|
||||
DECLARE @RevDescription varchar(255)
|
||||
|
||||
set @RevDate = '4/03/2025 6:14 PM'
|
||||
set @RevDescription = 'B2022-031 Add filtering for Proc and Section name from Global Search'
|
||||
set @RevDate = '4/8/2025 11:24'
|
||||
set @RevDescription = 'Added support for EP Viewer Editing'
|
||||
|
||||
Select cast(@RevDate as datetime) RevDate, @RevDescription RevDescription
|
||||
PRINT 'SQL Code Revision ' + @RevDate + ' - ' + @RevDescription
|
||||
|
||||
Reference in New Issue
Block a user