11: --< Shared Proc FPJ End >
12:
13: --
14: -- The module base for this package.
15: D_PACKAGE_BASE CONSTANT VARCHAR2(50) := PO_LOG.get_package_base(g_pkg_name);
16:
17: -- The module base for the subprogram.
18: D_copy_attributes CONSTANT VARCHAR2(100) := PO_LOG.get_subprogram_base(D_PACKAGE_BASE,'copy_attributes');
19: --
14: -- The module base for this package.
15: D_PACKAGE_BASE CONSTANT VARCHAR2(50) := PO_LOG.get_package_base(g_pkg_name);
16:
17: -- The module base for the subprogram.
18: D_copy_attributes CONSTANT VARCHAR2(100) := PO_LOG.get_subprogram_base(D_PACKAGE_BASE,'copy_attributes');
19: --
20:
21: -- Cursor definitions:
22:
304: d_pos NUMBER;
305: d_module VARCHAR2(70) := 'po.plsql.PO_COPYDOC_S1.RET_AND_DEL_ONLINE_REPORT_REC';
306: d_log_msg VARCHAR2(200);
307: BEGIN
308: IF (PO_LOG.d_proc) THEN
309: PO_LOG.proc_begin(d_module);
310: PO_LOG.proc_begin(d_module, 'p_online_report_id', p_online_report_id);
311: END IF;
312: d_pos := 10;
305: d_module VARCHAR2(70) := 'po.plsql.PO_COPYDOC_S1.RET_AND_DEL_ONLINE_REPORT_REC';
306: d_log_msg VARCHAR2(200);
307: BEGIN
308: IF (PO_LOG.d_proc) THEN
309: PO_LOG.proc_begin(d_module);
310: PO_LOG.proc_begin(d_module, 'p_online_report_id', p_online_report_id);
311: END IF;
312: d_pos := 10;
313: DELETE PO_ONLINE_REPORT_TEXT
306: d_log_msg VARCHAR2(200);
307: BEGIN
308: IF (PO_LOG.d_proc) THEN
309: PO_LOG.proc_begin(d_module);
310: PO_LOG.proc_begin(d_module, 'p_online_report_id', p_online_report_id);
311: END IF;
312: d_pos := 10;
313: DELETE PO_ONLINE_REPORT_TEXT
314: WHERE ONLINE_REPORT_ID = p_online_report_id
314: WHERE ONLINE_REPORT_ID = p_online_report_id
315: RETURNING MESSAGE_TYPE, TEXT_LINE
316: INTO x_message_type, x_message;
317: d_pos := 20;
318: IF PO_LOG.d_stmt THEN
319: PO_LOG.stmt(d_module,d_pos,'x_message_type',x_message_type);
320: PO_LOG.stmt(d_module,d_pos,'x_message',x_message);
321: END IF;
322: COMMIT;
315: RETURNING MESSAGE_TYPE, TEXT_LINE
316: INTO x_message_type, x_message;
317: d_pos := 20;
318: IF PO_LOG.d_stmt THEN
319: PO_LOG.stmt(d_module,d_pos,'x_message_type',x_message_type);
320: PO_LOG.stmt(d_module,d_pos,'x_message',x_message);
321: END IF;
322: COMMIT;
323: d_pos := 30;
316: INTO x_message_type, x_message;
317: d_pos := 20;
318: IF PO_LOG.d_stmt THEN
319: PO_LOG.stmt(d_module,d_pos,'x_message_type',x_message_type);
320: PO_LOG.stmt(d_module,d_pos,'x_message',x_message);
321: END IF;
322: COMMIT;
323: d_pos := 30;
324: IF PO_LOG.d_event THEN
320: PO_LOG.stmt(d_module,d_pos,'x_message',x_message);
321: END IF;
322: COMMIT;
323: d_pos := 30;
324: IF PO_LOG.d_event THEN
325: PO_LOG.event(d_module,d_pos,'Committed after Deleting Record from PO_Online_Report_Text');
326: END IF;
327: IF PO_LOG.d_proc THEN
328: PO_LOG.proc_end(d_module,'x_message_type',x_message_type);
321: END IF;
322: COMMIT;
323: d_pos := 30;
324: IF PO_LOG.d_event THEN
325: PO_LOG.event(d_module,d_pos,'Committed after Deleting Record from PO_Online_Report_Text');
326: END IF;
327: IF PO_LOG.d_proc THEN
328: PO_LOG.proc_end(d_module,'x_message_type',x_message_type);
329: PO_LOG.proc_end(d_module,'x_message',x_message);
323: d_pos := 30;
324: IF PO_LOG.d_event THEN
325: PO_LOG.event(d_module,d_pos,'Committed after Deleting Record from PO_Online_Report_Text');
326: END IF;
327: IF PO_LOG.d_proc THEN
328: PO_LOG.proc_end(d_module,'x_message_type',x_message_type);
329: PO_LOG.proc_end(d_module,'x_message',x_message);
330: PO_LOG.proc_end(d_module);
331: END IF;
324: IF PO_LOG.d_event THEN
325: PO_LOG.event(d_module,d_pos,'Committed after Deleting Record from PO_Online_Report_Text');
326: END IF;
327: IF PO_LOG.d_proc THEN
328: PO_LOG.proc_end(d_module,'x_message_type',x_message_type);
329: PO_LOG.proc_end(d_module,'x_message',x_message);
330: PO_LOG.proc_end(d_module);
331: END IF;
332: EXCEPTION
325: PO_LOG.event(d_module,d_pos,'Committed after Deleting Record from PO_Online_Report_Text');
326: END IF;
327: IF PO_LOG.d_proc THEN
328: PO_LOG.proc_end(d_module,'x_message_type',x_message_type);
329: PO_LOG.proc_end(d_module,'x_message',x_message);
330: PO_LOG.proc_end(d_module);
331: END IF;
332: EXCEPTION
333: WHEN OTHERS THEN
326: END IF;
327: IF PO_LOG.d_proc THEN
328: PO_LOG.proc_end(d_module,'x_message_type',x_message_type);
329: PO_LOG.proc_end(d_module,'x_message',x_message);
330: PO_LOG.proc_end(d_module);
331: END IF;
332: EXCEPTION
333: WHEN OTHERS THEN
334: d_log_msg := 'Unhandled Exception in ' || d_module;
331: END IF;
332: EXCEPTION
333: WHEN OTHERS THEN
334: d_log_msg := 'Unhandled Exception in ' || d_module;
335: IF PO_LOG.d_exc THEN
336: PO_LOG.exc(d_module,d_pos,d_log_msg);
337: END IF;
338: RAISE;
339: END ret_and_del_online_report_rec;
332: EXCEPTION
333: WHEN OTHERS THEN
334: d_log_msg := 'Unhandled Exception in ' || d_module;
335: IF PO_LOG.d_exc THEN
336: PO_LOG.exc(d_module,d_pos,d_log_msg);
337: END IF;
338: RAISE;
339: END ret_and_del_online_report_rec;
340: --
2526:
2527: BEGIN
2528: l_progress := '010';
2529:
2530: IF PO_LOG.d_proc THEN
2531: PO_LOG.proc_begin(d_mod,'p_orig_po_line_id',p_orig_po_line_id);
2532: PO_LOG.proc_begin(d_mod,'p_new_po_line_id',p_new_po_line_id);
2533: PO_LOG.proc_begin(d_mod,'p_line_num',p_line_num);
2534: PO_LOG.proc_begin(d_mod,'p_online_report_id',p_online_report_id);
2527: BEGIN
2528: l_progress := '010';
2529:
2530: IF PO_LOG.d_proc THEN
2531: PO_LOG.proc_begin(d_mod,'p_orig_po_line_id',p_orig_po_line_id);
2532: PO_LOG.proc_begin(d_mod,'p_new_po_line_id',p_new_po_line_id);
2533: PO_LOG.proc_begin(d_mod,'p_line_num',p_line_num);
2534: PO_LOG.proc_begin(d_mod,'p_online_report_id',p_online_report_id);
2535: PO_LOG.proc_begin(d_mod,'x_sequence',x_sequence);
2528: l_progress := '010';
2529:
2530: IF PO_LOG.d_proc THEN
2531: PO_LOG.proc_begin(d_mod,'p_orig_po_line_id',p_orig_po_line_id);
2532: PO_LOG.proc_begin(d_mod,'p_new_po_line_id',p_new_po_line_id);
2533: PO_LOG.proc_begin(d_mod,'p_line_num',p_line_num);
2534: PO_LOG.proc_begin(d_mod,'p_online_report_id',p_online_report_id);
2535: PO_LOG.proc_begin(d_mod,'x_sequence',x_sequence);
2536: END IF;
2529:
2530: IF PO_LOG.d_proc THEN
2531: PO_LOG.proc_begin(d_mod,'p_orig_po_line_id',p_orig_po_line_id);
2532: PO_LOG.proc_begin(d_mod,'p_new_po_line_id',p_new_po_line_id);
2533: PO_LOG.proc_begin(d_mod,'p_line_num',p_line_num);
2534: PO_LOG.proc_begin(d_mod,'p_online_report_id',p_online_report_id);
2535: PO_LOG.proc_begin(d_mod,'x_sequence',x_sequence);
2536: END IF;
2537:
2530: IF PO_LOG.d_proc THEN
2531: PO_LOG.proc_begin(d_mod,'p_orig_po_line_id',p_orig_po_line_id);
2532: PO_LOG.proc_begin(d_mod,'p_new_po_line_id',p_new_po_line_id);
2533: PO_LOG.proc_begin(d_mod,'p_line_num',p_line_num);
2534: PO_LOG.proc_begin(d_mod,'p_online_report_id',p_online_report_id);
2535: PO_LOG.proc_begin(d_mod,'x_sequence',x_sequence);
2536: END IF;
2537:
2538: PO_ATTRIBUTE_VALUES_PVT.copy_attributes
2531: PO_LOG.proc_begin(d_mod,'p_orig_po_line_id',p_orig_po_line_id);
2532: PO_LOG.proc_begin(d_mod,'p_new_po_line_id',p_new_po_line_id);
2533: PO_LOG.proc_begin(d_mod,'p_line_num',p_line_num);
2534: PO_LOG.proc_begin(d_mod,'p_online_report_id',p_online_report_id);
2535: PO_LOG.proc_begin(d_mod,'x_sequence',x_sequence);
2536: END IF;
2537:
2538: PO_ATTRIBUTE_VALUES_PVT.copy_attributes
2539: (
2540: p_orig_po_line_id => p_orig_po_line_id
2541: , p_new_po_line_id => p_new_po_line_id
2542: );
2543:
2544: IF PO_LOG.d_proc THEN PO_LOG.proc_end(d_mod); END IF;
2545: EXCEPTION
2546: WHEN OTHERS THEN
2547: copydoc_sql_error(x_routine => d_mod,
2548: x_progress => l_progress,
2551: x_sequence => x_sequence,
2552: x_line_num => p_line_num,
2553: x_shipment_num => 0,
2554: x_distribution_num => 0);
2555: IF PO_LOG.d_exc THEN PO_LOG.exc(d_mod,l_progress,'Unhandled exception'); END IF;
2556: RAISE;
2557: END copy_attributes;
2558: --
2559:
3810: d_log_msg VARCHAR2(200);
3811: BEGIN
3812: --Initialise the variables
3813: d_pos := 0;
3814: IF (PO_LOG.d_proc) THEN
3815: PO_LOG.proc_begin(d_module);
3816: PO_LOG.proc_begin(d_module, 'p_po_header_id', p_po_header_id);
3817: PO_LOG.proc_begin(d_module, 'p_copy_attachment', p_copy_attachment);
3818: PO_LOG.proc_begin(d_module, 'p_copy_terms', p_copy_terms);
3811: BEGIN
3812: --Initialise the variables
3813: d_pos := 0;
3814: IF (PO_LOG.d_proc) THEN
3815: PO_LOG.proc_begin(d_module);
3816: PO_LOG.proc_begin(d_module, 'p_po_header_id', p_po_header_id);
3817: PO_LOG.proc_begin(d_module, 'p_copy_attachment', p_copy_attachment);
3818: PO_LOG.proc_begin(d_module, 'p_copy_terms', p_copy_terms);
3819: PO_LOG.proc_begin(d_module, 'x_new_segment1', x_new_segment1);
3812: --Initialise the variables
3813: d_pos := 0;
3814: IF (PO_LOG.d_proc) THEN
3815: PO_LOG.proc_begin(d_module);
3816: PO_LOG.proc_begin(d_module, 'p_po_header_id', p_po_header_id);
3817: PO_LOG.proc_begin(d_module, 'p_copy_attachment', p_copy_attachment);
3818: PO_LOG.proc_begin(d_module, 'p_copy_terms', p_copy_terms);
3819: PO_LOG.proc_begin(d_module, 'x_new_segment1', x_new_segment1);
3820: END IF;
3813: d_pos := 0;
3814: IF (PO_LOG.d_proc) THEN
3815: PO_LOG.proc_begin(d_module);
3816: PO_LOG.proc_begin(d_module, 'p_po_header_id', p_po_header_id);
3817: PO_LOG.proc_begin(d_module, 'p_copy_attachment', p_copy_attachment);
3818: PO_LOG.proc_begin(d_module, 'p_copy_terms', p_copy_terms);
3819: PO_LOG.proc_begin(d_module, 'x_new_segment1', x_new_segment1);
3820: END IF;
3821: d_pos := 10;
3814: IF (PO_LOG.d_proc) THEN
3815: PO_LOG.proc_begin(d_module);
3816: PO_LOG.proc_begin(d_module, 'p_po_header_id', p_po_header_id);
3817: PO_LOG.proc_begin(d_module, 'p_copy_attachment', p_copy_attachment);
3818: PO_LOG.proc_begin(d_module, 'p_copy_terms', p_copy_terms);
3819: PO_LOG.proc_begin(d_module, 'x_new_segment1', x_new_segment1);
3820: END IF;
3821: d_pos := 10;
3822: x_return_status := FND_API.g_ret_sts_success;
3815: PO_LOG.proc_begin(d_module);
3816: PO_LOG.proc_begin(d_module, 'p_po_header_id', p_po_header_id);
3817: PO_LOG.proc_begin(d_module, 'p_copy_attachment', p_copy_attachment);
3818: PO_LOG.proc_begin(d_module, 'p_copy_terms', p_copy_terms);
3819: PO_LOG.proc_begin(d_module, 'x_new_segment1', x_new_segment1);
3820: END IF;
3821: d_pos := 10;
3822: x_return_status := FND_API.g_ret_sts_success;
3823: x_errmsg_code := NULL;
3837: FROM po_headers_all POH, financials_system_params_all FSP
3838: WHERE po_header_id = p_po_header_id
3839: AND poh.org_id = fsp.org_id;
3840:
3841: IF PO_LOG.d_stmt THEN
3842: PO_LOG.stmt(d_module,d_pos,'l_doc_org_id',l_doc_org_id);
3843: PO_LOG.stmt(d_module,d_pos,'l_type_lookup_code',l_type_lookup_code);
3844: PO_LOG.stmt(d_module,d_pos,'l_global_agreement_flag',l_global_agreement_flag);
3845: PO_LOG.stmt(d_module,d_pos,'l_inv_org_id',l_inv_org_id);
3838: WHERE po_header_id = p_po_header_id
3839: AND poh.org_id = fsp.org_id;
3840:
3841: IF PO_LOG.d_stmt THEN
3842: PO_LOG.stmt(d_module,d_pos,'l_doc_org_id',l_doc_org_id);
3843: PO_LOG.stmt(d_module,d_pos,'l_type_lookup_code',l_type_lookup_code);
3844: PO_LOG.stmt(d_module,d_pos,'l_global_agreement_flag',l_global_agreement_flag);
3845: PO_LOG.stmt(d_module,d_pos,'l_inv_org_id',l_inv_org_id);
3846: PO_LOG.stmt(d_module,d_pos,'l_sob_id',l_sob_id);
3839: AND poh.org_id = fsp.org_id;
3840:
3841: IF PO_LOG.d_stmt THEN
3842: PO_LOG.stmt(d_module,d_pos,'l_doc_org_id',l_doc_org_id);
3843: PO_LOG.stmt(d_module,d_pos,'l_type_lookup_code',l_type_lookup_code);
3844: PO_LOG.stmt(d_module,d_pos,'l_global_agreement_flag',l_global_agreement_flag);
3845: PO_LOG.stmt(d_module,d_pos,'l_inv_org_id',l_inv_org_id);
3846: PO_LOG.stmt(d_module,d_pos,'l_sob_id',l_sob_id);
3847: END IF;
3840:
3841: IF PO_LOG.d_stmt THEN
3842: PO_LOG.stmt(d_module,d_pos,'l_doc_org_id',l_doc_org_id);
3843: PO_LOG.stmt(d_module,d_pos,'l_type_lookup_code',l_type_lookup_code);
3844: PO_LOG.stmt(d_module,d_pos,'l_global_agreement_flag',l_global_agreement_flag);
3845: PO_LOG.stmt(d_module,d_pos,'l_inv_org_id',l_inv_org_id);
3846: PO_LOG.stmt(d_module,d_pos,'l_sob_id',l_sob_id);
3847: END IF;
3848:
3841: IF PO_LOG.d_stmt THEN
3842: PO_LOG.stmt(d_module,d_pos,'l_doc_org_id',l_doc_org_id);
3843: PO_LOG.stmt(d_module,d_pos,'l_type_lookup_code',l_type_lookup_code);
3844: PO_LOG.stmt(d_module,d_pos,'l_global_agreement_flag',l_global_agreement_flag);
3845: PO_LOG.stmt(d_module,d_pos,'l_inv_org_id',l_inv_org_id);
3846: PO_LOG.stmt(d_module,d_pos,'l_sob_id',l_sob_id);
3847: END IF;
3848:
3849: d_pos := 20;
3842: PO_LOG.stmt(d_module,d_pos,'l_doc_org_id',l_doc_org_id);
3843: PO_LOG.stmt(d_module,d_pos,'l_type_lookup_code',l_type_lookup_code);
3844: PO_LOG.stmt(d_module,d_pos,'l_global_agreement_flag',l_global_agreement_flag);
3845: PO_LOG.stmt(d_module,d_pos,'l_inv_org_id',l_inv_org_id);
3846: PO_LOG.stmt(d_module,d_pos,'l_sob_id',l_sob_id);
3847: END IF;
3848:
3849: d_pos := 20;
3850: --Check if the PO Number Provided by the user is unique
3853: IF(NOT PO_CORE_S.Check_Doc_Number_Unique(x_new_segment1,
3854: l_doc_org_id,
3855: l_type_lookup_code)) THEN
3856: x_errmsg_code := 'PO_ALL_ENTER_UNIQUE_VAL';
3857: IF PO_LOG.d_exc THEN
3858: PO_LOG.exc(d_module,d_pos,'Segment1 value not unique');
3859: END IF;
3860: RAISE FND_API.g_exc_error;
3861: END IF;
3854: l_doc_org_id,
3855: l_type_lookup_code)) THEN
3856: x_errmsg_code := 'PO_ALL_ENTER_UNIQUE_VAL';
3857: IF PO_LOG.d_exc THEN
3858: PO_LOG.exc(d_module,d_pos,'Segment1 value not unique');
3859: END IF;
3860: RAISE FND_API.g_exc_error;
3861: END IF;
3862: END IF;
3864: --Check if the PO is a drop ship PO
3865: IF(PO_COPYDOC_S1.po_is_dropship(p_po_header_id)) THEN
3866: d_pos := 35;
3867: x_errmsg_code := 'PO_NOT_SUPPORT_COPY_DROPSHIPPO';
3868: IF PO_LOG.d_exc THEN
3869: PO_LOG.exc(d_module,d_pos,'Duplicate Document not supported for DropShip PO');
3870: END IF;
3871: RAISE FND_API.g_exc_error;
3872: END IF;
3865: IF(PO_COPYDOC_S1.po_is_dropship(p_po_header_id)) THEN
3866: d_pos := 35;
3867: x_errmsg_code := 'PO_NOT_SUPPORT_COPY_DROPSHIPPO';
3868: IF PO_LOG.d_exc THEN
3869: PO_LOG.exc(d_module,d_pos,'Duplicate Document not supported for DropShip PO');
3870: END IF;
3871: RAISE FND_API.g_exc_error;
3872: END IF;
3873: d_pos := 40;
3874: --Check if the PO has a config id associated with it
3875: IF(PO_COPYDOC_S1.po_has_config_id(p_po_header_id)) THEN
3876: d_pos := 45;
3877: x_errmsg_code := 'PO_CANNOT_COPY_CONFIG_ID_DOC';
3878: IF PO_LOG.d_exc THEN
3879: PO_LOG.exc(d_module,d_pos,'Duplicate Document not supported for PO with Config ID');
3880: END IF;
3881: RAISE FND_API.g_exc_error;
3882: END IF;
3875: IF(PO_COPYDOC_S1.po_has_config_id(p_po_header_id)) THEN
3876: d_pos := 45;
3877: x_errmsg_code := 'PO_CANNOT_COPY_CONFIG_ID_DOC';
3878: IF PO_LOG.d_exc THEN
3879: PO_LOG.exc(d_module,d_pos,'Duplicate Document not supported for PO with Config ID');
3880: END IF;
3881: RAISE FND_API.g_exc_error;
3882: END IF;
3883: d_pos := 50;
3881: RAISE FND_API.g_exc_error;
3882: END IF;
3883: d_pos := 50;
3884: --If validations go thru fine invoke the copy_document procedure
3885: IF PO_LOG.d_event THEN
3886: PO_LOG.event(d_module,d_pos,'Invoking PO_COPYDOC_S1.Copy Document Procedure');
3887: END IF;
3888:
3889: copy_document (
3882: END IF;
3883: d_pos := 50;
3884: --If validations go thru fine invoke the copy_document procedure
3885: IF PO_LOG.d_event THEN
3886: PO_LOG.event(d_module,d_pos,'Invoking PO_COPYDOC_S1.Copy Document Procedure');
3887: END IF;
3888:
3889: copy_document (
3890: x_action_code => 'PO',
3903: x_return_code => l_return_code,
3904: x_copy_terms => p_copy_terms,
3905: p_api_commit => FALSE); --Do not Commit
3906:
3907: IF PO_LOG.d_event THEN
3908: PO_LOG.event(d_module,d_pos,'PO_COPYDOC_S1.Copy Document Procedure call completed');
3909: END IF;
3910: d_pos := 60;
3911: --If online_report_id is not null get the message
3904: x_copy_terms => p_copy_terms,
3905: p_api_commit => FALSE); --Do not Commit
3906:
3907: IF PO_LOG.d_event THEN
3908: PO_LOG.event(d_module,d_pos,'PO_COPYDOC_S1.Copy Document Procedure call completed');
3909: END IF;
3910: d_pos := 60;
3911: --If online_report_id is not null get the message
3912: IF (l_online_report_id is NOT NULL) THEN
3913: d_pos := 65;
3914: PO_COPYDOC_S1.ret_and_del_online_report_rec( l_online_report_id
3915: ,x_message_type
3916: ,x_text_line);
3917: IF PO_LOG.d_stmt THEN
3918: PO_LOG.stmt(d_module,d_pos,'l_online_report_id',l_online_report_id);
3919: PO_LOG.stmt(d_module,d_pos,'x_message_type',x_message_type);
3920: PO_LOG.stmt(d_module,d_pos,'x_text_line',x_text_line);
3921: END IF;
3914: PO_COPYDOC_S1.ret_and_del_online_report_rec( l_online_report_id
3915: ,x_message_type
3916: ,x_text_line);
3917: IF PO_LOG.d_stmt THEN
3918: PO_LOG.stmt(d_module,d_pos,'l_online_report_id',l_online_report_id);
3919: PO_LOG.stmt(d_module,d_pos,'x_message_type',x_message_type);
3920: PO_LOG.stmt(d_module,d_pos,'x_text_line',x_text_line);
3921: END IF;
3922: END IF;
3915: ,x_message_type
3916: ,x_text_line);
3917: IF PO_LOG.d_stmt THEN
3918: PO_LOG.stmt(d_module,d_pos,'l_online_report_id',l_online_report_id);
3919: PO_LOG.stmt(d_module,d_pos,'x_message_type',x_message_type);
3920: PO_LOG.stmt(d_module,d_pos,'x_text_line',x_text_line);
3921: END IF;
3922: END IF;
3923: d_pos := 70;
3916: ,x_text_line);
3917: IF PO_LOG.d_stmt THEN
3918: PO_LOG.stmt(d_module,d_pos,'l_online_report_id',l_online_report_id);
3919: PO_LOG.stmt(d_module,d_pos,'x_message_type',x_message_type);
3920: PO_LOG.stmt(d_module,d_pos,'x_text_line',x_text_line);
3921: END IF;
3922: END IF;
3923: d_pos := 70;
3924: IF(l_return_code < 0) THEN
3925: d_pos := 75;
3926: RAISE FND_API.g_exc_unexpected_error;
3927: END IF;
3928:
3929: IF PO_LOG.d_proc THEN
3930: PO_LOG.proc_end(d_module,'x_new_segment1',x_new_segment1);
3931: PO_LOG.proc_end(d_module,'x_new_po_header_id',x_new_po_header_id);
3932: PO_LOG.proc_end(d_module,'x_errmsg_code',x_errmsg_code);
3933: PO_LOG.proc_end(d_module,'x_message_type',x_message_type);
3926: RAISE FND_API.g_exc_unexpected_error;
3927: END IF;
3928:
3929: IF PO_LOG.d_proc THEN
3930: PO_LOG.proc_end(d_module,'x_new_segment1',x_new_segment1);
3931: PO_LOG.proc_end(d_module,'x_new_po_header_id',x_new_po_header_id);
3932: PO_LOG.proc_end(d_module,'x_errmsg_code',x_errmsg_code);
3933: PO_LOG.proc_end(d_module,'x_message_type',x_message_type);
3934: PO_LOG.proc_end(d_module,'x_text_line',x_text_line);
3927: END IF;
3928:
3929: IF PO_LOG.d_proc THEN
3930: PO_LOG.proc_end(d_module,'x_new_segment1',x_new_segment1);
3931: PO_LOG.proc_end(d_module,'x_new_po_header_id',x_new_po_header_id);
3932: PO_LOG.proc_end(d_module,'x_errmsg_code',x_errmsg_code);
3933: PO_LOG.proc_end(d_module,'x_message_type',x_message_type);
3934: PO_LOG.proc_end(d_module,'x_text_line',x_text_line);
3935: PO_LOG.proc_end(d_module,'x_return_status',x_return_status);
3928:
3929: IF PO_LOG.d_proc THEN
3930: PO_LOG.proc_end(d_module,'x_new_segment1',x_new_segment1);
3931: PO_LOG.proc_end(d_module,'x_new_po_header_id',x_new_po_header_id);
3932: PO_LOG.proc_end(d_module,'x_errmsg_code',x_errmsg_code);
3933: PO_LOG.proc_end(d_module,'x_message_type',x_message_type);
3934: PO_LOG.proc_end(d_module,'x_text_line',x_text_line);
3935: PO_LOG.proc_end(d_module,'x_return_status',x_return_status);
3936: PO_LOG.proc_end(d_module,'x_exception_msg',x_exception_msg);
3929: IF PO_LOG.d_proc THEN
3930: PO_LOG.proc_end(d_module,'x_new_segment1',x_new_segment1);
3931: PO_LOG.proc_end(d_module,'x_new_po_header_id',x_new_po_header_id);
3932: PO_LOG.proc_end(d_module,'x_errmsg_code',x_errmsg_code);
3933: PO_LOG.proc_end(d_module,'x_message_type',x_message_type);
3934: PO_LOG.proc_end(d_module,'x_text_line',x_text_line);
3935: PO_LOG.proc_end(d_module,'x_return_status',x_return_status);
3936: PO_LOG.proc_end(d_module,'x_exception_msg',x_exception_msg);
3937: PO_LOG.proc_end(d_module);
3930: PO_LOG.proc_end(d_module,'x_new_segment1',x_new_segment1);
3931: PO_LOG.proc_end(d_module,'x_new_po_header_id',x_new_po_header_id);
3932: PO_LOG.proc_end(d_module,'x_errmsg_code',x_errmsg_code);
3933: PO_LOG.proc_end(d_module,'x_message_type',x_message_type);
3934: PO_LOG.proc_end(d_module,'x_text_line',x_text_line);
3935: PO_LOG.proc_end(d_module,'x_return_status',x_return_status);
3936: PO_LOG.proc_end(d_module,'x_exception_msg',x_exception_msg);
3937: PO_LOG.proc_end(d_module);
3938: END IF;
3931: PO_LOG.proc_end(d_module,'x_new_po_header_id',x_new_po_header_id);
3932: PO_LOG.proc_end(d_module,'x_errmsg_code',x_errmsg_code);
3933: PO_LOG.proc_end(d_module,'x_message_type',x_message_type);
3934: PO_LOG.proc_end(d_module,'x_text_line',x_text_line);
3935: PO_LOG.proc_end(d_module,'x_return_status',x_return_status);
3936: PO_LOG.proc_end(d_module,'x_exception_msg',x_exception_msg);
3937: PO_LOG.proc_end(d_module);
3938: END IF;
3939: EXCEPTION
3932: PO_LOG.proc_end(d_module,'x_errmsg_code',x_errmsg_code);
3933: PO_LOG.proc_end(d_module,'x_message_type',x_message_type);
3934: PO_LOG.proc_end(d_module,'x_text_line',x_text_line);
3935: PO_LOG.proc_end(d_module,'x_return_status',x_return_status);
3936: PO_LOG.proc_end(d_module,'x_exception_msg',x_exception_msg);
3937: PO_LOG.proc_end(d_module);
3938: END IF;
3939: EXCEPTION
3940: WHEN FND_API.g_exc_error THEN
3933: PO_LOG.proc_end(d_module,'x_message_type',x_message_type);
3934: PO_LOG.proc_end(d_module,'x_text_line',x_text_line);
3935: PO_LOG.proc_end(d_module,'x_return_status',x_return_status);
3936: PO_LOG.proc_end(d_module,'x_exception_msg',x_exception_msg);
3937: PO_LOG.proc_end(d_module);
3938: END IF;
3939: EXCEPTION
3940: WHEN FND_API.g_exc_error THEN
3941: x_return_status := FND_API.g_ret_sts_error;
3945: x_exception_msg := x_text_line;
3946: ELSE
3947: x_exception_msg := 'Unexpected Error in ' || d_module||'-'||d_pos;
3948: END IF;
3949: IF PO_LOG.d_exc THEN
3950: PO_LOG.exc(d_module,d_pos,x_exception_msg);
3951: END IF;
3952: WHEN OTHERS THEN
3953: x_return_status := FND_API.g_ret_sts_unexp_error;
3946: ELSE
3947: x_exception_msg := 'Unexpected Error in ' || d_module||'-'||d_pos;
3948: END IF;
3949: IF PO_LOG.d_exc THEN
3950: PO_LOG.exc(d_module,d_pos,x_exception_msg);
3951: END IF;
3952: WHEN OTHERS THEN
3953: x_return_status := FND_API.g_ret_sts_unexp_error;
3954: IF (l_online_report_id is NOT NULL) THEN
3960: x_exception_msg := x_text_line;
3961: ELSE
3962: x_exception_msg := 'Unhandled Exception in ' || d_module||'-'||d_pos;
3963: END IF;
3964: IF PO_LOG.d_exc THEN
3965: PO_LOG.exc(d_module,d_pos,x_exception_msg);
3966: END IF;
3967: END val_params_and_duplicate_doc;
3968: --
3961: ELSE
3962: x_exception_msg := 'Unhandled Exception in ' || d_module||'-'||d_pos;
3963: END IF;
3964: IF PO_LOG.d_exc THEN
3965: PO_LOG.exc(d_module,d_pos,x_exception_msg);
3966: END IF;
3967: END val_params_and_duplicate_doc;
3968: --
3969: END po_copydoc_s1;