[Home] [Help]
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,
86: Subinventory_name = p_Subinventory_name,
261: p_no_of_temp_cycle NUMBER DEFAULT NULL,
262: p_temp_exp_date DATE DEFAULT NULL)
263:
264: is
265: l_pull_sequence_Id MTL_Kanban_Pull_Sequences.Pull_Sequence_Id%Type;
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
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
275: from dual;
276: Else
277: l_pull_sequence_Id := p_Pull_sequence_Id;
276: Else
277: l_pull_sequence_Id := p_Pull_sequence_Id;
278: End If;
279:
280: INSERT INTO MTL_KANBAN_PULL_SEQUENCES
281: (
282: Pull_sequence_id,
283: Inventory_item_id,
284: Organization_id,
467: l_Dummy Varchar2(1);
468: BEGIN
469: Select 'x'
470: Into l_Dummy
471: From MTL_KANBAN_PULL_SEQUENCES
472: Where organization_id = p_Organization_Id
473: And kanban_plan_id = p_kanban_plan_id
474: And inventory_item_id = p_inventory_item_id
475: And subinventory_name = p_Subinventory_Name
644: , l_pull_sequence_rec.CONSOLIDATION
645: , l_pull_sequence_rec.CONSOLIDATION_GROUP
646: , l_pull_sequence_rec.AVG_DEPENDENT_DEMAND
647: , l_pull_sequence_rec.AVG_INDEPENDENT_DEMAND
648: FROM MTL_KANBAN_PULL_SEQUENCES
649: WHERE PULL_SEQUENCE_ID = p_pull_sequence_id ;
650:
651: RETURN l_pull_sequence_rec;
652:
1205: p_consolidation_group VARCHAR2 DEFAULT NULL,
1206: p_avg_dependent_demand NUMBER DEFAULT NULL,
1207: p_avg_independent_demand NUMBER DEFAULT NULL)
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
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
1217: from dual;
1218: Else
1219: l_pull_sequence_Id := p_Pull_sequence_Id;
1218: Else
1219: l_pull_sequence_Id := p_Pull_sequence_Id;
1220: End If;
1221:
1222: INSERT INTO MTL_KANBAN_PULL_SEQUENCES
1223: (
1224: Pull_sequence_id,
1225: Inventory_item_id,
1226: Organization_id,
1544: p_Auto_Allocate_Flag NUMBER)--Added for 3905884.
1545: IS
1546: CURSOR Get_Current_Row IS
1547: SELECT *
1548: FROM MTL_KANBAN_PULL_SEQUENCES
1549: WHERE pull_sequence_id = p_pull_sequence_id
1550: FOR UPDATE of Organization_Id NOWAIT;
1551:
1552: Recinfo MTL_KANBAN_PULL_SEQUENCES%ROWTYPE;
1548: FROM MTL_KANBAN_PULL_SEQUENCES
1549: WHERE pull_sequence_id = p_pull_sequence_id
1550: FOR UPDATE of Organization_Id NOWAIT;
1551:
1552: Recinfo MTL_KANBAN_PULL_SEQUENCES%ROWTYPE;
1553: RECORD_CHANGED EXCEPTION;
1554: BEGIN
1555: OPEN Get_Current_Row;
1556: FETCH Get_Current_Row INTO Recinfo;
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,
1769: Subinventory_name = p_Subinventory_name,
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
1980: WHERE pull_sequence_id = p_pull_sequence_id;
1981:
1982: if (SQL%NOTFOUND) then
1983: Raise FND_API.G_EXC_UNEXPECTED_ERROR;