eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.
PACKAGE BODY: APPS.FA_ITC_RECAPTURE_RATES_PKG

Source


1 PACKAGE BODY FA_ITC_RECAPTURE_RATES_PKG as
2 /* $Header: faxiitrb.pls 120.6 2005/07/28 00:20:21 tkawamur ship $ */
3 
4 procedure INSERT_ROW (
5   X_ROWID in out nocopy VARCHAR2,
6   X_ITC_RECAPTURE_ID in NUMBER,
7   X_TAX_YEAR in NUMBER,
8   X_LIFE_IN_MONTHS in NUMBER,
9   X_YEAR_OF_RETIREMENT in NUMBER,
10   X_ITC_RECAPTURE_RATE in NUMBER,
11   X_ATTRIBUTE1 in VARCHAR2,
12   X_ATTRIBUTE2 in VARCHAR2,
13   X_ATTRIBUTE3 in VARCHAR2,
14   X_ATTRIBUTE4 in VARCHAR2,
15   X_ATTRIBUTE5 in VARCHAR2,
16   X_ATTRIBUTE6 in VARCHAR2,
17   X_ATTRIBUTE7 in VARCHAR2,
18   X_ATTRIBUTE8 in VARCHAR2,
19   X_ATTRIBUTE9 in VARCHAR2,
20   X_ATTRIBUTE10 in VARCHAR2,
21   X_ATTRIBUTE11 in VARCHAR2,
22   X_ATTRIBUTE12 in VARCHAR2,
23   X_ATTRIBUTE13 in VARCHAR2,
24   X_ATTRIBUTE14 in VARCHAR2,
25   X_ATTRIBUTE15 in VARCHAR2,
26   X_ATTRIBUTE_CATEGORY_CODE in VARCHAR2,
27   X_CREATION_DATE in DATE,
28   X_CREATED_BY in NUMBER,
29   X_LAST_UPDATE_DATE in DATE,
30   X_LAST_UPDATED_BY in NUMBER,
31   X_LAST_UPDATE_LOGIN in NUMBER,
32   p_log_level_rec    in      fa_api_types.log_level_rec_type default null) is
33 /*
34   CURSOR C is SELECT rowid FROM fa_itc_recapture_rates
35               WHERE  itc_recapture_id = X_Itc_Recapture_Id;
36 */
37 begin
38 
39   INSERT INTO fa_itc_recapture_rates (
40 	itc_recapture_id,
41 	tax_year,
42 	life_in_months,
43 	year_of_retirement,
44 	itc_recapture_rate,
45 	attribute1,
46 	attribute2,
47 	attribute3,
48 	attribute4,
49 	attribute5,
50 	attribute6,
51 	attribute7,
52 	attribute8,
53 	attribute9,
54 	attribute10,
55 	attribute11,
56 	attribute12,
57 	attribute13,
58 	attribute14,
59 	attribute15,
60 	attribute_category_code,
61 	creation_date,
62 	created_by,
63 	last_update_date,
64 	last_updated_by,
65 	last_update_login
66   ) VALUES (
67 	X_Itc_Recapture_Id,
68 	X_Tax_Year,
69 	X_Life_In_Months,
70 	X_Year_Of_Retirement,
71 	X_Itc_Recapture_Rate,
72 	X_Attribute1,
73 	X_Attribute2,
74 	X_Attribute3,
75 	X_Attribute4,
76 	X_Attribute5,
77 	X_Attribute6,
78 	X_Attribute7,
79 	X_Attribute8,
80 	X_Attribute9,
81 	X_Attribute10,
82 	X_Attribute11,
83 	X_Attribute12,
84 	X_Attribute13,
85 	X_Attribute14,
86 	X_Attribute15,
87 	X_Attribute_Category_Code,
88 	X_Creation_Date,
89 	X_Created_By,
90 	X_Last_Update_Date,
91 	X_Last_Updated_By,
92 	X_Last_Update_Login
93   );
94 /*
95   OPEN C;
96   FETCH C INTO X_Rowid;
97   if (C%NOTFOUND) then
98      CLOSE C;
99      Raise NO_DATA_FOUND;
100   end if;
101   CLOSE C;
102 */
103 exception
104   when others then
105         fa_srvr_msg.add_sql_error(
106                 calling_fn => 'fa_itc_recapture_rates_pkg.insert_row'
107                 ,p_log_level_rec => p_log_level_rec);
108         raise;
109 
110 end INSERT_ROW;
111 
112 procedure LOCK_ROW (
113   X_ITC_RECAPTURE_ID in NUMBER,
114   X_TAX_YEAR in NUMBER,
115   X_LIFE_IN_MONTHS in NUMBER,
116   X_YEAR_OF_RETIREMENT in NUMBER,
117   X_ITC_RECAPTURE_RATE in NUMBER,
118   X_ATTRIBUTE1 in VARCHAR2,
119   X_ATTRIBUTE2 in VARCHAR2,
120   X_ATTRIBUTE3 in VARCHAR2,
121   X_ATTRIBUTE4 in VARCHAR2,
122   X_ATTRIBUTE5 in VARCHAR2,
123   X_ATTRIBUTE6 in VARCHAR2,
124   X_ATTRIBUTE7 in VARCHAR2,
125   X_ATTRIBUTE8 in VARCHAR2,
126   X_ATTRIBUTE9 in VARCHAR2,
127   X_ATTRIBUTE10 in VARCHAR2,
128   X_ATTRIBUTE11 in VARCHAR2,
129   X_ATTRIBUTE12 in VARCHAR2,
130   X_ATTRIBUTE13 in VARCHAR2,
131   X_ATTRIBUTE14 in VARCHAR2,
132   X_ATTRIBUTE15 in VARCHAR2,
133   X_ATTRIBUTE_CATEGORY_CODE in VARCHAR2,
134   p_log_level_rec    in      fa_api_types.log_level_rec_type default null) is
135   CURSOR C is
136       SELECT itc_recapture_id,
137              tax_year,
138              life_in_months,
139              year_of_retirement,
140              itc_recapture_rate,
141              attribute1,
142              attribute2,
143              attribute3,
144              attribute4,
145              attribute5,
146              attribute6,
147              attribute7,
148              attribute8,
149              attribute9,
150              attribute10,
151              attribute11,
152              attribute12,
153              attribute13,
154              attribute14,
155              attribute15,
156              attribute_category_code
157       FROM   fa_itc_recapture_rates
158       WHERE  itc_recapture_id = X_Itc_Recapture_Id
159       FOR UPDATE of itc_recapture_id NOWAIT;
160   Recinfo C%ROWTYPE;
161 
162 begin
163 
164   OPEN C;
165   FETCH C INTO Recinfo;
166   if (C%NOTFOUND) then
167       CLOSE C;
168       FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
169       APP_EXCEPTION.Raise_Exception;
170   end if;
171   CLOSE C;
172   if (
173           (Recinfo.Itc_Recapture_Id = X_Itc_Recapture_Id)
174       AND (Recinfo.Tax_Year = X_Tax_Year)
175       AND (Recinfo.Life_In_Months = X_Life_In_Months)
176       AND (Recinfo.Year_Of_Retirement = X_Year_Of_Retirement)
177       AND (Recinfo.Itc_Recapture_Rate = X_Itc_Recapture_Rate)
178       AND ((Recinfo.Attribute1 = X_Attribute1)
179           OR ((Recinfo.Attribute1 IS NULL)
180           AND (X_Attribute1 IS NULL)))
181       AND ((Recinfo.Attribute2 = X_Attribute2)
182           OR ((Recinfo.Attribute2 IS NULL)
183           AND (X_Attribute2 IS NULL)))
184       AND ((Recinfo.Attribute3 = X_Attribute3)
185           OR ((Recinfo.Attribute3 IS NULL)
186           AND (X_Attribute3 IS NULL)))
187       AND ((Recinfo.Attribute4 = X_Attribute4)
188           OR ((Recinfo.Attribute4 IS NULL)
189           AND (X_Attribute4 IS NULL)))
190       AND ((Recinfo.Attribute5 = X_Attribute5)
191           OR ((Recinfo.Attribute5 IS NULL)
192           AND (X_Attribute5 IS NULL)))
193       AND ((Recinfo.Attribute6 = X_Attribute6)
194           OR ((Recinfo.Attribute6 IS NULL)
195           AND (X_Attribute6 IS NULL)))
196       AND ((Recinfo.Attribute7 = X_Attribute7)
197           OR ((Recinfo.Attribute7 IS NULL)
198           AND (X_Attribute7 IS NULL)))
199       AND ((Recinfo.Attribute8 = X_Attribute8)
200           OR ((Recinfo.Attribute8 IS NULL)
201           AND (X_Attribute8 IS NULL)))
202       AND ((Recinfo.Attribute9 = X_Attribute9)
203           OR ((Recinfo.Attribute9 IS NULL)
204           AND (X_Attribute9 IS NULL)))
205       AND ((Recinfo.Attribute10 = X_Attribute10)
206           OR ((Recinfo.Attribute10 IS NULL)
207           AND (X_Attribute10 IS NULL)))
208       AND ((Recinfo.Attribute11 = X_Attribute11)
209           OR ((Recinfo.Attribute11 IS NULL)
210           AND (X_Attribute11 IS NULL)))
211       AND ((Recinfo.Attribute12 = X_Attribute12)
212           OR ((Recinfo.Attribute12 IS NULL)
213           AND (X_Attribute12 IS NULL)))
214       AND ((Recinfo.Attribute13 = X_Attribute13)
215           OR ((Recinfo.Attribute13 IS NULL)
216           AND (X_Attribute13 IS NULL)))
217       AND ((Recinfo.Attribute14 = X_Attribute14)
218           OR ((Recinfo.Attribute14 IS NULL)
219           AND (X_Attribute14 IS NULL)))
220       AND ((Recinfo.Attribute15 = X_Attribute15)
221           OR ((Recinfo.Attribute15 IS NULL)
222           AND (X_Attribute15 IS NULL)))
223       AND ((Recinfo.Attribute_Category_Code = X_Attribute_Category_Code)
224           OR ((Recinfo.Attribute_Category_Code IS NULL)
225           AND (X_Attribute_Category_Code IS NULL)))) then
226       return;
227   else
228       FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
229       APP_EXCEPTION.Raise_Exception;
230   end if;
231 
232 end LOCK_ROW;
233 
234 procedure UPDATE_ROW (
235   X_ITC_RECAPTURE_ID in NUMBER,
236   X_TAX_YEAR in NUMBER,
237   X_LIFE_IN_MONTHS in NUMBER,
238   X_YEAR_OF_RETIREMENT in NUMBER,
239   X_ITC_RECAPTURE_RATE in NUMBER,
240   X_ATTRIBUTE1 in VARCHAR2,
241   X_ATTRIBUTE2 in VARCHAR2,
242   X_ATTRIBUTE3 in VARCHAR2,
243   X_ATTRIBUTE4 in VARCHAR2,
244   X_ATTRIBUTE5 in VARCHAR2,
245   X_ATTRIBUTE6 in VARCHAR2,
246   X_ATTRIBUTE7 in VARCHAR2,
247   X_ATTRIBUTE8 in VARCHAR2,
248   X_ATTRIBUTE9 in VARCHAR2,
249   X_ATTRIBUTE10 in VARCHAR2,
250   X_ATTRIBUTE11 in VARCHAR2,
251   X_ATTRIBUTE12 in VARCHAR2,
252   X_ATTRIBUTE13 in VARCHAR2,
253   X_ATTRIBUTE14 in VARCHAR2,
254   X_ATTRIBUTE15 in VARCHAR2,
255   X_ATTRIBUTE_CATEGORY_CODE in VARCHAR2,
256   X_LAST_UPDATE_DATE in DATE,
257   X_LAST_UPDATED_BY in NUMBER,
258   X_LAST_UPDATE_LOGIN in NUMBER,
259   p_log_level_rec    in      fa_api_types.log_level_rec_type default null) is
260 
261 begin
262 
263   UPDATE fa_itc_recapture_rates
264   SET    itc_recapture_id = X_Itc_Recapture_Id,
265          tax_year = X_Tax_Year,
266          life_in_months = X_Life_In_Months,
267          year_of_retirement = X_Year_Of_Retirement,
268          itc_recapture_rate = X_Itc_Recapture_Rate,
269          attribute1 = X_Attribute1,
270          attribute2 = X_Attribute2,
271          attribute3 = X_Attribute3,
272          attribute4 = X_Attribute4,
273          attribute5 = X_Attribute5,
274          attribute6 = X_Attribute6,
275          attribute7 = X_Attribute7,
276          attribute8 = X_Attribute8,
277          attribute9 = X_Attribute9,
278          attribute10 = X_Attribute10,
279          attribute11 = X_Attribute11,
280          attribute12 = X_Attribute12,
281          attribute13 = X_Attribute13,
282          attribute14 = X_Attribute14,
283          attribute15 = X_Attribute15,
284          attribute_category_code = X_Attribute_Category_Code,
285          last_update_date = X_Last_Update_Date,
286          last_updated_by = X_Last_Updated_By,
287          last_update_login = X_Last_Update_Login
288   WHERE  itc_recapture_id = X_Itc_Recapture_Id;
289 
290   if (SQL%NOTFOUND) then
291      Raise NO_DATA_FOUND;
292   end if;
293 
294   exception
295     when others then
296         fa_srvr_msg.add_sql_error(
297                 calling_fn => 'fa_itc_recapture_rates_pkg.update_row'
298                 ,p_log_level_rec => p_log_level_rec);
299         raise;
300 
301 end UPDATE_ROW;
302 
303 procedure DELETE_ROW (
304   X_ITC_RECAPTURE_ID in NUMBER
305  ,p_log_level_rec    in      fa_api_types.log_level_rec_type default null) is
306 
307 begin
308 
309   DELETE FROM fa_itc_recapture_rates
310   WHERE  itc_recapture_id = X_Itc_Recapture_Id;
311 
312   if (SQL%NOTFOUND) then
313      Raise NO_DATA_FOUND;
314   end if;
315 
316   exception
317     when others then
318         fa_srvr_msg.add_sql_error(
319                 calling_fn => 'fa_itc_recapture_rates_pkg.delete_row'
320                 ,p_log_level_rec => p_log_level_rec);
321         raise;
322 
323 end DELETE_ROW;
324 
325 procedure LOAD_ROW (
326   X_CUSTOM_MODE in VARCHAR2,
327   X_ITC_RECAPTURE_ID in NUMBER,
328   X_OWNER in VARCHAR2,
329   X_LAST_UPDATE_DATE in DATE,
330   X_TAX_YEAR in NUMBER,
331   X_LIFE_IN_MONTHS in NUMBER,
332   X_YEAR_OF_RETIREMENT in NUMBER,
333   X_ITC_RECAPTURE_RATE in NUMBER,
334   X_ATTRIBUTE1 in VARCHAR2,
335   X_ATTRIBUTE2 in VARCHAR2,
336   X_ATTRIBUTE3 in VARCHAR2,
337   X_ATTRIBUTE4 in VARCHAR2,
338   X_ATTRIBUTE5 in VARCHAR2,
339   X_ATTRIBUTE6 in VARCHAR2,
340   X_ATTRIBUTE7 in VARCHAR2,
341   X_ATTRIBUTE8 in VARCHAR2,
342   X_ATTRIBUTE9 in VARCHAR2,
343   X_ATTRIBUTE10 in VARCHAR2,
344   X_ATTRIBUTE11 in VARCHAR2,
345   X_ATTRIBUTE12 in VARCHAR2,
346   X_ATTRIBUTE13 in VARCHAR2,
347   X_ATTRIBUTE14 in VARCHAR2,
348   X_ATTRIBUTE15 in VARCHAR2,
349   X_ATTRIBUTE_CATEGORY_CODE in VARCHAR2,
350   p_log_level_rec        IN     FA_API_TYPES.log_level_rec_type default null) is
351 
352   h_record_exists       number(15);
353 
354   user_id               number;
355   row_id                varchar2(64);
356 
357   db_last_updated_by    number;
358   db_last_update_date   date;
359 
360 begin
361 
362   user_id := fnd_load_util.owner_id (X_Owner);
363 
364   select count(*)
365   into   h_record_exists
366   from   fa_itc_recapture_rates
367   where  itc_recapture_id = X_Itc_Recapture_Id;
368 
369   if (h_record_exists > 0) then
370 
371      select last_updated_by, last_update_date
372      into   db_last_updated_by, db_last_update_date
373      from   fa_itc_recapture_rates
374      where  itc_recapture_id = X_Itc_Recapture_Id;
375 
376      if (fnd_load_util.upload_test(user_id, x_last_update_date,
377                                    db_last_updated_by, db_last_update_date,
378                                    X_CUSTOM_MODE)) then
379 
380         fa_itc_recapture_rates_pkg.update_row (
381            X_Itc_Recapture_Id        => X_Itc_Recapture_Id,
382            X_Tax_Year                => X_Tax_Year,
383            X_Life_In_Months          => X_Life_In_Months,
384            X_Year_Of_Retirement      => X_Year_Of_Retirement,
385            X_Itc_Recapture_Rate      => X_Itc_Recapture_Rate,
386            X_Attribute1              => X_Attribute1,
387            X_Attribute2              => X_Attribute2,
388            X_Attribute3              => X_Attribute3,
389            X_Attribute4              => X_Attribute4,
390            X_Attribute5              => X_Attribute5,
391            X_Attribute6              => X_Attribute6,
392            X_Attribute7              => X_Attribute7,
393            X_Attribute8              => X_Attribute8,
394            X_Attribute9              => X_Attribute9,
395            X_Attribute10             => X_Attribute10,
396            X_Attribute11             => X_Attribute11,
397            X_Attribute12             => X_Attribute12,
398            X_Attribute13             => X_Attribute13,
399            X_Attribute14             => X_Attribute14,
400            X_Attribute15             => X_Attribute15,
401            X_Attribute_Category_Code => X_Attribute_Category_Code,
402            X_Last_Update_Date        => sysdate,
403            X_Last_Updated_By         => user_id,
404            X_Last_Update_Login       => 0
405            ,p_log_level_rec => p_log_level_rec);
406      end if;
407   else
408      fa_itc_recapture_rates_pkg.insert_row (
409 	X_Rowid				=> row_id,
410 	X_Itc_Recapture_Id		=> X_Itc_Recapture_Id,
411 	X_Tax_Year			=> X_Tax_Year,
412 	X_Life_In_Months		=> X_Life_In_Months,
413 	X_Year_Of_Retirement		=> X_Year_Of_Retirement,
414 	X_Itc_Recapture_Rate		=> X_Itc_Recapture_Rate,
415 	X_Attribute1			=> X_Attribute1,
416 	X_Attribute2			=> X_Attribute2,
417 	X_Attribute3			=> X_Attribute3,
418 	X_Attribute4			=> X_Attribute4,
419 	X_Attribute5			=> X_Attribute5,
420 	X_Attribute6			=> X_Attribute6,
421 	X_Attribute7			=> X_Attribute7,
422 	X_Attribute8			=> X_Attribute8,
423 	X_Attribute9			=> X_Attribute9,
424 	X_Attribute10			=> X_Attribute10,
425 	X_Attribute11			=> X_Attribute11,
426 	X_Attribute12			=> X_Attribute12,
427 	X_Attribute13			=> X_Attribute13,
428 	X_Attribute14			=> X_Attribute14,
429 	X_Attribute15			=> X_Attribute15,
430 	X_Attribute_Category_Code	=> X_Attribute_Category_Code,
431 	X_Creation_Date			=> sysdate,
432 	X_Created_By			=> user_id,
433 	X_Last_Update_Date		=> sysdate,
434 	X_Last_Updated_By		=> user_id,
435 	X_Last_Update_Login		=> 0
436 	,p_log_level_rec => p_log_level_rec);
437   end if;
438 
439 exception
440   when others then
441        FA_STANDARD_PKG.RAISE_ERROR(
442                       CALLED_FN => 'fa_itc_recapture_rates_pkg.load_row',
443                       CALLING_FN => 'upload fa_itc_recapture_rates'
444                       ,p_log_level_rec => p_log_level_rec);
445 
446 end LOAD_ROW;
447 
448 procedure LOAD_SEED_ROW (
449           x_upload_mode                 IN VARCHAR2,
450           x_custom_mode                 IN VARCHAR2,
451           x_itc_recapture_id            IN NUMBER,
452           x_owner                       IN VARCHAR2,
453           x_last_update_date            IN DATE,
454           x_tax_year                    IN NUMBER,
455           x_life_in_months              IN NUMBER,
456           x_year_of_retirement          IN NUMBER,
457           x_itc_recapture_rate          IN NUMBER,
458           x_attribute1                  IN VARCHAR2,
459           x_attribute2                  IN VARCHAR2,
460           x_attribute3                  IN VARCHAR2,
461           x_attribute4                  IN VARCHAR2,
462           x_attribute5                  IN VARCHAR2,
463           x_attribute6                  IN VARCHAR2,
464           x_attribute7                  IN VARCHAR2,
465           x_attribute8                  IN VARCHAR2,
466           x_attribute9                  IN VARCHAR2,
467           x_attribute10                 IN VARCHAR2,
468           x_attribute11                 IN VARCHAR2,
469           x_attribute12                 IN VARCHAR2,
470           x_attribute13                 IN VARCHAR2,
471           x_attribute14                 IN VARCHAR2,
472           x_attribute15                 IN VARCHAR2,
473           x_attribute_category_code     IN VARCHAR2) IS
474 
475 
476 BEGIN
477 
478       if (x_upload_mode = 'NLS') then
479          null;
480       else
481         fa_itc_recapture_rates_pkg.LOAD_ROW (
482           x_custom_mode                 => x_custom_mode,
483           x_itc_recapture_id            => x_itc_recapture_id,
484           x_owner                       => x_owner,
485           x_last_update_date            => x_last_update_date,
486           x_tax_year                    => x_tax_year,
487           x_life_in_months              => x_life_in_months,
488           x_year_of_retirement          => x_year_of_retirement,
489           x_itc_recapture_rate          => x_itc_recapture_rate,
490           x_attribute1                  => x_attribute1,
491           x_attribute2                  => x_attribute2,
492           x_attribute3                  => x_attribute3,
493           x_attribute4                  => x_attribute4,
494           x_attribute5                  => x_attribute5,
495           x_attribute6                  => x_attribute6,
496           x_attribute7                  => x_attribute7,
497           x_attribute8                  => x_attribute8,
498           x_attribute9                  => x_attribute9,
499           x_attribute10                 => x_attribute10,
500           x_attribute11                 => x_attribute11,
501           x_attribute12                 => x_attribute12,
502           x_attribute13                 => x_attribute13,
503           x_attribute14                 => x_attribute14,
504           x_attribute15                 => x_attribute15,
505           x_attribute_category_code     => x_attribute_category_code);
506       end if;
507 
508 END LOAD_SEED_ROW;
509 
510 END FA_ITC_RECAPTURE_RATES_PKG;