The following lines contain the word 'select', 'insert', 'update' or 'delete':
CURSOR FIND_SUB_ROLES IS SELECT PRINCIPAL_NAME FROM JTF_UM_SUBSCRIPTION_ROLE
WHERE SUBSCRIPTION_ID = p_subscription_id
AND NVL(EFFECTIVE_END_DATE , SYSDATE+1) > SYSDATE;
select subscription_flag
from jtf_um_usertype_subscrip
where usertype_id = p_usertype_id
and subscription_id = p_subscription_id
and effective_start_date <= sysdate
and nvl (effective_end_date, sysdate + 1) > sysdate;
* 1 - CHECKED_UPDATE
* 2 - NOT_CHECKED_UPDATE
* 3 - CHECKED_NO_UPDATE
* 4 - NOT_CHECKED_NO_UPDATE
* Note : This is a package private procedure
*
*/
procedure get_checkbox_status (
p_subscription_id in number,
p_grant_delegation_flag in boolean,
p_user_id in number,
p_usertype_id in number,
p_ignore_del_flag in boolean := false,
p_enrl_owner_user_id in number := FND_API.G_MISS_NUM,
x_result out NOCOPY number
) IS
l_procedure_name CONSTANT varchar2(30) := 'get_checkbox_status';
CURSOR FIND_ACTIVATION_MODE IS SELECT SUBSCRIPTION_FLAG FROM JTF_UM_USERTYPE_SUBSCRIP
WHERE SUBSCRIPTION_ID = p_subscription_id
AND USERTYPE_ID = p_usertype_id
ORDER BY EFFECTIVE_END_DATE DESC;
x_result := NOT_CHECKED_NO_UPDATE;
x_result := CHECKED_NO_UPDATE;
x_result := NOT_CHECKED_NO_UPDATE;
x_result := CHECKED_UPDATE;
x_result := NOT_CHECKED_NO_UPDATE;
x_result := NOT_CHECKED_UPDATE;
x_result := NOT_CHECKED_NO_UPDATE;
x_result := CHECKED_UPDATE;
x_result := NOT_CHECKED_UPDATE;
x_result := CHECKED_NO_UPDATE;
x_result := NOT_CHECKED_NO_UPDATE;
x_result := NOT_CHECKED_NO_UPDATE;
x_result := CHECKED_NO_UPDATE;
x_result := NOT_CHECKED_NO_UPDATE;
x_result := CHECKED_NO_UPDATE;
x_result := NOT_CHECKED_NO_UPDATE;
x_result := CHECKED_NO_UPDATE;
x_result := NOT_CHECKED_NO_UPDATE;
x_result := NOT_CHECKED_NO_UPDATE;
x_result := CHECKED_NO_UPDATE;
x_result := NOT_CHECKED_NO_UPDATE;
* 1 - CHECKED_UPDATE
* 2 - NOT_CHECKED_UPDATE
* 3 - CHECKED_NO_UPDATE
* 4 - NOT_CHECKED_NO_UPDATE
*
*
*/
procedure get_checkbox_status (
p_reg_id in number,
p_user_id in number,
x_result out NOCOPY number
) IS
BEGIN
get_checkbox_status (
p_reg_id => p_reg_id,
p_user_id => p_user_id,
p_ignore_del_flag => false,
x_result => x_result
);
* 1 - CHECKED_UPDATE
* 2 - NOT_CHECKED_UPDATE
* 3 - CHECKED_NO_UPDATE
* 4 - NOT_CHECKED_NO_UPDATE
*
*
*/
procedure get_checkbox_status (
p_reg_id in number,
p_user_id in number,
p_ignore_del_flag in boolean,
p_enrl_owner_user_id in number := FND_API.G_MISS_NUM,
x_result out NOCOPY number
) IS
l_procedure_name CONSTANT varchar2(30) := 'get_checkbox_status';
CURSOR FIND_DELEGATION_FLAG IS SELECT GRANT_DELEGATION_FLAG,SUBSCRIPTION_ID
FROM JTF_UM_SUBSCRIPTION_REG
WHERE SUBSCRIPTION_REG_ID = p_reg_id;
CURSOR FIND_USERTYPE_ID IS SELECT UTREG.USERTYPE_ID
FROM JTF_UM_USERTYPE_REG UTREG, JTF_UM_SUBSCRIPTION_REG SUBREG
WHERE SUBREG.USER_ID = UTREG.USER_ID
AND SUBREG.SUBSCRIPTION_REG_ID = p_reg_id
and nvl(UTREG.effective_end_date,sysdate+1) > sysdate;
* 1 - CHECKED_UPDATE
* 2 - NOT_CHECKED_UPDATE
* 3 - CHECKED_NO_UPDATE
* 4 - NOT_CHECKED_NO_UPDATE
*
*
*/
procedure get_checkbox_status_reg (
p_subscription_id in number,
p_user_id in number,
p_usertype_id in number,
x_result out NOCOPY number
) IS
l_delegation_role_id JTF_UM_SUBSCRIPTIONS_B.AUTH_DELEGATION_ROLE_ID%TYPE;
* 1 - CHECKED_UPDATE
* 2 - NOT_CHECKED_UPDATE
* 3 - CHECKED_NO_UPDATE
* 4 - NOT_CHECKED_NO_UPDATE
* x_can_assign
* 0 - if admin cannot assign
* 1 - if admin can assign
*
*/
procedure get_enrollment_avail (
p_subscription_id in number,
p_user_id in number,
p_usertype_id in number,
x_checkbox_code out NOCOPY number,
x_can_assign out NOCOPY number
) IS
l_procedure_name CONSTANT varchar2(30) := 'get_enrollment_avail';