Skip to content

S-131984 26.1 purge script #48

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Open
lremedi wants to merge 3 commits into
base: master
Choose a base branch
from
Open

S-131984 26.1 purge script #48

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
3 commits
Select commit Hold shift + click to select a range
9cfb669
S-131984 Add OKR purge blocks
Apr 22, 2026
1124936
S-131984 Add PurgeProject-26.1
Apr 22, 2026
f76ada8
S-131984 Add full OKR entity purge logic (OkrObjective, KeyResult, Ok…
Apr 23, 2026
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
61 changes: 61 additions & 0 deletions purge-project/PurgeProject-25.2.sql
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -343,6 +343,20 @@ insert @doomed
select distinct MemberID from ScopeMemberACL join @doomed on doomed=ScopeID where RoleID<>0 or Owner<>0
except select safeMember from @safeMembers

-- doom OkrObjectives owned by doomed Members
insert @doomed
select ID from OkrObjective_Now join @doomed on doomed=OwnerID

-- doom KeyResults belonging to doomed OkrObjectives
insert @doomed
select ID from KeyResult_Now join @doomed on doomed=OkrObjectiveID

-- doom OkrComments belonging to doomed Okrs or authored by doomed Members
insert @doomed
select ID from OkrComment_Now join @doomed on doomed=BelongsToID
union
select ID from OkrComment_Now join @doomed on doomed=AuthorID

-- doom Budgets attached to doomed Projects
insert @doomed
select ID from Budget_Now join @doomed on doomed=ScopeID
Expand Down Expand Up @@ -1550,6 +1564,53 @@ delete AssetLongString from @doomed where doomed=ID
select @rowcount=@@ROWCOUNT, @error=@@ERROR; if @error<>0 goto ERR
raiserror('%s AssetLongStrings purged', 0, 1, @rowcount) with nowait

raiserror('OkrAssociatedAssets', 0, 1) with nowait
delete OkrAssociatedAssets from @doomed where doomed=BaseAssetID or doomed=OkrID
select @rowcount=@@ROWCOUNT, @error=@@ERROR; if @error<>0 goto ERR
raiserror('%s OkrAssociatedAssets purged', 0, 1, @rowcount) with nowait

raiserror('OkrObjectiveSharedAccessWith', 0, 1) with nowait
delete OkrObjectiveSharedAccessWith from @doomed where doomed=OkrObjectiveID or doomed=MemberID
select @rowcount=@@ROWCOUNT, @error=@@ERROR; if @error<>0 goto ERR
raiserror('%s OkrObjectiveSharedAccessWith purged', 0, 1, @rowcount) with nowait

raiserror('OkrObjectiveLinkedFrom', 0, 1) with nowait
delete OkrObjectiveLinkedFrom from @doomed where doomed=OkrObjectiveID1 or doomed=OkrObjectiveID2
select @rowcount=@@ROWCOUNT, @error=@@ERROR; if @error<>0 goto ERR
raiserror('%s OkrObjectiveLinkedFrom purged', 0, 1, @rowcount) with nowait

raiserror('OkrComments', 0, 1) with nowait
delete OkrComment_Now from @doomed where doomed=ID
select @rowcount=@@ROWCOUNT, @error=@@ERROR; if @error<>0 goto ERR
delete OkrComment from @doomed where doomed=ID
select @error=@@ERROR; if @error<>0 goto ERR
raiserror('%s OkrComments purged', 0, 1, @rowcount) with nowait

raiserror('KeyResults', 0, 1) with nowait
delete KeyResult_Now from @doomed where doomed=ID
select @rowcount=@@ROWCOUNT, @error=@@ERROR; if @error<>0 goto ERR
delete KeyResult from @doomed where doomed=ID
select @error=@@ERROR; if @error<>0 goto ERR
raiserror('%s KeyResults purged', 0, 1, @rowcount) with nowait

raiserror('OkrObjectives', 0, 1) with nowait
delete OkrObjective_Now from @doomed where doomed=ID
select @rowcount=@@ROWCOUNT, @error=@@ERROR; if @error<>0 goto ERR
update OkrObjective_Now set CascadedFromID=null from @doomed where doomed=CascadedFromID
select @error=@@ERROR; if @error<>0 goto ERR
delete OkrObjective from @doomed where doomed=ID
select @error=@@ERROR; if @error<>0 goto ERR
update OkrObjective set CascadedFromID=null from @doomed where doomed=CascadedFromID
select @error=@@ERROR; if @error<>0 goto ERR
raiserror('%s OkrObjectives purged', 0, 1, @rowcount) with nowait

raiserror('Okrs', 0, 1) with nowait
delete Okr_Now from @doomed where doomed=ID
select @rowcount=@@ROWCOUNT, @error=@@ERROR; if @error<>0 goto ERR
delete Okr from @doomed where doomed=ID
select @error=@@ERROR; if @error<>0 goto ERR
raiserror('%s Okrs purged', 0, 1, @rowcount) with nowait

raiserror('Rebuilding EffectiveACLs', 0, 1) with nowait
insert dbo.EffectiveACL
select ScopeID, MemberID, RoleID, RightsMask = RightsMask | case when Owner<>0 then cast(0x200000000 as bigint) else 0 end
Expand Down
61 changes: 61 additions & 0 deletions purge-project/PurgeProject-25.3.sql
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -343,6 +343,20 @@ insert @doomed
select distinct MemberID from ScopeMemberACL join @doomed on doomed=ScopeID where RoleID<>0 or Owner<>0
except select safeMember from @safeMembers

-- doom OkrObjectives owned by doomed Members
insert @doomed
select ID from OkrObjective_Now join @doomed on doomed=OwnerID

-- doom KeyResults belonging to doomed OkrObjectives
insert @doomed
select ID from KeyResult_Now join @doomed on doomed=OkrObjectiveID

-- doom OkrComments belonging to doomed Okrs or authored by doomed Members
insert @doomed
select ID from OkrComment_Now join @doomed on doomed=BelongsToID
union
select ID from OkrComment_Now join @doomed on doomed=AuthorID

-- doom Budgets attached to doomed Projects
insert @doomed
select ID from Budget_Now join @doomed on doomed=ScopeID
Expand Down Expand Up @@ -1554,6 +1568,53 @@ delete AssetLongString from @doomed where doomed=ID
select @rowcount=@@ROWCOUNT, @error=@@ERROR; if @error<>0 goto ERR
raiserror('%s AssetLongStrings purged', 0, 1, @rowcount) with nowait

raiserror('OkrAssociatedAssets', 0, 1) with nowait
delete OkrAssociatedAssets from @doomed where doomed=BaseAssetID or doomed=OkrID
select @rowcount=@@ROWCOUNT, @error=@@ERROR; if @error<>0 goto ERR
raiserror('%s OkrAssociatedAssets purged', 0, 1, @rowcount) with nowait

raiserror('OkrObjectiveSharedAccessWith', 0, 1) with nowait
delete OkrObjectiveSharedAccessWith from @doomed where doomed=OkrObjectiveID or doomed=MemberID
select @rowcount=@@ROWCOUNT, @error=@@ERROR; if @error<>0 goto ERR
raiserror('%s OkrObjectiveSharedAccessWith purged', 0, 1, @rowcount) with nowait

raiserror('OkrObjectiveLinkedFrom', 0, 1) with nowait
delete OkrObjectiveLinkedFrom from @doomed where doomed=OkrObjectiveID1 or doomed=OkrObjectiveID2
select @rowcount=@@ROWCOUNT, @error=@@ERROR; if @error<>0 goto ERR
raiserror('%s OkrObjectiveLinkedFrom purged', 0, 1, @rowcount) with nowait

raiserror('OkrComments', 0, 1) with nowait
delete OkrComment_Now from @doomed where doomed=ID
select @rowcount=@@ROWCOUNT, @error=@@ERROR; if @error<>0 goto ERR
delete OkrComment from @doomed where doomed=ID
select @error=@@ERROR; if @error<>0 goto ERR
raiserror('%s OkrComments purged', 0, 1, @rowcount) with nowait

raiserror('KeyResults', 0, 1) with nowait
delete KeyResult_Now from @doomed where doomed=ID
select @rowcount=@@ROWCOUNT, @error=@@ERROR; if @error<>0 goto ERR
delete KeyResult from @doomed where doomed=ID
select @error=@@ERROR; if @error<>0 goto ERR
raiserror('%s KeyResults purged', 0, 1, @rowcount) with nowait

raiserror('OkrObjectives', 0, 1) with nowait
delete OkrObjective_Now from @doomed where doomed=ID
select @rowcount=@@ROWCOUNT, @error=@@ERROR; if @error<>0 goto ERR
update OkrObjective_Now set CascadedFromID=null from @doomed where doomed=CascadedFromID
select @error=@@ERROR; if @error<>0 goto ERR
delete OkrObjective from @doomed where doomed=ID
select @error=@@ERROR; if @error<>0 goto ERR
update OkrObjective set CascadedFromID=null from @doomed where doomed=CascadedFromID
select @error=@@ERROR; if @error<>0 goto ERR
raiserror('%s OkrObjectives purged', 0, 1, @rowcount) with nowait

raiserror('Okrs', 0, 1) with nowait
delete Okr_Now from @doomed where doomed=ID
select @rowcount=@@ROWCOUNT, @error=@@ERROR; if @error<>0 goto ERR
delete Okr from @doomed where doomed=ID
select @error=@@ERROR; if @error<>0 goto ERR
raiserror('%s Okrs purged', 0, 1, @rowcount) with nowait

raiserror('Rebuilding EffectiveACLs', 0, 1) with nowait
insert dbo.EffectiveACL
select ScopeID, MemberID, RoleID, RightsMask = RightsMask | case when Owner<>0 then cast(0x200000000 as bigint) else 0 end
Expand Down
61 changes: 61 additions & 0 deletions purge-project/PurgeProject-26.0.sql
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -343,6 +343,20 @@ insert @doomed
select distinct MemberID from ScopeMemberACL join @doomed on doomed=ScopeID where RoleID<>0 or Owner<>0
except select safeMember from @safeMembers

-- doom OkrObjectives owned by doomed Members
insert @doomed
select ID from OkrObjective_Now join @doomed on doomed=OwnerID

-- doom KeyResults belonging to doomed OkrObjectives
insert @doomed
select ID from KeyResult_Now join @doomed on doomed=OkrObjectiveID

-- doom OkrComments belonging to doomed Okrs or authored by doomed Members
insert @doomed
select ID from OkrComment_Now join @doomed on doomed=BelongsToID
union
select ID from OkrComment_Now join @doomed on doomed=AuthorID

-- doom Budgets attached to doomed Projects
insert @doomed
select ID from Budget_Now join @doomed on doomed=ScopeID
Expand Down Expand Up @@ -1554,6 +1568,53 @@ delete AssetLongString from @doomed where doomed=ID
select @rowcount=@@ROWCOUNT, @error=@@ERROR; if @error<>0 goto ERR
raiserror('%s AssetLongStrings purged', 0, 1, @rowcount) with nowait

raiserror('OkrAssociatedAssets', 0, 1) with nowait
delete OkrAssociatedAssets from @doomed where doomed=BaseAssetID or doomed=OkrID
select @rowcount=@@ROWCOUNT, @error=@@ERROR; if @error<>0 goto ERR
raiserror('%s OkrAssociatedAssets purged', 0, 1, @rowcount) with nowait

raiserror('OkrObjectiveSharedAccessWith', 0, 1) with nowait
delete OkrObjectiveSharedAccessWith from @doomed where doomed=OkrObjectiveID or doomed=MemberID
select @rowcount=@@ROWCOUNT, @error=@@ERROR; if @error<>0 goto ERR
raiserror('%s OkrObjectiveSharedAccessWith purged', 0, 1, @rowcount) with nowait

raiserror('OkrObjectiveLinkedFrom', 0, 1) with nowait
delete OkrObjectiveLinkedFrom from @doomed where doomed=OkrObjectiveID1 or doomed=OkrObjectiveID2
select @rowcount=@@ROWCOUNT, @error=@@ERROR; if @error<>0 goto ERR
raiserror('%s OkrObjectiveLinkedFrom purged', 0, 1, @rowcount) with nowait

raiserror('OkrComments', 0, 1) with nowait
delete OkrComment_Now from @doomed where doomed=ID
select @rowcount=@@ROWCOUNT, @error=@@ERROR; if @error<>0 goto ERR
delete OkrComment from @doomed where doomed=ID
select @error=@@ERROR; if @error<>0 goto ERR
raiserror('%s OkrComments purged', 0, 1, @rowcount) with nowait

raiserror('KeyResults', 0, 1) with nowait
delete KeyResult_Now from @doomed where doomed=ID
select @rowcount=@@ROWCOUNT, @error=@@ERROR; if @error<>0 goto ERR
delete KeyResult from @doomed where doomed=ID
select @error=@@ERROR; if @error<>0 goto ERR
raiserror('%s KeyResults purged', 0, 1, @rowcount) with nowait

raiserror('OkrObjectives', 0, 1) with nowait
delete OkrObjective_Now from @doomed where doomed=ID
select @rowcount=@@ROWCOUNT, @error=@@ERROR; if @error<>0 goto ERR
update OkrObjective_Now set CascadedFromID=null from @doomed where doomed=CascadedFromID
select @error=@@ERROR; if @error<>0 goto ERR
delete OkrObjective from @doomed where doomed=ID
select @error=@@ERROR; if @error<>0 goto ERR
update OkrObjective set CascadedFromID=null from @doomed where doomed=CascadedFromID
select @error=@@ERROR; if @error<>0 goto ERR
raiserror('%s OkrObjectives purged', 0, 1, @rowcount) with nowait

raiserror('Okrs', 0, 1) with nowait
delete Okr_Now from @doomed where doomed=ID
select @rowcount=@@ROWCOUNT, @error=@@ERROR; if @error<>0 goto ERR
delete Okr from @doomed where doomed=ID
select @error=@@ERROR; if @error<>0 goto ERR
raiserror('%s Okrs purged', 0, 1, @rowcount) with nowait

raiserror('Rebuilding EffectiveACLs', 0, 1) with nowait
insert dbo.EffectiveACL
select ScopeID, MemberID, RoleID, RightsMask = RightsMask | case when Owner<>0 then cast(0x200000000 as bigint) else 0 end
Expand Down
Loading