[Home] [Help]
PACKAGE BODY: APPS.CN_SRP_ROLLOVER_QUOTAS_PKG
Source
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
6 ----------------------------------------------------------------------------+
7 -- | Private Routines |
8 ----------------------------------------------------------------------------+
9 -- Procedure Name
10
11 -- Purpose
12 -- cover
13 -- Name
14 -- Purpose
15 -- Notes
16
17 procedure INSERT_ROW (
18 X_ROWID in out NOCOPY VARCHAR2,
19 X_SRP_ROLLOVER_QUOTA_ID IN OUT NOCOPY NUMBER,
20 X_SRP_QUOTA_ASSIGN_ID IN NUMBER,
21 X_ROLLOVER_QUOTA_ID IN NUMBER,
22 X_QUOTA_ID IN NUMBER,
23 X_SOURCE_QUOTA_ID IN NUMBER,
24 X_ROLLOVER IN NUMBER,
25 X_ATTRIBUTE_CATEGORY IN VARCHAR2 := NULL,
26 X_ATTRIBUTE1 IN VARCHAR2 := NULL,
27 X_ATTRIBUTE2 IN VARCHAR2 := NULL,
28 X_ATTRIBUTE3 IN VARCHAR2 := NULL,
29 X_ATTRIBUTE4 IN VARCHAR2 := NULL,
30 X_ATTRIBUTE5 IN VARCHAR2 := NULL,
31 X_ATTRIBUTE6 IN VARCHAR2 := NULL,
32 X_ATTRIBUTE7 IN VARCHAR2 := NULL,
33 X_ATTRIBUTE8 IN VARCHAR2 := NULL,
34 X_ATTRIBUTE9 IN VARCHAR2 := NULL,
35 X_ATTRIBUTE10 IN VARCHAR2 := NULL,
36 X_ATTRIBUTE11 IN VARCHAR2 := NULL,
37 X_ATTRIBUTE12 IN VARCHAR2 := NULL,
38 X_ATTRIBUTE13 IN VARCHAR2 := NULL,
39 X_ATTRIBUTE14 IN VARCHAR2 := NULL,
40 X_ATTRIBUTE15 IN VARCHAR2 := NULL,
41 X_CREATED_BY IN NUMBER,
42 X_CREATION_DATE IN DATE,
43 X_LAST_UPDATE_DATE IN DATE,
44 X_LAST_UPDATED_BY IN NUMBER,
45 X_LAST_UPDATE_LOGIN IN NUMBER
46 ) is
47
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;
57 END IF;
58
59 -- get org 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,
69 SOURCE_QUOTA_ID,
70 ROLLOVER,
71 ATTRIBUTE_CATEGORY,
72 ATTRIBUTE1,
73 ATTRIBUTE2,
74 ATTRIBUTE3,
75 ATTRIBUTE4,
76 ATTRIBUTE5,
77 ATTRIBUTE6,
78 ATTRIBUTE7,
79 ATTRIBUTE8,
80 ATTRIBUTE9,
81 ATTRIBUTE10,
82 ATTRIBUTE11,
83 ATTRIBUTE12,
84 ATTRIBUTE13,
85 ATTRIBUTE14,
86 ATTRIBUTE15,
87 CREATED_BY,
88 CREATION_DATE,
89 LAST_UPDATE_LOGIN,
90 LAST_UPDATE_DATE,
91 LAST_UPDATED_BY,
92 OBJECT_VERSION_NUMBER,
93 ORG_ID
94 ) VALUES (
95 l_srp_rollover_quota_id,
96 X_SRP_QUOTA_ASSIGN_ID,
97 X_ROLLOVER_QUOTA_ID,
98 X_QUOTA_ID,
99 X_SOURCE_QUOTA_ID,
100 X_ROLLOVER,
101 X_ATTRIBUTE_CATEGORY,
102 X_ATTRIBUTE1,
103 X_ATTRIBUTE2,
104 X_ATTRIBUTE3,
105 X_ATTRIBUTE4,
106 X_ATTRIBUTE5,
107 X_ATTRIBUTE6,
108 X_ATTRIBUTE7,
109 X_ATTRIBUTE8,
110 X_ATTRIBUTE9,
111 X_ATTRIBUTE10,
112 X_ATTRIBUTE11,
113 X_ATTRIBUTE12,
114 X_ATTRIBUTE13,
115 X_ATTRIBUTE14,
116 X_ATTRIBUTE15,
117 X_CREATED_BY,
118 X_CREATION_DATE,
119 X_LAST_UPDATE_LOGIN,
120 X_LAST_UPDATE_DATE,
121 X_LAST_UPDATED_BY,
122 1,
123 l_org_id);
124
125 end INSERT_ROW;
126
127
128
129 procedure UPDATE_ROW (
130 X_SRP_ROLLOVER_QUOTA_ID IN NUMBER,
131 X_SRP_QUOTA_ASSIGN_ID IN NUMBER,
132 X_ROLLOVER_QUOTA_ID IN NUMBER,
133 X_QUOTA_ID IN NUMBER,
134 X_SOURCE_QUOTA_ID IN NUMBER,
135 X_ROLLOVER IN NUMBER,
136 X_ATTRIBUTE_CATEGORY IN VARCHAR2 := NULL,
137 X_ATTRIBUTE1 IN VARCHAR2 := NULL,
138 X_ATTRIBUTE2 IN VARCHAR2 := NULL,
139 X_ATTRIBUTE3 IN VARCHAR2 := NULL,
140 X_ATTRIBUTE4 IN VARCHAR2 := NULL,
141 X_ATTRIBUTE5 IN VARCHAR2 := NULL,
142 X_ATTRIBUTE6 IN VARCHAR2 := NULL,
143 X_ATTRIBUTE7 IN VARCHAR2 := NULL,
144 X_ATTRIBUTE8 IN VARCHAR2 := NULL,
145 X_ATTRIBUTE9 IN VARCHAR2 := NULL,
146 X_ATTRIBUTE10 IN VARCHAR2 := NULL,
147 X_ATTRIBUTE11 IN VARCHAR2 := NULL,
148 X_ATTRIBUTE12 IN VARCHAR2 := NULL,
149 X_ATTRIBUTE13 IN VARCHAR2 := NULL,
150 X_ATTRIBUTE14 IN VARCHAR2 := NULL,
151 X_ATTRIBUTE15 IN VARCHAR2 := NULL,
152 X_CREATED_BY IN NUMBER,
153 X_CREATION_DATE IN DATE,
154 X_LAST_UPDATE_DATE IN DATE,
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,
164 ATTRIBUTE3 = X_ATTRIBUTE3,
165 ATTRIBUTE4 = X_ATTRIBUTE4,
166 ATTRIBUTE5 = X_ATTRIBUTE5,
167 ATTRIBUTE6 = X_ATTRIBUTE6,
168 ATTRIBUTE7 = X_ATTRIBUTE7,
169 ATTRIBUTE8 = X_ATTRIBUTE8,
170 ATTRIBUTE9 = X_ATTRIBUTE9,
171 ATTRIBUTE10 = X_ATTRIBUTE10,
172 ATTRIBUTE11 = X_ATTRIBUTE11,
173 ATTRIBUTE12 = X_ATTRIBUTE12,
174 ATTRIBUTE13 = X_ATTRIBUTE13,
175 ATTRIBUTE14 = X_ATTRIBUTE14,
176 ATTRIBUTE15 = X_ATTRIBUTE15,
177 LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
178 LAST_UPDATED_BY = X_LAST_UPDATED_BY,
179 LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN,
180 OBJECT_VERSION_NUMBER = OBJECT_VERSION_NUMBER + 1
181 where SRP_ROLLOVER_QUOTA_ID = X_SRP_ROLLOVER_QUOTA_ID;
182
183 if (sql%notfound) then
184 raise no_data_found;
185 end if;
186 end UPDATE_ROW;
187
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;
197 end if;
198
199 end DELETE_ROW;
200 END CN_SRP_ROLLOVER_QUOTAS_PKG;