PACKAGE BODY: APPS.FTP_BR_IRCS_PVT

Source

1 PACKAGE BODY FTP_BR_IRCS_PVT AS
2 /* $Header: ftpircsb.pls 120.1 2006/01/26 08:40:21 appldev noship $ */
3 
4 
5 -- Translate Row for FTP_IRCS_TL
6 
7 G_PKG_NAME constant varchar2(30) := 'FTP_BR_IRCS_PVT';
8 
9 PROCEDURE TranslateRow(
10 x_interest_rate_code	IN NUMBER,
11 x_description		IN VARCHAR2,
12 x_last_update_date	IN VARCHAR2,
13 x_owner			IN VARCHAR2,
14 x_custom_mode		IN VARCHAR2) IS
15 
16 owner_id	number;
17 ludate		date;
18 row_id		varchar2(64);
19 f_luby		number;  -- entity owner in file
20 f_ludate	date;    -- entity update date in file
21 db_luby		number;  -- entity owner in db
22 db_ludate	date;    -- entity update date in db
23 
24 BEGIN
25 	f_luby := fnd_load_util.owner_id(x_owner);
26 	f_ludate := nvl(to_date(x_last_update_date, 'YYYY/MM/DD'), sysdate);
27 	BEGIN
28 	  SELECT LAST_UPDATED_BY, LAST_UPDATE_DATE INTO db_luby, db_ludate
29 	  FROM FTP_IRCS_TL
30 	  WHERE INTEREST_RATE_CODE = x_interest_rate_code
31 	  AND LANGUAGE = userenv('LANG');
32 	  IF (fnd_load_util.upload_test(f_luby, f_ludate, db_luby,db_ludate, x_custom_mode)) THEN
33 	      UPDATE FTP_IRCS_TL SET
34 	      DESCRIPTION = nvl(x_description, DESCRIPTION),
35 	      LAST_UPDATE_DATE = f_ludate,
36 	      LAST_UPDATED_BY = f_luby,
37 	      LAST_UPDATE_LOGIN = 0,
38 	      SOURCE_LANG = userenv('LANG')
39 	      WHERE userenv('LANG') in (LANGUAGE, SOURCE_LANG)
40 	      AND INTEREST_RATE_CODE = x_interest_rate_code;
41 	  END IF;
42 	  EXCEPTION
43 		WHEN NO_DATA_FOUND THEN
44 		null;
45 	  END;
46 END TranslateRow;
47 
48 -- bomathew 20060126 - Bug 4902755 - Copying ADD_LANGUAGE from ftppaypb.pls
49 
50 procedure ADD_LANGUAGE
51 is
52 begin
53   delete from FTP_IRCS_TL T
54   where not exists
55     (select NULL
56     from FTP_IRCS_B B
57     where B.INTEREST_RATE_CODE = T.INTEREST_RATE_CODE
58     );
59 
60   update FTP_IRCS_TL T set (
61       DESCRIPTION
62     ) = (select
63       B.DESCRIPTION
64     from FTP_IRCS_TL B
65     where B.INTEREST_RATE_CODE = T.INTEREST_RATE_CODE
66     and B.LANGUAGE = T.SOURCE_LANG)
67   where (
68       T.INTEREST_RATE_CODE,
69       T.LANGUAGE
70   ) in (select
71       SUBT.INTEREST_RATE_CODE,
72       SUBT.LANGUAGE
73     from FTP_IRCS_TL SUBB, FTP_IRCS_TL SUBT
74     where SUBB.INTEREST_RATE_CODE = SUBT.INTEREST_RATE_CODE
75     and SUBB.LANGUAGE = SUBT.SOURCE_LANG
76     and (SUBB.DESCRIPTION <> SUBT.DESCRIPTION
77       or (SUBB.DESCRIPTION is null and SUBT.DESCRIPTION is not null)
78       or (SUBB.DESCRIPTION is not null and SUBT.DESCRIPTION is null)
79   ));
80 
81   insert into FTP_IRCS_TL (
82     OBJECT_VERSION_NUMBER,
83     DESCRIPTION,
84     CREATION_DATE,
85     CREATED_BY,
86     LAST_UPDATED_BY,
87     LAST_UPDATE_DATE,
88     LAST_UPDATE_LOGIN,
89     INTEREST_RATE_CODE,
90     LANGUAGE,
91     SOURCE_LANG
92   ) select /*+ ORDERED */
93     B.OBJECT_VERSION_NUMBER,
94     B.DESCRIPTION,
95     B.CREATION_DATE,
96     B.CREATED_BY,
97     B.LAST_UPDATED_BY,
98     B.LAST_UPDATE_DATE,
99     B.LAST_UPDATE_LOGIN,
100     B.INTEREST_RATE_CODE,
101     L.LANGUAGE_CODE,
102     B.SOURCE_LANG
103   from FTP_IRCS_TL B, FND_LANGUAGES L
104   where L.INSTALLED_FLAG in ('I', 'B')
105   and B.LANGUAGE = userenv('LANG')
106   and not exists
107     (select NULL
108     from FTP_IRCS_TL T
109     where T.INTEREST_RATE_CODE = B.INTEREST_RATE_CODE
110     and T.LANGUAGE = L.LANGUAGE_CODE);
111 end ADD_LANGUAGE;
112 
113 
114 END FTP_BR_IRCS_PVT;