1: PACKAGE BODY RCV_SHIPMENT_LINES_PKG as
2: /* $Header: RCVTISLB.pls 120.4 2005/11/04 15:23:59 pparthas noship $ */
3:
4: G_PKG_NAME CONSTANT VARCHAR2(30) := 'RCV_SHIPMENT_LINES_PKG';
5: G_FILE_NAME CONSTANT VARCHAR2(30) := 'RCVTISLB.pls';
1: PACKAGE BODY RCV_SHIPMENT_LINES_PKG as
2: /* $Header: RCVTISLB.pls 120.4 2005/11/04 15:23:59 pparthas noship $ */
3:
4: G_PKG_NAME CONSTANT VARCHAR2(30) := 'RCV_SHIPMENT_LINES_PKG';
5: G_FILE_NAME CONSTANT VARCHAR2(30) := 'RCVTISLB.pls';
6: g_module_prefix CONSTANT VARCHAR2(50) := 'pos.plsql.' || g_pkg_name || '.';
7:
8: g_asn_debug VARCHAR2(1) := NVL(FND_PROFILE.VALUE('AFLOG_ENABLED'),'N');
24: LEVEL_PROCEDURE CONSTANT NUMBER := 2;
25: LEVEL_STATEMENT CONSTANT NUMBER := 1;
26: */
27:
28: l_module := 'pos.plsql.rcv_shipment_lines_pkg.'||p_api_name;
29: IF(g_asn_debug = 'Y')THEN
30: IF ( p_level >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
31: FND_LOG.string(LOG_LEVEL => p_level,
32: MODULE => l_module,
134: end if;
135:
136: EXCEPTION
137: WHEN OTHERS THEN
138: po_message_s.sql_error('RCV_SHIPMENT_LINES_PKG.Lock_Line_s', x_progress, sqlcode);
139: RAISE;
140:
141: END Lock_Line_s;
142:
167: end if;
168:
169: EXCEPTION
170: WHEN OTHERS THEN
171: po_message_s.sql_error('RCV_SHIPMENT_LINES_PKG.Update_Line_s', x_progress, sqlcode);
172: RAISE;
173:
174: END Update_Line_s;
175:
236: return;
237:
238: EXCEPTION
239: WHEN OTHERS THEN
240: po_message_s.sql_error('RCV_SHIPMENT_LINES_PKG.Update_wc_line', x_progress, sqlcode);
241: RAISE;
242:
243: END Update_wc_line;
244:
501: end if;
502:
503: EXCEPTION
504: WHEN OTHERS THEN
505: po_message_s.sql_error('RCV_SHIPMENT_LINES_PKG.Update_quantity_amount', x_progress, sqlcode);
506: RAISE;
507:
508: END Update_quantity_amount;
509:
550: where shipment_line_id= p_shipment_line_id;
551:
552: EXCEPTION
553: WHEN OTHERS THEN
554: po_message_s.sql_error('RCV_SHIPMENT_LINES_PKG.delete_line_s', x_progress, sqlcode);
555: RAISE;
556:
557: END delete_line_s;
558:
622: END IF;
623:
624: EXCEPTION
625: WHEN OTHERS THEN
626: po_message_s.sql_error('RCV_SHIPMENT_LINES_PKG.update_approval_status', x_progress, sqlcode);
627: RAISE;
628:
629: END update_approval_status;
630:
628:
629: END update_approval_status;
630:
631:
632: END RCV_SHIPMENT_LINES_PKG;