405: WHEN OTHERS THEN
406: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
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;
455: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
456: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Entered '||G_PKG_NAME ||'.'||l_api_name);
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;
616: delRecTab delRecTabType;
617: delInsTab delRecTabType;
618: delNewTab delRecTabType;
619: l_api_name CONSTANT VARCHAR2(30) :='copy_del_for_amendment';
620: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
621: l_deliverable_id NUMBER;
622: l_from_pk1_value VARCHAR2(100);
623: l_result BOOLEAN;
624: l_copy_attachments VARCHAR2(1);
828:
829: -- raise error if could not resolve target event id
830: IF l_target_start_event_id is null THEN
831: --Acq Plan Message Cleanup
832: l_resolved_msg_name := OKC_API.resolve_message('OKC_DEL_COULD_NT_RESOLVE_EVT',del_rec.business_document_type);
833: l_resolved_token := OKC_API.resolve_del_token(del_rec.business_document_type);
834:
835: /* Okc_Api.Set_Message(G_APP_NAME
836: ,'OKC_DEL_COULD_NT_RESOLVE_EVT');*/
829: -- raise error if could not resolve target event id
830: IF l_target_start_event_id is null THEN
831: --Acq Plan Message Cleanup
832: l_resolved_msg_name := OKC_API.resolve_message('OKC_DEL_COULD_NT_RESOLVE_EVT',del_rec.business_document_type);
833: l_resolved_token := OKC_API.resolve_del_token(del_rec.business_document_type);
834:
835: /* Okc_Api.Set_Message(G_APP_NAME
836: ,'OKC_DEL_COULD_NT_RESOLVE_EVT');*/
837:
831: --Acq Plan Message Cleanup
832: l_resolved_msg_name := OKC_API.resolve_message('OKC_DEL_COULD_NT_RESOLVE_EVT',del_rec.business_document_type);
833: l_resolved_token := OKC_API.resolve_del_token(del_rec.business_document_type);
834:
835: /* Okc_Api.Set_Message(G_APP_NAME
836: ,'OKC_DEL_COULD_NT_RESOLVE_EVT');*/
837:
838: Okc_Api.Set_Message(G_APP_NAME
839: ,l_resolved_msg_name,
834:
835: /* Okc_Api.Set_Message(G_APP_NAME
836: ,'OKC_DEL_COULD_NT_RESOLVE_EVT');*/
837:
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;
856: -- raise error if could not resolve target event id
857: IF l_target_end_event_id is null THEN
858:
859: --Acq Plan Message Cleanup
860: l_resolved_msg_name := OKC_API.resolve_message('OKC_DEL_COULD_NT_RESOLVE_EVT',del_rec.business_document_type);
861: l_resolved_token := OKC_API.resolve_del_token(del_rec.business_document_type);
862:
863: /* Okc_Api.Set_Message(G_APP_NAME
864: ,'OKC_DEL_COULD_NT_RESOLVE_EVT');*/
857: IF l_target_end_event_id is null THEN
858:
859: --Acq Plan Message Cleanup
860: l_resolved_msg_name := OKC_API.resolve_message('OKC_DEL_COULD_NT_RESOLVE_EVT',del_rec.business_document_type);
861: l_resolved_token := OKC_API.resolve_del_token(del_rec.business_document_type);
862:
863: /* Okc_Api.Set_Message(G_APP_NAME
864: ,'OKC_DEL_COULD_NT_RESOLVE_EVT');*/
865:
859: --Acq Plan Message Cleanup
860: l_resolved_msg_name := OKC_API.resolve_message('OKC_DEL_COULD_NT_RESOLVE_EVT',del_rec.business_document_type);
861: l_resolved_token := OKC_API.resolve_del_token(del_rec.business_document_type);
862:
863: /* Okc_Api.Set_Message(G_APP_NAME
864: ,'OKC_DEL_COULD_NT_RESOLVE_EVT');*/
865:
866: Okc_Api.Set_Message(G_APP_NAME
867: ,l_resolved_msg_name,
862:
863: /* Okc_Api.Set_Message(G_APP_NAME
864: ,'OKC_DEL_COULD_NT_RESOLVE_EVT');*/
865:
866: Okc_Api.Set_Message(G_APP_NAME
867: ,l_resolved_msg_name,
868: p_token1 => 'DEL_TOKEN',
869: p_token1_value => l_resolved_token);
870:
2039: delIdTab delIdTabType;
2040: j PLS_INTEGER := 0;
2041: k PLS_INTEGER := 0;
2042: l_api_name CONSTANT VARCHAR2(30) :='copy_deliverables';
2043: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2044: l_deliverable_id NUMBER;
2045: l_from_pk1_value VARCHAR2(100);
2046: l_result BOOLEAN;
2047: l_copy VARCHAR2(1) := 'N';
3286: p PLS_INTEGER := 0;
3287: TYPE delIdRecType IS RECORD (del_id NUMBER,orig_del_id NUMBER);
3288: TYPE delIdTabType IS TABLE OF delIdRecType;
3289: delIdTab delIdTabType;
3290: l_return_status VARCHAR2(1):= OKC_API.G_RET_STS_SUCCESS;
3291: l_msg_count NUMBER;
3292: l_msg_data VARCHAR2(1000);
3293: l_api_version CONSTANT VARCHAR2(30) := 1.0;
3294: l_recur_parent_id NUMBER;
3869: END LOOP;
3870: -- delete the deliverable definition
3871: delete_deliverable (
3872: p_api_version => l_api_version,
3873: p_init_msg_list => OKC_API.G_FALSE,
3874: p_del_id => delRecTab(i).deliverable_id,
3875: x_msg_data => l_msg_data ,
3876: x_msg_count => l_msg_count,
3877: x_return_status => l_return_status);
3875: x_msg_data => l_msg_data ,
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;
4922:
4923: def_rec def_cur%ROWTYPE;
4924: --TYPE delIdTabType IS TABLE OF NUMBER;
4925: --delIdTab delIdTabType;
4926: l_return_status VARCHAR2(1):= OKC_API.G_RET_STS_SUCCESS;
4927: l_api_name CONSTANT VARCHAR2(30) :='clear_amendment_operation';
4928:
4929: BEGIN
4930:
5055: AND business_document_type = p_doc_type
5056: AND manage_yn = 'Y';
5057: TYPE delIdTabType IS TABLE OF NUMBER;
5058: delIdTab delIdTabType;
5059: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
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
5133: x_return_status OUT NOCOPY VARCHAR2)
5134: IS
5135:
5136: l_api_name CONSTANT VARCHAR2(30) :='create_del_status_history';
5137: l_return_status VARCHAR2(1):= OKC_API.G_RET_STS_SUCCESS;
5138: l_msg_count NUMBER;
5139: l_msg_data VARCHAR2(1000);
5140: l_api_version CONSTANT VARCHAR2(30) := 1.0;
5141: j PLS_INTEGER := 0;
5258:
5259: TYPE delStsTabType IS TABLE OF okc_del_status_history%ROWTYPE;
5260: delStsTab delStsTabType;
5261:
5262: l_return_status VARCHAR2(1):= OKC_API.G_RET_STS_SUCCESS;
5263: l_msg_count NUMBER;
5264: l_msg_data VARCHAR2(1000);
5265: l_api_version CONSTANT VARCHAR2(30) := 1.0;
5266: j PLS_INTEGER := 0;
5376: delStsTab(j).last_update_date := sysdate;
5377: delStsTab(j).last_update_login := Fnd_Global.Login_Id;
5378: END LOOP;
5379:
5380: IF l_return_status = OKC_API.G_RET_STS_SUCCESS THEN
5381: -- BULK UPDATE of status
5382: FORALL i IN delIdTab.FIRST..delIdTab.LAST
5383: UPDATE okc_deliverables
5384: SET
5486: errbuf OUT NOCOPY VARCHAR2,
5487: retcode OUT NOCOPY VARCHAR2)
5488: IS
5489: l_api_name CONSTANT VARCHAR2(30) :='overdue_deliverable_manager';
5490: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
5491: l_msg_count NUMBER;
5492: l_msg_data VARCHAR2(1000);
5493: l_api_version CONSTANT VARCHAR2(30) := 1.0;
5494: l_init_msg_list VARCHAR2(3) := 'T';
5508: x_return_status => l_return_status,
5509: x_msg_count => l_msg_count,
5510: x_msg_data => l_msg_data);
5511: --check return status
5512: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
5513: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5514: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
5515: RAISE OKC_API.G_EXCEPTION_ERROR;
5516: END IF;
5509: x_msg_count => l_msg_count,
5510: x_msg_data => l_msg_data);
5511: --check return status
5512: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
5513: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
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
5510: x_msg_data => l_msg_data);
5511: --check return status
5512: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
5513: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
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');
5511: --check return status
5512: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
5513: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
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;
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
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');
5577: AND business_document_type <> 'TEMPLATE'
5578: AND deliverable_status IN ('OPEN','REJECTED')
5579: AND actual_due_date < trunc(sysdate); -- bug#3617906 removed trunc on actual due date
5580:
5581: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
5582: l_msg_count NUMBER;
5583: l_msg_data VARCHAR2(1000);
5584: l_notification_id NUMBER;
5585: j PLS_INTEGER := 0;
5606: END IF;
5607:
5608: -- call start_activity to create savepoint, check comptability
5609: -- and initialize message list
5610: l_return_status := OKC_API.START_ACTIVITY(l_api_name
5611: ,p_init_msg_list
5612: ,'_PROCESS'
5613: ,x_return_status);
5614:
5612: ,'_PROCESS'
5613: ,x_return_status);
5614:
5615: -- check if activity started successfully
5616: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
5617: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5618: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
5619: RAISE OKC_API.G_EXCEPTION_ERROR;
5620: END IF;
5613: ,x_return_status);
5614:
5615: -- check if activity started successfully
5616: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
5617: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5618: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
5619: RAISE OKC_API.G_EXCEPTION_ERROR;
5620: END IF;
5621:
5614:
5615: -- check if activity started successfully
5616: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
5617: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5618: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
5619: RAISE OKC_API.G_EXCEPTION_ERROR;
5620: END IF;
5621:
5622:
5615: -- check if activity started successfully
5616: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
5617: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5618: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
5619: RAISE OKC_API.G_EXCEPTION_ERROR;
5620: END IF;
5621:
5622:
5623: OPEN del_cur;
5641: FND_FILE.PUT_LINE(FND_FILE.LOG,'Deliverable Id: '||
5642: to_char(selected_dels(i).deliverable_id));
5643:
5644: --Acq Plan Message Cleanup
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,
5682: -- sent to person who launched the concurrent request.
5683: l_return_status := 'S';
5684: END IF;
5685: ELSE
5686: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5687: END IF;
5688:
5689: END LOOP;
5690:
5705: COMMIT;
5706:
5707: END IF;
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;
5775: IS
5776: l_api_name CONSTANT VARCHAR2(30) :='beforedue_deliverable_manager';
5777: l_api_version CONSTANT VARCHAR2(30) := 1.0;
5778: l_init_msg_list VARCHAR2(3) := 'T';
5779: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
5780: l_msg_count NUMBER;
5781: l_msg_data VARCHAR2(1000);
5782: E_Resource_Busy EXCEPTION;
5783: PRAGMA EXCEPTION_INIT(E_Resource_Busy, -00054);
5796: x_msg_count => l_msg_count,
5797: x_msg_data => l_msg_data);
5798:
5799: --check return status
5800: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
5801: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5802: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
5803: RAISE OKC_API.G_EXCEPTION_ERROR;
5804: END IF;
5797: x_msg_data => l_msg_data);
5798:
5799: --check return status
5800: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
5801: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5802: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
5803: RAISE OKC_API.G_EXCEPTION_ERROR;
5804: END IF;
5805:
5798:
5799: --check return status
5800: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
5801: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5802: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
5803: RAISE OKC_API.G_EXCEPTION_ERROR;
5804: END IF;
5805:
5806: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5799: --check return status
5800: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
5801: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5802: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
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');
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;
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 ));
5859: l_api_name CONSTANT VARCHAR2(30) :='beforedue_del_notifier';
5860: l_notification_date DATE;
5861: delRecTab delRecTabType;
5862: delNtfTab delRecTabType;
5863: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
5864: l_msg_count NUMBER;
5865: l_msg_data VARCHAR2(1000);
5866: l_notification_id NUMBER;
5867: l_deliverable_id NUMBER;
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
5881: ,p_init_msg_list
5882: ,'_PROCESS'
5883: ,x_return_status
5884: );
5882: ,'_PROCESS'
5883: ,x_return_status
5884: );
5885: -- check if activity started successfully
5886: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
5887: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5888: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
5889: RAISE OKC_API.G_EXCEPTION_ERROR;
5890: END IF;
5883: ,x_return_status
5884: );
5885: -- check if activity started successfully
5886: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
5887: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5888: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
5889: RAISE OKC_API.G_EXCEPTION_ERROR;
5890: END IF;
5891: ---------------------------------------------------
5884: );
5885: -- check if activity started successfully
5886: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
5887: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5888: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
5889: RAISE OKC_API.G_EXCEPTION_ERROR;
5890: END IF;
5891: ---------------------------------------------------
5892: FOR del_rec IN del_cur LOOP
5885: -- check if activity started successfully
5886: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
5887: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5888: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
5889: RAISE OKC_API.G_EXCEPTION_ERROR;
5890: END IF;
5891: ---------------------------------------------------
5892: FOR del_rec IN del_cur LOOP
5893: k := k+1;
6015: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100:Del Id :'||to_char(delRecTab(i).deliverable_id));
6016: END IF;
6017:
6018: --Acq Plan Message Cleanup
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,
6058: -- sent to person who launched the concurrent request.
6059: l_return_status := 'S';
6060: END IF;
6061: ELSE
6062: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6063: END IF;
6064: END IF; -- call to notifier
6065: END LOOP;
6066: END IF;
6082: IF del_cur %ISOPEN THEN
6083: CLOSE del_cur ;
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
6143: IS
6144: l_api_name CONSTANT VARCHAR2(30) :='escalation_deliverable_manager';
6145: l_api_version CONSTANT VARCHAR2(30) := 1.0;
6146: l_init_msg_list VARCHAR2(3) := 'T';
6147: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
6148: l_msg_count NUMBER;
6149: l_msg_data VARCHAR2(1000);
6150: E_Resource_Busy EXCEPTION;
6151: PRAGMA EXCEPTION_INIT(E_Resource_Busy, -00054);
6164: x_msg_count => l_msg_count,
6165: x_msg_data => l_msg_data);
6166:
6167: --check return status
6168: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
6169: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6170: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
6171: RAISE OKC_API.G_EXCEPTION_ERROR;
6172: END IF;
6165: x_msg_data => l_msg_data);
6166:
6167: --check return status
6168: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
6169: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6170: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
6171: RAISE OKC_API.G_EXCEPTION_ERROR;
6172: END IF;
6173:
6166:
6167: --check return status
6168: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
6169: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6170: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
6171: RAISE OKC_API.G_EXCEPTION_ERROR;
6172: END IF;
6173:
6174: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6167: --check return status
6168: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
6169: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6170: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
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');
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;
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 ));
6228: -- OR actual_due_date = sysdate); bug#3722423
6229: l_notification_date DATE;
6230: delRecTab delRecTabType;
6231: delNtfTab delRecTabType;
6232: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
6233: l_msg_count NUMBER;
6234: l_msg_data VARCHAR2(1000);
6235: l_notification_id NUMBER;
6236: l_deliverable_id NUMBER;
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
6250: ,p_init_msg_list
6251: ,'_PROCESS'
6252: ,x_return_status
6253: );
6251: ,'_PROCESS'
6252: ,x_return_status
6253: );
6254: -- check if activity started successfully
6255: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
6256: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6257: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
6258: RAISE OKC_API.G_EXCEPTION_ERROR;
6259: END IF;
6252: ,x_return_status
6253: );
6254: -- check if activity started successfully
6255: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
6256: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6257: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
6258: RAISE OKC_API.G_EXCEPTION_ERROR;
6259: END IF;
6260: ---------------------------------------------------
6253: );
6254: -- check if activity started successfully
6255: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
6256: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6257: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
6258: RAISE OKC_API.G_EXCEPTION_ERROR;
6259: END IF;
6260: ---------------------------------------------------
6261: FOR del_rec IN del_cur LOOP
6254: -- check if activity started successfully
6255: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
6256: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6257: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
6258: RAISE OKC_API.G_EXCEPTION_ERROR;
6259: END IF;
6260: ---------------------------------------------------
6261: FOR del_rec IN del_cur LOOP
6262: k := k+1;
6380: IF trunc(l_notification_date) = trunc(sysdate) OR
6381: trunc(l_notification_date) < trunc(sysdate) THEN -- call to notifier
6382:
6383: --Acq Plan Messages Cleanup
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,
6422: -- sent to person who launched the concurrent request.
6423: l_return_status := 'S';
6424: END IF;
6425: ELSE
6426: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6427: END IF;
6428: END IF; -- call to notifier
6429: END LOOP;
6430: END IF;
6446: IF del_cur %ISOPEN THEN
6447: CLOSE del_cur ;
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:
6504: )
6505: IS
6506: l_api_name CONSTANT VARCHAR2(30) :='delete_attachments';
6507: l_att_exists BOOLEAN;
6508: l_result VARCHAR2(1):= OKC_API.G_RET_STS_SUCCESS;
6509:
6510: CURSOR att_cur IS
6511: SELECT att.attached_document_id
6512: ,doc.datatype_id
6584: x_msg_count OUT NOCOPY NUMBER,
6585: x_return_status OUT NOCOPY VARCHAR2)
6586: IS
6587: l_api_name CONSTANT VARCHAR2(30) :='purge_doc_deliverables';
6588: l_return_status VARCHAR2(1):= OKC_API.G_RET_STS_SUCCESS;
6589: l_msg_count NUMBER;
6590: l_msg_data VARCHAR2(1000);
6591: l_api_version CONSTANT VARCHAR2(30) := 1.0;
6592: l_deliverable_id NUMBER;
6602: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Business document Type:'||p_doc_table(i).doc_type);
6603: END IF;
6604: delete_deliverables (
6605: p_api_version => l_api_version,
6606: p_init_msg_list => OKC_API.G_FALSE,
6607: p_doc_id => p_doc_table(i).doc_id,
6608: p_doc_type => p_doc_table(i).doc_type,
6609: x_msg_data => l_msg_data,
6610: x_msg_count => l_msg_count,
6692: AND amendment_operation IS NULL)
6693: );
6694:
6695:
6696: l_result VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
6697: l_api_name VARCHAR2(30) :='delete_deliverables';
6698: TYPE delIdTabType IS TABLE OF NUMBER;
6699: delIdTab delIdTabType;
6700: BEGIN
6853: AND business_document_type = 'TEMPLATE';
6854: TYPE delIdRecTabType IS TABLE OF NUMBER;
6855: delIdTab delIdRecTabType;
6856: l_api_name CONSTANT VARCHAR2(30) :='update_del_for_template_merge';
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');
6976: BEGIN
6977:
6978:
6979: -- Initialize API return status to success
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');
7073:
7074: l_end_date date := NULL;
7075: l_timeunit varchar2(30);
7076: l_duration number := 0;
7077: x_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
7078: l_api_name CONSTANT VARCHAR2(30) :='get_actual_date';
7079:
7080: begin
7081: --- check if time unit and duration values are set
7179:
7180: -- Calculate the end date
7181: l_date := p_start_date;
7182: IF (TRUNC(l_date) > TRUNC(p_end_date) ) THEN
7183: x_return_status := OKC_API.G_RET_STS_SUCCESS;
7184: return;
7185: end if;
7186:
7187: -- initialize the count to add into table of records
7213:
7214: --- Calculate the end date
7215: l_date := p_start_date + l_daynum_offset;
7216: if TRUNC(l_date) > TRUNC(p_end_date) then
7217: x_return_status := OKC_API.G_RET_STS_SUCCESS;
7218: return;
7219: end if;
7220:
7221: -- initialize the count to add into table of records
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,
7288: p_data => x_msg_data
7289: );
7531: * This procedure checks if there is any error related to a given
7532: * deliverable's notification details
7533: * @modifies px_qa_result_tbl table of records that contains validation
7534: * errors and warnings
7535: * @returns x_return_status OKC_API.G_RET_STS_SUCCESS if succeeds
7536: * OKC_API.G_RET_STS_ERROR if failes
7537: * OKC_API.G_RET_STS_UNEXP_ERROR is unexpected error
7538: * x_qa_status OKC_API.G_RET_STS_SUCCESS if no error/warning is found
7539: * OKC_API.G_RET_STS_ERROR if at least one error/warning is found
7532: * deliverable's notification details
7533: * @modifies px_qa_result_tbl table of records that contains validation
7534: * errors and warnings
7535: * @returns x_return_status OKC_API.G_RET_STS_SUCCESS if succeeds
7536: * OKC_API.G_RET_STS_ERROR if failes
7537: * OKC_API.G_RET_STS_UNEXP_ERROR is unexpected error
7538: * x_qa_status OKC_API.G_RET_STS_SUCCESS if no error/warning is found
7539: * OKC_API.G_RET_STS_ERROR if at least one error/warning is found
7540: */
7533: * @modifies px_qa_result_tbl table of records that contains validation
7534: * errors and warnings
7535: * @returns x_return_status OKC_API.G_RET_STS_SUCCESS if succeeds
7536: * OKC_API.G_RET_STS_ERROR if failes
7537: * OKC_API.G_RET_STS_UNEXP_ERROR is unexpected error
7538: * x_qa_status OKC_API.G_RET_STS_SUCCESS if no error/warning is found
7539: * OKC_API.G_RET_STS_ERROR if at least one error/warning is found
7540: */
7541: PROCEDURE check_notifications (
7534: * errors and warnings
7535: * @returns x_return_status OKC_API.G_RET_STS_SUCCESS if succeeds
7536: * OKC_API.G_RET_STS_ERROR if failes
7537: * OKC_API.G_RET_STS_UNEXP_ERROR is unexpected error
7538: * x_qa_status OKC_API.G_RET_STS_SUCCESS if no error/warning is found
7539: * OKC_API.G_RET_STS_ERROR if at least one error/warning is found
7540: */
7541: PROCEDURE check_notifications (
7542: del_rec IN OKC_DELIVERABLES%ROWTYPE,
7535: * @returns x_return_status OKC_API.G_RET_STS_SUCCESS if succeeds
7536: * OKC_API.G_RET_STS_ERROR if failes
7537: * OKC_API.G_RET_STS_UNEXP_ERROR is unexpected error
7538: * x_qa_status OKC_API.G_RET_STS_SUCCESS if no error/warning is found
7539: * OKC_API.G_RET_STS_ERROR if at least one error/warning is found
7540: */
7541: PROCEDURE check_notifications (
7542: del_rec IN OKC_DELIVERABLES%ROWTYPE,
7543: p_severity IN VARCHAR2,
7546: ) IS
7547:
7548: l_api_version CONSTANT NUMBER := 1;
7549: l_api_name CONSTANT VARCHAR2(30) := 'check_notifications';
7550: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
7551: l_qa_result_tbl OKC_TERMS_QA_PVT.qa_result_tbl_type;
7552: l_index PLS_INTEGER := 0;
7553: l_start PLS_INTEGER := 0;
7554: l_message_txt VARCHAR2(2000);
7597: IF(del_rec.notify_escalation_value is null OR del_rec.notify_escalation_uom is null OR del_rec.escalation_assignee is null) THEN
7598: l_index := l_index+1;
7599: l_qa_result_tbl(l_index).error_severity := p_severity;
7600: --Acq Plan Message Cleanup
7601: l_resolved_msg_name := OKC_API.resolve_message('OKC_DEL_ESCALATE_REQUIRED',del_rec.business_document_type);
7602: l_resolved_token := OKC_API.resolve_del_token(del_rec.business_document_type);
7603:
7604: /*l_qa_result_tbl(l_index).message_name := 'OKC_DEL_ESCALATE_REQUIRED';
7605: l_message_txt := OKC_TERMS_UTIL_PVT.get_message(p_app_name => G_OKC,
7598: l_index := l_index+1;
7599: l_qa_result_tbl(l_index).error_severity := p_severity;
7600: --Acq Plan Message Cleanup
7601: l_resolved_msg_name := OKC_API.resolve_message('OKC_DEL_ESCALATE_REQUIRED',del_rec.business_document_type);
7602: l_resolved_token := OKC_API.resolve_del_token(del_rec.business_document_type);
7603:
7604: /*l_qa_result_tbl(l_index).message_name := 'OKC_DEL_ESCALATE_REQUIRED';
7605: l_message_txt := OKC_TERMS_UTIL_PVT.get_message(p_app_name => G_OKC,
7606: p_msg_name => 'OKC_DEL_ESCALATE_REQUIRED',
7677: * This procedure checks if there is any error related to a given
7678: * deliverable's internal contacts
7679: * @modifies px_qa_result_tbl table of records that contains validation
7680: * errors and warnings
7681: * @returns x_return_status OKC_API.G_RET_STS_SUCCESS if succeeds
7682: * OKC_API.G_RET_STS_ERROR if failes
7683: * OKC_API.G_RET_STS_UNEXP_ERROR is unexpected error
7684: * x_qa_status OKC_API.G_RET_STS_SUCCESS if no error/warning is found
7685: * OKC_API.G_RET_STS_ERROR if at least one error/warning is found
7678: * deliverable's internal contacts
7679: * @modifies px_qa_result_tbl table of records that contains validation
7680: * errors and warnings
7681: * @returns x_return_status OKC_API.G_RET_STS_SUCCESS if succeeds
7682: * OKC_API.G_RET_STS_ERROR if failes
7683: * OKC_API.G_RET_STS_UNEXP_ERROR is unexpected error
7684: * x_qa_status OKC_API.G_RET_STS_SUCCESS if no error/warning is found
7685: * OKC_API.G_RET_STS_ERROR if at least one error/warning is found
7686: */
7679: * @modifies px_qa_result_tbl table of records that contains validation
7680: * errors and warnings
7681: * @returns x_return_status OKC_API.G_RET_STS_SUCCESS if succeeds
7682: * OKC_API.G_RET_STS_ERROR if failes
7683: * OKC_API.G_RET_STS_UNEXP_ERROR is unexpected error
7684: * x_qa_status OKC_API.G_RET_STS_SUCCESS if no error/warning is found
7685: * OKC_API.G_RET_STS_ERROR if at least one error/warning is found
7686: */
7687: PROCEDURE check_internal_contacts (
7680: * errors and warnings
7681: * @returns x_return_status OKC_API.G_RET_STS_SUCCESS if succeeds
7682: * OKC_API.G_RET_STS_ERROR if failes
7683: * OKC_API.G_RET_STS_UNEXP_ERROR is unexpected error
7684: * x_qa_status OKC_API.G_RET_STS_SUCCESS if no error/warning is found
7685: * OKC_API.G_RET_STS_ERROR if at least one error/warning is found
7686: */
7687: PROCEDURE check_internal_contacts (
7688: del_rec IN OKC_DELIVERABLES%ROWTYPE,
7681: * @returns x_return_status OKC_API.G_RET_STS_SUCCESS if succeeds
7682: * OKC_API.G_RET_STS_ERROR if failes
7683: * OKC_API.G_RET_STS_UNEXP_ERROR is unexpected error
7684: * x_qa_status OKC_API.G_RET_STS_SUCCESS if no error/warning is found
7685: * OKC_API.G_RET_STS_ERROR if at least one error/warning is found
7686: */
7687: PROCEDURE check_internal_contacts (
7688: del_rec IN OKC_DELIVERABLES%ROWTYPE,
7689: p_severity IN VARCHAR2,
7692: ) IS
7693:
7694: l_api_version CONSTANT NUMBER := 1;
7695: l_api_name CONSTANT VARCHAR2(30) := 'check_internal_contacts';
7696: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
7697: l_qa_result_tbl OKC_TERMS_QA_PVT.qa_result_tbl_type;
7698: l_index PLS_INTEGER := 0;
7699: l_start PLS_INTEGER := 0;
7700: l_doc_type_class OKC_BUS_DOC_TYPES_B.document_type_class%TYPE;
7739: l_index := l_index+1;
7740:
7741: --l_qa_result_tbl(l_index).error_severity := G_QA_STS_ERROR;
7742: --Acq Plan Message Cleanup
7743: l_resolved_msg_name := OKC_API.resolve_message(l_IntContactMissing_err_msg,del_rec.business_document_type);
7744: l_resolved_token := OKC_API.resolve_del_token(del_rec.business_document_type);
7745:
7746: /* l_qa_result_tbl(l_index).message_name := l_IntContactMissing_err_msg;
7747: l_err_message_txt := OKC_TERMS_UTIL_PVT.get_message(p_app_name => G_OKC,
7740:
7741: --l_qa_result_tbl(l_index).error_severity := G_QA_STS_ERROR;
7742: --Acq Plan Message Cleanup
7743: l_resolved_msg_name := OKC_API.resolve_message(l_IntContactMissing_err_msg,del_rec.business_document_type);
7744: l_resolved_token := OKC_API.resolve_del_token(del_rec.business_document_type);
7745:
7746: /* l_qa_result_tbl(l_index).message_name := l_IntContactMissing_err_msg;
7747: l_err_message_txt := OKC_TERMS_UTIL_PVT.get_message(p_app_name => G_OKC,
7748: p_msg_name => l_IntContactMissing_err_msg,
7776: l_index := l_index+1;
7777: --l_qa_result_tbl(l_index).error_severity := G_QA_STS_ERROR;
7778:
7779: --Acq Plan Message Cleanup
7780: l_resolved_msg_name := OKC_API.resolve_message(l_IntContactInvalid_err_msg,del_rec.business_document_type);
7781: l_resolved_token := OKC_API.resolve_del_token(del_rec.business_document_type);
7782:
7783: /* l_qa_result_tbl(l_index).message_name := l_IntContactInvalid_err_msg;
7784: l_err_message_txt := OKC_TERMS_UTIL_PVT.get_message(p_app_name => G_OKC,
7777: --l_qa_result_tbl(l_index).error_severity := G_QA_STS_ERROR;
7778:
7779: --Acq Plan Message Cleanup
7780: l_resolved_msg_name := OKC_API.resolve_message(l_IntContactInvalid_err_msg,del_rec.business_document_type);
7781: l_resolved_token := OKC_API.resolve_del_token(del_rec.business_document_type);
7782:
7783: /* l_qa_result_tbl(l_index).message_name := l_IntContactInvalid_err_msg;
7784: l_err_message_txt := OKC_TERMS_UTIL_PVT.get_message(p_app_name => G_OKC,
7785: p_msg_name => l_IntContactInvalid_err_msg);*/
7813: l_index := l_index+1;
7814: --l_qa_result_tbl(l_index).error_severity := G_QA_STS_WARNING;
7815: --Acq Plan Message Cleanup
7816:
7817: l_resolved_msg_name := OKC_API.resolve_message(l_InvalidRequestor_err_msg,del_rec.business_document_type);
7818: l_resolved_token := OKC_API.resolve_del_token(del_rec.business_document_type);
7819:
7820: l_qa_result_tbl(l_index).message_name := l_resolved_msg_name;
7821: l_err_message_txt := OKC_TERMS_UTIL_PVT.get_message(p_app_name => G_OKC,
7814: --l_qa_result_tbl(l_index).error_severity := G_QA_STS_WARNING;
7815: --Acq Plan Message Cleanup
7816:
7817: l_resolved_msg_name := OKC_API.resolve_message(l_InvalidRequestor_err_msg,del_rec.business_document_type);
7818: l_resolved_token := OKC_API.resolve_del_token(del_rec.business_document_type);
7819:
7820: l_qa_result_tbl(l_index).message_name := l_resolved_msg_name;
7821: l_err_message_txt := OKC_TERMS_UTIL_PVT.get_message(p_app_name => G_OKC,
7822: p_msg_name => l_resolved_msg_name,
7847: /*l_qa_result_tbl(l_index).message_name := l_InvalidEscAssgn_err_msg;
7848: l_err_message_txt := OKC_TERMS_UTIL_PVT.get_message(p_app_name => G_OKC,
7849: p_msg_name => l_InvalidEscAssgn_err_msg);*/
7850:
7851: l_resolved_msg_name := OKC_API.resolve_message(l_InvalidEscAssgn_err_msg,del_rec.business_document_type);
7852: l_resolved_token := OKC_API.resolve_del_token(del_rec.business_document_type);
7853:
7854:
7855: l_qa_result_tbl(l_index).message_name := l_InvalidEscAssgn_err_msg;
7848: l_err_message_txt := OKC_TERMS_UTIL_PVT.get_message(p_app_name => G_OKC,
7849: p_msg_name => l_InvalidEscAssgn_err_msg);*/
7850:
7851: l_resolved_msg_name := OKC_API.resolve_message(l_InvalidEscAssgn_err_msg,del_rec.business_document_type);
7852: l_resolved_token := OKC_API.resolve_del_token(del_rec.business_document_type);
7853:
7854:
7855: l_qa_result_tbl(l_index).message_name := l_InvalidEscAssgn_err_msg;
7856: l_err_message_txt := OKC_TERMS_UTIL_PVT.get_message(p_app_name => G_OKC,
7947: )
7948: IS
7949: l_api_version CONSTANT NUMBER := 1;
7950: l_api_name CONSTANT VARCHAR2(30) := 'check_exhibit_details';
7951: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
7952: l_qa_result_tbl OKC_TERMS_QA_PVT.qa_result_tbl_type;
7953: l_index PLS_INTEGER := 0;
7954: l_start PLS_INTEGER := 0;
7955: l_doc_type_class OKC_BUS_DOC_TYPES_B.document_type_class%TYPE;
7992: THEN
7993:
7994: l_index := l_index+1;
7995:
7996: l_resolved_msg_name := OKC_API.resolve_message(l_exhibitMissing_err_msg,del_rec.business_document_type);
7997: l_resolved_token := OKC_API.resolve_del_token(del_rec.business_document_type);
7998:
7999: l_qa_result_tbl(l_index).message_name := l_resolved_msg_name;
8000: l_err_message_txt := OKC_TERMS_UTIL_PVT.get_message(p_app_name => G_OKC,
7993:
7994: l_index := l_index+1;
7995:
7996: l_resolved_msg_name := OKC_API.resolve_message(l_exhibitMissing_err_msg,del_rec.business_document_type);
7997: l_resolved_token := OKC_API.resolve_del_token(del_rec.business_document_type);
7998:
7999: l_qa_result_tbl(l_index).message_name := l_resolved_msg_name;
8000: l_err_message_txt := OKC_TERMS_UTIL_PVT.get_message(p_app_name => G_OKC,
8001: p_msg_name => l_resolved_msg_name,
8070: * This procedure checks if there is any error related to a given
8071: * deliverable's internal contacts
8072: * @modifies px_qa_result_tbl table of records that contains validation
8073: * errors and warnings
8074: * @returns x_return_status OKC_API.G_RET_STS_SUCCESS if succeeds
8075: * OKC_API.G_RET_STS_ERROR if failes
8076: * OKC_API.G_RET_STS_UNEXP_ERROR is unexpected error
8077: * x_qa_status OKC_API.G_RET_STS_SUCCESS if no error/warning is found
8078: * OKC_API.G_RET_STS_ERROR if at least one error/warning is found
8071: * deliverable's internal contacts
8072: * @modifies px_qa_result_tbl table of records that contains validation
8073: * errors and warnings
8074: * @returns x_return_status OKC_API.G_RET_STS_SUCCESS if succeeds
8075: * OKC_API.G_RET_STS_ERROR if failes
8076: * OKC_API.G_RET_STS_UNEXP_ERROR is unexpected error
8077: * x_qa_status OKC_API.G_RET_STS_SUCCESS if no error/warning is found
8078: * OKC_API.G_RET_STS_ERROR if at least one error/warning is found
8079: */
8072: * @modifies px_qa_result_tbl table of records that contains validation
8073: * errors and warnings
8074: * @returns x_return_status OKC_API.G_RET_STS_SUCCESS if succeeds
8075: * OKC_API.G_RET_STS_ERROR if failes
8076: * OKC_API.G_RET_STS_UNEXP_ERROR is unexpected error
8077: * x_qa_status OKC_API.G_RET_STS_SUCCESS if no error/warning is found
8078: * OKC_API.G_RET_STS_ERROR if at least one error/warning is found
8079: */
8080: PROCEDURE check_internal_contacts_valid (
8073: * errors and warnings
8074: * @returns x_return_status OKC_API.G_RET_STS_SUCCESS if succeeds
8075: * OKC_API.G_RET_STS_ERROR if failes
8076: * OKC_API.G_RET_STS_UNEXP_ERROR is unexpected error
8077: * x_qa_status OKC_API.G_RET_STS_SUCCESS if no error/warning is found
8078: * OKC_API.G_RET_STS_ERROR if at least one error/warning is found
8079: */
8080: PROCEDURE check_internal_contacts_valid (
8081: del_rec IN OKC_DELIVERABLES%ROWTYPE,
8074: * @returns x_return_status OKC_API.G_RET_STS_SUCCESS if succeeds
8075: * OKC_API.G_RET_STS_ERROR if failes
8076: * OKC_API.G_RET_STS_UNEXP_ERROR is unexpected error
8077: * x_qa_status OKC_API.G_RET_STS_SUCCESS if no error/warning is found
8078: * OKC_API.G_RET_STS_ERROR if at least one error/warning is found
8079: */
8080: PROCEDURE check_internal_contacts_valid (
8081: del_rec IN OKC_DELIVERABLES%ROWTYPE,
8082: p_severity IN VARCHAR2,
8085: ) IS
8086:
8087: l_api_version CONSTANT NUMBER := 1;
8088: l_api_name CONSTANT VARCHAR2(30) := 'check_internal_contacts_valid';
8089: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
8090: l_qa_result_tbl OKC_TERMS_QA_PVT.qa_result_tbl_type;
8091: l_index PLS_INTEGER := 0;
8092: l_start PLS_INTEGER := 0;
8093: l_message_txt VARCHAR2(2000);
8125: IF l_contact_valid = 'N' THEN
8126: l_index := l_index+1;
8127:
8128: --Acq Plan Message Cleanup
8129: l_resolved_msg_name := OKC_API.resolve_message('OKC_DEL_INV_INT_CONT_EMAIL',del_rec.business_document_type);
8130: l_resolved_token := OKC_API.resolve_del_token(del_rec.business_document_type);
8131:
8132: /* l_qa_result_tbl(l_index).message_name := 'OKC_DEL_INV_INT_CONT_EMAIL';
8133: l_err_message_txt := OKC_TERMS_UTIL_PVT.get_message(p_app_name => G_OKC,
8126: l_index := l_index+1;
8127:
8128: --Acq Plan Message Cleanup
8129: l_resolved_msg_name := OKC_API.resolve_message('OKC_DEL_INV_INT_CONT_EMAIL',del_rec.business_document_type);
8130: l_resolved_token := OKC_API.resolve_del_token(del_rec.business_document_type);
8131:
8132: /* l_qa_result_tbl(l_index).message_name := 'OKC_DEL_INV_INT_CONT_EMAIL';
8133: l_err_message_txt := OKC_TERMS_UTIL_PVT.get_message(p_app_name => G_OKC,
8134: p_msg_name => 'OKC_DEL_INV_INT_CONT_EMAIL');*/
8160:
8161: l_index := l_index+1;
8162:
8163: --Acq Plan Message Cleanup
8164: l_resolved_msg_name := OKC_API.resolve_message('OKC_DEL_INV_REQ_CONT_EMAIL',del_rec.business_document_type);
8165: l_resolved_token := OKC_API.resolve_del_token(del_rec.business_document_type);
8166:
8167: /* l_qa_result_tbl(l_index).message_name := 'OKC_DEL_INV_REQ_CONT_EMAIL';
8168: l_err_message_txt := OKC_TERMS_UTIL_PVT.get_message(p_app_name => G_OKC,
8161: l_index := l_index+1;
8162:
8163: --Acq Plan Message Cleanup
8164: l_resolved_msg_name := OKC_API.resolve_message('OKC_DEL_INV_REQ_CONT_EMAIL',del_rec.business_document_type);
8165: l_resolved_token := OKC_API.resolve_del_token(del_rec.business_document_type);
8166:
8167: /* l_qa_result_tbl(l_index).message_name := 'OKC_DEL_INV_REQ_CONT_EMAIL';
8168: l_err_message_txt := OKC_TERMS_UTIL_PVT.get_message(p_app_name => G_OKC,
8169: p_msg_name => 'OKC_DEL_INV_REQ_CONT_EMAIL');*/
8264: * This procedure checks if there is any error related to a given
8265: * deliverable's external contacts
8266: * @modifies px_qa_result_tbl table of records that contains validation
8267: * errors and warnings
8268: * @returns x_return_status OKC_API.G_RET_STS_SUCCESS if succeeds
8269: * OKC_API.G_RET_STS_ERROR if failes
8270: * OKC_API.G_RET_STS_UNEXP_ERROR is unexpected error
8271: * x_qa_status OKC_API.G_RET_STS_SUCCESS if no error/warning is found
8272: * OKC_API.G_RET_STS_ERROR if at least one error/warning is found
8265: * deliverable's external contacts
8266: * @modifies px_qa_result_tbl table of records that contains validation
8267: * errors and warnings
8268: * @returns x_return_status OKC_API.G_RET_STS_SUCCESS if succeeds
8269: * OKC_API.G_RET_STS_ERROR if failes
8270: * OKC_API.G_RET_STS_UNEXP_ERROR is unexpected error
8271: * x_qa_status OKC_API.G_RET_STS_SUCCESS if no error/warning is found
8272: * OKC_API.G_RET_STS_ERROR if at least one error/warning is found
8273: */
8266: * @modifies px_qa_result_tbl table of records that contains validation
8267: * errors and warnings
8268: * @returns x_return_status OKC_API.G_RET_STS_SUCCESS if succeeds
8269: * OKC_API.G_RET_STS_ERROR if failes
8270: * OKC_API.G_RET_STS_UNEXP_ERROR is unexpected error
8271: * x_qa_status OKC_API.G_RET_STS_SUCCESS if no error/warning is found
8272: * OKC_API.G_RET_STS_ERROR if at least one error/warning is found
8273: */
8274: PROCEDURE check_external_contacts (
8267: * errors and warnings
8268: * @returns x_return_status OKC_API.G_RET_STS_SUCCESS if succeeds
8269: * OKC_API.G_RET_STS_ERROR if failes
8270: * OKC_API.G_RET_STS_UNEXP_ERROR is unexpected error
8271: * x_qa_status OKC_API.G_RET_STS_SUCCESS if no error/warning is found
8272: * OKC_API.G_RET_STS_ERROR if at least one error/warning is found
8273: */
8274: PROCEDURE check_external_contacts (
8275: del_rec IN OKC_DELIVERABLES%ROWTYPE,
8268: * @returns x_return_status OKC_API.G_RET_STS_SUCCESS if succeeds
8269: * OKC_API.G_RET_STS_ERROR if failes
8270: * OKC_API.G_RET_STS_UNEXP_ERROR is unexpected error
8271: * x_qa_status OKC_API.G_RET_STS_SUCCESS if no error/warning is found
8272: * OKC_API.G_RET_STS_ERROR if at least one error/warning is found
8273: */
8274: PROCEDURE check_external_contacts (
8275: del_rec IN OKC_DELIVERABLES%ROWTYPE,
8276: p_severity IN VARCHAR2,
8279: ) IS
8280:
8281: l_api_version CONSTANT NUMBER := 1;
8282: l_api_name CONSTANT VARCHAR2(30) := 'check_external_contacts';
8283: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
8284: l_qa_result_tbl OKC_TERMS_QA_PVT.qa_result_tbl_type;
8285: l_index PLS_INTEGER := 0;
8286: l_start PLS_INTEGER := 0;
8287: l_doc_type_class OKC_BUS_DOC_TYPES_B.document_type_class%TYPE;
8340: p_msg_name => l_ExtContact_err_msg,
8341: p_token1 => 'DELIVERABLE_NAME',
8342: p_token1_value => del_rec.deliverable_name);*/
8343:
8344: l_resolved_msg_name := OKC_API.resolve_message(l_ExtContact_err_msg,del_rec.business_document_type);
8345: l_resolved_token := OKC_API.resolve_del_token(del_rec.business_document_type);
8346:
8347: l_qa_result_tbl(l_index).message_name := l_resolved_msg_name;
8348: l_err_message_txt := OKC_TERMS_UTIL_PVT.get_message(p_app_name => G_OKC,
8341: p_token1 => 'DELIVERABLE_NAME',
8342: p_token1_value => del_rec.deliverable_name);*/
8343:
8344: l_resolved_msg_name := OKC_API.resolve_message(l_ExtContact_err_msg,del_rec.business_document_type);
8345: l_resolved_token := OKC_API.resolve_del_token(del_rec.business_document_type);
8346:
8347: l_qa_result_tbl(l_index).message_name := l_resolved_msg_name;
8348: l_err_message_txt := OKC_TERMS_UTIL_PVT.get_message(p_app_name => G_OKC,
8349: p_msg_name => l_resolved_msg_name,
8361: l_err_message_txt := OKC_TERMS_UTIL_PVT.get_message(p_app_name => G_OKC,
8362: p_msg_name => l_SupplierContact_err_msg,
8363: p_token1 => 'DELIVERABLE_NAME',
8364: p_token1_value => del_rec.deliverable_name);*/
8365: l_resolved_msg_name := OKC_API.resolve_message(l_SupplierContact_err_msg,del_rec.business_document_type);
8366: l_resolved_token := OKC_API.resolve_del_token(del_rec.business_document_type);
8367:
8368: l_qa_result_tbl(l_index).message_name := l_resolved_msg_name;
8369: l_err_message_txt := OKC_TERMS_UTIL_PVT.get_message(p_app_name => G_OKC,
8362: p_msg_name => l_SupplierContact_err_msg,
8363: p_token1 => 'DELIVERABLE_NAME',
8364: p_token1_value => del_rec.deliverable_name);*/
8365: l_resolved_msg_name := OKC_API.resolve_message(l_SupplierContact_err_msg,del_rec.business_document_type);
8366: l_resolved_token := OKC_API.resolve_del_token(del_rec.business_document_type);
8367:
8368: l_qa_result_tbl(l_index).message_name := l_resolved_msg_name;
8369: l_err_message_txt := OKC_TERMS_UTIL_PVT.get_message(p_app_name => G_OKC,
8370: p_msg_name => l_resolved_msg_name,
8441: * This procedure checks if there is any error related to a given
8442: * deliverable's due date details
8443: * @modifies px_qa_result_tbl table of records that contains validation
8444: * errors and warnings
8445: * @returns x_return_status OKC_API.G_RET_STS_SUCCESS if succeeds
8446: * OKC_API.G_RET_STS_ERROR if failes
8447: * OKC_API.G_RET_STS_UNEXP_ERROR is unexpected error
8448: * x_qa_status OKC_API.G_RET_STS_SUCCESS if no error/warning is found
8449: * OKC_API.G_RET_STS_ERROR if at least one error/warning is found
8442: * deliverable's due date details
8443: * @modifies px_qa_result_tbl table of records that contains validation
8444: * errors and warnings
8445: * @returns x_return_status OKC_API.G_RET_STS_SUCCESS if succeeds
8446: * OKC_API.G_RET_STS_ERROR if failes
8447: * OKC_API.G_RET_STS_UNEXP_ERROR is unexpected error
8448: * x_qa_status OKC_API.G_RET_STS_SUCCESS if no error/warning is found
8449: * OKC_API.G_RET_STS_ERROR if at least one error/warning is found
8450: */
8443: * @modifies px_qa_result_tbl table of records that contains validation
8444: * errors and warnings
8445: * @returns x_return_status OKC_API.G_RET_STS_SUCCESS if succeeds
8446: * OKC_API.G_RET_STS_ERROR if failes
8447: * OKC_API.G_RET_STS_UNEXP_ERROR is unexpected error
8448: * x_qa_status OKC_API.G_RET_STS_SUCCESS if no error/warning is found
8449: * OKC_API.G_RET_STS_ERROR if at least one error/warning is found
8450: */
8451: PROCEDURE check_due_dates (
8444: * errors and warnings
8445: * @returns x_return_status OKC_API.G_RET_STS_SUCCESS if succeeds
8446: * OKC_API.G_RET_STS_ERROR if failes
8447: * OKC_API.G_RET_STS_UNEXP_ERROR is unexpected error
8448: * x_qa_status OKC_API.G_RET_STS_SUCCESS if no error/warning is found
8449: * OKC_API.G_RET_STS_ERROR if at least one error/warning is found
8450: */
8451: PROCEDURE check_due_dates (
8452: del_rec IN OKC_DELIVERABLES%ROWTYPE,
8445: * @returns x_return_status OKC_API.G_RET_STS_SUCCESS if succeeds
8446: * OKC_API.G_RET_STS_ERROR if failes
8447: * OKC_API.G_RET_STS_UNEXP_ERROR is unexpected error
8448: * x_qa_status OKC_API.G_RET_STS_SUCCESS if no error/warning is found
8449: * OKC_API.G_RET_STS_ERROR if at least one error/warning is found
8450: */
8451: PROCEDURE check_due_dates (
8452: del_rec IN OKC_DELIVERABLES%ROWTYPE,
8453: p_severity IN VARCHAR2,
8458: ) IS
8459:
8460: l_api_version CONSTANT NUMBER := 1;
8461: l_api_name CONSTANT VARCHAR2(30) := 'check_due_dates';
8462: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
8463: l_qa_result_tbl OKC_TERMS_QA_PVT.qa_result_tbl_type;
8464: l_index PLS_INTEGER := 0;
8465: l_start PLS_INTEGER := 0;
8466: l_message_txt VARCHAR2(2000);
8518: l_index := l_index+1;
8519:
8520: --Acq Plan Message Cleanup
8521:
8522: l_resolved_msg_name := OKC_API.resolve_message('OKC_DEL_MISSING_FIXED_ST_DATE',p_doc_type);
8523: l_resolved_token := OKC_API.resolve_del_token(p_doc_type);
8524:
8525: -- set qa message name
8526: -- l_qa_result_tbl(l_index).message_name := 'OKC_DEL_MISSING_FIXED_ST_DATE';
8519:
8520: --Acq Plan Message Cleanup
8521:
8522: l_resolved_msg_name := OKC_API.resolve_message('OKC_DEL_MISSING_FIXED_ST_DATE',p_doc_type);
8523: l_resolved_token := OKC_API.resolve_del_token(p_doc_type);
8524:
8525: -- set qa message name
8526: -- l_qa_result_tbl(l_index).message_name := 'OKC_DEL_MISSING_FIXED_ST_DATE';
8527: l_qa_result_tbl(l_index).message_name := l_resolved_msg_name;
8544: OKC_TERMS_UTIL_PVT.get_message(p_app_name => G_OKC,
8545: p_msg_name => 'OKC_DEL_REQUIRED_S');
8546:
8547: -- set return status for calling API to know, that there's a QA message
8548: --l_qa_status := OKC_API.G_RET_STS_ERROR;
8549: END IF;
8550: ELSE
8551:
8552: --06-FEB-2004 pnayani -- Fix for bug 3369934 Resetting due date attributes during copy
8556: --missing fixed_start_date
8557: l_index := l_index+1;
8558: -- set qa message name
8559: --Acq Plan Message Cleanup
8560: l_resolved_msg_name := OKC_API.resolve_message('OKC_DEL_DUE_DATE_ST_INCOMPLETE',del_rec.business_document_type);
8561: l_resolved_token := OKC_API.resolve_del_token(del_rec.business_document_type);
8562:
8563: /* l_qa_result_tbl(l_index).message_name := 'OKC_DEL_DUE_DATE_ST_INCOMPLETE';
8564:
8557: l_index := l_index+1;
8558: -- set qa message name
8559: --Acq Plan Message Cleanup
8560: l_resolved_msg_name := OKC_API.resolve_message('OKC_DEL_DUE_DATE_ST_INCOMPLETE',del_rec.business_document_type);
8561: l_resolved_token := OKC_API.resolve_del_token(del_rec.business_document_type);
8562:
8563: /* l_qa_result_tbl(l_index).message_name := 'OKC_DEL_DUE_DATE_ST_INCOMPLETE';
8564:
8565: --- set problem long description
8595: l_index := l_index+1;
8596:
8597: -- set qa message name
8598: --Acq Plan Message Cleanup
8599: l_resolved_msg_name := OKC_API.resolve_message('OKC_DEL_DUE_DATE_EN_INCOMPLETE',del_rec.business_document_type);
8600: l_resolved_token := OKC_API.resolve_del_token(del_rec.business_document_type);
8601:
8602: /* l_qa_result_tbl(l_index).message_name := 'OKC_DEL_DUE_DATE_EN_INCOMPLETE';
8603:
8596:
8597: -- set qa message name
8598: --Acq Plan Message Cleanup
8599: l_resolved_msg_name := OKC_API.resolve_message('OKC_DEL_DUE_DATE_EN_INCOMPLETE',del_rec.business_document_type);
8600: l_resolved_token := OKC_API.resolve_del_token(del_rec.business_document_type);
8601:
8602: /* l_qa_result_tbl(l_index).message_name := 'OKC_DEL_DUE_DATE_EN_INCOMPLETE';
8603:
8604: --- set problem long description
8749: --missing relative date
8750: l_index := l_index+1;
8751:
8752: -- Acq Plan Messages Cleanup
8753: l_resolved_msg_name := OKC_API.resolve_message('OKC_DEL_MISSING_RLTV_DATE',del_rec.business_document_type);
8754: l_resolved_token := OKC_API.resolve_del_token(del_rec.business_document_type);
8755:
8756:
8757: -- set qa message name
8750: l_index := l_index+1;
8751:
8752: -- Acq Plan Messages Cleanup
8753: l_resolved_msg_name := OKC_API.resolve_message('OKC_DEL_MISSING_RLTV_DATE',del_rec.business_document_type);
8754: l_resolved_token := OKC_API.resolve_del_token(del_rec.business_document_type);
8755:
8756:
8757: -- set qa message name
8758: l_qa_result_tbl(l_index).message_name := l_resolved_msg_name;
8778: p_token1 => 'EVT_DATE_NAME',
8779: p_token1_value => qaMessages(1) );
8780:
8781: -- set return status for calling API to know, that there's a QA message
8782: --l_qa_status := OKC_API.G_RET_STS_ERROR;
8783:
8784: END IF; -- if one date is missing
8785:
8786: -- if two dates are missing
8787: IF qaMessages.count > 0 and qaMessages.count = 2 THEN
8788: --missing relative dates (two dates)
8789: l_index := l_index+1;
8790:
8791: l_resolved_msg_name := OKC_API.resolve_message('OKC_DEL_MISSING_RLTV_DATES',del_rec.business_document_type);
8792: l_resolved_token := OKC_API.resolve_del_token(del_rec.business_document_type);
8793:
8794: -- set qa message name
8795: l_qa_result_tbl(l_index).message_name := l_resolved_msg_name;
8788: --missing relative dates (two dates)
8789: l_index := l_index+1;
8790:
8791: l_resolved_msg_name := OKC_API.resolve_message('OKC_DEL_MISSING_RLTV_DATES',del_rec.business_document_type);
8792: l_resolved_token := OKC_API.resolve_del_token(del_rec.business_document_type);
8793:
8794: -- set qa message name
8795: l_qa_result_tbl(l_index).message_name := l_resolved_msg_name;
8796:
8822: p_token2 => 'EVT_DATE_NAME2',
8823: p_token2_value => qaMessages(2) );
8824:
8825: -- set return status for calling API to know, that there's a QA message
8826: --l_qa_status := OKC_API.G_RET_STS_ERROR;
8827:
8828: END IF; -- if two dates are missing
8829: END IF; -- if dates table of records is not empty
8830: END IF; --- if deliverables is not fixed due date
8879: * This procedure checks if there is any error related to a given
8880: * deliverable's amendments
8881: * @modifies px_qa_result_tbl table of records that contains validation
8882: * errors and warnings
8883: * @returns x_return_status OKC_API.G_RET_STS_SUCCESS if succeeds
8884: * OKC_API.G_RET_STS_ERROR if failes
8885: * OKC_API.G_RET_STS_UNEXP_ERROR is unexpected error
8886: * x_qa_status OKC_API.G_RET_STS_SUCCESS if no error/warning is found
8887: * OKC_API.G_RET_STS_ERROR if at least one error/warning is found
8880: * deliverable's amendments
8881: * @modifies px_qa_result_tbl table of records that contains validation
8882: * errors and warnings
8883: * @returns x_return_status OKC_API.G_RET_STS_SUCCESS if succeeds
8884: * OKC_API.G_RET_STS_ERROR if failes
8885: * OKC_API.G_RET_STS_UNEXP_ERROR is unexpected error
8886: * x_qa_status OKC_API.G_RET_STS_SUCCESS if no error/warning is found
8887: * OKC_API.G_RET_STS_ERROR if at least one error/warning is found
8888: */
8881: * @modifies px_qa_result_tbl table of records that contains validation
8882: * errors and warnings
8883: * @returns x_return_status OKC_API.G_RET_STS_SUCCESS if succeeds
8884: * OKC_API.G_RET_STS_ERROR if failes
8885: * OKC_API.G_RET_STS_UNEXP_ERROR is unexpected error
8886: * x_qa_status OKC_API.G_RET_STS_SUCCESS if no error/warning is found
8887: * OKC_API.G_RET_STS_ERROR if at least one error/warning is found
8888: */
8889: PROCEDURE check_amendments (
8882: * errors and warnings
8883: * @returns x_return_status OKC_API.G_RET_STS_SUCCESS if succeeds
8884: * OKC_API.G_RET_STS_ERROR if failes
8885: * OKC_API.G_RET_STS_UNEXP_ERROR is unexpected error
8886: * x_qa_status OKC_API.G_RET_STS_SUCCESS if no error/warning is found
8887: * OKC_API.G_RET_STS_ERROR if at least one error/warning is found
8888: */
8889: PROCEDURE check_amendments (
8890: del_rec IN OKC_DELIVERABLES%ROWTYPE,
8883: * @returns x_return_status OKC_API.G_RET_STS_SUCCESS if succeeds
8884: * OKC_API.G_RET_STS_ERROR if failes
8885: * OKC_API.G_RET_STS_UNEXP_ERROR is unexpected error
8886: * x_qa_status OKC_API.G_RET_STS_SUCCESS if no error/warning is found
8887: * OKC_API.G_RET_STS_ERROR if at least one error/warning is found
8888: */
8889: PROCEDURE check_amendments (
8890: del_rec IN OKC_DELIVERABLES%ROWTYPE,
8891: p_severity IN VARCHAR2,
8894: ) IS
8895:
8896: l_api_version CONSTANT NUMBER := 1;
8897: l_api_name CONSTANT VARCHAR2(30) := 'check_amendments';
8898: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
8899: l_qa_result_tbl OKC_TERMS_QA_PVT.qa_result_tbl_type;
8900: l_index PLS_INTEGER := 0;
8901: l_start PLS_INTEGER := 0;
8902: l_message_txt VARCHAR2(2000);
8931: p_msg_name => 'OKC_DEL_MISSING_AMEND_DESC',
8932: p_token1 => 'DELIVERABLE_NAME',
8933: p_token1_value => del_rec.deliverable_name);*/
8934:
8935: l_resolved_msg_name := OKC_API.resolve_message('OKC_DEL_MISSING_AMEND_DESC',del_rec.business_document_type);
8936: l_resolved_token := OKC_API.resolve_del_token(del_rec.business_document_type);
8937:
8938:
8939: l_qa_result_tbl(l_index).message_name := l_resolved_msg_name;
8932: p_token1 => 'DELIVERABLE_NAME',
8933: p_token1_value => del_rec.deliverable_name);*/
8934:
8935: l_resolved_msg_name := OKC_API.resolve_message('OKC_DEL_MISSING_AMEND_DESC',del_rec.business_document_type);
8936: l_resolved_token := OKC_API.resolve_del_token(del_rec.business_document_type);
8937:
8938:
8939: l_qa_result_tbl(l_index).message_name := l_resolved_msg_name;
8940: l_message_txt := OKC_TERMS_UTIL_PVT.get_message(p_app_name => G_OKC,
9069: x_return_status OUT NOCOPY VARCHAR2) IS
9070:
9071: l_api_version CONSTANT NUMBER := 1;
9072: l_api_name CONSTANT VARCHAR2(30) := 'check_deliverables_var_usage';
9073: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
9074: l_qa_result_tbl OKC_TERMS_QA_PVT.qa_result_tbl_type;
9075: l_index PLS_INTEGER := 0;
9076: l_start PLS_INTEGER := 0;
9077: l_message_txt VARCHAR2(2000);
9334: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
9335: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION ,g_module||l_api_name,'5000: In check_deliverables_var_usage:DEL_NOT_FOUND :'||SQLERRM);
9336: END IF;
9337:
9338: l_resolved_msg_name := OKC_API.resolve_message('OKC_DEL_VAR_NOT_RESOLVED', p_bus_doc_type);
9339: l_resolved_msg_name2 := OKC_API.resolve_message('OKC_DEL_VAR_NOT_RESOLVED_S', p_bus_doc_type);
9340:
9341: update_error_table
9342: (px_qa_result_tbl => l_qa_result_tbl,
9335: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION ,g_module||l_api_name,'5000: In check_deliverables_var_usage:DEL_NOT_FOUND :'||SQLERRM);
9336: END IF;
9337:
9338: l_resolved_msg_name := OKC_API.resolve_message('OKC_DEL_VAR_NOT_RESOLVED', p_bus_doc_type);
9339: l_resolved_msg_name2 := OKC_API.resolve_message('OKC_DEL_VAR_NOT_RESOLVED_S', p_bus_doc_type);
9340:
9341: update_error_table
9342: (px_qa_result_tbl => l_qa_result_tbl,
9343: p_qa_severity => p_severity,
9401:
9402: IF response_doc_type_cur%ISOPEN THEN
9403: CLOSE response_doc_type_cur;
9404: END IF;
9405: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
9406:
9407:
9408: End check_deliverables_var_usage;
9409:
9412: This API will be invoked by validate_deliverables_for_qa routine during QA check on a
9413: Deliverable. This check should only fire for Deliverables on a document where document_class
9414: is 'REPOSITORY'. This check should not fire for Deliverable types whose INTERNAL_FLAG = 'Y'
9415: * @modifies px_qa_result_tbl table of records that contains validation errors and warnings
9416: * @returns x_return_status OKC_API.G_RET_STS_SUCCESS if succeeds
9417: * OKC_API.G_RET_STS_ERROR if fails
9418: * OKC_API.G_RET_STS_UNEXP_ERROR if unexpected error
9419: * x_qa_status OKC_API.G_RET_STS_SUCCESS if no error/warning is found
9420: * OKC_API.G_RET_STS_ERROR if at least one error/warning is found
9413: Deliverable. This check should only fire for Deliverables on a document where document_class
9414: is 'REPOSITORY'. This check should not fire for Deliverable types whose INTERNAL_FLAG = 'Y'
9415: * @modifies px_qa_result_tbl table of records that contains validation errors and warnings
9416: * @returns x_return_status OKC_API.G_RET_STS_SUCCESS if succeeds
9417: * OKC_API.G_RET_STS_ERROR if fails
9418: * OKC_API.G_RET_STS_UNEXP_ERROR if unexpected error
9419: * x_qa_status OKC_API.G_RET_STS_SUCCESS if no error/warning is found
9420: * OKC_API.G_RET_STS_ERROR if at least one error/warning is found
9421: ***********************/
9414: is 'REPOSITORY'. This check should not fire for Deliverable types whose INTERNAL_FLAG = 'Y'
9415: * @modifies px_qa_result_tbl table of records that contains validation errors and warnings
9416: * @returns x_return_status OKC_API.G_RET_STS_SUCCESS if succeeds
9417: * OKC_API.G_RET_STS_ERROR if fails
9418: * OKC_API.G_RET_STS_UNEXP_ERROR if unexpected error
9419: * x_qa_status OKC_API.G_RET_STS_SUCCESS if no error/warning is found
9420: * OKC_API.G_RET_STS_ERROR if at least one error/warning is found
9421: ***********************/
9422: PROCEDURE check_external_party_exists (
9415: * @modifies px_qa_result_tbl table of records that contains validation errors and warnings
9416: * @returns x_return_status OKC_API.G_RET_STS_SUCCESS if succeeds
9417: * OKC_API.G_RET_STS_ERROR if fails
9418: * OKC_API.G_RET_STS_UNEXP_ERROR if unexpected error
9419: * x_qa_status OKC_API.G_RET_STS_SUCCESS if no error/warning is found
9420: * OKC_API.G_RET_STS_ERROR if at least one error/warning is found
9421: ***********************/
9422: PROCEDURE check_external_party_exists (
9423: del_rec IN OKC_DELIVERABLES%ROWTYPE,
9416: * @returns x_return_status OKC_API.G_RET_STS_SUCCESS if succeeds
9417: * OKC_API.G_RET_STS_ERROR if fails
9418: * OKC_API.G_RET_STS_UNEXP_ERROR if unexpected error
9419: * x_qa_status OKC_API.G_RET_STS_SUCCESS if no error/warning is found
9420: * OKC_API.G_RET_STS_ERROR if at least one error/warning is found
9421: ***********************/
9422: PROCEDURE check_external_party_exists (
9423: del_rec IN OKC_DELIVERABLES%ROWTYPE,
9424: p_severity IN VARCHAR2,
9427: ) IS
9428:
9429: l_api_version CONSTANT NUMBER := 1;
9430: l_api_name CONSTANT VARCHAR2(30) := 'check_external_party_exists';
9431: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
9432: l_qa_result_tbl OKC_TERMS_QA_PVT.qa_result_tbl_type;
9433: l_index PLS_INTEGER := 0;
9434: l_start PLS_INTEGER := 0;
9435:
9478: l_index := l_index+1;
9479: l_qa_result_tbl(l_index).error_severity := G_QA_STS_ERROR;
9480:
9481: --Acq Plan Message Cleanup
9482: l_resolved_msg_name := OKC_API.resolve_message(l_error_msg_name,del_rec.business_document_type);
9483: l_resolved_token := OKC_API.resolve_del_token(del_rec.business_document_type);
9484:
9485: l_error_msg_text := OKC_TERMS_UTIL_PVT.get_message(p_app_name => G_OKC,
9486: p_msg_name => l_resolved_msg_name,
9479: l_qa_result_tbl(l_index).error_severity := G_QA_STS_ERROR;
9480:
9481: --Acq Plan Message Cleanup
9482: l_resolved_msg_name := OKC_API.resolve_message(l_error_msg_name,del_rec.business_document_type);
9483: l_resolved_token := OKC_API.resolve_del_token(del_rec.business_document_type);
9484:
9485: l_error_msg_text := OKC_TERMS_UTIL_PVT.get_message(p_app_name => G_OKC,
9486: p_msg_name => l_resolved_msg_name,
9487: p_token1 => 'DEL_TOKEN',
9494: l_qa_result_tbl(l_index).message_name := l_resolved_msg_name;
9495: l_qa_result_tbl(l_index).problem_details := l_error_msg_text;
9496:
9497: --Acq Plan Message Cleanup
9498: l_resolved_msg_name := OKC_API.resolve_message(l_suggestion_msg_name,del_rec.business_document_type);
9499: l_resolved_token := OKC_API.resolve_del_token(del_rec.business_document_type);
9500:
9501: l_suggestion_msg_text := OKC_TERMS_UTIL_PVT.get_message(p_app_name => G_OKC,
9502: p_msg_name => l_resolved_msg_name,
9495: l_qa_result_tbl(l_index).problem_details := l_error_msg_text;
9496:
9497: --Acq Plan Message Cleanup
9498: l_resolved_msg_name := OKC_API.resolve_message(l_suggestion_msg_name,del_rec.business_document_type);
9499: l_resolved_token := OKC_API.resolve_del_token(del_rec.business_document_type);
9500:
9501: l_suggestion_msg_text := OKC_TERMS_UTIL_PVT.get_message(p_app_name => G_OKC,
9502: p_msg_name => l_resolved_msg_name,
9503: p_token1 => 'DEL_TOKEN',
9554: * p_doc_type not null
9555: * p_doc_id not null
9556: * @modifies p_qa_result_tbl table of records that contains validation
9557: * errors and warnings
9558: * @returns x_return_status OKC_API.G_RET_STS_SUCCESS if succeeds
9559: * OKC_API.G_RET_STS_ERROR if failes
9560: * OKC_API.G_RET_STS_UNEXP_ERROR is unexpected error
9561: */
9562: PROCEDURE validate_deliverable_for_qa (
9555: * p_doc_id not null
9556: * @modifies p_qa_result_tbl table of records that contains validation
9557: * errors and warnings
9558: * @returns x_return_status OKC_API.G_RET_STS_SUCCESS if succeeds
9559: * OKC_API.G_RET_STS_ERROR if failes
9560: * OKC_API.G_RET_STS_UNEXP_ERROR is unexpected error
9561: */
9562: PROCEDURE validate_deliverable_for_qa (
9563: p_api_version IN NUMBER,
9556: * @modifies p_qa_result_tbl table of records that contains validation
9557: * errors and warnings
9558: * @returns x_return_status OKC_API.G_RET_STS_SUCCESS if succeeds
9559: * OKC_API.G_RET_STS_ERROR if failes
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,
9577: l_api_name CONSTANT VARCHAR2(30) := 'validate_deliverable';
9578: l_qa_severity_warning CONSTANT VARCHAR2(1) := 'W';
9579: l_qa_severity_error CONSTANT VARCHAR2(1) := 'E';
9580:
9581: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
9582: l_qa_result_tbl OKC_TERMS_QA_PVT.qa_result_tbl_type;
9583:
9584: l_start PLS_INTEGER := 0;
9585: l_end PLS_INTEGER := 0;
9584: l_start PLS_INTEGER := 0;
9585: l_end PLS_INTEGER := 0;
9586: del_cur del_cur_type;
9587: del_rec okc_deliverables%ROWTYPE;
9588: l_qa_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
9589:
9590: -- l_due_date_msg VARCHAR2(2000) := '';
9591: l_check_int_contact VARCHAR2(19) := 'CHECK_BUYER_CONTACT';
9592: l_check_ext_contact VARCHAR2(22) := 'CHECK_SUPPLIER_CONTACT';
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,
9670: p_init_msg_list,
9671: '_PVT',
9672: x_return_status);
9673: IF p_doc_id = NULL THEN
9670: p_init_msg_list,
9671: '_PVT',
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
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');
9681: RAISE FND_API.G_EXC_ERROR;
9682: END IF;
9683: IF p_mode = NULL THEN
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');
9686: RAISE FND_API.G_EXC_ERROR;
9687: END IF;
9688:
9687: END IF;
9688:
9689:
9690:
9691: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
9692: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
9693: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
9694: RAISE OKC_API.G_EXCEPTION_ERROR;
9695: END IF;
9688:
9689:
9690:
9691: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
9692: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
9693: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
9694: RAISE OKC_API.G_EXCEPTION_ERROR;
9695: END IF;
9696:
9689:
9690:
9691: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
9692: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
9693: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
9694: RAISE OKC_API.G_EXCEPTION_ERROR;
9695: END IF;
9696:
9697: -- Initialize message list if p_init_msg_list is set to TRUE.
9690:
9691: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
9692: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
9693: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
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
10350: IS
10351:
10352: l_api_version CONSTANT NUMBER := 1;
10353: l_api_name CONSTANT VARCHAR2(30) := 'validate_deliverable';
10354: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
10355:
10356:
10357:
10358: BEGIN
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,
10366: p_init_msg_list,
10367: '_PVT',
10368: x_return_status);
10369:
10367: '_PVT',
10368: x_return_status);
10369:
10370:
10371: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
10372: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
10373: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
10374: RAISE OKC_API.G_EXCEPTION_ERROR;
10375: END IF;
10368: x_return_status);
10369:
10370:
10371: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
10372: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
10373: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
10374: RAISE OKC_API.G_EXCEPTION_ERROR;
10375: END IF;
10376:
10369:
10370:
10371: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
10372: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
10373: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
10374: RAISE OKC_API.G_EXCEPTION_ERROR;
10375: END IF;
10376:
10377:
10370:
10371: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
10372: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
10373: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
10374: RAISE OKC_API.G_EXCEPTION_ERROR;
10375: END IF;
10376:
10377:
10378:
10529: x_msg_count OUT NOCOPY NUMBER,
10530: x_return_status OUT NOCOPY VARCHAR2)
10531: IS
10532: l_del_id NUMBER;
10533: l_return_status VARCHAR2(1):= OKC_API.G_RET_STS_SUCCESS;
10534: l_result VARCHAR2(1);
10535: l_api_name CONSTANT VARCHAR2(30) :='delete_del_instances';
10536:
10537: l_deleteInstances VARCHAR2(1) := 'Y';
10655:
10656: BEGIN
10657:
10658: -- Initialize API return status to success
10659: x_return_status := OKC_API.G_RET_STS_SUCCESS;
10660:
10661: FOR del_rec IN del_cur LOOP
10662: If del_rec.internal_flag = 'Y' then
10663: l_internal := del_rec.deliverable_type;
10730: x_msg_count OUT NOCOPY NUMBER,
10731: x_return_status OUT NOCOPY VARCHAR2)
10732: IS
10733:
10734: l_result VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
10735: l_api_name VARCHAR2(30) :='delete_deliverable';
10736:
10737: BEGIN
10738:
10842:
10843:
10844: TYPE delIdTabType IS TABLE OF NUMBER;
10845: delIdTab delIdTabType;
10846: l_result VARCHAR2(1):= OKC_API.G_RET_STS_SUCCESS;
10847: l_api_name CONSTANT VARCHAR2(30) :='delete_template_deliverables';
10848:
10849: exhibit_code_tbl okc_cdrl_pvt.exhibit_tbl_type;
10850: BEGIN
11006:
11007: BEGIN
11008:
11009: -- Initialize API return status to success
11010: x_return_status := OKC_API.G_RET_STS_SUCCESS;
11011:
11012:
11013: FOR del_rec IN del_cur LOOP
11014: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
11275: j PLS_INTEGER := 0;
11276: k PLS_INTEGER := 0;
11277: m PLS_INTEGER := 0;
11278: l_api_name CONSTANT VARCHAR2(30) :='copy_response_deliverables';
11279: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
11280: l_recur_del_parent_id NUMBER;
11281: x_errorcode NUMBER;
11282: BEGIN
11283: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
11952: x_return_status OUT NOCOPY VARCHAR2)
11953: IS
11954:
11955: l_api_name CONSTANT VARCHAR2(30) :='create_del_status_history';
11956: l_return_status VARCHAR2(1):= OKC_API.G_RET_STS_SUCCESS;
11957: l_msg_count NUMBER;
11958: l_msg_data VARCHAR2(1000);
11959: l_api_version CONSTANT VARCHAR2(30) := 1.0;
11960: j PLS_INTEGER := 0;
12275: delIdTab delIdTabType;
12276: j PLS_INTEGER := 0;
12277: k PLS_INTEGER := 0;
12278: l_api_name CONSTANT VARCHAR2(30) :='CopyDelForTemplateRevision';
12279: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
12280: l_deliverable_id NUMBER;
12281: l_from_pk1_value VARCHAR2(100);
12282: l_result BOOLEAN;
12283: l_copy VARCHAR2(1) := 'N';
12889: prev_vers_del prev_vers_del_tbl;
12890:
12891: l_api_name CONSTANT VARCHAR2(30) :='deleteDeliverables';
12892: l_api_version CONSTANT NUMBER := 1.0;
12893: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
12894:
12895: l_deliverable_id okc_deliverables.deliverable_id%TYPE;
12896: x_errorcode NUMBER;
12897:
12934: x_msg_count => x_msg_count,
12935: x_msg_data => x_msg_data);
12936:
12937: -----------------------------------------------------
12938: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
12939: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
12940: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
12941: RAISE OKC_API.G_EXCEPTION_ERROR;
12942: END IF;
12935: x_msg_data => x_msg_data);
12936:
12937: -----------------------------------------------------
12938: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
12939: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
12940: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
12941: RAISE OKC_API.G_EXCEPTION_ERROR;
12942: END IF;
12943: --------------------------------------------------------
12936:
12937: -----------------------------------------------------
12938: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
12939: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
12940: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
12941: RAISE OKC_API.G_EXCEPTION_ERROR;
12942: END IF;
12943: --------------------------------------------------------
12944:
12937: -----------------------------------------------------
12938: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
12939: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
12940: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
12941: RAISE OKC_API.G_EXCEPTION_ERROR;
12942: END IF;
12943: --------------------------------------------------------
12944:
12945: ELSE
12969: x_msg_count => x_msg_count,
12970: x_msg_data => x_msg_data);
12971:
12972: -----------------------------------------------------
12973: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
12974: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
12975: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
12976: RAISE OKC_API.G_EXCEPTION_ERROR;
12977: END IF;
12970: x_msg_data => x_msg_data);
12971:
12972: -----------------------------------------------------
12973: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
12974: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
12975: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
12976: RAISE OKC_API.G_EXCEPTION_ERROR;
12977: END IF;
12978: --------------------------------------------------------
12971:
12972: -----------------------------------------------------
12973: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
12974: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
12975: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
12976: RAISE OKC_API.G_EXCEPTION_ERROR;
12977: END IF;
12978: --------------------------------------------------------
12979:
12972: -----------------------------------------------------
12973: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
12974: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
12975: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
12976: RAISE OKC_API.G_EXCEPTION_ERROR;
12977: END IF;
12978: --------------------------------------------------------
12979:
12980: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
13332: x_msg_count => x_msg_count,
13333: x_msg_data => x_msg_data);
13334:
13335: -----------------------------------------------------
13336: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
13337: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
13338: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
13339: RAISE OKC_API.G_EXCEPTION_ERROR;
13340: END IF;
13333: x_msg_data => x_msg_data);
13334:
13335: -----------------------------------------------------
13336: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
13337: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
13338: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
13339: RAISE OKC_API.G_EXCEPTION_ERROR;
13340: END IF;
13341: --------------------------------------------------------
13334:
13335: -----------------------------------------------------
13336: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
13337: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
13338: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
13339: RAISE OKC_API.G_EXCEPTION_ERROR;
13340: END IF;
13341: --------------------------------------------------------
13342:
13335: -----------------------------------------------------
13336: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
13337: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
13338: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
13339: RAISE OKC_API.G_EXCEPTION_ERROR;
13340: END IF;
13341: --------------------------------------------------------
13342:
13343: END IF; -- End of (p_prev_del_active = 'N')
13395: x_return_status OUT NOCOPY VARCHAR2
13396: )
13397: IS
13398:
13399: l_result VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
13400: l_api_name VARCHAR2(30) :='delete_del_attach_and_history';
13401:
13402: BEGIN
13403: