[Home] [Help]
1: PACKAGE BODY OKC_DELIVERABLE_PROCESS_PVT AS
2: /* $Header: OKCVDPRB.pls 120.16.12020000.22 2013/05/31 10:01:10 nbingi ship $ */
3:
4: ---------------------------------------------------------------------------
5: -- package variables
41: C_delTypeExists_rec C_delTypeExists%ROWTYPE;
42: BEGIN
43:
44: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
45: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Inside OKC_DELIVERABLE_PROCESS_PVT.copy_allowed (OVERLOADED) ');
46: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name
47: ,'101: p_deliverable_type = '||p_deliverable_type);
48: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name
49: ,'102: p_target_doc_type = '||p_target_doc_type);
127: C_delTypeExists_rec C_delTypeExists%ROWTYPE;
128: BEGIN
129:
130: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
131: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Inside OKC_DELIVERABLE_PROCESS_PVT.event_mapping_allowed ');
132: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name
133: ,'101: p_deliverable_type = '||p_deliverable_type);
134: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name
135: ,'102: p_target_doc_type = '||p_target_doc_type);
528:
529: BEGIN
530:
531: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
532: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Inside OKC_DELIVERABLE_PROCESS_PVT.attachment_exists ');
533: END IF;
534: OPEN att_cur;
535: FETCH att_cur INTO att_rec;
536: IF att_cur%FOUND THEN
641: BEGIN
642:
643: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
644: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name
645: ,'100: Inside OKC_DELIVERABLE_PROCESS_PVT.copy_del_for_amendment'||
646: 'p_source_doc_id = '||p_source_doc_id||
647: 'p_source_doc_type = '||p_source_doc_type||
648: 'p_target_doc_type = '||p_target_doc_type||
649: 'p_target_doc_number = '||p_target_doc_number||
1350: END IF; -- IF p_copy_del_attachments_yn = 'Y'
1351:
1352: x_return_status := l_return_status;
1353: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1354: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'122: leaving OKC_DELIVERABLE_PROCESS_PVT.copy_del_for_amendment' );
1355: END IF;
1356:
1357: EXCEPTION
1358: WHEN FND_API.G_EXC_ERROR THEN
1356:
1357: EXCEPTION
1358: WHEN FND_API.G_EXC_ERROR THEN
1359: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1360: FND_LOG.STRING( FND_LOG.LEVEL_ERROR ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.copy_del_for_amendment with G_EXC_ERROR');
1361: END IF;
1362: IF del_cur %ISOPEN THEN
1363: CLOSE del_cur ;
1364: END IF;
1368: p_data => x_msg_data
1369: );
1370: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1371: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1372: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.copy_del_for_amendment with G_EXC_UNEXPECTED_ERROR'||substr(sqlerrm,1,200));
1373: END IF;
1374: IF del_cur %ISOPEN THEN
1375: CLOSE del_cur ;
1376: END IF;
1381: );
1382:
1383: WHEN OTHERS THEN
1384: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1385: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.copy_del_for_amendment with G_EXC_UNEXPECTED_ERROR'||substr(sqlerrm,1,200));
1386: END IF;
1387: IF del_cur %ISOPEN THEN
1388: CLOSE del_cur ;
1389: END IF;
1419:
1420: BEGIN
1421:
1422: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1423: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Inside OKC_DELIVERABLE_PROCESS_PVT.event_matches');
1424: END IF;
1425: OPEN event_cur;
1426: FETCH event_cur INTO event_rec;
1427: IF event_cur%FOUND THEN
2070: --End of ER Code Modifications
2071: x_errorcode NUMBER;
2072: BEGIN
2073: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2074: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Inside OKC_DELIVERABLE_PROCESS_PVT.copy_deliverables');
2075: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: budoc id is:'||to_char(p_target_doc_id));
2076: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: budoc type:'||p_target_doc_type);
2077: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: target contractual doctype:'||p_target_contractual_doctype);
2078: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: target response doctype:'||p_target_response_doctype);
3158: END IF;
3159: x_return_status := l_return_status;
3160: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3161: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,
3162: '100: leaving OKC_DELIVERABLE_PROCESS_PVT.copy_deliverables');
3163: END IF;
3164: EXCEPTION
3165: WHEN FND_API.G_EXC_ERROR THEN
3166: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3164: EXCEPTION
3165: WHEN FND_API.G_EXC_ERROR THEN
3166: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3167: FND_LOG.STRING( FND_LOG.LEVEL_ERROR ,g_module||l_api_name
3168: ,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.copy_deliverables with G_EXC_ERROR: '||
3169: substr(sqlerrm,1,200));
3170: END IF;
3171: IF del_cur %ISOPEN THEN
3172: CLOSE del_cur ;
3179:
3180: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3181: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3182: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name
3183: ,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.copy_deliverables with '||
3184: 'G_EXC_UNEXPECTED_ERROR :'||substr(sqlerrm,1,200));
3185: END IF;
3186: IF del_cur %ISOPEN THEN
3187: CLOSE del_cur ;
3194:
3195: WHEN OTHERS THEN
3196: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3197: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name
3198: ,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.copy_deliverables with '||
3199: 'G_EXC_UNEXPECTED_ERROR :'||substr(sqlerrm,1,200));
3200: END IF;
3201: IF del_cur %ISOPEN THEN
3202: CLOSE del_cur ;
3296: BEGIN
3297:
3298: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3299: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name
3300: ,'100: Inside OKC_DELIVERABLE_PROCESS_PVT.sync_deliverables');
3301: END IF;
3302:
3303:
3304: /*****
4242:
4243:
4244: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4245: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name
4246: ,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.sync_deliverables');
4247: END IF;
4248:
4249: x_return_status := l_return_status;
4250: EXCEPTION
4250: EXCEPTION
4251: WHEN FND_API.G_EXC_ERROR THEN
4252: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4253: FND_LOG.STRING( FND_LOG.LEVEL_ERROR ,g_module||l_api_name
4254: ,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.sync_deliverables with G_EXC_ERROR'||
4255: substr(sqlerrm,1,200));
4256: END IF;
4257: IF del_cur %ISOPEN THEN
4258: CLOSE del_cur ;
4270: );
4271: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4272: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4273: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name
4274: ,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.sync_deliverables with G_EXC_UNEXPECTED_ERROR'||
4275: substr(sqlerrm,1,200));
4276: END IF;
4277: IF del_cur %ISOPEN THEN
4278: CLOSE del_cur ;
4291:
4292: WHEN OTHERS THEN
4293: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4294: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name
4295: ,'100: In when others leaving OKC_DELIVERABLE_PROCESS_PVT.sync_deliverables with G_EXC_UNEXPECTED_ERROR'||substr(sqlerrm,1,200));
4296: END IF;
4297: IF del_cur %ISOPEN THEN
4298: CLOSE del_cur ;
4299: END IF;
4378: BEGIN
4379:
4380: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4381: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name
4382: ,'100: Inside OKC_DELIVERABLE_PROCESS_PVT.version_deliverables');
4383: END IF;
4384: ----------------------------------------
4385: /*****
4386: 8i compatability bug#3307941
4834:
4835: END IF; -- IF delCount = 0
4836: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4837: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name
4838: ,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.version_deliverables');
4839: END IF;
4840:
4841: x_return_status := l_return_status;
4842: EXCEPTION
4842: EXCEPTION
4843: WHEN FND_API.G_EXC_ERROR THEN
4844: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4845: FND_LOG.STRING( FND_LOG.LEVEL_ERROR ,g_module||l_api_name
4846: ,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.version_deliverables with G_EXC_ERROR'||
4847: substr(sqlerrm,1,200));
4848: END IF;
4849: IF del_cur %ISOPEN THEN
4850: CLOSE del_cur ;
4857:
4858: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4859: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4860: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name
4861: ,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.version_deliverables with G_EXC_UNEXPECTED_ERROR'||
4862: substr(sqlerrm,1,200));
4863: END IF;
4864: IF del_cur %ISOPEN THEN
4865: CLOSE del_cur ;
4872:
4873: WHEN OTHERS THEN
4874: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4875: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name
4876: ,'100: In when others leaving OKC_DELIVERABLE_PROCESS_PVT.version_deliverables with G_EXC_UNEXPECTED_ERROR'||substr(sqlerrm,1,200));
4877: END IF;
4878: IF del_cur %ISOPEN THEN
4879: CLOSE del_cur ;
4880: END IF;
5013: EXCEPTION
5014: WHEN OTHERS THEN
5015: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5016: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name
5017: ,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.clear_amendments with G_EXC_UNEXPECTED_ERROR'||
5018: substr(sqlerrm,1,200));
5019: END IF;
5020: -- close any open cursors
5021: IF def_cur %ISOPEN THEN
5060:
5061: BEGIN
5062: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5063: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name
5064: ,'100: Inside OKC_DELIVERABLE_PROCESS_PVT.DISABLE_DELIVERABLES');
5065: END IF;
5066: OPEN del_cur;
5067: FETCH del_cur BULK COLLECT INTO delIdTab;
5068: IF delIdTab.COUNT <> 0 THEN
5080:
5081: EXCEPTION
5082: WHEN FND_API.G_EXC_ERROR THEN
5083: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5084: FND_LOG.STRING( FND_LOG.LEVEL_ERROR ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.DISABLE_DELIVERABLES with G_EXC_ERROR');
5085: END IF;
5086: IF del_cur %ISOPEN THEN
5087: CLOSE del_cur ;
5088: END IF;
5092: p_data => x_msg_data
5093: );
5094: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5095: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5096: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.DISABLE_DELIVERABLES with G_EXC_UNEXPECTED_ERROR');
5097: END IF;
5098: IF del_cur %ISOPEN THEN
5099: CLOSE del_cur ;
5100: END IF;
5105: );
5106:
5107: WHEN OTHERS THEN
5108: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5109: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.DISABLE_DELIVERABLES with G_EXC_UNEXPECTED_ERROR');
5110: END IF;
5111: IF del_cur %ISOPEN THEN
5112: CLOSE del_cur ;
5113: END IF;
5268:
5269: BEGIN
5270:
5271: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5272: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Inside OKC_DELIVERABLE_PROCESS_PVT.CHANGE_DELIVERABLE_STATUS');
5273: END IF;
5274: IF p_cancel_yn = 'N' THEN
5275: OPEN del_activate_cur;
5276: FETCH del_activate_cur BULK COLLECT INTO delIdTab;
5426: **/
5427: END IF; -- if operation is for CANCELLED
5428:
5429: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5430: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.CHANGE_DELIVERABLE_STATUS');
5431: END IF;
5432: x_return_status := l_return_status;
5433: EXCEPTION
5434: WHEN FND_API.G_EXC_ERROR THEN
5432: x_return_status := l_return_status;
5433: EXCEPTION
5434: WHEN FND_API.G_EXC_ERROR THEN
5435: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5436: FND_LOG.STRING( FND_LOG.LEVEL_ERROR ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.CHANGE_DELIVERABLE_STATUS with G_EXC_ERROR');
5437: END IF;
5438: IF del_activate_cur %ISOPEN THEN
5439: CLOSE del_activate_cur ;
5440: END IF;
5445: );
5446:
5447: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5448: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5449: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.CHANGE_DELIVERABLE_STATUS with G_EXC_UNEXPECTED_ERROR');
5450: END IF;
5451: IF del_activate_cur %ISOPEN THEN
5452: CLOSE del_activate_cur ;
5453: END IF;
5458: );
5459:
5460: WHEN OTHERS THEN
5461: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5462: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.CHANGE_DELIVERABLE_STATUS with G_EXC_UNEXPECTED_ERROR');
5463: END IF;
5464: IF del_activate_cur %ISOPEN THEN
5465: CLOSE del_activate_cur ;
5466: END IF;
5496: PRAGMA EXCEPTION_INIT(E_Resource_Busy, -00054);
5497:
5498: BEGIN
5499: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5500: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Inside OKC_DELIVERABLE_PROCESS_PVT.overdue_deliverable_manager');
5501: END IF;
5502: --Initialize the return code
5503: retcode := 0;
5504: --Invoke overdue_del_notifier
5514: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
5515: RAISE OKC_API.G_EXCEPTION_ERROR;
5516: END IF;
5517: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5518: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.overdue_deliverable_manager');
5519: END IF;
5520: EXCEPTION
5521: WHEN E_Resource_Busy THEN
5522: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5519: END IF;
5520: EXCEPTION
5521: WHEN E_Resource_Busy THEN
5522: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5523: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.overdue_deliverable_manager with resource busy state');
5524: END IF;
5525: l_return_status := okc_api.g_ret_sts_error;
5526: RAISE APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION;
5527: WHEN OTHERS THEN
5525: l_return_status := okc_api.g_ret_sts_error;
5526: RAISE APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION;
5527: WHEN OTHERS THEN
5528: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5529: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.overdue_deliverable_manager with G_EXC_UNEXPECTED_ERROR');
5530: END IF;
5531: retcode := 2;
5532: errbuf := substr(sqlerrm,1,200);
5533: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
5601:
5602:
5603: BEGIN
5604: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5605: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Inside OKC_DELIVERABLE_PROCESS_PVT.overdue_del_notifier');
5606: END IF;
5607:
5608: -- call start_activity to create savepoint, check comptability
5609: -- and initialize message list
5708:
5709: OKC_API.END_ACTIVITY(l_msg_count, l_msg_data);
5710:
5711: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5712: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.overdue_del_notifier');
5713: END IF;
5714:
5715: EXCEPTION
5716: WHEN FND_API.G_EXC_ERROR THEN
5714:
5715: EXCEPTION
5716: WHEN FND_API.G_EXC_ERROR THEN
5717: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5718: FND_LOG.STRING( FND_LOG.LEVEL_ERROR ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.overdue_del_notifier with G_EXC_ERROR:'||substr(sqlerrm,1,200));
5719: END IF;
5720:
5721: IF del_cur %ISOPEN THEN
5722: CLOSE del_cur ;
5728: p_data => x_msg_data);
5729:
5730: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5731: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5732: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.overdue_del_notifier with G_EXC_UNEXPECTED_ERROR:'||substr(sqlerrm,1,200));
5733: END IF;
5734:
5735: IF del_cur %ISOPEN THEN
5736: CLOSE del_cur ;
5742: p_data => x_msg_data);
5743:
5744: WHEN OTHERS THEN
5745: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5746: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.overdue_del_notifier with G_EXC_UNEXPECTED_ERROR:'||substr(sqlerrm,1,200));
5747: END IF;
5748:
5749: IF del_cur %ISOPEN THEN
5750: CLOSE del_cur ;
5783: PRAGMA EXCEPTION_INIT(E_Resource_Busy, -00054);
5784:
5785: BEGIN
5786: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5787: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Inside OKC_DELIVERABLE_PROCESS_PVT.beforedue_deliverable_manager');
5788: END IF;
5789: --Initialize the return code
5790: retcode := 0;
5791: --Invoke beforedue_del_notifier
5803: RAISE OKC_API.G_EXCEPTION_ERROR;
5804: END IF;
5805:
5806: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5807: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.beforedue_deliverable_manager');
5808: END IF;
5809: EXCEPTION
5810: WHEN E_Resource_Busy THEN
5811: l_return_status := okc_api.g_ret_sts_error;
5872: l_resolved_msg_name VARCHAR2(30);
5873: BEGIN
5874:
5875: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5876: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Inside OKC_DELIVERABLE_PROCESS_PVT.beforedue_del_notifier');
5877: END IF;
5878: -- call start_activity to create savepoint, check comptability
5879: -- and initialize message list
5880: l_return_status := OKC_API.START_ACTIVITY(l_api_name
6084: END IF;
6085: x_return_status := l_return_status;
6086: OKC_API.END_ACTIVITY(l_msg_count, l_msg_data);
6087: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6088: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.beforedue_del_notifier');
6089: END IF;
6090: EXCEPTION
6091: WHEN FND_API.G_EXC_ERROR THEN
6092: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6089: END IF;
6090: EXCEPTION
6091: WHEN FND_API.G_EXC_ERROR THEN
6092: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6093: FND_LOG.STRING( FND_LOG.LEVEL_ERROR ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.beforedue_del_notifier with G_EXC_ERROR:'||substr(sqlerrm,1,200));
6094: END IF;
6095: IF del_cur %ISOPEN THEN
6096: CLOSE del_cur ;
6097: END IF;
6102: );
6103:
6104: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6105: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6106: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.beforedue_del_notifier with G_EXC_UNEXPECTED_ERROR:'||substr(sqlerrm,1,200));
6107: END IF;
6108: IF del_cur %ISOPEN THEN
6109: CLOSE del_cur ;
6110: END IF;
6115: );
6116:
6117: WHEN OTHERS THEN
6118: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6119: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.beforedue_del_notifier with G_EXC_UNEXPECTED_ERROR:'||substr(sqlerrm,1,200));
6120: END IF;
6121: IF del_cur %ISOPEN THEN
6122: CLOSE del_cur ;
6123: END IF;
6151: PRAGMA EXCEPTION_INIT(E_Resource_Busy, -00054);
6152:
6153: BEGIN
6154: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6155: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Inside OKC_DELIVERABLE_PROCESS_PVT.escalation_deliverable_manager');
6156: END IF;
6157: --Initialize the return code
6158: retcode := 0;
6159: --Invoke escalation_deliverable_notifier
6171: RAISE OKC_API.G_EXCEPTION_ERROR;
6172: END IF;
6173:
6174: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6175: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.escalation_deliverable_manager');
6176: END IF;
6177: EXCEPTION
6178: WHEN E_Resource_Busy THEN
6179: l_return_status := okc_api.g_ret_sts_error;
6241: l_resolved_msg_name VARCHAR2(30);
6242: BEGIN
6243:
6244: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6245: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Inside OKC_DELIVERABLE_PROCESS_PVT.esc_del_notifier');
6246: END IF;
6247: -- call start_activity to create savepoint, check comptability
6248: -- and initialize message list
6249: l_return_status := OKC_API.START_ACTIVITY(l_api_name
6448: END IF;
6449: x_return_status := l_return_status;
6450: OKC_API.END_ACTIVITY(l_msg_count, l_msg_data);
6451: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6452: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.esc_del_notifier');
6453: END IF;
6454:
6455: EXCEPTION
6456: WHEN FND_API.G_EXC_ERROR THEN
6454:
6455: EXCEPTION
6456: WHEN FND_API.G_EXC_ERROR THEN
6457: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6458: FND_LOG.STRING( FND_LOG.LEVEL_ERROR ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.esc_del_notifier with G_EXC_ERROR:'||substr(sqlerrm,1,200));
6459: END IF;
6460: IF del_cur %ISOPEN THEN
6461: CLOSE del_cur ;
6462: END IF;
6467: );
6468:
6469: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6470: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6471: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.esc_del_notifier with G_EXC_UNEXPECTED_ERROR:'||substr(sqlerrm,1,200));
6472: END IF;
6473: IF del_cur %ISOPEN THEN
6474: CLOSE del_cur ;
6475: END IF;
6480: );
6481:
6482: WHEN OTHERS THEN
6483: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6484: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.esc_del_notifier with G_EXC_UNEXPECTED_ERROR:'||substr(sqlerrm,1,200));
6485: END IF;
6486: IF del_cur %ISOPEN THEN
6487: CLOSE del_cur ;
6488: END IF;
6522:
6523: BEGIN
6524:
6525: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6526: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Inside OKC_DELIVERABLE_PROCESS_PVT.delete_attachments');
6527: END IF;
6528: l_att_exists := attachment_exists(
6529: p_entity_name => p_entity_name
6530: ,p_pk1_value => p_pk1_value );
6547: END LOOP;
6548: END IF;
6549: x_result := l_result;
6550: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6551: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.delete_attachments');
6552: END IF;
6553: EXCEPTION
6554: WHEN OTHERS THEN
6555: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6552: END IF;
6553: EXCEPTION
6554: WHEN OTHERS THEN
6555: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6556: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.delete_attachments in OTHERS');
6557: END IF;
6558: IF att_cur %ISOPEN THEN
6559: CLOSE att_cur ;
6560: END IF;
6592: l_deliverable_id NUMBER;
6593: BEGIN
6594:
6595: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6596: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Inside OKC_DELIVERABLE_PROCESS_PVT.purge_doc_deliverables');
6597: END IF;
6598: IF p_doc_table.COUNT <> 0 THEN
6599: FOR i in 1.. p_doc_table.COUNT LOOP
6600: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6612: END LOOP;
6613: END IF;
6614: x_return_status := l_return_status;
6615: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6616: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.purge_doc_deliverables');
6617: END IF;
6618:
6619: EXCEPTION
6620: WHEN FND_API.G_EXC_ERROR THEN
6618:
6619: EXCEPTION
6620: WHEN FND_API.G_EXC_ERROR THEN
6621: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6622: FND_LOG.STRING( FND_LOG.LEVEL_ERROR ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.purge_doc_deliverables with G_EXC_ERROR');
6623: END IF;
6624: x_return_status := G_RET_STS_ERROR;
6625: FND_MSG_PUB.Count_And_Get(
6626: p_count => x_msg_count,
6628: );
6629:
6630: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6631: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6632: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.purge_doc_deliverables with G_EXC_UNEXPECTED_ERROR');
6633: END IF;
6634: x_return_status := G_RET_STS_UNEXP_ERROR;
6635: FND_MSG_PUB.Count_And_Get(
6636: p_count => x_msg_count,
6638: );
6639:
6640: WHEN OTHERS THEN
6641: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6642: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.purge_doc_deliverables with G_EXC_UNEXPECTED_ERROR');
6643: END IF;
6644: x_return_status := G_RET_STS_UNEXP_ERROR;
6645: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,l_api_name);
6646: END IF;
6699: delIdTab delIdTabType;
6700: BEGIN
6701:
6702: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6703: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Inside OKC_DELIVERABLE_PROCESS_PVT.delete_deliverables');
6704: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: p_retain_lock_deliverables_yn : ' || p_retain_lock_deliverables_yn);
6705: END IF;
6706:
6707: -- Call the CDRL API.
6773: CLOSE del_version_cur ;
6774: END IF;
6775: x_return_status := l_result;
6776: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6777: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.delete_deliverables');
6778: END IF;
6779:
6780: EXCEPTION
6781: WHEN FND_API.G_EXC_ERROR THEN
6779:
6780: EXCEPTION
6781: WHEN FND_API.G_EXC_ERROR THEN
6782: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6783: FND_LOG.STRING( FND_LOG.LEVEL_ERROR ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.delete_deliverables with G_EXC_ERROR');
6784: END IF;
6785: IF del_cur %ISOPEN THEN
6786: CLOSE del_cur ;
6787: END IF;
6795: );
6796:
6797: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6798: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6799: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.delete_deliverables with G_EXC_UNEXPECTED_ERROR');
6800: END IF;
6801: IF del_cur %ISOPEN THEN
6802: CLOSE del_cur ;
6803: END IF;
6811: );
6812:
6813: WHEN OTHERS THEN
6814: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6815: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.delete_deliverables with G_EXC_UNEXPECTED_ERROR');
6816: END IF;
6817: IF del_cur %ISOPEN THEN
6818: CLOSE del_cur ;
6819: END IF;
6857: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
6858: BEGIN
6859:
6860: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6861: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Inside OKC_DELIVERABLE_PROCESS_PVT.update_del_for_template_merge');
6862: END IF;
6863: OPEN del_cur;
6864: FETCH del_cur BULK COLLECT INTO delIdTab;
6865: IF delIdTab.COUNT <> 0 THEN
6874: IF del_cur %ISOPEN THEN
6875: CLOSE del_cur ;
6876: END IF;
6877: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6878: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.update_del_for_template_merge');
6879: END IF;
6880: x_return_status := l_return_status;
6881: EXCEPTION
6882: WHEN FND_API.G_EXC_ERROR THEN
6880: x_return_status := l_return_status;
6881: EXCEPTION
6882: WHEN FND_API.G_EXC_ERROR THEN
6883: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6884: FND_LOG.STRING( FND_LOG.LEVEL_ERROR ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.update_del_for_template_merge with G_EXC_ERROR');
6885: FND_LOG.STRING( FND_LOG.LEVEL_ERROR ,g_module||l_api_name,'100: error is:'||substr(sqlerrm,1,200));
6886: END IF;
6887: IF del_cur %ISOPEN THEN
6888: CLOSE del_cur ;
6894: );
6895:
6896: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6897: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6898: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.update_del_for_template_merge with G_EXC_UNEXPECTED_ERROR');
6899: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: error is:'||substr(sqlerrm,1,200));
6900: END IF;
6901: IF del_cur %ISOPEN THEN
6902: CLOSE del_cur ;
6908: );
6909:
6910: WHEN OTHERS THEN
6911: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6912: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.update_del_for_template_merge with G_EXC_UNEXPECTED_ERROR');
6913: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: error is:'||substr(sqlerrm,1,200));
6914: END IF;
6915: IF del_cur %ISOPEN THEN
6916: CLOSE del_cur ;
6980: x_return_status := OKC_API.G_RET_STS_SUCCESS;
6981:
6982:
6983: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6984: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Inside OKC_DELIVERABLE_PROCESS_PVT.get_last_amendment_date');
6985: END IF;
6986: OPEN del_cur;
6987: FETCH del_cur INTO l_date;
6988: /*bug# 3641366 IF l_date is null THEN
6994: CLOSE del_cur ;
6995: END IF;
6996:
6997: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6998: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.get_last_amendment_date');
6999: END IF;
7000: RETURN l_date;
7001:
7002: EXCEPTION
7279: end if;
7280: EXCEPTION
7281: WHEN OTHERS THEN
7282: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7283: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.get_recurring_dates with OTHER ERROR');
7284: END IF;
7285: x_return_status := OKC_API.G_RET_STS_ERROR;
7286: FND_MSG_PUB.Count_And_Get(
7287: p_count => x_msg_count,
7313:
7314:
7315: BEGIN
7316: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7317: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Inside OKC_DELIVERABLE_PROCESS_PVT.internal_contact_valid ');
7318: END IF;
7319: OPEN fnd_user_cur;
7320: FETCH fnd_user_cur INTO fnd_user_rec;
7321: IF fnd_user_cur%FOUND THEN
7351: END IF;
7352: CLOSE fnd_user_cur;
7353: CLOSE contact_cur;
7354: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7355: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'101: OKC_DELIVERABLE_PROCESS_PVT.internal_contact_valid');
7356: END IF;
7357:
7358: EXCEPTION
7359: WHEN OTHERS THEN
7357:
7358: EXCEPTION
7359: WHEN OTHERS THEN
7360: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7361: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'102: Leaving OKC_DELIVERABLE_PROCESS_PVT.internal_contact_valid with Exception');
7362: END IF;
7363: IF fnd_user_cur %ISOPEN THEN
7364: CLOSE fnd_user_cur ;
7365: END IF;
7393:
7394: BEGIN
7395:
7396: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7397: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Inside OKC_DELIVERABLE_PROCESS_PVT.internal_contact_exists ');
7398: END IF;
7399: OPEN contact_cur;
7400: FETCH contact_cur INTO contact_rec;
7401: IF contact_cur%FOUND THEN
7404: RETURN('N');
7405: END IF;
7406: CLOSE contact_cur;
7407: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7408: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'101: OKC_DELIVERABLE_PROCESS_PVT.internal_contact_exists');
7409: END IF;
7410: EXCEPTION
7411: WHEN OTHERS THEN
7412: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7409: END IF;
7410: EXCEPTION
7411: WHEN OTHERS THEN
7412: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7413: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'102: Leaving OKC_DELIVERABLE_PROCESS_PVT.internal_contact_exists with Exception');
7414: END IF;
7415: IF contact_cur %ISOPEN THEN
7416: CLOSE contact_cur ;
7417: END IF;
7467: BEGIN
7468:
7469: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7470: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module
7471: ||l_api_name,'100: Inside OKC_DELIVERABLE_PROCESS_PVT.external_contact_valid ');
7472: END IF;
7473: OPEN contact_cur;
7474: FETCH contact_cur INTO contact_rec;
7475: IF contact_cur%FOUND THEN
7480: CLOSE contact_cur;
7481:
7482: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7483: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module
7484: ||l_api_name,'101: OKC_DELIVERABLE_PROCESS_PVT.external_contact_valid');
7485: END IF;
7486: EXCEPTION
7487: WHEN OTHERS THEN
7488: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7485: END IF;
7486: EXCEPTION
7487: WHEN OTHERS THEN
7488: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7489: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'102: Leaving OKC_DELIVERABLE_PROCESS_PVT.external_contact_valid with Exception');
7490: END IF;
7491: IF contact_cur %ISOPEN THEN
7492: CLOSE contact_cur ;
7493: END IF;
7519:
7520: EXCEPTION
7521: WHEN OTHERS THEN
7522: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7523: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'102: Leaving OKC_DELIVERABLE_PROCESS_PVT.get_lookup_meaning with exception');
7524: END IF;
7525:
7526: RETURN '';
7527: END get_lookup_meaning;
7645:
7646: EXCEPTION
7647: WHEN FND_API.G_EXC_ERROR THEN
7648: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7649: FND_LOG.STRING( FND_LOG.LEVEL_ERROR ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.check_notifications with G_EXC_ERROR');
7650: END IF;
7651:
7652: x_return_status := G_RET_STS_ERROR;
7653:
7653:
7654:
7655: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7656: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7657: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.check_notifications with G_EXC_UNEXPECTED_ERROR');
7658: END IF;
7659:
7660: x_return_status := G_RET_STS_UNEXP_ERROR;
7661:
7661:
7662:
7663: WHEN OTHERS THEN
7664: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7665: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.check_notifications with OTHERS EXCEPTION');
7666: END IF;
7667:
7668: x_return_status := G_RET_STS_UNEXP_ERROR;
7669: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
7888:
7889: EXCEPTION
7890: WHEN FND_API.G_EXC_ERROR THEN
7891: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7892: FND_LOG.STRING( FND_LOG.LEVEL_ERROR ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.check_internal_contacts with G_EXC_ERROR');
7893: END IF;
7894:
7895: x_return_status := G_RET_STS_ERROR;
7896:
7896:
7897:
7898: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7899: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7900: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.check_internal_contacts with G_EXC_UNEXPECTED_ERROR');
7901: END IF;
7902:
7903: x_return_status := G_RET_STS_UNEXP_ERROR;
7904:
7904:
7905:
7906: WHEN OTHERS THEN
7907: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7908: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.check_internal_contacts with OTHERS EXCEPTION');
7909: END IF;
7910:
7911: x_return_status := G_RET_STS_UNEXP_ERROR;
7912: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
7970:
7971: BEGIN
7972:
7973: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7974: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Inside OKC_DELIVERABLE_PROCESS_PVT.check_exhibit_details');
7975: END IF;
7976:
7977:
7978:
8038:
8039: EXCEPTION
8040: WHEN FND_API.G_EXC_ERROR THEN
8041: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8042: FND_LOG.STRING( FND_LOG.LEVEL_ERROR ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.check_exhibits with G_EXC_ERROR');
8043: END IF;
8044:
8045: x_return_status := G_RET_STS_ERROR;
8046:
8046:
8047:
8048: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8049: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8050: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.check_exhibits with G_EXC_UNEXPECTED_ERROR');
8051: END IF;
8052:
8053: x_return_status := G_RET_STS_UNEXP_ERROR;
8054:
8054:
8055:
8056: WHEN OTHERS THEN
8057: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8058: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.check_exhibits with OTHERS EXCEPTION');
8059: END IF;
8060:
8061: x_return_status := G_RET_STS_UNEXP_ERROR;
8062: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
8105: l_resolved_token VARCHAR2(100);
8106:
8107: BEGIN
8108: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8109: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Inside OKC_DELIVERABLE_PROCESS_PVT.check_internal_contacts_valid');
8110: END IF;
8111: l_qa_result_tbl := px_qa_result_tbl;
8112: l_index := px_qa_result_tbl.count;
8113: l_start := px_qa_result_tbl.count;
8236:
8237:
8238: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8239: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8240: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.check_internal_contacts with G_EXC_UNEXPECTED_ERROR');
8241: END IF;
8242:
8243: x_return_status := G_RET_STS_UNEXP_ERROR;
8244:
8244:
8245:
8246: WHEN OTHERS THEN
8247: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8248: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.check_internal_contacts_valid with OTHERS EXCEPTION');
8249: END IF;
8250:
8251: x_return_status := G_RET_STS_UNEXP_ERROR;
8252: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
8409:
8410: EXCEPTION
8411: WHEN FND_API.G_EXC_ERROR THEN
8412: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8413: FND_LOG.STRING( FND_LOG.LEVEL_ERROR ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.check_external_contacts with G_EXC_ERROR');
8414: END IF;
8415:
8416: x_return_status := G_RET_STS_ERROR;
8417:
8417:
8418:
8419: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8420: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8421: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.check_external_contacts with G_EXC_UNEXPECTED_ERROR');
8422: END IF;
8423:
8424: x_return_status := G_RET_STS_UNEXP_ERROR;
8425:
8425:
8426:
8427: WHEN OTHERS THEN
8428: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8429: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.check_external_contacts with OTHERS EXCEPTION');
8430: END IF;
8431:
8432: x_return_status := G_RET_STS_UNEXP_ERROR;
8433: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
8496: l_index := px_qa_result_tbl.count;
8497: l_start := px_qa_result_tbl.count;
8498: l_short_desc := get_lookup_meaning('OKC_TERM_QA_LIST',l_qa_code);
8499: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8500: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Inside OKC_DELIVERABLE_PROCESS_PVT.check_due_dates ');
8501: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: deliverable_id: '||to_char(del_rec.deliverable_id));
8502: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: deliverable_name: '||del_rec.deliverable_name);
8503: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: deliverable_name: '||del_rec.recurring_yn);
8504: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: fixed_start_date: '||del_rec.fixed_start_date);
8850:
8851: EXCEPTION
8852: WHEN FND_API.G_EXC_ERROR THEN
8853: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8854: FND_LOG.STRING( FND_LOG.LEVEL_ERROR ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.check_due_dates with G_EXC_ERROR');
8855: END IF;
8856: x_return_status := G_RET_STS_ERROR;
8857:
8858: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8856: x_return_status := G_RET_STS_ERROR;
8857:
8858: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8859: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8860: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.check_due_dates with G_EXC_UNEXPECTED_ERROR');
8861: END IF;
8862:
8863: x_return_status := G_RET_STS_UNEXP_ERROR;
8864:
8864:
8865:
8866: WHEN OTHERS THEN
8867: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8868: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.check_due_dates with OTHERS EXCEPTION');
8869: END IF;
8870:
8871: x_return_status := G_RET_STS_UNEXP_ERROR;
8872: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
8976:
8977: EXCEPTION
8978: WHEN FND_API.G_EXC_ERROR THEN
8979: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8980: FND_LOG.STRING( FND_LOG.LEVEL_ERROR ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.check_amendments with G_EXC_ERROR');
8981: END IF;
8982:
8983: x_return_status := G_RET_STS_ERROR;
8984:
8984:
8985:
8986: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8987: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8988: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.check_amendments with G_EXC_UNEXPECTED_ERROR');
8989: END IF;
8990:
8991: x_return_status := G_RET_STS_UNEXP_ERROR;
8992:
8992:
8993:
8994: WHEN OTHERS THEN
8995: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8996: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.check_amendments with OTHERS EXCEPTION');
8997: END IF;
8998:
8999: x_return_status := G_RET_STS_UNEXP_ERROR;
9000: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
9519: EXCEPTION
9520: WHEN FND_API.G_EXC_ERROR THEN
9521: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
9522: FND_LOG.STRING( FND_LOG.LEVEL_ERROR ,g_module
9523: ||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.check_external_party_exists with G_EXC_ERROR');
9524: END IF;
9525: x_return_status := G_RET_STS_ERROR;
9526:
9527:
9527:
9528: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
9529: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
9530: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module
9531: ||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.check_external_party_exists with G_EXC_UNEXPECTED_ERROR');
9532: END IF;
9533:
9534: x_return_status := G_RET_STS_UNEXP_ERROR;
9535:
9536:
9537: WHEN OTHERS THEN
9538: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
9539: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module
9540: ||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.check_external_party_exists with OTHERS EXCEPTION');
9541: END IF;
9542: x_return_status := G_RET_STS_UNEXP_ERROR;
9543:
9544: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
9661:
9662: BEGIN
9663:
9664: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
9665: okc_debug.Set_Indentation('OKC_DELIVERABLE_PROCESS_PVT');
9666: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'21300: Entered validate_deliverable_for_qa');
9667: END IF;
9668:
9669: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
10251: x_qa_return_status := l_qa_return_status;
10252:
10253:
10254: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
10255: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.validate_deliverable_for_qa');
10256: END IF;
10257:
10258: EXCEPTION
10259: WHEN FND_API.G_EXC_ERROR THEN
10258: EXCEPTION
10259: WHEN FND_API.G_EXC_ERROR THEN
10260:
10261: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
10262: FND_LOG.STRING( FND_LOG.LEVEL_ERROR ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.validate_deliverable_for_qa with G_EXC_ERROR');
10263: END IF;
10264: --close cursors
10265: IF (del_cur%ISOPEN) THEN
10266: CLOSE del_cur ;
10282:
10283: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
10284:
10285: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
10286: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.validate_deliverable_for_qa with G_EXC_UNEXPECTED_ERROR');
10287: END IF;
10288: --close cursors
10289: IF (del_cur%ISOPEN) THEN
10290: CLOSE del_cur ;
10306: );
10307:
10308: WHEN OTHERS THEN
10309: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
10310: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.validate_deliverable_for_qa with OTHERS EXCEPTION');
10311: END IF;
10312: --close cursors
10313: IF (del_cur%ISOPEN) THEN
10314: CLOSE del_cur ;
10357:
10358: BEGIN
10359:
10360: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
10361: okc_debug.Set_Indentation('OKC_DELIVERABLE_PROCESS_PVT');
10362: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'21300: Entered validate_deliverable_for_qa');
10363: END IF;
10364:
10365: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
10387:
10388: x_return_status := l_return_status;
10389:
10390: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
10391: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.delete_del_status_hist_attach');
10392: END IF;
10393:
10394: EXCEPTION
10395: WHEN FND_API.G_EXC_ERROR THEN
10393:
10394: EXCEPTION
10395: WHEN FND_API.G_EXC_ERROR THEN
10396: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
10397: FND_LOG.STRING( FND_LOG.LEVEL_ERROR ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.delete_del_status_hist_attach with G_EXC_ERROR');
10398: END IF;
10399:
10400: x_return_status := G_RET_STS_ERROR;
10401: FND_MSG_PUB.Count_And_Get(
10404: );
10405:
10406: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
10407: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
10408: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.delete_del_status_hist_attach with G_EXC_UNEXPECTED_ERROR');
10409: END IF;
10410:
10411: x_return_status := G_RET_STS_UNEXP_ERROR;
10412: FND_MSG_PUB.Count_And_Get(
10415: );
10416:
10417: WHEN OTHERS THEN
10418: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
10419: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.delete_del_status_hist_attach with OTHERS EXCEPTION');
10420: END IF;
10421:
10422: x_return_status := G_RET_STS_UNEXP_ERROR;
10423: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
10523: p_doc_id IN NUMBER,
10524: p_doc_type IN VARCHAR2,
10525: p_doc_version IN NUMBER DEFAULT NULL,
10526: p_Conditional_Delete_Flag IN VARCHAR2 DEFAULT 'N',
10527: p_delid_tab IN OKC_DELIVERABLE_PROCESS_PVT.delIdTabType,
10528: x_msg_data OUT NOCOPY VARCHAR2,
10529: x_msg_count OUT NOCOPY NUMBER,
10530: x_return_status OUT NOCOPY VARCHAR2)
10531: IS
10538:
10539: BEGIN
10540:
10541: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
10542: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Inside OKC_DELIVERABLE_PROCESS_PVT.delete_del_instances');
10543: END IF;
10544: FOR i IN p_delid_tab.FIRST..p_delid_tab.LAST LOOP
10545: l_del_id := p_delid_tab(i);
10546:
10590:
10591: END LOOP;
10592:
10593: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
10594: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Leaving OKC_DELIVERABLE_PROCESS_PVT.delete_del_instances');
10595: END IF;
10596:
10597: EXCEPTION
10598: WHEN OTHERS THEN
10736:
10737: BEGIN
10738:
10739: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
10740: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Inside OKC_DELIVERABLE_PROCESS_PVT.delete_deliverable'||to_char(p_del_id));
10741: END IF;
10742: -- delete deliverables status history
10743: DELETE FROM okc_del_status_history
10744: WHERE deliverable_id = p_del_id;
10757: WHERE deliverable_id = p_del_id;
10758: END IF;
10759: x_return_status := l_result;
10760: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
10761: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.delete_deliverable');
10762: END IF;
10763:
10764: EXCEPTION
10765: WHEN FND_API.G_EXC_ERROR THEN
10763:
10764: EXCEPTION
10765: WHEN FND_API.G_EXC_ERROR THEN
10766: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
10767: FND_LOG.STRING( FND_LOG.LEVEL_ERROR ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.delete_deliverable with G_EXC_ERROR');
10768: END IF;
10769: x_return_status := G_RET_STS_ERROR;
10770: FND_MSG_PUB.Count_And_Get(
10771: p_count => x_msg_count,
10773: );
10774:
10775: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
10776: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
10777: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.delete_deliverable with G_EXC_UNEXPECTED_ERROR');
10778: END IF;
10779: x_return_status := G_RET_STS_UNEXP_ERROR;
10780: FND_MSG_PUB.Count_And_Get(
10781: p_count => x_msg_count,
10783: );
10784:
10785: WHEN OTHERS THEN
10786: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
10787: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.delete_deliverable with G_EXC_UNEXPECTED_ERROR');
10788: END IF;
10789: x_return_status := G_RET_STS_UNEXP_ERROR;
10790: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
10791: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,l_api_name);
10848:
10849: exhibit_code_tbl okc_cdrl_pvt.exhibit_tbl_type;
10850: BEGIN
10851: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
10852: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: inside OKC_DELIVERABLE_PROCESS_PVT.delete_template_deliverables');
10853: END IF;
10854:
10855: -- Get the exhibit details first before we delete deliverables.
10856: OPEN exb_cur;
10921:
10922:
10923: x_return_status := x_return_status;
10924: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
10925: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.delete_template_deliverables');
10926: END IF;
10927:
10928: EXCEPTION
10929: WHEN OTHERS THEN
10930: IF del_cur %ISOPEN THEN
10931: CLOSE del_cur ;
10932: END IF;
10933: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
10934: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.delete_template_deliverables with G_EXC_UNEXPECTED_ERROR');
10935: END IF;
10936: x_return_status := G_RET_STS_UNEXP_ERROR;
10937: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
10938: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,l_api_name);
11011:
11012:
11013: FOR del_rec IN del_cur LOOP
11014: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
11015: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: inside OKC_DELIVERABLE_PROCESS_PVT.deliverables_amended :'||del_rec.deliverable_type);
11016: END IF;
11017:
11018: --Repository change to look at internal_flag in okc_deliverable_types_b
11019: If (del_rec.internal_flag = 'Y') then
11281: x_errorcode NUMBER;
11282: BEGIN
11283: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
11284: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name
11285: ,'100: Inside OKC_DELIVERABLE_PROCESS_PVT.copy_response_deliverables');
11286: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name
11287: ,'100: target budoc id is:'||to_char(p_target_doc_id));
11288: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name
11289: ,'100: target budoc id type:'||p_target_doc_type);
12286:
12287: BEGIN
12288:
12289: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
12290: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Inside OKC_DELIVERABLE_PROCESS_PVT.CopyDelForTemplateRevision');
12291: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: budoc id is:'||to_char(p_target_doc_id));
12292: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: budoc type:'||p_target_doc_type);
12293: END IF;
12294: -- initialize the table type variable
12686: END IF;
12687: x_return_status := l_return_status;
12688: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
12689: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,
12690: '100: leaving OKC_DELIVERABLE_PROCESS_PVT.CopyDelForTemplateRevision');
12691: END IF;
12692:
12693:
12694: EXCEPTION
12696: IF del_cur %ISOPEN THEN
12697: CLOSE del_cur ;
12698: END IF;
12699: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
12700: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.CopyDelForTemplateRevision with G_EXC_UNEXPECTED_ERROR');
12701: END IF;
12702: x_return_status := G_RET_STS_UNEXP_ERROR;
12703: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
12704: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,l_api_name);
12897:
12898: BEGIN
12899:
12900: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
12901: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'Enterred OKC_DELIVERABLE_PROCESS_PVT.RestoreDelsToPrevDocVers');
12902: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'p_bus_doc_id: '|| to_char(p_bus_doc_id));
12903: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'p_bus_doc_version: '|| to_char(p_bus_doc_version));
12904: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'p_bus_doc_type: '|| p_bus_doc_type);
12905: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'p_prev_del_active: '|| p_prev_del_active);
13346:
13347:
13348:
13349: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
13350: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'Leaving OKC_DELIVERABLE_PROCESS_PVT.RestoreDelsToPrevDocVers');
13351: END IF;
13352:
13353:
13354: EXCEPTION
13355:
13356: WHEN OTHERS THEN
13357:
13358: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
13359: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'Leaving OKC_DELIVERABLE_PROCESS_PVT.RestoreDelsToPrevDocVers with G_EXC_UNEXPECTED_ERROR');
13360: END IF;
13361:
13362: IF prev_vers_del_csr %ISOPEN THEN
13363: CLOSE prev_vers_del_csr;
13401:
13402: BEGIN
13403:
13404: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
13405: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Inside OKC_DELIVERABLE_PROCESS_PVT.delete_del_attach_and_history'||to_char(p_del_id));
13406: END IF;
13407: -- delete deliverables status history
13408: DELETE FROM okc_del_status_history
13409: WHERE deliverable_id = p_del_id;
13413: ,p_pk1_value => p_del_id
13414: ,x_result => l_result);
13415: x_return_status := l_result;
13416: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
13417: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.delete_del_attach_and_history');
13418: END IF;
13419:
13420: EXCEPTION
13421: WHEN FND_API.G_EXC_ERROR THEN
13419:
13420: EXCEPTION
13421: WHEN FND_API.G_EXC_ERROR THEN
13422: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
13423: FND_LOG.STRING( FND_LOG.LEVEL_ERROR ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.delete_del_attach_and_history with G_EXC_ERROR');
13424: END IF;
13425: x_return_status := G_RET_STS_ERROR;
13426: FND_MSG_PUB.Count_And_Get(
13427: p_count => x_msg_count,
13429: );
13430:
13431: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
13432: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
13433: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.delete_del_attach_and_history with G_EXC_UNEXPECTED_ERROR');
13434: END IF;
13435: x_return_status := G_RET_STS_UNEXP_ERROR;
13436: FND_MSG_PUB.Count_And_Get(
13437: p_count => x_msg_count,
13439: );
13440:
13441: WHEN OTHERS THEN
13442: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
13443: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: leaving OKC_DELIVERABLE_PROCESS_PVT.delete_del_attach_and_history with G_EXC_UNEXPECTED_ERROR');
13444: END IF;
13445: x_return_status := G_RET_STS_UNEXP_ERROR;
13446: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
13447: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,l_api_name);
13755:
13756:
13757:
13758: /**************************/
13759: END OKC_DELIVERABLE_PROCESS_PVT;