[Home] [Help]
108: l_dummy VARCHAR2(1);
109: --
110:
111: BEGIN
112: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
113: FND_LOG.string(FND_LOG.level_procedure, l_debug_key||'.begin', 'API called with p_osp_order_id: '||p_osp_order_id);
114: END IF;
115:
116: -- Check for the given OSP order id. If NULL, return FND_API.G_FALSE.
109: --
110:
111: BEGIN
112: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
113: FND_LOG.string(FND_LOG.level_procedure, l_debug_key||'.begin', 'API called with p_osp_order_id: '||p_osp_order_id);
114: END IF;
115:
116: -- Check for the given OSP order id. If NULL, return FND_API.G_FALSE.
117: IF (p_osp_order_id IS NULL) THEN
114: END IF;
115:
116: -- Check for the given OSP order id. If NULL, return FND_API.G_FALSE.
117: IF (p_osp_order_id IS NULL) THEN
118: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
119: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
120: 'OSP order id is NULL. Returning False.');
121: END IF;
122:
115:
116: -- Check for the given OSP order id. If NULL, return FND_API.G_FALSE.
117: IF (p_osp_order_id IS NULL) THEN
118: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
119: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
120: 'OSP order id is NULL. Returning False.');
121: END IF;
122:
123: RETURN FND_API.G_FALSE;
129: CLOSE get_oe_header_id;
130:
131: -- Check for the oe_header_id. If NULL, it means no shipment has been created. Return FND_API.G_FALSE.
132: IF (l_oe_header_id IS NULL) THEN
133: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
134: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
135: 'oe_header_id is NULL for the OSP order: '||p_osp_order_id||'. Returning False.');
136: END IF;
137:
130:
131: -- Check for the oe_header_id. If NULL, it means no shipment has been created. Return FND_API.G_FALSE.
132: IF (l_oe_header_id IS NULL) THEN
133: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
134: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
135: 'oe_header_id is NULL for the OSP order: '||p_osp_order_id||'. Returning False.');
136: END IF;
137:
138: RETURN FND_API.G_FALSE;
142: OPEN chk_shipment_booked(l_oe_header_id);
143: FETCH chk_shipment_booked INTO l_dummy;
144: IF (chk_shipment_booked%NOTFOUND) THEN
145: -- The shipment is not booked. Return FND_API.G_FALSE.
146: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
147: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
148: 'Shipment '||l_oe_header_id||' is not booked. Returning False.');
149: END IF;
150:
143: FETCH chk_shipment_booked INTO l_dummy;
144: IF (chk_shipment_booked%NOTFOUND) THEN
145: -- The shipment is not booked. Return FND_API.G_FALSE.
146: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
147: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
148: 'Shipment '||l_oe_header_id||' is not booked. Returning False.');
149: END IF;
150:
151: CLOSE chk_shipment_booked;
172: END LOOP;
173: CLOSE get_rma_lines;
174:
175: -- If none of the shipment/PO lines can be received, return FND_API.G_FALSE.
176: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
177: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
178: 'None of the shipment/PO lines can be received. Returnig False.');
179: END IF;
180:
173: CLOSE get_rma_lines;
174:
175: -- If none of the shipment/PO lines can be received, return FND_API.G_FALSE.
176: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
177: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
178: 'None of the shipment/PO lines can be received. Returnig False.');
179: END IF;
180:
181: RETURN FND_API.G_FALSE;
328: l_merged_req_line BOOLEAN := FALSE;
329: --
330:
331: BEGIN
332: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
333: FND_LOG.string(FND_LOG.level_procedure, l_debug_key||'.begin', 'API called with p_return_line_id: '||p_return_line_id);
334: END IF;
335:
336: -- Check whether the given return line is valid or not.
329: --
330:
331: BEGIN
332: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
333: FND_LOG.string(FND_LOG.level_procedure, l_debug_key||'.begin', 'API called with p_return_line_id: '||p_return_line_id);
334: END IF;
335:
336: -- Check whether the given return line is valid or not.
337: OPEN chk_return_line(p_return_line_id);
337: OPEN chk_return_line(p_return_line_id);
338: FETCH chk_return_line INTO l_dummy;
339: IF (chk_return_line%NOTFOUND) THEN
340: -- The given return line is invalid. Return FND_API.G_FALSE.
341: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
342: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
343: 'Return line: '||p_return_line_id||' is invalid. Returnig False.');
344: END IF;
345:
338: FETCH chk_return_line INTO l_dummy;
339: IF (chk_return_line%NOTFOUND) THEN
340: -- The given return line is invalid. Return FND_API.G_FALSE.
341: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
342: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
343: 'Return line: '||p_return_line_id||' is invalid. Returnig False.');
344: END IF;
345:
346: CLOSE chk_return_line;
364: -- PO receipt should be enabled only after RMA receipt is complete. For this, check for the ordered and
365: -- shipped quantities of the given return line. If the shipped quantity is less than the
366: -- ordered quantity, then it means there is still quantity left to be returned. Return FND_API.G_FALSE.
367: IF (l_oe_shipped_qty IS NULL OR l_oe_shipped_qty < l_oe_ordered_qty) THEN
368: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
369: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
370: 'Shipped quantity is NULL, or less than the ordered quantity for the return line: '||p_return_line_id||
371: '. As receipt against RMA is not complete yet, returning False.');
372: END IF;
365: -- shipped quantities of the given return line. If the shipped quantity is less than the
366: -- ordered quantity, then it means there is still quantity left to be returned. Return FND_API.G_FALSE.
367: IF (l_oe_shipped_qty IS NULL OR l_oe_shipped_qty < l_oe_ordered_qty) THEN
368: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
369: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
370: 'Shipped quantity is NULL, or less than the ordered quantity for the return line: '||p_return_line_id||
371: '. As receipt against RMA is not complete yet, returning False.');
372: END IF;
373:
381: IF (l_po_header_id IS NULL) THEN
382: -- As the PO header id is NULL, check for the requisition header id.
383: IF (l_po_req_header_id IS NULL) THEN
384: -- Even the requisition header id is NULL. Return FND_API.G_FALSE.
385: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
386: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
387: 'Both PO and requisition headers are NULL for the OSP order: '||l_osp_order_id||
388: '. Returning False.');
389: END IF;
382: -- As the PO header id is NULL, check for the requisition header id.
383: IF (l_po_req_header_id IS NULL) THEN
384: -- Even the requisition header id is NULL. Return FND_API.G_FALSE.
385: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
386: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
387: 'Both PO and requisition headers are NULL for the OSP order: '||l_osp_order_id||
388: '. Returning False.');
389: END IF;
390:
395: -- If not approved, return FND_API.G_FALSE.
396: OPEN chk_po_req_approved(l_po_req_header_id);
397: FETCH chk_po_req_approved INTO l_dummy;
398: IF (chk_po_req_approved%NOTFOUND) THEN
399: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
400: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
401: 'Requisition: '||l_po_header_id||' is not approved. Returning False.');
402: END IF;
403:
396: OPEN chk_po_req_approved(l_po_req_header_id);
397: FETCH chk_po_req_approved INTO l_dummy;
398: IF (chk_po_req_approved%NOTFOUND) THEN
399: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
400: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
401: 'Requisition: '||l_po_header_id||' is not approved. Returning False.');
402: END IF;
403:
404: CLOSE chk_po_req_approved;
412: -- If not approved, return FND_API.G_FALSE.
413: OPEN chk_po_header_approved(l_po_header_id);
414: FETCH chk_po_header_approved INTO l_dummy;
415: IF (chk_po_header_approved%NOTFOUND) THEN
416: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
417: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
418: 'Purchase order: '||l_po_header_id||' is not approved. Returning False.');
419: END IF;
420:
413: OPEN chk_po_header_approved(l_po_header_id);
414: FETCH chk_po_header_approved INTO l_dummy;
415: IF (chk_po_header_approved%NOTFOUND) THEN
416: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
417: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
418: 'Purchase order: '||l_po_header_id||' is not approved. Returning False.');
419: END IF;
420:
421: CLOSE chk_po_header_approved;
425: CLOSE chk_po_header_approved;
426: END IF; -- if l_po_header_id IS NULL
427: ELSE
428: -- This means that the OSP order is not in the PO_CREATED or REQ_CREATED status. Return FND_API.G_FALSE.
429: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
430: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
431: 'OSP order: '||l_osp_order_id||' is not in status PO_CREATED or REQ_CREATED. Returnig False.');
432: END IF;
433:
426: END IF; -- if l_po_header_id IS NULL
427: ELSE
428: -- This means that the OSP order is not in the PO_CREATED or REQ_CREATED status. Return FND_API.G_FALSE.
429: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
430: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
431: 'OSP order: '||l_osp_order_id||' is not in status PO_CREATED or REQ_CREATED. Returnig False.');
432: END IF;
433:
434: CLOSE get_po_header_id;
447: IF (l_po_line_id IS NULL) THEN
448: OPEN get_po_line(l_po_req_line_id);
449: FETCH get_po_line INTO l_po_line_id;
450: IF (get_po_line%FOUND) THEN
451: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
452: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
453: 'PO line id was NULL. Got it as '||l_po_line_id||' from the Requisition line: '||l_po_req_line_id);
454: END IF;
455:
448: OPEN get_po_line(l_po_req_line_id);
449: FETCH get_po_line INTO l_po_line_id;
450: IF (get_po_line%FOUND) THEN
451: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
452: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
453: 'PO line id was NULL. Got it as '||l_po_line_id||' from the Requisition line: '||l_po_req_line_id);
454: END IF;
455:
456: -- Check for merged Requisition lines, i.e. whether this PO line has already been checked or not.
466: CLOSE get_po_line_quantity2;
467: END IF;
468: ELSE
469: -- Either PO is not created or its not approved.
470: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
471: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
472: 'Either PO is not created or its not approved. Returning False');
473: END IF;
474:
467: END IF;
468: ELSE
469: -- Either PO is not created or its not approved.
470: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
471: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
472: 'Either PO is not created or its not approved. Returning False');
473: END IF;
474:
475: CLOSE get_po_line;
481:
482: -- For any of the PO lines, if the total received quantity is not less than the line quantity, return FND_API.G_FALSE.
483: -- No need to check this for merged Requisition lines, this check would already have happened for the first Requisition line.
484: IF NOT l_merged_req_line AND NOT (l_po_line_tot_qty < l_po_line_qty) THEN
485: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
486: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
487: 'Total received quantity is not less than the line quantity for PO line id: '||l_po_line_id||'.'||
488: ' Returning False.');
489: END IF;
482: -- For any of the PO lines, if the total received quantity is not less than the line quantity, return FND_API.G_FALSE.
483: -- No need to check this for merged Requisition lines, this check would already have happened for the first Requisition line.
484: IF NOT l_merged_req_line AND NOT (l_po_line_tot_qty < l_po_line_qty) THEN
485: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
486: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
487: 'Total received quantity is not less than the line quantity for PO line id: '||l_po_line_id||'.'||
488: ' Returning False.');
489: END IF;
490:
494: END LOOP;
495: CLOSE get_po_line_quantity1;
496:
497: -- If all the checks have been validated, return FND_API.G_TRUE.
498: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
499: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
500: 'All checks validated. Returnig True.');
501: END IF;
502:
495: CLOSE get_po_line_quantity1;
496:
497: -- If all the checks have been validated, return FND_API.G_TRUE.
498: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
499: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
500: 'All checks validated. Returnig True.');
501: END IF;
502:
503: RETURN FND_API.G_TRUE;
565: l_dummy VARCHAR2(1);
566: --
567:
568: BEGIN
569: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
570: FND_LOG.string(FND_LOG.level_procedure, l_debug_key||'.begin', 'API called with p_return_line_id: '||p_return_line_id);
571: END IF;
572:
573: -- Check whether the given return line is valid or not.
566: --
567:
568: BEGIN
569: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
570: FND_LOG.string(FND_LOG.level_procedure, l_debug_key||'.begin', 'API called with p_return_line_id: '||p_return_line_id);
571: END IF;
572:
573: -- Check whether the given return line is valid or not.
574: OPEN chk_return_line(p_return_line_id);
574: OPEN chk_return_line(p_return_line_id);
575: FETCH chk_return_line INTO l_dummy;
576: IF (chk_return_line%NOTFOUND) THEN
577: -- The given return line is invalid. Return FND_API.G_FALSE.
578: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
579: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
580: 'Return line: '||p_return_line_id||' is invalid. Returnig False.');
581: END IF;
582:
575: FETCH chk_return_line INTO l_dummy;
576: IF (chk_return_line%NOTFOUND) THEN
577: -- The given return line is invalid. Return FND_API.G_FALSE.
578: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
579: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
580: 'Return line: '||p_return_line_id||' is invalid. Returnig False.');
581: END IF;
582:
583: CLOSE chk_return_line;
589: OPEN chk_shipment_booked(p_return_line_id);
590: FETCH chk_shipment_booked INTO l_oe_header_id;
591: IF (chk_shipment_booked%NOTFOUND) THEN
592: -- The shipment is not booked. Return FND_API.G_FALSE.
593: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
594: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
595: 'Shipment order: '||l_oe_header_id||' is not booked. Returnig False.');
596: END IF;
597:
590: FETCH chk_shipment_booked INTO l_oe_header_id;
591: IF (chk_shipment_booked%NOTFOUND) THEN
592: -- The shipment is not booked. Return FND_API.G_FALSE.
593: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
594: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
595: 'Shipment order: '||l_oe_header_id||' is not booked. Returnig False.');
596: END IF;
597:
598: CLOSE chk_shipment_booked;
606: FETCH get_osp_ship_line_id INTO l_oe_ship_line_id;
607: IF (get_osp_ship_line_id%FOUND) THEN
608: -- If the ship line id is NULL, return FND_API.G_FALSE.
609: IF (l_oe_ship_line_id IS NULL) THEN
610: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
611: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
612: 'Ship line id for the return line: '||p_return_line_id||' is NULL. Returning False.');
613: END IF;
614:
607: IF (get_osp_ship_line_id%FOUND) THEN
608: -- If the ship line id is NULL, return FND_API.G_FALSE.
609: IF (l_oe_ship_line_id IS NULL) THEN
610: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
611: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
612: 'Ship line id for the return line: '||p_return_line_id||' is NULL. Returning False.');
613: END IF;
614:
615: CLOSE get_osp_ship_line_id;
619: OPEN get_oe_quantities(l_oe_ship_line_id);
620: FETCH get_oe_quantities INTO l_ship_line_qty_rec;
621: CLOSE get_oe_quantities;
622:
623: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
624: FND_LOG.string(FND_LOG.level_statement, l_debug_key, 'l_oe_ship_line_id: '||l_oe_ship_line_id);
625: FND_LOG.string(FND_LOG.level_statement, l_debug_key, 'l_ship_line_qty_rec.shipped_quantity: '||l_ship_line_qty_rec .shipped_quantity);
626: END IF;
627:
620: FETCH get_oe_quantities INTO l_ship_line_qty_rec;
621: CLOSE get_oe_quantities;
622:
623: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
624: FND_LOG.string(FND_LOG.level_statement, l_debug_key, 'l_oe_ship_line_id: '||l_oe_ship_line_id);
625: FND_LOG.string(FND_LOG.level_statement, l_debug_key, 'l_ship_line_qty_rec.shipped_quantity: '||l_ship_line_qty_rec .shipped_quantity);
626: END IF;
627:
628: -- Shipment should have been done for any receipt to take place. For this, check the shipped quantity.
621: CLOSE get_oe_quantities;
622:
623: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
624: FND_LOG.string(FND_LOG.level_statement, l_debug_key, 'l_oe_ship_line_id: '||l_oe_ship_line_id);
625: FND_LOG.string(FND_LOG.level_statement, l_debug_key, 'l_ship_line_qty_rec.shipped_quantity: '||l_ship_line_qty_rec .shipped_quantity);
626: END IF;
627:
628: -- Shipment should have been done for any receipt to take place. For this, check the shipped quantity.
629: -- If the shipped quantity is NULL or zero, it means shipment hasn't been done yet. Return FND_API.G_FALSE.
627:
628: -- Shipment should have been done for any receipt to take place. For this, check the shipped quantity.
629: -- If the shipped quantity is NULL or zero, it means shipment hasn't been done yet. Return FND_API.G_FALSE.
630: IF (l_ship_line_qty_rec.shipped_quantity IS NULL OR l_ship_line_qty_rec.shipped_quantity = 0) THEN
631: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
632: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
633: 'Shipment for the return line: '||p_return_line_id||' has not been done yet. Returning False.');
634: END IF;
635:
628: -- Shipment should have been done for any receipt to take place. For this, check the shipped quantity.
629: -- If the shipped quantity is NULL or zero, it means shipment hasn't been done yet. Return FND_API.G_FALSE.
630: IF (l_ship_line_qty_rec.shipped_quantity IS NULL OR l_ship_line_qty_rec.shipped_quantity = 0) THEN
631: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
632: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
633: 'Shipment for the return line: '||p_return_line_id||' has not been done yet. Returning False.');
634: END IF;
635:
636: CLOSE get_osp_ship_line_id;
647:
648: -- Check for the ordered and shipped quantities of the given return line. If the shipped quantity is not less than the
649: -- ordered quantity, then it means there is no quantity left to be returned. Return FND_API.G_FALSE.
650: IF NOT (nvl(l_return_line_qty_rec.shipped_quantity,0) < l_return_line_qty_rec.ordered_quantity) THEN
651: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
652: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
653: 'Shipped quantity is not less than the ordered quantity for the return line: '||p_return_line_id||'.'||
654: ' Returning False.');
655: END IF;
648: -- Check for the ordered and shipped quantities of the given return line. If the shipped quantity is not less than the
649: -- ordered quantity, then it means there is no quantity left to be returned. Return FND_API.G_FALSE.
650: IF NOT (nvl(l_return_line_qty_rec.shipped_quantity,0) < l_return_line_qty_rec.ordered_quantity) THEN
651: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
652: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
653: 'Shipped quantity is not less than the ordered quantity for the return line: '||p_return_line_id||'.'||
654: ' Returning False.');
655: END IF;
656:
657: RETURN FND_API.G_FALSE;
658: END IF;
659:
660: -- If all the checks have been validated, return FND_API.G_TRUE.
661: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
662: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
663: 'All checks validated. Returnig True.');
664: END IF;
665:
658: END IF;
659:
660: -- If all the checks have been validated, return FND_API.G_TRUE.
661: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
662: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
663: 'All checks validated. Returnig True.');
664: END IF;
665:
666: RETURN FND_API.G_TRUE;
829: l_merged_req_line BOOLEAN := FALSE;
830: --
831:
832: BEGIN
833: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
834: FND_LOG.string(FND_LOG.level_procedure, l_debug_key||'.begin', 'Start of the API. p_return_line_id: '||p_return_line_id);
835: END IF;
836:
837: -- Standard start of API savepoint.
830: --
831:
832: BEGIN
833: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
834: FND_LOG.string(FND_LOG.level_procedure, l_debug_key||'.begin', 'Start of the API. p_return_line_id: '||p_return_line_id);
835: END IF;
836:
837: -- Standard start of API savepoint.
838: SAVEPOINT Receive_Against_PO_Pvt;
858: IF (l_po_header_id IS NULL) THEN
859: -- As the PO header id is NULL, check for the requisition header id.
860: IF (l_po_req_header_id IS NULL) THEN
861: -- Even the requisition header id is NULL. Raise an exception.
862: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
863: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
864: 'Both PO and requisition headers are NULL for the OSP order: '||l_osp_order_number||
865: '. Raising exception.');
866: END IF;
859: -- As the PO header id is NULL, check for the requisition header id.
860: IF (l_po_req_header_id IS NULL) THEN
861: -- Even the requisition header id is NULL. Raise an exception.
862: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
863: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
864: 'Both PO and requisition headers are NULL for the OSP order: '||l_osp_order_number||
865: '. Raising exception.');
866: END IF;
867:
874: -- If not approved, raise an exception.
875: OPEN chk_po_req_approved(l_po_req_header_id);
876: FETCH chk_po_req_approved INTO l_dummy;
877: IF (chk_po_req_approved%NOTFOUND) THEN
878: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
879: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
880: 'Requisition: '||l_po_header_id||' is not approved. Raising exception.');
881: END IF;
882:
875: OPEN chk_po_req_approved(l_po_req_header_id);
876: FETCH chk_po_req_approved INTO l_dummy;
877: IF (chk_po_req_approved%NOTFOUND) THEN
878: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
879: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
880: 'Requisition: '||l_po_header_id||' is not approved. Raising exception.');
881: END IF;
882:
883: CLOSE chk_po_req_approved;
892: -- Get the Purchase order details. If not approved, raise an exception.
893: OPEN get_po_header_details1(l_po_header_id);
894: FETCH get_po_header_details1 INTO l_po_vendor_id, l_po_vendor_site_id;
895: IF (get_po_header_details1%NOTFOUND) THEN
896: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
897: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
898: 'Purchase order: '||l_po_header_id||' is not approved. Raising exception.');
899: END IF;
900:
893: OPEN get_po_header_details1(l_po_header_id);
894: FETCH get_po_header_details1 INTO l_po_vendor_id, l_po_vendor_site_id;
895: IF (get_po_header_details1%NOTFOUND) THEN
896: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
897: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
898: 'Purchase order: '||l_po_header_id||' is not approved. Raising exception.');
899: END IF;
900:
901: CLOSE get_po_header_details1;
907: CLOSE get_po_header_details1;
908: END IF; -- if l_po_header_id IS NULL
909: ELSE
910: -- This means that the OSP order is not in the PO_CREATED or REQ_CREATED status. Raise an exception.
911: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
912: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
913: 'OSP order: '||l_osp_order_number||' is not in status PO_CREATED or REQ_CREATED. Raising exception.');
914: END IF;
915:
908: END IF; -- if l_po_header_id IS NULL
909: ELSE
910: -- This means that the OSP order is not in the PO_CREATED or REQ_CREATED status. Raise an exception.
911: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
912: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
913: 'OSP order: '||l_osp_order_number||' is not in status PO_CREATED or REQ_CREATED. Raising exception.');
914: END IF;
915:
916: CLOSE get_po_header_id;
932: IF (l_po_line_id IS NULL) THEN
933: OPEN get_po_line(l_po_req_line_id);
934: FETCH get_po_line INTO l_po_line_id;
935: IF (get_po_line%FOUND) THEN
936: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
937: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
938: 'PO line id was NULL. Got it as '||l_po_line_id||' from the Requisition line: '||l_po_req_line_id);
939: END IF;
940:
933: OPEN get_po_line(l_po_req_line_id);
934: FETCH get_po_line INTO l_po_line_id;
935: IF (get_po_line%FOUND) THEN
936: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
937: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
938: 'PO line id was NULL. Got it as '||l_po_line_id||' from the Requisition line: '||l_po_req_line_id);
939: END IF;
940:
941: -- Check for merged Requisition lines, i.e. whether this PO line has already been checked or not.
956: CLOSE get_po_header_details2;
957: END IF;
958: ELSE
959: -- Either PO is not created or its not approved. Raise exception.
960: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
961: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
962: 'Either PO is not created or its not approved. Raising Exception');
963: END IF;
964:
957: END IF;
958: ELSE
959: -- Either PO is not created or its not approved. Raise exception.
960: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
961: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
962: 'Either PO is not created or its not approved. Raising Exception');
963: END IF;
964:
965: CLOSE get_po_line;
973:
974: -- Do the rest of the processing only for those PO lines for which the total received quantity is less than the line quantity.
975: -- Do not process merged Requisition lines, i.e. PO lines already processed.
976: IF NOT l_merged_req_line AND (l_po_line_tot_qty < l_po_line_qty) THEN
977: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
978: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
979: 'Processing for PO line id: '||l_po_line_id);
980: END IF;
981:
974: -- Do the rest of the processing only for those PO lines for which the total received quantity is less than the line quantity.
975: -- Do not process merged Requisition lines, i.e. PO lines already processed.
976: IF NOT l_merged_req_line AND (l_po_line_tot_qty < l_po_line_qty) THEN
977: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
978: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
979: 'Processing for PO line id: '||l_po_line_id);
980: END IF;
981:
982: -- Set the l_po_lines_exist flag.
988: OPEN chk_pending_transaction(l_po_line_id);
989: FETCH chk_pending_transaction INTO l_dummy;
990: IF (chk_pending_transaction%FOUND) THEN
991: -- Pending receipt transaction exists for this PO line id. Raise an exception.
992: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
993: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
994: 'Pending transactions exist for PO line id: '||l_po_line_id);
995: END IF;
996:
989: FETCH chk_pending_transaction INTO l_dummy;
990: IF (chk_pending_transaction%FOUND) THEN
991: -- Pending receipt transaction exists for this PO line id. Raise an exception.
992: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
993: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
994: 'Pending transactions exist for PO line id: '||l_po_line_id);
995: END IF;
996:
997: CLOSE chk_pending_transaction;
1041: l_po_vendor_site_id,
1042: l_ship_to_org_id
1043: );
1044:
1045: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1046: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
1047: 'Transaction header inserted.');
1048: END IF;
1049: END IF; -- l_hdr_inserted check
1042: l_ship_to_org_id
1043: );
1044:
1045: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1046: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
1047: 'Transaction header inserted.');
1048: END IF;
1049: END IF; -- l_hdr_inserted check
1050:
1102: l_po_line_id,
1103: l_ship_to_loc_id
1104: );
1105:
1106: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1107: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
1108: 'Transaction record inserted for PO line id: '||l_po_line_id);
1109: END IF;
1110: END IF; -- (l_po_line_tot_qty < l_po_line_qty)
1103: l_ship_to_loc_id
1104: );
1105:
1106: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1107: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
1108: 'Transaction record inserted for PO line id: '||l_po_line_id);
1109: END IF;
1110: END IF; -- (l_po_line_tot_qty < l_po_line_qty)
1111: END LOOP; -- PO lines loop
1112: CLOSE get_po_line_quantity1;
1113:
1114: -- Check for the l_po_lines_exist flag. If not set, raise an exception.
1115: IF (NOT l_po_lines_exist) THEN
1116: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1117: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
1118: 'No PO lines could be found to do a receipt against. Raising exception.');
1119: END IF;
1120:
1113:
1114: -- Check for the l_po_lines_exist flag. If not set, raise an exception.
1115: IF (NOT l_po_lines_exist) THEN
1116: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1117: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
1118: 'No PO lines could be found to do a receipt against. Raising exception.');
1119: END IF;
1120:
1121: FND_MESSAGE.set_name('AHL', 'AHL_OSP_ALL_PO_LINES_RCVD'); -- All the purchase order lines for this return line have been received.
1123: RAISE FND_API.G_EXC_ERROR;
1124: END IF;
1125:
1126: -- After the interface tables been populated above, submit request for calling the Concurrent Program 'RVCTP'.
1127: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1128: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
1129: 'Submitting the request for calling the Concurrent Program RVCTP.');
1130: END IF;
1131:
1124: END IF;
1125:
1126: -- After the interface tables been populated above, submit request for calling the Concurrent Program 'RVCTP'.
1127: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1128: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
1129: 'Submitting the request for calling the Concurrent Program RVCTP.');
1130: END IF;
1131:
1132: -- Get the current value of the sequence PO.RCV_INTERFACE_GROUPS_S, required for submitting the request.
1141: argument3 => MO_GLOBAL.get_current_org_id()
1142: );
1143:
1144: IF (l_req_id = 0) THEN
1145: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1146: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
1147: 'Concurrent request failed.');
1148: END IF;
1149: ELSE
1142: );
1143:
1144: IF (l_req_id = 0) THEN
1145: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1146: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
1147: 'Concurrent request failed.');
1148: END IF;
1149: ELSE
1150: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1146: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
1147: 'Concurrent request failed.');
1148: END IF;
1149: ELSE
1150: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1151: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
1152: 'Concurrent request successful. Request id: '||l_req_id);
1153: END IF;
1154: END IF;
1147: 'Concurrent request failed.');
1148: END IF;
1149: ELSE
1150: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1151: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
1152: 'Concurrent request successful. Request id: '||l_req_id);
1153: END IF;
1154: END IF;
1155:
1167: IF FND_API.TO_BOOLEAN(p_commit) THEN
1168: COMMIT WORK;
1169: END IF;
1170:
1171: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
1172: FND_LOG.string(FND_LOG.level_procedure, l_debug_key||'.end', 'End of the API. x_request_id: '||x_request_id);
1173: END IF;
1174: EXCEPTION
1175: WHEN FND_API.G_EXC_ERROR THEN
1168: COMMIT WORK;
1169: END IF;
1170:
1171: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
1172: FND_LOG.string(FND_LOG.level_procedure, l_debug_key||'.end', 'End of the API. x_request_id: '||x_request_id);
1173: END IF;
1174: EXCEPTION
1175: WHEN FND_API.G_EXC_ERROR THEN
1176: ROLLBACK TO Receive_Against_PO_Pvt;
1393: l_same_ser_ospline_id NUMBER;
1394: --
1395:
1396: BEGIN
1397: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
1398: FND_LOG.string(FND_LOG.level_procedure, l_debug_key ||'.begin', 'Start of the API.');
1399: END IF;
1400:
1401: -- Standard start of API savepoint.
1394: --
1395:
1396: BEGIN
1397: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
1398: FND_LOG.string(FND_LOG.level_procedure, l_debug_key ||'.begin', 'Start of the API.');
1399: END IF;
1400:
1401: -- Standard start of API savepoint.
1402: SAVEPOINT Receive_Against_RMA_Pvt;
1417:
1418: x_return_line_id := null;
1419:
1420: --Log the input parameters
1421: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1422: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'RETURN_LINE_ID:'||p_rma_receipt_rec.RETURN_LINE_ID);
1423: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'RECEIVING_ORG_ID:'||p_rma_receipt_rec.RECEIVING_ORG_ID);
1424: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'RECEIVING_SUBINVENTORY:'||p_rma_receipt_rec.RECEIVING_SUBINVENTORY);
1425: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'RECEIVING_LOCATOR_ID:'||p_rma_receipt_rec.RECEIVING_LOCATOR_ID);
1418: x_return_line_id := null;
1419:
1420: --Log the input parameters
1421: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1422: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'RETURN_LINE_ID:'||p_rma_receipt_rec.RETURN_LINE_ID);
1423: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'RECEIVING_ORG_ID:'||p_rma_receipt_rec.RECEIVING_ORG_ID);
1424: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'RECEIVING_SUBINVENTORY:'||p_rma_receipt_rec.RECEIVING_SUBINVENTORY);
1425: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'RECEIVING_LOCATOR_ID:'||p_rma_receipt_rec.RECEIVING_LOCATOR_ID);
1426: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'RECEIPT_QUANTITY:'||p_rma_receipt_rec.RECEIPT_QUANTITY);
1419:
1420: --Log the input parameters
1421: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1422: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'RETURN_LINE_ID:'||p_rma_receipt_rec.RETURN_LINE_ID);
1423: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'RECEIVING_ORG_ID:'||p_rma_receipt_rec.RECEIVING_ORG_ID);
1424: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'RECEIVING_SUBINVENTORY:'||p_rma_receipt_rec.RECEIVING_SUBINVENTORY);
1425: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'RECEIVING_LOCATOR_ID:'||p_rma_receipt_rec.RECEIVING_LOCATOR_ID);
1426: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'RECEIPT_QUANTITY:'||p_rma_receipt_rec.RECEIPT_QUANTITY);
1427: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'RECEIPT_UOM_CODE:'||p_rma_receipt_rec.RECEIPT_UOM_CODE);
1420: --Log the input parameters
1421: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1422: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'RETURN_LINE_ID:'||p_rma_receipt_rec.RETURN_LINE_ID);
1423: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'RECEIVING_ORG_ID:'||p_rma_receipt_rec.RECEIVING_ORG_ID);
1424: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'RECEIVING_SUBINVENTORY:'||p_rma_receipt_rec.RECEIVING_SUBINVENTORY);
1425: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'RECEIVING_LOCATOR_ID:'||p_rma_receipt_rec.RECEIVING_LOCATOR_ID);
1426: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'RECEIPT_QUANTITY:'||p_rma_receipt_rec.RECEIPT_QUANTITY);
1427: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'RECEIPT_UOM_CODE:'||p_rma_receipt_rec.RECEIPT_UOM_CODE);
1428: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'RECEIPT_DATE:'||p_rma_receipt_rec.RECEIPT_DATE);
1421: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1422: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'RETURN_LINE_ID:'||p_rma_receipt_rec.RETURN_LINE_ID);
1423: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'RECEIVING_ORG_ID:'||p_rma_receipt_rec.RECEIVING_ORG_ID);
1424: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'RECEIVING_SUBINVENTORY:'||p_rma_receipt_rec.RECEIVING_SUBINVENTORY);
1425: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'RECEIVING_LOCATOR_ID:'||p_rma_receipt_rec.RECEIVING_LOCATOR_ID);
1426: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'RECEIPT_QUANTITY:'||p_rma_receipt_rec.RECEIPT_QUANTITY);
1427: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'RECEIPT_UOM_CODE:'||p_rma_receipt_rec.RECEIPT_UOM_CODE);
1428: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'RECEIPT_DATE:'||p_rma_receipt_rec.RECEIPT_DATE);
1429: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'NEW_SERIAL_NUMBER:'||p_rma_receipt_rec.NEW_SERIAL_NUMBER);
1422: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'RETURN_LINE_ID:'||p_rma_receipt_rec.RETURN_LINE_ID);
1423: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'RECEIVING_ORG_ID:'||p_rma_receipt_rec.RECEIVING_ORG_ID);
1424: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'RECEIVING_SUBINVENTORY:'||p_rma_receipt_rec.RECEIVING_SUBINVENTORY);
1425: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'RECEIVING_LOCATOR_ID:'||p_rma_receipt_rec.RECEIVING_LOCATOR_ID);
1426: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'RECEIPT_QUANTITY:'||p_rma_receipt_rec.RECEIPT_QUANTITY);
1427: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'RECEIPT_UOM_CODE:'||p_rma_receipt_rec.RECEIPT_UOM_CODE);
1428: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'RECEIPT_DATE:'||p_rma_receipt_rec.RECEIPT_DATE);
1429: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'NEW_SERIAL_NUMBER:'||p_rma_receipt_rec.NEW_SERIAL_NUMBER);
1430: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'NEW_SERIAL_TAG_CODE:'||p_rma_receipt_rec.NEW_SERIAL_TAG_CODE);
1423: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'RECEIVING_ORG_ID:'||p_rma_receipt_rec.RECEIVING_ORG_ID);
1424: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'RECEIVING_SUBINVENTORY:'||p_rma_receipt_rec.RECEIVING_SUBINVENTORY);
1425: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'RECEIVING_LOCATOR_ID:'||p_rma_receipt_rec.RECEIVING_LOCATOR_ID);
1426: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'RECEIPT_QUANTITY:'||p_rma_receipt_rec.RECEIPT_QUANTITY);
1427: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'RECEIPT_UOM_CODE:'||p_rma_receipt_rec.RECEIPT_UOM_CODE);
1428: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'RECEIPT_DATE:'||p_rma_receipt_rec.RECEIPT_DATE);
1429: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'NEW_SERIAL_NUMBER:'||p_rma_receipt_rec.NEW_SERIAL_NUMBER);
1430: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'NEW_SERIAL_TAG_CODE:'||p_rma_receipt_rec.NEW_SERIAL_TAG_CODE);
1431: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'NEW_LOT_NUMBER:'||p_rma_receipt_rec.NEW_LOT_NUMBER);
1424: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'RECEIVING_SUBINVENTORY:'||p_rma_receipt_rec.RECEIVING_SUBINVENTORY);
1425: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'RECEIVING_LOCATOR_ID:'||p_rma_receipt_rec.RECEIVING_LOCATOR_ID);
1426: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'RECEIPT_QUANTITY:'||p_rma_receipt_rec.RECEIPT_QUANTITY);
1427: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'RECEIPT_UOM_CODE:'||p_rma_receipt_rec.RECEIPT_UOM_CODE);
1428: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'RECEIPT_DATE:'||p_rma_receipt_rec.RECEIPT_DATE);
1429: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'NEW_SERIAL_NUMBER:'||p_rma_receipt_rec.NEW_SERIAL_NUMBER);
1430: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'NEW_SERIAL_TAG_CODE:'||p_rma_receipt_rec.NEW_SERIAL_TAG_CODE);
1431: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'NEW_LOT_NUMBER:'||p_rma_receipt_rec.NEW_LOT_NUMBER);
1432: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'NEW_ITEM_REV_NUMBER:'||p_rma_receipt_rec.NEW_ITEM_REV_NUMBER);
1425: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'RECEIVING_LOCATOR_ID:'||p_rma_receipt_rec.RECEIVING_LOCATOR_ID);
1426: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'RECEIPT_QUANTITY:'||p_rma_receipt_rec.RECEIPT_QUANTITY);
1427: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'RECEIPT_UOM_CODE:'||p_rma_receipt_rec.RECEIPT_UOM_CODE);
1428: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'RECEIPT_DATE:'||p_rma_receipt_rec.RECEIPT_DATE);
1429: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'NEW_SERIAL_NUMBER:'||p_rma_receipt_rec.NEW_SERIAL_NUMBER);
1430: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'NEW_SERIAL_TAG_CODE:'||p_rma_receipt_rec.NEW_SERIAL_TAG_CODE);
1431: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'NEW_LOT_NUMBER:'||p_rma_receipt_rec.NEW_LOT_NUMBER);
1432: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'NEW_ITEM_REV_NUMBER:'||p_rma_receipt_rec.NEW_ITEM_REV_NUMBER);
1433: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'EXCHANGE_ITEM_ID:'||p_rma_receipt_rec.EXCHANGE_ITEM_ID);
1426: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'RECEIPT_QUANTITY:'||p_rma_receipt_rec.RECEIPT_QUANTITY);
1427: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'RECEIPT_UOM_CODE:'||p_rma_receipt_rec.RECEIPT_UOM_CODE);
1428: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'RECEIPT_DATE:'||p_rma_receipt_rec.RECEIPT_DATE);
1429: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'NEW_SERIAL_NUMBER:'||p_rma_receipt_rec.NEW_SERIAL_NUMBER);
1430: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'NEW_SERIAL_TAG_CODE:'||p_rma_receipt_rec.NEW_SERIAL_TAG_CODE);
1431: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'NEW_LOT_NUMBER:'||p_rma_receipt_rec.NEW_LOT_NUMBER);
1432: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'NEW_ITEM_REV_NUMBER:'||p_rma_receipt_rec.NEW_ITEM_REV_NUMBER);
1433: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'EXCHANGE_ITEM_ID:'||p_rma_receipt_rec.EXCHANGE_ITEM_ID);
1434: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'EXCHANGE_SERIAL_NUMBER:'||p_rma_receipt_rec.EXCHANGE_SERIAL_NUMBER);
1427: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'RECEIPT_UOM_CODE:'||p_rma_receipt_rec.RECEIPT_UOM_CODE);
1428: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'RECEIPT_DATE:'||p_rma_receipt_rec.RECEIPT_DATE);
1429: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'NEW_SERIAL_NUMBER:'||p_rma_receipt_rec.NEW_SERIAL_NUMBER);
1430: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'NEW_SERIAL_TAG_CODE:'||p_rma_receipt_rec.NEW_SERIAL_TAG_CODE);
1431: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'NEW_LOT_NUMBER:'||p_rma_receipt_rec.NEW_LOT_NUMBER);
1432: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'NEW_ITEM_REV_NUMBER:'||p_rma_receipt_rec.NEW_ITEM_REV_NUMBER);
1433: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'EXCHANGE_ITEM_ID:'||p_rma_receipt_rec.EXCHANGE_ITEM_ID);
1434: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'EXCHANGE_SERIAL_NUMBER:'||p_rma_receipt_rec.EXCHANGE_SERIAL_NUMBER);
1435: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'EXCHANGE_LOT_NUMBER:'||p_rma_receipt_rec.EXCHANGE_LOT_NUMBER);
1428: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'RECEIPT_DATE:'||p_rma_receipt_rec.RECEIPT_DATE);
1429: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'NEW_SERIAL_NUMBER:'||p_rma_receipt_rec.NEW_SERIAL_NUMBER);
1430: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'NEW_SERIAL_TAG_CODE:'||p_rma_receipt_rec.NEW_SERIAL_TAG_CODE);
1431: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'NEW_LOT_NUMBER:'||p_rma_receipt_rec.NEW_LOT_NUMBER);
1432: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'NEW_ITEM_REV_NUMBER:'||p_rma_receipt_rec.NEW_ITEM_REV_NUMBER);
1433: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'EXCHANGE_ITEM_ID:'||p_rma_receipt_rec.EXCHANGE_ITEM_ID);
1434: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'EXCHANGE_SERIAL_NUMBER:'||p_rma_receipt_rec.EXCHANGE_SERIAL_NUMBER);
1435: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'EXCHANGE_LOT_NUMBER:'||p_rma_receipt_rec.EXCHANGE_LOT_NUMBER);
1436: END IF;
1429: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'NEW_SERIAL_NUMBER:'||p_rma_receipt_rec.NEW_SERIAL_NUMBER);
1430: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'NEW_SERIAL_TAG_CODE:'||p_rma_receipt_rec.NEW_SERIAL_TAG_CODE);
1431: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'NEW_LOT_NUMBER:'||p_rma_receipt_rec.NEW_LOT_NUMBER);
1432: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'NEW_ITEM_REV_NUMBER:'||p_rma_receipt_rec.NEW_ITEM_REV_NUMBER);
1433: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'EXCHANGE_ITEM_ID:'||p_rma_receipt_rec.EXCHANGE_ITEM_ID);
1434: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'EXCHANGE_SERIAL_NUMBER:'||p_rma_receipt_rec.EXCHANGE_SERIAL_NUMBER);
1435: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'EXCHANGE_LOT_NUMBER:'||p_rma_receipt_rec.EXCHANGE_LOT_NUMBER);
1436: END IF;
1437:
1430: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'NEW_SERIAL_TAG_CODE:'||p_rma_receipt_rec.NEW_SERIAL_TAG_CODE);
1431: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'NEW_LOT_NUMBER:'||p_rma_receipt_rec.NEW_LOT_NUMBER);
1432: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'NEW_ITEM_REV_NUMBER:'||p_rma_receipt_rec.NEW_ITEM_REV_NUMBER);
1433: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'EXCHANGE_ITEM_ID:'||p_rma_receipt_rec.EXCHANGE_ITEM_ID);
1434: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'EXCHANGE_SERIAL_NUMBER:'||p_rma_receipt_rec.EXCHANGE_SERIAL_NUMBER);
1435: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'EXCHANGE_LOT_NUMBER:'||p_rma_receipt_rec.EXCHANGE_LOT_NUMBER);
1436: END IF;
1437:
1438: -- Check whether a pending receipt transaction exists for this return line id.
1431: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'NEW_LOT_NUMBER:'||p_rma_receipt_rec.NEW_LOT_NUMBER);
1432: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'NEW_ITEM_REV_NUMBER:'||p_rma_receipt_rec.NEW_ITEM_REV_NUMBER);
1433: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'EXCHANGE_ITEM_ID:'||p_rma_receipt_rec.EXCHANGE_ITEM_ID);
1434: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'EXCHANGE_SERIAL_NUMBER:'||p_rma_receipt_rec.EXCHANGE_SERIAL_NUMBER);
1435: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'EXCHANGE_LOT_NUMBER:'||p_rma_receipt_rec.EXCHANGE_LOT_NUMBER);
1436: END IF;
1437:
1438: -- Check whether a pending receipt transaction exists for this return line id.
1439: OPEN chk_pending_transaction(p_rma_receipt_rec.RETURN_LINE_ID);
1439: OPEN chk_pending_transaction(p_rma_receipt_rec.RETURN_LINE_ID);
1440: FETCH chk_pending_transaction INTO l_dummy;
1441: IF (chk_pending_transaction%FOUND) THEN
1442: -- Pending receipt transaction exists for this PO line id. Raise an exception.
1443: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1444: FND_LOG.string(FND_LOG.level_statement, l_debug_key, 'Pending transactions exist for oe line id: '||p_rma_receipt_rec.RETURN_LINE_ID);
1445: END IF;
1446: CLOSE chk_pending_transaction;
1447: FND_MESSAGE.set_name('AHL', 'AHL_OSP_OE_TRANS_PENDING'); -- The return line has pending transactions.
1440: FETCH chk_pending_transaction INTO l_dummy;
1441: IF (chk_pending_transaction%FOUND) THEN
1442: -- Pending receipt transaction exists for this PO line id. Raise an exception.
1443: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1444: FND_LOG.string(FND_LOG.level_statement, l_debug_key, 'Pending transactions exist for oe line id: '||p_rma_receipt_rec.RETURN_LINE_ID);
1445: END IF;
1446: CLOSE chk_pending_transaction;
1447: FND_MESSAGE.set_name('AHL', 'AHL_OSP_OE_TRANS_PENDING'); -- The return line has pending transactions.
1448: FND_MSG_PUB.ADD;
1470: OPEN get_osp_order_dtls(p_rma_receipt_rec.return_line_id);
1471: FETCH get_osp_order_dtls INTO l_osp_order_id,l_osp_order_type,l_osp_line_id,l_osp_ord_obj_ver;
1472: CLOSE get_osp_order_dtls;
1473:
1474: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1475: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_osp_order_id:'||l_osp_order_id);
1476: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_osp_order_type:'||l_osp_order_type);
1477: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_osp_line_id:'|| l_osp_line_id);
1478: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_osp_ord_obj_ver:'|| l_osp_ord_obj_ver);
1471: FETCH get_osp_order_dtls INTO l_osp_order_id,l_osp_order_type,l_osp_line_id,l_osp_ord_obj_ver;
1472: CLOSE get_osp_order_dtls;
1473:
1474: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1475: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_osp_order_id:'||l_osp_order_id);
1476: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_osp_order_type:'||l_osp_order_type);
1477: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_osp_line_id:'|| l_osp_line_id);
1478: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_osp_ord_obj_ver:'|| l_osp_ord_obj_ver);
1479: END IF;
1472: CLOSE get_osp_order_dtls;
1473:
1474: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1475: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_osp_order_id:'||l_osp_order_id);
1476: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_osp_order_type:'||l_osp_order_type);
1477: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_osp_line_id:'|| l_osp_line_id);
1478: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_osp_ord_obj_ver:'|| l_osp_ord_obj_ver);
1479: END IF;
1480:
1473:
1474: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1475: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_osp_order_id:'||l_osp_order_id);
1476: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_osp_order_type:'||l_osp_order_type);
1477: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_osp_line_id:'|| l_osp_line_id);
1478: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_osp_ord_obj_ver:'|| l_osp_ord_obj_ver);
1479: END IF;
1480:
1481: --Retrieve the Return Line details
1474: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1475: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_osp_order_id:'||l_osp_order_id);
1476: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_osp_order_type:'||l_osp_order_type);
1477: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_osp_line_id:'|| l_osp_line_id);
1478: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_osp_ord_obj_ver:'|| l_osp_ord_obj_ver);
1479: END IF;
1480:
1481: --Retrieve the Return Line details
1482: OPEN oe_order_line_details_csr(p_rma_receipt_rec.return_line_id);
1482: OPEN oe_order_line_details_csr(p_rma_receipt_rec.return_line_id);
1483: FETCH oe_order_line_details_csr INTO l_oe_order_line_rec;
1484: CLOSE oe_order_line_details_csr;
1485:
1486: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1487: 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);
1488: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_oe_order_line_rec.customer_id:'||l_oe_order_line_rec.customer_id);
1489: 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);
1490: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_oe_order_line_rec.organization_id:'||l_oe_order_line_rec.organization_id);
1483: FETCH oe_order_line_details_csr INTO l_oe_order_line_rec;
1484: CLOSE oe_order_line_details_csr;
1485:
1486: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1487: 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);
1488: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_oe_order_line_rec.customer_id:'||l_oe_order_line_rec.customer_id);
1489: 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);
1490: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_oe_order_line_rec.organization_id:'||l_oe_order_line_rec.organization_id);
1491: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_oe_order_line_rec.subinventory:'||l_oe_order_line_rec.subinventory);
1484: CLOSE oe_order_line_details_csr;
1485:
1486: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1487: 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);
1488: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_oe_order_line_rec.customer_id:'||l_oe_order_line_rec.customer_id);
1489: 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);
1490: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_oe_order_line_rec.organization_id:'||l_oe_order_line_rec.organization_id);
1491: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_oe_order_line_rec.subinventory:'||l_oe_order_line_rec.subinventory);
1492: 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);
1485:
1486: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1487: 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);
1488: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_oe_order_line_rec.customer_id:'||l_oe_order_line_rec.customer_id);
1489: 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);
1490: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_oe_order_line_rec.organization_id:'||l_oe_order_line_rec.organization_id);
1491: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_oe_order_line_rec.subinventory:'||l_oe_order_line_rec.subinventory);
1492: 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);
1493: 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);
1486: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1487: 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);
1488: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_oe_order_line_rec.customer_id:'||l_oe_order_line_rec.customer_id);
1489: 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);
1490: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_oe_order_line_rec.organization_id:'||l_oe_order_line_rec.organization_id);
1491: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_oe_order_line_rec.subinventory:'||l_oe_order_line_rec.subinventory);
1492: 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);
1493: 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);
1494: END IF;
1487: 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);
1488: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_oe_order_line_rec.customer_id:'||l_oe_order_line_rec.customer_id);
1489: 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);
1490: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_oe_order_line_rec.organization_id:'||l_oe_order_line_rec.organization_id);
1491: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_oe_order_line_rec.subinventory:'||l_oe_order_line_rec.subinventory);
1492: 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);
1493: 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);
1494: END IF;
1495:
1488: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_oe_order_line_rec.customer_id:'||l_oe_order_line_rec.customer_id);
1489: 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);
1490: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_oe_order_line_rec.organization_id:'||l_oe_order_line_rec.organization_id);
1491: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_oe_order_line_rec.subinventory:'||l_oe_order_line_rec.subinventory);
1492: 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);
1493: 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);
1494: END IF;
1495:
1496: --Part Number change is being performed
1489: 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);
1490: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_oe_order_line_rec.organization_id:'||l_oe_order_line_rec.organization_id);
1491: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_oe_order_line_rec.subinventory:'||l_oe_order_line_rec.subinventory);
1492: 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);
1493: 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);
1494: END IF;
1495:
1496: --Part Number change is being performed
1497: IF (l_part_num_change_flag) THEN
1501: OPEN get_item_number(p_rma_receipt_rec.new_item_id);
1502: FETCH get_item_number INTO l_new_item_number;
1503: CLOSE get_item_number;
1504:
1505: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1506: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_new_item_number:'||l_new_item_number);
1507: END IF;
1508: l_serialnum_change_rec.OSP_LINE_ID := l_osp_line_id;
1509: l_serialnum_change_rec.NEW_ITEM_NUMBER := l_new_item_number;
1502: FETCH get_item_number INTO l_new_item_number;
1503: CLOSE get_item_number;
1504:
1505: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1506: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_new_item_number:'||l_new_item_number);
1507: END IF;
1508: l_serialnum_change_rec.OSP_LINE_ID := l_osp_line_id;
1509: l_serialnum_change_rec.NEW_ITEM_NUMBER := l_new_item_number;
1510: l_serialnum_change_rec.NEW_ITEM_REV_NUMBER := p_rma_receipt_rec.NEW_ITEM_REV_NUMBER;
1511: l_serialnum_change_rec.NEW_LOT_NUMBER := p_rma_receipt_rec.NEW_LOT_NUMBER;
1512: l_serialnum_change_rec.NEW_SERIAL_NUMBER := p_rma_receipt_rec.NEW_SERIAL_NUMBER;
1513: l_serialnum_change_rec.NEW_SERIAL_TAG_CODE := p_rma_receipt_rec.NEW_SERIAL_TAG_CODE;
1514:
1515: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1516: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'Before calling AHL_OSP_SHIPMENT_PUB.Process_Osp_SerialNum_Change');
1517: END IF;
1518:
1519: AHL_OSP_SHIPMENT_PUB.Process_Osp_SerialNum_Change
1512: l_serialnum_change_rec.NEW_SERIAL_NUMBER := p_rma_receipt_rec.NEW_SERIAL_NUMBER;
1513: l_serialnum_change_rec.NEW_SERIAL_TAG_CODE := p_rma_receipt_rec.NEW_SERIAL_TAG_CODE;
1514:
1515: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1516: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'Before calling AHL_OSP_SHIPMENT_PUB.Process_Osp_SerialNum_Change');
1517: END IF;
1518:
1519: AHL_OSP_SHIPMENT_PUB.Process_Osp_SerialNum_Change
1520: (
1526: x_msg_count => l_msg_count,
1527: x_msg_data => l_msg_data
1528: );
1529:
1530: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1531: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'After calling AHL_OSP_SHIPMENT_PUB.Process_Osp_SerialNum_Change');
1532: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_return_status: '||l_return_status);
1533: END IF;
1534:
1527: x_msg_data => l_msg_data
1528: );
1529:
1530: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1531: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'After calling AHL_OSP_SHIPMENT_PUB.Process_Osp_SerialNum_Change');
1532: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_return_status: '||l_return_status);
1533: END IF;
1534:
1535: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1528: );
1529:
1530: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1531: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'After calling AHL_OSP_SHIPMENT_PUB.Process_Osp_SerialNum_Change');
1532: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_return_status: '||l_return_status);
1533: END IF;
1534:
1535: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1536: RAISE FND_API.G_EXC_ERROR;
1541: OPEN get_oe_line_id(l_osp_line_id);
1542: FETCH get_oe_line_id INTO l_new_oe_line_id;
1543: CLOSE get_oe_line_id;
1544:
1545: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1546: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_new_oe_line_id: '||l_new_oe_line_id);
1547: END IF;
1548:
1549: x_return_line_id := l_new_oe_line_id;
1542: FETCH get_oe_line_id INTO l_new_oe_line_id;
1543: CLOSE get_oe_line_id;
1544:
1545: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1546: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_new_oe_line_id: '||l_new_oe_line_id);
1547: END IF;
1548:
1549: x_return_line_id := l_new_oe_line_id;
1550:
1566: l_osp_order_rec.OPERATION_FLAG := 'U';
1567:
1568: --Save the OE Return Line information, before deletion
1569: l_oe_line_rec := OE_LINE_UTIL.QUERY_ROW(p_line_id => p_rma_receipt_rec.RETURN_LINE_ID);
1570: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1571: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Queried the OM Line Record');
1572: END IF;
1573:
1574: /* Convert the Service Order into Exchange Order. All the existing RMA lines will be cancelled if there was no
1567:
1568: --Save the OE Return Line information, before deletion
1569: l_oe_line_rec := OE_LINE_UTIL.QUERY_ROW(p_line_id => p_rma_receipt_rec.RETURN_LINE_ID);
1570: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1571: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Queried the OM Line Record');
1572: END IF;
1573:
1574: /* Convert the Service Order into Exchange Order. All the existing RMA lines will be cancelled if there was no
1575: receipt performed on any of the lines. */
1572: END IF;
1573:
1574: /* Convert the Service Order into Exchange Order. All the existing RMA lines will be cancelled if there was no
1575: receipt performed on any of the lines. */
1576: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1577: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'Before calling AHL_OSP_ORDERS_PVT.process_osp_order for order conversion');
1578: END IF;
1579: AHL_OSP_ORDERS_PVT.process_osp_order(
1580: p_api_version => 1.0,
1573:
1574: /* Convert the Service Order into Exchange Order. All the existing RMA lines will be cancelled if there was no
1575: receipt performed on any of the lines. */
1576: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1577: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'Before calling AHL_OSP_ORDERS_PVT.process_osp_order for order conversion');
1578: END IF;
1579: AHL_OSP_ORDERS_PVT.process_osp_order(
1580: p_api_version => 1.0,
1581: p_init_msg_list => FND_API.G_FALSE,
1587: x_return_status => l_return_status,
1588: x_msg_count => l_msg_count,
1589: x_msg_data => l_msg_data);
1590:
1591: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1592: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'After calling AHL_OSP_ORDERS_PVT.process_osp_order for order conversion');
1593: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_return_status: '||l_return_status);
1594: END IF;
1595:
1588: x_msg_count => l_msg_count,
1589: x_msg_data => l_msg_data);
1590:
1591: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1592: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'After calling AHL_OSP_ORDERS_PVT.process_osp_order for order conversion');
1593: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_return_status: '||l_return_status);
1594: END IF;
1595:
1596: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1589: x_msg_data => l_msg_data);
1590:
1591: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1592: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'After calling AHL_OSP_ORDERS_PVT.process_osp_order for order conversion');
1593: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_return_status: '||l_return_status);
1594: END IF;
1595:
1596: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1597: RAISE FND_API.G_EXC_ERROR;
1608: OPEN inv_item_ctrls_csr(p_rma_receipt_rec.EXCHANGE_ITEM_ID, p_rma_receipt_rec.receiving_org_id);
1609: FETCH inv_item_ctrls_csr INTO l_serial_control_code,l_lot_control_code,l_is_ib_trackable;
1610: CLOSE inv_item_ctrls_csr;
1611:
1612: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1613: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_serial_control_code:'||l_serial_control_code);
1614: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_lot_control_code:'||l_lot_control_code);
1615: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_is_ib_trackable:'|| l_is_ib_trackable);
1616: END IF;
1609: FETCH inv_item_ctrls_csr INTO l_serial_control_code,l_lot_control_code,l_is_ib_trackable;
1610: CLOSE inv_item_ctrls_csr;
1611:
1612: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1613: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_serial_control_code:'||l_serial_control_code);
1614: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_lot_control_code:'||l_lot_control_code);
1615: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_is_ib_trackable:'|| l_is_ib_trackable);
1616: END IF;
1617: IF(l_is_ib_trackable = 'Y') THEN
1610: CLOSE inv_item_ctrls_csr;
1611:
1612: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1613: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_serial_control_code:'||l_serial_control_code);
1614: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_lot_control_code:'||l_lot_control_code);
1615: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_is_ib_trackable:'|| l_is_ib_trackable);
1616: END IF;
1617: IF(l_is_ib_trackable = 'Y') THEN
1618: l_derived_instance_id := null;
1611:
1612: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1613: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_serial_control_code:'||l_serial_control_code);
1614: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_lot_control_code:'||l_lot_control_code);
1615: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_is_ib_trackable:'|| l_is_ib_trackable);
1616: END IF;
1617: IF(l_is_ib_trackable = 'Y') THEN
1618: l_derived_instance_id := null;
1619: OPEN get_instance_id(p_rma_receipt_rec.EXCHANGE_ITEM_ID,p_rma_receipt_rec.exchange_serial_number);
1618: l_derived_instance_id := null;
1619: OPEN get_instance_id(p_rma_receipt_rec.EXCHANGE_ITEM_ID,p_rma_receipt_rec.exchange_serial_number);
1620: FETCH get_instance_id INTO l_derived_instance_id;
1621: CLOSE get_instance_id;
1622: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1623: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_derived_instance_id:'||l_derived_instance_id);
1624: END IF;
1625: END IF;
1626:
1619: OPEN get_instance_id(p_rma_receipt_rec.EXCHANGE_ITEM_ID,p_rma_receipt_rec.exchange_serial_number);
1620: FETCH get_instance_id INTO l_derived_instance_id;
1621: CLOSE get_instance_id;
1622: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1623: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_derived_instance_id:'||l_derived_instance_id);
1624: END IF;
1625: END IF;
1626:
1627: --First compare the exchange_item_id with the item on the return line.
1635: IF(l_is_ib_trackable = 'Y') THEN
1636: OPEN get_osp_order_line_dtls(l_osp_line_id);
1637: FETCH get_osp_order_line_dtls INTO l_osp_order_line_rec;
1638: CLOSE get_osp_order_line_dtls;
1639: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1640: 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);
1641: END IF;
1642: IF(nvl(l_derived_instance_id,-1) <> nvl(l_osp_order_line_rec.exchange_instance_id,-1)) THEN
1643: AHL_OSP_SHIPMENT_PUB.Delete_IB_Transaction(
1636: OPEN get_osp_order_line_dtls(l_osp_line_id);
1637: FETCH get_osp_order_line_dtls INTO l_osp_order_line_rec;
1638: CLOSE get_osp_order_line_dtls;
1639: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1640: 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);
1641: END IF;
1642: IF(nvl(l_derived_instance_id,-1) <> nvl(l_osp_order_line_rec.exchange_instance_id,-1)) THEN
1643: AHL_OSP_SHIPMENT_PUB.Delete_IB_Transaction(
1644: p_init_msg_list => FND_API.G_FALSE, --p_init_msg_list,
1655: ELSE--item on the oe order line is different from that of the exchange instance entered by the user
1656: --Cancel the RMA line
1657: --Save the OE Return Line information, before deletion
1658: l_oe_line_rec := OE_LINE_UTIL.QUERY_ROW(p_line_id => p_rma_receipt_rec.RETURN_LINE_ID);
1659: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1660: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Queried the OM Line Record');
1661: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Before calling the Delete_Cancel_Order');
1662: END IF;
1663:
1656: --Cancel the RMA line
1657: --Save the OE Return Line information, before deletion
1658: l_oe_line_rec := OE_LINE_UTIL.QUERY_ROW(p_line_id => p_rma_receipt_rec.RETURN_LINE_ID);
1659: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1660: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Queried the OM Line Record');
1661: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Before calling the Delete_Cancel_Order');
1662: END IF;
1663:
1664: l_del_oe_lines_tbl(1) := p_rma_receipt_rec.return_line_id;
1657: --Save the OE Return Line information, before deletion
1658: l_oe_line_rec := OE_LINE_UTIL.QUERY_ROW(p_line_id => p_rma_receipt_rec.RETURN_LINE_ID);
1659: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1660: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Queried the OM Line Record');
1661: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Before calling the Delete_Cancel_Order');
1662: END IF;
1663:
1664: l_del_oe_lines_tbl(1) := p_rma_receipt_rec.return_line_id;
1665: AHL_OSP_SHIPMENT_PUB.Delete_Cancel_Order (
1672: x_return_status => l_return_status ,
1673: x_msg_count => l_msg_count ,
1674: x_msg_data => l_msg_data
1675: );
1676: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1677: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Returned from Delete_Cancel_Order, l_return_status = ' || l_return_status);
1678: END IF;
1679: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1680: RAISE FND_API.G_EXC_ERROR;
1673: x_msg_count => l_msg_count ,
1674: x_msg_data => l_msg_data
1675: );
1676: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1677: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Returned from Delete_Cancel_Order, l_return_status = ' || l_return_status);
1678: END IF;
1679: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1680: RAISE FND_API.G_EXC_ERROR;
1681: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1685: END IF;--IF(l_oe_order_line_rec.inventory_item_id = p_rma_receipt_rec.EXCHANGE_ITEM_ID) THEN
1686: END IF;--IF(l_osp_order_type = AHL_OSP_ORDERS_PVT.G_OSP_ORDER_TYPE_SERVICE) THEN
1687:
1688: --The following holds good for both service orders and exchange orders
1689: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1690: IF(l_rma_line_canceled) THEN
1691: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_rma_line_canceled: true');
1692: ELSE
1693: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_rma_line_canceled: false');
1687:
1688: --The following holds good for both service orders and exchange orders
1689: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1690: IF(l_rma_line_canceled) THEN
1691: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_rma_line_canceled: true');
1692: ELSE
1693: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_rma_line_canceled: false');
1694: END IF;
1695: IF(l_ib_trans_deleted) THEN
1689: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1690: IF(l_rma_line_canceled) THEN
1691: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_rma_line_canceled: true');
1692: ELSE
1693: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_rma_line_canceled: false');
1694: END IF;
1695: IF(l_ib_trans_deleted) THEN
1696: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_ib_trans_deleted: true');
1697: ELSE
1692: ELSE
1693: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_rma_line_canceled: false');
1694: END IF;
1695: IF(l_ib_trans_deleted) THEN
1696: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_ib_trans_deleted: true');
1697: ELSE
1698: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_ib_trans_deleted: false');
1699: END IF;
1700: END IF;
1694: END IF;
1695: IF(l_ib_trans_deleted) THEN
1696: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_ib_trans_deleted: true');
1697: ELSE
1698: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_ib_trans_deleted: false');
1699: END IF;
1700: END IF;
1701:
1702: IF(l_rma_line_canceled) THEN
1719: l_oe_lot_serial_tbl(1).line_index := 1;
1720: l_oe_lot_serial_tbl(1).operation := OE_GLOBALS.G_OPR_CREATE;
1721: END IF;
1722: /*Create the new RMA line*/
1723: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1724: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to call OE_ORDER_GRP.PROCESS_ORDER');
1725: END IF;
1726:
1727: OE_ORDER_GRP.PROCESS_ORDER(
1720: l_oe_lot_serial_tbl(1).operation := OE_GLOBALS.G_OPR_CREATE;
1721: END IF;
1722: /*Create the new RMA line*/
1723: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1724: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to call OE_ORDER_GRP.PROCESS_ORDER');
1725: END IF;
1726:
1727: OE_ORDER_GRP.PROCESS_ORDER(
1728: p_api_version_number => 1.0,
1759:
1760: --populate the return_line_id with the one that was created in the OM API call.
1761: x_return_line_id := x_line_tbl(1).line_id;
1762:
1763: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1764: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Completed OE_ORDER_GRP.PROCESS_ORDER, x_return_status = ' || x_return_status);
1765: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'x_return_line_id = ' || x_return_line_id);
1766: END IF;
1767:
1760: --populate the return_line_id with the one that was created in the OM API call.
1761: x_return_line_id := x_line_tbl(1).line_id;
1762:
1763: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1764: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Completed OE_ORDER_GRP.PROCESS_ORDER, x_return_status = ' || x_return_status);
1765: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'x_return_line_id = ' || x_return_line_id);
1766: END IF;
1767:
1768: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1761: x_return_line_id := x_line_tbl(1).line_id;
1762:
1763: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1764: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Completed OE_ORDER_GRP.PROCESS_ORDER, x_return_status = ' || x_return_status);
1765: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'x_return_line_id = ' || x_return_line_id);
1766: END IF;
1767:
1768: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1769: FOR i IN 1..x_msg_count LOOP
1773: p_msg_index_out => l_msg_index_out);
1774: fnd_msg_pub.add_exc_msg(p_pkg_name => 'OE_ORDER_PUB',
1775: p_procedure_name => 'processOrder',
1776: p_error_text => substr(l_msg_data,1,240));
1777: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1778: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'OE:Err Msg '||i||'.' || l_msg_data);
1779: END IF;
1780:
1781: END LOOP;
1774: fnd_msg_pub.add_exc_msg(p_pkg_name => 'OE_ORDER_PUB',
1775: p_procedure_name => 'processOrder',
1776: p_error_text => substr(l_msg_data,1,240));
1777: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1778: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'OE:Err Msg '||i||'.' || l_msg_data);
1779: END IF;
1780:
1781: END LOOP;
1782: END IF;
1791: OPEN get_same_phyitem_order_lines(l_osp_line_id);
1792: LOOP
1793: FETCH get_same_phyitem_order_lines INTO l_same_ser_ospline_id;
1794: EXIT WHEN get_same_phyitem_order_lines%NOTFOUND;
1795: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1796: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_same_ser_ospline_id: ' || l_same_ser_ospline_id);
1797: END IF;
1798: Update_OSP_Order_Lines(
1799: p_osp_order_id => l_osp_order_id,
1792: LOOP
1793: FETCH get_same_phyitem_order_lines INTO l_same_ser_ospline_id;
1794: EXIT WHEN get_same_phyitem_order_lines%NOTFOUND;
1795: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1796: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_same_ser_ospline_id: ' || l_same_ser_ospline_id);
1797: END IF;
1798: Update_OSP_Order_Lines(
1799: p_osp_order_id => l_osp_order_id,
1800: p_osp_line_id => l_same_ser_ospline_id,
1809: OPEN get_same_phyitem_order_lines(l_osp_line_id);
1810: LOOP
1811: FETCH get_same_phyitem_order_lines INTO l_same_ser_ospline_id;
1812: EXIT WHEN get_same_phyitem_order_lines%NOTFOUND;
1813: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1814: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_same_ser_ospline_id: ' || l_same_ser_ospline_id);
1815: END IF;
1816: Update_OSP_Line_Exch_Instance(
1817: p_osp_order_id => l_osp_order_id,
1810: LOOP
1811: FETCH get_same_phyitem_order_lines INTO l_same_ser_ospline_id;
1812: EXIT WHEN get_same_phyitem_order_lines%NOTFOUND;
1813: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1814: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_same_ser_ospline_id: ' || l_same_ser_ospline_id);
1815: END IF;
1816: Update_OSP_Line_Exch_Instance(
1817: p_osp_order_id => l_osp_order_id,
1818: p_osp_line_id => l_same_ser_ospline_id,
1819: p_exchange_instance_id => l_derived_instance_id);
1820: END LOOP;
1821: CLOSE get_same_phyitem_order_lines;
1822:
1823: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1824: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Before calling Create_IB_Transaction ' );
1825: END IF;
1826:
1827: /* Create the new IB transaction */
1820: END LOOP;
1821: CLOSE get_same_phyitem_order_lines;
1822:
1823: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1824: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Before calling Create_IB_Transaction ' );
1825: END IF;
1826:
1827: /* Create the new IB transaction */
1828: AHL_OSP_SHIPMENT_PUB.Create_IB_Transaction(
1836: p_oe_line_type => 'RETURN',
1837: p_oe_line_id => nvl(x_return_line_id,p_rma_receipt_rec.return_line_id),
1838: p_csi_instance_id => l_derived_instance_id);
1839:
1840: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1841: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Return status from Create_IB_Transaction: ' || l_return_status);
1842: END IF;
1843:
1844: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1837: p_oe_line_id => nvl(x_return_line_id,p_rma_receipt_rec.return_line_id),
1838: p_csi_instance_id => l_derived_instance_id);
1839:
1840: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1841: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Return status from Create_IB_Transaction: ' || l_return_status);
1842: END IF;
1843:
1844: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1845: RAISE FND_API.G_EXC_ERROR;
1851:
1852: END IF;--IF (l_part_num_change_flag) THEN
1853:
1854: l_return_line_id := nvl(x_return_line_id,p_rma_receipt_rec.return_line_id);
1855: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1856: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_return_line_id:'||l_return_line_id);
1857: END IF;
1858:
1859: IF(x_return_line_id is not null) THEN
1852: END IF;--IF (l_part_num_change_flag) THEN
1853:
1854: l_return_line_id := nvl(x_return_line_id,p_rma_receipt_rec.return_line_id);
1855: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1856: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_return_line_id:'||l_return_line_id);
1857: END IF;
1858:
1859: IF(x_return_line_id is not null) THEN
1860: --New return line has been created. Retrieve the Return Line details
1861: OPEN oe_order_line_details_csr(x_return_line_id);
1862: FETCH oe_order_line_details_csr INTO l_oe_order_line_rec;
1863: CLOSE oe_order_line_details_csr;
1864:
1865: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1866: 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);
1867: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_oe_order_line_rec.customer_id:'||l_oe_order_line_rec.customer_id);
1868: 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);
1869: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_oe_order_line_rec.organization_id:'||l_oe_order_line_rec.organization_id);
1862: FETCH oe_order_line_details_csr INTO l_oe_order_line_rec;
1863: CLOSE oe_order_line_details_csr;
1864:
1865: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1866: 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);
1867: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_oe_order_line_rec.customer_id:'||l_oe_order_line_rec.customer_id);
1868: 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);
1869: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_oe_order_line_rec.organization_id:'||l_oe_order_line_rec.organization_id);
1870: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_oe_order_line_rec.subinventory:'||l_oe_order_line_rec.subinventory);
1863: CLOSE oe_order_line_details_csr;
1864:
1865: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1866: 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);
1867: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_oe_order_line_rec.customer_id:'||l_oe_order_line_rec.customer_id);
1868: 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);
1869: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_oe_order_line_rec.organization_id:'||l_oe_order_line_rec.organization_id);
1870: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_oe_order_line_rec.subinventory:'||l_oe_order_line_rec.subinventory);
1871: 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);
1864:
1865: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1866: 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);
1867: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_oe_order_line_rec.customer_id:'||l_oe_order_line_rec.customer_id);
1868: 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);
1869: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_oe_order_line_rec.organization_id:'||l_oe_order_line_rec.organization_id);
1870: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_oe_order_line_rec.subinventory:'||l_oe_order_line_rec.subinventory);
1871: 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);
1872: 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);
1865: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1866: 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);
1867: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_oe_order_line_rec.customer_id:'||l_oe_order_line_rec.customer_id);
1868: 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);
1869: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_oe_order_line_rec.organization_id:'||l_oe_order_line_rec.organization_id);
1870: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_oe_order_line_rec.subinventory:'||l_oe_order_line_rec.subinventory);
1871: 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);
1872: 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);
1873: END IF;
1866: 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);
1867: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_oe_order_line_rec.customer_id:'||l_oe_order_line_rec.customer_id);
1868: 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);
1869: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_oe_order_line_rec.organization_id:'||l_oe_order_line_rec.organization_id);
1870: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_oe_order_line_rec.subinventory:'||l_oe_order_line_rec.subinventory);
1871: 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);
1872: 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);
1873: END IF;
1874:
1867: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_oe_order_line_rec.customer_id:'||l_oe_order_line_rec.customer_id);
1868: 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);
1869: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_oe_order_line_rec.organization_id:'||l_oe_order_line_rec.organization_id);
1870: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_oe_order_line_rec.subinventory:'||l_oe_order_line_rec.subinventory);
1871: 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);
1872: 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);
1873: END IF;
1874:
1875: END IF;
1868: 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);
1869: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_oe_order_line_rec.organization_id:'||l_oe_order_line_rec.organization_id);
1870: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_oe_order_line_rec.subinventory:'||l_oe_order_line_rec.subinventory);
1871: 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);
1872: 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);
1873: END IF;
1874:
1875: END IF;
1876:
1878: OPEN get_err_tranansaction_dtls(p_rma_receipt_rec.RETURN_LINE_ID);
1879: FETCH get_err_tranansaction_dtls INTO l_err_intf_trans_id,l_err_intf_hdr_id;
1880: CLOSE get_err_tranansaction_dtls;
1881:
1882: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1883: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_err_intf_trans_id:'||l_err_intf_trans_id);
1884: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_err_intf_hdr_id:'||l_err_intf_hdr_id);
1885: END IF;
1886:
1879: FETCH get_err_tranansaction_dtls INTO l_err_intf_trans_id,l_err_intf_hdr_id;
1880: CLOSE get_err_tranansaction_dtls;
1881:
1882: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1883: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_err_intf_trans_id:'||l_err_intf_trans_id);
1884: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_err_intf_hdr_id:'||l_err_intf_hdr_id);
1885: END IF;
1886:
1887: IF(l_err_intf_trans_id is not NULL) THEN
1880: CLOSE get_err_tranansaction_dtls;
1881:
1882: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1883: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_err_intf_trans_id:'||l_err_intf_trans_id);
1884: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_err_intf_hdr_id:'||l_err_intf_hdr_id);
1885: END IF;
1886:
1887: IF(l_err_intf_trans_id is not NULL) THEN
1888: --Delete the pending transactions.
1885: END IF;
1886:
1887: IF(l_err_intf_trans_id is not NULL) THEN
1888: --Delete the pending transactions.
1889: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1890: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'Deleting the pending transactions');
1891: END IF;
1892:
1893: DELETE FROM PO_INTERFACE_ERRORS
1886:
1887: IF(l_err_intf_trans_id is not NULL) THEN
1888: --Delete the pending transactions.
1889: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1890: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'Deleting the pending transactions');
1891: END IF;
1892:
1893: DELETE FROM PO_INTERFACE_ERRORS
1894: WHERE INTERFACE_LINE_ID = l_err_intf_trans_id
1905:
1906: DELETE FROM RCV_HEADERS_INTERFACE
1907: WHERE HEADER_INTERFACE_ID = l_err_intf_hdr_id;
1908:
1909: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1910: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'Deleted the pending transactions');
1911: END IF;
1912: END IF;
1913:
1906: DELETE FROM RCV_HEADERS_INTERFACE
1907: WHERE HEADER_INTERFACE_ID = l_err_intf_hdr_id;
1908:
1909: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1910: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'Deleted the pending transactions');
1911: END IF;
1912: END IF;
1913:
1914: --Initialize the sequences that are to be used.
1959: 'DELIVER', --AUTO_TRANSACT_CODE
1960: l_employee_id --EMPLOYEE_ID
1961: );
1962:
1963: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1964: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_intf_hdr_id:'||l_intf_hdr_id);
1965: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_group_id:'||l_group_id);
1966: END IF;
1967:
1960: l_employee_id --EMPLOYEE_ID
1961: );
1962:
1963: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1964: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_intf_hdr_id:'||l_intf_hdr_id);
1965: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_group_id:'||l_group_id);
1966: END IF;
1967:
1968: INSERT INTO RCV_TRANSACTIONS_INTERFACE
1961: );
1962:
1963: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1964: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_intf_hdr_id:'||l_intf_hdr_id);
1965: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_group_id:'||l_group_id);
1966: END IF;
1967:
1968: INSERT INTO RCV_TRANSACTIONS_INTERFACE
1969: (
2022: 'AHL', --INTERFACE_SOURCE_CODE
2023: p_rma_receipt_rec.receipt_uom_code --UOM_CODE
2024: );
2025:
2026: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2027: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_intf_transaction_id:'||l_intf_transaction_id);
2028: END IF;
2029:
2030: IF(l_osp_line_id is NULL) THEN
2023: p_rma_receipt_rec.receipt_uom_code --UOM_CODE
2024: );
2025:
2026: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2027: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_intf_transaction_id:'||l_intf_transaction_id);
2028: END IF;
2029:
2030: IF(l_osp_line_id is NULL) THEN
2031: --The return is being performed for a spare part. Retrieve the lot and serial from the oe_lot_serial record
2031: --The return is being performed for a spare part. Retrieve the lot and serial from the oe_lot_serial record
2032: OPEN ahl_oe_lot_serial_id_csr(p_rma_receipt_rec.return_line_id);
2033: FETCH ahl_oe_lot_serial_id_csr INTO l_oe_lot_serial_rec;
2034: CLOSE ahl_oe_lot_serial_id_csr;
2035: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2036: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_oe_lot_serial_rec.lot_number:'||l_oe_lot_serial_rec.lot_number);
2037: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_oe_lot_serial_rec.serial_number:'||l_oe_lot_serial_rec.serial_number);
2038: END IF;
2039: ELSE
2032: OPEN ahl_oe_lot_serial_id_csr(p_rma_receipt_rec.return_line_id);
2033: FETCH ahl_oe_lot_serial_id_csr INTO l_oe_lot_serial_rec;
2034: CLOSE ahl_oe_lot_serial_id_csr;
2035: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2036: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_oe_lot_serial_rec.lot_number:'||l_oe_lot_serial_rec.lot_number);
2037: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_oe_lot_serial_rec.serial_number:'||l_oe_lot_serial_rec.serial_number);
2038: END IF;
2039: ELSE
2040: OPEN get_osp_order_line_dtls(l_osp_line_id);
2033: FETCH ahl_oe_lot_serial_id_csr INTO l_oe_lot_serial_rec;
2034: CLOSE ahl_oe_lot_serial_id_csr;
2035: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2036: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_oe_lot_serial_rec.lot_number:'||l_oe_lot_serial_rec.lot_number);
2037: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_oe_lot_serial_rec.serial_number:'||l_oe_lot_serial_rec.serial_number);
2038: END IF;
2039: ELSE
2040: OPEN get_osp_order_line_dtls(l_osp_line_id);
2041: FETCH get_osp_order_line_dtls INTO l_osp_order_line_rec;
2039: ELSE
2040: OPEN get_osp_order_line_dtls(l_osp_line_id);
2041: FETCH get_osp_order_line_dtls INTO l_osp_order_line_rec;
2042: CLOSE get_osp_order_line_dtls;
2043: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2044: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_osp_order_line_rec.inventory_item_id:'
2045: ||l_osp_order_line_rec.inventory_item_id);
2046: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_osp_order_line_rec.lot_number:'||l_osp_order_line_rec.lot_number);
2047: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_osp_order_line_rec.serial_number:'||l_osp_order_line_rec.serial_number);
2040: OPEN get_osp_order_line_dtls(l_osp_line_id);
2041: FETCH get_osp_order_line_dtls INTO l_osp_order_line_rec;
2042: CLOSE get_osp_order_line_dtls;
2043: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2044: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_osp_order_line_rec.inventory_item_id:'
2045: ||l_osp_order_line_rec.inventory_item_id);
2046: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_osp_order_line_rec.lot_number:'||l_osp_order_line_rec.lot_number);
2047: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_osp_order_line_rec.serial_number:'||l_osp_order_line_rec.serial_number);
2048: END IF;
2042: CLOSE get_osp_order_line_dtls;
2043: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2044: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_osp_order_line_rec.inventory_item_id:'
2045: ||l_osp_order_line_rec.inventory_item_id);
2046: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_osp_order_line_rec.lot_number:'||l_osp_order_line_rec.lot_number);
2047: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_osp_order_line_rec.serial_number:'||l_osp_order_line_rec.serial_number);
2048: END IF;
2049: END IF;
2050:
2043: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2044: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_osp_order_line_rec.inventory_item_id:'
2045: ||l_osp_order_line_rec.inventory_item_id);
2046: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_osp_order_line_rec.lot_number:'||l_osp_order_line_rec.lot_number);
2047: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_osp_order_line_rec.serial_number:'||l_osp_order_line_rec.serial_number);
2048: END IF;
2049: END IF;
2050:
2051: OPEN inv_item_ctrls_csr(l_oe_order_line_rec.inventory_item_id, p_rma_receipt_rec.receiving_org_id);
2051: OPEN inv_item_ctrls_csr(l_oe_order_line_rec.inventory_item_id, p_rma_receipt_rec.receiving_org_id);
2052: FETCH inv_item_ctrls_csr INTO l_serial_control_code,l_lot_control_code,l_is_ib_trackable;
2053: CLOSE inv_item_ctrls_csr;
2054:
2055: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2056: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_serial_control_code:'||l_serial_control_code);
2057: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_lot_control_code:'||l_lot_control_code);
2058: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_is_ib_trackable:'|| l_is_ib_trackable);
2059: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_osp_order_type:'|| l_osp_order_type);
2052: FETCH inv_item_ctrls_csr INTO l_serial_control_code,l_lot_control_code,l_is_ib_trackable;
2053: CLOSE inv_item_ctrls_csr;
2054:
2055: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2056: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_serial_control_code:'||l_serial_control_code);
2057: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_lot_control_code:'||l_lot_control_code);
2058: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_is_ib_trackable:'|| l_is_ib_trackable);
2059: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_osp_order_type:'|| l_osp_order_type);
2060: END IF;
2053: CLOSE inv_item_ctrls_csr;
2054:
2055: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2056: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_serial_control_code:'||l_serial_control_code);
2057: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_lot_control_code:'||l_lot_control_code);
2058: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_is_ib_trackable:'|| l_is_ib_trackable);
2059: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_osp_order_type:'|| l_osp_order_type);
2060: END IF;
2061:
2054:
2055: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2056: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_serial_control_code:'||l_serial_control_code);
2057: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_lot_control_code:'||l_lot_control_code);
2058: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_is_ib_trackable:'|| l_is_ib_trackable);
2059: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_osp_order_type:'|| l_osp_order_type);
2060: END IF;
2061:
2062: IF(l_is_ib_trackable = 'Y') THEN
2055: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2056: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_serial_control_code:'||l_serial_control_code);
2057: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_lot_control_code:'||l_lot_control_code);
2058: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_is_ib_trackable:'|| l_is_ib_trackable);
2059: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_osp_order_type:'|| l_osp_order_type);
2060: END IF;
2061:
2062: IF(l_is_ib_trackable = 'Y') THEN
2063: OPEN get_IB_subtrns_inst_dtls_csr(l_return_line_id);
2112: END IF;
2113: END IF;--IF(l_osp_order_type = 'SERVICE')
2114: END IF;--IF (l_lot_control_code = 1)
2115:
2116: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2117: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_trans_serial_number:'||l_trans_serial_number);
2118: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_trans_lot_number:'||l_trans_lot_number);
2119: END IF;
2120:
2113: END IF;--IF(l_osp_order_type = 'SERVICE')
2114: END IF;--IF (l_lot_control_code = 1)
2115:
2116: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2117: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_trans_serial_number:'||l_trans_serial_number);
2118: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_trans_lot_number:'||l_trans_lot_number);
2119: END IF;
2120:
2121: IF(l_trans_lot_number is not null) THEN
2114: END IF;--IF (l_lot_control_code = 1)
2115:
2116: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2117: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_trans_serial_number:'||l_trans_serial_number);
2118: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_trans_lot_number:'||l_trans_lot_number);
2119: END IF;
2120:
2121: IF(l_trans_lot_number is not null) THEN
2122: INSERT INTO MTL_TRANSACTION_LOTS_INTERFACE
2179: );
2180: END IF;
2181:
2182: l_curr_org_id := MO_GLOBAL.get_current_org_id();
2183: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2184: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_curr_org_id:'||l_curr_org_id);
2185: END IF;
2186: FND_REQUEST.SET_ORG_ID(l_curr_org_id);
2187: --Invoke the 'Receiving Transaction Processor' Concurrent Program
2180: END IF;
2181:
2182: l_curr_org_id := MO_GLOBAL.get_current_org_id();
2183: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2184: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_debug_key, 'l_curr_org_id:'||l_curr_org_id);
2185: END IF;
2186: FND_REQUEST.SET_ORG_ID(l_curr_org_id);
2187: --Invoke the 'Receiving Transaction Processor' Concurrent Program
2188: l_request_id := FND_REQUEST.SUBMIT_REQUEST(
2194: argument3 => l_curr_org_id -- Operating Unit (Vision Project Manufacturing USD)
2195: );
2196:
2197: IF (l_request_id = 0) THEN
2198: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2199: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
2200: 'Concurrent request failed.');
2201: END IF;
2202: ELSE
2195: );
2196:
2197: IF (l_request_id = 0) THEN
2198: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2199: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
2200: 'Concurrent request failed.');
2201: END IF;
2202: ELSE
2203: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2199: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
2200: 'Concurrent request failed.');
2201: END IF;
2202: ELSE
2203: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2204: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
2205: 'Concurrent request successful. Request id: '||l_request_id);
2206: END IF;
2207: END IF;
2200: 'Concurrent request failed.');
2201: END IF;
2202: ELSE
2203: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2204: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
2205: 'Concurrent request successful. Request id: '||l_request_id);
2206: END IF;
2207: END IF;
2208:
2220: IF FND_API.TO_BOOLEAN(p_commit) THEN
2221: COMMIT WORK;
2222: END IF;
2223:
2224: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
2225: FND_LOG.string(FND_LOG.level_procedure, l_debug_key || '.end', 'End of the API.'||
2226: ' x_request_id: '||x_request_id||
2227: ', x_return_line_id: '||x_return_line_id);
2228: END IF;
2221: COMMIT WORK;
2222: END IF;
2223:
2224: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
2225: FND_LOG.string(FND_LOG.level_procedure, l_debug_key || '.end', 'End of the API.'||
2226: ' x_request_id: '||x_request_id||
2227: ', x_return_line_id: '||x_return_line_id);
2228: END IF;
2229: EXCEPTION
2327: l_return_line_qty_rec get_oe_quantities%ROWTYPE;
2328: --
2329:
2330: BEGIN
2331: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
2332: FND_LOG.string(FND_LOG.level_procedure, l_debug_key||'.begin', 'Start of the API.');
2333: END IF;
2334:
2335: -- Check for necessary/mandatory fields.
2328: --
2329:
2330: BEGIN
2331: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
2332: FND_LOG.string(FND_LOG.level_procedure, l_debug_key||'.begin', 'Start of the API.');
2333: END IF;
2334:
2335: -- Check for necessary/mandatory fields.
2336: IF (p_rma_receipt_rec.return_line_id IS NULL OR p_rma_receipt_rec.receiving_org_id IS NULL OR
2336: IF (p_rma_receipt_rec.return_line_id IS NULL OR p_rma_receipt_rec.receiving_org_id IS NULL OR
2337: p_rma_receipt_rec.receiving_subinventory IS NULL OR p_rma_receipt_rec.receipt_quantity IS NULL OR
2338: p_rma_receipt_rec.receipt_uom_code IS NULL OR p_rma_receipt_rec.receipt_date IS NULL) THEN
2339: -- Add an error message to the FND stack.
2340: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2341: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
2342: 'Mandatory fields have not been entered.');
2343: END IF;
2344:
2337: p_rma_receipt_rec.receiving_subinventory IS NULL OR p_rma_receipt_rec.receipt_quantity IS NULL OR
2338: p_rma_receipt_rec.receipt_uom_code IS NULL OR p_rma_receipt_rec.receipt_date IS NULL) THEN
2339: -- Add an error message to the FND stack.
2340: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2341: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
2342: 'Mandatory fields have not been entered.');
2343: END IF;
2344:
2345: FND_MESSAGE.set_name('AHL', 'AHL_COM_REQD_PARAM_MISSING'); -- Required parameter is missing.
2364:
2365: -- Check for the flags l_part_num_change_flag and l_exchange_flag.
2366: IF (l_part_num_change_flag AND l_exchange_flag) THEN
2367: -- Add an error message to the FND stack as part number change and exchange cannot be done together.
2368: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2369: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
2370: 'Part number change and exchange cannot be done together.');
2371: END IF;
2372:
2365: -- Check for the flags l_part_num_change_flag and l_exchange_flag.
2366: IF (l_part_num_change_flag AND l_exchange_flag) THEN
2367: -- Add an error message to the FND stack as part number change and exchange cannot be done together.
2368: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2369: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
2370: 'Part number change and exchange cannot be done together.');
2371: END IF;
2372:
2373: FND_MESSAGE.set_name('AHL', 'AHL_OSP_NO_PN_CHG_EXCHG_TGTHR'); -- Part number change and Exchange cannot be done together.
2381: OPEN chk_return_line(p_rma_receipt_rec.return_line_id);
2382: FETCH chk_return_line INTO l_dummy;
2383: IF (chk_return_line%NOTFOUND) THEN
2384: -- Add an error message as the given return line is invalid.
2385: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2386: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
2387: 'Return line: '||p_rma_receipt_rec.return_line_id||' is invalid.');
2388: END IF;
2389:
2382: FETCH chk_return_line INTO l_dummy;
2383: IF (chk_return_line%NOTFOUND) THEN
2384: -- Add an error message as the given return line is invalid.
2385: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2386: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
2387: 'Return line: '||p_rma_receipt_rec.return_line_id||' is invalid.');
2388: END IF;
2389:
2390: FND_MESSAGE.set_name('AHL', 'AHL_OSP_RMA_LINE_INVALID'); -- Return line is invalid.
2399: OPEN chk_shipment_booked(p_rma_receipt_rec.return_line_id);
2400: FETCH chk_shipment_booked INTO l_oe_header_id;
2401: IF (chk_shipment_booked%NOTFOUND) THEN
2402: -- Add an error message as the shipment is not booked.
2403: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2404: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
2405: 'Shipment order: '||l_oe_header_id||' is not booked.');
2406: END IF;
2407:
2400: FETCH chk_shipment_booked INTO l_oe_header_id;
2401: IF (chk_shipment_booked%NOTFOUND) THEN
2402: -- Add an error message as the shipment is not booked.
2403: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2404: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
2405: 'Shipment order: '||l_oe_header_id||' is not booked.');
2406: END IF;
2407:
2408: FND_MESSAGE.set_name('AHL', 'AHL_OSP_RMA_SHPMNT_NOT_BKD'); -- Shipment is not booked.
2419: FETCH get_osp_ship_line_id INTO l_oe_ship_line_id;
2420: IF (get_osp_ship_line_id%FOUND) THEN
2421: -- Add an error message if the ship line id is NULL.
2422: IF (l_oe_ship_line_id IS NULL) THEN
2423: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2424: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
2425: 'Ship line id for the return line: '||p_rma_receipt_rec.return_line_id||' is NULL.');
2426: END IF;
2427:
2420: IF (get_osp_ship_line_id%FOUND) THEN
2421: -- Add an error message if the ship line id is NULL.
2422: IF (l_oe_ship_line_id IS NULL) THEN
2423: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2424: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
2425: 'Ship line id for the return line: '||p_rma_receipt_rec.return_line_id||' is NULL.');
2426: END IF;
2427:
2428: FND_MESSAGE.set_name('AHL', 'AHL_OSP_SHIP_LINE_NULL'); -- Shipment line does not exist for this return line.
2435: OPEN get_oe_quantities(l_oe_ship_line_id);
2436: FETCH get_oe_quantities INTO l_ship_line_qty_rec;
2437: CLOSE get_oe_quantities;
2438:
2439: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2440: FND_LOG.string(FND_LOG.level_statement, l_debug_key, 'l_oe_ship_line_id: '||l_oe_ship_line_id);
2441: FND_LOG.string(FND_LOG.level_statement, l_debug_key, 'l_ship_line_qty_rec.shipped_quantity: '||l_ship_line_qty_rec.shipped_quantity);
2442: END IF;
2443:
2436: FETCH get_oe_quantities INTO l_ship_line_qty_rec;
2437: CLOSE get_oe_quantities;
2438:
2439: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2440: FND_LOG.string(FND_LOG.level_statement, l_debug_key, 'l_oe_ship_line_id: '||l_oe_ship_line_id);
2441: FND_LOG.string(FND_LOG.level_statement, l_debug_key, 'l_ship_line_qty_rec.shipped_quantity: '||l_ship_line_qty_rec.shipped_quantity);
2442: END IF;
2443:
2444: -- Shipment should have been done for any receipt to take place. For this, check the shipped quantity.
2437: CLOSE get_oe_quantities;
2438:
2439: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2440: FND_LOG.string(FND_LOG.level_statement, l_debug_key, 'l_oe_ship_line_id: '||l_oe_ship_line_id);
2441: FND_LOG.string(FND_LOG.level_statement, l_debug_key, 'l_ship_line_qty_rec.shipped_quantity: '||l_ship_line_qty_rec.shipped_quantity);
2442: END IF;
2443:
2444: -- Shipment should have been done for any receipt to take place. For this, check the shipped quantity.
2445: -- If the shipped quantity is NULL or zero, it means shipment hasn't been done yet. Add an error message.
2443:
2444: -- Shipment should have been done for any receipt to take place. For this, check the shipped quantity.
2445: -- If the shipped quantity is NULL or zero, it means shipment hasn't been done yet. Add an error message.
2446: IF (l_ship_line_qty_rec.shipped_quantity IS NULL OR l_ship_line_qty_rec.shipped_quantity = 0) THEN
2447: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2448: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
2449: 'Shipment for the return line: '||p_rma_receipt_rec.return_line_id||' has not been done yet.');
2450: END IF;
2451:
2444: -- Shipment should have been done for any receipt to take place. For this, check the shipped quantity.
2445: -- If the shipped quantity is NULL or zero, it means shipment hasn't been done yet. Add an error message.
2446: IF (l_ship_line_qty_rec.shipped_quantity IS NULL OR l_ship_line_qty_rec.shipped_quantity = 0) THEN
2447: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2448: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
2449: 'Shipment for the return line: '||p_rma_receipt_rec.return_line_id||' has not been done yet.');
2450: END IF;
2451:
2452: FND_MESSAGE.set_name('AHL', 'AHL_OSP_SHIPMENT_NOT_DONE'); -- Shipping has not been done for the ship line corresponding to this return line.
2466:
2467: -- Check for the ordered and shipped quantities of the given return line. If the shipped quantity is not less than the
2468: -- ordered quantity, then it means there is no quantity left to be returned. Add an error message.
2469: IF NOT (l_return_line_qty_rec.shipped_quantity < l_return_line_qty_rec.ordered_quantity) THEN
2470: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2471: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
2472: 'Shipped qty is not less than the ordered qty for the return line: '||p_rma_receipt_rec.return_line_id);
2473: END IF;
2474:
2467: -- Check for the ordered and shipped quantities of the given return line. If the shipped quantity is not less than the
2468: -- ordered quantity, then it means there is no quantity left to be returned. Add an error message.
2469: IF NOT (l_return_line_qty_rec.shipped_quantity < l_return_line_qty_rec.ordered_quantity) THEN
2470: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2471: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
2472: 'Shipped qty is not less than the ordered qty for the return line: '||p_rma_receipt_rec.return_line_id);
2473: END IF;
2474:
2475: FND_MESSAGE.set_name('AHL', 'AHL_OSP_RECEIPT_CMPLT'); -- Receipt is complete for this return line.
2480: END IF;
2481:
2482: -- Check for the receipt date. If it is in future, add an error message.
2483: IF (TRUNC(p_rma_receipt_rec.receipt_date) > TRUNC(SYSDATE)) THEN
2484: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2485: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
2486: 'Receipt date: '||p_rma_receipt_rec.receipt_date||' is in future.');
2487: END IF;
2488:
2481:
2482: -- Check for the receipt date. If it is in future, add an error message.
2483: IF (TRUNC(p_rma_receipt_rec.receipt_date) > TRUNC(SYSDATE)) THEN
2484: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2485: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
2486: 'Receipt date: '||p_rma_receipt_rec.receipt_date||' is in future.');
2487: END IF;
2488:
2489: FND_MESSAGE.set_name('AHL', 'AHL_OSP_RECEIPT_DATE_INVALID'); -- Receipt cannot be done for a future date.
2497: OPEN chk_org_id(p_rma_receipt_rec.return_line_id, p_rma_receipt_rec.receiving_org_id);
2498: FETCH chk_org_id INTO l_dummy;
2499: IF (chk_org_id%NOTFOUND) THEN
2500: -- Add an error message.
2501: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2502: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
2503: 'Receipt org is different from the one set in the return line.');
2504: END IF;
2505:
2498: FETCH chk_org_id INTO l_dummy;
2499: IF (chk_org_id%NOTFOUND) THEN
2500: -- Add an error message.
2501: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2502: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
2503: 'Receipt org is different from the one set in the return line.');
2504: END IF;
2505:
2506: FND_MESSAGE.set_name('AHL', 'AHL_OSP_RECEIPT_ORG_INVALID'); -- Receiving organization is different from the one set for the return line.
2510: l_valid_flag := FALSE;
2511: END IF;
2512: CLOSE chk_org_id;
2513:
2514: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
2515: IF (l_valid_flag) THEN
2516: FND_LOG.string(FND_LOG.level_procedure, l_debug_key||'.end', 'End of the API.'||
2517: ' l_valid_flag is TRUE, no exception raised.');
2518: ELSE
2512: CLOSE chk_org_id;
2513:
2514: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
2515: IF (l_valid_flag) THEN
2516: FND_LOG.string(FND_LOG.level_procedure, l_debug_key||'.end', 'End of the API.'||
2517: ' l_valid_flag is TRUE, no exception raised.');
2518: ELSE
2519: FND_LOG.string(FND_LOG.level_procedure, l_debug_key||'.end', 'End of the API.'||
2520: ' l_valid_flag is FALSE, exception raised.');
2515: IF (l_valid_flag) THEN
2516: FND_LOG.string(FND_LOG.level_procedure, l_debug_key||'.end', 'End of the API.'||
2517: ' l_valid_flag is TRUE, no exception raised.');
2518: ELSE
2519: FND_LOG.string(FND_LOG.level_procedure, l_debug_key||'.end', 'End of the API.'||
2520: ' l_valid_flag is FALSE, exception raised.');
2521: END IF;
2522: END IF;
2523:
2522: END IF;
2523:
2524: -- Check l_valid_flag. If FALSE, raise an exception which will be handled in the calling API.
2525: IF (NOT l_valid_flag) THEN
2526: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2527: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
2528: 'As l_valid_flag is FALSE, raising an exception.');
2529: END IF;
2530:
2523:
2524: -- Check l_valid_flag. If FALSE, raise an exception which will be handled in the calling API.
2525: IF (NOT l_valid_flag) THEN
2526: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2527: FND_LOG.string(FND_LOG.level_statement, l_debug_key,
2528: 'As l_valid_flag is FALSE, raising an exception.');
2529: END IF;
2530:
2531: RAISE FND_API.G_EXC_ERROR;