1: PACKAGE BODY mtl_secondary_inventories_pkg AS
2: /* $Header: INVSDSUB.pls 120.2 2005/06/28 10:22:36 appldev ship $ */
3: FUNCTION check_unique(x_rowid IN OUT nocopy VARCHAR2, x_secondary_inventory_name VARCHAR2, x_organization_id NUMBER)
4: RETURN NUMBER IS
5: dummy NUMBER;
5: dummy NUMBER;
6: BEGIN
7: SELECT COUNT(1)
8: INTO dummy
9: FROM mtl_secondary_inventories
10: WHERE organization_id = x_organization_id
11: AND secondary_inventory_name = x_secondary_inventory_name
12: AND((x_rowid IS NULL)
13: OR(ROWID <> x_rowid));
104: , x_enforce_alias_uniqueness VARCHAR2 DEFAULT 'N'
105: ) IS
106: CURSOR c IS
107: SELECT ROWID
108: FROM mtl_secondary_inventories
109: WHERE organization_id = x_organization_id
110: AND secondary_inventory_name = x_secondary_inventory_name;
111: BEGIN
112: INSERT INTO mtl_secondary_inventories
108: FROM mtl_secondary_inventories
109: WHERE organization_id = x_organization_id
110: AND secondary_inventory_name = x_secondary_inventory_name;
111: BEGIN
112: INSERT INTO mtl_secondary_inventories
113: (
114: secondary_inventory_name
115: , organization_id
116: , last_update_date
358: , x_enforce_alias_uniqueness VARCHAR2 DEFAULT 'N'
359: ) IS
360: CURSOR c IS
361: SELECT *
362: FROM mtl_secondary_inventories
363: WHERE ROWID = x_rowid
364: FOR UPDATE OF organization_id NOWAIT;
365:
366: recinfo c%ROWTYPE;
668: l_status_id NUMBER;
669: BEGIN
670: SELECT status_id
671: INTO l_status_id
672: FROM mtl_secondary_inventories
673: WHERE ROWID = x_rowid;
674:
675: UPDATE mtl_secondary_inventories
676: SET secondary_inventory_name = x_secondary_inventory_name
671: INTO l_status_id
672: FROM mtl_secondary_inventories
673: WHERE ROWID = x_rowid;
674:
675: UPDATE mtl_secondary_inventories
676: SET secondary_inventory_name = x_secondary_inventory_name
677: , organization_id = x_organization_id
678: , last_update_date = x_last_update_date
679: , last_updated_by = x_last_updated_by
775: END update_row;
776:
777: PROCEDURE delete_row(x_rowid VARCHAR2) IS
778: BEGIN
779: DELETE FROM mtl_secondary_inventories
780: WHERE ROWID = x_rowid;
781:
782: IF (SQL%NOTFOUND) THEN
783: RAISE NO_DATA_FOUND;
829: RETURN NUMBER IS
830: BEGIN
831: RETURN fnd_api.g_miss_num;
832: END;
833: END mtl_secondary_inventories_pkg;