[Home] [Help]
117: l_dummy VARCHAR2(1);
118: --
119:
120: BEGIN
121: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
122: FND_LOG.string(FND_LOG.level_procedure, l_debug_key||'.begin', 'API called with p_osp_order_id: '||p_osp_order_id);
123: END IF;
124:
125: -- Check for the given OSP order id. If NULL, return FND_API.G_FALSE.
118: --
119:
120: BEGIN
121: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
122: FND_LOG.string(FND_LOG.level_procedure, l_debug_key||'.begin', 'API called with p_osp_order_id: '||p_osp_order_id);
123: END IF;
124:
125: -- Check for the given OSP order id. If NULL, return FND_API.G_FALSE.
126: IF (p_osp_order_id IS NULL) THEN
123: END IF;
124:
125: -- Check for the given OSP order id. If NULL, return FND_API.G_FALSE.
126: IF (p_osp_order_id IS NULL) THEN
127: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
128: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
129: 'OSP order id is NULL. Returning False.');
130: END IF;
131:
124:
125: -- Check for the given OSP order id. If NULL, return FND_API.G_FALSE.
126: IF (p_osp_order_id IS NULL) THEN
127: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
128: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
129: 'OSP order id is NULL. Returning False.');
130: END IF;
131:
132: RETURN FND_API.G_FALSE;
138: CLOSE get_oe_header_id;
139:
140: -- Check for the oe_header_id. If NULL, it means no shipment has been created. Return FND_API.G_FALSE.
141: IF (l_oe_header_id IS NULL) THEN
142: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
143: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
144: 'oe_header_id is NULL for the OSP order: '||p_osp_order_id||'. Returning False.');
145: END IF;
146:
139:
140: -- Check for the oe_header_id. If NULL, it means no shipment has been created. Return FND_API.G_FALSE.
141: IF (l_oe_header_id IS NULL) THEN
142: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
143: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
144: 'oe_header_id is NULL for the OSP order: '||p_osp_order_id||'. Returning False.');
145: END IF;
146:
147: RETURN FND_API.G_FALSE;
151: OPEN chk_shipment_booked(l_oe_header_id);
152: FETCH chk_shipment_booked INTO l_dummy;
153: IF (chk_shipment_booked%NOTFOUND) THEN
154: -- The shipment is not booked. Return FND_API.G_FALSE.
155: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
156: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
157: 'Shipment '||l_oe_header_id||' is not booked. Returning False.');
158: END IF;
159:
152: FETCH chk_shipment_booked INTO l_dummy;
153: IF (chk_shipment_booked%NOTFOUND) THEN
154: -- The shipment is not booked. Return FND_API.G_FALSE.
155: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
156: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
157: 'Shipment '||l_oe_header_id||' is not booked. Returning False.');
158: END IF;
159:
160: CLOSE chk_shipment_booked;
181: END LOOP;
182: CLOSE get_rma_lines;
183:
184: -- If none of the shipment/PO lines can be received, return FND_API.G_FALSE.
185: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
186: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
187: 'None of the shipment/PO lines can be received. Returnig False.');
188: END IF;
189:
182: CLOSE get_rma_lines;
183:
184: -- If none of the shipment/PO lines can be received, return FND_API.G_FALSE.
185: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
186: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
187: 'None of the shipment/PO lines can be received. Returnig False.');
188: END IF;
189:
190: RETURN FND_API.G_FALSE;
337: l_merged_req_line BOOLEAN := FALSE;
338: --
339:
340: BEGIN
341: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
342: FND_LOG.string(FND_LOG.level_procedure, l_debug_key||'.begin', 'API called with p_return_line_id: '||p_return_line_id);
343: END IF;
344:
345: -- Check whether the given return line is valid or not.
338: --
339:
340: BEGIN
341: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
342: FND_LOG.string(FND_LOG.level_procedure, l_debug_key||'.begin', 'API called with p_return_line_id: '||p_return_line_id);
343: END IF;
344:
345: -- Check whether the given return line is valid or not.
346: OPEN chk_return_line(p_return_line_id);
346: OPEN chk_return_line(p_return_line_id);
347: FETCH chk_return_line INTO l_dummy;
348: IF (chk_return_line%NOTFOUND) THEN
349: -- The given return line is invalid. Return FND_API.G_FALSE.
350: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
351: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
352: 'Return line: '||p_return_line_id||' is invalid. Returnig False.');
353: END IF;
354:
347: FETCH chk_return_line INTO l_dummy;
348: IF (chk_return_line%NOTFOUND) THEN
349: -- The given return line is invalid. Return FND_API.G_FALSE.
350: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
351: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
352: 'Return line: '||p_return_line_id||' is invalid. Returnig False.');
353: END IF;
354:
355: CLOSE chk_return_line;
373: -- PO receipt should be enabled only after RMA receipt is complete. For this, check for the ordered and
374: -- shipped quantities of the given return line. If the shipped quantity is less than the
375: -- ordered quantity, then it means there is still quantity left to be returned. Return FND_API.G_FALSE.
376: IF (l_oe_shipped_qty IS NULL OR l_oe_shipped_qty < l_oe_ordered_qty) THEN
377: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
378: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
379: 'Shipped quantity is NULL, or less than the ordered quantity for the return line: '||p_return_line_id||
380: '. As receipt against RMA is not complete yet, returning False.');
381: END IF;
374: -- shipped quantities of the given return line. If the shipped quantity is less than the
375: -- ordered quantity, then it means there is still quantity left to be returned. Return FND_API.G_FALSE.
376: IF (l_oe_shipped_qty IS NULL OR l_oe_shipped_qty < l_oe_ordered_qty) THEN
377: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
378: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
379: 'Shipped quantity is NULL, or less than the ordered quantity for the return line: '||p_return_line_id||
380: '. As receipt against RMA is not complete yet, returning False.');
381: END IF;
382:
390: IF (l_po_header_id IS NULL) THEN
391: -- As the PO header id is NULL, check for the requisition header id.
392: IF (l_po_req_header_id IS NULL) THEN
393: -- Even the requisition header id is NULL. Return FND_API.G_FALSE.
394: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
395: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
396: 'Both PO and requisition headers are NULL for the OSP order: '||l_osp_order_id||
397: '. Returning False.');
398: END IF;
391: -- As the PO header id is NULL, check for the requisition header id.
392: IF (l_po_req_header_id IS NULL) THEN
393: -- Even the requisition header id is NULL. Return FND_API.G_FALSE.
394: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
395: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
396: 'Both PO and requisition headers are NULL for the OSP order: '||l_osp_order_id||
397: '. Returning False.');
398: END IF;
399:
404: -- If not approved, return FND_API.G_FALSE.
405: OPEN chk_po_req_approved(l_po_req_header_id);
406: FETCH chk_po_req_approved INTO l_dummy;
407: IF (chk_po_req_approved%NOTFOUND) THEN
408: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
409: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
410: 'Requisition: '||l_po_header_id||' is not approved. Returning False.');
411: END IF;
412:
405: OPEN chk_po_req_approved(l_po_req_header_id);
406: FETCH chk_po_req_approved INTO l_dummy;
407: IF (chk_po_req_approved%NOTFOUND) THEN
408: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
409: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
410: 'Requisition: '||l_po_header_id||' is not approved. Returning False.');
411: END IF;
412:
413: CLOSE chk_po_req_approved;
421: -- If not approved, return FND_API.G_FALSE.
422: OPEN chk_po_header_approved(l_po_header_id);
423: FETCH chk_po_header_approved INTO l_dummy;
424: IF (chk_po_header_approved%NOTFOUND) THEN
425: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
426: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
427: 'Purchase order: '||l_po_header_id||' is not approved. Returning False.');
428: END IF;
429:
422: OPEN chk_po_header_approved(l_po_header_id);
423: FETCH chk_po_header_approved INTO l_dummy;
424: IF (chk_po_header_approved%NOTFOUND) THEN
425: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
426: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
427: 'Purchase order: '||l_po_header_id||' is not approved. Returning False.');
428: END IF;
429:
430: CLOSE chk_po_header_approved;
434: CLOSE chk_po_header_approved;
435: END IF; -- if l_po_header_id IS NULL
436: ELSE
437: -- This means that the OSP order is not in the PO_CREATED or REQ_CREATED status. Return FND_API.G_FALSE.
438: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
439: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
440: 'OSP order: '||l_osp_order_id||' is not in status PO_CREATED or REQ_CREATED. Returnig False.');
441: END IF;
442:
435: END IF; -- if l_po_header_id IS NULL
436: ELSE
437: -- This means that the OSP order is not in the PO_CREATED or REQ_CREATED status. Return FND_API.G_FALSE.
438: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
439: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
440: 'OSP order: '||l_osp_order_id||' is not in status PO_CREATED or REQ_CREATED. Returnig False.');
441: END IF;
442:
443: CLOSE get_po_header_id;
456: IF (l_po_line_id IS NULL) THEN
457: OPEN get_po_line(l_po_req_line_id);
458: FETCH get_po_line INTO l_po_line_id;
459: IF (get_po_line%FOUND) THEN
460: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
461: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
462: 'PO line id was NULL. Got it as '||l_po_line_id||' from the Requisition line: '||l_po_req_line_id);
463: END IF;
464:
457: OPEN get_po_line(l_po_req_line_id);
458: FETCH get_po_line INTO l_po_line_id;
459: IF (get_po_line%FOUND) THEN
460: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
461: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
462: 'PO line id was NULL. Got it as '||l_po_line_id||' from the Requisition line: '||l_po_req_line_id);
463: END IF;
464:
465: -- Check for merged Requisition lines, i.e. whether this PO line has already been checked or not.
475: CLOSE get_po_line_quantity2;
476: END IF;
477: ELSE
478: -- Either PO is not created or its not approved.
479: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
480: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
481: 'Either PO is not created or its not approved. Returning False');
482: END IF;
483:
476: END IF;
477: ELSE
478: -- Either PO is not created or its not approved.
479: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
480: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
481: 'Either PO is not created or its not approved. Returning False');
482: END IF;
483:
484: CLOSE get_po_line;
490:
491: -- For any of the PO lines, if the total received quantity is not less than the line quantity, return FND_API.G_FALSE.
492: -- No need to check this for merged Requisition lines, this check would already have happened for the first Requisition line.
493: IF NOT l_merged_req_line AND NOT (l_po_line_tot_qty < l_po_line_qty) THEN
494: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
495: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
496: 'Total received quantity is not less than the line quantity for PO line id: '||l_po_line_id||'.'||
497: ' Returning False.');
498: END IF;
491: -- For any of the PO lines, if the total received quantity is not less than the line quantity, return FND_API.G_FALSE.
492: -- No need to check this for merged Requisition lines, this check would already have happened for the first Requisition line.
493: IF NOT l_merged_req_line AND NOT (l_po_line_tot_qty < l_po_line_qty) THEN
494: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
495: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
496: 'Total received quantity is not less than the line quantity for PO line id: '||l_po_line_id||'.'||
497: ' Returning False.');
498: END IF;
499:
503: END LOOP;
504: CLOSE get_po_line_quantity1;
505:
506: -- If all the checks have been validated, return FND_API.G_TRUE.
507: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
508: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
509: 'All checks validated. Returnig True.');
510: END IF;
511:
504: CLOSE get_po_line_quantity1;
505:
506: -- If all the checks have been validated, return FND_API.G_TRUE.
507: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
508: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
509: 'All checks validated. Returnig True.');
510: END IF;
511:
512: RETURN FND_API.G_TRUE;
574: l_dummy VARCHAR2(1);
575: --
576:
577: BEGIN
578: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
579: FND_LOG.string(FND_LOG.level_procedure, l_debug_key||'.begin', 'API called with p_return_line_id: '||p_return_line_id);
580: END IF;
581:
582: -- Check whether the given return line is valid or not.
575: --
576:
577: BEGIN
578: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
579: FND_LOG.string(FND_LOG.level_procedure, l_debug_key||'.begin', 'API called with p_return_line_id: '||p_return_line_id);
580: END IF;
581:
582: -- Check whether the given return line is valid or not.
583: OPEN chk_return_line(p_return_line_id);
583: OPEN chk_return_line(p_return_line_id);
584: FETCH chk_return_line INTO l_dummy;
585: IF (chk_return_line%NOTFOUND) THEN
586: -- The given return line is invalid. Return FND_API.G_FALSE.
587: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
588: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
589: 'Return line: '||p_return_line_id||' is invalid. Returnig False.');
590: END IF;
591:
584: FETCH chk_return_line INTO l_dummy;
585: IF (chk_return_line%NOTFOUND) THEN
586: -- The given return line is invalid. Return FND_API.G_FALSE.
587: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
588: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
589: 'Return line: '||p_return_line_id||' is invalid. Returnig False.');
590: END IF;
591:
592: CLOSE chk_return_line;
598: OPEN chk_shipment_booked(p_return_line_id);
599: FETCH chk_shipment_booked INTO l_oe_header_id;
600: IF (chk_shipment_booked%NOTFOUND) THEN
601: -- The shipment is not booked. Return FND_API.G_FALSE.
602: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
603: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
604: 'Shipment order: '||l_oe_header_id||' is not booked. Returnig False.');
605: END IF;
606:
599: FETCH chk_shipment_booked INTO l_oe_header_id;
600: IF (chk_shipment_booked%NOTFOUND) THEN
601: -- The shipment is not booked. Return FND_API.G_FALSE.
602: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
603: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
604: 'Shipment order: '||l_oe_header_id||' is not booked. Returnig False.');
605: END IF;
606:
607: CLOSE chk_shipment_booked;
615: FETCH get_osp_ship_line_id INTO l_oe_ship_line_id;
616: IF (get_osp_ship_line_id%FOUND) THEN
617: -- If the ship line id is NULL, return FND_API.G_FALSE.
618: IF (l_oe_ship_line_id IS NULL) THEN
619: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
620: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
621: 'Ship line id for the return line: '||p_return_line_id||' is NULL. Returning False.');
622: END IF;
623:
616: IF (get_osp_ship_line_id%FOUND) THEN
617: -- If the ship line id is NULL, return FND_API.G_FALSE.
618: IF (l_oe_ship_line_id IS NULL) THEN
619: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
620: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
621: 'Ship line id for the return line: '||p_return_line_id||' is NULL. Returning False.');
622: END IF;
623:
624: CLOSE get_osp_ship_line_id;
628: OPEN get_oe_quantities(l_oe_ship_line_id);
629: FETCH get_oe_quantities INTO l_ship_line_qty_rec;
630: CLOSE get_oe_quantities;
631:
632: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
633: FND_LOG.string(FND_LOG.level_statement, l_debug_key, 'l_oe_ship_line_id: '||l_oe_ship_line_id);
634: FND_LOG.string(FND_LOG.level_statement, l_debug_key, 'l_ship_line_qty_rec.shipped_quantity: '||l_ship_line_qty_rec .shipped_quantity);
635: END IF;
636:
629: FETCH get_oe_quantities INTO l_ship_line_qty_rec;
630: CLOSE get_oe_quantities;
631:
632: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
633: FND_LOG.string(FND_LOG.level_statement, l_debug_key, 'l_oe_ship_line_id: '||l_oe_ship_line_id);
634: FND_LOG.string(FND_LOG.level_statement, l_debug_key, 'l_ship_line_qty_rec.shipped_quantity: '||l_ship_line_qty_rec .shipped_quantity);
635: END IF;
636:
637: -- Shipment should have been done for any receipt to take place. For this, check the shipped quantity.
630: CLOSE get_oe_quantities;
631:
632: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
633: FND_LOG.string(FND_LOG.level_statement, l_debug_key, 'l_oe_ship_line_id: '||l_oe_ship_line_id);
634: FND_LOG.string(FND_LOG.level_statement, l_debug_key, 'l_ship_line_qty_rec.shipped_quantity: '||l_ship_line_qty_rec .shipped_quantity);
635: END IF;
636:
637: -- Shipment should have been done for any receipt to take place. For this, check the shipped quantity.
638: -- If the shipped quantity is NULL or zero, it means shipment hasn't been done yet. Return FND_API.G_FALSE.
636:
637: -- Shipment should have been done for any receipt to take place. For this, check the shipped quantity.
638: -- If the shipped quantity is NULL or zero, it means shipment hasn't been done yet. Return FND_API.G_FALSE.
639: IF (l_ship_line_qty_rec.shipped_quantity IS NULL OR l_ship_line_qty_rec.shipped_quantity = 0) THEN
640: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
641: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
642: 'Shipment for the return line: '||p_return_line_id||' has not been done yet. Returning False.');
643: END IF;
644:
637: -- Shipment should have been done for any receipt to take place. For this, check the shipped quantity.
638: -- If the shipped quantity is NULL or zero, it means shipment hasn't been done yet. Return FND_API.G_FALSE.
639: IF (l_ship_line_qty_rec.shipped_quantity IS NULL OR l_ship_line_qty_rec.shipped_quantity = 0) THEN
640: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
641: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
642: 'Shipment for the return line: '||p_return_line_id||' has not been done yet. Returning False.');
643: END IF;
644:
645: CLOSE get_osp_ship_line_id;
656:
657: -- Check for the ordered and shipped quantities of the given return line. If the shipped quantity is not less than the
658: -- ordered quantity, then it means there is no quantity left to be returned. Return FND_API.G_FALSE.
659: IF NOT (nvl(l_return_line_qty_rec.shipped_quantity,0) < l_return_line_qty_rec.ordered_quantity) THEN
660: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
661: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
662: 'Shipped quantity is not less than the ordered quantity for the return line: '||p_return_line_id||'.'||
663: ' Returning False.');
664: END IF;
657: -- Check for the ordered and shipped quantities of the given return line. If the shipped quantity is not less than the
658: -- ordered quantity, then it means there is no quantity left to be returned. Return FND_API.G_FALSE.
659: IF NOT (nvl(l_return_line_qty_rec.shipped_quantity,0) < l_return_line_qty_rec.ordered_quantity) THEN
660: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
661: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
662: 'Shipped quantity is not less than the ordered quantity for the return line: '||p_return_line_id||'.'||
663: ' Returning False.');
664: END IF;
665:
666: RETURN FND_API.G_FALSE;
667: END IF;
668:
669: -- If all the checks have been validated, return FND_API.G_TRUE.
670: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
671: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
672: 'All checks validated. Returnig True.');
673: END IF;
674:
667: END IF;
668:
669: -- If all the checks have been validated, return FND_API.G_TRUE.
670: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
671: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
672: 'All checks validated. Returnig True.');
673: END IF;
674:
675: RETURN FND_API.G_TRUE;
763: l_organization_id NUMBER;
764: --
765:
766: BEGIN
767: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
768: FND_LOG.string(FND_LOG.level_procedure, l_debug_key||'.begin', 'API called with p_return_line_id: '||p_return_line_id);
769: END IF;
770:
771: -- Check whether the given return line is valid or not.
764: --
765:
766: BEGIN
767: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
768: FND_LOG.string(FND_LOG.level_procedure, l_debug_key||'.begin', 'API called with p_return_line_id: '||p_return_line_id);
769: END IF;
770:
771: -- Check whether the given return line is valid or not.
772: OPEN chk_return_line(p_return_line_id);
772: OPEN chk_return_line(p_return_line_id);
773: FETCH chk_return_line INTO l_dummy;
774: IF (chk_return_line%NOTFOUND) THEN
775: -- The given return line is invalid. Return L_NO_WORKBENCH.
776: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
777: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
778: 'Return line: '||p_return_line_id||' is invalid. Returning L_NO_WORKBENCH.');
779: END IF;
780:
773: FETCH chk_return_line INTO l_dummy;
774: IF (chk_return_line%NOTFOUND) THEN
775: -- The given return line is invalid. Return L_NO_WORKBENCH.
776: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
777: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
778: 'Return line: '||p_return_line_id||' is invalid. Returning L_NO_WORKBENCH.');
779: END IF;
780:
781: CLOSE chk_return_line;
790: OPEN c_is_trackable_item(l_inventory_item_id, l_organization_id);
791: FETCH c_is_trackable_item into l_dummy; -- check whether the inv item is trackable
792: IF NOT (c_is_trackable_item%FOUND AND l_dummy = 'Y') THEN -- If the warranty template id at the MR level is not found
793: -- The given inbentory item is not trackable. Return no warranty navigation.
794: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
795: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
796: 'Item : '||l_inventory_item_id||' is not trackable. Returning L_NO_WORKBENCH.');
797: END IF;
798:
791: FETCH c_is_trackable_item into l_dummy; -- check whether the inv item is trackable
792: IF NOT (c_is_trackable_item%FOUND AND l_dummy = 'Y') THEN -- If the warranty template id at the MR level is not found
793: -- The given inbentory item is not trackable. Return no warranty navigation.
794: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
795: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
796: 'Item : '||l_inventory_item_id||' is not trackable. Returning L_NO_WORKBENCH.');
797: END IF;
798:
799: CLOSE c_is_trackable_item;
805: OPEN chk_shipment_booked(p_return_line_id);
806: FETCH chk_shipment_booked INTO l_oe_header_id;
807: IF (chk_shipment_booked%NOTFOUND) THEN
808: -- The shipment is not booked. Return L_NO_WORKBENCH.
809: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
810: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
811: 'Shipment order: '||l_oe_header_id||' is not booked. Returning L_NO_WORKBENCH.');
812: END IF;
813:
806: FETCH chk_shipment_booked INTO l_oe_header_id;
807: IF (chk_shipment_booked%NOTFOUND) THEN
808: -- The shipment is not booked. Return L_NO_WORKBENCH.
809: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
810: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
811: 'Shipment order: '||l_oe_header_id||' is not booked. Returning L_NO_WORKBENCH.');
812: END IF;
813:
814: CLOSE chk_shipment_booked;
822: FETCH get_osp_ship_line_id INTO l_oe_ship_line_id;
823: IF (get_osp_ship_line_id%FOUND) THEN
824: -- If the ship line id is NULL, return L_NO_WORKBENCH.
825: IF (l_oe_ship_line_id IS NULL) THEN
826: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
827: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
828: 'Ship line id for the return line: '||p_return_line_id||' is NULL. Returning L_NO_WORKBENCH.');
829: END IF;
830:
823: IF (get_osp_ship_line_id%FOUND) THEN
824: -- If the ship line id is NULL, return L_NO_WORKBENCH.
825: IF (l_oe_ship_line_id IS NULL) THEN
826: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
827: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
828: 'Ship line id for the return line: '||p_return_line_id||' is NULL. Returning L_NO_WORKBENCH.');
829: END IF;
830:
831: CLOSE get_osp_ship_line_id;
835: OPEN get_oe_quantities(l_oe_ship_line_id);
836: FETCH get_oe_quantities INTO l_ship_line_qty_rec;
837: CLOSE get_oe_quantities;
838:
839: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
840: FND_LOG.string(FND_LOG.level_statement, l_debug_key, 'l_oe_ship_line_id: '||l_oe_ship_line_id);
841: FND_LOG.string(FND_LOG.level_statement, l_debug_key, 'l_ship_line_qty_rec.shipped_quantity: '||l_ship_line_qty_rec .shipped_quantity);
842: END IF;
843:
836: FETCH get_oe_quantities INTO l_ship_line_qty_rec;
837: CLOSE get_oe_quantities;
838:
839: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
840: FND_LOG.string(FND_LOG.level_statement, l_debug_key, 'l_oe_ship_line_id: '||l_oe_ship_line_id);
841: FND_LOG.string(FND_LOG.level_statement, l_debug_key, 'l_ship_line_qty_rec.shipped_quantity: '||l_ship_line_qty_rec .shipped_quantity);
842: END IF;
843:
844: -- Shipment should have been done for any receipt to take place. For this, check the shipped quantity.
837: CLOSE get_oe_quantities;
838:
839: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
840: FND_LOG.string(FND_LOG.level_statement, l_debug_key, 'l_oe_ship_line_id: '||l_oe_ship_line_id);
841: FND_LOG.string(FND_LOG.level_statement, l_debug_key, 'l_ship_line_qty_rec.shipped_quantity: '||l_ship_line_qty_rec .shipped_quantity);
842: END IF;
843:
844: -- Shipment should have been done for any receipt to take place. For this, check the shipped quantity.
845: -- If the shipped quantity is NULL or zero, it means shipment hasn't been done yet. Return L_NO_WORKBENCH.
843:
844: -- Shipment should have been done for any receipt to take place. For this, check the shipped quantity.
845: -- If the shipped quantity is NULL or zero, it means shipment hasn't been done yet. Return L_NO_WORKBENCH.
846: IF (l_ship_line_qty_rec.shipped_quantity IS NULL OR l_ship_line_qty_rec.shipped_quantity = 0) THEN
847: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
848: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
849: 'Shipment for the return line: '||p_return_line_id||' has not been done yet. Returning L_NO_WORKBENCH.');
850: END IF;
851:
844: -- Shipment should have been done for any receipt to take place. For this, check the shipped quantity.
845: -- If the shipped quantity is NULL or zero, it means shipment hasn't been done yet. Return L_NO_WORKBENCH.
846: IF (l_ship_line_qty_rec.shipped_quantity IS NULL OR l_ship_line_qty_rec.shipped_quantity = 0) THEN
847: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
848: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
849: 'Shipment for the return line: '||p_return_line_id||' has not been done yet. Returning L_NO_WORKBENCH.');
850: END IF;
851:
852: CLOSE get_osp_ship_line_id;
866: -- Check for the ordered and shipped quantities of the given return line.
867: -- If the shipped quantity is greater than or equal to the ordered quantity,
868: -- then it means the item is received. Return L_NO_WORKBENCH.
869: IF (nvl(l_return_line_qty_rec.shipped_quantity,0) >= l_return_line_qty_rec.ordered_quantity) THEN
870: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
871: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
872: 'Shipped quantity is less than the ordered quantity for the return line: '||p_return_line_id||'.'||
873: ' Returning L_NO_WORKBENCH.');
874: END IF;
867: -- If the shipped quantity is greater than or equal to the ordered quantity,
868: -- then it means the item is received. Return L_NO_WORKBENCH.
869: IF (nvl(l_return_line_qty_rec.shipped_quantity,0) >= l_return_line_qty_rec.ordered_quantity) THEN
870: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
871: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
872: 'Shipped quantity is less than the ordered quantity for the return line: '||p_return_line_id||'.'||
873: ' Returning L_NO_WORKBENCH.');
874: END IF;
875: RETURN L_NO_WORKBENCH;
878: -- if the vendor is warranty enabled then he can navigate to edit warranty workbench
879: OPEN is_warranty_vendor(p_osp_order_id);
880: FETCH is_warranty_vendor into l_dummy;
881: IF(is_warranty_vendor%FOUND AND l_dummy = 'Y') THEN
882: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
883: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
884: 'All checks validated. Returnig L_EDIT_WORKBENCH.');
885: END IF;
886: RETURN L_EDIT_WORKBENCH;
879: OPEN is_warranty_vendor(p_osp_order_id);
880: FETCH is_warranty_vendor into l_dummy;
881: IF(is_warranty_vendor%FOUND AND l_dummy = 'Y') THEN
882: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
883: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
884: 'All checks validated. Returnig L_EDIT_WORKBENCH.');
885: END IF;
886: RETURN L_EDIT_WORKBENCH;
887: END IF;
886: RETURN L_EDIT_WORKBENCH;
887: END IF;
888:
889: -- If all the checks have been validated, return L_NO_WORKBENCH.
890: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
891: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
892: 'All checks validated. Returnig L_NO_WORKBENCH.');
893: END IF;
894:
887: END IF;
888:
889: -- If all the checks have been validated, return L_NO_WORKBENCH.
890: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
891: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
892: 'All checks validated. Returnig L_NO_WORKBENCH.');
893: END IF;
894:
895: RETURN L_NO_WORKBENCH;
1059: l_merged_req_line BOOLEAN := FALSE;
1060: --
1061:
1062: BEGIN
1063: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
1064: FND_LOG.string(FND_LOG.level_procedure, l_debug_key||'.begin', 'Start of the API. p_return_line_id: '||p_return_line_id);
1065: END IF;
1066:
1067: -- Standard start of API savepoint.
1060: --
1061:
1062: BEGIN
1063: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
1064: FND_LOG.string(FND_LOG.level_procedure, l_debug_key||'.begin', 'Start of the API. p_return_line_id: '||p_return_line_id);
1065: END IF;
1066:
1067: -- Standard start of API savepoint.
1068: SAVEPOINT Receive_Against_PO_Pvt;
1088: IF (l_po_header_id IS NULL) THEN
1089: -- As the PO header id is NULL, check for the requisition header id.
1090: IF (l_po_req_header_id IS NULL) THEN
1091: -- Even the requisition header id is NULL. Raise an exception.
1092: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1093: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
1094: 'Both PO and requisition headers are NULL for the OSP order: '||l_osp_order_number||
1095: '. Raising exception.');
1096: END IF;
1089: -- As the PO header id is NULL, check for the requisition header id.
1090: IF (l_po_req_header_id IS NULL) THEN
1091: -- Even the requisition header id is NULL. Raise an exception.
1092: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1093: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
1094: 'Both PO and requisition headers are NULL for the OSP order: '||l_osp_order_number||
1095: '. Raising exception.');
1096: END IF;
1097:
1104: -- If not approved, raise an exception.
1105: OPEN chk_po_req_approved(l_po_req_header_id);
1106: FETCH chk_po_req_approved INTO l_dummy;
1107: IF (chk_po_req_approved%NOTFOUND) THEN
1108: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1109: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
1110: 'Requisition: '||l_po_header_id||' is not approved. Raising exception.');
1111: END IF;
1112:
1105: OPEN chk_po_req_approved(l_po_req_header_id);
1106: FETCH chk_po_req_approved INTO l_dummy;
1107: IF (chk_po_req_approved%NOTFOUND) THEN
1108: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1109: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
1110: 'Requisition: '||l_po_header_id||' is not approved. Raising exception.');
1111: END IF;
1112:
1113: CLOSE chk_po_req_approved;
1122: -- Get the Purchase order details. If not approved, raise an exception.
1123: OPEN get_po_header_details1(l_po_header_id);
1124: FETCH get_po_header_details1 INTO l_po_vendor_id, l_po_vendor_site_id;
1125: IF (get_po_header_details1%NOTFOUND) THEN
1126: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1127: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
1128: 'Purchase order: '||l_po_header_id||' is not approved. Raising exception.');
1129: END IF;
1130:
1123: OPEN get_po_header_details1(l_po_header_id);
1124: FETCH get_po_header_details1 INTO l_po_vendor_id, l_po_vendor_site_id;
1125: IF (get_po_header_details1%NOTFOUND) THEN
1126: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1127: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
1128: 'Purchase order: '||l_po_header_id||' is not approved. Raising exception.');
1129: END IF;
1130:
1131: CLOSE get_po_header_details1;
1137: CLOSE get_po_header_details1;
1138: END IF; -- if l_po_header_id IS NULL
1139: ELSE
1140: -- This means that the OSP order is not in the PO_CREATED or REQ_CREATED status. Raise an exception.
1141: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1142: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
1143: 'OSP order: '||l_osp_order_number||' is not in status PO_CREATED or REQ_CREATED. Raising exception.');
1144: END IF;
1145:
1138: END IF; -- if l_po_header_id IS NULL
1139: ELSE
1140: -- This means that the OSP order is not in the PO_CREATED or REQ_CREATED status. Raise an exception.
1141: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1142: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
1143: 'OSP order: '||l_osp_order_number||' is not in status PO_CREATED or REQ_CREATED. Raising exception.');
1144: END IF;
1145:
1146: CLOSE get_po_header_id;
1162: IF (l_po_line_id IS NULL) THEN
1163: OPEN get_po_line(l_po_req_line_id);
1164: FETCH get_po_line INTO l_po_line_id;
1165: IF (get_po_line%FOUND) THEN
1166: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1167: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
1168: 'PO line id was NULL. Got it as '||l_po_line_id||' from the Requisition line: '||l_po_req_line_id);
1169: END IF;
1170:
1163: OPEN get_po_line(l_po_req_line_id);
1164: FETCH get_po_line INTO l_po_line_id;
1165: IF (get_po_line%FOUND) THEN
1166: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1167: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
1168: 'PO line id was NULL. Got it as '||l_po_line_id||' from the Requisition line: '||l_po_req_line_id);
1169: END IF;
1170:
1171: -- Check for merged Requisition lines, i.e. whether this PO line has already been checked or not.
1186: CLOSE get_po_header_details2;
1187: END IF;
1188: ELSE
1189: -- Either PO is not created or its not approved. Raise exception.
1190: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1191: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
1192: 'Either PO is not created or its not approved. Raising Exception');
1193: END IF;
1194:
1187: END IF;
1188: ELSE
1189: -- Either PO is not created or its not approved. Raise exception.
1190: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1191: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
1192: 'Either PO is not created or its not approved. Raising Exception');
1193: END IF;
1194:
1195: CLOSE get_po_line;
1203:
1204: -- Do the rest of the processing only for those PO lines for which the total received quantity is less than the line quantity.
1205: -- Do not process merged Requisition lines, i.e. PO lines already processed.
1206: IF NOT l_merged_req_line AND (l_po_line_tot_qty < l_po_line_qty) THEN
1207: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1208: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
1209: 'Processing for PO line id: '||l_po_line_id);
1210: END IF;
1211:
1204: -- Do the rest of the processing only for those PO lines for which the total received quantity is less than the line quantity.
1205: -- Do not process merged Requisition lines, i.e. PO lines already processed.
1206: IF NOT l_merged_req_line AND (l_po_line_tot_qty < l_po_line_qty) THEN
1207: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1208: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
1209: 'Processing for PO line id: '||l_po_line_id);
1210: END IF;
1211:
1212: -- Set the l_po_lines_exist flag.
1218: OPEN chk_pending_transaction(l_po_line_id);
1219: FETCH chk_pending_transaction INTO l_dummy;
1220: IF (chk_pending_transaction%FOUND) THEN
1221: -- Pending receipt transaction exists for this PO line id. Raise an exception.
1222: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1223: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
1224: 'Pending transactions exist for PO line id: '||l_po_line_id);
1225: END IF;
1226:
1219: FETCH chk_pending_transaction INTO l_dummy;
1220: IF (chk_pending_transaction%FOUND) THEN
1221: -- Pending receipt transaction exists for this PO line id. Raise an exception.
1222: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1223: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
1224: 'Pending transactions exist for PO line id: '||l_po_line_id);
1225: END IF;
1226:
1227: CLOSE chk_pending_transaction;
1271: l_po_vendor_site_id,
1272: l_ship_to_org_id
1273: );
1274:
1275: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1276: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
1277: 'Transaction header inserted.');
1278: END IF;
1279: END IF; -- l_hdr_inserted check
1272: l_ship_to_org_id
1273: );
1274:
1275: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1276: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
1277: 'Transaction header inserted.');
1278: END IF;
1279: END IF; -- l_hdr_inserted check
1280:
1332: l_po_line_id,
1333: l_ship_to_loc_id
1334: );
1335:
1336: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1337: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
1338: 'Transaction record inserted for PO line id: '||l_po_line_id);
1339: END IF;
1340: END IF; -- (l_po_line_tot_qty < l_po_line_qty)
1333: l_ship_to_loc_id
1334: );
1335:
1336: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1337: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
1338: 'Transaction record inserted for PO line id: '||l_po_line_id);
1339: END IF;
1340: END IF; -- (l_po_line_tot_qty < l_po_line_qty)
1341: END LOOP; -- PO lines loop
1342: CLOSE get_po_line_quantity1;
1343:
1344: -- Check for the l_po_lines_exist flag. If not set, raise an exception.
1345: IF (NOT l_po_lines_exist) THEN
1346: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1347: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
1348: 'No PO lines could be found to do a receipt against. Raising exception.');
1349: END IF;
1350:
1343:
1344: -- Check for the l_po_lines_exist flag. If not set, raise an exception.
1345: IF (NOT l_po_lines_exist) THEN
1346: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1347: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
1348: 'No PO lines could be found to do a receipt against. Raising exception.');
1349: END IF;
1350:
1351: FND_MESSAGE.set_name('AHL', 'AHL_OSP_ALL_PO_LINES_RCVD'); -- All the purchase order lines for this return line have been received.
1353: RAISE FND_API.G_EXC_ERROR;
1354: END IF;
1355:
1356: -- After the interface tables been populated above, submit request for calling the Concurrent Program 'RVCTP'.
1357: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1358: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
1359: 'Submitting the request for calling the Concurrent Program RVCTP.');
1360: END IF;
1361:
1354: END IF;
1355:
1356: -- After the interface tables been populated above, submit request for calling the Concurrent Program 'RVCTP'.
1357: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1358: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
1359: 'Submitting the request for calling the Concurrent Program RVCTP.');
1360: END IF;
1361:
1362: -- Get the current value of the sequence PO.RCV_INTERFACE_GROUPS_S, required for submitting the request.
1371: argument3 => MO_GLOBAL.get_current_org_id()
1372: );
1373:
1374: IF (l_req_id = 0) THEN
1375: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1376: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
1377: 'Concurrent request failed.');
1378: END IF;
1379: ELSE
1372: );
1373:
1374: IF (l_req_id = 0) THEN
1375: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1376: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
1377: 'Concurrent request failed.');
1378: END IF;
1379: ELSE
1380: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1376: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
1377: 'Concurrent request failed.');
1378: END IF;
1379: ELSE
1380: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1381: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
1382: 'Concurrent request successful. Request id: '||l_req_id);
1383: END IF;
1384: END IF;
1377: 'Concurrent request failed.');
1378: END IF;
1379: ELSE
1380: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1381: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
1382: 'Concurrent request successful. Request id: '||l_req_id);
1383: END IF;
1384: END IF;
1385:
1397: IF FND_API.TO_BOOLEAN(p_commit) THEN
1398: COMMIT WORK;
1399: END IF;
1400:
1401: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
1402: FND_LOG.string(FND_LOG.level_procedure, l_debug_key||'.end', 'End of the API. x_request_id: '||x_request_id);
1403: END IF;
1404: EXCEPTION
1405: WHEN FND_API.G_EXC_ERROR THEN
1398: COMMIT WORK;
1399: END IF;
1400:
1401: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
1402: FND_LOG.string(FND_LOG.level_procedure, l_debug_key||'.end', 'End of the API. x_request_id: '||x_request_id);
1403: END IF;
1404: EXCEPTION
1405: WHEN FND_API.G_EXC_ERROR THEN
1406: ROLLBACK TO Receive_Against_PO_Pvt;
1628: l_receiving_locator_id NUMBER;
1629: --
1630:
1631: BEGIN
1632: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
1633: FND_LOG.string(FND_LOG.level_procedure, l_debug_key ||'.begin', 'Start of the API.');
1634: END IF;
1635:
1636: -- Standard start of API savepoint.
1629: --
1630:
1631: BEGIN
1632: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
1633: FND_LOG.string(FND_LOG.level_procedure, l_debug_key ||'.begin', 'Start of the API.');
1634: END IF;
1635:
1636: -- Standard start of API savepoint.
1637: SAVEPOINT Receive_Against_RMA_Pvt;
1652:
1653: x_return_line_id := null;
1654:
1655: --Log the input parameters
1656: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1657: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'RETURN_LINE_ID:'||p_rma_receipt_rec.RETURN_LINE_ID);
1658: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'RECEIVING_ORG_ID:'||p_rma_receipt_rec.RECEIVING_ORG_ID);
1659: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'RECEIVING_SUBINVENTORY:'||p_rma_receipt_rec.RECEIVING_SUBINVENTORY);
1660: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'RECEIVING_LOCATOR_ID:'||p_rma_receipt_rec.RECEIVING_LOCATOR_ID);
1653: x_return_line_id := null;
1654:
1655: --Log the input parameters
1656: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1657: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'RETURN_LINE_ID:'||p_rma_receipt_rec.RETURN_LINE_ID);
1658: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'RECEIVING_ORG_ID:'||p_rma_receipt_rec.RECEIVING_ORG_ID);
1659: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'RECEIVING_SUBINVENTORY:'||p_rma_receipt_rec.RECEIVING_SUBINVENTORY);
1660: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'RECEIVING_LOCATOR_ID:'||p_rma_receipt_rec.RECEIVING_LOCATOR_ID);
1661: -- SALOGAN added to log Locator name attribute for 9496606
1654:
1655: --Log the input parameters
1656: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1657: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'RETURN_LINE_ID:'||p_rma_receipt_rec.RETURN_LINE_ID);
1658: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'RECEIVING_ORG_ID:'||p_rma_receipt_rec.RECEIVING_ORG_ID);
1659: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'RECEIVING_SUBINVENTORY:'||p_rma_receipt_rec.RECEIVING_SUBINVENTORY);
1660: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'RECEIVING_LOCATOR_ID:'||p_rma_receipt_rec.RECEIVING_LOCATOR_ID);
1661: -- SALOGAN added to log Locator name attribute for 9496606
1662: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'RECEIVING_LOCATOR_NAME:'||p_rma_receipt_rec.RECEIVING_LOCATOR_NAME);
1655: --Log the input parameters
1656: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1657: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'RETURN_LINE_ID:'||p_rma_receipt_rec.RETURN_LINE_ID);
1658: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'RECEIVING_ORG_ID:'||p_rma_receipt_rec.RECEIVING_ORG_ID);
1659: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'RECEIVING_SUBINVENTORY:'||p_rma_receipt_rec.RECEIVING_SUBINVENTORY);
1660: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'RECEIVING_LOCATOR_ID:'||p_rma_receipt_rec.RECEIVING_LOCATOR_ID);
1661: -- SALOGAN added to log Locator name attribute for 9496606
1662: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'RECEIVING_LOCATOR_NAME:'||p_rma_receipt_rec.RECEIVING_LOCATOR_NAME);
1663: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'RECEIPT_QUANTITY:'||p_rma_receipt_rec.RECEIPT_QUANTITY);
1656: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1657: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'RETURN_LINE_ID:'||p_rma_receipt_rec.RETURN_LINE_ID);
1658: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'RECEIVING_ORG_ID:'||p_rma_receipt_rec.RECEIVING_ORG_ID);
1659: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'RECEIVING_SUBINVENTORY:'||p_rma_receipt_rec.RECEIVING_SUBINVENTORY);
1660: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'RECEIVING_LOCATOR_ID:'||p_rma_receipt_rec.RECEIVING_LOCATOR_ID);
1661: -- SALOGAN added to log Locator name attribute for 9496606
1662: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'RECEIVING_LOCATOR_NAME:'||p_rma_receipt_rec.RECEIVING_LOCATOR_NAME);
1663: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'RECEIPT_QUANTITY:'||p_rma_receipt_rec.RECEIPT_QUANTITY);
1664: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'RECEIPT_UOM_CODE:'||p_rma_receipt_rec.RECEIPT_UOM_CODE);
1658: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'RECEIVING_ORG_ID:'||p_rma_receipt_rec.RECEIVING_ORG_ID);
1659: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'RECEIVING_SUBINVENTORY:'||p_rma_receipt_rec.RECEIVING_SUBINVENTORY);
1660: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'RECEIVING_LOCATOR_ID:'||p_rma_receipt_rec.RECEIVING_LOCATOR_ID);
1661: -- SALOGAN added to log Locator name attribute for 9496606
1662: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'RECEIVING_LOCATOR_NAME:'||p_rma_receipt_rec.RECEIVING_LOCATOR_NAME);
1663: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'RECEIPT_QUANTITY:'||p_rma_receipt_rec.RECEIPT_QUANTITY);
1664: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'RECEIPT_UOM_CODE:'||p_rma_receipt_rec.RECEIPT_UOM_CODE);
1665: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'RECEIPT_DATE:'||p_rma_receipt_rec.RECEIPT_DATE);
1666: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'NEW_SERIAL_NUMBER:'||p_rma_receipt_rec.NEW_SERIAL_NUMBER);
1659: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'RECEIVING_SUBINVENTORY:'||p_rma_receipt_rec.RECEIVING_SUBINVENTORY);
1660: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'RECEIVING_LOCATOR_ID:'||p_rma_receipt_rec.RECEIVING_LOCATOR_ID);
1661: -- SALOGAN added to log Locator name attribute for 9496606
1662: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'RECEIVING_LOCATOR_NAME:'||p_rma_receipt_rec.RECEIVING_LOCATOR_NAME);
1663: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'RECEIPT_QUANTITY:'||p_rma_receipt_rec.RECEIPT_QUANTITY);
1664: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'RECEIPT_UOM_CODE:'||p_rma_receipt_rec.RECEIPT_UOM_CODE);
1665: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'RECEIPT_DATE:'||p_rma_receipt_rec.RECEIPT_DATE);
1666: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'NEW_SERIAL_NUMBER:'||p_rma_receipt_rec.NEW_SERIAL_NUMBER);
1667: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'NEW_SERIAL_TAG_CODE:'||p_rma_receipt_rec.NEW_SERIAL_TAG_CODE);
1660: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'RECEIVING_LOCATOR_ID:'||p_rma_receipt_rec.RECEIVING_LOCATOR_ID);
1661: -- SALOGAN added to log Locator name attribute for 9496606
1662: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'RECEIVING_LOCATOR_NAME:'||p_rma_receipt_rec.RECEIVING_LOCATOR_NAME);
1663: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'RECEIPT_QUANTITY:'||p_rma_receipt_rec.RECEIPT_QUANTITY);
1664: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'RECEIPT_UOM_CODE:'||p_rma_receipt_rec.RECEIPT_UOM_CODE);
1665: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'RECEIPT_DATE:'||p_rma_receipt_rec.RECEIPT_DATE);
1666: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'NEW_SERIAL_NUMBER:'||p_rma_receipt_rec.NEW_SERIAL_NUMBER);
1667: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'NEW_SERIAL_TAG_CODE:'||p_rma_receipt_rec.NEW_SERIAL_TAG_CODE);
1668: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'NEW_LOT_NUMBER:'||p_rma_receipt_rec.NEW_LOT_NUMBER);
1661: -- SALOGAN added to log Locator name attribute for 9496606
1662: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'RECEIVING_LOCATOR_NAME:'||p_rma_receipt_rec.RECEIVING_LOCATOR_NAME);
1663: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'RECEIPT_QUANTITY:'||p_rma_receipt_rec.RECEIPT_QUANTITY);
1664: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'RECEIPT_UOM_CODE:'||p_rma_receipt_rec.RECEIPT_UOM_CODE);
1665: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'RECEIPT_DATE:'||p_rma_receipt_rec.RECEIPT_DATE);
1666: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'NEW_SERIAL_NUMBER:'||p_rma_receipt_rec.NEW_SERIAL_NUMBER);
1667: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'NEW_SERIAL_TAG_CODE:'||p_rma_receipt_rec.NEW_SERIAL_TAG_CODE);
1668: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'NEW_LOT_NUMBER:'||p_rma_receipt_rec.NEW_LOT_NUMBER);
1669: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'NEW_ITEM_REV_NUMBER:'||p_rma_receipt_rec.NEW_ITEM_REV_NUMBER);
1662: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'RECEIVING_LOCATOR_NAME:'||p_rma_receipt_rec.RECEIVING_LOCATOR_NAME);
1663: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'RECEIPT_QUANTITY:'||p_rma_receipt_rec.RECEIPT_QUANTITY);
1664: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'RECEIPT_UOM_CODE:'||p_rma_receipt_rec.RECEIPT_UOM_CODE);
1665: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'RECEIPT_DATE:'||p_rma_receipt_rec.RECEIPT_DATE);
1666: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'NEW_SERIAL_NUMBER:'||p_rma_receipt_rec.NEW_SERIAL_NUMBER);
1667: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'NEW_SERIAL_TAG_CODE:'||p_rma_receipt_rec.NEW_SERIAL_TAG_CODE);
1668: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'NEW_LOT_NUMBER:'||p_rma_receipt_rec.NEW_LOT_NUMBER);
1669: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'NEW_ITEM_REV_NUMBER:'||p_rma_receipt_rec.NEW_ITEM_REV_NUMBER);
1670: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'EXCHANGE_ITEM_ID:'||p_rma_receipt_rec.EXCHANGE_ITEM_ID);
1663: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'RECEIPT_QUANTITY:'||p_rma_receipt_rec.RECEIPT_QUANTITY);
1664: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'RECEIPT_UOM_CODE:'||p_rma_receipt_rec.RECEIPT_UOM_CODE);
1665: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'RECEIPT_DATE:'||p_rma_receipt_rec.RECEIPT_DATE);
1666: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'NEW_SERIAL_NUMBER:'||p_rma_receipt_rec.NEW_SERIAL_NUMBER);
1667: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'NEW_SERIAL_TAG_CODE:'||p_rma_receipt_rec.NEW_SERIAL_TAG_CODE);
1668: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'NEW_LOT_NUMBER:'||p_rma_receipt_rec.NEW_LOT_NUMBER);
1669: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'NEW_ITEM_REV_NUMBER:'||p_rma_receipt_rec.NEW_ITEM_REV_NUMBER);
1670: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'EXCHANGE_ITEM_ID:'||p_rma_receipt_rec.EXCHANGE_ITEM_ID);
1671: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'EXCHANGE_SERIAL_NUMBER:'||p_rma_receipt_rec.EXCHANGE_SERIAL_NUMBER);
1664: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'RECEIPT_UOM_CODE:'||p_rma_receipt_rec.RECEIPT_UOM_CODE);
1665: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'RECEIPT_DATE:'||p_rma_receipt_rec.RECEIPT_DATE);
1666: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'NEW_SERIAL_NUMBER:'||p_rma_receipt_rec.NEW_SERIAL_NUMBER);
1667: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'NEW_SERIAL_TAG_CODE:'||p_rma_receipt_rec.NEW_SERIAL_TAG_CODE);
1668: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'NEW_LOT_NUMBER:'||p_rma_receipt_rec.NEW_LOT_NUMBER);
1669: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'NEW_ITEM_REV_NUMBER:'||p_rma_receipt_rec.NEW_ITEM_REV_NUMBER);
1670: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'EXCHANGE_ITEM_ID:'||p_rma_receipt_rec.EXCHANGE_ITEM_ID);
1671: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'EXCHANGE_SERIAL_NUMBER:'||p_rma_receipt_rec.EXCHANGE_SERIAL_NUMBER);
1672: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'EXCHANGE_LOT_NUMBER:'||p_rma_receipt_rec.EXCHANGE_LOT_NUMBER);
1665: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'RECEIPT_DATE:'||p_rma_receipt_rec.RECEIPT_DATE);
1666: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'NEW_SERIAL_NUMBER:'||p_rma_receipt_rec.NEW_SERIAL_NUMBER);
1667: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'NEW_SERIAL_TAG_CODE:'||p_rma_receipt_rec.NEW_SERIAL_TAG_CODE);
1668: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'NEW_LOT_NUMBER:'||p_rma_receipt_rec.NEW_LOT_NUMBER);
1669: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'NEW_ITEM_REV_NUMBER:'||p_rma_receipt_rec.NEW_ITEM_REV_NUMBER);
1670: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'EXCHANGE_ITEM_ID:'||p_rma_receipt_rec.EXCHANGE_ITEM_ID);
1671: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'EXCHANGE_SERIAL_NUMBER:'||p_rma_receipt_rec.EXCHANGE_SERIAL_NUMBER);
1672: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'EXCHANGE_LOT_NUMBER:'||p_rma_receipt_rec.EXCHANGE_LOT_NUMBER);
1673: END IF;
1666: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'NEW_SERIAL_NUMBER:'||p_rma_receipt_rec.NEW_SERIAL_NUMBER);
1667: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'NEW_SERIAL_TAG_CODE:'||p_rma_receipt_rec.NEW_SERIAL_TAG_CODE);
1668: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'NEW_LOT_NUMBER:'||p_rma_receipt_rec.NEW_LOT_NUMBER);
1669: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'NEW_ITEM_REV_NUMBER:'||p_rma_receipt_rec.NEW_ITEM_REV_NUMBER);
1670: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'EXCHANGE_ITEM_ID:'||p_rma_receipt_rec.EXCHANGE_ITEM_ID);
1671: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'EXCHANGE_SERIAL_NUMBER:'||p_rma_receipt_rec.EXCHANGE_SERIAL_NUMBER);
1672: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'EXCHANGE_LOT_NUMBER:'||p_rma_receipt_rec.EXCHANGE_LOT_NUMBER);
1673: END IF;
1674:
1667: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'NEW_SERIAL_TAG_CODE:'||p_rma_receipt_rec.NEW_SERIAL_TAG_CODE);
1668: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'NEW_LOT_NUMBER:'||p_rma_receipt_rec.NEW_LOT_NUMBER);
1669: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'NEW_ITEM_REV_NUMBER:'||p_rma_receipt_rec.NEW_ITEM_REV_NUMBER);
1670: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'EXCHANGE_ITEM_ID:'||p_rma_receipt_rec.EXCHANGE_ITEM_ID);
1671: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'EXCHANGE_SERIAL_NUMBER:'||p_rma_receipt_rec.EXCHANGE_SERIAL_NUMBER);
1672: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'EXCHANGE_LOT_NUMBER:'||p_rma_receipt_rec.EXCHANGE_LOT_NUMBER);
1673: END IF;
1674:
1675: -- Check whether a pending receipt transaction exists for this return line id.
1668: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'NEW_LOT_NUMBER:'||p_rma_receipt_rec.NEW_LOT_NUMBER);
1669: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'NEW_ITEM_REV_NUMBER:'||p_rma_receipt_rec.NEW_ITEM_REV_NUMBER);
1670: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'EXCHANGE_ITEM_ID:'||p_rma_receipt_rec.EXCHANGE_ITEM_ID);
1671: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'EXCHANGE_SERIAL_NUMBER:'||p_rma_receipt_rec.EXCHANGE_SERIAL_NUMBER);
1672: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'EXCHANGE_LOT_NUMBER:'||p_rma_receipt_rec.EXCHANGE_LOT_NUMBER);
1673: END IF;
1674:
1675: -- Check whether a pending receipt transaction exists for this return line id.
1676: OPEN chk_pending_transaction(p_rma_receipt_rec.RETURN_LINE_ID);
1676: OPEN chk_pending_transaction(p_rma_receipt_rec.RETURN_LINE_ID);
1677: FETCH chk_pending_transaction INTO l_dummy;
1678: IF (chk_pending_transaction%FOUND) THEN
1679: -- Pending receipt transaction exists for this PO line id. Raise an exception.
1680: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1681: FND_LOG.string(FND_LOG.level_statement, l_debug_key, 'Pending transactions exist for oe line id: '||p_rma_receipt_rec.RETURN_LINE_ID);
1682: END IF;
1683: CLOSE chk_pending_transaction;
1684: FND_MESSAGE.set_name('AHL', 'AHL_OSP_OE_TRANS_PENDING'); -- The return line has pending transactions.
1677: FETCH chk_pending_transaction INTO l_dummy;
1678: IF (chk_pending_transaction%FOUND) THEN
1679: -- Pending receipt transaction exists for this PO line id. Raise an exception.
1680: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1681: FND_LOG.string(FND_LOG.level_statement, l_debug_key, 'Pending transactions exist for oe line id: '||p_rma_receipt_rec.RETURN_LINE_ID);
1682: END IF;
1683: CLOSE chk_pending_transaction;
1684: FND_MESSAGE.set_name('AHL', 'AHL_OSP_OE_TRANS_PENDING'); -- The return line has pending transactions.
1685: FND_MSG_PUB.ADD;
1695: x_return_status => l_return_status,
1696: x_msg_count => l_msg_count,
1697: x_msg_data => l_msg_data);
1698:
1699: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1700: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'After calling validate_create_locator');
1701: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_return_status: '||l_return_status);
1702: END IF;
1703:
1696: x_msg_count => l_msg_count,
1697: x_msg_data => l_msg_data);
1698:
1699: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1700: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'After calling validate_create_locator');
1701: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_return_status: '||l_return_status);
1702: END IF;
1703:
1704: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1697: x_msg_data => l_msg_data);
1698:
1699: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1700: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'After calling validate_create_locator');
1701: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_return_status: '||l_return_status);
1702: END IF;
1703:
1704: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1705: RAISE FND_API.G_EXC_ERROR;
1725: OPEN get_osp_order_dtls(p_rma_receipt_rec.return_line_id);
1726: FETCH get_osp_order_dtls INTO l_osp_order_id,l_osp_order_type,l_osp_line_id,l_osp_ord_obj_ver;
1727: CLOSE get_osp_order_dtls;
1728:
1729: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1730: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_osp_order_id:'||l_osp_order_id);
1731: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_osp_order_type:'||l_osp_order_type);
1732: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_osp_line_id:'|| l_osp_line_id);
1733: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_osp_ord_obj_ver:'|| l_osp_ord_obj_ver);
1726: FETCH get_osp_order_dtls INTO l_osp_order_id,l_osp_order_type,l_osp_line_id,l_osp_ord_obj_ver;
1727: CLOSE get_osp_order_dtls;
1728:
1729: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1730: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_osp_order_id:'||l_osp_order_id);
1731: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_osp_order_type:'||l_osp_order_type);
1732: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_osp_line_id:'|| l_osp_line_id);
1733: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_osp_ord_obj_ver:'|| l_osp_ord_obj_ver);
1734: END IF;
1727: CLOSE get_osp_order_dtls;
1728:
1729: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1730: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_osp_order_id:'||l_osp_order_id);
1731: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_osp_order_type:'||l_osp_order_type);
1732: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_osp_line_id:'|| l_osp_line_id);
1733: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_osp_ord_obj_ver:'|| l_osp_ord_obj_ver);
1734: END IF;
1735:
1728:
1729: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1730: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_osp_order_id:'||l_osp_order_id);
1731: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_osp_order_type:'||l_osp_order_type);
1732: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_osp_line_id:'|| l_osp_line_id);
1733: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_osp_ord_obj_ver:'|| l_osp_ord_obj_ver);
1734: END IF;
1735:
1736: --Retrieve the Return Line details
1729: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1730: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_osp_order_id:'||l_osp_order_id);
1731: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_osp_order_type:'||l_osp_order_type);
1732: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_osp_line_id:'|| l_osp_line_id);
1733: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_osp_ord_obj_ver:'|| l_osp_ord_obj_ver);
1734: END IF;
1735:
1736: --Retrieve the Return Line details
1737: OPEN oe_order_line_details_csr(p_rma_receipt_rec.return_line_id);
1737: OPEN oe_order_line_details_csr(p_rma_receipt_rec.return_line_id);
1738: FETCH oe_order_line_details_csr INTO l_oe_order_line_rec;
1739: CLOSE oe_order_line_details_csr;
1740:
1741: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1742: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_oe_order_line_rec.inventory_item_id:'||l_oe_order_line_rec.inventory_item_id);
1743: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_oe_order_line_rec.customer_id:'||l_oe_order_line_rec.customer_id);
1744: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_oe_order_line_rec.customer_site_id:'||l_oe_order_line_rec.customer_site_id);
1745: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_oe_order_line_rec.organization_id:'||l_oe_order_line_rec.organization_id);
1738: FETCH oe_order_line_details_csr INTO l_oe_order_line_rec;
1739: CLOSE oe_order_line_details_csr;
1740:
1741: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1742: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_oe_order_line_rec.inventory_item_id:'||l_oe_order_line_rec.inventory_item_id);
1743: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_oe_order_line_rec.customer_id:'||l_oe_order_line_rec.customer_id);
1744: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_oe_order_line_rec.customer_site_id:'||l_oe_order_line_rec.customer_site_id);
1745: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_oe_order_line_rec.organization_id:'||l_oe_order_line_rec.organization_id);
1746: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_oe_order_line_rec.subinventory:'||l_oe_order_line_rec.subinventory);
1739: CLOSE oe_order_line_details_csr;
1740:
1741: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1742: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_oe_order_line_rec.inventory_item_id:'||l_oe_order_line_rec.inventory_item_id);
1743: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_oe_order_line_rec.customer_id:'||l_oe_order_line_rec.customer_id);
1744: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_oe_order_line_rec.customer_site_id:'||l_oe_order_line_rec.customer_site_id);
1745: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_oe_order_line_rec.organization_id:'||l_oe_order_line_rec.organization_id);
1746: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_oe_order_line_rec.subinventory:'||l_oe_order_line_rec.subinventory);
1747: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_oe_order_line_rec.oe_order_header_id:'||l_oe_order_line_rec.oe_order_header_id);
1740:
1741: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1742: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_oe_order_line_rec.inventory_item_id:'||l_oe_order_line_rec.inventory_item_id);
1743: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_oe_order_line_rec.customer_id:'||l_oe_order_line_rec.customer_id);
1744: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_oe_order_line_rec.customer_site_id:'||l_oe_order_line_rec.customer_site_id);
1745: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_oe_order_line_rec.organization_id:'||l_oe_order_line_rec.organization_id);
1746: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_oe_order_line_rec.subinventory:'||l_oe_order_line_rec.subinventory);
1747: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_oe_order_line_rec.oe_order_header_id:'||l_oe_order_line_rec.oe_order_header_id);
1748: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_oe_order_line_rec.oe_order_line_id:'||l_oe_order_line_rec.oe_order_line_id);
1741: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1742: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_oe_order_line_rec.inventory_item_id:'||l_oe_order_line_rec.inventory_item_id);
1743: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_oe_order_line_rec.customer_id:'||l_oe_order_line_rec.customer_id);
1744: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_oe_order_line_rec.customer_site_id:'||l_oe_order_line_rec.customer_site_id);
1745: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_oe_order_line_rec.organization_id:'||l_oe_order_line_rec.organization_id);
1746: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_oe_order_line_rec.subinventory:'||l_oe_order_line_rec.subinventory);
1747: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_oe_order_line_rec.oe_order_header_id:'||l_oe_order_line_rec.oe_order_header_id);
1748: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_oe_order_line_rec.oe_order_line_id:'||l_oe_order_line_rec.oe_order_line_id);
1749: END IF;
1742: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_oe_order_line_rec.inventory_item_id:'||l_oe_order_line_rec.inventory_item_id);
1743: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_oe_order_line_rec.customer_id:'||l_oe_order_line_rec.customer_id);
1744: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_oe_order_line_rec.customer_site_id:'||l_oe_order_line_rec.customer_site_id);
1745: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_oe_order_line_rec.organization_id:'||l_oe_order_line_rec.organization_id);
1746: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_oe_order_line_rec.subinventory:'||l_oe_order_line_rec.subinventory);
1747: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_oe_order_line_rec.oe_order_header_id:'||l_oe_order_line_rec.oe_order_header_id);
1748: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_oe_order_line_rec.oe_order_line_id:'||l_oe_order_line_rec.oe_order_line_id);
1749: END IF;
1750:
1743: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_oe_order_line_rec.customer_id:'||l_oe_order_line_rec.customer_id);
1744: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_oe_order_line_rec.customer_site_id:'||l_oe_order_line_rec.customer_site_id);
1745: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_oe_order_line_rec.organization_id:'||l_oe_order_line_rec.organization_id);
1746: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_oe_order_line_rec.subinventory:'||l_oe_order_line_rec.subinventory);
1747: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_oe_order_line_rec.oe_order_header_id:'||l_oe_order_line_rec.oe_order_header_id);
1748: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_oe_order_line_rec.oe_order_line_id:'||l_oe_order_line_rec.oe_order_line_id);
1749: END IF;
1750:
1751: --Part Number change is being performed
1744: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_oe_order_line_rec.customer_site_id:'||l_oe_order_line_rec.customer_site_id);
1745: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_oe_order_line_rec.organization_id:'||l_oe_order_line_rec.organization_id);
1746: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_oe_order_line_rec.subinventory:'||l_oe_order_line_rec.subinventory);
1747: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_oe_order_line_rec.oe_order_header_id:'||l_oe_order_line_rec.oe_order_header_id);
1748: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_oe_order_line_rec.oe_order_line_id:'||l_oe_order_line_rec.oe_order_line_id);
1749: END IF;
1750:
1751: --Part Number change is being performed
1752: IF (l_part_num_change_flag) THEN
1756: OPEN get_item_number(p_rma_receipt_rec.new_item_id);
1757: FETCH get_item_number INTO l_new_item_number;
1758: CLOSE get_item_number;
1759:
1760: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1761: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_new_item_number:'||l_new_item_number);
1762: END IF;
1763: l_serialnum_change_rec.OSP_LINE_ID := l_osp_line_id;
1764: l_serialnum_change_rec.NEW_ITEM_NUMBER := l_new_item_number;
1757: FETCH get_item_number INTO l_new_item_number;
1758: CLOSE get_item_number;
1759:
1760: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1761: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_new_item_number:'||l_new_item_number);
1762: END IF;
1763: l_serialnum_change_rec.OSP_LINE_ID := l_osp_line_id;
1764: l_serialnum_change_rec.NEW_ITEM_NUMBER := l_new_item_number;
1765: l_serialnum_change_rec.NEW_ITEM_REV_NUMBER := p_rma_receipt_rec.NEW_ITEM_REV_NUMBER;
1766: l_serialnum_change_rec.NEW_LOT_NUMBER := p_rma_receipt_rec.NEW_LOT_NUMBER;
1767: l_serialnum_change_rec.NEW_SERIAL_NUMBER := p_rma_receipt_rec.NEW_SERIAL_NUMBER;
1768: l_serialnum_change_rec.NEW_SERIAL_TAG_CODE := p_rma_receipt_rec.NEW_SERIAL_TAG_CODE;
1769:
1770: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1771: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'Before calling AHL_OSP_SHIPMENT_PUB.Process_Osp_SerialNum_Change');
1772: END IF;
1773:
1774: AHL_OSP_SHIPMENT_PUB.Process_Osp_SerialNum_Change
1767: l_serialnum_change_rec.NEW_SERIAL_NUMBER := p_rma_receipt_rec.NEW_SERIAL_NUMBER;
1768: l_serialnum_change_rec.NEW_SERIAL_TAG_CODE := p_rma_receipt_rec.NEW_SERIAL_TAG_CODE;
1769:
1770: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1771: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'Before calling AHL_OSP_SHIPMENT_PUB.Process_Osp_SerialNum_Change');
1772: END IF;
1773:
1774: AHL_OSP_SHIPMENT_PUB.Process_Osp_SerialNum_Change
1775: (
1781: x_msg_count => l_msg_count,
1782: x_msg_data => l_msg_data
1783: );
1784:
1785: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1786: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'After calling AHL_OSP_SHIPMENT_PUB.Process_Osp_SerialNum_Change');
1787: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_return_status: '||l_return_status);
1788: END IF;
1789:
1782: x_msg_data => l_msg_data
1783: );
1784:
1785: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1786: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'After calling AHL_OSP_SHIPMENT_PUB.Process_Osp_SerialNum_Change');
1787: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_return_status: '||l_return_status);
1788: END IF;
1789:
1790: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1783: );
1784:
1785: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1786: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'After calling AHL_OSP_SHIPMENT_PUB.Process_Osp_SerialNum_Change');
1787: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_return_status: '||l_return_status);
1788: END IF;
1789:
1790: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1791: RAISE FND_API.G_EXC_ERROR;
1796: OPEN get_oe_line_id(l_osp_line_id);
1797: FETCH get_oe_line_id INTO l_new_oe_line_id;
1798: CLOSE get_oe_line_id;
1799:
1800: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1801: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_new_oe_line_id: '||l_new_oe_line_id);
1802: END IF;
1803:
1804: x_return_line_id := l_new_oe_line_id;
1797: FETCH get_oe_line_id INTO l_new_oe_line_id;
1798: CLOSE get_oe_line_id;
1799:
1800: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1801: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_new_oe_line_id: '||l_new_oe_line_id);
1802: END IF;
1803:
1804: x_return_line_id := l_new_oe_line_id;
1805:
1821: l_osp_order_rec.OPERATION_FLAG := 'U';
1822:
1823: --Save the OE Return Line information, before deletion
1824: l_oe_line_rec := OE_LINE_UTIL.QUERY_ROW(p_line_id => p_rma_receipt_rec.RETURN_LINE_ID);
1825: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1826: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Queried the OM Line Record');
1827: END IF;
1828:
1829: /* Convert the Service Order into Exchange Order. All the existing RMA lines will be cancelled if there was no
1822:
1823: --Save the OE Return Line information, before deletion
1824: l_oe_line_rec := OE_LINE_UTIL.QUERY_ROW(p_line_id => p_rma_receipt_rec.RETURN_LINE_ID);
1825: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1826: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Queried the OM Line Record');
1827: END IF;
1828:
1829: /* Convert the Service Order into Exchange Order. All the existing RMA lines will be cancelled if there was no
1830: receipt performed on any of the lines. */
1827: END IF;
1828:
1829: /* Convert the Service Order into Exchange Order. All the existing RMA lines will be cancelled if there was no
1830: receipt performed on any of the lines. */
1831: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1832: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'Before calling AHL_OSP_ORDERS_PVT.process_osp_order for order conversion');
1833: END IF;
1834: AHL_OSP_ORDERS_PVT.process_osp_order(
1835: p_api_version => 1.0,
1828:
1829: /* Convert the Service Order into Exchange Order. All the existing RMA lines will be cancelled if there was no
1830: receipt performed on any of the lines. */
1831: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1832: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'Before calling AHL_OSP_ORDERS_PVT.process_osp_order for order conversion');
1833: END IF;
1834: AHL_OSP_ORDERS_PVT.process_osp_order(
1835: p_api_version => 1.0,
1836: p_init_msg_list => FND_API.G_FALSE,
1842: x_return_status => l_return_status,
1843: x_msg_count => l_msg_count,
1844: x_msg_data => l_msg_data);
1845:
1846: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1847: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'After calling AHL_OSP_ORDERS_PVT.process_osp_order for order conversion');
1848: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_return_status: '||l_return_status);
1849: END IF;
1850:
1843: x_msg_count => l_msg_count,
1844: x_msg_data => l_msg_data);
1845:
1846: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1847: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'After calling AHL_OSP_ORDERS_PVT.process_osp_order for order conversion');
1848: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_return_status: '||l_return_status);
1849: END IF;
1850:
1851: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1844: x_msg_data => l_msg_data);
1845:
1846: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1847: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'After calling AHL_OSP_ORDERS_PVT.process_osp_order for order conversion');
1848: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_return_status: '||l_return_status);
1849: END IF;
1850:
1851: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1852: RAISE FND_API.G_EXC_ERROR;
1863: OPEN inv_item_ctrls_csr(p_rma_receipt_rec.EXCHANGE_ITEM_ID, p_rma_receipt_rec.receiving_org_id);
1864: FETCH inv_item_ctrls_csr INTO l_serial_control_code,l_lot_control_code,l_is_ib_trackable;
1865: CLOSE inv_item_ctrls_csr;
1866:
1867: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1868: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_serial_control_code:'||l_serial_control_code);
1869: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_lot_control_code:'||l_lot_control_code);
1870: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_is_ib_trackable:'|| l_is_ib_trackable);
1871: END IF;
1864: FETCH inv_item_ctrls_csr INTO l_serial_control_code,l_lot_control_code,l_is_ib_trackable;
1865: CLOSE inv_item_ctrls_csr;
1866:
1867: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1868: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_serial_control_code:'||l_serial_control_code);
1869: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_lot_control_code:'||l_lot_control_code);
1870: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_is_ib_trackable:'|| l_is_ib_trackable);
1871: END IF;
1872: IF(l_is_ib_trackable = 'Y') THEN
1865: CLOSE inv_item_ctrls_csr;
1866:
1867: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1868: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_serial_control_code:'||l_serial_control_code);
1869: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_lot_control_code:'||l_lot_control_code);
1870: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_is_ib_trackable:'|| l_is_ib_trackable);
1871: END IF;
1872: IF(l_is_ib_trackable = 'Y') THEN
1873: l_derived_instance_id := null;
1866:
1867: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1868: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_serial_control_code:'||l_serial_control_code);
1869: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_lot_control_code:'||l_lot_control_code);
1870: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_is_ib_trackable:'|| l_is_ib_trackable);
1871: END IF;
1872: IF(l_is_ib_trackable = 'Y') THEN
1873: l_derived_instance_id := null;
1874: OPEN get_instance_id(p_rma_receipt_rec.EXCHANGE_ITEM_ID,p_rma_receipt_rec.exchange_serial_number);
1873: l_derived_instance_id := null;
1874: OPEN get_instance_id(p_rma_receipt_rec.EXCHANGE_ITEM_ID,p_rma_receipt_rec.exchange_serial_number);
1875: FETCH get_instance_id INTO l_derived_instance_id;
1876: CLOSE get_instance_id;
1877: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1878: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_derived_instance_id:'||l_derived_instance_id);
1879: END IF;
1880: END IF;
1881: --change by jrotich 8/22/2012 end
1874: OPEN get_instance_id(p_rma_receipt_rec.EXCHANGE_ITEM_ID,p_rma_receipt_rec.exchange_serial_number);
1875: FETCH get_instance_id INTO l_derived_instance_id;
1876: CLOSE get_instance_id;
1877: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1878: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_derived_instance_id:'||l_derived_instance_id);
1879: END IF;
1880: END IF;
1881: --change by jrotich 8/22/2012 end
1882:
1885: OPEN inv_item_ctrls_csr(p_rma_receipt_rec.EXCHANGE_ITEM_ID, p_rma_receipt_rec.receiving_org_id);
1886: FETCH inv_item_ctrls_csr INTO l_serial_control_code,l_lot_control_code,l_is_ib_trackable;
1887: CLOSE inv_item_ctrls_csr;
1888:
1889: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1890: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_serial_control_code:'||l_serial_control_code);
1891: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_lot_control_code:'||l_lot_control_code);
1892: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_is_ib_trackable:'|| l_is_ib_trackable);
1893: END IF;
1886: FETCH inv_item_ctrls_csr INTO l_serial_control_code,l_lot_control_code,l_is_ib_trackable;
1887: CLOSE inv_item_ctrls_csr;
1888:
1889: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1890: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_serial_control_code:'||l_serial_control_code);
1891: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_lot_control_code:'||l_lot_control_code);
1892: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_is_ib_trackable:'|| l_is_ib_trackable);
1893: END IF;
1894: IF(l_is_ib_trackable = 'Y') THEN
1887: CLOSE inv_item_ctrls_csr;
1888:
1889: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1890: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_serial_control_code:'||l_serial_control_code);
1891: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_lot_control_code:'||l_lot_control_code);
1892: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_is_ib_trackable:'|| l_is_ib_trackable);
1893: END IF;
1894: IF(l_is_ib_trackable = 'Y') THEN
1895: l_derived_instance_id := null;
1888:
1889: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1890: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_serial_control_code:'||l_serial_control_code);
1891: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_lot_control_code:'||l_lot_control_code);
1892: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_is_ib_trackable:'|| l_is_ib_trackable);
1893: END IF;
1894: IF(l_is_ib_trackable = 'Y') THEN
1895: l_derived_instance_id := null;
1896: OPEN get_instance_id(p_rma_receipt_rec.EXCHANGE_ITEM_ID,p_rma_receipt_rec.exchange_serial_number);
1895: l_derived_instance_id := null;
1896: OPEN get_instance_id(p_rma_receipt_rec.EXCHANGE_ITEM_ID,p_rma_receipt_rec.exchange_serial_number);
1897: FETCH get_instance_id INTO l_derived_instance_id;
1898: CLOSE get_instance_id;
1899: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1900: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_derived_instance_id:'||l_derived_instance_id);
1901: END IF;
1902: END IF;
1903:
1896: OPEN get_instance_id(p_rma_receipt_rec.EXCHANGE_ITEM_ID,p_rma_receipt_rec.exchange_serial_number);
1897: FETCH get_instance_id INTO l_derived_instance_id;
1898: CLOSE get_instance_id;
1899: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1900: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_derived_instance_id:'||l_derived_instance_id);
1901: END IF;
1902: END IF;
1903:
1904: --First compare the exchange_item_id with the item on the return line.
1912: IF(l_is_ib_trackable = 'Y') THEN
1913: OPEN get_osp_order_line_dtls(l_osp_line_id);
1914: FETCH get_osp_order_line_dtls INTO l_osp_order_line_rec;
1915: CLOSE get_osp_order_line_dtls;
1916: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1917: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_osp_order_line_rec.exchange_instance_id:'||l_osp_order_line_rec.exchange_instance_id);
1918: END IF;
1919: IF(nvl(l_derived_instance_id,-1) <> nvl(l_osp_order_line_rec.exchange_instance_id,-1)) THEN
1920: AHL_OSP_SHIPMENT_PUB.Delete_IB_Transaction(
1913: OPEN get_osp_order_line_dtls(l_osp_line_id);
1914: FETCH get_osp_order_line_dtls INTO l_osp_order_line_rec;
1915: CLOSE get_osp_order_line_dtls;
1916: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1917: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_osp_order_line_rec.exchange_instance_id:'||l_osp_order_line_rec.exchange_instance_id);
1918: END IF;
1919: IF(nvl(l_derived_instance_id,-1) <> nvl(l_osp_order_line_rec.exchange_instance_id,-1)) THEN
1920: AHL_OSP_SHIPMENT_PUB.Delete_IB_Transaction(
1921: p_init_msg_list => FND_API.G_FALSE, --p_init_msg_list,
1932: ELSE--item on the oe order line is different from that of the exchange instance entered by the user
1933: --Cancel the RMA line
1934: --Save the OE Return Line information, before deletion
1935: l_oe_line_rec := OE_LINE_UTIL.QUERY_ROW(p_line_id => p_rma_receipt_rec.RETURN_LINE_ID);
1936: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1937: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Queried the OM Line Record');
1938: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Before calling the Delete_Cancel_Order');
1939: END IF;
1940:
1933: --Cancel the RMA line
1934: --Save the OE Return Line information, before deletion
1935: l_oe_line_rec := OE_LINE_UTIL.QUERY_ROW(p_line_id => p_rma_receipt_rec.RETURN_LINE_ID);
1936: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1937: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Queried the OM Line Record');
1938: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Before calling the Delete_Cancel_Order');
1939: END IF;
1940:
1941: l_del_oe_lines_tbl(1) := p_rma_receipt_rec.return_line_id;
1934: --Save the OE Return Line information, before deletion
1935: l_oe_line_rec := OE_LINE_UTIL.QUERY_ROW(p_line_id => p_rma_receipt_rec.RETURN_LINE_ID);
1936: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1937: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Queried the OM Line Record');
1938: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Before calling the Delete_Cancel_Order');
1939: END IF;
1940:
1941: l_del_oe_lines_tbl(1) := p_rma_receipt_rec.return_line_id;
1942: AHL_OSP_SHIPMENT_PUB.Delete_Cancel_Order (
1949: x_return_status => l_return_status ,
1950: x_msg_count => l_msg_count ,
1951: x_msg_data => l_msg_data
1952: );
1953: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1954: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Returned from Delete_Cancel_Order, l_return_status = ' || l_return_status);
1955: END IF;
1956: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1957: RAISE FND_API.G_EXC_ERROR;
1950: x_msg_count => l_msg_count ,
1951: x_msg_data => l_msg_data
1952: );
1953: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1954: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Returned from Delete_Cancel_Order, l_return_status = ' || l_return_status);
1955: END IF;
1956: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1957: RAISE FND_API.G_EXC_ERROR;
1958: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1962: END IF;--IF(l_oe_order_line_rec.inventory_item_id = p_rma_receipt_rec.EXCHANGE_ITEM_ID) THEN
1963: END IF;--IF(l_osp_order_type = AHL_OSP_ORDERS_PVT.G_OSP_ORDER_TYPE_SERVICE) THEN
1964:
1965: --The following holds good for both service orders and exchange orders
1966: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1967: IF(l_rma_line_canceled) THEN
1968: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_rma_line_canceled: true');
1969: ELSE
1970: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_rma_line_canceled: false');
1964:
1965: --The following holds good for both service orders and exchange orders
1966: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1967: IF(l_rma_line_canceled) THEN
1968: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_rma_line_canceled: true');
1969: ELSE
1970: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_rma_line_canceled: false');
1971: END IF;
1972: IF(l_ib_trans_deleted) THEN
1966: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1967: IF(l_rma_line_canceled) THEN
1968: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_rma_line_canceled: true');
1969: ELSE
1970: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_rma_line_canceled: false');
1971: END IF;
1972: IF(l_ib_trans_deleted) THEN
1973: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_ib_trans_deleted: true');
1974: ELSE
1969: ELSE
1970: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_rma_line_canceled: false');
1971: END IF;
1972: IF(l_ib_trans_deleted) THEN
1973: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_ib_trans_deleted: true');
1974: ELSE
1975: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_ib_trans_deleted: false');
1976: END IF;
1977: END IF;
1971: END IF;
1972: IF(l_ib_trans_deleted) THEN
1973: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_ib_trans_deleted: true');
1974: ELSE
1975: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_ib_trans_deleted: false');
1976: END IF;
1977: END IF;
1978:
1979: IF(l_rma_line_canceled) THEN
1996: l_oe_lot_serial_tbl(1).line_index := 1;
1997: l_oe_lot_serial_tbl(1).operation := OE_GLOBALS.G_OPR_CREATE;
1998: END IF;
1999: /*Create the new RMA line*/
2000: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2001: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to call OE_ORDER_GRP.PROCESS_ORDER');
2002: END IF;
2003:
2004: OE_ORDER_GRP.PROCESS_ORDER(
1997: l_oe_lot_serial_tbl(1).operation := OE_GLOBALS.G_OPR_CREATE;
1998: END IF;
1999: /*Create the new RMA line*/
2000: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2001: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to call OE_ORDER_GRP.PROCESS_ORDER');
2002: END IF;
2003:
2004: OE_ORDER_GRP.PROCESS_ORDER(
2005: p_api_version_number => 1.0,
2036:
2037: --populate the return_line_id with the one that was created in the OM API call.
2038: x_return_line_id := x_line_tbl(1).line_id;
2039:
2040: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2041: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Completed OE_ORDER_GRP.PROCESS_ORDER, x_return_status = ' || x_return_status);
2042: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'x_return_line_id = ' || x_return_line_id);
2043: END IF;
2044:
2037: --populate the return_line_id with the one that was created in the OM API call.
2038: x_return_line_id := x_line_tbl(1).line_id;
2039:
2040: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2041: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Completed OE_ORDER_GRP.PROCESS_ORDER, x_return_status = ' || x_return_status);
2042: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'x_return_line_id = ' || x_return_line_id);
2043: END IF;
2044:
2045: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2038: x_return_line_id := x_line_tbl(1).line_id;
2039:
2040: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2041: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Completed OE_ORDER_GRP.PROCESS_ORDER, x_return_status = ' || x_return_status);
2042: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'x_return_line_id = ' || x_return_line_id);
2043: END IF;
2044:
2045: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2046: FOR i IN 1..x_msg_count LOOP
2050: p_msg_index_out => l_msg_index_out);
2051: fnd_msg_pub.add_exc_msg(p_pkg_name => 'OE_ORDER_PUB',
2052: p_procedure_name => 'processOrder',
2053: p_error_text => substr(l_msg_data,1,240));
2054: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2055: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'OE:Err Msg '||i||'.' || l_msg_data);
2056: END IF;
2057:
2058: END LOOP;
2051: fnd_msg_pub.add_exc_msg(p_pkg_name => 'OE_ORDER_PUB',
2052: p_procedure_name => 'processOrder',
2053: p_error_text => substr(l_msg_data,1,240));
2054: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2055: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'OE:Err Msg '||i||'.' || l_msg_data);
2056: END IF;
2057:
2058: END LOOP;
2059: END IF;
2068: OPEN get_same_phyitem_order_lines(l_osp_line_id);
2069: LOOP
2070: FETCH get_same_phyitem_order_lines INTO l_same_ser_ospline_id;
2071: EXIT WHEN get_same_phyitem_order_lines%NOTFOUND;
2072: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2073: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_same_ser_ospline_id: ' || l_same_ser_ospline_id);
2074: END IF;
2075: Update_OSP_Order_Lines(
2076: p_osp_order_id => l_osp_order_id,
2069: LOOP
2070: FETCH get_same_phyitem_order_lines INTO l_same_ser_ospline_id;
2071: EXIT WHEN get_same_phyitem_order_lines%NOTFOUND;
2072: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2073: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_same_ser_ospline_id: ' || l_same_ser_ospline_id);
2074: END IF;
2075: Update_OSP_Order_Lines(
2076: p_osp_order_id => l_osp_order_id,
2077: p_osp_line_id => l_same_ser_ospline_id,
2086: OPEN get_same_phyitem_order_lines(l_osp_line_id);
2087: LOOP
2088: FETCH get_same_phyitem_order_lines INTO l_same_ser_ospline_id;
2089: EXIT WHEN get_same_phyitem_order_lines%NOTFOUND;
2090: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2091: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_same_ser_ospline_id: ' || l_same_ser_ospline_id);
2092: END IF;
2093: Update_OSP_Line_Exch_Instance(
2094: p_osp_order_id => l_osp_order_id,
2087: LOOP
2088: FETCH get_same_phyitem_order_lines INTO l_same_ser_ospline_id;
2089: EXIT WHEN get_same_phyitem_order_lines%NOTFOUND;
2090: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2091: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_same_ser_ospline_id: ' || l_same_ser_ospline_id);
2092: END IF;
2093: Update_OSP_Line_Exch_Instance(
2094: p_osp_order_id => l_osp_order_id,
2095: p_osp_line_id => l_same_ser_ospline_id,
2096: p_exchange_instance_id => l_derived_instance_id);
2097: END LOOP;
2098: CLOSE get_same_phyitem_order_lines;
2099:
2100: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2101: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Before calling Create_IB_Transaction ' );
2102: END IF;
2103:
2104: /* Create the new IB transaction */
2097: END LOOP;
2098: CLOSE get_same_phyitem_order_lines;
2099:
2100: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2101: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Before calling Create_IB_Transaction ' );
2102: END IF;
2103:
2104: /* Create the new IB transaction */
2105: AHL_OSP_SHIPMENT_PUB.Create_IB_Transaction(
2113: p_oe_line_type => 'RETURN',
2114: p_oe_line_id => nvl(x_return_line_id,p_rma_receipt_rec.return_line_id),
2115: p_csi_instance_id => l_derived_instance_id);
2116:
2117: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2118: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Return status from Create_IB_Transaction: ' || l_return_status);
2119: END IF;
2120:
2121: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
2114: p_oe_line_id => nvl(x_return_line_id,p_rma_receipt_rec.return_line_id),
2115: p_csi_instance_id => l_derived_instance_id);
2116:
2117: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2118: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Return status from Create_IB_Transaction: ' || l_return_status);
2119: END IF;
2120:
2121: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
2122: RAISE FND_API.G_EXC_ERROR;
2128:
2129: END IF;--IF (l_part_num_change_flag) THEN
2130:
2131: l_return_line_id := nvl(x_return_line_id,p_rma_receipt_rec.return_line_id);
2132: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2133: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_return_line_id:'||l_return_line_id);
2134: END IF;
2135:
2136: IF(x_return_line_id is not null) THEN
2129: END IF;--IF (l_part_num_change_flag) THEN
2130:
2131: l_return_line_id := nvl(x_return_line_id,p_rma_receipt_rec.return_line_id);
2132: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2133: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_return_line_id:'||l_return_line_id);
2134: END IF;
2135:
2136: IF(x_return_line_id is not null) THEN
2137: --New return line has been created. Retrieve the Return Line details
2138: OPEN oe_order_line_details_csr(x_return_line_id);
2139: FETCH oe_order_line_details_csr INTO l_oe_order_line_rec;
2140: CLOSE oe_order_line_details_csr;
2141:
2142: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2143: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_oe_order_line_rec.inventory_item_id:'||l_oe_order_line_rec.inventory_item_id);
2144: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_oe_order_line_rec.customer_id:'||l_oe_order_line_rec.customer_id);
2145: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_oe_order_line_rec.customer_site_id:'||l_oe_order_line_rec.customer_site_id);
2146: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_oe_order_line_rec.organization_id:'||l_oe_order_line_rec.organization_id);
2139: FETCH oe_order_line_details_csr INTO l_oe_order_line_rec;
2140: CLOSE oe_order_line_details_csr;
2141:
2142: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2143: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_oe_order_line_rec.inventory_item_id:'||l_oe_order_line_rec.inventory_item_id);
2144: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_oe_order_line_rec.customer_id:'||l_oe_order_line_rec.customer_id);
2145: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_oe_order_line_rec.customer_site_id:'||l_oe_order_line_rec.customer_site_id);
2146: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_oe_order_line_rec.organization_id:'||l_oe_order_line_rec.organization_id);
2147: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_oe_order_line_rec.subinventory:'||l_oe_order_line_rec.subinventory);
2140: CLOSE oe_order_line_details_csr;
2141:
2142: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2143: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_oe_order_line_rec.inventory_item_id:'||l_oe_order_line_rec.inventory_item_id);
2144: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_oe_order_line_rec.customer_id:'||l_oe_order_line_rec.customer_id);
2145: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_oe_order_line_rec.customer_site_id:'||l_oe_order_line_rec.customer_site_id);
2146: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_oe_order_line_rec.organization_id:'||l_oe_order_line_rec.organization_id);
2147: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_oe_order_line_rec.subinventory:'||l_oe_order_line_rec.subinventory);
2148: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_oe_order_line_rec.oe_order_header_id:'||l_oe_order_line_rec.oe_order_header_id);
2141:
2142: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2143: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_oe_order_line_rec.inventory_item_id:'||l_oe_order_line_rec.inventory_item_id);
2144: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_oe_order_line_rec.customer_id:'||l_oe_order_line_rec.customer_id);
2145: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_oe_order_line_rec.customer_site_id:'||l_oe_order_line_rec.customer_site_id);
2146: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_oe_order_line_rec.organization_id:'||l_oe_order_line_rec.organization_id);
2147: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_oe_order_line_rec.subinventory:'||l_oe_order_line_rec.subinventory);
2148: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_oe_order_line_rec.oe_order_header_id:'||l_oe_order_line_rec.oe_order_header_id);
2149: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_oe_order_line_rec.oe_order_line_id:'||l_oe_order_line_rec.oe_order_line_id);
2142: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2143: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_oe_order_line_rec.inventory_item_id:'||l_oe_order_line_rec.inventory_item_id);
2144: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_oe_order_line_rec.customer_id:'||l_oe_order_line_rec.customer_id);
2145: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_oe_order_line_rec.customer_site_id:'||l_oe_order_line_rec.customer_site_id);
2146: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_oe_order_line_rec.organization_id:'||l_oe_order_line_rec.organization_id);
2147: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_oe_order_line_rec.subinventory:'||l_oe_order_line_rec.subinventory);
2148: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_oe_order_line_rec.oe_order_header_id:'||l_oe_order_line_rec.oe_order_header_id);
2149: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_oe_order_line_rec.oe_order_line_id:'||l_oe_order_line_rec.oe_order_line_id);
2150: END IF;
2143: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_oe_order_line_rec.inventory_item_id:'||l_oe_order_line_rec.inventory_item_id);
2144: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_oe_order_line_rec.customer_id:'||l_oe_order_line_rec.customer_id);
2145: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_oe_order_line_rec.customer_site_id:'||l_oe_order_line_rec.customer_site_id);
2146: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_oe_order_line_rec.organization_id:'||l_oe_order_line_rec.organization_id);
2147: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_oe_order_line_rec.subinventory:'||l_oe_order_line_rec.subinventory);
2148: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_oe_order_line_rec.oe_order_header_id:'||l_oe_order_line_rec.oe_order_header_id);
2149: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_oe_order_line_rec.oe_order_line_id:'||l_oe_order_line_rec.oe_order_line_id);
2150: END IF;
2151:
2144: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_oe_order_line_rec.customer_id:'||l_oe_order_line_rec.customer_id);
2145: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_oe_order_line_rec.customer_site_id:'||l_oe_order_line_rec.customer_site_id);
2146: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_oe_order_line_rec.organization_id:'||l_oe_order_line_rec.organization_id);
2147: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_oe_order_line_rec.subinventory:'||l_oe_order_line_rec.subinventory);
2148: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_oe_order_line_rec.oe_order_header_id:'||l_oe_order_line_rec.oe_order_header_id);
2149: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_oe_order_line_rec.oe_order_line_id:'||l_oe_order_line_rec.oe_order_line_id);
2150: END IF;
2151:
2152: END IF;
2145: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_oe_order_line_rec.customer_site_id:'||l_oe_order_line_rec.customer_site_id);
2146: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_oe_order_line_rec.organization_id:'||l_oe_order_line_rec.organization_id);
2147: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_oe_order_line_rec.subinventory:'||l_oe_order_line_rec.subinventory);
2148: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_oe_order_line_rec.oe_order_header_id:'||l_oe_order_line_rec.oe_order_header_id);
2149: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_oe_order_line_rec.oe_order_line_id:'||l_oe_order_line_rec.oe_order_line_id);
2150: END IF;
2151:
2152: END IF;
2153:
2155: OPEN get_err_tranansaction_dtls(p_rma_receipt_rec.RETURN_LINE_ID);
2156: FETCH get_err_tranansaction_dtls INTO l_err_intf_trans_id,l_err_intf_hdr_id;
2157: CLOSE get_err_tranansaction_dtls;
2158:
2159: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2160: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_err_intf_trans_id:'||l_err_intf_trans_id);
2161: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_err_intf_hdr_id:'||l_err_intf_hdr_id);
2162: END IF;
2163:
2156: FETCH get_err_tranansaction_dtls INTO l_err_intf_trans_id,l_err_intf_hdr_id;
2157: CLOSE get_err_tranansaction_dtls;
2158:
2159: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2160: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_err_intf_trans_id:'||l_err_intf_trans_id);
2161: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_err_intf_hdr_id:'||l_err_intf_hdr_id);
2162: END IF;
2163:
2164: IF(l_err_intf_trans_id is not NULL) THEN
2157: CLOSE get_err_tranansaction_dtls;
2158:
2159: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2160: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_err_intf_trans_id:'||l_err_intf_trans_id);
2161: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_err_intf_hdr_id:'||l_err_intf_hdr_id);
2162: END IF;
2163:
2164: IF(l_err_intf_trans_id is not NULL) THEN
2165: --Delete the pending transactions.
2162: END IF;
2163:
2164: IF(l_err_intf_trans_id is not NULL) THEN
2165: --Delete the pending transactions.
2166: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2167: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'Deleting the pending transactions');
2168: END IF;
2169:
2170: DELETE FROM PO_INTERFACE_ERRORS
2163:
2164: IF(l_err_intf_trans_id is not NULL) THEN
2165: --Delete the pending transactions.
2166: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2167: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'Deleting the pending transactions');
2168: END IF;
2169:
2170: DELETE FROM PO_INTERFACE_ERRORS
2171: WHERE INTERFACE_LINE_ID = l_err_intf_trans_id
2182:
2183: DELETE FROM RCV_HEADERS_INTERFACE
2184: WHERE HEADER_INTERFACE_ID = l_err_intf_hdr_id;
2185:
2186: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2187: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'Deleted the pending transactions');
2188: END IF;
2189: END IF;
2190:
2183: DELETE FROM RCV_HEADERS_INTERFACE
2184: WHERE HEADER_INTERFACE_ID = l_err_intf_hdr_id;
2185:
2186: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2187: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'Deleted the pending transactions');
2188: END IF;
2189: END IF;
2190:
2191: --Initialize the sequences that are to be used.
2236: 'DELIVER', --AUTO_TRANSACT_CODE
2237: l_employee_id --EMPLOYEE_ID
2238: );
2239:
2240: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2241: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_intf_hdr_id:'||l_intf_hdr_id);
2242: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_group_id:'||l_group_id);
2243: END IF;
2244:
2237: l_employee_id --EMPLOYEE_ID
2238: );
2239:
2240: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2241: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_intf_hdr_id:'||l_intf_hdr_id);
2242: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_group_id:'||l_group_id);
2243: END IF;
2244:
2245: INSERT INTO RCV_TRANSACTIONS_INTERFACE
2238: );
2239:
2240: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2241: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_intf_hdr_id:'||l_intf_hdr_id);
2242: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_group_id:'||l_group_id);
2243: END IF;
2244:
2245: INSERT INTO RCV_TRANSACTIONS_INTERFACE
2246: (
2301: 'AHL', --INTERFACE_SOURCE_CODE
2302: p_rma_receipt_rec.receipt_uom_code --UOM_CODE
2303: );
2304:
2305: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2306: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_intf_transaction_id:'||l_intf_transaction_id);
2307: END IF;
2308:
2309: IF(l_osp_line_id is NULL) THEN
2302: p_rma_receipt_rec.receipt_uom_code --UOM_CODE
2303: );
2304:
2305: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2306: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_intf_transaction_id:'||l_intf_transaction_id);
2307: END IF;
2308:
2309: IF(l_osp_line_id is NULL) THEN
2310: --The return is being performed for a spare part. Retrieve the lot and serial from the oe_lot_serial record
2310: --The return is being performed for a spare part. Retrieve the lot and serial from the oe_lot_serial record
2311: OPEN ahl_oe_lot_serial_id_csr(p_rma_receipt_rec.return_line_id);
2312: FETCH ahl_oe_lot_serial_id_csr INTO l_oe_lot_serial_rec;
2313: CLOSE ahl_oe_lot_serial_id_csr;
2314: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2315: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_oe_lot_serial_rec.lot_number:'||l_oe_lot_serial_rec.lot_number);
2316: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_oe_lot_serial_rec.serial_number:'||l_oe_lot_serial_rec.serial_number);
2317: END IF;
2318: ELSE
2311: OPEN ahl_oe_lot_serial_id_csr(p_rma_receipt_rec.return_line_id);
2312: FETCH ahl_oe_lot_serial_id_csr INTO l_oe_lot_serial_rec;
2313: CLOSE ahl_oe_lot_serial_id_csr;
2314: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2315: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_oe_lot_serial_rec.lot_number:'||l_oe_lot_serial_rec.lot_number);
2316: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_oe_lot_serial_rec.serial_number:'||l_oe_lot_serial_rec.serial_number);
2317: END IF;
2318: ELSE
2319: OPEN get_osp_order_line_dtls(l_osp_line_id);
2312: FETCH ahl_oe_lot_serial_id_csr INTO l_oe_lot_serial_rec;
2313: CLOSE ahl_oe_lot_serial_id_csr;
2314: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2315: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_oe_lot_serial_rec.lot_number:'||l_oe_lot_serial_rec.lot_number);
2316: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_oe_lot_serial_rec.serial_number:'||l_oe_lot_serial_rec.serial_number);
2317: END IF;
2318: ELSE
2319: OPEN get_osp_order_line_dtls(l_osp_line_id);
2320: FETCH get_osp_order_line_dtls INTO l_osp_order_line_rec;
2318: ELSE
2319: OPEN get_osp_order_line_dtls(l_osp_line_id);
2320: FETCH get_osp_order_line_dtls INTO l_osp_order_line_rec;
2321: CLOSE get_osp_order_line_dtls;
2322: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2323: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_osp_order_line_rec.inventory_item_id:'
2324: ||l_osp_order_line_rec.inventory_item_id);
2325: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_osp_order_line_rec.lot_number:'||l_osp_order_line_rec.lot_number);
2326: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_osp_order_line_rec.serial_number:'||l_osp_order_line_rec.serial_number);
2319: OPEN get_osp_order_line_dtls(l_osp_line_id);
2320: FETCH get_osp_order_line_dtls INTO l_osp_order_line_rec;
2321: CLOSE get_osp_order_line_dtls;
2322: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2323: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_osp_order_line_rec.inventory_item_id:'
2324: ||l_osp_order_line_rec.inventory_item_id);
2325: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_osp_order_line_rec.lot_number:'||l_osp_order_line_rec.lot_number);
2326: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_osp_order_line_rec.serial_number:'||l_osp_order_line_rec.serial_number);
2327: END IF;
2321: CLOSE get_osp_order_line_dtls;
2322: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2323: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_osp_order_line_rec.inventory_item_id:'
2324: ||l_osp_order_line_rec.inventory_item_id);
2325: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_osp_order_line_rec.lot_number:'||l_osp_order_line_rec.lot_number);
2326: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_osp_order_line_rec.serial_number:'||l_osp_order_line_rec.serial_number);
2327: END IF;
2328: END IF;
2329:
2322: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2323: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_osp_order_line_rec.inventory_item_id:'
2324: ||l_osp_order_line_rec.inventory_item_id);
2325: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_osp_order_line_rec.lot_number:'||l_osp_order_line_rec.lot_number);
2326: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_osp_order_line_rec.serial_number:'||l_osp_order_line_rec.serial_number);
2327: END IF;
2328: END IF;
2329:
2330: OPEN inv_item_ctrls_csr(l_oe_order_line_rec.inventory_item_id, p_rma_receipt_rec.receiving_org_id);
2330: OPEN inv_item_ctrls_csr(l_oe_order_line_rec.inventory_item_id, p_rma_receipt_rec.receiving_org_id);
2331: FETCH inv_item_ctrls_csr INTO l_serial_control_code,l_lot_control_code,l_is_ib_trackable;
2332: CLOSE inv_item_ctrls_csr;
2333:
2334: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2335: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_serial_control_code:'||l_serial_control_code);
2336: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_lot_control_code:'||l_lot_control_code);
2337: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_is_ib_trackable:'|| l_is_ib_trackable);
2338: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_osp_order_type:'|| l_osp_order_type);
2331: FETCH inv_item_ctrls_csr INTO l_serial_control_code,l_lot_control_code,l_is_ib_trackable;
2332: CLOSE inv_item_ctrls_csr;
2333:
2334: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2335: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_serial_control_code:'||l_serial_control_code);
2336: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_lot_control_code:'||l_lot_control_code);
2337: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_is_ib_trackable:'|| l_is_ib_trackable);
2338: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_osp_order_type:'|| l_osp_order_type);
2339: END IF;
2332: CLOSE inv_item_ctrls_csr;
2333:
2334: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2335: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_serial_control_code:'||l_serial_control_code);
2336: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_lot_control_code:'||l_lot_control_code);
2337: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_is_ib_trackable:'|| l_is_ib_trackable);
2338: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_osp_order_type:'|| l_osp_order_type);
2339: END IF;
2340:
2333:
2334: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2335: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_serial_control_code:'||l_serial_control_code);
2336: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_lot_control_code:'||l_lot_control_code);
2337: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_is_ib_trackable:'|| l_is_ib_trackable);
2338: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_osp_order_type:'|| l_osp_order_type);
2339: END IF;
2340:
2341: IF(l_is_ib_trackable = 'Y') THEN
2334: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2335: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_serial_control_code:'||l_serial_control_code);
2336: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_lot_control_code:'||l_lot_control_code);
2337: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_is_ib_trackable:'|| l_is_ib_trackable);
2338: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_osp_order_type:'|| l_osp_order_type);
2339: END IF;
2340:
2341: IF(l_is_ib_trackable = 'Y') THEN
2342: OPEN get_IB_subtrns_inst_dtls_csr(l_return_line_id);
2391: END IF;
2392: END IF;--IF(l_osp_order_type = 'SERVICE')
2393: END IF;--IF (l_lot_control_code = 1)
2394:
2395: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2396: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_trans_serial_number:'||l_trans_serial_number);
2397: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_trans_lot_number:'||l_trans_lot_number);
2398: END IF;
2399:
2392: END IF;--IF(l_osp_order_type = 'SERVICE')
2393: END IF;--IF (l_lot_control_code = 1)
2394:
2395: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2396: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_trans_serial_number:'||l_trans_serial_number);
2397: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_trans_lot_number:'||l_trans_lot_number);
2398: END IF;
2399:
2400: IF(l_trans_lot_number is not null) THEN
2393: END IF;--IF (l_lot_control_code = 1)
2394:
2395: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2396: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_trans_serial_number:'||l_trans_serial_number);
2397: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_trans_lot_number:'||l_trans_lot_number);
2398: END IF;
2399:
2400: IF(l_trans_lot_number is not null) THEN
2401: INSERT INTO MTL_TRANSACTION_LOTS_INTERFACE
2458: );
2459: END IF;
2460:
2461: l_curr_org_id := MO_GLOBAL.get_current_org_id();
2462: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2463: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_curr_org_id:'||l_curr_org_id);
2464: END IF;
2465: FND_REQUEST.SET_ORG_ID(l_curr_org_id);
2466: --Invoke the 'Receiving Transaction Processor' Concurrent Program
2459: END IF;
2460:
2461: l_curr_org_id := MO_GLOBAL.get_current_org_id();
2462: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2463: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_curr_org_id:'||l_curr_org_id);
2464: END IF;
2465: FND_REQUEST.SET_ORG_ID(l_curr_org_id);
2466: --Invoke the 'Receiving Transaction Processor' Concurrent Program
2467: l_request_id := FND_REQUEST.SUBMIT_REQUEST(
2473: argument3 => l_curr_org_id -- Operating Unit (Vision Project Manufacturing USD)
2474: );
2475:
2476: IF (l_request_id = 0) THEN
2477: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2478: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
2479: 'Concurrent request failed.');
2480: END IF;
2481: ELSE
2474: );
2475:
2476: IF (l_request_id = 0) THEN
2477: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2478: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
2479: 'Concurrent request failed.');
2480: END IF;
2481: ELSE
2482: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2478: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
2479: 'Concurrent request failed.');
2480: END IF;
2481: ELSE
2482: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2483: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
2484: 'Concurrent request successful. Request id: '||l_request_id);
2485: END IF;
2486: END IF;
2479: 'Concurrent request failed.');
2480: END IF;
2481: ELSE
2482: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2483: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
2484: 'Concurrent request successful. Request id: '||l_request_id);
2485: END IF;
2486: END IF;
2487:
2499: IF FND_API.TO_BOOLEAN(p_commit) THEN
2500: COMMIT WORK;
2501: END IF;
2502:
2503: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
2504: FND_LOG.string(FND_LOG.level_procedure, l_debug_key || '.end', 'End of the API.'||
2505: ' x_request_id: '||x_request_id||
2506: ', x_return_line_id: '||x_return_line_id);
2507: END IF;
2500: COMMIT WORK;
2501: END IF;
2502:
2503: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
2504: FND_LOG.string(FND_LOG.level_procedure, l_debug_key || '.end', 'End of the API.'||
2505: ' x_request_id: '||x_request_id||
2506: ', x_return_line_id: '||x_return_line_id);
2507: END IF;
2508: EXCEPTION
2606: l_return_line_qty_rec get_oe_quantities%ROWTYPE;
2607: --
2608:
2609: BEGIN
2610: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
2611: FND_LOG.string(FND_LOG.level_procedure, l_debug_key||'.begin', 'Start of the API.');
2612: END IF;
2613:
2614: -- Check for necessary/mandatory fields.
2607: --
2608:
2609: BEGIN
2610: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
2611: FND_LOG.string(FND_LOG.level_procedure, l_debug_key||'.begin', 'Start of the API.');
2612: END IF;
2613:
2614: -- Check for necessary/mandatory fields.
2615: IF (p_rma_receipt_rec.return_line_id IS NULL OR p_rma_receipt_rec.receiving_org_id IS NULL OR
2615: IF (p_rma_receipt_rec.return_line_id IS NULL OR p_rma_receipt_rec.receiving_org_id IS NULL OR
2616: p_rma_receipt_rec.receiving_subinventory IS NULL OR p_rma_receipt_rec.receipt_quantity IS NULL OR
2617: p_rma_receipt_rec.receipt_uom_code IS NULL OR p_rma_receipt_rec.receipt_date IS NULL) THEN
2618: -- Add an error message to the FND stack.
2619: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2620: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
2621: 'Mandatory fields have not been entered.');
2622: END IF;
2623:
2616: p_rma_receipt_rec.receiving_subinventory IS NULL OR p_rma_receipt_rec.receipt_quantity IS NULL OR
2617: p_rma_receipt_rec.receipt_uom_code IS NULL OR p_rma_receipt_rec.receipt_date IS NULL) THEN
2618: -- Add an error message to the FND stack.
2619: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2620: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
2621: 'Mandatory fields have not been entered.');
2622: END IF;
2623:
2624: FND_MESSAGE.set_name('AHL', 'AHL_COM_REQD_PARAM_MISSING'); -- Required parameter is missing.
2643:
2644: -- Check for the flags l_part_num_change_flag and l_exchange_flag.
2645: IF (l_part_num_change_flag AND l_exchange_flag) THEN
2646: -- Add an error message to the FND stack as part number change and exchange cannot be done together.
2647: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2648: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
2649: 'Part number change and exchange cannot be done together.');
2650: END IF;
2651:
2644: -- Check for the flags l_part_num_change_flag and l_exchange_flag.
2645: IF (l_part_num_change_flag AND l_exchange_flag) THEN
2646: -- Add an error message to the FND stack as part number change and exchange cannot be done together.
2647: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2648: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
2649: 'Part number change and exchange cannot be done together.');
2650: END IF;
2651:
2652: FND_MESSAGE.set_name('AHL', 'AHL_OSP_NO_PN_CHG_EXCHG_TGTHR'); -- Part number change and Exchange cannot be done together.
2660: OPEN chk_return_line(p_rma_receipt_rec.return_line_id);
2661: FETCH chk_return_line INTO l_dummy;
2662: IF (chk_return_line%NOTFOUND) THEN
2663: -- Add an error message as the given return line is invalid.
2664: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2665: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
2666: 'Return line: '||p_rma_receipt_rec.return_line_id||' is invalid.');
2667: END IF;
2668:
2661: FETCH chk_return_line INTO l_dummy;
2662: IF (chk_return_line%NOTFOUND) THEN
2663: -- Add an error message as the given return line is invalid.
2664: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2665: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
2666: 'Return line: '||p_rma_receipt_rec.return_line_id||' is invalid.');
2667: END IF;
2668:
2669: FND_MESSAGE.set_name('AHL', 'AHL_OSP_RMA_LINE_INVALID'); -- Return line is invalid.
2678: OPEN chk_shipment_booked(p_rma_receipt_rec.return_line_id);
2679: FETCH chk_shipment_booked INTO l_oe_header_id;
2680: IF (chk_shipment_booked%NOTFOUND) THEN
2681: -- Add an error message as the shipment is not booked.
2682: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2683: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
2684: 'Shipment order: '||l_oe_header_id||' is not booked.');
2685: END IF;
2686:
2679: FETCH chk_shipment_booked INTO l_oe_header_id;
2680: IF (chk_shipment_booked%NOTFOUND) THEN
2681: -- Add an error message as the shipment is not booked.
2682: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2683: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
2684: 'Shipment order: '||l_oe_header_id||' is not booked.');
2685: END IF;
2686:
2687: FND_MESSAGE.set_name('AHL', 'AHL_OSP_RMA_SHPMNT_NOT_BKD'); -- Shipment is not booked.
2698: FETCH get_osp_ship_line_id INTO l_oe_ship_line_id;
2699: IF (get_osp_ship_line_id%FOUND) THEN
2700: -- Add an error message if the ship line id is NULL.
2701: IF (l_oe_ship_line_id IS NULL) THEN
2702: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2703: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
2704: 'Ship line id for the return line: '||p_rma_receipt_rec.return_line_id||' is NULL.');
2705: END IF;
2706:
2699: IF (get_osp_ship_line_id%FOUND) THEN
2700: -- Add an error message if the ship line id is NULL.
2701: IF (l_oe_ship_line_id IS NULL) THEN
2702: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2703: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
2704: 'Ship line id for the return line: '||p_rma_receipt_rec.return_line_id||' is NULL.');
2705: END IF;
2706:
2707: FND_MESSAGE.set_name('AHL', 'AHL_OSP_SHIP_LINE_NULL'); -- Shipment line does not exist for this return line.
2714: OPEN get_oe_quantities(l_oe_ship_line_id);
2715: FETCH get_oe_quantities INTO l_ship_line_qty_rec;
2716: CLOSE get_oe_quantities;
2717:
2718: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2719: FND_LOG.string(FND_LOG.level_statement, l_debug_key, 'l_oe_ship_line_id: '||l_oe_ship_line_id);
2720: FND_LOG.string(FND_LOG.level_statement, l_debug_key, 'l_ship_line_qty_rec.shipped_quantity: '||l_ship_line_qty_rec.shipped_quantity);
2721: END IF;
2722:
2715: FETCH get_oe_quantities INTO l_ship_line_qty_rec;
2716: CLOSE get_oe_quantities;
2717:
2718: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2719: FND_LOG.string(FND_LOG.level_statement, l_debug_key, 'l_oe_ship_line_id: '||l_oe_ship_line_id);
2720: FND_LOG.string(FND_LOG.level_statement, l_debug_key, 'l_ship_line_qty_rec.shipped_quantity: '||l_ship_line_qty_rec.shipped_quantity);
2721: END IF;
2722:
2723: -- Shipment should have been done for any receipt to take place. For this, check the shipped quantity.
2716: CLOSE get_oe_quantities;
2717:
2718: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2719: FND_LOG.string(FND_LOG.level_statement, l_debug_key, 'l_oe_ship_line_id: '||l_oe_ship_line_id);
2720: FND_LOG.string(FND_LOG.level_statement, l_debug_key, 'l_ship_line_qty_rec.shipped_quantity: '||l_ship_line_qty_rec.shipped_quantity);
2721: END IF;
2722:
2723: -- Shipment should have been done for any receipt to take place. For this, check the shipped quantity.
2724: -- If the shipped quantity is NULL or zero, it means shipment hasn't been done yet. Add an error message.
2722:
2723: -- Shipment should have been done for any receipt to take place. For this, check the shipped quantity.
2724: -- If the shipped quantity is NULL or zero, it means shipment hasn't been done yet. Add an error message.
2725: IF (l_ship_line_qty_rec.shipped_quantity IS NULL OR l_ship_line_qty_rec.shipped_quantity = 0) THEN
2726: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2727: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
2728: 'Shipment for the return line: '||p_rma_receipt_rec.return_line_id||' has not been done yet.');
2729: END IF;
2730:
2723: -- Shipment should have been done for any receipt to take place. For this, check the shipped quantity.
2724: -- If the shipped quantity is NULL or zero, it means shipment hasn't been done yet. Add an error message.
2725: IF (l_ship_line_qty_rec.shipped_quantity IS NULL OR l_ship_line_qty_rec.shipped_quantity = 0) THEN
2726: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2727: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
2728: 'Shipment for the return line: '||p_rma_receipt_rec.return_line_id||' has not been done yet.');
2729: END IF;
2730:
2731: FND_MESSAGE.set_name('AHL', 'AHL_OSP_SHIPMENT_NOT_DONE'); -- Shipping has not been done for the ship line corresponding to this return line.
2745:
2746: -- Check for the ordered and shipped quantities of the given return line. If the shipped quantity is not less than the
2747: -- ordered quantity, then it means there is no quantity left to be returned. Add an error message.
2748: IF NOT (l_return_line_qty_rec.shipped_quantity < l_return_line_qty_rec.ordered_quantity) THEN
2749: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2750: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
2751: 'Shipped qty is not less than the ordered qty for the return line: '||p_rma_receipt_rec.return_line_id);
2752: END IF;
2753:
2746: -- Check for the ordered and shipped quantities of the given return line. If the shipped quantity is not less than the
2747: -- ordered quantity, then it means there is no quantity left to be returned. Add an error message.
2748: IF NOT (l_return_line_qty_rec.shipped_quantity < l_return_line_qty_rec.ordered_quantity) THEN
2749: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2750: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
2751: 'Shipped qty is not less than the ordered qty for the return line: '||p_rma_receipt_rec.return_line_id);
2752: END IF;
2753:
2754: FND_MESSAGE.set_name('AHL', 'AHL_OSP_RECEIPT_CMPLT'); -- Receipt is complete for this return line.
2759: END IF;
2760:
2761: -- Check for the receipt date. If it is in future, add an error message.
2762: IF (TRUNC(p_rma_receipt_rec.receipt_date) > TRUNC(SYSDATE)) THEN
2763: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2764: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
2765: 'Receipt date: '||p_rma_receipt_rec.receipt_date||' is in future.');
2766: END IF;
2767:
2760:
2761: -- Check for the receipt date. If it is in future, add an error message.
2762: IF (TRUNC(p_rma_receipt_rec.receipt_date) > TRUNC(SYSDATE)) THEN
2763: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2764: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
2765: 'Receipt date: '||p_rma_receipt_rec.receipt_date||' is in future.');
2766: END IF;
2767:
2768: FND_MESSAGE.set_name('AHL', 'AHL_OSP_RECEIPT_DATE_INVALID'); -- Receipt cannot be done for a future date.
2776: OPEN chk_org_id(p_rma_receipt_rec.return_line_id, p_rma_receipt_rec.receiving_org_id);
2777: FETCH chk_org_id INTO l_dummy;
2778: IF (chk_org_id%NOTFOUND) THEN
2779: -- Add an error message.
2780: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2781: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
2782: 'Receipt org is different from the one set in the return line.');
2783: END IF;
2784:
2777: FETCH chk_org_id INTO l_dummy;
2778: IF (chk_org_id%NOTFOUND) THEN
2779: -- Add an error message.
2780: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2781: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
2782: 'Receipt org is different from the one set in the return line.');
2783: END IF;
2784:
2785: FND_MESSAGE.set_name('AHL', 'AHL_OSP_RECEIPT_ORG_INVALID'); -- Receiving organization is different from the one set for the return line.
2789: l_valid_flag := FALSE;
2790: END IF;
2791: CLOSE chk_org_id;
2792:
2793: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
2794: IF (l_valid_flag) THEN
2795: FND_LOG.string(FND_LOG.level_procedure, l_debug_key||'.end', 'End of the API.'||
2796: ' l_valid_flag is TRUE, no exception raised.');
2797: ELSE
2791: CLOSE chk_org_id;
2792:
2793: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
2794: IF (l_valid_flag) THEN
2795: FND_LOG.string(FND_LOG.level_procedure, l_debug_key||'.end', 'End of the API.'||
2796: ' l_valid_flag is TRUE, no exception raised.');
2797: ELSE
2798: FND_LOG.string(FND_LOG.level_procedure, l_debug_key||'.end', 'End of the API.'||
2799: ' l_valid_flag is FALSE, exception raised.');
2794: IF (l_valid_flag) THEN
2795: FND_LOG.string(FND_LOG.level_procedure, l_debug_key||'.end', 'End of the API.'||
2796: ' l_valid_flag is TRUE, no exception raised.');
2797: ELSE
2798: FND_LOG.string(FND_LOG.level_procedure, l_debug_key||'.end', 'End of the API.'||
2799: ' l_valid_flag is FALSE, exception raised.');
2800: END IF;
2801: END IF;
2802:
2801: END IF;
2802:
2803: -- Check l_valid_flag. If FALSE, raise an exception which will be handled in the calling API.
2804: IF (NOT l_valid_flag) THEN
2805: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2806: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
2807: 'As l_valid_flag is FALSE, raising an exception.');
2808: END IF;
2809:
2802:
2803: -- Check l_valid_flag. If FALSE, raise an exception which will be handled in the calling API.
2804: IF (NOT l_valid_flag) THEN
2805: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2806: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
2807: 'As l_valid_flag is FALSE, raising an exception.');
2808: END IF;
2809:
2810: RAISE FND_API.G_EXC_ERROR;
3185: l_dummy VARCHAR2(1);
3186: --
3187:
3188: BEGIN
3189: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
3190: FND_LOG.string(FND_LOG.level_procedure, l_debug_key||'.begin', 'Start of the API.');
3191: FND_LOG.STRING(FND_LOG.level_procedure, l_debug_key, 'RECEIVING_ORG_ID:'||p_rma_receipt_rec.RECEIVING_ORG_ID);
3192: FND_LOG.STRING(FND_LOG.level_procedure, l_debug_key, 'RECEIVING_SUBINVENTORY:'||p_rma_receipt_rec.RECEIVING_SUBINVENTORY);
3193: FND_LOG.STRING(FND_LOG.level_procedure, l_debug_key, 'RECEIVING_LOCATOR_ID:'||p_rma_receipt_rec.RECEIVING_LOCATOR_ID);
3186: --
3187:
3188: BEGIN
3189: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
3190: FND_LOG.string(FND_LOG.level_procedure, l_debug_key||'.begin', 'Start of the API.');
3191: FND_LOG.STRING(FND_LOG.level_procedure, l_debug_key, 'RECEIVING_ORG_ID:'||p_rma_receipt_rec.RECEIVING_ORG_ID);
3192: FND_LOG.STRING(FND_LOG.level_procedure, l_debug_key, 'RECEIVING_SUBINVENTORY:'||p_rma_receipt_rec.RECEIVING_SUBINVENTORY);
3193: FND_LOG.STRING(FND_LOG.level_procedure, l_debug_key, 'RECEIVING_LOCATOR_ID:'||p_rma_receipt_rec.RECEIVING_LOCATOR_ID);
3194: FND_LOG.STRING(FND_LOG.level_procedure, l_debug_key, 'RECEIVING_LOCATOR_NAME:'||p_rma_receipt_rec.RECEIVING_LOCATOR_NAME);
3187:
3188: BEGIN
3189: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
3190: FND_LOG.string(FND_LOG.level_procedure, l_debug_key||'.begin', 'Start of the API.');
3191: FND_LOG.STRING(FND_LOG.level_procedure, l_debug_key, 'RECEIVING_ORG_ID:'||p_rma_receipt_rec.RECEIVING_ORG_ID);
3192: FND_LOG.STRING(FND_LOG.level_procedure, l_debug_key, 'RECEIVING_SUBINVENTORY:'||p_rma_receipt_rec.RECEIVING_SUBINVENTORY);
3193: FND_LOG.STRING(FND_LOG.level_procedure, l_debug_key, 'RECEIVING_LOCATOR_ID:'||p_rma_receipt_rec.RECEIVING_LOCATOR_ID);
3194: FND_LOG.STRING(FND_LOG.level_procedure, l_debug_key, 'RECEIVING_LOCATOR_NAME:'||p_rma_receipt_rec.RECEIVING_LOCATOR_NAME);
3195: END IF;
3188: BEGIN
3189: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
3190: FND_LOG.string(FND_LOG.level_procedure, l_debug_key||'.begin', 'Start of the API.');
3191: FND_LOG.STRING(FND_LOG.level_procedure, l_debug_key, 'RECEIVING_ORG_ID:'||p_rma_receipt_rec.RECEIVING_ORG_ID);
3192: FND_LOG.STRING(FND_LOG.level_procedure, l_debug_key, 'RECEIVING_SUBINVENTORY:'||p_rma_receipt_rec.RECEIVING_SUBINVENTORY);
3193: FND_LOG.STRING(FND_LOG.level_procedure, l_debug_key, 'RECEIVING_LOCATOR_ID:'||p_rma_receipt_rec.RECEIVING_LOCATOR_ID);
3194: FND_LOG.STRING(FND_LOG.level_procedure, l_debug_key, 'RECEIVING_LOCATOR_NAME:'||p_rma_receipt_rec.RECEIVING_LOCATOR_NAME);
3195: END IF;
3196:
3189: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
3190: FND_LOG.string(FND_LOG.level_procedure, l_debug_key||'.begin', 'Start of the API.');
3191: FND_LOG.STRING(FND_LOG.level_procedure, l_debug_key, 'RECEIVING_ORG_ID:'||p_rma_receipt_rec.RECEIVING_ORG_ID);
3192: FND_LOG.STRING(FND_LOG.level_procedure, l_debug_key, 'RECEIVING_SUBINVENTORY:'||p_rma_receipt_rec.RECEIVING_SUBINVENTORY);
3193: FND_LOG.STRING(FND_LOG.level_procedure, l_debug_key, 'RECEIVING_LOCATOR_ID:'||p_rma_receipt_rec.RECEIVING_LOCATOR_ID);
3194: FND_LOG.STRING(FND_LOG.level_procedure, l_debug_key, 'RECEIVING_LOCATOR_NAME:'||p_rma_receipt_rec.RECEIVING_LOCATOR_NAME);
3195: END IF;
3196:
3197: -- Initialize Procedure return status to success.
3190: FND_LOG.string(FND_LOG.level_procedure, l_debug_key||'.begin', 'Start of the API.');
3191: FND_LOG.STRING(FND_LOG.level_procedure, l_debug_key, 'RECEIVING_ORG_ID:'||p_rma_receipt_rec.RECEIVING_ORG_ID);
3192: FND_LOG.STRING(FND_LOG.level_procedure, l_debug_key, 'RECEIVING_SUBINVENTORY:'||p_rma_receipt_rec.RECEIVING_SUBINVENTORY);
3193: FND_LOG.STRING(FND_LOG.level_procedure, l_debug_key, 'RECEIVING_LOCATOR_ID:'||p_rma_receipt_rec.RECEIVING_LOCATOR_ID);
3194: FND_LOG.STRING(FND_LOG.level_procedure, l_debug_key, 'RECEIVING_LOCATOR_NAME:'||p_rma_receipt_rec.RECEIVING_LOCATOR_NAME);
3195: END IF;
3196:
3197: -- Initialize Procedure return status to success.
3198: x_return_status := FND_API.G_RET_STS_SUCCESS;
3199:
3200: -- Check for necessary fields.
3201: IF (p_rma_receipt_rec.receiving_org_id IS NULL OR p_rma_receipt_rec.receiving_subinventory IS NULL) THEN
3202: -- Add an error message to the FND stack.
3203: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3204: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
3205: 'Mandatory fields have not been entered.');
3206: END IF;
3207: FND_MESSAGE.set_name('AHL', 'AHL_COM_REQD_PARAM_MISSING'); -- Required parameter is missing.
3200: -- Check for necessary fields.
3201: IF (p_rma_receipt_rec.receiving_org_id IS NULL OR p_rma_receipt_rec.receiving_subinventory IS NULL) THEN
3202: -- Add an error message to the FND stack.
3203: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3204: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
3205: 'Mandatory fields have not been entered.');
3206: END IF;
3207: FND_MESSAGE.set_name('AHL', 'AHL_COM_REQD_PARAM_MISSING'); -- Required parameter is missing.
3208: FND_MSG_PUB.ADD;
3211: END IF;
3212:
3213: l_receiving_locator_name := p_rma_receipt_rec.receiving_locator_name;
3214: x_receiving_locator_id := p_rma_receipt_rec.receiving_locator_id;
3215: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3216: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
3217: 'Return value for Locator id is set using the record, IN param : '||x_receiving_locator_id);
3218: END IF;
3219:
3212:
3213: l_receiving_locator_name := p_rma_receipt_rec.receiving_locator_name;
3214: x_receiving_locator_id := p_rma_receipt_rec.receiving_locator_id;
3215: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3216: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
3217: 'Return value for Locator id is set using the record, IN param : '||x_receiving_locator_id);
3218: END IF;
3219:
3220: IF (l_receiving_locator_name IS NOT NULL
3223: ,l_receiving_locator_name);
3224: FETCH is_valid_locator INTO x_receiving_locator_id,l_receiving_locator_name, l_sub_inv_code;
3225: IF (is_valid_locator%FOUND) THEN -- locator exists
3226: IF (p_rma_receipt_rec.receiving_subinventory <> l_sub_inv_code) THEN
3227: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3228: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
3229: 'The receiving locator '||l_receiving_locator_name||' already exists in another Sub Inventory '
3230: ||l_sub_inv_code);
3231: END IF;
3224: FETCH is_valid_locator INTO x_receiving_locator_id,l_receiving_locator_name, l_sub_inv_code;
3225: IF (is_valid_locator%FOUND) THEN -- locator exists
3226: IF (p_rma_receipt_rec.receiving_subinventory <> l_sub_inv_code) THEN
3227: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3228: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
3229: 'The receiving locator '||l_receiving_locator_name||' already exists in another Sub Inventory '
3230: ||l_sub_inv_code);
3231: END IF;
3232: FND_MESSAGE.set_name('AHL', 'AHL_OSP_RMA_INV_LOC'); -- The receiving locator is invalid.
3234: x_return_status := FND_API.G_RET_STS_ERROR;
3235: CLOSE is_valid_locator;
3236: RETURN;
3237: ELSE
3238: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3239: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
3240: 'The receiving locator '||l_receiving_locator_name||' already exists in the Org in '
3241: || l_sub_inv_code || ' subinventory');
3242: END IF;
3235: CLOSE is_valid_locator;
3236: RETURN;
3237: ELSE
3238: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3239: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
3240: 'The receiving locator '||l_receiving_locator_name||' already exists in the Org in '
3241: || l_sub_inv_code || ' subinventory');
3242: END IF;
3243: END IF;
3245: OPEN is_dyn_locator_sub_inv(p_rma_receipt_rec.receiving_org_id
3246: ,p_rma_receipt_rec.receiving_subinventory);
3247: FETCH is_dyn_locator_sub_inv INTO l_dummy;
3248: IF (is_dyn_locator_sub_inv%FOUND) THEN -- dynamic locator enabled Sub Inv
3249: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3250: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
3251: 'The receiving Sub Inventor '||p_rma_receipt_rec.receiving_subinventory||' is dynamic locator controlled');
3252: END IF;
3253:
3246: ,p_rma_receipt_rec.receiving_subinventory);
3247: FETCH is_dyn_locator_sub_inv INTO l_dummy;
3248: IF (is_dyn_locator_sub_inv%FOUND) THEN -- dynamic locator enabled Sub Inv
3249: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3250: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
3251: 'The receiving Sub Inventor '||p_rma_receipt_rec.receiving_subinventory||' is dynamic locator controlled');
3252: END IF;
3253:
3254: inv_loc_wms_pub.create_locator(
3280: p_height => NULL,
3281: p_status_id => NULL,
3282: p_dropping_order => NULL);
3283:
3284: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3285: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'After calling inv_loc_wms_pub.create_locator');
3286: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'x_return_status: '||x_return_status);
3287: END IF;
3288:
3281: p_status_id => NULL,
3282: p_dropping_order => NULL);
3283:
3284: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3285: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'After calling inv_loc_wms_pub.create_locator');
3286: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'x_return_status: '||x_return_status);
3287: END IF;
3288:
3289: IF (x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
3282: p_dropping_order => NULL);
3283:
3284: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3285: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'After calling inv_loc_wms_pub.create_locator');
3286: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'x_return_status: '||x_return_status);
3287: END IF;
3288:
3289: IF (x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
3290: x_receiving_locator_id := l_locator_id;
3287: END IF;
3288:
3289: IF (x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
3290: x_receiving_locator_id := l_locator_id;
3291: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3292: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'New Locator'|| l_locator_id || ' created in '
3293: || p_rma_receipt_rec.receiving_subinventory);
3294: END IF;
3295: END IF;
3288:
3289: IF (x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
3290: x_receiving_locator_id := l_locator_id;
3291: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3292: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'New Locator'|| l_locator_id || ' created in '
3293: || p_rma_receipt_rec.receiving_subinventory);
3294: END IF;
3295: END IF;
3296: ELSE -- not dynamic locator enabled
3293: || p_rma_receipt_rec.receiving_subinventory);
3294: END IF;
3295: END IF;
3296: ELSE -- not dynamic locator enabled
3297: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3298: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
3299: 'The receiving locator '||p_rma_receipt_rec.receiving_locator_name||' does not exist in Sub Inventory '
3300: ||p_rma_receipt_rec.receiving_subinventory);
3301: END IF;
3294: END IF;
3295: END IF;
3296: ELSE -- not dynamic locator enabled
3297: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3298: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
3299: 'The receiving locator '||p_rma_receipt_rec.receiving_locator_name||' does not exist in Sub Inventory '
3300: ||p_rma_receipt_rec.receiving_subinventory);
3301: END IF;
3302: FND_MESSAGE.set_name('AHL', 'AHL_OSP_RMA_INV_LOC'); -- The receiving locator is invalid.