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