The following lines contain the word 'select', 'insert', 'update' or 'delete':
select value
INTO l_utl_file_dir
FROM v$parameter
WHERE name = 'utl_file_dir';
SELECT user_name
INTO l_user_name
FROM FND_USER
WHERE user_id = p_user_id ;
SELECT user_name
INTO l_user_name
FROM FND_USER
WHERE user_id = p_user_id ;
SELECT ego_wf_rpt_s.NEXTVAL
INTO l_rev_seq
FROM DUAL;
SELECT party_type
INTO l_party_type
FROM HZ_PARTIES
WHERE party_id = p_party_id ;
SELECT 'Role Exists'
FROM DUAL
WHERE EXISTS ( SELECT null
from WF_LOCAL_ROLES
WHERE NAME = p_role_name
AND ORIG_SYSTEM = 'WF_LOCAL_ROLES'
AND ORIG_SYSTEM_ID = 0
) ;
PROCEDURE DeleteRoleAndUsers
( p_role_name IN VARCHAR2)
IS
BEGIN
/* This might NOT be following standard
-- Deleting these adhoc role and user roles
-- should be done by WF Purge Program
-- Instead of this, Set Adhoc Role Expiration
-- using WF API. Then once user run WF Purge progam
-- deleting these role and user roles is taken care of.
-- DELETE FROM wf_local_roles
-- WHERE name = p_role_name ;
END DeleteRoleAndUsers ;
SELECT EngSecPeople.user_name user_role
FROM ENG_SECURITY_PEOPLE_V EngSecPeople
WHERE EngSecPeople.person_id = p_party_id ;
SELECT member.member_user_name user_role
FROM ENG_SECURITY_GROUP_MEMBERS_V member
WHERE member.group_id = p_group_id ;
SELECT EngSecPeople.user_name user_role
FROM ENG_SECURITY_PEOPLE_V EngSecPeople
WHERE EngSecPeople.person_id = p_party_id ;
SELECT member.member_user_name user_role
FROM ENG_SECURITY_GROUP_MEMBERS_V member
WHERE member.group_id = p_group_id ;
SELECT
MP.organization_code organization_code,
HAOTL.name organization_name
INTO x_organization_code
, x_organization_name
FROM
HR_ALL_ORGANIZATION_UNITS_TL HAOTL,
MTL_PARAMETERS MP
WHERE
HAOTL.organization_id = p_organization_id
AND HAOTL.organization_id = MP.ORGANIZATION_ID
AND HAOTL.LANGUAGE = USERENV('LANG');
PROCEDURE DeleteAdhocRolesAndUsers
( x_return_status OUT NOCOPY VARCHAR2
, x_msg_count OUT NOCOPY NUMBER
, x_msg_data OUT NOCOPY VARCHAR2
, p_item_type IN VARCHAR2
, p_item_key IN VARCHAR2
)
IS
l_api_name CONSTANT VARCHAR2(30) := 'DeleteAdhocRolesAndUsers';
DeleteRoleAndUsers(p_role_name => l_role_names(i) ) ;
END DeleteAdhocRolesAndUsers ;
PROCEDURE SELECT_ADHOC_PARTY(
itemtype in varchar2,
itemkey in varchar2,
actid in number,
funcmode in varchar2,
result in out NOCOPY varchar2)
IS
l_action_id NUMBER ;
wf_core.context('EGO_REPORT_WF_UTIL', 'SELECT_ADHOC_PARTY',
itemtype, itemkey, to_char(actid), funcmode);
wf_core.context('EGO_REPORT_WF_UTIL', 'SELECT_ADHOC_PARTY',
itemtype, itemkey, to_char(actid), funcmode);
END SELECT_ADHOC_PARTY ;
PROCEDURE DELETE_ADHOC_ROLES_AND_USERS(
itemtype in varchar2,
itemkey in varchar2,
actid in number,
funcmode in varchar2,
result in out NOCOPY varchar2)
IS
l_return_status VARCHAR2(1);
DeleteAdhocRolesAndUsers
( x_return_status => l_return_status
, x_msg_count => l_msg_count
, x_msg_data => l_msg_data
, p_item_type => itemtype
, p_item_key => itemkey
) ;
wf_core.context('EGO_REPORT_WF_UTIL', 'DELETE_ADHOC_ROLES_AND_USERS',
itemtype, itemkey, to_char(actid), funcmode);
wf_core.context('EGO_REPORT_WF_UTIL', 'DELETE_ADHOC_ROLES_AND_USERS',
itemtype, itemkey, to_char(actid), funcmode);
END DELETE_ADHOC_ROLES_AND_USERS ;