[Home] [Help]
PACKAGE BODY: APPS.BNE_DUP_INTERFACE_PROFILES_PKG
Source
1 package body BNE_DUP_INTERFACE_PROFILES_PKG as
2 /* $Header: bnedupintprofb.pls 120.2 2005/06/29 03:39:51 dvayro noship $ */
3
4 procedure INSERT_ROW (
5 X_ROWID in out NOCOPY VARCHAR2,
6 X_INTERFACE_APP_ID in NUMBER,
7 X_INTERFACE_CODE in VARCHAR2,
8 X_DUP_PROFILE_APP_ID in NUMBER,
9 X_DUP_PROFILE_CODE in VARCHAR2,
10 X_OBJECT_VERSION_NUMBER in NUMBER,
11 X_DUP_HANDLING_CODE in VARCHAR2,
12 X_DEFAULT_RESOLVER_CLASSNAME in VARCHAR2,
13 X_CREATION_DATE in DATE,
14 X_CREATED_BY in NUMBER,
15 X_LAST_UPDATE_DATE in DATE,
16 X_LAST_UPDATED_BY in NUMBER,
17 X_LAST_UPDATE_LOGIN in NUMBER
18 ) is
19 cursor C is select ROWID from BNE_DUP_INTERFACE_PROFILES
20 where INTERFACE_APP_ID = X_INTERFACE_APP_ID
21 and INTERFACE_CODE = X_INTERFACE_CODE
22 and DUP_PROFILE_APP_ID = X_DUP_PROFILE_APP_ID
23 and DUP_PROFILE_CODE = X_DUP_PROFILE_CODE
24 ;
25 begin
26 insert into BNE_DUP_INTERFACE_PROFILES (
27 INTERFACE_APP_ID,
28 INTERFACE_CODE,
29 DUP_PROFILE_APP_ID,
30 DUP_PROFILE_CODE,
31 OBJECT_VERSION_NUMBER,
32 DUP_HANDLING_CODE,
33 DEFAULT_RESOLVER_CLASSNAME,
34 CREATED_BY,
35 CREATION_DATE,
36 LAST_UPDATED_BY,
37 LAST_UPDATE_LOGIN,
38 LAST_UPDATE_DATE
39 ) values (
40 X_INTERFACE_APP_ID,
41 X_INTERFACE_CODE,
42 X_DUP_PROFILE_APP_ID,
43 X_DUP_PROFILE_CODE,
44 X_OBJECT_VERSION_NUMBER,
45 X_DUP_HANDLING_CODE,
46 X_DEFAULT_RESOLVER_CLASSNAME,
47 X_CREATED_BY,
48 X_CREATION_DATE,
49 X_LAST_UPDATED_BY,
50 X_LAST_UPDATE_LOGIN,
51 X_LAST_UPDATE_DATE
52 );
53
54 open c;
55 fetch c into X_ROWID;
56 if (c%notfound) then
57 close c;
58 raise no_data_found;
59 end if;
60 close c;
61
62 end INSERT_ROW;
63
64 procedure LOCK_ROW (
65 X_INTERFACE_APP_ID in NUMBER,
66 X_INTERFACE_CODE in VARCHAR2,
67 X_DUP_PROFILE_APP_ID in NUMBER,
68 X_DUP_PROFILE_CODE in VARCHAR2,
69 X_OBJECT_VERSION_NUMBER in NUMBER,
70 X_DUP_HANDLING_CODE in VARCHAR2,
71 X_DEFAULT_RESOLVER_CLASSNAME in VARCHAR2
72 ) is
73 cursor c1 is select
74 OBJECT_VERSION_NUMBER,
75 DUP_HANDLING_CODE,
76 DEFAULT_RESOLVER_CLASSNAME
77 from BNE_DUP_INTERFACE_PROFILES
78 where INTERFACE_APP_ID = X_INTERFACE_APP_ID
79 and INTERFACE_CODE = X_INTERFACE_CODE
80 and DUP_PROFILE_APP_ID = X_DUP_PROFILE_APP_ID
81 and DUP_PROFILE_CODE = X_DUP_PROFILE_CODE
82 for update of INTERFACE_APP_ID nowait;
83 begin
84 for tlinfo in c1 loop
85 if ((tlinfo.OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER)
86 AND (tlinfo.DUP_HANDLING_CODE = X_DUP_HANDLING_CODE)
87 AND ((tlinfo.DEFAULT_RESOLVER_CLASSNAME = X_DEFAULT_RESOLVER_CLASSNAME)
88 OR ((tlinfo.DEFAULT_RESOLVER_CLASSNAME is null) AND (X_DEFAULT_RESOLVER_CLASSNAME is null)))
89 ) then
90 null;
91 else
92 fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
93 app_exception.raise_exception;
94 end if;
95 end loop;
96 return;
97 end LOCK_ROW;
98
99 procedure UPDATE_ROW (
100 X_INTERFACE_APP_ID in NUMBER,
101 X_INTERFACE_CODE in VARCHAR2,
102 X_DUP_PROFILE_APP_ID in NUMBER,
103 X_DUP_PROFILE_CODE in VARCHAR2,
104 X_OBJECT_VERSION_NUMBER in NUMBER,
105 X_DUP_HANDLING_CODE in VARCHAR2,
106 X_DEFAULT_RESOLVER_CLASSNAME in VARCHAR2,
107 X_LAST_UPDATE_DATE in DATE,
108 X_LAST_UPDATED_BY in NUMBER,
109 X_LAST_UPDATE_LOGIN in NUMBER
110 ) is
111 begin
112 update BNE_DUP_INTERFACE_PROFILES set
113 OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER,
114 DUP_HANDLING_CODE = X_DUP_HANDLING_CODE,
115 DEFAULT_RESOLVER_CLASSNAME = X_DEFAULT_RESOLVER_CLASSNAME,
116 LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
117 LAST_UPDATED_BY = X_LAST_UPDATED_BY,
118 LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
119 where INTERFACE_APP_ID = X_INTERFACE_APP_ID
120 and INTERFACE_CODE = X_INTERFACE_CODE
121 and DUP_PROFILE_APP_ID = X_DUP_PROFILE_APP_ID
122 and DUP_PROFILE_CODE = X_DUP_PROFILE_CODE
123 ;
124
125 if (sql%notfound) then
126 raise no_data_found;
127 end if;
128 end UPDATE_ROW;
129
130 procedure DELETE_ROW (
131 X_INTERFACE_APP_ID in NUMBER,
132 X_INTERFACE_CODE in VARCHAR2,
133 X_DUP_PROFILE_APP_ID in NUMBER,
134 X_DUP_PROFILE_CODE in VARCHAR2
135 ) is
136 begin
137 delete from BNE_DUP_INTERFACE_PROFILES
138 where INTERFACE_APP_ID = X_INTERFACE_APP_ID
139 and INTERFACE_CODE = X_INTERFACE_CODE
140 and DUP_PROFILE_APP_ID = X_DUP_PROFILE_APP_ID
141 and DUP_PROFILE_CODE = X_DUP_PROFILE_CODE;
142
143 if (sql%notfound) then
144 raise no_data_found;
145 end if;
146
147 end DELETE_ROW;
148
149 procedure ADD_LANGUAGE
150 is
151 begin
152 null;
153 end ADD_LANGUAGE;
154
155 --------------------------------------------------------------------------------
156 -- PROCEDURE: LOAD_ROW --
157 -- --
158 -- DESCRIPTION: Load a row into the BNE_DUP_INTERFACE_PROFILES entity. --
159 -- This proc is called from the apps loader. --
160 -- --
161 -- SEE: http://www-apps.us.oracle.com/atg/plans/r115/fndloadqr.txt --
162 -- --
163 -- --
164 -- MODIFICATION HISTORY --
165 -- Date Username Description --
166 -- 27-May-2004 DGROVES CREATED --
167 --------------------------------------------------------------------------------
168 procedure LOAD_ROW(
169 x_interface_asn in VARCHAR2,
170 x_interface_code in VARCHAR2,
171 x_dup_profile_asn in VARCHAR2,
172 x_dup_profile_code in VARCHAR2,
173 x_object_version_number in VARCHAR2,
174 x_dup_handling_code in VARCHAR2,
175 x_default_resolver_classname in VARCHAR2,
176 x_owner in VARCHAR2,
177 x_last_update_date in VARCHAR2,
178 x_custom_mode in VARCHAR2
179 ) is
180 l_interface_app_id number;
181 l_dup_profile_app_id number;
182 l_row_id varchar2(64);
183 f_luby number; -- entity owner in file
184 f_ludate date; -- entity update date in file
185 db_luby number; -- entity owner in db
186 db_ludate date; -- entity update date in db
187 begin
188 -- translate values to IDs
189 l_interface_app_id := BNE_LCT_TOOLS_PKG.ASN_TO_APP_ID(x_interface_asn);
190 l_dup_profile_app_id := BNE_LCT_TOOLS_PKG.ASN_TO_APP_ID(x_dup_profile_asn);
191
192 -- Translate owner to file_last_updated_by
193 f_luby := fnd_load_util.owner_id(x_owner);
194
195 -- Translate char last_update_date to date
196 f_ludate := nvl(to_date(x_last_update_date, 'YYYY/MM/DD'), sysdate);
197 begin
198 select LAST_UPDATED_BY, LAST_UPDATE_DATE
199 into db_luby, db_ludate
200 from BNE_DUP_INTERFACE_PROFILES
201 where INTERFACE_APP_ID = l_interface_app_id
202 and INTERFACE_CODE = x_interface_code
203 and DUP_PROFILE_APP_ID = l_dup_profile_app_id
204 and DUP_PROFILE_CODE = x_dup_profile_code
205 ;
206
207 -- Test for customization and version
208 if (fnd_load_util.upload_test(f_luby, f_ludate, db_luby,
209 db_ludate, x_custom_mode)) then
210 -- Update existing row
211 BNE_DUP_INTERFACE_PROFILES_PKG.Update_Row(
212 X_INTERFACE_APP_ID => l_interface_app_id,
213 X_INTERFACE_CODE => x_interface_code,
214 X_DUP_PROFILE_APP_ID => l_dup_profile_app_id,
215 X_DUP_PROFILE_CODE => x_dup_profile_code,
216 X_OBJECT_VERSION_NUMBER => x_object_version_number,
217 X_DUP_HANDLING_CODE => x_dup_handling_code,
218 X_DEFAULT_RESOLVER_CLASSNAME => x_default_resolver_classname,
219 X_LAST_UPDATE_DATE => f_ludate,
220 X_LAST_UPDATED_BY => f_luby,
221 X_LAST_UPDATE_LOGIN => 0
222 );
223 end if;
224 exception
225 when no_data_found then
226 -- Record doesn't exist - insert in all cases
227 BNE_DUP_INTERFACE_PROFILES_PKG.Insert_Row(
228 X_ROWID => l_row_id,
229 X_INTERFACE_APP_ID => l_interface_app_id,
230 X_INTERFACE_CODE => x_interface_code,
231 X_DUP_PROFILE_APP_ID => l_dup_profile_app_id,
232 X_DUP_PROFILE_CODE => x_dup_profile_code,
233 X_OBJECT_VERSION_NUMBER => x_object_version_number,
234 X_DUP_HANDLING_CODE => x_dup_handling_code,
235 X_DEFAULT_RESOLVER_CLASSNAME => x_default_resolver_classname,
236 X_CREATION_DATE => f_ludate,
237 X_CREATED_BY => f_luby,
238 X_LAST_UPDATE_DATE => f_ludate,
239 X_LAST_UPDATED_BY => f_luby,
240 X_LAST_UPDATE_LOGIN => 0
241 );
242 end;
243 end LOAD_ROW;
244
245 end BNE_DUP_INTERFACE_PROFILES_PKG;