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,
71: X_progress VARCHAR2(4) := '000';
72:
73: CURSOR C IS
74: SELECT *
75: FROM RCV_SHIPMENT_LINES
76: WHERE rowid = X_Rowid
77: FOR UPDATE of Shipment_Line_Id NOWAIT;
78: Recinfo C%ROWTYPE;
79:
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:
152: ) IS
153: X_progress VARCHAR2(4) := '000';
154: BEGIN
155:
156: update rcv_shipment_lines
157: set item_revision = x_item_revision,
158: locator_id = x_stock_locator_id,
159: packing_slip = x_packing_slip,
160: comments = x_comments,
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:
190: select wf_item_key
191: into l_itemkey
192: from rcv_shipment_headers
193: where shipment_header_id =( select shipment_header_id
194: from rcv_shipment_lines
195: where shipment_line_id= p_shipment_line_id);
196:
197: l_api_name := l_itemkey || ' update_wc_line';
198:
212: debug_log(FND_LOG.LEVEL_STATEMENT,l_api_name,
213: 'After call to update_quantity_amount');
214: END IF;
215:
216: update rcv_shipment_lines
217: set requested_amount = p_requested_amount,
218: material_stored_amount = p_material_stored_amount,
219: amount_shipped = p_amount_shipped,
220: quantity_shipped = p_quantity_shipped,
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:
287: select wf_item_key
288: into l_itemkey
289: from rcv_shipment_headers
290: where shipment_header_id =( select shipment_header_id
291: from rcv_shipment_lines
292: where shipment_line_id= p_shipment_line_id);
293:
294: l_api_name := l_itemkey || ' update_quantity_amount';
295:
307: po_line_location_id
308: into l_orig_qty_shipped,
309: l_orig_amt_shipped,
310: l_line_location_id
311: from rcv_shipment_lines
312: where shipment_line_id = p_shipment_line_id;
313:
314: IF (g_asn_debug = 'Y') THEN
315: debug_log(FND_LOG.LEVEL_STATEMENT,l_api_name,
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:
520: select wf_item_key
521: into l_itemkey
522: from rcv_shipment_headers
523: where shipment_header_id =( select shipment_header_id
524: from rcv_shipment_lines
525: where shipment_line_id= p_shipment_line_id);
526:
527: l_api_name := l_itemkey || ' delete_line_s';
528:
545: debug_log(FND_LOG.LEVEL_STATEMENT,l_api_name,
546: 'Before Delete '||p_shipment_line_id);
547: END IF;
548:
549: delete from rcv_shipment_lines
550: where shipment_line_id= p_shipment_line_id;
551:
552: EXCEPTION
553: WHEN OTHERS THEN
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:
595: select wf_item_key
596: into l_itemkey
597: from rcv_shipment_headers
598: where shipment_header_id =( select shipment_header_id
599: from rcv_shipment_lines
600: where shipment_line_id= p_document_id);
601:
602: l_api_name := l_itemkey || ' update_approval_status';
603:
606: debug_log(FND_LOG.LEVEL_STATEMENT,l_api_name,
607: 'Enter LINE update_approval_status');
608: END IF;
609:
610: update rcv_shipment_lines
611: set approval_status = p_approval_status,
612: comments = p_comments,
613: last_update_date = sysdate,
614: last_updated_by = fnd_global.user_id,
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;