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