%%[
/*
Marketing Cloud Preference Center - Auvelity Branded Patient Test
Author: Klick CRM
Revision Date: 10/13/2022
Notes:
Revised by : Hemanth.Gunti
*/
]%%
%%=ContentBlockbyKey("branded-preferences-scripts-test")=%%
%%[
VAR @pageURL, @subkey, @email, @pageID, @subscriptionURL, @languageCode
SET @languageCode = "en"
SET @email = Trim(Lowercase(RequestParameter("e")))
SET @subkey = Trim(RequestParameter("b"))
/* Config URL vars */
SET @pageID = "539"
SET @subscriptionURL = CloudPagesURL(@pageID, 'unique_id_value' , @veeva_network_id , 'e', @email, 'b', @subkey)
/* Indicator for referring source */
SET @source = Trim(RequestParameter("src"))
SET @processingDateTime = NOW() SET @Unsubscribe =Trim(RequestParameter("Unsubscribe"))
/* Copy */
SET @PageTitle = "Axsome | Preference Center"
SET @BugURL = "https://axsome.com/" ]%%
%%[ /* Publication
Updates */
IF RequestParameter('sub') == '1'
THEN
SET @checkbox2 = Trim(RequestParameter("checkbox2"))
SET @checkbox1 = Trim(RequestParameter("checkbox1"))
/* Check All Subs - add if not found */
var @status_val
SET @email = Trim(Lowercase(RequestParameter("e")))
SET @subkey = Trim(RequestParameter("b"))
IF
EMPTY(@subkey)
THEN
SET @subkey = @email ENDIF /* Check for Subscriber by Subscriber Key */
SET @sub_key = @subkey
SET @rrObj = CreateObject("RetrieveRequest") SetObjectProperty(@rrObj, "ObjectType", "Subscriber")
AddObjectArrayItem(@rrObj,"Properties","SubscriberKey")
AddObjectArrayItem(@rrObj,"Properties","EmailAddress") SET @cObj = CreateObject("SimpleFilterPart")
SetObjectProperty(@cObj, "Property", "EmailAddress")
SetObjectProperty(@cObj, "SimpleOperator", "equals")
AddObjectArrayItem(@cObj, "Value",@email) SetObjectProperty(@rrObj, "Filter",
@cObj) SET @ResultSet = InvokeRetrieve(@rrObj) /* Subscriber not found add and
change status */ IF(Rowcount(@ResultSet)>0) THEN ELSE]%%
%%[ENDIF IF EMPTY(@checkbox2) AND EMPTY(@checkbox1) THEN SET @warning_msg =
'true' ELSE SET @warning_msg = 'false' SET @prefStatus = 'processed' /* mycapssa
pref update */ IF NOT EMPTY(@checkbox2) THEN]%%
%%[ IF NOT EMPTY(@status) AND @status =='OK' THEN SET @checkbox2Status =
"unsubscribed" ENDIF ENDIF /* acromegaly pref update */ IF NOT EMPTY(@checkbox1)
THEN]%%
%%[ IF NOT EMPTY(@status_val) AND @status_val =='OK' THEN SET @checkbox1Status =
"unsubscribed" ENDIF ENDIF ENDIF ENDIF /* Query Subscribers Status */ /* SET
@checkbox2Status =
Lookup("Ent._BusinessUnitUnsubscribes","UnsubDateUTC","SubscriberKey",@subkey,"BusinessUnitID","526001137")
*/ SET @checkbox2Status =
Lookup("Ent._Subscribers","Status","Status","Unsubscribed","SubscriberKey",@subkey)
SET @checkbox1Status =
Lookup("_ListSubscribers","Status","SubscriberKey",@subkey, "ListID", "672") IF
NOT EMPTY(@checkbox2Status) Then Set @checkbox2Status='unsubscribed' ELSE Set
@checkbox2Status='active' ENDIF IF @checkbox1Status == 'unsubscribed' THEN set
@checkbox1Status='unsubscribed' ELSE set @checkbox1Status='active' ENDIF ]%%
Unsubscribe | Auvelity Patient