407: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'1000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
408: END IF;
409: Okc_Api.Set_Message(G_APP_NAME,
410: 'OKC_DEL_ERR_EVT_DTLS');
411: RAISE FND_API.G_EXC_ERROR;
412:
413: END;
414:
415: /* FUNCTION isQaMessageAlreadyExist(p_event_id NUMBER,
457: END IF;
458: IF p_event_id is NULL THEN
459: Okc_Api.Set_Message(G_APP_NAME,
460: 'OKC_DEL_NOT_RSLV_EVTS');
461: RAISE FND_API.G_EXC_ERROR;
462:
463: END IF;
464:
465: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
575: Carry forward original deliverable id. Copy attachments.
576: ***/
577: PROCEDURE copy_del_for_amendment (
578: p_api_version IN NUMBER,
579: p_init_msg_list IN VARCHAR2:=FND_API.G_FALSE,
580: p_source_doc_id IN NUMBER,
581: p_source_doc_type IN VARCHAR2,
582: p_target_doc_id IN NUMBER,
583: p_target_doc_type IN VARCHAR2,
838: Okc_Api.Set_Message(G_APP_NAME
839: ,l_resolved_msg_name,
840: p_token1 => 'DEL_TOKEN',
841: p_token1_value => l_resolved_token);
842: RAISE FND_API.G_EXC_ERROR;
843: END IF;
844: END IF; -- IF delRecTab(i).RELATIVE_ST_DATE_EVENT_ID is not null
845:
846: IF delRecTab(i).RELATIVE_END_DATE_EVENT_ID is not null THEN
867: ,l_resolved_msg_name,
868: p_token1 => 'DEL_TOKEN',
869: p_token1_value => l_resolved_token);
870:
871: RAISE FND_API.G_EXC_ERROR;
872: END IF;
873: END IF; -- IF delRecTab(i).RELATIVE_END_DATE_EVENT_ID is not null
874:
875: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1308: x_msg_count,
1309: x_msg_data,
1310: x_errorcode
1311: );
1312: if x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1313: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1314: END IF;
1315: END LOOP;
1316: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1309: x_msg_data,
1310: x_errorcode
1311: );
1312: if x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1313: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1314: END IF;
1315: END LOOP;
1316: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1317: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'119: New deliverables inserted');
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
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
1366: FND_MSG_PUB.Count_And_Get(
1367: p_count => x_msg_count,
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
1965: ***/
1966:
1967: PROCEDURE copy_deliverables (
1968: p_api_version IN NUMBER,
1969: p_init_msg_list IN VARCHAR2:=FND_API.G_FALSE,
1970: p_source_doc_id IN NUMBER,
1971: p_source_doc_type IN VARCHAR2,
1972: p_target_doc_id IN NUMBER,
1973: p_target_doc_type IN VARCHAR2,
3106: x_msg_count,
3107: x_msg_data,
3108: x_errorcode
3109: );
3110: if x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3111: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3112: END IF;
3113: END LOOP;
3114: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3107: x_msg_data,
3108: x_errorcode
3109: );
3110: if x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3111: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3112: END IF;
3113: END LOOP;
3114: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3115: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,
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
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));
3176: p_count => x_msg_count,
3177: p_data => x_msg_data
3178: );
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));
3876: x_msg_count => l_msg_count,
3877: x_return_status => l_return_status);
3878:
3879: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
3880: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3881: END IF;
3882:
3883: END IF;
3884: IF del_ins_cur %ISOPEN THEN
4154: x_msg_count,
4155: x_msg_data,
4156: x_errorcode
4157: );
4158: if x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4159: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4160: END IF;
4161: END LOOP;
4162:
4155: x_msg_data,
4156: x_errorcode
4157: );
4158: if x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4159: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4160: END IF;
4161: END LOOP;
4162:
4163:
4247: END IF;
4248:
4249: x_return_status := l_return_status;
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));
4267: FND_MSG_PUB.Count_And_Get(
4268: p_count => x_msg_count,
4269: p_data => x_msg_data
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));
4775: x_msg_count,
4776: x_msg_data,
4777: x_errorcode
4778: );
4779: if x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4780: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4781: END IF;
4782: END LOOP;
4783:
4776: x_msg_data,
4777: x_errorcode
4778: );
4779: if x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4780: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4781: END IF;
4782: END LOOP;
4783:
4784: -- insert records code changed for 8i compatability bug#3307941
4839: END IF;
4840:
4841: x_return_status := l_return_status;
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));
4854: p_count => x_msg_count,
4855: p_data => x_msg_data
4856: );
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));
5078: END IF;
5079: x_return_status := l_return_status;
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
5090: FND_MSG_PUB.Count_And_Get(
5091: p_count => x_msg_count,
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
5178: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: leaving ');
5179: END IF;
5180: x_return_status := l_return_status;
5181: EXCEPTION
5182: WHEN FND_API.G_EXC_ERROR THEN
5183: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5184: FND_LOG.STRING( FND_LOG.LEVEL_ERROR ,g_module||l_api_name,'100: leaving with G_EXC_ERROR');
5185: END IF;
5186: x_return_status := G_RET_STS_ERROR;
5188: p_count => x_msg_count,
5189: p_data => x_msg_data
5190: );
5191:
5192: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5193: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5194: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: leaving with G_EXC_UNEXPECTED_ERROR');
5195: END IF;
5196: x_return_status := G_RET_STS_UNEXP_ERROR;
5344: -- disable deliverables that are currently being managed.
5345: -- before activating deliverables on new version
5346: disable_deliverables (
5347: p_api_version => l_api_version ,
5348: p_init_msg_list => FND_API.G_FALSE ,
5349: p_doc_id => p_doc_id ,
5350: p_doc_version => p_doc_version ,
5351: p_doc_type => p_doc_type ,
5352: x_msg_data => l_msg_data ,
5418: ,delStsTab(i).LAST_UPDATE_LOGIN
5419: );
5420: END LOOP;
5421: ELSE
5422: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5423: END IF;
5424: END IF;
5425: CLOSE del_cancel_cur;
5426: **/
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
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
5443: p_count => x_msg_count,
5444: p_data => x_msg_data
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
5534: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,l_api_name);
5535: END IF;
5536: IF FND_MSG_PUB.Count_Msg > 0 Then
5537: FOR I IN 1..FND_MSG_PUB.Count_Msg LOOP
5538: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MSG_PUB.Get(i,p_encoded =>FND_API.G_FALSE ));
5539: END LOOP;
5540: END IF;
5541: FND_MSG_PUB.initialize;
5542:
5645: l_resolved_msg_name := OKC_API.resolve_message('OKC_DEL_OVERDUE_NTF_SUBJECT',selected_dels(i).business_document_type);
5646:
5647: okc_deliverable_wf_pvt.deliverables_notifier(
5648: p_api_version => 1.0,
5649: p_init_msg_list => FND_API.G_TRUE,
5650: p_deliverable_id => selected_dels(i).deliverable_id,
5651: p_deliverable_name => selected_dels(i).deliverable_name,
5652: p_deliverable_type => selected_dels(i).deliverable_type,
5653: p_business_document_id => selected_dels(i).business_document_id,
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
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:
5726: FND_MSG_PUB.Count_And_Get(
5727: p_count => x_msg_count,
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:
5811: l_return_status := okc_api.g_ret_sts_error;
5812: RAISE APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION;
5813: IF FND_MSG_PUB.Count_Msg > 0 Then
5814: FOR I IN 1..FND_MSG_PUB.Count_Msg LOOP
5815: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MSG_PUB.Get(i,p_encoded =>FND_API.G_FALSE ));
5816: END LOOP;
5817: END IF;
5818: FND_MSG_PUB.initialize;
5819: WHEN OTHERS THEN
5823: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,l_api_name);
5824: END IF;
5825: IF FND_MSG_PUB.Count_Msg > 0 Then
5826: FOR I IN 1..FND_MSG_PUB.Count_Msg LOOP
5827: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MSG_PUB.Get(i,p_encoded =>FND_API.G_FALSE ));
5828: END LOOP;
5829: END IF;
5830: FND_MSG_PUB.initialize;
5831:
6019: l_resolved_msg_name := OKC_API.resolve_message('OKC_DEL_BEFOREDUE_NTF_SUBJECT',delRecTab(i).business_document_type);
6020:
6021: okc_deliverable_wf_pvt.deliverables_notifier(
6022: p_api_version => 1.0,
6023: p_init_msg_list => FND_API.G_TRUE,
6024: p_deliverable_id => delRecTab(i).deliverable_id,
6025: p_deliverable_name => delRecTab(i).deliverable_name,
6026: p_deliverable_type => delRecTab(i).deliverable_type,
6027: p_business_document_id => delRecTab(i).business_document_id,
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
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
6100: p_count => x_msg_count,
6101: p_data => x_msg_data
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
6179: l_return_status := okc_api.g_ret_sts_error;
6180: RAISE APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION;
6181: IF FND_MSG_PUB.Count_Msg > 0 Then
6182: FOR I IN 1..FND_MSG_PUB.Count_Msg LOOP
6183: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MSG_PUB.Get(i,p_encoded =>FND_API.G_FALSE ));
6184: END LOOP;
6185: END IF;
6186: FND_MSG_PUB.initialize;
6187: WHEN OTHERS THEN
6191: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,l_api_name);
6192: END IF;
6193: IF FND_MSG_PUB.Count_Msg > 0 Then
6194: FOR I IN 1..FND_MSG_PUB.Count_Msg LOOP
6195: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MSG_PUB.Get(i,p_encoded =>FND_API.G_FALSE ));
6196: END LOOP;
6197: END IF;
6198: FND_MSG_PUB.initialize;
6199:
6384: l_resolved_msg_name := OKC_API.resolve_message('OKC_DEL_ESCALATE_NTF_SUBJECT',delRecTab(i).business_document_type);
6385:
6386: okc_deliverable_wf_pvt.deliverables_notifier(
6387: p_api_version => 1.0,
6388: p_init_msg_list => FND_API.G_TRUE,
6389: p_deliverable_id => delRecTab(i).deliverable_id,
6390: p_deliverable_name => delRecTab(i).deliverable_name,
6391: p_deliverable_type => delRecTab(i).deliverable_type,
6392: p_business_document_id => delRecTab(i).business_document_id,
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
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
6465: p_count => x_msg_count,
6466: p_data => x_msg_data
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
6577: delete the deliverable, status history and attachments.
6578: ***/
6579: PROCEDURE purge_doc_deliverables (
6580: p_api_version IN NUMBER,
6581: p_init_msg_list IN VARCHAR2:=FND_API.G_FALSE,
6582: p_doc_table IN OKC_TERMS_UTIL_GRP.doc_tbl_type,
6583: x_msg_data OUT NOCOPY VARCHAR2,
6584: x_msg_count OUT NOCOPY NUMBER,
6585: x_return_status OUT NOCOPY VARCHAR2)
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
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;
6626: p_count => x_msg_count,
6627: p_data => x_msg_data
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;
6707: -- Call the CDRL API.
6708: IF (p_retain_exhibits = 'N') THEN
6709: OKC_CDRL_PVT.delete_doc_exhibits (
6710: p_api_version => 1.0,
6711: p_init_msg_list => FND_API.G_FALSE,
6712: p_commit => FND_API.G_FALSE,
6713: p_doc_class => NULL, -- Value will be Derived in the API
6714: p_doc_type => p_doc_type,
6715: p_doc_id => p_doc_id,
6708: IF (p_retain_exhibits = 'N') THEN
6709: OKC_CDRL_PVT.delete_doc_exhibits (
6710: p_api_version => 1.0,
6711: p_init_msg_list => FND_API.G_FALSE,
6712: p_commit => FND_API.G_FALSE,
6713: p_doc_class => NULL, -- Value will be Derived in the API
6714: p_doc_type => p_doc_type,
6715: p_doc_id => p_doc_id,
6716: p_doc_version => p_doc_version,
6723: END IF;
6724:
6725: --------------------------------------------
6726: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
6727: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
6728: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
6729: RAISE FND_API.G_EXC_ERROR ;
6730: END IF;
6731: --------------------------------------------
6725: --------------------------------------------
6726: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
6727: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
6728: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
6729: RAISE FND_API.G_EXC_ERROR ;
6730: END IF;
6731: --------------------------------------------
6732:
6733:
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
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
6793: p_count => x_msg_count,
6794: p_data => x_msg_data
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
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
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;
6892: p_count => x_msg_count,
6893: p_data => x_msg_data
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;
6931: /*** added new signature bug#3192512**/
6932:
6933: FUNCTION get_last_amendment_date (
6934: p_api_version IN NUMBER
6935: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
6936:
6937: ,x_return_status OUT NOCOPY VARCHAR2
6938: ,x_msg_data OUT NOCOPY VARCHAR2
6939: ,x_msg_count OUT NOCOPY NUMBER
7643: x_return_status := l_return_status;
7644: px_qa_result_tbl := l_qa_result_tbl;
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:
7651:
7652: x_return_status := G_RET_STS_ERROR;
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:
7886: x_return_status := l_return_status;
7887: px_qa_result_tbl := l_qa_result_tbl;
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:
7894:
7895: x_return_status := G_RET_STS_ERROR;
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:
8036: x_return_status := l_return_status;
8037: px_qa_result_tbl := l_qa_result_tbl;
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:
8044:
8045: x_return_status := G_RET_STS_ERROR;
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:
8226: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8227: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'leaving check_internal_contacts_valid without error');
8228: END IF;
8229: EXCEPTION
8230: WHEN FND_API.G_EXC_ERROR THEN
8231: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8232: FND_LOG.STRING( FND_LOG.LEVEL_ERROR ,g_module||l_api_name,'100: leaving check_internal_contacts_valid with G_EXC_ERROR');
8233: END IF;
8234:
8234:
8235: x_return_status := G_RET_STS_ERROR;
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:
8407: x_return_status := l_return_status;
8408: px_qa_result_tbl := l_qa_result_tbl;
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:
8415:
8416: x_return_status := G_RET_STS_ERROR;
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:
8848: x_return_status := l_return_status;
8849: px_qa_result_tbl := l_qa_result_tbl;
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;
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
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:
8974: x_return_status := l_return_status;
8975: px_qa_result_tbl := l_qa_result_tbl;
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:
8982:
8983: x_return_status := G_RET_STS_ERROR;
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:
9462: l_short_desc := get_lookup_meaning('OKC_TERM_QA_LIST',l_qa_code);
9463:
9464: l_doc_type_class := getDocTypeClass(p_bus_doctype => del_rec.business_document_type);
9465: If (l_doc_type_class IS NULL) then
9466: RAISE FND_API.G_EXC_ERROR;
9467: End If;
9468: l_del_type_int_flag := getDelTypeIntFlag(p_document_type_class => l_doc_type_class
9469: ,p_deliverable_type => del_rec.deliverable_type);
9470: If (l_del_type_int_flag IS NULL) then
9467: End If;
9468: l_del_type_int_flag := getDelTypeIntFlag(p_document_type_class => l_doc_type_class
9469: ,p_deliverable_type => del_rec.deliverable_type);
9470: If (l_del_type_int_flag IS NULL) then
9471: RAISE FND_API.G_EXC_ERROR;
9472: End If;
9473:
9474: If (l_doc_type_class = 'REPOSITORY'
9475: AND l_del_type_int_flag = 'N'
9516: px_qa_result_tbl := l_qa_result_tbl;
9517:
9518:
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;
9524: END IF;
9525: x_return_status := G_RET_STS_ERROR;
9526:
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;
9560: * OKC_API.G_RET_STS_UNEXP_ERROR is unexpected error
9561: */
9562: PROCEDURE validate_deliverable_for_qa (
9563: p_api_version IN NUMBER,
9564: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
9565: p_doc_type IN VARCHAR2,
9566: p_doc_id IN NUMBER,
9567: p_mode IN VARCHAR2,
9568: p_bus_doc_date_events_tbl IN OKC_TERMS_QA_GRP.BUSDOCDATES_TBL_TYPE,
9672: x_return_status);
9673: IF p_doc_id = NULL THEN
9674: Okc_Api.Set_Message(G_APP_NAME
9675: ,'OKC_DEL_NO_PARAMS');
9676: RAISE FND_API.G_EXC_ERROR;
9677: END IF;
9678: IF p_doc_type = NULL THEN
9679: Okc_Api.Set_Message(G_APP_NAME
9680: ,'OKC_DEL_NO_PARAMS');
9677: END IF;
9678: IF p_doc_type = NULL THEN
9679: Okc_Api.Set_Message(G_APP_NAME
9680: ,'OKC_DEL_NO_PARAMS');
9681: RAISE FND_API.G_EXC_ERROR;
9682: END IF;
9683: IF p_mode = NULL THEN
9684: Okc_Api.Set_Message(G_APP_NAME
9685: ,'OKC_DEL_NO_PARAMS');
9682: END IF;
9683: IF p_mode = NULL THEN
9684: Okc_Api.Set_Message(G_APP_NAME
9685: ,'OKC_DEL_NO_PARAMS');
9686: RAISE FND_API.G_EXC_ERROR;
9687: END IF;
9688:
9689:
9690:
9694: RAISE OKC_API.G_EXCEPTION_ERROR;
9695: END IF;
9696:
9697: -- Initialize message list if p_init_msg_list is set to TRUE.
9698: IF FND_API.to_Boolean( p_init_msg_list ) THEN
9699: FND_MSG_PUB.initialize;
9700: END IF;
9701:
9702: --initialize l_qa_result_tbl
9948: p_severity => l_amendments_severity,
9949: px_qa_result_tbl => l_qa_result_tbl,
9950: x_return_status => l_return_status);
9951: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
9952: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
9953: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
9954: RAISE FND_API.G_EXC_ERROR ;
9955: END IF;
9956:
9950: x_return_status => l_return_status);
9951: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
9952: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
9953: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
9954: RAISE FND_API.G_EXC_ERROR ;
9955: END IF;
9956:
9957: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
9958: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'finished checking amendments');
9967: p_severity => l_notifications_severity,
9968: px_qa_result_tbl => l_qa_result_tbl,
9969: x_return_status => l_return_status);
9970: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
9971: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
9972: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
9973: RAISE FND_API.G_EXC_ERROR ;
9974: END IF;
9975:
9969: x_return_status => l_return_status);
9970: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
9971: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
9972: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
9973: RAISE FND_API.G_EXC_ERROR ;
9974: END IF;
9975:
9976: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
9977: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'finished checking notifications');
9986: p_severity => l_int_contact_severity,
9987: px_qa_result_tbl => l_qa_result_tbl,
9988: x_return_status => l_return_status);
9989: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
9990: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
9991: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
9992: RAISE FND_API.G_EXC_ERROR ;
9993: END IF;
9994:
9988: x_return_status => l_return_status);
9989: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
9990: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
9991: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
9992: RAISE FND_API.G_EXC_ERROR ;
9993: END IF;
9994:
9995: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
9996: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'finished checking internal contacts');
10007: p_severity => l_int_contact_valid_severity,
10008: px_qa_result_tbl => l_qa_result_tbl,
10009: x_return_status => l_return_status);
10010: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
10011: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
10012: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
10013: RAISE FND_API.G_EXC_ERROR ;
10014: END IF;
10015:
10009: x_return_status => l_return_status);
10010: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
10011: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
10012: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
10013: RAISE FND_API.G_EXC_ERROR ;
10014: END IF;
10015:
10016: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
10017: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'finished checking internal contacts valid');
10030: px_qa_result_tbl => l_qa_result_tbl,
10031: x_return_status => l_return_status);
10032:
10033: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
10034: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
10035: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
10036: RAISE FND_API.G_EXC_ERROR ;
10037: END IF;
10038:
10032:
10033: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
10034: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
10035: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
10036: RAISE FND_API.G_EXC_ERROR ;
10037: END IF;
10038:
10039: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
10040: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module
10052: p_severity =>l_ext_contact_severity,
10053: px_qa_result_tbl => l_qa_result_tbl,
10054: x_return_status => l_return_status);
10055: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
10056: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
10057: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
10058: RAISE FND_API.G_EXC_ERROR ;
10059: END IF;
10060: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
10054: x_return_status => l_return_status);
10055: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
10056: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
10057: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
10058: RAISE FND_API.G_EXC_ERROR ;
10059: END IF;
10060: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
10061: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'finished checking external contacts');
10062: END IF;
10075: p_doc_type => p_doc_type,
10076: px_qa_result_tbl => l_qa_result_tbl,
10077: x_return_status => l_return_status);
10078: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
10079: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
10080: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
10081: RAISE FND_API.G_EXC_ERROR ;
10082: END IF;
10083: ELSE --schedule_type <> SYSTEM
10077: x_return_status => l_return_status);
10078: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
10079: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
10080: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
10081: RAISE FND_API.G_EXC_ERROR ;
10082: END IF;
10083: ELSE --schedule_type <> SYSTEM
10084: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
10085: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name, 'For schedule type NOT IN (system or null), checking due dates is not required');
10126: x_return_status => l_return_status);
10127:
10128:
10129: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
10130: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
10131: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
10132: RAISE FND_API.G_EXC_ERROR ;
10133: END IF;
10134: END LOOP;
10128:
10129: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
10130: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
10131: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
10132: RAISE FND_API.G_EXC_ERROR ;
10133: END IF;
10134: END LOOP;
10135:
10136: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
10185: px_qa_result_tbl => l_qa_result_tbl,
10186: x_return_status => l_return_status);
10187:
10188: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
10189: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
10190: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
10191: RAISE FND_API.G_EXC_ERROR ;
10192: END IF;
10193: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
10187:
10188: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
10189: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
10190: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
10191: RAISE FND_API.G_EXC_ERROR ;
10192: END IF;
10193: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
10194: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'finished checking variable usage');
10195: END IF;
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
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;
10279: p_count => x_msg_count,
10280: p_data => x_msg_data
10281: );
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;
10338:
10339:
10340: PROCEDURE delete_del_status_hist_attach(
10341: p_api_version IN NUMBER,
10342: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
10343: p_deliverable_id IN NUMBER,
10344: p_bus_doc_id IN NUMBER,
10345: p_bus_doc_version IN NUMBER,
10346: p_bus_doc_type IN VARCHAR2,
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
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:
10402: p_count => x_msg_count,
10403: p_data => x_msg_data
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:
10622: /*** added new signature bug#3192512**/
10623:
10624: FUNCTION deliverables_exist(
10625: p_api_version IN NUMBER,
10626: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
10627: x_return_status OUT NOCOPY VARCHAR2,
10628: x_msg_data OUT NOCOPY VARCHAR2,
10629: x_msg_count OUT NOCOPY NUMBER,
10630: p_doctype IN VARCHAR2,
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
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;
10771: p_count => x_msg_count,
10772: p_data => x_msg_data
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;
10895: IF exhibit_code_tbl.Count > 0 THEN
10896: FOR i IN 1..exhibit_code_tbl.Count LOOP
10897: OKC_CDRL_PVT.delete_exhibit_for_cdrl (
10898: p_api_version => 1.0,
10899: p_init_msg_list => FND_API.G_FALSE,
10900: p_commit => FND_API.G_FALSE,
10901: p_doc_class => NULL, -- Value will be Derived in the API
10902: p_doc_type => p_doc_type,
10903: p_doc_id => p_doc_id,
10896: FOR i IN 1..exhibit_code_tbl.Count LOOP
10897: OKC_CDRL_PVT.delete_exhibit_for_cdrl (
10898: p_api_version => 1.0,
10899: p_init_msg_list => FND_API.G_FALSE,
10900: p_commit => FND_API.G_FALSE,
10901: p_doc_class => NULL, -- Value will be Derived in the API
10902: p_doc_type => p_doc_type,
10903: p_doc_id => p_doc_id,
10904: p_doc_version => -99,
10910: p_validate_before_delete => 'Y'
10911: ) ;
10912: --------------------------------------------
10913: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
10914: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
10915: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
10916: RAISE FND_API.G_EXC_ERROR ;
10917: END IF;
10918: --------------------------------------------
10912: --------------------------------------------
10913: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
10914: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
10915: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
10916: RAISE FND_API.G_EXC_ERROR ;
10917: END IF;
10918: --------------------------------------------
10919: END LOOP;
10920: END IF;
10967: /*** added new signature bug#3192512**/
10968:
10969: FUNCTION deliverables_amended(
10970: p_api_version IN NUMBER,
10971: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
10972:
10973: x_return_status OUT NOCOPY VARCHAR2,
10974: x_msg_data OUT NOCOPY VARCHAR2,
10975: x_msg_count OUT NOCOPY NUMBER,
11231: ***/
11232:
11233: PROCEDURE copy_response_deliverables (
11234: p_api_version IN NUMBER,
11235: p_init_msg_list IN VARCHAR2:=FND_API.G_FALSE,
11236: p_source_doc_id IN NUMBER,
11237: p_source_doc_type IN VARCHAR2,
11238: p_target_doc_id IN NUMBER,
11239: p_target_doc_type IN VARCHAR2,
11791: x_msg_count,
11792: x_msg_data,
11793: x_errorcode
11794: );
11795: if x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11796: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11797: END IF;
11798: END LOOP;
11799: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
11792: x_msg_data,
11793: x_errorcode
11794: );
11795: if x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11796: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11797: END IF;
11798: END LOOP;
11799: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
11800: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Done Creating Deliverables ');
11875: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
11876: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,':leaving ');
11877: END IF;
11878: EXCEPTION
11879: WHEN FND_API.G_EXC_ERROR THEN
11880: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
11881: FND_LOG.STRING( FND_LOG.LEVEL_ERROR ,g_module||l_api_name,'100: leaving with G_EXC_ERROR: '||
11882: substr(sqlerrm,1,200));
11883: END IF;
11895: p_count => x_msg_count,
11896: p_data => x_msg_data
11897: );
11898:
11899: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
11900: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
11901: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name
11902: ,'leaving with G_EXC_UNEXPECTED_ERROR :'||substr(sqlerrm,1,200));
11903: END IF;
11998: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: leaving ');
11999: END IF;
12000: x_return_status := l_return_status;
12001: EXCEPTION
12002: WHEN FND_API.G_EXC_ERROR THEN
12003: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
12004: FND_LOG.STRING( FND_LOG.LEVEL_ERROR ,g_module||l_api_name,'100: leaving with G_EXC_ERROR');
12005: END IF;
12006: x_return_status := G_RET_STS_ERROR;
12008: p_count => x_msg_count,
12009: p_data => x_msg_data
12010: );
12011:
12012: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
12013: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
12014: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'100: leaving with G_EXC_UNEXPECTED_ERROR');
12015: END IF;
12016: x_return_status := G_RET_STS_UNEXP_ERROR;
12047: to the variable.
12048: ***/
12049: FUNCTION deliverable_amendment_exists (
12050: p_api_version IN NUMBER,
12051: p_init_msg_list IN VARCHAR2:=FND_API.G_FALSE,
12052: p_bus_doc_type IN VARCHAR2,
12053: p_bus_doc_id IN NUMBER,
12054: p_variable_code IN VARCHAR2,
12055: x_msg_data OUT NOCOPY VARCHAR2,
12090: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Inside the API');
12091: END IF;
12092:
12093: -- Standard call to check for call compatibility.
12094: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
12095: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12096: END IF;
12097:
12098: -- Initialize message list if p_init_msg_list is set to TRUE.
12091: END IF;
12092:
12093: -- Standard call to check for call compatibility.
12094: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
12095: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12096: END IF;
12097:
12098: -- Initialize message list if p_init_msg_list is set to TRUE.
12099: IF FND_API.to_Boolean( p_init_msg_list ) THEN
12095: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12096: END IF;
12097:
12098: -- Initialize message list if p_init_msg_list is set to TRUE.
12099: IF FND_API.to_Boolean( p_init_msg_list ) THEN
12100: FND_MSG_PUB.initialize;
12101: END IF;
12102:
12103: -- Initialize API return status to success
12247: -- bug#4075168 New API for Template Revision
12248: -- bug#4083525 New param p_copy_deliverables
12249: PROCEDURE CopyDelForTemplateRevision(
12250: p_api_version IN NUMBER,
12251: p_init_msg_list IN VARCHAR2:=FND_API.G_FALSE,
12252: p_source_doc_id IN NUMBER,
12253: p_source_doc_type IN VARCHAR2,
12254: p_target_doc_id IN NUMBER,
12255: p_target_doc_type IN VARCHAR2,
12630: x_msg_count,
12631: x_msg_data,
12632: x_errorcode
12633: );
12634: if x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
12635: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12636: END IF;
12637: END LOOP;
12638: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
12631: x_msg_data,
12632: x_errorcode
12633: );
12634: if x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
12635: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12636: END IF;
12637: END LOOP;
12638: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
12639: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,
12721: --Pre-reqs : None.
12722: --Parameters :
12723: --IN : p_api_version IN NUMBER Required
12724: -- : p_init_msg_list IN VARCHAR2 Optional
12725: -- Default = FND_API.G_FALSE
12726: -- : p_commit IN VARCHAR2 Optional
12727: -- Default = FND_API.G_FALSE
12728: -- : p_bus_doc_id IN NUMBER Required
12729: -- Contract ID of the contract to be deleted
12723: --IN : p_api_version IN NUMBER Required
12724: -- : p_init_msg_list IN VARCHAR2 Optional
12725: -- Default = FND_API.G_FALSE
12726: -- : p_commit IN VARCHAR2 Optional
12727: -- Default = FND_API.G_FALSE
12728: -- : p_bus_doc_id IN NUMBER Required
12729: -- Contract ID of the contract to be deleted
12730: -- : p_bus_doc_type IN VARCHAR2 Required
12731: -- Type of the contract to be deleted
12746: --Note :
12747: -- End of comments
12748: PROCEDURE deleteDeliverables(
12749: p_api_version IN NUMBER,
12750: p_init_msg_list IN VARCHAR2:=FND_API.G_FALSE,
12751: p_commit IN VARCHAR2:=FND_API.G_FALSE,
12752: p_bus_doc_id IN NUMBER,
12753: p_bus_doc_type IN VARCHAR2,
12754: p_bus_doc_version IN NUMBER,
12747: -- End of comments
12748: PROCEDURE deleteDeliverables(
12749: p_api_version IN NUMBER,
12750: p_init_msg_list IN VARCHAR2:=FND_API.G_FALSE,
12751: p_commit IN VARCHAR2:=FND_API.G_FALSE,
12752: p_bus_doc_id IN NUMBER,
12753: p_bus_doc_type IN VARCHAR2,
12754: p_bus_doc_version IN NUMBER,
12755: p_prev_del_active IN VARCHAR2 := 'N',
12906: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'p_revert_dels: '|| p_revert_dels);
12907: END IF;
12908:
12909: -- Standard call to check for call compatibility.
12910: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
12911: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12912: END IF;
12913:
12914: -- Initialize message list if p_init_msg_list is set to TRUE.
12907: END IF;
12908:
12909: -- Standard call to check for call compatibility.
12910: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
12911: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12912: END IF;
12913:
12914: -- Initialize message list if p_init_msg_list is set to TRUE.
12915: IF FND_API.to_Boolean( p_init_msg_list ) THEN
12911: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12912: END IF;
12913:
12914: -- Initialize message list if p_init_msg_list is set to TRUE.
12915: IF FND_API.to_Boolean( p_init_msg_list ) THEN
12916: FND_MSG_PUB.initialize;
12917: END IF;
12918:
12919: -- If the flag p_revert_dels is "N" then this API is called to delete
12925: 'Deleting deliverables with document version equal to -99');
12926: END IF;
12927:
12928: delete_deliverables(p_api_version => 1.0,
12929: p_init_msg_list => FND_API.G_FALSE,
12930: p_doc_id => p_bus_doc_id,
12931: p_doc_type => p_bus_doc_type,
12932: p_doc_version => -99,
12933: x_return_status => x_return_status,
12960: 'Deleting deliverables with document version equal to -99');
12961: END IF;
12962:
12963: delete_deliverables(p_api_version => 1.0,
12964: p_init_msg_list => FND_API.G_FALSE,
12965: p_doc_id => p_bus_doc_id,
12966: p_doc_type => p_bus_doc_type,
12967: p_doc_version => -99,
12968: x_return_status => x_return_status,
13280: x_msg_count,
13281: x_msg_data,
13282: x_errorcode
13283: );
13284: if x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
13285: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
13286: END IF;
13287:
13288:
13281: x_msg_data,
13282: x_errorcode
13283: );
13284: if x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
13285: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
13286: END IF;
13287:
13288:
13289: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
13323: 'Deleting deliverables with document version equal to' || to_char(p_bus_doc_version - 1));
13324: END IF;
13325:
13326: delete_deliverables(p_api_version => 1.0,
13327: p_init_msg_list => FND_API.G_FALSE,
13328: p_doc_id => p_bus_doc_id,
13329: p_doc_type => p_bus_doc_type,
13330: p_doc_version => p_bus_doc_version - 1,
13331: x_return_status => x_return_status,
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
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;
13427: p_count => x_msg_count,
13428: p_data => x_msg_data
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;
13515: p_old_dtlevel_col_value_pairs => l_dtlevel_col_value_pairs,
13516: p_new_pk_col_value_pairs => to_pk_col_value_pairs,
13517: p_new_data_level_id => l_main_data_level_id,
13518: p_new_dtlevel_col_value_pairs => l_dtlevel_col_value_pairs,
13519: p_commit => fnd_api.g_false,
13520: x_return_status => x_return_status,
13521: x_errorcode => x_errorcode,
13522: x_msg_count => x_msg_count,
13523: x_msg_data => x_msg_data