CREATE OR REPLACE procedure delete_subscriber(
p_subscriber_id in number,
p_commit_size in integer default 1000)
authid current_user is
l_commit_size number := p_commit_size;
l_exist pls_integer;
begin
if l_commit_size < 50 then
l_commit_size := 50;
end if;
loop
delete PORTAL.WWV_VIDEOSERVERS
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWV_VERSION$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWV_USR_STATIC_LOV$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWV_USR_SQL$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWV_USR_MENUS$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWV_USR_IMAGES$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWV_USR_FONTS$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWV_USR_DYNAMIC_LOV$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWV_USR_COLORS$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWV_USER_TEXT_BLOCK_USAGES$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWV_USER_TEXT_BLOCKS$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWV_USER_LABEL_USAGES$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWV_USER_LABELS$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWV_UPDATES
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWV_THINGSPERSPECTIVES
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWV_THINGATTRIBUTES
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWV_SYS_TEXT_BLOCK_USAGES$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWV_SYS_TEXT_BLOCKS$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWV_SYS_SURVEY_LOC$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWV_SYS_STATIC_LOV$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWV_SYS_PREFERENCES$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWV_SYS_PADMIN$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWV_SYS_MESSAGES$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWV_SYS_MENUS$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWV_SYS_LABEL_USAGES$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWV_SYS_LABELS$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWV_SYS_JAVA_SCRIPTS$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWV_SYS_IMAGES$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWV_SYS_FONTS$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWV_SYS_DYNAMIC_LOV$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWV_SYS_DRIVER_PARAMETERS$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWV_SYS_DEBUG
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWV_SYS_COMPONENT_SCHEMAS$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWV_SYS_COLORS$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWV_SYS_APP_TEMPLATE_DETAILS$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWV_SUBTYPEATTRIBUTES
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWV_SETTINGSSETS
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWV_SETTINGS
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWV_PERSPECTIVES
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWV_PARM_SAVES$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWV_MODULE_DETAILS$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWV_MESSAGES
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWV_HITS2
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWV_HITS1
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWV_HELP_RELATED_TOPICS$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWV_HELP_MUTAB
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWV_HELP_INDEX$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWV_HELP_CONTEXT_SENSITIVE$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWV_HELP$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWV_DROPSITECOMMANDS$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWV_DOCINFO
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWV_DATAPTL_DATA$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWV_CTX_THEMES
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWV_CTX_MARK_TABLE
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWV_CTX_GIST
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWV_CTX_FILT_TABLE
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWV_CS_HELP_MUTAB
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWV_COUNTRIES
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWV_BATCH_RESULTS$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWV_BATCH_CGI_VALUE$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWV_ALERTS
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWUTL_SYS_JAVA_SCRIPTS$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWTMP_USR_TEMPLATE_PREVIEW$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWTMP_USR_TEMPLATE_DETAIL$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWSRC_PREFERENCE$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWSEC_SYS_PRIV$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWSEC_SSO_LOG$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWSEC_PRIVILEGE$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWSEC_MEMBER$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWSEC_FLAT$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWSEC_EXT_APP_LKUP$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWSEC_AUTH_FUNCTION$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWSBR_USER_SEARCHES
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWSBR_URL$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWSBR_TMP_DAV_INFO$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWSBR_THINGFUNCTION_ATTRIBUTE$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWSBR_SUBSCRIPTION$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWSBR_SITE_SUBTYPES$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWSBR_SITE_PERSPECTIVE$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWSBR_SITE_FOLDERTYPES$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWSBR_SITE_CATEGORY$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWSBR_PORTLET$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWSBR_ITEM_APPROVAL$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWSBR_HELP_RELATED_TOPICS$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWSBR_HELP_MUTAB$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWSBR_HELP_INDEX$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWSBR_HELP_CONTEXT_SENSITIVE$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWSBR_HELP$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWSBR_FOLDER_SUBTYPE_FUNCTION$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWSBR_FOLDER_SUBTYPEATTRIBUTE$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWSBR_FOLDER_SUBTYPE$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWSBR_FOLDER_PERSPECTIVES$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWSBR_FOLDER_ATTRIBUTE$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWSBR_FOLDERFUNC_ATTRIBUTE$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWSBR_EXPIRY$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWSBR_ATTRIBUTE_DISPLAY$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWSBR_ATTRIBUTE$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWSBR_APPROVER$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWPTL_RECENTOBJECT$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWPTL_OTHER_SERVICES_LINK$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWPTL_FAVORITE$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWPTL_CONTENT_LOG_HEADERS$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWPTH_PATH_ELEMENT$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWPTH_DOMAIN$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWPRO_PROVIDER_GROUP$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWPRO_PORTLET_METADATA_USER$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWPRO_PORTLET_METADATA_NLS$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWPRO_OFFLINE_PRO_PORTLET_NLS$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWPRO_ADAPTER_KEY$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWPRE_VALUE$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWPOB_STYLE_INST$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWPOB_REGION_ATTRIBUTE$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWPOB_PORTLET_INST$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWPOB_PARAM_MAP$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWPOB_PARAM_CUST$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWPOB_PAGE_CUSTOMIZATION$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWPOB_PAGEGROUP_SETTINGS$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWPOB_OBJ_REF$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWPOB_ITEM$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWPOB_FLOW_LINK$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWPOB_EVENT_MAP$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWNLS_SYS_LANGUAGE$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWNLS_LANGUAGE_TERRITORY$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWLOG_REGISTRY$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWLOG_EVENT$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWLOG_ACTIVITY_LOG2$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWLOG_ACTIVITY_LOG1$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWEX_EXPORT_OBJECT$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWDOC_MIME_TYPE_IMAGE$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWDAV$PROP
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
update PORTAL.WWDAV$PATH
set    PARENTPATH = PATH
where  SUBSCRIBER_ID = p_subscriber_id;
loop
delete PORTAL.WWDAV$PATH
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWDAV$LOCKS
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWDAV$EASL
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWDAV$CONTAIN
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWC_VERSION$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWA_MODULE_SESSION_LOBS$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWA_MODULE_SCRIPTS$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWA_MODULE_LOV_BINDINGS$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWA_MODULE_EVENTS$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWA_MODULE_CALL_STACK$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWA_MODULE_BINDINGS$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWA_FORM_ITEM$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWA_EVENT_SCOPE_MAPPING$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWAPP_APPLICATION_DETAIL$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.OPC_SURVEY_TRIGGERS
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.OPC_SURVEY_SUB
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.OPC_SURVEY_SCORES
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.OPC_SURVEY_RESPONSES
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.OPC_SURVEY_QUESTIONS
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.OPC_SURVEY_HEADER
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.OPC_SURVEY_ANSWERS
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.OPC_SURVEY_ADMINISTRATIONS
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.OPC_SUBSCRIBERS
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.EXAMPLE_RSS
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.DUAL100
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.CTX_TEMP_WWV_HELP
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.CTX_TEMP_WWV_CS_HELP
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.CTX_TEMP_WWSBR_HELP$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWA_FORM$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWA_EVENT_TYPE$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWA_MODULE_ATTRIBUTES$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWA_MODULE_SESSIONS$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWDAV$ASL
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWDOC_DOCUMENT$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWPOB_FLOW_ELEM$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWSBR_THINGSUBTYPE_FUNCTION$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWSEC_GROUP$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWSEC_PERSON$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWSEC_PRIV_OBJECT_TYPE$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
--
-- Warning: WWSTO_SESSION$ has no VPD policy
--
--
loop
delete PORTAL.WWTMP_USR_TEMPLATE$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
--
-- Warning: WWUTL_EXPORT_IMPORT$ has no VPD policy
--
--
--
-- Warning: WWV_AVAILABILITY_TYPES$ has no VPD policy
--
--
loop
delete PORTAL.WWV_BATCH_SUBMISSIONS$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWV_DATAPTLS$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWV_MODULES$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWV_PREFERENCES$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWV_SYS_APPLICATION_TEMPLATES$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWV_SYS_BUILDER_DETAILS$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWV_SYS_CAT_LOV$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWV_SYS_IMAGE_TYPES$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWV_THINGS
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWV_THINGSUBTYPE
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWV_TOPICS
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWV_USR_CAT_LOV$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWV_USR_IMAGE_TYPES$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWV_USR_JAVA_SCRIPTS$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
--
-- Warning: WWWCP_BROWSE_URL$ has no VPD policy
--
--
--
-- Warning: WWWCP_CUSTOMIZATION_MAP$ has no VPD policy
--
--
loop
delete PORTAL.WWPOB_PARAM$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
update PORTAL.WWPOB_REGION$
set    PARENT_ID = ID
where  SUBSCRIBER_ID = p_subscriber_id;
loop
delete PORTAL.WWPOB_REGION$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWPRE_NAME$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWPRO_OFFLINE_PRO_PORTLET$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWPRO_PORTLET_METADATA$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWPTH_OBJECT_TYPE$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWPTL_CONTENT_LOGS$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
update PORTAL.WWPTL_FAVORITE_GROUP$
set    FAVORITE_GROUP_ID = ID
where  SUBSCRIBER_ID = p_subscriber_id;
loop
delete PORTAL.WWPTL_FAVORITE_GROUP$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWSBR_APPROVAL$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWPOB_EVENT$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWA_EVENT_SCOPE_TYPE$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWAPP_APPLICATION$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
--
-- Warning: WWCTX_SSO_SESSION$ has no VPD policy
--
--
update PORTAL.WWPOB_PAGE$
set    PARENTID = ID
where  SUBSCRIBER_ID = p_subscriber_id;
update PORTAL.WWPOB_PAGE$
set    TEMPLATE_ID = ID
where  SUBSCRIBER_ID = p_subscriber_id;
update PORTAL.WWPOB_PAGE$
set    TEMPLATE_SITEID = SITEID
where  SUBSCRIBER_ID = p_subscriber_id;
loop
delete PORTAL.WWPOB_PAGE$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
update PORTAL.WWPRE_PATH$
set    PARENT_ID = ID
where  SUBSCRIBER_ID = p_subscriber_id;
loop
delete PORTAL.WWPRE_PATH$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWPRO_PROVIDERS$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWPRO_OFFLINE_PROVIDER$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWV_SYS_MODULE_TYPES$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWV_TEXT
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
--
-- Warning: WWWCP_CLIPPING$ has no VPD policy
--
--
loop
delete PORTAL.WWTYP_DYNAMIC_TYPE$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWPOB_FLOW_GROUP$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWA_MODULE_BLOCKS$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWPRO_NODE$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWV_SYS_MODULE_GROUPS$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWSBR_SITE_LANGUAGES$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWCTX_PROXY$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWA_MODULES$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWSBR_SITES$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
loop
delete PORTAL.WWNLS_STRINGS$
where  SUBSCRIBER_ID = p_subscriber_id
and ROWNUM <= p_commit_size;
exit when SQL%NOTFOUND;
commit;
end loop;
--
end delete_subscriber;
/