[Home] [Help]
PACKAGE BODY: APPS.BNE_PARAMETER_UTILS
Source
1 PACKAGE BODY BNE_PARAMETER_UTILS AS
2 /* $Header: bneparamb.pls 120.2 2005/06/29 03:40:27 dvayro noship $ */
3
4 ----------------------------------------------------------------------------------
5 -- FUNCTION: CREATE_PARAM_LIST_ALL --
6 -- --
7 -- DESCRIPTION: Inserts into BNE_PARAM_LISTS_B/_TL --
8 -- Parameters are the column values for these tables --
9 -- --
10 -- PARAMETERS: P_APPLICATION_ID = BNE_PARAM_LISTS_B.APPLICATION_ID --
11 -- P_PARAM_LIST_CODE = BNE_PARAM_LISTS_B.PARAM_LIST_CODE --
12 -- P_PARAM_LIST_NAME = BNE_PARAM_LISTS_TL.PARAM_LIST_NAME --
13 -- P_PERSISTENT = BNE_PARAM_LISTS_B.PERSISTENT_FLAG --
14 -- P_COMMENTS = BNE_PARAM_LISTS_B.COMMENTS --
15 -- P_ATTRIBUTE_APP_ID = BNE_PARAM_LISTS_B.ATTRIBUTE_APP_ID --
16 -- P_ATTRIBUTE_CODE = BNE_PARAM_LISTS_B.ATTRIBUTE_ID --
17 -- P_LIST_RESOLVER = BNE_PARAM_LISTS_B.LIST_RESOLVER --
18 -- P_PROMPT_LEFT = BNE_PARAM_LISTS_TL.PROMPT_LEFT --
19 -- P_PROMPT_ABOVE = BNE_PARAM_LISTS_TL.PROMPT_ABOVE --
20 -- P_USER_NAME = BNE_PARAM_LISTS_TL.USER_NAME --
21 -- P_USER_TIP = BNE_PARAM_LISTS_TL.USER_TIP --
22 -- --
23 -- RETURN: parameter list key. E.g 101:CODE --
24 -- --
25 -- MODIFICATION HISTORY --
26 -- Date Username Description --
27 -- 4-Oct-02 KDOBINSO CREATED --
28 -- 7-Oct-02 KDOBINSO UPDATED FOR WEB ADI REPOSITORY CHANGE --
29 ----------------------------------------------------------------------------------
30
31 -- all values for BNE_PARAM_LIST/_TL
32
33 FUNCTION CREATE_PARAM_LIST_ALL( P_APPLICATION_ID in BNE_PARAM_LISTS_B.APPLICATION_ID%type,
34 P_PARAM_LIST_CODE in BNE_PARAM_LISTS_B.PARAM_LIST_CODE%type,
35 P_PERSISTENT in BNE_PARAM_LISTS_B.PERSISTENT_FLAG%type,
36 P_COMMENTS in BNE_PARAM_LISTS_B.COMMENTS%type,
37 P_ATTRIBUTE_APP_ID in BNE_PARAM_LISTS_B.ATTRIBUTE_APP_ID%type,
38 P_ATTRIBUTE_CODE in BNE_PARAM_LISTS_B.ATTRIBUTE_CODE%type,
39 P_LIST_RESOLVER in BNE_PARAM_LISTS_B.LIST_RESOLVER%type,
40 P_PROMPT_LEFT in BNE_PARAM_LISTS_TL.PROMPT_LEFT%type,
41 P_PROMPT_ABOVE in BNE_PARAM_LISTS_TL.PROMPT_ABOVE%type,
42 P_USER_NAME in BNE_PARAM_LISTS_TL.USER_NAME%type,
43 P_USER_TIP in BNE_PARAM_LISTS_TL.USER_TIP%type )
44
45 RETURN BNE_PARAM_LISTS_TL.PARAM_LIST_CODE%type AS VN_KEY BNE_PARAM_LISTS_TL.PARAM_LIST_CODE%type;
46
47 VN_OBJECT_VERSION_NUM BNE_PARAM_LISTS_B.OBJECT_VERSION_NUMBER%type;
48 VV_PARAM_LIST_CODE BNE_PARAM_LISTS_B.PARAM_LIST_CODE%type;
49
50 BEGIN
51 -- defaults
52
53 VN_OBJECT_VERSION_NUM := 1;
54
55 -- a key accepts only codes that are uppercase
56 VV_PARAM_LIST_CODE := UPPER(P_PARAM_LIST_CODE);
57
58 -- create the key
59 VN_KEY := P_APPLICATION_ID || ':' || VV_PARAM_LIST_CODE;
60
61
62 INSERT INTO BNE_PARAM_LISTS_B ( APPLICATION_ID,
63 PARAM_LIST_CODE,
64 OBJECT_VERSION_NUMBER,
65 PERSISTENT_FLAG,
66 COMMENTS,
67 ATTRIBUTE_APP_ID,
68 ATTRIBUTE_CODE,
69 LIST_RESOLVER,
70 LAST_UPDATE_DATE,
71 LAST_UPDATED_BY,
72 CREATION_DATE,
73 CREATED_BY,
74 LAST_UPDATE_LOGIN ) VALUES
75
76 ( P_APPLICATION_ID,
77 VV_PARAM_LIST_CODE,
78 VN_OBJECT_VERSION_NUM,
79 P_PERSISTENT,
80 P_COMMENTS,
81 P_ATTRIBUTE_APP_ID,
82 P_ATTRIBUTE_CODE,
83 P_LIST_RESOLVER,
84 SYSDATE,
85 FND_GLOBAL.USER_ID,
86 SYSDATE,
87 FND_GLOBAL.USER_ID,
88 NULL );
89
90
91 INSERT INTO BNE_PARAM_LISTS_TL (APPLICATION_ID,
92 PARAM_LIST_CODE,
93 LANGUAGE,
94 SOURCE_LANG,
95 USER_NAME,
96 USER_TIP,
97 PROMPT_LEFT,
98 PROMPT_ABOVE,
99 LAST_UPDATE_DATE,
100 LAST_UPDATED_BY,
101 CREATION_DATE,
102 CREATED_BY,
103 LAST_UPDATE_LOGIN ) VALUES
104
105 ( P_APPLICATION_ID,
106 VV_PARAM_LIST_CODE,
107 FND_GLOBAL.CURRENT_LANGUAGE,
108 FND_GLOBAL.CURRENT_LANGUAGE,
109 P_USER_NAME,
110 P_USER_TIP,
111 P_PROMPT_LEFT,
112 P_PROMPT_ABOVE,
113 SYSDATE,
114 FND_GLOBAL.USER_ID,
115 SYSDATE,
116 FND_GLOBAL.USER_ID,
117 NULL );
118
119 RETURN (VN_KEY);
120
121 END CREATE_PARAM_LIST_ALL;
122
123
124 --------------------------------------------------------------------------------
125 -- FUNCTION: CREATE_PARAM_LIST_MINIMAL --
126 -- --
127 -- DESCRIPTION: Inserts into BNE_PARAM_LISTS_B/_TL --
128 -- Parameters are the not NULL values for these tables --
129 -- Uses FND_GLOBAL.RESP_APPL_ID for the APPLICATION_ID --
130 -- --
131 -- PARAMETERS: --
132 -- P_PARAM_LIST_CODE = BNE_PARAM_LISTS_B.PARAM_LIST_ID --
133 -- P_PARAM_LIST_NAME = BNE_PARAM_LISTS_TL.PARAM_LIST_NAME --
134 -- P_PERSISTENT = BNE_PARAM_LISTS_B.PERSISTENT_FLAG --
135 -- --
136 -- --
137 -- RETURN: parameter list key. E.g. 101:CODE --
138 -- --
139 -- MODIFICATION HISTORY --
140 -- Date Username Description --
141 -- 8-May-02 KDOBINSO CREATED --
142 -- 8-Jul-02 KDOBINSO UPDATED format of parameters and varibles --
143 -- 7-Oct-02 KDOBINSO UPDATED FOR WEB ADI REPOSITORY CHANGE --
144 --------------------------------------------------------------------------------
145
146
147 FUNCTION CREATE_PARAM_LIST_MINIMAL( P_PARAM_LIST_CODE in BNE_PARAM_LISTS_B.PARAM_LIST_CODE%type,
148 P_PERSISTENT in BNE_PARAM_LISTS_B.PERSISTENT_FLAG%type,
149 P_USER_NAME in BNE_PARAM_LISTS_TL.USER_NAME%type)
150
151 RETURN BNE_PARAM_LISTS_TL.PARAM_LIST_CODE%type as VN_KEY BNE_PARAM_LISTS_TL.PARAM_LIST_CODE%type;
152
153 BEGIN
154
155 VN_KEY := CREATE_PARAM_LIST_ALL( FND_GLOBAL.RESP_APPL_ID, P_PARAM_LIST_CODE, P_PERSISTENT, NULL, NULL,
156 NULL , NULL, NULL, NULL, P_USER_NAME, NULL);
157
158
159
160 RETURN VN_KEY;
161
162 END CREATE_PARAM_LIST_MINIMAL;
163
164
165 ----------------------------------------------------------------------------------
166 -- FUNCTION: CREATE_ATTRIBUTES --
167 -- --
168 -- DESCRIPTION:Inserts into BNE_ATTRIBUTES. The attribute id given --
169 -- should be assigned to a parameter list or a parameter. --
170 -- It is suggested that you call GET_NEXT_ATTRIBUTE_SEQ --
171 -- add to BNE_PARAM_LIST or BNE_PARAM_DEFN using the --
172 -- using the value returned from GET_NEXT_ATTRIBUTE_SEQ --
173 -- as the attribute id. --
174 -- --
175 -- --
176 -- PARAMETERS: P_ATTRIBUTE_ID = BNE_ATTRIBUTES.ATTRIBUTE_ID --
177 -- P_ATTRIBUTE1 = BNE_ATTRIBUTES.ATTRIBUTE1 --
178 -- to --
179 -- P_ATTRIBUTE30 = BNE_ATTRIBUTES.ATTRIBUTE30 --
180 -- --
181 -- --
182 -- RETURN: attribute key. E.g. 101:CODE --
183 -- --
184 -- --
185 -- MODIFICATION HISTORY --
186 -- Date Username Description --
187 -- 8-May-02 KDOBINSO CREATED --
188 -- 7-Oct-02 KDOBINSO UPDATED FOR WEB ADI REPOSITORY CHANGE --
189 ----------------------------------------------------------------------------------
190
191
192 FUNCTION CREATE_ATTRIBUTES (P_APPLICATION_ID in BNE_ATTRIBUTES.APPLICATION_ID%type,
193 P_ATTRIBUTE_CODE in BNE_ATTRIBUTES.ATTRIBUTE_CODE%type,
194 P_ATTRIBUTE1 in BNE_ATTRIBUTES.ATTRIBUTE1%type,
195 P_ATTRIBUTE2 in BNE_ATTRIBUTES.ATTRIBUTE2%type,
196 P_ATTRIBUTE3 in BNE_ATTRIBUTES.ATTRIBUTE3%type,
197 P_ATTRIBUTE4 in BNE_ATTRIBUTES.ATTRIBUTE4%type,
198 P_ATTRIBUTE5 in BNE_ATTRIBUTES.ATTRIBUTE5%type,
199 P_ATTRIBUTE6 in BNE_ATTRIBUTES.ATTRIBUTE6%type,
200 P_ATTRIBUTE7 in BNE_ATTRIBUTES.ATTRIBUTE7%type,
201 P_ATTRIBUTE8 in BNE_ATTRIBUTES.ATTRIBUTE8%type,
202 P_ATTRIBUTE9 in BNE_ATTRIBUTES.ATTRIBUTE9%type,
203 P_ATTRIBUTE10 in BNE_ATTRIBUTES.ATTRIBUTE10%type,
204 P_ATTRIBUTE11 in BNE_ATTRIBUTES.ATTRIBUTE11%type,
205 P_ATTRIBUTE12 in BNE_ATTRIBUTES.ATTRIBUTE12%type,
206 P_ATTRIBUTE13 in BNE_ATTRIBUTES.ATTRIBUTE13%type,
207 P_ATTRIBUTE14 in BNE_ATTRIBUTES.ATTRIBUTE14%type,
208 P_ATTRIBUTE15 in BNE_ATTRIBUTES.ATTRIBUTE15%type,
209 P_ATTRIBUTE16 in BNE_ATTRIBUTES.ATTRIBUTE16%type,
210 P_ATTRIBUTE17 in BNE_ATTRIBUTES.ATTRIBUTE17%type,
211 P_ATTRIBUTE18 in BNE_ATTRIBUTES.ATTRIBUTE18%type,
212 P_ATTRIBUTE19 in BNE_ATTRIBUTES.ATTRIBUTE19%type,
213 P_ATTRIBUTE20 in BNE_ATTRIBUTES.ATTRIBUTE20%type,
214 P_ATTRIBUTE21 in BNE_ATTRIBUTES.ATTRIBUTE21%type,
215 P_ATTRIBUTE22 in BNE_ATTRIBUTES.ATTRIBUTE22%type,
216 P_ATTRIBUTE23 in BNE_ATTRIBUTES.ATTRIBUTE23%type,
217 P_ATTRIBUTE24 in BNE_ATTRIBUTES.ATTRIBUTE24%type,
218 P_ATTRIBUTE25 in BNE_ATTRIBUTES.ATTRIBUTE25%type,
219 P_ATTRIBUTE26 in BNE_ATTRIBUTES.ATTRIBUTE26%type,
220 P_ATTRIBUTE27 in BNE_ATTRIBUTES.ATTRIBUTE27%type,
221 P_ATTRIBUTE28 in BNE_ATTRIBUTES.ATTRIBUTE28%type,
222 P_ATTRIBUTE29 in BNE_ATTRIBUTES.ATTRIBUTE29%type,
223 P_ATTRIBUTE30 in BNE_ATTRIBUTES.ATTRIBUTE30%type )
224
225 RETURN BNE_ATTRIBUTES.ATTRIBUTE_CODE%type as VN_KEY BNE_ATTRIBUTES.ATTRIBUTE_CODE%type;
226
227 VN_OBJECT_VERSION_NUM BNE_ATTRIBUTES.OBJECT_VERSION_NUMBER%type;
228 VV_ATTRIBUTE_CODE BNE_ATTRIBUTES.ATTRIBUTE_CODE%type;
229
230 BEGIN
231
232 -- defaults
233
234 VN_OBJECT_VERSION_NUM := 1;
235
236 -- code has to be in uppercase to be part of key
237 VV_ATTRIBUTE_CODE := UPPER(P_ATTRIBUTE_CODE);
238
239 -- create a key
240 VN_KEY := P_APPLICATION_ID || ':' || VV_ATTRIBUTE_CODE;
241
242 INSERT INTO BNE_ATTRIBUTES ( APPLICATION_ID,
243 ATTRIBUTE_CODE,
244 OBJECT_VERSION_NUMBER,
245 ATTRIBUTE1,
246 ATTRIBUTE2,
247 ATTRIBUTE3,
248 ATTRIBUTE4,
249 ATTRIBUTE5,
250 ATTRIBUTE6,
251 ATTRIBUTE7,
252 ATTRIBUTE8,
253 ATTRIBUTE9,
254 ATTRIBUTE10,
255 ATTRIBUTE11,
256 ATTRIBUTE12,
257 ATTRIBUTE13,
258 ATTRIBUTE14,
259 ATTRIBUTE15,
260 ATTRIBUTE16,
261 ATTRIBUTE17,
262 ATTRIBUTE18,
263 ATTRIBUTE19,
264 ATTRIBUTE20,
265 ATTRIBUTE21,
266 ATTRIBUTE22,
267 ATTRIBUTE23,
268 ATTRIBUTE24,
269 ATTRIBUTE25,
270 ATTRIBUTE26,
271 ATTRIBUTE27,
272 ATTRIBUTE28,
273 ATTRIBUTE29,
274 ATTRIBUTE30,
275 LAST_UPDATE_DATE,
276 LAST_UPDATED_BY,
277 CREATION_DATE,
278 CREATED_BY,
279 LAST_UPDATE_LOGIN)
280
281 VALUES (P_APPLICATION_ID, P_ATTRIBUTE_CODE, VN_OBJECT_VERSION_NUM, P_ATTRIBUTE1, P_ATTRIBUTE2, P_ATTRIBUTE3,
282 P_ATTRIBUTE4 ,P_ATTRIBUTE5 , P_ATTRIBUTE6 ,P_ATTRIBUTE7 ,P_ATTRIBUTE8 ,P_ATTRIBUTE9,
283 P_ATTRIBUTE10,P_ATTRIBUTE11,P_ATTRIBUTE12,P_ATTRIBUTE13,P_ATTRIBUTE14 ,P_ATTRIBUTE15,
284 P_ATTRIBUTE16,P_ATTRIBUTE17,P_ATTRIBUTE18,P_ATTRIBUTE19,P_ATTRIBUTE20,P_ATTRIBUTE21,
285 P_ATTRIBUTE22,P_ATTRIBUTE23,P_ATTRIBUTE24,P_ATTRIBUTE25 ,P_ATTRIBUTE26 ,P_ATTRIBUTE27,
286 P_ATTRIBUTE28,P_ATTRIBUTE29,P_ATTRIBUTE30, SYSDATE,FND_GLOBAL.USER_ID,SYSDATE, FND_GLOBAL.USER_ID, NULL );
287
288 END CREATE_ATTRIBUTES;
289
290
291
292 --------------------------------------------------------------------------------
293 -- FUNCTION: CREATE_ATTRIBUTES_MINIMAL --
294 -- --
295 -- DESCRIPTION: Inserts 10 ATTRIBUTES into BNE_ATTRIBUTES --
296 -- Uses FND_GLOBAL.RESP_APPL_ID for the APPLICATION_ID --
297 -- --
298 -- PARAMETERS: P_ATTRIBUTE_ID = BNE_ATTRIBUTES.ATTRIBUTE_ID --
299 -- P_ATTRIBUTE1 = BNE_ATTRIBUTES.ATTRIBUTE1 --
300 -- to --
301 -- P_ATTRIBUTE10 = BNE_ATTRIBUTES.ATTRIBUTE10 --
302 -- --
303 -- RETURN: attribute key. E.g. 101:CODE --
307 -- Date Username Description --
304 -- --
305 -- --
306 -- MODIFICATION HISTORY --
308 -- 8-May-02 KDOBINSO CREATED --
309 -- 7-Oct-02 KDOBINSO UPDATED FOR WEB ADI REPOSITORY CHANGE --
310 --------------------------------------------------------------------------------
311
312 FUNCTION CREATE_ATTRIBUTES_MINIMAL (P_ATTRIBUTE_CODE in BNE_ATTRIBUTES.ATTRIBUTE_CODE%type,
313 P_ATTRIBUTE1 in BNE_ATTRIBUTES.ATTRIBUTE1%type,
314 P_ATTRIBUTE2 in BNE_ATTRIBUTES.ATTRIBUTE2%type,
315 P_ATTRIBUTE3 in BNE_ATTRIBUTES.ATTRIBUTE3%type,
316 P_ATTRIBUTE4 in BNE_ATTRIBUTES.ATTRIBUTE4%type,
317 P_ATTRIBUTE5 in BNE_ATTRIBUTES.ATTRIBUTE5%type,
318 P_ATTRIBUTE6 in BNE_ATTRIBUTES.ATTRIBUTE6%type,
319 P_ATTRIBUTE7 in BNE_ATTRIBUTES.ATTRIBUTE7%type,
320 P_ATTRIBUTE8 in BNE_ATTRIBUTES.ATTRIBUTE8%type,
321 P_ATTRIBUTE9 in BNE_ATTRIBUTES.ATTRIBUTE9%type,
322 P_ATTRIBUTE10 in BNE_ATTRIBUTES.ATTRIBUTE10%type )
323
324 RETURN BNE_ATTRIBUTES.ATTRIBUTE_CODE%type as VN_KEY BNE_ATTRIBUTES.ATTRIBUTE_CODE%type;
325
326 BEGIN
327
328 VN_KEY := CREATE_ATTRIBUTES(FND_GLOBAL.RESP_APPL_ID, P_ATTRIBUTE_CODE,P_ATTRIBUTE1, P_ATTRIBUTE2, P_ATTRIBUTE3, P_ATTRIBUTE4,
329 P_ATTRIBUTE5 ,P_ATTRIBUTE6 , P_ATTRIBUTE7 ,P_ATTRIBUTE8,P_ATTRIBUTE9,P_ATTRIBUTE10,
330 NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,
331 NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL);
332
333 RETURN (VN_KEY);
334
335 END CREATE_ATTRIBUTES_MINIMAL;
336
337
338 --------------------------------------------------------------------------------------
339 -- FUNCTION: CREATE_LIST_ITEMS_ALL --
340 -- --
341 -- DESCRIPTION: Inserts into BNE_PARAM_LIST_ITEMS --
342 -- --
343 -- PARAMETERS: P_APPLICATION_ID = BNE_PARAM_LIST_ITEMS.APPLICATION_ID --
344 -- P_PARAM_LIST_CODE = BNE_PARAM_LIST_ITEMS.PARAM_LIST_CODE --
345 -- P_PARAM_DEFN_APP_ID = BNE_PARAM_LIST_ITEMS.PARAM_DEFN_APP_ID --
346 -- P_PARAM_DEFN_CODE = BNE_PARAM_LIST_ITEMS.PARAM_DEFN_CODE --
347 -- P_PARAM_NAME = BNE_PARAM_LIST_ITEMS.PARAM_NAME --
348 -- P_ATTRIBUTE_APP_ID = BNE_PARAM_LIST_ITEMS.ATTRIBUTE_APP_ID --
349 -- P_ATTRIBUTE_CODE = BNE_PARAM_LIST_ITEMS.ATTRIBUTE_CODE --
350 -- P_STRING_VAL = BNE_PARAM_LIST_ITEMS.STRING_VALUE --
351 -- P_DATE_VAL = BNE_PARAM_LIST_ITEMS.DATE_VALUE --
352 -- P_NUMBER_VAL = BNE_PARAM_LIST_ITEMS.NUMBER_VALUE --
353 -- P_BOOLEAN_VAL = BNE_PARAM_LIST_ITEMS.BOOLEAN_VALUE_FLAG --
354 -- P_FORMULA = BNE_PARAM_LIST_ITEMS.FORMULA_VALUE --
355 -- P_DESC_VAL = BNE_PARAM_LIST_ITEMS.DESC_VALUE --
356 -- --
357 -- RETURN: sequence number of item --
358 -- --
359 -- MODIFICATION HISTORY --
360 -- Date Username Description --
361 -- 8-May-02 KDOBINSO CREATED --
362 -- 7-Oct-02 KDOBINSO UPDATED FOR WEB ADI REPOSITORY CHANGE --
363 --------------------------------------------------------------------------------------
364
365
366 FUNCTION CREATE_LIST_ITEMS_ALL (P_APPLICATION_ID in BNE_PARAM_LIST_ITEMS.APPLICATION_ID%type,
367 P_PARAM_LIST_CODE in BNE_PARAM_LIST_ITEMS.PARAM_LIST_CODE%type,
368 P_PARAM_DEFN_APP_ID in BNE_PARAM_LIST_ITEMS.PARAM_DEFN_APP_ID%type,
369 P_PARAM_DEFN_CODE in BNE_PARAM_LIST_ITEMS.PARAM_DEFN_CODE%type,
370 P_PARAM_NAME in BNE_PARAM_LIST_ITEMS.PARAM_NAME%type,
371 P_ATTRIBUTE_APP_ID in BNE_PARAM_LIST_ITEMS.ATTRIBUTE_APP_ID%type,
372 P_ATTRIBUTE_CODE in BNE_PARAM_LIST_ITEMS.ATTRIBUTE_CODE%type,
373 P_STRING_VAL in BNE_PARAM_LIST_ITEMS.STRING_VALUE%type,
374 P_DATE_VAL in BNE_PARAM_LIST_ITEMS.DATE_VALUE%type,
375 P_NUMBER_VAL in BNE_PARAM_LIST_ITEMS.NUMBER_VALUE%type,
376 P_BOOLEAN_VAL in BNE_PARAM_LIST_ITEMS.BOOLEAN_VALUE_FLAG%type,
377 P_FORMULA in BNE_PARAM_LIST_ITEMS.FORMULA_VALUE%type,
378 P_DESC_VAL in BNE_PARAM_LIST_ITEMS.DESC_VALUE %type )
379
380 RETURN BNE_PARAM_LIST_ITEMS.SEQUENCE_NUM%type AS VN_SEQ_NUM BNE_PARAM_LIST_ITEMS.SEQUENCE_NUM%type;
381
382 VN_OBJECT_VERSION_NUM BNE_PARAM_LIST_ITEMS.OBJECT_VERSION_NUMBER%type;
383 VN_LIST_KEY BNE_PARAM_LIST_ITEMS.PARAM_LIST_CODE%type;
384 VV_LIST_CODE BNE_PARAM_LIST_ITEMS.PARAM_LIST_CODE%type;
385 BEGIN
386 --default value
387 VN_OBJECT_VERSION_NUM := 1;
388
389 VV_LIST_CODE := UPPER(P_PARAM_LIST_CODE);
390
391 -- create the key
392 VN_LIST_KEY := P_APPLICATION_ID || ':' || VV_LIST_CODE;
393
394 VN_SEQ_NUM := GET_NEXT_ITEM_SEQ(P_APPLICATION_ID , VV_LIST_CODE);
398 INSERT INTO BNE_PARAM_LIST_ITEMS ( APPLICATION_ID,
395
396 --dbms_output.put_line('BNE_PARAMETER_UTILS. Seq Num is ' || VN_SEQ_NUM);
397
399 PARAM_LIST_CODE,
400 SEQUENCE_NUM,
401 OBJECT_VERSION_NUMBER,
402 PARAM_DEFN_APP_ID,
403 PARAM_DEFN_CODE,
404 PARAM_NAME ,
405 ATTRIBUTE_APP_ID,
406 ATTRIBUTE_CODE,
407 STRING_VALUE,
408 DATE_VALUE,
409 NUMBER_VALUE,
410 BOOLEAN_VALUE_FLAG ,
411 FORMULA_VALUE,
412 DESC_VALUE ,
413 LAST_UPDATE_DATE,
414 LAST_UPDATED_BY,
415 CREATION_DATE,
416 CREATED_BY,
417 LAST_UPDATE_LOGIN )
418 VALUES (P_APPLICATION_ID,
419 VV_LIST_CODE,
420 VN_SEQ_NUM,
421 VN_OBJECT_VERSION_NUM,
422 P_PARAM_DEFN_APP_ID,
423 P_PARAM_DEFN_CODE,
424 P_PARAM_NAME,
425 P_ATTRIBUTE_APP_ID,
426 P_ATTRIBUTE_CODE,
427 P_STRING_VAL,
428 P_DATE_VAL,
429 P_NUMBER_VAL ,
430 P_BOOLEAN_VAL ,
431 P_FORMULA ,
432 P_DESC_VAL ,
433 SYSDATE,
434 FND_GLOBAL.USER_ID,
435 SYSDATE,
436 FND_GLOBAL.USER_ID,
437 NULL );
438
439
440 RETURN (VN_SEQ_NUM);
441
442
443
444 END CREATE_LIST_ITEMS_ALL;
445
446 ------------------------------------------------------------------------------------------
447 -- FUNCTION: CREATE_LIST_ITEMS_MINIMAL --
448 -- --
449 -- DESCRIPTION: Inserts into BNE_PARAM_LIST_ITEMS --
450 -- APPLICATION_ID = FND_GLOBAL.RESP_APPL_ID --
451 -- --
452 -- PARAMETERS: P_PARAM_LIST_CODE = BNE_PARAM_LIST_ITEMS.PARAM_LIST_CODE --
453 -- P_PARAM_DEFN_APP_ID = BNE_PARAM_LIST_ITEMS.PARAM_DEFN_APP_ID --
454 -- P_PARAM_DEFN_CODE = BNE_PARAM_LIST_ITEMS.PARAM_DEFN_CODE --
455 -- P_PARAM_NAME = BNE_PARAM_LIST_ITEMS.PARAM_NAME --
456 -- P_STRING_VAL = BNE_PARAM_LIST_ITEMS.STRING_VALUE --
457 -- P_DATE_VAL = BNE_PARAM_LIST_ITEMS.DATE_VALUE --
458 -- P_NUMBER_VAL = BNE_PARAM_LIST_ITEMS.NUMBER_VALUE --
459 -- P_BOOLEAN_VAL = BNE_PARAM_LIST_ITEMS.BOOLEAN_VALUE_FLAG --
460 -- P_DESC_VAL = BNE_PARAM_LIST_ITEMS.DESC_VALUE --
461 -- --
462 -- RETURN: sequence number of item --
463 -- --
464 -- MODIFICATION HISTORY --
465 -- Date Username Description --
466 -- 8-May-02 KDOBINSO CREATED --
467 -- 7-Oct-02 KDOBINSO UPDATED FOR WEB ADI REPOSITORY CHANGE --
468 ------------------------------------------------------------------------------------------
469
470
471 FUNCTION CREATE_LIST_ITEMS_MINIMAL(P_PARAM_LIST_CODE in BNE_PARAM_LIST_ITEMS.PARAM_LIST_CODE%type,
472 P_PARAM_DEFN_APP_ID in BNE_PARAM_LIST_ITEMS.PARAM_DEFN_APP_ID%type,
473 P_PARAM_DEFN_CODE in BNE_PARAM_LIST_ITEMS.PARAM_DEFN_CODE%type,
474 P_PARAM_NAME in BNE_PARAM_LIST_ITEMS.PARAM_NAME%type,
475 P_STRING_VAL in BNE_PARAM_LIST_ITEMS.STRING_VALUE%type,
476 P_DATE_VAL in BNE_PARAM_LIST_ITEMS.DATE_VALUE%type,
477 P_NUMBER_VAL in BNE_PARAM_LIST_ITEMS.NUMBER_VALUE%type,
478 P_BOOLEAN_VAL in BNE_PARAM_LIST_ITEMS.BOOLEAN_VALUE_FLAG%type,
479 P_DESC_VAL in BNE_PARAM_LIST_ITEMS.DESC_VALUE %type )
480
481 RETURN BNE_PARAM_LIST_ITEMS.SEQUENCE_NUM%type AS VN_SEQ_NUM BNE_PARAM_LIST_ITEMS.SEQUENCE_NUM%type;
482
483 VN_LIST_KEY BNE_PARAM_LIST_ITEMS.PARAM_LIST_CODE%type;
484
485 BEGIN
486
487 VN_SEQ_NUM := CREATE_LIST_ITEMS_ALL(FND_GLOBAL.RESP_APPL_ID, P_PARAM_LIST_CODE, P_PARAM_DEFN_APP_ID,
488 P_PARAM_DEFN_CODE, P_PARAM_NAME, NULL, NULL, P_STRING_VAL,P_DATE_VAL,
489 P_NUMBER_VAL, P_BOOLEAN_VAL, NULL, P_DESC_VAL);
490
491 RETURN (VN_SEQ_NUM);
492
493
494 END CREATE_LIST_ITEMS_MINIMAL;
495
496
497 --------------------------------------------------------------------------------
498 -- FUNCTION: GET_PARAM_DEFNS_B --
499 -- --
500 -- DESCRIPTION: For a parameter name that is given, returns its KEY --
501 -- Has to be unique --
502 -- --
503 -- PARAMETERS: P_PARAM_DEFN_ID = BNE_PARAM_DEFN.PARAM_NAME --
504 -- P_PARAM_SOURCE = BNE_PARAM_DEFN.PARAM_SOURCE --
505 -- --
506 -- RETURN: parameter KEY. If not found returns NULL --
507 -- --
511 -- 7-Oct-02 KDOBINSO UPDATED FOR WEB ADI REPOSITORY CHANGE --
508 -- MODIFICATION HISTORY --
509 -- Date Username Description --
510 -- 8-May-02 KDOBINSO CREATED --
512 --------------------------------------------------------------------------------
513
514
515 FUNCTION GET_PARAM_DEFN_ID (P_APPLICATION_ID in BNE_PARAM_DEFNS_B.APPLICATION_ID%type,
516 P_PARAM_DEFN_NAME in BNE_PARAM_DEFNS_B.PARAM_NAME%type,
517 P_PARAM_SOURCE in BNE_PARAM_DEFNS_B.PARAM_SOURCE%type )
518 RETURN BNE_PARAM_DEFNS_B.PARAM_DEFN_CODE%type AS VV_DEFN_KEY BNE_PARAM_DEFNS_B.PARAM_DEFN_CODE%type;
519
520 VN_APPLICATION_ID BNE_PARAM_DEFNS_B.APPLICATION_ID%type;
521 VV_DEFN_CODE BNE_PARAM_DEFNS_B.PARAM_DEFN_CODE%type;
522 BEGIN
523
524 --dbms_output.put_line('Param Defn Name is ' || P_PARAM_DEFN_NAME);
525 --dbms_output.put_line('Param Source is ' || P_PARAM_SOURCE);
526
527 SELECT APPLICATION_ID, PARAM_DEFN_CODE
528 INTO VN_APPLICATION_ID, VV_DEFN_CODE
529 FROM BNE_PARAM_DEFNS_B
530 WHERE PARAM_NAME = P_PARAM_DEFN_NAME
531 AND PARAM_SOURCE = P_PARAM_SOURCE
532 AND APPLICATION_ID = P_APPLICATION_ID;
533
534
535 VV_DEFN_KEY := VN_APPLICATION_ID || ':' || VV_DEFN_CODE;
536
537 --dbms_output.put_line('Param Defn is ' || VV_DEFN_KEY);
538
539 RETURN VV_DEFN_KEY;
540
541 EXCEPTION
542 WHEN NO_DATA_FOUND THEN
543 VV_DEFN_KEY := NULL;
544 RETURN VV_DEFN_KEY;
545
546 END GET_PARAM_DEFN_ID;
547
548
549
550 ------------------------------------------------------------------------------------
551 -- FUNCTION: CREATE_PARAM_ALL --
552 -- --
553 -- DESCRIPTION: Create a parameter. Inserts into BNE_PARAM_DEFNS_B/_TL --
554 -- --
555 -- --
556 -- PARAMETERS: all columns in BNE_PARAM_DEFNS_B/_TL --
557 -- --
558 -- RETURN: parameter KEY. --
559 -- --
560 -- MODIFICATION HISTORY --
561 -- Date Username Description --
562 -- 8-May-02 KDOBINSO CREATED --
563 -- 7-Oct-02 KDOBINSO UPDATED FOR WEB ADI REPOSITORY CHANGE --
564 ------------------------------------------------------------------------------------
565
566
567 FUNCTION CREATE_PARAM_ALL( P_APPLICATION_ID in BNE_PARAM_DEFNS_B.APPLICATION_ID%type,
568 P_PARAM_CODE in BNE_PARAM_DEFNS_B.PARAM_DEFN_CODE%type,
569 P_PARAM_NAME in BNE_PARAM_DEFNS_B.PARAM_NAME%type,
570 P_PARAM_SOURCE in BNE_PARAM_DEFNS_B.PARAM_SOURCE%type,
571 P_CATEGORY in BNE_PARAM_DEFNS_B.PARAM_CATEGORY%type,
572 P_DATA_TYPE in BNE_PARAM_DEFNS_B.DATATYPE%type,
573 P_ATTRIBUTE_APP_ID in BNE_PARAM_DEFNS_B.ATTRIBUTE_APP_ID%type,
574 P_ATTRIBUTE_CODE in BNE_PARAM_DEFNS_B.ATTRIBUTE_CODE%type,
575 P_PARAM_RESOLVER in BNE_PARAM_DEFNS_B.PARAM_RESOLVER%type,
576 P_REQUIRED in BNE_PARAM_DEFNS_B.DEFAULT_REQUIRED_FLAG%type,
577 P_VISIBLE in BNE_PARAM_DEFNS_B.DEFAULT_VISIBLE_FLAG%type,
578 P_MODIFYABLE in BNE_PARAM_DEFNS_B.DEFAULT_USER_MODIFYABLE_FLAG%type,
579 P_DEFAULT_STRING in BNE_PARAM_DEFNS_B.DEFAULT_STRING%type,
580 P_DEFAULT_DATE in BNE_PARAM_DEFNS_B.DEFAULT_DATE%type,
581 P_DEFAULT_NUM in BNE_PARAM_DEFNS_B.DEFAULT_NUMBER%type,
582 P_DEFAULT_BOOLEAN in BNE_PARAM_DEFNS_B.DEFAULT_BOOLEAN_FLAG%type,
583 P_DEFAULT_FORMULA in BNE_PARAM_DEFNS_B.DEFAULT_FORMULA%type,
584 P_VAL_TYPE in BNE_PARAM_DEFNS_B.VAL_TYPE%type,
585 P_VAL_VALUE in BNE_PARAM_DEFNS_B.VAL_VALUE%type,
586 P_MAXIMUM_SIZE in BNE_PARAM_DEFNS_B.MAX_SIZE%type,
587 P_DISPLAY_TYPE in BNE_PARAM_DEFNS_B.DISPLAY_TYPE%type,
588 P_DISPLAY_STYLE in BNE_PARAM_DEFNS_B.DISPLAY_STYLE%type,
589 P_DISPLAY_SIZE in BNE_PARAM_DEFNS_B.DISPLAY_SIZE%type,
590 P_HELP_URL in BNE_PARAM_DEFNS_B.HELP_URL%type,
591 P_FORMAT_MASK in BNE_PARAM_DEFNS_B.FORMAT_MASK%type,
592 P_DEFAULT_DESC in BNE_PARAM_DEFNS_TL.DEFAULT_DESC%type,
593 P_PROMPT_LEFT in BNE_PARAM_DEFNS_TL.PROMPT_LEFT%type,
594 P_PROMPT_ABOVE in BNE_PARAM_DEFNS_TL.PROMPT_ABOVE%type,
595 P_USER_NAME in BNE_PARAM_DEFNS_TL.USER_NAME%type,
596 P_USER_TIP in BNE_PARAM_DEFNS_TL.USER_TIP%type,
597 P_ACCESS_KEY in BNE_PARAM_DEFNS_TL.ACCESS_KEY%type)
598 RETURN BNE_PARAM_DEFNS_B.PARAM_DEFN_CODE%type AS VV_KEY BNE_PARAM_DEFNS_B.PARAM_DEFN_CODE%type;
599
600 VN_OBJECT_VERSION_NUM BNE_PARAM_DEFNS_B.OBJECT_VERSION_NUMBER%type;
601
602 BEGIN
603 --default values
604
605 VN_OBJECT_VERSION_NUM := 1;
606
607 --dbms_output.put_line('BNE_PARAMETER_UTILS.CREATE_PARAM_ALL. KEY is ' || P_APPLICATION_ID || ':' || P_PARAM_CODE);
608
609
610 VV_KEY := P_APPLICATION_ID || ':' || P_PARAM_CODE;
611
612
613 INSERT INTO BNE_PARAM_DEFNS_B ( APPLICATION_ID,
614 PARAM_DEFN_CODE,
615 OBJECT_VERSION_NUMBER,
619 DATATYPE,
616 PARAM_NAME ,
617 PARAM_SOURCE,
618 PARAM_CATEGORY,
620 ATTRIBUTE_APP_ID,
621 ATTRIBUTE_CODE,
622 PARAM_RESOLVER,
623 DEFAULT_REQUIRED_FLAG,
624 DEFAULT_VISIBLE_FLAG,
625 DEFAULT_USER_MODIFYABLE_FLAG,
626 DEFAULT_STRING,
627 DEFAULT_DATE,
628 DEFAULT_NUMBER,
629 DEFAULT_BOOLEAN_FLAG,
630 DEFAULT_FORMULA,
631 VAL_TYPE,
632 VAL_VALUE,
633 MAX_SIZE,
634 DISPLAY_TYPE,
635 DISPLAY_STYLE,
636 DISPLAY_SIZE,
637 HELP_URL,
638 FORMAT_MASK,
639 LAST_UPDATE_DATE,
640 LAST_UPDATED_BY,
641 CREATION_DATE,
642 CREATED_BY,
643 LAST_UPDATE_LOGIN )
644 VALUES (P_APPLICATION_ID,
645 P_PARAM_CODE,
646 VN_OBJECT_VERSION_NUM,
647 P_PARAM_NAME,
648 P_PARAM_SOURCE,
649 P_CATEGORY,
650 P_DATA_TYPE,
651 P_ATTRIBUTE_APP_ID,
652 P_ATTRIBUTE_CODE,
653 P_PARAM_RESOLVER,
654 P_REQUIRED,
655 P_VISIBLE,
656 P_MODIFYABLE,
657 P_DEFAULT_STRING,
658 P_DEFAULT_DATE,
659 P_DEFAULT_NUM,
660 P_DEFAULT_BOOLEAN,
661 P_DEFAULT_FORMULA,
662 P_VAL_TYPE,
663 P_VAL_VALUE,
664 P_MAXIMUM_SIZE,
665 P_DISPLAY_TYPE,
666 P_DISPLAY_STYLE,
667 P_DISPLAY_SIZE,
668 P_HELP_URL,
669 P_FORMAT_MASK,
670 SYSDATE,
671 FND_GLOBAL.USER_ID,
672 SYSDATE,
673 FND_GLOBAL.USER_ID,
674 NULL );
675
676
677 INSERT INTO BNE_PARAM_DEFNS_TL ( APPLICATION_ID,
678 PARAM_DEFN_CODE,
679 LANGUAGE,
680 SOURCE_LANG,
681 DEFAULT_STRING,
682 DEFAULT_DESC,
683 PROMPT_LEFT,
684 PROMPT_ABOVE,
685 USER_NAME,
686 USER_TIP,
687 ACCESS_KEY,
688 LAST_UPDATE_DATE,
689 LAST_UPDATED_BY,
690 CREATION_DATE,
691 CREATED_BY,
692 LAST_UPDATE_LOGIN )
693 VALUES (P_APPLICATION_ID,
694 P_PARAM_CODE,
695 FND_GLOBAL.CURRENT_LANGUAGE,
696 FND_GLOBAL.CURRENT_LANGUAGE,
697 P_DEFAULT_STRING,
698 P_DEFAULT_DESC,
699 P_PROMPT_LEFT,
700 P_PROMPT_ABOVE,
701 P_USER_NAME,
702 P_USER_TIP,
703 P_ACCESS_KEY,
704 SYSDATE,
705 FND_GLOBAL.USER_ID,
706 SYSDATE,
707 FND_GLOBAL.USER_ID,
708 NULL );
709 RETURN (VV_KEY);
710
711 END CREATE_PARAM_ALL;
712
713
714
715
716 --------------------------------------------------------------------------------
717 -- FUNCTION: CREATE_PARAM_MINIMAL --
718 -- --
719 -- DESCRIPTION: Create a parameter. Inserts into BNE_PARAM_DEFN/_TL --
720 -- Parameters are the not NULL values for these tables --
721 -- APPLICATION_ID = FND_GLOBAL.RESP_APPL_ID --
722 -- PARAMETERS: not NULL columns in BNE_PARAM_DEFN/_TL --
723 -- --
724 -- RETURN: parameter name --
725 -- --
726 -- MODIFICATION HISTORY --
727 -- Date Username Description --
728 -- 8-May-02 KDOBINSO CREATED --
729 -- 7-Oct-02 KDOBINSO UPDATED FOR WEB ADI REPOSITORY CHANGE --
730 --------------------------------------------------------------------------------
731
732 FUNCTION CREATE_PARAM_MINIMAL ( P_PARAM_CODE in BNE_PARAM_DEFNS_B.PARAM_DEFN_CODE%type,
733 P_PARAM_NAME in BNE_PARAM_DEFNS_B.PARAM_NAME%type,
734 P_PARAM_SOURCE in BNE_PARAM_DEFNS_B.PARAM_SOURCE%type,
735 P_CATEGORY in BNE_PARAM_DEFNS_B.PARAM_CATEGORY%type,
736 P_DATA_TYPE in BNE_PARAM_DEFNS_B.DATATYPE%type,
737 P_REQUIRED in BNE_PARAM_DEFNS_B.DEFAULT_REQUIRED_FLAG%type,
738 P_VISIBLE in BNE_PARAM_DEFNS_B.DEFAULT_VISIBLE_FLAG%type,
739 P_MODIFYABLE in BNE_PARAM_DEFNS_B.DEFAULT_USER_MODIFYABLE_FLAG%type,
740 P_DEFAULT_STRING in BNE_PARAM_DEFNS_B.DEFAULT_STRING%type,
741 P_DEFAULT_DATE in BNE_PARAM_DEFNS_B.DEFAULT_DATE%type,
742 P_DEFAULT_NUM in BNE_PARAM_DEFNS_B.DEFAULT_NUMBER%type,
743 P_DEFAULT_BOOLEAN in BNE_PARAM_DEFNS_B.DEFAULT_BOOLEAN_FLAG%type,
744 P_VAL_TYPE in BNE_PARAM_DEFNS_B.VAL_TYPE%type,
745 P_MAXIMUM_SIZE in BNE_PARAM_DEFNS_B.MAX_SIZE%type,
746 P_DISPLAY_TYPE in BNE_PARAM_DEFNS_B.DISPLAY_TYPE%type,
747 P_DISPLAY_STYLE in BNE_PARAM_DEFNS_B.DISPLAY_STYLE%type,
748 P_DISPLAY_SIZE in BNE_PARAM_DEFNS_B.DISPLAY_SIZE%type,
749 P_USER_NAME in BNE_PARAM_DEFNS_TL.USER_NAME%type)
750
751 RETURN BNE_PARAM_DEFNS_B.PARAM_DEFN_CODE%type AS VN_KEY BNE_PARAM_DEFNS_B.PARAM_DEFN_CODE%type;
752
753 BEGIN
754
755 VN_KEY := CREATE_PARAM_ALL( FND_GLOBAL.RESP_APPL_ID, P_PARAM_CODE,P_PARAM_NAME,P_PARAM_SOURCE,P_CATEGORY,P_DATA_TYPE,NULL,
756 NULL,NULL, P_REQUIRED,P_VISIBLE,P_MODIFYABLE,P_DEFAULT_STRING,P_DEFAULT_DATE,P_DEFAULT_NUM,P_DEFAULT_BOOLEAN,NULL,P_VAL_TYPE,
757 NULL,P_MAXIMUM_SIZE,P_DISPLAY_TYPE,P_DISPLAY_STYLE,P_DISPLAY_SIZE,NULL,NULL,NULL,NULL,NULL,
758 P_USER_NAME,NULL,NULL);
759
760 RETURN (VN_KEY);
761
762 END CREATE_PARAM_MINIMAL;
763
764
765
766
767 --------------------------------------------------------------------------------
768 -- FUNCTION: GET_NEXT_ITEM_SEQ --
769 -- --
770 -- DESCRIPTION: For a parameter list you can add items. Gets the --
771 -- next seq number --
772 -- --
773 -- PARAMETERS: parameter list id --
774 -- --
775 -- RETURN: seq number or 1 if new list --
776 -- --
777 -- MODIFICATION HISTORY --
778 -- Date Username Description --
779 -- 8-May-02 KDOBINSO CREATED --
780 -- 7-Oct-02 KDOBINSO UPDATED FOR WEB ADI REPOSITORY CHANGE --
781 --------------------------------------------------------------------------------
782
783
784 FUNCTION GET_NEXT_ITEM_SEQ ( P_APPLICATION_ID in BNE_PARAM_LIST_ITEMS.APPLICATION_ID%type,
785 P_PARAM_LIST_CODE in BNE_PARAM_LIST_ITEMS.PARAM_LIST_CODE%type)
786 RETURN BNE_PARAM_LIST_ITEMS.SEQUENCE_NUM%type AS VN_SEQ_NUM BNE_PARAM_LIST_ITEMS.SEQUENCE_NUM%type;
787
788
789 BEGIN
790 SELECT MAX(SEQUENCE_NUM)
791 INTO VN_SEQ_NUM
792 FROM BNE_PARAM_LIST_ITEMS
793 WHERE PARAM_LIST_CODE = P_PARAM_LIST_CODE
794 AND APPLICATION_ID = P_APPLICATION_ID;
795
796
797 IF(VN_SEQ_NUM IS NOT NULL) THEN
798 VN_SEQ_NUM := VN_SEQ_NUM +1;
799 ELSE
800 VN_SEQ_NUM := 1;
801 END IF;
802
803
804 RETURN (VN_SEQ_NUM);
805
806 EXCEPTION
807 WHEN NO_DATA_FOUND THEN
808 VN_SEQ_NUM := 1;
809 RETURN (VN_SEQ_NUM);
810
811 END GET_NEXT_ITEM_SEQ;
812
813
814
815 END BNE_PARAMETER_UTILS;