Deleting users thru wwsec_api.delete_portal_user

Question

How can you delete a user from both portal30.wwsec_person$ and portal30_sso.person$ tables? I cannot figure out how to delete the user from wwsec_person$ in both the portal30 and portal30_sso schemas using the wwssec_api.delete_portal_user procedure. The procedure says it works w/o any errors, but only the first 'delete_portal_user' works successfully in my script; and no error message that the 2nd schema failed. If I run it twice, it works though. I'm running the procedure from the portal30_sso schema, but that doesn't appear to make any difference; nor does the order of what gets deleted. Any help would be appreciated. Here's my procedure below.
Thanks in advance,
Rick
CREATE OR REPLACE PROCEDURE portal30_sso.jec_delete_user ( inName VARCHAR2 )
IS
TmpVar NUMBER;
BEGIN
tmpVar := 0;
BEGIN
portal30_sso.wwctx_api_private.set_context('PORTAL30_SSO');
EXCEPTION
WHEN others
THEN
dbms_output.put_line('SSO Context: '||SQLERRM);
END;
BEGIN      
tmpVar := portal30_sso.wwsec_api.id(inName); -- returns person's ID
EXCEPTION
WHEN others
THEN
dbms_output.put_line('User not found: '||SQLERRM);
-- RETURN;
END;
BEGIN
portal30_sso.wwsec_api.delete_portal_user(inName);
EXCEPTION
WHEN others THEN
dbms_output.put_line ('Error: SSO Deleting user: '|| SQLERRM);
END;
BEGIN
portal30_sso.wwctx_api_private.clear_context;
EXCEPTION
WHEN others
THEN
dbms_output.put_line('Clear Context '||SQLERRM);
END;
BEGIN
portal30.wwctx_api_private.set_context('PORTAL30');
EXCEPTION
WHEN others
THEN
dbms_output.put_line('30 Context: '||SQLERRM);
END;
BEGIN
portal30.wwsec_api.delete_portal_user(inName);
EXCEPTION
WHEN others THEN
dbms_output.put_line ('ERROR: 30 Deleting user: '|| SQLERRM);
END;
BEGIN
portal30.wwctx_api_private.clear_context;
EXCEPTION
WHEN others
THEN
dbms_output.put_line('Clear Context '||SQLERRM);
END;
EXCEPTION
WHEN OTHERS
THEN
dbms_output.put_line('Misc Errors: '||SQLERRM);
COMMIT;
END jec_delete_user;

Answer 1

Here's the answer to my previous question. The procedure was tested from the portal30 schema. This deletes the record from the wwsec_person$ table on portal30 and portal30_sso.
Rick
CREATE OR REPLACE PROCEDURE portal30_sso.jec_delete_user (inName VARCHAR2)
IS
TmpVar NUMBER;
l_err NUMBER;
user_deletion_exception EXCEPTION;
BEGIN
tmpVar := 0;
BEGIN
portal30_sso.wwctx_api_private.set_context('PORTAL30_SSO');
EXCEPTION
WHEN others
THEN
dbms_output.put_line('SSO Context: '||SQLERRM);
END;
BEGIN      
tmpVar := portal30_sso.wwsec_api.id(inName); -- returns person's ID
EXCEPTION
WHEN others
THEN
dbms_output.put_line('User not found: '||SQLERRM);
-- RETURN;
END;
portal30_sso.wwsso_api_user_admin.delete_user
( p_username => inName,
p_error_code => l_err );
IF l_err != portal30_sso.WWSSO_API_USER_ADMIN.OK_SO_FAR
THEN
RAISE USER_DELETION_EXCEPTION;
END IF;
BEGIN
portal30.wwctx_api_private.set_context('PORTAL30');
EXCEPTION
WHEN others
THEN
dbms_output.put_line('30 Context: '||SQLERRM);
END;
BEGIN
portal30.wwsec_api.delete_portal_user(inName);
EXCEPTION
WHEN others THEN
dbms_output.put_line ('ERROR: 30 Deleting user: '|| SQLERRM);
END;
BEGIN
portal30.wwctx_api_private.clear_context;
EXCEPTION
WHEN others
THEN
dbms_output.put_line('Clear Context '||SQLERRM);
END;
EXCEPTION
WHEN OTHERS
THEN
dbms_output.put_line('Misc Errors: '||SQLERRM);
COMMIT;
END jec_delete_user;