[Home] [Help]
100:
101: BEGIN
102:
103: -- Initialize the Error Stack
104: PA_DEBUG.init_err_stack('PA_CONTROL_ITEMS_PVT.Add_Control_Item');
105: x_return_status := FND_API.G_RET_STS_SUCCESS;
106:
107: -- Issue API savepoint if the transaction is to be committed
108: IF p_commit = FND_API.G_TRUE THEN
131: ,p_owner_id
132: -- ,l_ci_number_char
133: ,p_summary) THEN
134: x_return_status := FND_API.G_RET_STS_ERROR;
135: PA_DEBUG.Reset_Err_Stack;
136: RETURN;
137: END IF;
138:
139:
144: close c_item_type;
145: PA_UTILS.Add_Message( p_app_short_name => 'PA'
146: ,p_msg_name => 'PA_CI_INVALID_TYPE_ID');
147: x_return_status := FND_API.G_RET_STS_ERROR;
148: --PA_DEBUG.RESET_ERR_STACK;
149: -- return;
150: end if;
151: l_type_class_code := cp_type.ci_type_class_code;
152: l_auto_number := cp_type.auto_number_flag;
161: close c_system_stat;
162: PA_UTILS.Add_Message( p_app_short_name => 'PA'
163: ,p_msg_name => 'PA_CI_INVALID_STATUS_CODE');
164: x_return_status := FND_API.G_RET_STS_ERROR;
165: -- PA_DEBUG.RESET_ERR_STACK;
166: -- return;
167: end if;
168: l_system_status_code := cp_stat_code.project_system_status_code;
169: close c_system_stat;
168: l_system_status_code := cp_stat_code.project_system_status_code;
169: close c_system_stat;
170:
171: IF (x_return_status <> 'S') THEN
172: PA_DEBUG.RESET_ERR_STACK;
173: return;
174: END IF;
175:
176:
187: ,x_msg_count => x_msg_count
188: ,x_msg_data => x_msg_data);
189:
190: IF x_return_status <> FND_API.g_ret_sts_success THEN
191: PA_DEBUG.Reset_Err_Stack;
192: raise API_ERROR;
193: END IF;
194: l_ci_number_char := TO_CHAR(l_ci_number_num);
195:
213: if ci_number_exists(p_project_id, l_ci_number_char ,p_ci_type_id) = TRUE then
214: PA_UTILS.Add_Message( p_app_short_name => 'PA'
215: ,p_msg_name => 'PA_CI_DUPLICATE_CI_NUMBER');
216: x_return_status := FND_API.G_RET_STS_ERROR;
217: PA_DEBUG.RESET_ERR_STACK;
218: return;
219:
220: end if;
221: END IF;
224: IF l_ci_number_char is NULL and l_system_status_code <> DRAFT_STATUS THEN
225: PA_UTILS.Add_Message( p_app_short_name => 'PA'
226: ,p_msg_name => 'PA_CI_NO_CI_NUMBER');
227: x_return_status := FND_API.G_RET_STS_ERROR;
228: PA_DEBUG.Reset_Err_Stack;
229: RETURN;
230:
231: END IF;
232:
229: RETURN;
230:
231: END IF;
232:
233: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
234: IF l_debug_mode = 'Y' THEN
235: pa_debug.g_err_stage:= 'About to call the table handler';
236: pa_debug.write(g_module_name,pa_debug.g_err_stage,
237: l_debug_level6);
231: END IF;
232:
233: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
234: IF l_debug_mode = 'Y' THEN
235: pa_debug.g_err_stage:= 'About to call the table handler';
236: pa_debug.write(g_module_name,pa_debug.g_err_stage,
237: l_debug_level6);
238: END IF;
239:
232:
233: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
234: IF l_debug_mode = 'Y' THEN
235: pa_debug.g_err_stage:= 'About to call the table handler';
236: pa_debug.write(g_module_name,pa_debug.g_err_stage,
237: l_debug_level6);
238: END IF;
239:
240:
299: ,x_msg_data
300: );
301: END IF;
302:
303: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
304: IF l_debug_mode = 'Y' THEN
305: pa_debug.g_err_stage:= 'Table handler called';
306: pa_debug.write(g_module_name,pa_debug.g_err_stage,
307: l_debug_level6);
301: END IF;
302:
303: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
304: IF l_debug_mode = 'Y' THEN
305: pa_debug.g_err_stage:= 'Table handler called';
306: pa_debug.write(g_module_name,pa_debug.g_err_stage,
307: l_debug_level6);
308: END IF;
309:
302:
303: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
304: IF l_debug_mode = 'Y' THEN
305: pa_debug.g_err_stage:= 'Table handler called';
306: pa_debug.write(g_module_name,pa_debug.g_err_stage,
307: l_debug_level6);
308: END IF;
309:
310: -- Launch the workflow notification if it is not validate only mode and no errors occured till now.
320: ,x_msg_count => x_msg_count
321: ,x_msg_data => x_msg_data );
322:
323: IF x_return_status <> FND_API.g_ret_sts_success THEN
324: PA_DEBUG.Reset_Err_Stack;
325: raise API_ERROR;
326: END IF;
327: END IF;
328:
332: END IF;
333:
334:
335: -- Reset the error stack when returning to the calling program
336: PA_DEBUG.Reset_Err_Stack;
337:
338:
339: EXCEPTION
340: WHEN API_ERROR THEN
346: END IF;
347:
348: -- Set the excetption Message and the stack
349: FND_MSG_PUB.add_exc_msg ( p_pkg_name => 'PA_CONTROL_ITEMS_PVT.add_control_item'
350: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
351:
352:
353: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
354: RAISE;
453:
454: begin
455:
456: -- Initialize the Error Stack
457: PA_DEBUG.init_err_stack('PA_CONTROL_ITEMS_PVT.Update_Control_Item');
458:
459: x_return_status := FND_API.G_RET_STS_SUCCESS;
460:
461: -- Issue API savepoint if the transaction is to be committed
470: PA_UTILS.Add_Message( p_app_short_name => 'PA'
471: ,p_msg_name => 'PA_CI_INVALID_ITEM');
472: x_return_status := FND_API.G_RET_STS_ERROR;
473: return;
474: PA_DEBUG.Reset_Err_Stack;
475: end if;
476:
477: /*Commenting for 4065728
478: IF cp.progress_status_code is NULL
523: p_app_short_name => 'PA'
524: ,p_msg_name => 'PA_CI_INVALID_TYPE_ID');
525: x_return_status := 'E';
526: close c_auto_num;
527: PA_DEBUG.Reset_Err_Stack;
528: return;
529: end if ;
530: close c_auto_num;
531:
541: close C;
542: PA_UTILS.Add_Message( p_app_short_name => 'PA'
543: ,p_msg_name => 'PA_CI_DUPLICATE_CI_NUMBER');
544: x_return_status := FND_API.G_RET_STS_ERROR;
545: PA_DEBUG.Reset_Err_Stack;
546: return;
547: end if;
548: else
549: -- ci number may not be NULL in non CI_DRAFT status
551: if l_ci_system_status is NULL then
552: PA_UTILS.Add_Message( p_app_short_name => 'PA'
553: ,p_msg_name => 'PA_CI_NO_STATUS');
554: x_return_status := FND_API.G_RET_STS_ERROR;
555: PA_DEBUG.Reset_Err_Stack;
556: return;
557: end if;
558: if 'CI_DRAFT' <> l_ci_system_status then
559: PA_UTILS.Add_Message( p_app_short_name => 'PA'
558: if 'CI_DRAFT' <> l_ci_system_status then
559: PA_UTILS.Add_Message( p_app_short_name => 'PA'
560: ,p_msg_name => 'PA_CI_NO_CI_NUMBER');
561: x_return_status := FND_API.G_RET_STS_ERROR;
562: PA_DEBUG.Reset_Err_Stack;
563: return;
564: end if;
565: end if;
566: end if; --if manual numbers
651: END IF;
652:
653:
654: -- Reset the error stack when returning to the calling program
655: PA_DEBUG.Reset_Err_Stack;
656:
657:
658: EXCEPTION
659: WHEN OTHERS THEN
662: END IF;
663:
664: -- Set the excetption Message and the stack
665: FND_MSG_PUB.add_exc_msg ( p_pkg_name => 'PA_CONTROL_ITEMS_PVT.update_control_item'
666: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
667:
668:
669: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
670: RAISE;
695: and ci.status_code = pps.project_status_code;
696: begin
697:
698: -- Initialize the Error Stack
699: PA_DEBUG.init_err_stack('PA_CONTROL_ITEMS_PVT.Delete_Control_Item');
700:
701: x_return_status := FND_API.G_RET_STS_SUCCESS;
702: -- Issue API savepoint if the transaction is to be committed
703: IF p_commit = FND_API.G_TRUE THEN
787: COMMIT;
788: END IF;
789:
790: -- Reset the error stack when returning to the calling program
791: PA_DEBUG.Reset_Err_Stack;
792:
793:
794: EXCEPTION
795: WHEN OTHERS THEN
798: END IF;
799:
800: -- Set the excetption Message and the stack
801: FND_MSG_PUB.add_exc_msg ( p_pkg_name => 'PA_CONTROL_ITEMS_PVT.delete_control_item'
802: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
803:
804:
805: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
806: RAISE;
823:
824: BEGIN
825:
826: -- Initialize the Error Stack
827: PA_DEBUG.init_err_stack('PA_CONTROL_ITEMS_PVT.Delete_ALL_Control_Items');
828: x_return_status := FND_API.G_RET_STS_SUCCESS;
829:
830: -- Issue API savepoint if the transaction is to be committed
831: IF p_commit = FND_API.G_TRUE THEN
871: COMMIT;
872: END IF;
873:
874: -- Reset the error stack when returning to the calling program
875: PA_DEBUG.Reset_Err_Stack;
876:
877: EXCEPTION
878: WHEN NO_DATA_FOUND THEN
879: x_return_status := FND_API.G_RET_STS_SUCCESS;
884: END IF;
885:
886: -- Set the excetption Message and the stack
887: FND_MSG_PUB.add_exc_msg ( p_pkg_name => 'PA_CONTROL_ITEMS_PVT.delete_all_control_items'
888: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
889:
890:
891: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
892: RAISE;
976: l_ci_id number := null;
977: begin
978:
979: -- Initialize the Error Stack
980: PA_DEBUG.init_err_stack('PA_CONTROL_ITEMS_PUB.COPY_CONTROL_ITEM');
981:
982: -- Initialize the return status to success
983: x_return_status := FND_API.G_RET_STS_SUCCESS;
984:
1182: commit;
1183: end if;
1184:
1185: -- Reset the error stack when returning to the calling program
1186: PA_DEBUG.Reset_Err_Stack;
1187:
1188:
1189: EXCEPTION
1190: WHEN OTHERS THEN
1190: WHEN OTHERS THEN
1191: rollback;
1192: -- Set the excetption Message and the stack
1193: FND_MSG_PUB.add_exc_msg ( p_pkg_name => 'PA_CONTROL_ITEMS_PUB.COPY_CONTROL_ITEM'
1194: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
1195:
1196:
1197: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1198: RAISE;
1236: cp check_params%rowtype;
1237: begin
1238:
1239: -- Initialize the Error Stack
1240: PA_DEBUG.init_err_stack('PA_CONTROL_ITEMS_PVT.Include_Control_Item');
1241:
1242: x_return_status := FND_API.G_RET_STS_SUCCESS;
1243: -- Issue API savepoint if the transaction is to be committed
1244: IF p_commit = FND_API.G_TRUE THEN
1375: COMMIT;
1376: END IF;
1377:
1378: -- Reset the error stack when returning to the calling program
1379: PA_DEBUG.Reset_Err_Stack;
1380:
1381:
1382: EXCEPTION
1383: WHEN OTHERS THEN
1386: END IF;
1387:
1388: -- Set the excetption Message and the stack
1389: FND_MSG_PUB.add_exc_msg ( p_pkg_name => 'PA_CONTROL_ITEMS_PVT.include_control_item'
1390: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
1391:
1392:
1393: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1394: RAISE;
1424:
1425: BEGIN
1426:
1427: -- Initialize the Error Stack
1428: PA_DEBUG.init_err_stack('PA_CONTROL_ITEMS_PVT.UPDATE_NUMBER_OF_ACTIONS');
1429:
1430: x_return_status := FND_API.G_RET_STS_SUCCESS;
1431: -- Issue API savepoint if the transaction is to be committed
1432: IF p_commit = FND_API.G_TRUE THEN
1524: COMMIT;
1525: END IF;
1526:
1527: -- Reset the error stack when returning to the calling program
1528: PA_DEBUG.Reset_Err_Stack;
1529:
1530:
1531: EXCEPTION
1532: WHEN OTHERS THEN
1535: END IF;
1536:
1537: -- Set the excetption Message and the stack
1538: FND_MSG_PUB.add_exc_msg ( p_pkg_name => 'PA_CONTROL_ITEMS_PVT.UPDATE_NUMBER_OF_ACTIONS'
1539: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
1540:
1541:
1542: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1543: RAISE;
1591:
1592: BEGIN
1593:
1594: -- Initialize the Error Stack
1595: PA_DEBUG.init_err_stack('PA_CONTROL_ITEMS_PVT.UPDATE_CONTROL_ITEM_STATUS');
1596:
1597: x_return_status := FND_API.G_RET_STS_SUCCESS;
1598: -- Issue API savepoint if the transaction is to be committed
1599: IF p_commit = FND_API.G_TRUE THEN
1609: p_app_short_name => 'PA'
1610: ,p_msg_name => 'PA_CI_INVALID_ITEM');
1611: x_return_status := 'E';
1612: close c_curr_item;
1613: PA_DEBUG.Reset_Err_Stack;
1614: return;
1615: end if ;
1616: close c_curr_item;
1617:
1622: p_app_short_name => 'PA'
1623: ,p_msg_name => 'PA_CI_INVALID_TYPE_ID');
1624: x_return_status := 'E';
1625: close c_auto_num;
1626: PA_DEBUG.Reset_Err_Stack;
1627: return;
1628: end if ;
1629: close c_auto_num;
1630:
1645: PA_UTILS.Add_Message(
1646: p_app_short_name => 'PA'
1647: ,p_msg_name => 'PA_CI_NO_CI_NUMBER');
1648: x_return_status := 'E';
1649: PA_DEBUG.Reset_Err_Stack;
1650: return;
1651: end if;
1652: end if;
1653: end if;
1668: ,x_msg_count => x_msg_count
1669: ,x_msg_data => x_msg_data);
1670:
1671: IF x_return_status <> FND_API.g_ret_sts_success THEN
1672: PA_DEBUG.Reset_Err_Stack;
1673: raise API_ERROR;
1674: END IF;
1675: l_ci_number_char := TO_CHAR(l_ci_number_num);
1676: -- call Client Extension here
1693: PA_UTILS.Add_Message(
1694: p_app_short_name => 'PA'
1695: ,p_msg_name => 'PA_CI_NO_CI_NUMBER');
1696: x_return_status := 'E';
1697: PA_DEBUG.Reset_Err_Stack;
1698: return;
1699: end if;
1700: end if ;
1701: end if;
1707: -- PA_UTILS.Add_Message(
1708: -- p_app_short_name => 'PA'
1709: -- ,p_msg_name => 'PA_CI_OPEN_ACTION_EXISTS');--for SUBMIT!!!
1710: -- x_return_status := 'E';
1711: -- PA_DEBUG.Reset_Err_Stack;
1712: -- return;
1713: -- END IF;
1714: l_closed_by := PA_CONTROL_ITEMS_UTILS.GetPartyId(fnd_global.user_id );
1715: l_closed_date := sysdate;
1780: COMMIT;
1781: END IF;
1782:
1783: -- Reset the error stack when returning to the calling program
1784: PA_DEBUG.Reset_Err_Stack;
1785:
1786: EXCEPTION
1787: WHEN API_ERROR THEN
1788: x_return_status := x_return_status;
1793: END IF;
1794:
1795: -- Set the excetption Message and the stack
1796: FND_MSG_PUB.add_exc_msg ( p_pkg_name => 'PA_CONTROL_ITEMS_PVT.UPDATE_CONTROL_ITEM_STATUS'
1797: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
1798:
1799:
1800: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1801: RAISE;
1867: EXCEPTION
1868: WHEN OTHERS THEN
1869: -- Set the exception Message and the stack
1870: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_CONTROL_ITEMS_PVT.has_null_data'
1871: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
1872:
1873: RAISE;
1874:
1875: END has_null_data;
1931: return FALSE;
1932: WHEN OTHERS THEN
1933: -- Set the exception Message and the stack
1934: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_CONTROL_ITEMS_PVT.is_lookup_valid'
1935: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
1936:
1937: RAISE;
1938:
1939: END is_lookup_valid;
1994: )
1995: IS
1996: l_object_relationship_id NUMBER;
1997: BEGIN
1998: pa_debug.set_err_stack ('PA_CONTROL_ITEMS_PVT.ADD_RELATED_ITEM');
1999:
2000: IF p_commit = FND_API.G_TRUE THEN
2001: SAVEPOINT add_related_item;
2002: END IF;
2046:
2047: fnd_msg_pub.count_and_get(p_count => x_msg_count,
2048: p_data => x_msg_data);
2049:
2050: pa_debug.reset_err_stack;
2051:
2052: EXCEPTION
2053: WHEN OTHERS THEN
2054: IF p_commit = fnd_api.g_true THEN
2080: IS
2081: l_object_relationship_id NUMBER;
2082: l_record_version_number NUMBER;
2083: BEGIN
2084: pa_debug.set_err_stack ('PA_CONTROL_ITEMS_PVT.DELETE_RELATED_ITEM');
2085:
2086: IF p_commit = FND_API.G_TRUE THEN
2087: SAVEPOINT delete_related_item;
2088: END IF;
2138:
2139: fnd_msg_pub.count_and_get(p_count => x_msg_count,
2140: p_data => x_msg_data);
2141:
2142: pa_debug.reset_err_stack;
2143:
2144: EXCEPTION
2145: WHEN OTHERS THEN
2146: IF p_commit = fnd_api.g_true THEN
2185:
2186:
2187:
2188: BEGIN
2189: pa_debug.set_err_stack ('PA_CONTROL_ITEMS_PVT.DELETE_ALL_RELATED_ITEMS');
2190:
2191: IF p_commit = FND_API.G_TRUE THEN
2192: SAVEPOINT delete_all_related_items;
2193: END IF;
2227:
2228: fnd_msg_pub.count_and_get(p_count => x_msg_count,
2229: p_data => x_msg_data);
2230:
2231: pa_debug.reset_err_stack;
2232:
2233: EXCEPTION
2234: WHEN OTHERS THEN
2235: IF p_commit = fnd_api.g_true THEN
2266: AND relationship_type = 'CI_INCLUDED_ITEM'
2267: AND object_id_from1 = p_ci_id;
2268:
2269: BEGIN
2270: pa_debug.set_err_stack ('PA_CONTROL_ITEMS_PVT.DELETE_ALL_INCLUDED_CRS');
2271:
2272: IF p_commit = FND_API.G_TRUE THEN
2273: SAVEPOINT delete_all_included_crs;
2274: END IF;
2317:
2318: fnd_msg_pub.count_and_get(p_count => x_msg_count,
2319: p_data => x_msg_data);
2320:
2321: pa_debug.reset_err_stack;
2322:
2323: EXCEPTION
2324: WHEN OTHERS THEN
2325: IF p_commit = fnd_api.g_true THEN
2364: AND object_id_to1 = p_from_ci_id;
2365:
2366:
2367: BEGIN
2368: pa_debug.set_err_stack ('PA_CONTROL_ITEMS_PVT.COPY_RELATED_ITEMS');
2369:
2370: IF p_commit = FND_API.G_TRUE THEN
2371: SAVEPOINT copy_related_items;
2372: END IF;
2406:
2407: fnd_msg_pub.count_and_get(p_count => x_msg_count,
2408: p_data => x_msg_data);
2409:
2410: pa_debug.reset_err_stack;
2411:
2412: EXCEPTION
2413: WHEN OTHERS THEN
2414: IF p_commit = fnd_api.g_true THEN