[Home] [Help]
1: PACKAGE BODY Ibe_Msite_Information_Pkg AS
2: /* $Header: IBETMINB.pls 115.2 2002/12/13 13:01:51 schak ship $ */
3:
4: -- HISTORY
5: -- 12/13/02 SCHAK Modified for NOCOPY (Bug # 2691704) Changes.
4: -- HISTORY
5: -- 12/13/02 SCHAK Modified for NOCOPY (Bug # 2691704) Changes.
6: -- *********************************************************************************
7:
8: G_PKG_NAME CONSTANT VARCHAR2(30):= 'IBE_MSITE_INFORMATION_PKG';
9: G_FILE_NAME CONSTANT VARCHAR2(12):= 'IBETMINB.pls';
10:
11: PROCEDURE insert_row
12: (
58: x_rowid OUT NOCOPY VARCHAR2,
59: x_msite_information_id OUT NOCOPY NUMBER
60: )
61: IS
62: CURSOR c IS SELECT rowid FROM ibe_msite_information
63: WHERE msite_information_id = x_msite_information_id;
64: CURSOR c2 IS SELECT ibe_msite_information_s1.nextval FROM dual;
65:
66: BEGIN
60: )
61: IS
62: CURSOR c IS SELECT rowid FROM ibe_msite_information
63: WHERE msite_information_id = x_msite_information_id;
64: CURSOR c2 IS SELECT ibe_msite_information_s1.nextval FROM dual;
65:
66: BEGIN
67:
68: -- Primary key validation check
75: CLOSE c2;
76: END IF;
77:
78: -- insert base
79: INSERT INTO ibe_msite_information
80: (
81: msite_information_id,
82: object_version_number,
83: msite_id,
247: IS
248: BEGIN
249:
250: -- update base
251: UPDATE ibe_msite_information SET
252: object_version_number = object_version_number + 1,
253: msite_information1 = decode(p_msite_information1, FND_API.G_MISS_CHAR,
254: msite_information1, p_msite_information1),
255: msite_information2 = decode(p_msite_information2, FND_API.G_MISS_CHAR,
350: )
351: IS
352: BEGIN
353:
354: DELETE FROM ibe_msite_information
355: WHERE msite_information_id = p_msite_information_id;
356:
357: IF (sql%NOTFOUND) THEN
358: RAISE NO_DATA_FOUND;
359: END IF;
360:
361: END delete_row;
362:
363: END Ibe_Msite_Information_Pkg;