USP_PERSONALACCESSTOKENREVOKECODE_CREATEENTRY

/*
Generated by Blackbaud AppFx Platform
Date:  5/3/2024 2:17:00 PM
Assembly Version:  Blackbaud.AppFx.Platform.SqlClr, Version=4.0.3700.0, Culture=neutral, PublicKeyToken=null
Copyright Blackbaud
*/
CREATE procedure dbo.USP_PERSONALACCESSTOKENREVOKECODE_CREATEENTRY
(
@DESCRIPTION nvarchar(100)='',
@ACTIVE bit=1,
@SEQUENCE int = null,            
@CHANGEAGENTID uniqueidentifier = null,
@ID uniqueidentifier  = null output
)

as

SET NOCOUNT ON;

if (@DESCRIPTION IS NULL) or len(@DESCRIPTION)= 0
    begin
    raiserror('Description is required to create a PERSONALACCESSTOKENREVOKECODE table entry',16,1)
    return -2
    end

if @CHANGEAGENTID IS NULL
    exec dbo.USP_CHANGEAGENT_GETORCREATECHANGEAGENT @CHANGEAGENTID output;

if @ID IS NULL SET @ID=newid();

if @SEQUENCE is null
    select @SEQUENCE = coalesce(max(SEQUENCE) + 1, 1) from dbo.PERSONALACCESSTOKENREVOKECODE

insert into dbo.PERSONALACCESSTOKENREVOKECODE
(
ID,DESCRIPTION,ACTIVE,SEQUENCE,ADDEDBYID,CHANGEDBYID,DATEADDED,DATECHANGED
)
VALUES
(
@ID,@DESCRIPTION,@ACTIVE,@SEQUENCE,@CHANGEAGENTID,@CHANGEAGENTID,getDate(),getDate()
);

update dbo.PERSONALACCESSTOKENREVOKECODE
set SEQUENCE = SEQUENCE + 1,
            CHANGEDBYID=@CHANGEAGENTID,
            DATECHANGED=GETDATE()
where SEQUENCE >= @SEQUENCE and ID <> @ID

if @@error<>0 return 1

return 0