USP_DECEASEDFINDER_DELETE

Executes the "DeceasedRecordFinder: Delete" record operation.

Parameters

Parameter	Parameter Type	Mode	Description
@ID	uniqueidentifier	IN	Input parameter indicating the ID of the record being deleted.
@CHANGEAGENTID	uniqueidentifier	IN	Input parameter indicating the ID of the change agent invoking the delete.
@CURRENTAPPUSERID	uniqueidentifier	IN	Input parameter indicating the ID of the current user.

Definition

Copy



          CREATE procedure dbo.USP_DECEASEDFINDER_DELETE
          (
            @ID uniqueidentifier,
            @CHANGEAGENTID uniqueidentifier,
            @CURRENTAPPUSERID uniqueidentifier
          )
          as
            set nocount on;

            if @CHANGEAGENTID is null
              exec dbo.USP_CHANGEAGENT_GETORCREATECHANGEAGENT @CHANGEAGENTID output;

            declare @SUBMITID uniqueidentifier;
            declare @RESUBMITID uniqueidentifier;
            declare @GETID uniqueidentifier;

            select 
              @SUBMITID = SUBMIT.ID,
              @RESUBMITID = RESUBMIT.ID,
              @GETID = GET.ID
            from 
              dbo.DECEASEDFINDER
            inner join 
              dbo.DECEASEDFINDERSUBMITPROCESS SUBMIT 
            on 
              DECEASEDFINDER.ID = SUBMIT.DECEASEDFINDERID
            inner join 
              dbo.DECEASEDFINDERSUBMITPROCESS RESUBMIT 
            on 
              DECEASEDFINDER.ID = RESUBMIT.DECEASEDFINDERID
            inner join 
              dbo.DECEASEDFINDERGETPROCESS GET 
            on 
              DECEASEDFINDER.ID = GET.DECEASEDFINDERID
            where 
              DECEASEDFINDER.ID = @ID;

            exec dbo.USP_BUSINESSPROCESS_PARAMETERSETCANBEDELETED 'DECEASEDFINDERSUBMITPROCESSSTATUS', @SUBMITID;
            exec dbo.USP_BUSINESSPROCESS_PARAMETERSETCANBEDELETED 'DECEASEDFINDERRESUBMITPROCESSSTATUS', @RESUBMITID;
            exec dbo.USP_BUSINESSPROCESS_PARAMETERSETCANBEDELETED 'DECEASEDFINDERGETPROCESSSTATUS', @GETID;

            exec dbo.USP_BUSINESSPROCESSINSTANCE_DELETE '18F4FBE4-8AFB-4FFE-84E1-F1FC59948775', @SUBMITID, @CHANGEAGENTID;

            /*********************************************/
            /* Drop the data table if it exists */
            /*********************************************/
            declare @TABLENAME nvarchar(128) = 'DECEASEDFINDERCREATE_' + replace(cast(@ID as nvarchar(36)), '-', '_');

            if exists(select top 1 1 from [INFORMATION_SCHEMA].[TABLES] where [TABLE_SCHEMA] = 'dbo' and [TABLE_NAME] = @TABLENAME)
              exec ('drop table dbo.[' + @TABLENAME + ']');

            exec dbo.USP_DECEASEDFINDER_DELETEBYID_WITHCHANGEAGENTID @ID, @CHANGEAGENTID;
            return 0;