[Home] [Help]
113:
114: BEGIN
115:
116: -- Initialize the Error Stack
117: PA_DEBUG.init_err_stack('PA_CONTROL_ITEMS_PVT.Add_Control_Item');
118: x_return_status := FND_API.G_RET_STS_SUCCESS;
119:
120: -- Issue API savepoint if the transaction is to be committed
121: IF p_commit = FND_API.G_TRUE THEN
144: ,p_owner_id
145: -- ,l_ci_number_char
146: ,p_summary) THEN
147: x_return_status := FND_API.G_RET_STS_ERROR;
148: PA_DEBUG.Reset_Err_Stack;
149: RETURN;
150: END IF;
151:
152:
157: close c_item_type;
158: PA_UTILS.Add_Message( p_app_short_name => 'PA'
159: ,p_msg_name => 'PA_CI_INVALID_TYPE_ID');
160: x_return_status := FND_API.G_RET_STS_ERROR;
161: --PA_DEBUG.RESET_ERR_STACK;
162: -- return;
163: end if;
164: l_type_class_code := cp_type.ci_type_class_code;
165: l_auto_number := cp_type.auto_number_flag;
174: close c_system_stat;
175: PA_UTILS.Add_Message( p_app_short_name => 'PA'
176: ,p_msg_name => 'PA_CI_INVALID_STATUS_CODE');
177: x_return_status := FND_API.G_RET_STS_ERROR;
178: -- PA_DEBUG.RESET_ERR_STACK;
179: -- return;
180: end if;
181: l_system_status_code := cp_stat_code.project_system_status_code;
182: close c_system_stat;
181: l_system_status_code := cp_stat_code.project_system_status_code;
182: close c_system_stat;
183:
184: IF (x_return_status <> 'S') THEN
185: PA_DEBUG.RESET_ERR_STACK;
186: return;
187: END IF;
188:
189:
200: ,x_msg_count => x_msg_count
201: ,x_msg_data => x_msg_data);
202:
203: IF x_return_status <> FND_API.g_ret_sts_success THEN
204: PA_DEBUG.Reset_Err_Stack;
205: raise API_ERROR;
206: END IF;
207: l_ci_number_char := TO_CHAR(l_ci_number_num);
208:
226: if ci_number_exists(p_project_id, l_ci_number_char ,p_ci_type_id) = TRUE then
227: PA_UTILS.Add_Message( p_app_short_name => 'PA'
228: ,p_msg_name => 'PA_CI_DUPLICATE_CI_NUMBER');
229: x_return_status := FND_API.G_RET_STS_ERROR;
230: PA_DEBUG.RESET_ERR_STACK;
231: return;
232:
233: end if;
234: END IF;
237: IF l_ci_number_char is NULL and l_system_status_code <> DRAFT_STATUS THEN
238: PA_UTILS.Add_Message( p_app_short_name => 'PA'
239: ,p_msg_name => 'PA_CI_NO_CI_NUMBER');
240: x_return_status := FND_API.G_RET_STS_ERROR;
241: PA_DEBUG.Reset_Err_Stack;
242: RETURN;
243:
244: END IF;
245:
242: RETURN;
243:
244: END IF;
245:
246: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
247: IF l_debug_mode = 'Y' THEN
248: pa_debug.g_err_stage:= 'About to call the table handler';
249: pa_debug.write(g_module_name,pa_debug.g_err_stage,
250: l_debug_level6);
244: END IF;
245:
246: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
247: IF l_debug_mode = 'Y' THEN
248: pa_debug.g_err_stage:= 'About to call the table handler';
249: pa_debug.write(g_module_name,pa_debug.g_err_stage,
250: l_debug_level6);
251: END IF;
252:
245:
246: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
247: IF l_debug_mode = 'Y' THEN
248: pa_debug.g_err_stage:= 'About to call the table handler';
249: pa_debug.write(g_module_name,pa_debug.g_err_stage,
250: l_debug_level6);
251: END IF;
252:
253:
324: ,x_msg_data
325: );
326: END IF;
327:
328: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
329: IF l_debug_mode = 'Y' THEN
330: pa_debug.g_err_stage:= 'Table handler called';
331: pa_debug.write(g_module_name,pa_debug.g_err_stage,
332: l_debug_level6);
326: END IF;
327:
328: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
329: IF l_debug_mode = 'Y' THEN
330: pa_debug.g_err_stage:= 'Table handler called';
331: pa_debug.write(g_module_name,pa_debug.g_err_stage,
332: l_debug_level6);
333: END IF;
334:
327:
328: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
329: IF l_debug_mode = 'Y' THEN
330: pa_debug.g_err_stage:= 'Table handler called';
331: pa_debug.write(g_module_name,pa_debug.g_err_stage,
332: l_debug_level6);
333: END IF;
334:
335: -- Launch the workflow notification if it is not validate only mode and no errors occured till now.
345: ,x_msg_count => x_msg_count
346: ,x_msg_data => x_msg_data );
347:
348: IF x_return_status <> FND_API.g_ret_sts_success THEN
349: PA_DEBUG.Reset_Err_Stack;
350: raise API_ERROR;
351: END IF;
352: END IF;
353:
357: END IF;
358:
359:
360: -- Reset the error stack when returning to the calling program
361: PA_DEBUG.Reset_Err_Stack;
362:
363:
364: EXCEPTION
365: WHEN API_ERROR THEN
371: END IF;
372:
373: -- Set the excetption Message and the stack
374: FND_MSG_PUB.add_exc_msg ( p_pkg_name => 'PA_CONTROL_ITEMS_PVT.add_control_item'
375: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
376:
377:
378: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
379: RAISE;
497:
498: begin
499:
500: -- Initialize the Error Stack
501: PA_DEBUG.init_err_stack('PA_CONTROL_ITEMS_PVT.Update_Control_Item');
502:
503: x_return_status := FND_API.G_RET_STS_SUCCESS;
504:
505: -- Issue API savepoint if the transaction is to be committed
514: PA_UTILS.Add_Message( p_app_short_name => 'PA'
515: ,p_msg_name => 'PA_CI_INVALID_ITEM');
516: x_return_status := FND_API.G_RET_STS_ERROR;
517: return;
518: PA_DEBUG.Reset_Err_Stack;
519: end if;
520:
521: /*Commenting for 4065728
522: IF cp.progress_status_code is NULL
567: p_app_short_name => 'PA'
568: ,p_msg_name => 'PA_CI_INVALID_TYPE_ID');
569: x_return_status := 'E';
570: close c_auto_num;
571: PA_DEBUG.Reset_Err_Stack;
572: return;
573: end if ;
574: close c_auto_num;
575:
582: ,p_token1 => 'TOKEN'
583: ,p_value1 => cp.ci_number);
584:
585: x_return_status := 'E';
586: PA_DEBUG.Reset_Err_Stack;
587: return;
588: END IF;
589:
590: IF p_LOCKED_FLAG = 'X' THEN
604: close C;
605: PA_UTILS.Add_Message( p_app_short_name => 'PA'
606: ,p_msg_name => 'PA_CI_DUPLICATE_CI_NUMBER');
607: x_return_status := FND_API.G_RET_STS_ERROR;
608: PA_DEBUG.Reset_Err_Stack;
609: return;
610: end if;
611: else
612: -- ci number may not be NULL in non CI_DRAFT status
614: if l_ci_system_status is NULL then
615: PA_UTILS.Add_Message( p_app_short_name => 'PA'
616: ,p_msg_name => 'PA_CI_NO_STATUS');
617: x_return_status := FND_API.G_RET_STS_ERROR;
618: PA_DEBUG.Reset_Err_Stack;
619: return;
620: end if;
621: if 'CI_DRAFT' <> l_ci_system_status then
622: PA_UTILS.Add_Message( p_app_short_name => 'PA'
621: if 'CI_DRAFT' <> l_ci_system_status then
622: PA_UTILS.Add_Message( p_app_short_name => 'PA'
623: ,p_msg_name => 'PA_CI_NO_CI_NUMBER');
624: x_return_status := FND_API.G_RET_STS_ERROR;
625: PA_DEBUG.Reset_Err_Stack;
626: return;
627: end if;
628: end if;
629: end if; --if manual numbers
727: END IF;
728:
729:
730: -- Reset the error stack when returning to the calling program
731: PA_DEBUG.Reset_Err_Stack;
732:
733:
734: EXCEPTION
735: WHEN OTHERS THEN
738: END IF;
739:
740: -- Set the excetption Message and the stack
741: FND_MSG_PUB.add_exc_msg ( p_pkg_name => 'PA_CONTROL_ITEMS_PVT.update_control_item'
742: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
743:
744:
745: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
746: RAISE;
771: and ci.status_code = pps.project_status_code;
772: begin
773:
774: -- Initialize the Error Stack
775: PA_DEBUG.init_err_stack('PA_CONTROL_ITEMS_PVT.Delete_Control_Item');
776:
777: x_return_status := FND_API.G_RET_STS_SUCCESS;
778: -- Issue API savepoint if the transaction is to be committed
779: IF p_commit = FND_API.G_TRUE THEN
863: COMMIT;
864: END IF;
865:
866: -- Reset the error stack when returning to the calling program
867: PA_DEBUG.Reset_Err_Stack;
868:
869:
870: EXCEPTION
871: WHEN OTHERS THEN
874: END IF;
875:
876: -- Set the excetption Message and the stack
877: FND_MSG_PUB.add_exc_msg ( p_pkg_name => 'PA_CONTROL_ITEMS_PVT.delete_control_item'
878: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
879:
880:
881: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
882: RAISE;
899:
900: BEGIN
901:
902: -- Initialize the Error Stack
903: PA_DEBUG.init_err_stack('PA_CONTROL_ITEMS_PVT.Delete_ALL_Control_Items');
904: x_return_status := FND_API.G_RET_STS_SUCCESS;
905:
906: -- Issue API savepoint if the transaction is to be committed
907: IF p_commit = FND_API.G_TRUE THEN
947: COMMIT;
948: END IF;
949:
950: -- Reset the error stack when returning to the calling program
951: PA_DEBUG.Reset_Err_Stack;
952:
953: EXCEPTION
954: WHEN NO_DATA_FOUND THEN
955: x_return_status := FND_API.G_RET_STS_SUCCESS;
960: END IF;
961:
962: -- Set the excetption Message and the stack
963: FND_MSG_PUB.add_exc_msg ( p_pkg_name => 'PA_CONTROL_ITEMS_PVT.delete_all_control_items'
964: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
965:
966:
967: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
968: RAISE;
1064: l_ci_id number := null;
1065: begin
1066:
1067: -- Initialize the Error Stack
1068: PA_DEBUG.init_err_stack('PA_CONTROL_ITEMS_PUB.COPY_CONTROL_ITEM');
1069:
1070: -- Initialize the return status to success
1071: x_return_status := FND_API.G_RET_STS_SUCCESS;
1072:
1316: commit;
1317: end if;
1318:
1319: -- Reset the error stack when returning to the calling program
1320: PA_DEBUG.Reset_Err_Stack;
1321:
1322: EXCEPTION
1323: WHEN OTHERS THEN
1324: rollback;
1323: WHEN OTHERS THEN
1324: rollback;
1325: -- Set the excetption Message and the stack
1326: FND_MSG_PUB.add_exc_msg ( p_pkg_name => 'PA_CONTROL_ITEMS_PUB.COPY_CONTROL_ITEM'
1327: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
1328:
1329:
1330: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1331: RAISE;
1369: cp check_params%rowtype;
1370: begin
1371:
1372: -- Initialize the Error Stack
1373: PA_DEBUG.init_err_stack('PA_CONTROL_ITEMS_PVT.Include_Control_Item');
1374:
1375: x_return_status := FND_API.G_RET_STS_SUCCESS;
1376: -- Issue API savepoint if the transaction is to be committed
1377: IF p_commit = FND_API.G_TRUE THEN
1508: COMMIT;
1509: END IF;
1510:
1511: -- Reset the error stack when returning to the calling program
1512: PA_DEBUG.Reset_Err_Stack;
1513:
1514:
1515: EXCEPTION
1516: WHEN OTHERS THEN
1519: END IF;
1520:
1521: -- Set the excetption Message and the stack
1522: FND_MSG_PUB.add_exc_msg ( p_pkg_name => 'PA_CONTROL_ITEMS_PVT.include_control_item'
1523: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
1524:
1525:
1526: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1527: RAISE;
1557:
1558: BEGIN
1559:
1560: -- Initialize the Error Stack
1561: PA_DEBUG.init_err_stack('PA_CONTROL_ITEMS_PVT.UPDATE_NUMBER_OF_ACTIONS');
1562:
1563: x_return_status := FND_API.G_RET_STS_SUCCESS;
1564: -- Issue API savepoint if the transaction is to be committed
1565: IF p_commit = FND_API.G_TRUE THEN
1673: COMMIT;
1674: END IF;
1675:
1676: -- Reset the error stack when returning to the calling program
1677: PA_DEBUG.Reset_Err_Stack;
1678:
1679:
1680: EXCEPTION
1681: WHEN OTHERS THEN
1684: END IF;
1685:
1686: -- Set the excetption Message and the stack
1687: FND_MSG_PUB.add_exc_msg ( p_pkg_name => 'PA_CONTROL_ITEMS_PVT.UPDATE_NUMBER_OF_ACTIONS'
1688: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
1689:
1690:
1691: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1692: RAISE;
1740:
1741: BEGIN
1742:
1743: -- Initialize the Error Stack
1744: PA_DEBUG.init_err_stack('PA_CONTROL_ITEMS_PVT.UPDATE_CONTROL_ITEM_STATUS');
1745:
1746: x_return_status := FND_API.G_RET_STS_SUCCESS;
1747: -- Issue API savepoint if the transaction is to be committed
1748: IF p_commit = FND_API.G_TRUE THEN
1758: p_app_short_name => 'PA'
1759: ,p_msg_name => 'PA_CI_INVALID_ITEM');
1760: x_return_status := 'E';
1761: close c_curr_item;
1762: PA_DEBUG.Reset_Err_Stack;
1763: return;
1764: end if ;
1765: close c_curr_item;
1766:
1771: p_app_short_name => 'PA'
1772: ,p_msg_name => 'PA_CI_INVALID_TYPE_ID');
1773: x_return_status := 'E';
1774: close c_auto_num;
1775: PA_DEBUG.Reset_Err_Stack;
1776: return;
1777: end if ;
1778: close c_auto_num;
1779:
1794: PA_UTILS.Add_Message(
1795: p_app_short_name => 'PA'
1796: ,p_msg_name => 'PA_CI_NO_CI_NUMBER');
1797: x_return_status := 'E';
1798: PA_DEBUG.Reset_Err_Stack;
1799: return;
1800: end if;
1801: end if;
1802: end if;
1817: ,x_msg_count => x_msg_count
1818: ,x_msg_data => x_msg_data);
1819:
1820: IF x_return_status <> FND_API.g_ret_sts_success THEN
1821: PA_DEBUG.Reset_Err_Stack;
1822: raise API_ERROR;
1823: END IF;
1824: l_ci_number_char := TO_CHAR(l_ci_number_num);
1825: -- call Client Extension here
1842: PA_UTILS.Add_Message(
1843: p_app_short_name => 'PA'
1844: ,p_msg_name => 'PA_CI_NO_CI_NUMBER');
1845: x_return_status := 'E';
1846: PA_DEBUG.Reset_Err_Stack;
1847: return;
1848: end if;
1849: end if ;
1850: end if;
1856: -- PA_UTILS.Add_Message(
1857: -- p_app_short_name => 'PA'
1858: -- ,p_msg_name => 'PA_CI_OPEN_ACTION_EXISTS');--for SUBMIT!!!
1859: -- x_return_status := 'E';
1860: -- PA_DEBUG.Reset_Err_Stack;
1861: -- return;
1862: -- END IF;
1863: l_closed_by := PA_CONTROL_ITEMS_UTILS.GetPartyId(fnd_global.user_id );
1864: l_closed_date := sysdate;
1945: COMMIT;
1946: END IF;
1947:
1948: -- Reset the error stack when returning to the calling program
1949: PA_DEBUG.Reset_Err_Stack;
1950:
1951: EXCEPTION
1952: WHEN API_ERROR THEN
1953: x_return_status := x_return_status;
1958: END IF;
1959:
1960: -- Set the excetption Message and the stack
1961: FND_MSG_PUB.add_exc_msg ( p_pkg_name => 'PA_CONTROL_ITEMS_PVT.UPDATE_CONTROL_ITEM_STATUS'
1962: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
1963:
1964:
1965: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1966: RAISE;
2032: EXCEPTION
2033: WHEN OTHERS THEN
2034: -- Set the exception Message and the stack
2035: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_CONTROL_ITEMS_PVT.has_null_data'
2036: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
2037:
2038: RAISE;
2039:
2040: END has_null_data;
2096: return FALSE;
2097: WHEN OTHERS THEN
2098: -- Set the exception Message and the stack
2099: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_CONTROL_ITEMS_PVT.is_lookup_valid'
2100: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
2101:
2102: RAISE;
2103:
2104: END is_lookup_valid;
2159: )
2160: IS
2161: l_object_relationship_id NUMBER;
2162: BEGIN
2163: pa_debug.set_err_stack ('PA_CONTROL_ITEMS_PVT.ADD_RELATED_ITEM');
2164:
2165: IF p_commit = FND_API.G_TRUE THEN
2166: SAVEPOINT add_related_item;
2167: END IF;
2211:
2212: fnd_msg_pub.count_and_get(p_count => x_msg_count,
2213: p_data => x_msg_data);
2214:
2215: pa_debug.reset_err_stack;
2216:
2217: EXCEPTION
2218: WHEN OTHERS THEN
2219: IF p_commit = fnd_api.g_true THEN
2245: IS
2246: l_object_relationship_id NUMBER;
2247: l_record_version_number NUMBER;
2248: BEGIN
2249: pa_debug.set_err_stack ('PA_CONTROL_ITEMS_PVT.DELETE_RELATED_ITEM');
2250:
2251: IF p_commit = FND_API.G_TRUE THEN
2252: SAVEPOINT delete_related_item;
2253: END IF;
2303:
2304: fnd_msg_pub.count_and_get(p_count => x_msg_count,
2305: p_data => x_msg_data);
2306:
2307: pa_debug.reset_err_stack;
2308:
2309: EXCEPTION
2310: WHEN OTHERS THEN
2311: IF p_commit = fnd_api.g_true THEN
2350:
2351:
2352:
2353: BEGIN
2354: pa_debug.set_err_stack ('PA_CONTROL_ITEMS_PVT.DELETE_ALL_RELATED_ITEMS');
2355:
2356: IF p_commit = FND_API.G_TRUE THEN
2357: SAVEPOINT delete_all_related_items;
2358: END IF;
2392:
2393: fnd_msg_pub.count_and_get(p_count => x_msg_count,
2394: p_data => x_msg_data);
2395:
2396: pa_debug.reset_err_stack;
2397:
2398: EXCEPTION
2399: WHEN OTHERS THEN
2400: IF p_commit = fnd_api.g_true THEN
2431: AND relationship_type = 'CI_INCLUDED_ITEM'
2432: AND object_id_from1 = p_ci_id;
2433:
2434: BEGIN
2435: pa_debug.set_err_stack ('PA_CONTROL_ITEMS_PVT.DELETE_ALL_INCLUDED_CRS');
2436:
2437: IF p_commit = FND_API.G_TRUE THEN
2438: SAVEPOINT delete_all_included_crs;
2439: END IF;
2482:
2483: fnd_msg_pub.count_and_get(p_count => x_msg_count,
2484: p_data => x_msg_data);
2485:
2486: pa_debug.reset_err_stack;
2487:
2488: EXCEPTION
2489: WHEN OTHERS THEN
2490: IF p_commit = fnd_api.g_true THEN
2529: AND object_id_to1 = p_from_ci_id;
2530:
2531:
2532: BEGIN
2533: pa_debug.set_err_stack ('PA_CONTROL_ITEMS_PVT.COPY_RELATED_ITEMS');
2534:
2535: IF p_commit = FND_API.G_TRUE THEN
2536: SAVEPOINT copy_related_items;
2537: END IF;
2571:
2572: fnd_msg_pub.count_and_get(p_count => x_msg_count,
2573: p_data => x_msg_data);
2574:
2575: pa_debug.reset_err_stack;
2576:
2577: EXCEPTION
2578: WHEN OTHERS THEN
2579: IF p_commit = fnd_api.g_true THEN
2689:
2690: begin
2691:
2692: -- Initialize the Error Stack
2693: PA_DEBUG.init_err_stack('PA_CONTROL_ITEMS_PVT.Lock_Control_Item');
2694:
2695: x_return_status := FND_API.G_RET_STS_SUCCESS;
2696: -- Issue API savepoint if the transaction is to be committed
2697: IF p_commit = FND_API.G_TRUE THEN
2722: PA_UTILS.Add_Message( p_app_short_name => 'PA'
2723: ,p_msg_name => 'PA_CI_INVALID_ITEM');
2724: x_return_status := FND_API.G_RET_STS_ERROR;
2725: return;
2726: PA_DEBUG.Reset_Err_Stack;
2727: end if;
2728:
2729: PA_CONTROL_ITEMS_PKG.UPDATE_ROW(
2730: p_ci_id => p_ci_id
2802: COMMIT;
2803: END IF;
2804:
2805: -- Reset the error stack when returning to the calling program
2806: PA_DEBUG.Reset_Err_Stack;
2807:
2808:
2809: EXCEPTION
2810: WHEN OTHERS THEN
2813: END IF;
2814:
2815: -- Set the excetption Message and the stack
2816: FND_MSG_PUB.add_exc_msg ( p_pkg_name => 'PA_CONTROL_ITEMS_PVT.lock_control_item'
2817: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
2818:
2819:
2820: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2821: RAISE;