34: FND_MESSAGE.SET_NAME('INV', 'INV_PULLSEQ_EXISTS');
35: Return FALSE;
36: When Others
37: Then
38: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
39: THEN
40: FND_MSG_PUB.Add_Exc_Msg
41: ( G_PKG_NAME
42: , 'Check_Unique'
36: When Others
37: Then
38: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
39: THEN
40: FND_MSG_PUB.Add_Exc_Msg
41: ( G_PKG_NAME
42: , 'Check_Unique'
43: );
44: END IF;
184: EXCEPTION
185:
186: WHEN OTHERS THEN
187:
188: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
189: THEN
190: FND_MSG_PUB.Add_Exc_Msg
191: ( G_PKG_NAME
192: , 'Query_Row'
186: WHEN OTHERS THEN
187:
188: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
189: THEN
190: FND_MSG_PUB.Add_Exc_Msg
191: ( G_PKG_NAME
192: , 'Query_Row'
193: );
194: END IF;
730: is
731: l_pull_sequence_Id MTL_Kanban_Pull_Sequences.Pull_Sequence_Id%Type;
732: l_return_status Varchar2(1) := FND_API.G_RET_STS_SUCCESS;
733: BEGIN
734: FND_MSG_PUB.Initialize;
735: If nvl(p_Pull_sequence_Id,0) <= 0
736: Then
737: Select MTL_KANBAN_PULL_SEQUENCES_S.NEXTVAL
738: into l_pull_sequence_Id
871:
872: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
873:
874: WHEN OTHERS THEN
875: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
876: THEN
877: FND_MSG_PUB.Add_Exc_Msg
878: ( G_PKG_NAME
879: , 'Insert_Row'
873:
874: WHEN OTHERS THEN
875: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
876: THEN
877: FND_MSG_PUB.Add_Exc_Msg
878: ( G_PKG_NAME
879: , 'Insert_Row'
880: );
881: END IF;
890: p_pull_sequence_rec;
891: l_return_status Varchar2(1);
892:
893: Begin
894: FND_MSG_PUB.Initialize;
895: INV_PullSequence_PKG.Insert_Row(
896: x_return_status =>l_return_status,
897: p_pull_sequence_id =>l_Pull_sequence_Rec.pull_sequence_id,
898: p_Inventory_item_id =>l_Pull_sequence_Rec.Inventory_item_id,
970: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
971:
972: WHEN OTHERS THEN
973:
974: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
975: THEN
976: FND_MSG_PUB.Add_Exc_Msg
977: ( G_PKG_NAME
978: , 'Insert_Row'
972: WHEN OTHERS THEN
973:
974: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
975: THEN
976: FND_MSG_PUB.Add_Exc_Msg
977: ( G_PKG_NAME
978: , 'Insert_Row'
979: );
980: END IF;
1238:
1239: l_return_status varchar2(1) := FND_API.G_RET_STS_SUCCESS;
1240:
1241: BEGIN
1242: FND_MSG_PUB.Initialize;
1243: UPDATE MTL_KANBAN_PULL_SEQUENCES
1244: SET
1245: Inventory_item_id = p_Inventory_item_id,
1246: Organization_Id = p_Organization_Id,
1311: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1312:
1313: WHEN OTHERS THEN
1314:
1315: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1316: THEN
1317: FND_MSG_PUB.Add_Exc_Msg
1318: ( G_PKG_NAME
1319: , 'Update_Row'
1313: WHEN OTHERS THEN
1314:
1315: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1316: THEN
1317: FND_MSG_PUB.Add_Exc_Msg
1318: ( G_PKG_NAME
1319: , 'Update_Row'
1320: );
1321: END IF;
1330:
1331: l_return_status Varchar2(1);
1332:
1333: Begin
1334: FND_MSG_PUB.Initialize;
1335: Update_Row(
1336: x_return_status =>l_return_status,
1337: p_pull_sequence_id =>p_Pull_sequence_Rec.pull_sequence_id,
1338: p_Inventory_item_id =>p_Pull_sequence_Rec.Inventory_item_id,
1408: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
1409:
1410: WHEN OTHERS THEN
1411:
1412: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1413: THEN
1414: FND_MSG_PUB.Add_Exc_Msg
1415: ( G_PKG_NAME
1416: , 'Update_Row'
1410: WHEN OTHERS THEN
1411:
1412: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1413: THEN
1414: FND_MSG_PUB.Add_Exc_Msg
1415: ( G_PKG_NAME
1416: , 'Update_Row'
1417: );
1418: END IF;
1425: IS
1426: l_return_status varchar2(1) := FND_API.G_RET_STS_ERROR;
1427:
1428: BEGIN
1429: FND_MSG_PUB.Initialize;
1430: if INV_Kanban_PVT.Ok_To_Delete_Pull_Sequence(p_pull_sequence_Id)
1431: then
1432:
1433: DELETE FROM MTL_KANBAN_PULL_SEQUENCES
1451:
1452: WHEN OTHERS THEN
1453:
1454: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1455: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1456: THEN
1457: FND_MSG_PUB.Add_Exc_Msg
1458: ( G_PKG_NAME
1459: , 'Delete_Row'
1453:
1454: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1455: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1456: THEN
1457: FND_MSG_PUB.Add_Exc_Msg
1458: ( G_PKG_NAME
1459: , 'Delete_Row'
1460: );
1461: END IF;