[Home] [Help]
Skip to content
PACKAGE BODY: APPS.BNE_INTERFACE_COLS_PKG
Source
1 package body BNE_INTERFACE_COLS_PKG as
2 /* $Header: bneintrcb.pls 120.3 2005/08/18 07:47:18 dagroves noship $ */
3
4 procedure INSERT_ROW (
5 X_ROWID in out NOCOPY VARCHAR2,
6 X_APPLICATION_ID in NUMBER,
7 X_INTERFACE_CODE in VARCHAR2,
8 X_SEQUENCE_NUM in NUMBER,
9 X_INTERFACE_COL_TYPE in NUMBER,
10 X_INTERFACE_COL_NAME in VARCHAR2,
11 X_ENABLED_FLAG in VARCHAR2,
12 X_REQUIRED_FLAG in VARCHAR2,
13 X_DISPLAY_FLAG in VARCHAR2,
14 X_READ_ONLY_FLAG in VARCHAR2,
15 X_NOT_NULL_FLAG in VARCHAR2,
16 X_SUMMARY_FLAG in VARCHAR2,
17 X_MAPPING_ENABLED_FLAG in VARCHAR2,
18 X_DATA_TYPE in NUMBER,
19 X_FIELD_SIZE in NUMBER,
20 X_DEFAULT_TYPE in VARCHAR2,
21 X_DEFAULT_VALUE in VARCHAR2,
22 X_SEGMENT_NUMBER in NUMBER,
23 X_GROUP_NAME in VARCHAR2,
24 X_OA_FLEX_CODE in VARCHAR2,
25 X_OA_CONCAT_FLEX in VARCHAR2,
26 X_VAL_TYPE in VARCHAR2,
27 X_VAL_ID_COL in VARCHAR2,
28 X_VAL_MEAN_COL in VARCHAR2,
29 X_VAL_DESC_COL in VARCHAR2,
30 X_VAL_OBJ_NAME in VARCHAR2,
31 X_VAL_ADDL_W_C in VARCHAR2,
32 X_VAL_COMPONENT_APP_ID in NUMBER,
33 X_VAL_COMPONENT_CODE in VARCHAR2,
34 X_OA_FLEX_NUM in VARCHAR2,
35 X_OA_FLEX_APPLICATION_ID in NUMBER,
36 X_DISPLAY_ORDER in NUMBER,
37 X_UPLOAD_PARAM_LIST_ITEM_NUM in NUMBER,
38 X_EXPANDED_SQL_QUERY in VARCHAR2,
39 X_OBJECT_VERSION_NUMBER in NUMBER,
40 X_USER_HINT in VARCHAR2,
41 X_PROMPT_LEFT in VARCHAR2,
42 X_USER_HELP_TEXT in VARCHAR2,
43 X_PROMPT_ABOVE in VARCHAR2,
44 X_LOV_TYPE in VARCHAR2,
45 X_OFFLINE_LOV_ENABLED_FLAG in VARCHAR2,
46 X_CREATION_DATE in DATE,
47 X_CREATED_BY in NUMBER,
48 X_LAST_UPDATE_DATE in DATE,
49 X_LAST_UPDATED_BY in NUMBER,
50 X_LAST_UPDATE_LOGIN in NUMBER,
51 X_VARIABLE_DATA_TYPE_CLASS in VARCHAR2,
52 X_VIEWER_GROUP in VARCHAR2,
53 X_EDIT_TYPE in VARCHAR2,
54 X_VAL_QUERY_APP_ID in NUMBER,
55 X_VAL_QUERY_CODE IN VARCHAR2,
56 X_EXPANDED_SQL_QUERY_APP_ID in NUMBER,
57 X_EXPANDED_SQL_QUERY_CODE in VARCHAR2,
58 X_DISPLAY_WIDTH in NUMBER
59 ) is
60 cursor C is select ROWID from BNE_INTERFACE_COLS_B
61 where APPLICATION_ID = X_APPLICATION_ID
62 and INTERFACE_CODE = X_INTERFACE_CODE
63 and SEQUENCE_NUM = X_SEQUENCE_NUM
64 ;
65 begin
66 insert into BNE_INTERFACE_COLS_B (
67 INTERFACE_COL_TYPE,
68 INTERFACE_COL_NAME,
69 ENABLED_FLAG,
70 REQUIRED_FLAG,
71 DISPLAY_FLAG,
72 READ_ONLY_FLAG,
73 NOT_NULL_FLAG,
74 SUMMARY_FLAG,
75 MAPPING_ENABLED_FLAG,
76 DATA_TYPE,
77 FIELD_SIZE,
78 DEFAULT_TYPE,
79 DEFAULT_VALUE,
80 SEGMENT_NUMBER,
81 GROUP_NAME,
82 OA_FLEX_CODE,
83 OA_CONCAT_FLEX,
84 VAL_TYPE,
85 VAL_ID_COL,
86 VAL_MEAN_COL,
87 VAL_DESC_COL,
88 VAL_OBJ_NAME,
89 VAL_ADDL_W_C,
90 VAL_COMPONENT_APP_ID,
91 VAL_COMPONENT_CODE,
92 OA_FLEX_NUM,
93 OA_FLEX_APPLICATION_ID,
94 DISPLAY_ORDER,
95 UPLOAD_PARAM_LIST_ITEM_NUM,
96 EXPANDED_SQL_QUERY,
97 APPLICATION_ID,
98 INTERFACE_CODE,
99 OBJECT_VERSION_NUMBER,
100 SEQUENCE_NUM,
101 LOV_TYPE,
102 OFFLINE_LOV_ENABLED_FLAG,
103 CREATION_DATE,
104 CREATED_BY,
105 LAST_UPDATE_DATE,
106 LAST_UPDATED_BY,
107 LAST_UPDATE_LOGIN,
108 VARIABLE_DATA_TYPE_CLASS,
109 VIEWER_GROUP,
110 EDIT_TYPE,
111 VAL_QUERY_APP_ID,
112 VAL_QUERY_CODE,
113 EXPANDED_SQL_QUERY_APP_ID,
114 EXPANDED_SQL_QUERY_CODE,
115 DISPLAY_WIDTH
116 ) values (
117 X_INTERFACE_COL_TYPE,
118 X_INTERFACE_COL_NAME,
119 X_ENABLED_FLAG,
120 X_REQUIRED_FLAG,
121 X_DISPLAY_FLAG,
122 X_READ_ONLY_FLAG,
123 X_NOT_NULL_FLAG,
124 X_SUMMARY_FLAG,
125 X_MAPPING_ENABLED_FLAG,
126 X_DATA_TYPE,
127 X_FIELD_SIZE,
128 X_DEFAULT_TYPE,
129 X_DEFAULT_VALUE,
130 X_SEGMENT_NUMBER,
131 X_GROUP_NAME,
132 X_OA_FLEX_CODE,
133 X_OA_CONCAT_FLEX,
134 X_VAL_TYPE,
135 X_VAL_ID_COL,
136 X_VAL_MEAN_COL,
137 X_VAL_DESC_COL,
138 X_VAL_OBJ_NAME,
139 X_VAL_ADDL_W_C,
140 X_VAL_COMPONENT_APP_ID,
141 X_VAL_COMPONENT_CODE,
142 X_OA_FLEX_NUM,
143 X_OA_FLEX_APPLICATION_ID,
144 X_DISPLAY_ORDER,
145 X_UPLOAD_PARAM_LIST_ITEM_NUM,
146 X_EXPANDED_SQL_QUERY,
147 X_APPLICATION_ID,
148 X_INTERFACE_CODE,
149 X_OBJECT_VERSION_NUMBER,
150 X_SEQUENCE_NUM,
151 X_LOV_TYPE,
152 X_OFFLINE_LOV_ENABLED_FLAG,
153 X_CREATION_DATE,
154 X_CREATED_BY,
155 X_LAST_UPDATE_DATE,
156 X_LAST_UPDATED_BY,
157 X_LAST_UPDATE_LOGIN,
158 X_VARIABLE_DATA_TYPE_CLASS,
159 X_VIEWER_GROUP,
160 X_EDIT_TYPE,
161 X_VAL_QUERY_APP_ID,
162 X_VAL_QUERY_CODE,
163 X_EXPANDED_SQL_QUERY_APP_ID,
164 X_EXPANDED_SQL_QUERY_CODE,
165 X_DISPLAY_WIDTH
166 );
167
168 insert into BNE_INTERFACE_COLS_TL (
169 CREATED_BY,
170 CREATION_DATE,
171 LAST_UPDATED_BY,
172 LAST_UPDATE_LOGIN,
173 LAST_UPDATE_DATE,
174 USER_HINT,
175 PROMPT_LEFT,
176 USER_HELP_TEXT,
177 PROMPT_ABOVE,
178 INTERFACE_CODE,
179 SEQUENCE_NUM,
180 APPLICATION_ID,
181 LANGUAGE,
182 SOURCE_LANG
183 ) select
184 X_CREATED_BY,
185 X_CREATION_DATE,
186 X_LAST_UPDATED_BY,
187 X_LAST_UPDATE_LOGIN,
188 X_LAST_UPDATE_DATE,
189 X_USER_HINT,
190 X_PROMPT_LEFT,
191 X_USER_HELP_TEXT,
192 X_PROMPT_ABOVE,
193 X_INTERFACE_CODE,
194 X_SEQUENCE_NUM,
195 X_APPLICATION_ID,
196 L.LANGUAGE_CODE,
197 userenv('LANG')
198 from FND_LANGUAGES L
199 where L.INSTALLED_FLAG in ('I', 'B')
200 and not exists
201 (select NULL
202 from BNE_INTERFACE_COLS_TL T
203 where T.APPLICATION_ID = X_APPLICATION_ID
204 and T.INTERFACE_CODE = X_INTERFACE_CODE
205 and T.SEQUENCE_NUM = X_SEQUENCE_NUM
206 and T.LANGUAGE = L.LANGUAGE_CODE);
207
208 open c;
209 fetch c into X_ROWID;
210 if (c%notfound) then
211 close c;
212 raise no_data_found;
213 end if;
214 close c;
215
216 end INSERT_ROW;
217
218 procedure LOCK_ROW (
219 X_APPLICATION_ID in NUMBER,
220 X_INTERFACE_CODE in VARCHAR2,
221 X_SEQUENCE_NUM in NUMBER,
222 X_INTERFACE_COL_TYPE in NUMBER,
223 X_INTERFACE_COL_NAME in VARCHAR2,
224 X_ENABLED_FLAG in VARCHAR2,
225 X_REQUIRED_FLAG in VARCHAR2,
226 X_DISPLAY_FLAG in VARCHAR2,
227 X_READ_ONLY_FLAG in VARCHAR2,
228 X_NOT_NULL_FLAG in VARCHAR2,
229 X_SUMMARY_FLAG in VARCHAR2,
230 X_MAPPING_ENABLED_FLAG in VARCHAR2,
231 X_DATA_TYPE in NUMBER,
232 X_FIELD_SIZE in NUMBER,
233 X_DEFAULT_TYPE in VARCHAR2,
234 X_DEFAULT_VALUE in VARCHAR2,
235 X_SEGMENT_NUMBER in NUMBER,
236 X_GROUP_NAME in VARCHAR2,
237 X_OA_FLEX_CODE in VARCHAR2,
238 X_OA_CONCAT_FLEX in VARCHAR2,
239 X_VAL_TYPE in VARCHAR2,
240 X_VAL_ID_COL in VARCHAR2,
241 X_VAL_MEAN_COL in VARCHAR2,
242 X_VAL_DESC_COL in VARCHAR2,
243 X_VAL_OBJ_NAME in VARCHAR2,
244 X_VAL_ADDL_W_C in VARCHAR2,
245 X_VAL_COMPONENT_APP_ID in NUMBER,
246 X_VAL_COMPONENT_CODE in VARCHAR2,
247 X_OA_FLEX_NUM in VARCHAR2,
248 X_OA_FLEX_APPLICATION_ID in NUMBER,
249 X_DISPLAY_ORDER in NUMBER,
250 X_UPLOAD_PARAM_LIST_ITEM_NUM in NUMBER,
251 X_EXPANDED_SQL_QUERY in VARCHAR2,
252 X_OBJECT_VERSION_NUMBER in NUMBER,
253 X_USER_HINT in VARCHAR2,
254 X_PROMPT_LEFT in VARCHAR2,
255 X_USER_HELP_TEXT in VARCHAR2,
256 X_PROMPT_ABOVE in VARCHAR2,
257 X_LOV_TYPE in VARCHAR2,
258 X_OFFLINE_LOV_ENABLED_FLAG in VARCHAR2,
259 X_VARIABLE_DATA_TYPE_CLASS in VARCHAR2,
260 X_VIEWER_GROUP in VARCHAR2,
261 X_EDIT_TYPE in VARCHAR2,
262 X_VAL_QUERY_APP_ID in NUMBER,
263 X_VAL_QUERY_CODE in VARCHAR2,
264 X_EXPANDED_SQL_QUERY_APP_ID in NUMBER,
265 X_EXPANDED_SQL_QUERY_CODE in VARCHAR2,
266 X_DISPLAY_WIDTH in NUMBER
267 ) is
268 cursor c is select
269 INTERFACE_COL_TYPE,
270 INTERFACE_COL_NAME,
271 ENABLED_FLAG,
272 REQUIRED_FLAG,
273 DISPLAY_FLAG,
274 READ_ONLY_FLAG,
275 NOT_NULL_FLAG,
276 SUMMARY_FLAG,
277 MAPPING_ENABLED_FLAG,
278 DATA_TYPE,
279 FIELD_SIZE,
280 DEFAULT_TYPE,
281 DEFAULT_VALUE,
282 SEGMENT_NUMBER,
283 GROUP_NAME,
284 OA_FLEX_CODE,
285 OA_CONCAT_FLEX,
286 VAL_TYPE,
287 VAL_ID_COL,
288 VAL_MEAN_COL,
289 VAL_DESC_COL,
290 VAL_OBJ_NAME,
291 VAL_ADDL_W_C,
292 VAL_COMPONENT_APP_ID,
293 VAL_COMPONENT_CODE,
294 OA_FLEX_NUM,
295 OA_FLEX_APPLICATION_ID,
296 DISPLAY_ORDER,
297 UPLOAD_PARAM_LIST_ITEM_NUM,
298 EXPANDED_SQL_QUERY,
299 LOV_TYPE,
300 OFFLINE_LOV_ENABLED_FLAG,
301 OBJECT_VERSION_NUMBER,
302 VARIABLE_DATA_TYPE_CLASS,
303 VIEWER_GROUP,
304 EDIT_TYPE,
305 VAL_QUERY_APP_ID,
306 VAL_QUERY_CODE,
307 EXPANDED_SQL_QUERY_APP_ID,
308 EXPANDED_SQL_QUERY_CODE,
309 DISPLAY_WIDTH
310 from BNE_INTERFACE_COLS_B
311 where APPLICATION_ID = X_APPLICATION_ID
312 and INTERFACE_CODE = X_INTERFACE_CODE
313 and SEQUENCE_NUM = X_SEQUENCE_NUM
314 for update of APPLICATION_ID nowait;
315 recinfo c%rowtype;
316
317 cursor c1 is select
318 USER_HINT,
319 PROMPT_LEFT,
320 USER_HELP_TEXT,
321 PROMPT_ABOVE,
322 decode(LANGUAGE, userenv('LANG'), 'Y', 'N') BASELANG
323 from BNE_INTERFACE_COLS_TL
324 where APPLICATION_ID = X_APPLICATION_ID
325 and INTERFACE_CODE = X_INTERFACE_CODE
326 and SEQUENCE_NUM = X_SEQUENCE_NUM
327 and userenv('LANG') in (LANGUAGE, SOURCE_LANG)
328 for update of APPLICATION_ID nowait;
329 begin
330 open c;
331 fetch c into recinfo;
332 if (c%notfound) then
333 close c;
334 fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
335 app_exception.raise_exception;
336 end if;
337 close c;
338 if ( (recinfo.INTERFACE_COL_TYPE = X_INTERFACE_COL_TYPE)
339 AND (recinfo.INTERFACE_COL_NAME = X_INTERFACE_COL_NAME)
340 AND (recinfo.ENABLED_FLAG = X_ENABLED_FLAG)
341 AND (recinfo.REQUIRED_FLAG = X_REQUIRED_FLAG)
342 AND (recinfo.DISPLAY_FLAG = X_DISPLAY_FLAG)
343 AND (recinfo.READ_ONLY_FLAG = X_READ_ONLY_FLAG)
344 AND (recinfo.NOT_NULL_FLAG = X_NOT_NULL_FLAG)
345 AND (recinfo.SUMMARY_FLAG = X_SUMMARY_FLAG)
346 AND (recinfo.MAPPING_ENABLED_FLAG = X_MAPPING_ENABLED_FLAG)
347 AND ((recinfo.DATA_TYPE = X_DATA_TYPE)
348 OR ((recinfo.DATA_TYPE is null) AND (X_DATA_TYPE is null)))
349 AND ((recinfo.FIELD_SIZE = X_FIELD_SIZE)
350 OR ((recinfo.FIELD_SIZE is null) AND (X_FIELD_SIZE is null)))
351 AND ((recinfo.DEFAULT_TYPE = X_DEFAULT_TYPE)
352 OR ((recinfo.DEFAULT_TYPE is null) AND (X_DEFAULT_TYPE is null)))
353 AND ((recinfo.DEFAULT_VALUE = X_DEFAULT_VALUE)
354 OR ((recinfo.DEFAULT_VALUE is null) AND (X_DEFAULT_VALUE is null)))
355 AND ((recinfo.SEGMENT_NUMBER = X_SEGMENT_NUMBER)
356 OR ((recinfo.SEGMENT_NUMBER is null) AND (X_SEGMENT_NUMBER is null)))
357 AND ((recinfo.GROUP_NAME = X_GROUP_NAME)
358 OR ((recinfo.GROUP_NAME is null) AND (X_GROUP_NAME is null)))
359 AND ((recinfo.OA_FLEX_CODE = X_OA_FLEX_CODE)
360 OR ((recinfo.OA_FLEX_CODE is null) AND (X_OA_FLEX_CODE is null)))
361 AND ((recinfo.OA_CONCAT_FLEX = X_OA_CONCAT_FLEX)
362 OR ((recinfo.OA_CONCAT_FLEX is null) AND (X_OA_CONCAT_FLEX is null)))
363 AND ((recinfo.VAL_TYPE = X_VAL_TYPE)
364 OR ((recinfo.VAL_TYPE is null) AND (X_VAL_TYPE is null)))
365 AND ((recinfo.VAL_ID_COL = X_VAL_ID_COL)
366 OR ((recinfo.VAL_ID_COL is null) AND (X_VAL_ID_COL is null)))
367 AND ((recinfo.VAL_MEAN_COL = X_VAL_MEAN_COL)
368 OR ((recinfo.VAL_MEAN_COL is null) AND (X_VAL_MEAN_COL is null)))
369 AND ((recinfo.VAL_DESC_COL = X_VAL_DESC_COL)
370 OR ((recinfo.VAL_DESC_COL is null) AND (X_VAL_DESC_COL is null)))
371 AND ((recinfo.VAL_OBJ_NAME = X_VAL_OBJ_NAME)
372 OR ((recinfo.VAL_OBJ_NAME is null) AND (X_VAL_OBJ_NAME is null)))
373 AND ((recinfo.VAL_ADDL_W_C = X_VAL_ADDL_W_C)
374 OR ((recinfo.VAL_ADDL_W_C is null) AND (X_VAL_ADDL_W_C is null)))
375 AND ((recinfo.VAL_COMPONENT_APP_ID = X_VAL_COMPONENT_APP_ID)
376 OR ((recinfo.VAL_COMPONENT_APP_ID is null) AND (X_VAL_COMPONENT_APP_ID is null)))
377 AND ((recinfo.VAL_COMPONENT_CODE = X_VAL_COMPONENT_CODE)
378 OR ((recinfo.VAL_COMPONENT_CODE is null) AND (X_VAL_COMPONENT_CODE is null)))
379 AND ((recinfo.OA_FLEX_NUM = X_OA_FLEX_NUM)
380 OR ((recinfo.OA_FLEX_NUM is null) AND (X_OA_FLEX_NUM is null)))
381 AND ((recinfo.OA_FLEX_APPLICATION_ID = X_OA_FLEX_APPLICATION_ID)
382 OR ((recinfo.OA_FLEX_APPLICATION_ID is null) AND (X_OA_FLEX_APPLICATION_ID is null)))
383 AND ((recinfo.DISPLAY_ORDER = X_DISPLAY_ORDER)
384 OR ((recinfo.DISPLAY_ORDER is null) AND (X_DISPLAY_ORDER is null)))
385 AND ((recinfo.DISPLAY_WIDTH = X_DISPLAY_WIDTH)
386 OR ((recinfo.DISPLAY_WIDTH is null) AND (X_DISPLAY_WIDTH is null)))
387 AND ((recinfo.UPLOAD_PARAM_LIST_ITEM_NUM = X_UPLOAD_PARAM_LIST_ITEM_NUM)
388 OR ((recinfo.UPLOAD_PARAM_LIST_ITEM_NUM is null) AND (X_UPLOAD_PARAM_LIST_ITEM_NUM is null)))
389 AND ((recinfo.EXPANDED_SQL_QUERY = X_EXPANDED_SQL_QUERY)
390 OR ((recinfo.EXPANDED_SQL_QUERY is null) AND (X_EXPANDED_SQL_QUERY is null)))
391 AND ((recinfo.LOV_TYPE = X_LOV_TYPE)
392 OR ((recinfo.LOV_TYPE is null) AND (X_LOV_TYPE is null)))
393 AND ((recinfo.OFFLINE_LOV_ENABLED_FLAG = X_OFFLINE_LOV_ENABLED_FLAG)
394 OR ((recinfo.OFFLINE_LOV_ENABLED_FLAG is null) AND (X_OFFLINE_LOV_ENABLED_FLAG is null)))
395 AND ((recinfo.VARIABLE_DATA_TYPE_CLASS = X_VARIABLE_DATA_TYPE_CLASS)
396 OR ((recinfo.VARIABLE_DATA_TYPE_CLASS is null) AND (X_VARIABLE_DATA_TYPE_CLASS is null)))
397 AND ((recinfo.VIEWER_GROUP = X_VIEWER_GROUP)
398 OR ((recinfo.VIEWER_GROUP is null) AND (X_VIEWER_GROUP is null)))
399 AND ((recinfo.EDIT_TYPE = X_EDIT_TYPE)
400 OR ((recinfo.EDIT_TYPE is null) AND (X_EDIT_TYPE is null)))
401 AND ((recinfo.VAL_QUERY_APP_ID = X_VAL_QUERY_APP_ID)
402 OR ((recinfo.VAL_QUERY_APP_ID is null) AND (X_VAL_QUERY_APP_ID is null)))
403 AND ((recinfo.VAL_QUERY_CODE = X_VAL_QUERY_CODE)
404 OR ((recinfo.VAL_QUERY_CODE is null) AND (X_VAL_QUERY_CODE is null)))
405 AND ((recinfo.EXPANDED_SQL_QUERY_APP_ID = X_EXPANDED_SQL_QUERY_APP_ID)
406 OR ((recinfo.EXPANDED_SQL_QUERY_APP_ID is null) AND (X_EXPANDED_SQL_QUERY_APP_ID is null)))
407 AND ((recinfo.EXPANDED_SQL_QUERY_CODE = X_EXPANDED_SQL_QUERY_CODE)
408 OR ((recinfo.EXPANDED_SQL_QUERY_CODE is null) AND (X_EXPANDED_SQL_QUERY_CODE is null)))
409 AND (recinfo.OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER)
410 ) then
411 null;
412 else
413 fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
414 app_exception.raise_exception;
415 end if;
416
417 for tlinfo in c1 loop
418 if (tlinfo.BASELANG = 'Y') then
419 if ( ((tlinfo.USER_HINT = X_USER_HINT)
423 AND ((tlinfo.USER_HELP_TEXT = X_USER_HELP_TEXT)
420 OR ((tlinfo.USER_HINT is null) AND (X_USER_HINT is null)))
421 AND ((tlinfo.PROMPT_LEFT = X_PROMPT_LEFT)
422 OR ((tlinfo.PROMPT_LEFT is null) AND (X_PROMPT_LEFT is null)))
424 OR ((tlinfo.USER_HELP_TEXT is null) AND (X_USER_HELP_TEXT is null)))
425 AND ((tlinfo.PROMPT_ABOVE = X_PROMPT_ABOVE)
426 OR ((tlinfo.PROMPT_ABOVE is null) AND (X_PROMPT_ABOVE is null)))
427 ) then
428 null;
429 else
430 fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
431 app_exception.raise_exception;
432 end if;
433 end if;
434 end loop;
435 return;
436 end LOCK_ROW;
437
438 procedure UPDATE_ROW (
439 X_APPLICATION_ID in NUMBER,
440 X_INTERFACE_CODE in VARCHAR2,
441 X_SEQUENCE_NUM in NUMBER,
442 X_INTERFACE_COL_TYPE in NUMBER,
443 X_INTERFACE_COL_NAME in VARCHAR2,
444 X_ENABLED_FLAG in VARCHAR2,
445 X_REQUIRED_FLAG in VARCHAR2,
446 X_DISPLAY_FLAG in VARCHAR2,
447 X_READ_ONLY_FLAG in VARCHAR2,
448 X_NOT_NULL_FLAG in VARCHAR2,
449 X_SUMMARY_FLAG in VARCHAR2,
450 X_MAPPING_ENABLED_FLAG in VARCHAR2,
451 X_DATA_TYPE in NUMBER,
452 X_FIELD_SIZE in NUMBER,
453 X_DEFAULT_TYPE in VARCHAR2,
454 X_DEFAULT_VALUE in VARCHAR2,
455 X_SEGMENT_NUMBER in NUMBER,
456 X_GROUP_NAME in VARCHAR2,
457 X_OA_FLEX_CODE in VARCHAR2,
458 X_OA_CONCAT_FLEX in VARCHAR2,
459 X_VAL_TYPE in VARCHAR2,
460 X_VAL_ID_COL in VARCHAR2,
461 X_VAL_MEAN_COL in VARCHAR2,
462 X_VAL_DESC_COL in VARCHAR2,
463 X_VAL_OBJ_NAME in VARCHAR2,
464 X_VAL_ADDL_W_C in VARCHAR2,
465 X_VAL_COMPONENT_APP_ID in NUMBER,
466 X_VAL_COMPONENT_CODE in VARCHAR2,
467 X_OA_FLEX_NUM in VARCHAR2,
468 X_OA_FLEX_APPLICATION_ID in NUMBER,
469 X_DISPLAY_ORDER in NUMBER,
470 X_UPLOAD_PARAM_LIST_ITEM_NUM in NUMBER,
471 X_EXPANDED_SQL_QUERY in VARCHAR2,
472 X_OBJECT_VERSION_NUMBER in NUMBER,
473 X_USER_HINT in VARCHAR2,
474 X_PROMPT_LEFT in VARCHAR2,
475 X_USER_HELP_TEXT in VARCHAR2,
476 X_PROMPT_ABOVE in VARCHAR2,
477 X_LOV_TYPE in VARCHAR2,
478 X_OFFLINE_LOV_ENABLED_FLAG in VARCHAR2,
479 X_LAST_UPDATE_DATE in DATE,
480 X_LAST_UPDATED_BY in NUMBER,
481 X_LAST_UPDATE_LOGIN in NUMBER,
482 X_VARIABLE_DATA_TYPE_CLASS in VARCHAR2,
483 X_VIEWER_GROUP in VARCHAR2,
484 X_EDIT_TYPE in VARCHAR2,
485 X_VAL_QUERY_APP_ID in NUMBER,
486 X_VAL_QUERY_CODE in VARCHAR2,
487 X_EXPANDED_SQL_QUERY_APP_ID in NUMBER,
488 X_EXPANDED_SQL_QUERY_CODE in VARCHAR2,
489 X_DISPLAY_WIDTH in NUMBER
490 ) is
491 begin
492 update BNE_INTERFACE_COLS_B set
493 INTERFACE_COL_TYPE = X_INTERFACE_COL_TYPE,
494 INTERFACE_COL_NAME = X_INTERFACE_COL_NAME,
495 ENABLED_FLAG = X_ENABLED_FLAG,
496 REQUIRED_FLAG = X_REQUIRED_FLAG,
497 DISPLAY_FLAG = X_DISPLAY_FLAG,
498 READ_ONLY_FLAG = X_READ_ONLY_FLAG,
499 NOT_NULL_FLAG = X_NOT_NULL_FLAG,
500 SUMMARY_FLAG = X_SUMMARY_FLAG,
501 MAPPING_ENABLED_FLAG = X_MAPPING_ENABLED_FLAG,
502 DATA_TYPE = X_DATA_TYPE,
503 FIELD_SIZE = X_FIELD_SIZE,
504 DEFAULT_TYPE = X_DEFAULT_TYPE,
505 DEFAULT_VALUE = X_DEFAULT_VALUE,
506 SEGMENT_NUMBER = X_SEGMENT_NUMBER,
507 GROUP_NAME = X_GROUP_NAME,
508 OA_FLEX_CODE = X_OA_FLEX_CODE,
509 OA_CONCAT_FLEX = X_OA_CONCAT_FLEX,
510 VAL_TYPE = X_VAL_TYPE,
511 VAL_ID_COL = X_VAL_ID_COL,
512 VAL_MEAN_COL = X_VAL_MEAN_COL,
513 VAL_DESC_COL = X_VAL_DESC_COL,
514 VAL_OBJ_NAME = X_VAL_OBJ_NAME,
515 VAL_ADDL_W_C = X_VAL_ADDL_W_C,
516 VAL_COMPONENT_APP_ID = X_VAL_COMPONENT_APP_ID,
517 VAL_COMPONENT_CODE = X_VAL_COMPONENT_CODE,
518 OA_FLEX_NUM = X_OA_FLEX_NUM,
519 OA_FLEX_APPLICATION_ID = X_OA_FLEX_APPLICATION_ID,
520 DISPLAY_ORDER = X_DISPLAY_ORDER,
521 DISPLAY_WIDTH = X_DISPLAY_WIDTH,
522 UPLOAD_PARAM_LIST_ITEM_NUM = X_UPLOAD_PARAM_LIST_ITEM_NUM,
523 EXPANDED_SQL_QUERY = X_EXPANDED_SQL_QUERY,
524 OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER,
525 LOV_TYPE = X_LOV_TYPE,
526 OFFLINE_LOV_ENABLED_FLAG = X_OFFLINE_LOV_ENABLED_FLAG,
527 LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
528 LAST_UPDATED_BY = X_LAST_UPDATED_BY,
529 LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN,
530 VARIABLE_DATA_TYPE_CLASS = X_VARIABLE_DATA_TYPE_CLASS,
531 VIEWER_GROUP = X_VIEWER_GROUP,
532 EDIT_TYPE = X_EDIT_TYPE,
533 VAL_QUERY_APP_ID = X_VAL_QUERY_APP_ID,
534 VAL_QUERY_CODE = X_VAL_QUERY_CODE,
535 EXPANDED_SQL_QUERY_APP_ID = X_EXPANDED_SQL_QUERY_APP_ID,
536 EXPANDED_SQL_QUERY_CODE = X_EXPANDED_SQL_QUERY_CODE
537 where APPLICATION_ID = X_APPLICATION_ID
538 and INTERFACE_CODE = X_INTERFACE_CODE
539 and SEQUENCE_NUM = X_SEQUENCE_NUM;
540
541 if (sql%notfound) then
542 raise no_data_found;
543 end if;
544
545 update BNE_INTERFACE_COLS_TL set
546 USER_HINT = X_USER_HINT,
547 PROMPT_LEFT = X_PROMPT_LEFT,
548 USER_HELP_TEXT = X_USER_HELP_TEXT,
549 PROMPT_ABOVE = X_PROMPT_ABOVE,
550 LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
551 LAST_UPDATED_BY = X_LAST_UPDATED_BY,
552 LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN,
553 SOURCE_LANG = userenv('LANG')
554 where APPLICATION_ID = X_APPLICATION_ID
555 and INTERFACE_CODE = X_INTERFACE_CODE
556 and SEQUENCE_NUM = X_SEQUENCE_NUM
557 and userenv('LANG') in (LANGUAGE, SOURCE_LANG);
558
559 if (sql%notfound) then
560 raise no_data_found;
561 end if;
562 end UPDATE_ROW;
563
564 procedure DELETE_ROW (
565 X_APPLICATION_ID in NUMBER,
566 X_INTERFACE_CODE in VARCHAR2,
567 X_SEQUENCE_NUM in NUMBER
568 ) is
572 and INTERFACE_CODE = X_INTERFACE_CODE
569 begin
570 delete from BNE_INTERFACE_COLS_TL
571 where APPLICATION_ID = X_APPLICATION_ID
573 and SEQUENCE_NUM = X_SEQUENCE_NUM;
574
575 if (sql%notfound) then
576 raise no_data_found;
577 end if;
578
579 delete from BNE_INTERFACE_COLS_B
580 where APPLICATION_ID = X_APPLICATION_ID
581 and INTERFACE_CODE = X_INTERFACE_CODE
582 and SEQUENCE_NUM = X_SEQUENCE_NUM;
583
584 if (sql%notfound) then
585 raise no_data_found;
586 end if;
587 end DELETE_ROW;
588
589 procedure ADD_LANGUAGE
590 is
591 begin
592 delete from BNE_INTERFACE_COLS_TL T
593 where not exists
594 (select NULL
595 from BNE_INTERFACE_COLS_B B
596 where B.APPLICATION_ID = T.APPLICATION_ID
597 and B.INTERFACE_CODE = T.INTERFACE_CODE
598 and B.SEQUENCE_NUM = T.SEQUENCE_NUM
599 );
600
601 update BNE_INTERFACE_COLS_TL T set (
602 USER_HINT,
603 PROMPT_LEFT,
604 USER_HELP_TEXT,
605 PROMPT_ABOVE
606 ) = (select
607 B.USER_HINT,
608 B.PROMPT_LEFT,
609 B.USER_HELP_TEXT,
610 B.PROMPT_ABOVE
611 from BNE_INTERFACE_COLS_TL B
612 where B.APPLICATION_ID = T.APPLICATION_ID
613 and B.INTERFACE_CODE = T.INTERFACE_CODE
614 and B.SEQUENCE_NUM = T.SEQUENCE_NUM
615 and B.LANGUAGE = T.SOURCE_LANG)
616 where (
617 T.APPLICATION_ID,
618 T.INTERFACE_CODE,
619 T.SEQUENCE_NUM,
620 T.LANGUAGE
621 ) in (select
622 SUBT.APPLICATION_ID,
623 SUBT.INTERFACE_CODE,
624 SUBT.SEQUENCE_NUM,
625 SUBT.LANGUAGE
626 from BNE_INTERFACE_COLS_TL SUBB, BNE_INTERFACE_COLS_TL SUBT
627 where SUBB.APPLICATION_ID = SUBT.APPLICATION_ID
628 and SUBB.INTERFACE_CODE = SUBT.INTERFACE_CODE
629 and SUBB.SEQUENCE_NUM = SUBT.SEQUENCE_NUM
630 and SUBB.LANGUAGE = SUBT.SOURCE_LANG
631 and (SUBB.USER_HINT <> SUBT.USER_HINT
632 or (SUBB.USER_HINT is null and SUBT.USER_HINT is not null)
633 or (SUBB.USER_HINT is not null and SUBT.USER_HINT is null)
634 or SUBB.PROMPT_LEFT <> SUBT.PROMPT_LEFT
635 or (SUBB.PROMPT_LEFT is null and SUBT.PROMPT_LEFT is not null)
636 or (SUBB.PROMPT_LEFT is not null and SUBT.PROMPT_LEFT is null)
637 or SUBB.USER_HELP_TEXT <> SUBT.USER_HELP_TEXT
638 or (SUBB.USER_HELP_TEXT is null and SUBT.USER_HELP_TEXT is not null)
639 or (SUBB.USER_HELP_TEXT is not null and SUBT.USER_HELP_TEXT is null)
640 or SUBB.PROMPT_ABOVE <> SUBT.PROMPT_ABOVE
641 or (SUBB.PROMPT_ABOVE is null and SUBT.PROMPT_ABOVE is not null)
642 or (SUBB.PROMPT_ABOVE is not null and SUBT.PROMPT_ABOVE is null)
643 ));
644
645 insert into BNE_INTERFACE_COLS_TL (
646 CREATED_BY,
647 CREATION_DATE,
648 LAST_UPDATED_BY,
649 LAST_UPDATE_LOGIN,
650 LAST_UPDATE_DATE,
651 USER_HINT,
652 PROMPT_LEFT,
653 USER_HELP_TEXT,
654 PROMPT_ABOVE,
655 INTERFACE_CODE,
656 SEQUENCE_NUM,
657 APPLICATION_ID,
658 LANGUAGE,
659 SOURCE_LANG
660 ) select
661 B.CREATED_BY,
662 B.CREATION_DATE,
663 B.LAST_UPDATED_BY,
664 B.LAST_UPDATE_LOGIN,
665 B.LAST_UPDATE_DATE,
666 B.USER_HINT,
667 B.PROMPT_LEFT,
668 B.USER_HELP_TEXT,
669 B.PROMPT_ABOVE,
670 B.INTERFACE_CODE,
671 B.SEQUENCE_NUM,
672 B.APPLICATION_ID,
673 L.LANGUAGE_CODE,
674 B.SOURCE_LANG
675 from BNE_INTERFACE_COLS_TL B, FND_LANGUAGES L
676 where L.INSTALLED_FLAG in ('I', 'B')
677 and B.LANGUAGE = userenv('LANG')
678 and not exists
679 (select NULL
680 from BNE_INTERFACE_COLS_TL T
681 where T.APPLICATION_ID = B.APPLICATION_ID
682 and T.INTERFACE_CODE = B.INTERFACE_CODE
683 and T.SEQUENCE_NUM = B.SEQUENCE_NUM
684 and T.LANGUAGE = L.LANGUAGE_CODE);
685 end ADD_LANGUAGE;
686
687 --------------------------------------------------------------------------------
688 -- PROCEDURE: TRANSLATE_ROW --
689 -- --
690 -- DESCRIPTION: Load a translation into the BNE_INTERFACE_COLS entity. --
691 -- This proc is called from the apps loader. --
692 -- --
693 -- SEE: http://www-apps.us.oracle.com/atg/plans/r115/fndloadqr.txt --
694 -- --
695 -- --
696 -- MODIFICATION HISTORY --
697 -- Date Username Description --
698 -- 1-Oct-02 DGROVES CREATED --
699 --------------------------------------------------------------------------------
700 procedure TRANSLATE_ROW(
701 x_interface_asn in VARCHAR2,
702 x_interface_code in VARCHAR2,
703 x_sequence_num in VARCHAR2,
704 x_user_hint in VARCHAR2,
705 x_prompt_left in VARCHAR2,
706 x_prompt_above in VARCHAR2,
707 x_user_help_text in VARCHAR2,
708 x_owner in VARCHAR2,
709 x_last_update_date in VARCHAR2,
710 x_custom_mode in VARCHAR2
711 )
712 is
713 l_app_id number;
714 f_luby number; -- entity owner in file
715 f_ludate date; -- entity update date in file
716 db_luby number; -- entity owner in db
720 l_app_id := BNE_LCT_TOOLS_PKG.ASN_TO_APP_ID(x_interface_asn);
717 db_ludate date; -- entity update date in db
718 begin
719 -- translate values to IDs
721
722 -- Translate owner to file_last_updated_by
723 f_luby := fnd_load_util.owner_id(x_owner);
724
725 -- Translate char last_update_date to date
726 f_ludate := nvl(to_date(x_last_update_date, 'YYYY/MM/DD'), sysdate);
727 begin
728 select LAST_UPDATED_BY, LAST_UPDATE_DATE
729 into db_luby, db_ludate
730 from BNE_INTERFACE_COLS_TL
731 where APPLICATION_ID = l_app_id
732 and INTERFACE_CODE = x_interface_code
733 and SEQUENCE_NUM = x_sequence_num
734 and LANGUAGE = userenv('LANG');
735
736 -- Test for customization and version
737 if (fnd_load_util.upload_test(f_luby, f_ludate, db_luby,
738 db_ludate, x_custom_mode)) then
739
740 update BNE_INTERFACE_COLS_TL
741 set USER_HINT = x_user_hint,
742 PROMPT_LEFT = x_prompt_left,
743 PROMPT_ABOVE = x_prompt_above,
744 USER_HELP_TEXT = x_user_help_text,
745 LAST_UPDATE_DATE = f_ludate,
746 LAST_UPDATED_BY = f_luby,
747 LAST_UPDATE_LOGIN = 0,
748 SOURCE_LANG = userenv('LANG')
749 where APPLICATION_ID = l_app_id
750 AND INTERFACE_CODE = x_interface_code
751 AND SEQUENCE_NUM = x_sequence_num
752 AND userenv('LANG') in (LANGUAGE, SOURCE_LANG)
753 ;
754 end if;
755 exception
756 when no_data_found then
757 -- Do not insert missing translations, skip this row
758 null;
759 end;
760 end TRANSLATE_ROW;
761
762 --------------------------------------------------------------------------------
763 -- PROCEDURE: LOAD_ROW --
764 -- --
765 -- DESCRIPTION: Load a row into the BNE_INTERFACE_COLS entity. --
766 -- This proc is called from the apps loader. --
767 -- --
768 -- SEE: http://www-apps.us.oracle.com/atg/plans/r115/fndloadqr.txt --
769 -- --
770 -- --
771 -- MODIFICATION HISTORY --
772 -- Date Username Description --
773 -- 1-Oct-02 DGROVES CREATED --
774 --------------------------------------------------------------------------------
775 procedure LOAD_ROW(
776 x_interface_asn in VARCHAR2,
777 x_interface_code in VARCHAR2,
778 x_sequence_num in VARCHAR2,
779 x_interface_col_type in VARCHAR2,
780 x_interface_col_name in VARCHAR2,
781 x_enabled_flag in VARCHAR2,
782 x_required_flag in VARCHAR2,
783 x_display_flag in VARCHAR2,
784 x_read_only_flag in VARCHAR2,
785 x_not_null_flag in VARCHAR2,
786 x_summary_flag in VARCHAR2,
787 x_mapping_enabled_flag in VARCHAR2,
788 x_data_type in VARCHAR2,
789 x_field_size in VARCHAR2,
790 x_default_type in VARCHAR2,
791 x_default_value in VARCHAR2,
792 x_segment_number in VARCHAR2,
793 x_group_name in VARCHAR2,
794 x_oa_flex_code in VARCHAR2,
795 x_oa_concat_flex in VARCHAR2,
796 x_val_type in VARCHAR2,
797 x_val_id_col in VARCHAR2,
798 x_val_mean_col in VARCHAR2,
799 x_val_desc_col in VARCHAR2,
800 x_val_obj_name in VARCHAR2,
801 x_val_addl_w_c in VARCHAR2,
802 x_val_component_asn in VARCHAR2,
803 x_val_component_code in VARCHAR2,
804 x_oa_flex_num in VARCHAR2,
805 x_oa_flex_application_id in VARCHAR2,
806 x_display_order in VARCHAR2,
807 x_upload_param_list_item_num in VARCHAR2,
808 x_expanded_sql_query in VARCHAR2,
809 x_object_version_number in VARCHAR2,
810 x_user_hint in VARCHAR2,
811 x_prompt_left in VARCHAR2,
812 x_user_help_text in VARCHAR2,
813 x_prompt_above in VARCHAR2,
814 x_owner in VARCHAR2,
815 x_last_update_date in VARCHAR2,
816 x_lov_type in VARCHAR2,
817 x_offline_lov_enabled_flag in VARCHAR2,
818 x_custom_mode in VARCHAR2,
819 x_variable_data_type_class in VARCHAR2,
820 x_viewer_group in VARCHAR2,
821 x_edit_type in VARCHAR2,
822 x_val_query_asn in VARCHAR2,
823 x_val_query_code in VARCHAR2,
824 x_expanded_sql_query_asn in VARCHAR2,
825 x_expanded_sql_query_code in VARCHAR2,
826 x_display_width in VARCHAR2
827 )
828 is
829 l_app_id number;
830 l_val_component_app_id number;
831 l_val_query_app_id number;
832 l_expanded_sql_query_app_id number;
833 l_row_id varchar2(64);
834 f_luby number; -- entity owner in file
835 f_ludate date; -- entity update date in file
836 db_luby number; -- entity owner in db
837 db_ludate date; -- entity update date in db
838 begin
839 -- translate values to IDs
843 l_expanded_sql_query_app_id := BNE_LCT_TOOLS_PKG.ASN_TO_APP_ID(x_expanded_sql_query_asn);
840 l_app_id := BNE_LCT_TOOLS_PKG.ASN_TO_APP_ID(x_interface_asn);
841 l_val_component_app_id := BNE_LCT_TOOLS_PKG.ASN_TO_APP_ID(x_val_component_asn);
842 l_val_query_app_id := BNE_LCT_TOOLS_PKG.ASN_TO_APP_ID(x_val_query_asn);
844
845 -- Translate owner to file_last_updated_by
846 f_luby := fnd_load_util.owner_id(x_owner);
847
848 -- Translate char last_update_date to date
849 f_ludate := nvl(to_date(x_last_update_date, 'YYYY/MM/DD'), sysdate);
850 begin
851 select LAST_UPDATED_BY, LAST_UPDATE_DATE
852 into db_luby, db_ludate
853 from BNE_INTERFACE_COLS_B
854 where APPLICATION_ID = l_app_id
855 and SEQUENCE_NUM = x_sequence_num
856 and INTERFACE_CODE = x_interface_code;
857
858 -- Test for customization and version
859 if (fnd_load_util.upload_test(f_luby, f_ludate, db_luby,
860 db_ludate, x_custom_mode)) then
861 -- Update existing row
862 BNE_INTERFACE_COLS_PKG.Update_Row(
863 X_APPLICATION_ID => l_app_id,
864 X_INTERFACE_CODE => x_interface_code,
865 X_SEQUENCE_NUM => x_sequence_num,
866 X_INTERFACE_COL_TYPE => x_interface_col_type,
867 X_INTERFACE_COL_NAME => x_interface_col_name,
868 X_ENABLED_FLAG => x_enabled_flag,
869 X_REQUIRED_FLAG => x_required_flag,
870 X_DISPLAY_FLAG => x_display_flag,
871 X_READ_ONLY_FLAG => x_read_only_flag,
872 X_NOT_NULL_FLAG => x_not_null_flag,
873 X_SUMMARY_FLAG => x_summary_flag,
874 X_MAPPING_ENABLED_FLAG => x_mapping_enabled_flag,
875 X_DATA_TYPE => x_data_type,
876 X_FIELD_SIZE => x_field_size,
877 X_DEFAULT_TYPE => x_default_type,
878 X_DEFAULT_VALUE => x_default_value,
879 X_SEGMENT_NUMBER => x_segment_number,
880 X_GROUP_NAME => x_group_name,
881 X_OA_FLEX_CODE => x_oa_flex_code,
882 X_OA_CONCAT_FLEX => x_oa_concat_flex,
883 X_VAL_TYPE => x_val_type,
884 X_VAL_ID_COL => x_val_id_col,
885 X_VAL_MEAN_COL => x_val_mean_col,
886 X_VAL_DESC_COL => x_val_desc_col,
887 X_VAL_OBJ_NAME => x_val_obj_name,
888 X_VAL_ADDL_W_C => x_val_addl_w_c,
889 X_VAL_COMPONENT_APP_ID => l_val_component_app_id,
890 X_VAL_COMPONENT_CODE => x_val_component_code,
891 X_OA_FLEX_NUM => x_oa_flex_num,
892 X_OA_FLEX_APPLICATION_ID => x_oa_flex_application_id,
893 X_DISPLAY_ORDER => x_display_order,
894 X_DISPLAY_WIDTH => x_display_width,
895 X_UPLOAD_PARAM_LIST_ITEM_NUM => x_upload_param_list_item_num,
896 X_EXPANDED_SQL_QUERY => x_expanded_sql_query,
897 X_OBJECT_VERSION_NUMBER => x_object_version_number,
898 X_USER_HINT => x_user_hint,
899 X_PROMPT_LEFT => x_prompt_left,
900 X_USER_HELP_TEXT => x_user_help_text,
901 X_PROMPT_ABOVE => x_prompt_above,
902 X_LOV_TYPE => x_lov_type,
903 X_OFFLINE_LOV_ENABLED_FLAG => x_offline_lov_enabled_flag,
904 X_LAST_UPDATE_DATE => f_ludate,
905 X_LAST_UPDATED_BY => f_luby,
906 X_LAST_UPDATE_LOGIN => 0,
907 X_VARIABLE_DATA_TYPE_CLASS => x_variable_data_type_class,
908 X_VIEWER_GROUP => x_viewer_group,
909 X_EDIT_TYPE => x_edit_type,
910 X_VAL_QUERY_APP_ID => l_val_query_app_id,
911 X_VAL_QUERY_CODE => x_val_query_code,
912 X_EXPANDED_SQL_QUERY_APP_ID => l_expanded_sql_query_app_id,
913 X_EXPANDED_SQL_QUERY_CODE => x_expanded_sql_query_code
914 );
915 end if;
916 exception
917 when no_data_found then
918 -- Record doesn't exist - insert in all cases
919 BNE_INTERFACE_COLS_PKG.Insert_Row(
920 X_ROWID => l_row_id,
921 X_APPLICATION_ID => l_app_id,
922 X_INTERFACE_CODE => x_interface_code,
923 X_SEQUENCE_NUM => x_sequence_num,
924 X_INTERFACE_COL_TYPE => x_interface_col_type,
925 X_INTERFACE_COL_NAME => x_interface_col_name,
926 X_ENABLED_FLAG => x_enabled_flag,
927 X_REQUIRED_FLAG => x_required_flag,
928 X_DISPLAY_FLAG => x_display_flag,
929 X_READ_ONLY_FLAG => x_read_only_flag,
930 X_NOT_NULL_FLAG => x_not_null_flag,
931 X_SUMMARY_FLAG => x_summary_flag,
932 X_MAPPING_ENABLED_FLAG => x_mapping_enabled_flag,
933 X_DATA_TYPE => x_data_type,
934 X_FIELD_SIZE => x_field_size,
935 X_DEFAULT_TYPE => x_default_type,
936 X_DEFAULT_VALUE => x_default_value,
937 X_SEGMENT_NUMBER => x_segment_number,
938 X_GROUP_NAME => x_group_name,
939 X_OA_FLEX_CODE => x_oa_flex_code,
940 X_OA_CONCAT_FLEX => x_oa_concat_flex,
941 X_VAL_TYPE => x_val_type,
942 X_VAL_ID_COL => x_val_id_col,
943 X_VAL_MEAN_COL => x_val_mean_col,
944 X_VAL_DESC_COL => x_val_desc_col,
948 X_VAL_COMPONENT_CODE => x_val_component_code,
945 X_VAL_OBJ_NAME => x_val_obj_name,
946 X_VAL_ADDL_W_C => x_val_addl_w_c,
947 X_VAL_COMPONENT_APP_ID => l_val_component_app_id,
949 X_OA_FLEX_NUM => x_oa_flex_num,
950 X_OA_FLEX_APPLICATION_ID => x_oa_flex_application_id,
951 X_DISPLAY_ORDER => x_display_order,
952 X_DISPLAY_WIDTH => x_display_width,
953 X_UPLOAD_PARAM_LIST_ITEM_NUM => x_upload_param_list_item_num,
954 X_EXPANDED_SQL_QUERY => x_expanded_sql_query,
955 X_OBJECT_VERSION_NUMBER => x_object_version_number,
956 X_USER_HINT => x_user_hint,
957 X_PROMPT_LEFT => x_prompt_left,
958 X_USER_HELP_TEXT => x_user_help_text,
959 X_PROMPT_ABOVE => x_prompt_above,
960 X_LOV_TYPE => x_lov_type,
961 X_OFFLINE_LOV_ENABLED_FLAG => x_offline_lov_enabled_flag,
962 X_CREATION_DATE => f_ludate,
963 X_CREATED_BY => f_luby,
964 X_LAST_UPDATE_DATE => f_ludate,
965 X_LAST_UPDATED_BY => f_luby,
966 X_LAST_UPDATE_LOGIN => 0,
967 X_VARIABLE_DATA_TYPE_CLASS => x_variable_data_type_class,
968 X_VIEWER_GROUP => x_viewer_group,
969 X_EDIT_TYPE => x_edit_type,
970 X_VAL_QUERY_APP_ID => l_val_query_app_id,
971 X_VAL_QUERY_CODE => x_val_query_code,
972 X_EXPANDED_SQL_QUERY_APP_ID => l_expanded_sql_query_app_id,
973 X_EXPANDED_SQL_QUERY_CODE => x_expanded_sql_query_code
974 );
975 end;
976 end LOAD_ROW;
977
978 end BNE_INTERFACE_COLS_PKG;