81: --| issue in Is_Valid_Location by replacing |
82: --| the WHERE EXISTS logic by a join |
83: --| between the hr_locations_all and |
84: --| hr_all_organization_units tables. |
85: --| 03/23/2006 vchu Polished up the FND Log messages. |
86: --| Fixed bug 5090721: set last_updated_by |
87: --| and last_update_login in all update |
88: --| statements. |
89: --| 03/31/2006 vchu Bug fix for 5132505: |
99: --| so that it will be picked up again by |
100: --| the next Interlock run, and thus the |
101: --| processing can be completed if the WIP |
102: --| issue is resolved. |
103: --| 04/17/2006 vchu Modified the format of the FND Log |
104: --| messages. |
105: --| 05/02/2006 vchu Modified the c_alloc cursor to restrict |
106: --| by the Operating Unit specified in the |
107: --| concurrent request parameters, and to |
206: --| outside of the current OU. |
207: --| This was the issue why the invalid POs |
208: --| in PJM OU was also affecting the DMF |
209: --| POs. |
210: --| Also added FND_LOG calls to print out |
211: --| sqlerrm in cases where an unexpected |
212: --| exception is caught, and polished up |
213: --| some existing FND Log messages. |
214: --| 10/31/2006 vchu Bug fix for 5632012: Modified |
209: --| POs. |
210: --| Also added FND_LOG calls to print out |
211: --| sqlerrm in cases where an unexpected |
212: --| exception is caught, and polished up |
213: --| some existing FND Log messages. |
214: --| 10/31/2006 vchu Bug fix for 5632012: Modified |
215: --| Load_Shikyu_Components to call the WIP |
216: --| explodeRequirements API in order to |
217: --| explode any phantom BOMs defined in the |
333:
334: BEGIN
335:
336: IF g_log_enabled THEN
337: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
338: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
339: , G_PKG_NAME
340: , '>> ' || l_program || ': Start'
341: );
334: BEGIN
335:
336: IF g_log_enabled THEN
337: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
338: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
339: , G_PKG_NAME
340: , '>> ' || l_program || ': Start'
341: );
342: --Debug changes for bug 9315131
339: , G_PKG_NAME
340: , '>> ' || l_program || ': Start'
341: );
342: --Debug changes for bug 9315131
343: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
344: , G_PKG_NAME
345: , '>> ' || l_program
346: || ': p_organization_id:' || p_organization_id
347: || ': p_vendor_id:' || p_vendor_id
387:
388: END IF;
389:
390: IF g_log_enabled THEN
391: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
392: --Debugging changes for bug 9315131
393: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
394: , G_PKG_NAME
395: , '>> ' || l_program
389:
390: IF g_log_enabled THEN
391: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
392: --Debugging changes for bug 9315131
393: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
394: , G_PKG_NAME
395: , '>> ' || l_program
396: || 'TP Org:' || l_tp_org
397: );
394: , G_PKG_NAME
395: , '>> ' || l_program
396: || 'TP Org:' || l_tp_org
397: );
398: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
399: , G_PKG_NAME
400: , '>> ' || l_program || ': Exit'
401: );
402: END IF;
447: x_valid_flag := 'N';
448: END IF;
449:
450: IF g_log_enabled AND
451: (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
452: THEN
453: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
454: , G_PKG_NAME
455: , '>> ' || G_PKG_NAME || '.' || l_program
449:
450: IF g_log_enabled AND
451: (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
452: THEN
453: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
454: , G_PKG_NAME
455: , '>> ' || G_PKG_NAME || '.' || l_program
456: || ': l_lot_control_code = ' || l_lot_control_code
457: || ', l_serial_control_code = ' || l_serial_control_code
464: WHEN NO_DATA_FOUND THEN
465: x_valid_flag := 'N';
466:
467: IF g_log_enabled AND
468: FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
469: THEN
470: FND_LOG.string( FND_LOG.LEVEL_EXCEPTION
471: , G_PKG_NAME || 'Get_Lot_Serial_Control_Code.no_data_found'
472: , G_PKG_NAME || '.' || l_program || ': No Data Found'
466:
467: IF g_log_enabled AND
468: FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
469: THEN
470: FND_LOG.string( FND_LOG.LEVEL_EXCEPTION
471: , G_PKG_NAME || 'Get_Lot_Serial_Control_Code.no_data_found'
472: , G_PKG_NAME || '.' || l_program || ': No Data Found'
473: );
474: END IF;
476: WHEN OTHERS THEN
477: x_valid_flag := 'N';
478:
479: IF g_log_enabled AND
480: FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
481: THEN
482: FND_LOG.string( FND_LOG.LEVEL_UNEXPECTED
483: , G_PKG_NAME || 'Get_Lot_Serial_Control_Code.others_exception'
484: , G_PKG_NAME || '.' || l_program || sqlerrm
478:
479: IF g_log_enabled AND
480: FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
481: THEN
482: FND_LOG.string( FND_LOG.LEVEL_UNEXPECTED
483: , G_PKG_NAME || 'Get_Lot_Serial_Control_Code.others_exception'
484: , G_PKG_NAME || '.' || l_program || sqlerrm
485: );
486: END IF;
502: l_program CONSTANT VARCHAR2(30) := 'Is_Valid_Location';
503: BEGIN
504:
505: IF g_log_enabled THEN
506: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
507: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
508: , G_PKG_NAME
509: , '>> ' || l_program || ': Start'
510: );
503: BEGIN
504:
505: IF g_log_enabled THEN
506: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
507: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
508: , G_PKG_NAME
509: , '>> ' || l_program || ': Start'
510: );
511: END IF;
538: -- AND hou.organization_id = p_organization_id
539: -- AND hrl.country in ('JP', 'KR', 'TW');
540: --
541: -- IF g_log_enabled THEN
542: -- IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
543: -- FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
544: -- , G_PKG_NAME
545: -- , '>> ' || l_program || ': Country Code count is for JP = ' || l_count
546: -- );
539: -- AND hrl.country in ('JP', 'KR', 'TW');
540: --
541: -- IF g_log_enabled THEN
542: -- IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
543: -- FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
544: -- , G_PKG_NAME
545: -- , '>> ' || l_program || ': Country Code count is for JP = ' || l_count
546: -- );
547: -- END IF;
551: -- THEN
552: -- FND_MESSAGE.set_name('JMF','JMF_SHK_INVALID_LOCATION');
553: -- FND_MSG_PUB.add;
554: -- IF g_log_enabled THEN
555: -- IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
556: -- FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
557: -- , G_PKG_NAME
558: -- , '>> ' || l_program || ': OEM Country is not Japan:'
559: -- );
552: -- FND_MESSAGE.set_name('JMF','JMF_SHK_INVALID_LOCATION');
553: -- FND_MSG_PUB.add;
554: -- IF g_log_enabled THEN
555: -- IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
556: -- FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
557: -- , G_PKG_NAME
558: -- , '>> ' || l_program || ': OEM Country is not Japan:'
559: -- );
560: -- END IF;
561: -- END IF;
562: -- RETURN FALSE;
563: -- ELSE
564: -- IF g_log_enabled THEN
565: -- IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
566: -- FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
567: -- , G_PKG_NAME
568: -- , '>> ' || l_program || ': Is_Valid_Location will return TRUE'
569: -- );
562: -- RETURN FALSE;
563: -- ELSE
564: -- IF g_log_enabled THEN
565: -- IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
566: -- FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
567: -- , G_PKG_NAME
568: -- , '>> ' || l_program || ': Is_Valid_Location will return TRUE'
569: -- );
570: -- END IF;
573: -- RETURN TRUE;
574: -- END IF;
575:
576: IF g_log_enabled THEN
577: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
578: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
579: , G_PKG_NAME
580: , '>> ' || l_program || ': Is_Valid_Location will return TRUE'
581: );
574: -- END IF;
575:
576: IF g_log_enabled THEN
577: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
578: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
579: , G_PKG_NAME
580: , '>> ' || l_program || ': Is_Valid_Location will return TRUE'
581: );
582: END IF;
646:
647: BEGIN
648:
649: IF g_log_enabled THEN
650: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
651: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
652: , G_PKG_NAME
653: , '>> ' || l_program || ': Start'
654: );
647: BEGIN
648:
649: IF g_log_enabled THEN
650: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
651: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
652: , G_PKG_NAME
653: , '>> ' || l_program || ': Start'
654: );
655: --Debugging changes for bug 9315131
652: , G_PKG_NAME
653: , '>> ' || l_program || ': Start'
654: );
655: --Debugging changes for bug 9315131
656: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
657: , G_PKG_NAME
658: , '>> ' || l_program
659: ||': l_organization_id:' || l_organization_id
660: ||': l_item_id:' || l_item_id
682: , x_subcontracting_component => l_comp_flag
683: );
684:
685: IF g_log_enabled THEN
686: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
687: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
688: , G_PKG_NAME
689: , '>> ' || l_program || ': OSA flag is ' || l_osa_flag
690: );
683: );
684:
685: IF g_log_enabled THEN
686: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
687: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
688: , G_PKG_NAME
689: , '>> ' || l_program || ': OSA flag is ' || l_osa_flag
690: );
691: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
687: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
688: , G_PKG_NAME
689: , '>> ' || l_program || ': OSA flag is ' || l_osa_flag
690: );
691: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
692: , G_PKG_NAME
693: , '>> ' || l_program || ': Component flag is ' || l_comp_flag
694: );
695: END IF;
704: , p_vendor_id => p_vendor_id
705: , p_vendor_site_id => p_vendor_site_id
706: );
707: IF g_log_enabled THEN
708: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
709: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
710: , G_PKG_NAME
711: , '>> ' || l_program || ' mp org id - ' ||
712: l_mp_organization_id
705: , p_vendor_site_id => p_vendor_site_id
706: );
707: IF g_log_enabled THEN
708: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
709: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
710: , G_PKG_NAME
711: , '>> ' || l_program || ' mp org id - ' ||
712: l_mp_organization_id
713: );
718: (p_oem_org_id => p_organization_id,
719: p_mp_org_id => l_mp_organization_id);
720:
721: IF g_log_enabled THEN
722: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
723: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
724: , G_PKG_NAME
725: , '>> ' || l_program || ' subcontracting_type is ' ||
726: l_subcontracting_type
719: p_mp_org_id => l_mp_organization_id);
720:
721: IF g_log_enabled THEN
722: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
723: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
724: , G_PKG_NAME
725: , '>> ' || l_program || ' subcontracting_type is ' ||
726: l_subcontracting_type
727: );
739:
740: i:= g_oemtp_tbl.FIRST;
741:
742: IF g_log_enabled THEN
743: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
744: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
745: , G_PKG_NAME
746: , '>> ' || l_program || ' Index of g_oemtp_tbl is ' || i
747: );
740: i:= g_oemtp_tbl.FIRST;
741:
742: IF g_log_enabled THEN
743: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
744: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
745: , G_PKG_NAME
746: , '>> ' || l_program || ' Index of g_oemtp_tbl is ' || i
747: );
748: END IF;
758: x_valid_flag := g_oemtp_tbl(i).status;
759: x_tp_organization_id := g_oemtp_tbl(i).tp_organization_id;
760:
761: IF g_log_enabled THEN
762: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
763: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
764: , G_PKG_NAME
765: , '>> ' || l_program || ': x_valid_flag = '
766: || x_valid_flag
759: x_tp_organization_id := g_oemtp_tbl(i).tp_organization_id;
760:
761: IF g_log_enabled THEN
762: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
763: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
764: , G_PKG_NAME
765: , '>> ' || l_program || ': x_valid_flag = '
766: || x_valid_flag
767: );
764: , G_PKG_NAME
765: , '>> ' || l_program || ': x_valid_flag = '
766: || x_valid_flag
767: );
768: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
769: , G_PKG_NAME
770: , '>> ' || l_program || ': x_tp_organization_id = '
771: || x_tp_organization_id
772: );
778:
779: i := i + 1;
780:
781: IF g_log_enabled THEN
782: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
783: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
784: , G_PKG_NAME
785: , '>> ' || l_program || ': index of g_oemtp_tbl is now ' || i
786: );
779: i := i + 1;
780:
781: IF g_log_enabled THEN
782: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
783: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
784: , G_PKG_NAME
785: , '>> ' || l_program || ': index of g_oemtp_tbl is now ' || i
786: );
787: END IF;
792: IF NOT(l_exists)
793: THEN
794:
795: IF g_log_enabled THEN
796: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
797: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
798: , G_PKG_NAME
799: , '>> ' || l_program || ': Calling Get_OEM-TP_Org with '
800: || 'p_organization_id = ' || p_organization_id
793: THEN
794:
795: IF g_log_enabled THEN
796: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
797: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
798: , G_PKG_NAME
799: , '>> ' || l_program || ': Calling Get_OEM-TP_Org with '
800: || 'p_organization_id = ' || p_organization_id
801: || ', p_vendor_id = ' || p_vendor_id
816: -- outsourced_assembly attribute of the item at the TP org to ensure
817: -- it is set so that it can follow the SHIKYU flow.
818:
819: IF g_log_enabled THEN
820: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
821: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
822: , G_PKG_NAME
823: , '>> ' || l_program || ': x_tp_organization_id = '
824: || x_tp_organization_id
817: -- it is set so that it can follow the SHIKYU flow.
818:
819: IF g_log_enabled THEN
820: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
821: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
822: , G_PKG_NAME
823: , '>> ' || l_program || ': x_tp_organization_id = '
824: || x_tp_organization_id
825: );
842: , x_subcontracting_component => l_comp_flag
843: );
844:
845: IF g_log_enabled THEN
846: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
847: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
848: , G_PKG_NAME
849: , '>> ' || l_program || ': OSA flag = ' || l_osa_flag
850: );
843: );
844:
845: IF g_log_enabled THEN
846: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
847: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
848: , G_PKG_NAME
849: , '>> ' || l_program || ': OSA flag = ' || l_osa_flag
850: );
851: END IF;
876: , x_consigned_billing_cycle => l_consigned_billing_cycle
877: );
878:
879: IF g_log_enabled THEN
880: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
881: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
882: , G_PKG_NAME
883: , '>> ' || l_program || ': Consigned flag = '
884: || l_consigned_from_supplier_flag
877: );
878:
879: IF g_log_enabled THEN
880: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
881: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
882: , G_PKG_NAME
883: , '>> ' || l_program || ': Consigned flag = '
884: || l_consigned_from_supplier_flag
885: );
912: x_valid_flag := 'N';
913: END IF;
914:
915: IF g_log_enabled AND
916: (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
917: THEN
918: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
919: , G_PKG_NAME
920: , '>> ' || G_PKG_NAME || '.' || l_program
914:
915: IF g_log_enabled AND
916: (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
917: THEN
918: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
919: , G_PKG_NAME
920: , '>> ' || G_PKG_NAME || '.' || l_program
921: || ': x_valid_flag after Lot/Serial validation = ' || x_valid_flag
922: );
925:
926: END IF;
927:
928: IF g_log_enabled THEN
929: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
930: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
931: , G_PKG_NAME
932: , '>> ' || l_program || ': x_valid_flag after Consigned validation = ' || x_valid_flag
933: );
926: END IF;
927:
928: IF g_log_enabled THEN
929: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
930: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
931: , G_PKG_NAME
932: , '>> ' || l_program || ': x_valid_flag after Consigned validation = ' || x_valid_flag
933: );
934: END IF;
940: FND_MSG_PUB.add;
941: END IF;
942:
943: IF g_log_enabled THEN
944: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
945: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
946: , G_PKG_NAME
947: , '>> ' || l_program || ': Exit'
948: );
941: END IF;
942:
943: IF g_log_enabled THEN
944: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
945: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
946: , G_PKG_NAME
947: , '>> ' || l_program || ': Exit'
948: );
949: END IF;
971: l_program CONSTANT VARCHAR2(30) := 'Verify_Org_Attributes';
972: BEGIN
973:
974: IF g_log_enabled THEN
975: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
976: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
977: , G_PKG_NAME
978: , '>> ' || l_program || ': Start'
979: );
972: BEGIN
973:
974: IF g_log_enabled THEN
975: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
976: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
977: , G_PKG_NAME
978: , '>> ' || l_program || ': Start'
979: );
980: END IF;
1003: FND_MESSAGE.set_name('JMF', 'JMF_SHK_ORG_ATTR_ERR');
1004: FND_MSG_PUB.add;
1005:
1006: IF g_log_enabled AND
1007: (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1008: THEN
1009: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1010: , G_PKG_NAME
1011: , '>> ' || l_program
1005:
1006: IF g_log_enabled AND
1007: (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1008: THEN
1009: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1010: , G_PKG_NAME
1011: , '>> ' || l_program
1012: || ': Validation failed for Organization with ID = '
1013: || p_organization_id
1025: g_org_tbl(g_org_tbl.COUNT).organization_id := p_organization_id;
1026: g_org_tbl(g_org_tbl.COUNT).status := 'Y';
1027:
1028: IF g_log_enabled AND
1029: (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1030: THEN
1031: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1032: , G_PKG_NAME
1033: , '>> ' || l_program
1027:
1028: IF g_log_enabled AND
1029: (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1030: THEN
1031: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1032: , G_PKG_NAME
1033: , '>> ' || l_program
1034: || ': Validation passed for Organization with ID = '
1035: || p_organization_id
1039: END IF;
1040:
1041: /*Commenting these debug stmnts as they are not needed
1042: IF g_log_enabled AND
1043: (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1044: THEN
1045: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1046: , G_PKG_NAME
1047: , '>> ' || l_program
1041: /*Commenting these debug stmnts as they are not needed
1042: IF g_log_enabled AND
1043: (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1044: THEN
1045: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1046: , G_PKG_NAME
1047: , '>> ' || l_program
1048: || ': Validation failed for Organization with ID = '
1049: || p_organization_id
1057: END IF;
1058: */
1059:
1060: IF g_log_enabled THEN
1061: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1062: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1063: , G_PKG_NAME
1064: , '>> ' || l_program || ': Exit'
1065: );
1058: */
1059:
1060: IF g_log_enabled THEN
1061: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1062: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1063: , G_PKG_NAME
1064: , '>> ' || l_program || ': Exit'
1065: );
1066: END IF;
1069: EXCEPTION
1070:
1071: WHEN NO_DATA_FOUND THEN
1072: IF g_log_enabled THEN
1073: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1074: FND_LOG.string(FND_LOG.LEVEL_ERROR
1075: , G_PKG_NAME || l_program || '.no_data_found'
1076: , 'Org does not exist');
1077: END IF;
1070:
1071: WHEN NO_DATA_FOUND THEN
1072: IF g_log_enabled THEN
1073: IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1074: FND_LOG.string(FND_LOG.LEVEL_ERROR
1075: , G_PKG_NAME || l_program || '.no_data_found'
1076: , 'Org does not exist');
1077: END IF;
1078: END IF;
1078: END IF;
1079:
1080: WHEN OTHERS THEN
1081: IF g_log_enabled AND
1082: (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1083: THEN
1084: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
1085: , G_PKG_NAME
1086: , G_PKG_NAME || l_program || ': ' || sqlerrm);
1080: WHEN OTHERS THEN
1081: IF g_log_enabled AND
1082: (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1083: THEN
1084: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
1085: , G_PKG_NAME
1086: , G_PKG_NAME || l_program || ': ' || sqlerrm);
1087: END IF;
1088:
1119: l_program CONSTANT VARCHAR2(30) := 'Verify_Shikyu_Attributes';
1120: BEGIN
1121:
1122: IF g_log_enabled THEN
1123: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1124: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1125: , G_PKG_NAME
1126: , '>> ' || l_program || ': Start'
1127: );
1120: BEGIN
1121:
1122: IF g_log_enabled THEN
1123: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1124: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1125: , G_PKG_NAME
1126: , '>> ' || l_program || ': Start'
1127: );
1128: END IF;
1168: FND_MESSAGE.set_name('JMF', 'JMF_SHK_COMP_ATTR_ERR');
1169: FND_MSG_PUB.add;
1170:
1171: IF g_log_enabled AND
1172: (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1173: THEN
1174: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1175: , G_PKG_NAME
1176: , '>> ' || l_program
1170:
1171: IF g_log_enabled AND
1172: (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1173: THEN
1174: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1175: , G_PKG_NAME
1176: , '>> ' || l_program
1177: || ': Subcontracting Component flag not equals to 1 or 2 '
1178: || 'for component_id = '
1188: FND_MESSAGE.set_name('JMF', 'JMF_SHK_COMP_ATTR_ERR');
1189: FND_MSG_PUB.add;
1190:
1191: IF g_log_enabled AND
1192: (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1193: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1194: , G_PKG_NAME
1195: , '>> ' || l_program
1196: || ': Subcontracting Component flag not equals to 1 or 2 '
1189: FND_MSG_PUB.add;
1190:
1191: IF g_log_enabled AND
1192: (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1193: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1194: , G_PKG_NAME
1195: , '>> ' || l_program
1196: || ': Subcontracting Component flag not equals to 1 or 2 '
1197: || 'for component_id = '
1204: END IF;
1205:
1206:
1207: IF g_log_enabled THEN
1208: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1209: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1210: , G_PKG_NAME
1211: , '>> ' || l_program || ': Exit'
1212: );
1205:
1206:
1207: IF g_log_enabled THEN
1208: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1209: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1210: , G_PKG_NAME
1211: , '>> ' || l_program || ': Exit'
1212: );
1213: END IF;
1310:
1311: BEGIN
1312:
1313: IF g_log_enabled THEN
1314: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1315: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1316: , G_PKG_NAME
1317: , '>> ' || l_program || ': Start'
1318: );
1311: BEGIN
1312:
1313: IF g_log_enabled THEN
1314: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1315: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1316: , G_PKG_NAME
1317: , '>> ' || l_program || ': Start'
1318: );
1319: END IF;
1406: l_count := l_subcontract_rec.COUNT;
1407:
1408: --Debug changes for bug 9315131
1409: IF g_log_enabled THEN
1410: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1411: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1412: , G_PKG_NAME
1413: , '>> ' || l_program
1414: ||'Count of records to process:' || l_count
1407:
1408: --Debug changes for bug 9315131
1409: IF g_log_enabled THEN
1410: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1411: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1412: , G_PKG_NAME
1413: , '>> ' || l_program
1414: ||'Count of records to process:' || l_count
1415: );
1426: -- to validate.
1427:
1428: --Debug changes for bug 9315131
1429: IF g_log_enabled THEN
1430: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1431: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1432: , G_PKG_NAME
1433: , '>> ' || l_program
1434: ||'----------------------Index i:' || i || '---------------------------------'
1427:
1428: --Debug changes for bug 9315131
1429: IF g_log_enabled THEN
1430: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1431: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1432: , G_PKG_NAME
1433: , '>> ' || l_program
1434: ||'----------------------Index i:' || i || '---------------------------------'
1435: );
1432: , G_PKG_NAME
1433: , '>> ' || l_program
1434: ||'----------------------Index i:' || i || '---------------------------------'
1435: );
1436: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1437: , G_PKG_NAME
1438: , 'Processing: subcontract_po_shipment_id:' || l_subcontract_rec(i).subcontract_po_shipment_id
1439: );
1440: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1436: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1437: , G_PKG_NAME
1438: , 'Processing: subcontract_po_shipment_id:' || l_subcontract_rec(i).subcontract_po_shipment_id
1439: );
1440: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1441: , G_PKG_NAME
1442: , 'Processing: subcontract_po_header_id:' || l_subcontract_rec(i).subcontract_po_header_id
1443: );
1444: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1440: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1441: , G_PKG_NAME
1442: , 'Processing: subcontract_po_header_id:' || l_subcontract_rec(i).subcontract_po_header_id
1443: );
1444: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1445: , G_PKG_NAME
1446: , 'Processing: subcontract_po_line_id:' || l_subcontract_rec(i).subcontract_po_line_id
1447: );
1448: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1444: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1445: , G_PKG_NAME
1446: , 'Processing: subcontract_po_line_id:' || l_subcontract_rec(i).subcontract_po_line_id
1447: );
1448: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1449: , G_PKG_NAME
1450: , 'Processing: oem_organization_id:' || l_subcontract_rec(i).oem_organization_id
1451: );
1452: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1448: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1449: , G_PKG_NAME
1450: , 'Processing: oem_organization_id:' || l_subcontract_rec(i).oem_organization_id
1451: );
1452: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1453: , G_PKG_NAME
1454: , 'Processing: tp_organization_id:' || l_subcontract_rec(i).tp_organization_id
1455: );
1456: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1452: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1453: , G_PKG_NAME
1454: , 'Processing: tp_organization_id:' || l_subcontract_rec(i).tp_organization_id
1455: );
1456: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1457: , G_PKG_NAME
1458: , 'Processing: vendor_id:' || l_subcontract_rec(i).vendor_id
1459: );
1460: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1456: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1457: , G_PKG_NAME
1458: , 'Processing: vendor_id:' || l_subcontract_rec(i).vendor_id
1459: );
1460: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1461: , G_PKG_NAME
1462: , 'Processing: vendor_site_id:' || l_subcontract_rec(i).vendor_site_id
1463: );
1464: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1460: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1461: , G_PKG_NAME
1462: , 'Processing: vendor_site_id:' || l_subcontract_rec(i).vendor_site_id
1463: );
1464: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1465: , G_PKG_NAME
1466: , 'Processing: osa_item_id:' || l_subcontract_rec(i).osa_item_id
1467: );
1468: END IF;
1516: END IF;
1517:
1518: --Debug changes for 9315131
1519: IF g_log_enabled THEN
1520: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1521: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1522: , G_PKG_NAME
1523: , '>> ' || l_program
1524: || 'After Validate_OSA_Item: l_valid_flag:' || l_valid_flag
1517:
1518: --Debug changes for 9315131
1519: IF g_log_enabled THEN
1520: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1521: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1522: , G_PKG_NAME
1523: , '>> ' || l_program
1524: || 'After Validate_OSA_Item: l_valid_flag:' || l_valid_flag
1525: );
1543: l_shipment_id := l_subcontract_rec(i).subcontract_po_shipment_id;
1544:
1545: --Debug changes for 9315131
1546: IF g_log_enabled THEN
1547: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1548: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1549: , G_PKG_NAME
1550: , '>> ' || l_program
1551: || 'l_shipment_id:' || l_shipment_id
1544:
1545: --Debug changes for 9315131
1546: IF g_log_enabled THEN
1547: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1548: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1549: , G_PKG_NAME
1550: , '>> ' || l_program
1551: || 'l_shipment_id:' || l_shipment_id
1552: );
1603: DELETE FROM JMF_SUBCONTRACT_ORDERS_TEMP
1604: WHERE subcontract_po_shipment_id = l_subcontract_rec(i).subcontract_po_shipment_id;
1605:
1606: IF g_log_enabled THEN
1607: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1608: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1609: , G_PKG_NAME
1610: , '>> ' || l_program
1611: || ': l_valid_flag is ''N'': Deleting record with subcontract_po_shipment_id = '
1604: WHERE subcontract_po_shipment_id = l_subcontract_rec(i).subcontract_po_shipment_id;
1605:
1606: IF g_log_enabled THEN
1607: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1608: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1609: , G_PKG_NAME
1610: , '>> ' || l_program
1611: || ': l_valid_flag is ''N'': Deleting record with subcontract_po_shipment_id = '
1612: || l_subcontract_rec(i).subcontract_po_shipment_id
1620: WHERE subcontract_po_shipment_id = l_subcontract_rec(i).subcontract_po_shipment_id;
1621:
1622: --Debug changes for bug 9315131
1623: IF g_log_enabled THEN
1624: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1625: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1626: , G_PKG_NAME
1627: , '>> ' || l_program
1628: || ':After updating jsot with tp org:'
1621:
1622: --Debug changes for bug 9315131
1623: IF g_log_enabled THEN
1624: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1625: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1626: , G_PKG_NAME
1627: , '>> ' || l_program
1628: || ':After updating jsot with tp org:'
1629: || l_subcontract_rec(i).tp_organization_id
1643: -- processed. 'N' is the first step in processing of the shipment lines.
1644:
1645: --Debug changes for bug 9315131
1646: IF g_log_enabled THEN
1647: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1648: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1649: , G_PKG_NAME
1650: , '>> ' || l_program
1651: ||':End of Loop. Merge stmnt about to be executed.'
1644:
1645: --Debug changes for bug 9315131
1646: IF g_log_enabled THEN
1647: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1648: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1649: , G_PKG_NAME
1650: , '>> ' || l_program
1651: ||':End of Loop. Merge stmnt about to be executed.'
1652: );
1733: FROM jmf_subcontract_orders
1734: WHERE interlock_status = 'E');
1735:
1736: IF g_log_enabled THEN
1737: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1738: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1739: , G_PKG_NAME
1740: , '>> ' || l_program || ': Exit'
1741: );
1734: WHERE interlock_status = 'E');
1735:
1736: IF g_log_enabled THEN
1737: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1738: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1739: , G_PKG_NAME
1740: , '>> ' || l_program || ': Exit'
1741: );
1742: END IF;
1745: EXCEPTION
1746:
1747: WHEN OTHERS THEN
1748: IF g_log_enabled AND
1749: (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1750: THEN
1751: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
1752: , G_PKG_NAME
1753: , G_PKG_NAME || l_program || ': ' || sqlerrm);
1747: WHEN OTHERS THEN
1748: IF g_log_enabled AND
1749: (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1750: THEN
1751: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
1752: , G_PKG_NAME
1753: , G_PKG_NAME || l_program || ': ' || sqlerrm);
1754: END IF;
1755:
1964: VARCHAR2(1);
1965:
1966: BEGIN
1967: IF g_log_enabled THEN
1968: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1969: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1970: , G_PKG_NAME
1971: , '>> ' || l_program || ': Start'
1972: );
1965:
1966: BEGIN
1967: IF g_log_enabled THEN
1968: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1969: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1970: , G_PKG_NAME
1971: , '>> ' || l_program || ': Start'
1972: );
1973: END IF;
1999: EXIT;
2000: END IF;
2001:
2002: IF g_log_enabled THEN
2003: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
2004: THEN
2005: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
2006: , G_PKG_NAME
2007: , '>> ' || l_program || ': Fetching Replenishment POs not yet loaded');
2001:
2002: IF g_log_enabled THEN
2003: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
2004: THEN
2005: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
2006: , G_PKG_NAME
2007: , '>> ' || l_program || ': Fetching Replenishment POs not yet loaded');
2008:
2009: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
2005: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
2006: , G_PKG_NAME
2007: , '>> ' || l_program || ': Fetching Replenishment POs not yet loaded');
2008:
2009: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
2010: , G_PKG_NAME
2011: , '>> ' || l_program
2012: || ': l_line_location_id = ' || l_line_location_id
2013: || ', l_oem_organization_id = ' || l_oem_organization_id
2039: , x_subcontracting_component => l_comp_flag
2040: );
2041:
2042: IF g_log_enabled THEN
2043: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2044: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
2045: , G_PKG_NAME
2046: , '>> ' || l_program
2047: || ': After calling Get_Shikyu_Attributes: l_return_status = '
2040: );
2041:
2042: IF g_log_enabled THEN
2043: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2044: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
2045: , G_PKG_NAME
2046: , '>> ' || l_program
2047: || ': After calling Get_Shikyu_Attributes: l_return_status = '
2048: || l_return_status
2096: , x_order_line_id => l_order_line_id
2097: );
2098:
2099: IF g_log_enabled AND
2100: (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2101: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
2102: , G_PKG_NAME
2103: , '>> ' || l_program
2104: || ': After calling Process_Replenishment_SO: l_return_status = '
2097: );
2098:
2099: IF g_log_enabled AND
2100: (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2101: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
2102: , G_PKG_NAME
2103: , '>> ' || l_program
2104: || ': After calling Process_Replenishment_SO: l_return_status = '
2105: || l_return_status
2127: l_ordered_uom:= JMF_SHIKYU_UTIL.Get_UOM_Code(l_po_uom);
2128:
2129: --Debugging for bug 9315131
2130: IF g_log_enabled AND
2131: (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2132: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
2133: , G_PKG_NAME
2134: , '>> ' || l_program
2135: || ': l_order_header_id = ' || l_order_header_id
2128:
2129: --Debugging for bug 9315131
2130: IF g_log_enabled AND
2131: (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2132: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
2133: , G_PKG_NAME
2134: , '>> ' || l_program
2135: || ': l_order_header_id = ' || l_order_header_id
2136: || ', l_ship_date = ' || l_ship_date
2156: END IF; /* IF l_primary_uom <> l_ordered_uom */
2157:
2158: --Debugging for bug 9315131
2159: IF g_log_enabled AND
2160: (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2161: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
2162: , G_PKG_NAME
2163: , '>> ' || l_program
2164: || ': l_primary_uom_qty = ' || l_primary_uom_qty
2157:
2158: --Debugging for bug 9315131
2159: IF g_log_enabled AND
2160: (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2161: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
2162: , G_PKG_NAME
2163: , '>> ' || l_program
2164: || ': l_primary_uom_qty = ' || l_primary_uom_qty
2165: );
2176: AND org_information_context = 'Customer/Supplier Association';
2177:
2178: --Debugging for bug 9315131
2179: IF g_log_enabled AND
2180: (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2181: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
2182: , G_PKG_NAME
2183: , '>> ' || l_program
2184: || ': l_tp_supplier_id = ' || l_tp_supplier_id
2177:
2178: --Debugging for bug 9315131
2179: IF g_log_enabled AND
2180: (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2181: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
2182: , G_PKG_NAME
2183: , '>> ' || l_program
2184: || ': l_tp_supplier_id = ' || l_tp_supplier_id
2185: || ', l_tp_supplier_site_id = ' || l_tp_supplier_site_id
2259: WHERE subcontract_po_shipment_id = l_osa_shipment_id
2260: AND shikyu_component_id = l_component_id;
2261:
2262: IF g_log_enabled
2263: AND (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
2264: THEN
2265: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
2266: , G_PKG_NAME
2267: , '>> ' || l_program || ': Setting replen_so_creation_failed = ''Y'' '
2261:
2262: IF g_log_enabled
2263: AND (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
2264: THEN
2265: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
2266: , G_PKG_NAME
2267: , '>> ' || l_program || ': Setting replen_so_creation_failed = ''Y'' '
2268: || 'for subcontract_po_shipment_id = '
2269: || l_osa_shipment_id
2281: --Bugfix 9315131
2282: close c_rep;
2283:
2284: IF g_log_enabled THEN
2285: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2286: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
2287: , G_PKG_NAME
2288: , '>> ' || l_program || ': Exit'
2289: );
2282: close c_rep;
2283:
2284: IF g_log_enabled THEN
2285: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2286: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
2287: , G_PKG_NAME
2288: , '>> ' || l_program || ': Exit'
2289: );
2290: END IF;
2314: EXIT;
2315: ELSE
2316:
2317: IF g_log_enabled
2318: AND (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
2319: THEN
2320: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
2321: , G_PKG_NAME
2322: , '>> ' || l_program || ': Fetching Subcontract Orders not fully allocated');
2316:
2317: IF g_log_enabled
2318: AND (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
2319: THEN
2320: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
2321: , G_PKG_NAME
2322: , '>> ' || l_program || ': Fetching Subcontract Orders not fully allocated');
2323:
2324: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
2320: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
2321: , G_PKG_NAME
2322: , '>> ' || l_program || ': Fetching Subcontract Orders not fully allocated');
2323:
2324: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
2325: , G_PKG_NAME
2326: , '>> ' || l_program
2327: || ': l_osa_shipment_id = ' || l_osa_shipment_id
2328: || ', l_osa_component_id = ' || l_osa_component_id
2356: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
2357: THEN
2358:
2359: IF g_log_enabled
2360: AND (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
2361: THEN
2362: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
2363: , G_PKG_NAME
2364: , '>> ' || l_program || ': Allocation Failed'
2358:
2359: IF g_log_enabled
2360: AND (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
2361: THEN
2362: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
2363: , G_PKG_NAME
2364: , '>> ' || l_program || ': Allocation Failed'
2365: );
2366: END IF;
2368: END IF; /* IF l_return_status <> FND_API.G_RET_STS_SUCCESS */
2369:
2370: --Debug changes for bugfix 9315131
2371: IF g_log_enabled
2372: AND (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
2373: THEN
2374: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
2375: , G_PKG_NAME
2376: , '>> ' || l_program
2370: --Debug changes for bugfix 9315131
2371: IF g_log_enabled
2372: AND (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
2373: THEN
2374: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
2375: , G_PKG_NAME
2376: , '>> ' || l_program
2377: || ': l_replen_so_creation_failed:' || l_replen_so_creation_failed
2378: );
2410: close c_alloc;
2411: end if;
2412:
2413: IF g_log_enabled AND
2414: (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
2415: THEN
2416: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
2417: , G_PKG_NAME
2418: , G_PKG_NAME || l_program || ': ' || sqlerrm);
2412:
2413: IF g_log_enabled AND
2414: (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
2415: THEN
2416: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
2417: , G_PKG_NAME
2418: , G_PKG_NAME || l_program || ': ' || sqlerrm);
2419: END IF;
2420:
2552:
2553: BEGIN
2554:
2555: IF g_log_enabled THEN
2556: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2557: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
2558: , G_PKG_NAME
2559: , '>> ' || l_program || ': Start'
2560: );
2553: BEGIN
2554:
2555: IF g_log_enabled THEN
2556: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2557: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
2558: , G_PKG_NAME
2559: , '>> ' || l_program || ': Start'
2560: );
2561: END IF;
2566: BULK COLLECT INTO l_osa_tbl;
2567: CLOSE c_comp_cur;
2568:
2569: IF g_log_enabled THEN
2570: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2571: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
2572: , G_PKG_NAME
2573: , '>> ' || l_program || ': After opening c_comp_cur, l_osa_tbl.COUNT = ' || l_osa_tbl.COUNT
2574: );
2567: CLOSE c_comp_cur;
2568:
2569: IF g_log_enabled THEN
2570: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2571: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
2572: , G_PKG_NAME
2573: , '>> ' || l_program || ': After opening c_comp_cur, l_osa_tbl.COUNT = ' || l_osa_tbl.COUNT
2574: );
2575: END IF;
2579: FOR i IN l_osa_tbl.FIRST..l_osa_tbl.LAST
2580: LOOP
2581:
2582: IF g_log_enabled AND
2583: (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
2584: THEN
2585: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
2586: , G_PKG_NAME
2587: , '>> ' || l_program || ': Exploding BOM for subcontract_po_shipment_id = '
2581:
2582: IF g_log_enabled AND
2583: (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
2584: THEN
2585: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
2586: , G_PKG_NAME
2587: , '>> ' || l_program || ': Exploding BOM for subcontract_po_shipment_id = '
2588: || l_osa_tbl(i).subcontract_po_shipment_id
2589: || ', osa_item_id = '
2603: WHERE bor.organization_id = l_osa_tbl(i).tp_organization_id
2604: AND bor.assembly_item_id = l_osa_tbl(i).osa_item_id;
2605:
2606: IF g_log_enabled AND
2607: (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
2608: THEN
2609: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
2610: , G_PKG_NAME
2611: , '>> ' || l_program || ': l_routing_count = '
2605:
2606: IF g_log_enabled AND
2607: (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
2608: THEN
2609: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
2610: , G_PKG_NAME
2611: , '>> ' || l_program || ': l_routing_count = '
2612: || l_routing_count
2613: );
2631: );
2632:
2633: --Debugging for bug 9315131
2634: IF g_log_enabled AND
2635: (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
2636: THEN
2637: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
2638: , G_PKG_NAME
2639: , '>> ' || l_program
2633: --Debugging for bug 9315131
2634: IF g_log_enabled AND
2635: (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
2636: THEN
2637: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
2638: , G_PKG_NAME
2639: , '>> ' || l_program
2640: ||': uom_code = ' || l_osa_tbl(i).uom_code
2641: || ': primary_uom_code = ' || l_osa_tbl(i).primary_uom_code
2662:
2663: END IF;
2664:
2665: IF g_log_enabled AND
2666: (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
2667: THEN
2668: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
2669: , G_PKG_NAME
2670: , '>> ' || l_program
2664:
2665: IF g_log_enabled AND
2666: (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
2667: THEN
2668: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
2669: , G_PKG_NAME
2670: , '>> ' || l_program
2671: || ': Primary UOM = '
2672: || l_osa_tbl(i).primary_uom_quantity
2677:
2678: EXCEPTION
2679: WHEN NO_DATA_FOUND THEN
2680: IF g_log_enabled AND
2681: (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
2682: THEN
2683: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
2684: , G_PKG_NAME
2685: , '>> ' || l_program
2679: WHEN NO_DATA_FOUND THEN
2680: IF g_log_enabled AND
2681: (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
2682: THEN
2683: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
2684: , G_PKG_NAME
2685: , '>> ' || l_program
2686: || ': NO DATA FOUND when trying to do UOM conversion for Subcontract PO Shipment with ID '
2687: || l_osa_tbl(i).subcontract_po_shipment_id
2700: , x_start_date => l_start_date
2701: );
2702:
2703: IF g_log_enabled THEN
2704: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2705: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
2706: , G_PKG_NAME
2707: , '>> ' || l_program || ': WIP Job Start Date = ' || l_start_date
2708: );
2701: );
2702:
2703: IF g_log_enabled THEN
2704: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2705: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
2706: , G_PKG_NAME
2707: , '>> ' || l_program || ': WIP Job Start Date = ' || l_start_date
2708: );
2709: END IF;
2730: , x_compTbl => l_comp_tbl
2731: , x_returnStatus => l_return_status);
2732:
2733: IF g_log_enabled THEN
2734: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2735: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
2736: , G_PKG_NAME
2737: , '>> ' || l_program || ': After calling wip_bflProc_priv.explodeRequirements: '
2738: || 'Return Status = ' || l_return_status
2731: , x_returnStatus => l_return_status);
2732:
2733: IF g_log_enabled THEN
2734: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2735: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
2736: , G_PKG_NAME
2737: , '>> ' || l_program || ': After calling wip_bflProc_priv.explodeRequirements: '
2738: || 'Return Status = ' || l_return_status
2739: || ', Comp Tbl Size = ' || l_comp_tbl.COUNT
2754: -- starting from loading the components.
2755:
2756: --Debugging for 9315131
2757: IF g_log_enabled THEN
2758: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2759: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
2760: , G_PKG_NAME
2761: , '>> ' || l_program || 'Inside If. Either wip returned error or No BOM for OSA'
2762: );
2755:
2756: --Debugging for 9315131
2757: IF g_log_enabled THEN
2758: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2759: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
2760: , G_PKG_NAME
2761: , '>> ' || l_program || 'Inside If. Either wip returned error or No BOM for OSA'
2762: );
2763: END IF;
2773: FND_MESSAGE.set_name('JMF', 'JMF_SHK_INVALID_BOM');
2774: FND_MSG_PUB.add;
2775:
2776: IF g_log_enabled THEN
2777: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2778: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
2779: , G_PKG_NAME
2780: , '>> ' || l_program
2781: || ': WIP Explode Requirements API failed for organization_id = '
2774: FND_MSG_PUB.add;
2775:
2776: IF g_log_enabled THEN
2777: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2778: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
2779: , G_PKG_NAME
2780: , '>> ' || l_program
2781: || ': WIP Explode Requirements API failed for organization_id = '
2782: || l_osa_tbl(i).tp_organization_id
2795: l_curr_index := l_comp_tbl.FIRST;
2796:
2797: LOOP
2798: IF g_log_enabled AND
2799: (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
2800: THEN
2801: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
2802: , G_PKG_NAME
2803: , '>> ' || l_program || ': Loading shikyu_component_id = '
2797: LOOP
2798: IF g_log_enabled AND
2799: (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
2800: THEN
2801: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
2802: , G_PKG_NAME
2803: , '>> ' || l_program || ': Loading shikyu_component_id = '
2804: || l_comp_tbl(l_curr_index).inventory_item_id
2805: || ', item_name = '
2820: WIP_CONSTANTS.PHANTOM)
2821: THEN
2822:
2823: IF g_log_enabled AND
2824: (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
2825: THEN
2826: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
2827: , G_PKG_NAME
2828: , '>> ' || l_program || ': Shikyu Component '
2822:
2823: IF g_log_enabled AND
2824: (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
2825: THEN
2826: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
2827: , G_PKG_NAME
2828: , '>> ' || l_program || ': Shikyu Component '
2829: || l_comp_tbl(l_curr_index).item_name
2830: || ' is of Supply Type Phantom/Bulk/Supplier and will not be loaded into JMF_SHIKYU_COMPONENTS'
2838: -- an immediate child of the assembly item, or the child of a phantom child
2839: -- (at any level) of the assembly.
2840:
2841: IF g_log_enabled AND
2842: (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2843: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
2844: , G_PKG_NAME
2845: , '>> ' || l_program
2846: || ': Quantity for Shikyu Component '
2839: -- (at any level) of the assembly.
2840:
2841: IF g_log_enabled AND
2842: (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2843: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
2844: , G_PKG_NAME
2845: , '>> ' || l_program
2846: || ': Quantity for Shikyu Component '
2847: || l_comp_tbl(l_curr_index).item_name
2858: WHERE subcontract_po_shipment_id = l_osa_tbl(i).subcontract_po_shipment_id
2859: AND shikyu_component_id = l_comp_tbl(l_curr_index).inventory_item_id;
2860:
2861: IF g_log_enabled AND
2862: (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2863: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
2864: , G_PKG_NAME
2865: , '>> ' || l_program
2866: || ': l_count_seq = '
2859: AND shikyu_component_id = l_comp_tbl(l_curr_index).inventory_item_id;
2860:
2861: IF g_log_enabled AND
2862: (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2863: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
2864: , G_PKG_NAME
2865: , '>> ' || l_program
2866: || ': l_count_seq = '
2867: || l_count_seq
2874: IF l_count_seq > 0
2875: THEN
2876:
2877: IF g_log_enabled AND
2878: (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2879: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
2880: , G_PKG_NAME
2881: , '>> ' || l_program
2882: || ': BOM has same item defined in multiple operation sequences for subcontract_po_shipment_id '
2875: THEN
2876:
2877: IF g_log_enabled AND
2878: (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2879: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
2880: , G_PKG_NAME
2881: , '>> ' || l_program
2882: || ': BOM has same item defined in multiple operation sequences for subcontract_po_shipment_id '
2883: || l_osa_tbl(i).subcontract_po_shipment_id
2888:
2889: -- Verify the attributes of the Shikyu components that are to be loaded.
2890:
2891: IF g_log_enabled THEN
2892: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2893: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
2894: , G_PKG_NAME
2895: , '>> ' || l_program
2896: || ': Call Verify_Shikyu_Attributes for shikyu_component_id = '
2889: -- Verify the attributes of the Shikyu components that are to be loaded.
2890:
2891: IF g_log_enabled THEN
2892: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2893: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
2894: , G_PKG_NAME
2895: , '>> ' || l_program
2896: || ': Call Verify_Shikyu_Attributes for shikyu_component_id = '
2897: || l_comp_tbl(l_curr_index).inventory_item_id);
2906: , x_return_status => l_return_status
2907: );
2908:
2909: IF g_log_enabled AND
2910: (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
2911: THEN
2912: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
2913: , G_PKG_NAME
2914: , '>> ' || l_program || ': Return status from Verify_Shikyu_Attributes = '
2908:
2909: IF g_log_enabled AND
2910: (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
2911: THEN
2912: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
2913: , G_PKG_NAME
2914: , '>> ' || l_program || ': Return status from Verify_Shikyu_Attributes = '
2915: || l_return_status
2916: || ', for shikyu_component_id = '
2936: l_return_status := FND_API.G_RET_STS_ERROR;
2937: END IF;
2938:
2939: IF g_log_enabled AND
2940: (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
2941: THEN
2942: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
2943: , G_PKG_NAME
2944: , '>> ' || G_PKG_NAME || '.' || l_program
2938:
2939: IF g_log_enabled AND
2940: (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
2941: THEN
2942: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
2943: , G_PKG_NAME
2944: , '>> ' || G_PKG_NAME || '.' || l_program
2945: || ': l_return_status after Lot/Serial validation = '
2946: || l_return_status
2953:
2954: END IF;
2955:
2956: IF g_log_enabled THEN
2957: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2958: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
2959: , G_PKG_NAME
2960: , '>> ' || l_program
2961: || ': primary_uom_code for shikyu_component_id '
2954: END IF;
2955:
2956: IF g_log_enabled THEN
2957: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2958: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
2959: , G_PKG_NAME
2960: , '>> ' || l_program
2961: || ': primary_uom_code for shikyu_component_id '
2962: || l_comp_tbl(l_curr_index).inventory_item_id
3005: , null
3006: );
3007:
3008: IF g_log_enabled AND
3009: (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
3010: THEN
3011: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3012: , G_PKG_NAME
3013: , '>> ' || l_program
3007:
3008: IF g_log_enabled AND
3009: (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
3010: THEN
3011: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3012: , G_PKG_NAME
3013: , '>> ' || l_program
3014: || ': After insert into JMF_SHIKYU_COMPONENTS');
3015: END IF;
3016:
3017: ELSE
3018:
3019: IF g_log_enabled AND
3020: (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
3021: THEN
3022: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3023: , G_PKG_NAME
3024: , '>> ' || l_program
3018:
3019: IF g_log_enabled AND
3020: (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
3021: THEN
3022: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3023: , G_PKG_NAME
3024: , '>> ' || l_program
3025: || ': JMF_SHIKYU_COMPONENTS record with ID = '
3026: || l_comp_tbl(l_curr_index).inventory_item_id
3053: , x_return_status => l_return_status
3054: );
3055:
3056: IF g_log_enabled AND
3057: (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
3058: THEN
3059: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3060: , G_PKG_NAME
3061: , '>> ' || l_program
3055:
3056: IF g_log_enabled AND
3057: (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
3058: THEN
3059: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3060: , G_PKG_NAME
3061: , '>> ' || l_program
3062: || ': Process_Replenishment_SO returns '
3063: || l_return_status
3099: DELETE FROM jmf_shikyu_components
3100: WHERE subcontract_po_shipment_id = l_osa_tbl(i).subcontract_po_shipment_id;
3101:
3102: IF g_log_enabled AND
3103: (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
3104: THEN
3105: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3106: , G_PKG_NAME
3107: , '>> ' || l_program || ': Component Validation failed for oem_organization_id = '
3101:
3102: IF g_log_enabled AND
3103: (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
3104: THEN
3105: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3106: , G_PKG_NAME
3107: , '>> ' || l_program || ': Component Validation failed for oem_organization_id = '
3108: || l_osa_tbl(i).oem_organization_id
3109: || ', tp_organization_id = '
3131:
3132: ELSE /* IF l_routing_count <= 0 */
3133:
3134: IF g_log_enabled AND
3135: (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
3136: THEN
3137: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3138: , G_PKG_NAME
3139: , '>> ' || l_program || ': Routing exists for oem_organization_id = '
3133:
3134: IF g_log_enabled AND
3135: (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
3136: THEN
3137: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3138: , G_PKG_NAME
3139: , '>> ' || l_program || ': Routing exists for oem_organization_id = '
3140: || l_osa_tbl(i).oem_organization_id
3141: || ', tp_organization_id = '
3144: || l_osa_tbl(i).osa_item_id
3145: || ', subcontract_po_shipment_id = '
3146: || l_osa_tbl(i).subcontract_po_shipment_id);
3147:
3148: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3149: , G_PKG_NAME
3150: , '>> ' || l_program
3151: || ': Marking the JMF_SUBCONTRACT_ORDERS record with interlock_status ''E''');
3152: END IF;
3168:
3169: END IF; /* IF l_osa_tbl.COUNT > 0 */
3170:
3171: IF g_log_enabled AND
3172: (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3173: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3174: , G_PKG_NAME
3175: , '>> ' || l_program || ': Exit'
3176: );
3169: END IF; /* IF l_osa_tbl.COUNT > 0 */
3170:
3171: IF g_log_enabled AND
3172: (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3173: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3174: , G_PKG_NAME
3175: , '>> ' || l_program || ': Exit'
3176: );
3177: END IF;
3179: EXCEPTION
3180:
3181: WHEN OTHERS THEN
3182: IF g_log_enabled AND
3183: (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
3184: THEN
3185: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
3186: , G_PKG_NAME
3187: , G_PKG_NAME || l_program || ': ' || sqlerrm);
3181: WHEN OTHERS THEN
3182: IF g_log_enabled AND
3183: (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
3184: THEN
3185: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
3186: , G_PKG_NAME
3187: , G_PKG_NAME || l_program || ': ' || sqlerrm);
3188: END IF;
3189:
3245: AND plla.org_id = p_operating_unit;
3246:
3247: BEGIN
3248:
3249: IF g_log_enabled AND FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
3250: THEN
3251: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3252: , G_PKG_NAME
3253: , '>> ' || l_program || ': Start'
3247: BEGIN
3248:
3249: IF g_log_enabled AND FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
3250: THEN
3251: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3252: , G_PKG_NAME
3253: , '>> ' || l_program || ': Start'
3254: );
3255: END IF;
3253: , '>> ' || l_program || ': Start'
3254: );
3255: END IF;
3256:
3257: IF g_log_enabled AND FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
3258: THEN
3259: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3260: , G_PKG_NAME
3261: , '>> ' || l_program || ': p_operating_unit = ' || p_operating_unit
3255: END IF;
3256:
3257: IF g_log_enabled AND FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
3258: THEN
3259: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3260: , G_PKG_NAME
3261: , '>> ' || l_program || ': p_operating_unit = ' || p_operating_unit
3262: );
3263: END IF;
3282: -- the jmf_shikyu_components table without creating the
3283: -- order line. This information is required when creating
3284: -- the replenishment SO for the component.
3285:
3286: IF g_log_enabled AND FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
3287: THEN
3288: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3289: , G_PKG_NAME
3290: , '>> ' || l_program
3284: -- the replenishment SO for the component.
3285:
3286: IF g_log_enabled AND FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
3287: THEN
3288: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3289: , G_PKG_NAME
3290: , '>> ' || l_program
3291: || ': Calling Process_Replenishment_SO for '
3292: || 'subcontract_po_shipment_id = ' || l_subcontract_po_shipment_id
3305: , x_order_line_id => l_order_line_id
3306: , x_return_status => l_return_status
3307: );
3308:
3309: IF g_log_enabled AND FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
3310: THEN
3311: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3312: , G_PKG_NAME
3313: , '>> ' || l_program
3307: );
3308:
3309: IF g_log_enabled AND FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
3310: THEN
3311: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3312: , G_PKG_NAME
3313: , '>> ' || l_program
3314: || ': Process_Replenishment_SO returns '
3315: || l_return_status
3320:
3321: CLOSE c_comp_cur;
3322:
3323:
3324: IF g_log_enabled AND FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
3325: THEN
3326: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3327: , G_PKG_NAME
3328: , '>> ' || l_program || ': Exit'
3322:
3323:
3324: IF g_log_enabled AND FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
3325: THEN
3326: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3327: , G_PKG_NAME
3328: , '>> ' || l_program || ': Exit'
3329: );
3330: END IF;
3337: CLOSE c_comp_cur;
3338: end if;
3339:
3340: IF g_log_enabled AND
3341: (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
3342: THEN
3343: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
3344: , G_PKG_NAME
3345: , G_PKG_NAME || l_program || ': ' || sqlerrm);
3339:
3340: IF g_log_enabled AND
3341: (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
3342: THEN
3343: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
3344: , G_PKG_NAME
3345: , G_PKG_NAME || l_program || ': ' || sqlerrm);
3346: END IF;
3347:
3365: l_program CONSTANT VARCHAR2(30) := 'Generate_Batch_Id';
3366: BEGIN
3367:
3368: IF g_log_enabled THEN
3369: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3370: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3371: , G_PKG_NAME
3372: , '>> ' || l_program || ': Start'
3373: );
3366: BEGIN
3367:
3368: IF g_log_enabled THEN
3369: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3370: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3371: , G_PKG_NAME
3372: , '>> ' || l_program || ': Start'
3373: );
3374: END IF;
3379: INTO l_batch_id
3380: FROM dual;
3381:
3382: IF g_log_enabled THEN
3383: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3384: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3385: , G_PKG_NAME
3386: , '>> ' || l_program || ': Exit'
3387: );
3380: FROM dual;
3381:
3382: IF g_log_enabled THEN
3383: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3384: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3385: , G_PKG_NAME
3386: , '>> ' || l_program || ': Exit'
3387: );
3388: END IF;
3434:
3435: BEGIN
3436:
3437: IF g_log_enabled THEN
3438: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3439: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3440: , G_PKG_NAME
3441: , '>> ' || l_program || ': Start >>'
3442: );
3435: BEGIN
3436:
3437: IF g_log_enabled THEN
3438: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3439: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3440: , G_PKG_NAME
3441: , '>> ' || l_program || ': Start >>'
3442: );
3443: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3439: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3440: , G_PKG_NAME
3441: , '>> ' || l_program || ': Start >>'
3442: );
3443: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3444: , '>> ' || l_program || ': p_batch_id = '
3445: , p_batch_id
3446: );
3447: END IF;
3455: FOR i IN l_osa_tbl.FIRST .. l_osa_tbl.LAST
3456: LOOP
3457:
3458: IF g_log_enabled AND
3459: (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
3460: THEN
3461: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3462: , G_PKG_NAME
3463: , '>> ' || l_program || ': Processing Subcontracting Order with '
3457:
3458: IF g_log_enabled AND
3459: (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
3460: THEN
3461: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3462: , G_PKG_NAME
3463: , '>> ' || l_program || ': Processing Subcontracting Order with '
3464: || 'subcontract_po_shipment_id = '
3465: || l_osa_tbl(i).subcontract_po_shipment_id
3538: l_shipment_id := l_osa_tbl(i).subcontract_po_shipment_id;
3539:
3540: --Debugging for bug 9315131
3541: IF g_log_enabled AND
3542: (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
3543: THEN
3544: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3545: , G_PKG_NAME
3546: , '>> ' || l_program || ': Processed Subcontracting Order with '
3540: --Debugging for bug 9315131
3541: IF g_log_enabled AND
3542: (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
3543: THEN
3544: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3545: , G_PKG_NAME
3546: , '>> ' || l_program || ': Processed Subcontracting Order with '
3547: || 'subcontract_po_shipment_id = '
3548: || l_osa_tbl(i).subcontract_po_shipment_id
3598: WHERE subcontract_po_shipment_id = l_osa_tbl(i).subcontract_po_shipment_id;
3599:
3600: --Debugging changes for bug 9315131
3601: IF g_log_enabled THEN
3602: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3603: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3604: , G_PKG_NAME
3605: , '>> ' || l_program || ': Process_Wip_Job returned E for shipment:'
3606: || l_osa_tbl(i).subcontract_po_shipment_id
3599:
3600: --Debugging changes for bug 9315131
3601: IF g_log_enabled THEN
3602: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3603: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3604: , G_PKG_NAME
3605: , '>> ' || l_program || ': Process_Wip_Job returned E for shipment:'
3606: || l_osa_tbl(i).subcontract_po_shipment_id
3607: );
3642:
3643: WHEN OTHERS THEN
3644:
3645: IF g_log_enabled AND
3646: (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
3647: THEN
3648: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
3649: , G_PKG_NAME
3650: , G_PKG_NAME || l_program || ': ' || sqlerrm);
3644:
3645: IF g_log_enabled AND
3646: (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
3647: THEN
3648: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
3649: , G_PKG_NAME
3650: , G_PKG_NAME || l_program || ': ' || sqlerrm);
3651: END IF;
3652:
3726:
3727: BEGIN
3728:
3729: IF g_log_enabled THEN
3730: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3731: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3732: , G_PKG_NAME
3733: , '>> ' || l_program || ': Start'
3734: );
3727: BEGIN
3728:
3729: IF g_log_enabled THEN
3730: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3731: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3732: , G_PKG_NAME
3733: , '>> ' || l_program || ': Start'
3734: );
3735: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3731: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3732: , G_PKG_NAME
3733: , '>> ' || l_program || ': Start'
3734: );
3735: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3736: , G_PKG_NAME
3737: , '>> ' || l_program
3738: || ': p_batch_size = ' || p_batch_size
3739: || ', p_max_worker = ' || p_max_workers
3750: BULK COLLECT INTO l_osa_tbl;
3751: CLOSE c_proc_batch;
3752:
3753: IF g_log_enabled AND
3754: (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
3755: THEN
3756: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3757: , G_PKG_NAME
3758: , '>> ' || l_program
3752:
3753: IF g_log_enabled AND
3754: (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
3755: THEN
3756: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3757: , G_PKG_NAME
3758: , '>> ' || l_program
3759: || ': l_osa_tbl.COUNT = '|| l_osa_tbl.COUNT
3760: );
3773: ELSE
3774: l_batch_size := p_batch_size ;
3775: END IF;
3776:
3777: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3778: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3779: , G_PKG_NAME
3780: , '>> ' || l_program
3781: || ': Actual batch size = ' || l_batch_size
3774: l_batch_size := p_batch_size ;
3775: END IF;
3776:
3777: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3778: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3779: , G_PKG_NAME
3780: , '>> ' || l_program
3781: || ': Actual batch size = ' || l_batch_size
3782: );
3785: LOOP
3786: l_batch_id := generate_batch_id();
3787:
3788: IF g_log_enabled THEN
3789: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3790: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3791: , G_PKG_NAME
3792: , '>> '|| l_program
3793: || ': After calling generate_batch_id: '
3786: l_batch_id := generate_batch_id();
3787:
3788: IF g_log_enabled THEN
3789: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3790: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3791: , G_PKG_NAME
3792: , '>> '|| l_program
3793: || ': After calling generate_batch_id: '
3794: || 'current index = ' || l_curr_index
3806: , last_update_login = FND_GLOBAL.login_id
3807: WHERE subcontract_po_shipment_id = l_osa_tbl(i);
3808:
3809: IF g_log_enabled THEN
3810: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3811: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3812: , G_PKG_NAME
3813: , '>> ' || l_program
3814: || ': After updating JMF_SUBCONTRACT_ORDERS with batch ID '
3807: WHERE subcontract_po_shipment_id = l_osa_tbl(i);
3808:
3809: IF g_log_enabled THEN
3810: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3811: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3812: , G_PKG_NAME
3813: , '>> ' || l_program
3814: || ': After updating JMF_SUBCONTRACT_ORDERS with batch ID '
3815: || l_batch_id
3830: , x_return_status => l_return_status
3831: );
3832:
3833: IF g_log_enabled THEN
3834: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3835: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3836: , G_PKG_NAME
3837: , '>> ' || l_program || ': After calling submit_worker, '
3838: || 'l_return_status = ' || l_return_status
3831: );
3832:
3833: IF g_log_enabled THEN
3834: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3835: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3836: , G_PKG_NAME
3837: , '>> ' || l_program || ': After calling submit_worker, '
3838: || 'l_return_status = ' || l_return_status
3839: || ', l_request_id = ' || l_request_id
3843:
3844: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
3845: THEN
3846: IF g_log_enabled THEN
3847: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3848: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3849: , G_PKG_NAME
3850: , '>> ' || l_program || ': Batch with id ' || l_batch_id
3851: || ' not processed'
3844: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
3845: THEN
3846: IF g_log_enabled THEN
3847: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3848: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3849: , G_PKG_NAME
3850: , '>> ' || l_program || ': Batch with id ' || l_batch_id
3851: || ' not processed'
3852: );
3871: END IF;
3872:
3873: --- add check for all workers complete
3874:
3875: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3876: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3877: , G_PKG_NAME
3878: , '>> ' || l_program || ': After LOOP, waiting for all workers to complete, '
3879: || 'l_request_tbl COUNT = ' || l_request_tbl.COUNT
3872:
3873: --- add check for all workers complete
3874:
3875: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3876: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3877: , G_PKG_NAME
3878: , '>> ' || l_program || ': After LOOP, waiting for all workers to complete, '
3879: || 'l_request_tbl COUNT = ' || l_request_tbl.COUNT
3880: );
3882:
3883: jmf_shikyu_util.wait_for_all_workers(p_workers => l_request_tbl );
3884:
3885: IF g_log_enabled AND
3886: (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
3887: THEN
3888: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3889: , G_PKG_NAME
3890: , '>> ' || l_program || ': Exit'
3884:
3885: IF g_log_enabled AND
3886: (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
3887: THEN
3888: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3889: , G_PKG_NAME
3890: , '>> ' || l_program || ': Exit'
3891: );
3892: END IF;
3931: gOMDebug NUMBER := to_number(nvl(FND_PROFILE.value('ONT_DEBUG_LEVEL'),0));
3932:
3933: BEGIN
3934:
3935: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3936: g_log_enabled := TRUE;
3937: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3938: , 'JMFVSHKB '
3939: , '>> ' || l_program || ': Start >>'
3933: BEGIN
3934:
3935: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3936: g_log_enabled := TRUE;
3937: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3938: , 'JMFVSHKB '
3939: , '>> ' || l_program || ': Start >>'
3940: );
3941: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3937: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3938: , 'JMFVSHKB '
3939: , '>> ' || l_program || ': Start >>'
3940: );
3941: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3942: , 'JMFVSHKB p_batch_size => '
3943: , p_batch_size
3944: );
3945: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3941: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3942: , 'JMFVSHKB p_batch_size => '
3943: , p_batch_size
3944: );
3945: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3946: , ' p_max_workers => '
3947: , p_max_workers
3948: );
3949: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3945: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3946: , ' p_max_workers => '
3947: , p_max_workers
3948: );
3949: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3950: , ' p_operating_unit => '
3951: , p_operating_unit
3952: );
3953: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3949: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3950: , ' p_operating_unit => '
3951: , p_operating_unit
3952: );
3953: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3954: , ' p_from_organization => '
3955: , p_from_organization
3956: );
3957: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3953: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3954: , ' p_from_organization => '
3955: , p_from_organization
3956: );
3957: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3958: , ' p_to_organization => '
3959: , p_to_organization
3960: );
3961: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3957: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3958: , ' p_to_organization => '
3959: , p_to_organization
3960: );
3961: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3962: , ' p_from_po_number => '
3963: , p_from_po_number
3964: );
3965: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3961: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3962: , ' p_from_po_number => '
3963: , p_from_po_number
3964: );
3965: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3966: , ' p_to_po_number => '
3967: , p_to_po_number
3968: );
3969: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3965: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3966: , ' p_to_po_number => '
3967: , p_to_po_number
3968: );
3969: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3970: , ' p_days_in_advance => '
3971: , p_days_in_advance
3972: );
3973:
3981: oe_debug_pub.initialize;
3982: l_file_val := OE_DEBUG_PUB.Set_Debug_Mode('FILE');
3983: oe_Debug_pub.setdebuglevel(5);
3984:
3985: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
3986: , G_PKG_NAME
3987: , '>> ' || l_program || 'OM Debug File:' || l_file_val
3988: );
3989: end if;
4049: ELSE
4050: FND_MESSAGE.Set_Name('JMF', 'JMF_SHK_NOT_ENABLED');
4051: FND_MSG_PUB.Add;
4052: IF g_log_enabled THEN
4053: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4054: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4055: , G_PKG_NAME
4056: , '>> ' || l_program || ': Charge based SHIKYU not enabled >>'
4057: );
4050: FND_MESSAGE.Set_Name('JMF', 'JMF_SHK_NOT_ENABLED');
4051: FND_MSG_PUB.Add;
4052: IF g_log_enabled THEN
4053: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4054: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4055: , G_PKG_NAME
4056: , '>> ' || l_program || ': Charge based SHIKYU not enabled >>'
4057: );
4058: END IF;
4071: );
4072:
4073: WHEN OTHERS THEN
4074: IF g_log_enabled AND
4075: (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
4076: THEN
4077: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
4078: , G_PKG_NAME
4079: , G_PKG_NAME || l_program || ': ' || sqlerrm);
4073: WHEN OTHERS THEN
4074: IF g_log_enabled AND
4075: (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
4076: THEN
4077: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
4078: , G_PKG_NAME
4079: , G_PKG_NAME || l_program || ': ' || sqlerrm);
4080: END IF;
4081:
4101: )
4102: IS
4103: l_program CONSTANT VARCHAR2(30) := 'Subcontract_Orders_Worker';
4104: BEGIN
4105: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4106: g_log_enabled := TRUE;
4107:
4108: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4109: , G_PKG_NAME
4104: BEGIN
4105: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4106: g_log_enabled := TRUE;
4107:
4108: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4109: , G_PKG_NAME
4110: , '>> ' || l_program || ': Start'
4111: );
4112: END IF;
4113:
4114: JMF_SUBCONTRACT_ORDERS_PVT.Process_Subcontract_Orders(p_batch_id);
4115:
4116: IF g_log_enabled THEN
4117: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4118: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4119: , G_PKG_NAME
4120: , '>> ' || l_program || ': Exit'
4121: );
4114: JMF_SUBCONTRACT_ORDERS_PVT.Process_Subcontract_Orders(p_batch_id);
4115:
4116: IF g_log_enabled THEN
4117: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4118: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
4119: , G_PKG_NAME
4120: , '>> ' || l_program || ': Exit'
4121: );
4122: END IF;
4125: EXCEPTION
4126:
4127: WHEN OTHERS THEN
4128: IF g_log_enabled AND
4129: (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
4130: THEN
4131: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
4132: , G_PKG_NAME
4133: , G_PKG_NAME || l_program || ': ' || sqlerrm);
4127: WHEN OTHERS THEN
4128: IF g_log_enabled AND
4129: (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
4130: THEN
4131: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
4132: , G_PKG_NAME
4133: , G_PKG_NAME || l_program || ': ' || sqlerrm);
4134: END IF;
4135: