[Home] [Help]
1: package body CN_ROLE_QUOTA_RATES_PKG as
2: /* $Header: cntpqrb.pls 115.4 2002/11/21 21:10:11 hlchen ship $ */
3: procedure INSERT_ROW
4: (X_ROWID IN OUT NOCOPY VARCHAR2,
5: X_ROLE_QUOTA_RATE_ID IN OUT NOCOPY NUMBER,
31: X_LAST_UPDATED_BY IN NUMBER,
32: X_LAST_UPDATE_LOGIN IN NUMBER,
33: X_OBJECT_VERSION_NUMBER IN NUMBER
34: ) IS
35: cursor C is select ROWID from cn_role_quota_rates
36: where ROLE_QUOTA_RATE_ID = x_role_quota_rate_id;
37:
38: CURSOR id IS SELECT cn_role_quota_rates_s.NEXTVAL FROM dual;
39: BEGIN
34: ) IS
35: cursor C is select ROWID from cn_role_quota_rates
36: where ROLE_QUOTA_RATE_ID = x_role_quota_rate_id;
37:
38: CURSOR id IS SELECT cn_role_quota_rates_s.NEXTVAL FROM dual;
39: BEGIN
40: IF (x_role_quota_rate_id IS NULL) THEN
41: OPEN id;
42: FETCH id INTO x_role_quota_rate_id;
46: END IF;
47: CLOSE id;
48: END IF;
49:
50: insert into CN_ROLE_QUOTA_RATES
51: (ROLE_QUOTA_RATE_ID,
52: ROLE_QUOTA_CATE_ID,
53: RATE_TIER_ID,
54: RATE_SCHEDULE_ID,
170: ATTRIBUTE14,
171: ATTRIBUTE15,
172: ROLE_QUOTA_RATE_ID,
173: OBJECT_VERSION_NUMBER
174: from cn_role_quota_rates
175: where ROLE_QUOTA_RATE_ID = x_role_quota_rate_id
176: for update of ROLE_QUOTA_RATE_ID nowait;
177:
178: tlinfo c1%ROWTYPE;
269: X_LAST_UPDATE_LOGIN IN NUMBER,
270: X_OBJECT_VERSION_NUMBER IN NUMBER
271: ) IS
272: BEGIN
273: update CN_ROLE_QUOTA_RATES SET
274: ROLE_QUOTA_CATE_ID = X_ROLE_QUOTA_CATE_ID,
275: RATE_TIER_ID = X_RATE_TIER_ID,
276: RATE_SCHEDULE_ID = X_RATE_SCHEDULE_ID,
277: MIN_RATE = X_MIN_RATE,
308: procedure DELETE_ROW (
309: X_ROLE_QUOTA_RATE_ID in NUMBER
310: ) is
311: begin
312: delete from CN_ROLE_QUOTA_RATES
313: where ROLE_QUOTA_RATE_ID = X_ROLE_QUOTA_RATE_ID;
314:
315: if (sql%notfound) then
316: raise no_data_found;
317: end if;
318:
319: end DELETE_ROW;
320:
321: end CN_ROLE_QUOTA_RATES_PKG;