[Home] [Help]
PACKAGE BODY: APPS.OKE_FUNDING_POOLS_PKG
Source
1 package body OKE_FUNDING_POOLS_PKG as
2 /* $Header: OKEFDPLB.pls 115.5 2002/11/27 19:47:16 syho ship $ */
3
4 PROCEDURE Insert_Row(X_Rowid IN OUT NOCOPY VARCHAR2,
5 X_Funding_Pool_Id NUMBER,
6 X_Name VARCHAR2,
7 X_Description VARCHAR2,
8 X_Currency_Code VARCHAR2,
9 X_Contact_Person_Id NUMBER,
10 X_Program_Id NUMBER,
11 X_Last_Update_Date DATE,
12 X_Last_Updated_By NUMBER,
13 X_Creation_Date DATE,
14 X_Created_By NUMBER,
15 X_Last_Update_Login NUMBER,
16 X_Attribute_Category VARCHAR2,
17 X_Attribute1 VARCHAR2,
18 X_Attribute2 VARCHAR2,
19 X_Attribute3 VARCHAR2,
20 X_Attribute4 VARCHAR2,
21 X_Attribute5 VARCHAR2,
22 X_Attribute6 VARCHAR2,
23 X_Attribute7 VARCHAR2,
24 X_Attribute8 VARCHAR2,
25 X_Attribute9 VARCHAR2,
26 X_Attribute10 VARCHAR2,
27 X_Attribute11 VARCHAR2,
28 X_Attribute12 VARCHAR2,
29 X_Attribute13 VARCHAR2,
30 X_Attribute14 VARCHAR2,
31 X_Attribute15 VARCHAR2
32 ) is
33
34 cursor C is
35 select rowid
36 from OKE_FUNDING_POOLS
37 where funding_pool_id = X_Funding_Pool_Id;
38
39 begin
40
41 insert into OKE_FUNDING_POOLS(
42 funding_pool_id,
43 name,
44 description,
45 contact_person_id,
46 program_id,
47 currency_code,
48 last_update_date,
49 last_updated_by,
50 creation_date,
51 created_by,
52 last_update_login,
53 attribute_category,
54 attribute1,
55 attribute2,
56 attribute3,
57 attribute4,
58 attribute5,
59 attribute6,
60 attribute7,
61 attribute8,
62 attribute9,
63 attribute10,
64 attribute11,
65 attribute12,
66 attribute13,
67 attribute14,
68 attribute15
69 ) VALUES (
70 X_Funding_Pool_Id,
71 X_Name,
72 X_Description,
73 X_Contact_Person_Id,
74 X_Program_Id,
75 X_Currency_Code,
76 X_Last_Update_Date,
77 X_Last_Updated_By,
78 X_Creation_Date,
79 X_Created_By,
80 X_Last_Update_Login,
81 X_Attribute_Category,
82 X_Attribute1,
83 X_Attribute2,
84 X_Attribute3,
85 X_Attribute4,
86 X_Attribute5,
87 X_Attribute6,
88 X_Attribute7,
89 X_Attribute8,
90 X_Attribute9,
91 X_Attribute10,
92 X_Attribute11,
93 X_Attribute12,
94 X_Attribute13,
95 X_Attribute14,
96 X_Attribute15
97 );
98
99 open c;
100 fetch c into X_Rowid;
101 if (c%notfound) then
102 close c;
103 raise no_data_found;
104 end if;
105 close c;
106
107 end Insert_Row;
108
109
110 PROCEDURE Lock_Row(X_Funding_Pool_Id NUMBER,
111 X_Name VARCHAR2,
112 X_Description VARCHAR2,
113 X_Currency_Code VARCHAR2,
114 X_Contact_Person_Id NUMBER,
115 X_Program_Id NUMBER,
116 X_Attribute_Category VARCHAR2,
117 X_Attribute1 VARCHAR2,
118 X_Attribute2 VARCHAR2,
119 X_Attribute3 VARCHAR2,
120 X_Attribute4 VARCHAR2,
121 X_Attribute5 VARCHAR2,
122 X_Attribute6 VARCHAR2,
123 X_Attribute7 VARCHAR2,
124 X_Attribute8 VARCHAR2,
125 X_Attribute9 VARCHAR2,
126 X_Attribute10 VARCHAR2,
127 X_Attribute11 VARCHAR2,
128 X_Attribute12 VARCHAR2,
129 X_Attribute13 VARCHAR2,
130 X_Attribute14 VARCHAR2,
131 X_Attribute15 VARCHAR2
132 ) is
133
134 cursor c is
135 select funding_pool_id,
136 name,
137 description,
138 contact_person_id,
139 program_id,
140 currency_code,
141 attribute_category,
142 attribute1,
143 attribute2,
144 attribute3,
145 attribute4,
146 attribute5,
147 attribute6,
148 attribute7,
149 attribute8,
150 attribute9,
151 attribute10,
152 attribute11,
153 attribute12,
154 attribute13,
155 attribute14,
156 attribute15
157 from OKE_FUNDING_POOLS
158 where funding_pool_id = X_Funding_Pool_Id
159 for update of funding_pool_id nowait;
160
161 recinfo c%rowtype;
162
163 begin
164
165 open c;
166 fetch c into recinfo;
167 if (c%notfound) then
168 close c;
169 fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
170 app_exception.raise_exception;
171 end if;
172 close c;
173
174 if ( (rtrim(recinfo.currency_code) = rtrim(X_Currency_Code))
175 AND ((recinfo.contact_person_id = X_Contact_Person_Id)
176 OR ((recinfo.contact_person_id is null) AND (X_Contact_Person_Id is null)))
177 AND ((recinfo.program_id = X_Program_Id)
178 OR ((recinfo.program_id is null) AND (X_Program_Id is null)))
179 AND ((rtrim(recinfo.description) = rtrim(X_Description))
180 OR ((recinfo.description is null) AND (X_Description is null)))
181 AND (rtrim(recinfo.name) = rtrim(X_Name))
182 AND (recinfo.funding_pool_id = X_Funding_Pool_Id)
183 AND ((rtrim(recinfo.attribute_category) = rtrim(X_Attribute_Category))
184 OR ((recinfo.attribute_category is null) AND (X_Attribute_Category is null)))
185 AND ((rtrim(recinfo.attribute1) = rtrim(X_Attribute1))
186 OR ((recinfo.attribute1 is null) AND (X_Attribute1 is null)))
187 AND ((rtrim(recinfo.attribute2) = rtrim(X_Attribute2))
188 OR ((recinfo.attribute2 is null) AND (X_Attribute2 is null)))
189 AND ((rtrim(recinfo.attribute3) = rtrim(X_Attribute3))
190 OR ((recinfo.attribute3 is null) AND (X_Attribute3 is null)))
191 AND ((rtrim(recinfo.attribute4) = rtrim(X_Attribute4))
192 OR ((recinfo.attribute4 is null) AND (X_Attribute4 is null)))
193 AND ((rtrim(recinfo.attribute5) = rtrim(X_Attribute5))
194 OR ((recinfo.attribute5 is null) AND (X_Attribute5 is null)))
195 AND ((rtrim(recinfo.attribute6) = rtrim(X_Attribute6))
196 OR ((recinfo.attribute6 is null) AND (X_Attribute6 is null)))
197 AND ((rtrim(recinfo.attribute7) = rtrim(X_Attribute7))
198 OR ((recinfo.attribute7 is null) AND (X_Attribute7 is null)))
199 AND ((rtrim(recinfo.attribute8) = rtrim(X_Attribute8))
200 OR ((recinfo.attribute8 is null) AND (X_Attribute8 is null)))
201 AND ((rtrim(recinfo.attribute9) = rtrim(X_Attribute9))
202 OR ((recinfo.attribute9 is null) AND (X_Attribute9 is null)))
203 AND ((rtrim(recinfo.attribute10) = rtrim(X_Attribute10))
204 OR ((recinfo.attribute10 is null) AND (X_Attribute10 is null)))
205 AND ((rtrim(recinfo.attribute11) = rtrim(X_Attribute11))
206 OR ((recinfo.attribute11 is null) AND (X_Attribute11 is null)))
207 AND ((rtrim(recinfo.attribute12) = rtrim(X_Attribute12))
208 OR ((recinfo.attribute12 is null) AND (X_Attribute12 is null)))
209 AND ((rtrim(recinfo.attribute13) = rtrim(X_Attribute13))
210 OR ((recinfo.attribute13 is null) AND (X_Attribute13 is null)))
211 AND ((rtrim(recinfo.attribute14) = rtrim(X_Attribute14))
212 OR ((recinfo.attribute14 is null) AND (X_Attribute14 is null)))
213 AND ((rtrim(recinfo.attribute15) = rtrim(X_Attribute15))
214 OR ((recinfo.attribute15 is null) AND (X_Attribute15 is null)))
215 ) then
216 null;
217 else
218 fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
219 app_exception.raise_exception;
220 end if;
221
222 end Lock_Row;
223
224
225 PROCEDURE Update_Row(X_Funding_Pool_Id NUMBER,
226 X_Name VARCHAR2,
227 X_Description VARCHAR2,
228 X_Contact_Person_Id NUMBER,
229 X_Program_Id NUMBER,
230 X_Last_Update_Date DATE,
231 X_Last_Updated_By NUMBER,
232 X_Last_Update_Login NUMBER,
233 X_Attribute_Category VARCHAR2,
234 X_Attribute1 VARCHAR2,
235 X_Attribute2 VARCHAR2,
236 X_Attribute3 VARCHAR2,
237 X_Attribute4 VARCHAR2,
238 X_Attribute5 VARCHAR2,
239 X_Attribute6 VARCHAR2,
240 X_Attribute7 VARCHAR2,
241 X_Attribute8 VARCHAR2,
242 X_Attribute9 VARCHAR2,
243 X_Attribute10 VARCHAR2,
244 X_Attribute11 VARCHAR2,
245 X_Attribute12 VARCHAR2,
246 X_Attribute13 VARCHAR2,
247 X_Attribute14 VARCHAR2,
248 X_Attribute15 VARCHAR2
249 ) is
250
251 begin
252
253 update OKE_FUNDING_POOLS
254 set
255 name = X_Name,
256 description = X_Description,
257 contact_person_id = X_Contact_Person_Id,
258 program_id = X_Program_Id,
259 last_update_date = X_Last_Update_Date,
260 last_updated_by = X_Last_Updated_By,
261 last_update_login = X_Last_Update_Login,
262 attribute_Category = X_Attribute_Category,
263 attribute1 = X_Attribute1,
264 attribute2 = X_Attribute2,
265 attribute3 = X_Attribute3,
266 attribute4 = X_Attribute4,
267 attribute5 = X_Attribute5,
268 attribute6 = X_Attribute6,
269 attribute7 = X_Attribute7,
270 attribute8 = X_Attribute8,
271 attribute9 = X_Attribute9,
272 attribute10 = X_Attribute10,
273 attribute11 = X_Attribute11,
274 attribute12 = X_Attribute12,
275 attribute13 = X_Attribute13,
276 attribute14 = X_Attribute14,
277 attribute15 = X_Attribute15
278 where funding_pool_id = X_Funding_Pool_Id;
279
280 if (sql%notfound) then
281 raise no_data_found;
282 end if;
283
284 end Update_Row;
285
286
287 PROCEDURE Delete_Row(X_Rowid VARCHAR2) IS
288 BEGIN
289
290 DELETE FROM OKE_FUNDING_POOLS
291 WHERE rowid = X_Rowid;
292
293 if (SQL%NOTFOUND) then
294 Raise NO_DATA_FOUND;
295 end if;
296
297 EXCEPTION
298 WHEN OTHERS THEN
299 raise;
300
301 END Delete_Row;
302
303 end OKE_FUNDING_POOLS_PKG;