[Home] [Help]
386: End getDelTypeIntFlag;
387:
388: /**
389: * Helper method to return Event Code and Before After value for given
390: * event id, stored in OKC_DELIVERABLES
391: */
392: PROCEDURE getDelEventDetails(
393: p_event_id IN NUMBER,
394: p_end_event_yn IN varchar2,
595: -- in the database. When the cursor is selected into the datastructure
596: -- there is a mismatch.
597: CURSOR del_cur IS
598: SELECT *
599: FROM OKC_DELIVERABLES
600: WHERE business_document_id = p_source_doc_id
601: AND business_document_type = p_source_doc_type
602: AND NVL(amendment_operation,'NONE') <> 'DELETED'
603: AND manage_yn = 'N'
606:
607:
608: CURSOR del_ins_cur(x NUMBER) IS
609: SELECT *
610: FROM okc_deliverables a
611: WHERE business_document_id = p_source_doc_id
612: AND business_document_type = p_source_doc_type
613: AND recurring_del_parent_id = x;
614: del_ins_rec del_ins_cur%ROWTYPE;
630: TYPE delIdTabType IS TABLE OF delIdRecType;
631: delIdTab delIdTabType;
632: l_recurring_del_parent_id NUMBER;
633:
634: l_target_start_event_id okc_deliverables.relative_st_date_event_id%TYPE:=null;
635: l_target_end_event_id okc_deliverables.relative_end_date_event_id%TYPE:=null;
636:
637: --Acq Plan Message Cleanup
638: l_resolved_msg_name VARCHAR2(30);
631: delIdTab delIdTabType;
632: l_recurring_del_parent_id NUMBER;
633:
634: l_target_start_event_id okc_deliverables.relative_st_date_event_id%TYPE:=null;
635: l_target_end_event_id okc_deliverables.relative_end_date_event_id%TYPE:=null;
636:
637: --Acq Plan Message Cleanup
638: l_resolved_msg_name VARCHAR2(30);
639: l_resolved_token VARCHAR2(100);
1105: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1106: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'118: Before insert');
1107: END IF;
1108: FOR i IN delNewTab.FIRST..delNewTab.LAST LOOP
1109: INSERT INTO okc_deliverables
1110: (DELIVERABLE_ID,
1111: BUSINESS_DOCUMENT_TYPE ,
1112: BUSINESS_DOCUMENT_ID ,
1113: BUSINESS_DOCUMENT_NUMBER ,
1508: -- where fixed dates are nulled out
1509: -- bug#3675608 added new param p_target_doctype to check if recurring del end event
1510: -- matches target_doctype.
1511:
1512: FUNCTION copy_response_allowed (p_delrec IN okc_deliverables%ROWTYPE
1513: ,p_target_response_doctype IN VARCHAR2
1514: ,p_target_doctype IN VARCHAR2
1515: ) RETURN VARCHAR2
1516: IS
1713: even if the dates are null.
1714: */
1715: ---bug#3594008 redid copy allowed to handle recurring contractual deliverables
1716: -- where fixed dates are nulled out
1717: FUNCTION copy_allowed (p_delrec IN okc_deliverables%ROWTYPE,
1718: p_target_doc_type IN VARCHAR2,
1719: p_target_contractual_doctype IN VARCHAR2
1720: ) RETURN VARCHAR2
1721: IS
1992: )
1993: IS
1994: CURSOR del_cur IS
1995: SELECT *
1996: FROM OKC_DELIVERABLES s
1997: WHERE business_document_id = p_source_doc_id
1998: AND business_document_version = -99
1999: AND business_document_type = p_source_doc_type
2000: AND NVL(amendment_operation,'NONE')<> 'DELETED'
2008: AND ( (p_source_doc_type <> 'TEMPLATE')
2009: OR
2010: ( p_source_doc_type = 'TEMPLATE'
2011: AND NOT EXISTS ( SELECT 'Y'
2012: FROM okc_deliverables t
2013: WHERE t.original_deliverable_id = s.original_deliverable_id
2014: AND t.business_document_type = p_target_doc_type
2015: AND t.business_document_id = p_target_doc_id
2016: AND t.business_document_version = -99
2065: SELECT pf.person_id contact_id
2066: FROM per_all_workforce_v pf,fnd_user fu
2067: WHERE fu.user_id = fnd_global.user_id
2068: AND pf.person_id = fu.employee_id;
2069: l_rep_dflt_int_contact_id okc_deliverables.INTERNAL_PARTY_CONTACT_ID%TYPE;
2070: --End of ER Code Modifications
2071: x_errorcode NUMBER;
2072: BEGIN
2073: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2902: delNewTab(i).deliverable_status := 'INACTIVE';
2903: END IF;
2904: END LOOP;
2905: /*FORALL i IN delNewTab.FIRST..delNewTab.LAST
2906: INSERT INTO okc_deliverables VALUES delNewTab(i);*/
2907: FOR i IN delNewTab.FIRST..delNewTab.LAST LOOP
2908: INSERT INTO okc_deliverables
2909: (DELIVERABLE_ID,
2910: BUSINESS_DOCUMENT_TYPE ,
2904: END LOOP;
2905: /*FORALL i IN delNewTab.FIRST..delNewTab.LAST
2906: INSERT INTO okc_deliverables VALUES delNewTab(i);*/
2907: FOR i IN delNewTab.FIRST..delNewTab.LAST LOOP
2908: INSERT INTO okc_deliverables
2909: (DELIVERABLE_ID,
2910: BUSINESS_DOCUMENT_TYPE ,
2911: BUSINESS_DOCUMENT_ID ,
2912: BUSINESS_DOCUMENT_NUMBER ,
3239: IS
3240:
3241: CURSOR del_cur IS
3242: SELECT *
3243: FROM okc_deliverables
3244: WHERE business_document_id = p_current_docid
3245: AND business_document_version = p_current_doc_version
3246: AND business_document_type = p_current_doctype
3247: AND NVL(amendment_operation,'NONE')<> 'DELETED'
3252:
3253:
3254: CURSOR del_ins_cur(x NUMBER) IS
3255: SELECT *
3256: FROM okc_deliverables a
3257: WHERE a.business_document_id = p_current_docid
3258: AND a.business_document_type = p_current_doctype
3259: AND a.business_document_version <> -99
3260: AND a.original_deliverable_id = x
3269: delHistTab delHistTabType;
3270:
3271: CURSOR event_date_cursor(X NUMBER) IS
3272: select start_event_date, end_event_date
3273: from okc_deliverables
3274: where deliverable_id = X;
3275: event_date_rec event_date_cursor%ROWTYPE;
3276:
3277: l_api_name CONSTANT VARCHAR2(30) :='sync_deliverables';
3654: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name
3655: ,'Def Id'||delRecTab(i).deliverable_id);
3656: END IF;
3657:
3658: Update okc_deliverables set start_event_date = event_date_rec.start_event_date,
3659: end_event_date = event_date_rec.end_event_date
3660: where deliverable_id = delRecTab(i).deliverable_id;
3661:
3662:
3892: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3893: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'outside def cursor loop');
3894: END IF;
3895:
3896: --BULK INSERT into okc_deliverables the new version of deliverables.
3897: IF delNewTab.COUNT <> 0 THEN
3898: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3899: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Insert new version records');
3900: END IF;
3946: END LOOP;
3947: -- insert records code changed for 8i compatability bug#3307941
3948: /* commented for 8i compatability bug#330794 major code change
3949: FORALL j IN delNewTab.FIRST..delNewTab.LAST
3950: INSERT INTO okc_deliverables VALUES delNewTab(j);*/
3951:
3952: --------------------------------------------
3953:
3954: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3954: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3955: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Before insert');
3956: END IF;
3957: FOR i IN delNewTab.FIRST..delNewTab.LAST LOOP
3958: INSERT INTO okc_deliverables
3959: (DELIVERABLE_ID,
3960: BUSINESS_DOCUMENT_TYPE ,
3961: BUSINESS_DOCUMENT_ID ,
3962: BUSINESS_DOCUMENT_NUMBER ,
4352: IS
4353:
4354: CURSOR del_cur IS
4355: SELECT *
4356: FROM okc_deliverables
4357: WHERE business_document_id = p_doc_id
4358: AND business_document_version = -99
4359: AND business_document_type = p_doc_type
4360: AND manage_yn = 'N';
4385: /*****
4386: 8i compatability bug#3307941
4387: ***/
4388: SELECT count(deliverable_id) INTO delCount
4389: FROM OKC_DELIVERABLES
4390: WHERE business_document_id = p_doc_id
4391: AND business_document_type = p_doc_type
4392: AND business_document_version = p_doc_version;
4393: --If already deliverables are created for the new version, then we wont create it.
4525: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name
4526: ,'100: Amendment_operation_summary_code is null hard delete this deliverable'||
4527: to_char(delRecTab(i).deliverable_id));
4528: END IF;
4529: delete from okc_deliverables where deliverable_id = delRecTab(i).deliverable_id;*/
4530:
4531:
4532: j:=j+1;
4533: q:=q+1;
4550: END LOOP;-- delRecTab(i)
4551: END IF; --delRecTab.COUNT <> 0
4552:
4553: /***
4554: BULK INSERT into okc_deliverables the new version of deliverables.
4555: ***/
4556: IF delNewTab.COUNT <> 0 THEN
4557: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4558: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Insert new version records');
4572: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4573: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: Before insert');
4574: END IF;
4575: FOR i IN delNewTab.FIRST..delNewTab.LAST LOOP
4576: INSERT INTO okc_deliverables
4577: (DELIVERABLE_ID,
4578: BUSINESS_DOCUMENT_TYPE ,
4579: BUSINESS_DOCUMENT_ID ,
4580: BUSINESS_DOCUMENT_NUMBER ,
4783:
4784: -- insert records code changed for 8i compatability bug#3307941
4785: /* commented for 8i compatability bug#330794 major code change
4786: FORALL j IN delNewTab.FIRST..delNewTab.LAST
4787: INSERT INTO okc_deliverables VALUES delNewTab(j);*/
4788:
4789: FOR j IN delIdTab.FIRST..delIdTab.LAST LOOP
4790: IF attachment_exists(p_entity_name => G_ENTITY_NAME
4791: ,p_pk1_value => delIdTab(j).orig_del_id) THEN
4818: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name
4819: ,'100: Flush Amendment operation:'
4820: ||to_char(del_rec.deliverable_id));
4821: END IF;
4822: UPDATE okc_deliverables SET amendment_operation = null,
4823: --amendment_notes = null,
4824: --last_amendment_date = null,
4825: last_updated_by= Fnd_Global.User_Id,
4826: last_update_date = sysdate,
4913: CURSOR def_cur IS
4914: SELECT deliverable_id
4915: ,amendment_operation
4916: ,summary_amend_operation_code
4917: FROM okc_deliverables
4918: WHERE business_document_id = p_doc_id
4919: AND business_document_version = -99
4920: AND business_document_type = p_doc_type
4921: AND manage_yn = 'N';
4949: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,
4950: '100: deleted deliverable: '||to_char(def_rec.deliverable_id));
4951: END IF;
4952: -- delete deleverable definitions which are removed from approved business doc
4953: delete from okc_deliverables
4954: where deliverable_id = def_rec.deliverable_id;
4955: DELETE FROM OKC_DELIVERABLES_EXT_B
4956: WHERE deliverable_id = def_rec.deliverable_id;
4957: DELETE FROM OKC_DELIVERABLES_EXT_TL
4951: END IF;
4952: -- delete deleverable definitions which are removed from approved business doc
4953: delete from okc_deliverables
4954: where deliverable_id = def_rec.deliverable_id;
4955: DELETE FROM OKC_DELIVERABLES_EXT_B
4956: WHERE deliverable_id = def_rec.deliverable_id;
4957: DELETE FROM OKC_DELIVERABLES_EXT_TL
4958: WHERE deliverable_id = def_rec.deliverable_id;
4959: ELSE
4953: delete from okc_deliverables
4954: where deliverable_id = def_rec.deliverable_id;
4955: DELETE FROM OKC_DELIVERABLES_EXT_B
4956: WHERE deliverable_id = def_rec.deliverable_id;
4957: DELETE FROM OKC_DELIVERABLES_EXT_TL
4958: WHERE deliverable_id = def_rec.deliverable_id;
4959: ELSE
4960: -- clear all amendment attributes but
4961: -- don't clear last_amendment_date this is needed for PO change History
4959: ELSE
4960: -- clear all amendment attributes but
4961: -- don't clear last_amendment_date this is needed for PO change History
4962: -- to enable or disable deliverables link
4963: UPDATE okc_deliverables SET amendment_operation = null,
4964: summary_amend_operation_code = null,
4965: amendment_notes = null,
4966: last_updated_by= Fnd_Global.User_Id,
4967: last_update_date = sysdate,
4982: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,
4983: '100: deleted deliverable: '||to_char(def_rec.deliverable_id));
4984: END IF;
4985: -- delete deleverable definitions which are removed from approved business doc
4986: delete from okc_deliverables
4987: where deliverable_id = def_rec.deliverable_id;
4988: DELETE FROM OKC_DELIVERABLES_EXT_B
4989: WHERE deliverable_id = def_rec.deliverable_id;
4990: DELETE FROM OKC_DELIVERABLES_EXT_TL
4984: END IF;
4985: -- delete deleverable definitions which are removed from approved business doc
4986: delete from okc_deliverables
4987: where deliverable_id = def_rec.deliverable_id;
4988: DELETE FROM OKC_DELIVERABLES_EXT_B
4989: WHERE deliverable_id = def_rec.deliverable_id;
4990: DELETE FROM OKC_DELIVERABLES_EXT_TL
4991: WHERE deliverable_id = def_rec.deliverable_id;
4992: ELSE
4986: delete from okc_deliverables
4987: where deliverable_id = def_rec.deliverable_id;
4988: DELETE FROM OKC_DELIVERABLES_EXT_B
4989: WHERE deliverable_id = def_rec.deliverable_id;
4990: DELETE FROM OKC_DELIVERABLES_EXT_TL
4991: WHERE deliverable_id = def_rec.deliverable_id;
4992: ELSE
4993: -- clear only amendment_operation
4994: UPDATE okc_deliverables SET amendment_operation = null,
4990: DELETE FROM OKC_DELIVERABLES_EXT_TL
4991: WHERE deliverable_id = def_rec.deliverable_id;
4992: ELSE
4993: -- clear only amendment_operation
4994: UPDATE okc_deliverables SET amendment_operation = null,
4995: last_updated_by= Fnd_Global.User_Id,
4996: last_update_date = sysdate,
4997: last_update_login=Fnd_Global.Login_Id
4998: WHERE deliverable_id = def_rec.deliverable_id;
5048: IS
5049: l_api_name CONSTANT VARCHAR2(30) :='disable_deliverable';
5050: CURSOR del_cur IS
5051: SELECT deliverable_id
5052: FROM okc_deliverables
5053: WHERE business_document_id = p_doc_id
5054: AND business_document_version =p_doc_version
5055: AND business_document_type = p_doc_type
5056: AND manage_yn = 'Y';
5066: OPEN del_cur;
5067: FETCH del_cur BULK COLLECT INTO delIdTab;
5068: IF delIdTab.COUNT <> 0 THEN
5069: FORALL i IN delIdTab.FIRST..delIdTab.LAST
5070: UPDATE okc_deliverables SET manage_yn = 'N',
5071: last_updated_by= Fnd_Global.User_Id,
5072: last_update_date = sysdate,
5073: last_update_login=Fnd_Global.Login_Id
5074: WHERE deliverable_id = delIdTab(i);
5234: IS
5235: l_api_name CONSTANT VARCHAR2(30) :='change_deliverable_status';
5236: CURSOR del_activate_cur IS
5237: SELECT deliverable_id
5238: FROM okc_deliverables
5239: WHERE business_document_id = p_doc_id
5240: AND business_document_version =p_doc_version
5241: AND business_document_type = p_doc_type
5242: AND deliverable_status = p_current_status
5243: AND actual_due_date is not null;
5244:
5245: /* CURSOR del_cancel_cur IS
5246: SELECT deliverable_id
5247: FROM okc_deliverables
5248: WHERE business_document_id = p_doc_id
5249: AND business_document_version =p_doc_version
5250: AND business_document_type = p_doc_type
5251: AND NVL(relative_st_date_event_id,0) NOT IN (
5291: delStsTab(j).last_update_date := sysdate;
5292: delStsTab(j).last_update_login := Fnd_Global.Login_Id;
5293: END LOOP;
5294:
5295: --Bulk update of status in okc_deliverables
5296: FORALL i IN delIdTab.FIRST..delIdTab.LAST
5297: UPDATE okc_deliverables
5298: SET
5299: deliverable_status = p_new_status,
5293: END LOOP;
5294:
5295: --Bulk update of status in okc_deliverables
5296: FORALL i IN delIdTab.FIRST..delIdTab.LAST
5297: UPDATE okc_deliverables
5298: SET
5299: deliverable_status = p_new_status,
5300: manage_yn = p_manage_yn,
5301: last_updated_by= Fnd_Global.User_Id,
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
5385: deliverable_status = p_new_status,
5386: manage_yn = 'N',
5387: last_updated_by= Fnd_Global.User_Id,
5568: responsible_party,
5569: external_party_contact_id,
5570: internal_party_contact_id,
5571: requester_id
5572: FROM okc_deliverables
5573: WHERE manage_yn = 'Y'
5574: AND disable_notifications_yn = 'N'
5575: AND notify_overdue_yn = 'Y'
5576: AND overdue_notification_id is null
5586:
5587: TYPE del_cur_tbl IS TABLE OF del_cur%ROWTYPE;
5588: selected_dels del_cur_tbl;
5589:
5590: TYPE OverdueNtfIdList IS TABLE OF okc_deliverables.overdue_notification_id%TYPE NOT NULL
5591: INDEX BY PLS_INTEGER;
5592: TYPE DeliverableIdList IS TABLE OF okc_deliverables.deliverable_id%TYPE NOT NULL
5593: INDEX BY PLS_INTEGER;
5594: overdue_ntf_ids OverdueNtfIdList;
5588: selected_dels del_cur_tbl;
5589:
5590: TYPE OverdueNtfIdList IS TABLE OF okc_deliverables.overdue_notification_id%TYPE NOT NULL
5591: INDEX BY PLS_INTEGER;
5592: TYPE DeliverableIdList IS TABLE OF okc_deliverables.deliverable_id%TYPE NOT NULL
5593: INDEX BY PLS_INTEGER;
5594: overdue_ntf_ids OverdueNtfIdList;
5595: deliverable_ids DeliverableIdList;
5596:
5694:
5695: IF deliverable_ids.COUNT > 0 THEN
5696: FORALL i IN deliverable_ids.FIRST..NVL(deliverable_ids.LAST, -1)
5697:
5698: UPDATE okc_deliverables
5699: SET overdue_notification_id = overdue_ntf_ids(i),
5700: last_update_date = sysdate,
5701: last_updated_by = FND_GLOBAL.User_id,
5702: last_update_login =Fnd_Global.Login_Id
5846: x_msg_data OUT NOCOPY VARCHAR2)
5847: IS
5848: CURSOR del_cur IS
5849: SELECT *
5850: FROM okc_deliverables
5851: WHERE manage_yn = 'Y'
5852: AND disable_notifications_yn = 'N'
5853: AND notify_prior_due_date_yn = 'Y'
5854: AND prior_notification_id is null
6066: END IF;
6067: IF delNtfTab.COUNT > 0 THEN
6068: FOR i IN delNtfTab.FIRST..delNtfTab.LAST LOOP
6069: /** commented as this is not supported by 8i PL/SQL Bug#3307941
6070: UPDATE okc_deliverables SET ROW = delNtfTab(i)
6071: where deliverable_id = l_deliverable_id;
6072: l_deliverable_id := delNtfTab(i).deliverable_id;*/
6073: UPDATE okc_deliverables
6074: SET prior_notification_id = delNtfTab(i).prior_notification_id,
6069: /** commented as this is not supported by 8i PL/SQL Bug#3307941
6070: UPDATE okc_deliverables SET ROW = delNtfTab(i)
6071: where deliverable_id = l_deliverable_id;
6072: l_deliverable_id := delNtfTab(i).deliverable_id;*/
6073: UPDATE okc_deliverables
6074: SET prior_notification_id = delNtfTab(i).prior_notification_id,
6075: last_update_date = sysdate,
6076: last_updated_by = FND_GLOBAL.User_id,
6077: last_update_login =Fnd_Global.Login_Id
6215: IS
6216: l_api_name CONSTANT VARCHAR2(30) :='esc_del_notifier';
6217: CURSOR del_cur IS
6218: SELECT *
6219: FROM okc_deliverables
6220: WHERE manage_yn = 'Y'
6221: AND disable_notifications_yn = 'N'
6222: AND notify_escalation_yn = 'Y'
6223: AND escalation_assignee is not null
6430: END IF;
6431: IF delNtfTab.COUNT > 0 THEN
6432: FOR i IN delNtfTab.FIRST..delNtfTab.LAST LOOP
6433: /** commented as this is not supported by 8i PL/SQL Bug#3307941
6434: UPDATE okc_deliverables SET ROW = delNtfTab(i)
6435: where deliverable_id = l_deliverable_id;
6436: l_deliverable_id := delNtfTab(i).deliverable_id;*/
6437: UPDATE okc_deliverables
6438: SET escalation_notification_id = delNtfTab(i).escalation_notification_id,
6433: /** commented as this is not supported by 8i PL/SQL Bug#3307941
6434: UPDATE okc_deliverables SET ROW = delNtfTab(i)
6435: where deliverable_id = l_deliverable_id;
6436: l_deliverable_id := delNtfTab(i).deliverable_id;*/
6437: UPDATE okc_deliverables
6438: SET escalation_notification_id = delNtfTab(i).escalation_notification_id,
6439: last_update_date = sysdate,
6440: last_updated_by = FND_GLOBAL.User_id,
6441: last_update_login =Fnd_Global.Login_Id
6670: ,p_retain_exhibits IN VARCHAR2 := 'N')
6671: IS
6672: CURSOR del_cur IS
6673: SELECT deliverable_id
6674: FROM okc_deliverables
6675: WHERE business_document_id = p_doc_id
6676: AND business_document_type = p_doc_type
6677: AND ( p_retain_lock_deliverables_yn = 'N'
6678: OR
6681: );
6682:
6683: CURSOR del_version_cur IS
6684: SELECT deliverable_id
6685: FROM okc_deliverables
6686: WHERE business_document_id = p_doc_id
6687: AND business_document_type = p_doc_type
6688: AND business_document_version = p_doc_version
6689: AND ( p_retain_lock_deliverables_yn = 'N'
6754: ,p_pk1_value => delIdTab(i)
6755: ,x_result => l_result);
6756: IF l_result = 'S' THEN
6757: -- delete deliverables
6758: DELETE FROM okc_deliverables
6759: WHERE deliverable_id = delIdTab(i);
6760: DELETE FROM OKC_DELIVERABLES_EXT_B
6761: WHERE deliverable_id = delIdTab(i);
6762: DELETE FROM OKC_DELIVERABLES_EXT_TL
6756: IF l_result = 'S' THEN
6757: -- delete deliverables
6758: DELETE FROM okc_deliverables
6759: WHERE deliverable_id = delIdTab(i);
6760: DELETE FROM OKC_DELIVERABLES_EXT_B
6761: WHERE deliverable_id = delIdTab(i);
6762: DELETE FROM OKC_DELIVERABLES_EXT_TL
6763: WHERE deliverable_id = delIdTab(i);
6764: END IF;
6758: DELETE FROM okc_deliverables
6759: WHERE deliverable_id = delIdTab(i);
6760: DELETE FROM OKC_DELIVERABLES_EXT_B
6761: WHERE deliverable_id = delIdTab(i);
6762: DELETE FROM OKC_DELIVERABLES_EXT_TL
6763: WHERE deliverable_id = delIdTab(i);
6764: END IF;
6765:
6766:
6847: x_return_status OUT NOCOPY VARCHAR2)
6848: IS
6849: CURSOR del_cur IS
6850: SELECT deliverable_id
6851: FROM okc_deliverables
6852: WHERE business_document_id = p_working_template_id
6853: AND business_document_type = 'TEMPLATE';
6854: TYPE delIdRecTabType IS TABLE OF NUMBER;
6855: delIdTab delIdRecTabType;
6863: OPEN del_cur;
6864: FETCH del_cur BULK COLLECT INTO delIdTab;
6865: IF delIdTab.COUNT <> 0 THEN
6866: FORALL j IN delIdTab.FIRST..delIdTab.LAST
6867: UPDATE okc_deliverables
6868: SET business_document_id = p_base_template_id,
6869: last_updated_by= Fnd_Global.User_Id,
6870: last_update_date = sysdate,
6871: last_update_login=Fnd_Global.Login_Id
6951: -- updated cursor for bug#4069955
6952: CURSOR del_cur IS
6953: SELECT NVL(MAX(del.last_amendment_date),MAX(del.creation_date))
6954: FROM
6955: okc_deliverables del
6956: ,okc_deliverable_types_b delType
6957: WHERE del.business_document_id = p_busdoc_id
6958: AND del.business_document_type = p_busdoc_type
6959: AND del.recurring_del_parent_id is null
6964: AND delType.internal_flag = 'N';
6965:
6966: /*CURSOR create_date_cur IS
6967: SELECT MAX(last_amendment_date)
6968: FROM okc_deliverables
6969: WHERE business_document_id = p_busdoc_id
6970: AND business_document_type = p_busdoc_type
6971: AND business_document_version = -99
6972: AND deliverable_type not like '%INTERNAL%';*/
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,
7544: px_qa_result_tbl IN OUT NOCOPY OKC_TERMS_QA_PVT.qa_result_tbl_type,
7545: x_return_status OUT NOCOPY VARCHAR2
7546: ) IS
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,
7690: px_qa_result_tbl IN OUT NOCOPY OKC_TERMS_QA_PVT.qa_result_tbl_type,
7691: x_return_status OUT NOCOPY VARCHAR2
7692: ) IS
7939:
7940: END is_cdrl_check_required;
7941:
7942: PROCEDURE check_exhibit_details (
7943: del_rec IN OKC_DELIVERABLES%ROWTYPE,
7944: p_severity IN VARCHAR2,
7945: px_qa_result_tbl IN OUT NOCOPY OKC_TERMS_QA_PVT.qa_result_tbl_type,
7946: x_return_status OUT NOCOPY VARCHAR2
7947: )
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,
8083: px_qa_result_tbl IN OUT NOCOPY OKC_TERMS_QA_PVT.qa_result_tbl_type,
8084: x_return_status OUT NOCOPY VARCHAR2
8085: ) IS
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,
8277: px_qa_result_tbl IN OUT NOCOPY OKC_TERMS_QA_PVT.qa_result_tbl_type,
8278: x_return_status OUT NOCOPY VARCHAR2
8279: ) IS
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,
8454: p_bus_doc_date_events_tbl IN OKC_TERMS_QA_GRP.BUSDOCDATES_TBL_TYPE,
8455: p_doc_type IN VARCHAR2, --Acq plan Messages Cleanup
8456: px_qa_result_tbl IN OUT NOCOPY OKC_TERMS_QA_PVT.qa_result_tbl_type,
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,
8892: px_qa_result_tbl IN OUT NOCOPY OKC_TERMS_QA_PVT.qa_result_tbl_type,
8893: x_return_status OUT NOCOPY VARCHAR2
8894: ) IS
9141: ,p_del_type IN VARCHAR2
9142: ,p_internal_org IN VARCHAR2) IS
9143: select 'x'
9144: from
9145: okc_deliverables del
9146: where
9147: del.business_document_type = p_bus_doc_type
9148: and del.business_document_id = p_bus_doc_id
9149: and del.deliverable_type = p_del_type
9157: ,p_del_type IN VARCHAR2
9158: ,p_internal_org IN VARCHAR2) IS
9159: select 'x'
9160: from
9161: okc_deliverables del
9162: where
9163: del.business_document_type = p_bus_doc_type
9164: and del.business_document_id = p_bus_doc_id
9165: and del.deliverable_type = p_del_type
9171: ,p_bus_doc_id IN NUMBER
9172: ,p_del_type IN VARCHAR2) IS
9173: select 'x'
9174: from
9175: okc_deliverables del
9176: where
9177: del.business_document_type = p_bus_doc_type
9178: and del.business_document_id = p_bus_doc_id
9179: and del.deliverable_type = p_del_type;
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,
9425: px_qa_result_tbl IN OUT NOCOPY OKC_TERMS_QA_PVT.qa_result_tbl_type,
9426: x_return_status OUT NOCOPY VARCHAR2
9427: ) IS
9583:
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';
9885: --End ExternalPartyExists cursors--
9886: /* IF(p_mode = G_AMEND_QA) THEN
9887: OPEN del_cur FOR
9888: select *
9889: from okc_deliverables
9890: where business_document_type = p_doc_type
9891: and business_document_id = p_doc_id
9892: and business_document_version = -99
9893: and deliverable_type in (select deltypes.deliverable_type_code from okc_bus_doc_types_b doctypes,
9913:
9914:
9915: OPEN del_cur FOR
9916: select *
9917: from okc_deliverables
9918: where business_document_type = p_doc_type
9919: and business_document_id = p_doc_id
9920: and business_document_version = -99
9921: and (amendment_operation is NULL OR amendment_operation <> 'DELETED')
10105:
10106:
10107: OPEN del_cur FOR
10108: select *
10109: from okc_deliverables
10110: where business_document_type = p_doc_type
10111: and business_document_id = p_doc_id
10112: and business_document_version = -99
10113: and (amendment_operation is NULL OR amendment_operation <> 'DELETED')
10446: Add as part of fix for bug#3458149
10447: Checks Deliverable_Status_History table and returns 'Y' if the Status of a Deliverable was NOT changed by
10448: user since the Deliverable was first resolved, else returns 'N'
10449: */
10450: Function delStatusUnchanged(p_del_ID IN OKC_DELIVERABLES.deliverable_id%TYPE) RETURN VARCHAR2 IS
10451: l_open_count NUMBER ;
10452: l_inactive_count NUMBER ;
10453: l_others_count NUMBER ;
10454:
10573: ,p_pk1_value => l_del_id
10574: ,x_result => l_result);
10575: IF l_result = 'S' THEN
10576: -- delete deliverables
10577: DELETE FROM okc_deliverables
10578: WHERE deliverable_id = l_del_id;
10579: DELETE FROM OKC_DELIVERABLES_EXT_B
10580: WHERE deliverable_id = l_del_id;
10581: DELETE FROM OKC_DELIVERABLES_EXT_TL
10575: IF l_result = 'S' THEN
10576: -- delete deliverables
10577: DELETE FROM okc_deliverables
10578: WHERE deliverable_id = l_del_id;
10579: DELETE FROM OKC_DELIVERABLES_EXT_B
10580: WHERE deliverable_id = l_del_id;
10581: DELETE FROM OKC_DELIVERABLES_EXT_TL
10582: WHERE deliverable_id = l_del_id;
10583: END IF;
10577: DELETE FROM okc_deliverables
10578: WHERE deliverable_id = l_del_id;
10579: DELETE FROM OKC_DELIVERABLES_EXT_B
10580: WHERE deliverable_id = l_del_id;
10581: DELETE FROM OKC_DELIVERABLES_EXT_TL
10582: WHERE deliverable_id = l_del_id;
10583: END IF;
10584: x_return_status := l_return_status;
10585: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
10636: SELECT
10637: del.deliverable_type
10638: ,delType.internal_flag
10639: FROM
10640: okc_deliverables del
10641: ,okc_deliverable_types_b delType
10642: WHERE del.business_document_id = p_docid
10643: AND del.business_document_type = p_doctype
10644: AND del.business_document_version = -99
10648:
10649: l_del_rec del_cur%ROWTYPE;
10650: l_api_name CONSTANT VARCHAR2(30) := 'deliverables_exist';
10651: l_exists VARCHAR2(60):= 'NONE';
10652: l_contractual okc_deliverables.deliverable_type%TYPE;
10653: l_internal okc_deliverables.deliverable_type%TYPE;
10654: l_sourcing okc_deliverables.deliverable_type%TYPE;
10655:
10656: BEGIN
10649: l_del_rec del_cur%ROWTYPE;
10650: l_api_name CONSTANT VARCHAR2(30) := 'deliverables_exist';
10651: l_exists VARCHAR2(60):= 'NONE';
10652: l_contractual okc_deliverables.deliverable_type%TYPE;
10653: l_internal okc_deliverables.deliverable_type%TYPE;
10654: l_sourcing okc_deliverables.deliverable_type%TYPE;
10655:
10656: BEGIN
10657:
10650: l_api_name CONSTANT VARCHAR2(30) := 'deliverables_exist';
10651: l_exists VARCHAR2(60):= 'NONE';
10652: l_contractual okc_deliverables.deliverable_type%TYPE;
10653: l_internal okc_deliverables.deliverable_type%TYPE;
10654: l_sourcing okc_deliverables.deliverable_type%TYPE;
10655:
10656: BEGIN
10657:
10658: -- Initialize API return status to success
10748: ,p_pk1_value => p_del_id
10749: ,x_result => l_result);
10750: IF l_result = 'S' THEN
10751: -- delete deliverables
10752: DELETE FROM okc_deliverables
10753: WHERE deliverable_id = p_del_id;
10754: DELETE FROM OKC_DELIVERABLES_EXT_B
10755: WHERE deliverable_id = p_del_id;
10756: DELETE FROM OKC_DELIVERABLES_EXT_TL
10750: IF l_result = 'S' THEN
10751: -- delete deliverables
10752: DELETE FROM okc_deliverables
10753: WHERE deliverable_id = p_del_id;
10754: DELETE FROM OKC_DELIVERABLES_EXT_B
10755: WHERE deliverable_id = p_del_id;
10756: DELETE FROM OKC_DELIVERABLES_EXT_TL
10757: WHERE deliverable_id = p_del_id;
10758: END IF;
10752: DELETE FROM okc_deliverables
10753: WHERE deliverable_id = p_del_id;
10754: DELETE FROM OKC_DELIVERABLES_EXT_B
10755: WHERE deliverable_id = p_del_id;
10756: DELETE FROM OKC_DELIVERABLES_EXT_TL
10757: WHERE deliverable_id = p_del_id;
10758: END IF;
10759: x_return_status := l_result;
10760: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
10817:
10818: -- bug#4075168 changed the select "and original_deliverable_id IN ( select original_deliverable_id"
10819: CURSOR del_cur IS
10820: select deliverable_id
10821: from okc_deliverables
10822: where business_document_id = p_doc_id
10823: and business_document_type = p_doc_type
10824: and business_document_version = -99
10825: and original_deliverable_id IN (
10823: and business_document_type = p_doc_type
10824: and business_document_version = -99
10825: and original_deliverable_id IN (
10826: select original_deliverable_id
10827: from okc_deliverables
10828: where business_document_type = 'TEMPLATE');
10829:
10830: CURSOR exb_cur IS
10831: select DISTINCT exhibit_code
10828: where business_document_type = 'TEMPLATE');
10829:
10830: CURSOR exb_cur IS
10831: select DISTINCT exhibit_code
10832: from okc_deliverables
10833: where business_document_id = p_doc_id
10834: and business_document_type = p_doc_type
10835: and business_document_version = -99
10836: and original_deliverable_id IN (
10834: and business_document_type = p_doc_type
10835: and business_document_version = -99
10836: and original_deliverable_id IN (
10837: select original_deliverable_id
10838: from okc_deliverables
10839: where business_document_type = 'TEMPLATE')
10840: AND DEL_CATEGORY_CODE = 'CDRL'
10841: AND exhibit_code IS NOT NULL;
10842:
10876: END IF;
10877: END LOOP;
10878: IF l_result = 'S' THEN
10879: FOR i IN delIdTab.FIRST..delIdTab.LAST LOOP
10880: DELETE FROM okc_deliverables
10881: WHERE deliverable_id = delIdTab(i);
10882: DELETE FROM OKC_DELIVERABLES_EXT_B
10883: WHERE deliverable_id = delIdTab(i);
10884: DELETE FROM OKC_DELIVERABLES_EXT_TL
10878: IF l_result = 'S' THEN
10879: FOR i IN delIdTab.FIRST..delIdTab.LAST LOOP
10880: DELETE FROM okc_deliverables
10881: WHERE deliverable_id = delIdTab(i);
10882: DELETE FROM OKC_DELIVERABLES_EXT_B
10883: WHERE deliverable_id = delIdTab(i);
10884: DELETE FROM OKC_DELIVERABLES_EXT_TL
10885: WHERE deliverable_id = delIdTab(i);
10886: END LOOP;
10880: DELETE FROM okc_deliverables
10881: WHERE deliverable_id = delIdTab(i);
10882: DELETE FROM OKC_DELIVERABLES_EXT_B
10883: WHERE deliverable_id = delIdTab(i);
10884: DELETE FROM OKC_DELIVERABLES_EXT_TL
10885: WHERE deliverable_id = delIdTab(i);
10886: END LOOP;
10887: END IF;
10888: END IF;-- delIdTab.COUNT
10986: del.amendment_operation
10987: ,del.deliverable_type
10988: ,delType.internal_flag
10989: FROM
10990: okc_deliverables del
10991: ,okc_deliverable_types_b delType
10992: WHERE del.business_document_id = p_docid
10993: AND del.business_document_type = p_doctype
10994: AND del.business_document_version = -99
10998: AND delType.internal_flag = 'N';
10999:
11000: l_del_rec del_cur%ROWTYPE;
11001: l_amended VARCHAR2(30):= 'NONE';
11002: l_contractual okc_deliverables.deliverable_type%TYPE;
11003: l_internal okc_deliverables.deliverable_type%TYPE;
11004: l_sourcing okc_deliverables.deliverable_type%TYPE;
11005: l_api_name CONSTANT VARCHAR2(30) := 'deliverables_amended';
11006:
10999:
11000: l_del_rec del_cur%ROWTYPE;
11001: l_amended VARCHAR2(30):= 'NONE';
11002: l_contractual okc_deliverables.deliverable_type%TYPE;
11003: l_internal okc_deliverables.deliverable_type%TYPE;
11004: l_sourcing okc_deliverables.deliverable_type%TYPE;
11005: l_api_name CONSTANT VARCHAR2(30) := 'deliverables_amended';
11006:
11007: BEGIN
11000: l_del_rec del_cur%ROWTYPE;
11001: l_amended VARCHAR2(30):= 'NONE';
11002: l_contractual okc_deliverables.deliverable_type%TYPE;
11003: l_internal okc_deliverables.deliverable_type%TYPE;
11004: l_sourcing okc_deliverables.deliverable_type%TYPE;
11005: l_api_name CONSTANT VARCHAR2(30) := 'deliverables_amended';
11006:
11007: BEGIN
11008:
11243: x_return_status OUT NOCOPY VARCHAR2)
11244: IS
11245: CURSOR del_cur IS
11246: SELECT *
11247: FROM OKC_DELIVERABLES
11248: WHERE business_document_id = p_source_doc_id
11249: AND business_document_type = p_source_doc_type
11250: AND recurring_del_parent_id is null;
11251: del_rec del_cur%ROWTYPE;
11251: del_rec del_cur%ROWTYPE;
11252:
11253: CURSOR del_ins_cur (X number) IS
11254: SELECT *
11255: FROM okc_deliverables
11256: WHERE business_document_id = p_source_doc_id
11257: AND business_document_type = p_source_doc_type
11258: AND recurring_del_parent_id = X;
11259: del_ins_rec del_ins_cur%ROWTYPE;
11583: FOR i IN delNewTab.FIRST..delNewTab.LAST LOOP
11584: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
11585: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'100: New Deliverable Id :'||to_char(delNewTab(j).deliverable_id));
11586: END IF;
11587: INSERT INTO okc_deliverables
11588: (DELIVERABLE_ID,
11589: BUSINESS_DOCUMENT_TYPE ,
11590: BUSINESS_DOCUMENT_ID ,
11591: BUSINESS_DOCUMENT_NUMBER ,
12067: SELECT
12068: del.deliverable_type deliverable_type
12069: ,del.responsible_party responsible_party
12070: from
12071: okc_deliverables del
12072: ,okc_deliverable_types_b delType
12073: where del.business_document_type = p_bus_doc_type
12074: and del.business_document_id = p_bus_doc_id
12075: and del.business_document_version = -99
12260: x_return_status OUT NOCOPY VARCHAR2) IS
12261:
12262: CURSOR del_cur IS
12263: SELECT *
12264: FROM OKC_DELIVERABLES
12265: WHERE business_document_id = p_source_doc_id
12266: AND business_document_version = -99
12267: AND business_document_type = p_source_doc_type
12268: AND NVL(amendment_operation,'NONE')<> 'DELETED'
12436: END LOOP;
12437: -- bug#4083525 CopyDelForTemplateRevision
12438: IF delNewTab.COUNT <> 0 THEN
12439: FOR i IN delNewTab.FIRST..delNewTab.LAST LOOP
12440: INSERT INTO okc_deliverables
12441: (DELIVERABLE_ID,
12442: BUSINESS_DOCUMENT_TYPE ,
12443: BUSINESS_DOCUMENT_ID ,
12444: BUSINESS_DOCUMENT_NUMBER ,
12763: -- the current version of a business document
12764: CURSOR cur_vers_del_csr IS
12765: SELECT deliverable_id,
12766: original_deliverable_id
12767: FROM okc_deliverables
12768: WHERE business_document_id = p_bus_doc_id
12769: AND business_document_version = -99
12770: AND business_document_type = p_bus_doc_type;
12771:
12864: orig_system_reference_id2,
12865: del_category_code,
12866: uda_template_id,
12867: schedule_type
12868: FROM okc_deliverables
12869: WHERE business_document_id = p_bus_doc_id
12870: AND business_document_version = p_bus_doc_version - 1
12871: AND business_document_type = p_bus_doc_type
12872: AND recurring_del_parent_id IS NULL
12874:
12875:
12876: -- Fix for bug 13518546 start
12877: CURSOR cur_del_doc_type(delid NUMBER) IS
12878: SELECT BUSINESS_DOCUMENT_TYPE FROM okc_deliverables
12879: WHERE deliverable_id=delid;
12880:
12881: l_business_document_type okc_deliverables.business_document_type%TYPE;
12882:
12877: CURSOR cur_del_doc_type(delid NUMBER) IS
12878: SELECT BUSINESS_DOCUMENT_TYPE FROM okc_deliverables
12879: WHERE deliverable_id=delid;
12880:
12881: l_business_document_type okc_deliverables.business_document_type%TYPE;
12882:
12883: -- Fix for bug 13518546 end
12884:
12885: TYPE cur_vers_del_tbl IS TABLE OF cur_vers_del_csr%ROWTYPE;
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:
12898: BEGIN
12899:
13084: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
13085: 'Inserting a Deliverable with deliverable id ' || l_deliverable_id);
13086: END IF;
13087:
13088: -- Insert a row into okc_deliverables with id of the deleted deliverable
13089: -- and with other values with its corresponding previous version deliverable
13090: INSERT INTO okc_deliverables (
13091: deliverable_id,
13092: business_document_type,
13086: END IF;
13087:
13088: -- Insert a row into okc_deliverables with id of the deleted deliverable
13089: -- and with other values with its corresponding previous version deliverable
13090: INSERT INTO okc_deliverables (
13091: deliverable_id,
13092: business_document_type,
13093: business_document_id,
13094: business_document_number,
13489:
13490: SELECT data_level_id
13491: INTO l_main_data_level_id
13492: FROM ego_data_level_b
13493: WHERE attr_group_type = 'OKC_DELIVERABLES_EXT_ATTRS';
13494: EXCEPTION
13495: WHEN OTHERS
13496: THEN
13497: RAISE;