77: --add for Ekanban business
78: l_msg_data VARCHAR2(1000);
79:
80: BEGIN
81: FND_MSG_PUB.Initialize;
82: UPDATE MTL_KANBAN_PULL_SEQUENCES
83: SET
84: Inventory_item_id = p_Inventory_item_id,
85: Organization_Id = p_Organization_Id,
175: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
176:
177: WHEN OTHERS THEN
178:
179: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
180: THEN
181: FND_MSG_PUB.Add_Exc_Msg
182: ( G_PKG_NAME
183: , 'Update_Row'
177: WHEN OTHERS THEN
178:
179: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
180: THEN
181: FND_MSG_PUB.Add_Exc_Msg
182: ( G_PKG_NAME
183: , 'Update_Row'
184: );
185: END IF;
266: l_return_status Varchar2(1) := FND_API.G_RET_STS_SUCCESS;
267: --add for Ekanban business event
268: l_msg_data VARCHAR2(1000);
269: BEGIN
270: FND_MSG_PUB.Initialize;
271: If nvl(p_Pull_sequence_Id,0) <= 0
272: Then
273: Select MTL_KANBAN_PULL_SEQUENCES_S.NEXTVAL
274: into l_pull_sequence_Id
443:
444: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
445:
446: WHEN OTHERS THEN
447: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
448: THEN
449: FND_MSG_PUB.Add_Exc_Msg
450: ( G_PKG_NAME
451: , 'Insert_Row'
445:
446: WHEN OTHERS THEN
447: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
448: THEN
449: FND_MSG_PUB.Add_Exc_Msg
450: ( G_PKG_NAME
451: , 'Insert_Row'
452: );
453: END IF;
487: FND_MESSAGE.SET_NAME('INV', 'INV_PULLSEQ_EXISTS');
488: Return FALSE;
489: When Others
490: Then
491: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
492: THEN
493: FND_MSG_PUB.Add_Exc_Msg
494: ( G_PKG_NAME
495: , 'Check_Unique'
489: When Others
490: Then
491: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
492: THEN
493: FND_MSG_PUB.Add_Exc_Msg
494: ( G_PKG_NAME
495: , 'Check_Unique'
496: );
497: END IF;
653: EXCEPTION
654:
655: WHEN OTHERS THEN
656:
657: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
658: THEN
659: FND_MSG_PUB.Add_Exc_Msg
660: ( G_PKG_NAME
661: , 'Query_Row'
655: WHEN OTHERS THEN
656:
657: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
658: THEN
659: FND_MSG_PUB.Add_Exc_Msg
660: ( G_PKG_NAME
661: , 'Query_Row'
662: );
663: END IF;
1208: is
1209: l_pull_sequence_Id MTL_Kanban_Pull_Sequences.Pull_Sequence_Id%Type;
1210: l_return_status Varchar2(1) := FND_API.G_RET_STS_SUCCESS;
1211: BEGIN
1212: FND_MSG_PUB.Initialize;
1213: If nvl(p_Pull_sequence_Id,0) <= 0
1214: Then
1215: Select MTL_KANBAN_PULL_SEQUENCES_S.NEXTVAL
1216: into l_pull_sequence_Id
1367:
1368: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1369:
1370: WHEN OTHERS THEN
1371: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1372: THEN
1373: FND_MSG_PUB.Add_Exc_Msg
1374: ( G_PKG_NAME
1375: , 'Insert_Row'
1369:
1370: WHEN OTHERS THEN
1371: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1372: THEN
1373: FND_MSG_PUB.Add_Exc_Msg
1374: ( G_PKG_NAME
1375: , 'Insert_Row'
1376: );
1377: END IF;
1386: p_pull_sequence_rec;
1387: l_return_status Varchar2(1);
1388:
1389: Begin
1390: FND_MSG_PUB.Initialize;
1391: INV_PullSequence_PKG.Insert_Row(
1392: x_return_status =>l_return_status,
1393: p_pull_sequence_id =>l_Pull_sequence_Rec.pull_sequence_id,
1394: p_Inventory_item_id =>l_Pull_sequence_Rec.Inventory_item_id,
1482: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
1483:
1484: WHEN OTHERS THEN
1485:
1486: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1487: THEN
1488: FND_MSG_PUB.Add_Exc_Msg
1489: ( G_PKG_NAME
1490: , 'Insert_Row'
1484: WHEN OTHERS THEN
1485:
1486: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1487: THEN
1488: FND_MSG_PUB.Add_Exc_Msg
1489: ( G_PKG_NAME
1490: , 'Insert_Row'
1491: );
1492: END IF;
1760:
1761: l_return_status varchar2(1) := FND_API.G_RET_STS_SUCCESS;
1762:
1763: BEGIN
1764: FND_MSG_PUB.Initialize;
1765: UPDATE MTL_KANBAN_PULL_SEQUENCES
1766: SET
1767: Inventory_item_id = p_Inventory_item_id,
1768: Organization_Id = p_Organization_Id,
1842: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1843:
1844: WHEN OTHERS THEN
1845:
1846: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1847: THEN
1848: FND_MSG_PUB.Add_Exc_Msg
1849: ( G_PKG_NAME
1850: , 'Update_Row'
1844: WHEN OTHERS THEN
1845:
1846: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1847: THEN
1848: FND_MSG_PUB.Add_Exc_Msg
1849: ( G_PKG_NAME
1850: , 'Update_Row'
1851: );
1852: END IF;
1861:
1862: l_return_status Varchar2(1);
1863:
1864: Begin
1865: FND_MSG_PUB.Initialize;
1866: Update_Row(
1867: x_return_status =>l_return_status,
1868: p_pull_sequence_id =>p_Pull_sequence_Rec.pull_sequence_id,
1869: p_Inventory_item_id =>p_Pull_sequence_Rec.Inventory_item_id,
1954: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
1955:
1956: WHEN OTHERS THEN
1957:
1958: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1959: THEN
1960: FND_MSG_PUB.Add_Exc_Msg
1961: ( G_PKG_NAME
1962: , 'Update_Row'
1956: WHEN OTHERS THEN
1957:
1958: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1959: THEN
1960: FND_MSG_PUB.Add_Exc_Msg
1961: ( G_PKG_NAME
1962: , 'Update_Row'
1963: );
1964: END IF;
1971: IS
1972: l_return_status varchar2(1) := FND_API.G_RET_STS_ERROR;
1973:
1974: BEGIN
1975: FND_MSG_PUB.Initialize;
1976: if INV_Kanban_PVT.Ok_To_Delete_Pull_Sequence(p_pull_sequence_Id)
1977: then
1978:
1979: DELETE FROM MTL_KANBAN_PULL_SEQUENCES
2003:
2004: WHEN OTHERS THEN
2005:
2006: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2007: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2008: THEN
2009: FND_MSG_PUB.Add_Exc_Msg
2010: ( G_PKG_NAME
2011: , 'Delete_Row'
2005:
2006: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2007: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2008: THEN
2009: FND_MSG_PUB.Add_Exc_Msg
2010: ( G_PKG_NAME
2011: , 'Delete_Row'
2012: );
2013: END IF;