57: end rollback_row;
58:
59: FUNCTION Query_Row
60: ( p_pull_sequence_id IN NUMBER
61: ) RETURN INV_Kanban_PVT.Pull_Sequence_Rec_Type
62: IS
63: l_pull_sequence_rec INV_Kanban_PVT.Pull_Sequence_Rec_Type;
64: BEGIN
65:
59: FUNCTION Query_Row
60: ( p_pull_sequence_id IN NUMBER
61: ) RETURN INV_Kanban_PVT.Pull_Sequence_Rec_Type
62: IS
63: l_pull_sequence_rec INV_Kanban_PVT.Pull_Sequence_Rec_Type;
64: BEGIN
65:
66: SELECT PULL_SEQUENCE_ID
67: , INVENTORY_ITEM_ID
197:
198: END Query_Row;
199:
200: FUNCTION Convert_Miss_To_Null
201: ( p_pull_sequence_rec IN INV_Kanban_PVT.Pull_Sequence_Rec_Type
202: ) RETURN INV_Kanban_PVT.Pull_Sequence_Rec_Type
203: IS
204: l_pull_sequence_rec INV_Kanban_PVT.Pull_Sequence_Rec_Type := p_pull_sequence_rec;
205: BEGIN
198: END Query_Row;
199:
200: FUNCTION Convert_Miss_To_Null
201: ( p_pull_sequence_rec IN INV_Kanban_PVT.Pull_Sequence_Rec_Type
202: ) RETURN INV_Kanban_PVT.Pull_Sequence_Rec_Type
203: IS
204: l_pull_sequence_rec INV_Kanban_PVT.Pull_Sequence_Rec_Type := p_pull_sequence_rec;
205: BEGIN
206:
200: FUNCTION Convert_Miss_To_Null
201: ( p_pull_sequence_rec IN INV_Kanban_PVT.Pull_Sequence_Rec_Type
202: ) RETURN INV_Kanban_PVT.Pull_Sequence_Rec_Type
203: IS
204: l_pull_sequence_rec INV_Kanban_PVT.Pull_Sequence_Rec_Type := p_pull_sequence_rec;
205: BEGIN
206:
207: IF l_pull_sequence_rec.pull_sequence_id = FND_API.G_MISS_NUM THEN
208: l_pull_sequence_rec.pull_sequence_id := NULL;
433:
434: END Convert_Miss_To_Null;
435:
436: FUNCTION Complete_Record
437: ( p_pull_sequence_rec IN INV_Kanban_PVT.Pull_Sequence_Rec_Type
438: , p_old_pull_sequence_rec IN INV_Kanban_PVT.Pull_Sequence_Rec_Type
439: ) RETURN INV_Kanban_PVT.Pull_Sequence_Rec_Type
440: IS
441: l_pull_sequence_rec INV_Kanban_PVT.Pull_Sequence_Rec_Type := p_pull_sequence_rec;
434: END Convert_Miss_To_Null;
435:
436: FUNCTION Complete_Record
437: ( p_pull_sequence_rec IN INV_Kanban_PVT.Pull_Sequence_Rec_Type
438: , p_old_pull_sequence_rec IN INV_Kanban_PVT.Pull_Sequence_Rec_Type
439: ) RETURN INV_Kanban_PVT.Pull_Sequence_Rec_Type
440: IS
441: l_pull_sequence_rec INV_Kanban_PVT.Pull_Sequence_Rec_Type := p_pull_sequence_rec;
442: BEGIN
435:
436: FUNCTION Complete_Record
437: ( p_pull_sequence_rec IN INV_Kanban_PVT.Pull_Sequence_Rec_Type
438: , p_old_pull_sequence_rec IN INV_Kanban_PVT.Pull_Sequence_Rec_Type
439: ) RETURN INV_Kanban_PVT.Pull_Sequence_Rec_Type
440: IS
441: l_pull_sequence_rec INV_Kanban_PVT.Pull_Sequence_Rec_Type := p_pull_sequence_rec;
442: BEGIN
443:
437: ( p_pull_sequence_rec IN INV_Kanban_PVT.Pull_Sequence_Rec_Type
438: , p_old_pull_sequence_rec IN INV_Kanban_PVT.Pull_Sequence_Rec_Type
439: ) RETURN INV_Kanban_PVT.Pull_Sequence_Rec_Type
440: IS
441: l_pull_sequence_rec INV_Kanban_PVT.Pull_Sequence_Rec_Type := p_pull_sequence_rec;
442: BEGIN
443:
444: IF l_pull_sequence_rec.pull_sequence_id = FND_API.G_MISS_NUM THEN
445: l_pull_sequence_rec.pull_sequence_id := p_old_pull_sequence_rec.pull_sequence_id;
883: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
884:
885: End Insert_Row;
886:
887: Procedure Insert_Row(p_pull_sequence_rec INV_Kanban_PVT.Pull_Sequence_Rec_Type)
888: Is
889: l_Pull_sequence_rec INV_Kanban_PVT.Pull_Sequence_Rec_Type :=
890: p_pull_sequence_rec;
891: l_return_status Varchar2(1);
885: End Insert_Row;
886:
887: Procedure Insert_Row(p_pull_sequence_rec INV_Kanban_PVT.Pull_Sequence_Rec_Type)
888: Is
889: l_Pull_sequence_rec INV_Kanban_PVT.Pull_Sequence_Rec_Type :=
890: p_pull_sequence_rec;
891: l_return_status Varchar2(1);
892:
893: Begin
1324:
1325: END Update_Row;
1326:
1327: PROCEDURE Update_Row(
1328: p_pull_sequence_rec INV_Kanban_PVT.Pull_sequence_Rec_Type)
1329: Is
1330:
1331: l_return_status Varchar2(1);
1332:
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
1434: WHERE pull_sequence_id = p_pull_sequence_id;