From 83f88b6df3f5af3e451e0b7847b1bd3c203ff7a8 Mon Sep 17 00:00:00 2001 From: mschill Date: Thu, 12 Mar 2026 11:10:04 -0400 Subject: [PATCH] B2026-031 PROMS Crash in Admin Tools Maintenance - Purge Change History --- PROMS/VEPROMS User Interface/PROMSFixes.Sql | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/PROMS/VEPROMS User Interface/PROMSFixes.Sql b/PROMS/VEPROMS User Interface/PROMSFixes.Sql index 4d6b672e..81fa98e6 100644 --- a/PROMS/VEPROMS User Interface/PROMSFixes.Sql +++ b/PROMS/VEPROMS User Interface/PROMSFixes.Sql @@ -24329,8 +24329,10 @@ BEGIN OR FromID in (Select ContentID from tblContents where deletestatus != 0 and ActionDTS < @dte) ) PRINT 'Deleting Items and Parts' + alter table tblParts nocheck constraint FK_Parts_Items delete from tblItems where deletestatus != 0 and DTS < @dte delete from tblParts where deletestatus != 0 and ItemID Not IN (Select ItemID from Items) and DTS < @dte + alter table tblParts check constraint FK_Parts_Items PRINT 'Purging Parts with deleted Contents' DELETE from Child FROM tblParts AS Child @@ -24355,7 +24357,9 @@ BEGIN ON Itms.ItemID = tblItems.ItemID AND Itms.deletestatus = tblItems.deletestatus alter table tblItems check constraint FK_Items_Items PRINT 'Purging Contents' + alter table tblEntries nocheck constraint FK_Entries_Contents delete from tblContents where deletestatus != 0 and ActionDTS < @dte + alter table tblEntries check constraint FK_Entries_Contents PRINT 'Phase 3' delete from AnnotationAudits where DTS < @dte delete from ContentAudits where DTS < @dte @@ -24766,8 +24770,8 @@ BEGIN TRY -- Try Block DECLARE @RevDate varchar(255) DECLARE @RevDescription varchar(255) - set @RevDate = '02/18/2026 7:00 AM' - set @RevDescription = 'Added Audit Ability for ChangeBars' + set @RevDate = '03/12/2026 11:00 AM' + set @RevDescription = 'Update to Purge Change History Tool' Select cast(@RevDate as datetime) RevDate, @RevDescription RevDescription PRINT 'SQL Code Revision ' + @RevDate + ' - ' + @RevDescription