[Home] [Help]
12: l_Dummy Varchar2(1);
13: BEGIN
14: Select 'x'
15: Into l_Dummy
16: From MTL_KANBAN_PULL_SEQUENCES
17: Where organization_id = p_Organization_Id
18: And kanban_plan_id = p_kanban_plan_id
19: And inventory_item_id = p_inventory_item_id
20: And subinventory_name = p_Subinventory_Name
85: p_point_of_supply_y NUMBER --,
86: -- p_update_status NUMBER
87: ) IS
88:
89: CURSOR C1 IS SELECT rowid FROM MTL_KANBAN_PULL_SEQUENCES
90: WHERE pull_sequence_id = x_pull_sequence_id;
91: CURSOR C2 IS SELECT mtl_kanban_pull_sequences_s.nextval FROM sys.dual;
92:
93: BEGIN
87: ) IS
88:
89: CURSOR C1 IS SELECT rowid FROM MTL_KANBAN_PULL_SEQUENCES
90: WHERE pull_sequence_id = x_pull_sequence_id;
91: CURSOR C2 IS SELECT mtl_kanban_pull_sequences_s.nextval FROM sys.dual;
92:
93: BEGIN
94: if (x_pull_sequence_id is NULL) then
95: OPEN C2;
96: FETCH C2 INTO x_pull_sequence_id;
97: CLOSE C2;
98: end if;
99:
100: INSERT INTO MTL_KANBAN_PULL_SEQUENCES(
101: Pull_sequence_id,
102: Inventory_item_id,
103: Organization_id,
104: Subinventory_name,
266: -- p_update_status NUMBER
267: ) IS
268: CURSOR C IS
269: SELECT *
270: FROM MTL_KANBAN_PULL_SEQUENCES
271: WHERE pull_sequence_id = p_pull_sequence_id
272: FOR UPDATE of source_type NOWAIT;
273:
274: Recinfo C%ROWTYPE;
452: ) IS
453:
454: BEGIN
455:
456: UPDATE MTL_KANBAN_PULL_SEQUENCES
457: SET
458: Inventory_item_id = p_Inventory_item_id,
459: Organization_Id = p_Organization_Id,
460: Subinventory_name = p_Subinventory_name,
516: PROCEDURE Delete_Row(p_Pull_Sequence_Id Number) IS
517:
518: BEGIN
519:
520: DELETE FROM MTL_KANBAN_PULL_SEQUENCES
521: WHERE pull_sequence_id = p_pull_sequence_id;
522:
523: if (SQL%NOTFOUND) then
524: Raise NO_DATA_FOUND;