40: --| where the current price of the SHIKYU |
41: --| Component is defined in a secondary UOM. |
42: --| 03/24/2006 vchu Fixed bug 5090721: Removed commented code. |
43: --| 03/24/2006 vchu Cleaned up indentation and changed the |
44: --| calls to FND_LOG.string to be enclosed in a |
45: --| single IF statement instead of nested ID |
46: --| statements. |
47: --| 04/05/2006 vchu Modified the Price Quoting logic of |
48: --| Process_Replenishment_SO to get the price |
59: --| logic to update the JMF_SHIKYU_COMPONENTS |
60: --| record to update the price list id and |
61: --| currency even if there are too many |
62: --| effective price list lines. |
63: --| 04/13/2006 vchu Polished up the FND Log Messages. |
64: --| 04/18/2006 rajkrish Fixed bug 5002921: Set entity_code and |
65: --| request_type of the l_action_request_tbl |
66: --| in order to book the Sales Order. |
67: --| 04/21/2006 vchu Removed commented code. |
160: AND default_flag =1;
161:
162: BEGIN
163:
164: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
165: g_log_enabled := TRUE;
166:
167: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
168: , G_PKG_NAME
163:
164: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
165: g_log_enabled := TRUE;
166:
167: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
168: , G_PKG_NAME
169: , '>> ' || l_program || ': Start'
170: );
171: END IF;
207: , x_start_date => l_wip_start_date
208: );
209:
210: IF g_log_enabled AND
211: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
212: THEN
213: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
214: , G_PKG_NAME
215: , '>> ' || l_program || ': l_wip_start_date = '
209:
210: IF g_log_enabled AND
211: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
212: THEN
213: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
214: , G_PKG_NAME
215: , '>> ' || l_program || ': l_wip_start_date = '
216: || l_wip_start_date
217: );
221:
222: ELSE
223:
224: IF g_log_enabled AND
225: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
226: THEN
227: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
228: , G_PKG_NAME
229: , '>> ' || l_program || ': p_need_by_date = '
223:
224: IF g_log_enabled AND
225: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
226: THEN
227: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
228: , G_PKG_NAME
229: , '>> ' || l_program || ': p_need_by_date = '
230: || p_need_by_date
231: );
241: x_ship_date := sysdate;
242: END IF;
243:
244: IF g_log_enabled AND
245: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
246: THEN
247: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
248: , G_PKG_NAME
249: , '>> ' || l_program || ': Returning x_ship_date = ' || x_ship_date
243:
244: IF g_log_enabled AND
245: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
246: THEN
247: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
248: , G_PKG_NAME
249: , '>> ' || l_program || ': Returning x_ship_date = ' || x_ship_date
250: );
251: END IF;
249: , '>> ' || l_program || ': Returning x_ship_date = ' || x_ship_date
250: );
251: END IF;
252:
253: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
254: g_log_enabled := TRUE;
255:
256: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
257: , G_PKG_NAME
252:
253: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
254: g_log_enabled := TRUE;
255:
256: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
257: , G_PKG_NAME
258: , '>> ' || l_program || ': End'
259: );
260: END IF;
378: AND project_id IS NOT NULL;
379:
380: BEGIN
381:
382: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
383: g_log_enabled := TRUE;
384:
385: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
386: , G_PKG_NAME
381:
382: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
383: g_log_enabled := TRUE;
384:
385: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
386: , G_PKG_NAME
387: , '>> ' || l_program || ': Start'
388: );
389: END IF;
388: );
389: END IF;
390:
391: IF g_log_enabled AND
392: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
393: THEN
394: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
395: , G_PKG_NAME
396: , '>> ' || l_program
390:
391: IF g_log_enabled AND
392: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
393: THEN
394: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
395: , G_PKG_NAME
396: , '>> ' || l_program
397: || ': p_action = ' || p_action
398: || ', p_subcontract_po_shipment_id = ' || p_subcontract_po_shipment_id
409: l_org_id := mo_global.get_current_org_id;
410:
411:
412: IF g_log_enabled AND
413: (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
414: THEN
415: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
416: , G_PKG_NAME
417: , '>> ' || l_program
411:
412: IF g_log_enabled AND
413: (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
414: THEN
415: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
416: , G_PKG_NAME
417: , '>> ' || l_program
418: ||': Org ID from mo_global.get_current_org_id = ' || l_org_id
419: );
434: WHERE line_location_id = p_replen_po_shipment_id;
435: END IF;
436:
437: IF g_log_enabled AND
438: (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
439: THEN
440: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
441: , G_PKG_NAME
442: , '>> ' || l_program ||': Org ID selected from PO_LINE_LOCATIONS_ALL = '
436:
437: IF g_log_enabled AND
438: (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
439: THEN
440: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
441: , G_PKG_NAME
442: , '>> ' || l_program ||': Org ID selected from PO_LINE_LOCATIONS_ALL = '
443: || l_org_id
444: );
448:
449: MO_GLOBAL.set_policy_context('S', l_org_id);
450:
451: IF g_log_enabled AND
452: (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
453: THEN
454: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
455: , G_PKG_NAME
456: , '>> ' || l_program
450:
451: IF g_log_enabled AND
452: (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
453: THEN
454: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
455: , G_PKG_NAME
456: , '>> ' || l_program
457: ||': Org ID from FND_PROFILE = ' || FND_PROFILE.VALUE('ORG_ID')
458: );
462: INTO l_client_info_org_id
463: FROM DUAL;
464:
465: IF g_log_enabled AND
466: (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
467: THEN
468: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
469: , G_PKG_NAME
470: , '>> ' || l_program
464:
465: IF g_log_enabled AND
466: (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
467: THEN
468: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
469: , G_PKG_NAME
470: , '>> ' || l_program
471: ||': Org ID from CLIENT_INFO = ' || l_client_info_org_id
472: );
476: THEN
477: fnd_client_info.set_org_context(TO_CHAR(l_org_id));
478:
479: IF g_log_enabled AND
480: (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
481: THEN
482: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
483: , G_PKG_NAME
484: , '>> ' || l_program
478:
479: IF g_log_enabled AND
480: (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
481: THEN
482: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
483: , G_PKG_NAME
484: , '>> ' || l_program
485: || ': Setting the Org Context of CLIENT_INFO to the OU specified for MOAC ('
486: || l_org_id || ')'
488: END IF;
489:
490: END IF;
491:
492: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
493: g_log_enabled := TRUE;
494: END IF;
495:
496: l_header_rec := OE_ORDER_PUB.G_MISS_HEADER_REC;
524:
525: CLOSE c_project_cur;
526:
527: IF g_log_enabled AND
528: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
529: THEN
530: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
531: , G_PKG_NAME
532: , '>> ' || l_program || ': Project ID = ' || l_project_id
526:
527: IF g_log_enabled AND
528: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
529: THEN
530: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
531: , G_PKG_NAME
532: , '>> ' || l_program || ': Project ID = ' || l_project_id
533: || ', Task ID = ' || l_task_id
534: );
541: WHERE organization_id = p_tp_organization_id
542: AND org_information_context = 'Customer/Supplier Association';
543:
544: IF g_log_enabled AND
545: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
546: THEN
547: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
548: , G_PKG_NAME
549: , '>> ' || l_program
543:
544: IF g_log_enabled AND
545: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
546: THEN
547: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
548: , G_PKG_NAME
549: , '>> ' || l_program
550: ||': Ship To customer id = ' || l_header_rec.sold_to_org_id
551: );
576: AND acct_site.cust_account_id = l_header_rec.sold_to_org_id
577: AND site.status = 'A';
578:
579: IF g_log_enabled AND
580: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
581: THEN
582: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
583: , G_PKG_NAME
584: , '>> ' || l_program
578:
579: IF g_log_enabled AND
580: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
581: THEN
582: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
583: , G_PKG_NAME
584: , '>> ' || l_program
585: || ': Bill To org id = ' || l_header_rec.invoice_to_org_id
586: );
600: FROM oe_transaction_Types_all
601: WHERE transaction_type_id = l_header_rec.order_type_id;
602:
603: IF g_log_enabled AND
604: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
605: THEN
606: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
607: , G_PKG_NAME
608: , '>> ' || l_program
602:
603: IF g_log_enabled AND
604: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
605: THEN
606: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
607: , G_PKG_NAME
608: , '>> ' || l_program
609: || ': SHIKYU Default Order Type = ' || l_header_rec.order_type_id
610: || ', Default Outbound Line Type = ' || l_line_type_id
619: FROM po_line_locations_all
620: WHERE line_location_id = p_replen_po_shipment_id;
621:
622: IF g_log_enabled AND
623: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
624: THEN
625: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
626: , G_PKG_NAME
627: , '>> ' || l_program
621:
622: IF g_log_enabled AND
623: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
624: THEN
625: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
626: , G_PKG_NAME
627: , '>> ' || l_program
628: || ': Replenishment PO Need By Date = ' || l_replen_po_need_by_date
629: );
647: , x_ship_date => l_ship_date
648: );
649:
650: IF g_log_enabled AND
651: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
652: THEN
653: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
654: , G_PKG_NAME
655: , '>> ' || l_program || ': Ship date = ' || l_ship_date
649:
650: IF g_log_enabled AND
651: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
652: THEN
653: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
654: , G_PKG_NAME
655: , '>> ' || l_program || ': Ship date = ' || l_ship_date
656: );
657: END IF;
676: l_line_tbl(1).project_id := l_project_id;
677: l_line_tbl(1).task_id := l_task_id;
678:
679: IF g_log_enabled AND
680: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
681: THEN
682: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
683: , G_PKG_NAME
684: , '>> ' || l_program || ': Parameters passing to Process Order:'
678:
679: IF g_log_enabled AND
680: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
681: THEN
682: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
683: , G_PKG_NAME
684: , '>> ' || l_program || ': Parameters passing to Process Order:'
685: );
686: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
682: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
683: , G_PKG_NAME
684: , '>> ' || l_program || ': Parameters passing to Process Order:'
685: );
686: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
687: , G_PKG_NAME
688: , '>> ' || l_program || ': Ordered_quantity = ' || p_quantity
689: || ', Item = ' || p_item_id
690: || ', Ship Date = ' || l_ship_date
698: WHERE inventory_item_id = p_item_id
699: AND organization_id = p_oem_organization_id;
700:
701: IF g_log_enabled AND
702: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
703: THEN
704: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
705: , G_PKG_NAME
706: , '>> ' || l_program
700:
701: IF g_log_enabled AND
702: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
703: THEN
704: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
705: , G_PKG_NAME
706: , '>> ' || l_program
707: ||': Primary UOM = '|| l_primary_uom_code
708: );
711: IF NVL(p_action,'C') = 'C'
712: THEN
713:
714: IF g_log_enabled AND
715: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
716: THEN
717: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
718: , G_PKG_NAME
719: , '>> ' || l_program
713:
714: IF g_log_enabled AND
715: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
716: THEN
717: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
718: , G_PKG_NAME
719: , '>> ' || l_program
720: || ': p_action = ''C'': Getting UOM from Replenishment PO Shipment'
721: );
744:
745: END IF; /* IF p_replen_po_shipment_id IS NOT NULL */
746:
747: IF g_log_enabled AND
748: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
749: THEN
750: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
751: , G_PKG_NAME
752: , '>> ' || l_program
746:
747: IF g_log_enabled AND
748: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
749: THEN
750: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
751: , G_PKG_NAME
752: , '>> ' || l_program
753: || ': l_price_list_uom = ' || l_price_list_uom
754: || ', l_quantity = ' || l_quantity
766:
767: END IF; /* IF NVL(p_action,'C') = 'C' */
768:
769: IF g_log_enabled AND
770: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
771: THEN
772: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
773: , G_PKG_NAME
774: , '>> ' || l_program || ': Calling Process Order, Creating SAVEPOINT before_process_order'
768:
769: IF g_log_enabled AND
770: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
771: THEN
772: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
773: , G_PKG_NAME
774: , '>> ' || l_program || ': Calling Process Order, Creating SAVEPOINT before_process_order'
775: );
776: END IF;
804:
805: x_return_status := l_return_status;
806:
807: IF g_log_enabled AND
808: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
809: THEN
810: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
811: , G_PKG_NAME
812: , '>> ' || l_program
806:
807: IF g_log_enabled AND
808: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
809: THEN
810: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
811: , G_PKG_NAME
812: , '>> ' || l_program
813: || ': Process Order returned ' || l_return_status
814: || ', Sales Order Line ID = ' || l_line_tbl(1).line_id
866: RAISE l_no_price_list_found;
867: END IF;
868:
869: IF g_log_enabled AND
870: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
871: THEN
872: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
873: , G_PKG_NAME
874: , '>> ' || l_program || ': From Sales Order Line ID ' || l_line_tbl(1).line_id
868:
869: IF g_log_enabled AND
870: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
871: THEN
872: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
873: , G_PKG_NAME
874: , '>> ' || l_program || ': From Sales Order Line ID ' || l_line_tbl(1).line_id
875: || ': Price List ID = '|| l_price_list_id
876: || ', Unit Price = ' || l_unit_price
883: FROM oe_price_lists
884: WHERE price_list_id = l_price_list_id;
885:
886: IF g_log_enabled AND
887: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
888: THEN
889: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
890: , G_PKG_NAME
891: , '>> ' || l_program
885:
886: IF g_log_enabled AND
887: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
888: THEN
889: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
890: , G_PKG_NAME
891: , '>> ' || l_program
892: || ': Price List Currency Code = ' || l_currency_code
893: );
938: RAISE l_too_many_effective_prices;
939: END;
940:
941: IF g_log_enabled AND
942: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
943: THEN
944: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
945: , G_PKG_NAME
946: , '>> ' || l_program
940:
941: IF g_log_enabled AND
942: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
943: THEN
944: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
945: , G_PKG_NAME
946: , '>> ' || l_program
947: || ': Price List UOM = '|| l_price_list_uom
948: || ', List Price = ' || l_component_price
952: IF NVL(p_action,'C') = 'C' AND l_unit_price IS NULL
953: THEN
954:
955: IF g_log_enabled AND
956: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
957: THEN
958: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
959: , G_PKG_NAME
960: , '>> ' || l_program
954:
955: IF g_log_enabled AND
956: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
957: THEN
958: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
959: , G_PKG_NAME
960: , '>> ' || l_program
961: || ': p_action = ''C'' and Unit Price is NULL: Rollback the created Sales Order'
962: );
974: IF NVL(p_action,'C') = 'Q'
975: THEN
976:
977: IF g_log_enabled AND
978: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
979: THEN
980: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
981: , G_PKG_NAME
982: , '>> ' || l_program
976:
977: IF g_log_enabled AND
978: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
979: THEN
980: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
981: , G_PKG_NAME
982: , '>> ' || l_program
983: || ': p_action = ''Q'''
984: );
989: IF l_primary_uom_code <> l_price_list_uom
990: THEN
991:
992: IF g_log_enabled AND
993: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
994: THEN
995: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
996: , G_PKG_NAME
997: , '>> ' || l_program
991:
992: IF g_log_enabled AND
993: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
994: THEN
995: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
996: , G_PKG_NAME
997: , '>> ' || l_program
998: || ': Price List UOM <> Primary UOM: '
999: || 'Getting UOM Conversion Rate from '
1013:
1014: l_unit_price := l_component_price / l_uom_conversion_rate;
1015:
1016: IF g_log_enabled
1017: AND FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
1018: THEN
1019: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1020: , G_PKG_NAME
1021: , '>> ' || l_program
1015:
1016: IF g_log_enabled
1017: AND FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
1018: THEN
1019: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1020: , G_PKG_NAME
1021: , '>> ' || l_program
1022: || ': l_component_price = ' || l_component_price
1023: || ', l_uom_conversion_rate = ' || l_uom_conversion_rate
1036: IF p_subcontract_po_shipment_id IS NOT NULL
1037: THEN
1038:
1039: IF g_log_enabled AND
1040: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
1041: THEN
1042: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1043: , G_PKG_NAME
1044: , '>> ' || l_program || ': Updating JMF_SHIKYU_COMPONENTS table'
1038:
1039: IF g_log_enabled AND
1040: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
1041: THEN
1042: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1043: , G_PKG_NAME
1044: , '>> ' || l_program || ': Updating JMF_SHIKYU_COMPONENTS table'
1045: );
1046: END IF;
1059: AND oem_organization_id = p_oem_organization_id
1060: AND shikyu_component_id = p_item_id;
1061:
1062: IF g_log_enabled AND
1063: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
1064: THEN
1065: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1066: , G_PKG_NAME
1067: , '>> ' || l_program || ': Updated JMF_SHIKYU_COMPONENTS table'
1061:
1062: IF g_log_enabled AND
1063: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
1064: THEN
1065: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1066: , G_PKG_NAME
1067: , '>> ' || l_program || ': Updated JMF_SHIKYU_COMPONENTS table'
1068: );
1069: END IF;
1074:
1075: x_order_line_id := l_line_tbl(1).line_id;
1076:
1077: IF g_log_enabled AND
1078: (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1079: THEN
1080: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1081: , G_PKG_NAME
1082: , '>> ' || l_program || ': Returning x_order_line_id = ' || x_order_line_id
1076:
1077: IF g_log_enabled AND
1078: (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1079: THEN
1080: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1081: , G_PKG_NAME
1082: , '>> ' || l_program || ': Returning x_order_line_id = ' || x_order_line_id
1083: );
1084: END IF;
1087: THEN
1088: fnd_client_info.set_org_context(TO_CHAR(l_client_info_org_id));
1089:
1090: IF g_log_enabled AND
1091: (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1092: THEN
1093: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1094: , G_PKG_NAME
1095: , '>> ' || l_program
1089:
1090: IF g_log_enabled AND
1091: (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1092: THEN
1093: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1094: , G_PKG_NAME
1095: , '>> ' || l_program
1096: || ': Setting the Org Context of CLIENT_INFO back to the original value ('
1097: || l_client_info_org_id || ')'
1100:
1101: END IF;
1102:
1103: IF g_log_enabled AND
1104: (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1105: THEN
1106: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1107: , G_PKG_NAME
1108: , '>> ' || l_program || ': End'
1102:
1103: IF g_log_enabled AND
1104: (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1105: THEN
1106: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1107: , G_PKG_NAME
1108: , '>> ' || l_program || ': End'
1109: );
1110: END IF;
1116:
1117: ROLLBACK TO before_process_order;
1118:
1119: IF g_log_enabled AND
1120: FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
1121: THEN
1122:
1123: SELECT concatenated_segments
1124: INTO l_item_number
1125: FROM MTL_SYSTEM_ITEMS_VL
1126: WHERE organization_id = p_oem_organization_id
1127: AND inventory_item_id = p_item_id;
1128:
1129: FND_LOG.string( FND_LOG.LEVEL_EXCEPTION
1130: , G_PKG_NAME
1131: , '>> ' || l_program || ': Too many prices effective for item "' || l_item_number || '"');
1132: END IF;
1133:
1134: WHEN l_no_price_list_found THEN
1135: x_return_status := FND_API.G_RET_STS_ERROR;
1136:
1137: IF g_log_enabled AND
1138: FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
1139: THEN
1140:
1141: SELECT concatenated_segments
1142: INTO l_item_number
1143: FROM MTL_SYSTEM_ITEMS_VL
1144: WHERE organization_id = p_oem_organization_id
1145: AND inventory_item_id = p_item_id;
1146:
1147: FND_LOG.string( FND_LOG.LEVEL_EXCEPTION
1148: , G_PKG_NAME
1149: , '>> ' || l_program || ': No effective price list found for item "' || l_item_number || '"');
1150: END IF;
1151:
1152: WHEN l_null_unit_price THEN
1153: x_return_status := FND_API.G_RET_STS_ERROR;
1154:
1155: IF g_log_enabled AND
1156: FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
1157: THEN
1158:
1159: SELECT concatenated_segments
1160: INTO l_item_number
1161: FROM MTL_SYSTEM_ITEMS_VL
1162: WHERE organization_id = p_oem_organization_id
1163: AND inventory_item_id = p_item_id;
1164:
1165: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION
1166: , G_PKG_NAME
1167: , '>> ' || l_program || ': Unit price could not be obtained for '
1168: || l_item_number
1169: || ' from the Price List'
1170: );
1171:
1172: IF l_price_list_uom <> l_line_tbl(1).order_quantity_uom
1173: THEN
1174: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION
1175: , G_PKG_NAME
1176: , '>> ' || l_program || ': Unit of Measure specified for the Replenishment PO ('
1177: || l_line_tbl(1).order_quantity_uom
1178: || ') does not correspond to the Unit of Measure currectly effective ('
1185: WHEN l_too_many_project_task_ref THEN
1186: x_return_status := FND_API.G_RET_STS_ERROR;
1187:
1188: IF g_log_enabled AND
1189: FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
1190: THEN
1191:
1192: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION
1193: , G_PKG_NAME
1188: IF g_log_enabled AND
1189: FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
1190: THEN
1191:
1192: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION
1193: , G_PKG_NAME
1194: , '>> ' || l_program || ': More than one Project and Task reference found'
1195: );
1196: END IF;
1200: FND_MESSAGE.set_name('JMF', 'JMF_SHK_REPLENISH_SO_ERR');
1201: FND_MSG_PUB.add;
1202:
1203: IF g_log_enabled AND
1204: FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
1205: THEN
1206:
1207: FND_LOG.string( FND_LOG.LEVEL_EXCEPTION
1208: , G_PKG_NAME
1203: IF g_log_enabled AND
1204: FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
1205: THEN
1206:
1207: FND_LOG.string( FND_LOG.LEVEL_EXCEPTION
1208: , G_PKG_NAME
1209: , '>> ' || l_program || ': OTHER EXCEPTION: ' || sqlerrm);
1210: END IF;
1211: