USP_RECORDOPERATION_MICROSITEACTIVATEPROGRAMEMAILTEMPLATE_BYPROGRAMID

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

    declare @CURRENTDATE datetime = getDate();

    -- Validate email template can be sent

    declare @EMAILTEMPLATEID int;
    declare @EVENT_MICROSITEEMAILTEMPLATEID uniqueidentifier = null;

    select
        @EMAILTEMPLATEID = EMAILTEMPLATEID,
        @EVENT_MICROSITEEMAILTEMPLATEID = ID
    from dbo.PROGRAM_MICROSITEEMAILTEMPLATE
    where PROGRAMID = @ID;

    if @EVENT_MICROSITEEMAILTEMPLATEID is null or dbo.UFN_MICROSITE_ACKNOWLEDGEMENTEMAILTEMPLATE_CANBESENT(@EMAILTEMPLATEID) = 0
        raiserror('BBERR_ACTIVATEEMAILTEMPLATE_INCOMPLETEEMAIL', 13, 1);

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

    update dbo.PROGRAM_MICROSITEEMAILTEMPLATE set
        ACTIVE = 1,
        CHANGEDBYID = @CHANGEAGENTID,
        DATECHANGED = @CURRENTDATE
    where ID = @EVENT_MICROSITEEMAILTEMPLATEID;

    return 0;    
end