[Home] [Help]
1: PACKAGE BODY po_copydoc_s1 AS
2: /* $Header: POXCPO1B.pls 120.25 2007/12/26 07:59:00 adevadul ship $*/
3:
4: --< Shared Proc FPJ Start >
5: -- Debugging booleans used to bypass logging when turned off
5: -- Debugging booleans used to bypass logging when turned off
6: g_debug_stmt CONSTANT BOOLEAN := PO_DEBUG.is_debug_stmt_on;
7: g_debug_unexp CONSTANT BOOLEAN := PO_DEBUG.is_debug_unexp_on;
8:
9: g_pkg_name CONSTANT VARCHAR2(20) := 'PO_COPYDOC_S1';
10: g_module_prefix CONSTANT VARCHAR2(30) := 'po.plsql.' || g_pkg_name || '.';
11: --< Shared Proc FPJ End >
12:
13: --
301: ,x_message OUT NOCOPY VARCHAR2)
302: IS
303: pragma AUTONOMOUS_TRANSACTION;
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);
3241: FROM SYS.DUAL;
3242: EXCEPTION
3243: WHEN OTHERS THEN
3244: x_online_report_id := NULL;
3245: po_copydoc_s1.COPYDOC_sql_error('copy_documents', x_progress, sqlcode,
3246: x_online_report_id,
3247: x_sequence,
3248: 0, 0, 0);
3249: END;
3346: AND POD.distribution_type = 'AGREEMENT';
3347:
3348: EXCEPTION
3349: WHEN TOO_MANY_ROWS THEN
3350: po_copydoc_s1.COPYDOC_sql_error('copy_documents', x_progress, sqlcode,
3351: x_online_report_id,
3352: x_sequence,
3353: 0, 0, 1);
3354: x_internal_return_code := -1;
3805: l_sob_id FINANCIALS_SYSTEM_PARAMS_ALL.set_of_books_id%type;
3806: l_return_code NUMBER;
3807: l_online_report_id PO_ONLINE_REPORT_TEXT.online_report_id%type;
3808: d_pos NUMBER;
3809: d_module VARCHAR2(70) := 'po.plsql.PO_COPYDOC_S1.VAL_PARAMS_AND_DUPLICATE_DOC';
3810: d_log_msg VARCHAR2(200);
3811: BEGIN
3812: --Initialise the variables
3813: d_pos := 0;
3861: END IF;
3862: END IF;
3863: d_pos := 30;
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');
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');
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',
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
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);
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
3955: PO_COPYDOC_S1.ret_and_del_online_report_rec( l_online_report_id
3956: ,x_message_type
3957: ,x_text_line);
3958: END IF;
3959: IF(x_text_line is not null) 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;