202: -- MO_GLOBAL.Init('PO');
203: MO_GLOBAL.set_policy_context('S',l_org_id);
204:
205: IF g_log_enabled THEN
206: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
207:
208: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
209: , G_PKG_NAME
210: , G_PKG_NAME || ': l_org_id = ' || l_org_id
204:
205: IF g_log_enabled THEN
206: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
207:
208: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
209: , G_PKG_NAME
210: , G_PKG_NAME || ': l_org_id = ' || l_org_id
211: );
212:
209: , G_PKG_NAME
210: , G_PKG_NAME || ': l_org_id = ' || l_org_id
211: );
212:
213: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
214: , G_PKG_NAME
215: , G_PKG_NAME || ': p_action = ' || p_action
216: || ', p_subcontract_po_shipment_id = ' || p_subcontract_po_shipment_id
217: || ', p_quantity = ' || p_quantity
223: OPEN c_rec;
224: FETCH c_rec INTO l_subcontract_orders_rec;
225: CLOSE c_rec;
226:
227: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
228: g_log_enabled := TRUE;
229: END IF;
230:
231: l_quantity := p_quantity;
237: WHERE subcontract_po_shipment_id = p_subcontract_po_shipment_id
238: AND shikyu_component_id = l_item_id;
239:
240: IF g_log_enabled THEN
241: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
242: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
243: , G_PKG_NAME
244: , G_PKG_NAME || ': l_price = ' || l_price
245: );
238: AND shikyu_component_id = l_item_id;
239:
240: IF g_log_enabled THEN
241: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
242: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
243: , G_PKG_NAME
244: , G_PKG_NAME || ': l_price = ' || l_price
245: );
246: END IF;
273: WHERE hoi.organization_id = l_subcontract_orders_rec.oem_organization_id
274: AND hoi.org_information_context = 'Customer/Supplier Association';
275:
276: IF g_log_enabled THEN
277: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
278: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
279: , G_PKG_NAME
280: , G_PKG_NAME || ': l_vendor_id = ' || l_vendor_id
281: || ': l_vendor_site_id = ' || l_vendor_site_id
274: AND hoi.org_information_context = 'Customer/Supplier Association';
275:
276: IF g_log_enabled THEN
277: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
278: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
279: , G_PKG_NAME
280: , G_PKG_NAME || ': l_vendor_id = ' || l_vendor_id
281: || ': l_vendor_site_id = ' || l_vendor_site_id
282: || ': l_interface_header_id = ' || l_interface_header_id
306: AND org_information_context = 'Accounting Information'
307: AND TO_NUMBER(hoi.org_information1) = glb.set_of_books_id;
308:
309: IF g_log_enabled THEN
310: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
311: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
312: , G_PKG_NAME
313: , G_PKG_NAME || ': l_currency_code = ' || l_currency_code);
314: END IF;
307: AND TO_NUMBER(hoi.org_information1) = glb.set_of_books_id;
308:
309: IF g_log_enabled THEN
310: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
311: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
312: , G_PKG_NAME
313: , G_PKG_NAME || ': l_currency_code = ' || l_currency_code);
314: END IF;
315: END IF;
321: l_document_number := NULL;
322: END IF;
323:
324: IF g_log_enabled THEN
325: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
326: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
327: , G_PKG_NAME
328: , G_PKG_NAME || ': l_document_number = ' || l_document_number
329: );
322: END IF;
323:
324: IF g_log_enabled THEN
325: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
326: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
327: , G_PKG_NAME
328: , G_PKG_NAME || ': l_document_number = ' || l_document_number
329: );
330: END IF;
335: FROM fnd_user
336: WHERE user_id = l_user_id;
337:
338: IF g_log_enabled THEN
339: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
340: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
341: , G_PKG_NAME
342: , G_PKG_NAME || ': l_agent_id = ' || l_agent_id
343: );
336: WHERE user_id = l_user_id;
337:
338: IF g_log_enabled THEN
339: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
340: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
341: , G_PKG_NAME
342: , G_PKG_NAME || ': l_agent_id = ' || l_agent_id
343: );
344: END IF;
353: FROM po_line_locations_all
354: WHERE line_location_id = l_subcontract_orders_rec.subcontract_po_shipment_id;
355:
356: IF g_log_enabled THEN
357: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
358: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
359: , G_PKG_NAME
360: , G_PKG_NAME || ': l_subcontract_orders_rec.need_by_date = '
361: || l_subcontract_orders_rec.need_by_date
354: WHERE line_location_id = l_subcontract_orders_rec.subcontract_po_shipment_id;
355:
356: IF g_log_enabled THEN
357: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
358: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
359: , G_PKG_NAME
360: , G_PKG_NAME || ': l_subcontract_orders_rec.need_by_date = '
361: || l_subcontract_orders_rec.need_by_date
362: );
359: , G_PKG_NAME
360: , G_PKG_NAME || ': l_subcontract_orders_rec.need_by_date = '
361: || l_subcontract_orders_rec.need_by_date
362: );
363: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
364: , G_PKG_NAME
365: , G_PKG_NAME || ': quantity = '
366: || l_quantity
367: );
380: , x_start_date => l_need_by_date
381: );
382:
383: IF g_log_enabled THEN
384: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
385: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
386: , G_PKG_NAME
387: , G_PKG_NAME || ': l_quantity = ' || l_quantity || ', l_need_by_date = ' || l_need_by_date
388: );
381: );
382:
383: IF g_log_enabled THEN
384: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
385: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
386: , G_PKG_NAME
387: , G_PKG_NAME || ': l_quantity = ' || l_quantity || ', l_need_by_date = ' || l_need_by_date
388: );
389: END IF;
401: l_ship_to_location_id := NULL;
402: END;
403:
404: IF g_log_enabled THEN
405: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
406: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
407: , G_PKG_NAME
408: , G_PKG_NAME || ': l_ship_to_location_id = ' || l_ship_to_location_id);
409: END IF;
402: END;
403:
404: IF g_log_enabled THEN
405: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
406: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
407: , G_PKG_NAME
408: , G_PKG_NAME || ': l_ship_to_location_id = ' || l_ship_to_location_id);
409: END IF;
410: END IF;
411:
412: l_batch_id := PO_PDOI_UTL.get_next_batch_id;
413:
414: IF g_log_enabled THEN
415: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
416: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
417: , G_PKG_NAME
418: , G_PKG_NAME || ': l_batch_id = ' || l_batch_id);
419: END IF;
412: l_batch_id := PO_PDOI_UTL.get_next_batch_id;
413:
414: IF g_log_enabled THEN
415: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
416: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
417: , G_PKG_NAME
418: , G_PKG_NAME || ': l_batch_id = ' || l_batch_id);
419: END IF;
420: END IF;
466: , 1
467: );
468:
469: IF g_log_enabled THEN
470: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
471: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
472: , G_PKG_NAME
473: , G_PKG_NAME || ': Inserted into po_headers_interface');
474: END IF;
467: );
468:
469: IF g_log_enabled THEN
470: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
471: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
472: , G_PKG_NAME
473: , G_PKG_NAME || ': Inserted into po_headers_interface');
474: END IF;
475: END IF;
528: , 100
529: );
530:
531: IF g_log_enabled THEN
532: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
533: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
534: , G_PKG_NAME
535: , G_PKG_NAME || ': Inserted into po_lines_interface');
536: END IF;
529: );
530:
531: IF g_log_enabled THEN
532: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
533: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
534: , G_PKG_NAME
535: , G_PKG_NAME || ': Inserted into po_lines_interface');
536: END IF;
537: END IF;
563: , 1
564: );
565:
566: IF g_log_enabled THEN
567: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
568: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
569: , G_PKG_NAME
570: , G_PKG_NAME || ': Inserted into po_distributions_interface');
571: END IF;
564: );
565:
566: IF g_log_enabled THEN
567: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
568: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
569: , G_PKG_NAME
570: , G_PKG_NAME || ': Inserted into po_distributions_interface');
571: END IF;
572: END IF;
616: IF c_po%NOTFOUND
617: THEN
618: x_return_status := FND_API.G_RET_STS_ERROR;
619:
620: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
621: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
622: , G_PKG_NAME
623: , '>> '||l_program||' Error creating PO (1)'
624: );
617: THEN
618: x_return_status := FND_API.G_RET_STS_ERROR;
619:
620: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
621: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
622: , G_PKG_NAME
623: , '>> '||l_program||' Error creating PO (1)'
624: );
625: END IF;
626:
627: ELSE
628: x_return_status := FND_API.G_RET_STS_SUCCESS;
629:
630: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
631: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
632: , G_PKG_NAME
633: , '>> '||l_program||' x_po_line_location_id = ' || x_po_line_location_id
634: );
627: ELSE
628: x_return_status := FND_API.G_RET_STS_SUCCESS;
629:
630: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
631: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
632: , G_PKG_NAME
633: , '>> '||l_program||' x_po_line_location_id = ' || x_po_line_location_id
634: );
635: END IF;
639:
640: ELSE
641: x_return_status := FND_API.G_RET_STS_ERROR;
642: IF g_log_enabled THEN
643: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
644: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
645: , G_PKG_NAME
646: , '>> '||l_program||' Error creating PO (2): '|| l_message
647: );
640: ELSE
641: x_return_status := FND_API.G_RET_STS_ERROR;
642: IF g_log_enabled THEN
643: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
644: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
645: , G_PKG_NAME
646: , '>> '||l_program||' Error creating PO (2): '|| l_message
647: );
648: END IF;
652: ELSIF l_dev_phase = 'INACTIVE'
653: THEN
654: x_return_status := FND_API.G_RET_STS_ERROR;
655: IF g_log_enabled THEN
656: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
657: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
658: , G_PKG_NAME
659: , '>> '||l_program||' Manager Inactive'
660: );
653: THEN
654: x_return_status := FND_API.G_RET_STS_ERROR;
655: IF g_log_enabled THEN
656: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
657: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
658: , G_PKG_NAME
659: , '>> '||l_program||' Manager Inactive'
660: );
661: END IF ;
663:
664: ELSE
665: x_return_status := FND_API.G_RET_STS_SUCCESS;
666: IF g_log_enabled THEN
667: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
668: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
669: , G_PKG_NAME
670: , '>> '||l_program||' Running'
671: );
664: ELSE
665: x_return_status := FND_API.G_RET_STS_SUCCESS;
666: IF g_log_enabled THEN
667: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
668: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
669: , G_PKG_NAME
670: , '>> '||l_program||' Running'
671: );
672: END IF;