[Home] [Help]
564: EXCEPTION
565: WHEN APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION THEN
566: p_return_status := FALSE;
567: --Write to LOG unable to lock the Item.
568: INV_ITEM_MSG.Add_Message(p_Msg_Name => 'INV_LOCK_ITEM_FAILED'
569: ,p_token1 => 'ORG_ID'
570: ,p_value1 => TO_CHAR(p_Org_Id)
571: ,p_token2 => 'ITEM_ID'
572: ,p_value2 => TO_CHAR(p_Item_Id)
574: ,p_value3 => p_pending_status);
575: WHEN OTHERS THEN
576: p_return_status := FALSE;
577: --Write to LOG regarding the Exception.
578: INV_ITEM_MSG.Add_Message(p_Msg_Name => SUBSTRB(SQLERRM, 1,240));
579:
580: END update_item_attributes;
581:
582: PROCEDURE Process_Pending_Status(ERRBUF OUT NOCOPY VARCHAR2
659: G_PROG_APPID := NVL(p_prog_appid, FND_GLOBAL.prog_appl_id );
660: G_PROG_ID := NVL(p_prog_id, FND_GLOBAL.conc_program_id );
661: G_REQUEST_ID := NVL(p_request_id, FND_GLOBAL.conc_request_id );
662:
663: INV_ITEM_MSG.Initialize;
664: INV_ITEM_MSG.set_Message_Mode (p_msg_logname);
665: INV_ITEM_MSG.set_Message_Level (INV_ITEM_MSG.g_Level_Error);
666:
667: IF FND_API.To_Boolean (p_init_msg_list) THEN
660: G_PROG_ID := NVL(p_prog_id, FND_GLOBAL.conc_program_id );
661: G_REQUEST_ID := NVL(p_request_id, FND_GLOBAL.conc_request_id );
662:
663: INV_ITEM_MSG.Initialize;
664: INV_ITEM_MSG.set_Message_Mode (p_msg_logname);
665: INV_ITEM_MSG.set_Message_Level (INV_ITEM_MSG.g_Level_Error);
666:
667: IF FND_API.To_Boolean (p_init_msg_list) THEN
668: INV_ITEM_MSG.Initialize_Error_Handler;
661: G_REQUEST_ID := NVL(p_request_id, FND_GLOBAL.conc_request_id );
662:
663: INV_ITEM_MSG.Initialize;
664: INV_ITEM_MSG.set_Message_Mode (p_msg_logname);
665: INV_ITEM_MSG.set_Message_Level (INV_ITEM_MSG.g_Level_Error);
666:
667: IF FND_API.To_Boolean (p_init_msg_list) THEN
668: INV_ITEM_MSG.Initialize_Error_Handler;
669: END IF;
664: INV_ITEM_MSG.set_Message_Mode (p_msg_logname);
665: INV_ITEM_MSG.set_Message_Level (INV_ITEM_MSG.g_Level_Error);
666:
667: IF FND_API.To_Boolean (p_init_msg_list) THEN
668: INV_ITEM_MSG.Initialize_Error_Handler;
669: END IF;
670:
671: --13962600: LCP should not change when any expried status exists
672: OPEN c_get_expired_status (cp_org_id => P_Org_Id
676: INTO l_status_code, l_item_id, l_org_id;
677: EXIT WHEN c_get_expired_status%NOTFOUND;
678:
679: -- Write to log mentioning Couldnt not update Org, Item id, Status Code
680: INV_ITEM_MSG.Add_Message(p_Msg_Name => 'INV_UIPS_EXPIRE_STATUS_FAIL'
681: ,p_token1 => 'ORG_ID'
682: ,p_value1 => TO_CHAR(l_org_id)
683: ,p_token2 => 'ITEM_ID'
684: ,p_value2 => TO_CHAR(l_Item_Id)
693: RETCODE := G_WARNING;
694: ERRBUF := FND_MESSAGE.Get_String('INV', 'INV_UIPS_WARNING');
695:
696: IF p_msg_logname = 'FILE' THEN
697: INV_ITEM_MSG.Write_List (p_delete => TRUE);
698: END IF;
699: RETURN;
700: End IF;
701:
720: ,p_return_status => l_done);
721:
722: IF (l_done AND p_msg_logname = 'FILE') THEN
723: --Write to the log Updated : Org, Item id, Status Code
724: INV_ITEM_MSG.Add_Message(p_Msg_Name => 'INV_UPDT_ITEM_STATUS'
725: ,p_token1 => 'ORG_ID'
726: ,p_value1 => TO_CHAR(l_org_id)
727: ,p_token2 => 'ITEM_ID'
728: ,p_value2 => TO_CHAR(l_Item_Id)
751: -- Added for Bug 5230429
752: /*commented for bug 5479302
753: If (G_BOM_status =1) then
754: -- Write to log mentioning Couldnt not update since there are items in a Bill of Material
755: INV_ITEM_MSG.Add_Message(p_Msg_Name => 'INV_BOM_ITEM_TYPE_UP'
756: ,p_token1 => 'ORG_ID'
757: ,p_value1 => TO_CHAR(l_Org_Id)
758: ,p_token2 => 'ITEM_ID'
759: ,p_value2 => TO_CHAR(l_Item_Id)
763: end if; */
764:
765: if (G_Transactable_status) then
766: -- Write to log mentioning Couldnt not update since there are Open Sales Order lines.
767: INV_ITEM_MSG.Add_Message(p_Msg_Name => 'INV_TRANSACTABLE_YES_NO'
768: ,p_token1 => 'ORG_ID'
769: ,p_value1 => TO_CHAR(l_Org_Id)
770: ,p_token2 => 'ITEM_ID'
771: ,p_value2 => TO_CHAR(l_Item_Id)
775: end if;
776:
777: if (G_TRANSACTABLE = 1) then
778: -- Write to log mentioning Couldnt not update since there are Open Sales Order lines.
779: INV_ITEM_MSG.Add_Message(p_Msg_Name => 'INV_TRANSACTABLE_UNCHECK'
780: ,p_token1 => 'ORG_ID'
781: ,p_value1 => TO_CHAR(l_Org_Id)
782: ,p_token2 => 'ITEM_ID'
783: ,p_value2 => TO_CHAR(l_Item_Id)
787: end if;
788:
789: if (G_ORDERABLE = 1) then
790: -- Write to log mentioning Couldnt not update since there are Open Sales Order lines.
791: INV_ITEM_MSG.Add_Message(p_Msg_Name => 'INV_CUST_ORDERABLE_UNCHECK'
792: ,p_token1 => 'ORG_ID'
793: ,p_value1 => TO_CHAR(l_Org_Id)
794: ,p_token2 => 'ITEM_ID'
795: ,p_value2 => TO_CHAR(l_Item_Id)
799: end if;
800:
801: if (G_PURCHASABLE = 1) then
802: -- Write to log mentioning Couldnt not update since there are Open Sales Order lines.
803: INV_ITEM_MSG.Add_Message(p_Msg_Name => 'INV_PURCHASABLE_UNCHECK'
804: ,p_token1 => 'ORG_ID'
805: ,p_value1 => TO_CHAR(l_Org_Id)
806: ,p_token2 => 'ITEM_ID'
807: ,p_value2 => TO_CHAR(l_Item_Id)
811: end if;
812:
813:
814: -- Write to log mentioning Couldnt not update Org, Item id, Status Code
815: INV_ITEM_MSG.Add_Message(p_Msg_Name => 'INV_UPDT_ITEM_STATUS_FAIL'
816: ,p_token1 => 'ORG_ID'
817: ,p_value1 => TO_CHAR(l_org_id)
818: ,p_token2 => 'ITEM_ID'
819: ,p_value2 => TO_CHAR(l_Item_Id)
824: END LOOP;
825: CLOSE c_status_pending_items;
826:
827: IF p_msg_logname = 'FILE' THEN
828: INV_ITEM_MSG.Write_List (p_delete => TRUE);
829: END IF;
830:
831: EXCEPTION
832: WHEN OTHERS THEN
840: CLOSE c_get_control_level;
841: END IF;
842: RETCODE := G_ERROR;
843: ERRBUF := FND_MESSAGE.Get_String('INV', 'INV_UIPS_FAILURE');
844: INV_ITEM_MSG.Add_Message(p_Msg_Name => SUBSTRB(SQLERRM, 1,240));
845:
846: IF p_msg_logname = 'FILE' THEN
847: INV_ITEM_MSG.Write_List (p_delete => TRUE);
848: END IF;
843: ERRBUF := FND_MESSAGE.Get_String('INV', 'INV_UIPS_FAILURE');
844: INV_ITEM_MSG.Add_Message(p_Msg_Name => SUBSTRB(SQLERRM, 1,240));
845:
846: IF p_msg_logname = 'FILE' THEN
847: INV_ITEM_MSG.Write_List (p_delete => TRUE);
848: END IF;
849:
850: END Process_Pending_Status;
851: