167: l_archive_end_date PO_HEADERS_ALL.END_DATE%TYPE;
168:
169: BEGIN
170: IF g_fnd_debug = 'Y' then
171: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
172: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
173: MODULE =>g_module_prefix||'Get_DELIVERABLE_EVENTS',
174: MESSAGE =>'10: Start: Get_DELIVERABLE_EVENTS');
175: END IF;
168:
169: BEGIN
170: IF g_fnd_debug = 'Y' then
171: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
172: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
173: MODULE =>g_module_prefix||'Get_DELIVERABLE_EVENTS',
174: MESSAGE =>'10: Start: Get_DELIVERABLE_EVENTS');
175: END IF;
176: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
172: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
173: MODULE =>g_module_prefix||'Get_DELIVERABLE_EVENTS',
174: MESSAGE =>'10: Start: Get_DELIVERABLE_EVENTS');
175: END IF;
176: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
177: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
178: MODULE =>g_module_prefix||'Get_DELIVERABLE_EVENTS',
179: MESSAGE =>'15: Action Code: Doc subtype'||p_action_code||': '||p_doc_subtype);
180: END IF;
173: MODULE =>g_module_prefix||'Get_DELIVERABLE_EVENTS',
174: MESSAGE =>'10: Start: Get_DELIVERABLE_EVENTS');
175: END IF;
176: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
177: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
178: MODULE =>g_module_prefix||'Get_DELIVERABLE_EVENTS',
179: MESSAGE =>'15: Action Code: Doc subtype'||p_action_code||': '||p_doc_subtype);
180: END IF;
181: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
177: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
178: MODULE =>g_module_prefix||'Get_DELIVERABLE_EVENTS',
179: MESSAGE =>'15: Action Code: Doc subtype'||p_action_code||': '||p_doc_subtype);
180: END IF;
181: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
182: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
183: MODULE =>g_module_prefix||'Get_DELIVERABLE_EVENTS',
184: MESSAGE =>'20: Count in Event table'||x_event_tbl.count);
185: END IF;
178: MODULE =>g_module_prefix||'Get_DELIVERABLE_EVENTS',
179: MESSAGE =>'15: Action Code: Doc subtype'||p_action_code||': '||p_doc_subtype);
180: END IF;
181: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
182: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
183: MODULE =>g_module_prefix||'Get_DELIVERABLE_EVENTS',
184: MESSAGE =>'20: Count in Event table'||x_event_tbl.count);
185: END IF;
186:
204: FROM po_headers_all
205: WHERE po_header_id = p_po_header_id;
206:
207: IF g_fnd_debug = 'Y' then
208: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
209: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
210: MODULE =>g_module_prefix||'Get_DELIVERABLE_EVENTS',
211: MESSAGE =>'30: After Select.po found');
212: END IF;
205: WHERE po_header_id = p_po_header_id;
206:
207: IF g_fnd_debug = 'Y' then
208: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
209: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
210: MODULE =>g_module_prefix||'Get_DELIVERABLE_EVENTS',
211: MESSAGE =>'30: After Select.po found');
212: END IF;
213:
254: END IF;--action_code=A or U
255: END IF;--doc subtype code
256:
257: IF g_fnd_debug = 'Y' then
258: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
259: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
260: MODULE =>g_module_prefix||'Get_DELIVERABLE_EVENTS',
261: MESSAGE =>'90: Count in Event table'||x_event_tbl.count);
262: END IF;
255: END IF;--doc subtype code
256:
257: IF g_fnd_debug = 'Y' then
258: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
259: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
260: MODULE =>g_module_prefix||'Get_DELIVERABLE_EVENTS',
261: MESSAGE =>'90: Count in Event table'||x_event_tbl.count);
262: END IF;
263: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
259: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
260: MODULE =>g_module_prefix||'Get_DELIVERABLE_EVENTS',
261: MESSAGE =>'90: Count in Event table'||x_event_tbl.count);
262: END IF;
263: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
264: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
265: MODULE =>g_module_prefix||'Get_DELIVERABLE_EVENTS',
266: MESSAGE =>'100: End Get_DELIVERABLE_EVENTS');
267: END IF;
260: MODULE =>g_module_prefix||'Get_DELIVERABLE_EVENTS',
261: MESSAGE =>'90: Count in Event table'||x_event_tbl.count);
262: END IF;
263: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
264: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
265: MODULE =>g_module_prefix||'Get_DELIVERABLE_EVENTS',
266: MESSAGE =>'100: End Get_DELIVERABLE_EVENTS');
267: END IF;
268:
589:
590: l_Contracts_call_exception EXCEPTION;
591: BEGIN
592: IF g_fnd_debug = 'Y' then
593: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
594: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
595: MODULE =>g_module_prefix||l_api_name,
596: MESSAGE =>'10: Start UPDATE_CONTERMS_DATES');
597: END IF;
590: l_Contracts_call_exception EXCEPTION;
591: BEGIN
592: IF g_fnd_debug = 'Y' then
593: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
594: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
595: MODULE =>g_module_prefix||l_api_name,
596: MESSAGE =>'10: Start UPDATE_CONTERMS_DATES');
597: END IF;
598: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
594: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
595: MODULE =>g_module_prefix||l_api_name,
596: MESSAGE =>'10: Start UPDATE_CONTERMS_DATES');
597: END IF;
598: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
599: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
600: MODULE =>g_module_prefix||l_api_name,
601: MESSAGE =>'15: p_conterms_exist_flag'||p_conterms_exist_flag);
602: END IF;
595: MODULE =>g_module_prefix||l_api_name,
596: MESSAGE =>'10: Start UPDATE_CONTERMS_DATES');
597: END IF;
598: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
599: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
600: MODULE =>g_module_prefix||l_api_name,
601: MESSAGE =>'15: p_conterms_exist_flag'||p_conterms_exist_flag);
602: END IF;
603: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
599: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
600: MODULE =>g_module_prefix||l_api_name,
601: MESSAGE =>'15: p_conterms_exist_flag'||p_conterms_exist_flag);
602: END IF;
603: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
604: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
605: MODULE =>g_module_prefix||l_api_name,
606: MESSAGE =>'18: p_po_doc_type '||p_po_doc_type );
607: END IF;
600: MODULE =>g_module_prefix||l_api_name,
601: MESSAGE =>'15: p_conterms_exist_flag'||p_conterms_exist_flag);
602: END IF;
603: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
604: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
605: MODULE =>g_module_prefix||l_api_name,
606: MESSAGE =>'18: p_po_doc_type '||p_po_doc_type );
607: END IF;
608: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
604: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
605: MODULE =>g_module_prefix||l_api_name,
606: MESSAGE =>'18: p_po_doc_type '||p_po_doc_type );
607: END IF;
608: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
609: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
610: MODULE =>g_module_prefix||l_api_name,
611: MESSAGE =>'20: p_po_doc_subtype'||p_po_doc_subtype);
612: END IF;
605: MODULE =>g_module_prefix||l_api_name,
606: MESSAGE =>'18: p_po_doc_type '||p_po_doc_type );
607: END IF;
608: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
609: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
610: MODULE =>g_module_prefix||l_api_name,
611: MESSAGE =>'20: p_po_doc_subtype'||p_po_doc_subtype);
612: END IF;
613: End if;
612: END IF;
613: End if;
614: IF p_conterms_exist_flag = 'Y' then
615: IF g_fnd_debug = 'Y' then
616: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
617: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
618: MODULE =>g_module_prefix||l_api_name,
619: MESSAGE =>'50: It is a procurement Contract');
620: END IF;
613: End if;
614: IF p_conterms_exist_flag = 'Y' then
615: IF g_fnd_debug = 'Y' then
616: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
617: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
618: MODULE =>g_module_prefix||l_api_name,
619: MESSAGE =>'50: It is a procurement Contract');
620: END IF;
621: End if;
620: END IF;
621: End if;
622: l_k_api_name:='OKC_TERMS_UTIl_GRP.Get_Last_Update_Date';
623: IF g_fnd_debug = 'Y' then
624: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
625: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
626: MODULE =>g_module_prefix||l_api_name,
627: MESSAGE =>'70: Before call to OKC_TERMS_UTIl_GRP.Get_Last_Update_Date');
628: END IF;
621: End if;
622: l_k_api_name:='OKC_TERMS_UTIl_GRP.Get_Last_Update_Date';
623: IF g_fnd_debug = 'Y' then
624: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
625: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
626: MODULE =>g_module_prefix||l_api_name,
627: MESSAGE =>'70: Before call to OKC_TERMS_UTIl_GRP.Get_Last_Update_Date');
628: END IF;
629: End if;
636: x_return_status => x_return_status,
637: x_msg_data => x_msg_data,
638: x_msg_count => x_msg_count);
639: IF g_fnd_debug = 'Y' then
640: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
641: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
642: MODULE =>g_module_prefix||l_api_name,
643: MESSAGE =>'80: After call to OKC_...Get_Last_Update_Date. Status'||x_return_status);
644: END IF;
637: x_msg_data => x_msg_data,
638: x_msg_count => x_msg_count);
639: IF g_fnd_debug = 'Y' then
640: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
641: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
642: MODULE =>g_module_prefix||l_api_name,
643: MESSAGE =>'80: After call to OKC_...Get_Last_Update_Date. Status'||x_return_status);
644: END IF;
645: End if;
654: l_deliv_upd_date := null;
655: END IF;
656:
657: IF g_fnd_debug = 'Y' then
658: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
659: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
660: MODULE =>g_module_prefix||l_api_name,
661: MESSAGE =>'100: Articles Upd Date'||l_articles_upd_date);
662: END IF;
655: END IF;
656:
657: IF g_fnd_debug = 'Y' then
658: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
659: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
660: MODULE =>g_module_prefix||l_api_name,
661: MESSAGE =>'100: Articles Upd Date'||l_articles_upd_date);
662: END IF;
663: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
659: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
660: MODULE =>g_module_prefix||l_api_name,
661: MESSAGE =>'100: Articles Upd Date'||l_articles_upd_date);
662: END IF;
663: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
664: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
665: MODULE =>g_module_prefix||l_api_name,
666: MESSAGE =>'100: Deliverables Upd Date'||l_deliv_upd_date);
667: END IF;
660: MODULE =>g_module_prefix||l_api_name,
661: MESSAGE =>'100: Articles Upd Date'||l_articles_upd_date);
662: END IF;
663: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
664: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
665: MODULE =>g_module_prefix||l_api_name,
666: MESSAGE =>'100: Deliverables Upd Date'||l_deliv_upd_date);
667: END IF;
668: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
664: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
665: MODULE =>g_module_prefix||l_api_name,
666: MESSAGE =>'100: Deliverables Upd Date'||l_deliv_upd_date);
667: END IF;
668: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
669: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
670: MODULE =>g_module_prefix||l_api_name,
671: MESSAGE =>'120: Before update of dates in po headers'||l_deliv_upd_date);
672: END IF;
665: MODULE =>g_module_prefix||l_api_name,
666: MESSAGE =>'100: Deliverables Upd Date'||l_deliv_upd_date);
667: END IF;
668: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
669: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
670: MODULE =>g_module_prefix||l_api_name,
671: MESSAGE =>'120: Before update of dates in po headers'||l_deliv_upd_date);
672: END IF;
673: END IF;
681: last_update_login = FND_GLOBAL.login_id,
682: last_update_date = sysdate
683: WHERE po_header_id = p_po_header_id;
684: IF g_fnd_debug = 'Y' then
685: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
686: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
687: MODULE =>g_module_prefix||l_api_name,
688: MESSAGE =>'200: End: UPDATE_CONTERMS_DATES');
689: END IF;
682: last_update_date = sysdate
683: WHERE po_header_id = p_po_header_id;
684: IF g_fnd_debug = 'Y' then
685: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
686: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
687: MODULE =>g_module_prefix||l_api_name,
688: MESSAGE =>'200: End: UPDATE_CONTERMS_DATES');
689: END IF;
690:
693:
694: EXCEPTION
695: WHEN l_Contracts_call_exception then
696: IF g_fnd_debug = 'Y' then
697: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
698: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_EXCEPTION,
699: MODULE =>g_module_prefix||l_api_name,
700: MESSAGE =>'300: End Update_conTerms_dates.In Exception l_Contracts_call_exception');
701: END IF;
694: EXCEPTION
695: WHEN l_Contracts_call_exception then
696: IF g_fnd_debug = 'Y' then
697: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
698: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_EXCEPTION,
699: MODULE =>g_module_prefix||l_api_name,
700: MESSAGE =>'300: End Update_conTerms_dates.In Exception l_Contracts_call_exception');
701: END IF;
702:
715:
716: END IF;
717: IF g_fnd_debug = 'Y' then
718: FOR i IN 1..FND_MSG_PUB.Count_Msg LOOP
719: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
720: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
721: MODULE =>g_module_prefix||l_api_name,
722: MESSAGE =>':Errors in stack-'||FND_MSG_PUB.Get(p_msg_index=>i,p_encoded =>'F' ));
723: END IF;
716: END IF;
717: IF g_fnd_debug = 'Y' then
718: FOR i IN 1..FND_MSG_PUB.Count_Msg LOOP
719: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
720: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
721: MODULE =>g_module_prefix||l_api_name,
722: MESSAGE =>':Errors in stack-'||FND_MSG_PUB.Get(p_msg_index=>i,p_encoded =>'F' ));
723: END IF;
724: END LOOP;
725:
726: END IF;
727: WHEN OTHERS THEN
728: IF g_fnd_debug = 'Y' then
729: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
730: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_EXCEPTION,
731: MODULE =>g_module_prefix||l_api_name,
732: MESSAGE =>'400: End Update_conTerms_dates.In Exception OTHERS');
733: END IF;
726: END IF;
727: WHEN OTHERS THEN
728: IF g_fnd_debug = 'Y' then
729: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
730: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_EXCEPTION,
731: MODULE =>g_module_prefix||l_api_name,
732: MESSAGE =>'400: End Update_conTerms_dates.In Exception OTHERS');
733: END IF;
734:
752: x_msg_data := SQLCODE||':'||SQLERRM;
753: END IF;
754: END IF;
755: IF g_fnd_debug = 'Y' then
756: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
757: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_EXCEPTION,
758: MODULE =>g_module_prefix||l_api_name,
759: MESSAGE =>'410: x_msg_data:'||x_msg_data);
760: END IF;
753: END IF;
754: END IF;
755: IF g_fnd_debug = 'Y' then
756: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
757: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_EXCEPTION,
758: MODULE =>g_module_prefix||l_api_name,
759: MESSAGE =>'410: x_msg_data:'||x_msg_data);
760: END IF;
761: END IF;
817: l_signed_records VARCHAR2(1);
818: -- Bug 3652222 END
819: BEGIN
820: IF g_fnd_debug = 'Y' then
821: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
822: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
823: MODULE =>g_module_prefix||l_api_name,
824: MESSAGE =>'10: Start: UPDATE_CONTRACT_TERMS');
825: END IF;
818: -- Bug 3652222 END
819: BEGIN
820: IF g_fnd_debug = 'Y' then
821: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
822: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
823: MODULE =>g_module_prefix||l_api_name,
824: MESSAGE =>'10: Start: UPDATE_CONTRACT_TERMS');
825: END IF;
826:
842: FROM po_headers_all
843: WHERE po_header_id = p_po_header_id;
844:
845: IF g_fnd_debug = 'Y' then
846: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
847: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
848: MODULE =>g_module_prefix||l_api_name,
849: MESSAGE =>'30: After Select. Conterms Exist'||l_conterms_exist_flag);
850: END IF;
843: WHERE po_header_id = p_po_header_id;
844:
845: IF g_fnd_debug = 'Y' then
846: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
847: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
848: MODULE =>g_module_prefix||l_api_name,
849: MESSAGE =>'30: After Select. Conterms Exist'||l_conterms_exist_flag);
850: END IF;
851:
852: END IF;
853: IF l_conterms_exist_flag = 'Y' then
854:
855: IF g_fnd_debug = 'Y' then
856: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
857: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
858: MODULE =>g_module_prefix||l_api_name,
859: MESSAGE =>'50: Doc type'||l_po_doc_subtype);
860: END IF;
853: IF l_conterms_exist_flag = 'Y' then
854:
855: IF g_fnd_debug = 'Y' then
856: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
857: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
858: MODULE =>g_module_prefix||l_api_name,
859: MESSAGE =>'50: Doc type'||l_po_doc_subtype);
860: END IF;
861: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
857: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
858: MODULE =>g_module_prefix||l_api_name,
859: MESSAGE =>'50: Doc type'||l_po_doc_subtype);
860: END IF;
861: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
862: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
863: MODULE =>g_module_prefix||l_api_name,
864: MESSAGE =>'51: po headerid'||p_po_header_id);
865: END IF;
858: MODULE =>g_module_prefix||l_api_name,
859: MESSAGE =>'50: Doc type'||l_po_doc_subtype);
860: END IF;
861: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
862: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
863: MODULE =>g_module_prefix||l_api_name,
864: MESSAGE =>'51: po headerid'||p_po_header_id);
865: END IF;
866: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
862: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
863: MODULE =>g_module_prefix||l_api_name,
864: MESSAGE =>'51: po headerid'||p_po_header_id);
865: END IF;
866: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
867: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
868: MODULE =>g_module_prefix||l_api_name,
869: MESSAGE =>'54: p_po_revision_num'||l_po_revision_num);
870: END IF;
863: MODULE =>g_module_prefix||l_api_name,
864: MESSAGE =>'51: po headerid'||p_po_header_id);
865: END IF;
866: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
867: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
868: MODULE =>g_module_prefix||l_api_name,
869: MESSAGE =>'54: p_po_revision_num'||l_po_revision_num);
870: END IF;
871: END IF;
876: p_doc_subtype => l_po_doc_subtype,
877: x_event_tbl => l_event_tbl);
878: l_k_api_name:='OKC_MANAGE_DELIVERABLES_GRP.activateDeliverables';
879: IF g_fnd_debug = 'Y' then
880: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
881: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
882: MODULE =>g_module_prefix||l_api_name,
883: MESSAGE =>'60: event codes passed for OKC_MANAGE_DELIVERABLES_GRP.activateDeliverables');
884: END IF;
877: x_event_tbl => l_event_tbl);
878: l_k_api_name:='OKC_MANAGE_DELIVERABLES_GRP.activateDeliverables';
879: IF g_fnd_debug = 'Y' then
880: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
881: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
882: MODULE =>g_module_prefix||l_api_name,
883: MESSAGE =>'60: event codes passed for OKC_MANAGE_DELIVERABLES_GRP.activateDeliverables');
884: END IF;
885: IF (l_event_tbl.count>0) THEN
883: MESSAGE =>'60: event codes passed for OKC_MANAGE_DELIVERABLES_GRP.activateDeliverables');
884: END IF;
885: IF (l_event_tbl.count>0) THEN
886: FOR l_event in l_event_tbl.FIRST..l_event_tbl.LAST LOOP
887: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
888: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
889: MODULE =>g_module_prefix||l_api_name,
890: MESSAGE =>'event_code'||l_event||' '||l_event_tbl(l_event).event_code
891: ||l_event_tbl(l_event).event_date);
884: END IF;
885: IF (l_event_tbl.count>0) THEN
886: FOR l_event in l_event_tbl.FIRST..l_event_tbl.LAST LOOP
887: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
888: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
889: MODULE =>g_module_prefix||l_api_name,
890: MESSAGE =>'event_code'||l_event||' '||l_event_tbl(l_event).event_code
891: ||l_event_tbl(l_event).event_date);
892: END IF;
892: END IF;
893:
894: END LOOP;
895: END IF;--(l_event_tbl.count>0)
896: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
897: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
898: MODULE =>g_module_prefix||l_api_name,
899: MESSAGE =>'70: Before call to OKC_MANAGE_DELIVERABLES_GRP.activateDeliverables');
900: END IF;
893:
894: END LOOP;
895: END IF;--(l_event_tbl.count>0)
896: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
897: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
898: MODULE =>g_module_prefix||l_api_name,
899: MESSAGE =>'70: Before call to OKC_MANAGE_DELIVERABLES_GRP.activateDeliverables');
900: END IF;
901:
912: x_msg_data => x_msg_data,
913: x_msg_count => x_msg_count,
914: x_return_status => x_return_status);
915: IF g_fnd_debug = 'Y' then
916: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
917: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
918: MODULE =>g_module_prefix||l_api_name,
919: MESSAGE =>'80: After call to OKC_MANAGE_DELIVERABLES_GRP.activateDeliverables');
920: END IF;
913: x_msg_count => x_msg_count,
914: x_return_status => x_return_status);
915: IF g_fnd_debug = 'Y' then
916: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
917: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
918: MODULE =>g_module_prefix||l_api_name,
919: MESSAGE =>'80: After call to OKC_MANAGE_DELIVERABLES_GRP.activateDeliverables');
920: END IF;
921: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
917: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
918: MODULE =>g_module_prefix||l_api_name,
919: MESSAGE =>'80: After call to OKC_MANAGE_DELIVERABLES_GRP.activateDeliverables');
920: END IF;
921: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
922: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
923: MODULE =>g_module_prefix||l_api_name,
924: MESSAGE =>'90: return status'||x_return_status);
925: END IF;
918: MODULE =>g_module_prefix||l_api_name,
919: MESSAGE =>'80: After call to OKC_MANAGE_DELIVERABLES_GRP.activateDeliverables');
920: END IF;
921: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
922: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
923: MODULE =>g_module_prefix||l_api_name,
924: MESSAGE =>'90: return status'||x_return_status);
925: END IF;
926:
938: p_doc_subtype => l_po_doc_subtype,
939: x_event_tbl => l_event_tbl);
940: l_k_api_name:='OKC_MANAGE_DELIVERABLES_GRP.updateDeliverables';
941: IF g_fnd_debug = 'Y' then
942: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
943: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
944: MODULE =>g_module_prefix||l_api_name,
945: MESSAGE =>'100:Count-event codes passed for OKC_MANAGE_DELIVERABLES_GRP.updateDeliverables:'||l_event_tbl.count);
946: END IF;
939: x_event_tbl => l_event_tbl);
940: l_k_api_name:='OKC_MANAGE_DELIVERABLES_GRP.updateDeliverables';
941: IF g_fnd_debug = 'Y' then
942: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
943: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
944: MODULE =>g_module_prefix||l_api_name,
945: MESSAGE =>'100:Count-event codes passed for OKC_MANAGE_DELIVERABLES_GRP.updateDeliverables:'||l_event_tbl.count);
946: END IF;
947: END IF;
947: END IF;
948: IF (l_event_tbl.count>0) THEN
949: IF g_fnd_debug = 'Y' then
950: FOR l_event in l_event_tbl.FIRST..l_event_tbl.LAST LOOP
951: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
952: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
953: MODULE =>g_module_prefix||l_api_name,
954: MESSAGE =>'event_code'||l_event||' '||l_event_tbl(l_event).event_code
955: ||l_event_tbl(l_event).event_date);
948: IF (l_event_tbl.count>0) THEN
949: IF g_fnd_debug = 'Y' then
950: FOR l_event in l_event_tbl.FIRST..l_event_tbl.LAST LOOP
951: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
952: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
953: MODULE =>g_module_prefix||l_api_name,
954: MESSAGE =>'event_code'||l_event||' '||l_event_tbl(l_event).event_code
955: ||l_event_tbl(l_event).event_date);
956: END IF;
955: ||l_event_tbl(l_event).event_date);
956: END IF;
957:
958: END LOOP;
959: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
960: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
961: MODULE =>g_module_prefix||l_api_name,
962: MESSAGE =>'110: Before call to OKC_MANAGE_DELIVERABLES_GRP.updateDeliverables');
963: END IF;
956: END IF;
957:
958: END LOOP;
959: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
960: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
961: MODULE =>g_module_prefix||l_api_name,
962: MESSAGE =>'110: Before call to OKC_MANAGE_DELIVERABLES_GRP.updateDeliverables');
963: END IF;
964:
972: x_msg_data => x_msg_data,
973: x_msg_count => x_msg_count,
974: x_return_status => x_return_status);
975: IF g_fnd_debug = 'Y' then
976: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
977: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
978: MODULE =>g_module_prefix||l_api_name,
979: MESSAGE =>'120: After call to OKC_MANAGE_DELIVERABLES_GRP.updateDeliverables');
980: END IF;
973: x_msg_count => x_msg_count,
974: x_return_status => x_return_status);
975: IF g_fnd_debug = 'Y' then
976: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
977: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
978: MODULE =>g_module_prefix||l_api_name,
979: MESSAGE =>'120: After call to OKC_MANAGE_DELIVERABLES_GRP.updateDeliverables');
980: END IF;
981: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
977: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
978: MODULE =>g_module_prefix||l_api_name,
979: MESSAGE =>'120: After call to OKC_MANAGE_DELIVERABLES_GRP.updateDeliverables');
980: END IF;
981: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
982: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
983: MODULE =>g_module_prefix||l_api_name,
984: MESSAGE =>'130: Return Status'|| x_return_status);
985: END IF;
978: MODULE =>g_module_prefix||l_api_name,
979: MESSAGE =>'120: After call to OKC_MANAGE_DELIVERABLES_GRP.updateDeliverables');
980: END IF;
981: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
982: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
983: MODULE =>g_module_prefix||l_api_name,
984: MESSAGE =>'130: Return Status'|| x_return_status);
985: END IF;
986:
1030: -- Bug 3652222 END
1031: */
1032: -- Disable the deliverables attached to previous revision of PO
1033: IF g_fnd_debug = 'Y' then
1034: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1035: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
1036: MODULE =>g_module_prefix||l_api_name,
1037: MESSAGE =>'140: Before call to OKC_MANAGE_DELIVERABLES_GRP.DisableDeliverables');
1038: END IF;
1031: */
1032: -- Disable the deliverables attached to previous revision of PO
1033: IF g_fnd_debug = 'Y' then
1034: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1035: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
1036: MODULE =>g_module_prefix||l_api_name,
1037: MESSAGE =>'140: Before call to OKC_MANAGE_DELIVERABLES_GRP.DisableDeliverables');
1038: END IF;
1039:
1055: x_msg_data => x_msg_data,
1056: x_msg_count => x_msg_count,
1057: x_return_status => x_return_status);
1058: IF g_fnd_debug = 'Y' then
1059: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1060: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
1061: MODULE =>g_module_prefix||l_api_name,
1062: MESSAGE =>'150: After call to OKC_MANAGE_DELIVERABLES_GRP.DisableDeliverables');
1063: END IF;
1056: x_msg_count => x_msg_count,
1057: x_return_status => x_return_status);
1058: IF g_fnd_debug = 'Y' then
1059: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1060: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
1061: MODULE =>g_module_prefix||l_api_name,
1062: MESSAGE =>'150: After call to OKC_MANAGE_DELIVERABLES_GRP.DisableDeliverables');
1063: END IF;
1064: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1060: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
1061: MODULE =>g_module_prefix||l_api_name,
1062: MESSAGE =>'150: After call to OKC_MANAGE_DELIVERABLES_GRP.DisableDeliverables');
1063: END IF;
1064: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1065: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
1066: MODULE =>g_module_prefix||l_api_name,
1067: MESSAGE =>'170: return status'||x_return_status);
1068: END IF;
1061: MODULE =>g_module_prefix||l_api_name,
1062: MESSAGE =>'150: After call to OKC_MANAGE_DELIVERABLES_GRP.DisableDeliverables');
1063: END IF;
1064: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1065: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
1066: MODULE =>g_module_prefix||l_api_name,
1067: MESSAGE =>'170: return status'||x_return_status);
1068: END IF;
1069:
1083: -- cancel deliverables only if po is being archived after cancel
1084: IF (UPPER(NVL(l_cancel_flag, 'N'))='Y') THEN
1085:
1086: IF g_fnd_debug = 'Y' then
1087: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1088: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
1089: MODULE =>g_module_prefix||l_api_name,
1090: MESSAGE =>'180: Before call to wrapper procedure to Cancel Deliverables');
1091: END IF;
1084: IF (UPPER(NVL(l_cancel_flag, 'N'))='Y') THEN
1085:
1086: IF g_fnd_debug = 'Y' then
1087: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1088: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
1089: MODULE =>g_module_prefix||l_api_name,
1090: MESSAGE =>'180: Before call to wrapper procedure to Cancel Deliverables');
1091: END IF;
1092:
1100: ,p_event_date => SYSDATE
1101: ,p_busdocdates_tbl => l_event_tbl
1102: ,x_return_status => x_return_status);
1103: IF g_fnd_debug = 'Y' then
1104: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1105: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
1106: MODULE =>g_module_prefix||l_api_name,
1107: MESSAGE =>'190: After call to wrapper procedure to Cancel Deliverables');
1108: END IF;
1101: ,p_busdocdates_tbl => l_event_tbl
1102: ,x_return_status => x_return_status);
1103: IF g_fnd_debug = 'Y' then
1104: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1105: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
1106: MODULE =>g_module_prefix||l_api_name,
1107: MESSAGE =>'190: After call to wrapper procedure to Cancel Deliverables');
1108: END IF;
1109:
1109:
1110: END IF;
1111:
1112: IF g_fnd_debug = 'Y' then
1113: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1114: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
1115: MODULE =>g_module_prefix||l_api_name,
1116: MESSAGE =>'200: return status '||x_return_status);
1117: END IF;
1110: END IF;
1111:
1112: IF g_fnd_debug = 'Y' then
1113: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1114: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
1115: MODULE =>g_module_prefix||l_api_name,
1116: MESSAGE =>'200: return status '||x_return_status);
1117: END IF;
1118:
1127: END IF;-- If po revision>0
1128:
1129: END IF; -- if conterms exist
1130: IF g_fnd_debug = 'Y' then
1131: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1132: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
1133: MODULE =>g_module_prefix||l_api_name,
1134: MESSAGE =>'210: End Update Contract Terms');
1135: END IF;
1128:
1129: END IF; -- if conterms exist
1130: IF g_fnd_debug = 'Y' then
1131: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1132: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
1133: MODULE =>g_module_prefix||l_api_name,
1134: MESSAGE =>'210: End Update Contract Terms');
1135: END IF;
1136:
1137: END IF;
1138: EXCEPTION
1139: WHEN l_Contracts_call_exception then
1140: IF g_fnd_debug = 'Y' then
1141: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
1142: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_EXCEPTION,
1143: MODULE =>g_module_prefix||l_api_name,
1144: MESSAGE =>'300: End Update_contract Terms.In Exception l_Contracts_call_exception');
1145: END IF;
1138: EXCEPTION
1139: WHEN l_Contracts_call_exception then
1140: IF g_fnd_debug = 'Y' then
1141: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
1142: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_EXCEPTION,
1143: MODULE =>g_module_prefix||l_api_name,
1144: MESSAGE =>'300: End Update_contract Terms.In Exception l_Contracts_call_exception');
1145: END IF;
1146: END IF;
1158:
1159: END IF;
1160: IF g_fnd_debug = 'Y' then
1161: FOR i IN 1..FND_MSG_PUB.Count_Msg LOOP
1162: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1163: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
1164: MODULE =>g_module_prefix||l_api_name,
1165: MESSAGE =>':Errors in stack-'||FND_MSG_PUB.Get(p_msg_index=>i,p_encoded =>'F' ));
1166: END IF;
1159: END IF;
1160: IF g_fnd_debug = 'Y' then
1161: FOR i IN 1..FND_MSG_PUB.Count_Msg LOOP
1162: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1163: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
1164: MODULE =>g_module_prefix||l_api_name,
1165: MESSAGE =>':Errors in stack-'||FND_MSG_PUB.Get(p_msg_index=>i,p_encoded =>'F' ));
1166: END IF;
1167: END LOOP;
1181: (p_count => x_msg_count,
1182: p_data => x_msg_data );
1183:
1184: IF g_fnd_debug = 'Y' then
1185: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
1186: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_EXCEPTION,
1187: MODULE =>g_module_prefix||l_api_name,
1188: MESSAGE =>'400: End Update_contract_terms.In Exception others');
1189: END IF;
1182: p_data => x_msg_data );
1183:
1184: IF g_fnd_debug = 'Y' then
1185: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
1186: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_EXCEPTION,
1187: MODULE =>g_module_prefix||l_api_name,
1188: MESSAGE =>'400: End Update_contract_terms.In Exception others');
1189: END IF;
1190: END IF;
1195: x_msg_data := SQLCODE||':'||SQLERRM;
1196: END IF;
1197: END IF;
1198: IF g_fnd_debug = 'Y' then
1199: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
1200: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_EXCEPTION,
1201: MODULE =>g_module_prefix||l_api_name,
1202: MESSAGE =>'410: sql error:'||SQLCODE||':'||SQLERRM);
1203: END IF;
1196: END IF;
1197: END IF;
1198: IF g_fnd_debug = 'Y' then
1199: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
1200: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_EXCEPTION,
1201: MODULE =>g_module_prefix||l_api_name,
1202: MESSAGE =>'410: sql error:'||SQLCODE||':'||SQLERRM);
1203: END IF;
1204: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
1200: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_EXCEPTION,
1201: MODULE =>g_module_prefix||l_api_name,
1202: MESSAGE =>'410: sql error:'||SQLCODE||':'||SQLERRM);
1203: END IF;
1204: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
1205: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_EXCEPTION,
1206: MODULE =>g_module_prefix||l_api_name,
1207: MESSAGE =>'420: x_msg_data:'||x_msg_data);
1208: END IF;
1201: MODULE =>g_module_prefix||l_api_name,
1202: MESSAGE =>'410: sql error:'||SQLCODE||':'||SQLERRM);
1203: END IF;
1204: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
1205: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_EXCEPTION,
1206: MODULE =>g_module_prefix||l_api_name,
1207: MESSAGE =>'420: x_msg_data:'||x_msg_data);
1208: END IF;
1209: END IF;
2221:
2222: l_contracts_document_type := p_bus_doc_type||'_'||p_bus_doc_subtype;
2223:
2224: IF (g_fnd_debug = 'Y') THEN
2225: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
2226: FND_LOG.string(log_level => FND_LOG.LEVEL_PROCEDURE
2227: ,module => g_module_prefix || l_api_name
2228: ,message => 'Before calling contracts API to cancel deliverables');
2229: END IF;
2222: l_contracts_document_type := p_bus_doc_type||'_'||p_bus_doc_subtype;
2223:
2224: IF (g_fnd_debug = 'Y') THEN
2225: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
2226: FND_LOG.string(log_level => FND_LOG.LEVEL_PROCEDURE
2227: ,module => g_module_prefix || l_api_name
2228: ,message => 'Before calling contracts API to cancel deliverables');
2229: END IF;
2230: END IF;
2248: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2249: END IF;
2250:
2251: IF (g_fnd_debug = 'Y') THEN
2252: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
2253: FND_LOG.string(log_level => FND_LOG.LEVEL_PROCEDURE
2254: ,module => g_module_prefix || l_api_name
2255: ,message => 'Deliverables cancelled successfully');
2256: END IF;
2249: END IF;
2250:
2251: IF (g_fnd_debug = 'Y') THEN
2252: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
2253: FND_LOG.string(log_level => FND_LOG.LEVEL_PROCEDURE
2254: ,module => g_module_prefix || l_api_name
2255: ,message => 'Deliverables cancelled successfully');
2256: END IF;
2257: END IF;
2258:
2259: EXCEPTION
2260: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2261: IF (g_fnd_debug = 'Y') THEN
2262: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
2263: FND_LOG.string(log_level => FND_LOG.LEVEL_PROCEDURE
2264: ,module => g_module_prefix || l_api_name
2265: ,message => l_msg_data);
2266: END IF;
2259: EXCEPTION
2260: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2261: IF (g_fnd_debug = 'Y') THEN
2262: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
2263: FND_LOG.string(log_level => FND_LOG.LEVEL_PROCEDURE
2264: ,module => g_module_prefix || l_api_name
2265: ,message => l_msg_data);
2266: END IF;
2267: END IF;
2269: WHEN OTHERS THEN
2270: ROLLBACK;
2271: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2272: IF (g_fnd_debug = 'Y') THEN
2273: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
2274: FND_LOG.string(log_level => FND_LOG.LEVEL_PROCEDURE
2275: ,module => g_module_prefix || l_api_name
2276: ,message => 'Others Exception');
2277: END IF;
2270: ROLLBACK;
2271: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2272: IF (g_fnd_debug = 'Y') THEN
2273: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
2274: FND_LOG.string(log_level => FND_LOG.LEVEL_PROCEDURE
2275: ,module => g_module_prefix || l_api_name
2276: ,message => 'Others Exception');
2277: END IF;
2278: END IF;