[Home] [Help]
1: PACKAGE BODY inv_kanbancard_pkg AS
2: /* $Header: INVKCRDB.pls 120.5 2006/08/09 11:44:02 ankulkar noship $ */
3: g_pkg_name CONSTANT VARCHAR2(30) := 'INV_KanbanCard_PKG';
4:
5: TYPE supply_status_change_tbl_type IS TABLE OF VARCHAR2(1);
1: PACKAGE BODY inv_kanbancard_pkg AS
2: /* $Header: INVKCRDB.pls 120.5 2006/08/09 11:44:02 ankulkar noship $ */
3: g_pkg_name CONSTANT VARCHAR2(30) := 'INV_KanbanCard_PKG';
4:
5: TYPE supply_status_change_tbl_type IS TABLE OF VARCHAR2(1);
6:
7: g_true CONSTANT VARCHAR2(1) := fnd_api.g_true;
62: );
63:
64: PROCEDURE mydebug(msg IN VARCHAR2) IS
65: BEGIN
66: inv_trx_util_pub.TRACE(msg, 'INV_KANBANCARD_PKG', 9);
67: END mydebug;
68:
69: FUNCTION check_unique(p_kanban_card_id IN OUT NOCOPY NUMBER, p_organization_id NUMBER, p_kanban_card_number VARCHAR2)
70: RETURN BOOLEAN IS
677: ) THEN
678: l_supply_status := l_kanban_card_rec.supply_status;
679: l_card_status := l_kanban_card_rec.card_status;
680: l_current_replnsh_cycle_id := l_kanban_card_rec.current_replnsh_cycle_id;
681: inv_kanbancard_pkg.update_row(
682: x_return_status => l_return_status
683: , p_kanban_card_id => l_kanban_card_rec.kanban_card_id
684: , p_kanban_card_number => l_kanban_card_rec.kanban_card_number
685: , p_pull_sequence_id => l_kanban_card_rec.pull_sequence_id
1495: END insert_activity_for_card;
1496:
1497: PROCEDURE delete_cards_for_pull_seq(p_pull_sequence_id NUMBER) IS
1498: BEGIN
1499: inv_kanbancard_pkg.delete_activity_for_pull_seq(p_pull_sequence_id);
1500:
1501: DELETE FROM mtl_kanban_cards
1502: WHERE pull_sequence_id = p_pull_sequence_id;
1503: EXCEPTION
1542: END IF;
1543:
1544: RAISE fnd_api.g_exc_unexpected_error;
1545: END delete_activity_for_pull_seq;
1546: END inv_kanbancard_pkg;