[Home] [Help]
1610: -- gboomina added for bug 8586393 - end
1611:
1612: -- bug#16200605
1613: CURSOR check_cost_code_enabled(c_project_id NUMBER) IS
1614: select 'Y' from dual where
1615: EXISTS
1616: (SELECT *
1617: FROM pa_projects_all
1618: WHERE project_id = c_project_id
1620: AND CBS_ENABLE_FLAG = 'Y');
1621:
1622: -- bug#16200605
1623: CURSOR check_cbs_alt_tsk_gen(c_proj_elem_id NUMBER, c_cbs_element_id NUMBER) IS
1624: select 'Y' from dual where
1625: EXISTS
1626: (select * from PA_ALTERNATE_TASKS
1627: where proj_element_id =c_proj_elem_id
1628: and cbs_element_id = c_cbs_element_id);
8167: SELECT pa_resource_asgn_curr_s.nextval
8168: ,l_resource_assignment_id_tbl(i)
8169: ,l_currency_code_tbl(i)
8170: ,NULL
8171: FROM DUAL;
8172: END IF;
8173:
8174: pa_res_asg_currency_pub.maintain_data(
8175: p_fp_cols_rec => l_fp_cols_rec,
8799: l_inv_item_id IS NOT NULL THEN
8800: BEGIN
8801: SELECT 'Y'
8802: INTO l_res_rate_based_flag_tbl(i)
8803: FROM DUAL
8804: WHERE NOT EXISTS (select 'Y'
8805: from mtl_system_items_b item,
8806: mtl_units_of_measure meas
8807: where item.inventory_item_id = l_inv_item_id
9869: SELECT pa_resource_asgn_curr_s.nextval
9870: ,l_resource_assignment_id_tbl(i)
9871: ,l_txn_currency_code_tbl(i)
9872: ,'Y'
9873: FROM DUAL;
9874: /*Start bug#16688443 */
9875: l_cbs_element_id_tbl := SYSTEM.pa_num_tbl_type();
9876: l_cbs_element_id_tbl.extend(l_resource_assignment_id_tbl.last);
9877: FOR i IN l_resource_assignment_id_tbl.first..l_resource_assignment_id_tbl.last LOOP
9915: SELECT pa_resource_asgn_curr_s.nextval
9916: ,l_ra_id_in_pra_tbl(i)
9917: -- ,l_txn_currency_code_tbl(i)
9918: ,'Y'
9919: FROM DUAL;
9920: END IF;
9921: End if; --}
9922:
9923: ELSIF p_task_or_res = 'ASSIGNMENT' THEN
10022: SELECT pa_resource_asgn_curr_s.nextval
10023: ,l_resource_assignment_id_tbl(i)
10024: -- ,l_txn_currency_code_tbl(i)
10025: ,'Y'
10026: FROM DUAL;
10027:
10028: /*Start bug#16688443 */
10029: l_cbs_element_id_tbl := SYSTEM.pa_num_tbl_type();
10030: l_cbs_element_id_tbl.extend(l_resource_assignment_id_tbl.last);
10067: SELECT pa_resource_asgn_curr_s.nextval
10068: ,l_ra_id_in_pra_tbl(i)
10069: -- ,l_project_currency_code
10070: ,'Y'
10071: FROM DUAL;
10072: END IF;
10073: END IF; -- IF nvl(p_calling_module,'-99') <> 'PROCESS_RES_CHG_DERV_CALC_PRMS' THEN
10074:
10075: END IF;
10189: SELECT pa_resource_asgn_curr_s.nextval
10190: ,l_resource_assignment_id_tbl(i)
10191: -- ,l_txn_currency_code_tbl(i)
10192: ,'Y'
10193: FROM DUAL;
10194:
10195: /*Start bug#16688443 */
10196: l_cbs_element_id_tbl := SYSTEM.pa_num_tbl_type();
10197: l_cbs_element_id_tbl.extend(l_resource_assignment_id_tbl.last);
10246: SELECT pa_resource_asgn_curr_s.nextval
10247: ,l_ra_id_in_pra_tbl(i)
10248: -- ,l_project_currency_code
10249: ,'Y'
10250: FROM DUAL;
10251: END IF;
10252: End If; --}
10253:
10254:
10299:
10300: BEGIN
10301: SELECT 'Y'
10302: INTO l_exists
10303: FROM DUAL
10304: WHERE EXISTS (SELECT 'X'
10305: FROM pa_budget_lines pbl,
10306: pa_resource_assignments pra
10307: WHERE pra.resource_assignment_id=p_resource_assignment_tbl(i)
10414: SELECT pa_resource_asgn_curr_s.nextval
10415: ,l_resource_assignment_id_tbl(i)
10416: ,l_txn_currency_code_tbl(i) -- Bug 5057010
10417: ,'Y'
10418: FROM DUAL;
10419:
10420: /*Start bug#16688443 */
10421: l_cbs_element_id_tbl := SYSTEM.pa_num_tbl_type();
10422: l_cbs_element_id_tbl.extend(l_resource_assignment_id_tbl.last);
10469: SELECT pa_resource_asgn_curr_s.nextval
10470: ,l_ra_id_in_pra_tbl(i)
10471: -- ,l_project_currency_code
10472: ,'Y'
10473: FROM DUAL;
10474: END IF;
10475:
10476: END IF;-- IF nvl(p_calling_module,'-99') <> 'PROCESS_RES_CHG_DERV_CALC_PRMS' THEN
10477:
10964: BEGIN -- BLOCK to check if workplan_type is already attched for the passed project_id - Starts
10965:
10966: SELECT 1
10967: INTO l_proj_wp_type_exists
10968: FROM DUAL
10969: WHERE EXISTS(
10970: SELECT 1
10971: FROM pa_proj_fp_options
10972: WHERE fin_plan_type_id = l_wp_type_id
11788: )
11789: SELECT pa_resource_asgn_curr_s.NEXTVAL
11790: ,l_delete_ra_id_tbl(i)
11791: ,'Y'
11792: FROM DUAL;
11793: END IF;
11794: -- END of IPM changes Bug 5003827 Issue 22
11795: */
11796: ----IPM Arch Enhancement Bug 5754758/4865563
11918: )
11919: SELECT pa_resource_asgn_curr_s.NEXTVAL
11920: ,l_delete_ra_id_tbl(i)
11921: ,'Y'
11922: FROM DUAL;
11923: END IF;
11924: -- END of IPM changes Bug 5003827 Issue 22
11925:
11926: