[Home] [Help]
PACKAGE BODY: APPS.OKE_FUNDINGSOURCE_PVT
Source
1 package body OKE_FundingSource_PVT as
2 /* $Header: OKEVFDSB.pls 120.0.12020000.2 2012/11/02 09:08:47 ansraj ship $ */
3
4
5 PROCEDURE Insert_Row(X_Rowid IN OUT NOCOPY VARCHAR2,
6 X_Funding_Source_Id NUMBER,
7 X_Pool_Party_Id NUMBER,
8 X_K_Party_Id NUMBER,
9 X_Object_Type VARCHAR2,
10 X_Object_Id NUMBER,
11 X_Agreement_Number VARCHAR2,
12 X_Currency_Code VARCHAR2,
13 X_Amount NUMBER,
14 X_Initial_Amount NUMBER,
15 X_Previous_Amount NUMBER,
16 X_Funding_Status VARCHAR2,
17 X_Hard_Limit NUMBER,
18 X_Revenue_Hard_Limit NUMBER,
19 X_Agreement_Org_Id NUMBER,
20 X_K_Conversion_Type VARCHAR2,
21 X_K_Conversion_Date DATE,
22 X_K_Conversion_Rate NUMBER,
23 X_Start_Date_Active DATE,
24 X_End_Date_Active DATE,
25 X_Last_Update_Date DATE,
26 X_Last_Updated_By NUMBER,
27 X_Creation_Date DATE,
28 X_Created_By NUMBER,
29 X_Last_Update_Login NUMBER,
30 X_Attribute_Category VARCHAR2,
31 X_Attribute1 VARCHAR2,
32 X_Attribute2 VARCHAR2,
33 X_Attribute3 VARCHAR2,
34 X_Attribute4 VARCHAR2,
35 X_Attribute5 VARCHAR2,
36 X_Attribute6 VARCHAR2,
37 X_Attribute7 VARCHAR2,
38 X_Attribute8 VARCHAR2,
39 X_Attribute9 VARCHAR2,
40 X_Attribute10 VARCHAR2,
41 X_Attribute11 VARCHAR2,
42 X_Attribute12 VARCHAR2,
43 X_Attribute13 VARCHAR2,
44 X_Attribute14 VARCHAR2,
45 X_Attribute15 VARCHAR2,
46 X_PA_Attribute_Category VARCHAR2,
47 X_PA_Attribute1 VARCHAR2,
48 X_PA_Attribute2 VARCHAR2,
49 X_PA_Attribute3 VARCHAR2,
50 X_PA_Attribute4 VARCHAR2,
51 X_PA_Attribute5 VARCHAR2,
52 X_PA_Attribute6 VARCHAR2,
53 X_PA_Attribute7 VARCHAR2,
54 X_PA_Attribute8 VARCHAR2,
55 X_PA_Attribute9 VARCHAR2,
56 X_PA_Attribute10 VARCHAR2,
57 X_PA_Attribute11 VARCHAR2,
58 X_PA_Attribute12 VARCHAR2,
59 X_PA_Attribute13 VARCHAR2,
60 X_PA_Attribute14 VARCHAR2,
61 X_PA_Attribute15 VARCHAR2,
62 X_PA_Attribute16 VARCHAR2,
63 X_PA_Attribute17 VARCHAR2,
64 X_PA_Attribute18 VARCHAR2,
65 X_PA_Attribute19 VARCHAR2,
66 X_PA_Attribute20 VARCHAR2,
67 X_PA_Attribute21 VARCHAR2,
68 X_PA_Attribute22 VARCHAR2,
69 X_PA_Attribute23 VARCHAR2,
70 X_PA_Attribute24 VARCHAR2,
71 X_PA_Attribute25 VARCHAR2
72 ) is
73
74 cursor C is
75 select rowid
76 from OKE_K_FUNDING_SOURCES
77 where funding_source_id = X_Funding_Source_Id;
78
79 begin
80 --oke_debug.debug('entering funding source insert_row');
81 insert into OKE_K_FUNDING_SOURCES(
82 funding_source_id,
83 pool_party_id,
84 k_party_id,
85 object_type,
86 object_id,
87 agreement_number,
88 amount,
89 initial_amount,
90 previous_amount,
91 funding_status,
92 hard_limit,
93 revenue_hard_limit,
94 agreement_org_id,
95 currency_code,
96 k_conversion_type,
97 k_conversion_date,
98 k_conversion_rate,
99 start_date_active,
100 end_date_active,
101 creation_date,
102 created_by,
103 last_updated_by,
104 last_update_date,
105 last_update_login,
106 attribute_category,
107 attribute1,
108 attribute2,
109 attribute3,
110 attribute4,
111 attribute5,
112 attribute6,
113 attribute7,
114 attribute8,
115 attribute9,
116 attribute10,
117 attribute11,
118 attribute12,
119 attribute13,
120 attribute14,
121 attribute15,
122 pa_attribute_category,
123 pa_attribute1,
124 pa_attribute2,
125 pa_attribute3,
126 pa_attribute4,
127 pa_attribute5,
128 pa_attribute6,
129 pa_attribute7,
130 pa_attribute8,
131 pa_attribute9,
132 pa_attribute10,
133 pa_attribute11,
134 pa_attribute12,
135 pa_attribute13,
136 pa_attribute14,
137 pa_attribute15,
138 pa_attribute16,
139 pa_attribute17,
140 pa_attribute18,
141 pa_attribute19,
142 pa_attribute20,
143 pa_attribute21,
144 pa_attribute22,
145 pa_attribute23,
146 pa_attribute24,
147 pa_attribute25
148
149 ) VALUES (
150 X_Funding_Source_Id,
151 X_Pool_Party_Id,
152 X_K_Party_Id,
153 X_Object_Type,
154 X_Object_Id,
155 X_Agreement_Number,
156 X_Amount,
157 X_Initial_Amount,
158 X_Previous_Amount,
159 X_Funding_Status,
160 X_Hard_Limit,
161 X_Revenue_Hard_Limit,
162 X_Agreement_Org_ID,
163 X_Currency_Code,
164 X_K_Conversion_Type,
165 X_K_Conversion_Date,
166 X_K_Conversion_Rate,
167 X_Start_Date_Active,
168 X_End_Date_Active,
169 X_Creation_Date,
170 X_Created_By,
171 X_Last_Updated_By,
172 X_Last_Update_Date,
173 X_Last_Update_Login,
174 X_Attribute_Category,
175 X_Attribute1,
176 X_Attribute2,
177 X_Attribute3,
178 X_Attribute4,
179 X_Attribute5,
180 X_Attribute6,
181 X_Attribute7,
182 X_Attribute8,
183 X_Attribute9,
184 X_Attribute10,
185 X_Attribute11,
186 X_Attribute12,
187 X_Attribute13,
188 X_Attribute14,
189 X_Attribute15,
190 X_PA_Attribute_Category,
191 X_PA_Attribute1,
192 X_PA_Attribute2,
193 X_PA_Attribute3,
194 X_PA_Attribute4,
195 X_PA_Attribute5,
196 X_PA_Attribute6,
197 X_PA_Attribute7,
198 X_PA_Attribute8,
199 X_PA_Attribute9,
200 X_PA_Attribute10,
201 X_PA_Attribute11,
202 X_PA_Attribute12,
203 X_PA_Attribute13,
204 X_PA_Attribute14,
205 X_PA_Attribute15,
206 X_PA_Attribute16,
207 X_PA_Attribute17,
208 X_PA_Attribute18,
209 X_PA_Attribute19,
210 X_PA_Attribute20,
211 X_PA_Attribute21,
212 X_PA_Attribute22,
213 X_PA_Attribute23,
214 X_PA_Attribute24,
215 X_PA_Attribute25
216 );
217
218 open c;
219 fetch c into X_Rowid;
220 if (c%notfound) then
221 close c;
222 raise no_data_found;
223 end if;
224 close c;
225 --oke_debug.debug('finishing insert_row');
226 if (x_pool_party_id is not null) then
227 --oke_debug.debug('inside the update oke_pool_parties');
228
229 update oke_pool_parties
230 set available_amount = (available_amount - X_amount)
231 where pool_party_id = X_Pool_Party_Id;
232
233 if (sql%notfound) then
234 --oke_debug.debug('encounter no date found for update pool party');
235 raise no_data_found;
236 end if;
237
238 end if;
239
240 end Insert_Row;
241
242 PROCEDURE Lock_Row(X_Funding_Source_Id NUMBER,
243 X_Pool_Party_Id NUMBER,
244 X_K_Party_Id NUMBER,
245 X_Object_Type VARCHAR2,
246 X_Object_Id NUMBER,
247 X_Agreement_Number VARCHAR2,
248 X_Currency_Code VARCHAR2,
249 X_Amount NUMBER,
250 X_Initial_Amount NUMBER,
251 X_Previous_Amount NUMBER,
252 X_Funding_Status VARCHAR2,
253 X_Hard_Limit NUMBER,
254 X_Revenue_Hard_Limit NUMBER,
255 X_Agreement_Org_Id NUMBER,
256 X_K_Conversion_Type VARCHAR2,
257 X_K_Conversion_Date DATE,
258 X_K_Conversion_Rate NUMBER,
259 X_Start_Date_Active DATE,
260 X_End_Date_Active DATE,
261 X_Attribute_Category VARCHAR2,
262 X_Attribute1 VARCHAR2,
263 X_Attribute2 VARCHAR2,
264 X_Attribute3 VARCHAR2,
265 X_Attribute4 VARCHAR2,
266 X_Attribute5 VARCHAR2,
267 X_Attribute6 VARCHAR2,
268 X_Attribute7 VARCHAR2,
269 X_Attribute8 VARCHAR2,
270 X_Attribute9 VARCHAR2,
271 X_Attribute10 VARCHAR2,
272 X_Attribute11 VARCHAR2,
273 X_Attribute12 VARCHAR2,
274 X_Attribute13 VARCHAR2,
275 X_Attribute14 VARCHAR2,
276 X_Attribute15 VARCHAR2,
277 X_PA_Attribute_Category VARCHAR2,
278 X_PA_Attribute1 VARCHAR2,
279 X_PA_Attribute2 VARCHAR2,
280 X_PA_Attribute3 VARCHAR2,
281 X_PA_Attribute4 VARCHAR2,
282 X_PA_Attribute5 VARCHAR2,
283 X_PA_Attribute6 VARCHAR2,
284 X_PA_Attribute7 VARCHAR2,
285 X_PA_Attribute8 VARCHAR2,
286 X_PA_Attribute9 VARCHAR2,
287 X_PA_Attribute10 VARCHAR2,
288 X_PA_Attribute11 VARCHAR2,
289 X_PA_Attribute12 VARCHAR2,
290 X_PA_Attribute13 VARCHAR2,
291 X_PA_Attribute14 VARCHAR2,
292 X_PA_Attribute15 VARCHAR2,
293 X_PA_Attribute16 VARCHAR2,
294 X_PA_Attribute17 VARCHAR2,
295 X_PA_Attribute18 VARCHAR2,
296 X_PA_Attribute19 VARCHAR2,
297 X_PA_Attribute20 VARCHAR2,
298 X_PA_Attribute21 VARCHAR2,
299 X_PA_Attribute22 VARCHAR2,
300 X_PA_Attribute23 VARCHAR2,
301 X_PA_Attribute24 VARCHAR2,
302 X_PA_Attribute25 VARCHAR2
303
304 ) is
305
306 cursor c is
307 select funding_source_id,
308 pool_party_id,
309 k_party_id,
310 object_type,
311 object_id,
312 agreement_number,
313 currency_code,
314 amount,
315 initial_amount,
316 previous_amount,
317 funding_status,
318 hard_limit,
319 revenue_hard_limit,
320 agreement_org_id,
321 k_conversion_type,
322 k_conversion_rate,
323 k_conversion_date,
324 start_date_active,
325 end_date_active,
326 attribute_category,
327 attribute1,
328 attribute2,
329 attribute3,
330 attribute4,
331 attribute5,
332 attribute6,
333 attribute7,
334 attribute8,
335 attribute9,
336 attribute10,
337 attribute11,
338 attribute12,
339 attribute13,
340 attribute14,
341 attribute15,
342 pa_attribute_category,
343 pa_attribute1,
344 pa_attribute2,
345 pa_attribute3,
346 pa_attribute4,
347 pa_attribute5,
348 pa_attribute6,
349 pa_attribute7,
350 pa_attribute8,
351 pa_attribute9,
352 pa_attribute10,
353 pa_attribute11,
354 pa_attribute12,
355 pa_attribute13,
356 pa_attribute14,
357 pa_attribute15,
358 pa_attribute16,
359 pa_attribute17,
360 pa_attribute18,
361 pa_attribute19,
362 pa_attribute20,
363 pa_attribute21,
364 pa_attribute22,
365 pa_attribute23,
366 pa_attribute24,
367 pa_attribute25
368 from OKE_K_FUNDING_SOURCES
369 where funding_source_id = X_Funding_Source_Id
370 for update of funding_source_id nowait;
371
372 recinfo c%rowtype;
373
374 begin
375
376 open c;
377 fetch c into recinfo;
378 if (c%notfound) then
379 close c;
380 fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
381 app_exception.raise_exception;
382 end if;
383 close c;
384
388 OR ((recinfo.revenue_hard_limit is null) AND (X_Revenue_Hard_Limit is null)))
385 if ( ((recinfo.hard_limit = X_Hard_Limit)
386 OR ((recinfo.hard_limit is null) AND (X_Hard_Limit is null)))
387 AND ((recinfo.revenue_hard_limit = X_Revenue_Hard_Limit)
389 AND ((recinfo.agreement_org_id = X_Agreement_Org_ID)
390 OR ((recinfo.agreement_org_id is null) AND (X_Agreement_Org_ID is null)))
391 AND ((rtrim(recinfo.k_conversion_type) = rtrim(X_K_Conversion_Type))
392 OR ((recinfo.k_conversion_type is null) AND (X_K_Conversion_Type is null)))
393 AND ((rtrim(recinfo.k_conversion_date) = rtrim(X_K_Conversion_Date))
394 OR ((recinfo.k_conversion_date is null) AND (X_K_Conversion_Date is null)))
395 AND ((recinfo.k_conversion_rate = X_K_Conversion_Rate)
396 OR ((recinfo.k_conversion_rate is null) AND (X_K_Conversion_Rate is null)))
397 AND ((rtrim(recinfo.end_date_active) = rtrim(X_End_Date_Active))
398 OR ((recinfo.end_date_active is null) AND (X_End_Date_Active is null)))
399 AND ((rtrim(recinfo.start_date_active) = rtrim(X_Start_Date_Active))
400 OR ((recinfo.start_date_active is null) AND (X_Start_Date_Active is null)))
401 AND ((rtrim(recinfo.funding_status) = rtrim(X_Funding_Status))
402 OR ((recinfo.funding_status is null) AND (X_Funding_Status is null)))
403 AND ((recinfo.pool_party_id = X_Pool_Party_Id)
404 OR ((recinfo.pool_party_id is null) AND (X_Pool_Party_Id is null)))
405 AND (recinfo.initial_amount = X_Initial_Amount)
406 AND (recinfo.previous_amount = X_Previous_Amount)
407 AND (rtrim(recinfo.object_type) = rtrim(X_Object_Type))
408 AND (rtrim(recinfo.currency_code) = rtrim(X_Currency_Code))
409 AND (recinfo.funding_source_id = X_Funding_Source_Id)
410 AND (recinfo.object_id = X_Object_Id)
411 AND (recinfo.amount = X_Amount)
412 AND (recinfo.k_party_id = X_K_Party_Id)
413 AND (recinfo.funding_source_id = X_Funding_Source_Id)
414 AND ((rtrim(recinfo.attribute_category) = rtrim(X_Attribute_Category))
415 OR ((recinfo.attribute_category is null) AND (X_Attribute_Category is null)))
416 AND ((rtrim(recinfo.attribute1) = rtrim(X_Attribute1))
417 OR ((recinfo.attribute1 is null) AND (X_Attribute1 is null)))
418 AND ((rtrim(recinfo.attribute2) = rtrim(X_Attribute2))
419 OR ((recinfo.attribute2 is null) AND (X_Attribute2 is null)))
420 AND ((rtrim(recinfo.attribute3) = rtrim(X_Attribute3))
421 OR ((recinfo.attribute3 is null) AND (X_Attribute3 is null)))
422 AND ((rtrim(recinfo.attribute4) = rtrim(X_Attribute4))
423 OR ((recinfo.attribute4 is null) AND (X_Attribute4 is null)))
424 AND ((rtrim(recinfo.attribute5) = rtrim(X_Attribute5))
425 OR ((recinfo.attribute5 is null) AND (X_Attribute5 is null)))
426 AND ((rtrim(recinfo.attribute6) = rtrim(X_Attribute6))
427 OR ((recinfo.attribute6 is null) AND (X_Attribute6 is null)))
428 AND ((rtrim(recinfo.attribute7) = rtrim(X_Attribute7))
429 OR ((recinfo.attribute7 is null) AND (X_Attribute7 is null)))
430 AND ((rtrim(recinfo.attribute8) = rtrim(X_Attribute8))
431 OR ((recinfo.attribute8 is null) AND (X_Attribute8 is null)))
432 AND ((rtrim(recinfo.attribute9) = rtrim(X_Attribute9))
433 OR ((recinfo.attribute9 is null) AND (X_Attribute9 is null)))
434 AND ((rtrim(recinfo.attribute10) = rtrim(X_Attribute10))
435 OR ((recinfo.attribute10 is null) AND (X_Attribute10 is null)))
436 AND ((rtrim(recinfo.attribute11) = rtrim(X_Attribute11))
437 OR ((recinfo.attribute11 is null) AND (X_Attribute11 is null)))
438 AND ((rtrim(recinfo.attribute12) = rtrim(X_Attribute12))
439 OR ((recinfo.attribute12 is null) AND (X_Attribute12 is null)))
440 AND ((rtrim(recinfo.attribute13) = rtrim(X_Attribute13))
441 OR ((recinfo.attribute13 is null) AND (X_Attribute13 is null)))
442 AND ((rtrim(recinfo.attribute14) = rtrim(X_Attribute14))
443 OR ((recinfo.attribute14 is null) AND (X_Attribute14 is null)))
444 AND ((rtrim(recinfo.attribute15) = rtrim(X_Attribute15))
445 OR ((recinfo.attribute15 is null) AND (X_Attribute15 is null)))
446 AND ((rtrim(recinfo.pa_attribute_category) = rtrim(X_PA_Attribute_Category))
447 OR ((recinfo.pa_attribute_category is null) AND (X_PA_Attribute_Category is null)))
448 AND ((rtrim(recinfo.pa_attribute1) = rtrim(X_PA_Attribute1))
449 OR ((recinfo.pa_attribute1 is null) AND (X_PA_Attribute1 is null)))
450 AND ((rtrim(recinfo.pa_attribute2) = rtrim(X_PA_Attribute2))
451 OR ((recinfo.pa_attribute2 is null) AND (X_PA_Attribute2 is null)))
452 AND ((rtrim(recinfo.pa_attribute3) = rtrim(X_PA_Attribute3))
453 OR ((recinfo.pa_attribute3 is null) AND (X_PA_Attribute3 is null)))
454 AND ((rtrim(recinfo.pa_attribute4) = rtrim(X_PA_Attribute4))
455 OR ((recinfo.pa_attribute4 is null) AND (X_PA_Attribute4 is null)))
456 AND ((rtrim(recinfo.pa_attribute5) = rtrim(X_PA_Attribute5))
457 OR ((recinfo.pa_attribute5 is null) AND (X_PA_Attribute5 is null)))
458 AND ((rtrim(recinfo.pa_attribute6) = rtrim(X_PA_Attribute6))
459 OR ((recinfo.pa_attribute6 is null) AND (X_PA_Attribute6 is null)))
460 AND ((rtrim(recinfo.pa_attribute7) = rtrim(X_PA_Attribute7))
461 OR ((recinfo.pa_attribute7 is null) AND (X_PA_Attribute7 is null)))
462 AND ((rtrim(recinfo.pa_attribute8) = rtrim(X_PA_Attribute8))
463 OR ((recinfo.pa_attribute8 is null) AND (X_PA_Attribute8 is null)))
464 AND ((rtrim(recinfo.pa_attribute9) = rtrim(X_PA_Attribute9))
465 OR ((recinfo.pa_attribute9 is null) AND (X_PA_Attribute9 is null)))
466 AND ((rtrim(recinfo.pa_attribute10) = rtrim(X_PA_Attribute10))
467 OR ((recinfo.pa_attribute10 is null) AND (X_PA_Attribute10 is null)))
468 AND ((rtrim(recinfo.pa_attribute11) = rtrim(X_PA_Attribute11))
469 OR ((recinfo.pa_attribute11 is null) AND (X_PA_Attribute11 is null)))
473 OR ((recinfo.pa_attribute13 is null) AND (X_PA_Attribute13 is null)))
470 AND ((rtrim(recinfo.pa_attribute12) = rtrim(X_PA_Attribute12))
471 OR ((recinfo.pa_attribute12 is null) AND (X_PA_Attribute12 is null)))
472 AND ((rtrim(recinfo.pa_attribute13) = rtrim(X_PA_Attribute13))
474 AND ((rtrim(recinfo.pa_attribute14) = rtrim(X_PA_Attribute14))
475 OR ((recinfo.pa_attribute14 is null) AND (X_PA_Attribute14 is null)))
476 AND ((rtrim(recinfo.pa_attribute15) = rtrim(X_PA_Attribute15))
477 OR ((recinfo.pa_attribute15 is null) AND (X_PA_Attribute15 is null)))
478 AND ((rtrim(recinfo.pa_attribute16) = rtrim(X_PA_Attribute16))
479 OR ((recinfo.pa_attribute16 is null) AND (X_PA_Attribute16 is null)))
480 AND ((rtrim(recinfo.pa_attribute17) = rtrim(X_PA_Attribute17))
481 OR ((recinfo.pa_attribute17 is null) AND (X_PA_Attribute17 is null)))
482 AND ((rtrim(recinfo.pa_attribute18) = rtrim(X_PA_Attribute18))
483 OR ((recinfo.pa_attribute18 is null) AND (X_PA_Attribute18 is null)))
484 AND ((rtrim(recinfo.pa_attribute19) = rtrim(X_PA_Attribute19))
485 OR ((recinfo.pa_attribute19 is null) AND (X_PA_Attribute19 is null)))
486 AND ((rtrim(recinfo.pa_attribute20) = rtrim(X_PA_Attribute20))
487 OR ((recinfo.pa_attribute20 is null) AND (X_PA_Attribute20 is null)))
488 AND ((rtrim(recinfo.pa_attribute21) = rtrim(X_PA_Attribute21))
489 OR ((recinfo.pa_attribute21 is null) AND (X_PA_Attribute21 is null)))
490 AND ((rtrim(recinfo.pa_attribute22) = rtrim(X_PA_Attribute22))
491 OR ((recinfo.pa_attribute22 is null) AND (X_PA_Attribute22 is null)))
492 AND ((rtrim(recinfo.pa_attribute23) = rtrim(X_PA_Attribute23))
493 OR ((recinfo.pa_attribute23 is null) AND (X_PA_Attribute23 is null)))
494 AND ((rtrim(recinfo.pa_attribute24) = rtrim(X_PA_Attribute24))
495 OR ((recinfo.pa_attribute24 is null) AND (X_PA_Attribute24 is null)))
496 AND ((rtrim(recinfo.pa_attribute25) = rtrim(X_PA_Attribute25))
497 OR ((recinfo.pa_attribute25 is null) AND (X_PA_Attribute25 is null)))
498 ) then
499 null;
500 else
501 fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
502 app_exception.raise_exception;
503 end if;
504
505 end Lock_Row;
506
507 PROCEDURE Update_Row(X_Funding_Source_Id NUMBER,
508 X_Pool_Party_Id NUMBER,
509 X_K_Party_Id NUMBER,
510 X_Amount NUMBER,
511 X_Previous_Amount NUMBER,
512 X_Funding_Status VARCHAR2,
513 X_Agreement_Number VARCHAR2,
514 X_Hard_Limit NUMBER,
515 X_Revenue_Hard_Limit NUMBER,
516 X_Agreement_Org_ID NUMBER,
517 X_K_Conversion_Type VARCHAR2,
518 X_K_Conversion_Date DATE,
519 X_K_Conversion_Rate NUMBER,
520 X_Start_Date_Active DATE,
521 X_End_Date_Active DATE,
522 X_Last_Update_Date DATE,
523 X_Last_Updated_By NUMBER,
524 X_Last_Update_Login NUMBER,
525 X_Attribute_Category VARCHAR2,
526 X_Attribute1 VARCHAR2,
527 X_Attribute2 VARCHAR2,
528 X_Attribute3 VARCHAR2,
529 X_Attribute4 VARCHAR2,
530 X_Attribute5 VARCHAR2,
531 X_Attribute6 VARCHAR2,
532 X_Attribute7 VARCHAR2,
533 X_Attribute8 VARCHAR2,
534 X_Attribute9 VARCHAR2,
535 X_Attribute10 VARCHAR2,
536 X_Attribute11 VARCHAR2,
537 X_Attribute12 VARCHAR2,
538 X_Attribute13 VARCHAR2,
539 X_Attribute14 VARCHAR2,
540 X_Attribute15 VARCHAR2,
541 X_PA_Attribute_Category VARCHAR2,
542 X_PA_Attribute1 VARCHAR2,
543 X_PA_Attribute2 VARCHAR2,
544 X_PA_Attribute3 VARCHAR2,
545 X_PA_Attribute4 VARCHAR2,
546 X_PA_Attribute5 VARCHAR2,
547 X_PA_Attribute6 VARCHAR2,
548 X_PA_Attribute7 VARCHAR2,
549 X_PA_Attribute8 VARCHAR2,
550 X_PA_Attribute9 VARCHAR2,
551 X_PA_Attribute10 VARCHAR2,
552 X_PA_Attribute11 VARCHAR2,
553 X_PA_Attribute12 VARCHAR2,
554 X_PA_Attribute13 VARCHAR2,
555 X_PA_Attribute14 VARCHAR2,
556 X_PA_Attribute15 VARCHAR2,
557 X_PA_Attribute16 VARCHAR2,
558 X_PA_Attribute17 VARCHAR2,
559 X_PA_Attribute18 VARCHAR2,
560 X_PA_Attribute19 VARCHAR2,
561 X_PA_Attribute20 VARCHAR2,
562 X_PA_Attribute21 VARCHAR2,
563 X_PA_Attribute22 VARCHAR2,
564 X_PA_Attribute23 VARCHAR2,
568 ) is
565 X_PA_Attribute24 VARCHAR2,
566 X_PA_Attribute25 VARCHAR2
567
569
570 cursor c_source is
571 select nvl(sum(amount), 0)
572 from oke_k_funding_sources
573 where pool_party_id = x_pool_party_id;
574
575 l_amount number;
576
577 begin
578
579 update OKE_K_FUNDING_SOURCES
580 set
581 pool_party_id = X_Pool_Party_Id,
582 k_party_id = X_K_Party_Id,
583 amount = X_Amount,
584 previous_amount = X_Previous_Amount,
585 funding_status = X_Funding_Status,
586 agreement_number = X_Agreement_Number,
587 hard_limit = X_Hard_Limit,
588 revenue_hard_limit = X_Revenue_Hard_Limit,
589 agreement_org_id = X_Agreement_Org_ID,
590 k_conversion_type = X_K_Conversion_Type,
591 k_conversion_date = X_K_Conversion_Date,
592 k_conversion_rate = X_K_Conversion_Rate,
593 start_date_active = X_Start_Date_Active,
594 end_date_active = X_End_Date_Active,
595 last_update_date = X_Last_Update_Date,
596 last_updated_by = X_Last_Updated_By,
597 last_update_login = X_Last_Update_Login,
598 attribute_Category = X_Attribute_Category,
599 attribute1 = X_Attribute1,
600 attribute2 = X_Attribute2,
601 attribute3 = X_Attribute3,
602 attribute4 = X_Attribute4,
603 attribute5 = X_Attribute5,
604 attribute6 = X_Attribute6,
605 attribute7 = X_Attribute7,
606 attribute8 = X_Attribute8,
607 attribute9 = X_Attribute9,
608 attribute10 = X_Attribute10,
609 attribute11 = X_Attribute11,
610 attribute12 = X_Attribute12,
611 attribute13 = X_Attribute13,
612 attribute14 = X_Attribute14,
613 attribute15 = X_Attribute15,
614 pa_attribute_category = X_PA_Attribute_Category,
615 pa_attribute1 = X_PA_Attribute1,
616 pa_attribute2 = X_PA_Attribute2,
617 pa_attribute3 = X_PA_Attribute3,
618 pa_attribute4 = X_PA_Attribute4,
619 pa_attribute5 = X_PA_Attribute5,
620 pa_attribute6 = X_PA_Attribute6,
621 pa_attribute7 = X_PA_Attribute7,
622 pa_attribute8 = X_PA_Attribute8,
623 pa_attribute9 = X_PA_Attribute9,
624 pa_attribute10 = X_PA_Attribute10,
625 pa_attribute11 = X_PA_Attribute11,
626 pa_attribute12 = X_PA_Attribute12,
627 pa_attribute13 = X_PA_Attribute13,
628 pa_attribute14 = X_PA_Attribute14,
629 pa_attribute15 = X_PA_Attribute15,
630 pa_attribute16 = X_PA_Attribute16,
631 pa_attribute17 = X_PA_Attribute17,
632 pa_attribute18 = X_PA_Attribute18,
633 pa_attribute19 = X_PA_Attribute19,
634 pa_attribute20 = X_PA_Attribute20,
635 pa_attribute21 = X_PA_Attribute21,
636 pa_attribute22 = X_PA_Attribute22,
637 pa_attribute23 = X_PA_Attribute23,
638 pa_attribute24 = X_PA_Attribute24,
639 pa_attribute25 = X_PA_Attribute25
640 where funding_source_id = X_Funding_Source_Id;
641
642 if (sql%notfound) then
643 raise no_data_found;
644 end if;
645
646 if (x_pool_party_id is not null) then
647
648 open c_source;
649 fetch c_source into l_amount;
650
651 if (c_source%notfound) then
652 close c_source;
653 raise no_data_found;
654 end if;
655
656 close c_source;
657
658 update oke_pool_parties
659 set available_amount = (amount - l_amount)
660 where pool_party_id = X_Pool_Party_Id;
661
662 if (sql%notfound) then
663 raise no_data_found;
664 end if;
665
666 end if;
667
668 end Update_Row;
669
670 PROCEDURE Delete_Row(X_Rowid VARCHAR2,
671 X_Pool_Party_Id NUMBER ) IS
672 cursor c_pool is
673 select *
674 from oke_pool_parties
675 where pool_party_id = x_pool_party_id
676 for update of pool_party_id nowait;
677
678 cursor c_source is
679 select nvl(amount, 0)
680 from oke_k_funding_sources
681 where rowid = x_rowid;
682
683 l_source_amount number;
684 l_pool_party_row c_pool%ROWTYPE;
685
686 BEGIN
687
688 OPEN c_source;
689 FETCH c_source into l_source_amount;
690 CLOSE c_source;
691
692 DELETE FROM OKE_K_FUNDING_SOURCES
693 WHERE rowid = X_Rowid;
694
695 if (SQL%NOTFOUND) then
696 Raise NO_DATA_FOUND;
697 end if;
698
699 if (x_pool_party_id is not null) then
700
701 OPEN c_pool;
705 close c_pool;
702 FETCH c_pool into l_pool_party_row;
703
704 if (c_pool%notfound) then
706 raise no_data_found;
707 end if;
708
709 close c_pool;
710
711 UPDATE OKE_POOL_PARTIES
712 SET available_amount = l_pool_party_row.available_amount + l_source_amount
713 WHERE pool_party_id = l_pool_party_row.pool_party_id;
714
715 end if;
716
717 EXCEPTION
718 WHEN OTHERS THEN
719 raise;
720
721 END Delete_Row;
722
723 END OKE_FundingSource_PVT;