1: PACKAGE BODY CN_QUOTA_CATEGORIES_PKG AS
2: /* $Header: cntqcatb.pls 115.5 2002/01/28 20:05:11 pkm ship $*/
3:
4:
5: -- * -------------------------------------------------------------------------*
18: l_quota_category_id NUMBER := 0;
19:
20: BEGIN
21: --
22: SELECT cn_quota_categories_s.NEXTVAL
23: INTO l_quota_category_id
24: FROM dual;
25: --
26: INSERT into CN_QUOTA_CATEGORIES
22: SELECT cn_quota_categories_s.NEXTVAL
23: INTO l_quota_category_id
24: FROM dual;
25: --
26: INSERT into CN_QUOTA_CATEGORIES
27: ( QUOTA_CATEGORY_ID,
28: NAME,
29: DESCRIPTION,
30: TYPE,
125: ( p_quota_categories_rec IN QUOTA_CATEGORIES_REC_TYPE) IS
126:
127: BEGIN
128:
129: UPDATE CN_QUOTA_CATEGORIES oldrec
130: SET
131: NAME = DECODE(p_quota_categories_rec.NAME,
132: FND_API.G_MISS_CHAR,
133: oldrec.NAME,
244: ( p_quota_categories_rec IN QUOTA_CATEGORIES_REC_TYPE) IS
245:
246: CURSOR c IS
247: SELECT object_version_number
248: FROM CN_QUOTA_CATEGORIES
249: WHERE quota_category_id = p_quota_categories_rec.quota_category_id;
250:
251: tlinfo c%ROWTYPE ;
252: BEGIN
265: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
266: fnd_msg_pub.add;
267: raise fnd_api.g_exc_unexpected_error;
268: end if;
269: UPDATE CN_QUOTA_CATEGORIES oldrec
270: SET
271: NAME = DECODE(p_quota_categories_rec.NAME,
272: FND_API.G_MISS_CHAR,
273: oldrec.NAME,
384: ) IS
385:
386: BEGIN
387:
388: DELETE FROM CN_QUOTA_CATEGORIES
389: WHERE quota_category_id = p_quota_category_id;
390:
391: IF (SQL%ROWCOUNT=0) THEN
392: RAISE NO_DATA_FOUND;
394:
395: END Delete_row;
396:
397:
398: END CN_QUOTA_CATEGORIES_PKG;