656:
657: IF L_Count = 0 THEN /* No existing deliverable, create new */
658:
659:
660: FND_MESSAGE.Set_Name('OKE', 'OKE_DTS_DATA_CREATE_NEW');
661: X_Msg_1 := FND_MESSAGE.Get;
662:
663: L_Return_Status := 'N';
664:
657: IF L_Count = 0 THEN /* No existing deliverable, create new */
658:
659:
660: FND_MESSAGE.Set_Name('OKE', 'OKE_DTS_DATA_CREATE_NEW');
661: X_Msg_1 := FND_MESSAGE.Get;
662:
663: L_Return_Status := 'N';
664:
665:
675:
676: IF L_Req = 'Y' THEN
677:
678: IF P_Calling_Level = 'L' THEN
679: FND_MESSAGE.Set_Name('OKE', 'OKE_DTS_DATA_REQ');
680: ELSE
681: FND_MESSAGE.Set_Name('OKE', 'OKE_H_DTS_DATA_REQ');
682: END IF;
683:
677:
678: IF P_Calling_Level = 'L' THEN
679: FND_MESSAGE.Set_Name('OKE', 'OKE_DTS_DATA_REQ');
680: ELSE
681: FND_MESSAGE.Set_Name('OKE', 'OKE_H_DTS_DATA_REQ');
682: END IF;
683:
684: L_Msg := FND_MESSAGE.Get;
685: L_Msg3 := 'REQ';
680: ELSE
681: FND_MESSAGE.Set_Name('OKE', 'OKE_H_DTS_DATA_REQ');
682: END IF;
683:
684: L_Msg := FND_MESSAGE.Get;
685: L_Msg3 := 'REQ';
686:
687: ELSIF L_Wsh = 'Y' THEN
688:
686:
687: ELSIF L_Wsh = 'Y' THEN
688:
689: IF P_Calling_Level = 'L' THEN
690: FND_MESSAGE.Set_Name('OKE', 'OKE_DTS_DATA_WSH');
691: ELSE
692: FND_MESSAGE.Set_Name('OKE', 'OKE_H_DTS_DATA_WSH');
693: END IF;
694:
688:
689: IF P_Calling_Level = 'L' THEN
690: FND_MESSAGE.Set_Name('OKE', 'OKE_DTS_DATA_WSH');
691: ELSE
692: FND_MESSAGE.Set_Name('OKE', 'OKE_H_DTS_DATA_WSH');
693: END IF;
694:
695: L_Msg := FND_MESSAGE.Get;
696: L_Msg3 := 'WSH';
691: ELSE
692: FND_MESSAGE.Set_Name('OKE', 'OKE_H_DTS_DATA_WSH');
693: END IF;
694:
695: L_Msg := FND_MESSAGE.Get;
696: L_Msg3 := 'WSH';
697:
698: ELSIF L_Bil = 'Y' THEN
699:
697:
698: ELSIF L_Bil = 'Y' THEN
699:
700: IF P_Calling_Level = 'L' THEN
701: FND_MESSAGE.Set_Name('OKE', 'OKE_DTS_DATA_BILL');
702: ELSE
703: FND_MESSAGE.Set_Name('OKE', 'OKE_H_DTS_DATA_BILL');
704: END IF;
705:
699:
700: IF P_Calling_Level = 'L' THEN
701: FND_MESSAGE.Set_Name('OKE', 'OKE_DTS_DATA_BILL');
702: ELSE
703: FND_MESSAGE.Set_Name('OKE', 'OKE_H_DTS_DATA_BILL');
704: END IF;
705:
706: L_Msg := FND_MESSAGE.Get;
707: L_Msg3 := 'BIL';
702: ELSE
703: FND_MESSAGE.Set_Name('OKE', 'OKE_H_DTS_DATA_BILL');
704: END IF;
705:
706: L_Msg := FND_MESSAGE.Get;
707: L_Msg3 := 'BIL';
708:
709: ELSIF L_Completed = 'Y' THEN
710:
708:
709: ELSIF L_Completed = 'Y' THEN
710:
711: IF P_Calling_Level = 'L' THEN
712: FND_MESSAGE.Set_Name('OKE', 'OKE_DTS_DATA_COMPLETED');
713: ELSE
714: FND_MESSAGE.Set_Name('OKE', 'OKE_H_DTS_DATA_COMPLETED');
715: END IF;
716:
710:
711: IF P_Calling_Level = 'L' THEN
712: FND_MESSAGE.Set_Name('OKE', 'OKE_DTS_DATA_COMPLETED');
713: ELSE
714: FND_MESSAGE.Set_Name('OKE', 'OKE_H_DTS_DATA_COMPLETED');
715: END IF;
716:
717: L_Msg := FND_MESSAGE.Get;
718: L_Msg3 := 'COM';
713: ELSE
714: FND_MESSAGE.Set_Name('OKE', 'OKE_H_DTS_DATA_COMPLETED');
715: END IF;
716:
717: L_Msg := FND_MESSAGE.Get;
718: L_Msg3 := 'COM';
719:
720: ELSIF L_Mds = 'Y' THEN
721:
718: L_Msg3 := 'COM';
719:
720: ELSIF L_Mds = 'Y' THEN
721:
722: FND_MESSAGE.Set_Name('OKE', 'OKE_MISS_DATA_MDS');
723: L_Msg2 := FND_MESSAGE.Get;
724:
725: END IF;
726:
719:
720: ELSIF L_Mds = 'Y' THEN
721:
722: FND_MESSAGE.Set_Name('OKE', 'OKE_MISS_DATA_MDS');
723: L_Msg2 := FND_MESSAGE.Get;
724:
725: END IF;
726:
727: X_Msg_1 := L_Msg;
731:
732: ELSE /* Splited deliverable, not qualify for auto-update */
733:
734:
735: FND_MESSAGE.Set_Name('OKE', 'OKE_DTS_DATA_SPLIT');
736: L_Msg := FND_MESSAGE.Get;
737: X_Msg_1 := L_Msg;
738: X_Msg_3 := 'SPL';
739: L_Return_Status := 'S';
732: ELSE /* Splited deliverable, not qualify for auto-update */
733:
734:
735: FND_MESSAGE.Set_Name('OKE', 'OKE_DTS_DATA_SPLIT');
736: L_Msg := FND_MESSAGE.Get;
737: X_Msg_1 := L_Msg;
738: X_Msg_3 := 'SPL';
739: L_Return_Status := 'S';
740:
1656: END IF;
1657:
1658: IF L_Mps_S IS NOT NULL THEN
1659:
1660: FND_MESSAGE.Set_Name('OKE', 'OKE_DTS_DATA_MDS_SUCCESS');
1661: L_Token6 := FND_MESSAGE.Get;
1662: IF L_Token6_Value IS NULL THEN
1663: L_Token6_Value := UPDATE_REC.Line_Number;
1664: ELSE
1657:
1658: IF L_Mps_S IS NOT NULL THEN
1659:
1660: FND_MESSAGE.Set_Name('OKE', 'OKE_DTS_DATA_MDS_SUCCESS');
1661: L_Token6 := FND_MESSAGE.Get;
1662: IF L_Token6_Value IS NULL THEN
1663: L_Token6_Value := UPDATE_REC.Line_Number;
1664: ELSE
1665: IF isNewMessageWithinLimit (
1672: END IF;
1673:
1674: IF L_Mps_F IS NOT NULL THEN
1675:
1676: FND_MESSAGE.Set_Name('OKE', 'OKE_DTS_DATA_MDS_FAILURE');
1677: L_Token7 := FND_MESSAGE.Get;
1678: IF L_Token7_Value IS NULL THEN
1679: L_Token7_Value := UPDATE_REC.Line_Number;
1680: ELSE
1673:
1674: IF L_Mps_F IS NOT NULL THEN
1675:
1676: FND_MESSAGE.Set_Name('OKE', 'OKE_DTS_DATA_MDS_FAILURE');
1677: L_Token7 := FND_MESSAGE.Get;
1678: IF L_Token7_Value IS NULL THEN
1679: L_Token7_Value := UPDATE_REC.Line_Number;
1680: ELSE
1681: IF isNewMessageWithinLimit (
1770: OR L_Token5 IS NOT NULL OR L_Token6 IS NOT NULL OR L_Token7 IS NOT NULL THEN
1771:
1772: IF L_Token1 IS NOT NULL THEN
1773:
1774: FND_MESSAGE.Set_Name('OKE', 'OKE_DTS_DATA_SPLIT');
1775: FND_MESSAGE.Set_Token('TOKEN_VALUE_1', L_Token1_Value);
1776: FND_MSG_PUB.Add;
1777: END IF;
1778: IF L_Token2 IS NOT NULL THEN
1771:
1772: IF L_Token1 IS NOT NULL THEN
1773:
1774: FND_MESSAGE.Set_Name('OKE', 'OKE_DTS_DATA_SPLIT');
1775: FND_MESSAGE.Set_Token('TOKEN_VALUE_1', L_Token1_Value);
1776: FND_MSG_PUB.Add;
1777: END IF;
1778: IF L_Token2 IS NOT NULL THEN
1779: FND_MESSAGE.Set_Name('OKE', 'OKE_H_DTS_DATA_WSH');
1775: FND_MESSAGE.Set_Token('TOKEN_VALUE_1', L_Token1_Value);
1776: FND_MSG_PUB.Add;
1777: END IF;
1778: IF L_Token2 IS NOT NULL THEN
1779: FND_MESSAGE.Set_Name('OKE', 'OKE_H_DTS_DATA_WSH');
1780: FND_MESSAGE.Set_Token('TOKEN_VALUE_1', L_Token2_Value);
1781: FND_MSG_PUB.Add;
1782: END IF;
1783: IF L_Token3 IS NOT NULL THEN
1776: FND_MSG_PUB.Add;
1777: END IF;
1778: IF L_Token2 IS NOT NULL THEN
1779: FND_MESSAGE.Set_Name('OKE', 'OKE_H_DTS_DATA_WSH');
1780: FND_MESSAGE.Set_Token('TOKEN_VALUE_1', L_Token2_Value);
1781: FND_MSG_PUB.Add;
1782: END IF;
1783: IF L_Token3 IS NOT NULL THEN
1784: FND_MESSAGE.Set_Name('OKE', 'OKE_H_DTS_DATA_REQ');
1780: FND_MESSAGE.Set_Token('TOKEN_VALUE_1', L_Token2_Value);
1781: FND_MSG_PUB.Add;
1782: END IF;
1783: IF L_Token3 IS NOT NULL THEN
1784: FND_MESSAGE.Set_Name('OKE', 'OKE_H_DTS_DATA_REQ');
1785: FND_MESSAGE.Set_Token('TOKEN_VALUE_1', L_Token3_Value);
1786: FND_MSG_PUB.Add;
1787: END IF;
1788: IF L_Token4 IS NOT NULL THEN
1781: FND_MSG_PUB.Add;
1782: END IF;
1783: IF L_Token3 IS NOT NULL THEN
1784: FND_MESSAGE.Set_Name('OKE', 'OKE_H_DTS_DATA_REQ');
1785: FND_MESSAGE.Set_Token('TOKEN_VALUE_1', L_Token3_Value);
1786: FND_MSG_PUB.Add;
1787: END IF;
1788: IF L_Token4 IS NOT NULL THEN
1789: FND_MESSAGE.Set_Name('OKE', 'OKE_H_DTS_DATA_BILL');
1785: FND_MESSAGE.Set_Token('TOKEN_VALUE_1', L_Token3_Value);
1786: FND_MSG_PUB.Add;
1787: END IF;
1788: IF L_Token4 IS NOT NULL THEN
1789: FND_MESSAGE.Set_Name('OKE', 'OKE_H_DTS_DATA_BILL');
1790: FND_MESSAGE.Set_Token('TOKEN_VALUE_1', L_Token4_Value);
1791: FND_MSG_PUB.Add;
1792: END IF;
1793:
1786: FND_MSG_PUB.Add;
1787: END IF;
1788: IF L_Token4 IS NOT NULL THEN
1789: FND_MESSAGE.Set_Name('OKE', 'OKE_H_DTS_DATA_BILL');
1790: FND_MESSAGE.Set_Token('TOKEN_VALUE_1', L_Token4_Value);
1791: FND_MSG_PUB.Add;
1792: END IF;
1793:
1794: IF L_Token5 IS NOT NULL THEN
1791: FND_MSG_PUB.Add;
1792: END IF;
1793:
1794: IF L_Token5 IS NOT NULL THEN
1795: FND_MESSAGE.Set_Name('OKE', 'OKE_H_DTS_DATA_COMPLETED');
1796: FND_MESSAGE.Set_Token('TOKEN_VALUE_1', L_Token5_Value);
1797: FND_MSG_PUB.Add;
1798: END IF;
1799: IF L_Token6 IS NOT NULL THEN
1792: END IF;
1793:
1794: IF L_Token5 IS NOT NULL THEN
1795: FND_MESSAGE.Set_Name('OKE', 'OKE_H_DTS_DATA_COMPLETED');
1796: FND_MESSAGE.Set_Token('TOKEN_VALUE_1', L_Token5_Value);
1797: FND_MSG_PUB.Add;
1798: END IF;
1799: IF L_Token6 IS NOT NULL THEN
1800: FND_MESSAGE.Set_Name('OKE', 'OKE_DTS_DATA_MDS_SUCCESS');
1796: FND_MESSAGE.Set_Token('TOKEN_VALUE_1', L_Token5_Value);
1797: FND_MSG_PUB.Add;
1798: END IF;
1799: IF L_Token6 IS NOT NULL THEN
1800: FND_MESSAGE.Set_Name('OKE', 'OKE_DTS_DATA_MDS_SUCCESS');
1801: FND_MESSAGE.Set_Token('TOKEN_VALUE_1', L_Token6_Value);
1802: FND_MSG_PUB.Add;
1803: END IF;
1804: IF L_Token7 IS NOT NULL THEN
1797: FND_MSG_PUB.Add;
1798: END IF;
1799: IF L_Token6 IS NOT NULL THEN
1800: FND_MESSAGE.Set_Name('OKE', 'OKE_DTS_DATA_MDS_SUCCESS');
1801: FND_MESSAGE.Set_Token('TOKEN_VALUE_1', L_Token6_Value);
1802: FND_MSG_PUB.Add;
1803: END IF;
1804: IF L_Token7 IS NOT NULL THEN
1805: FND_MESSAGE.Set_Name('OKE', 'OKE_DTS_DATA_MDS_FAILURE');
1801: FND_MESSAGE.Set_Token('TOKEN_VALUE_1', L_Token6_Value);
1802: FND_MSG_PUB.Add;
1803: END IF;
1804: IF L_Token7 IS NOT NULL THEN
1805: FND_MESSAGE.Set_Name('OKE', 'OKE_DTS_DATA_MDS_FAILURE');
1806: FND_MESSAGE.Set_Token('TOKEN_VALUE_1', L_Token7_Value);
1807: FND_MSG_PUB.Add;
1808: END IF;
1809: END IF;
1802: FND_MSG_PUB.Add;
1803: END IF;
1804: IF L_Token7 IS NOT NULL THEN
1805: FND_MESSAGE.Set_Name('OKE', 'OKE_DTS_DATA_MDS_FAILURE');
1806: FND_MESSAGE.Set_Token('TOKEN_VALUE_1', L_Token7_Value);
1807: FND_MSG_PUB.Add;
1808: END IF;
1809: END IF;
1810: X_Return_Status := L_Return_Status;
1919:
1920:
1921: IF L_Item_ID IS NULL THEN
1922:
1923: fnd_message.set_name('OKE', 'OKE_DTS_DATA_ITEM');
1924: l_msg := fnd_message.get;
1925:
1926: ELSIF L_Ship_From_ID IS NULL THEN
1927:
1920:
1921: IF L_Item_ID IS NULL THEN
1922:
1923: fnd_message.set_name('OKE', 'OKE_DTS_DATA_ITEM');
1924: l_msg := fnd_message.get;
1925:
1926: ELSIF L_Ship_From_ID IS NULL THEN
1927:
1928: fnd_message.set_name('OKE', 'OKE_DTS_DATA_FROM_LOCATION');
1924: l_msg := fnd_message.get;
1925:
1926: ELSIF L_Ship_From_ID IS NULL THEN
1927:
1928: fnd_message.set_name('OKE', 'OKE_DTS_DATA_FROM_LOCATION');
1929: l_msg := fnd_message.get;
1930:
1931: ELSIF L_Ship_To_ID IS NULL THEN
1932:
1925:
1926: ELSIF L_Ship_From_ID IS NULL THEN
1927:
1928: fnd_message.set_name('OKE', 'OKE_DTS_DATA_FROM_LOCATION');
1929: l_msg := fnd_message.get;
1930:
1931: ELSIF L_Ship_To_ID IS NULL THEN
1932:
1933: fnd_message.set_name('OKE', 'OKE_DTS_DATA_TO_LOCATION');
1929: l_msg := fnd_message.get;
1930:
1931: ELSIF L_Ship_To_ID IS NULL THEN
1932:
1933: fnd_message.set_name('OKE', 'OKE_DTS_DATA_TO_LOCATION');
1934: l_msg := fnd_message.get;
1935:
1936: ELSIF L_Quantity IS NULL THEN
1937:
1930:
1931: ELSIF L_Ship_To_ID IS NULL THEN
1932:
1933: fnd_message.set_name('OKE', 'OKE_DTS_DATA_TO_LOCATION');
1934: l_msg := fnd_message.get;
1935:
1936: ELSIF L_Quantity IS NULL THEN
1937:
1938: fnd_message.set_name('OKE', 'OKE_DTS_DATA_QTY');
1934: l_msg := fnd_message.get;
1935:
1936: ELSIF L_Quantity IS NULL THEN
1937:
1938: fnd_message.set_name('OKE', 'OKE_DTS_DATA_QTY');
1939: l_msg := fnd_message.get;
1940:
1941: ELSIF L_Item_ID IS NOT NULL THEN
1942:
1935:
1936: ELSIF L_Quantity IS NULL THEN
1937:
1938: fnd_message.set_name('OKE', 'OKE_DTS_DATA_QTY');
1939: l_msg := fnd_message.get;
1940:
1941: ELSIF L_Item_ID IS NOT NULL THEN
1942:
1943: IF L_Inventory_Org_ID > 0 THEN
1947: CLOSE Item_C;
1948:
1949: IF L_Value <> 'X' OR L_Value IS NULL THEN
1950:
1951: FND_MESSAGE.Set_Name('OKE', 'OKE_DTS_DATA_INVALID_ITEM_ORG');
1952: L_Msg := FND_MESSAGE.Get;
1953:
1954: END IF;
1955:
1948:
1949: IF L_Value <> 'X' OR L_Value IS NULL THEN
1950:
1951: FND_MESSAGE.Set_Name('OKE', 'OKE_DTS_DATA_INVALID_ITEM_ORG');
1952: L_Msg := FND_MESSAGE.Get;
1953:
1954: END IF;
1955:
1956: END IF;
1960: IF L_Msg IS NOT NULL THEN
1961:
1962: -- OKE_API.Set_Message('OKE', 'OKE_KAUWB_MDS_NOT_VALID', 'TOKEN1', L_Line_Number, 'TOKEN2', L_Msg);
1963:
1964: -- FND_MESSAGE.Set_Name('OKE','OKE_KAUWB_MDS_NOT_VALID');
1965: -- FND_MESSAGE.Set_Token('TOKEN1', L_Line_Number);
1966: -- FND_MESSAGE.Set_Token('TOKEN2', L_Msg);
1967: X_MPS_F := L_Msg;
1968:
1961:
1962: -- OKE_API.Set_Message('OKE', 'OKE_KAUWB_MDS_NOT_VALID', 'TOKEN1', L_Line_Number, 'TOKEN2', L_Msg);
1963:
1964: -- FND_MESSAGE.Set_Name('OKE','OKE_KAUWB_MDS_NOT_VALID');
1965: -- FND_MESSAGE.Set_Token('TOKEN1', L_Line_Number);
1966: -- FND_MESSAGE.Set_Token('TOKEN2', L_Msg);
1967: X_MPS_F := L_Msg;
1968:
1969: RETURN FALSE;
1962: -- OKE_API.Set_Message('OKE', 'OKE_KAUWB_MDS_NOT_VALID', 'TOKEN1', L_Line_Number, 'TOKEN2', L_Msg);
1963:
1964: -- FND_MESSAGE.Set_Name('OKE','OKE_KAUWB_MDS_NOT_VALID');
1965: -- FND_MESSAGE.Set_Token('TOKEN1', L_Line_Number);
1966: -- FND_MESSAGE.Set_Token('TOKEN2', L_Msg);
1967: X_MPS_F := L_Msg;
1968:
1969: RETURN FALSE;
1970:
1971: ELSE
1972:
1973: -- OKE_API.Set_Message('OKE', 'OKE_KAUWB_MDS_UPDATED', 'TOKEN1', L_Line_Number);
1974:
1975: -- FND_MESSAGE.Set_Name('OKE', 'OKE_KAUWB_MDS_UPDATED');
1976: -- X_Mps_S := FND_MESSAGE.Get;
1977: X_Mps_S := 'S';
1978:
1979: RETURN TRUE;
1972:
1973: -- OKE_API.Set_Message('OKE', 'OKE_KAUWB_MDS_UPDATED', 'TOKEN1', L_Line_Number);
1974:
1975: -- FND_MESSAGE.Set_Name('OKE', 'OKE_KAUWB_MDS_UPDATED');
1976: -- X_Mps_S := FND_MESSAGE.Get;
1977: X_Mps_S := 'S';
1978:
1979: RETURN TRUE;
1980: