[Home] [Help]
14: );
15: -- END Forward declarations for private procedures
16:
17: --
18: g_debug_stmt CONSTANT BOOLEAN := PO_DEBUG.is_debug_stmt_on;
19: g_debug_unexp CONSTANT BOOLEAN := PO_DEBUG.is_debug_unexp_on;
20:
21: -- Forward declare private procedure po_reschedule_req
22: PROCEDURE PO_RESCHEDULE_REQ (
15: -- END Forward declarations for private procedures
16:
17: --
18: g_debug_stmt CONSTANT BOOLEAN := PO_DEBUG.is_debug_stmt_on;
19: g_debug_unexp CONSTANT BOOLEAN := PO_DEBUG.is_debug_unexp_on;
20:
21: -- Forward declare private procedure po_reschedule_req
22: PROCEDURE PO_RESCHEDULE_REQ (
23: p_line_location_id_tbl IN po_tbl_number,
156: --Bug 5255550
157:
158: -- Step1 get the release id from x_supply number into l_po_release_id;
159: -- debug
160: po_debug.debug_begin(l_log_head);
161: -- debug
162:
163: select instr(x_supply_number, '(')
164: into x_pare_left
169: ELSE
170: x_po_type := 'RELEASE';
171: end if;
172: -- debug
173: PO_DEBUG.debug_var(l_log_head,l_progress,'x_po_type', x_po_type);
174: -- debug
175:
176: l_progress:= '010';
177: if X_po_type <> 'PO' then
196:
197:
198: l_progress:= '020';
199: -- debug
200: PO_DEBUG.debug_var(l_log_head,l_progress,'x_release_num', x_release_num);
201: -- debug
202:
203: begin
204: -- Get the po_release_id out of supply_number
209: and release_num = x_release_num;
210:
211: l_progress:= '030';
212: -- debug
213: PO_DEBUG.debug_var(l_log_head,l_progress,'l_po_release_id', l_po_release_id);
214: -- debug
215:
216: exception
217: when no_data_found then
229: po_header_id and set the context to this org_id */
230: l_original_org_context := PO_MOAC_UTILS_PVT.get_current_org_id ; --
231:
232: -- debug
233: PO_DEBUG.debug_var(l_log_head,l_progress,'l_original_org_context', l_original_org_context);
234: -- debug
235:
236: --Bug 5255550
237: BEGIN
249: END IF; -- x_po_type
250:
251: l_progress:= '050';
252: -- debug
253: PO_DEBUG.debug_var(l_log_head,l_progress,'l_document_org_id', l_document_org_id);
254: -- debug
255:
256: -- Set the org context to the document's OU.
257: PO_MOAC_UTILS_PVT.set_org_context(l_document_org_id) ; --
274: l_session_gt_key := PO_CORE_S.get_session_gt_nextval();
275:
276: l_progress:= '060';
277: -- debug
278: PO_DEBUG.debug_var(l_log_head,l_progress,'l_session_gt_key', l_session_gt_key);
279: -- debug
280:
281: -- Bug 5610714 replacing x_shipment_nums.Count with X_po_line_ids.Count as x_shipment_nums can be Null
282: -- Bug 5610714 Added the following If Condition to handle the issue of passing x_shipment_nums as Null.
445: p_ship_methods => p_ship_methods,
446: x_return_status => l_return_status);
447:
448: -- debug
449: PO_DEBUG.debug_var(l_log_head,l_progress,'l_return_status', l_return_status);
450: -- debug
451:
452: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
453: RAISE FND_API.G_EXC_ERROR;
507:
508: l_progress:= '160';
509: /* Step 8: add the errors to the error list.*/
510: -- debug
511: PO_DEBUG.debug_stmt(l_log_head,l_progress,'After return from update document');
512: PO_DEBUG.debug_var(l_log_head,l_progress,'l_return_status', l_return_status);
513: -- debug
514:
515: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
508: l_progress:= '160';
509: /* Step 8: add the errors to the error list.*/
510: -- debug
511: PO_DEBUG.debug_stmt(l_log_head,l_progress,'After return from update document');
512: PO_DEBUG.debug_var(l_log_head,l_progress,'l_return_status', l_return_status);
513: -- debug
514:
515: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
516: -- PO Change API returned some errors. Add them to the API message list.
523: END IF;
524:
525: l_progress:= '160';
526: -- debug
527: PO_DEBUG.debug_stmt(l_log_head,l_progress,'setting the context back to '
528: ||l_original_org_context);
529: -- debug
530: /* Step 9: set the context back to the orginal context.*/
531: PO_MOAC_UTILS_PVT.set_org_context(l_original_org_context) ; --
533: /* Delete all the data from po_session_gt */
534: l_progress:= '170';
535:
536: -- debug
537: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Deleting data from session gt '
538: );
539: -- debug
540:
541: DELETE FROM po_session_gt
541: DELETE FROM po_session_gt
542: WHERE KEY = l_session_gt_key;
543:
544: /*Step 10 : return from the api */
545: PO_DEBUG.debug_end(l_log_head);
546: return TRUE;
547:
548:
549: EXCEPTION
607: BEGIN
608: -- Bug 5255550
609: x_return_status := FND_API.G_RET_STS_SUCCESS;
610: l_progress:= '000';
611: PO_DEBUG.debug_begin(l_log_head);
612:
613: --SQL What: line_location_id, query out
614: --SQL the backing requistion lines and update them with new
615: --SQL estimated_pickup_dates and ship_methods
625: WHERE REQ.line_location_id = p_line_location_id_tbl(i);
626:
627: l_progress:= '020';
628:
629: PO_DEBUG.debug_end(l_log_head);
630:
631: EXCEPTION
632: WHEN OTHERS THEN
633: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
636: p_api_name => l_api_name,
637: p_message => 'Can not update estimated_pickup_date and ship_method on requisitions');
638:
639: IF (g_debug_unexp) THEN
640: PO_DEBUG.debug_exc (
641: p_log_head => l_log_head,
642: p_progress => l_progress || 'with sqlcode' || sqlcode);
643: END IF;
644: