[Home] [Help]
Skip to content
PACKAGE BODY: APPS.PON_NEG_STYLES_TL_PKG
Source
1 PACKAGE BODY pon_neg_styles_tl_pkg AS
2 /* $Header: PONSTYLB.pls 120.8 2010/10/26 00:48:55 atjen ship $ */
3
4 PROCEDURE insert_row (
5 p_style_id IN pon_negotiation_styles.style_id%TYPE
6 ,p_status IN pon_negotiation_styles.status%TYPE
7 ,p_system_flag IN pon_negotiation_styles.system_flag%TYPE
8 ,p_line_attribute_enabled_flag IN pon_negotiation_styles.line_attribute_enabled_flag%TYPE
9 ,p_line_mas_enabled_flag IN pon_negotiation_styles.line_mas_enabled_flag%TYPE
10 ,p_price_element_enabled_flag IN pon_negotiation_styles.price_element_enabled_flag%TYPE
11 ,p_rfi_line_enabled_flag IN pon_negotiation_styles.rfi_line_enabled_flag%TYPE
12 ,p_lot_enabled_flag IN pon_negotiation_styles.lot_enabled_flag%TYPE
13 ,p_group_enabled_flag IN pon_negotiation_styles.group_enabled_flag%TYPE
14 ,p_large_neg_enabled_flag IN pon_negotiation_styles.large_neg_enabled_flag%TYPE
15 ,p_hdr_attribute_enabled_flag IN pon_negotiation_styles.hdr_attribute_enabled_flag%TYPE
16 ,p_neg_team_enabled_flag IN pon_negotiation_styles.neg_team_enabled_flag%TYPE
17 ,p_proxy_bidding_enabled_flag IN pon_negotiation_styles.proxy_bidding_enabled_flag%TYPE
18 ,p_power_bidding_enabled_flag IN pon_negotiation_styles.power_bidding_enabled_flag%TYPE
19 ,p_auto_extend_enabled_flag IN pon_negotiation_styles.auto_extend_enabled_flag%TYPE
20 ,p_team_scoring_enabled_flag IN pon_negotiation_styles.team_scoring_enabled_flag%TYPE
21 ,p_creation_date IN pon_negotiation_styles.creation_date%TYPE
22 ,p_created_by IN pon_negotiation_styles.created_by%TYPE
23 ,p_last_update_date IN pon_negotiation_styles.last_update_date%TYPE
24 ,p_last_updated_by IN pon_negotiation_styles.last_updated_by%TYPE
25 ,p_last_update_login IN pon_negotiation_styles.last_update_login%TYPE
26 ,p_qty_price_tiers_enabled_flag IN pon_negotiation_styles.qty_price_tiers_enabled_flag%TYPE
27 -------------------------- Supplier Management: Negotiation Styles --------------------------
28 ,p_supp_reg_qual_flag IN pon_negotiation_styles.supp_reg_qual_flag%TYPE
29 ,p_supp_eval_flag IN pon_negotiation_styles.supp_eval_flag%TYPE
30 ,p_hide_terms_flag IN pon_negotiation_styles.hide_terms_flag%TYPE
31 ,p_hide_abstract_forms_flag IN pon_negotiation_styles.hide_abstract_forms_flag%TYPE
32 ,p_hide_attachments_flag IN pon_negotiation_styles.hide_attachments_flag%TYPE
33 ,p_internal_eval_flag IN pon_negotiation_styles.internal_eval_flag%TYPE
34 ,p_hdr_supp_attr_enabled_flag IN pon_negotiation_styles.hdr_supp_attr_enabled_flag%TYPE
35 ,p_intgr_hdr_attr_flag IN pon_negotiation_styles.intgr_hdr_attr_flag%TYPE
36 ,p_intgr_hdr_attach_flag IN pon_negotiation_styles.intgr_hdr_attach_flag%TYPE
37 ,p_line_supp_attr_enabled_flag IN pon_negotiation_styles.line_supp_attr_enabled_flag%TYPE
38 ,p_item_supp_attr_enabled_flag IN pon_negotiation_styles.item_supp_attr_enabled_flag%TYPE
39 ,p_intgr_cat_line_attr_flag IN pon_negotiation_styles.intgr_cat_line_attr_flag%TYPE
40 ,p_intgr_item_line_attr_flag IN pon_negotiation_styles.intgr_item_line_attr_flag%TYPE
41 ,p_intgr_cat_line_asl_flag IN pon_negotiation_styles.intgr_cat_line_asl_flag%TYPE
42 ---------------------------------------------------------------------------------------------
43 ,p_style_name IN pon_negotiation_styles_tl.style_name%TYPE
44 ,p_description IN pon_negotiation_styles_tl.description%TYPE) IS
45
46 BEGIN
47
48 INSERT INTO pon_negotiation_styles
49 (style_id
50 ,status
51 ,system_flag
52 ,line_attribute_enabled_flag
53 ,line_mas_enabled_flag
54 ,price_element_enabled_flag
55 ,rfi_line_enabled_flag
56 ,lot_enabled_flag
57 ,group_enabled_flag
58 ,large_neg_enabled_flag
59 ,hdr_attribute_enabled_flag
60 ,neg_team_enabled_flag
61 ,proxy_bidding_enabled_flag
62 ,power_bidding_enabled_flag
63 ,auto_extend_enabled_flag
64 ,team_scoring_enabled_flag
65 ,creation_date
66 ,created_by
67 ,last_update_date
68 ,last_updated_by
69 ,last_update_login
70 ,qty_price_tiers_enabled_flag
71 ---- Supplier Management: Negotiation Styles ----
72 ,supp_reg_qual_flag
73 ,supp_eval_flag
74 ,hide_terms_flag
75 ,hide_abstract_forms_flag
76 ,hide_attachments_flag
77 ,internal_eval_flag
78 ,hdr_supp_attr_enabled_flag
79 ,intgr_hdr_attr_flag
80 ,intgr_hdr_attach_flag
81 ,line_supp_attr_enabled_flag
82 ,item_supp_attr_enabled_flag
83 ,intgr_cat_line_attr_flag
84 ,intgr_item_line_attr_flag
85 ,intgr_cat_line_asl_flag
86 -------------------------------------------------
87 )
88 VALUES
89 (p_style_id
90 ,p_status
91 ,p_system_flag
92 ,p_line_attribute_enabled_flag
93 ,p_line_mas_enabled_flag
94 ,p_price_element_enabled_flag
95 ,p_rfi_line_enabled_flag
96 ,p_lot_enabled_flag
97 ,p_group_enabled_flag
98 ,p_large_neg_enabled_flag
99 ,p_hdr_attribute_enabled_flag
100 ,p_neg_team_enabled_flag
101 ,p_proxy_bidding_enabled_flag
102 ,p_power_bidding_enabled_flag
103 ,p_auto_extend_enabled_flag
104 ,p_team_scoring_enabled_flag
105 ,p_creation_date
106 ,p_created_by
107 ,p_last_update_date
108 ,p_last_updated_by
109 ,p_last_update_login
110 ,p_qty_price_tiers_enabled_flag
111 ---- Supplier Management: Negotiation Styles ----
112 ,p_supp_reg_qual_flag
113 ,p_supp_eval_flag
114 ,p_hide_terms_flag
115 ,p_hide_abstract_forms_flag
116 ,p_hide_attachments_flag
117 ,p_internal_eval_flag
118 ,p_hdr_supp_attr_enabled_flag
119 ,p_intgr_hdr_attr_flag
120 ,p_intgr_hdr_attach_flag
121 ,p_line_supp_attr_enabled_flag
122 ,p_item_supp_attr_enabled_flag
123 ,p_intgr_cat_line_attr_flag
124 ,p_intgr_item_line_attr_flag
125 ,p_intgr_cat_line_asl_flag
126 -------------------------------------------------
127 );
128
129 INSERT INTO pon_negotiation_styles_tl
130 (style_id
131 ,style_name
132 ,description
133 ,language
134 ,source_lang
135 ,creation_date
136 ,created_by
137 ,last_update_date
138 ,last_updated_by
139 ,last_update_login)
140 SELECT
141 p_style_id
142 ,p_style_name
143 ,p_description
144 ,l.language_code
145 ,USERENV('LANG')
146 ,p_creation_date
147 ,p_created_by
148 ,p_last_update_date
149 ,p_last_updated_by
150 ,p_last_update_login
151 FROM
152 fnd_languages l
153 WHERE installed_flag in ('I', 'B')
154 AND NOT EXISTS
155 (SELECT NULL
156 FROM pon_negotiation_styles_tl tl
157 WHERE tl.style_id = p_style_id
158 AND tl.language = l.language_code);
159
160 END insert_row;
161
162 PROCEDURE update_row (
163 p_style_id IN pon_negotiation_styles.style_id%TYPE
164 ,p_status IN pon_negotiation_styles.status%TYPE
165 ,p_system_flag IN pon_negotiation_styles.system_flag%TYPE
166 ,p_line_attribute_enabled_flag IN pon_negotiation_styles.line_attribute_enabled_flag%TYPE
167 ,p_line_mas_enabled_flag IN pon_negotiation_styles.line_mas_enabled_flag%TYPE
168 ,p_price_element_enabled_flag IN pon_negotiation_styles.price_element_enabled_flag%TYPE
169 ,p_rfi_line_enabled_flag IN pon_negotiation_styles.rfi_line_enabled_flag%TYPE
170 ,p_lot_enabled_flag IN pon_negotiation_styles.lot_enabled_flag%TYPE
171 ,p_group_enabled_flag IN pon_negotiation_styles.group_enabled_flag%TYPE
172 ,p_large_neg_enabled_flag IN pon_negotiation_styles.large_neg_enabled_flag%TYPE
173 ,p_hdr_attribute_enabled_flag IN pon_negotiation_styles.hdr_attribute_enabled_flag%TYPE
174 ,p_neg_team_enabled_flag IN pon_negotiation_styles.neg_team_enabled_flag%TYPE
175 ,p_proxy_bidding_enabled_flag IN pon_negotiation_styles.proxy_bidding_enabled_flag%TYPE
176 ,p_power_bidding_enabled_flag IN pon_negotiation_styles.power_bidding_enabled_flag%TYPE
177 ,p_auto_extend_enabled_flag IN pon_negotiation_styles.auto_extend_enabled_flag%TYPE
178 ,p_team_scoring_enabled_flag IN pon_negotiation_styles.team_scoring_enabled_flag%TYPE
179 ,p_last_update_date IN pon_negotiation_styles.last_update_date%TYPE
180 ,p_last_updated_by IN pon_negotiation_styles.last_updated_by%TYPE
181 ,p_last_update_login IN pon_negotiation_styles.last_update_login%TYPE
182 ,p_qty_price_tiers_enabled_flag IN pon_negotiation_styles.qty_price_tiers_enabled_flag%TYPE
183 -------------------------- Supplier Management: Negotiation Styles --------------------------
184 ,p_supp_reg_qual_flag IN pon_negotiation_styles.supp_reg_qual_flag%TYPE
185 ,p_supp_eval_flag IN pon_negotiation_styles.supp_eval_flag%TYPE
186 ,p_hide_terms_flag IN pon_negotiation_styles.hide_terms_flag%TYPE
187 ,p_hide_abstract_forms_flag IN pon_negotiation_styles.hide_abstract_forms_flag%TYPE
188 ,p_hide_attachments_flag IN pon_negotiation_styles.hide_attachments_flag%TYPE
189 ,p_internal_eval_flag IN pon_negotiation_styles.internal_eval_flag%TYPE
190 ,p_hdr_supp_attr_enabled_flag IN pon_negotiation_styles.hdr_supp_attr_enabled_flag%TYPE
191 ,p_intgr_hdr_attr_flag IN pon_negotiation_styles.intgr_hdr_attr_flag%TYPE
192 ,p_intgr_hdr_attach_flag IN pon_negotiation_styles.intgr_hdr_attach_flag%TYPE
193 ,p_line_supp_attr_enabled_flag IN pon_negotiation_styles.line_supp_attr_enabled_flag%TYPE
194 ,p_item_supp_attr_enabled_flag IN pon_negotiation_styles.item_supp_attr_enabled_flag%TYPE
195 ,p_intgr_cat_line_attr_flag IN pon_negotiation_styles.intgr_cat_line_attr_flag%TYPE
196 ,p_intgr_item_line_attr_flag IN pon_negotiation_styles.intgr_item_line_attr_flag%TYPE
197 ,p_intgr_cat_line_asl_flag IN pon_negotiation_styles.intgr_cat_line_asl_flag%TYPE
198 ---------------------------------------------------------------------------------------------
199 ,p_style_name IN pon_negotiation_styles_tl.style_name%TYPE
200 ,p_description IN pon_negotiation_styles_tl.description%TYPE) IS
201 BEGIN
202
203 UPDATE pon_negotiation_styles
204 SET status = p_status
205 ,system_flag = p_system_flag
206 ,line_attribute_enabled_flag = p_line_attribute_enabled_flag
207 ,line_mas_enabled_flag = p_line_mas_enabled_flag
208 ,price_element_enabled_flag = p_price_element_enabled_flag
209 ,rfi_line_enabled_flag = p_rfi_line_enabled_flag
210 ,lot_enabled_flag = p_lot_enabled_flag
211 ,group_enabled_flag = p_group_enabled_flag
212 ,large_neg_enabled_flag = p_large_neg_enabled_flag
213 ,hdr_attribute_enabled_flag = p_hdr_attribute_enabled_flag
214 ,neg_team_enabled_flag = p_neg_team_enabled_flag
215 ,proxy_bidding_enabled_flag = p_proxy_bidding_enabled_flag
216 ,power_bidding_enabled_flag = p_power_bidding_enabled_flag
217 ,auto_extend_enabled_flag = p_auto_extend_enabled_flag
218 ,team_scoring_enabled_flag = p_team_scoring_enabled_flag
219 ,last_update_date = p_last_update_date
220 ,last_updated_by = p_last_updated_by
221 ,last_update_login = p_last_update_login
222 ,qty_price_tiers_enabled_flag = p_qty_price_tiers_enabled_flag
223 ---------- Supplier Management: Negotiation Styles -----------
224 ,supp_reg_qual_flag = p_supp_reg_qual_flag
225 ,supp_eval_flag = p_supp_eval_flag
226 ,hide_terms_flag = p_hide_terms_flag
227 ,hide_abstract_forms_flag = p_hide_abstract_forms_flag
228 ,hide_attachments_flag = p_hide_attachments_flag
229 ,internal_eval_flag = p_internal_eval_flag
230 ,hdr_supp_attr_enabled_flag = p_hdr_supp_attr_enabled_flag
231 ,intgr_hdr_attr_flag = p_intgr_hdr_attr_flag
232 ,intgr_hdr_attach_flag = p_intgr_hdr_attach_flag
233 ,line_supp_attr_enabled_flag = p_line_supp_attr_enabled_flag
234 ,item_supp_attr_enabled_flag = p_item_supp_attr_enabled_flag
235 ,intgr_cat_line_attr_flag = p_intgr_cat_line_attr_flag
236 ,intgr_item_line_attr_flag = p_intgr_item_line_attr_flag
237 ,intgr_cat_line_asl_flag = p_intgr_cat_line_asl_flag
238 --------------------------------------------------------------
239 WHERE style_id = p_style_id;
240
241 IF SQL%NOTFOUND
242 THEN
243 RAISE NO_DATA_FOUND;
244 END IF;
245
246
247 UPDATE pon_negotiation_styles_tl
248 SET style_name = p_style_name
249 ,description = p_description
250 ,last_update_date = p_last_update_date
251 ,last_updated_by = p_last_updated_by
252 ,last_update_login = p_last_update_login
253 ,source_lang = userenv('LANG')
254 WHERE style_id = p_style_id
255 AND USERENV('LANG') IN (language, source_lang);
256
257 IF SQL%NOTFOUND
258 THEN
259 RAISE NO_DATA_FOUND;
260 END IF;
261
262 END update_row;
263
264 -- Translate_row is called during NLS translation during FNDLOAD
265
266 PROCEDURE translate_row (
267 p_style_id IN pon_negotiation_styles.style_id%TYPE,
268 p_style_name IN pon_negotiation_styles_tl.style_name%TYPE,
269 p_description IN pon_negotiation_styles_tl.description%TYPE,
270 p_owner IN VARCHAR2,
271 p_custom_mode IN VARCHAR2,
272 p_last_update_date IN VARCHAR2) IS
273
274 f_luby number; -- entity owner in file
275 f_ludate date; -- entity update date in file
276 db_luby number; -- entity owner in db
277 db_ludate date; -- entity update date in db
278
279 BEGIN
280
281
282 f_luby := fnd_load_util.owner_id(p_owner);
283
284 -- Translate char last_update_date to date
285 f_ludate := nvl(to_date(p_last_update_date, 'YYYY/MM/DD'), sysdate);
286
287 select LAST_UPDATED_BY, LAST_UPDATE_DATE
288 into db_luby, db_ludate
289 from pon_negotiation_styles_tl
290 where style_id = p_style_id
291 and userenv('LANG') = LANGUAGE;
292
293
294 UPDATE pon_negotiation_styles_tl
295 SET style_name = p_style_name
296 ,description = p_description
297 ,last_update_date = f_ludate
298 ,last_updated_by = f_luby
299 ,last_update_login = 0
300 ,source_lang = userenv('LANG')
301 WHERE style_id = p_style_id
302 AND USERENV('LANG') IN (language, source_lang);
303
307 END IF;
304 IF SQL%NOTFOUND
305 THEN
306 RAISE NO_DATA_FOUND;
308
309 END translate_row;
310
311 -- Load_row is called during normal insertion/updates during FNDLOAD
312 -- It UPDATEs the row if available, else INSERTs
313
314 PROCEDURE load_row (
315 p_style_id IN pon_negotiation_styles.style_id%TYPE
316 ,p_owner IN VARCHAR2
317 ,p_last_update_date IN VARCHAR2
318 ,p_custom_mode IN VARCHAR2
319 ,p_status IN pon_negotiation_styles.status%TYPE
320 ,p_system_flag IN pon_negotiation_styles.system_flag%TYPE
321 ,p_line_attribute_enabled_flag IN pon_negotiation_styles.line_attribute_enabled_flag%TYPE
322 ,p_line_mas_enabled_flag IN pon_negotiation_styles.line_mas_enabled_flag%TYPE
323 ,p_price_element_enabled_flag IN pon_negotiation_styles.price_element_enabled_flag%TYPE
324 ,p_rfi_line_enabled_flag IN pon_negotiation_styles.rfi_line_enabled_flag%TYPE
325 ,p_lot_enabled_flag IN pon_negotiation_styles.lot_enabled_flag%TYPE
326 ,p_group_enabled_flag IN pon_negotiation_styles.group_enabled_flag%TYPE
327 ,p_large_neg_enabled_flag IN pon_negotiation_styles.large_neg_enabled_flag%TYPE
328 ,p_hdr_attribute_enabled_flag IN pon_negotiation_styles.hdr_attribute_enabled_flag%TYPE
329 ,p_neg_team_enabled_flag IN pon_negotiation_styles.neg_team_enabled_flag%TYPE
330 ,p_proxy_bidding_enabled_flag IN pon_negotiation_styles.proxy_bidding_enabled_flag%TYPE
331 ,p_power_bidding_enabled_flag IN pon_negotiation_styles.power_bidding_enabled_flag%TYPE
332 ,p_auto_extend_enabled_flag IN pon_negotiation_styles.auto_extend_enabled_flag%TYPE
333 ,p_team_scoring_enabled_flag IN pon_negotiation_styles.team_scoring_enabled_flag%TYPE
334 ,p_qty_price_tiers_enabled_flag IN pon_negotiation_styles.qty_price_tiers_enabled_flag%TYPE
335 -------------------------- Supplier Management: Negotiation Styles --------------------------
336 ,p_supp_reg_qual_flag IN pon_negotiation_styles.supp_reg_qual_flag%TYPE
337 ,p_supp_eval_flag IN pon_negotiation_styles.supp_eval_flag%TYPE
338 ,p_hide_terms_flag IN pon_negotiation_styles.hide_terms_flag%TYPE
339 ,p_hide_abstract_forms_flag IN pon_negotiation_styles.hide_abstract_forms_flag%TYPE
340 ,p_hide_attachments_flag IN pon_negotiation_styles.hide_attachments_flag%TYPE
341 ,p_internal_eval_flag IN pon_negotiation_styles.internal_eval_flag%TYPE
342 ,p_hdr_supp_attr_enabled_flag IN pon_negotiation_styles.hdr_supp_attr_enabled_flag%TYPE
343 ,p_intgr_hdr_attr_flag IN pon_negotiation_styles.intgr_hdr_attr_flag%TYPE
344 ,p_intgr_hdr_attach_flag IN pon_negotiation_styles.intgr_hdr_attach_flag%TYPE
345 ,p_line_supp_attr_enabled_flag IN pon_negotiation_styles.line_supp_attr_enabled_flag%TYPE
346 ,p_item_supp_attr_enabled_flag IN pon_negotiation_styles.item_supp_attr_enabled_flag%TYPE
347 ,p_intgr_cat_line_attr_flag IN pon_negotiation_styles.intgr_cat_line_attr_flag%TYPE
348 ,p_intgr_item_line_attr_flag IN pon_negotiation_styles.intgr_item_line_attr_flag%TYPE
349 ,p_intgr_cat_line_asl_flag IN pon_negotiation_styles.intgr_cat_line_asl_flag%TYPE
350 ---------------------------------------------------------------------------------------------
351 ,p_style_name IN pon_negotiation_styles_tl.style_name%TYPE
352 ,p_description IN pon_negotiation_styles_tl.description%TYPE) IS
353 -- Last update information from the file being uploaded
354 l_f_last_updated_by pon_negotiation_styles.last_updated_by%TYPE;
355 l_f_last_update_date pon_negotiation_styles.last_update_date%TYPE;
356
357 -- Last updated information for the row currently in the database
358 l_db_last_updated_by pon_negotiation_styles.last_updated_by%TYPE;
359 l_db_last_update_date pon_negotiation_styles.last_update_date%TYPE;
360
361 l_style_id pon_negotiation_styles.style_id%TYPE;
362
363 BEGIN
364
365 -- Translate owner to file_last_updated_by
366 l_f_last_updated_by := fnd_load_util.OWNER_ID(p_owner);
367
368 -- Translate char last_update_date to date
369 l_f_last_update_date := NVL(TO_DATE(p_last_update_date, 'YYYY/MM/DD'), SYSDATE);
370
371 SELECT last_updated_by,
372 last_update_date
373 INTO l_db_last_updated_by,
374 l_db_last_update_date
375 FROM pon_negotiation_styles
376 WHERE style_id = p_style_id;
377
378
379 update_row (
380 p_style_id => p_style_id
381 ,p_status => p_status
382 ,p_system_flag => p_system_flag
383 ,p_line_attribute_enabled_flag => p_line_attribute_enabled_flag
384 ,p_line_mas_enabled_flag => p_line_mas_enabled_flag
385 ,p_price_element_enabled_flag => p_price_element_enabled_flag
386 ,p_rfi_line_enabled_flag => p_rfi_line_enabled_flag
387 ,p_lot_enabled_flag => p_lot_enabled_flag
388 ,p_group_enabled_flag => p_group_enabled_flag
389 ,p_large_neg_enabled_flag => p_large_neg_enabled_flag
390 ,p_hdr_attribute_enabled_flag => p_hdr_attribute_enabled_flag
391 ,p_neg_team_enabled_flag => p_neg_team_enabled_flag
392 ,p_proxy_bidding_enabled_flag => p_proxy_bidding_enabled_flag
393 ,p_power_bidding_enabled_flag => p_power_bidding_enabled_flag
394 ,p_auto_extend_enabled_flag => p_auto_extend_enabled_flag
395 ,p_team_scoring_enabled_flag => p_team_scoring_enabled_flag
396 ,p_last_update_date => l_f_last_update_date
397 ,p_last_updated_by => l_f_last_updated_by
398 ,p_last_update_login => 0
399 ,p_qty_price_tiers_enabled_flag => p_qty_price_tiers_enabled_flag
403 ,p_hide_terms_flag => p_hide_terms_flag
400 ------------ Supplier Management: Negotiation Styles -------------
401 ,p_supp_reg_qual_flag => p_supp_reg_qual_flag
402 ,p_supp_eval_flag => p_supp_eval_flag
404 ,p_hide_abstract_forms_flag => p_hide_abstract_forms_flag
405 ,p_hide_attachments_flag => p_hide_attachments_flag
406 ,p_internal_eval_flag => p_internal_eval_flag
407 ,p_hdr_supp_attr_enabled_flag => p_hdr_supp_attr_enabled_flag
408 ,p_intgr_hdr_attr_flag => p_intgr_hdr_attr_flag
409 ,p_intgr_hdr_attach_flag => p_intgr_hdr_attach_flag
410 ,p_line_supp_attr_enabled_flag => p_line_supp_attr_enabled_flag
411 ,p_item_supp_attr_enabled_flag => p_item_supp_attr_enabled_flag
412 ,p_intgr_cat_line_attr_flag => p_intgr_cat_line_attr_flag
413 ,p_intgr_item_line_attr_flag => p_intgr_item_line_attr_flag
414 ,p_intgr_cat_line_asl_flag => p_intgr_cat_line_asl_flag
415 ------------------------------------------------------------------
416 ,p_style_name => p_style_name
417 ,p_description => p_description);
418
419
420 EXCEPTION
421
422 WHEN NO_DATA_FOUND
423 THEN
424
425 insert_row (
426 p_style_id => p_style_id
427 ,p_status => p_status
428 ,p_system_flag => p_system_flag
429 ,p_line_attribute_enabled_flag => p_line_attribute_enabled_flag
430 ,p_line_mas_enabled_flag => p_line_mas_enabled_flag
431 ,p_price_element_enabled_flag => p_price_element_enabled_flag
432 ,p_rfi_line_enabled_flag => p_rfi_line_enabled_flag
433 ,p_lot_enabled_flag => p_lot_enabled_flag
434 ,p_group_enabled_flag => p_group_enabled_flag
435 ,p_large_neg_enabled_flag => p_large_neg_enabled_flag
436 ,p_hdr_attribute_enabled_flag => p_hdr_attribute_enabled_flag
437 ,p_neg_team_enabled_flag => p_neg_team_enabled_flag
438 ,p_proxy_bidding_enabled_flag => p_proxy_bidding_enabled_flag
439 ,p_power_bidding_enabled_flag => p_power_bidding_enabled_flag
440 ,p_auto_extend_enabled_flag => p_auto_extend_enabled_flag
441 ,p_team_scoring_enabled_flag => p_team_scoring_enabled_flag
442 ,p_creation_date => l_f_last_update_date
443 ,p_created_by => l_f_last_updated_by
444 ,p_last_update_date => l_f_last_update_date
445 ,p_last_updated_by => l_f_last_updated_by
446 ,p_last_update_login => 0
447 ,p_qty_price_tiers_enabled_flag => p_qty_price_tiers_enabled_flag
448 ------------ Supplier Management: Negotiation Styles -------------
449 ,p_supp_reg_qual_flag => p_supp_reg_qual_flag
450 ,p_supp_eval_flag => p_supp_eval_flag
451 ,p_hide_terms_flag => p_hide_terms_flag
452 ,p_hide_abstract_forms_flag => p_hide_abstract_forms_flag
453 ,p_hide_attachments_flag => p_hide_attachments_flag
454 ,p_internal_eval_flag => p_internal_eval_flag
455 ,p_hdr_supp_attr_enabled_flag => p_hdr_supp_attr_enabled_flag
456 ,p_intgr_hdr_attr_flag => p_intgr_hdr_attr_flag
457 ,p_intgr_hdr_attach_flag => p_intgr_hdr_attach_flag
458 ,p_line_supp_attr_enabled_flag => p_line_supp_attr_enabled_flag
459 ,p_item_supp_attr_enabled_flag => p_item_supp_attr_enabled_flag
460 ,p_intgr_cat_line_attr_flag => p_intgr_cat_line_attr_flag
461 ,p_intgr_item_line_attr_flag => p_intgr_item_line_attr_flag
462 ,p_intgr_cat_line_asl_flag => p_intgr_cat_line_asl_flag
463 ------------------------------------------------------------------
464 ,p_style_name => p_style_name
465 ,p_description => p_description);
466
467 END load_row;
468
469 PROCEDURE delete_row (
470 p_style_id IN pon_negotiation_styles.style_id%TYPE
471 ) IS
472
473 BEGIN
474
475 DELETE FROM pon_negotiation_styles
476 WHERE style_id = p_style_id;
477
478 IF SQL%NOTFOUND
479 THEN
480 RAISE NO_DATA_FOUND;
481 END IF;
482
483 DELETE FROM pon_negotiation_styles_tl
484 WHERE style_id = p_style_id;
485
486 END delete_row;
487
488
489 PROCEDURE add_language IS
490
491 BEGIN
492
493 INSERT INTO pon_negotiation_styles_TL (
494 style_id,
495 style_name,
496 description,
497 language,
498 source_lang,
499 creation_date,
500 created_by,
501 last_update_date,
502 last_updated_by,
503 last_update_login
504 )
505 SELECT
506 style_id,
507 style_name,
508 description,
509 lang.language_code,
510 source_lang,
511 tl.creation_date,
512 tl.created_by,
513 tl.last_update_date,
514 tl.last_updated_by,
515 tl.last_update_login
516 FROM pon_negotiation_styles_tl tl,
517 fnd_languages lang
518 WHERE language = USERENV('LANG')
519 AND lang.INSTALLED_FLAG in ('I', 'B')
520 AND NOT EXISTS (SELECT NULL
521 FROM pon_negotiation_styles_TL tl2
522 WHERE tl2.style_id = tl.style_id
523 AND tl2.language = lang.language_code);
524
525 END add_language;
526
527 END pon_neg_styles_tl_pkg;