The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT NVL(field_value_allowed_flag,'N')
FROM pa_pm_control_actions
WHERE action = p_action;
Select 'x'
FROM pa_pm_product_control_rules pc,
pa_pm_control_actions pa
WHERE pa.action = p_action
AND pa.control_rule_id = pc.control_rule_id
AND pc.pm_product_code = p_pm_product_code
AND NVL(l_field_value_code,'N') = NVL(pc.field_value_code,'N')
AND TRUNC(SYSDATE) BETWEEN TRUNC(NVL(start_date_active,SYSDATE))
AND TRUNC(NVL(end_date_active,SYSDATE));
p_error_stage := 'Select nvl(field_value_allowed_flag,N) from '||
'pa_pm_control_actions';
'Select x from pa_pm_product_control_rules,pa_pm_control_actions';
p_delete_project_allowed OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
p_update_proj_num_allowed OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
p_update_proj_name_allowed OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
p_update_proj_desc_allowed OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
p_update_proj_dates_allowed OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
p_update_proj_status_allowed OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
p_update_proj_manager_allowed OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
p_update_proj_org_allowed OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
p_add_task_allowed OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
p_delete_task_allowed OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
p_update_task_num_allowed OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
p_update_task_name_allowed OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
p_update_task_dates_allowed OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
p_update_task_desc_allowed OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
p_update_parent_task_allowed OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
p_update_task_org_allowed OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
p_error_code OUT NOCOPY NUMBER, --File.Sql.39 bug 4440895
p_error_stack IN OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
p_error_stage IN OUT NOCOPY VARCHAR2 ) --File.Sql.39 bug 4440895
IS
-- This is a specific API being called by the Projects form
-- It returns 16 flags pertaining to project and tasks
-- indicating whether the action is allowed to be performed in Oracle Projects
-- The rules are set up , for each project management product
-- by system administrators . If an active record is found for the given
-- product code and action ,then the procedure returns the relevant flag
-- as 'N', else it returns 'Y'
-- The procedure is called only by the Projects form to determine
-- whether such actions can be performed on a project that has been imported
-- from an external project management system
l_old_stack varchar2(630);
p_delete_project_allowed := 'Y';
p_update_proj_num_allowed := 'Y';
p_update_proj_name_allowed := 'Y';
p_update_proj_desc_allowed := 'Y';
p_update_proj_dates_allowed := 'Y';
p_update_proj_status_allowed := 'Y';
p_update_proj_manager_allowed := 'Y';
p_update_proj_org_allowed := 'Y';
p_delete_task_allowed := 'Y';
p_update_task_num_allowed := 'Y';
p_update_task_name_allowed := 'Y';
p_update_task_dates_allowed := 'Y';
p_update_task_desc_allowed := 'Y';
p_update_parent_task_allowed := 'Y';
p_update_task_org_allowed := 'Y';
l_action(1) := 'DELETE_PROJECT';
l_action(2) := 'UPDATE_PROJECT_NUMBER';
l_action(3) := 'UPDATE_PROJECT_NAME';
l_action(4) := 'UPDATE_PROJECT_DESCRIPTION';
l_action(5) := 'UPDATE_PROJECT_DATES';
l_action(6) := 'UPDATE_PROJECT_STATUS';
l_action(7) := 'UPDATE_PROJECT_MANAGER';
l_action(8) := 'UPDATE_PROJECT_ORGANIZATION';
l_action(10) := 'DELETE_TASK';
l_action(11) := 'UPDATE_TASK_NUMBER';
l_action(12) := 'UPDATE_TASK_NAME';
l_action(13) := 'UPDATE_TASK_DATES';
l_action(14) := 'UPDATE_TASK_DESCRIPTION';
l_action(15) := 'UPDATE_PARENT_TASK';
l_action(16) := 'UPDATE_TASK_ORGANIZATION';
'Select x from pa_pm_product_control_rules,pa_pm_control_actions';
SELECT 'x' INTO l_dummy
FROM pa_pm_product_control_rules pc,
pa_pm_control_actions pa
WHERE pa.action = l_action(i)
AND pa.control_rule_id = pc.control_rule_id
AND pc.pm_product_code = p_pm_product_code
AND TRUNC(SYSDATE) BETWEEN TRUNC(NVL(start_date_active,SYSDATE))
AND TRUNC(NVL(end_date_active,SYSDATE));
p_delete_project_allowed := 'N';
p_update_proj_num_allowed := 'N';
p_update_proj_name_allowed := 'N';
p_update_proj_desc_allowed := 'N';
p_update_proj_dates_allowed := 'N';
p_update_proj_status_allowed := 'N';
p_update_proj_manager_allowed := 'N';
p_update_proj_org_allowed := 'N';
p_delete_task_allowed := 'N';
p_update_task_num_allowed := 'N';
p_update_task_name_allowed := 'N';
p_update_task_dates_allowed := 'N';
p_update_task_desc_allowed := 'N';
p_update_parent_task_allowed := 'N';
p_update_task_org_allowed := 'N';
p_delete_project_allowed := 'N' ;
p_update_proj_num_allowed := 'N' ;
p_update_proj_name_allowed := 'N' ;
p_update_proj_desc_allowed := 'N' ;
p_update_proj_dates_allowed := 'N' ;
p_update_proj_status_allowed := 'N' ;
p_update_proj_manager_allowed := 'N' ;
p_update_proj_org_allowed := 'N' ;
p_delete_task_allowed := 'N' ;
p_update_task_num_allowed := 'N' ;
p_update_task_name_allowed := 'N' ;
p_update_task_dates_allowed := 'N' ;
p_update_task_desc_allowed := 'N' ;
p_update_parent_task_allowed := 'N' ;
p_update_task_org_allowed := 'N' ;
p_update_agreement_allowed OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
p_delete_agreement_allowed OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
p_add_funding_allowed OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
p_update_funding_allowed OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
p_delete_funding_allowed OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
p_error_code OUT NOCOPY NUMBER, --File.Sql.39 bug 4440895
p_error_stack IN OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
p_error_stage IN OUT NOCOPY VARCHAR2 ) --File.Sql.39 bug 4440895
IS
/* *****************************************************************************
-- This is a specific API being called by the Agreement/Funding Form
-- It returns 5 flags pertaining to Agreements and Fundings
-- indicating whether the action is allowed to be performed in Oracle Projects
-- The rules are set up , for each project management product
-- by system administrators . If an active record is found for the given
-- product code and action ,then the procedure returns the relevant flag
-- as 'N', else it returns 'Y'
-- The procedure is called only by the Projects form to determine
-- whether such actions can be performed on a project that has been imported
-- from an external project management system
***************************************************************************** */
l_old_stack varchar2(630);
p_update_agreement_allowed := 'Y';
p_delete_agreement_allowed := 'Y';
p_update_funding_allowed := 'Y';
p_delete_funding_allowed := 'Y';
l_action(1) := 'UPDATE_AGREEMENT';
l_action(2) := 'DELETE_AGREEMENT';
l_action(4) := 'UPDATE_FUNDING';
l_action(5) := 'DELETE_FUNDING';
'Select x from pa_pm_product_control_rules,pa_pm_control_actions';
SELECT 'x' INTO l_dummy
FROM pa_pm_product_control_rules pc,
pa_pm_control_actions pa
WHERE pa.action = l_action(i)
AND pa.control_rule_id = pc.control_rule_id
AND pc.pm_product_code = p_pm_product_code
AND TRUNC(SYSDATE) BETWEEN TRUNC(NVL(start_date_active,SYSDATE))
AND TRUNC(NVL(end_date_active,SYSDATE));
p_update_agreement_allowed := 'N';
p_delete_agreement_allowed := 'N';
p_update_funding_allowed := 'N';
p_delete_funding_allowed := 'N';
p_update_agreement_allowed := 'N' ;
p_delete_agreement_allowed := 'N' ;
p_update_funding_allowed := 'N' ;
p_delete_funding_allowed := 'N' ;
p_update_Event_allowed OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
p_delete_Event_allowed OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
p_update_event_bill_hold OUT NOCOPY VARCHAR2, /* added for bug 6870421*/
P_ERROR_CODE OUT NOCOPY NUMBER, --File.Sql.39 bug 4440895
P_ERROR_STACK IN OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
P_ERROR_STAGE IN OUT NOCOPY VARCHAR2) --File.Sql.39 bug 4440895
IS
TYPE actiontabtype IS TABLE OF pa_pm_control_actions.action%TYPE INDEX BY BINARY_INTEGER;
P_update_event_allowed :='Y';
P_delete_event_allowed := 'Y';
p_update_event_bill_hold :='Y'; /* added for bug 6870421*/
l_action(1) := 'UPDATE_EVENT';
l_action(2) := 'DELETE_EVENT';
l_action(3) := 'UPDATE_EVENT_BILL_HOLD'; /* added for bug 6870421*/
P_ERROR_STAGE := 'SELECT x INTO l_dummy FROM pa_pm_product_control_rules pc,pa_pm_control_actions pa' ; --4537865
SELECT 'x' INTO l_dummy
FROM pa_pm_product_control_rules pc,
pa_pm_control_actions pa
WHERE pa.action = l_action(i)
AND pa.control_rule_id = pc.control_rule_id
AND pc.pm_product_code = p_pm_product_code
AND TRUNC(SYSDATE) BETWEEN TRUNC(NVL(start_date_active,SYSDATE))
AND TRUNC(NVL(end_date_active,SYSDATE));
p_update_event_allowed := 'N';
p_delete_event_allowed := 'N';
p_update_event_bill_hold := 'N';
p_update_event_allowed := 'N';
p_delete_event_allowed := 'N';