1: PACKAGE BODY HZ_CLASS_CATEGORY_USES_PKG AS
2: /*$Header: ARHCAUTB.pls 115.4 2002/11/21 21:07:48 sponnamb ship $ */
3:
4: PROCEDURE Insert_Row (
5: X_CLASS_CATEGORY IN VARCHAR2,
12: ) IS
13:
14: BEGIN
15:
16: INSERT INTO HZ_CLASS_CATEGORY_USES (
17: CLASS_CATEGORY,
18: OWNER_TABLE,
19: COLUMN_NAME,
20: ADDITIONAL_WHERE_CLAUSE,
55: ) IS
56:
57: BEGIN
58:
59: UPDATE HZ_CLASS_CATEGORY_USES SET
60: COLUMN_NAME = DECODE( X_COLUMN_NAME, NULL, COLUMN_NAME, FND_API.G_MISS_CHAR, NULL, X_COLUMN_NAME ),
61: ADDITIONAL_WHERE_CLAUSE = DECODE( X_ADDITIONAL_WHERE_CLAUSE, NULL, ADDITIONAL_WHERE_CLAUSE, FND_API.G_MISS_CHAR, NULL, X_ADDITIONAL_WHERE_CLAUSE ),
62: LAST_UPDATE_LOGIN = HZ_UTILITY_V2PUB.LAST_UPDATE_LOGIN,
63: LAST_UPDATE_DATE = HZ_UTILITY_V2PUB.LAST_UPDATE_DATE,
90: X_APPLICATION_ID IN NUMBER
91: ) IS
92:
93: CURSOR C IS
94: SELECT * FROM HZ_CLASS_CATEGORY_USES
95: WHERE ROWID = x_Rowid
96: FOR UPDATE NOWAIT;
97: Recinfo C%ROWTYPE;
98:
177: X_COLUMN_NAME,
178: X_ADDITIONAL_WHERE_CLAUSE,
179: X_CREATED_BY_MODULE,
180: X_APPLICATION_ID
181: FROM HZ_CLASS_CATEGORY_USES
182: WHERE CLASS_CATEGORY = X_CLASS_CATEGORY
183: AND OWNER_TABLE = X_OWNER_TABLE;
184:
185: EXCEPTION
198: ) IS
199:
200: BEGIN
201:
202: DELETE FROM HZ_CLASS_CATEGORY_USES
203: WHERE CLASS_CATEGORY = X_CLASS_CATEGORY
204: AND OWNER_TABLE = X_OWNER_TABLE;
205:
206: IF ( SQL%NOTFOUND ) THEN
208: END IF;
209:
210: END Delete_Row;
211:
212: END HZ_CLASS_CATEGORY_USES_PKG;