USP_DATAFORMTEMPLATE_EDITLOAD_MKTSEGMENTATION_4
The load procedure used by the edit dataform template "Marketing Effort Edit Form 4"
Parameters
Parameter | Parameter Type | Mode | Description |
---|---|---|---|
@ID | uniqueidentifier | IN | The input ID parameter used to load the fields defined on the form. |
@CURRENTAPPUSERID | uniqueidentifier | IN | Input parameter indicating the ID of the current user. |
@DATALOADED | bit | INOUT | Output parameter indicating whether or not data was actually loaded. |
@ACTIVE | bit | INOUT | Active |
@CODE | nvarchar(10) | INOUT | Code |
@NAME | nvarchar(100) | INOUT | Name |
@DESCRIPTION | nvarchar(255) | INOUT | Description |
@SITEID | uniqueidentifier | INOUT | Site |
@SOURCECODEID | uniqueidentifier | INOUT | Source code |
@ITEMLIST | xml | INOUT | Items |
@ISTESTMAILING | tinyint | INOUT | Is test marketing effort |
@MAILDATE | datetime | INOUT | Date |
@PLANPATH | nvarchar(max) | INOUT | Plan |
@HOUSEHOLDINGTYPECODE | tinyint | INOUT | Include |
@ENABLEHOUSEHOLDING | bit | INOUT | Enable householding? |
@SITEREQUIRED | bit | INOUT | Site required? |
@SITECANBECHANGED | bit | INOUT | Site can be changed? |
@MAILINGTYPECODE | tinyint | INOUT | Marketing effort type |
@ISBBEC | bit | INOUT | Is BBEC? |
@OWNERID | uniqueidentifier | INOUT | Owner ID |
@EXCLUSIONDATETYPECODE | tinyint | INOUT | Consider exclusions as of |
@EXCLUSIONASOFDATE | datetime | INOUT | Consider exclusions as of |
@EXCLUDEDECEASED | bit | INOUT | Exclude deceased constituents |
@EXCLUDEINACTIVE | bit | INOUT | Exclude inactive constituents |
@EXCLUSIONS | xml | INOUT | Exclusions |
@USEADDRESSPROCESSING | bit | INOUT | Use address processing? |
@ADDRESSPROCESSINGOPTIONID | uniqueidentifier | INOUT | Address processing options |
@NAMEFORMATPARAMETERID | uniqueidentifier | INOUT | Name format options |
@ADDRESSPROCESSINGOPTIONSEASONALASOFDATETYPECODE | tinyint | INOUT | Consider seasonal addresses as of |
@ADDRESSPROCESSINGOPTIONSEASONALASOFDATE | datetime | INOUT | Consider seasonal addresses as of |
@CANUPDATEEXCLUDEDECEASED | bit | INOUT | Can update exclude deceased constituents? |
@CANUPDATEEXCLUDEINACTIVE | bit | INOUT | Can update exclude inactive constituents? |
@TSLONG | bigint | INOUT | Output parameter indicating the TSLONG value of the record being edited. This is used to manage multi-user concurrency issues when multiple users access the same record. |
@ACTIVATIONKPIS | xml | INOUT | Activation KPIs |
@USEKPISASDEFAULT | bit | INOUT | Use the chosen KPIs as the default for future marketing efforts |
@APPEALINFORMATION | xml | INOUT | Appeal information including the appeal searchlist and record source. |
@RUNACTIVATEANDEXPORT | bit | INOUT | Export marketing effort when activation completes |
@EXPORTDESCRIPTION | nvarchar(255) | INOUT | Export description |
@MAILEXPORTDEFINITIONID | uniqueidentifier | INOUT | Mail export definition |
@EMAILEXPORTDEFINITIONID | uniqueidentifier | INOUT | Email export definition |
@PHONEEXPORTDEFINITIONID | uniqueidentifier | INOUT | Phone export definition |
@CODEVALUEID | uniqueidentifier | INOUT | Code value ID |
@RUNSEGMENTATIONSEGMENTREFRESHPROCESS | bit | INOUT | Refresh segment selections and filters |
@CACHESOURCEANALYSISRULEDATA | bit | INOUT | Capture source analysis rule data |
@BUSINESSUNITS | xml | INOUT | Business units |
@OVERRIDEBUSINESSUNITS | bit | INOUT | Override appeal business units |
@BASECURRENCYID | uniqueidentifier | INOUT | Base currency ID |
@EXPORTDEFINITIONRECORDTYPE | nvarchar(50) | INOUT | Export definition record type |
@EXPORTDEFINITIONRECORDTYPEID | uniqueidentifier | INOUT | Export definition record type ID |
@EXPORTDEFINITIONQUERYVIEWID | uniqueidentifier | INOUT | Export definition query view ID |
@ISBBAC | bit | INOUT | |
@ISHISTORICAL | bit | INOUT | |
@SOURCECODEISHISTORICAL | bit | INOUT | |
@RUNMARKETINGEXCLUSIONSREPORT | bit | INOUT | |
@SEGMENTUSESADVANCEDNAMEFORMATOPTION | bit | INOUT | |
@CHANNELCODE | tinyint | INOUT | |
@ALLOWRESERVINGFINDERNUMBERS | bit | INOUT | |
@ALLOWSPECIFYBUDGET | bit | INOUT | |
@ALLOWEXCLUDEPREVIOUSEFFORTS | bit | INOUT | |
@DUEDATE | datetime | INOUT |
Definition
Copy
CREATE procedure dbo.[USP_DATAFORMTEMPLATE_EDITLOAD_MKTSEGMENTATION_4]
(
@ID uniqueidentifier,
@CURRENTAPPUSERID uniqueidentifier,
@DATALOADED bit = 0 output,
@ACTIVE bit = null output,
@CODE nvarchar(10) = null output,
@NAME nvarchar(100) = null output,
@DESCRIPTION nvarchar(255) = null output,
@SITEID uniqueidentifier = null output,
@SOURCECODEID uniqueidentifier = null output,
@ITEMLIST xml = null output,
@ISTESTMAILING tinyint = null output,
@MAILDATE datetime = null output,
@PLANPATH nvarchar(max) = null output,
@HOUSEHOLDINGTYPECODE tinyint = null output,
@ENABLEHOUSEHOLDING bit = null output,
@SITEREQUIRED bit = null output,
@SITECANBECHANGED bit = null output,
@MAILINGTYPECODE tinyint = null output,
@ISBBEC bit = null output,
@OWNERID uniqueidentifier = null output,
@EXCLUSIONDATETYPECODE tinyint = null output,
@EXCLUSIONASOFDATE datetime = null output,
@EXCLUDEDECEASED bit = null output,
@EXCLUDEINACTIVE bit = null output,
@EXCLUSIONS xml = null output,
@USEADDRESSPROCESSING bit = null output,
@ADDRESSPROCESSINGOPTIONID uniqueidentifier = null output,
@NAMEFORMATPARAMETERID uniqueidentifier = null output,
@ADDRESSPROCESSINGOPTIONSEASONALASOFDATETYPECODE tinyint = null output,
@ADDRESSPROCESSINGOPTIONSEASONALASOFDATE datetime = null output,
@CANUPDATEEXCLUDEDECEASED bit = null output,
@CANUPDATEEXCLUDEINACTIVE bit = null output,
@TSLONG bigint = 0 output,
@ACTIVATIONKPIS xml = null output,
@USEKPISASDEFAULT bit = null output,
@APPEALINFORMATION xml = null output,
@RUNACTIVATEANDEXPORT bit = null output,
@EXPORTDESCRIPTION nvarchar(255) = null output,
@MAILEXPORTDEFINITIONID uniqueidentifier = null output,
@EMAILEXPORTDEFINITIONID uniqueidentifier = null output,
@PHONEEXPORTDEFINITIONID uniqueidentifier = null output,
@CODEVALUEID uniqueidentifier = null output,
@RUNSEGMENTATIONSEGMENTREFRESHPROCESS bit = null output,
@CACHESOURCEANALYSISRULEDATA bit = null output,
@BUSINESSUNITS xml = null output,
@OVERRIDEBUSINESSUNITS bit = null output,
@BASECURRENCYID uniqueidentifier = null output,
@EXPORTDEFINITIONRECORDTYPE nvarchar(50) = null output,
@EXPORTDEFINITIONRECORDTYPEID uniqueidentifier = null output,
@EXPORTDEFINITIONQUERYVIEWID uniqueidentifier = null output,
@ISBBAC bit = null output,
@ISHISTORICAL bit = null output,
@SOURCECODEISHISTORICAL bit = null output,
@RUNMARKETINGEXCLUSIONSREPORT bit = null output,
@SEGMENTUSESADVANCEDNAMEFORMATOPTION bit = null output,
@CHANNELCODE tinyint = null output,
@ALLOWRESERVINGFINDERNUMBERS bit = null output,
@ALLOWSPECIFYBUDGET bit = null output,
@ALLOWEXCLUDEPREVIOUSEFFORTS bit = null output,
@DUEDATE datetime = null output
)
as
set nocount on;
declare @MARKETINGPLANITEMID uniqueidentifier;
set @DATALOADED = 0;
set @TSLONG = 0;
if (select [ACTIVE] from dbo.[MKTSEGMENTATION] where [ID] = @ID) = 0
begin
declare @R int;
exec @R = dbo.[USP_MKTSEGMENTATION_CHECKACTIVATION] @ID;
if @R <> 0
return 1;
end
select
@DATALOADED = 1,
@ACTIVE = [MKTSEGMENTATION].[ACTIVE],
@NAME = [MKTSEGMENTATION].[NAME],
@CODE = [MKTSEGMENTATION].[CODE],
@CODEVALUEID = [MKTSEGMENTATION].[PARTDEFINITIONVALUESID],
@DESCRIPTION = [MKTSEGMENTATION].[DESCRIPTION],
@SITEID = [MKTSEGMENTATION].[SITEID],
@SOURCECODEID = [MKTSEGMENTATION].[SOURCECODEID],
@ITEMLIST = dbo.[UFN_MKTSOURCECODEPART_GETITEMLIST2_TOITEMLISTXML]([MKTSEGMENTATION].[ID]),
@ISTESTMAILING = case when [MKTSEGMENTATION].[PARENTSEGMENTATIONID] is null then 0 else 1 end,
@MAILDATE = [MKTSEGMENTATION].[MAILDATE],
@PLANPATH = dbo.[UFN_MKTMARKETINGPLANITEM_PATH]([MKTSEGMENTATION].[MARKETINGPLANITEMID], 1),
@ENABLEHOUSEHOLDING = (case when [MKTSEGMENTATION].[MAILINGTYPECODE] = 1 then 0 else @ENABLEHOUSEHOLDING end),
@HOUSEHOLDINGTYPECODE = [MKTSEGMENTATION].[HOUSEHOLDINGTYPECODE],
@MARKETINGPLANITEMID = [MKTSEGMENTATION].[MARKETINGPLANITEMID],
@MAILINGTYPECODE = [MKTSEGMENTATION].[MAILINGTYPECODE],
@OWNERID = dbo.[UFN_BUSINESSPROCESSINSTANCE_GETOWNER]('22C3D75C-A956-4BFC-A5FD-4B866BAEF509', [MKTSEGMENTATIONACTIVATEPROCESS].[ID]),
@EXCLUSIONDATETYPECODE = isnull([BUSINESSPROCESSCOMMPREF].[DATETYPECODE], 0),
@EXCLUSIONASOFDATE = [BUSINESSPROCESSCOMMPREF].[ASOFDATE],
@EXCLUDEDECEASED = isnull([BUSINESSPROCESSCOMMPREF].[EXCLUDEDECEASED], 0),
@EXCLUDEINACTIVE = isnull([BUSINESSPROCESSCOMMPREF].[EXCLUDEINACTIVE], 0),
@EXCLUSIONS = dbo.[UFN_MKTSEGMENTATION_GETREQUIREDANDSELECTEDSOLICITCODEEXCLUSIONS_TOITEMLISTXML]([MKTSEGMENTATIONACTIVATEPROCESS].[ID]),
@USEADDRESSPROCESSING = [MKTSEGMENTATION].[USEADDRESSPROCESSING],
@ADDRESSPROCESSINGOPTIONID = [MKTSEGMENTATION].[ADDRESSPROCESSINGOPTIONID],
@NAMEFORMATPARAMETERID = [MKTSEGMENTATION].[NAMEFORMATPARAMETERID],
@ADDRESSPROCESSINGOPTIONSEASONALASOFDATETYPECODE = [MKTSEGMENTATION].[ADDRESSPROCESSINGOPTIONSEASONALASOFDATETYPECODE],
@ADDRESSPROCESSINGOPTIONSEASONALASOFDATE = [MKTSEGMENTATION].[ADDRESSPROCESSINGOPTIONSEASONALASOFDATE],
@TSLONG = [MKTSEGMENTATION].[TSLONG],
@RUNACTIVATEANDEXPORT = [MKTSEGMENTATION].[RUNACTIVATEANDEXPORT],
@EXPORTDESCRIPTION = [MKTSEGMENTATIONEXPORTPROCESS].[DESCRIPTION],
@MAILEXPORTDEFINITIONID = [MKTSEGMENTATIONEXPORTPROCESS].[MAILEXPORTDEFINITIONID],
@EMAILEXPORTDEFINITIONID = [MKTSEGMENTATIONEXPORTPROCESS].[EMAILEXPORTDEFINITIONID],
@PHONEEXPORTDEFINITIONID = [MKTSEGMENTATIONEXPORTPROCESS].[PHONEEXPORTDEFINITIONID],
@RUNSEGMENTATIONSEGMENTREFRESHPROCESS = [MKTSEGMENTATIONACTIVATEPROCESS].[RUNSEGMENTATIONSEGMENTREFRESHPROCESS],
@CACHESOURCEANALYSISRULEDATA = [MKTSEGMENTATIONACTIVATEPROCESS].[CACHESOURCEANALYSISRULEDATA],
@BUSINESSUNITS = dbo.[UFN_MKTSEGMENTATIONBUSINESSUNIT_GETBUSINESSUNITS_TOITEMLISTXML](@ID),
@OVERRIDEBUSINESSUNITS = [MKTSEGMENTATION].[OVERRIDEBUSINESSUNITS],
@BASECURRENCYID = [MKTSEGMENTATION].[BASECURRENCYID],
@ISHISTORICAL = [MKTSEGMENTATION].[ISHISTORICAL],
@SOURCECODEISHISTORICAL = isnull([MKTSOURCECODE].[ISHISTORICAL], 0),
@RUNMARKETINGEXCLUSIONSREPORT = [MKTSEGMENTATIONACTIVATEPROCESS].[RUNMARKETINGEXCLUSIONSREPORT],
@CHANNELCODE = isnull([MKTSEGMENTATION].[CHANNELCODE], 255),
@ALLOWRESERVINGFINDERNUMBERS = isnull([MKTSEGMENTATION].[ALLOWRESERVINGFINDERNUMBERS], 1),
@ALLOWSPECIFYBUDGET = isnull([MKTSEGMENTATION].[ALLOWSPECIFYBUDGET], 1),
@ALLOWEXCLUDEPREVIOUSEFFORTS = isnull([MKTSEGMENTATION].[ALLOWEXCLUDEPREVIOUSEFFORTS], 1),
@DUEDATE = [MKTSEGMENTATION].[DUEDATE]
from dbo.[MKTSEGMENTATION]
left outer join dbo.[MKTSOURCECODE] on [MKTSOURCECODE].[ID] = [MKTSEGMENTATION].[SOURCECODEID]
inner join dbo.[MKTSEGMENTATIONACTIVATEPROCESS] on [MKTSEGMENTATIONACTIVATEPROCESS].[SEGMENTATIONID] = [MKTSEGMENTATION].[ID]
left outer join dbo.[BUSINESSPROCESSCOMMPREF] on [BUSINESSPROCESSCOMMPREF].[BUSINESSPROCESSPARAMETERSETID] = [MKTSEGMENTATIONACTIVATEPROCESS].[ID]
left outer join dbo.[MKTSEGMENTATIONEXPORTPROCESS] on [MKTSEGMENTATIONEXPORTPROCESS].[SEGMENTATIONID] = [MKTSEGMENTATION].[ID]
where [MKTSEGMENTATION].[ID] = @ID;
if @DATALOADED = 1
begin
set @ISBBEC = (case when dbo.[UFN_INSTALLEDPRODUCTS_PRODUCTIS]('BB9873D7-F1ED-430A-8AB4-F09F47056538') = 0 then 1 else 0 end);
set @ISBBAC = dbo.[UFN_MKTCOMMON_PRODUCTISALTRU]();
if @ISBBEC = 1 and @OVERRIDEBUSINESSUNITS = 0
begin
declare @APPEALSYSTEMID uniqueidentifier;
select
@APPEALSYSTEMID = convert(uniqueidentifier, [MKTSEGMENTATIONACTIVATE].[APPEALSYSTEMID])
from dbo.[MKTSEGMENTATIONACTIVATE]
where [SEGMENTATIONID] = @ID
and [APPEALSYSTEMID] <> ''
and dbo.[UFN_MKTRECORDSOURCE_VALIDFORBBEC]([RECORDSOURCEID]) = 1;
if @APPEALSYSTEMID is not null
set @BUSINESSUNITS = dbo.[UFN_APPEALBUSINESSUNIT_GETBUSINESSUNITS_TOITEMLISTXML](@APPEALSYSTEMID);
end
if @ADDRESSPROCESSINGOPTIONID is null
select top 1 @ADDRESSPROCESSINGOPTIONID = [ID] from dbo.[ADDRESSPROCESSINGOPTION] where [ISDEFAULT] = 1 and dbo.[UFN_SITEALLOWEDFORUSER](@CURRENTAPPUSERID, [SITEID]) = 1;
if @NAMEFORMATPARAMETERID is null
select top 1 @NAMEFORMATPARAMETERID = [ID] from dbo.[NAMEFORMATPARAMETER] where [ISDEFAULT] = 1 and dbo.[UFN_SITEALLOWEDFORUSER](@CURRENTAPPUSERID, [SITEID]) = 1;
select
@ENABLEHOUSEHOLDING = (case when sum(case when isnull([MKTRECORDSOURCEFIELDMAPPINGS].[HOUSEHOLDIDFIELD],'') = '' then 0 else 1 end) = 0 then 0 else 1 end)
from dbo.[MKTRECORDSOURCE]
left join dbo.[MKTRECORDSOURCEFIELDMAPPINGS] on [MKTRECORDSOURCEFIELDMAPPINGS].[ID] = [MKTRECORDSOURCE].[ID]
where dbo.[UFN_MKTRECORDSOURCE_VALIDFORPRODUCT]([MKTRECORDSOURCE].[ID]) = 1;
set @SITEREQUIRED = dbo.[UFN_SITEREQUIREDFORUSERONFEATURE](@CURRENTAPPUSERID, '79096B1C-66AD-496B-95D5-B9BA1C61BA3C', 1);
set @SITECANBECHANGED = 1; -- obsolete
set @CANUPDATEEXCLUDEDECEASED = 1;
set @CANUPDATEEXCLUDEINACTIVE = 1;
if dbo.[UFN_APPUSER_ISSYSADMIN](@CURRENTAPPUSERID) = 0
begin
set @CANUPDATEEXCLUDEDECEASED = dbo.[UFN_SECURITY_APPUSER_GRANTED_SYSTEMPRIVILEGE_IN_SYSTEMROLE](@CURRENTAPPUSERID, '2EEC593D-06B1-49E0-9031-A4076B07081C');
set @CANUPDATEEXCLUDEINACTIVE = dbo.[UFN_SECURITY_APPUSER_GRANTED_SYSTEMPRIVILEGE_IN_SYSTEMROLE](@CURRENTAPPUSERID, 'C0E02A6F-DF46-460C-ACA2-CC31C9C11BFC');
end
declare @KPITABLE as table (
[KPICATALOGID] uniqueidentifier,
[SELECTED] bit,
[NAME] nvarchar(255),
[GOALTYPECODE] tinyint,
[DEFAULT] bit,
[LOCKED] bit,
[TEMPLATETYPECODE] tinyint
);
insert into @KPITABLE
exec dbo.[USP_MKTSEGMENTATIONACTIVATEKPI_GETFIELDS] @ID, 1, @CURRENTAPPUSERID;
set @ACTIVATIONKPIS = (
select
[KPICATALOGID],
[SELECTED],
[NAME],
[GOALTYPECODE],
[DEFAULT]
from @KPITABLE
for xml raw('ITEM'), type, elements, root('ACTIVATIONKPIS'), binary base64);
-- make sure the appeal name and description are up-to-date in our table
exec dbo.[USP_MKTSEGMENTATIONACTIVATE_UPDATEAPPEALINFO] @ID;
-- get appeal search catalog IDs with their record source names
set @APPEALINFORMATION = (
select
[MKTAPPEALRECORDSOURCE].[ID] as [RECORDSOURCEID],
[QUERYVIEWCATALOG].[DISPLAYNAME] as [RECORDSOURCENAME],
[MKTAPPEALRECORDSOURCE].[SEARCHLISTCATALOGID] as [SEARCHLISTCATALOGID],
[MKTAPPEALRECORDSOURCE].[DESCRIPTIONFIELD] as [SEARCHLISTDESCRIPTIONFIELD],
[MKTSEGMENTATIONACTIVATE].[APPEALSYSTEMID] as [APPEALSYSTEMID],
(case when @ISBBEC = 1 and [MKTSEGMENTATIONACTIVATE].[APPEALSYSTEMID] <> '' and dbo.[UFN_MKTRECORDSOURCE_VALIDFORBBEC]([MKTAPPEALRECORDSOURCE].[ID]) = 1 then
(select [NAME] from dbo.[APPEAL] where [ID] = cast([MKTSEGMENTATIONACTIVATE].[APPEALSYSTEMID] as uniqueidentifier))
else
[MKTSEGMENTATIONACTIVATE].[APPEALID]
end) as [APPEALID],
(case when @ISBBEC = 1 and [MKTSEGMENTATIONACTIVATE].[APPEALSYSTEMID] <> '' and dbo.[UFN_MKTRECORDSOURCE_VALIDFORBBEC]([MKTAPPEALRECORDSOURCE].[ID]) = 1 then
(select [DESCRIPTION] from dbo.[APPEAL] where [ID] = cast([MKTSEGMENTATIONACTIVATE].[APPEALSYSTEMID] as uniqueidentifier))
else
[MKTSEGMENTATIONACTIVATE].[APPEALDESCRIPTION]
end) as [APPEALDESCRIPTION]
from dbo.[MKTAPPEALRECORDSOURCE]
inner join [QUERYVIEWCATALOG] on [MKTAPPEALRECORDSOURCE].[ID] = [QUERYVIEWCATALOG].[ID]
left join [MKTSEGMENTATIONACTIVATE] on [MKTSEGMENTATIONACTIVATE].[RECORDSOURCEID] = [MKTAPPEALRECORDSOURCE].[ID] and [MKTSEGMENTATIONACTIVATE].[SEGMENTATIONID] = @ID
where (@ACTIVE = 0 or (@ACTIVE = 1 and [MKTSEGMENTATIONACTIVATE].[APPEALID] <> ''))
and (dbo.[UFN_MKTRECORDSOURCE_VALIDFORPRODUCT]([QUERYVIEWCATALOG].[ID]) = 1)
for xml raw('ITEM'), type, elements, root('APPEALINFORMATION'), binary base64);
end
set @EXPORTDEFINITIONRECORDTYPE = dbo.[UFN_MKTEXPORTDEFINITION_GETRECORDTYPEFROMMAILINGTYPECODE](@MAILINGTYPECODE);
set @EXPORTDEFINITIONRECORDTYPEID = dbo.[UFN_MKTEXPORTDEFINITION_GETRECORDTYPEIDFROMMAILINGTYPECODE](@MAILINGTYPECODE);
set @EXPORTDEFINITIONQUERYVIEWID = dbo.[UFN_MKTEXPORTDEFINITION_GETQUERYVIEWIDFROMMAILINGTYPECODE](@MAILINGTYPECODE);
-- See if any segments override the address processing option with a name format that contains an advanced spouse option.
if exists (select top 1 1
from dbo.[MKTSEGMENTATIONSEGMENT]
inner join dbo.[NAMEFORMATPARAMETER] on [NAMEFORMATPARAMETER].[ID] = [MKTSEGMENTATIONSEGMENT].[NAMEFORMATPARAMETERID]
where
[MKTSEGMENTATIONSEGMENT].[SEGMENTATIONID] = @ID and
[MKTSEGMENTATIONSEGMENT].[OVERRIDEADDRESSPROCESSING] = 1 and
[MKTSEGMENTATIONSEGMENT].[USEADDRESSPROCESSING] = 1 and
([NAMEFORMATPARAMETER].[JOINTEXCLUDESPOUSE] = 1 or [NAMEFORMATPARAMETER].[JOINTSPOUSESMAILEDSEPARATELY] = 1)
)
set @SEGMENTUSESADVANCEDNAMEFORMATOPTION = 1;
else
set @SEGMENTUSESADVANCEDNAMEFORMATOPTION = 0;
return 0;