1: PACKAGE BODY CN_SRP_ROLLOVER_QUOTAS_PKG as
2: /* $Header: cnsrpkgb.pls 120.1 2005/10/06 11:35:49 mblum noship $ */
3:
4:
5:
48: l_srp_rollover_quota_id NUMBER;
49: l_org_id NUMBER;
50: BEGIN
51: IF (X_SRP_ROLLOVER_QUOTA_ID IS NULL) THEN
52: SELECT CN_SRP_ROLLOVER_QUOTAS_S.NEXTVAL
53: INTO l_srp_rollover_quota_id
54: FROM dual;
55: ELSE
56: l_srp_rollover_quota_id := x_srp_rollover_quota_id;
60: SELECT org_id INTO l_org_id
61: FROM cn_srp_quota_assigns
62: WHERE srp_quota_assign_id = x_srp_quota_assign_id;
63:
64: insert into CN_SRP_ROLLOVER_QUOTAS (
65: SRP_ROLLOVER_QUOTA_ID,
66: SRP_QUOTA_ASSIGN_ID,
67: ROLLOVER_QUOTA_ID,
68: QUOTA_ID,
155: X_LAST_UPDATED_BY IN NUMBER,
156: X_LAST_UPDATE_LOGIN IN NUMBER
157: ) is
158: begin
159: update CN_SRP_ROLLOVER_QUOTAS set
160: ROLLOVER = X_ROLLOVER,
161: ATTRIBUTE_CATEGORY = X_ATTRIBUTE_CATEGORY,
162: ATTRIBUTE1 = X_ATTRIBUTE1,
163: ATTRIBUTE2 = X_ATTRIBUTE2,
188: procedure DELETE_ROW (
189: X_SRP_ROLLOVER_QUOTA_ID IN NUMBER
190: ) is
191: begin
192: delete from CN_SRP_ROLLOVER_QUOTAS
193: where SRP_ROLLOVER_QUOTA_ID = X_SRP_ROLLOVER_QUOTA_ID;
194:
195: if (sql%notfound) then
196: raise no_data_found;
196: raise no_data_found;
197: end if;
198:
199: end DELETE_ROW;
200: END CN_SRP_ROLLOVER_QUOTAS_PKG;