[Home] [Help]
1: PACKAGE BODY pn_varen_pvt AS
2: /* $Header: PNVARPVB.pls 120.1 2010/12/15 10:22:16 seevivek noship $ */
3: --l_var_rent_id pn_var_rents_all.var_rent_id%TYPE := NULL;
4: l_var_rent_date_id pn_var_rent_dates_all.var_rent_date_id%TYPE := NULL;
5:
22: )
23: IS
24: l_null VARCHAR2 (10) := NULL;
25: BEGIN
26: pn_varen_util.pvt_debug ('PN_VAREN_PVT: Start of Insert_Constraints Procedure'
27: , 3
28: );
29: pn_varen_util.pvt_debug
30: ('PN_VAREN_PVT: Insert_Constraints: Input parameters to PN_VAR_CONSTR_DEFAULTS_PKG.Insert_Row package'
26: pn_varen_util.pvt_debug ('PN_VAREN_PVT: Start of Insert_Constraints Procedure'
27: , 3
28: );
29: pn_varen_util.pvt_debug
30: ('PN_VAREN_PVT: Insert_Constraints: Input parameters to PN_VAR_CONSTR_DEFAULTS_PKG.Insert_Row package'
31: , 3
32: );
33: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Insert_Constraints: p_constraints_rec_type.constr_default_id : '
34: || p_constraints_rec_type.constr_default_id
29: pn_varen_util.pvt_debug
30: ('PN_VAREN_PVT: Insert_Constraints: Input parameters to PN_VAR_CONSTR_DEFAULTS_PKG.Insert_Row package'
31: , 3
32: );
33: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Insert_Constraints: p_constraints_rec_type.constr_default_id : '
34: || p_constraints_rec_type.constr_default_id
35: , 3
36: );
37: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Insert_Constraints: p_constraints_rec_type.constr_default_num : '
33: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Insert_Constraints: p_constraints_rec_type.constr_default_id : '
34: || p_constraints_rec_type.constr_default_id
35: , 3
36: );
37: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Insert_Constraints: p_constraints_rec_type.constr_default_num : '
38: || p_constraints_rec_type.constr_default_num
39: , 3
40: );
41: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Insert_Constraints: p_constraints_rec_type.var_rent_id : '
37: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Insert_Constraints: p_constraints_rec_type.constr_default_num : '
38: || p_constraints_rec_type.constr_default_num
39: , 3
40: );
41: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Insert_Constraints: p_constraints_rec_type.var_rent_id : '
42: || p_constraints_rec_type.var_rent_id
43: , 3
44: );
45: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Insert_Constraints: p_constraints_rec_type.agreement_template_id : '
41: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Insert_Constraints: p_constraints_rec_type.var_rent_id : '
42: || p_constraints_rec_type.var_rent_id
43: , 3
44: );
45: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Insert_Constraints: p_constraints_rec_type.agreement_template_id : '
46: || p_constraints_rec_type.agreement_template_id
47: , 3
48: );
49: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Insert_Constraints: p_constraints_rec_type.constr_template_id : '
45: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Insert_Constraints: p_constraints_rec_type.agreement_template_id : '
46: || p_constraints_rec_type.agreement_template_id
47: , 3
48: );
49: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Insert_Constraints: p_constraints_rec_type.constr_template_id : '
50: || p_constraints_rec_type.constr_template_id
51: , 3
52: );
53: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Insert_Constraints: p_constraints_rec_type.constr_start_date : '
49: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Insert_Constraints: p_constraints_rec_type.constr_template_id : '
50: || p_constraints_rec_type.constr_template_id
51: , 3
52: );
53: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Insert_Constraints: p_constraints_rec_type.constr_start_date : '
54: || p_constraints_rec_type.constr_start_date
55: , 3
56: );
57: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Insert_Constraints: p_constraints_rec_type.constr_end_date : '
53: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Insert_Constraints: p_constraints_rec_type.constr_start_date : '
54: || p_constraints_rec_type.constr_start_date
55: , 3
56: );
57: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Insert_Constraints: p_constraints_rec_type.constr_end_date : '
58: || p_constraints_rec_type.constr_end_date
59: , 3
60: );
61: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Insert_Constraints: p_constraints_rec_type.constr_cat_code : '
57: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Insert_Constraints: p_constraints_rec_type.constr_end_date : '
58: || p_constraints_rec_type.constr_end_date
59: , 3
60: );
61: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Insert_Constraints: p_constraints_rec_type.constr_cat_code : '
62: || p_constraints_rec_type.constr_cat_code
63: , 3
64: );
65: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Insert_Constraints: p_constraints_rec_type.constr_type_code : '
61: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Insert_Constraints: p_constraints_rec_type.constr_cat_code : '
62: || p_constraints_rec_type.constr_cat_code
63: , 3
64: );
65: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Insert_Constraints: p_constraints_rec_type.constr_type_code : '
66: || p_constraints_rec_type.constr_type_code
67: , 3
68: );
69: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Insert_Constraints: p_constraints_rec_type.constr_amount : '
65: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Insert_Constraints: p_constraints_rec_type.constr_type_code : '
66: || p_constraints_rec_type.constr_type_code
67: , 3
68: );
69: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Insert_Constraints: p_constraints_rec_type.constr_amount : '
70: || p_constraints_rec_type.constr_amount
71: , 3
72: );
73: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Insert_Constraints: p_constraints_rec_type.g_org_id : '
69: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Insert_Constraints: p_constraints_rec_type.constr_amount : '
70: || p_constraints_rec_type.constr_amount
71: , 3
72: );
73: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Insert_Constraints: p_constraints_rec_type.g_org_id : '
74: || g_org_id
75: , 3
76: );
77: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Insert_Constraints: p_constraints_rec_type.attribute_category : '
73: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Insert_Constraints: p_constraints_rec_type.g_org_id : '
74: || g_org_id
75: , 3
76: );
77: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Insert_Constraints: p_constraints_rec_type.attribute_category : '
78: || p_constraints_rec_type.attribute_category
79: , 3
80: );
81: pn_var_constr_defaults_pkg.insert_row (x_rowid => g_rowid
129: , x_attribute15 => p_constraints_rec_type.attribute15
130: );
131: x_return_status := fnd_api.g_ret_sts_success;
132: pn_varen_util.pvt_debug
133: ('PN_VAREN_PVT: Insert_Constraints: End of parameters to PN_VAR_CONSTR_DEFAULTS_PKG.Insert_Row package'
134: , 3
135: );
136: EXCEPTION
137: WHEN OTHERS
136: EXCEPTION
137: WHEN OTHERS
138: THEN
139: pn_varen_util.pvt_debug
140: ( 'PN_VAREN_PVT: Insert_Constraints: Exception Result of Pn_Var_Constr_Defaults_Pkg.Insert_Row procedure : '
141: || SQLERRM
142: , 3
143: );
144: x_return_status := fnd_api.g_ret_sts_error;
161: )
162: IS
163: l_null VARCHAR2 (10) := NULL;
164: BEGIN
165: pn_varen_util.pvt_debug ('PN_VAREN_PVT: Start of Update_Constraints Procedure'
166: , 3
167: );
168: pn_varen_util.pvt_debug
169: ('PN_VAREN_PVT: Update_Constraints: Start of Input parameters to pn_var_constr_defaults_pkg.update_row package'
165: pn_varen_util.pvt_debug ('PN_VAREN_PVT: Start of Update_Constraints Procedure'
166: , 3
167: );
168: pn_varen_util.pvt_debug
169: ('PN_VAREN_PVT: Update_Constraints: Start of Input parameters to pn_var_constr_defaults_pkg.update_row package'
170: , 3
171: );
172: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Constraints: p_constraints_rec_type.constr_default_id : '
173: || p_constraints_rec_type.constr_default_id
168: pn_varen_util.pvt_debug
169: ('PN_VAREN_PVT: Update_Constraints: Start of Input parameters to pn_var_constr_defaults_pkg.update_row package'
170: , 3
171: );
172: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Constraints: p_constraints_rec_type.constr_default_id : '
173: || p_constraints_rec_type.constr_default_id
174: , 3
175: );
176: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Constraints: p_constraints_rec_type.constr_default_num : '
172: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Constraints: p_constraints_rec_type.constr_default_id : '
173: || p_constraints_rec_type.constr_default_id
174: , 3
175: );
176: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Constraints: p_constraints_rec_type.constr_default_num : '
177: || p_constraints_rec_type.constr_default_num
178: , 3
179: );
180: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Constraints: p_constraints_rec_type.var_rent_id : '
176: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Constraints: p_constraints_rec_type.constr_default_num : '
177: || p_constraints_rec_type.constr_default_num
178: , 3
179: );
180: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Constraints: p_constraints_rec_type.var_rent_id : '
181: || p_constraints_rec_type.var_rent_id
182: , 3
183: );
184: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Constraints: p_constraints_rec_type.agreement_template_id : '
180: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Constraints: p_constraints_rec_type.var_rent_id : '
181: || p_constraints_rec_type.var_rent_id
182: , 3
183: );
184: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Constraints: p_constraints_rec_type.agreement_template_id : '
185: || p_constraints_rec_type.agreement_template_id
186: , 3
187: );
188: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Constraints: p_constraints_rec_type.constr_template_id : '
184: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Constraints: p_constraints_rec_type.agreement_template_id : '
185: || p_constraints_rec_type.agreement_template_id
186: , 3
187: );
188: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Constraints: p_constraints_rec_type.constr_template_id : '
189: || p_constraints_rec_type.constr_template_id
190: , 3
191: );
192: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Constraints: p_constraints_rec_type.constr_start_date : '
188: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Constraints: p_constraints_rec_type.constr_template_id : '
189: || p_constraints_rec_type.constr_template_id
190: , 3
191: );
192: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Constraints: p_constraints_rec_type.constr_start_date : '
193: || p_constraints_rec_type.constr_start_date
194: , 3
195: );
196: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Constraints: p_constraints_rec_type.constr_end_date : '
192: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Constraints: p_constraints_rec_type.constr_start_date : '
193: || p_constraints_rec_type.constr_start_date
194: , 3
195: );
196: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Constraints: p_constraints_rec_type.constr_end_date : '
197: || p_constraints_rec_type.constr_end_date
198: , 3
199: );
200: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Constraints: p_constraints_rec_type.constr_cat_code : '
196: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Constraints: p_constraints_rec_type.constr_end_date : '
197: || p_constraints_rec_type.constr_end_date
198: , 3
199: );
200: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Constraints: p_constraints_rec_type.constr_cat_code : '
201: || p_constraints_rec_type.constr_cat_code
202: , 3
203: );
204: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Constraints: p_constraints_rec_type.constr_type_code : '
200: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Constraints: p_constraints_rec_type.constr_cat_code : '
201: || p_constraints_rec_type.constr_cat_code
202: , 3
203: );
204: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Constraints: p_constraints_rec_type.constr_type_code : '
205: || p_constraints_rec_type.constr_type_code
206: , 3
207: );
208: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Constraints: p_constraints_rec_type.constr_amount : '
204: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Constraints: p_constraints_rec_type.constr_type_code : '
205: || p_constraints_rec_type.constr_type_code
206: , 3
207: );
208: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Constraints: p_constraints_rec_type.constr_amount : '
209: || p_constraints_rec_type.constr_amount
210: , 3
211: );
212: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Constraints: p_constraints_rec_type.g_org_id : '
208: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Constraints: p_constraints_rec_type.constr_amount : '
209: || p_constraints_rec_type.constr_amount
210: , 3
211: );
212: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Constraints: p_constraints_rec_type.g_org_id : '
213: || g_org_id
214: , 3
215: );
216: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Constraints: p_constraints_rec_type.attribute_category : '
212: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Constraints: p_constraints_rec_type.g_org_id : '
213: || g_org_id
214: , 3
215: );
216: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Constraints: p_constraints_rec_type.attribute_category : '
217: || p_constraints_rec_type.attribute_category
218: , 3
219: );
220: pn_varen_util.pvt_debug
217: || p_constraints_rec_type.attribute_category
218: , 3
219: );
220: pn_varen_util.pvt_debug
221: ('PN_VAREN_PVT: Update_Constraints: End of Input parameters to pn_var_constr_defaults_pkg.update_row package'
222: , 3
223: );
224: pn_var_constr_defaults_pkg.update_row
225: (x_constr_default_id => p_constraints_rec_type.constr_default_id
256: , x_attribute15 => p_constraints_rec_type.attribute15
257: );
258: x_return_status := fnd_api.g_ret_sts_success;
259: pn_varen_util.pvt_debug
260: ('PN_VAREN_PVT: Update_Constraints: End of parameters to pn_var_constr_defaults_pkg.update_Row package'
261: , 3
262: );
263: EXCEPTION
264: WHEN OTHERS
263: EXCEPTION
264: WHEN OTHERS
265: THEN
266: pn_varen_util.pvt_debug
267: ( 'PN_VAREN_PVT: Update_Constraints: Exception Result of Update_Constraints procedure : '
268: || SQLERRM
269: , 3
270: );
271: x_return_status := fnd_api.g_ret_sts_error;
318: IF l_constr_created <> 0
319: THEN
320: pn_var_defaults_pkg.create_default_constraints (p_var_rent_id);
321: x_return_status := fnd_api.g_ret_sts_success;
322: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Generate_Constraints is Success for constraints Details Id: '
323: || l_constr_default_id
324: , 3
325: );
326: --Commit only when success
328: -- THEN
329: -- COMMIT;
330: -- END IF;
331: ELSE
332: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Generate_Constraints is Failed for constraints Details Id: '
333: || l_constr_default_id
334: , 3
335: );
336: x_return_status := fnd_api.g_ret_sts_error;
337: END IF;
338: EXCEPTION
339: WHEN OTHERS
340: THEN
341: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Generate_Constraints Exception Error: '
342: || SQLERRM
343: , 3
344: );
345: x_return_status := fnd_api.g_ret_sts_error;
363: )
364: IS
365: -- l_var_rent_id NUMBER;
366: BEGIN
367: pn_varen_util.pvt_debug ('PN_VAREN_PVT: Undo_Constraints : Starting of removing Constraint records: '
368: , 3
369: );
370:
371: DELETE FROM pn_var_constraints_all
372: WHERE constr_default_id IN (SELECT constr_default_id
373: FROM pn_var_constr_defaults_all
374: WHERE var_rent_id = p_var_rent_id);
375:
376: pn_varen_util.pvt_debug ('PN_VAREN_PVT: Undo_Constraints :Removing of Constraint record has been success '
377: , 3
378: );
379: x_return_status := fnd_api.g_ret_sts_success;
380: EXCEPTION
379: x_return_status := fnd_api.g_ret_sts_success;
380: EXCEPTION
381: WHEN OTHERS
382: THEN
383: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Undo_Constraints Exception Error: '
384: || SQLERRM
385: , 3
386: );
387: x_return_status := fnd_api.g_ret_sts_error;
424: -- OR pvbd.bkdt_detail_num = bkdt_detail_num
425: -- )
426: -- AND pvbd.bkhd_default_id = p_bkhd_default_id;
427: BEGIN
428: pn_varen_util.pvt_debug ('PN_VAREN_PVT: Start of Generate_Breakpoints procedure '
429: , 3
430: );
431:
432: OPEN c_brkpt_dtl_created;
439:
440: IF l_bkpt_dtl_created <> 0
441: THEN
442: pn_varen_util.pvt_debug
443: ( 'PN_VAREN_PVT: Generate_Breakpoints, At least one breakpoint detail has been created : '
444: || l_bkpt_dtl_created
445: , 3
446: );
447: pn_var_defaults_pkg.create_setup_data (p_var_rent_id);
446: );
447: pn_var_defaults_pkg.create_setup_data (p_var_rent_id);
448: pn_var_chg_cal_pkg.populate_transactions (p_var_rent_id);
449: x_return_status := fnd_api.g_ret_sts_success;
450: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Generate_Breakpoints is Success for Var Rent Id: '
451: || l_var_rent_id
452: , 3
453: );
454: --Commit only when success
457: -- COMMIT;
458: -- END IF;
459: ELSE
460: pn_varen_util.pvt_debug
461: ( 'PN_VAREN_PVT: Generate_Breakpoints: Breakpoint Detail Lines are not Created for breakpoint Hdr id: '
462: || l_bkdt_default_id
463: , 3
464: );
465: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
462: || l_bkdt_default_id
463: , 3
464: );
465: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
466: fnd_message.set_token ('ERR_MSG', 'PN_VAREN_PVT: Generate_Breakpoints: Breakpoint Detail Lines are not Created for breakpoint Hdr Id');
467: fnd_msg_pub.ADD;
468: RAISE fnd_api.g_exc_error;
469: END IF;
470: EXCEPTION
468: RAISE fnd_api.g_exc_error;
469: END IF;
470: EXCEPTION
471: WHEN fnd_api.g_exc_error THEN
472: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Generate_Breakpoints: fnd_api.g_exc_error Exception Error: '
473: || SQLERRM
474: , 3
475: );
476: x_return_status := fnd_api.g_ret_sts_error;
475: );
476: x_return_status := fnd_api.g_ret_sts_error;
477: WHEN OTHERS
478: THEN
479: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Generate_Breakpoints: OTHERS Exception Error: '
480: || SQLERRM
481: , 3
482: );
483: x_return_status := fnd_api.g_ret_sts_unexp_error;
541: INTO l_dummy;
542:
543: CLOSE exists_hd_def_cur_1;
544:
545: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Undo_Breakpoints: Value of l_dummy : '
546: || l_dummy
547: , 3
548: );
549:
556: --fnd_message.question(NAME_IN('parameter.pn_option_no'), NAME_IN('parameter.pn_option_yes'), NULL);
557: IF l_answer = 1
558: THEN -- Cancel
559: -- RAISE fnd_api.g_ret_sts_error;
560: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Undo_Breakpoints: Value of l_answer : '
561: || l_answer
562: , 3
563: );
564: x_return_status := fnd_api.g_ret_sts_error;
566: FOR exists_lines_rec IN exists_line_cur
567: LOOP
568: l_line_def_id :=
569: exists_lines_rec.line_default_id;
570: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Undo_Breakpoints: Value of l_line_def_id : '
571: || l_line_def_id
572: , 3
573: );
574:
575: --
576: FOR exists_hd_def_rec IN exists_hd_def_cur
577: LOOP
578: --
579: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Undo_Breakpoints: Value of p_var_rent_id : '
580: || p_var_rent_id
581: , 3
582: );
583: pn_varen_util.pvt_debug
580: || p_var_rent_id
581: , 3
582: );
583: pn_varen_util.pvt_debug
584: ( 'PN_VAREN_PVT: Undo_Breakpoints: Value of exists_hd_def_rec.bkhd_default_id : '
585: || exists_hd_def_rec.bkhd_default_id
586: , 3
587: );
588: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Undo_Breakpoints: Value of l_bkpt_header_id : '
584: ( 'PN_VAREN_PVT: Undo_Breakpoints: Value of exists_hd_def_rec.bkhd_default_id : '
585: || exists_hd_def_rec.bkhd_default_id
586: , 3
587: );
588: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Undo_Breakpoints: Value of l_bkpt_header_id : '
589: || l_bkpt_header_id
590: , 3
591: );
592: --
605: -- , 'PN_VAR_LINES_DELETED'
606: -- );
607: -- fnd_msg_pub.ADD;
608: pn_varen_util.pvt_debug
609: ('PN_VAREN_PVT: Undo_Breakpoints: You have successfully removed all breakpoint definitions from the variable rent agreement.'
610: , 3
611: );
612: END IF;
613: END IF;
614: --x_return_status := fnd_api.g_ret_sts_error;
615: EXCEPTION
616: WHEN OTHERS
617: THEN
618: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Undo_Breakpoints: Breakpoint Detail Lines Exception Error: '
619: || SQLERRM
620: , 3
621: );
622: x_return_status := fnd_api.g_ret_sts_error;
642: l_rowid VARCHAR2 (18);
643: l_null VARCHAR2 (10) := NULL;
644: BEGIN
645: pn_varen_util.pvt_debug
646: ('PN_VAREN_PVT: Insert_Allow_Abat: Start of Input parameters for pn_var_abat_defaults_pkg.insert_row package'
647: , 3
648: );
649: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Insert_Allow_Abat: p_allow_abat_rec_type.abatement_Id : '
650: || p_allow_abat_rec_type.abatement_id
645: pn_varen_util.pvt_debug
646: ('PN_VAREN_PVT: Insert_Allow_Abat: Start of Input parameters for pn_var_abat_defaults_pkg.insert_row package'
647: , 3
648: );
649: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Insert_Allow_Abat: p_allow_abat_rec_type.abatement_Id : '
650: || p_allow_abat_rec_type.abatement_id
651: , 3
652: );
653: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Insert_Allow_Abat: p_allow_abat_rec_type.abat_START_DATE : '
649: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Insert_Allow_Abat: p_allow_abat_rec_type.abatement_Id : '
650: || p_allow_abat_rec_type.abatement_id
651: , 3
652: );
653: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Insert_Allow_Abat: p_allow_abat_rec_type.abat_START_DATE : '
654: || p_allow_abat_rec_type.abat_start_date
655: , 3
656: );
657: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Insert_Allow_Abat: p_allow_abat_rec_type.abat_END_DATE : '
653: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Insert_Allow_Abat: p_allow_abat_rec_type.abat_START_DATE : '
654: || p_allow_abat_rec_type.abat_start_date
655: , 3
656: );
657: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Insert_Allow_Abat: p_allow_abat_rec_type.abat_END_DATE : '
658: || p_allow_abat_rec_type.abat_end_date
659: , 3
660: );
661: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Insert_Allow_Abat: p_allow_abat_rec_type.abat_TYPE_CODE : '
657: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Insert_Allow_Abat: p_allow_abat_rec_type.abat_END_DATE : '
658: || p_allow_abat_rec_type.abat_end_date
659: , 3
660: );
661: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Insert_Allow_Abat: p_allow_abat_rec_type.abat_TYPE_CODE : '
662: || p_allow_abat_rec_type.abat_type_code
663: , 3
664: );
665: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Insert_Allow_Abat: p_allow_abat_rec_type.abat_AMOUNT : '
661: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Insert_Allow_Abat: p_allow_abat_rec_type.abat_TYPE_CODE : '
662: || p_allow_abat_rec_type.abat_type_code
663: , 3
664: );
665: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Insert_Allow_Abat: p_allow_abat_rec_type.abat_AMOUNT : '
666: || p_allow_abat_rec_type.abat_amount
667: , 3
668: );
669: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Insert_Allow_Abat: p_allow_abat_rec_type.COMMENTS : '
665: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Insert_Allow_Abat: p_allow_abat_rec_type.abat_AMOUNT : '
666: || p_allow_abat_rec_type.abat_amount
667: , 3
668: );
669: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Insert_Allow_Abat: p_allow_abat_rec_type.COMMENTS : '
670: || p_allow_abat_rec_type.comments
671: , 3
672: );
673: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Insert_Allow_Abat: p_allow_abat_rec_type.DESCRIPTION : '
669: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Insert_Allow_Abat: p_allow_abat_rec_type.COMMENTS : '
670: || p_allow_abat_rec_type.comments
671: , 3
672: );
673: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Insert_Allow_Abat: p_allow_abat_rec_type.DESCRIPTION : '
674: || p_allow_abat_rec_type.description
675: , 3
676: );
677: pn_varen_util.pvt_debug
674: || p_allow_abat_rec_type.description
675: , 3
676: );
677: pn_varen_util.pvt_debug
678: ( 'PN_VAREN_PVT: Insert_Allow_Abat: substr(p_allow_abat_rec_type.description , 1, 29) : '
679: || SUBSTR (p_allow_abat_rec_type.description
680: , 1
681: , 29
682: )
681: , 29
682: )
683: , 3
684: );
685: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Insert_Allow_Abat: p_allow_abat_rec_type.VAR_RENT_ID : '
686: || p_allow_abat_rec_type.var_rent_id
687: , 3
688: );
689: pn_varen_util.pvt_debug
686: || p_allow_abat_rec_type.var_rent_id
687: , 3
688: );
689: pn_varen_util.pvt_debug
690: ('PN_VAREN_PVT: Insert_Allow_Abat: End of Input parameters for pn_var_abat_defaults_pkg.insert_row package'
691: , 3
692: );
693: p_allow_abat_rec_type.description :=
694: SUBSTR (p_allow_abat_rec_type.description
741: , x_org_id => g_org_id --l_org_id
742: );
743: x_return_status := fnd_api.g_ret_sts_success;
744: pn_varen_util.pvt_debug
745: ('PN_VAREN_PVT: Insert_Allow_Abat: Success Result of pn_var_abat_defaults_pkg.insert_row package'
746: , 3
747: );
748: EXCEPTION
749: WHEN OTHERS
748: EXCEPTION
749: WHEN OTHERS
750: THEN
751: pn_varen_util.pvt_debug
752: ( 'PN_VAREN_PVT: Insert_Allow_Abat: Exception Result of insert_allow_and_abat procedure : '
753: || SQLERRM
754: , 3
755: );
756: x_return_status := fnd_api.g_ret_sts_error;
776: l_rowid VARCHAR2 (18);
777: l_null VARCHAR2 (10) := NULL;
778: BEGIN
779: pn_varen_util.pvt_debug
780: ('PN_VAREN_PVT: Update_Allow_Abat: Start of Input parameters for pn_var_abat_defaults_pkg.update_row package'
781: , 3
782: );
783: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Allow_Abat: p_allow_abat_rec_type.abatement_Id : '
784: || p_allow_abat_rec_type.abatement_id
779: pn_varen_util.pvt_debug
780: ('PN_VAREN_PVT: Update_Allow_Abat: Start of Input parameters for pn_var_abat_defaults_pkg.update_row package'
781: , 3
782: );
783: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Allow_Abat: p_allow_abat_rec_type.abatement_Id : '
784: || p_allow_abat_rec_type.abatement_id
785: , 3
786: );
787: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Allow_Abat: p_allow_abat_rec_type.abat_START_DATE : '
783: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Allow_Abat: p_allow_abat_rec_type.abatement_Id : '
784: || p_allow_abat_rec_type.abatement_id
785: , 3
786: );
787: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Allow_Abat: p_allow_abat_rec_type.abat_START_DATE : '
788: || p_allow_abat_rec_type.abat_start_date
789: , 3
790: );
791: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Allow_Abat: p_allow_abat_rec_type.abat_END_DATE : '
787: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Allow_Abat: p_allow_abat_rec_type.abat_START_DATE : '
788: || p_allow_abat_rec_type.abat_start_date
789: , 3
790: );
791: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Allow_Abat: p_allow_abat_rec_type.abat_END_DATE : '
792: || p_allow_abat_rec_type.abat_end_date
793: , 3
794: );
795: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Allow_Abat: p_allow_abat_rec_type.abat_TYPE_CODE : '
791: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Allow_Abat: p_allow_abat_rec_type.abat_END_DATE : '
792: || p_allow_abat_rec_type.abat_end_date
793: , 3
794: );
795: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Allow_Abat: p_allow_abat_rec_type.abat_TYPE_CODE : '
796: || p_allow_abat_rec_type.abat_type_code
797: , 3
798: );
799: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Allow_Abat: p_allow_abat_rec_type.abat_AMOUNT : '
795: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Allow_Abat: p_allow_abat_rec_type.abat_TYPE_CODE : '
796: || p_allow_abat_rec_type.abat_type_code
797: , 3
798: );
799: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Allow_Abat: p_allow_abat_rec_type.abat_AMOUNT : '
800: || p_allow_abat_rec_type.abat_amount
801: , 3
802: );
803: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Allow_Abat: p_allow_abat_rec_type.COMMENTS : '
799: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Allow_Abat: p_allow_abat_rec_type.abat_AMOUNT : '
800: || p_allow_abat_rec_type.abat_amount
801: , 3
802: );
803: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Allow_Abat: p_allow_abat_rec_type.COMMENTS : '
804: || p_allow_abat_rec_type.comments
805: , 3
806: );
807: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Allow_Abat: p_allow_abat_rec_type.DESCRIPTION : '
803: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Allow_Abat: p_allow_abat_rec_type.COMMENTS : '
804: || p_allow_abat_rec_type.comments
805: , 3
806: );
807: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Allow_Abat: p_allow_abat_rec_type.DESCRIPTION : '
808: || p_allow_abat_rec_type.description
809: , 3
810: );
811: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Allow_Abat: p_allow_abat_rec_type.VAR_RENT_ID : '
807: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Allow_Abat: p_allow_abat_rec_type.DESCRIPTION : '
808: || p_allow_abat_rec_type.description
809: , 3
810: );
811: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Allow_Abat: p_allow_abat_rec_type.VAR_RENT_ID : '
812: || p_allow_abat_rec_type.var_rent_id
813: , 3
814: );
815: pn_varen_util.pvt_debug
812: || p_allow_abat_rec_type.var_rent_id
813: , 3
814: );
815: pn_varen_util.pvt_debug
816: ('PN_VAREN_PVT: Update_Allow_Abat: End of Input parameters for pn_var_abat_defaults_pkg.update_row package'
817: , 3
818: );
819: pn_varen_util.pvt_debug
820: ( 'PN_VAREN_PVT: Update_Allow_Abat: Values ofp_allow_abat_rec_type.abatement_id and p_allow_abat_rec_type.abat_type_code'
816: ('PN_VAREN_PVT: Update_Allow_Abat: End of Input parameters for pn_var_abat_defaults_pkg.update_row package'
817: , 3
818: );
819: pn_varen_util.pvt_debug
820: ( 'PN_VAREN_PVT: Update_Allow_Abat: Values ofp_allow_abat_rec_type.abatement_id and p_allow_abat_rec_type.abat_type_code'
821: || p_allow_abat_rec_type.abatement_id
822: || '-'
823: || p_allow_abat_rec_type.abat_type_code
824: , 3
858: , x_org_id => p_allow_abat_rec_type.org_id
859: );
860: x_return_status := fnd_api.g_ret_sts_success;
861: pn_varen_util.pvt_debug
862: ('PN_VAREN_PVT: Update_Allow_Abat: Success Result of pn_var_abat_defaults_pkg.update_row package'
863: , 3
864: );
865: EXCEPTION
866: WHEN OTHERS
865: EXCEPTION
866: WHEN OTHERS
867: THEN
868: pn_varen_util.pvt_debug
869: ( 'PN_VAREN_PVT: Update_Allow_Abat: Exception Result of Update_allow_abat procedure : '
870: || SQLERRM
871: , 3
872: );
873: x_return_status := fnd_api.g_ret_sts_error;
894: l_null VARCHAR2 (10) := NULL;
895: BEGIN
896: p_breakpoint_details_rec_type.bkdt_default_id := NULL;
897: pn_varen_util.pvt_debug
898: ('PN_VAREN_PVT: Insert_Breakpoint_Details: Start of Input parameters for PN_VAR_BKDT_DEFAULTS_PKG.INSERT_ROW package'
899: , 3
900: );
901: pn_varen_util.pvt_debug
902: ( 'PN_VAREN_PVT: Insert_Breakpoint_Details: p_breakpoint_details_rec_type.BKDT_DEFAULT_ID : '
898: ('PN_VAREN_PVT: Insert_Breakpoint_Details: Start of Input parameters for PN_VAR_BKDT_DEFAULTS_PKG.INSERT_ROW package'
899: , 3
900: );
901: pn_varen_util.pvt_debug
902: ( 'PN_VAREN_PVT: Insert_Breakpoint_Details: p_breakpoint_details_rec_type.BKDT_DEFAULT_ID : '
903: || p_breakpoint_details_rec_type.bkdt_default_id
904: , 3
905: );
906: pn_varen_util.pvt_debug
903: || p_breakpoint_details_rec_type.bkdt_default_id
904: , 3
905: );
906: pn_varen_util.pvt_debug
907: ( 'PN_VAREN_PVT: Insert_Breakpoint_Details: p_breakpoint_details_rec_type.BKDT_DETAIL_NUM : '
908: || p_breakpoint_details_rec_type.bkdt_detail_num
909: , 3
910: );
911: pn_varen_util.pvt_debug
908: || p_breakpoint_details_rec_type.bkdt_detail_num
909: , 3
910: );
911: pn_varen_util.pvt_debug
912: ( 'PN_VAREN_PVT: Insert_Breakpoint_Details: p_breakpoint_details_rec_type.BKHD_DEFAULT_ID : '
913: || p_breakpoint_details_rec_type.bkhd_default_id
914: , 3
915: );
916: pn_varen_util.pvt_debug
913: || p_breakpoint_details_rec_type.bkhd_default_id
914: , 3
915: );
916: pn_varen_util.pvt_debug
917: ( 'PN_VAREN_PVT: Insert_Breakpoint_Details: p_breakpoint_details_rec_type.BKDT_START_DATE : '
918: || p_breakpoint_details_rec_type.bkdt_start_date
919: , 3
920: );
921: pn_varen_util.pvt_debug
918: || p_breakpoint_details_rec_type.bkdt_start_date
919: , 3
920: );
921: pn_varen_util.pvt_debug
922: ( 'PN_VAREN_PVT: Insert_Breakpoint_Details: p_breakpoint_details_rec_type.BKDT_END_DATE : '
923: || p_breakpoint_details_rec_type.bkdt_end_date
924: , 3
925: );
926: pn_varen_util.pvt_debug
923: || p_breakpoint_details_rec_type.bkdt_end_date
924: , 3
925: );
926: pn_varen_util.pvt_debug
927: ( 'PN_VAREN_PVT: Insert_Breakpoint_Details: p_breakpoint_details_rec_type.PERIOD_BKPT_VOL_START : '
928: || p_breakpoint_details_rec_type.period_bkpt_vol_start
929: , 3
930: );
931: pn_varen_util.pvt_debug
928: || p_breakpoint_details_rec_type.period_bkpt_vol_start
929: , 3
930: );
931: pn_varen_util.pvt_debug
932: ( 'PN_VAREN_PVT: Insert_Breakpoint_Details: p_breakpoint_details_rec_type.PERIOD_BKPT_VOL_END : '
933: || p_breakpoint_details_rec_type.period_bkpt_vol_end
934: , 3
935: );
936: pn_varen_util.pvt_debug
933: || p_breakpoint_details_rec_type.period_bkpt_vol_end
934: , 3
935: );
936: pn_varen_util.pvt_debug
937: ( 'PN_VAREN_PVT: Insert_Breakpoint_Details: p_breakpoint_details_rec_type.GROUP_BKPT_VOL_START : '
938: || p_breakpoint_details_rec_type.group_bkpt_vol_start
939: , 3
940: );
941: pn_varen_util.pvt_debug
938: || p_breakpoint_details_rec_type.group_bkpt_vol_start
939: , 3
940: );
941: pn_varen_util.pvt_debug
942: ( 'PN_VAREN_PVT: Insert_Breakpoint_Details: p_breakpoint_details_rec_type.GROUP_BKPT_VOL_END : '
943: || p_breakpoint_details_rec_type.group_bkpt_vol_end
944: , 3
945: );
946: pn_varen_util.pvt_debug
943: || p_breakpoint_details_rec_type.group_bkpt_vol_end
944: , 3
945: );
946: pn_varen_util.pvt_debug
947: ( 'PN_VAREN_PVT: Insert_Breakpoint_Details: p_breakpoint_details_rec_type.VAR_RENT_ID : '
948: || p_breakpoint_details_rec_type.var_rent_id
949: , 3
950: );
951: pn_varen_util.pvt_debug
948: || p_breakpoint_details_rec_type.var_rent_id
949: , 3
950: );
951: pn_varen_util.pvt_debug
952: ( 'PN_VAREN_PVT: Insert_Breakpoint_Details: p_breakpoint_details_rec_type.ANNUAL_BASIS_AMOUNT : '
953: || p_breakpoint_details_rec_type.annual_basis_amount
954: , 3
955: );
956: pn_varen_util.pvt_debug
953: || p_breakpoint_details_rec_type.annual_basis_amount
954: , 3
955: );
956: pn_varen_util.pvt_debug
957: ('PN_VAREN_PVT: Insert_Breakpoint_Details: End of Input parameters for PN_VAR_BKDT_DEFAULTS_PKG.INSERT_ROW package'
958: , 3
959: );
960: pn_varen_util.pvt_debug ( ' Value of bkdt_detail_num , before pn_var_bkdt_defaults_pkg.insert_row : '
961: || p_breakpoint_details_rec_type.bkdt_detail_num
1018: , x_attribute15 => p_breakpoint_details_rec_type.attribute15
1019: );
1020: x_return_status := fnd_api.g_ret_sts_success;
1021: pn_varen_util.pvt_debug
1022: ('PN_VAREN_PVT: Insert_Breakpoint_Details: Success Result of pn_var_bkdt_defaults_pkg.insert_row package'
1023: , 3
1024: );
1025: EXCEPTION
1026: WHEN OTHERS
1025: EXCEPTION
1026: WHEN OTHERS
1027: THEN
1028: pn_varen_util.pvt_debug
1029: ( 'PN_VAREN_PVT: Insert_Breakpoint_Details: Exception Result of insert_breakpoint_Details procedure : '
1030: || SQLERRM
1031: , 3
1032: );
1033: x_return_status := fnd_api.g_ret_sts_error;
1052: IS
1053: l_not_used VARCHAR2 (20) := NULL;
1054: BEGIN
1055: pn_varen_util.pvt_debug
1056: ('PN_VAREN_PVT: Update_Breakpoint_Details: Start of Input parameters for PN_VAR_BKDT_DEFAULTS_PKG.UPDATE_ROW package'
1057: , 3
1058: );
1059: pn_varen_util.pvt_debug
1060: ( 'PN_VAREN_PVT: Update_Breakpoint_Details: p_breakpoint_details_rec_type.BKDT_DEFAULT_ID : '
1056: ('PN_VAREN_PVT: Update_Breakpoint_Details: Start of Input parameters for PN_VAR_BKDT_DEFAULTS_PKG.UPDATE_ROW package'
1057: , 3
1058: );
1059: pn_varen_util.pvt_debug
1060: ( 'PN_VAREN_PVT: Update_Breakpoint_Details: p_breakpoint_details_rec_type.BKDT_DEFAULT_ID : '
1061: || p_breakpoint_details_rec_type.bkdt_default_id
1062: , 3
1063: );
1064: pn_varen_util.pvt_debug
1061: || p_breakpoint_details_rec_type.bkdt_default_id
1062: , 3
1063: );
1064: pn_varen_util.pvt_debug
1065: ( 'PN_VAREN_PVT: Update_Breakpoint_Details: p_breakpoint_details_rec_type.BKDT_DETAIL_NUM : '
1066: || p_breakpoint_details_rec_type.bkdt_detail_num
1067: , 3
1068: );
1069: pn_varen_util.pvt_debug
1066: || p_breakpoint_details_rec_type.bkdt_detail_num
1067: , 3
1068: );
1069: pn_varen_util.pvt_debug
1070: ( 'PN_VAREN_PVT: Update_Breakpoint_Details: p_breakpoint_details_rec_type.BKHD_DEFAULT_ID : '
1071: || p_breakpoint_details_rec_type.bkhd_default_id
1072: , 3
1073: );
1074: pn_varen_util.pvt_debug
1071: || p_breakpoint_details_rec_type.bkhd_default_id
1072: , 3
1073: );
1074: pn_varen_util.pvt_debug
1075: ( 'PN_VAREN_PVT: Update_Breakpoint_Details: p_breakpoint_details_rec_type.BKDT_START_DATE : '
1076: || p_breakpoint_details_rec_type.bkdt_start_date
1077: , 3
1078: );
1079: pn_varen_util.pvt_debug
1076: || p_breakpoint_details_rec_type.bkdt_start_date
1077: , 3
1078: );
1079: pn_varen_util.pvt_debug
1080: ( 'PN_VAREN_PVT: Update_Breakpoint_Details: p_breakpoint_details_rec_type.BKDT_END_DATE : '
1081: || p_breakpoint_details_rec_type.bkdt_end_date
1082: , 3
1083: );
1084: pn_varen_util.pvt_debug
1081: || p_breakpoint_details_rec_type.bkdt_end_date
1082: , 3
1083: );
1084: pn_varen_util.pvt_debug
1085: ( 'PN_VAREN_PVT: Update_Breakpoint_Details: p_breakpoint_details_rec_type.PERIOD_BKPT_VOL_START : '
1086: || p_breakpoint_details_rec_type.period_bkpt_vol_start
1087: , 3
1088: );
1089: pn_varen_util.pvt_debug
1086: || p_breakpoint_details_rec_type.period_bkpt_vol_start
1087: , 3
1088: );
1089: pn_varen_util.pvt_debug
1090: ( 'PN_VAREN_PVT: Update_Breakpoint_Details: p_breakpoint_details_rec_type.PERIOD_BKPT_VOL_END : '
1091: || p_breakpoint_details_rec_type.period_bkpt_vol_end
1092: , 3
1093: );
1094: pn_varen_util.pvt_debug
1091: || p_breakpoint_details_rec_type.period_bkpt_vol_end
1092: , 3
1093: );
1094: pn_varen_util.pvt_debug
1095: ( 'PN_VAREN_PVT: Update_Breakpoint_Details: p_breakpoint_details_rec_type.GROUP_BKPT_VOL_START : '
1096: || p_breakpoint_details_rec_type.group_bkpt_vol_start
1097: , 3
1098: );
1099: pn_varen_util.pvt_debug
1096: || p_breakpoint_details_rec_type.group_bkpt_vol_start
1097: , 3
1098: );
1099: pn_varen_util.pvt_debug
1100: ( 'PN_VAREN_PVT: Update_Breakpoint_Details: p_breakpoint_details_rec_type.GROUP_BKPT_VOL_END : '
1101: || p_breakpoint_details_rec_type.group_bkpt_vol_end
1102: , 3
1103: );
1104: pn_varen_util.pvt_debug
1101: || p_breakpoint_details_rec_type.group_bkpt_vol_end
1102: , 3
1103: );
1104: pn_varen_util.pvt_debug
1105: ( 'PN_VAREN_PVT: Update_Breakpoint_Details: p_breakpoint_details_rec_type.VAR_RENT_ID : '
1106: || p_breakpoint_details_rec_type.var_rent_id
1107: , 3
1108: );
1109: pn_varen_util.pvt_debug
1106: || p_breakpoint_details_rec_type.var_rent_id
1107: , 3
1108: );
1109: pn_varen_util.pvt_debug
1110: ( 'PN_VAREN_PVT: Update_Breakpoint_Details: p_breakpoint_details_rec_type.ANNUAL_BASIS_AMOUNT : '
1111: || p_breakpoint_details_rec_type.annual_basis_amount
1112: , 3
1113: );
1114: pn_varen_util.pvt_debug
1111: || p_breakpoint_details_rec_type.annual_basis_amount
1112: , 3
1113: );
1114: pn_varen_util.pvt_debug
1115: ('PN_VAREN_PVT: Update_Breakpoint_Details: End of Input parameters for PN_VAR_BKDT_DEFAULTS_PKG.UPDATE_ROW package'
1116: , 3
1117: );
1118: pn_var_bkdt_defaults_pkg.update_row
1119: (x_bkdt_default_id => p_breakpoint_details_rec_type.bkdt_default_id
1154: , x_attribute15 => p_breakpoint_details_rec_type.attribute15
1155: );
1156: x_return_status := fnd_api.g_ret_sts_success;
1157: pn_varen_util.pvt_debug
1158: ('PN_VAREN_PVT: Update_Breakpoint_Details: Success Result of pn_var_bkdt_defaults_pkg.update_row package'
1159: , 3
1160: );
1161: EXCEPTION
1162: WHEN OTHERS
1161: EXCEPTION
1162: WHEN OTHERS
1163: THEN
1164: pn_varen_util.pvt_debug
1165: ( 'PN_VAREN_PVT: Update_Breakpoint_Details: Exception Result of update_breakpoint_details procedure : '
1166: || SQLERRM
1167: , 3
1168: );
1169: x_return_status := fnd_api.g_ret_sts_error;
1189: l_not_used VARCHAR2 (20) := NULL;
1190: l_base_rent_type VARCHAR2 (30) := 'ROLLING';
1191: BEGIN
1192: pn_varen_util.pvt_debug
1193: ('PN_VAREN_PVT: Insert_Breakpoint_Headers: Start of Input parameters for pn_var_bkhd_defaults_pkg.insert_row package'
1194: , 3
1195: );
1196: pn_varen_util.pvt_debug
1197: ( 'PN_VAREN_PVT: Insert_Breakpoint_Headers: p_breakpoint_header_rec_type.bkhd_default_id : '
1193: ('PN_VAREN_PVT: Insert_Breakpoint_Headers: Start of Input parameters for pn_var_bkhd_defaults_pkg.insert_row package'
1194: , 3
1195: );
1196: pn_varen_util.pvt_debug
1197: ( 'PN_VAREN_PVT: Insert_Breakpoint_Headers: p_breakpoint_header_rec_type.bkhd_default_id : '
1198: || p_breakpoint_header_rec_type.bkhd_default_id
1199: , 3
1200: );
1201: pn_varen_util.pvt_debug
1198: || p_breakpoint_header_rec_type.bkhd_default_id
1199: , 3
1200: );
1201: pn_varen_util.pvt_debug
1202: ( 'PN_VAREN_PVT: Insert_Breakpoint_Headers: p_breakpoint_header_rec_type.bkhd_detail_num : '
1203: || p_breakpoint_header_rec_type.bkhd_detail_num
1204: , 3
1205: );
1206: pn_varen_util.pvt_debug
1203: || p_breakpoint_header_rec_type.bkhd_detail_num
1204: , 3
1205: );
1206: pn_varen_util.pvt_debug
1207: ( 'PN_VAREN_PVT: Insert_Breakpoint_Headers: p_breakpoint_header_rec_type.line_default_id : '
1208: || p_breakpoint_header_rec_type.line_default_id
1209: , 3
1210: );
1211: pn_varen_util.pvt_debug
1208: || p_breakpoint_header_rec_type.line_default_id
1209: , 3
1210: );
1211: pn_varen_util.pvt_debug
1212: ( 'PN_VAREN_PVT: Insert_Breakpoint_Headers: p_breakpoint_header_rec_type.bkhd_start_date : '
1213: || p_breakpoint_header_rec_type.bkhd_start_date
1214: , 3
1215: );
1216: pn_varen_util.pvt_debug
1213: || p_breakpoint_header_rec_type.bkhd_start_date
1214: , 3
1215: );
1216: pn_varen_util.pvt_debug
1217: ( 'PN_VAREN_PVT: Insert_Breakpoint_Headers: p_breakpoint_header_rec_type.bkhd_end_date : '
1218: || p_breakpoint_header_rec_type.bkhd_end_date
1219: , 3
1220: );
1221: pn_varen_util.pvt_debug
1218: || p_breakpoint_header_rec_type.bkhd_end_date
1219: , 3
1220: );
1221: pn_varen_util.pvt_debug
1222: ( 'PN_VAREN_PVT: Insert_Breakpoint_Headers: p_breakpoint_header_rec_type.break_type_code : '
1223: || p_breakpoint_header_rec_type.break_type_code
1224: , 3
1225: );
1226: pn_varen_util.pvt_debug
1223: || p_breakpoint_header_rec_type.break_type_code
1224: , 3
1225: );
1226: pn_varen_util.pvt_debug
1227: ( 'PN_VAREN_PVT: Insert_Breakpoint_Headers: p_breakpoint_header_rec_type.natural_break_rate : '
1228: || p_breakpoint_header_rec_type.natural_break_rate
1229: , 3
1230: );
1231: pn_varen_util.pvt_debug
1228: || p_breakpoint_header_rec_type.natural_break_rate
1229: , 3
1230: );
1231: pn_varen_util.pvt_debug
1232: ( 'PN_VAREN_PVT: Insert_Breakpoint_Headers: p_breakpoint_header_rec_type.var_rent_id : '
1233: || p_breakpoint_header_rec_type.var_rent_id
1234: , 3
1235: );
1236: pn_varen_util.pvt_debug
1233: || p_breakpoint_header_rec_type.var_rent_id
1234: , 3
1235: );
1236: pn_varen_util.pvt_debug
1237: ('PN_VAREN_PVT: Insert_Breakpoint_Headers: End of Input parameters for pn_var_bkhd_defaults_pkg.insert_row package'
1238: , 3
1239: );
1240:
1241: BEGIN
1240:
1241: BEGIN
1242: p_breakpoint_header_rec_type.bkhd_detail_num := NULL;
1243: pn_varen_util.pvt_debug
1244: ('PN_VAREN_PVT: Insert_Breakpoint_Headers: Before the Package pn_var_bkhd_defaults_pkg.insert_row'
1245: , 3
1246: );
1247: pn_var_bkhd_defaults_pkg.insert_row
1248: (x_rowid => g_rowid
1302: EXCEPTION
1303: WHEN OTHERS
1304: THEN
1305: pn_varen_util.pvt_debug
1306: ( 'PN_VAREN_PVT: Insert_Breakpoint_Headers: Exception Result of pn_var_bkhd_defaults_pkg.insert_row package : '
1307: || SQLERRM
1308: , 3
1309: );
1310: END;
1310: END;
1311:
1312: x_return_status := fnd_api.g_ret_sts_success;
1313: pn_varen_util.pvt_debug
1314: ('PN_VAREN_PVT: Insert_Breakpoint_Headers: Success Result of pn_var_bkhd_defaults_pkg.insert_row package'
1315: , 3
1316: );
1317: EXCEPTION
1318: WHEN OTHERS
1317: EXCEPTION
1318: WHEN OTHERS
1319: THEN
1320: pn_varen_util.pvt_debug
1321: ( 'PN_VAREN_PVT: Insert_Breakpoint_Headers: Exception Result of insert_breakpoint_headers procedure : '
1322: || SQLERRM
1323: , 3
1324: );
1325: x_return_status := fnd_api.g_ret_sts_error;
1345: l_not_used VARCHAR2 (20) := NULL;
1346: l_base_rent_type VARCHAR2 (30) := 'ROLLING';
1347: BEGIN
1348: pn_varen_util.pvt_debug
1349: ('PN_VAREN_PVT: Update_Breakpoint_Headers: Start of Input parameters for pn_var_bkhd_defaults_pkg.update_row package'
1350: , 3
1351: );
1352: pn_varen_util.pvt_debug
1353: ( 'PN_VAREN_PVT: Update_Breakpoint_Headers: p_breakpoint_header_rec_type.bkhd_default_id : '
1349: ('PN_VAREN_PVT: Update_Breakpoint_Headers: Start of Input parameters for pn_var_bkhd_defaults_pkg.update_row package'
1350: , 3
1351: );
1352: pn_varen_util.pvt_debug
1353: ( 'PN_VAREN_PVT: Update_Breakpoint_Headers: p_breakpoint_header_rec_type.bkhd_default_id : '
1354: || p_breakpoint_header_rec_type.bkhd_default_id
1355: , 3
1356: );
1357: pn_varen_util.pvt_debug
1354: || p_breakpoint_header_rec_type.bkhd_default_id
1355: , 3
1356: );
1357: pn_varen_util.pvt_debug
1358: ( 'PN_VAREN_PVT: Update_Breakpoint_Headers: p_breakpoint_header_rec_type.bkhd_detail_num : '
1359: || p_breakpoint_header_rec_type.bkhd_detail_num
1360: , 3
1361: );
1362: pn_varen_util.pvt_debug
1359: || p_breakpoint_header_rec_type.bkhd_detail_num
1360: , 3
1361: );
1362: pn_varen_util.pvt_debug
1363: ( 'PN_VAREN_PVT: Update_Breakpoint_Headers: p_breakpoint_header_rec_type.line_default_id : '
1364: || p_breakpoint_header_rec_type.line_default_id
1365: , 3
1366: );
1367: pn_varen_util.pvt_debug
1364: || p_breakpoint_header_rec_type.line_default_id
1365: , 3
1366: );
1367: pn_varen_util.pvt_debug
1368: ( 'PN_VAREN_PVT: Update_Breakpoint_Headers: p_breakpoint_header_rec_type.bkhd_start_date : '
1369: || p_breakpoint_header_rec_type.bkhd_start_date
1370: , 3
1371: );
1372: pn_varen_util.pvt_debug
1369: || p_breakpoint_header_rec_type.bkhd_start_date
1370: , 3
1371: );
1372: pn_varen_util.pvt_debug
1373: ( 'PN_VAREN_PVT: Update_Breakpoint_Headers: p_breakpoint_header_rec_type.bkhd_end_date : '
1374: || p_breakpoint_header_rec_type.bkhd_end_date
1375: , 3
1376: );
1377: pn_varen_util.pvt_debug
1374: || p_breakpoint_header_rec_type.bkhd_end_date
1375: , 3
1376: );
1377: pn_varen_util.pvt_debug
1378: ( 'PN_VAREN_PVT: Update_Breakpoint_Headers: p_breakpoint_header_rec_type.break_type_code : '
1379: || p_breakpoint_header_rec_type.break_type_code
1380: , 3
1381: );
1382: pn_varen_util.pvt_debug
1379: || p_breakpoint_header_rec_type.break_type_code
1380: , 3
1381: );
1382: pn_varen_util.pvt_debug
1383: ( 'PN_VAREN_PVT: Update_Breakpoint_Headers: p_breakpoint_header_rec_type.natural_break_rate : '
1384: || p_breakpoint_header_rec_type.natural_break_rate
1385: , 3
1386: );
1387: pn_varen_util.pvt_debug
1384: || p_breakpoint_header_rec_type.natural_break_rate
1385: , 3
1386: );
1387: pn_varen_util.pvt_debug
1388: ( 'PN_VAREN_PVT: Update_Breakpoint_Headers: p_breakpoint_header_rec_type.var_rent_id : '
1389: || p_breakpoint_header_rec_type.var_rent_id
1390: , 3
1391: );
1392: pn_varen_util.pvt_debug
1389: || p_breakpoint_header_rec_type.var_rent_id
1390: , 3
1391: );
1392: pn_varen_util.pvt_debug
1393: ('PN_VAREN_PVT: Update_Breakpoint_Headers: End of Input parameters for pn_var_bkhd_defaults_pkg.update_row package'
1394: , 3
1395: );
1396: pn_var_bkhd_defaults_pkg.update_row (x_bkhd_default_id => p_breakpoint_header_rec_type.bkhd_default_id
1397: , x_bkhd_detail_num => p_breakpoint_header_rec_type.bkhd_detail_num
1438: , x_attribute15 => p_breakpoint_header_rec_type.attribute15
1439: );
1440: x_return_status := fnd_api.g_ret_sts_success;
1441: pn_varen_util.pvt_debug
1442: ('PN_VAREN_PVT: Update_Breakpoint_Headers: Success Result of pn_var_bkhd_defaults_pkg.update_row package'
1443: , 3
1444: );
1445: EXCEPTION
1446: WHEN OTHERS
1445: EXCEPTION
1446: WHEN OTHERS
1447: THEN
1448: pn_varen_util.pvt_debug
1449: ( 'PN_VAREN_PVT: Update_Breakpoint_Headers: Exception Result of update_breakpoint_headers procedure : '
1450: || SQLERRM
1451: , 3
1452: );
1453: x_return_status := fnd_api.g_ret_sts_error;
1482: l_var_rent_id pn_var_rents_all.var_rent_id%TYPE;
1483: BEGIN
1484: -- NULL;
1485: pn_varen_util.pvt_debug
1486: ('PN_VAREN_PVT: Insert_Variable_Rent_Lines: Calling PN_VAR_LINE_DEFAULTS_PKG.INSERT_ROW Package'
1487: , 3
1488: );
1489: pn_varen_util.pvt_debug
1490: ('PN_VAREN_PVT: Insert_Variable_Rent_Lines: START OF CALLING PN_VAR_LINE_DEFAULTS_PKG.INSERT_ROW PACKAGE'
1486: ('PN_VAREN_PVT: Insert_Variable_Rent_Lines: Calling PN_VAR_LINE_DEFAULTS_PKG.INSERT_ROW Package'
1487: , 3
1488: );
1489: pn_varen_util.pvt_debug
1490: ('PN_VAREN_PVT: Insert_Variable_Rent_Lines: START OF CALLING PN_VAR_LINE_DEFAULTS_PKG.INSERT_ROW PACKAGE'
1491: , 3
1492: );
1493:
1494: BEGIN
1492: );
1493:
1494: BEGIN
1495: pn_varen_util.pvt_debug
1496: ( 'PN_VAREN_PVT: Insert_Variable_Rent_Lines: p_variable_rent_lines_rec_type.var_rent_id : '
1497: || p_variable_rent_lines_rec_type.var_rent_id
1498: , 3
1499: );
1500: pn_varen_util.pvt_debug
1497: || p_variable_rent_lines_rec_type.var_rent_id
1498: , 3
1499: );
1500: pn_varen_util.pvt_debug
1501: ( 'PN_VAREN_PVT: Insert_Variable_Rent_Lines: p_variable_rent_lines_rec_type.var_rent_num: '
1502: || p_variable_rent_lines_rec_type.var_rent_num
1503: , 3
1504: );
1505: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Insert_Variable_Rent_Lines: G_ORG_ID : '
1501: ( 'PN_VAREN_PVT: Insert_Variable_Rent_Lines: p_variable_rent_lines_rec_type.var_rent_num: '
1502: || p_variable_rent_lines_rec_type.var_rent_num
1503: , 3
1504: );
1505: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Insert_Variable_Rent_Lines: G_ORG_ID : '
1506: || g_org_id
1507: , 3
1508: );
1509:
1529: EXCEPTION
1530: WHEN OTHERS
1531: THEN
1532: pn_varen_util.pvt_debug
1533: ( 'PN_VAREN_PVT: Insert_Variable_Rent_Lines: Var_rent_id does not exist, please check the var_rent_id : '
1534: || SQLERRM
1535: , 3
1536: );
1537: END;
1535: , 3
1536: );
1537: END;
1538:
1539: pn_varen_util.pvt_debug ('PN_VAREN_PVT: Insert_Variable_Rent_Lines: Calling Insert Row package'
1540: , 3
1541: );
1542: pn_varen_util.pvt_debug
1543: ('PN_VAREN_PVT: Insert_Variable_Rent_Lines: Input parameters before calling Pn_Var_Line_Defaults_Pkg.Insert_Row procedure'
1539: pn_varen_util.pvt_debug ('PN_VAREN_PVT: Insert_Variable_Rent_Lines: Calling Insert Row package'
1540: , 3
1541: );
1542: pn_varen_util.pvt_debug
1543: ('PN_VAREN_PVT: Insert_Variable_Rent_Lines: Input parameters before calling Pn_Var_Line_Defaults_Pkg.Insert_Row procedure'
1544: , 3
1545: );
1546: pn_varen_util.pvt_debug
1547: ( 'PN_VAREN_PVT: Insert_Variable_Rent_Lines: p_variable_rent_lines_rec_type.line_default_id : '
1543: ('PN_VAREN_PVT: Insert_Variable_Rent_Lines: Input parameters before calling Pn_Var_Line_Defaults_Pkg.Insert_Row procedure'
1544: , 3
1545: );
1546: pn_varen_util.pvt_debug
1547: ( 'PN_VAREN_PVT: Insert_Variable_Rent_Lines: p_variable_rent_lines_rec_type.line_default_id : '
1548: || p_variable_rent_lines_rec_type.line_default_id
1549: , 3
1550: );
1551: pn_varen_util.pvt_debug
1548: || p_variable_rent_lines_rec_type.line_default_id
1549: , 3
1550: );
1551: pn_varen_util.pvt_debug
1552: ( 'PN_VAREN_PVT: Insert_Variable_Rent_Lines: p_variable_rent_lines_rec_type.line_num : '
1553: || p_variable_rent_lines_rec_type.line_num
1554: , 3
1555: );
1556: pn_varen_util.pvt_debug
1553: || p_variable_rent_lines_rec_type.line_num
1554: , 3
1555: );
1556: pn_varen_util.pvt_debug
1557: ( 'PN_VAREN_PVT: Insert_Variable_Rent_Lines: p_variable_rent_lines_rec_type.var_rent_id : '
1558: || p_variable_rent_lines_rec_type.var_rent_id
1559: , 3
1560: );
1561: pn_varen_util.pvt_debug
1558: || p_variable_rent_lines_rec_type.var_rent_id
1559: , 3
1560: );
1561: pn_varen_util.pvt_debug
1562: ( 'PN_VAREN_PVT: Insert_Variable_Rent_Lines: p_variable_rent_lines_rec_type.sales_channel_code : '
1563: || p_variable_rent_lines_rec_type.sales_channel_code
1564: , 3
1565: );
1566: pn_varen_util.pvt_debug
1563: || p_variable_rent_lines_rec_type.sales_channel_code
1564: , 3
1565: );
1566: pn_varen_util.pvt_debug
1567: ( 'PN_VAREN_PVT: Insert_Variable_Rent_Lines: p_variable_rent_lines_rec_type.item_category_code : '
1568: || p_variable_rent_lines_rec_type.item_category_code
1569: , 3
1570: );
1571: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Insert_Variable_Rent_Lines: l_agreement_template_id : '
1567: ( 'PN_VAREN_PVT: Insert_Variable_Rent_Lines: p_variable_rent_lines_rec_type.item_category_code : '
1568: || p_variable_rent_lines_rec_type.item_category_code
1569: , 3
1570: );
1571: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Insert_Variable_Rent_Lines: l_agreement_template_id : '
1572: || l_agreement_template_id
1573: , 3
1574: );
1575: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Insert_Variable_Rent_Lines: l_line_start_date : '
1571: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Insert_Variable_Rent_Lines: l_agreement_template_id : '
1572: || l_agreement_template_id
1573: , 3
1574: );
1575: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Insert_Variable_Rent_Lines: l_line_start_date : '
1576: || l_line_start_date
1577: , 3
1578: );
1579: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Insert_Variable_Rent_Lines: g_org_id : '
1575: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Insert_Variable_Rent_Lines: l_line_start_date : '
1576: || l_line_start_date
1577: , 3
1578: );
1579: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Insert_Variable_Rent_Lines: g_org_id : '
1580: || g_org_id
1581: , 3
1582: );
1583: pn_varen_util.pvt_debug
1580: || g_org_id
1581: , 3
1582: );
1583: pn_varen_util.pvt_debug
1584: ('PN_VAREN_PVT: Insert_Variable_Rent_Lines: End of Input parameters before calling Pn_Var_Line_Defaults_Pkg.Insert_Row procedure'
1585: , 3
1586: );
1587: pn_var_line_defaults_pkg.insert_row
1588: (x_rowid => g_rowid
1635: , x_attribute14 => p_variable_rent_lines_rec_type.attribute14
1636: , x_attribute15 => p_variable_rent_lines_rec_type.attribute15
1637: );
1638: pn_varen_util.pvt_debug
1639: ('PN_VAREN_PVT: Insert_Variable_Rent_Lines: End OF CALLING PN_VAR_LINE_DEFAULTS_PKG.INSERT_ROW PACKAGE'
1640: , 3
1641: );
1642: x_return_status := fnd_api.g_ret_sts_success;
1643: EXCEPTION
1643: EXCEPTION
1644: WHEN OTHERS
1645: THEN
1646: pn_varen_util.pvt_debug
1647: ( 'PN_VAREN_PVT: Insert_Variable_Rent_Lines: Exception Result of PN_VAR_LINE_DEFAULTS_PKG.INSERT_ROW PACKAGE'
1648: || SQLERRM
1649: , 3
1650: );
1651: x_return_status := fnd_api.g_ret_sts_error;
1670: IS
1671: l_not_used NUMBER DEFAULT NULL;
1672: BEGIN
1673: pn_varen_util.pvt_debug
1674: ('PN_VAREN_PVT: Update_Variable_Rent_Lines: Start of Input parameters before calling Pn_Var_Line_Defaults_Pkg.Update_Row procedure'
1675: , 3
1676: );
1677: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Variable_Rent_Lines : LINE_DEFAULT_ID : '
1678: || p_variable_rent_lines_rec_type.line_default_id
1673: pn_varen_util.pvt_debug
1674: ('PN_VAREN_PVT: Update_Variable_Rent_Lines: Start of Input parameters before calling Pn_Var_Line_Defaults_Pkg.Update_Row procedure'
1675: , 3
1676: );
1677: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Variable_Rent_Lines : LINE_DEFAULT_ID : '
1678: || p_variable_rent_lines_rec_type.line_default_id
1679: , 3
1680: );
1681: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Variable_Rent_Lines : LINE_NUM : '
1677: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Variable_Rent_Lines : LINE_DEFAULT_ID : '
1678: || p_variable_rent_lines_rec_type.line_default_id
1679: , 3
1680: );
1681: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Variable_Rent_Lines : LINE_NUM : '
1682: || p_variable_rent_lines_rec_type.line_num
1683: , 3
1684: );
1685: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Variable_Rent_Lines : VAR_RENT_ID : '
1681: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Variable_Rent_Lines : LINE_NUM : '
1682: || p_variable_rent_lines_rec_type.line_num
1683: , 3
1684: );
1685: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Variable_Rent_Lines : VAR_RENT_ID : '
1686: || p_variable_rent_lines_rec_type.var_rent_id
1687: , 3
1688: );
1689: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Variable_Rent_Lines : SALES_CHANNEL_CODE : '
1685: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Variable_Rent_Lines : VAR_RENT_ID : '
1686: || p_variable_rent_lines_rec_type.var_rent_id
1687: , 3
1688: );
1689: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Variable_Rent_Lines : SALES_CHANNEL_CODE : '
1690: || p_variable_rent_lines_rec_type.sales_channel_code
1691: , 3
1692: );
1693: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Variable_Rent_Lines : ITEM_CATEGORY_CODE : '
1689: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Variable_Rent_Lines : SALES_CHANNEL_CODE : '
1690: || p_variable_rent_lines_rec_type.sales_channel_code
1691: , 3
1692: );
1693: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Variable_Rent_Lines : ITEM_CATEGORY_CODE : '
1694: || p_variable_rent_lines_rec_type.item_category_code
1695: , 3
1696: );
1697: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Variable_Rent_Lines : AGREEMENT_TEMPLATE_ID : '
1693: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Variable_Rent_Lines : ITEM_CATEGORY_CODE : '
1694: || p_variable_rent_lines_rec_type.item_category_code
1695: , 3
1696: );
1697: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Variable_Rent_Lines : AGREEMENT_TEMPLATE_ID : '
1698: || p_variable_rent_lines_rec_type.agreement_template_id
1699: , 3
1700: );
1701: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Variable_Rent_Lines : LINE_START_DATE : '
1697: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Variable_Rent_Lines : AGREEMENT_TEMPLATE_ID : '
1698: || p_variable_rent_lines_rec_type.agreement_template_id
1699: , 3
1700: );
1701: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Variable_Rent_Lines : LINE_START_DATE : '
1702: || p_variable_rent_lines_rec_type.line_start_date
1703: , 3
1704: );
1705: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Variable_Rent_Lines : LINE_END_DATE : '
1701: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Variable_Rent_Lines : LINE_START_DATE : '
1702: || p_variable_rent_lines_rec_type.line_start_date
1703: , 3
1704: );
1705: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Variable_Rent_Lines : LINE_END_DATE : '
1706: || p_variable_rent_lines_rec_type.line_end_date
1707: , 3
1708: );
1709: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Variable_Rent_Lines : PROCESSED_FLAG : '
1705: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Variable_Rent_Lines : LINE_END_DATE : '
1706: || p_variable_rent_lines_rec_type.line_end_date
1707: , 3
1708: );
1709: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Variable_Rent_Lines : PROCESSED_FLAG : '
1710: || p_variable_rent_lines_rec_type.processed_flag
1711: , 3
1712: );
1713: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Variable_Rent_Lines : LAST_UPDATE_DATE : '
1709: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Variable_Rent_Lines : PROCESSED_FLAG : '
1710: || p_variable_rent_lines_rec_type.processed_flag
1711: , 3
1712: );
1713: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Variable_Rent_Lines : LAST_UPDATE_DATE : '
1714: || p_variable_rent_lines_rec_type.last_update_date
1715: , 3
1716: );
1717: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Variable_Rent_Lines : LAST_UPDATED_BY : '
1713: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Variable_Rent_Lines : LAST_UPDATE_DATE : '
1714: || p_variable_rent_lines_rec_type.last_update_date
1715: , 3
1716: );
1717: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Variable_Rent_Lines : LAST_UPDATED_BY : '
1718: || p_variable_rent_lines_rec_type.last_updated_by
1719: , 3
1720: );
1721: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Variable_Rent_Lines : LAST_UPDATE_LOGIN : '
1717: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Variable_Rent_Lines : LAST_UPDATED_BY : '
1718: || p_variable_rent_lines_rec_type.last_updated_by
1719: , 3
1720: );
1721: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Variable_Rent_Lines : LAST_UPDATE_LOGIN : '
1722: || p_variable_rent_lines_rec_type.last_update_login
1723: , 3
1724: );
1725: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Variable_Rent_Lines : ATTRIBUTE_CATEGORY : '
1721: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Variable_Rent_Lines : LAST_UPDATE_LOGIN : '
1722: || p_variable_rent_lines_rec_type.last_update_login
1723: , 3
1724: );
1725: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Variable_Rent_Lines : ATTRIBUTE_CATEGORY : '
1726: || p_variable_rent_lines_rec_type.attribute_category
1727: , 3
1728: );
1729: pn_varen_util.pvt_debug
1726: || p_variable_rent_lines_rec_type.attribute_category
1727: , 3
1728: );
1729: pn_varen_util.pvt_debug
1730: ('PN_VAREN_PVT: Update_Variable_Rent_Lines: End of Input parameters before calling Pn_Var_Line_Defaults_Pkg.Update_Row procedure'
1731: , 3
1732: );
1733: pn_var_line_defaults_pkg.update_row
1734: (x_line_default_id => p_variable_rent_lines_rec_type.line_default_id
1765: , x_attribute14 => p_variable_rent_lines_rec_type.attribute14
1766: , x_attribute15 => p_variable_rent_lines_rec_type.attribute15
1767: );
1768: pn_varen_util.pvt_debug
1769: ('PN_VAREN_PVT: Update_Variable_Rent_Lines: End of calling PN_VAR_LINE_DEFAULTS_PKG.UPDATE_ROW PACKAGE'
1770: , 3
1771: );
1772: x_return_status := fnd_api.g_ret_sts_success;
1773: EXCEPTION
1773: EXCEPTION
1774: WHEN OTHERS
1775: THEN
1776: pn_varen_util.pvt_debug
1777: ( 'PN_VAREN_PVT: Update_Variable_Rent_Lines: Exception Result of PN_VAR_LINE_DEFAULTS_PKG.UPDATE_ROW PACKAGE'
1778: || SQLERRM
1779: , 3
1780: );
1781: x_return_status := fnd_api.g_ret_sts_error;
1811: l_exist VARCHAR2(1) := NULL;
1812:
1813:
1814: BEGIN
1815: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Val_Ins_Allow_Abat:G_VAR_RENT_ID Before Abatements Loop: '
1816: || g_var_rent_id
1817: , 3
1818: );
1819:
1819:
1820: FOR b IN p_allow_abat_tbl_type.FIRST .. p_allow_abat_tbl_type.LAST
1821: LOOP
1822: BEGIN
1823: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Val_Ins_Allow_Abat: G_VAR_RENT_ID Inside Abatements Loop: '
1824: || g_var_rent_id
1825: , 3
1826: );
1827:
1990: ---------
1991: -------------------------------------------------------------------------------
1992: --Allowance and Abatements validation
1993: --------------------------------------------------------------------------------
1994: pn_varen_util.pvt_debug ('PN_VAREN_PVT: Val_Ins_Allow_Abat: Calling Allowance and Abatements Validation'
1995: , 3
1996: );
1997:
1998: BEGIN
2015: EXCEPTION
2016: WHEN OTHERS
2017: THEN
2018: pn_varen_util.pvt_debug
2019: ( 'PN_VAREN_PVT: Val_Ins_Allow_Abat: Variable Rent Number or Variable Rent Id doesnot exists :'
2020: || SQLERRM
2021: , 3
2022: );
2023: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
2025: fnd_msg_pub.ADD;
2026: RAISE fnd_api.g_exc_error;
2027: END;
2028:
2029: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Val_Ins_Allow_Abat: Abatements var_rent_Id :'
2030: || l_var_rent_id
2031: , 3
2032: );
2033:
2039: OR p_allow_abat_tbl_type (b).abat_type_meaning IS NOT NULL
2040: )
2041: THEN
2042: pn_varen_util.pvt_debug
2043: ('PN_VAREN_PVT: Val_Ins_Allow_Abat: Calling Allowance and Abatements Validation Lookup - Inside the Loop'
2044: , 3
2045: );
2046: pn_varen_util.pvt_debug ('PN_VAREN_PVT: Val_Ins_Allow_Abat: Calling Allowance and Abatements Validation'
2047: , 3
2042: pn_varen_util.pvt_debug
2043: ('PN_VAREN_PVT: Val_Ins_Allow_Abat: Calling Allowance and Abatements Validation Lookup - Inside the Loop'
2044: , 3
2045: );
2046: pn_varen_util.pvt_debug ('PN_VAREN_PVT: Val_Ins_Allow_Abat: Calling Allowance and Abatements Validation'
2047: , 3
2048: );
2049: pn_varen_util.validate_lookups (p_lookup_type => g_abate_type_code
2050: , x_lookup_meaning => p_allow_abat_tbl_type (b).abat_type_meaning
2050: , x_lookup_meaning => p_allow_abat_tbl_type (b).abat_type_meaning
2051: , x_lookup_code => p_allow_abat_tbl_type (b).abat_type_code
2052: , x_return_status => l_return_status
2053: );
2054: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Val_Ins_Allow_Abat: Allowance and Abatements Output Code :'
2055: || p_allow_abat_tbl_type (b).abat_type_code
2056: , 3
2057: );
2058:
2058:
2059: IF (l_return_status = fnd_api.g_ret_sts_error)
2060: THEN
2061: pn_varen_util.pvt_debug
2062: ('PN_VAREN_PVT: Val_Ins_Allow_Abat: Allowance and Abatements Lookup Validation Error'
2063: , 3
2064: );
2065: fnd_message.set_name ('PN'
2066: , 'PN_VAR_ALL_ABA_TY'
2115: ----------------------------------------------------------------------
2116: IF (p_allow_abat_tbl_type (b).abat_start_date IS NOT NULL)
2117: THEN
2118: pn_varen_util.pvt_debug
2119: ( 'PN_VAREN_PVT: Val_Ins_Allow_Abat: Allowance and Abatement Start date is not null : '
2120: || p_allow_abat_tbl_type (b).abat_start_date
2121: , 3
2122: );
2123: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Val_Ins_Allow_Abat: Allowance and Abatement end date : '
2119: ( 'PN_VAREN_PVT: Val_Ins_Allow_Abat: Allowance and Abatement Start date is not null : '
2120: || p_allow_abat_tbl_type (b).abat_start_date
2121: , 3
2122: );
2123: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Val_Ins_Allow_Abat: Allowance and Abatement end date : '
2124: || p_allow_abat_tbl_type (b).abat_end_date
2125: , 3
2126: );
2127: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Val_Ins_Allow_Abat: Variable Rent Commencement Date : '
2123: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Val_Ins_Allow_Abat: Allowance and Abatement end date : '
2124: || p_allow_abat_tbl_type (b).abat_end_date
2125: , 3
2126: );
2127: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Val_Ins_Allow_Abat: Variable Rent Commencement Date : '
2128: || l_var_commencement_date
2129: , 3
2130: );
2131: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Val_Ins_Allow_Abat: Variable Rent Termination Date: '
2127: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Val_Ins_Allow_Abat: Variable Rent Commencement Date : '
2128: || l_var_commencement_date
2129: , 3
2130: );
2131: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Val_Ins_Allow_Abat: Variable Rent Termination Date: '
2132: || l_var_termination_date
2133: , 3
2134: );
2135:
2424: );
2425: END IF;*/
2426: ELSE
2427: pn_varen_util.pvt_debug
2428: ('PN_VAR_RENT_PVT: Val_Ins_Allow_Abat: Pn_Varen_Pvt.Val_Ins_Allow_Abat - Rent_Num provided is not found'
2429: , 3
2430: );
2431: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
2432: fnd_message.set_token('ERR_MSG', 'Pn_Varen_Pvt.Val_Ins_Allow_Abat - Rent_Num provided is not found');
2428: ('PN_VAR_RENT_PVT: Val_Ins_Allow_Abat: Pn_Varen_Pvt.Val_Ins_Allow_Abat - Rent_Num provided is not found'
2429: , 3
2430: );
2431: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
2432: fnd_message.set_token('ERR_MSG', 'Pn_Varen_Pvt.Val_Ins_Allow_Abat - Rent_Num provided is not found');
2433: fnd_msg_pub.ADD;
2434: RAISE fnd_api.g_exc_error;
2435: END IF;
2436:
2452: EXCEPTION
2453: WHEN OTHERS
2454: THEN
2455: pn_varen_util.pvt_debug
2456: ( 'PN_VAR_RENT_PVT: Val_Ins_Allow_Abat: Pn_Varen_Pvt.Val_Ins_Allow_Abat - Exception raised: '
2457: || SQLERRM
2458: , 3
2459: );
2460: x_return_status := fnd_api.g_ret_sts_error;
2494: l_first_constr_amount pn_var_constr_defaults_all.amount%TYPE;
2495:
2496: l_val_ins_error_count NUMBER := 0;
2497: BEGIN
2498: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Val_Ins_Constraints: Value of g_var_rent_id befor constraints loop: '
2499: || g_var_rent_id
2500: , 3
2501: );
2502:
2503: FOR c IN p_constraints_tbl_type.FIRST .. p_constraints_tbl_type.LAST
2504: LOOP
2505: BEGIN
2506: pn_varen_util.pvt_debug
2507: ( 'PN_VAREN_PVT: Val_Ins_Constraints: Value of G_VAR_RENT_ID inside constraints loop: '
2508: || g_var_rent_id
2509: , 3
2510: );
2511:
2687: -- Comparing const_start_date is greater than const_end_date and also whether records exists in pn_var_grp_dates_all or not
2688: ----------------------------------------------------------------------------------------------------------------------------
2689: -- BEGIN -- to capture exceptions related to individual validations
2690: --
2691: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Val_Ins_Constraints: No of Constraints records:'
2692: || p_constraints_tbl_type.COUNT
2693: , 3
2694: );
2695:
2707: EXCEPTION
2708: WHEN OTHERS
2709: THEN
2710: pn_varen_util.pvt_debug
2711: ( 'PN_VAREN_PVT: Val_Ins_Constraints: Variable Rent Number or Variable Rent Id doesnot exists :'
2712: || SQLERRM
2713: , 3
2714: );
2715: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
2717: fnd_msg_pub.ADD;
2718: RAISE fnd_api.g_exc_error;
2719: END;
2720:
2721: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Val_Ins_Constraints: Constratints var_rent_Id :'
2722: || l_var_rent_id
2723: , 3
2724: );
2725:
2726: IF l_variable_rent_exists = 1
2727: THEN
2728: p_constraints_tbl_type (c).var_rent_id := l_var_rent_id;
2729: pn_varen_util.pvt_debug
2730: ( ' PN_VAREN_PVT: Val_Ins_Constraints: Variable Rent exists and VAR_RENT_ID is : '
2731: || l_var_rent_id
2732: , 3
2733: );
2734:
2734:
2735: IF (p_constraints_tbl_type (c).constr_start_date > p_constraints_tbl_type (c).constr_end_date)
2736: THEN
2737: pn_varen_util.pvt_debug
2738: ('PN_VAREN_PVT: Val_Ins_Constraints: Please ensure that constraint dates you enter coincide with invoice period dates'
2739: , 3
2740: );
2741: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
2742: fnd_message.set_token('ERR_MSG', 'Please ensure that constraint dates you enter coincide with invoice period dates');
2747:
2748: --------------------------------------------------------------------------------
2749: --Constraint Type validation
2750: --------------------------------------------------------------------------------
2751: pn_varen_util.pvt_debug ('PN_VAREN_PVT: Val_Ins_Constraints: Calling Constraint Type Validation'
2752: , 3
2753: );
2754:
2755: IF ( p_constraints_tbl_type (c).constr_type_code IS NOT NULL
2756: OR p_constraints_tbl_type (c).constr_type_meaning IS NOT NULL
2757: )
2758: THEN
2759:
2760: pn_varen_util.pvt_debug ('PN_VAREN_PVT: Val_Ins_Constraints: Constraint Type Validation'
2761: , 3
2762: );
2763: pn_varen_util.validate_lookups (p_lookup_type => g_type_code
2764: , x_lookup_meaning => p_constraints_tbl_type (c).constr_type_meaning
2764: , x_lookup_meaning => p_constraints_tbl_type (c).constr_type_meaning
2765: , x_lookup_code => p_constraints_tbl_type (c).constr_type_code
2766: , x_return_status => l_return_status
2767: );
2768: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Val_Ins_Constraints: Constraint Type Output Code :'
2769: || p_constraints_tbl_type (c).constr_type_code||'-'||l_return_status
2770: , 3
2771: );
2772:
2793: -- fetching variable rent commencement date and termination date values
2794: --
2795: IF p_constraints_tbl_type (c).var_rent_id IS NOT NULL
2796: THEN
2797: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Val_Ins_Constraints: Constraint Variable Rent Id '
2798: || p_constraints_tbl_type (c).var_rent_id
2799: , 3
2800: );
2801: pn_varen_util.var_rent_details (p_var_rent_id => p_constraints_tbl_type (c).var_rent_id
2806: );
2807:
2808:
2809: pn_varen_util.pvt_debug
2810: ( 'PN_VAREN_PVT: Val_Ins_Constraints: Constraint Variable Rent Id exists : '
2811: || p_constraints_tbl_type (c).var_rent_id||'-'||l_return_status
2812: , 3
2813: );
2814: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Val_Ins_Constraints: Variable Rent commencement date : '
2810: ( 'PN_VAREN_PVT: Val_Ins_Constraints: Constraint Variable Rent Id exists : '
2811: || p_constraints_tbl_type (c).var_rent_id||'-'||l_return_status
2812: , 3
2813: );
2814: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Val_Ins_Constraints: Variable Rent commencement date : '
2815: || l_var_commencement_date
2816: , 3
2817: );
2818: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Val_Ins_Constraints: Variable Rent termination date : '
2814: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Val_Ins_Constraints: Variable Rent commencement date : '
2815: || l_var_commencement_date
2816: , 3
2817: );
2818: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Val_Ins_Constraints: Variable Rent termination date : '
2819: || l_var_termination_date
2820: , 3
2821: );
2822: IF (x_return_status = fnd_api.g_ret_sts_error)
2821: );
2822: IF (x_return_status = fnd_api.g_ret_sts_error)
2823: THEN
2824: pn_varen_util.pvt_debug
2825: ( 'PN_VAREN_PVT: Val_Ins_Constraints: Constraint Variable Rent Id doesnot exists : '
2826: || p_constraints_tbl_type (c).var_rent_id
2827: , 3
2828: );
2829: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
2831: fnd_msg_pub.ADD;
2832: RAISE fnd_api.g_exc_error;
2833: ELSIF(x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
2834: pn_varen_util.pvt_debug
2835: ( 'PN_VAREN_PVT: Val_Ins_Constraints: Unexpected Error Constraint Variable Rent Id doesnot exists : '
2836: || p_constraints_tbl_type (c).var_rent_id
2837: , 3
2838: );
2839: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
2842: RAISE fnd_api.g_exc_unexpected_error;
2843: END IF;
2844: ELSE
2845: pn_varen_util.pvt_debug
2846: ( 'PN_VAREN_PVT: Val_Ins_Constraints: Constraint Variable Rent Id is null : '
2847: || p_constraints_tbl_type (c).var_rent_id
2848: , 3
2849: );
2850: fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
2858: --- Validation of Constratint start date
2859: ----------------------------------------------------------------------
2860: IF (p_constraints_tbl_type (c).constr_start_date IS NOT NULL)
2861: THEN
2862: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Val_Ins_Constraints: Constratint Start Date is not null : '
2863: || p_constraints_tbl_type (c).constr_start_date
2864: , 3
2865: );
2866: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Val_Ins_Constraints: Constratint End Date : '
2862: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Val_Ins_Constraints: Constratint Start Date is not null : '
2863: || p_constraints_tbl_type (c).constr_start_date
2864: , 3
2865: );
2866: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Val_Ins_Constraints: Constratint End Date : '
2867: || p_constraints_tbl_type (c).constr_end_date
2868: , 3
2869: );
2870: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Val_Ins_Constraints: Variable Rent Commencement Date : '
2866: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Val_Ins_Constraints: Constratint End Date : '
2867: || p_constraints_tbl_type (c).constr_end_date
2868: , 3
2869: );
2870: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Val_Ins_Constraints: Variable Rent Commencement Date : '
2871: || l_var_commencement_date
2872: , 3
2873: );
2874: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Val_Ins_Constraints: Variable Rent Termination Date: '
2870: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Val_Ins_Constraints: Variable Rent Commencement Date : '
2871: || l_var_commencement_date
2872: , 3
2873: );
2874: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Val_Ins_Constraints: Variable Rent Termination Date: '
2875: || l_var_termination_date
2876: , 3
2877: );
2878:
2879: IF (p_constraints_tbl_type (c).constr_start_date = l_var_commencement_date)
2880: THEN
2881:
2882: pn_varen_util.pvt_debug
2883: ( 'PN_VAREN_PVT: Val_Ins_Constraints: Constratint Start Date Validation Success :'
2884: || p_constraints_tbl_type (c).constr_start_date
2885: , 3
2886: );
2887: pn_varen_util.pvt_debug
2884: || p_constraints_tbl_type (c).constr_start_date
2885: , 3
2886: );
2887: pn_varen_util.pvt_debug
2888: ( 'PN_VAREN_PVT: Val_Ins_Constraints: Constratint Start Date Validation Success :'
2889: || p_constraints_tbl_type (c).constr_start_date
2890: , 3
2891: );
2892: ELSIF ( p_constraints_tbl_type (c).constr_start_date < l_var_commencement_date
2893: OR p_constraints_tbl_type (c).constr_start_date > l_var_termination_date
2894: )
2895: THEN
2896: pn_varen_util.pvt_debug
2897: ( 'PN_VAREN_PVT: Val_Ins_Constraints: Constratint Start Date Validation Error : '
2898: || p_constraints_tbl_type (c).constr_start_date
2899: || 'Please enter a constraint start date that is the same as or after the commencement date of the variable rent agreement.'
2900: , 3
2901: );
2906: RAISE fnd_api.g_exc_error;
2907: ELSIF (p_constraints_tbl_type (c).constr_start_date > l_var_commencement_date)
2908: THEN
2909: pn_varen_util.pvt_debug
2910: ( 'PN_VAREN_PVT: Val_Ins_Constraints: Constratint Start Date Validation Error :'
2911: || p_constraints_tbl_type (c).constr_start_date
2912: || 'Please ensure that constraint dates you enter coincide with invoice period dates'
2913: , 3
2914: );
2921: ELSE
2922: --
2923: p_constraints_tbl_type (c).constr_start_date := l_var_commencement_date;
2924: pn_varen_util.pvt_debug
2925: ( 'PN_VAREN_PVT: Val_Ins_Constraints: Constratint Start Date is null then value is Defaulted Variable Rent Commencement Date : '
2926: || l_var_commencement_date
2927: || ' Success'
2928: , 3
2929: );
2929: );
2930: END IF;
2931:
2932: pn_varen_util.pvt_debug
2933: ( 'PN_VAREN_PVT: Val_Ins_Constraints: , p_constraints_tbl_type (c).constr_start_date :'
2934: || p_constraints_tbl_type (c).constr_start_date
2935: , 3
2936: );
2937: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Val_Ins_Constraints: , l_var_commencement_date :'
2933: ( 'PN_VAREN_PVT: Val_Ins_Constraints: , p_constraints_tbl_type (c).constr_start_date :'
2934: || p_constraints_tbl_type (c).constr_start_date
2935: , 3
2936: );
2937: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Val_Ins_Constraints: , l_var_commencement_date :'
2938: || l_var_commencement_date
2939: , 3
2940: );
2941:
2943: --- Validation of Constratint end date
2944: ----------------------------------------------------------------------
2945: IF (p_constraints_tbl_type (c).constr_end_date IS NOT NULL)
2946: THEN
2947: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Val_Ins_Constraints: Constratint end Date is not null : '
2948: || p_constraints_tbl_type (c).constr_end_date
2949: , 3
2950: );
2951: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Val_Ins_Constraints: Variable Rent Termination Date: '
2947: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Val_Ins_Constraints: Constratint end Date is not null : '
2948: || p_constraints_tbl_type (c).constr_end_date
2949: , 3
2950: );
2951: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Val_Ins_Constraints: Variable Rent Termination Date: '
2952: || l_var_termination_date
2953: , 3
2954: );
2955:
2955:
2956: IF (p_constraints_tbl_type (c).constr_end_date = l_var_termination_date)
2957: THEN
2958: pn_varen_util.pvt_debug
2959: ( 'PN_VAREN_PVT: Val_Ins_Constraints: Constratint end Date Validation Success :'
2960: || p_constraints_tbl_type (c).constr_end_date
2961: , 3
2962: );
2963: ELSIF ( p_constraints_tbl_type (c).constr_end_date > l_var_termination_date
2964: OR p_constraints_tbl_type (c).constr_end_date < l_var_commencement_date
2965: )
2966: THEN
2967: pn_varen_util.pvt_debug
2968: ( 'PN_VAREN_PVT: Val_Ins_Constraints: Constratint end Date Validation Error :'
2969: || p_constraints_tbl_type (c).constr_end_date
2970: || 'Please enter a constraint end date that is the same as or before the termination date of the variable rent agreement.'
2971: , 3
2972: );
2977: RAISE fnd_api.g_exc_error;
2978: ELSIF (p_constraints_tbl_type (c).constr_end_date < l_var_termination_date)
2979: THEN
2980: pn_varen_util.pvt_debug
2981: ( 'PN_VAREN_PVT: Val_Ins_Constraints: Constraint end Date Validation Error :'
2982: || p_constraints_tbl_type (c).constr_end_date
2983: || 'Please enter an end date that is greater than or equal to the start date.'
2984: , 3
2985: );
2992: ELSE
2993: --
2994: p_constraints_tbl_type (c).constr_end_date := l_var_termination_date;
2995: pn_varen_util.pvt_debug
2996: ( 'PN_VAREN_PVT: Val_Ins_Constraints: Constraint end Date is null then value is defaulted Variable Rent Termination Date : '
2997: || l_var_termination_date
2998: || ' Success'
2999: , 3
3000: );
3002:
3003: IF p_constraints_tbl_type (c).constr_amount IS NULL
3004: THEN
3005: pn_varen_util.pvt_debug
3006: ( 'PN_VAREN_PVT: Val_Ins_Constraints: Constraint Amount is Null - Validation Error :'
3007: || p_constraints_tbl_type (c).constr_amount
3008: || 'Please enter constraint amount'
3009: , 3
3010: );
3021: IF c = 1
3022: THEN
3023: l_first_constr_type_code :=
3024: p_constraints_tbl_type (c).constr_type_code;
3025: pn_varen_util.pvt_debug ( ' PN_VAREN_PVT: Val_Ins_Constraints: l_first_constr_type_code is : '
3026: || l_first_constr_type_code
3027: , 3
3028: );
3029: l_first_constr_amount :=
3027: , 3
3028: );
3029: l_first_constr_amount :=
3030: p_constraints_tbl_type (c).constr_amount;
3031: pn_varen_util.pvt_debug ( ' PN_VAREN_PVT: Val_Ins_Constraints: l_first_constr_amount is : '
3032: || l_first_constr_amount
3033: , 3
3034: );
3035: ELSIF c = 2
3041: THEN
3042: IF l_first_constr_amount <= p_constraints_tbl_type (c).constr_amount
3043: THEN
3044: pn_varen_util.pvt_debug
3045: ('PN_VAREN_PVT: Val_Ins_Constraints: For Next Constraint record, constraint type is MAX and amount is greater than first record amount.'
3046: , 3
3047: );
3048: ELSE
3049: pn_varen_util.pvt_debug
3046: , 3
3047: );
3048: ELSE
3049: pn_varen_util.pvt_debug
3050: ('PN_VAREN_PVT: Val_Ins_Constraints: For Next Constraint record, constraint type is MAX and amount is less than first record amount.'
3051: , 3
3052: );
3053: fnd_message.set_name ('PN'
3054: , 'PN_VAR_WRONG_RANGE'
3063: THEN
3064: IF p_constraints_tbl_type (c).constr_amount <= l_first_constr_amount
3065: THEN
3066: pn_varen_util.pvt_debug
3067: ('PN_VAREN_PVT: Val_Ins_Constraints: For Next Constraint record, constraint type is MIN and amount is less than first record amount '
3068: , 3
3069: );
3070: ELSE
3071: pn_varen_util.pvt_debug
3068: , 3
3069: );
3070: ELSE
3071: pn_varen_util.pvt_debug
3072: ('PN_VAREN_PVT: Val_Ins_Constraints: For Next Constraint record, constraint type is MIN and amount is greater than first record amount '
3073: , 3
3074: );
3075: fnd_message.set_name ('PN'
3076: , 'PN_VAR_WRONG_RANGE'
3141:
3142: -- End of constaints Validations
3143: IF p_validate_flag <> 'Y'
3144: THEN
3145: pn_varen_util.pvt_debug ('PN_VAREN_PVT: Val_Ins_Constraints: Calling Insert Constraint Procedure'
3146: , 3
3147: );
3148:
3149: /*IF ( l_const_val <> 'N'
3149: /*IF ( l_const_val <> 'N'
3150: AND x_return_status = fnd_api.g_ret_sts_success)
3151: THEN
3152: pn_varen_util.pvt_debug
3153: ( 'PN_VAREN_PVT: Val_Ins_Constraints: Before Calling insert_constraints procedure : '
3154: || l_const_val
3155: , 3
3156: );
3157: pn_varen_util.pvt_debug
3154: || l_const_val
3155: , 3
3156: );
3157: pn_varen_util.pvt_debug
3158: ( 'PN_VAREN_PVT: Val_Ins_Constraints: start of insert_constraints procedure and p_constraints_tbl_type (c).constr_type_code : '
3159: || p_constraints_tbl_type (c).constr_type_code
3160: , 3
3161: );*/
3162: insert_constraints (p_constraints_rec_type => p_constraints_tbl_type (c)
3174: RAISE fnd_api.g_exc_unexpected_error;
3175: END IF;
3176: ELSE
3177: pn_varen_util.pvt_debug
3178: ('PN_VAREN_PVT: Val_Ins_Constraints: Procedure is called only for Validation, Constraints will not be created'
3179: , 3
3180: );
3181: END IF;
3182:
3181: END IF;
3182:
3183: ELSE
3184: pn_varen_util.pvt_debug
3185: ('PN_VAREN_PVT: Val_Ins_Constraints: RENT_NUM not found, please provide the correct rent_num'
3186: , 3
3187: );
3188: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
3189: fnd_message.set_token ('ERR_MSG', 'VAR RENT Incorrect Rent Number:Error');
3202: l_val_ins_error_count := l_val_ins_error_count + 1;
3203: END;
3204: END LOOP;
3205:
3206: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Val_Ins_Constraints: Value of p_generate_constraints : '
3207: || p_generate_constraints
3208: , 3
3209: );
3210:
3210:
3211: IF p_generate_constraints = 'Y'
3212: THEN
3213: pn_varen_util.pvt_debug
3214: ( 'PN_VAREN_PVT: Val_Ins_Constraints: Generate_Constraints procedure - l_var_rent_id : '
3215: || l_var_rent_id
3216: , 3
3217: );
3218: generate_constraints (p_var_rent_id => l_var_rent_id
3218: generate_constraints (p_var_rent_id => l_var_rent_id
3219: , p_org_id => g_org_id
3220: , x_return_status => l_return_status
3221: );
3222: pn_varen_util.pvt_debug ('PN_VAREN_PVT: Val_Ins_Constraints: Generate Constraints Return Status'||l_return_status
3223: , 3
3224: );
3225: IF (l_return_status = fnd_api.g_ret_sts_error) THEN
3226: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
3233: fnd_msg_pub.ADD;
3234: RAISE fnd_api.g_exc_unexpected_error;
3235: END IF;
3236: ELSE
3237: pn_varen_util.pvt_debug ('PN_VAREN_PVT: Val_Ins_Constraints: Generate Constraints not initiated'
3238: , 3
3239: );
3240: END IF;
3241:
3311: AND bkhd_default_id = p_breakpoint_details_rec_type.bkhd_default_id
3312: AND org_id = g_org_id; --l_org_id;
3313:
3314: x_return_status := fnd_api.g_ret_sts_success;
3315: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Validate_Breakpoint_Details: Variable Rent : '
3316: || p_breakpoint_details_rec_type.var_rent_id
3317: || ' Breakpoint Header Start Date is : '
3318: || l_bkhd_start_date
3319: , 3
3317: || ' Breakpoint Header Start Date is : '
3318: || l_bkhd_start_date
3319: , 3
3320: );
3321: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Validate_Breakpoint_Details: Variable Rent'
3322: || p_breakpoint_details_rec_type.var_rent_id
3323: || ' Breakpoint Header End Date is : '
3324: || l_bkhd_end_date
3325: , 3
3327: EXCEPTION
3328: WHEN OTHERS
3329: THEN
3330: pn_varen_util.pvt_debug
3331: ( 'PN_VAREN_PVT: Validate_Breakpoint_Details: Variable Rent Id doesnot exists in Breakpoint Details: '
3332: || p_breakpoint_details_rec_type.var_rent_id
3333: , 3
3334: );
3335: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
3349: WHERE var_rent_id = p_breakpoint_details_rec_type.var_rent_id
3350: AND start_date <= p_breakpoint_details_rec_type.bkdt_start_date
3351: AND end_date >= p_breakpoint_details_rec_type.bkdt_start_date;
3352:
3353: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Validate_Breakpoint_Details: Variable Rent '
3354: || p_breakpoint_details_rec_type.var_rent_id
3355: || 'Period Id '
3356: || l_period_id
3357: , 3
3359: EXCEPTION
3360: WHEN TOO_MANY_ROWS
3361: THEN
3362: pn_varen_util.pvt_debug
3363: ( 'PN_VAREN_PVT: Validate_Breakpoint_Details: Mulitple period_id exists for the same variable rent Id'
3364: || p_breakpoint_details_rec_type.var_rent_id
3365: , 3
3366: );
3367: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
3369: fnd_msg_pub.ADD;
3370: RAISE fnd_api.g_exc_error;
3371: WHEN OTHERS
3372: THEN
3373: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Validate_Breakpoint_Details: Variable Rent '
3374: || p_breakpoint_details_rec_type.var_rent_id
3375: || 'Period Id '
3376: || l_period_id
3377: , 3
3387: ----------------------------------------------------------------------
3388: IF (p_breakpoint_details_rec_type.bkdt_start_date IS NOT NULL)
3389: THEN
3390: pn_varen_util.pvt_debug
3391: ( 'PN_VAREN_PVT: Validate_Breakpoint_Details: Break Point Details Start Date is not null : '
3392: || p_breakpoint_details_rec_type.bkdt_start_date
3393: , 3
3394: );
3395: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Validate_Breakpoint_Details: Break Point Details Start Date : '
3391: ( 'PN_VAREN_PVT: Validate_Breakpoint_Details: Break Point Details Start Date is not null : '
3392: || p_breakpoint_details_rec_type.bkdt_start_date
3393: , 3
3394: );
3395: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Validate_Breakpoint_Details: Break Point Details Start Date : '
3396: || p_breakpoint_details_rec_type.bkdt_start_date
3397: , 3
3398: );
3399: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Validate_Breakpoint_Details: Break Point Details End Date : '
3395: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Validate_Breakpoint_Details: Break Point Details Start Date : '
3396: || p_breakpoint_details_rec_type.bkdt_start_date
3397: , 3
3398: );
3399: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Validate_Breakpoint_Details: Break Point Details End Date : '
3400: || p_breakpoint_details_rec_type.bkdt_end_date
3401: , 3
3402: );
3403: pn_varen_util.pvt_debug
3400: || p_breakpoint_details_rec_type.bkdt_end_date
3401: , 3
3402: );
3403: pn_varen_util.pvt_debug
3404: ( 'PN_VAREN_PVT: Validate_Breakpoint_Details: Breakpoint Header Start Date From Var Rent: '
3405: || l_bkhd_start_date
3406: , 3
3407: );
3408: pn_varen_util.pvt_debug
3405: || l_bkhd_start_date
3406: , 3
3407: );
3408: pn_varen_util.pvt_debug
3409: ( 'PN_VAREN_PVT: Validate_Breakpoint_Details: Breakpoint Header End Date From Var Rent: '
3410: || l_bkhd_end_date
3411: , 3
3412: );
3413:
3424: )
3425: )
3426: THEN
3427: pn_varen_util.pvt_debug
3428: ( 'PN_VAREN_PVT: Validate_Breakpoint_Details: Break Point Details Start Date Validation Success :'
3429: || p_breakpoint_details_rec_type.bkdt_start_date
3430: , 3
3431: );
3432: pn_varen_util.pvt_debug
3429: || p_breakpoint_details_rec_type.bkdt_start_date
3430: , 3
3431: );
3432: pn_varen_util.pvt_debug
3433: ( 'PN_VAREN_PVT: Validate_Breakpoint_Details: Break Point Details Start Date Validation Success :'
3434: || p_breakpoint_details_rec_type.bkdt_start_date
3435: , 3
3436: );
3437: ELSE
3435: , 3
3436: );
3437: ELSE
3438: pn_varen_util.pvt_debug
3439: ( 'PN_VAREN_PVT: Validate_Breakpoint_Details: Break Point Details Start Date Validation Error : '
3440: || p_breakpoint_details_rec_type.bkdt_start_date
3441: || 'Please enter dates for breakpoint details that coincide with the breakpoint dates'
3442: , 3
3443: );
3448: RAISE fnd_api.g_exc_error;
3449: END IF;
3450: ELSE
3451: pn_varen_util.pvt_debug
3452: ( 'PN_VAREN_PVT: Validate_Breakpoint_Details: Break Point Details Start Date is null so value is defaulted Break Point Header Start Date : '
3453: || p_breakpoint_details_rec_type.bkdt_start_date
3454: || ' Success'
3455: , 3
3456: );
3461: --------------------------------------------------------------------------------------------
3462: IF (p_breakpoint_details_rec_type.bkdt_start_date > p_breakpoint_details_rec_type.bkdt_end_date)
3463: THEN
3464: pn_varen_util.pvt_debug
3465: ('PN_VAREN_PVT: Validate_Breakpoint_Details: Breakpoint Details start Date is greater than Breakpoint Details End Date'
3466: , 3
3467: );
3468: fnd_message.set_name ('PN'
3469: , 'PN_VAR_DATES_INTERSECT'
3478: ----------------------------------------------------------------------
3479: IF (p_breakpoint_details_rec_type.bkdt_end_date IS NOT NULL)
3480: THEN
3481: pn_varen_util.pvt_debug
3482: ( 'PN_VAREN_PVT: Validate_Breakpoint_Details: Break Point Details End Date is not null : '
3483: || p_breakpoint_details_rec_type.bkdt_end_date
3484: , 3
3485: );
3486: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Validate_Breakpoint_Details: Break Point Details End Date : '
3482: ( 'PN_VAREN_PVT: Validate_Breakpoint_Details: Break Point Details End Date is not null : '
3483: || p_breakpoint_details_rec_type.bkdt_end_date
3484: , 3
3485: );
3486: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Validate_Breakpoint_Details: Break Point Details End Date : '
3487: || p_breakpoint_details_rec_type.bkdt_end_date
3488: , 3
3489: );
3490:
3505: )
3506: )
3507: THEN
3508: pn_varen_util.pvt_debug
3509: ( 'PN_VAREN_PVT: Validate_Breakpoint_Details: Break Point Details End Date Validation Success :'
3510: || p_breakpoint_details_rec_type.bkdt_end_date
3511: , 3
3512: );
3513: pn_varen_util.pvt_debug
3510: || p_breakpoint_details_rec_type.bkdt_end_date
3511: , 3
3512: );
3513: pn_varen_util.pvt_debug
3514: ( 'PN_VAREN_PVT: Validate_Breakpoint_Details: Break Point Details End Date Validation Success :'
3515: || p_breakpoint_details_rec_type.bkdt_end_date
3516: , 3
3517: );
3518: ELSE
3516: , 3
3517: );
3518: ELSE
3519: pn_varen_util.pvt_debug
3520: ( 'PN_VAREN_PVT: Validate_Breakpoint_Details: Break Point Details End Date Validation Error :'
3521: || p_breakpoint_details_rec_type.bkdt_end_date
3522: || 'Please enter dates for breakpoint details that coincide with the breakpoint header dates'
3523: , 3
3524: );
3530:
3531: END IF;
3532: ELSE
3533: pn_varen_util.pvt_debug
3534: ( 'PN_VAREN_PVT: Validate_Breakpoint_Details: Break Point Details End Date is null so value is defaulted to Break Point End Date : '
3535: || p_breakpoint_details_rec_type.bkdt_end_date
3536: || ' Success'
3537: , 3
3538: );
3553: -----------------------------------------------------------------------------------------
3554: IF (p_breakpoint_details_rec_type.period_bkpt_vol_start > p_breakpoint_details_rec_type.period_bkpt_vol_end)
3555: THEN
3556: pn_varen_util.pvt_debug
3557: ( 'PN_VAREN_PVT: Validate_Breakpoint_Details: Break Point Details, Period Breakpoint volume start '
3558: || p_breakpoint_details_rec_type.period_bkpt_vol_start
3559: || 'is less than Period Breakpoint volume end '
3560: || p_breakpoint_details_rec_type.period_bkpt_vol_end
3561: , 3
3572: -----------------------------------------------------------------------------------------
3573: IF (p_breakpoint_details_rec_type.group_bkpt_vol_start > p_breakpoint_details_rec_type.group_bkpt_vol_end)
3574: THEN
3575: pn_varen_util.pvt_debug
3576: ('PN_VAREN_PVT: Validate_Breakpoint_Details: In Break Point Details, The range of numbers entered is invalid.'
3577: , 3
3578: );
3579: fnd_message.set_name ('PN'
3580: , 'PN_VAR_WRONG_RANGE'
3583: RAISE fnd_api.g_exc_error;
3584: END IF;
3585:
3586: ----------------------------------------------------------------------------------------------
3587: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Validate_Breakpoint_Details: l_period_Id : '
3588: || l_period_id
3589: , 3
3590: );
3591: l_reporting_periods := pn_var_rent_pkg.find_reporting_periods (l_period_id);--OOPS-RHIA
3588: || l_period_id
3589: , 3
3590: );
3591: l_reporting_periods := pn_var_rent_pkg.find_reporting_periods (l_period_id);--OOPS-RHIA
3592: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Validate_Breakpoint_Details: l_reporting_periods : '
3593: || l_reporting_periods
3594: , 3
3595: );
3596: --IF l_break_type = 'ARTIFICIAL'
3607: );
3608: END IF;
3609:
3610: pn_varen_util.pvt_debug
3611: ( 'PN_VAREN_PVT: Validate_Breakpoint_Details: p_breakpoint_details_rec_type.period_bkpt_vol_start :'
3612: || p_breakpoint_details_rec_type.period_bkpt_vol_start
3613: , 3
3614: );
3615:
3624: );
3625: END IF;
3626:
3627: pn_varen_util.pvt_debug
3628: ( 'PN_VAREN_PVT: Validate_Breakpoint_Details: p_breakpoint_details_rec_type.period_bkpt_vol_end : '
3629: || p_breakpoint_details_rec_type.period_bkpt_vol_end
3630: , 3
3631: );
3632:
3645: END IF;
3646:
3647: --(p_breakpoint_details_rec_type.group_bkpt_vol_start,2);
3648: pn_varen_util.pvt_debug
3649: ( 'PN_VAREN_PVT: Validate_Breakpoint_Details: p_breakpoint_details_rec_type.group_bkpt_vol_start : '
3650: || p_breakpoint_details_rec_type.group_bkpt_vol_start
3651: , 3
3652: );
3653:
3665: );
3666: END IF;
3667:
3668: pn_varen_util.pvt_debug
3669: ( 'PN_VAREN_PVT: Validate_Breakpoint_Details: p_breakpoint_details_rec_type.group_bkpt_vol_end : '
3670: || p_breakpoint_details_rec_type.group_bkpt_vol_end
3671: , 3
3672: );
3673: pn_varen_util.pvt_debug
3670: || p_breakpoint_details_rec_type.group_bkpt_vol_end
3671: , 3
3672: );
3673: pn_varen_util.pvt_debug
3674: ( 'PN_VAREN_PVT: Validate_Breakpoint_Details: Break Point Details Start Date would be same as Break Point Header Start Date'
3675: || p_breakpoint_details_rec_type.bkdt_start_date
3676: , 3
3677: );
3678: pn_varen_util.pvt_debug
3675: || p_breakpoint_details_rec_type.bkdt_start_date
3676: , 3
3677: );
3678: pn_varen_util.pvt_debug
3679: ( 'PN_VAREN_PVT: Validate_Breakpoint_Details: Break Point Details End Date would be same as Break Point Header End Date'
3680: || p_breakpoint_details_rec_type.bkdt_end_date
3681: , 3
3682: );
3683: pn_varen_util.pvt_debug ( ' p_breakpoint_details_rec_type.bkpt_rate : '
3712: , l_natural_break_rate
3713: );
3714: --
3715: pn_varen_util.pvt_debug
3716: ( 'PN_VAREN_PVT: Validate_Breakpoint_Details: Break Point Details break rate would be same as Break Point Header natural break rate'
3717: || p_breakpoint_details_rec_type.bkpt_rate
3718: , 3
3719: );
3720: END IF;
3725: IF ( l_previous_bkdt_start_date IS NOT NULL
3726: AND l_previous_bkdt_end_date IS NOT NULL)
3727: THEN
3728: pn_varen_util.pvt_debug
3729: ( 'PN_VAREN_PVT: Validate_Breakpoint_Details: Previous Record Breakpoint Details start date :'
3730: || l_previous_bkdt_start_date
3731: , 3
3732: );
3733: pn_varen_util.pvt_debug
3730: || l_previous_bkdt_start_date
3731: , 3
3732: );
3733: pn_varen_util.pvt_debug
3734: ( 'PN_VAREN_PVT: Validate_Breakpoint_Details: Previous Record Breakpoint Details end date :'
3735: || l_previous_bkdt_end_date
3736: , 3
3737: );
3738: pn_varen_util.pvt_debug
3735: || l_previous_bkdt_end_date
3736: , 3
3737: );
3738: pn_varen_util.pvt_debug
3739: ( 'PN_VAREN_PVT: Validate_Breakpoint_Details: Current Record Breakpoint Details start date :'
3740: || p_breakpoint_details_rec_type.bkdt_start_date
3741: , 3
3742: );
3743: pn_varen_util.pvt_debug
3740: || p_breakpoint_details_rec_type.bkdt_start_date
3741: , 3
3742: );
3743: pn_varen_util.pvt_debug
3744: ( 'PN_VAREN_PVT: Validate_Breakpoint_Details: Current Record Breakpoint Details end date :'
3745: || p_breakpoint_details_rec_type.bkdt_end_date
3746: , 3
3747: );
3748:
3753: AND p_breakpoint_details_rec_type.bkdt_start_date > l_previous_bkdt_start_date
3754: )
3755: THEN
3756: pn_varen_util.pvt_debug
3757: ('PN_VAREN_PVT: Validate_Breakpoint_Details: Next record Breakpoint Details start date is greater than previous record Breakpoint Details end date'
3758: , 3
3759: );
3760: pn_varen_util.pvt_debug
3761: ('PN_VAREN_PVT: Validate_Breakpoint_Details: Next record Breakpoint Details start date is greater than previous record Breakpoint Details start date'
3757: ('PN_VAREN_PVT: Validate_Breakpoint_Details: Next record Breakpoint Details start date is greater than previous record Breakpoint Details end date'
3758: , 3
3759: );
3760: pn_varen_util.pvt_debug
3761: ('PN_VAREN_PVT: Validate_Breakpoint_Details: Next record Breakpoint Details start date is greater than previous record Breakpoint Details start date'
3762: , 3
3763: );
3764: ELSE
3765: pn_varen_util.pvt_debug
3762: , 3
3763: );
3764: ELSE
3765: pn_varen_util.pvt_debug
3766: ('PN_VAREN_PVT: Validate_Breakpoint_Details: Next record Breakpoint Details start date is less than previous record Breakpoint Details start date'
3767: , 3
3768: );
3769: fnd_message.set_name ('PN'
3770: , 'PN_VAR_BKPT_OVERLAP'
3780: AND p_breakpoint_details_rec_type.bkdt_end_date > l_previous_bkdt_start_date
3781: )
3782: THEN
3783: pn_varen_util.pvt_debug
3784: ('PN_VAREN_PVT: Validate_Breakpoint_Details: Next record Breakpoint Details end date is greater than previous record Breakpoint Details end date'
3785: , 3
3786: );
3787: ELSE
3788: pn_varen_util.pvt_debug
3785: , 3
3786: );
3787: ELSE
3788: pn_varen_util.pvt_debug
3789: ('PN_VAREN_PVT: Validate_Breakpoint_Details: Next record Breakpoint Details end date is not greater than previous record Breakpoint Details end date'
3790: , 3
3791: );
3792: fnd_message.set_name ('PN'
3793: , 'PN_VAR_BKPT_OVERLAP'
3801: THEN
3802: --IF l_bkpt_details_val <> 'N'
3803: --THEN
3804: pn_varen_util.pvt_debug
3805: ('PN_VAREN_PVT: Validate_Breakpoint_Details: Start of calling Breakpoint Details Insert Procedure '
3806: , 3
3807: );
3808: pn_varen_util.pvt_debug
3809: ('PN_VAREN_PVT: Validate_Breakpoint_Details: ---------------------------------------------'
3805: ('PN_VAREN_PVT: Validate_Breakpoint_Details: Start of calling Breakpoint Details Insert Procedure '
3806: , 3
3807: );
3808: pn_varen_util.pvt_debug
3809: ('PN_VAREN_PVT: Validate_Breakpoint_Details: ---------------------------------------------'
3810: , 3
3811: );
3812: insert_breakpoint_details (p_breakpoint_details_rec_type => p_breakpoint_details_rec_type
3813: , x_return_status => x_return_status
3812: insert_breakpoint_details (p_breakpoint_details_rec_type => p_breakpoint_details_rec_type
3813: , x_return_status => x_return_status
3814: );
3815: pn_varen_util.pvt_debug
3816: ('PN_VAREN_PVT: Validate_Breakpoint_Details: End of calling Breakpoint Details Insert Procedure Return Status'||x_return_status
3817: , 3
3818: );
3819: IF(x_return_status = fnd_api.g_ret_sts_error) THEN
3820: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
3836: --
3837: -- END IF;
3838: ELSE
3839: pn_varen_util.pvt_debug
3840: ('PN_VAREN_PVT: Validate_Breakpoint_Details: Breakpoints creation procedure ran in validation mode, breakpoints will not be created '
3841: , 3
3842: );
3843: END IF;
3844: x_return_status := fnd_api.g_ret_sts_success;
3854: , x_return_status => x_return_status
3855: );
3856: commit;
3857: pn_varen_util.pvt_debug
3858: ('PN_VAREN_PVT: Validate_Breakpoint_Details Natural: End of calling Breakpoint Details Insert Procedure Return Status'||x_return_status
3859: , 3
3860: );
3861: IF(x_return_status = fnd_api.g_ret_sts_error) THEN
3862: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
3876: pn_varen_util.pvt_debug(g_pkg_name||'-validate_breakpoint_details:EXCEPTION:FND_API.G_EXC_ERROR'||SQLERRM,3);
3877: x_return_status := fnd_api.g_ret_sts_error;
3878: WHEN OTHERS THEN
3879: pn_varen_util.pvt_debug
3880: ( 'PN_VAREN_PVT: Validate_Breakpoint_Details: Exception raised in Validate_Breakpoint_Details Procedure : '
3881: || SQLERRM
3882: , 3
3883: );
3884: x_return_status := fnd_api.g_ret_sts_unexp_error;
3919: --------------------------------------------------------------------------------
3920: --BREAK_TYPE validation
3921: --------------------------------------------------------------------------------
3922: x_return_status := fnd_api.g_ret_sts_success;
3923: pn_varen_util.pvt_debug ('PN_VAREN_PVT: pn_varen_pvt-Calling BREAK_TYPE Validation'
3924: , 3
3925: );
3926:
3927: IF ( p_breakpoint_header_rec_type.break_type_code IS NOT NULL
3928: OR p_breakpoint_header_rec_type.break_type_meaning IS NOT NULL
3929: )
3930: THEN
3931: pn_varen_util.pvt_debug
3932: ('PN_VAREN_PVT: Validate_Breakpoint_Header: Calling BREAK_TYPE Validation Lookup - Inside the Loop'
3933: , 3
3934: );
3935: pn_varen_util.pvt_debug ('PN_VAREN_PVT: Validate_Breakpoint_Header: Calling BREAK_TYPE Validation'
3936: , 3
3931: pn_varen_util.pvt_debug
3932: ('PN_VAREN_PVT: Validate_Breakpoint_Header: Calling BREAK_TYPE Validation Lookup - Inside the Loop'
3933: , 3
3934: );
3935: pn_varen_util.pvt_debug ('PN_VAREN_PVT: Validate_Breakpoint_Header: Calling BREAK_TYPE Validation'
3936: , 3
3937: );
3938: pn_varen_util.validate_lookups (p_lookup_type => g_break_type
3939: , x_lookup_meaning => p_breakpoint_header_rec_type.break_type_meaning
3939: , x_lookup_meaning => p_breakpoint_header_rec_type.break_type_meaning
3940: , x_lookup_code => p_breakpoint_header_rec_type.break_type_code
3941: , x_return_status => l_return_status
3942: );
3943: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Validate_Breakpoint_Header: BREAK_TYPE Output Code :'
3944: || p_breakpoint_header_rec_type.break_type_code
3945: , 3
3946: );
3947:
3977: WHERE var_rent_id = p_breakpoint_header_rec_type.var_rent_id
3978: AND org_id = g_org_id;
3979:
3980:
3981: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Validate_Breakpoint_Header: Variable Rent : '
3982: || p_breakpoint_header_rec_type.var_rent_id
3983: || ' Commencement Date is : '
3984: || l_bkhd_comm_date
3985: , 3
3983: || ' Commencement Date is : '
3984: || l_bkhd_comm_date
3985: , 3
3986: );
3987: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Validate_Breakpoint_Header: Variable Rent'
3988: || p_breakpoint_header_rec_type.var_rent_id
3989: || ' Termination Date is : '
3990: || l_bkhd_term_date
3991: , 3
3991: , 3
3992: );
3993: EXCEPTION
3994: WHEN OTHERS THEN
3995: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Validate_Breakpoint_Header: Variable Rent Id doesnot exists : '
3996: || p_breakpoint_header_rec_type.var_rent_id
3997: , 3
3998: );
3999: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
4008: --- Validation of Beakpoint header start date
4009: ----------------------------------------------------------------------
4010: IF (p_breakpoint_header_rec_type.bkhd_start_date IS NOT NULL)
4011: THEN
4012: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Validate_Breakpoint_Header: BREAK POINT START DATE is not null : '
4013: || p_breakpoint_header_rec_type.bkhd_start_date
4014: , 3
4015: );
4016: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Validate_Breakpoint_Header: BREAK POINT START DATE : '
4012: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Validate_Breakpoint_Header: BREAK POINT START DATE is not null : '
4013: || p_breakpoint_header_rec_type.bkhd_start_date
4014: , 3
4015: );
4016: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Validate_Breakpoint_Header: BREAK POINT START DATE : '
4017: || p_breakpoint_header_rec_type.bkhd_start_date
4018: , 3
4019: );
4020: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Validate_Breakpoint_Header: BREAK POINT End Date : '
4016: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Validate_Breakpoint_Header: BREAK POINT START DATE : '
4017: || p_breakpoint_header_rec_type.bkhd_start_date
4018: , 3
4019: );
4020: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Validate_Breakpoint_Header: BREAK POINT End Date : '
4021: || p_breakpoint_header_rec_type.bkhd_end_date
4022: , 3
4023: );
4024: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Validate_Breakpoint_Header: START DATE FROM Var Rent: '
4020: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Validate_Breakpoint_Header: BREAK POINT End Date : '
4021: || p_breakpoint_header_rec_type.bkhd_end_date
4022: , 3
4023: );
4024: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Validate_Breakpoint_Header: START DATE FROM Var Rent: '
4025: || l_bkhd_comm_date
4026: , 3
4027: );
4028: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Validate_Breakpoint_Header: END DATE FROM Var Rent: '
4024: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Validate_Breakpoint_Header: START DATE FROM Var Rent: '
4025: || l_bkhd_comm_date
4026: , 3
4027: );
4028: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Validate_Breakpoint_Header: END DATE FROM Var Rent: '
4029: || l_bkhd_term_date
4030: , 3
4031: );
4032:
4042: IF p_breakpoint_header_tbl( i ).bkhd_start_date > l_old_end_date or
4043: p_breakpoint_header_tbl( i ).bkhd_start_date <= l_old_end_date
4044:
4045: x_return_status := fnd_api.g_ret_sts_success;
4046: pn_varen_util.pvt_debug( 'pn_varen_pvt-BREAK POINT START DATE Code Success :'
4047: || p_breakpoint_header_tbl( i ).break_type_code
4048: , 3 );
4049: pn_varen_util.pvt_debug
4050: 'pn_varen_pvt- BREAK POINT START DATE Validation Success', 3 );
4046: pn_varen_util.pvt_debug( 'pn_varen_pvt-BREAK POINT START DATE Code Success :'
4047: || p_breakpoint_header_tbl( i ).break_type_code
4048: , 3 );
4049: pn_varen_util.pvt_debug
4050: 'pn_varen_pvt- BREAK POINT START DATE Validation Success', 3 );
4051: else
4052:
4053: x_return_status := fnd_api.g_ret_sts_error;
4054: pn_varen_util.pvt_debug( 'pn_varen_pvt-BREAK POINT START DATE Error ie., Start date overlap :'
4050: 'pn_varen_pvt- BREAK POINT START DATE Validation Success', 3 );
4051: else
4052:
4053: x_return_status := fnd_api.g_ret_sts_error;
4054: pn_varen_util.pvt_debug( 'pn_varen_pvt-BREAK POINT START DATE Error ie., Start date overlap :'
4055: || p_breakpoint_header_tbl( i ).break_type_code
4056: , 3 );
4057: pn_varen_util.pvt_debug
4058: 'pn_varen_pvt- BREAK POINT START DATE error i.e, Start date overlap', 3 );
4054: pn_varen_util.pvt_debug( 'pn_varen_pvt-BREAK POINT START DATE Error ie., Start date overlap :'
4055: || p_breakpoint_header_tbl( i ).break_type_code
4056: , 3 );
4057: pn_varen_util.pvt_debug
4058: 'pn_varen_pvt- BREAK POINT START DATE error i.e, Start date overlap', 3 );
4059:
4060: end if;
4061: -------------------------
4062: -- end of second record verification
4063: -------------------------
4064: */
4065:
4066: pn_varen_util.pvt_debug
4067: ( 'PN_VAREN_PVT: Validate_Breakpoint_Header: BREAK POINT START DATE Validation Success :'
4068: || p_breakpoint_header_rec_type.bkhd_start_date
4069: , 3
4070: );
4071: pn_varen_util.pvt_debug
4068: || p_breakpoint_header_rec_type.bkhd_start_date
4069: , 3
4070: );
4071: pn_varen_util.pvt_debug
4072: ( 'PN_VAREN_PVT: Validate_Breakpoint_Header: BREAK POINT START DATE Validation Success :'
4073: || p_breakpoint_header_rec_type.bkhd_start_date
4074: , 3
4075: );
4076: ELSE
4079: );
4080: fnd_msg_pub.ADD;
4081: RAISE fnd_api.g_exc_error;
4082: pn_varen_util.pvt_debug
4083: ( 'PN_VAREN_PVT: Validate_Breakpoint_Header: BREAK POINT START DATE Validation ERROR :'
4084: || p_breakpoint_header_rec_type.bkhd_start_date
4085: || 'Please enter dates for breakpoint details that coincide with the breakpoint dates'
4086: , 3
4087: );
4085: || 'Please enter dates for breakpoint details that coincide with the breakpoint dates'
4086: , 3
4087: );
4088: pn_varen_util.pvt_debug
4089: ( 'PN_VAREN_PVT: Validate_Breakpoint_Header: BREAK POINT START DATE Validation ERROR : '
4090: || p_breakpoint_header_rec_type.bkhd_start_date
4091: || 'Please enter dates for breakpoint details that coincide with the breakpoint dates'
4092: , 3
4093: );
4095: END IF;
4096: ELSE
4097: p_breakpoint_header_rec_type.bkhd_start_date := l_bkhd_comm_date;
4098: pn_varen_util.pvt_debug
4099: ( 'PN_VAREN_PVT: Validate_Breakpoint_Header: BREAK POINT START DATE Code Success : Defaulted variable rent Commencement date'
4100: || p_breakpoint_header_rec_type.bkhd_start_date
4101: , 3
4102: );
4103: pn_varen_util.pvt_debug
4100: || p_breakpoint_header_rec_type.bkhd_start_date
4101: , 3
4102: );
4103: pn_varen_util.pvt_debug
4104: ( 'PN_VAREN_PVT: Validate_Breakpoint_Header: BREAK POINT START DATE Success : Defaulted variable rent Commencement date :'
4105: || p_breakpoint_header_rec_type.bkhd_start_date
4106: , 3
4107: );
4108: END IF;
4115: --- Validation of Beakpoint header Start date is greater than Beakpoint Header End date
4116: -----------------------------------------------------------------------------------------
4117: IF (p_breakpoint_header_rec_type.bkhd_start_date > p_breakpoint_header_rec_type.bkhd_end_date)
4118: THEN
4119: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Validate_Breakpoint_Header: Break Point Header Start Date '
4120: || p_breakpoint_header_rec_type.bkhd_start_date
4121: || 'is greater than '
4122: || p_breakpoint_header_rec_type.bkhd_end_date
4123: , 3
4140: )
4141: THEN
4142:
4143: pn_varen_util.pvt_debug
4144: ( 'PN_VAREN_PVT: Validate_Breakpoint_Header: BREAK POINT End DATE Validation Success :'
4145: || p_breakpoint_header_rec_type.bkhd_end_date
4146: , 3
4147: );
4148: ELSE
4146: , 3
4147: );
4148: ELSE
4149: pn_varen_util.pvt_debug
4150: ( 'PN_VAREN_PVT: Validate_Breakpoint_Header: BREAK POINT End DATE Validation ERROR :'
4151: || p_breakpoint_header_rec_type.bkhd_end_date
4152: || 'Please enter dates for breakpoint details that coincide with the breakpoint dates'
4153: , 3
4154: );
4160: END IF;
4161: ELSE
4162: p_breakpoint_header_rec_type.bkhd_end_date := l_bkhd_term_date;
4163: pn_varen_util.pvt_debug
4164: ('PN_VAREN_PVT: Validate_Breakpoint_Header: BREAK POINT START DATE Code Success : Defaulted variable rent Termination date'
4165: || p_breakpoint_header_rec_type.bkhd_end_date,3);
4166: END IF;
4167:
4168: ------------------------------------
4167:
4168: ------------------------------------
4169: -- Breakpoint Type Validation
4170: ------------------------------------
4171: pn_varen_util.pvt_debug ('PN_VAREN_PVT: Validate_Breakpoint_Header: Calling BREAKPOINT_TYPE Validation'
4172: , 3
4173: );
4174:
4175: IF ( p_breakpoint_header_rec_type.breakpoint_type_code IS NOT NULL
4176: OR p_breakpoint_header_rec_type.breakpoint_type_meaning IS NOT NULL
4177: )
4178: THEN
4179: pn_varen_util.pvt_debug
4180: ('PN_VAREN_PVT: Validate_Breakpoint_Header: Calling BREAKPOINT_TYPE Validation Lookup - Inside the Loop'
4181: , 3
4182: );
4183: pn_varen_util.validate_lookups (p_lookup_type => g_breakpoint_type
4184: , x_lookup_meaning => p_breakpoint_header_rec_type.breakpoint_type_meaning
4184: , x_lookup_meaning => p_breakpoint_header_rec_type.breakpoint_type_meaning
4185: , x_lookup_code => p_breakpoint_header_rec_type.breakpoint_type_code
4186: , x_return_status => l_return_status
4187: );
4188: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Validate_Breakpoint_Header: BREAKPOINT_TYPE Output Code :'
4189: || p_breakpoint_header_rec_type.breakpoint_type_code||'-'||l_return_status
4190: , 3
4191: );
4192:
4235: IF p_breakpoint_header_rec_type.natural_break_rate IS NOT NULL
4236: THEN
4237: x_return_status := fnd_api.g_ret_sts_success;
4238: pn_varen_util.pvt_debug
4239: ( 'PN_VAREN_PVT: Validate_Breakpoint_Header: Natural Break Rate is not null - Success '
4240: || p_breakpoint_header_rec_type.natural_break_rate
4241: , 3
4242: );
4243: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Validate_Breakpoint_Header: Break Rate is not null - Success : '
4239: ( 'PN_VAREN_PVT: Validate_Breakpoint_Header: Natural Break Rate is not null - Success '
4240: || p_breakpoint_header_rec_type.natural_break_rate
4241: , 3
4242: );
4243: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Validate_Breakpoint_Header: Break Rate is not null - Success : '
4244: || p_breakpoint_header_rec_type.natural_break_rate
4245: , 3
4246: );
4247: ELSE
4256: fnd_msg_pub.ADD;
4257: RAISE fnd_api.g_exc_error;
4258: --
4259: x_return_status := fnd_api.g_ret_sts_error;
4260: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Validate_Breakpoint_Header: Natural Break Rate is null - Error '
4261: || p_breakpoint_header_rec_type.natural_break_rate
4262: , 3
4263: );
4264: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Validate_Breakpoint_Header: Break Rate is null - Error : '
4260: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Validate_Breakpoint_Header: Natural Break Rate is null - Error '
4261: || p_breakpoint_header_rec_type.natural_break_rate
4262: , 3
4263: );
4264: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Validate_Breakpoint_Header: Break Rate is null - Error : '
4265: || p_breakpoint_header_rec_type.natural_break_rate
4266: , 3
4267: );
4268: l_validate_success := 'N';
4276: THEN
4277: IF p_breakpoint_header_rec_type.breakpoint_type_code <> 'FLAT'
4278: THEN
4279: pn_varen_util.pvt_debug
4280: ( 'PN_VAREN_PVT: Validate_Breakpoint_Header: Provide a correct combination of BREAKPOINT_TYPE_code and Break Type code - Validation Error :'
4281: || p_breakpoint_header_rec_type.breakpoint_type_code
4282: , 3
4283: );
4284: fnd_message.set_name ('PN'
4293: IF ( l_previous_bkhd_start_date IS NOT NULL
4294: AND l_previous_bkhd_end_date IS NOT NULL)
4295: THEN
4296: pn_varen_util.pvt_debug
4297: ( 'PN_VAREN_PVT: Validate_Breakpoint_Header: Previous Record Breakpoint Header start date :'
4298: || l_previous_bkhd_start_date
4299: , 3
4300: );
4301: pn_varen_util.pvt_debug
4298: || l_previous_bkhd_start_date
4299: , 3
4300: );
4301: pn_varen_util.pvt_debug
4302: ( 'PN_VAREN_PVT: Validate_Breakpoint_Header: Previous Record Breakpoint Header end date :'
4303: || l_previous_bkhd_end_date
4304: , 3
4305: );
4306: pn_varen_util.pvt_debug
4303: || l_previous_bkhd_end_date
4304: , 3
4305: );
4306: pn_varen_util.pvt_debug
4307: ( 'PN_VAREN_PVT: Validate_Breakpoint_Header: Current Record Breakpoint Header start date :'
4308: || p_breakpoint_header_rec_type.bkhd_start_date
4309: , 3
4310: );
4311: pn_varen_util.pvt_debug
4308: || p_breakpoint_header_rec_type.bkhd_start_date
4309: , 3
4310: );
4311: pn_varen_util.pvt_debug
4312: ( 'PN_VAREN_PVT: Validate_Breakpoint_Header: Current Record Breakpoint Header end date :'
4313: || p_breakpoint_header_rec_type.bkhd_end_date
4314: , 3
4315: );
4316:
4321: AND p_breakpoint_header_rec_type.bkhd_start_date > l_previous_bkhd_start_date
4322: )
4323: THEN
4324: pn_varen_util.pvt_debug
4325: ('PN_VAREN_PVT: Validate_Breakpoint_Header: Next record Breakpoint Header start date is greater than previous record Breakpoint Header end date'
4326: , 3
4327: );
4328: ELSE
4329: pn_varen_util.pvt_debug
4326: , 3
4327: );
4328: ELSE
4329: pn_varen_util.pvt_debug
4330: ('PN_VAREN_PVT: Validate_Breakpoint_Header: Next record Breakpoint Header start date is less than previous record Breakpoint Header end date'
4331: , 3
4332: );
4333: fnd_message.set_name ('PN'
4334: , 'PN_VAR_BKPT_OVERLAP'
4344: AND p_breakpoint_header_rec_type.bkhd_end_date > l_previous_bkhd_start_date
4345: )
4346: THEN
4347: pn_varen_util.pvt_debug
4348: ('PN_VAREN_PVT: Validate_Breakpoint_Header: Next record Breakpoint Header end date is greater than previous record Breakpoint Header end date'
4349: , 3
4350: );
4351: ELSE
4352: pn_varen_util.pvt_debug
4349: , 3
4350: );
4351: ELSE
4352: pn_varen_util.pvt_debug
4353: ('PN_VAREN_PVT: Validate_Breakpoint_Header: Next record Breakpoint Header end date is not greater than previous record Breakpoint Header end date'
4354: , 3
4355: );
4356: fnd_message.set_name ('PN'
4357: , 'PN_VAR_BKPT_OVERLAP'
4425: /*IF ( l_return_status = fnd_api.g_ret_sts_success
4426: AND l_validate_success <> 'N')
4427: THEN
4428: pn_varen_util.pvt_debug
4429: ('PN_VAREN_PVT: Validate_Breakpoint_Header: Calling Breakpoint Headers Insert Procedure '
4430: , 3
4431: );
4432: pn_varen_util.pvt_debug
4433: ('PN_VAREN_PVT: Validate_Breakpoint_Header: ---------------------------------------------'
4429: ('PN_VAREN_PVT: Validate_Breakpoint_Header: Calling Breakpoint Headers Insert Procedure '
4430: , 3
4431: );
4432: pn_varen_util.pvt_debug
4433: ('PN_VAREN_PVT: Validate_Breakpoint_Header: ---------------------------------------------'
4434: , 3
4435: );*/
4436:
4437: insert_breakpoint_headers (p_breakpoint_header_rec_type => p_breakpoint_header_rec_type
4436:
4437: insert_breakpoint_headers (p_breakpoint_header_rec_type => p_breakpoint_header_rec_type
4438: , x_return_status => l_return_status
4439: );
4440: pn_varen_util.pvt_debug('PN_VAREN_PVT: Validate_Breakpoint_Header: End of Calling Breakpoint Headers Insert Procedure :'|| l_return_status, 3);
4441:
4442: IF (l_return_status = fnd_api.g_ret_sts_error) THEN
4443: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
4444: fnd_message.set_token ('ERR_MSG', 'INSERT_BREAKPOINT_HEADERS:Error');
4460:
4461: EXCEPTION
4462: WHEN fnd_api.g_exc_error THEN
4463: x_return_status := fnd_api.g_ret_sts_error;
4464: pn_varen_util.pvt_debug('PN_VAREN_PVT: validate_breakpoint_header : Exception'||SQLERRM,3);
4465: WHEN OTHERS THEN
4466: x_return_status := fnd_api.g_ret_sts_unexp_error;
4467: pn_varen_util.pvt_debug('PN_VAREN_PVT: validate_breakpoint_header: Exception :'|| SQLERRM,3);
4468: END validate_breakpoint_header;
4463: x_return_status := fnd_api.g_ret_sts_error;
4464: pn_varen_util.pvt_debug('PN_VAREN_PVT: validate_breakpoint_header : Exception'||SQLERRM,3);
4465: WHEN OTHERS THEN
4466: x_return_status := fnd_api.g_ret_sts_unexp_error;
4467: pn_varen_util.pvt_debug('PN_VAREN_PVT: validate_breakpoint_header: Exception :'|| SQLERRM,3);
4468: END validate_breakpoint_header;
4469:
4470: --------------------------------------------------------------------------------
4471: -- NAME : VAR_RENT_LINES_BKHD
4512: BEGIN
4513: --------------------------------------------------------------------------------
4514: --SALES_CHANNEL (Type 1) validation
4515: --------------------------------------------------------------------------------
4516: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Var_Rent_Line_Bkhd: G_VAR_RENT_ID before Variable Rent Lines Loop: '
4517: || g_var_rent_id
4518: , 3
4519: );
4520:
4521: FOR i IN p_variable_rent_lines_tbl.FIRST .. p_variable_rent_lines_tbl.LAST
4522: LOOP
4523: BEGIN
4524: pn_varen_util.pvt_debug
4525: ( 'PN_VAREN_PVT: Var_Rent_Line_Bkhd: G_VAR_RENT_ID Inside Variable Rent Lines Loop: '
4526: || g_var_rent_id
4527: , 3
4528: );
4529:
4701: -- End
4702: ---------
4703:
4704: l_variable_rent_exists := NULL;
4705: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Var_Rent_Line_Bkhd: p_variable_rent_lines_tbl.COUNT :'
4706: || p_variable_rent_lines_tbl.COUNT
4707: , 3
4708: );
4709: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT :VRA Lines : p_variable_rent_lines_tbl (i).var_rent_num : '
4705: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Var_Rent_Line_Bkhd: p_variable_rent_lines_tbl.COUNT :'
4706: || p_variable_rent_lines_tbl.COUNT
4707: , 3
4708: );
4709: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT :VRA Lines : p_variable_rent_lines_tbl (i).var_rent_num : '
4710: || p_variable_rent_lines_tbl (i).var_rent_num
4711: , 3
4712: );
4713: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT : VRA Lines : p_variable_rent_lines_tbl (i).var_rent_id : '
4709: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT :VRA Lines : p_variable_rent_lines_tbl (i).var_rent_num : '
4710: || p_variable_rent_lines_tbl (i).var_rent_num
4711: , 3
4712: );
4713: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT : VRA Lines : p_variable_rent_lines_tbl (i).var_rent_id : '
4714: || p_variable_rent_lines_tbl (i).var_rent_id
4715: , 3
4716: );
4717: BEGIN
4726: AND org_id = g_org_id
4727: GROUP BY var_rent_id;
4728: EXCEPTION
4729: WHEN OTHERS THEN
4730: pn_varen_util.pvt_debug('PN_VAREN_PVT: Var_Rent_Line_Bkhd: Variable Rent Number or Variable Rent Id doesnot exists :'||SQLERRM,3);
4731: RAISE fnd_api.g_exc_error;
4732: END;
4733:
4734: IF (l_variable_rent_exists = 1) THEN
4738:
4739:
4740: IF l_period_exists = 1 THEN -- Only when periods are generated
4741: pn_varen_util.pvt_debug
4742: ('PN_VAREN_PVT: Var_Rent_Line_Bkhd: Calling SALES_CHANNEL (Type 1) Validation'
4743: , 3
4744: );
4745:
4746: IF ( p_variable_rent_lines_tbl (i).sales_channel_code IS NOT NULL
4747: OR p_variable_rent_lines_tbl (i).sales_channel_meaning IS NOT NULL
4748: )
4749: THEN
4750: pn_varen_util.pvt_debug
4751: ('PN_VAREN_PVT: Var_Rent_Line_Bkhd: Calling Validation Lookup - Inside the Loop'
4752: , 3
4753: );
4754: pn_varen_util.pvt_debug
4755: ('PN_VAREN_PVT: Var_Rent_Line_Bkhd: Calling SALES_CHANNEL (Type 1) Validation'
4751: ('PN_VAREN_PVT: Var_Rent_Line_Bkhd: Calling Validation Lookup - Inside the Loop'
4752: , 3
4753: );
4754: pn_varen_util.pvt_debug
4755: ('PN_VAREN_PVT: Var_Rent_Line_Bkhd: Calling SALES_CHANNEL (Type 1) Validation'
4756: , 3
4757: );
4758: pn_varen_util.validate_lookups
4759: (p_lookup_type => g_sales_channel
4761: , x_lookup_code => p_variable_rent_lines_tbl (i).sales_channel_code
4762: , x_return_status => l_return_status
4763: );
4764: pn_varen_util.pvt_debug
4765: ( 'PN_VAREN_PVT: Var_Rent_Line_Bkhd: SALES_CHANNEL (Type 1) Output Code :'
4766: || p_variable_rent_lines_tbl (i).sales_channel_code
4767: , 3
4768: );
4769:
4792: OR p_variable_rent_lines_tbl (i).item_category_meaning IS NOT NULL
4793: )
4794: THEN
4795: pn_varen_util.pvt_debug
4796: ('PN_VAREN_PVT: Var_Rent_Line_Bkhd: Calling ITEM_CATEGORY(Type 2) Validation'
4797: , 3
4798: );
4799: pn_varen_util.validate_lookups
4800: (p_lookup_type => g_item_category
4802: , x_lookup_code => p_variable_rent_lines_tbl (i).item_category_code
4803: , x_return_status => l_return_status
4804: );
4805: pn_varen_util.pvt_debug
4806: ( 'PN_VAREN_PVT: Var_Rent_Line_Bkhd: ITEM_CATEGORY(Type 2) Code Success :'
4807: || p_variable_rent_lines_tbl (i).item_category_code
4808: , 3
4809: );
4810:
4827: END IF;
4828: END IF;
4829:
4830: ---- End of Variable Rent Lines validations
4831: pn_varen_util.pvt_debug ('PN_VAREN_PVT: Var_Rent_Line_Bkhd: End of Variable Rent Lines validations'
4832: , 3
4833: );
4834:
4835: ---
4840:
4841: l_var_rent_input_line_num := p_variable_rent_lines_tbl (i).line_num;
4842:
4843: IF p_validate_flag <> 'Y' THEN
4844: pn_varen_util.pvt_debug( 'PN_VAREN_PVT: Var_Rent_Line_Bkhd: Variable Rent Line Number as an input parameter:'|| l_var_rent_input_line_num,3);
4845:
4846: insert_variable_rent_lines (p_variable_rent_lines_rec_type => p_variable_rent_lines_tbl(i)
4847: , x_return_status => l_return_status
4848: );
4845:
4846: insert_variable_rent_lines (p_variable_rent_lines_rec_type => p_variable_rent_lines_tbl(i)
4847: , x_return_status => l_return_status
4848: );
4849: pn_varen_util.pvt_debug('PN_VAREN_PVT: Var_Rent_Line_Bkhd: End of Calling Variable Rent Lines Insert Procedure :'||l_return_status,3);
4850: IF (l_return_status = fnd_api.g_ret_sts_error) THEN
4851: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
4852: fnd_message.set_token('ERR_MSG', 'Error while inserting the VRA lines.');
4853: fnd_msg_pub.ADD;
5032: END IF;
5033:
5034:
5035: l_var_bkhd_detail_num := p_breakpoint_header_tbl(j).bkhd_detail_num;
5036: pn_varen_util.pvt_debug('PN_VAREN_PVT: Var_Rent_Line_Bkhd: Breakpoint Header Detail Num as an input parameter:'|| l_var_bkhd_detail_num,3);
5037:
5038: IF (l_var_rent_input_line_num = p_breakpoint_header_tbl (j).bkhd_detail_num) THEN
5039:
5040: ---Check for the date duplicate range
5047: AND line_default_id = p_variable_rent_lines_tbl (i).line_default_id
5048: AND (bkhd_start_date <= p_breakpoint_header_tbl (j).bkhd_end_date AND bkhd_end_date >= p_breakpoint_header_tbl (j).bkhd_start_date);
5049: EXCEPTION
5050: WHEN OTHERS THEN
5051: pn_varen_util.pvt_debug('PN_VAREN_PVT:Remove any overlap in the breakpoint Headers',3);
5052: END;
5053:
5054: IF(NVL(l_date_range_count,0) > 0) THEN
5055: --fnd_message.set_name('PN','PN_VAR_BKPT_OVERLAP');
5061:
5062:
5063: p_breakpoint_header_tbl (j).line_default_id := p_variable_rent_lines_tbl (i).line_default_id;
5064: p_breakpoint_header_tbl (j).var_rent_id := p_variable_rent_lines_tbl (i).var_rent_id;
5065: pn_varen_util.pvt_debug('PN_VAREN_PVT: Var_Rent_Line_Bkhd: Calling Breakpoint Header Validations Procedure ', 3);
5066:
5067: validate_breakpoint_header (p_breakpoint_header_rec_type => p_breakpoint_header_tbl (j)
5068: , x_return_status => l_return_status
5069: );
5070: IF(l_return_status <> fnd_api.g_ret_sts_success) THEN
5071: RAISE fnd_api.g_exc_error;
5072: END IF;
5073: pn_varen_util.pvt_debug
5074: ( 'PN_VAREN_PVT: Var_Rent_Line_Bkhd: End of calling Breakpoint Header Validations Procedure - l_return_status :'
5075: || l_return_status
5076: , 3
5077: );
5078:
5142: NULL;
5143: END IF;
5144:
5145: pn_varen_util.pvt_debug
5146: ( ' PN_VAREN_PVT: Var_Rent_Line_Bkhd: Initialize: p_breakpoint_details_tbl (k).bkpt_rate : '
5147: || p_breakpoint_details_tbl (k).bkpt_rate
5148: , 3
5149: );
5150:
5150:
5151: IF p_breakpoint_details_tbl (k).bkpt_rate = pn_varen_util.g_pn_miss_num
5152: THEN
5153: pn_varen_util.pvt_debug
5154: ( ' PN_VAREN_PVT: Var_Rent_Line_Bkhd: Initialize 2: Before p_breakpoint_details_tbl (k).bkpt_rate : '
5155: || p_breakpoint_details_tbl (k).bkpt_rate
5156: , 3
5157: );
5158: p_breakpoint_details_tbl (k).bkpt_rate :=
5300: ---------
5301: -- End
5302: ---------
5303: pn_varen_util.pvt_debug
5304: ( 'PN_VAREN_PVT: Var_Rent_Line_Bkhd: Breakpoint Headers Default Num - l_var_bkhd_detail_num:'
5305: || l_var_bkhd_detail_num
5306: , 3
5307: );
5308: pn_varen_util.pvt_debug
5305: || l_var_bkhd_detail_num
5306: , 3
5307: );
5308: pn_varen_util.pvt_debug
5309: ( 'PN_VAREN_PVT: Var_Rent_Line_Bkhd: Breakpoint Headers Default Num - p_breakpoint_header_tbl(j).bkhd_detail_num:'
5310: || p_breakpoint_header_tbl (j).bkhd_detail_num
5311: , 3
5312: );
5313: pn_varen_util.pvt_debug
5310: || p_breakpoint_header_tbl (j).bkhd_detail_num
5311: , 3
5312: );
5313: pn_varen_util.pvt_debug
5314: ( 'PN_VAREN_PVT: Var_Rent_Line_Bkhd: pn_varen_pvt - Breakpoint Lines Default Num :'
5315: || p_breakpoint_details_tbl (k).bkdt_detail_num
5316: , 3
5317: );
5318:
5339: AND bkhd_default_id = p_breakpoint_header_tbl (j).bkhd_default_id
5340: AND (bkdt_start_date <= p_breakpoint_details_tbl (k).bkdt_end_date AND bkdt_end_date >= p_breakpoint_details_tbl (k).bkdt_start_date);
5341: EXCEPTION
5342: WHEN OTHERS THEN
5343: pn_varen_util.pvt_debug('PN_VAREN_PVT:Remove any overlap in the breakpoint details',3);
5344: END;
5345:
5346: IF(NVL(l_date_range_bkdt_count,0) > 0) THEN
5347: --fnd_message.set_name('PN','PN_VAR_BKPT_OVERLAP');
5353:
5354:
5355:
5356: pn_varen_util.pvt_debug
5357: ('PN_VAREN_PVT: Var_Rent_Line_Bkhd: Calling Breakpoint Details Validations Procedure '
5358: , 3
5359: );
5360:
5361: pn_varen_util.pvt_debug
5358: , 3
5359: );
5360:
5361: pn_varen_util.pvt_debug
5362: ( 'PN_VAREN_PVT: Var_Rent_Line_Bkhd:Before validate_breakpoint_details p_breakpoint_header_tbl (j).bkhd_detail_num : '
5363: || p_breakpoint_header_tbl (j).bkhd_detail_num
5364: , 3
5365: );
5366: pn_varen_util.pvt_debug
5363: || p_breakpoint_header_tbl (j).bkhd_detail_num
5364: , 3
5365: );
5366: pn_varen_util.pvt_debug
5367: ( 'PN_VAREN_PVT: Var_Rent_Line_Bkhd:Before validate_breakpoint_details p_breakpoint_details_tbl (k).bkdt_detail_num : '
5368: || p_breakpoint_details_tbl (k).bkdt_detail_num
5369: , 3
5370: );
5371: pn_varen_util.pvt_debug
5368: || p_breakpoint_details_tbl (k).bkdt_detail_num
5369: , 3
5370: );
5371: pn_varen_util.pvt_debug
5372: ( 'PN_VAREN_PVT: Var_Rent_Line_Bkhd:Before validate_breakpoint_details p_breakpoint_details_tbl (k).bkpt_rate : '
5373: || p_breakpoint_details_tbl (k).bkpt_rate
5374: , 3
5375: );
5376: validate_breakpoint_details
5378: , p_validate_flag => p_validate_flag
5379: , x_return_status => l_return_status
5380: );
5381: pn_varen_util.pvt_debug
5382: ( 'PN_VAREN_PVT: Var_Rent_Line_Bkhd: End of calling Breakpoint Details Validations Procedure - l_return_status :'
5383: || l_return_status
5384: , 3
5385: );
5386:
5385: );
5386:
5387: IF (l_return_status = fnd_api.g_ret_sts_error) THEN
5388: pn_varen_util.pvt_debug
5389: ( 'PN_VAREN_PVT: Var_Rent_Line_Bkhd: Breakpoint Details not created - BKDT_DETAIL_NUM : '
5390: || p_breakpoint_details_tbl (k).bkdt_detail_num
5391: , 3
5392: );
5393: --fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
5395: --fnd_msg_pub.ADD;
5396: RAISE fnd_api.g_exc_error;
5397: ELSIF(l_return_status = fnd_api.g_ret_sts_unexp_error) THEN
5398: pn_varen_util.pvt_debug
5399: ( 'PN_VAREN_PVT: Var_Rent_Line_Bkhd: Breakpoint Details not created - BKDT_DETAIL_NUM : '
5400: || p_breakpoint_details_tbl (k).bkdt_detail_num
5401: , 3
5402: );
5403: --fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
5406: RAISE fnd_api.g_exc_unexpected_error;
5407: END IF;
5408: ELSE
5409: pn_varen_util.pvt_debug
5410: ('PN_VAREN_PVT: Var_Rent_Line_Bkhd: Breakpoint Headers Default Num is not equal to Breakpoint Lines Default Num :'
5411: , 3
5412: );
5413: -- Return status of the Breakpoint Details
5414: END IF;
5416:
5417: EXCEPTION
5418: WHEN fnd_api.g_exc_error THEN
5419: l_var_lines_err_count := l_var_lines_err_count + 1;
5420: pn_varen_util.pvt_debug('PN_VAREN_PVT:FND_API.G_RET_STS_ERROR:p_breakpoint_details_tbl:LOOP:Exception:'||SQLERRM,3);
5421: WHEN OTHERS THEN
5422: l_var_lines_err_count := l_var_lines_err_count + 1;
5423: pn_varen_util.pvt_debug('PN_VAREN_PVT:FND_API.G_RET_STS_UNEXP_ERROR:p_breakpoint_details_tbl:LOOP:Unexpected Exception:'||SQLERRM,3);
5424: END;
5419: l_var_lines_err_count := l_var_lines_err_count + 1;
5420: pn_varen_util.pvt_debug('PN_VAREN_PVT:FND_API.G_RET_STS_ERROR:p_breakpoint_details_tbl:LOOP:Exception:'||SQLERRM,3);
5421: WHEN OTHERS THEN
5422: l_var_lines_err_count := l_var_lines_err_count + 1;
5423: pn_varen_util.pvt_debug('PN_VAREN_PVT:FND_API.G_RET_STS_UNEXP_ERROR:p_breakpoint_details_tbl:LOOP:Unexpected Exception:'||SQLERRM,3);
5424: END;
5425: END LOOP;--p_breakpoint_details_tbl
5426: -- END IF; -- 'Artificial' Go In.
5427: --END IF; -- Breakpoint Header return status.
5426: -- END IF; -- 'Artificial' Go In.
5427: --END IF; -- Breakpoint Header return status.
5428: ELSE
5429: pn_varen_util.pvt_debug
5430: ( 'PN_VAREN_PVT: Var_Rent_Line_Bkhd: No Breakpoint Header information would be created for the Variable Rent Line Num :'
5431: || p_variable_rent_lines_tbl (i).line_num
5432: , 3
5433: );
5434: END IF;
5434: END IF;
5435: EXCEPTION
5436: WHEN fnd_api.g_exc_error THEN
5437: l_var_lines_err_count := l_var_lines_err_count + 1;
5438: pn_varen_util.pvt_debug('PN_VAREN_PVT:FND_API.G_RET_STS_ERROR:p_breakpoint_header_tbl:LOOP:Exception:'||SQLERRM,3);
5439: WHEN OTHERS THEN
5440: l_var_lines_err_count := l_var_lines_err_count + 1;
5441: pn_varen_util.pvt_debug('PN_VAREN_PVT:FND_API.G_RET_STS_UNEXP_ERROR:p_breakpoint_header_tbl:LOOP:Unexpected Exception:'||SQLERRM,3);
5442: END;
5437: l_var_lines_err_count := l_var_lines_err_count + 1;
5438: pn_varen_util.pvt_debug('PN_VAREN_PVT:FND_API.G_RET_STS_ERROR:p_breakpoint_header_tbl:LOOP:Exception:'||SQLERRM,3);
5439: WHEN OTHERS THEN
5440: l_var_lines_err_count := l_var_lines_err_count + 1;
5441: pn_varen_util.pvt_debug('PN_VAREN_PVT:FND_API.G_RET_STS_UNEXP_ERROR:p_breakpoint_header_tbl:LOOP:Unexpected Exception:'||SQLERRM,3);
5442: END;
5443: END LOOP;--p_breakpoint_header_tbl
5444:
5445: BEGIN
5458: AND org_id = g_org_id;
5459: COMMIT;
5460: EXCEPTION
5461: WHEN OTHERS THEN
5462: pn_varen_util.pvt_debug('PN_VAREN_PVT: Var_Rent_Line_Bkhd:Exception raised while updating the Var Line Rent Dates',3);
5463: END;
5464: --MEOW
5465: /*ELSE
5466: pn_varen_util.pvt_debug
5463: END;
5464: --MEOW
5465: /*ELSE
5466: pn_varen_util.pvt_debug
5467: ( 'PN_VAREN_PVT: Var_Rent_Line_Bkhd: Breakpoints not created - l_return_status :'
5468: || l_return_status
5469: , 3
5470: );
5471: END IF;
5475: /*ELSE
5476: x_return_status :=
5477: fnd_api.g_ret_sts_error;
5478: pn_varen_util.pvt_debug
5479: ( 'PN_VAREN_PVT: Var_Rent_Line_Bkhd: Error encountered, While calling Variable Rent Lines Insert Procedure and Return status is :'
5480: || l_return_status
5481: , 3
5482: );
5483: RAISE fnd_api.g_exc_error;
5483: RAISE fnd_api.g_exc_error;
5484: END IF; -- */
5485: ELSE
5486: pn_varen_util.pvt_debug
5487: ( 'PN_VAREN_PVT: Var_Rent_Line_Bkhd: Periods are not generated for Rent Num :'
5488: || p_variable_rent_lines_tbl (i).var_rent_num
5489: , 3
5490: );
5491: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
5497:
5498: EXCEPTION
5499: WHEN fnd_api.g_exc_error THEN
5500: l_var_lines_err_count := l_var_lines_err_count + 1;
5501: pn_varen_util.pvt_debug('PN_VAREN_PVT:FND_API.G_RET_STS_ERROR:p_variable_rent_lines_tbl:LOOP:Exception:'||SQLERRM,3);
5502: WHEN OTHERS THEN
5503: l_var_lines_err_count := l_var_lines_err_count + 1;
5504: pn_varen_util.pvt_debug('PN_VAREN_PVT:FND_API.G_RET_STS_UNEXP_ERROR:p_variable_rent_lines_tbl:LOOP:Unexpected Exception:'||SQLERRM,3);
5505: END;
5500: l_var_lines_err_count := l_var_lines_err_count + 1;
5501: pn_varen_util.pvt_debug('PN_VAREN_PVT:FND_API.G_RET_STS_ERROR:p_variable_rent_lines_tbl:LOOP:Exception:'||SQLERRM,3);
5502: WHEN OTHERS THEN
5503: l_var_lines_err_count := l_var_lines_err_count + 1;
5504: pn_varen_util.pvt_debug('PN_VAREN_PVT:FND_API.G_RET_STS_UNEXP_ERROR:p_variable_rent_lines_tbl:LOOP:Unexpected Exception:'||SQLERRM,3);
5505: END;
5506: END LOOP; --END LOOP p_variable_rent_lines_tbl(i)
5507:
5508:
5506: END LOOP; --END LOOP p_variable_rent_lines_tbl(i)
5507:
5508:
5509:
5510: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Var_Rent_Line_Bkhd: Value of p_generate_breakpoints is '
5511: || p_generate_breakpoints
5512: , 3
5513: );
5514:
5514:
5515: IF p_generate_breakpoints = 'Y'
5516: THEN
5517: pn_varen_util.pvt_debug
5518: ( 'PN_VAREN_PVT: Var_Rent_Line_Bkhd: Input parameters for Generate_Breakpoints procedure l_var_rent_id is '
5519: || l_var_rent_id
5520: , 3
5521: );
5522: generate_breakpoints (p_var_rent_id => l_var_rent_id
5534: --fnd_msg_pub.ADD;
5535: RAISE fnd_api.g_exc_unexpected_error;
5536: END IF;
5537: ELSE
5538: pn_varen_util.pvt_debug ('PN_VAREN_PVT: Var_Rent_Line_Bkhd: Generate Constraints not initiated'
5539: , 3
5540: );
5541: END IF;
5542:
5580: , x_return_status OUT NOCOPY VARCHAR2
5581: )
5582: IS
5583: BEGIN
5584: pn_varen_util.pvt_debug ('PN_VAREN_PVT: Ini_Val_Var_Rec : Start of initializing variable rent record '
5585: , 3
5586: );
5587:
5588: --------------------------------------------------------------------------------
5836: THEN
5837: p_var_rent_rec.attribute15 := NULL;
5838: END IF;
5839:
5840: pn_varen_util.pvt_debug ('PN_VAREN_PVT: Ini_Val_Var_Rec : End of initializing variable rent record '
5841: , 3
5842: );
5843: x_return_status := fnd_api.g_ret_sts_success;
5844: --------
5847: EXCEPTION
5848: WHEN OTHERS
5849: THEN
5850: pn_varen_util.pvt_debug
5851: ( 'PN_VAREN_PVT: Ini_Val_Var_Rec: Exception raised in initializing variable rent record: '
5852: || SQLERRM
5853: , 3
5854: );
5855: x_return_status := fnd_api.g_ret_sts_error;
5879: --------------------------------------------------------------------------------
5880: IF ( p_upd_var_rent_rec_type.rent_num IS NOT NULL
5881: OR p_upd_var_rent_rec_type.var_rent_id IS NOT NULL)
5882: THEN
5883: pn_varen_util.pvt_debug ('PN_VAREN_PVT: Upd_Val_Var_Rent: Calling pn_varen_util.validate_rent_num '
5884: , 3
5885: );
5886: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Upd_Val_Var_Rent: Parameter pn_varen_util.validate_rent_num :'
5887: || NVL (p_upd_var_rent_rec_type.rent_num
5882: THEN
5883: pn_varen_util.pvt_debug ('PN_VAREN_PVT: Upd_Val_Var_Rent: Calling pn_varen_util.validate_rent_num '
5884: , 3
5885: );
5886: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Upd_Val_Var_Rent: Parameter pn_varen_util.validate_rent_num :'
5887: || NVL (p_upd_var_rent_rec_type.rent_num
5888: , 'NO RENT NUM'
5889: )
5890: , 3
5894: , p_lease_id => p_upd_var_rent_rec_type.lease_id
5895: , p_org_id => g_org_id
5896: , x_return_status => x_return_status
5897: );
5898: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Upd_Val_Var_Rent: Variable Rent Validation Output :'
5899: || l_var_rent_id
5900: , 3
5901: );
5902: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Upd_Val_Var_Rent: validate_rent_num return_status :'
5898: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Upd_Val_Var_Rent: Variable Rent Validation Output :'
5899: || l_var_rent_id
5900: , 3
5901: );
5902: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Upd_Val_Var_Rent: validate_rent_num return_status :'
5903: || x_return_status
5904: , 3
5905: );
5906:
5910: , 'PN_DUP_LEASE_NUMBER'
5911: );
5912: fnd_msg_pub.ADD;
5913: RAISE fnd_api.g_exc_error;
5914: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Upd_Val_Var_Rent: Variable Rent Num Expected Error :'
5915: || p_upd_var_rent_rec_type.rent_num
5916: , 3
5917: );
5918: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
5921: , 'PN_DUP_LEASE_NUMBER'
5922: );
5923: fnd_msg_pub.ADD;
5924: RAISE fnd_api.g_exc_unexpected_error;
5925: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Upd_Val_Var_Rent: Variable Rent Num Un-Expected Error :'
5926: || p_upd_var_rent_rec_type.rent_num
5927: , 3
5928: );
5929: ELSE
5926: || p_upd_var_rent_rec_type.rent_num
5927: , 3
5928: );
5929: ELSE
5930: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Upd_Val_Var_Rent: Variable Rent Id Success :'
5931: || p_upd_var_rent_rec_type.var_rent_id
5932: , 3
5933: );
5934: END IF;
5987: BEGIN
5988: --------------------------------------------------------------------------------
5989: --Validate Lease details
5990: --------------------------------------------------------------------------------
5991: pn_varen_util.pvt_debug ('PN_VAREN_PVT: Validate_Var_Rent: Inside Procedure'
5992: , 3
5993: );
5994: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Validate_Var_Rent: p_var_rent_rec.lease_id'
5995: || p_var_rent_rec.lease_id
5990: --------------------------------------------------------------------------------
5991: pn_varen_util.pvt_debug ('PN_VAREN_PVT: Validate_Var_Rent: Inside Procedure'
5992: , 3
5993: );
5994: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Validate_Var_Rent: p_var_rent_rec.lease_id'
5995: || p_var_rent_rec.lease_id
5996: , 3
5997: );
5998: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Validate_Var_Rent: p_var_rent_rec.lease_name '
5994: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Validate_Var_Rent: p_var_rent_rec.lease_id'
5995: || p_var_rent_rec.lease_id
5996: , 3
5997: );
5998: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Validate_Var_Rent: p_var_rent_rec.lease_name '
5999: || p_var_rent_rec.lease_name
6000: , 3
6001: );
6002: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Validate_Var_Rent: p_var_rent_rec.lease_num'
5998: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Validate_Var_Rent: p_var_rent_rec.lease_name '
5999: || p_var_rent_rec.lease_name
6000: , 3
6001: );
6002: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Validate_Var_Rent: p_var_rent_rec.lease_num'
6003: || p_var_rent_rec.lease_num
6004: , 3
6005: );
6006:
6008: AND p_var_rent_rec.lease_num IS NULL
6009: AND p_var_rent_rec.lease_name IS NULL)
6010: THEN
6011: pn_varen_util.pvt_debug
6012: ('PN_VAREN_PVT: Validate_Var_Rent: Please pass the lease details to create Variable Rent'
6013: , 3
6014: );
6015: fnd_message.set_name ('PN'
6016: , 'PN_VAR_NVALID_LEASE'
6017: );
6018: fnd_msg_pub.ADD;
6019: RAISE fnd_api.g_exc_error;
6020: ELSE
6021: pn_varen_util.pvt_debug ('PN_VAREN_PVT: Validate_Var_Rent: Calling Lease Validation '
6022: , 3
6023: );
6024: pn_varen_util.pvt_debug ('PN_VAREN_PVT: Validate_Var_Rent: Start of pn_varen_util.validate_lease procedure'
6025: , 3
6020: ELSE
6021: pn_varen_util.pvt_debug ('PN_VAREN_PVT: Validate_Var_Rent: Calling Lease Validation '
6022: , 3
6023: );
6024: pn_varen_util.pvt_debug ('PN_VAREN_PVT: Validate_Var_Rent: Start of pn_varen_util.validate_lease procedure'
6025: , 3
6026: );
6027: pn_varen_util.validate_lease (p_lease_name => p_var_rent_rec.lease_name
6028: , p_lease_num => p_var_rent_rec.lease_num
6034: , x_lease_termination_date => l_lease_termination_date
6035: , p_org_id => g_org_id
6036: , x_return_status => l_return_status
6037: );
6038: pn_varen_util.pvt_debug('PN_VAREN_PVT: Validate_Var_Rent: End of pn_varen_util.validate_lease procedure status :'||l_return_status,3);
6039: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Validate_Var_Rent: Lease Id Validation Output :'|| p_var_rent_rec.lease_id,3);
6040:
6041: IF (l_return_status = fnd_api.g_ret_sts_error)
6042: THEN
6035: , p_org_id => g_org_id
6036: , x_return_status => l_return_status
6037: );
6038: pn_varen_util.pvt_debug('PN_VAREN_PVT: Validate_Var_Rent: End of pn_varen_util.validate_lease procedure status :'||l_return_status,3);
6039: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Validate_Var_Rent: Lease Id Validation Output :'|| p_var_rent_rec.lease_id,3);
6040:
6041: IF (l_return_status = fnd_api.g_ret_sts_error)
6042: THEN
6043: pn_varen_util.pvt_debug ('PN_VAREN_PVT: Validate_Var_Rent: p_var_rent_rec.lease_id Error: '
6039: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Validate_Var_Rent: Lease Id Validation Output :'|| p_var_rent_rec.lease_id,3);
6040:
6041: IF (l_return_status = fnd_api.g_ret_sts_error)
6042: THEN
6043: pn_varen_util.pvt_debug ('PN_VAREN_PVT: Validate_Var_Rent: p_var_rent_rec.lease_id Error: '
6044: || p_var_rent_rec.lease_id
6045: , 3
6046: );
6047: fnd_message.set_name ('PN'
6051: RAISE fnd_api.g_exc_error;
6052:
6053: ELSIF (l_return_status = fnd_api.g_ret_sts_unexp_error)
6054: THEN
6055: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Validate_Var_Rent: p_var_rent_rec.lease_id Unexpected Error: '
6056: || p_var_rent_rec.lease_id
6057: , 3
6058: );
6059: fnd_message.set_name ('PN'
6063: RAISE fnd_api.g_exc_unexpected_error;
6064:
6065: ELSE
6066: l_return_status := fnd_api.g_ret_sts_success;
6067: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Validate_Var_Rent: p_var_rent_rec.lease_id Success: '
6068: || p_var_rent_rec.lease_id
6069: , 3
6070: );
6071: END IF;
6088: )
6089: THEN
6090: l_return_status := NULL;
6091:
6092: pn_varen_util.pvt_debug ('PN_VAREN_PVT: Validate_Var_Rent: Calling pn_varen_util.validate_rent_num '
6093: , 3
6094: );
6095: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Validate_Var_Rent: Parameter pn_varen_util.validate_rent_num :'
6096: || NVL (p_var_rent_rec.rent_num
6091:
6092: pn_varen_util.pvt_debug ('PN_VAREN_PVT: Validate_Var_Rent: Calling pn_varen_util.validate_rent_num '
6093: , 3
6094: );
6095: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Validate_Var_Rent: Parameter pn_varen_util.validate_rent_num :'
6096: || NVL (p_var_rent_rec.rent_num
6097: , 'NO RENT NUM'
6098: )
6099: , 3
6105: , p_org_id => g_org_id
6106: , x_return_status => l_return_status
6107: );
6108:
6109: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Validate_Var_Rent: Variable Rent Validation Output :'
6110: || l_var_rent_id
6111: , 3
6112: );
6113: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Validate_Var_Rent: validate_rent_num return_status :'
6109: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Validate_Var_Rent: Variable Rent Validation Output :'
6110: || l_var_rent_id
6111: , 3
6112: );
6113: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Validate_Var_Rent: validate_rent_num return_status :'
6114: || l_return_status
6115: , 3
6116: );
6117:
6127: );
6128: fnd_msg_pub.ADD;
6129: RAISE fnd_api.g_exc_unexpected_error;
6130: ELSE
6131: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Validate_Var_Rent: Variable Rent Id Success :'
6132: || l_var_rent_id
6133: , 3
6134: );
6135: END IF;
6147: IF (l_auto_var_rent_num = 'Y')
6148: THEN
6149: --both rent num and rent_id would be sequence value
6150: pn_varen_util.pvt_debug
6151: ( 'PN_VAREN_PVT: Validate_Var_Rent: Variable Rent Number generation is set as Yes'
6152: || l_auto_var_rent_num
6153: , 3
6154: );
6155: x_return_status := fnd_api.g_ret_sts_success;
6159: );
6160: fnd_msg_pub.ADD;
6161: RAISE fnd_api.g_exc_error;
6162: pn_varen_util.pvt_debug
6163: ('PN_VAREN_PVT: Validate_Var_Rent: VRA Number is Null and Automatic Number Generation for Variable Rent is set to No.'
6164: , 3
6165: );
6166: x_return_status := fnd_api.g_ret_sts_error;
6167: END IF;
6172: --------------------------------------------------------------------------------------
6173: IF (l_return_status <> fnd_api.g_ret_sts_error)
6174: THEN
6175: pn_varen_util.pvt_debug
6176: ('PN_VAREN_PVT: Validate_Var_Rent: If Variable Rent Num doesn''t exists in the system, calling the rest of the validations'
6177: , 3
6178: );
6179: pn_varen_util.pvt_debug ('PN_VAREN_PVT: Validate_Var_Rent: Start of Variable Rent Validations'
6180: , 3
6175: pn_varen_util.pvt_debug
6176: ('PN_VAREN_PVT: Validate_Var_Rent: If Variable Rent Num doesn''t exists in the system, calling the rest of the validations'
6177: , 3
6178: );
6179: pn_varen_util.pvt_debug ('PN_VAREN_PVT: Validate_Var_Rent: Start of Variable Rent Validations'
6180: , 3
6181: );
6182: --Variable Rent : Commencement date validation
6183: pn_varen_util.pvt_debug ('PN_VAREN_PVT: Validate_Var_Rent: Calling Agreement Template validation'
6179: pn_varen_util.pvt_debug ('PN_VAREN_PVT: Validate_Var_Rent: Start of Variable Rent Validations'
6180: , 3
6181: );
6182: --Variable Rent : Commencement date validation
6183: pn_varen_util.pvt_debug ('PN_VAREN_PVT: Validate_Var_Rent: Calling Agreement Template validation'
6184: , 3
6185: );
6186:
6187: ---------------------------------
6238: )
6239: THEN
6240:
6241: l_return_status := fnd_api.g_ret_sts_success;
6242: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Validate_Var_Rent: Commencement date validation Success :'
6243: || p_var_rent_rec.commencement_date
6244: , 3
6245: );
6246: ELSIF (p_var_rent_rec.commencement_date IS NULL AND l_lease_commencement_date IS NOT NULL)
6249: NVL (p_var_rent_rec.commencement_date
6250: , l_lease_commencement_date
6251: );
6252: l_return_status := fnd_api.g_ret_sts_success;
6253: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Validate_Var_Rent: ELSEIF:Commencement date validation Success :'
6254: || p_var_rent_rec.commencement_date
6255: , 3
6256: );
6257: ELSE
6255: , 3
6256: );
6257: ELSE
6258: l_return_status := fnd_api.g_ret_sts_error;
6259: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Validate_Var_Rent: ELSE: Lease Commencement date validation Failed :'
6260: || l_lease_commencement_date
6261: , 3
6262: );
6263: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
6268:
6269: --------------------------------------------------------------------------------
6270: --Termination date validation
6271: --------------------------------------------------------------------------------
6272: pn_varen_util.pvt_debug ('PN_VAREN_PVT: Validate_Var_Rent: Calling Termination Dates validation'
6273: , 3
6274: );
6275:
6276: IF ( p_var_rent_rec.termination_date IS NOT NULL
6278: AND p_var_rent_rec.termination_date <= l_lease_termination_date
6279: )
6280: THEN
6281: l_return_status := fnd_api.g_ret_sts_success;
6282: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Validate_Var_Rent: Termination date validation Success :'
6283: || p_var_rent_rec.termination_date
6284: , 3
6285: );
6286: ELSIF (p_var_rent_rec.termination_date IS NULL AND l_lease_termination_date IS NOT NULL) THEN
6285: );
6286: ELSIF (p_var_rent_rec.termination_date IS NULL AND l_lease_termination_date IS NOT NULL) THEN
6287: p_var_rent_rec.termination_date :=NVL (p_var_rent_rec.termination_date,l_lease_termination_date);
6288: l_return_status := fnd_api.g_ret_sts_success;
6289: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Validate_Var_Rent: Termination date validation Success :'
6290: || p_var_rent_rec.termination_date
6291: , 3
6292: );
6293: ELSE
6291: , 3
6292: );
6293: ELSE
6294: l_return_status := fnd_api.g_ret_sts_error;
6295: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Validate_Var_Rent: Lease Termination date validation Failed :'
6296: || l_lease_termination_date
6297: , 3
6298: );
6299: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Validate_Var_Rent: Commencement date validation Failed :'
6295: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Validate_Var_Rent: Lease Termination date validation Failed :'
6296: || l_lease_termination_date
6297: , 3
6298: );
6299: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Validate_Var_Rent: Commencement date validation Failed :'
6300: || p_var_rent_rec.termination_date
6301: , 3
6302: );
6303: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
6311: --------------------------------------------------------------------------------
6312: IF ( p_var_rent_rec.location_id IS NOT NULL
6313: OR p_var_rent_rec.location_code IS NOT NULL)
6314: THEN
6315: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Validate_Var_Rent: Calling Validate Location :'
6316: || p_var_rent_rec.location_id||'-'||p_var_rent_rec.location_code
6317: , 3
6318: );
6319: pn_varen_util.validate_location (p_lease_id => p_var_rent_rec.lease_id
6320: , x_location_id => p_var_rent_rec.location_id
6321: , x_location_code => p_var_rent_rec.location_code
6322: , x_return_status => l_return_status
6323: );
6324: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Validate_Var_Rent: Location ID Output :'
6325: || p_var_rent_rec.location_id
6326: , 3
6327: );
6328:
6338: fnd_message.set_token('ERR_MSG', 'Invalid Location Code/ID,Please Provide Valid Location Code/ID:Unexpected Error');
6339: fnd_msg_pub.ADD;
6340: RAISE fnd_api.g_exc_unexpected_error;
6341: ELSE
6342: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Validate_Var_Rent: Location ID Validation Success :'
6343: || p_var_rent_rec.location_id
6344: , 3
6345: );
6346: -- RAISE fnd_api.g_exc_unexpected_error;
6352: --------------------------------------------------------------------------------
6353: IF ( p_var_rent_rec.purpose_code IS NOT NULL
6354: OR p_var_rent_rec.purpose_code_meaning IS NOT NULL)
6355: THEN
6356: pn_varen_util.pvt_debug ('PN_VAREN_PVT: Validate_Var_Rent: Calling Payment Purpose Validation'
6357: , 3
6358: );
6359: pn_varen_util.validate_lookups (p_lookup_type => g_payment_purpose
6360: , x_lookup_meaning => p_var_rent_rec.purpose_code_meaning
6360: , x_lookup_meaning => p_var_rent_rec.purpose_code_meaning
6361: , x_lookup_code => p_var_rent_rec.purpose_code
6362: , x_return_status => l_return_status
6363: );
6364: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Validate_Var_Rent: Payment Purpose Output Code :'
6365: || p_var_rent_rec.purpose_code
6366: , 3
6367: );
6368:
6367: );
6368:
6369: IF (l_return_status = fnd_api.g_ret_sts_error)
6370: THEN
6371: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Validate_Var_Rent: Payment Purpose Meaning Expected Error :'
6372: || p_var_rent_rec.purpose_code_meaning
6373: , 3
6374: );
6375: fnd_message.set_name ('PN'
6385:
6386: ELSIF (l_return_status = fnd_api.g_ret_sts_unexp_error)
6387: THEN
6388: pn_varen_util.pvt_debug
6389: ( 'PN_VAREN_PVT: Validate_Var_Rent: Payment Purpose Meaning Un-Expected Error :'
6390: || p_var_rent_rec.purpose_code_meaning
6391: , 3
6392: );
6393: fnd_message.set_name ('PN'
6401: fnd_msg_pub.ADD;
6402: RAISE fnd_api.g_exc_unexpected_error;
6403:
6404: ELSE
6405: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Validate_Var_Rent: Payment Purpose Code Success :'
6406: || p_var_rent_rec.purpose_code
6407: , 3
6408: );
6409: END IF;
6410: ELSIF (l_purpose_code IS NOT NULL)
6411: THEN
6412: p_var_rent_rec.purpose_code := l_purpose_code;
6413: ELSE
6414: pn_varen_util.pvt_debug ('PN_VAREN_PVT: Purpose_code is null'
6415: , 3
6416: );
6417: fnd_message.set_name ('PN'
6418: , 'PN_VAR_PUR_CODE'
6431: --------------------------------------------------------------------------------
6432: IF ( p_var_rent_rec.type_code IS NOT NULL
6433: OR p_var_rent_rec.type_meaning IS NOT NULL)
6434: THEN
6435: pn_varen_util.pvt_debug ('PN_VAREN_PVT: Validate_Var_Rent: Calling Rent Type Validation'
6436: , 3
6437: );
6438: pn_varen_util.validate_lookups (p_lookup_type => g_rent_type
6439: , x_lookup_meaning => p_var_rent_rec.type_meaning
6439: , x_lookup_meaning => p_var_rent_rec.type_meaning
6440: , x_lookup_code => p_var_rent_rec.type_code
6441: , x_return_status => l_return_status
6442: );
6443: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Validate_Var_Rent: Rent Type Meaning Validation Output :'
6444: || p_var_rent_rec.type_meaning
6445: , 3
6446: );
6447: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Validate_Var_Rent: Rent Type Code Validation Output :'
6443: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Validate_Var_Rent: Rent Type Meaning Validation Output :'
6444: || p_var_rent_rec.type_meaning
6445: , 3
6446: );
6447: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Validate_Var_Rent: Rent Type Code Validation Output :'
6448: || p_var_rent_rec.type_code
6449: , 3
6450: );
6451:
6461: );
6462: fnd_msg_pub.ADD;
6463: RAISE fnd_api.g_exc_error;
6464: pn_varen_util.pvt_debug
6465: ( 'PN_VAREN_PVT: Validate_Var_Rent: Rent Type Meaning Validation Expected Error :'
6466: || p_var_rent_rec.type_meaning
6467: , 3
6468: );
6469: ELSIF (l_return_status = fnd_api.g_ret_sts_unexp_error)
6478: );
6479: fnd_msg_pub.ADD;
6480: RAISE fnd_api.g_exc_unexpected_error;
6481: pn_varen_util.pvt_debug
6482: ( 'PN_VAREN_PVT: Validate_Var_Rent: Rent Type Meaning Validation Un-Expected Error :'
6483: || p_var_rent_rec.type_meaning
6484: , 3
6485: );
6486: ELSE
6483: || p_var_rent_rec.type_meaning
6484: , 3
6485: );
6486: ELSE
6487: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Validate_Var_Rent: Rent Type Code Success :'
6488: || p_var_rent_rec.type_code
6489: , 3
6490: );
6491: END IF;
6492: ELSIF (l_type_code IS NOT NULL)
6493: THEN
6494: p_var_rent_rec.type_code := l_type_code;
6495: ELSE
6496: pn_varen_util.pvt_debug ('PN_VAREN_PVT: TYPE_CODE is NULL'
6497: , 3
6498: );
6499: fnd_message.set_name ('PN'
6500: , 'PN_VAR_VOL_TY'
6513: --------------------------------------------------------------------------------
6514: IF ( p_var_rent_rec.abstracted_by_user_id IS NOT NULL
6515: OR p_var_rent_rec.abstracted_by_user IS NOT NULL)
6516: THEN
6517: pn_varen_util.pvt_debug ('PN_VAREN_PVT: Validate_Var_Rent: Calling User Validation'
6518: , 3
6519: );
6520: pn_varen_util.validate_abst_user (x_user_name => p_var_rent_rec.abstracted_by_user
6521: , x_user_id => p_var_rent_rec.abstracted_by_user_id
6520: pn_varen_util.validate_abst_user (x_user_name => p_var_rent_rec.abstracted_by_user
6521: , x_user_id => p_var_rent_rec.abstracted_by_user_id
6522: , x_return_status => l_return_status
6523: );
6524: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Validate_Var_Rent: User Validation user id :'
6525: || p_var_rent_rec.abstracted_by_user_id
6526: , 3
6527: );
6528:
6527: );
6528:
6529: IF (l_return_status = fnd_api.g_ret_sts_error)
6530: THEN
6531: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Validate_Var_Rent: User Validation User Name Expected Error:'
6532: || p_var_rent_rec.abstracted_by_user
6533: , 3
6534: );
6535: fnd_message.set_name ('PN'
6545:
6546: ELSIF (l_return_status = fnd_api.g_ret_sts_unexp_error)
6547: THEN
6548: pn_varen_util.pvt_debug
6549: ( 'PN_VAREN_PVT: Validate_Var_Rent: User Validation user Name Un-Expected Error:'
6550: || p_var_rent_rec.abstracted_by_user
6551: , 3
6552: );
6553: fnd_message.set_name ('PN'
6561: fnd_msg_pub.ADD;
6562: RAISE fnd_api.g_exc_unexpected_error;
6563:
6564: ELSE
6565: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Validate_Var_Rent: User Validation user id Success:'
6566: || p_var_rent_rec.abstracted_by_user_id
6567: , 3
6568: );
6569: END IF;
6580: --------------------------------------------------------------------------------
6581: IF ( p_var_rent_rec.cumulative_vol_code IS NOT NULL
6582: OR p_var_rent_rec.cumulative_vol_meaning IS NOT NULL)
6583: THEN
6584: pn_varen_util.pvt_debug ('PN_VAREN_PVT: Validate_Var_Rent: Calling Cumulative Volume'
6585: , 3
6586: );
6587: pn_varen_util.validate_lookups (p_lookup_type => g_cumulative_vol
6588: , x_lookup_meaning => p_var_rent_rec.cumulative_vol_meaning
6588: , x_lookup_meaning => p_var_rent_rec.cumulative_vol_meaning
6589: , x_lookup_code => p_var_rent_rec.cumulative_vol_code
6590: , x_return_status => l_return_status
6591: );
6592: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Validate_Var_Rent: Cumulative Volume Code :'
6593: || p_var_rent_rec.cumulative_vol_code
6594: , 3
6595: );
6596:
6595: );
6596:
6597: IF (l_return_status = fnd_api.g_ret_sts_error)
6598: THEN
6599: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Validate_Var_Rent: Cumulative Volume Meaning Expected Error:'
6600: || p_var_rent_rec.cumulative_vol_meaning
6601: , 3
6602: );
6603: fnd_message.set_name ('PN'
6613:
6614: ELSIF (l_return_status = fnd_api.g_ret_sts_unexp_error)
6615: THEN
6616: pn_varen_util.pvt_debug
6617: ( 'PN_VAREN_PVT: Validate_Var_Rent: Cumulative Volume Meaning Un-Expected Error:'
6618: || p_var_rent_rec.cumulative_vol_meaning
6619: , 3
6620: );
6621: fnd_message.set_name ('PN'
6629: fnd_msg_pub.ADD;
6630: RAISE fnd_api.g_exc_unexpected_error;
6631:
6632: ELSE
6633: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Validate_Var_Rent: Cumulative Volume Code Success:'
6634: || p_var_rent_rec.cumulative_vol_code
6635: , 3
6636: );
6637: END IF;
6639: OR p_var_rent_rec.cumulative_vol_meaning IS NULL)
6640: THEN
6641: p_var_rent_rec.cumulative_vol_code := 'C';
6642: p_var_rent_rec.cumulative_vol_meaning := 'Cumulative';
6643: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Validate_Var_Rent: Cumulative Volume Code Success:'
6644: || p_var_rent_rec.cumulative_vol_code
6645: , 3
6646: );
6647: ELSIF (l_cumulative_vol IS NOT NULL)
6647: ELSIF (l_cumulative_vol IS NOT NULL)
6648: THEN
6649: p_var_rent_rec.cumulative_vol_code := l_cumulative_vol;
6650: ELSE
6651: pn_varen_util.pvt_debug ('PN_VAREN_PVT: CUMULATIVE_VOL is NULL'
6652: , 3
6653: );
6654: fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
6655: fnd_message.set_token ('API_NAME', 'PN_VAR_RENT_PVT');
6663: --------------------------------------------------------------------------------
6664: IF ( p_var_rent_rec.proration_rule_code IS NOT NULL
6665: OR p_var_rent_rec.proration_rule_meaning IS NOT NULL)
6666: THEN
6667: pn_varen_util.pvt_debug ('PN_VAREN_PVT: Validate_Var_Rent: Calling Proration Rule / Parial Year Method'
6668: , 3
6669: );
6670: pn_varen_util.validate_lookups (p_lookup_type => g_proration_rule
6671: , x_lookup_meaning => p_var_rent_rec.proration_rule_meaning
6671: , x_lookup_meaning => p_var_rent_rec.proration_rule_meaning
6672: , x_lookup_code => p_var_rent_rec.proration_rule_code
6673: , x_return_status => l_return_status
6674: );
6675: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Validate_Var_Rent: Proration Rule / Parial Year Method Code :'
6676: || p_var_rent_rec.proration_rule_code
6677: , 3
6678: );
6679:
6689: );
6690: fnd_msg_pub.ADD;
6691: RAISE fnd_api.g_exc_error;
6692: pn_varen_util.pvt_debug
6693: ( 'PN_VAREN_PVT: Validate_Var_Rent: Proration Rule / Parial Year Method Meaning Expected Error :'
6694: || p_var_rent_rec.proration_rule_meaning
6695: , 3
6696: );
6697: ELSIF (l_return_status = fnd_api.g_ret_sts_unexp_error)
6706: );
6707: fnd_msg_pub.ADD;
6708: RAISE fnd_api.g_exc_unexpected_error;
6709: pn_varen_util.pvt_debug
6710: ( 'PN_VAREN_PVT: Validate_Var_Rent: Proration Rule / Parial Year Method Meaning Un-Expected Error :'
6711: || p_var_rent_rec.proration_rule_meaning
6712: , 3
6713: );
6714: ELSE
6712: , 3
6713: );
6714: ELSE
6715: pn_varen_util.pvt_debug
6716: ( 'PN_VAREN_PVT: Validate_Var_Rent: Proration Rule / Parial Year Method Code Success :'
6717: || p_var_rent_rec.proration_rule_code
6718: , 3
6719: );
6720: END IF;
6723: THEN
6724: p_var_rent_rec.proration_rule_code := 'STD';
6725: p_var_rent_rec.proration_rule_meaning := 'Standard';
6726: pn_varen_util.pvt_debug
6727: ( 'PN_VAREN_PVT: Validate_Var_Rent: Proration Rule / Parial Year Method Code Success :'
6728: || p_var_rent_rec.proration_rule_code
6729: , 3
6730: );
6731: ELSIF (l_proration_rule IS NOT NULL)
6738: --------------------------------------------------------------------------------
6739: IF ( p_var_rent_rec.invoice_on_code IS NOT NULL
6740: OR p_var_rent_rec.invoice_on_meaning IS NOT NULL)
6741: THEN
6742: pn_varen_util.pvt_debug ('PN_VAREN_PVT: Validate_Var_Rent: Calling Invoice on'
6743: , 3
6744: );
6745: pn_varen_util.validate_lookups (p_lookup_type => g_invoice_on
6746: , x_lookup_meaning => p_var_rent_rec.invoice_on_meaning
6746: , x_lookup_meaning => p_var_rent_rec.invoice_on_meaning
6747: , x_lookup_code => p_var_rent_rec.invoice_on_code
6748: , x_return_status => l_return_status
6749: );
6750: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Validate_Var_Rent: Invoice on Code :'
6751: || p_var_rent_rec.invoice_on_code
6752: , 3
6753: );
6754:
6763: || p_var_rent_rec.invoice_on_code
6764: );
6765: fnd_msg_pub.ADD;
6766: RAISE fnd_api.g_exc_error;
6767: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Validate_Var_Rent: Invoice on Meaning Expected Error :'
6768: || p_var_rent_rec.invoice_on_meaning
6769: , 3
6770: );
6771: ELSIF (l_return_status = fnd_api.g_ret_sts_unexp_error)
6779: || p_var_rent_rec.invoice_on_code
6780: );
6781: fnd_msg_pub.ADD;
6782: RAISE fnd_api.g_exc_unexpected_error;
6783: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Validate_Var_Rent: Invoice on Meaning Un-Expected Error :'
6784: || p_var_rent_rec.invoice_on_meaning
6785: , 3
6786: );
6787: ELSE
6784: || p_var_rent_rec.invoice_on_meaning
6785: , 3
6786: );
6787: ELSE
6788: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Validate_Var_Rent: Invoice on Code Success :'
6789: || p_var_rent_rec.invoice_on_code
6790: , 3
6791: );
6792: END IF;
6794: OR p_var_rent_rec.invoice_on_meaning IS NULL)
6795: THEN
6796: p_var_rent_rec.invoice_on_code := 'ACTUAL';
6797: p_var_rent_rec.invoice_on_meaning := 'Actual';
6798: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Validate_Var_Rent: Invoice on Code Success :'
6799: || p_var_rent_rec.invoice_on_code
6800: , 3
6801: );
6802: ELSIF (l_invoice_on IS NOT NULL)
6802: ELSIF (l_invoice_on IS NOT NULL)
6803: THEN
6804: p_var_rent_rec.invoice_on_code := l_invoice_on;
6805: ELSE
6806: pn_varen_util.pvt_debug ('PN_VAREN_PVT: INVOICE_ON is NULL'
6807: , 3
6808: );
6809: END IF;
6810:
6821: pn_varen_util.check_prora_cum_comb (p_proration_rule_code => p_var_rent_rec.proration_rule_code
6822: , p_cumulative_vol_code => p_var_rent_rec.cumulative_vol_code
6823: , x_return_status => l_return_status
6824: );
6825: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Validate_Var_Rent: check_prora_cum_comb - L_RETURN_STATUS : '
6826: || l_return_status
6827: , 3
6828: );
6829:
6854: pn_varen_util.check_prora_invon_comb (p_proration_rule_code => p_var_rent_rec.proration_rule_code
6855: , p_invoice_on_code => p_var_rent_rec.invoice_on_code
6856: , x_return_status => l_return_status
6857: );
6858: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Validate_Var_Rent: check_prora_invon_comb - L_RETURN_STATUS : '
6859: || l_return_status
6860: , 3
6861: );
6862:
6880: --------------------------------------------------------------------------------
6881: IF ( p_var_rent_rec.negative_rent_code IS NOT NULL
6882: OR p_var_rent_rec.negative_rent_meaning IS NOT NULL)
6883: THEN
6884: pn_varen_util.pvt_debug ('PN_VAREN_PVT: Validate_Var_Rent: Calling Negative Rent'
6885: , 3
6886: );
6887: pn_varen_util.validate_lookups (p_lookup_type => g_negative_rent
6888: , x_lookup_meaning => p_var_rent_rec.negative_rent_meaning
6888: , x_lookup_meaning => p_var_rent_rec.negative_rent_meaning
6889: , x_lookup_code => p_var_rent_rec.negative_rent_code
6890: , x_return_status => l_return_status
6891: );
6892: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Validate_Var_Rent: Negative Rent :'
6893: || p_var_rent_rec.negative_rent_code
6894: , 3
6895: );
6896:
6895: );
6896:
6897: IF (l_return_status = fnd_api.g_ret_sts_error)
6898: THEN
6899: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Validate_Var_Rent: Negative Rent Meaning Expected Error :'
6900: || p_var_rent_rec.negative_rent_meaning
6901: , 3
6902: );
6903: fnd_message.set_name ('PN'
6912: RAISE fnd_api.g_exc_error;
6913:
6914: ELSIF (l_return_status = fnd_api.g_ret_sts_unexp_error)
6915: THEN
6916: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Validate_Var_Rent: Negative Rent Meaning Un-Expected Error :'
6917: || p_var_rent_rec.negative_rent_meaning
6918: , 3
6919: );
6920: fnd_message.set_name ('PN'
6928: fnd_msg_pub.ADD;
6929: RAISE fnd_api.g_exc_unexpected_error;
6930:
6931: ELSE
6932: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Validate_Var_Rent: Negative Rent Code Success :'
6933: || p_var_rent_rec.negative_rent_code
6934: , 3
6935: );
6936: END IF;
6938: OR p_var_rent_rec.negative_rent_meaning IS NULL)
6939: THEN
6940: p_var_rent_rec.negative_rent_code := 'IGNORE';
6941: p_var_rent_rec.negative_rent_meaning := 'Ignore';
6942: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Validate_Var_Rent: Negative Rent Code Success :'
6943: || p_var_rent_rec.negative_rent_code
6944: , 3
6945: );
6946: ELSIF (l_negative_rent IS NOT NULL)
6953: --------------------------------------------------------------------------------
6954: IF ( p_var_rent_rec.term_template_id IS NOT NULL
6955: OR p_var_rent_rec.term_template_name IS NOT NULL)
6956: THEN
6957: pn_varen_util.pvt_debug ('PN_VAREN_PVT: Validate_Var_Rent: Calling Term Template'
6958: , 3
6959: );
6960: pn_varen_util.validate_term_template (p_org_id => g_org_id
6961: , x_term_template_id => p_var_rent_rec.term_template_id
6961: , x_term_template_id => p_var_rent_rec.term_template_id
6962: , x_term_template_name => p_var_rent_rec.term_template_name
6963: , x_return_status => l_return_status
6964: );
6965: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Validate_Var_Rent: Term Template Id :'
6966: || p_var_rent_rec.term_template_id
6967: , 3
6968: );
6969:
6993: fnd_msg_pub.ADD;
6994: RAISE fnd_api.g_exc_unexpected_error;
6995:
6996: ELSE
6997: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Validate_Var_Rent: Term Template Id Success :'
6998: || p_var_rent_rec.term_template_id
6999: , 3
7000: );
7001: END IF;
7002: ELSIF (l_term_template_id IS NOT NULL)
7003: THEN
7004: p_var_rent_rec.term_template_id := l_term_template_id;
7005: ELSE
7006: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Validate_Var_Rent: Term Template Id IS NULL:',3);
7007: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
7008: fnd_message.set_token('ERR_MSG', 'Term Template ID has not been mentioned in either Variable Rent/Lease');
7009: fnd_msg_pub.ADD;
7010: RAISE fnd_api.g_exc_error;
7014: --Currency Validation
7015: --------------------------------------------------------------------------------
7016: IF (p_var_rent_rec.currency_code IS NOT NULL)
7017: THEN
7018: pn_varen_util.pvt_debug ('PN_VAREN_PVT: Validate_Var_Rent: Calling Currency'
7019: , 3
7020: );
7021: pn_varen_util.validate_currency (p_currency_code => p_var_rent_rec.currency_code
7022: , x_return_status => l_return_status
7042: , p_var_rent_rec.currency_code
7043: );
7044: fnd_msg_pub.ADD;
7045: RAISE fnd_api.g_exc_unexpected_error;
7046: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Validate_Var_Rent: Currency Code Un-Expected Error :'
7047: || p_var_rent_rec.currency_code
7048: , 3
7049: );
7050: ELSE
7047: || p_var_rent_rec.currency_code
7048: , 3
7049: );
7050: ELSE
7051: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Validate_Var_Rent: Currency Code Success :'
7052: || p_var_rent_rec.currency_code
7053: , 3
7054: );
7055: END IF;
7053: , 3
7054: );
7055: END IF;
7056: ELSE
7057: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Validate_Var_Rent: Currency Code IS NULL:',3);
7058: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
7059: fnd_message.set_token('ERR_MSG', 'Please provide Currency Code for the VAR Rent');
7060: fnd_msg_pub.ADD;
7061: RAISE fnd_api.g_exc_error;
7060: fnd_msg_pub.ADD;
7061: RAISE fnd_api.g_exc_error;
7062: END IF;
7063:
7064: pn_varen_util.pvt_debug ('PN_VAREN_PVT: End - Variable Rent validations'
7065: , 3
7066: );
7067: END IF;
7068:
7180: x_return_status := fnd_api.g_ret_sts_success;
7181: EXCEPTION
7182: WHEN fnd_api.g_exc_error THEN
7183: x_return_status := fnd_api.g_ret_sts_error;
7184: pn_varen_util.pvt_debug('PN_VAREN_PVT: Validate_Var_Rent: Exception'||SQLERRM,3);
7185: WHEN OTHERS THEN
7186: x_return_status := fnd_api.g_ret_sts_unexp_error;
7187: pn_varen_util.pvt_debug('PN_VAREN_PVT: Validate_Var_Rent: Exception Result of Validate_Var_Rent procedure :'|| SQLERRM,3);
7188: END validate_var_rent;
7183: x_return_status := fnd_api.g_ret_sts_error;
7184: pn_varen_util.pvt_debug('PN_VAREN_PVT: Validate_Var_Rent: Exception'||SQLERRM,3);
7185: WHEN OTHERS THEN
7186: x_return_status := fnd_api.g_ret_sts_unexp_error;
7187: pn_varen_util.pvt_debug('PN_VAREN_PVT: Validate_Var_Rent: Exception Result of Validate_Var_Rent procedure :'|| SQLERRM,3);
7188: END validate_var_rent;
7189:
7190: --------------------------------------------------------------------------------
7191: -- NAME : UPD_VAL_VARENT
7209: l_lease_termination_date DATE;
7210: BEGIN
7211:
7212: pn_varen_util.pvt_debug
7213: ( 'PN_VAREN_PVT: Upd_Val_Varent: Start of Update validate variable rent details procedure'
7214: || SQLERRM
7215: , 3
7216: );
7217:
7221: -- The below code has been commented by Vivek on 08-Dec-2010
7222: /*
7223: IF (p_upd_var_rent_rec_type.rent_num IS NULL)
7224: THEN
7225: pn_varen_util.pvt_debug ('PN_VAREN_PVT: Upd_Val_Varent: Please pass the variable rent details'
7226: , 3
7227: );
7228: --fnd_message.set_name ('PN', 'PN_VAR_NVALID_LEASE');
7229: --fnd_msg_pub.ADD;
7236: , x_location_id => p_upd_var_rent_rec_type.location_id
7237: , x_return_status => l_return_status
7238: );
7239: pn_varen_util.pvt_debug
7240: ( 'PN_VAREN_PVT: Upd_Val_Varent: Return status of pn_varen_util.val_rent_details procedure '
7241: || l_return_status
7242: , 3
7243: );
7244:
7246: THEN
7247: --fnd_message.set_name ('PN' , 'PN_VAR_NVALID_LEASE');
7248: --fnd_msg_pub.ADD;
7249: RAISE fnd_api.g_exc_error;
7250: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Upd_Val_Varent: p_upd_var_rent_rec_type.rent_num error: '
7251: || p_upd_var_rent_rec_type.rent_num
7252: , 3
7253: );
7254: ELSIF (l_return_status = fnd_api.g_ret_sts_unexp_error)
7256: --fnd_message.set_name ('PN' , 'PN_VAR_NVALID_LEASE');
7257: --fnd_msg_pub.ADD;
7258: RAISE fnd_api.g_exc_unexpected_error;
7259: pn_varen_util.pvt_debug
7260: ( 'PN_VAREN_PVT: Upd_Val_Varent: p_upd_var_rent_rec_type.rent_num unexpected error: '
7261: || p_upd_var_rent_rec_type.rent_num
7262: , 3
7263: );
7264: ELSE
7262: , 3
7263: );
7264: ELSE
7265: l_return_status := fnd_api.g_ret_sts_success;
7266: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Upd_Val_Varent: p_upd_var_rent_rec_type.rent_num success: '
7267: || p_upd_var_rent_rec_type.rent_num
7268: , 3
7269: );
7270: END IF;
7274:
7275: IF (p_upd_var_rent_rec_type.rent_num IS NOT NULL AND p_upd_var_rent_rec_type.rent_num<> pn_varen_util.g_pn_miss_char)
7276: OR (p_upd_var_rent_rec_type.var_rent_id IS NOT NULL AND p_upd_var_rent_rec_type.var_rent_id<> pn_varen_util.g_pn_miss_num)
7277: THEN
7278: pn_varen_util.pvt_debug ('PN_VAREN_PVT: Upd_Val_Varent: Please pass the variable rent details'
7279: , 3
7280: );
7281: --fnd_message.set_name ('PN', 'PN_VAR_NVALID_LEASE');
7282: --fnd_msg_pub.ADD;
7287: , x_var_rent_id => p_upd_var_rent_rec_type.var_rent_id
7288: , x_return_status => l_return_status
7289: );
7290: pn_varen_util.pvt_debug
7291: ( 'PN_VAREN_PVT: Upd_Val_Varent: Return status of pn_varen_util.val_rent_details procedure '
7292: || l_return_status
7293: , 3
7294: );
7295:
7297: THEN
7298: --fnd_message.set_name ('PN' , 'PN_VAR_NVALID_LEASE');
7299: --fnd_msg_pub.ADD;
7300: RAISE fnd_api.g_exc_error;
7301: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Upd_Val_Varent: p_upd_var_rent_rec_type.rent_num error: '
7302: || p_upd_var_rent_rec_type.rent_num
7303: , 3
7304: );
7305: ELSIF (l_return_status = fnd_api.g_ret_sts_unexp_error)
7307: --fnd_message.set_name ('PN' , 'PN_VAR_NVALID_LEASE');
7308: --fnd_msg_pub.ADD;
7309: RAISE fnd_api.g_exc_unexpected_error;
7310: pn_varen_util.pvt_debug
7311: ( 'PN_VAREN_PVT: Upd_Val_Varent: p_upd_var_rent_rec_type.rent_num unexpected error: '
7312: || p_upd_var_rent_rec_type.rent_num
7313: , 3
7314: );
7315: ELSE
7313: , 3
7314: );
7315: ELSE
7316: l_return_status := fnd_api.g_ret_sts_success;
7317: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Upd_Val_Varent: p_upd_var_rent_rec_type.rent_num success: '
7318: || p_upd_var_rent_rec_type.rent_num
7319: , 3
7320: );
7321: END IF;
7330: , x_return_status => l_return_status
7331: );
7332:
7333: pn_varen_util.pvt_debug
7334: ( 'PN_VAREN_PVT: Upd_Val_Varent: Return status of pn_varen_util.validate_lease_id procedure '
7335: || l_return_status
7336: , 3
7337: );
7338:
7340: THEN
7341: --fnd_message.set_name ('PN' , 'PN_VAR_NVALID_LEASE');
7342: --fnd_msg_pub.ADD;
7343:
7344: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Upd_Val_Varent: p_upd_var_rent_rec_type.lease_id error: '
7345: || p_upd_var_rent_rec_type.lease_id
7346: , 3
7347: );
7348: RAISE fnd_api.g_exc_error;
7361: , x_return_status => l_return_status
7362: );
7363:
7364: pn_varen_util.pvt_debug
7365: ( 'PN_VAREN_PVT: Upd_Val_Varent: Return status of pn_varen_util.validate_location procedure '
7366: || l_return_status
7367: , 3
7368: );
7369:
7371: THEN
7372: --fnd_message.set_name ('PN' , 'PN_VAR_NVALID_LEASE');
7373: --fnd_msg_pub.ADD;
7374:
7375: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Upd_Val_Varent: p_upd_var_rent_rec_type.location_id error: '
7376: || p_upd_var_rent_rec_type.location_id
7377: , 3
7378: );
7379: RAISE fnd_api.g_exc_error;
7395: pn_varen_util.check_prora_cum_comb (p_proration_rule_code => p_upd_var_rent_rec_type.proration_rule_code
7396: , p_cumulative_vol_code => p_upd_var_rent_rec_type.cumulative_vol_code
7397: , x_return_status => l_return_status
7398: );
7399: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Upd_Val_Varent: check_prora_cum_comb - L_RETURN_STATUS : '
7400: || l_return_status
7401: , 3
7402: );
7403: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Upd_Val_Varent: Return status of check_prora_cum_comb procedure '
7399: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Upd_Val_Varent: check_prora_cum_comb - L_RETURN_STATUS : '
7400: || l_return_status
7401: , 3
7402: );
7403: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Upd_Val_Varent: Return status of check_prora_cum_comb procedure '
7404: || l_return_status
7405: , 3
7406: );
7407:
7441: pn_varen_util.check_prora_invon_comb (p_proration_rule_code => p_upd_var_rent_rec_type.proration_rule_code
7442: , p_invoice_on_code => p_upd_var_rent_rec_type.invoice_on_code
7443: , x_return_status => l_return_status
7444: );
7445: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Upd_Val_Varent: check_prora_invon_comb - L_RETURN_STATUS : '
7446: || l_return_status
7447: , 3
7448: );
7449: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Upd_Val_Varent: Return status of check_prora_invon_comb procedure '
7445: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Upd_Val_Varent: check_prora_invon_comb - L_RETURN_STATUS : '
7446: || l_return_status
7447: , 3
7448: );
7449: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Upd_Val_Varent: Return status of check_prora_invon_comb procedure '
7450: || l_return_status
7451: , 3
7452: );
7453:
7475: EXCEPTION
7476: WHEN OTHERS
7477: THEN
7478: pn_varen_util.pvt_debug
7479: ( 'PN_VAREN_PVT: Upd_Val_Varent: Exception Result of Update validate variable rent details procedure'
7480: || SQLERRM
7481: , 3
7482: );
7483: END upd_val_varent;
7499: , x_return_status OUT NOCOPY VARCHAR2
7500: )
7501: IS
7502: BEGIN
7503: pn_varen_util.pvt_debug ('PN_VAREN_PVT: Ini_Val_Dates: Start of initializing variable rent dates record :'
7504: , 3
7505: );
7506:
7507: --------------------------------------------------------------------------------
7686: THEN
7687: p_var_rent_rec.dates_attribute15 := NULL;
7688: END IF;
7689:
7690: pn_varen_util.pvt_debug ('PN_VAREN_PVT: Ini_Val_Dates: End of initializing variable rent dates record :'
7691: , 3
7692: );
7693: x_return_status := fnd_api.g_ret_sts_success;
7694: EXCEPTION
7694: EXCEPTION
7695: WHEN OTHERS
7696: THEN
7697: x_return_status := fnd_api.g_ret_sts_error;
7698: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Ini_Val_Dates: Exception Result of variable rent dates record :'
7699: || SQLERRM
7700: , 3
7701: );
7702: END ini_val_dates;
7790: -------------------------------------------------
7791: IF ( p_var_rent_rec.reptg_freq_code IS NOT NULL
7792: OR p_var_rent_rec.reptg_freq_meaning IS NOT NULL)
7793: THEN
7794: pn_varen_util.pvt_debug ('PN_VAREN_PVT: Validate_Dates: Calling Calendar and Date Validation'
7795: , 3
7796: );
7797: pn_varen_util.validate_calendar_date (p_commencement_date => p_var_rent_rec.commencement_date
7798: , p_use_gl_calendar => p_var_rent_rec.use_gl_calendar
7800: , p_gl_period_set_name => p_var_rent_rec.gl_period_set_name
7801: , p_period_type => p_var_rent_rec.period_type
7802: , x_return_status => l_return_status
7803: );
7804: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Validate_Dates: Calendar and Date year_start_date :'
7805: || p_var_rent_rec.year_start_date
7806: , 3
7807: );
7808: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Validate_Dates: Calendar and Date gl_period_set_name :'
7804: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Validate_Dates: Calendar and Date year_start_date :'
7805: || p_var_rent_rec.year_start_date
7806: , 3
7807: );
7808: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Validate_Dates: Calendar and Date gl_period_set_name :'
7809: || p_var_rent_rec.gl_period_set_name
7810: , 3
7811: );
7812: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Validate_Dates: Calendar and Date period_type :'
7808: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Validate_Dates: Calendar and Date gl_period_set_name :'
7809: || p_var_rent_rec.gl_period_set_name
7810: , 3
7811: );
7812: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Validate_Dates: Calendar and Date period_type :'
7813: || p_var_rent_rec.period_type
7814: , 3
7815: );
7816:
7846: );
7847: fnd_msg_pub.ADD;
7848: RAISE fnd_api.g_exc_unexpected_error;
7849: ELSE
7850: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Validate_Dates: Calendar and Date year_start_date :'
7851: || p_var_rent_rec.year_start_date
7852: , 3
7853: );
7854: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Validate_Dates: Calendar and Date gl_period_set_name :'
7850: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Validate_Dates: Calendar and Date year_start_date :'
7851: || p_var_rent_rec.year_start_date
7852: , 3
7853: );
7854: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Validate_Dates: Calendar and Date gl_period_set_name :'
7855: || p_var_rent_rec.gl_period_set_name
7856: , 3
7857: );
7858: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Validate_Dates: Calendar and Date period_type :'
7854: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Validate_Dates: Calendar and Date gl_period_set_name :'
7855: || p_var_rent_rec.gl_period_set_name
7856: , 3
7857: );
7858: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Validate_Dates: Calendar and Date period_type :'
7859: || p_var_rent_rec.period_type
7860: , 3
7861: );
7862: x_return_status := fnd_api.g_ret_sts_success;
7881: -------------------------------------------------
7882: IF ( p_var_rent_rec.reptg_freq_code IS NOT NULL
7883: OR p_var_rent_rec.reptg_freq_meaning IS NOT NULL)
7884: THEN
7885: pn_varen_util.pvt_debug ('PN_VAREN_PVT: Validate_Dates: Calling Calculation Frequency Validation'
7886: , 3
7887: );
7888: pn_varen_util.validate_periods (p_lookup_type => g_payment_frequency
7889: , x_lookup_meaning => p_var_rent_rec.reptg_freq_meaning
7889: , x_lookup_meaning => p_var_rent_rec.reptg_freq_meaning
7890: , x_lookup_code => p_var_rent_rec.reptg_freq_code
7891: , x_return_status => l_return_status
7892: );
7893: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Validate_Dates: Calculation Frequency Output Code :'
7894: || p_var_rent_rec.reptg_freq_code
7895: , 3
7896: );
7897:
7921: fnd_msg_pub.ADD;
7922: RAISE fnd_api.g_exc_unexpected_error;
7923:
7924: ELSE
7925: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Validate_Dates: Calculation Frequency Code Success :'
7926: || p_var_rent_rec.reptg_freq_code
7927: , 3
7928: );
7929: x_return_status := fnd_api.g_ret_sts_success;
7932: THEN
7933: p_var_rent_rec.reptg_freq_code := l_invg_freq_code;
7934: ELSE
7935: p_var_rent_rec.reptg_freq_code := 'MON';
7936: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Validate_Dates: Default value for Calculation Frequency Code :'
7937: || p_var_rent_rec.reptg_freq_code
7938: , 3
7939: );
7940: x_return_status := fnd_api.g_ret_sts_success;
7945: -------------------------------------------------
7946: IF ( p_var_rent_rec.vrg_reptg_freq_code IS NOT NULL
7947: OR p_var_rent_rec.vrg_reptg_freq_meaning IS NOT NULL)
7948: THEN
7949: pn_varen_util.pvt_debug ('PN_VAREN_PVT: Validate_Dates: Calling Reporting Frequency Validation'
7950: , 3
7951: );
7952: pn_varen_util.validate_periods (p_lookup_type => g_payment_frequency
7953: , x_lookup_meaning => p_var_rent_rec.vrg_reptg_freq_meaning
7953: , x_lookup_meaning => p_var_rent_rec.vrg_reptg_freq_meaning
7954: , x_lookup_code => p_var_rent_rec.vrg_reptg_freq_code
7955: , x_return_status => l_return_status
7956: );
7957: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Validate_Dates: Reporting Frequency Output Code :'
7958: || p_var_rent_rec.vrg_reptg_freq_code
7959: , 3
7960: );
7961:
7985: fnd_msg_pub.ADD;
7986: RAISE fnd_api.g_exc_unexpected_error;
7987:
7988: ELSE
7989: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Validate_Dates: Reporting Frequency Code Success :'
7990: || p_var_rent_rec.vrg_reptg_freq_code
7991: , 3
7992: );
7993: x_return_status := fnd_api.g_ret_sts_success;
7996: THEN
7997: p_var_rent_rec.vrg_reptg_freq_code := l_vrg_reptg_freq_code;
7998: ELSE
7999: p_var_rent_rec.vrg_reptg_freq_code := 'MON';
8000: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Validate_Dates: Default value for Reporting Frequency Code :'
8001: || p_var_rent_rec.vrg_reptg_freq_code
8002: , 3
8003: );
8004: x_return_status := fnd_api.g_ret_sts_success;
8009: -------------------------------------------------
8010: IF ( p_var_rent_rec.invg_freq_code IS NOT NULL
8011: OR p_var_rent_rec.invg_freq_meaning IS NOT NULL)
8012: THEN
8013: pn_varen_util.pvt_debug ('PN_VAREN_PVT: Validate_Dates: Calling Invoicing Frequency Validation'
8014: , 3
8015: );
8016: pn_varen_util.validate_periods (p_lookup_type => g_payment_frequency
8017: , x_lookup_meaning => p_var_rent_rec.invg_freq_meaning
8017: , x_lookup_meaning => p_var_rent_rec.invg_freq_meaning
8018: , x_lookup_code => p_var_rent_rec.invg_freq_code
8019: , x_return_status => l_return_status
8020: );
8021: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Validate_Dates: Invoicing Frequency Output Code :'
8022: || p_var_rent_rec.invg_freq_code
8023: , 3
8024: );
8025:
8049: fnd_msg_pub.ADD;
8050: RAISE fnd_api.g_exc_unexpected_error;
8051:
8052: ELSE
8053: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Validate_Dates: Invoicing Frequency Code Success :'
8054: || p_var_rent_rec.invg_freq_code
8055: , 3
8056: );
8057: x_return_status := fnd_api.g_ret_sts_success;
8057: x_return_status := fnd_api.g_ret_sts_success;
8058: END IF;
8059: ELSE
8060: p_var_rent_rec.invg_freq_code := 'QTR';
8061: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Validate_Dates: Default value for Invoicing Frequency Code :'
8062: || p_var_rent_rec.invg_freq_code
8063: , 3
8064: );
8065: x_return_status := fnd_api.g_ret_sts_success;
8074: pn_varen_util.check_calc_rept_freq_comb (p_vrg_reptg_freq_code => p_var_rent_rec.vrg_reptg_freq_code
8075: , p_reptg_freq_code => p_var_rent_rec.reptg_freq_code
8076: , x_return_status => l_return_status
8077: );
8078: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Validate_Dates: check_calc_rept_freq_comb - L_RETURN_STATUS : '
8079: || l_return_status
8080: , 3
8081: );
8082: END IF;
8090: pn_varen_util.check_calc_inv_freq_comb (p_reptg_freq_code => p_var_rent_rec.reptg_freq_code
8091: , p_invg_freq_code => p_var_rent_rec.invg_freq_code
8092: , x_return_status => l_return_status
8093: );
8094: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Validate_Dates: check_calc_inv_freq_comb - L_RETURN_STATUS : '
8095: || l_return_status
8096: , 3
8097: );
8098: END IF;
8107: )
8108: THEN
8109: -- either of the value i.e, Due Day or No. of Days After should be null
8110: p_var_rent_rec.reptg_days_after := NULL;
8111: pn_varen_util.pvt_debug ('PN_VAREN_PVT: Validate_Dates: Reporting Frequecy Due day is success'
8112: , 3
8113: );
8114: --
8115: x_return_status := fnd_api.g_ret_sts_success;
8120: AND p_var_rent_rec.reptg_day_of_month <= 28
8121: )
8122: THEN
8123: pn_varen_util.pvt_debug
8124: ('PN_VAREN_PVT: Validate_Dates: Reporting Frequecy Due day and No. of Days After is success'
8125: , 3
8126: );
8127: --p_var_rent_rec.reptg_days_after := NULL;
8128: --
8151: )
8152: THEN
8153: -- either of the value i.e, Due Day or No. of Days After should be null
8154: p_var_rent_rec.invg_days_after := NULL;
8155: pn_varen_util.pvt_debug ('PN_VAREN_PVT: Validate_Dates: Invoicing Frequecy Due day is success'
8156: , 3
8157: );
8158: --
8159: x_return_status := fnd_api.g_ret_sts_success;
8163: AND p_var_rent_rec.invg_day_of_month <= 28)
8164: )
8165: THEN
8166: pn_varen_util.pvt_debug
8167: ('PN_VAREN_PVT: Validate_Dates: Invoicing Frequecy Due day and No. of Days After is success'
8168: , 3
8169: );
8170: --
8171: x_return_status := fnd_api.g_ret_sts_success;
8241: END IF; -- End of attributes valitions in create var rent
8242: */
8243: EXCEPTION
8244: WHEN fnd_api.g_exc_error THEN
8245: pn_varen_util.pvt_debug ('PN_VAREN_PVT: Validate_Dates: fnd_api.g_exc_error:'||SQLERRM
8246: , 3
8247: );
8248: x_return_status := fnd_api.g_ret_sts_error;
8249: WHEN OTHERS THEN
8246: , 3
8247: );
8248: x_return_status := fnd_api.g_ret_sts_error;
8249: WHEN OTHERS THEN
8250: pn_varen_util.pvt_debug ('PN_VAREN_PVT: Validate_Dates: OTHERS:'||SQLERRM
8251: , 3
8252: );
8253: x_return_status := fnd_api.g_ret_sts_unexp_error;
8254: END validate_dates;
8286: , p_reptg_freq_code => p_upd_var_rent_rec_type.reptg_freq_code
8287: , x_return_status => x_return_status--l_return_status
8288: );
8289: pn_varen_util.pvt_debug
8290: ( 'PN_VAREN_PVT: Upd_Validate_Rent_Dates: check_calc_rept_freq_comb - x_return_status : '
8291: || x_return_status
8292: , 3
8293: );
8294: pn_varen_util.pvt_debug
8291: || x_return_status
8292: , 3
8293: );
8294: pn_varen_util.pvt_debug
8295: ( 'PN_VAREN_PVT: Upd_Validate_Rent_Dates: check_calc_rept_freq_comb - p_upd_var_rent_rec_type.vrg_reptg_freq_code : '
8296: || p_upd_var_rent_rec_type.vrg_reptg_freq_code
8297: , 3
8298: );
8299: pn_varen_util.pvt_debug
8296: || p_upd_var_rent_rec_type.vrg_reptg_freq_code
8297: , 3
8298: );
8299: pn_varen_util.pvt_debug
8300: ( 'PN_VAREN_PVT: Upd_Validate_Rent_Dates: check_calc_rept_freq_comb - p_upd_var_rent_rec_type.reptg_freq_code : '
8301: || p_upd_var_rent_rec_type.reptg_freq_code
8302: , 3
8303: );
8304:
8309: );
8310: fnd_msg_pub.ADD;
8311: RAISE fnd_api.g_exc_error;
8312: pn_varen_util.pvt_debug
8313: ( 'PN_VAREN_PVT: Upd_Validate_Rent_Dates: Please reset the variable rent calculation frequency to be equal to or less than the reporting frequency :'
8314: || p_upd_var_rent_rec_type.vrg_reptg_freq_code
8315: || ' , '
8316: || p_upd_var_rent_rec_type.reptg_freq_code
8317: , 3
8323: );
8324: fnd_msg_pub.ADD;
8325: RAISE fnd_api.g_exc_unexpected_error;
8326: pn_varen_util.pvt_debug
8327: ( 'PN_VAREN_PVT: Upd_Validate_Rent_Dates: Please reset the variable rent calculation frequency to be equal to or less than the reporting frequency :'
8328: || p_upd_var_rent_rec_type.vrg_reptg_freq_code
8329: || ' , '
8330: || p_upd_var_rent_rec_type.reptg_freq_code
8331: , 3
8345: , p_invg_freq_code => p_upd_var_rent_rec_type.invg_freq_code
8346: , x_return_status => x_return_status--l_return_status
8347: );
8348: pn_varen_util.pvt_debug
8349: ( 'PN_VAREN_PVT: Upd_Validate_Rent_Dates: check_calc_inv_freq_comb - x_return_status : '
8350: || x_return_status
8351: , 3
8352: );
8353: pn_varen_util.pvt_debug
8350: || x_return_status
8351: , 3
8352: );
8353: pn_varen_util.pvt_debug
8354: ( 'PN_VAREN_PVT: Upd_Validate_Rent_Dates: check_calc_inv_freq_comb - p_upd_var_rent_rec_type.reptg_freq_code : '
8355: || p_upd_var_rent_rec_type.reptg_freq_code
8356: , 3
8357: );
8358: pn_varen_util.pvt_debug
8355: || p_upd_var_rent_rec_type.reptg_freq_code
8356: , 3
8357: );
8358: pn_varen_util.pvt_debug
8359: ( 'PN_VAREN_PVT: Upd_Validate_Rent_Dates: check_calc_inv_freq_comb - p_upd_var_rent_rec_type.invg_freq_code : '
8360: || p_upd_var_rent_rec_type.invg_freq_code
8361: , 3
8362: );
8363:
8368: );
8369: fnd_msg_pub.ADD;
8370: RAISE fnd_api.g_exc_error;
8371: pn_varen_util.pvt_debug
8372: ( 'PN_VAREN_PVT: Upd_Validate_Rent_Dates: Please reset the invoicing frequency to be equal to or less than the variable rent calculation frequency.'
8373: || p_upd_var_rent_rec_type.reptg_freq_code
8374: || ' , '
8375: || p_upd_var_rent_rec_type.invg_freq_code
8376: , 3
8382: );
8383: fnd_msg_pub.ADD;
8384: RAISE fnd_api.g_exc_unexpected_error;
8385: pn_varen_util.pvt_debug
8386: ( 'PN_VAREN_PVT: Upd_Validate_Rent_Dates: Please reset the invoicing frequency to be equal to or less than the variable rent calculation frequency.'
8387: || p_upd_var_rent_rec_type.reptg_freq_code
8388: || ' , '
8389: || p_upd_var_rent_rec_type.invg_freq_code
8390: , 3
8405: )
8406: THEN
8407: -- either of the value i.e, Due Day or No. of Days After should be null
8408: p_upd_var_rent_rec_type.reptg_days_after := NULL;
8409: pn_varen_util.pvt_debug ('PN_VAREN_PVT: Upd_Validate_Rent_Dates: Reporting Frequecy Due day is success'
8410: , 3
8411: );
8412: --
8413: x_return_status := fnd_api.g_ret_sts_success;
8418: AND p_upd_var_rent_rec_type.reptg_day_of_month <= 28
8419: )
8420: THEN
8421: pn_varen_util.pvt_debug
8422: ('PN_VAREN_PVT: Upd_Validate_Rent_Dates: Reporting Frequecy Due day and No. of Days After is success'
8423: , 3
8424: );
8425: --p_upd_var_rent_rec_type.reptg_days_after := NULL;
8426: --
8437: fnd_msg_pub.ADD;
8438: RAISE fnd_api.g_exc_error;
8439: p_upd_var_rent_rec_type.reptg_days_after := NULL;
8440: --
8441: pn_varen_util.pvt_debug ('PN_VAREN_PVT: Upd_Validate_Rent_Dates: Reporting Frequecy Due day is error '
8442: , 3
8443: );
8444: pn_varen_util.pvt_debug ( 'Reporting day of month is not between 1 and 28 : '
8445: || p_upd_var_rent_rec_type.reptg_day_of_month
8459: )
8460: THEN
8461: -- either of the value i.e, Due Day or No. of Days After should be null
8462: p_upd_var_rent_rec_type.invg_days_after := NULL;
8463: pn_varen_util.pvt_debug ('PN_VAREN_PVT: Upd_Validate_Rent_Dates: Invoicing Frequecy Due day is success'
8464: , 3
8465: );
8466: --
8467: x_return_status := fnd_api.g_ret_sts_success;
8471: AND p_upd_var_rent_rec_type.invg_day_of_month <= 28)
8472: )
8473: THEN
8474: pn_varen_util.pvt_debug
8475: ('PN_VAREN_PVT: Upd_Validate_Rent_Dates: Invoicing Frequecy Due day and No. of Days After is success'
8476: , 3
8477: );
8478: --
8479: x_return_status := fnd_api.g_ret_sts_success;
8489: fnd_msg_pub.ADD;
8490: RAISE fnd_api.g_exc_error;
8491: p_upd_var_rent_rec_type.invg_days_after := NULL;
8492: --
8493: pn_varen_util.pvt_debug ('PN_VAREN_PVT: Upd_Validate_Rent_Dates: Invoicing Frequecy Due day error '
8494: , 3
8495: );
8496: pn_varen_util.pvt_debug ( 'Invoicing day of month is not between 1 and 28 : '
8497: || p_upd_var_rent_rec_type.invg_day_of_month
8544: fnd_message.set_token('ERR_MSG', 'Rent Dates DFF validation failed');
8545: fnd_msg_pub.ADD;
8546: RAISE fnd_api.g_exc_error;
8547: pn_varen_util.pvt_debug
8548: ( 'PN_VAREN_PVT: pn_varen_util.validate_flex_fields dates dff validation failed', 3);
8549: END IF;
8550:
8551: END IF;
8552: */
8612: EXCEPTION
8613: WHEN OTHERS
8614: THEN
8615: pn_varen_util.pvt_debug
8616: ( 'PN_VAREN_PVT: Upd_Validate_Rent_Dates: Exception Result of Update Validate Rent dates PACKAGE'
8617: || SQLERRM
8618: , 3
8619: );
8620: x_return_status := fnd_api.g_ret_sts_error;
8635: -- 20-SEP-2010 vkatta o Created
8636: --------------------------------------------------------------------------------
8637: PROCEDURE call_varen_insert_row (
8638: p_var_rent_id IN OUT NOCOPY NUMBER
8639: , p_var_rent_rec IN OUT NOCOPY pn_varen_pvt.var_rent_rec_type
8640: , x_return_status OUT NOCOPY VARCHAR2
8641: )
8642: IS
8643: l_accrual VARCHAR2 (1) DEFAULT 'Y';
8644: l_uom_code VARCHAR2 (3) DEFAULT 'SFT';
8645: BEGIN
8646: x_return_status := fnd_api.g_ret_sts_success;
8647: pn_varen_util.pvt_debug
8648: ('PN_VAREN_PVT: Call_Varen_Insert_Row: Calling Variable Rent Insert Procedure pn_var_rents_pkg.insert_row'
8649: , 3
8650: );
8651: -- pn_varen_util.pvt_debug ('PN_VAREN_PVT: Call_Varen_Insert_Row: START OF CALLING PN_VAR_RENTS_PKG.INSERT_ROW PACKAGE');
8652: pn_var_rents_pkg.insert_row (x_rowid => g_rowid
8647: pn_varen_util.pvt_debug
8648: ('PN_VAREN_PVT: Call_Varen_Insert_Row: Calling Variable Rent Insert Procedure pn_var_rents_pkg.insert_row'
8649: , 3
8650: );
8651: -- pn_varen_util.pvt_debug ('PN_VAREN_PVT: Call_Varen_Insert_Row: START OF CALLING PN_VAR_RENTS_PKG.INSERT_ROW PACKAGE');
8652: pn_var_rents_pkg.insert_row (x_rowid => g_rowid
8653: , x_var_rent_id => p_var_rent_id --l_var_rent_id
8654: , x_rent_num => p_var_rent_rec.rent_num
8655: , x_lease_id => p_var_rent_rec.lease_id
8694: , x_chg_cal_var_rent_id => NULL
8695: --p_var_rent_rec.chg_cal_var_rent_id, Initial value
8696: );
8697: pn_varen_util.pvt_debug
8698: ('PN_VAREN_PVT: Call_Varen_Insert_Row: End OF CALLING PN_VAR_RENTS_PKG.INSERT_ROW PACKAGE'
8699: , 3
8700: );
8701: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Call_Varen_Insert_Row: p_var_rent_id : '
8702: || p_var_rent_id
8697: pn_varen_util.pvt_debug
8698: ('PN_VAREN_PVT: Call_Varen_Insert_Row: End OF CALLING PN_VAR_RENTS_PKG.INSERT_ROW PACKAGE'
8699: , 3
8700: );
8701: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Call_Varen_Insert_Row: p_var_rent_id : '
8702: || p_var_rent_id
8703: , 3
8704: );
8705: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Call_Varen_Insert_Row: Before - Value of p_var_rent_id is '
8701: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Call_Varen_Insert_Row: p_var_rent_id : '
8702: || p_var_rent_id
8703: , 3
8704: );
8705: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Call_Varen_Insert_Row: Before - Value of p_var_rent_id is '
8706: || p_var_rent_id
8707: , 3
8708: );
8709: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Call_Varen_Insert_Row: Before - Value of g_var_rent_id is '
8705: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Call_Varen_Insert_Row: Before - Value of p_var_rent_id is '
8706: || p_var_rent_id
8707: , 3
8708: );
8709: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Call_Varen_Insert_Row: Before - Value of g_var_rent_id is '
8710: || g_var_rent_id
8711: , 3
8712: );
8713: g_var_rent_id := p_var_rent_id;
8710: || g_var_rent_id
8711: , 3
8712: );
8713: g_var_rent_id := p_var_rent_id;
8714: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Call_Varen_Insert_Row: g_var_rent_id : '
8715: || g_var_rent_id
8716: , 3
8717: );
8718: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Call_Varen_Insert_Row: After - Value of p_var_rent_id is '
8714: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Call_Varen_Insert_Row: g_var_rent_id : '
8715: || g_var_rent_id
8716: , 3
8717: );
8718: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Call_Varen_Insert_Row: After - Value of p_var_rent_id is '
8719: || p_var_rent_id
8720: , 3
8721: );
8722: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Call_Varen_Insert_Row: After - Value of g_var_rent_id is '
8718: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Call_Varen_Insert_Row: After - Value of p_var_rent_id is '
8719: || p_var_rent_id
8720: , 3
8721: );
8722: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Call_Varen_Insert_Row: After - Value of g_var_rent_id is '
8723: || g_var_rent_id
8724: , 3
8725: );
8726: EXCEPTION
8726: EXCEPTION
8727: WHEN OTHERS
8728: THEN
8729: pn_varen_util.pvt_debug
8730: ( 'PN_VAREN_PVT: Call_Varen_Insert_Row: Exception Result of PN_VAR_RENTS_PKG.INSERT_ROW PACKAGE'
8731: || SQLERRM
8732: , 3
8733: );
8734: x_return_status := fnd_api.g_ret_sts_error;
8748: -- 11-OCT-2010 vkatta o Created
8749: --------------------------------------------------------------------------------
8750: PROCEDURE update_varent (
8751: --p_var_rent_id IN OUT NOCOPY NUMBER
8752: p_upd_var_rent_rec_type IN OUT NOCOPY pn_varen_pvt.upd_var_rent_rec_type
8753: , x_return_status OUT NOCOPY VARCHAR2
8754: )
8755: IS
8756: l_accrual VARCHAR2 (1) DEFAULT 'Y';
8756: l_accrual VARCHAR2 (1) DEFAULT 'Y';
8757: l_uom_code VARCHAR2 (3) DEFAULT 'SFT';
8758: l_null VARCHAR2 (1) DEFAULT NULL;
8759: BEGIN
8760: pn_varen_util.pvt_debug ('PN_VAREN_PVT: Update_Varent: Start of Calling PN_VAR_RENTS_PKG.UPDATE_ROW PACKAGE'
8761: , 3
8762: );
8763: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Varent: p_upd_var_rent_rec_type.VAR_RENT_ID :'
8764: || p_upd_var_rent_rec_type.var_rent_id
8759: BEGIN
8760: pn_varen_util.pvt_debug ('PN_VAREN_PVT: Update_Varent: Start of Calling PN_VAR_RENTS_PKG.UPDATE_ROW PACKAGE'
8761: , 3
8762: );
8763: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Varent: p_upd_var_rent_rec_type.VAR_RENT_ID :'
8764: || p_upd_var_rent_rec_type.var_rent_id
8765: , 3
8766: );
8767: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Varent: p_upd_var_rent_rec_type.RENT_NUM :'
8763: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Varent: p_upd_var_rent_rec_type.VAR_RENT_ID :'
8764: || p_upd_var_rent_rec_type.var_rent_id
8765: , 3
8766: );
8767: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Varent: p_upd_var_rent_rec_type.RENT_NUM :'
8768: || p_upd_var_rent_rec_type.rent_num
8769: , 3
8770: );
8771: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Varent: p_upd_var_rent_rec_type.LEASE_ID :'
8767: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Varent: p_upd_var_rent_rec_type.RENT_NUM :'
8768: || p_upd_var_rent_rec_type.rent_num
8769: , 3
8770: );
8771: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Varent: p_upd_var_rent_rec_type.LEASE_ID :'
8772: || p_upd_var_rent_rec_type.lease_id
8773: , 3
8774: );
8775: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Varent: p_upd_var_rent_rec_type.LOCATION_ID :'
8771: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Varent: p_upd_var_rent_rec_type.LEASE_ID :'
8772: || p_upd_var_rent_rec_type.lease_id
8773: , 3
8774: );
8775: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Varent: p_upd_var_rent_rec_type.LOCATION_ID :'
8776: || p_upd_var_rent_rec_type.location_id
8777: , 3
8778: );
8779: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Varent: p_upd_var_rent_rec_type.PRORATION_DAYS :'
8775: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Varent: p_upd_var_rent_rec_type.LOCATION_ID :'
8776: || p_upd_var_rent_rec_type.location_id
8777: , 3
8778: );
8779: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Varent: p_upd_var_rent_rec_type.PRORATION_DAYS :'
8780: || p_upd_var_rent_rec_type.proration_days
8781: , 3
8782: );
8783: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Varent: p_upd_var_rent_rec_type.PURPOSE_CODE :'
8779: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Varent: p_upd_var_rent_rec_type.PRORATION_DAYS :'
8780: || p_upd_var_rent_rec_type.proration_days
8781: , 3
8782: );
8783: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Varent: p_upd_var_rent_rec_type.PURPOSE_CODE :'
8784: || p_upd_var_rent_rec_type.purpose_code
8785: , 3
8786: );
8787: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Varent: p_upd_var_rent_rec_type.TYPE_CODE :'
8783: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Varent: p_upd_var_rent_rec_type.PURPOSE_CODE :'
8784: || p_upd_var_rent_rec_type.purpose_code
8785: , 3
8786: );
8787: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Varent: p_upd_var_rent_rec_type.TYPE_CODE :'
8788: || p_upd_var_rent_rec_type.type_code
8789: , 3
8790: );
8791: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Varent: p_upd_var_rent_rec_type.COMMENCEMENT_DATE :'
8787: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Varent: p_upd_var_rent_rec_type.TYPE_CODE :'
8788: || p_upd_var_rent_rec_type.type_code
8789: , 3
8790: );
8791: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Varent: p_upd_var_rent_rec_type.COMMENCEMENT_DATE :'
8792: || p_upd_var_rent_rec_type.commencement_date
8793: , 3
8794: );
8795: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Varent: p_upd_var_rent_rec_type.TERMINATION_DATE :'
8791: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Varent: p_upd_var_rent_rec_type.COMMENCEMENT_DATE :'
8792: || p_upd_var_rent_rec_type.commencement_date
8793: , 3
8794: );
8795: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Varent: p_upd_var_rent_rec_type.TERMINATION_DATE :'
8796: || p_upd_var_rent_rec_type.termination_date
8797: , 3
8798: );
8799: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Varent: p_upd_var_rent_rec_type.ABSTRACTED_BY_USER_ID :'
8795: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Varent: p_upd_var_rent_rec_type.TERMINATION_DATE :'
8796: || p_upd_var_rent_rec_type.termination_date
8797: , 3
8798: );
8799: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Varent: p_upd_var_rent_rec_type.ABSTRACTED_BY_USER_ID :'
8800: || p_upd_var_rent_rec_type.abstracted_by_user_id
8801: , 3
8802: );
8803: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Varent: p_upd_var_rent_rec_type.CUMULATIVE_VOL_CODE :'
8799: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Varent: p_upd_var_rent_rec_type.ABSTRACTED_BY_USER_ID :'
8800: || p_upd_var_rent_rec_type.abstracted_by_user_id
8801: , 3
8802: );
8803: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Varent: p_upd_var_rent_rec_type.CUMULATIVE_VOL_CODE :'
8804: || p_upd_var_rent_rec_type.cumulative_vol_code
8805: , 3
8806: );
8807: --pn_varen_util.pvt_debug ('PN_VAREN_PVT: Update_Varent: p_upd_var_rent_rec_type.ACCRUAL_CODE :'||p_upd_var_rent_rec_type.ACCRUAL_CODE , 3 );
8803: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Varent: p_upd_var_rent_rec_type.CUMULATIVE_VOL_CODE :'
8804: || p_upd_var_rent_rec_type.cumulative_vol_code
8805: , 3
8806: );
8807: --pn_varen_util.pvt_debug ('PN_VAREN_PVT: Update_Varent: p_upd_var_rent_rec_type.ACCRUAL_CODE :'||p_upd_var_rent_rec_type.ACCRUAL_CODE , 3 );
8808: --pn_varen_util.pvt_debug ('PN_VAREN_PVT: Update_Varent: p_upd_var_rent_rec_type.UOM_CODE :'||p_upd_var_rent_rec_type.UOM_CODE , 3 );
8809: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Varent: p_upd_var_rent_rec_type.INVOICE_ON_CODE :'
8810: || p_upd_var_rent_rec_type.invoice_on_code
8811: , 3
8804: || p_upd_var_rent_rec_type.cumulative_vol_code
8805: , 3
8806: );
8807: --pn_varen_util.pvt_debug ('PN_VAREN_PVT: Update_Varent: p_upd_var_rent_rec_type.ACCRUAL_CODE :'||p_upd_var_rent_rec_type.ACCRUAL_CODE , 3 );
8808: --pn_varen_util.pvt_debug ('PN_VAREN_PVT: Update_Varent: p_upd_var_rent_rec_type.UOM_CODE :'||p_upd_var_rent_rec_type.UOM_CODE , 3 );
8809: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Varent: p_upd_var_rent_rec_type.INVOICE_ON_CODE :'
8810: || p_upd_var_rent_rec_type.invoice_on_code
8811: , 3
8812: );
8805: , 3
8806: );
8807: --pn_varen_util.pvt_debug ('PN_VAREN_PVT: Update_Varent: p_upd_var_rent_rec_type.ACCRUAL_CODE :'||p_upd_var_rent_rec_type.ACCRUAL_CODE , 3 );
8808: --pn_varen_util.pvt_debug ('PN_VAREN_PVT: Update_Varent: p_upd_var_rent_rec_type.UOM_CODE :'||p_upd_var_rent_rec_type.UOM_CODE , 3 );
8809: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Varent: p_upd_var_rent_rec_type.INVOICE_ON_CODE :'
8810: || p_upd_var_rent_rec_type.invoice_on_code
8811: , 3
8812: );
8813: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Varent: p_upd_var_rent_rec_type.NEGATIVE_RENT_CODE :'
8809: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Varent: p_upd_var_rent_rec_type.INVOICE_ON_CODE :'
8810: || p_upd_var_rent_rec_type.invoice_on_code
8811: , 3
8812: );
8813: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Varent: p_upd_var_rent_rec_type.NEGATIVE_RENT_CODE :'
8814: || p_upd_var_rent_rec_type.negative_rent_code
8815: , 3
8816: );
8817: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Varent: p_upd_var_rent_rec_type.TERM_TEMPLATE_ID :'
8813: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Varent: p_upd_var_rent_rec_type.NEGATIVE_RENT_CODE :'
8814: || p_upd_var_rent_rec_type.negative_rent_code
8815: , 3
8816: );
8817: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Varent: p_upd_var_rent_rec_type.TERM_TEMPLATE_ID :'
8818: || p_upd_var_rent_rec_type.term_template_id
8819: , 3
8820: );
8821: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Varent: p_upd_var_rent_rec_type.CURRENCY_CODE :'
8817: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Varent: p_upd_var_rent_rec_type.TERM_TEMPLATE_ID :'
8818: || p_upd_var_rent_rec_type.term_template_id
8819: , 3
8820: );
8821: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Varent: p_upd_var_rent_rec_type.CURRENCY_CODE :'
8822: || p_upd_var_rent_rec_type.currency_code
8823: , 3
8824: );
8825: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Varent: p_upd_var_rent_rec_type.AGREEMENT_TEMPLATE_ID :'
8821: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Varent: p_upd_var_rent_rec_type.CURRENCY_CODE :'
8822: || p_upd_var_rent_rec_type.currency_code
8823: , 3
8824: );
8825: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Varent: p_upd_var_rent_rec_type.AGREEMENT_TEMPLATE_ID :'
8826: || p_upd_var_rent_rec_type.agreement_template_id
8827: , 3
8828: );
8829: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Varent: p_upd_var_rent_rec_type.PRORATION_RULE_CODE :'
8825: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Varent: p_upd_var_rent_rec_type.AGREEMENT_TEMPLATE_ID :'
8826: || p_upd_var_rent_rec_type.agreement_template_id
8827: , 3
8828: );
8829: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Varent: p_upd_var_rent_rec_type.PRORATION_RULE_CODE :'
8830: || p_upd_var_rent_rec_type.proration_rule_code
8831: , 3
8832: );
8833: --pn_varen_util.pvt_debug ('PN_VAREN_PVT: Update_Varent: p_upd_var_rent_rec_type.CHG_CAL_VAR_RENT_ID :'||p_upd_var_rent_rec_type.CHG_CAL_VAR_RENT_ID , 3 );
8829: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Varent: p_upd_var_rent_rec_type.PRORATION_RULE_CODE :'
8830: || p_upd_var_rent_rec_type.proration_rule_code
8831: , 3
8832: );
8833: --pn_varen_util.pvt_debug ('PN_VAREN_PVT: Update_Varent: p_upd_var_rent_rec_type.CHG_CAL_VAR_RENT_ID :'||p_upd_var_rent_rec_type.CHG_CAL_VAR_RENT_ID , 3 );
8834: pn_varen_util.pvt_debug ('PN_VAREN_PVT: Update_Varent: End of Calling PN_VAR_RENTS_PKG.UPDATE_ROW PACKAGE'
8835: , 3
8836: );
8837: pn_var_rents_pkg.update_row (x_var_rent_id => p_upd_var_rent_rec_type.var_rent_id
8830: || p_upd_var_rent_rec_type.proration_rule_code
8831: , 3
8832: );
8833: --pn_varen_util.pvt_debug ('PN_VAREN_PVT: Update_Varent: p_upd_var_rent_rec_type.CHG_CAL_VAR_RENT_ID :'||p_upd_var_rent_rec_type.CHG_CAL_VAR_RENT_ID , 3 );
8834: pn_varen_util.pvt_debug ('PN_VAREN_PVT: Update_Varent: End of Calling PN_VAR_RENTS_PKG.UPDATE_ROW PACKAGE'
8835: , 3
8836: );
8837: pn_var_rents_pkg.update_row (x_var_rent_id => p_upd_var_rent_rec_type.var_rent_id
8838: , x_rent_num => p_upd_var_rent_rec_type.rent_num
8879: , x_proration_rule => p_upd_var_rent_rec_type.proration_rule_code
8880: , x_chg_cal_var_rent_id => l_null
8881: --p_upd_var_rent_rec_type.CHG_CAL_VAR_RENT_ID
8882: );
8883: pn_varen_util.pvt_debug ('PN_VAREN_PVT: Update_Varent: End OF CALLING PN_VAR_RENTS_PKG.UPDATE_ROW PACKAGE'
8884: , 3
8885: );
8886: EXCEPTION
8887: WHEN OTHERS
8886: EXCEPTION
8887: WHEN OTHERS
8888: THEN
8889: pn_varen_util.pvt_debug
8890: ( 'PN_VAREN_PVT: Update_Varent: Exception Result of PN_VAR_RENTS_PKG.UPDATE_ROW PACKAGE'
8891: || SQLERRM
8892: , 3
8893: );
8894: END update_varent;
8907: -- 20-SEP-2010 vkatta o Created
8908: --------------------------------------------------------------------------------
8909: PROCEDURE call_varen_dates_insert_row (
8910: p_var_rent_id IN NUMBER
8911: , p_var_rent_rec IN OUT NOCOPY pn_varen_pvt.var_rent_rec_type
8912: , x_return_status OUT NOCOPY VARCHAR2
8913: )
8914: IS
8915: l_period_freq_code VARCHAR2 (2) DEFAULT 'YR';
8922: BEGIN
8923: l_var_rent_date_id := NULL;
8924: x_return_status := fnd_api.g_ret_sts_success;
8925: pn_varen_util.pvt_debug
8926: ('PN_VAREN_PVT: call_varen_dates_insert_row: Calling PN_VAR_RENT_DATES_PKG.INSERT_ROW Package'
8927: , 3
8928: );
8929: pn_varen_util.pvt_debug
8930: ('PN_VAREN_PVT: call_varen_dates_insert_row: START OF CALLING PN_VAR_RENT_DATES_PKG.INSERT_ROW PACKAGE'
8926: ('PN_VAREN_PVT: call_varen_dates_insert_row: Calling PN_VAR_RENT_DATES_PKG.INSERT_ROW Package'
8927: , 3
8928: );
8929: pn_varen_util.pvt_debug
8930: ('PN_VAREN_PVT: call_varen_dates_insert_row: START OF CALLING PN_VAR_RENT_DATES_PKG.INSERT_ROW PACKAGE'
8931: , 3
8932: );
8933: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: call_varen_dates_insert_row: Var Rent Date ID: '
8934: || l_var_rent_date_id
8929: pn_varen_util.pvt_debug
8930: ('PN_VAREN_PVT: call_varen_dates_insert_row: START OF CALLING PN_VAR_RENT_DATES_PKG.INSERT_ROW PACKAGE'
8931: , 3
8932: );
8933: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: call_varen_dates_insert_row: Var Rent Date ID: '
8934: || l_var_rent_date_id
8935: , 3
8936: );
8937: pn_var_rent_dates_pkg.insert_row (x_rowid => g_rowid
8996: , x_vrg_reptg_freq_code => p_var_rent_rec.vrg_reptg_freq_code
8997: );
8998: -- END IF;
8999: pn_varen_util.pvt_debug
9000: ('PN_VAREN_PVT: call_varen_dates_insert_row: End OF CALLING PN_VAR_RENT_DATES_PKG.INSERT_ROW PACKAGE'||l_var_rent_date_id
9001: , 3
9002: );
9003: x_return_status := fnd_api.g_ret_sts_success;
9004: EXCEPTION
9004: EXCEPTION
9005: WHEN OTHERS
9006: THEN
9007: pn_varen_util.pvt_debug
9008: ('PN_VAREN_PVT: call_varen_dates_insert_row: Exception Result of PN_VAR_RENT_DATES_PKG.INSERT_ROW PACKAGE'
9009: , 3
9010: );
9011: x_return_status := fnd_api.g_ret_sts_error;
9012: END call_varen_dates_insert_row;
9025: --------------------------------------------------------------------------------
9026: PROCEDURE update_varen_dates (
9027: --p_var_rent_id IN NUMBER
9028: --,
9029: p_upd_var_rent_rec_type IN OUT NOCOPY pn_varen_pvt.upd_var_rent_rec_type
9030: , x_return_status OUT NOCOPY VARCHAR2
9031: )
9032: IS
9033: l_period_freq_code VARCHAR2 (2) DEFAULT 'YR';
9038: BEGIN
9039:
9040: x_return_status := fnd_api.g_ret_sts_success;
9041: pn_varen_util.pvt_debug
9042: ('PN_VAREN_PVT: Call_Varen_Insert_Row: Start of calling PN_VAR_RENT_DATES_PKG.UPDATE_ROW PACKAGE'
9043: , 3
9044: );
9045: pn_varen_util.pvt_debug
9046: ('PN_VAREN_PVT: Call_Varen_Insert_Row: Start of Input parameters PN_VAR_RENT_DATES_PKG.UPDATE_ROW PACKAGE'
9042: ('PN_VAREN_PVT: Call_Varen_Insert_Row: Start of calling PN_VAR_RENT_DATES_PKG.UPDATE_ROW PACKAGE'
9043: , 3
9044: );
9045: pn_varen_util.pvt_debug
9046: ('PN_VAREN_PVT: Call_Varen_Insert_Row: Start of Input parameters PN_VAR_RENT_DATES_PKG.UPDATE_ROW PACKAGE'
9047: , 3
9048: );
9049: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Varen_Dates : p_upd_var_rent_rec_type.VAR_RENT_DATE_ID :'
9050: || p_upd_var_rent_rec_type.var_rent_date_id
9045: pn_varen_util.pvt_debug
9046: ('PN_VAREN_PVT: Call_Varen_Insert_Row: Start of Input parameters PN_VAR_RENT_DATES_PKG.UPDATE_ROW PACKAGE'
9047: , 3
9048: );
9049: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Varen_Dates : p_upd_var_rent_rec_type.VAR_RENT_DATE_ID :'
9050: || p_upd_var_rent_rec_type.var_rent_date_id
9051: , 3
9052: );
9053: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Varen_Dates : p_upd_var_rent_rec_type.VAR_RENT_ID :'
9049: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Varen_Dates : p_upd_var_rent_rec_type.VAR_RENT_DATE_ID :'
9050: || p_upd_var_rent_rec_type.var_rent_date_id
9051: , 3
9052: );
9053: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Varen_Dates : p_upd_var_rent_rec_type.VAR_RENT_ID :'
9054: || p_upd_var_rent_rec_type.var_rent_id
9055: , 3
9056: );
9057: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Varen_Dates : p_upd_var_rent_rec_type.GL_PERIOD_SET_NAME :'
9053: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Varen_Dates : p_upd_var_rent_rec_type.VAR_RENT_ID :'
9054: || p_upd_var_rent_rec_type.var_rent_id
9055: , 3
9056: );
9057: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Varen_Dates : p_upd_var_rent_rec_type.GL_PERIOD_SET_NAME :'
9058: || p_upd_var_rent_rec_type.gl_period_set_name
9059: , 3
9060: );
9061: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Varen_Dates : p_upd_var_rent_rec_type.REPTG_FREQ_CODE :'
9057: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Varen_Dates : p_upd_var_rent_rec_type.GL_PERIOD_SET_NAME :'
9058: || p_upd_var_rent_rec_type.gl_period_set_name
9059: , 3
9060: );
9061: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Varen_Dates : p_upd_var_rent_rec_type.REPTG_FREQ_CODE :'
9062: || p_upd_var_rent_rec_type.reptg_freq_code
9063: , 3
9064: );
9065: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Varen_Dates : p_upd_var_rent_rec_type.REPTG_DAY_OF_MONTH :'
9061: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Varen_Dates : p_upd_var_rent_rec_type.REPTG_FREQ_CODE :'
9062: || p_upd_var_rent_rec_type.reptg_freq_code
9063: , 3
9064: );
9065: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Varen_Dates : p_upd_var_rent_rec_type.REPTG_DAY_OF_MONTH :'
9066: || p_upd_var_rent_rec_type.reptg_day_of_month
9067: , 3
9068: );
9069: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Varen_Dates : p_upd_var_rent_rec_type.REPTG_DAYS_AFTER :'
9065: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Varen_Dates : p_upd_var_rent_rec_type.REPTG_DAY_OF_MONTH :'
9066: || p_upd_var_rent_rec_type.reptg_day_of_month
9067: , 3
9068: );
9069: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Varen_Dates : p_upd_var_rent_rec_type.REPTG_DAYS_AFTER :'
9070: || p_upd_var_rent_rec_type.reptg_days_after
9071: , 3
9072: );
9073: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Varen_Dates : p_upd_var_rent_rec_type.INVG_FREQ_CODE :'
9069: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Varen_Dates : p_upd_var_rent_rec_type.REPTG_DAYS_AFTER :'
9070: || p_upd_var_rent_rec_type.reptg_days_after
9071: , 3
9072: );
9073: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Varen_Dates : p_upd_var_rent_rec_type.INVG_FREQ_CODE :'
9074: || p_upd_var_rent_rec_type.invg_freq_code
9075: , 3
9076: );
9077: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Varen_Dates : p_upd_var_rent_rec_type.INVG_DAY_OF_MONTH :'
9073: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Varen_Dates : p_upd_var_rent_rec_type.INVG_FREQ_CODE :'
9074: || p_upd_var_rent_rec_type.invg_freq_code
9075: , 3
9076: );
9077: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Varen_Dates : p_upd_var_rent_rec_type.INVG_DAY_OF_MONTH :'
9078: || p_upd_var_rent_rec_type.invg_day_of_month
9079: , 3
9080: );
9081: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Varen_Dates : p_upd_var_rent_rec_type.INVG_DAYS_AFTER :'
9077: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Varen_Dates : p_upd_var_rent_rec_type.INVG_DAY_OF_MONTH :'
9078: || p_upd_var_rent_rec_type.invg_day_of_month
9079: , 3
9080: );
9081: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Varen_Dates : p_upd_var_rent_rec_type.INVG_DAYS_AFTER :'
9082: || p_upd_var_rent_rec_type.invg_days_after
9083: , 3
9084: );
9085: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Varen_Dates : p_upd_var_rent_rec_type.AUDIT_DAY_OF_MONTH :'
9081: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Varen_Dates : p_upd_var_rent_rec_type.INVG_DAYS_AFTER :'
9082: || p_upd_var_rent_rec_type.invg_days_after
9083: , 3
9084: );
9085: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Varen_Dates : p_upd_var_rent_rec_type.AUDIT_DAY_OF_MONTH :'
9086: || p_upd_var_rent_rec_type.audit_day_of_month
9087: , 3
9088: );
9089: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Varen_Dates : p_upd_var_rent_rec_type.AUDIT_DAYS_AFTER :'
9085: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Varen_Dates : p_upd_var_rent_rec_type.AUDIT_DAY_OF_MONTH :'
9086: || p_upd_var_rent_rec_type.audit_day_of_month
9087: , 3
9088: );
9089: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Varen_Dates : p_upd_var_rent_rec_type.AUDIT_DAYS_AFTER :'
9090: || p_upd_var_rent_rec_type.audit_days_after
9091: , 3
9092: );
9093: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Varen_Dates : p_upd_var_rent_rec_type.RECON_DAY_OF_MONTH :'
9089: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Varen_Dates : p_upd_var_rent_rec_type.AUDIT_DAYS_AFTER :'
9090: || p_upd_var_rent_rec_type.audit_days_after
9091: , 3
9092: );
9093: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Varen_Dates : p_upd_var_rent_rec_type.RECON_DAY_OF_MONTH :'
9094: || p_upd_var_rent_rec_type.recon_day_of_month
9095: , 3
9096: );
9097: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Varen_Dates : p_upd_var_rent_rec_type.RECON_DAYS_AFTER :'
9093: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Varen_Dates : p_upd_var_rent_rec_type.RECON_DAY_OF_MONTH :'
9094: || p_upd_var_rent_rec_type.recon_day_of_month
9095: , 3
9096: );
9097: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Varen_Dates : p_upd_var_rent_rec_type.RECON_DAYS_AFTER :'
9098: || p_upd_var_rent_rec_type.recon_days_after
9099: , 3
9100: );
9101: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Varen_Dates : p_upd_var_rent_rec_type.ATTRIBUTE_CATEGORY :'
9097: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Varen_Dates : p_upd_var_rent_rec_type.RECON_DAYS_AFTER :'
9098: || p_upd_var_rent_rec_type.recon_days_after
9099: , 3
9100: );
9101: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Varen_Dates : p_upd_var_rent_rec_type.ATTRIBUTE_CATEGORY :'
9102: || p_upd_var_rent_rec_type.attribute_category
9103: , 3
9104: );
9105: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Varen_Dates : p_upd_var_rent_rec_type.USE_GL_CALENDAR :'
9101: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Varen_Dates : p_upd_var_rent_rec_type.ATTRIBUTE_CATEGORY :'
9102: || p_upd_var_rent_rec_type.attribute_category
9103: , 3
9104: );
9105: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Varen_Dates : p_upd_var_rent_rec_type.USE_GL_CALENDAR :'
9106: || p_upd_var_rent_rec_type.use_gl_calendar
9107: , 3
9108: );
9109: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Varen_Dates : p_upd_var_rent_rec_type.PERIOD_TYPE :'
9105: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Varen_Dates : p_upd_var_rent_rec_type.USE_GL_CALENDAR :'
9106: || p_upd_var_rent_rec_type.use_gl_calendar
9107: , 3
9108: );
9109: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Varen_Dates : p_upd_var_rent_rec_type.PERIOD_TYPE :'
9110: || p_upd_var_rent_rec_type.period_type
9111: , 3
9112: );
9113: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Varen_Dates : p_upd_var_rent_rec_type.YEAR_START_DATE :'
9109: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Varen_Dates : p_upd_var_rent_rec_type.PERIOD_TYPE :'
9110: || p_upd_var_rent_rec_type.period_type
9111: , 3
9112: );
9113: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Varen_Dates : p_upd_var_rent_rec_type.YEAR_START_DATE :'
9114: || p_upd_var_rent_rec_type.year_start_date
9115: , 3
9116: );
9117: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Varen_Dates : p_upd_var_rent_rec_type.COMMENTS :'
9113: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Varen_Dates : p_upd_var_rent_rec_type.YEAR_START_DATE :'
9114: || p_upd_var_rent_rec_type.year_start_date
9115: , 3
9116: );
9117: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Varen_Dates : p_upd_var_rent_rec_type.COMMENTS :'
9118: || p_upd_var_rent_rec_type.comments
9119: , 3
9120: );
9121: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Varen_Dates : p_upd_var_rent_rec_type.VRG_REPTG_FREQ_CODE :'
9117: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Varen_Dates : p_upd_var_rent_rec_type.COMMENTS :'
9118: || p_upd_var_rent_rec_type.comments
9119: , 3
9120: );
9121: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Varen_Dates : p_upd_var_rent_rec_type.VRG_REPTG_FREQ_CODE :'
9122: || p_upd_var_rent_rec_type.vrg_reptg_freq_code
9123: , 3
9124: );
9125: pn_varen_util.pvt_debug
9122: || p_upd_var_rent_rec_type.vrg_reptg_freq_code
9123: , 3
9124: );
9125: pn_varen_util.pvt_debug
9126: ('PN_VAREN_PVT: Call_Varen_Insert_Row: End of Input parameters PN_VAR_RENT_DATES_PKG.UPDATE_ROW PACKAGE'
9127: , 3
9128: );
9129: pn_var_rent_dates_pkg.update_row (x_var_rent_date_id => p_upd_var_rent_rec_type.var_rent_date_id
9130: , x_var_rent_id => p_upd_var_rent_rec_type.var_rent_id
9180: EXCEPTION
9181: WHEN OTHERS
9182: THEN
9183: pn_varen_util.pvt_debug
9184: ('PN_VAREN_PVT: Update_Varen_Dates: Exception Result of PN_VAR_RENT_DATES_PKG.UPDATE_ROW PACKAGE'
9185: , 3
9186: );
9187: x_return_status := fnd_api.g_ret_sts_error;
9188: END update_varen_dates;
9221: p_api_version IN NUMBER
9222: , p_init_msg_list IN VARCHAR2 DEFAULT fnd_api.g_false
9223: , p_commit IN VARCHAR2 DEFAULT fnd_api.g_false
9224: , p_validate_flag IN VARCHAR2 DEFAULT 'N'
9225: , p_var_rent_rec IN OUT NOCOPY pn_varen_pvt.var_rent_rec_type
9226: , p_variable_rent_lines_tbl IN OUT NOCOPY pn_varen_pvt.variable_rent_lines_tbl_type
9227: , p_breakpoint_header_tbl IN OUT NOCOPY pn_varen_pvt.breakpoint_header_tbl_type
9228: , p_breakpoint_details_tbl IN OUT NOCOPY pn_varen_pvt.breakpoint_details_tbl_type
9229: , p_constraints_tbl IN OUT NOCOPY pn_varen_pvt.constraints_tbl_type
9222: , p_init_msg_list IN VARCHAR2 DEFAULT fnd_api.g_false
9223: , p_commit IN VARCHAR2 DEFAULT fnd_api.g_false
9224: , p_validate_flag IN VARCHAR2 DEFAULT 'N'
9225: , p_var_rent_rec IN OUT NOCOPY pn_varen_pvt.var_rent_rec_type
9226: , p_variable_rent_lines_tbl IN OUT NOCOPY pn_varen_pvt.variable_rent_lines_tbl_type
9227: , p_breakpoint_header_tbl IN OUT NOCOPY pn_varen_pvt.breakpoint_header_tbl_type
9228: , p_breakpoint_details_tbl IN OUT NOCOPY pn_varen_pvt.breakpoint_details_tbl_type
9229: , p_constraints_tbl IN OUT NOCOPY pn_varen_pvt.constraints_tbl_type
9230: , p_allow_abat_tbl IN OUT NOCOPY pn_varen_pvt.allow_abat_tbl_type
9223: , p_commit IN VARCHAR2 DEFAULT fnd_api.g_false
9224: , p_validate_flag IN VARCHAR2 DEFAULT 'N'
9225: , p_var_rent_rec IN OUT NOCOPY pn_varen_pvt.var_rent_rec_type
9226: , p_variable_rent_lines_tbl IN OUT NOCOPY pn_varen_pvt.variable_rent_lines_tbl_type
9227: , p_breakpoint_header_tbl IN OUT NOCOPY pn_varen_pvt.breakpoint_header_tbl_type
9228: , p_breakpoint_details_tbl IN OUT NOCOPY pn_varen_pvt.breakpoint_details_tbl_type
9229: , p_constraints_tbl IN OUT NOCOPY pn_varen_pvt.constraints_tbl_type
9230: , p_allow_abat_tbl IN OUT NOCOPY pn_varen_pvt.allow_abat_tbl_type
9231: , p_generate_periods IN VARCHAR2 DEFAULT 'N'
9224: , p_validate_flag IN VARCHAR2 DEFAULT 'N'
9225: , p_var_rent_rec IN OUT NOCOPY pn_varen_pvt.var_rent_rec_type
9226: , p_variable_rent_lines_tbl IN OUT NOCOPY pn_varen_pvt.variable_rent_lines_tbl_type
9227: , p_breakpoint_header_tbl IN OUT NOCOPY pn_varen_pvt.breakpoint_header_tbl_type
9228: , p_breakpoint_details_tbl IN OUT NOCOPY pn_varen_pvt.breakpoint_details_tbl_type
9229: , p_constraints_tbl IN OUT NOCOPY pn_varen_pvt.constraints_tbl_type
9230: , p_allow_abat_tbl IN OUT NOCOPY pn_varen_pvt.allow_abat_tbl_type
9231: , p_generate_periods IN VARCHAR2 DEFAULT 'N'
9232: , p_generate_breakpoints IN VARCHAR2 DEFAULT 'N'
9225: , p_var_rent_rec IN OUT NOCOPY pn_varen_pvt.var_rent_rec_type
9226: , p_variable_rent_lines_tbl IN OUT NOCOPY pn_varen_pvt.variable_rent_lines_tbl_type
9227: , p_breakpoint_header_tbl IN OUT NOCOPY pn_varen_pvt.breakpoint_header_tbl_type
9228: , p_breakpoint_details_tbl IN OUT NOCOPY pn_varen_pvt.breakpoint_details_tbl_type
9229: , p_constraints_tbl IN OUT NOCOPY pn_varen_pvt.constraints_tbl_type
9230: , p_allow_abat_tbl IN OUT NOCOPY pn_varen_pvt.allow_abat_tbl_type
9231: , p_generate_periods IN VARCHAR2 DEFAULT 'N'
9232: , p_generate_breakpoints IN VARCHAR2 DEFAULT 'N'
9233: , p_generate_constraints IN VARCHAR2 DEFAULT 'N'
9226: , p_variable_rent_lines_tbl IN OUT NOCOPY pn_varen_pvt.variable_rent_lines_tbl_type
9227: , p_breakpoint_header_tbl IN OUT NOCOPY pn_varen_pvt.breakpoint_header_tbl_type
9228: , p_breakpoint_details_tbl IN OUT NOCOPY pn_varen_pvt.breakpoint_details_tbl_type
9229: , p_constraints_tbl IN OUT NOCOPY pn_varen_pvt.constraints_tbl_type
9230: , p_allow_abat_tbl IN OUT NOCOPY pn_varen_pvt.allow_abat_tbl_type
9231: , p_generate_periods IN VARCHAR2 DEFAULT 'N'
9232: , p_generate_breakpoints IN VARCHAR2 DEFAULT 'N'
9233: , p_generate_constraints IN VARCHAR2 DEFAULT 'N'
9234: -- ,p_recurring_abatements IN VARCHAR2 DEFAULT 'N'
9238: , x_var_rent_id OUT NOCOPY NUMBER
9239: , x_var_rent_num OUT NOCOPY VARCHAR2
9240: )
9241: IS
9242: l_var_rent_rec pn_varen_pvt.var_rent_rec_type;
9243: --
9244: l_leaseid pn_leases_all.lease_id%TYPE := NULL;
9245: -- VALUE IN PN_VAR_RENTS_ALL.PRORATION_DAYS WOULD BE THE SAME AS THE VALUE IN PN_LEASES_ALL.PAYMENT_TERM_PRORATION_RULE
9246: -- l_var_rent_id pn_var_rents_all.var_rent_id%TYPE;
9299: l_var_rent_err_count NUMBER := 0;
9300:
9301: BEGIN
9302: x_return_status := fnd_api.g_ret_sts_success;
9303: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: pn_varen_util.g_debug :'
9304: || pn_varen_util.g_debug
9305: , 3
9306: );
9307: pn_debug.set_err_stack ('PN_VAREN_PVT: Create_Var_Rent: TESTING');
9303: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: pn_varen_util.g_debug :'
9304: || pn_varen_util.g_debug
9305: , 3
9306: );
9307: pn_debug.set_err_stack ('PN_VAREN_PVT: Create_Var_Rent: TESTING');
9308: fnd_msg_pub.initialize;
9309: pn_varen_util.pvt_debug ('PN_VAREN_PVT: Create_Var_Rent: Start of pn_varen_pvt.CREATE_VAR_RENT'
9310: , 3
9311: );
9305: , 3
9306: );
9307: pn_debug.set_err_stack ('PN_VAREN_PVT: Create_Var_Rent: TESTING');
9308: fnd_msg_pub.initialize;
9309: pn_varen_util.pvt_debug ('PN_VAREN_PVT: Create_Var_Rent: Start of pn_varen_pvt.CREATE_VAR_RENT'
9310: , 3
9311: );
9312: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: g_org_id :'
9313: || g_org_id
9308: fnd_msg_pub.initialize;
9309: pn_varen_util.pvt_debug ('PN_VAREN_PVT: Create_Var_Rent: Start of pn_varen_pvt.CREATE_VAR_RENT'
9310: , 3
9311: );
9312: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: g_org_id :'
9313: || g_org_id
9314: , 3
9315: );
9316: SAVEPOINT create_var_rent;
9331: -- fnd_message.set_name ('MO', 'MO_ORG_INVALID');
9332: -- fnd_msg_pub.ADD;
9333: -- RAISE fnd_api.g_exc_error;
9334: -- END IF;
9335: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: x_return_status Before assigning value to the API: '
9336: || x_return_status
9337: , 3
9338: );
9339: x_return_status := fnd_api.g_ret_sts_success;
9336: || x_return_status
9337: , 3
9338: );
9339: x_return_status := fnd_api.g_ret_sts_success;
9340: pn_varen_util.pvt_debug ('PN_VAREN_PVT: Create_Var_Rent: Input Parameters'
9341: , 3
9342: );
9343: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: p_var_rent_rec.lease_id :'
9344: || p_var_rent_rec.lease_id
9339: x_return_status := fnd_api.g_ret_sts_success;
9340: pn_varen_util.pvt_debug ('PN_VAREN_PVT: Create_Var_Rent: Input Parameters'
9341: , 3
9342: );
9343: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: p_var_rent_rec.lease_id :'
9344: || p_var_rent_rec.lease_id
9345: , 3
9346: );
9347: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: p_var_rent_rec.lease_num : '
9343: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: p_var_rent_rec.lease_id :'
9344: || p_var_rent_rec.lease_id
9345: , 3
9346: );
9347: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: p_var_rent_rec.lease_num : '
9348: || p_var_rent_rec.lease_num
9349: , 3
9350: );
9351: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: p_var_rent_rec.lease_name : '
9347: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: p_var_rent_rec.lease_num : '
9348: || p_var_rent_rec.lease_num
9349: , 3
9350: );
9351: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: p_var_rent_rec.lease_name : '
9352: || p_var_rent_rec.lease_name
9353: , 3
9354: );
9355: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: p_var_rent_rec.rent_num : '
9351: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: p_var_rent_rec.lease_name : '
9352: || p_var_rent_rec.lease_name
9353: , 3
9354: );
9355: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: p_var_rent_rec.rent_num : '
9356: || p_var_rent_rec.rent_num
9357: , 3
9358: );
9359: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: p_var_rent_rec.location_id : '
9355: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: p_var_rent_rec.rent_num : '
9356: || p_var_rent_rec.rent_num
9357: , 3
9358: );
9359: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: p_var_rent_rec.location_id : '
9360: || p_var_rent_rec.location_id
9361: , 3
9362: );
9363: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: p_var_rent_rec.location_code : '
9359: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: p_var_rent_rec.location_id : '
9360: || p_var_rent_rec.location_id
9361: , 3
9362: );
9363: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: p_var_rent_rec.location_code : '
9364: || p_var_rent_rec.location_code
9365: , 3
9366: );
9367: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: p_var_rent_rec.purpose_code : '
9363: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: p_var_rent_rec.location_code : '
9364: || p_var_rent_rec.location_code
9365: , 3
9366: );
9367: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: p_var_rent_rec.purpose_code : '
9368: || p_var_rent_rec.purpose_code
9369: , 3
9370: );
9371: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: p_var_rent_rec.purpose_code_meaning : '
9367: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: p_var_rent_rec.purpose_code : '
9368: || p_var_rent_rec.purpose_code
9369: , 3
9370: );
9371: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: p_var_rent_rec.purpose_code_meaning : '
9372: || p_var_rent_rec.purpose_code_meaning
9373: , 3
9374: );
9375: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: p_var_rent_rec.type_code : '
9371: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: p_var_rent_rec.purpose_code_meaning : '
9372: || p_var_rent_rec.purpose_code_meaning
9373: , 3
9374: );
9375: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: p_var_rent_rec.type_code : '
9376: || p_var_rent_rec.type_code
9377: , 3
9378: );
9379: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: p_var_rent_rec.type_meaning : '
9375: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: p_var_rent_rec.type_code : '
9376: || p_var_rent_rec.type_code
9377: , 3
9378: );
9379: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: p_var_rent_rec.type_meaning : '
9380: || p_var_rent_rec.type_meaning
9381: , 3
9382: );
9383: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: p_var_rent_rec.abstracted_by_user : '
9379: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: p_var_rent_rec.type_meaning : '
9380: || p_var_rent_rec.type_meaning
9381: , 3
9382: );
9383: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: p_var_rent_rec.abstracted_by_user : '
9384: || p_var_rent_rec.abstracted_by_user
9385: , 3
9386: );
9387: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: p_var_rent_rec.cumulative_vol_code : '
9383: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: p_var_rent_rec.abstracted_by_user : '
9384: || p_var_rent_rec.abstracted_by_user
9385: , 3
9386: );
9387: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: p_var_rent_rec.cumulative_vol_code : '
9388: || p_var_rent_rec.cumulative_vol_code
9389: , 3
9390: );
9391: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: p_var_rent_rec.cumulative_vol_meaning : '
9387: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: p_var_rent_rec.cumulative_vol_code : '
9388: || p_var_rent_rec.cumulative_vol_code
9389: , 3
9390: );
9391: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: p_var_rent_rec.cumulative_vol_meaning : '
9392: || p_var_rent_rec.cumulative_vol_meaning
9393: , 3
9394: );
9395: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: p_var_rent_rec.proration_rule_code : '
9391: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: p_var_rent_rec.cumulative_vol_meaning : '
9392: || p_var_rent_rec.cumulative_vol_meaning
9393: , 3
9394: );
9395: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: p_var_rent_rec.proration_rule_code : '
9396: || p_var_rent_rec.proration_rule_code
9397: , 3
9398: );
9399: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: p_var_rent_rec.proration_rule_meaning : '
9395: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: p_var_rent_rec.proration_rule_code : '
9396: || p_var_rent_rec.proration_rule_code
9397: , 3
9398: );
9399: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: p_var_rent_rec.proration_rule_meaning : '
9400: || p_var_rent_rec.proration_rule_meaning
9401: , 3
9402: );
9403: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: p_var_rent_rec.invoice_on_code : '
9399: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: p_var_rent_rec.proration_rule_meaning : '
9400: || p_var_rent_rec.proration_rule_meaning
9401: , 3
9402: );
9403: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: p_var_rent_rec.invoice_on_code : '
9404: || p_var_rent_rec.invoice_on_code
9405: , 3
9406: );
9407: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: p_var_rent_rec.invoice_on_meaning : '
9403: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: p_var_rent_rec.invoice_on_code : '
9404: || p_var_rent_rec.invoice_on_code
9405: , 3
9406: );
9407: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: p_var_rent_rec.invoice_on_meaning : '
9408: || p_var_rent_rec.invoice_on_meaning
9409: , 3
9410: );
9411: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: p_var_rent_rec.negative_rent_code : '
9407: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: p_var_rent_rec.invoice_on_meaning : '
9408: || p_var_rent_rec.invoice_on_meaning
9409: , 3
9410: );
9411: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: p_var_rent_rec.negative_rent_code : '
9412: || p_var_rent_rec.negative_rent_code
9413: , 3
9414: );
9415: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: p_var_rent_rec.negative_rent_meaning : '
9411: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: p_var_rent_rec.negative_rent_code : '
9412: || p_var_rent_rec.negative_rent_code
9413: , 3
9414: );
9415: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: p_var_rent_rec.negative_rent_meaning : '
9416: || p_var_rent_rec.negative_rent_meaning
9417: , 3
9418: );
9419: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: p_var_rent_rec.term_template_id : '
9415: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: p_var_rent_rec.negative_rent_meaning : '
9416: || p_var_rent_rec.negative_rent_meaning
9417: , 3
9418: );
9419: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: p_var_rent_rec.term_template_id : '
9420: || p_var_rent_rec.term_template_id
9421: , 3
9422: );
9423: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: p_var_rent_rec.term_template_name : '
9419: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: p_var_rent_rec.term_template_id : '
9420: || p_var_rent_rec.term_template_id
9421: , 3
9422: );
9423: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: p_var_rent_rec.term_template_name : '
9424: || p_var_rent_rec.term_template_name
9425: , 3
9426: );
9427: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: p_var_rent_rec.proration_rule_code : '
9423: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: p_var_rent_rec.term_template_name : '
9424: || p_var_rent_rec.term_template_name
9425: , 3
9426: );
9427: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: p_var_rent_rec.proration_rule_code : '
9428: || p_var_rent_rec.proration_rule_code
9429: , 3
9430: );
9431: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: p_var_rent_rec.proration_rule_meaning : '
9427: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: p_var_rent_rec.proration_rule_code : '
9428: || p_var_rent_rec.proration_rule_code
9429: , 3
9430: );
9431: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: p_var_rent_rec.proration_rule_meaning : '
9432: || p_var_rent_rec.proration_rule_meaning
9433: , 3
9434: );
9435: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: p_var_rent_rec.currency_code : '
9431: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: p_var_rent_rec.proration_rule_meaning : '
9432: || p_var_rent_rec.proration_rule_meaning
9433: , 3
9434: );
9435: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: p_var_rent_rec.currency_code : '
9436: || p_var_rent_rec.currency_code
9437: , 3
9438: );
9439: pn_varen_util.pvt_debug ('PN_VAREN_PVT: Create_Var_Rent: End of Input Parameters'
9435: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: p_var_rent_rec.currency_code : '
9436: || p_var_rent_rec.currency_code
9437: , 3
9438: );
9439: pn_varen_util.pvt_debug ('PN_VAREN_PVT: Create_Var_Rent: End of Input Parameters'
9440: , 3
9441: );
9442: pn_varen_util.pvt_debug ('PN_VAREN_PVT: Create_Var_Rent: Calling Validate VALIDATE_VAR_RENT Procedure'
9443: , 3
9438: );
9439: pn_varen_util.pvt_debug ('PN_VAREN_PVT: Create_Var_Rent: End of Input Parameters'
9440: , 3
9441: );
9442: pn_varen_util.pvt_debug ('PN_VAREN_PVT: Create_Var_Rent: Calling Validate VALIDATE_VAR_RENT Procedure'
9443: , 3
9444: );
9445: ini_val_var_rec (p_var_rent_rec => p_var_rent_rec
9446: , x_return_status => x_return_status
9448:
9449: validate_var_rent (p_var_rent_rec => p_var_rent_rec
9450: , x_return_status => l_return_status
9451: );
9452: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: End of VALIDATE_VAR_RENT Procedure status : '
9453: || l_return_status
9454: , 3
9455: );
9456: IF(l_return_status <> fnd_api.g_ret_sts_success) THEN
9453: || l_return_status
9454: , 3
9455: );
9456: IF(l_return_status <> fnd_api.g_ret_sts_success) THEN
9457: pn_varen_util.pvt_debug ('PN_VAREN_PVT: Create_Var_Rent: Validation on Var Rent Failed'
9458: , 3
9459: );
9460: --fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
9461: --fnd_message.set_token ('ERR_MSG', 'Var Rent : PN_VAR_RENTS: Validation on Var Rent Failed');
9462: --fnd_msg_pub.ADD;
9463: RAISE fnd_api.g_exc_error;
9464: END IF;
9465:
9466: pn_varen_util.pvt_debug ('PN_VAREN_PVT: Create_Var_Rent: Before PN_VAR_RENTS_PKG.INSERT_ROW PACKAGE'
9467: , 3
9468: );
9469: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: Row Id : '
9470: || g_rowid
9465:
9466: pn_varen_util.pvt_debug ('PN_VAREN_PVT: Create_Var_Rent: Before PN_VAR_RENTS_PKG.INSERT_ROW PACKAGE'
9467: , 3
9468: );
9469: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: Row Id : '
9470: || g_rowid
9471: , 3
9472: );
9473: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: Variable Rent Id : '
9469: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: Row Id : '
9470: || g_rowid
9471: , 3
9472: );
9473: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: Variable Rent Id : '
9474: || l_var_rent_id
9475: , 3
9476: );
9477: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: Variable Rent Num : '
9473: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: Variable Rent Id : '
9474: || l_var_rent_id
9475: , 3
9476: );
9477: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: Variable Rent Num : '
9478: || p_var_rent_rec.rent_num
9479: , 3
9480: );
9481: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: Lease Id : '
9477: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: Variable Rent Num : '
9478: || p_var_rent_rec.rent_num
9479: , 3
9480: );
9481: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: Lease Id : '
9482: || p_var_rent_rec.lease_id
9483: , 3
9484: );
9485: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: Location Id : '
9481: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: Lease Id : '
9482: || p_var_rent_rec.lease_id
9483: , 3
9484: );
9485: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: Location Id : '
9486: || p_var_rent_rec.location_id
9487: , 3
9488: );
9489: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: Proration Days : '
9485: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: Location Id : '
9486: || p_var_rent_rec.location_id
9487: , 3
9488: );
9489: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: Proration Days : '
9490: || p_var_rent_rec.proration_days
9491: , 3
9492: );
9493: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: Purpose Code : '
9489: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: Proration Days : '
9490: || p_var_rent_rec.proration_days
9491: , 3
9492: );
9493: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: Purpose Code : '
9494: || p_var_rent_rec.purpose_code
9495: , 3
9496: );
9497: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: Rent Type Lookup Code : '
9493: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: Purpose Code : '
9494: || p_var_rent_rec.purpose_code
9495: , 3
9496: );
9497: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: Rent Type Lookup Code : '
9498: || p_var_rent_rec.type_meaning
9499: , 3
9500: );
9501: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: Abstracted By User Id : '
9497: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: Rent Type Lookup Code : '
9498: || p_var_rent_rec.type_meaning
9499: , 3
9500: );
9501: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: Abstracted By User Id : '
9502: || p_var_rent_rec.abstracted_by_user_id
9503: , 3
9504: );
9505: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: Cumulative Volume Code : '
9501: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: Abstracted By User Id : '
9502: || p_var_rent_rec.abstracted_by_user_id
9503: , 3
9504: );
9505: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: Cumulative Volume Code : '
9506: || p_var_rent_rec.cumulative_vol_code
9507: , 3
9508: );
9509: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: Invoice On Code : '
9505: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: Cumulative Volume Code : '
9506: || p_var_rent_rec.cumulative_vol_code
9507: , 3
9508: );
9509: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: Invoice On Code : '
9510: || p_var_rent_rec.invoice_on_code
9511: , 3
9512: );
9513: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: Negative Rent Code : '
9509: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: Invoice On Code : '
9510: || p_var_rent_rec.invoice_on_code
9511: , 3
9512: );
9513: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: Negative Rent Code : '
9514: || p_var_rent_rec.negative_rent_code
9515: , 3
9516: );
9517: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: Term Template Id : '
9513: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: Negative Rent Code : '
9514: || p_var_rent_rec.negative_rent_code
9515: , 3
9516: );
9517: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: Term Template Id : '
9518: || p_var_rent_rec.term_template_id
9519: , 3
9520: );
9521: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: Currency Code : '
9517: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: Term Template Id : '
9518: || p_var_rent_rec.term_template_id
9519: , 3
9520: );
9521: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: Currency Code : '
9522: || p_var_rent_rec.currency_code
9523: , 3
9524: );
9525: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: Org Id : '
9521: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: Currency Code : '
9522: || p_var_rent_rec.currency_code
9523: , 3
9524: );
9525: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: Org Id : '
9526: || g_org_id
9527: , 3
9528: );
9529: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: Proration Rule Code : '
9525: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: Org Id : '
9526: || g_org_id
9527: , 3
9528: );
9529: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: Proration Rule Code : '
9530: || p_var_rent_rec.proration_rule_code
9531: , 3
9532: );
9533:
9532: );
9533:
9534: IF p_validate_flag <> 'Y'
9535: THEN
9536: pn_varen_util.pvt_debug ('PN_VAREN_PVT: Create_Var_Rent: Start of CALL_VAREN_INSERT_ROW Procedure'
9537: , 3
9538: );
9539: call_varen_insert_row (p_var_rent_id => l_var_rent_id
9540: , p_var_rent_rec => p_var_rent_rec
9552: fnd_message.set_token ('ERR_MSG', 'CREATE_VAR_RENT : VAR RENT INSERTION Unexpected Error');
9553: fnd_msg_pub.ADD;
9554: RAISE fnd_api.g_exc_unexpected_error;
9555: END IF;
9556: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: End of CALL_VAREN_INSERT_ROW Procedure status : '
9557: || x_return_status
9558: , 3
9559: );
9560: ELSE
9558: , 3
9559: );
9560: ELSE
9561: pn_varen_util.pvt_debug
9562: ('PN_VAREN_PVT: Create_Var_Rent: Variable Rent not create as it is run in Validation Mode'
9563: , 3
9564: );
9565: END IF;
9566:
9565: END IF;
9566:
9567: IF l_var_rent_id IS NOT NULL
9568: THEN
9569: pn_varen_util.pvt_debug ('PN_VAREN_PVT: Create_Var_Rent: Start of OF CALLING Validate_Dates Procedure '
9570: , 3
9571: );
9572: pn_varen_util.pvt_debug ('PN_VAREN_PVT: Create_Var_Rent: Start of calling VALIDATE_DATES Procedure '
9573: , 3
9568: THEN
9569: pn_varen_util.pvt_debug ('PN_VAREN_PVT: Create_Var_Rent: Start of OF CALLING Validate_Dates Procedure '
9570: , 3
9571: );
9572: pn_varen_util.pvt_debug ('PN_VAREN_PVT: Create_Var_Rent: Start of calling VALIDATE_DATES Procedure '
9573: , 3
9574: );
9575: ini_val_dates (p_var_rent_rec => p_var_rent_rec
9576: , x_return_status => x_return_status
9591: fnd_msg_pub.ADD;
9592: RAISE fnd_api.g_exc_unexpected_error;
9593: END IF;
9594: pn_varen_util.pvt_debug
9595: ( 'PN_VAREN_PVT: Create_Var_Rent: End of calling VALIDATE_DATES Procedure status : '
9596: || l_return_status
9597: , 3
9598: );
9599: pn_varen_util.pvt_debug
9596: || l_return_status
9597: , 3
9598: );
9599: pn_varen_util.pvt_debug
9600: ( 'PN_VAREN_PVT: Create_Var_Rent: CALLING Validate_Dates Procedure - l_return_status : '
9601: || l_return_status
9602: , 3
9603: );
9604:
9603: );
9604:
9605: IF l_return_status = fnd_api.g_ret_sts_success
9606: THEN
9607: pn_varen_util.pvt_debug ('PN_VAREN_PVT: Create_Var_Rent: Before PN_VAR_RENT_DATES_PKG.INSERT_ROW PACKAGE'
9608: , 3
9609: );
9610: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: Variable Rent Id : '
9611: || l_var_rent_id
9606: THEN
9607: pn_varen_util.pvt_debug ('PN_VAREN_PVT: Create_Var_Rent: Before PN_VAR_RENT_DATES_PKG.INSERT_ROW PACKAGE'
9608: , 3
9609: );
9610: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: Variable Rent Id : '
9611: || l_var_rent_id
9612: , 3
9613: );
9614: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: Use Gl Calendar : '
9610: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: Variable Rent Id : '
9611: || l_var_rent_id
9612: , 3
9613: );
9614: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: Use Gl Calendar : '
9615: || p_var_rent_rec.use_gl_calendar
9616: , 3
9617: );
9618: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: GL Period Set Name : '
9614: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: Use Gl Calendar : '
9615: || p_var_rent_rec.use_gl_calendar
9616: , 3
9617: );
9618: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: GL Period Set Name : '
9619: || p_var_rent_rec.gl_period_set_name
9620: , 3
9621: );
9622: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: Annual Period Start Day : '
9618: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: GL Period Set Name : '
9619: || p_var_rent_rec.gl_period_set_name
9620: , 3
9621: );
9622: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: Annual Period Start Day : '
9623: || p_var_rent_rec.year_start_date
9624: , 3
9625: );
9626: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: Period Type : '
9622: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: Annual Period Start Day : '
9623: || p_var_rent_rec.year_start_date
9624: , 3
9625: );
9626: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: Period Type : '
9627: || p_var_rent_rec.period_type
9628: , 3
9629: );
9630: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: Calculation Frequency : '
9626: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: Period Type : '
9627: || p_var_rent_rec.period_type
9628: , 3
9629: );
9630: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: Calculation Frequency : '
9631: || p_var_rent_rec.reptg_freq_code
9632: , 3
9633: );
9634: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: Reporting Due Day : '
9630: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: Calculation Frequency : '
9631: || p_var_rent_rec.reptg_freq_code
9632: , 3
9633: );
9634: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: Reporting Due Day : '
9635: || p_var_rent_rec.reptg_day_of_month
9636: , 3
9637: );
9638: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: Reporting No. of Days After : '
9634: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: Reporting Due Day : '
9635: || p_var_rent_rec.reptg_day_of_month
9636: , 3
9637: );
9638: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: Reporting No. of Days After : '
9639: || p_var_rent_rec.reptg_days_after
9640: , 3
9641: );
9642: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: Invoicing Frequency : '
9638: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: Reporting No. of Days After : '
9639: || p_var_rent_rec.reptg_days_after
9640: , 3
9641: );
9642: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: Invoicing Frequency : '
9643: || p_var_rent_rec.invg_freq_code
9644: , 3
9645: );
9646: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: Invoicing Due Day : '
9642: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: Invoicing Frequency : '
9643: || p_var_rent_rec.invg_freq_code
9644: , 3
9645: );
9646: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: Invoicing Due Day : '
9647: || p_var_rent_rec.invg_day_of_month
9648: , 3
9649: );
9650: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: Invoicing No. of Days After : '
9646: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: Invoicing Due Day : '
9647: || p_var_rent_rec.invg_day_of_month
9648: , 3
9649: );
9650: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: Invoicing No. of Days After : '
9651: || p_var_rent_rec.invg_days_after
9652: , 3
9653: );
9654: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: Comments : '
9650: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: Invoicing No. of Days After : '
9651: || p_var_rent_rec.invg_days_after
9652: , 3
9653: );
9654: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: Comments : '
9655: || p_var_rent_rec.comments
9656: , 3
9657: );
9658:
9658:
9659: IF p_validate_flag <> 'Y'
9660: THEN
9661: pn_varen_util.pvt_debug
9662: ('PN_VAREN_PVT: Create_Var_Rent: Start of calling CALL_VAREN_DATES_INSERT_ROW Procedure '
9663: , 3
9664: );
9665: call_varen_dates_insert_row (p_var_rent_id => l_var_rent_id
9666: , p_var_rent_rec => p_var_rent_rec
9679: fnd_msg_pub.ADD;
9680: RAISE fnd_api.g_exc_unexpected_error;
9681: END IF;
9682: pn_varen_util.pvt_debug
9683: ( 'PN_VAREN_PVT: Create_Var_Rent: End of calling CALL_VAREN_DATES_INSERT_ROW Procedure status : '
9684: || x_return_status
9685: , 3
9686: );
9687: ELSE
9685: , 3
9686: );
9687: ELSE
9688: pn_varen_util.pvt_debug
9689: ('PN_VAREN_PVT: Create_Var_Rent: Validate Dates is run in Validation mode, Variable rent Dates will not be created'
9690: , 3
9691: );
9692: pn_varen_util.pvt_debug
9693: ('PN_VAREN_PVT: Create_Var_Rent: Validate Dates is run in Validation mode, Variable rent Dates will not be created'
9689: ('PN_VAREN_PVT: Create_Var_Rent: Validate Dates is run in Validation mode, Variable rent Dates will not be created'
9690: , 3
9691: );
9692: pn_varen_util.pvt_debug
9693: ('PN_VAREN_PVT: Create_Var_Rent: Validate Dates is run in Validation mode, Variable rent Dates will not be created'
9694: , 3
9695: );
9696: END IF;
9697: ELSE
9694: , 3
9695: );
9696: END IF;
9697: ELSE
9698: pn_varen_util.pvt_debug ('PN_VAREN_PVT: Create_Var_Rent: Call_Varen_Dates_Insert_Row Failed'
9699: , 3
9700: );
9701: END IF;
9702: END IF;
9703:
9704: -- Call generate periods procedure
9705: IF p_generate_periods = 'Y'
9706: THEN
9707: pn_varen_util.pvt_debug ('PN_VAREN_PVT: Create_Var_Rent: start of Calling Generate Periods procedure'
9708: , 3
9709: );
9710: generate_periods (p_api_version => 1.0
9711: , p_commit => p_commit
9730: fnd_msg_pub.ADD;
9731: RAISE fnd_api.g_exc_unexpected_error;
9732: END IF;
9733: pn_varen_util.pvt_debug
9734: ( 'PN_VAREN_PVT: Create_Var_Rent: start of Calling Generate Periods procedure status : '
9735: || l_return_status
9736: , 3
9737: );
9738: ELSE
9735: || l_return_status
9736: , 3
9737: );
9738: ELSE
9739: pn_varen_util.pvt_debug ('PN_VAREN_PVT: Create_Var_Rent: Couldnot GeneratePeriods as User passed p_generate_periods<>Y '
9740: , 3
9741: );
9742:
9743: END IF;
9746: -- only if the breakpoint data is passed
9747: IF (p_variable_rent_lines_tbl.COUNT <> 0 OR p_constraints_tbl.COUNT <>0 OR p_allow_abat_tbl.COUNT<>0)
9748: THEN
9749: pn_varen_util.pvt_debug
9750: (' PN_VAREN_PVT: Create_Var_Rent: start of Calling CREATE_BKPT_CONST_ALLOW_ABAT procedure'
9751: , 3
9752: );
9753: pn_varen_util.pvt_debug ('------------------------------------'
9754: , 3
9781: -- fnd_msg_pub.ADD;
9782: --RAISE fnd_api.g_exc_unexpected_error;
9783: END IF;
9784: pn_varen_util.pvt_debug
9785: ( ' PN_VAREN_PVT: Create_Var_Rent: End of CREATE_BKPT_CONST_ALLOW_ABAT procedure status :'
9786: || x_return_status
9787: , 3
9788: );
9789:
9787: , 3
9788: );
9789:
9790: ELSE
9791: pn_varen_util.pvt_debug ('PN_VAREN_PVT: Create_Var_Rent: No paramters passed for Breakpoints creation'
9792: , 3
9793: );
9794: END IF;
9795:
9799: );
9800:
9801: x_var_rent_id := g_var_rent_id;
9802: x_var_rent_num := p_var_rent_rec.rent_num;
9803: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: x_var_rent_id : '
9804: || x_var_rent_id
9805: , 3
9806: );
9807: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: x_var_rent_num : '
9803: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: x_var_rent_id : '
9804: || x_var_rent_id
9805: , 3
9806: );
9807: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Var_Rent: x_var_rent_num : '
9808: || x_var_rent_num
9809: , 3
9810: );
9811: IF(l_var_rent_err_count = 0) THEN
9816:
9817: EXCEPTION
9818: WHEN fnd_api.g_exc_error THEN
9819: x_return_status := fnd_api.g_ret_sts_error;
9820: pn_varen_util.pvt_debug('PN_VAREN_PVT:FND_API.G_RET_STS_ERROR:Exception:'||SQLERRM,3);
9821: fnd_msg_pub.count_and_get (p_encoded => fnd_api.g_false
9822: , p_count => x_msg_count
9823: , p_data => x_msg_data
9824: );
9824: );
9825: RAISE;
9826: WHEN OTHERS THEN
9827: x_return_status := fnd_api.g_ret_sts_unexp_error;
9828: pn_varen_util.pvt_debug('PN_VAREN_PVT:FND_API.G_RET_STS_UNEXP_ERROR:Exception:'||SQLERRM,3);
9829: fnd_msg_pub.count_and_get (p_encoded => fnd_api.g_false
9830: , p_count => x_msg_count
9831: , p_data => x_msg_data
9832: );
9975: , l_chg_cal_var_rent_id;
9976:
9977: CLOSE c_var_details;
9978:
9979: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Generate_periods: Use GL Calendar :'
9980: || l_use_gl_calendar
9981: , 3
9982: );
9983: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Generate_periods: Year Start Date :'
9979: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Generate_periods: Use GL Calendar :'
9980: || l_use_gl_calendar
9981: , 3
9982: );
9983: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Generate_periods: Year Start Date :'
9984: || l_yearstartdate
9985: , 3
9986: );
9987: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Generate_periods: Cumulative Vol :'
9983: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Generate_periods: Year Start Date :'
9984: || l_yearstartdate
9985: , 3
9986: );
9987: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Generate_periods: Cumulative Vol :'
9988: || l_cumulativevol
9989: , 3
9990: );
9991: --Check if periods generated
10212: , l_chg_cal_var_rent_id;
10213:
10214: CLOSE c_var_dtls;
10215:
10216: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Undo_Periods: l_varentid :'
10217: || l_varentid
10218: , 3
10219: );
10220: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Undo_Periods: l_chg_cal_var_rent_id :'
10216: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Undo_Periods: l_varentid :'
10217: || l_varentid
10218: , 3
10219: );
10220: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Undo_Periods: l_chg_cal_var_rent_id :'
10221: || l_chg_cal_var_rent_id
10222: , 3
10223: );
10224: --Check if periods generated
10223: );
10224: --Check if periods generated
10225: l_period_ext :=
10226: pn_var_rent_pkg.find_if_period_exists (l_varentid);
10227: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Undo_Periods: Value of l_period_ext : '
10228: || l_period_ext
10229: , 3
10230: );
10231:
10230: );
10231:
10232: IF l_period_ext IS NOT NULL
10233: THEN
10234: pn_varen_util.pvt_debug ('PN_VAREN_PVT: Undo_Periods: l_period_ext is not null '
10235: , 3
10236: );
10237: x_return_status := fnd_api.g_ret_sts_success;
10238:
10279:
10280: DELETE pn_var_constr_defaults_all
10281: WHERE var_rent_id = l_varentid;
10282:
10283: pn_varen_util.pvt_debug ('PN_VAREN_PVT: Undo_Periods: All the periods were deleted : '
10284: , 3
10285: );
10286: ELSE
10287: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Undo_Periods: Period doesnot exists : '
10283: pn_varen_util.pvt_debug ('PN_VAREN_PVT: Undo_Periods: All the periods were deleted : '
10284: , 3
10285: );
10286: ELSE
10287: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Undo_Periods: Period doesnot exists : '
10288: || l_period_ext
10289: , 3
10290: );
10291: END IF; -- l_period_ext
10289: , 3
10290: );
10291: END IF; -- l_period_ext
10292: ELSE
10293: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Undo_Periods: Variable Rent Date record doesnot exists : '
10294: || l_dates_ctd
10295: , 3
10296: );
10297: x_return_status := fnd_api.g_ret_sts_error;
10296: );
10297: x_return_status := fnd_api.g_ret_sts_error;
10298: END IF; --l_dates_ctd
10299: ELSE
10300: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Undo_Periods: Variable Rent record doesnot exists : '
10301: || l_dates_ctd
10302: , 3
10303: );
10304: x_return_status := fnd_api.g_ret_sts_error;
10311: EXCEPTION
10312:
10313: WHEN OTHERS
10314: THEN
10315: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Undo_Periods: Variable Rent record doesnot exists : '
10316: || l_dates_ctd
10317: , 3
10318: );
10319: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
10367: l_return_status VARCHAR2 (1) := fnd_api.g_ret_sts_error;
10368: l_err_count NUMBER := 0;
10369: BEGIN
10370: pn_varen_util.pvt_debug
10371: ('PN_VAREN_PVT: Create_Bkpt_Const_Allow_Abat: Calling Variable Rent Lines Validations Procedure '
10372: , 3
10373: );
10374: -- pn_varen_util.pvt_debug ('--------------------------------------------------', 3);
10375: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Bkpt_Const_Allow_Abat: p_generate_breakpoints '
10371: ('PN_VAREN_PVT: Create_Bkpt_Const_Allow_Abat: Calling Variable Rent Lines Validations Procedure '
10372: , 3
10373: );
10374: -- pn_varen_util.pvt_debug ('--------------------------------------------------', 3);
10375: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Create_Bkpt_Const_Allow_Abat: p_generate_breakpoints '
10376: || p_generate_breakpoints
10377: , 3
10378: ); -- vkatta
10379: IF(p_variable_rent_lines_tbl.COUNT<>0) THEN
10385: , p_validate_flag => p_validate_flag
10386: , x_return_status => l_return_status
10387: );
10388: pn_varen_util.pvt_debug
10389: ( 'PN_VAREN_PVT: Create_Bkpt_Const_Allow_Abat: Return_Status Before calling variable rent lines insert procedure : '
10390: || l_return_status
10391: , 3
10392: );
10393: IF (l_return_status = fnd_api.g_ret_sts_error) THEN
10396: l_err_count := l_err_count+1;
10397: END IF;
10398: EXCEPTION
10399: WHEN OTHERS THEN
10400: pn_varen_util.pvt_debug('PN_VAREN_PVT: Create_Bkpt_Const_Allow_Abat:var_rent_lines_bkhd:Exception:'||SQLERRM,3);
10401: l_err_count := l_err_count+1;
10402: END;
10403: END IF; -- p_variable_rent_lines_tbl.COUNT<>0
10404: ------------------------------------------------------
10410: , p_validate_flag => p_validate_flag
10411: , p_generate_constraints => p_generate_constraints
10412: , x_return_status => l_return_status
10413: );
10414: pn_varen_util.pvt_debug('PN_VAREN_PVT: Create_Bkpt_Const_Allow_Abat:val_ins_constraints Return Status'||l_return_status,3);
10415: IF (l_return_status = fnd_api.g_ret_sts_error) THEN
10416: l_err_count := l_err_count+1;
10417: ELSIF (l_return_status = fnd_api.g_ret_sts_unexp_error) THEN
10418: l_err_count := l_err_count+1;
10418: l_err_count := l_err_count+1;
10419: END IF;
10420: EXCEPTION
10421: WHEN OTHERS THEN
10422: pn_varen_util.pvt_debug('PN_VAREN_PVT: Create_Bkpt_Const_Allow_Abat:val_ins_constraints:Exception:'||SQLERRM,3);
10423: l_err_count := l_err_count+1;
10424: END;
10425: END IF;--p_constraints_tbl.COUNT<>0
10426: ------------------------------------------------------
10431: val_ins_allow_abat (p_allow_abat_tbl_type => p_allow_abat_tbl
10432: , p_validate_flag => p_validate_flag
10433: , x_return_status => l_return_status
10434: );
10435: pn_varen_util.pvt_debug('PN_VAREN_PVT: Create_Bkpt_Const_Allow_Abat:val_ins_allow_abat Return Status:'||l_return_status,3);
10436: IF (l_return_status = fnd_api.g_ret_sts_error) THEN
10437: l_err_count := l_err_count+1;
10438: ELSIF (l_return_status = fnd_api.g_ret_sts_unexp_error) THEN
10439: l_err_count := l_err_count+1;
10439: l_err_count := l_err_count+1;
10440: END IF;
10441: EXCEPTION
10442: WHEN OTHERS THEN
10443: pn_varen_util.pvt_debug('PN_VAREN_PVT: Create_Bkpt_Const_Allow_Abat:val_ins_allow_abat:Return Status:'||l_return_status,3);
10444: l_err_count := l_err_count+1;
10445: END;
10446: END IF;--p_allow_abat_tbl.COUNT<>0
10447: ---------------------------------
10458:
10459: EXCEPTION
10460: WHEN OTHERS
10461: THEN
10462: pn_varen_util.pvt_debug('PN_VAREN_PVT: Create_Bkpt_Const_Allow_Abat: Exception Result of Create_Bkpt_Const_Allow_Abat PACKAGE'||SQLERRM, 3);
10463: x_return_status := fnd_api.g_ret_sts_error;
10464: END create_bkpt_const_allow_abat;
10465:
10466:
10868: l_undo_periods := p_undo_periods; -- Added by Vivek on 07-Dec-2010
10869: x_return_status := fnd_api.g_ret_sts_success;
10870: -- Added by Vivek on 02-DEC-2010
10871:
10872: pn_varen_util.pvt_debug ('PN_VAREN_PVT: Update_Var_Rent: Start of Update_Var_Rent package', 3);
10873: SAVEPOINT update_var_rent;
10874:
10875: -- Standard call to check for call compatibility
10876: IF NOT fnd_api.compatible_api_call (l_api_version
10880: THEN
10881: RAISE fnd_api.g_exc_error;
10882: END IF;
10883:
10884: pn_varen_util.pvt_debug ('PN_VAREN_PVT: Update_Var_Rent: Before opening cursor c_pn_var_rents'
10885: , 3);
10886:
10887: OPEN c_pn_var_rents;
10888:
10891:
10892: IF (c_pn_var_rents%NOTFOUND)
10893: THEN
10894: x_return_status := fnd_api.g_ret_sts_error;
10895: pn_varen_util.pvt_debug ('PN_VAREN_PVT: Update_Var_Rent: Cursor c_pn_var_rents not found', 3);
10896: ELSE
10897: pn_varen_util.pvt_debug ('PN_VAREN_PVT: Update_Var_Rent: Cursor c_pn_var_rents found', 3);
10898:
10899: IF ( p_upd_var_rent_rec.rent_num IS NULL
10893: THEN
10894: x_return_status := fnd_api.g_ret_sts_error;
10895: pn_varen_util.pvt_debug ('PN_VAREN_PVT: Update_Var_Rent: Cursor c_pn_var_rents not found', 3);
10896: ELSE
10897: pn_varen_util.pvt_debug ('PN_VAREN_PVT: Update_Var_Rent: Cursor c_pn_var_rents found', 3);
10898:
10899: IF ( p_upd_var_rent_rec.rent_num IS NULL
10900: OR p_upd_var_rent_rec.rent_num = pn_varen_util.g_pn_miss_char)
10901: THEN
10900: OR p_upd_var_rent_rec.rent_num = pn_varen_util.g_pn_miss_char)
10901: THEN
10902: p_upd_var_rent_rec.rent_num := l_pn_var_rents_rec.rent_num;
10903: pn_varen_util.pvt_debug
10904: ( 'PN_VAREN_PVT: Update_Var_Rent: l_pn_var_rents_rec.rent_num : '
10905: || l_pn_var_rents_rec.rent_num
10906: , 3);
10907: pn_varen_util.pvt_debug
10908: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.rent_num : '
10904: ( 'PN_VAREN_PVT: Update_Var_Rent: l_pn_var_rents_rec.rent_num : '
10905: || l_pn_var_rents_rec.rent_num
10906: , 3);
10907: pn_varen_util.pvt_debug
10908: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.rent_num : '
10909: || p_upd_var_rent_rec.rent_num
10910: , 3);
10911: END IF;
10912:
10916: OR p_upd_var_rent_rec.lease_id = pn_varen_util.g_pn_miss_num)
10917: THEN
10918: --l_pn_var_rents_rec.lease_id := p_upd_var_rent_rec.lease_id;
10919: p_upd_var_rent_rec.lease_id := l_pn_var_rents_rec.lease_id;
10920: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Var_Rent: l_pn_var_rents_rec.lease_id : '
10921: || l_pn_var_rents_rec.lease_id
10922: , 3
10923: );
10924: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.lease_id : '
10920: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Var_Rent: l_pn_var_rents_rec.lease_id : '
10921: || l_pn_var_rents_rec.lease_id
10922: , 3
10923: );
10924: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.lease_id : '
10925: || p_upd_var_rent_rec.lease_id
10926: , 3
10927: );
10928: END IF;
10934: AND p_upd_var_rent_rec.lease_id <> l_pn_var_rents_rec.lease_id)
10935: --OR ( p_upd_var_rent_rec.lease_num IS NOT NULL AND p_upd_var_rent_rec.lease_num <> pn_varen_util.g_pn_miss_char)
10936: --OR ( p_upd_var_rent_rec.lease_name IS NOT NULL AND p_upd_var_rent_rec.lease_name <> pn_varen_util.g_pn_miss_char)
10937: THEN
10938: pn_varen_util.pvt_debug ('PN_VAREN_PVT: Validate_Var_Rent: Calling Lease Validation ', 3);
10939: pn_varen_util.pvt_debug
10940: ('PN_VAREN_PVT: Validate_Var_Rent: Start of pn_varen_util.validate_lease procedure'
10941: , 3);
10942: l_location_id := p_upd_var_rent_rec.location_id;
10936: --OR ( p_upd_var_rent_rec.lease_name IS NOT NULL AND p_upd_var_rent_rec.lease_name <> pn_varen_util.g_pn_miss_char)
10937: THEN
10938: pn_varen_util.pvt_debug ('PN_VAREN_PVT: Validate_Var_Rent: Calling Lease Validation ', 3);
10939: pn_varen_util.pvt_debug
10940: ('PN_VAREN_PVT: Validate_Var_Rent: Start of pn_varen_util.validate_lease procedure'
10941: , 3);
10942: l_location_id := p_upd_var_rent_rec.location_id;
10943: pn_varen_util.validate_lease (p_lease_name => NULL
10944: --p_upd_var_rent_rec.lease_name
10952: , x_lease_termination_date => l_termination_date
10953: , p_org_id => g_org_id
10954: , x_return_status => x_return_status);
10955: pn_varen_util.pvt_debug
10956: ( 'PN_VAREN_PVT: Validate_Var_Rent: End of pn_varen_util.validate_lease procedure status :'
10957: || x_return_status
10958: , 3);
10959: pn_varen_util.pvt_debug
10960: ( 'PN_VAREN_PVT: Validate_Var_Rent: Lease Id Validation Output :'
10956: ( 'PN_VAREN_PVT: Validate_Var_Rent: End of pn_varen_util.validate_lease procedure status :'
10957: || x_return_status
10958: , 3);
10959: pn_varen_util.pvt_debug
10960: ( 'PN_VAREN_PVT: Validate_Var_Rent: Lease Id Validation Output :'
10961: || p_upd_var_rent_rec.lease_id
10962: , 3);
10963:
10964: IF (x_return_status <> fnd_api.g_ret_sts_success)
10963:
10964: IF (x_return_status <> fnd_api.g_ret_sts_success)
10965: THEN
10966: pn_varen_util.pvt_debug
10967: ( 'PN_VAREN_PVT: Validate_Var_Rent: p_var_rent_rec.lease_id Error: '
10968: || p_upd_var_rent_rec.lease_id
10969: , 3);
10970: fnd_message.set_name ('PN', 'PN_VAR_INVALID_LEASE');
10971: fnd_msg_pub.ADD;
11012: THEN
11013: --------------------------------------------------------------------------------
11014: --Abstracted by user validation
11015: --------------------------------------------------------------------------------
11016: pn_varen_util.pvt_debug ('PN_VAREN_PVT: Upd_Val_Varent: Calling User Validation', 3);
11017: pn_varen_util.validate_abst_user (x_user_name => p_upd_var_rent_rec.abstracted_by_user
11018: , x_user_id => p_upd_var_rent_rec.abstracted_by_user_id
11019: , x_return_status => x_return_status);
11020: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Upd_Val_Varent: User Validation user id :'
11016: pn_varen_util.pvt_debug ('PN_VAREN_PVT: Upd_Val_Varent: Calling User Validation', 3);
11017: pn_varen_util.validate_abst_user (x_user_name => p_upd_var_rent_rec.abstracted_by_user
11018: , x_user_id => p_upd_var_rent_rec.abstracted_by_user_id
11019: , x_return_status => x_return_status);
11020: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Upd_Val_Varent: User Validation user id :'
11021: || p_upd_var_rent_rec.abstracted_by_user_id
11022: , 3);
11023: pn_varen_util.pvt_debug
11024: ( 'PN_VAREN_PVT: Upd_Val_Varent: Return status of User Validation procedure '
11020: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Upd_Val_Varent: User Validation user id :'
11021: || p_upd_var_rent_rec.abstracted_by_user_id
11022: , 3);
11023: pn_varen_util.pvt_debug
11024: ( 'PN_VAREN_PVT: Upd_Val_Varent: Return status of User Validation procedure '
11025: || x_return_status
11026: , 3);
11027: pn_varen_util.pvt_debug
11028: ( 'PN_VAREN_PVT: Update_Var_Rent: l_pn_var_rents_rec.abstracted_by_user : '
11024: ( 'PN_VAREN_PVT: Upd_Val_Varent: Return status of User Validation procedure '
11025: || x_return_status
11026: , 3);
11027: pn_varen_util.pvt_debug
11028: ( 'PN_VAREN_PVT: Update_Var_Rent: l_pn_var_rents_rec.abstracted_by_user : '
11029: || l_pn_var_rents_rec.abstracted_by_user
11030: , 3);
11031: pn_varen_util.pvt_debug
11032: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.abstracted_by_user : '
11028: ( 'PN_VAREN_PVT: Update_Var_Rent: l_pn_var_rents_rec.abstracted_by_user : '
11029: || l_pn_var_rents_rec.abstracted_by_user
11030: , 3);
11031: pn_varen_util.pvt_debug
11032: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.abstracted_by_user : '
11033: || p_upd_var_rent_rec.abstracted_by_user
11034: , 3);
11035:
11036: IF (x_return_status = fnd_api.g_ret_sts_error)
11040: , p_upd_var_rent_rec.abstracted_by_user
11041: || '/'
11042: || p_upd_var_rent_rec.abstracted_by_user_id);
11043: pn_varen_util.pvt_debug
11044: ( 'PN_VAREN_PVT: Upd_Val_Varent: User Validation User Name Expected Error:'
11045: || p_upd_var_rent_rec.abstracted_by_user
11046: , 3);
11047: fnd_msg_pub.ADD;
11048: RAISE fnd_api.g_exc_error;
11053: , p_upd_var_rent_rec.abstracted_by_user
11054: || '/'
11055: || p_upd_var_rent_rec.abstracted_by_user_id);
11056: pn_varen_util.pvt_debug
11057: ( 'PN_VAREN_PVT: Upd_Val_Varent: User Validation user Name Un-Expected Error:'
11058: || p_upd_var_rent_rec.abstracted_by_user
11059: , 3);
11060: fnd_msg_pub.ADD;
11061: RAISE fnd_api.g_exc_unexpected_error;
11060: fnd_msg_pub.ADD;
11061: RAISE fnd_api.g_exc_unexpected_error;
11062: ELSE
11063: pn_varen_util.pvt_debug
11064: ( 'PN_VAREN_PVT: Upd_Val_Varent: User Validation user id Success:'
11065: || p_upd_var_rent_rec.abstracted_by_user_id
11066: , 3);
11067: END IF;
11068: --END IF;
11068: --END IF;
11069: ELSE
11070: p_upd_var_rent_rec.abstracted_by_user := l_pn_var_rents_rec.abstracted_by_user;
11071: pn_varen_util.pvt_debug
11072: ( 'PN_VAREN_PVT: Update_Var_Rent: l_pn_var_rents_rec.abstracted_by_user : '
11073: || l_pn_var_rents_rec.abstracted_by_user
11074: , 3);
11075: pn_varen_util.pvt_debug
11076: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.abstracted_by_user : '
11072: ( 'PN_VAREN_PVT: Update_Var_Rent: l_pn_var_rents_rec.abstracted_by_user : '
11073: || l_pn_var_rents_rec.abstracted_by_user
11074: , 3);
11075: pn_varen_util.pvt_debug
11076: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.abstracted_by_user : '
11077: || p_upd_var_rent_rec.abstracted_by_user
11078: , 3);
11079: END IF;
11080:
11082: OR p_upd_var_rent_rec.commencement_date = pn_varen_util.g_pn_miss_date)
11083: THEN
11084: p_upd_var_rent_rec.commencement_date := l_pn_var_rents_rec.commencement_date;
11085: pn_varen_util.pvt_debug
11086: ( 'PN_VAREN_PVT: Update_Var_Rent: l_pn_var_rents_rec.commencement_date : '
11087: || l_pn_var_rents_rec.commencement_date
11088: , 3);
11089: pn_varen_util.pvt_debug
11090: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.commencement_date : '
11086: ( 'PN_VAREN_PVT: Update_Var_Rent: l_pn_var_rents_rec.commencement_date : '
11087: || l_pn_var_rents_rec.commencement_date
11088: , 3);
11089: pn_varen_util.pvt_debug
11090: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.commencement_date : '
11091: || p_upd_var_rent_rec.commencement_date
11092: , 3);
11093: END IF;
11094:
11096: OR p_upd_var_rent_rec.termination_date = pn_varen_util.g_pn_miss_date)
11097: THEN
11098: p_upd_var_rent_rec.termination_date := l_pn_var_rents_rec.termination_date;
11099: pn_varen_util.pvt_debug
11100: ( 'PN_VAREN_PVT: Update_Var_Rent: l_pn_var_rents_rec.termination_date : '
11101: || l_pn_var_rents_rec.termination_date
11102: , 3);
11103: pn_varen_util.pvt_debug
11104: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.termination_date : '
11100: ( 'PN_VAREN_PVT: Update_Var_Rent: l_pn_var_rents_rec.termination_date : '
11101: || l_pn_var_rents_rec.termination_date
11102: , 3);
11103: pn_varen_util.pvt_debug
11104: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.termination_date : '
11105: || p_upd_var_rent_rec.termination_date
11106: , 3);
11107: END IF;
11108:
11123: THEN
11124: --------------------------------------------------------------------------------
11125: --Term template id or name validation
11126: --------------------------------------------------------------------------------
11127: pn_varen_util.pvt_debug ('PN_VAREN_PVT: Upd_Val_Varent: Calling Term Template', 3);
11128: pn_varen_util.validate_term_template
11129: (p_org_id => g_org_id
11130: , x_term_template_id => p_upd_var_rent_rec.term_template_id
11131: , x_term_template_name => p_upd_var_rent_rec.term_template_name
11129: (p_org_id => g_org_id
11130: , x_term_template_id => p_upd_var_rent_rec.term_template_id
11131: , x_term_template_name => p_upd_var_rent_rec.term_template_name
11132: , x_return_status => x_return_status);
11133: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Upd_Val_Varent: Term Template Id :'
11134: || p_upd_var_rent_rec.term_template_id
11135: , 3);
11136: pn_varen_util.pvt_debug
11137: ( 'PN_VAREN_PVT: Upd_Val_Varent: Return status of Term Template Id procedure '
11133: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Upd_Val_Varent: Term Template Id :'
11134: || p_upd_var_rent_rec.term_template_id
11135: , 3);
11136: pn_varen_util.pvt_debug
11137: ( 'PN_VAREN_PVT: Upd_Val_Varent: Return status of Term Template Id procedure '
11138: || x_return_status
11139: , 3);
11140: pn_varen_util.pvt_debug
11141: ( 'PN_VAREN_PVT: Update_Var_Rent: Before p_upd_var_rent_rec.term_template_id : '
11137: ( 'PN_VAREN_PVT: Upd_Val_Varent: Return status of Term Template Id procedure '
11138: || x_return_status
11139: , 3);
11140: pn_varen_util.pvt_debug
11141: ( 'PN_VAREN_PVT: Update_Var_Rent: Before p_upd_var_rent_rec.term_template_id : '
11142: || p_upd_var_rent_rec.term_template_id
11143: , 3);
11144: pn_varen_util.pvt_debug
11145: ( 'PN_VAREN_PVT: Update_Var_Rent: Before p_upd_var_rent_rec.term_template_name : '
11141: ( 'PN_VAREN_PVT: Update_Var_Rent: Before p_upd_var_rent_rec.term_template_id : '
11142: || p_upd_var_rent_rec.term_template_id
11143: , 3);
11144: pn_varen_util.pvt_debug
11145: ( 'PN_VAREN_PVT: Update_Var_Rent: Before p_upd_var_rent_rec.term_template_name : '
11146: || p_upd_var_rent_rec.term_template_name
11147: , 3);
11148:
11149: IF (x_return_status = fnd_api.g_ret_sts_error)
11153: , p_upd_var_rent_rec.term_template_id
11154: || '/'
11155: || p_upd_var_rent_rec.term_template_name);
11156: pn_varen_util.pvt_debug
11157: ( 'PN_VAREN_PVT: Upd_Val_Varent: Term Template Name Expected Error :'
11158: || p_upd_var_rent_rec.term_template_name
11159: , 3);
11160: fnd_msg_pub.ADD;
11161: RAISE fnd_api.g_exc_error;
11166: , p_upd_var_rent_rec.term_template_id
11167: || '/'
11168: || p_upd_var_rent_rec.term_template_name);
11169: pn_varen_util.pvt_debug
11170: ( 'PN_VAREN_PVT: Upd_Val_Varent: Term Template Name Un-Expected Error :'
11171: || p_upd_var_rent_rec.term_template_name
11172: , 3);
11173: fnd_msg_pub.ADD;
11174: RAISE fnd_api.g_exc_unexpected_error;
11172: , 3);
11173: fnd_msg_pub.ADD;
11174: RAISE fnd_api.g_exc_unexpected_error;
11175: ELSE
11176: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Upd_Val_Varent: Term Template Id Success :'
11177: || p_upd_var_rent_rec.term_template_id
11178: , 3);
11179: END IF;
11180: ELSE
11179: END IF;
11180: ELSE
11181: p_upd_var_rent_rec.term_template_id := l_pn_var_rents_rec.term_template_id;
11182: pn_varen_util.pvt_debug
11183: ( 'PN_VAREN_PVT: Update_Var_Rent: l_pn_var_rents_rec.term_template_id : '
11184: || l_pn_var_rents_rec.term_template_id
11185: , 3);
11186: pn_varen_util.pvt_debug
11187: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.term_template_id : '
11183: ( 'PN_VAREN_PVT: Update_Var_Rent: l_pn_var_rents_rec.term_template_id : '
11184: || l_pn_var_rents_rec.term_template_id
11185: , 3);
11186: pn_varen_util.pvt_debug
11187: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.term_template_id : '
11188: || p_upd_var_rent_rec.term_template_id
11189: , 3);
11190: --l_pn_var_rents_rec.term_template_name := p_upd_var_rent_rec.term_template_name;
11191: END IF;
11195: THEN
11196: --------------------------------------------------------------------------------
11197: --Currency Validation
11198: --------------------------------------------------------------------------------
11199: pn_varen_util.pvt_debug ('PN_VAREN_PVT: Upd_Val_Varent: Calling Currency', 3);
11200: pn_varen_util.validate_currency (p_currency_code => p_upd_var_rent_rec.currency_code
11201: , x_return_status => x_return_status);
11202: pn_varen_util.pvt_debug
11203: ( 'PN_VAREN_PVT: Upd_Val_Varent: Return status of Currency validation procedure '
11199: pn_varen_util.pvt_debug ('PN_VAREN_PVT: Upd_Val_Varent: Calling Currency', 3);
11200: pn_varen_util.validate_currency (p_currency_code => p_upd_var_rent_rec.currency_code
11201: , x_return_status => x_return_status);
11202: pn_varen_util.pvt_debug
11203: ( 'PN_VAREN_PVT: Upd_Val_Varent: Return status of Currency validation procedure '
11204: || l_return_status
11205: , 3);
11206: pn_varen_util.pvt_debug
11207: ( 'PN_VAREN_PVT: Update_Var_Rent: l_pn_var_rents_rec.currency_code : '
11203: ( 'PN_VAREN_PVT: Upd_Val_Varent: Return status of Currency validation procedure '
11204: || l_return_status
11205: , 3);
11206: pn_varen_util.pvt_debug
11207: ( 'PN_VAREN_PVT: Update_Var_Rent: l_pn_var_rents_rec.currency_code : '
11208: || l_pn_var_rents_rec.currency_code
11209: , 3);
11210: pn_varen_util.pvt_debug
11211: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.currency_code : '
11207: ( 'PN_VAREN_PVT: Update_Var_Rent: l_pn_var_rents_rec.currency_code : '
11208: || l_pn_var_rents_rec.currency_code
11209: , 3);
11210: pn_varen_util.pvt_debug
11211: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.currency_code : '
11212: || p_upd_var_rent_rec.currency_code
11213: , 3);
11214:
11215: IF (x_return_status = fnd_api.g_ret_sts_error)
11216: THEN
11217: fnd_message.set_name ('PN', 'PN_VAR_CUR_CODE');
11218: fnd_message.set_token ('CURRENCY_CODE', p_upd_var_rent_rec.currency_code);
11219: pn_varen_util.pvt_debug
11220: ( 'PN_VAREN_PVT: Upd_Val_Varent: Currency Code Expected Error :'
11221: || p_upd_var_rent_rec.currency_code
11222: , 3);
11223: fnd_msg_pub.ADD;
11224: RAISE fnd_api.g_exc_error;
11226: THEN
11227: fnd_message.set_name ('PN', 'PN_VAR_CUR_CODE');
11228: fnd_message.set_token ('CURRENCY_CODE', p_upd_var_rent_rec.currency_code);
11229: pn_varen_util.pvt_debug
11230: ( 'PN_VAREN_PVT: Upd_Val_Varent: Currency Code Un-Expected Error :'
11231: || p_upd_var_rent_rec.currency_code
11232: , 3);
11233: fnd_msg_pub.ADD;
11234: RAISE fnd_api.g_exc_error;
11232: , 3);
11233: fnd_msg_pub.ADD;
11234: RAISE fnd_api.g_exc_error;
11235: ELSE
11236: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Upd_Val_Varent: Currency Code Success :'
11237: || p_upd_var_rent_rec.currency_code
11238: , 3);
11239: END IF;
11240: ELSE
11239: END IF;
11240: ELSE
11241: p_upd_var_rent_rec.currency_code := l_pn_var_rents_rec.currency_code;
11242: pn_varen_util.pvt_debug
11243: ( 'PN_VAREN_PVT: Update_Var_Rent: l_pn_var_rents_rec.currency_code : '
11244: || l_pn_var_rents_rec.currency_code
11245: , 3);
11246: pn_varen_util.pvt_debug
11247: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.currency_code : '
11243: ( 'PN_VAREN_PVT: Update_Var_Rent: l_pn_var_rents_rec.currency_code : '
11244: || l_pn_var_rents_rec.currency_code
11245: , 3);
11246: pn_varen_util.pvt_debug
11247: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.currency_code : '
11248: || p_upd_var_rent_rec.currency_code
11249: , 3);
11250: END IF;
11251:
11253: OR p_upd_var_rent_rec.proration_days = pn_varen_util.g_pn_miss_num)
11254: THEN
11255: p_upd_var_rent_rec.proration_days := l_pn_var_rents_rec.proration_days;
11256: pn_varen_util.pvt_debug
11257: ( 'PN_VAREN_PVT: Update_Var_Rent: l_pn_var_rents_rec.proration_days : '
11258: || l_pn_var_rents_rec.proration_days
11259: , 3);
11260: pn_varen_util.pvt_debug
11261: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.proration_days : '
11257: ( 'PN_VAREN_PVT: Update_Var_Rent: l_pn_var_rents_rec.proration_days : '
11258: || l_pn_var_rents_rec.proration_days
11259: , 3);
11260: pn_varen_util.pvt_debug
11261: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.proration_days : '
11262: || p_upd_var_rent_rec.proration_days
11263: , 3);
11264: END IF;
11265:
11269: OR p_upd_var_rent_rec.agreement_template_name = pn_varen_util.g_pn_miss_char)
11270: THEN
11271: p_upd_var_rent_rec.agreement_template_id := l_pn_var_rents_rec.agreement_template_id;
11272: pn_varen_util.pvt_debug
11273: ( 'PN_VAREN_PVT: Update_Var_Rent: l_pn_var_rents_rec.agreement_template_id : '
11274: || l_pn_var_rents_rec.agreement_template_id
11275: , 3);
11276: pn_varen_util.pvt_debug
11277: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.agreement_template_id : '
11273: ( 'PN_VAREN_PVT: Update_Var_Rent: l_pn_var_rents_rec.agreement_template_id : '
11274: || l_pn_var_rents_rec.agreement_template_id
11275: , 3);
11276: pn_varen_util.pvt_debug
11277: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.agreement_template_id : '
11278: || p_upd_var_rent_rec.agreement_template_id
11279: , 3);
11280: --l_pn_var_rents_rec.agreement_template_name := p_upd_var_rent_rec.agreement_template_name;
11281: END IF;
11299: THEN
11300: --------------------------------------------------------------------------------
11301: --Cumulative Volume or Method validation
11302: --------------------------------------------------------------------------------
11303: pn_varen_util.pvt_debug ('PN_VAREN_PVT: Upd_Val_Varent: Calling Cumulative Volume', 3);
11304: pn_varen_util.validate_lookups
11305: (p_lookup_type => g_cumulative_vol
11306: , x_lookup_meaning => p_upd_var_rent_rec.cumulative_vol_meaning
11307: , x_lookup_code => p_upd_var_rent_rec.cumulative_vol_code
11305: (p_lookup_type => g_cumulative_vol
11306: , x_lookup_meaning => p_upd_var_rent_rec.cumulative_vol_meaning
11307: , x_lookup_code => p_upd_var_rent_rec.cumulative_vol_code
11308: , x_return_status => x_return_status);
11309: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Upd_Val_Varent: Cumulative Volume Code :'
11310: || p_upd_var_rent_rec.cumulative_vol_code
11311: , 3);
11312: pn_varen_util.pvt_debug
11313: ( 'PN_VAREN_PVT: Upd_Val_Varent: Return status of Cumulative Volume Code procedure '
11309: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Upd_Val_Varent: Cumulative Volume Code :'
11310: || p_upd_var_rent_rec.cumulative_vol_code
11311: , 3);
11312: pn_varen_util.pvt_debug
11313: ( 'PN_VAREN_PVT: Upd_Val_Varent: Return status of Cumulative Volume Code procedure '
11314: || x_return_status
11315: , 3);
11316: pn_varen_util.pvt_debug
11317: ( 'PN_VAREN_PVT: Upd_Val_Varent: p_upd_var_rent_rec.cumulative_vol_code : '
11313: ( 'PN_VAREN_PVT: Upd_Val_Varent: Return status of Cumulative Volume Code procedure '
11314: || x_return_status
11315: , 3);
11316: pn_varen_util.pvt_debug
11317: ( 'PN_VAREN_PVT: Upd_Val_Varent: p_upd_var_rent_rec.cumulative_vol_code : '
11318: || p_upd_var_rent_rec.cumulative_vol_code
11319: , 3);
11320: pn_varen_util.pvt_debug
11321: ( 'PN_VAREN_PVT: Upd_Val_Varent: p_upd_var_rent_rec.cumulative_vol_meaning : '
11317: ( 'PN_VAREN_PVT: Upd_Val_Varent: p_upd_var_rent_rec.cumulative_vol_code : '
11318: || p_upd_var_rent_rec.cumulative_vol_code
11319: , 3);
11320: pn_varen_util.pvt_debug
11321: ( 'PN_VAREN_PVT: Upd_Val_Varent: p_upd_var_rent_rec.cumulative_vol_meaning : '
11322: || p_upd_var_rent_rec.cumulative_vol_meaning
11323: , 3);
11324:
11325: IF (x_return_status = fnd_api.g_ret_sts_error)
11329: , p_upd_var_rent_rec.cumulative_vol_meaning
11330: || '/'
11331: || p_upd_var_rent_rec.cumulative_vol_code);
11332: pn_varen_util.pvt_debug
11333: ( 'PN_VAREN_PVT: Upd_Val_Varent: Cumulative Volume Meaning Expected Error:'
11334: || p_upd_var_rent_rec.cumulative_vol_meaning
11335: , 3);
11336: fnd_msg_pub.ADD;
11337: RAISE fnd_api.g_exc_error;
11342: , p_upd_var_rent_rec.cumulative_vol_meaning
11343: || '/'
11344: || p_upd_var_rent_rec.cumulative_vol_code);
11345: pn_varen_util.pvt_debug
11346: ( 'PN_VAREN_PVT: Upd_Val_Varent: Cumulative Volume Meaning Un-Expected Error:'
11347: || p_upd_var_rent_rec.cumulative_vol_meaning
11348: , 3);
11349: fnd_msg_pub.ADD;
11350: RAISE fnd_api.g_exc_unexpected_error;
11349: fnd_msg_pub.ADD;
11350: RAISE fnd_api.g_exc_unexpected_error;
11351: ELSE
11352: pn_varen_util.pvt_debug
11353: ( 'PN_VAREN_PVT: Upd_Val_Varent: Cumulative Volume Code Success:'
11354: || p_upd_var_rent_rec.cumulative_vol_code
11355: , 3);
11356: END IF; -- l_return_status
11357: ELSE
11356: END IF; -- l_return_status
11357: ELSE
11358: p_upd_var_rent_rec.cumulative_vol_code := l_pn_var_rents_rec.cumulative_vol;
11359: pn_varen_util.pvt_debug
11360: ( 'PN_VAREN_PVT: Update_Var_Rent: l_pn_var_rents_rec.cumulative_vol : '
11361: || l_pn_var_rents_rec.cumulative_vol
11362: , 3);
11363: pn_varen_util.pvt_debug
11364: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.cumulative_vol_code : '
11360: ( 'PN_VAREN_PVT: Update_Var_Rent: l_pn_var_rents_rec.cumulative_vol : '
11361: || l_pn_var_rents_rec.cumulative_vol
11362: , 3);
11363: pn_varen_util.pvt_debug
11364: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.cumulative_vol_code : '
11365: || p_upd_var_rent_rec.cumulative_vol_code
11366: , 3);
11367: --l_pn_var_rents_rec.cumulative_vol_meaning := p_upd_var_rent_rec.cumulative_vol_meaning;
11368: END IF;
11386: --------------------------------------------------------------------------------
11387: --Proration Rule code validation or partial year method
11388: --------------------------------------------------------------------------------
11389: pn_varen_util.pvt_debug
11390: ('PN_VAREN_PVT: Upd_Val_Varent: Calling Proration Rule / Parial Year Method'
11391: , 3);
11392: pn_varen_util.validate_lookups
11393: (p_lookup_type => g_proration_rule
11394: , x_lookup_meaning => p_upd_var_rent_rec.proration_rule_meaning
11394: , x_lookup_meaning => p_upd_var_rent_rec.proration_rule_meaning
11395: , x_lookup_code => p_upd_var_rent_rec.proration_rule_code
11396: , x_return_status => x_return_status);
11397: pn_varen_util.pvt_debug
11398: ( 'PN_VAREN_PVT: Upd_Val_Varent: Proration Rule / Parial Year Method Code :'
11399: || p_upd_var_rent_rec.proration_rule_code
11400: , 3);
11401: pn_varen_util.pvt_debug
11402: ( 'PN_VAREN_PVT: Upd_Val_Varent: Return status of Proration Rule Code procedure '
11398: ( 'PN_VAREN_PVT: Upd_Val_Varent: Proration Rule / Parial Year Method Code :'
11399: || p_upd_var_rent_rec.proration_rule_code
11400: , 3);
11401: pn_varen_util.pvt_debug
11402: ( 'PN_VAREN_PVT: Upd_Val_Varent: Return status of Proration Rule Code procedure '
11403: || x_return_status
11404: , 3);
11405: pn_varen_util.pvt_debug
11406: ( 'PN_VAREN_PVT: Upd_Val_Varent: p_upd_var_rent_rec.proration_rule_meaning : '
11402: ( 'PN_VAREN_PVT: Upd_Val_Varent: Return status of Proration Rule Code procedure '
11403: || x_return_status
11404: , 3);
11405: pn_varen_util.pvt_debug
11406: ( 'PN_VAREN_PVT: Upd_Val_Varent: p_upd_var_rent_rec.proration_rule_meaning : '
11407: || p_upd_var_rent_rec.proration_rule_meaning
11408: , 3);
11409: pn_varen_util.pvt_debug
11410: ( 'PN_VAREN_PVT: Upd_Val_Varent: p_upd_var_rent_rec.proration_rule_code : '
11406: ( 'PN_VAREN_PVT: Upd_Val_Varent: p_upd_var_rent_rec.proration_rule_meaning : '
11407: || p_upd_var_rent_rec.proration_rule_meaning
11408: , 3);
11409: pn_varen_util.pvt_debug
11410: ( 'PN_VAREN_PVT: Upd_Val_Varent: p_upd_var_rent_rec.proration_rule_code : '
11411: || p_upd_var_rent_rec.proration_rule_code
11412: , 3);
11413:
11414: IF (x_return_status = fnd_api.g_ret_sts_error)
11418: , p_upd_var_rent_rec.proration_rule_meaning
11419: || '/'
11420: || p_upd_var_rent_rec.proration_rule_code);
11421: pn_varen_util.pvt_debug
11422: ( 'PN_VAREN_PVT: Upd_Val_Varent: Proration Rule / Parial Year Method Meaning Expected Error :'
11423: || p_upd_var_rent_rec.proration_rule_meaning
11424: , 3);
11425: fnd_msg_pub.ADD;
11426: RAISE fnd_api.g_exc_error;
11431: , p_upd_var_rent_rec.proration_rule_meaning
11432: || '/'
11433: || p_upd_var_rent_rec.proration_rule_code);
11434: pn_varen_util.pvt_debug
11435: ( 'PN_VAREN_PVT: Upd_Val_Varent: Proration Rule / Parial Year Method Meaning Un-Expected Error :'
11436: || p_upd_var_rent_rec.proration_rule_meaning
11437: , 3);
11438: fnd_msg_pub.ADD;
11439: RAISE fnd_api.g_exc_unexpected_error;
11438: fnd_msg_pub.ADD;
11439: RAISE fnd_api.g_exc_unexpected_error;
11440: ELSE
11441: pn_varen_util.pvt_debug
11442: ( 'PN_VAREN_PVT: Upd_Val_Varent: Proration Rule / Parial Year Method Code Success :'
11443: || p_upd_var_rent_rec.proration_rule_code
11444: , 3);
11445: END IF;
11446: --END IF;
11446: --END IF;
11447: ELSE
11448: p_upd_var_rent_rec.proration_rule_code := l_pn_var_rents_rec.proration_rule;
11449: pn_varen_util.pvt_debug
11450: ( 'PN_VAREN_PVT: Update_Var_Rent: l_pn_var_rents_rec.proration_rule : '
11451: || l_pn_var_rents_rec.proration_rule
11452: , 3);
11453: pn_varen_util.pvt_debug
11454: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.proration_rule_code : '
11450: ( 'PN_VAREN_PVT: Update_Var_Rent: l_pn_var_rents_rec.proration_rule : '
11451: || l_pn_var_rents_rec.proration_rule
11452: , 3);
11453: pn_varen_util.pvt_debug
11454: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.proration_rule_code : '
11455: || p_upd_var_rent_rec.proration_rule_code
11456: , 3);
11457: --l_pn_var_rents_rec.proration_rule_meaning := p_upd_var_rent_rec.proration_rule_meaning;
11458: END IF;
11475: THEN
11476: --------------------------------------------------------------------------------
11477: --Invoice On Code validation
11478: --------------------------------------------------------------------------------
11479: pn_varen_util.pvt_debug ('PN_VAREN_PVT: Upd_Val_Varent: Calling Invoice on', 3);
11480: pn_varen_util.validate_lookups (p_lookup_type => g_invoice_on
11481: , x_lookup_meaning => p_upd_var_rent_rec.invoice_on_meaning
11482: , x_lookup_code => p_upd_var_rent_rec.invoice_on_code
11483: , x_return_status => x_return_status);
11480: pn_varen_util.validate_lookups (p_lookup_type => g_invoice_on
11481: , x_lookup_meaning => p_upd_var_rent_rec.invoice_on_meaning
11482: , x_lookup_code => p_upd_var_rent_rec.invoice_on_code
11483: , x_return_status => x_return_status);
11484: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Upd_Val_Varent: Invoice on Code :'
11485: || p_upd_var_rent_rec.invoice_on_code
11486: , 3);
11487: pn_varen_util.pvt_debug
11488: ( 'PN_VAREN_PVT: Upd_Val_Varent: Return status of Invoice on Code procedure '
11484: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Upd_Val_Varent: Invoice on Code :'
11485: || p_upd_var_rent_rec.invoice_on_code
11486: , 3);
11487: pn_varen_util.pvt_debug
11488: ( 'PN_VAREN_PVT: Upd_Val_Varent: Return status of Invoice on Code procedure '
11489: || x_return_status
11490: , 3);
11491: pn_varen_util.pvt_debug
11492: ( 'PN_VAREN_PVT: Upd_Val_Varent: p_upd_var_rent_rec.invoice_on_meaning : '
11488: ( 'PN_VAREN_PVT: Upd_Val_Varent: Return status of Invoice on Code procedure '
11489: || x_return_status
11490: , 3);
11491: pn_varen_util.pvt_debug
11492: ( 'PN_VAREN_PVT: Upd_Val_Varent: p_upd_var_rent_rec.invoice_on_meaning : '
11493: || p_upd_var_rent_rec.invoice_on_meaning
11494: , 3);
11495: pn_varen_util.pvt_debug
11496: ( 'PN_VAREN_PVT: Upd_Val_Varent: p_upd_var_rent_rec.invoice_on_code : '
11492: ( 'PN_VAREN_PVT: Upd_Val_Varent: p_upd_var_rent_rec.invoice_on_meaning : '
11493: || p_upd_var_rent_rec.invoice_on_meaning
11494: , 3);
11495: pn_varen_util.pvt_debug
11496: ( 'PN_VAREN_PVT: Upd_Val_Varent: p_upd_var_rent_rec.invoice_on_code : '
11497: || p_upd_var_rent_rec.invoice_on_code
11498: , 3);
11499:
11500: IF (x_return_status = fnd_api.g_ret_sts_error)
11504: , p_upd_var_rent_rec.invoice_on_meaning
11505: || '/'
11506: || p_upd_var_rent_rec.invoice_on_code);
11507: pn_varen_util.pvt_debug
11508: ( 'PN_VAREN_PVT: Upd_Val_Varent: Invoice on Meaning Expected Error :'
11509: || p_upd_var_rent_rec.invoice_on_meaning
11510: , 3);
11511: fnd_msg_pub.ADD;
11512: RAISE fnd_api.g_exc_error;
11517: , p_upd_var_rent_rec.invoice_on_meaning
11518: || '/'
11519: || p_upd_var_rent_rec.invoice_on_code);
11520: pn_varen_util.pvt_debug
11521: ( 'PN_VAREN_PVT: Upd_Val_Varent: Invoice on Meaning Un-Expected Error :'
11522: || p_upd_var_rent_rec.invoice_on_meaning
11523: , 3);
11524: fnd_msg_pub.ADD;
11525: RAISE fnd_api.g_exc_unexpected_error;
11523: , 3);
11524: fnd_msg_pub.ADD;
11525: RAISE fnd_api.g_exc_unexpected_error;
11526: ELSE
11527: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Upd_Val_Varent: Invoice on Code Success :'
11528: || p_upd_var_rent_rec.invoice_on_code
11529: , 3);
11530: END IF;
11531: --END IF;
11531: --END IF;
11532: ELSE
11533: p_upd_var_rent_rec.invoice_on_code := l_pn_var_rents_rec.invoice_on;
11534: pn_varen_util.pvt_debug
11535: ( 'PN_VAREN_PVT: Update_Var_Rent: l_pn_var_rents_rec.invoice_on : '
11536: || l_pn_var_rents_rec.invoice_on
11537: , 3);
11538: pn_varen_util.pvt_debug
11539: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.invoice_on_code : '
11535: ( 'PN_VAREN_PVT: Update_Var_Rent: l_pn_var_rents_rec.invoice_on : '
11536: || l_pn_var_rents_rec.invoice_on
11537: , 3);
11538: pn_varen_util.pvt_debug
11539: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.invoice_on_code : '
11540: || p_upd_var_rent_rec.invoice_on_code
11541: , 3);
11542: --l_pn_var_rents_rec.invoice_on_meaning := p_upd_var_rent_rec.invoice_on_meaning;
11543: END IF;
11560: THEN
11561: --------------------------------------------------------------------------------
11562: --Negative Rent Validation
11563: --------------------------------------------------------------------------------
11564: pn_varen_util.pvt_debug ('PN_VAREN_PVT: Upd_Val_Varent: Calling Negative Rent', 3);
11565: pn_varen_util.validate_lookups
11566: (p_lookup_type => g_negative_rent
11567: , x_lookup_meaning => p_upd_var_rent_rec.negative_rent_meaning
11568: , x_lookup_code => p_upd_var_rent_rec.negative_rent_code
11566: (p_lookup_type => g_negative_rent
11567: , x_lookup_meaning => p_upd_var_rent_rec.negative_rent_meaning
11568: , x_lookup_code => p_upd_var_rent_rec.negative_rent_code
11569: , x_return_status => x_return_status);
11570: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Upd_Val_Varent: Negative Rent :'
11571: || p_upd_var_rent_rec.negative_rent_code
11572: , 3);
11573: pn_varen_util.pvt_debug
11574: ( 'PN_VAREN_PVT: Upd_Val_Varent: Return status of Negative Rent procedure '
11570: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Upd_Val_Varent: Negative Rent :'
11571: || p_upd_var_rent_rec.negative_rent_code
11572: , 3);
11573: pn_varen_util.pvt_debug
11574: ( 'PN_VAREN_PVT: Upd_Val_Varent: Return status of Negative Rent procedure '
11575: || x_return_status
11576: , 3);
11577: pn_varen_util.pvt_debug
11578: ( 'PN_VAREN_PVT: Upd_Val_Varent: p_upd_var_rent_rec.negative_rent_meaning : '
11574: ( 'PN_VAREN_PVT: Upd_Val_Varent: Return status of Negative Rent procedure '
11575: || x_return_status
11576: , 3);
11577: pn_varen_util.pvt_debug
11578: ( 'PN_VAREN_PVT: Upd_Val_Varent: p_upd_var_rent_rec.negative_rent_meaning : '
11579: || p_upd_var_rent_rec.negative_rent_meaning
11580: , 3);
11581: pn_varen_util.pvt_debug
11582: ( 'PN_VAREN_PVT: Upd_Val_Varent: p_upd_var_rent_rec.negative_rent_code : '
11578: ( 'PN_VAREN_PVT: Upd_Val_Varent: p_upd_var_rent_rec.negative_rent_meaning : '
11579: || p_upd_var_rent_rec.negative_rent_meaning
11580: , 3);
11581: pn_varen_util.pvt_debug
11582: ( 'PN_VAREN_PVT: Upd_Val_Varent: p_upd_var_rent_rec.negative_rent_code : '
11583: || p_upd_var_rent_rec.negative_rent_code
11584: , 3);
11585:
11586: IF (x_return_status = fnd_api.g_ret_sts_error)
11585:
11586: IF (x_return_status = fnd_api.g_ret_sts_error)
11587: THEN
11588: pn_varen_util.pvt_debug
11589: ( 'PN_VAREN_PVT: Upd_Val_Varent: Negative Rent Meaning Expected Error :'
11590: || p_upd_var_rent_rec.negative_rent_meaning
11591: , 3);
11592: fnd_message.set_name ('PN', 'PN_VAR_NEG_REN');
11593: fnd_message.set_token ('NEGATIVE_RENT_CODE_MEANING'
11598: RAISE fnd_api.g_exc_error;
11599: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
11600: THEN
11601: pn_varen_util.pvt_debug
11602: ( 'PN_VAREN_PVT: Upd_Val_Varent: Negative Rent Meaning Un-Expected Error :'
11603: || p_upd_var_rent_rec.negative_rent_meaning
11604: , 3);
11605: fnd_message.set_name ('PN', 'PN_VAR_NEG_REN');
11606: fnd_message.set_token ('NEGATIVE_RENT_CODE_MEANING'
11610: fnd_msg_pub.ADD;
11611: RAISE fnd_api.g_exc_unexpected_error;
11612: ELSE
11613: pn_varen_util.pvt_debug
11614: ( 'PN_VAREN_PVT: Upd_Val_Varent: Negative Rent Code Success :'
11615: || p_upd_var_rent_rec.negative_rent_code
11616: , 3);
11617: END IF;
11618: --END IF;
11618: --END IF;
11619: ELSE
11620: p_upd_var_rent_rec.negative_rent_code := l_pn_var_rents_rec.negative_rent;
11621: pn_varen_util.pvt_debug
11622: ( 'PN_VAREN_PVT: Update_Var_Rent: l_pn_var_rents_rec.negative_rent : '
11623: || l_pn_var_rents_rec.negative_rent
11624: , 3);
11625: pn_varen_util.pvt_debug
11626: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.negative_rent_code : '
11622: ( 'PN_VAREN_PVT: Update_Var_Rent: l_pn_var_rents_rec.negative_rent : '
11623: || l_pn_var_rents_rec.negative_rent
11624: , 3);
11625: pn_varen_util.pvt_debug
11626: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.negative_rent_code : '
11627: || p_upd_var_rent_rec.negative_rent_code
11628: , 3);
11629: --l_pn_var_rents_rec.negative_rent_meaning := p_upd_var_rent_rec.negative_rent_meaning;
11630: END IF;
11647: THEN
11648: --------------------------------------------------------------------------------
11649: --Volume Type or Type Code validation
11650: --------------------------------------------------------------------------------
11651: pn_varen_util.pvt_debug ('PN_VAREN_PVT: Upd_Val_Varent: Calling Rent Type Validation', 3);
11652: pn_varen_util.validate_lookups (p_lookup_type => g_rent_type
11653: , x_lookup_meaning => p_upd_var_rent_rec.type_meaning
11654: , x_lookup_code => p_upd_var_rent_rec.type_code
11655: , x_return_status => x_return_status);
11653: , x_lookup_meaning => p_upd_var_rent_rec.type_meaning
11654: , x_lookup_code => p_upd_var_rent_rec.type_code
11655: , x_return_status => x_return_status);
11656: pn_varen_util.pvt_debug
11657: ( 'PN_VAREN_PVT: Upd_Val_Varent: Rent Type Meaning Validation Output :'
11658: || p_upd_var_rent_rec.type_meaning
11659: , 3);
11660: pn_varen_util.pvt_debug
11661: ( 'PN_VAREN_PVT: Upd_Val_Varent: Rent Type Code Validation Output :'
11657: ( 'PN_VAREN_PVT: Upd_Val_Varent: Rent Type Meaning Validation Output :'
11658: || p_upd_var_rent_rec.type_meaning
11659: , 3);
11660: pn_varen_util.pvt_debug
11661: ( 'PN_VAREN_PVT: Upd_Val_Varent: Rent Type Code Validation Output :'
11662: || p_upd_var_rent_rec.type_code
11663: , 3);
11664: pn_varen_util.pvt_debug
11665: ( 'PN_VAREN_PVT: Upd_Val_Varent: Return status of Rent type validation procedure '
11661: ( 'PN_VAREN_PVT: Upd_Val_Varent: Rent Type Code Validation Output :'
11662: || p_upd_var_rent_rec.type_code
11663: , 3);
11664: pn_varen_util.pvt_debug
11665: ( 'PN_VAREN_PVT: Upd_Val_Varent: Return status of Rent type validation procedure '
11666: || x_return_status
11667: , 3);
11668: pn_varen_util.pvt_debug
11669: ( 'PN_VAREN_PVT: Upd_Val_Varent: p_upd_var_rent_rec.type_meaning : '
11665: ( 'PN_VAREN_PVT: Upd_Val_Varent: Return status of Rent type validation procedure '
11666: || x_return_status
11667: , 3);
11668: pn_varen_util.pvt_debug
11669: ( 'PN_VAREN_PVT: Upd_Val_Varent: p_upd_var_rent_rec.type_meaning : '
11670: || p_upd_var_rent_rec.type_meaning
11671: , 3);
11672: pn_varen_util.pvt_debug
11673: ( 'PN_VAREN_PVT: Upd_Val_Varent: p_upd_var_rent_rec.type_code : '
11669: ( 'PN_VAREN_PVT: Upd_Val_Varent: p_upd_var_rent_rec.type_meaning : '
11670: || p_upd_var_rent_rec.type_meaning
11671: , 3);
11672: pn_varen_util.pvt_debug
11673: ( 'PN_VAREN_PVT: Upd_Val_Varent: p_upd_var_rent_rec.type_code : '
11674: || p_upd_var_rent_rec.type_code
11675: , 3);
11676:
11677: IF (x_return_status = fnd_api.g_ret_sts_error)
11681: , p_upd_var_rent_rec.type_meaning
11682: || '/'
11683: || p_upd_var_rent_rec.type_code);
11684: pn_varen_util.pvt_debug
11685: ( 'PN_VAREN_PVT: Upd_Val_Varent: Rent Type Meaning Validation Expected Error :'
11686: || p_upd_var_rent_rec.type_meaning
11687: , 3);
11688: fnd_msg_pub.ADD;
11689: RAISE fnd_api.g_exc_error;
11694: , p_upd_var_rent_rec.type_meaning
11695: || '/'
11696: || p_upd_var_rent_rec.type_code);
11697: pn_varen_util.pvt_debug
11698: ( 'PN_VAREN_PVT: Upd_Val_Varent: Rent Type Meaning Validation Un-Expected Error :'
11699: || p_upd_var_rent_rec.type_meaning
11700: , 3);
11701: fnd_msg_pub.ADD;
11702: RAISE fnd_api.g_exc_unexpected_error;
11700: , 3);
11701: fnd_msg_pub.ADD;
11702: RAISE fnd_api.g_exc_unexpected_error;
11703: ELSE
11704: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Upd_Val_Varent: Rent Type Code Success :'
11705: || p_upd_var_rent_rec.type_code
11706: , 3);
11707: END IF;
11708: --END IF;
11708: --END IF;
11709: ELSE
11710: p_upd_var_rent_rec.type_code := l_pn_var_rents_rec.type_code;
11711: pn_varen_util.pvt_debug
11712: ( 'PN_VAREN_PVT: Update_Var_Rent: l_pn_var_rents_rec.type_code : '
11713: || l_pn_var_rents_rec.type_code
11714: , 3);
11715: pn_varen_util.pvt_debug
11716: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.type_code : '
11712: ( 'PN_VAREN_PVT: Update_Var_Rent: l_pn_var_rents_rec.type_code : '
11713: || l_pn_var_rents_rec.type_code
11714: , 3);
11715: pn_varen_util.pvt_debug
11716: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.type_code : '
11717: || p_upd_var_rent_rec.type_code
11718: , 3);
11719: --l_pn_var_rents_rec.type_meaning := p_upd_var_rent_rec.type_meaning;
11720: END IF;
11738: --------------------------------------------------------------------------------
11739: --Purpose code or Category validation
11740: --------------------------------------------------------------------------------
11741: pn_varen_util.pvt_debug
11742: ('PN_VAREN_PVT: Upd_Val_Varent: Calling Payment Purpose Validation'
11743: , 3);
11744: pn_varen_util.validate_lookups
11745: (p_lookup_type => g_payment_purpose
11746: , x_lookup_meaning => p_upd_var_rent_rec.purpose_code_meaning
11745: (p_lookup_type => g_payment_purpose
11746: , x_lookup_meaning => p_upd_var_rent_rec.purpose_code_meaning
11747: , x_lookup_code => p_upd_var_rent_rec.purpose_code
11748: , x_return_status => x_return_status);
11749: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Upd_Val_Varent: Payment Purpose Output Code :'
11750: || p_upd_var_rent_rec.purpose_code
11751: , 3);
11752: pn_varen_util.pvt_debug
11753: ( 'PN_VAREN_PVT: Upd_Val_Varent: Return status of Payment Purpose procedure '
11749: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Upd_Val_Varent: Payment Purpose Output Code :'
11750: || p_upd_var_rent_rec.purpose_code
11751: , 3);
11752: pn_varen_util.pvt_debug
11753: ( 'PN_VAREN_PVT: Upd_Val_Varent: Return status of Payment Purpose procedure '
11754: || x_return_status
11755: , 3);
11756: pn_varen_util.pvt_debug
11757: ( 'PN_VAREN_PVT: Upd_Val_Varent: p_upd_var_rent_rec.purpose_code_meaning : '
11753: ( 'PN_VAREN_PVT: Upd_Val_Varent: Return status of Payment Purpose procedure '
11754: || x_return_status
11755: , 3);
11756: pn_varen_util.pvt_debug
11757: ( 'PN_VAREN_PVT: Upd_Val_Varent: p_upd_var_rent_rec.purpose_code_meaning : '
11758: || p_upd_var_rent_rec.purpose_code_meaning
11759: , 3);
11760: pn_varen_util.pvt_debug
11761: ( 'PN_VAREN_PVT: Upd_Val_Varent: p_upd_var_rent_rec.purpose_code : '
11757: ( 'PN_VAREN_PVT: Upd_Val_Varent: p_upd_var_rent_rec.purpose_code_meaning : '
11758: || p_upd_var_rent_rec.purpose_code_meaning
11759: , 3);
11760: pn_varen_util.pvt_debug
11761: ( 'PN_VAREN_PVT: Upd_Val_Varent: p_upd_var_rent_rec.purpose_code : '
11762: || p_upd_var_rent_rec.purpose_code
11763: , 3);
11764:
11765: IF (x_return_status = fnd_api.g_ret_sts_error)
11769: , p_upd_var_rent_rec.purpose_code_meaning
11770: || '/'
11771: || p_upd_var_rent_rec.purpose_code);
11772: pn_varen_util.pvt_debug
11773: ( 'PN_VAREN_PVT: Upd_Val_Varent: Payment Purpose Meaning Expected Error :'
11774: || p_upd_var_rent_rec.purpose_code_meaning
11775: , 3);
11776: fnd_msg_pub.ADD;
11777: RAISE fnd_api.g_exc_error;
11782: , p_upd_var_rent_rec.purpose_code_meaning
11783: || '/'
11784: || p_upd_var_rent_rec.purpose_code);
11785: pn_varen_util.pvt_debug
11786: ( 'PN_VAREN_PVT: Upd_Val_Varent: Payment Purpose Meaning Un-Expected Error :'
11787: || p_upd_var_rent_rec.purpose_code_meaning
11788: , 3);
11789: fnd_msg_pub.ADD;
11790: RAISE fnd_api.g_exc_unexpected_error;
11789: fnd_msg_pub.ADD;
11790: RAISE fnd_api.g_exc_unexpected_error;
11791: ELSE
11792: pn_varen_util.pvt_debug
11793: ( 'PN_VAREN_PVT: Upd_Val_Varent: Payment Purpose Code Success :'
11794: || p_upd_var_rent_rec.purpose_code
11795: , 3);
11796: END IF;
11797: --END IF;
11797: --END IF;
11798: ELSE
11799: p_upd_var_rent_rec.purpose_code := l_pn_var_rents_rec.purpose_code;
11800: pn_varen_util.pvt_debug
11801: ( 'PN_VAREN_PVT: Update_Var_Rent: l_pn_var_rents_rec.purpose_code : '
11802: || l_pn_var_rents_rec.purpose_code
11803: , 3);
11804: pn_varen_util.pvt_debug
11805: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.purpose_code : '
11801: ( 'PN_VAREN_PVT: Update_Var_Rent: l_pn_var_rents_rec.purpose_code : '
11802: || l_pn_var_rents_rec.purpose_code
11803: , 3);
11804: pn_varen_util.pvt_debug
11805: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.purpose_code : '
11806: || p_upd_var_rent_rec.purpose_code
11807: , 3);
11808: END IF;
11809:
11812: THEN
11813: p_upd_var_rent_rec.last_update_date := g_sysdate;
11814: --l_pn_var_rents_rec.last_update_date ;
11815: pn_varen_util.pvt_debug
11816: ( 'PN_VAREN_PVT: Update_Var_Rent: l_pn_var_rents_rec.last_update_date : '
11817: || l_pn_var_rents_rec.last_update_date
11818: , 3);
11819: pn_varen_util.pvt_debug
11820: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.last_update_date : '
11816: ( 'PN_VAREN_PVT: Update_Var_Rent: l_pn_var_rents_rec.last_update_date : '
11817: || l_pn_var_rents_rec.last_update_date
11818: , 3);
11819: pn_varen_util.pvt_debug
11820: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.last_update_date : '
11821: || p_upd_var_rent_rec.last_update_date
11822: , 3);
11823: END IF;
11824:
11827: THEN
11828: p_upd_var_rent_rec.last_updated_by := g_user_id;
11829: --l_pn_var_rents_rec.last_updated_by ;
11830: pn_varen_util.pvt_debug
11831: ( 'PN_VAREN_PVT: Update_Var_Rent: l_pn_var_rents_rec.last_updated_by : '
11832: || l_pn_var_rents_rec.last_updated_by
11833: , 3);
11834: pn_varen_util.pvt_debug
11835: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.last_updated_by : '
11831: ( 'PN_VAREN_PVT: Update_Var_Rent: l_pn_var_rents_rec.last_updated_by : '
11832: || l_pn_var_rents_rec.last_updated_by
11833: , 3);
11834: pn_varen_util.pvt_debug
11835: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.last_updated_by : '
11836: || p_upd_var_rent_rec.last_updated_by
11837: , 3);
11838: END IF;
11839:
11841: OR p_upd_var_rent_rec.creation_date = pn_varen_util.g_pn_miss_date)
11842: THEN
11843: l_pn_var_rents_rec.creation_date := p_upd_var_rent_rec.creation_date;
11844: pn_varen_util.pvt_debug
11845: ( 'PN_VAREN_PVT: Update_Var_Rent: l_pn_var_rents_rec.creation_date : '
11846: || l_pn_var_rents_rec.creation_date
11847: , 3);
11848: pn_varen_util.pvt_debug
11849: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.creation_date : '
11845: ( 'PN_VAREN_PVT: Update_Var_Rent: l_pn_var_rents_rec.creation_date : '
11846: || l_pn_var_rents_rec.creation_date
11847: , 3);
11848: pn_varen_util.pvt_debug
11849: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.creation_date : '
11850: || p_upd_var_rent_rec.creation_date
11851: , 3);
11852: END IF;
11853:
11855: OR p_upd_var_rent_rec.created_by = pn_varen_util.g_pn_miss_num)
11856: THEN
11857: p_upd_var_rent_rec.created_by := l_pn_var_rents_rec.created_by;
11858: pn_varen_util.pvt_debug
11859: ( 'PN_VAREN_PVT: Update_Var_Rent: l_pn_var_rents_rec.created_by : '
11860: || l_pn_var_rents_rec.created_by
11861: , 3);
11862: pn_varen_util.pvt_debug
11863: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.created_by : '
11859: ( 'PN_VAREN_PVT: Update_Var_Rent: l_pn_var_rents_rec.created_by : '
11860: || l_pn_var_rents_rec.created_by
11861: , 3);
11862: pn_varen_util.pvt_debug
11863: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.created_by : '
11864: || p_upd_var_rent_rec.created_by
11865: , 3);
11866: END IF;
11867:
11869: OR p_upd_var_rent_rec.last_update_login = pn_varen_util.g_pn_miss_num)
11870: THEN
11871: p_upd_var_rent_rec.last_update_login := l_pn_var_rents_rec.last_update_login;
11872: pn_varen_util.pvt_debug
11873: ( 'PN_VAREN_PVT: Update_Var_Rent: l_pn_var_rents_rec.last_update_login : '
11874: || l_pn_var_rents_rec.last_update_login
11875: , 3);
11876: pn_varen_util.pvt_debug
11877: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.last_update_login : '
11873: ( 'PN_VAREN_PVT: Update_Var_Rent: l_pn_var_rents_rec.last_update_login : '
11874: || l_pn_var_rents_rec.last_update_login
11875: , 3);
11876: pn_varen_util.pvt_debug
11877: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.last_update_login : '
11878: || p_upd_var_rent_rec.last_update_login
11879: , 3);
11880: END IF;
11881:
11883: OR p_upd_var_rent_rec.attribute_category = pn_varen_util.g_pn_miss_char)
11884: THEN
11885: p_upd_var_rent_rec.attribute_category := l_pn_var_rents_rec.attribute_category;
11886: pn_varen_util.pvt_debug
11887: ( 'PN_VAREN_PVT: Update_Var_Rent: l_pn_var_rents_rec.attribute_category : '
11888: || l_pn_var_rents_rec.attribute_category
11889: , 3);
11890: pn_varen_util.pvt_debug
11891: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.attribute_category : '
11887: ( 'PN_VAREN_PVT: Update_Var_Rent: l_pn_var_rents_rec.attribute_category : '
11888: || l_pn_var_rents_rec.attribute_category
11889: , 3);
11890: pn_varen_util.pvt_debug
11891: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.attribute_category : '
11892: || p_upd_var_rent_rec.attribute_category
11893: , 3);
11894: END IF;
11895:
11897: OR p_upd_var_rent_rec.attribute1 = pn_varen_util.g_pn_miss_char)
11898: THEN
11899: p_upd_var_rent_rec.attribute1 := l_pn_var_rents_rec.attribute1;
11900: pn_varen_util.pvt_debug
11901: ( 'PN_VAREN_PVT: Update_Var_Rent: l_pn_var_rents_rec.attribute1 : '
11902: || l_pn_var_rents_rec.attribute1
11903: , 3);
11904: pn_varen_util.pvt_debug
11905: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.attribute1 : '
11901: ( 'PN_VAREN_PVT: Update_Var_Rent: l_pn_var_rents_rec.attribute1 : '
11902: || l_pn_var_rents_rec.attribute1
11903: , 3);
11904: pn_varen_util.pvt_debug
11905: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.attribute1 : '
11906: || p_upd_var_rent_rec.attribute1
11907: , 3);
11908: END IF;
11909:
11911: OR p_upd_var_rent_rec.attribute2 = pn_varen_util.g_pn_miss_char)
11912: THEN
11913: p_upd_var_rent_rec.attribute2 := l_pn_var_rents_rec.attribute2;
11914: pn_varen_util.pvt_debug
11915: ( 'PN_VAREN_PVT: Update_Var_Rent: l_pn_var_rents_rec.attribute2 : '
11916: || l_pn_var_rents_rec.attribute2
11917: , 3);
11918: pn_varen_util.pvt_debug
11919: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.attribute2 : '
11915: ( 'PN_VAREN_PVT: Update_Var_Rent: l_pn_var_rents_rec.attribute2 : '
11916: || l_pn_var_rents_rec.attribute2
11917: , 3);
11918: pn_varen_util.pvt_debug
11919: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.attribute2 : '
11920: || p_upd_var_rent_rec.attribute2
11921: , 3);
11922: END IF;
11923:
11925: OR p_upd_var_rent_rec.attribute3 = pn_varen_util.g_pn_miss_char)
11926: THEN
11927: p_upd_var_rent_rec.attribute3 := l_pn_var_rents_rec.attribute3;
11928: pn_varen_util.pvt_debug
11929: ( 'PN_VAREN_PVT: Update_Var_Rent: l_pn_var_rents_rec.attribute3 : '
11930: || l_pn_var_rents_rec.attribute3
11931: , 3);
11932: pn_varen_util.pvt_debug
11933: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.attribute3 : '
11929: ( 'PN_VAREN_PVT: Update_Var_Rent: l_pn_var_rents_rec.attribute3 : '
11930: || l_pn_var_rents_rec.attribute3
11931: , 3);
11932: pn_varen_util.pvt_debug
11933: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.attribute3 : '
11934: || p_upd_var_rent_rec.attribute3
11935: , 3);
11936: END IF;
11937:
11939: OR p_upd_var_rent_rec.attribute4 = pn_varen_util.g_pn_miss_char)
11940: THEN
11941: p_upd_var_rent_rec.attribute4 := l_pn_var_rents_rec.attribute4;
11942: pn_varen_util.pvt_debug
11943: ( 'PN_VAREN_PVT: Update_Var_Rent: l_pn_var_rents_rec.attribute4 : '
11944: || l_pn_var_rents_rec.attribute4
11945: , 3);
11946: pn_varen_util.pvt_debug
11947: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.attribute4 : '
11943: ( 'PN_VAREN_PVT: Update_Var_Rent: l_pn_var_rents_rec.attribute4 : '
11944: || l_pn_var_rents_rec.attribute4
11945: , 3);
11946: pn_varen_util.pvt_debug
11947: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.attribute4 : '
11948: || p_upd_var_rent_rec.attribute4
11949: , 3);
11950: END IF;
11951:
11953: OR p_upd_var_rent_rec.attribute5 = pn_varen_util.g_pn_miss_char)
11954: THEN
11955: p_upd_var_rent_rec.attribute5 := l_pn_var_rents_rec.attribute5;
11956: pn_varen_util.pvt_debug
11957: ( 'PN_VAREN_PVT: Update_Var_Rent: l_pn_var_rents_rec.attribute5 : '
11958: || l_pn_var_rents_rec.attribute5
11959: , 3);
11960: pn_varen_util.pvt_debug
11961: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.attribute5 : '
11957: ( 'PN_VAREN_PVT: Update_Var_Rent: l_pn_var_rents_rec.attribute5 : '
11958: || l_pn_var_rents_rec.attribute5
11959: , 3);
11960: pn_varen_util.pvt_debug
11961: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.attribute5 : '
11962: || p_upd_var_rent_rec.attribute5
11963: , 3);
11964: END IF;
11965:
11967: OR p_upd_var_rent_rec.attribute6 = pn_varen_util.g_pn_miss_char)
11968: THEN
11969: p_upd_var_rent_rec.attribute6 := l_pn_var_rents_rec.attribute6;
11970: pn_varen_util.pvt_debug
11971: ( 'PN_VAREN_PVT: Update_Var_Rent: l_pn_var_rents_rec.attribute6 : '
11972: || l_pn_var_rents_rec.attribute6
11973: , 3);
11974: pn_varen_util.pvt_debug
11975: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.attribute6 : '
11971: ( 'PN_VAREN_PVT: Update_Var_Rent: l_pn_var_rents_rec.attribute6 : '
11972: || l_pn_var_rents_rec.attribute6
11973: , 3);
11974: pn_varen_util.pvt_debug
11975: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.attribute6 : '
11976: || p_upd_var_rent_rec.attribute6
11977: , 3);
11978: END IF;
11979:
11981: OR p_upd_var_rent_rec.attribute7 = pn_varen_util.g_pn_miss_char)
11982: THEN
11983: p_upd_var_rent_rec.attribute7 := l_pn_var_rents_rec.attribute7;
11984: pn_varen_util.pvt_debug
11985: ( 'PN_VAREN_PVT: Update_Var_Rent: l_pn_var_rents_rec.attribute7 : '
11986: || l_pn_var_rents_rec.attribute7
11987: , 3);
11988: pn_varen_util.pvt_debug
11989: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.attribute7 : '
11985: ( 'PN_VAREN_PVT: Update_Var_Rent: l_pn_var_rents_rec.attribute7 : '
11986: || l_pn_var_rents_rec.attribute7
11987: , 3);
11988: pn_varen_util.pvt_debug
11989: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.attribute7 : '
11990: || p_upd_var_rent_rec.attribute7
11991: , 3);
11992: END IF;
11993:
11995: OR p_upd_var_rent_rec.attribute8 = pn_varen_util.g_pn_miss_char)
11996: THEN
11997: p_upd_var_rent_rec.attribute8 := l_pn_var_rents_rec.attribute8;
11998: pn_varen_util.pvt_debug
11999: ( 'PN_VAREN_PVT: Update_Var_Rent: l_pn_var_rents_rec.attribute8 : '
12000: || l_pn_var_rents_rec.attribute8
12001: , 3);
12002: pn_varen_util.pvt_debug
12003: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.attribute8 : '
11999: ( 'PN_VAREN_PVT: Update_Var_Rent: l_pn_var_rents_rec.attribute8 : '
12000: || l_pn_var_rents_rec.attribute8
12001: , 3);
12002: pn_varen_util.pvt_debug
12003: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.attribute8 : '
12004: || p_upd_var_rent_rec.attribute8
12005: , 3);
12006: END IF;
12007:
12009: OR p_upd_var_rent_rec.attribute9 = pn_varen_util.g_pn_miss_char)
12010: THEN
12011: p_upd_var_rent_rec.attribute9 := l_pn_var_rents_rec.attribute9;
12012: pn_varen_util.pvt_debug
12013: ( 'PN_VAREN_PVT: Update_Var_Rent: l_pn_var_rents_rec.attribute9 : '
12014: || l_pn_var_rents_rec.attribute9
12015: , 3);
12016: pn_varen_util.pvt_debug
12017: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.attribute9 : '
12013: ( 'PN_VAREN_PVT: Update_Var_Rent: l_pn_var_rents_rec.attribute9 : '
12014: || l_pn_var_rents_rec.attribute9
12015: , 3);
12016: pn_varen_util.pvt_debug
12017: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.attribute9 : '
12018: || p_upd_var_rent_rec.attribute9
12019: , 3);
12020: END IF;
12021:
12023: OR p_upd_var_rent_rec.attribute10 = pn_varen_util.g_pn_miss_char)
12024: THEN
12025: p_upd_var_rent_rec.attribute10 := l_pn_var_rents_rec.attribute10;
12026: pn_varen_util.pvt_debug
12027: ( 'PN_VAREN_PVT: Update_Var_Rent: l_pn_var_rents_rec.attribute10 : '
12028: || l_pn_var_rents_rec.attribute10
12029: , 3);
12030: pn_varen_util.pvt_debug
12031: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.attribute10 : '
12027: ( 'PN_VAREN_PVT: Update_Var_Rent: l_pn_var_rents_rec.attribute10 : '
12028: || l_pn_var_rents_rec.attribute10
12029: , 3);
12030: pn_varen_util.pvt_debug
12031: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.attribute10 : '
12032: || p_upd_var_rent_rec.attribute10
12033: , 3);
12034: END IF;
12035:
12037: OR p_upd_var_rent_rec.attribute11 = pn_varen_util.g_pn_miss_char)
12038: THEN
12039: p_upd_var_rent_rec.attribute11 := l_pn_var_rents_rec.attribute11;
12040: pn_varen_util.pvt_debug
12041: ( 'PN_VAREN_PVT: Update_Var_Rent: l_pn_var_rents_rec.attribute11 : '
12042: || l_pn_var_rents_rec.attribute11
12043: , 3);
12044: pn_varen_util.pvt_debug
12045: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.attribute11 : '
12041: ( 'PN_VAREN_PVT: Update_Var_Rent: l_pn_var_rents_rec.attribute11 : '
12042: || l_pn_var_rents_rec.attribute11
12043: , 3);
12044: pn_varen_util.pvt_debug
12045: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.attribute11 : '
12046: || p_upd_var_rent_rec.attribute11
12047: , 3);
12048: END IF;
12049:
12051: OR p_upd_var_rent_rec.attribute12 = pn_varen_util.g_pn_miss_char)
12052: THEN
12053: p_upd_var_rent_rec.attribute12 := l_pn_var_rents_rec.attribute12;
12054: pn_varen_util.pvt_debug
12055: ( 'PN_VAREN_PVT: Update_Var_Rent: l_pn_var_rents_rec.attribute12 : '
12056: || l_pn_var_rents_rec.attribute12
12057: , 3);
12058: pn_varen_util.pvt_debug
12059: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.attribute12 : '
12055: ( 'PN_VAREN_PVT: Update_Var_Rent: l_pn_var_rents_rec.attribute12 : '
12056: || l_pn_var_rents_rec.attribute12
12057: , 3);
12058: pn_varen_util.pvt_debug
12059: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.attribute12 : '
12060: || p_upd_var_rent_rec.attribute12
12061: , 3);
12062: END IF;
12063:
12065: OR p_upd_var_rent_rec.attribute13 = pn_varen_util.g_pn_miss_char)
12066: THEN
12067: p_upd_var_rent_rec.attribute13 := l_pn_var_rents_rec.attribute13;
12068: pn_varen_util.pvt_debug
12069: ( 'PN_VAREN_PVT: Update_Var_Rent: l_pn_var_rents_rec.attribute13 : '
12070: || l_pn_var_rents_rec.attribute13
12071: , 3);
12072: pn_varen_util.pvt_debug
12073: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.attribute13 : '
12069: ( 'PN_VAREN_PVT: Update_Var_Rent: l_pn_var_rents_rec.attribute13 : '
12070: || l_pn_var_rents_rec.attribute13
12071: , 3);
12072: pn_varen_util.pvt_debug
12073: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.attribute13 : '
12074: || p_upd_var_rent_rec.attribute13
12075: , 3);
12076: END IF;
12077:
12079: OR p_upd_var_rent_rec.attribute14 = pn_varen_util.g_pn_miss_char)
12080: THEN
12081: p_upd_var_rent_rec.attribute14 := l_pn_var_rents_rec.attribute14;
12082: pn_varen_util.pvt_debug
12083: ( 'PN_VAREN_PVT: Update_Var_Rent: l_pn_var_rents_rec.attribute14 : '
12084: || l_pn_var_rents_rec.attribute14
12085: , 3);
12086: pn_varen_util.pvt_debug
12087: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.attribute14 : '
12083: ( 'PN_VAREN_PVT: Update_Var_Rent: l_pn_var_rents_rec.attribute14 : '
12084: || l_pn_var_rents_rec.attribute14
12085: , 3);
12086: pn_varen_util.pvt_debug
12087: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.attribute14 : '
12088: || p_upd_var_rent_rec.attribute14
12089: , 3);
12090: END IF;
12091:
12093: OR p_upd_var_rent_rec.attribute15 = pn_varen_util.g_pn_miss_char)
12094: THEN
12095: p_upd_var_rent_rec.attribute15 := l_pn_var_rents_rec.attribute15;
12096: pn_varen_util.pvt_debug
12097: ( 'PN_VAREN_PVT: Update_Var_Rent: l_pn_var_rents_rec.attribute15 : '
12098: || l_pn_var_rents_rec.attribute15
12099: , 3);
12100: pn_varen_util.pvt_debug
12101: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.attribute15 : '
12097: ( 'PN_VAREN_PVT: Update_Var_Rent: l_pn_var_rents_rec.attribute15 : '
12098: || l_pn_var_rents_rec.attribute15
12099: , 3);
12100: pn_varen_util.pvt_debug
12101: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.attribute15 : '
12102: || p_upd_var_rent_rec.attribute15
12103: , 3);
12104: END IF;
12105:
12103: , 3);
12104: END IF;
12105:
12106: pn_varen_util.pvt_debug
12107: ('PN_VAREN_PVT: Update_Var_Rent : Before calling validate_var_rent procedure'
12108: , 3);
12109: -- call update validate variable rent details procedure
12110:
12111: upd_val_varent (p_upd_var_rent_rec_type => p_upd_var_rent_rec
12110:
12111: upd_val_varent (p_upd_var_rent_rec_type => p_upd_var_rent_rec
12112: , x_return_status => x_return_status);
12113: pn_varen_util.pvt_debug
12114: ( 'PN_VAREN_PVT: Update_Var_Rent: End of upd_val_varent Procedure status : '
12115: || x_return_status
12116: , 3);
12117: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Var_Rent : Value of Validate Flag : '
12118: || p_validate_flag
12113: pn_varen_util.pvt_debug
12114: ( 'PN_VAREN_PVT: Update_Var_Rent: End of upd_val_varent Procedure status : '
12115: || x_return_status
12116: , 3);
12117: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Var_Rent : Value of Validate Flag : '
12118: || p_validate_flag
12119: , 3);
12120: IF x_return_status <> fnd_api.g_ret_sts_success --'S'
12121: THEN
12119: , 3);
12120: IF x_return_status <> fnd_api.g_ret_sts_success --'S'
12121: THEN
12122: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
12123: fnd_message.set_token ('ERR_MSG', 'PN_VAREN_PVT: Update_Var_Rent:UPD_VAL_VARENT returned error');
12124: fnd_msg_pub.ADD;
12125: RAISE fnd_api.g_exc_error;
12126: END IF;
12127:
12127:
12128: IF (p_validate_flag <> 'Y') --and x_return_status = 'S')
12129: THEN
12130: pn_varen_util.pvt_debug
12131: ('PN_VAREN_PVT: Update_Var_Rent: Start of update_varent Procedure'
12132: , 3);
12133: update_varent (p_upd_var_rent_rec_type => p_upd_var_rent_rec
12134: , x_return_status => x_return_status);
12135: pn_varen_util.pvt_debug
12132: , 3);
12133: update_varent (p_upd_var_rent_rec_type => p_upd_var_rent_rec
12134: , x_return_status => x_return_status);
12135: pn_varen_util.pvt_debug
12136: ( 'PN_VAREN_PVT: Update_Var_Rent: End of update_varent Procedure status : '
12137: || x_return_status
12138: , 3);
12139: IF x_return_status <> fnd_api.g_ret_sts_success --'S'
12140: THEN
12138: , 3);
12139: IF x_return_status <> fnd_api.g_ret_sts_success --'S'
12140: THEN
12141: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
12142: fnd_message.set_token ('ERR_MSG', 'PN_VAREN_PVT: Update_Var_Rent:UPDATE_VARENT returned error');
12143: fnd_msg_pub.ADD;
12144: RAISE fnd_api.g_exc_error;
12145: END IF;
12146: END IF; --p_validate_flag
12147: END IF; -- c_pn_var_rents
12148:
12149: -- CLOSE c_pn_var_rents; -- Close this cursor at last.
12150: pn_varen_util.pvt_debug
12151: ('PN_VAREN_PVT: Update_Var_Rent: Before opening cursor c_pn_var_rent_dates'
12152: , 3);
12153:
12154: OPEN c_pn_var_rent_dates;
12155:
12159: IF (c_pn_var_rents%NOTFOUND)
12160: THEN
12161: x_return_status := fnd_api.g_ret_sts_error;
12162: pn_varen_util.pvt_debug
12163: ('PN_VAREN_PVT: Update_Var_Rent: Cursor c_pn_var_rent_dates not found'
12164: , 3);
12165: ELSE
12166: pn_varen_util.pvt_debug ('PN_VAREN_PVT: Update_Var_Rent: Cursor c_pn_var_rent_dates found'
12167: , 3);
12162: pn_varen_util.pvt_debug
12163: ('PN_VAREN_PVT: Update_Var_Rent: Cursor c_pn_var_rent_dates not found'
12164: , 3);
12165: ELSE
12166: pn_varen_util.pvt_debug ('PN_VAREN_PVT: Update_Var_Rent: Cursor c_pn_var_rent_dates found'
12167: , 3);
12168:
12169: -- The below IF statements have been commented by Vivek on 07-Dec-2010
12170: /*
12213: OR p_upd_var_rent_rec.var_rent_date_id = pn_varen_util.g_pn_miss_num)
12214: THEN
12215: p_upd_var_rent_rec.var_rent_date_id := l_pn_var_rent_dates_rec.var_rent_date_id;
12216: pn_varen_util.pvt_debug
12217: ( 'PN_VAREN_PVT: Update_Var_Rent: Value of p_upd_var_rent_rec.var_rent_date_id is : '
12218: || p_upd_var_rent_rec.use_gl_calendar
12219: , 3);
12220: pn_varen_util.pvt_debug
12221: ( 'PN_VAREN_PVT: Update_Var_Rent: Value of l_pn_var_rent_dates_rec.var_rent_date_id : '
12217: ( 'PN_VAREN_PVT: Update_Var_Rent: Value of p_upd_var_rent_rec.var_rent_date_id is : '
12218: || p_upd_var_rent_rec.use_gl_calendar
12219: , 3);
12220: pn_varen_util.pvt_debug
12221: ( 'PN_VAREN_PVT: Update_Var_Rent: Value of l_pn_var_rent_dates_rec.var_rent_date_id : '
12222: || l_pn_var_rent_dates_rec.use_gl_calendar
12223: , 3);
12224: -- ELSE
12225:
12226: -- p_upd_var_rent_rec.var_rent_date_id := l_pn_var_rent_dates_rec.var_rent_date_id;
12227: END IF;
12228:
12229: pn_varen_util.pvt_debug
12230: ( 'PN_VAREN_PVT: Update_Var_Rent: Value of p_upd_var_rent_rec.use_gl_calendar is '
12231: || p_upd_var_rent_rec.use_gl_calendar
12232: , 3);
12233: pn_varen_util.pvt_debug
12234: ( 'PN_VAREN_PVT: Update_Var_Rent: Value of l_pn_var_rent_dates_rec.use_gl_calendar is '
12230: ( 'PN_VAREN_PVT: Update_Var_Rent: Value of p_upd_var_rent_rec.use_gl_calendar is '
12231: || p_upd_var_rent_rec.use_gl_calendar
12232: , 3);
12233: pn_varen_util.pvt_debug
12234: ( 'PN_VAREN_PVT: Update_Var_Rent: Value of l_pn_var_rent_dates_rec.use_gl_calendar is '
12235: || l_pn_var_rent_dates_rec.use_gl_calendar
12236: , 3);
12237:
12238: IF ( p_upd_var_rent_rec.use_gl_calendar IS NULL
12239: OR p_upd_var_rent_rec.use_gl_calendar = pn_varen_util.g_pn_miss_char)
12240: THEN
12241: p_upd_var_rent_rec.use_gl_calendar := l_pn_var_rent_dates_rec.use_gl_calendar;
12242: pn_varen_util.pvt_debug
12243: ( 'PN_VAREN_PVT: Update_Var_Rent: Value of p_upd_var_rent_rec.use_gl_calendar is : '
12244: || p_upd_var_rent_rec.use_gl_calendar
12245: , 3);
12246: pn_varen_util.pvt_debug
12247: ( 'PN_VAREN_PVT: Update_Var_Rent: Value of l_pn_var_rent_dates_rec.use_gl_calendar : '
12243: ( 'PN_VAREN_PVT: Update_Var_Rent: Value of p_upd_var_rent_rec.use_gl_calendar is : '
12244: || p_upd_var_rent_rec.use_gl_calendar
12245: , 3);
12246: pn_varen_util.pvt_debug
12247: ( 'PN_VAREN_PVT: Update_Var_Rent: Value of l_pn_var_rent_dates_rec.use_gl_calendar : '
12248: || l_pn_var_rent_dates_rec.use_gl_calendar
12249: , 3);
12250: END IF;
12251:
12253: OR p_upd_var_rent_rec.year_start_date = pn_varen_util.g_pn_miss_date)
12254: THEN
12255: p_upd_var_rent_rec.year_start_date := l_pn_var_rent_dates_rec.year_start_date;
12256: pn_varen_util.pvt_debug
12257: ( 'PN_VAREN_PVT: Update_Var_Rent: l_pn_var_rent_dates_rec.year_start_date : '
12258: || l_pn_var_rent_dates_rec.year_start_date
12259: , 3);
12260: pn_varen_util.pvt_debug
12261: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.year_start_date : '
12257: ( 'PN_VAREN_PVT: Update_Var_Rent: l_pn_var_rent_dates_rec.year_start_date : '
12258: || l_pn_var_rent_dates_rec.year_start_date
12259: , 3);
12260: pn_varen_util.pvt_debug
12261: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.year_start_date : '
12262: || p_upd_var_rent_rec.year_start_date
12263: , 3);
12264: ELSE
12265: pn_varen_util.pvt_debug
12262: || p_upd_var_rent_rec.year_start_date
12263: , 3);
12264: ELSE
12265: pn_varen_util.pvt_debug
12266: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.year_start_date is not null: '
12267: || p_upd_var_rent_rec.year_start_date
12268: , 3);
12269: END IF;
12270:
12267: || p_upd_var_rent_rec.year_start_date
12268: , 3);
12269: END IF;
12270:
12271: -- pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Var_Rent: Value of Period Set Name is '||p_upd_var_rent_rec.gl_period_set_name,3);
12272: -- pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Var_Rent: Value of l_pn_var_rent_dates_rec.gl_period_set_name is '||l_pn_var_rent_dates_rec.gl_period_set_name, 3);
12273: -- pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Var_Rent: Value of Period Type is '||p_upd_var_rent_rec.period_type, 3);
12274: -- pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Var_Rent: Value of l_pn_var_rent_dates_rec.period_type is '||l_pn_var_rent_dates_rec.period_type,3);
12275: IF ( p_upd_var_rent_rec.gl_period_set_name IS NOT NULL
12268: , 3);
12269: END IF;
12270:
12271: -- pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Var_Rent: Value of Period Set Name is '||p_upd_var_rent_rec.gl_period_set_name,3);
12272: -- pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Var_Rent: Value of l_pn_var_rent_dates_rec.gl_period_set_name is '||l_pn_var_rent_dates_rec.gl_period_set_name, 3);
12273: -- pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Var_Rent: Value of Period Type is '||p_upd_var_rent_rec.period_type, 3);
12274: -- pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Var_Rent: Value of l_pn_var_rent_dates_rec.period_type is '||l_pn_var_rent_dates_rec.period_type,3);
12275: IF ( p_upd_var_rent_rec.gl_period_set_name IS NOT NULL
12276: AND p_upd_var_rent_rec.gl_period_set_name <> pn_varen_util.g_pn_miss_char)
12269: END IF;
12270:
12271: -- pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Var_Rent: Value of Period Set Name is '||p_upd_var_rent_rec.gl_period_set_name,3);
12272: -- pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Var_Rent: Value of l_pn_var_rent_dates_rec.gl_period_set_name is '||l_pn_var_rent_dates_rec.gl_period_set_name, 3);
12273: -- pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Var_Rent: Value of Period Type is '||p_upd_var_rent_rec.period_type, 3);
12274: -- pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Var_Rent: Value of l_pn_var_rent_dates_rec.period_type is '||l_pn_var_rent_dates_rec.period_type,3);
12275: IF ( p_upd_var_rent_rec.gl_period_set_name IS NOT NULL
12276: AND p_upd_var_rent_rec.gl_period_set_name <> pn_varen_util.g_pn_miss_char)
12277: OR ( p_upd_var_rent_rec.period_type IS NOT NULL
12270:
12271: -- pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Var_Rent: Value of Period Set Name is '||p_upd_var_rent_rec.gl_period_set_name,3);
12272: -- pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Var_Rent: Value of l_pn_var_rent_dates_rec.gl_period_set_name is '||l_pn_var_rent_dates_rec.gl_period_set_name, 3);
12273: -- pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Var_Rent: Value of Period Type is '||p_upd_var_rent_rec.period_type, 3);
12274: -- pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Var_Rent: Value of l_pn_var_rent_dates_rec.period_type is '||l_pn_var_rent_dates_rec.period_type,3);
12275: IF ( p_upd_var_rent_rec.gl_period_set_name IS NOT NULL
12276: AND p_upd_var_rent_rec.gl_period_set_name <> pn_varen_util.g_pn_miss_char)
12277: OR ( p_upd_var_rent_rec.period_type IS NOT NULL
12278: AND p_upd_var_rent_rec.period_type <> pn_varen_util.g_pn_miss_char)
12280: ------------------------------------------------
12281: -- Validation of Period Set Name and Period Type
12282: ------------------------------------------------
12283: pn_varen_util.pvt_debug
12284: ('PN_VAREN_PVT: Update_Var_Rent: Calling Period Set Name and Period Type Validation'
12285: , 3);
12286: pn_varen_util.validate_period_set_type
12287: (p_gl_period_set_name => p_upd_var_rent_rec.gl_period_set_name
12288: , p_period_type => p_upd_var_rent_rec.period_type
12287: (p_gl_period_set_name => p_upd_var_rent_rec.gl_period_set_name
12288: , p_period_type => p_upd_var_rent_rec.period_type
12289: , x_return_status => x_return_status);
12290: pn_varen_util.pvt_debug
12291: ( 'PN_VAREN_PVT: Update_Var_Rent: Period Set Name and Period Type status:'
12292: || x_return_status
12293: , 3);
12294: pn_varen_util.pvt_debug
12295: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.gl_period_set_name :'
12291: ( 'PN_VAREN_PVT: Update_Var_Rent: Period Set Name and Period Type status:'
12292: || x_return_status
12293: , 3);
12294: pn_varen_util.pvt_debug
12295: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.gl_period_set_name :'
12296: || p_upd_var_rent_rec.gl_period_set_name
12297: , 3);
12298: pn_varen_util.pvt_debug
12299: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.period_type :'
12295: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.gl_period_set_name :'
12296: || p_upd_var_rent_rec.gl_period_set_name
12297: , 3);
12298: pn_varen_util.pvt_debug
12299: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.period_type :'
12300: || p_upd_var_rent_rec.period_type
12301: , 3);
12302:
12303: IF (x_return_status = fnd_api.g_ret_sts_error)
12307: , p_upd_var_rent_rec.gl_period_set_name
12308: || '/'
12309: || p_upd_var_rent_rec.period_type);
12310: pn_varen_util.pvt_debug
12311: ( 'PN_VAREN_PVT: Update_Var_Rent: Period Set Name and Period Type Expected Error :'
12312: || p_upd_var_rent_rec.gl_period_set_name
12313: || ' , '
12314: || p_upd_var_rent_rec.period_type
12315: , 3);
12322: , p_upd_var_rent_rec.gl_period_set_name
12323: || '/'
12324: || p_upd_var_rent_rec.period_type);
12325: pn_varen_util.pvt_debug
12326: ( 'PN_VAREN_PVT: Update_Var_Rent: Period Set Name and Period Type Un-Expected Error :'
12327: || p_upd_var_rent_rec.gl_period_set_name
12328: || ' , '
12329: || p_upd_var_rent_rec.period_type
12330: , 3);
12332: RAISE fnd_api.g_exc_unexpected_error;
12333: --x_return_status :=fnd_api.g_ret_sts_unexp_error;
12334: ELSE
12335: pn_varen_util.pvt_debug
12336: ( 'PN_VAREN_PVT: Update_Var_Rent: Period Set Name and Period Type Success :'
12337: || p_upd_var_rent_rec.reptg_freq_code
12338: , 3);
12339: x_return_status := fnd_api.g_ret_sts_success;
12340: END IF;
12340: END IF;
12341: ELSE
12342: p_upd_var_rent_rec.gl_period_set_name := l_pn_var_rent_dates_rec.gl_period_set_name;
12343: pn_varen_util.pvt_debug
12344: ( 'PN_VAREN_PVT: Update_Var_Rent: l_pn_var_rent_dates_rec.gl_period_set_name : '
12345: || l_pn_var_rent_dates_rec.gl_period_set_name
12346: , 3);
12347: pn_varen_util.pvt_debug
12348: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.gl_period_set_name : '
12344: ( 'PN_VAREN_PVT: Update_Var_Rent: l_pn_var_rent_dates_rec.gl_period_set_name : '
12345: || l_pn_var_rent_dates_rec.gl_period_set_name
12346: , 3);
12347: pn_varen_util.pvt_debug
12348: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.gl_period_set_name : '
12349: || p_upd_var_rent_rec.gl_period_set_name
12350: , 3);
12351: p_upd_var_rent_rec.period_type := l_pn_var_rent_dates_rec.period_type;
12352: pn_varen_util.pvt_debug
12349: || p_upd_var_rent_rec.gl_period_set_name
12350: , 3);
12351: p_upd_var_rent_rec.period_type := l_pn_var_rent_dates_rec.period_type;
12352: pn_varen_util.pvt_debug
12353: ( 'PN_VAREN_PVT: Update_Var_Rent: l_pn_var_rent_dates_rec.period_type : '
12354: || l_pn_var_rent_dates_rec.period_type
12355: , 3);
12356: pn_varen_util.pvt_debug
12357: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.period_type : '
12353: ( 'PN_VAREN_PVT: Update_Var_Rent: l_pn_var_rent_dates_rec.period_type : '
12354: || l_pn_var_rent_dates_rec.period_type
12355: , 3);
12356: pn_varen_util.pvt_debug
12357: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.period_type : '
12358: || p_upd_var_rent_rec.period_type
12359: , 3);
12360: END IF;
12361:
12359: , 3);
12360: END IF;
12361:
12362: pn_varen_util.pvt_debug
12363: ( 'PN_VAREN_PVT: Update_Var_Rent: Value of p_upd_var_rent_rec.vrg_reptg_freq_code is '
12364: || p_upd_var_rent_rec.vrg_reptg_freq_code
12365: , 3);
12366: pn_varen_util.pvt_debug
12367: ( 'PN_VAREN_PVT: Update_Var_Rent: Value of l_pn_var_rent_dates_rec.vrg_reptg_freq_code is '
12363: ( 'PN_VAREN_PVT: Update_Var_Rent: Value of p_upd_var_rent_rec.vrg_reptg_freq_code is '
12364: || p_upd_var_rent_rec.vrg_reptg_freq_code
12365: , 3);
12366: pn_varen_util.pvt_debug
12367: ( 'PN_VAREN_PVT: Update_Var_Rent: Value of l_pn_var_rent_dates_rec.vrg_reptg_freq_code is '
12368: || l_pn_var_rent_dates_rec.vrg_reptg_freq_code
12369: , 3);
12370: pn_varen_util.pvt_debug
12371: ( 'PN_VAREN_PVT: Update_Var_Rent: Value of p_upd_var_rent_rec.vrg_reptg_freq_meaning is '
12367: ( 'PN_VAREN_PVT: Update_Var_Rent: Value of l_pn_var_rent_dates_rec.vrg_reptg_freq_code is '
12368: || l_pn_var_rent_dates_rec.vrg_reptg_freq_code
12369: , 3);
12370: pn_varen_util.pvt_debug
12371: ( 'PN_VAREN_PVT: Update_Var_Rent: Value of p_upd_var_rent_rec.vrg_reptg_freq_meaning is '
12372: || p_upd_var_rent_rec.vrg_reptg_freq_meaning
12373: , 3);
12374:
12375: --pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Var_Rent: Value of l_pn_var_rent_dates_rec.vrg_reptg_freq_meaning is '||l_pn_var_rent_dates_rec.vrg_reptg_freq_meaning, 3);
12371: ( 'PN_VAREN_PVT: Update_Var_Rent: Value of p_upd_var_rent_rec.vrg_reptg_freq_meaning is '
12372: || p_upd_var_rent_rec.vrg_reptg_freq_meaning
12373: , 3);
12374:
12375: --pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Var_Rent: Value of l_pn_var_rent_dates_rec.vrg_reptg_freq_meaning is '||l_pn_var_rent_dates_rec.vrg_reptg_freq_meaning, 3);
12376:
12377: -- The below IF block has been commented and a new IF block has been added by Vivek on 02-DEC-2010
12378: /*
12379: IF ( p_upd_var_rent_rec.vrg_reptg_freq_code IS NULL
12393: ------------------------------------------------
12394: --Validation of Reporting Frequency -- VRG_REPTG_FREQ_CODE
12395: -------------------------------------------------
12396: pn_varen_util.pvt_debug
12397: ('PN_VAREN_PVT: Update_Var_Rent: Calling Reporting Frequency Validation'
12398: , 3);
12399: pn_varen_util.validate_periods
12400: (p_lookup_type => g_payment_frequency
12401: , x_lookup_meaning => p_upd_var_rent_rec.vrg_reptg_freq_meaning
12401: , x_lookup_meaning => p_upd_var_rent_rec.vrg_reptg_freq_meaning
12402: , x_lookup_code => p_upd_var_rent_rec.vrg_reptg_freq_code
12403: , x_return_status => x_return_status);
12404: pn_varen_util.pvt_debug
12405: ( 'PN_VAREN_PVT: Update_Var_Rent: Reporting Frequency Output Code :'
12406: || p_upd_var_rent_rec.vrg_reptg_freq_code
12407: , 3);
12408: pn_varen_util.pvt_debug
12409: ( 'PN_VAREN_PVT: Update_Var_Rent: l_pn_var_rent_dates_rec.vrg_reptg_freq_code : '
12405: ( 'PN_VAREN_PVT: Update_Var_Rent: Reporting Frequency Output Code :'
12406: || p_upd_var_rent_rec.vrg_reptg_freq_code
12407: , 3);
12408: pn_varen_util.pvt_debug
12409: ( 'PN_VAREN_PVT: Update_Var_Rent: l_pn_var_rent_dates_rec.vrg_reptg_freq_code : '
12410: || l_pn_var_rent_dates_rec.vrg_reptg_freq_code
12411: , 3);
12412: pn_varen_util.pvt_debug
12413: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.vrg_reptg_freq_code : '
12409: ( 'PN_VAREN_PVT: Update_Var_Rent: l_pn_var_rent_dates_rec.vrg_reptg_freq_code : '
12410: || l_pn_var_rent_dates_rec.vrg_reptg_freq_code
12411: , 3);
12412: pn_varen_util.pvt_debug
12413: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.vrg_reptg_freq_code : '
12414: || p_upd_var_rent_rec.vrg_reptg_freq_code
12415: , 3);
12416: pn_varen_util.pvt_debug
12417: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.vrg_reptg_freq_meaning : '
12413: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.vrg_reptg_freq_code : '
12414: || p_upd_var_rent_rec.vrg_reptg_freq_code
12415: , 3);
12416: pn_varen_util.pvt_debug
12417: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.vrg_reptg_freq_meaning : '
12418: || p_upd_var_rent_rec.vrg_reptg_freq_meaning
12419: , 3);
12420:
12421: IF (x_return_status = fnd_api.g_ret_sts_error)
12425: , p_upd_var_rent_rec.vrg_reptg_freq_meaning
12426: || '/'
12427: || p_upd_var_rent_rec.vrg_reptg_freq_code);
12428: pn_varen_util.pvt_debug
12429: ( 'PN_VAREN_PVT: Update_Var_Rent: Reporting Frequency Meaning Expected Error :'
12430: || p_upd_var_rent_rec.vrg_reptg_freq_meaning
12431: , 3);
12432: x_return_status := fnd_api.g_ret_sts_error;
12433: fnd_msg_pub.ADD;
12439: , p_upd_var_rent_rec.vrg_reptg_freq_meaning
12440: || '/'
12441: || p_upd_var_rent_rec.vrg_reptg_freq_code);
12442: pn_varen_util.pvt_debug
12443: ( 'PN_VAREN_PVT: Update_Var_Rent: Reporting Frequency Meaning Un-Expected Error :'
12444: || p_upd_var_rent_rec.vrg_reptg_freq_meaning
12445: , 3);
12446: --x_return_status :=fnd_api.g_ret_sts_unexp_error;
12447: fnd_msg_pub.ADD;
12447: fnd_msg_pub.ADD;
12448: RAISE fnd_api.g_exc_unexpected_error;
12449: ELSE
12450: pn_varen_util.pvt_debug
12451: ( 'PN_VAREN_PVT: Update_Var_Rent: Reporting Frequency Code Success :'
12452: || p_upd_var_rent_rec.vrg_reptg_freq_code
12453: , 3);
12454: x_return_status := fnd_api.g_ret_sts_success;
12455: END IF;
12455: END IF;
12456: ELSE
12457: p_upd_var_rent_rec.vrg_reptg_freq_code := l_pn_var_rent_dates_rec.vrg_reptg_freq_code;
12458: pn_varen_util.pvt_debug
12459: ( 'PN_VAREN_PVT: Update_Var_Rent: l_pn_var_rent_dates_rec.vrg_reptg_freq_code : '
12460: || l_pn_var_rent_dates_rec.vrg_reptg_freq_code
12461: , 3);
12462: pn_varen_util.pvt_debug
12463: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.vrg_reptg_freq_code : '
12459: ( 'PN_VAREN_PVT: Update_Var_Rent: l_pn_var_rent_dates_rec.vrg_reptg_freq_code : '
12460: || l_pn_var_rent_dates_rec.vrg_reptg_freq_code
12461: , 3);
12462: pn_varen_util.pvt_debug
12463: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.vrg_reptg_freq_code : '
12464: || p_upd_var_rent_rec.vrg_reptg_freq_code
12465: , 3);
12466: END IF;
12467:
12465: , 3);
12466: END IF;
12467:
12468: pn_varen_util.pvt_debug
12469: ( 'PN_VAREN_PVT: Update_Var_Rent: Value of p_upd_var_rent_rec.reptg_freq_code is '
12470: || p_upd_var_rent_rec.reptg_freq_code
12471: , 3);
12472: pn_varen_util.pvt_debug
12473: ( 'PN_VAREN_PVT: Update_Var_Rent: Value of l_pn_var_rent_dates_rec.reptg_freq_code is '
12469: ( 'PN_VAREN_PVT: Update_Var_Rent: Value of p_upd_var_rent_rec.reptg_freq_code is '
12470: || p_upd_var_rent_rec.reptg_freq_code
12471: , 3);
12472: pn_varen_util.pvt_debug
12473: ( 'PN_VAREN_PVT: Update_Var_Rent: Value of l_pn_var_rent_dates_rec.reptg_freq_code is '
12474: || l_pn_var_rent_dates_rec.reptg_freq_code
12475: , 3);
12476: pn_varen_util.pvt_debug
12477: ( 'PN_VAREN_PVT: Update_Var_Rent: Value of p_upd_var_rent_rec.reptg_freq_meaning is '
12473: ( 'PN_VAREN_PVT: Update_Var_Rent: Value of l_pn_var_rent_dates_rec.reptg_freq_code is '
12474: || l_pn_var_rent_dates_rec.reptg_freq_code
12475: , 3);
12476: pn_varen_util.pvt_debug
12477: ( 'PN_VAREN_PVT: Update_Var_Rent: Value of p_upd_var_rent_rec.reptg_freq_meaning is '
12478: || p_upd_var_rent_rec.reptg_freq_meaning
12479: , 3);
12480:
12481: --pn_varen_util.pvt_debug.put_line ( 'PN_VAREN_PVT: Update_Var_Rent: Value of l_pn_var_rent_dates_rec.reptg_freq_meaning is '||l_pn_var_rent_dates_rec.reptg_freq_meaning, 3);
12477: ( 'PN_VAREN_PVT: Update_Var_Rent: Value of p_upd_var_rent_rec.reptg_freq_meaning is '
12478: || p_upd_var_rent_rec.reptg_freq_meaning
12479: , 3);
12480:
12481: --pn_varen_util.pvt_debug.put_line ( 'PN_VAREN_PVT: Update_Var_Rent: Value of l_pn_var_rent_dates_rec.reptg_freq_meaning is '||l_pn_var_rent_dates_rec.reptg_freq_meaning, 3);
12482:
12483: -- The below IF block has been commented and a new IF block has been added by Vivek on 02-DEC-2010
12484: /*
12485: IF ( p_upd_var_rent_rec.reptg_freq_code IS NULL
12499: ------------------------------------------------
12500: --Validation of Calculation Frequency
12501: -------------------------------------------------
12502: pn_varen_util.pvt_debug
12503: ('PN_VAREN_PVT: Update_Var_Rent: Calling Calculation Frequency Validation'
12504: , 3);
12505: pn_varen_util.validate_periods (p_lookup_type => g_payment_frequency
12506: , x_lookup_meaning => p_upd_var_rent_rec.reptg_freq_meaning
12507: , x_lookup_code => p_upd_var_rent_rec.reptg_freq_code
12505: pn_varen_util.validate_periods (p_lookup_type => g_payment_frequency
12506: , x_lookup_meaning => p_upd_var_rent_rec.reptg_freq_meaning
12507: , x_lookup_code => p_upd_var_rent_rec.reptg_freq_code
12508: , x_return_status => x_return_status);
12509: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Var_Rent: Calculation Frequency status:'
12510: || x_return_status
12511: , 3);
12512: pn_varen_util.pvt_debug
12513: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.reptg_freq_code :'
12509: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Var_Rent: Calculation Frequency status:'
12510: || x_return_status
12511: , 3);
12512: pn_varen_util.pvt_debug
12513: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.reptg_freq_code :'
12514: || p_upd_var_rent_rec.reptg_freq_code
12515: , 3);
12516: pn_varen_util.pvt_debug
12517: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.reptg_freq_meaning :'
12513: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.reptg_freq_code :'
12514: || p_upd_var_rent_rec.reptg_freq_code
12515: , 3);
12516: pn_varen_util.pvt_debug
12517: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.reptg_freq_meaning :'
12518: || p_upd_var_rent_rec.reptg_freq_meaning
12519: , 3);
12520:
12521: IF (x_return_status = fnd_api.g_ret_sts_error)
12525: , p_upd_var_rent_rec.reptg_freq_meaning
12526: || '/'
12527: || p_upd_var_rent_rec.reptg_freq_code);
12528: pn_varen_util.pvt_debug
12529: ( 'PN_VAREN_PVT: Update_Var_Rent: Calculation Frequency Meaning Expected Error :'
12530: || p_upd_var_rent_rec.reptg_freq_meaning
12531: , 3);
12532: fnd_msg_pub.ADD;
12533: RAISE fnd_api.g_exc_error;
12538: , p_upd_var_rent_rec.reptg_freq_meaning
12539: || '/'
12540: || p_upd_var_rent_rec.reptg_freq_code);
12541: pn_varen_util.pvt_debug
12542: ( 'PN_VAREN_PVT: Update_Var_Rent: Calculation Frequency Meaning Un-Expected Error :'
12543: || p_upd_var_rent_rec.reptg_freq_meaning
12544: , 3);
12545: fnd_msg_pub.ADD;
12546: RAISE fnd_api.g_exc_unexpected_error;
12545: fnd_msg_pub.ADD;
12546: RAISE fnd_api.g_exc_unexpected_error;
12547: ELSE
12548: pn_varen_util.pvt_debug
12549: ( 'PN_VAREN_PVT: Update_Var_Rent: Calculation Frequency Code Success :'
12550: || p_upd_var_rent_rec.reptg_freq_code
12551: , 3);
12552: x_return_status := fnd_api.g_ret_sts_success;
12553: END IF;
12553: END IF;
12554: ELSE
12555: p_upd_var_rent_rec.reptg_freq_code := l_pn_var_rent_dates_rec.reptg_freq_code;
12556: pn_varen_util.pvt_debug
12557: ( 'PN_VAREN_PVT: Update_Var_Rent: l_pn_var_rent_dates_rec.reptg_freq_code : '
12558: || l_pn_var_rent_dates_rec.reptg_freq_code
12559: , 3);
12560: pn_varen_util.pvt_debug
12561: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.reptg_freq_code : '
12557: ( 'PN_VAREN_PVT: Update_Var_Rent: l_pn_var_rent_dates_rec.reptg_freq_code : '
12558: || l_pn_var_rent_dates_rec.reptg_freq_code
12559: , 3);
12560: pn_varen_util.pvt_debug
12561: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.reptg_freq_code : '
12562: || p_upd_var_rent_rec.reptg_freq_code
12563: , 3);
12564: END IF;
12565:
12567: OR p_upd_var_rent_rec.reptg_day_of_month = pn_varen_util.g_pn_miss_num)
12568: THEN
12569: p_upd_var_rent_rec.reptg_day_of_month := l_pn_var_rent_dates_rec.reptg_day_of_month;
12570: pn_varen_util.pvt_debug
12571: ( 'PN_VAREN_PVT: Update_Var_Rent: l_pn_var_rent_dates_rec.reptg_day_of_month : '
12572: || l_pn_var_rent_dates_rec.reptg_day_of_month
12573: , 3);
12574: pn_varen_util.pvt_debug
12575: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.reptg_day_of_month : '
12571: ( 'PN_VAREN_PVT: Update_Var_Rent: l_pn_var_rent_dates_rec.reptg_day_of_month : '
12572: || l_pn_var_rent_dates_rec.reptg_day_of_month
12573: , 3);
12574: pn_varen_util.pvt_debug
12575: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.reptg_day_of_month : '
12576: || p_upd_var_rent_rec.reptg_day_of_month
12577: , 3);
12578: -- ELSE condition has been added by Vivek on 03-DEC-2010 to raise an error if the reptg_day_of_month value is not in 1-28 range
12579: ELSE
12591: OR p_upd_var_rent_rec.reptg_days_after = pn_varen_util.g_pn_miss_num)
12592: THEN
12593: p_upd_var_rent_rec.reptg_days_after := l_pn_var_rent_dates_rec.reptg_days_after;
12594: pn_varen_util.pvt_debug
12595: ( 'PN_VAREN_PVT: Update_Var_Rent: l_pn_var_rent_dates_rec.reptg_days_after : '
12596: || l_pn_var_rent_dates_rec.reptg_days_after
12597: , 3);
12598: pn_varen_util.pvt_debug
12599: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.reptg_days_after : '
12595: ( 'PN_VAREN_PVT: Update_Var_Rent: l_pn_var_rent_dates_rec.reptg_days_after : '
12596: || l_pn_var_rent_dates_rec.reptg_days_after
12597: , 3);
12598: pn_varen_util.pvt_debug
12599: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.reptg_days_after : '
12600: || p_upd_var_rent_rec.reptg_days_after
12601: , 3);
12602: -- ELSE condition has been added by Vivek on 03-DEC-2010 to raise an error if the reptg_day_of_month value is not in 1-28 range
12603: ELSE
12610: RAISE fnd_api.g_exc_error;
12611: END IF;
12612: END IF;
12613:
12614: -- pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Var_Rent: Value of p_upd_var_rent_rec.invg_day_of_month is '||p_upd_var_rent_rec.invg_day_of_month, 3);
12615: -- pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Var_Rent: Value of l_pn_var_rent_dates_rec.invg_day_of_month is '||l_pn_var_rent_dates_rec.invg_day_of_month, 3);
12616: IF ( p_upd_var_rent_rec.invg_day_of_month IS NULL
12617: OR p_upd_var_rent_rec.invg_day_of_month = pn_varen_util.g_pn_miss_num)
12618: THEN
12611: END IF;
12612: END IF;
12613:
12614: -- pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Var_Rent: Value of p_upd_var_rent_rec.invg_day_of_month is '||p_upd_var_rent_rec.invg_day_of_month, 3);
12615: -- pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Var_Rent: Value of l_pn_var_rent_dates_rec.invg_day_of_month is '||l_pn_var_rent_dates_rec.invg_day_of_month, 3);
12616: IF ( p_upd_var_rent_rec.invg_day_of_month IS NULL
12617: OR p_upd_var_rent_rec.invg_day_of_month = pn_varen_util.g_pn_miss_num)
12618: THEN
12619: p_upd_var_rent_rec.invg_day_of_month := l_pn_var_rent_dates_rec.invg_day_of_month;
12617: OR p_upd_var_rent_rec.invg_day_of_month = pn_varen_util.g_pn_miss_num)
12618: THEN
12619: p_upd_var_rent_rec.invg_day_of_month := l_pn_var_rent_dates_rec.invg_day_of_month;
12620: pn_varen_util.pvt_debug
12621: ( 'PN_VAREN_PVT: Update_Var_Rent: l_pn_var_rent_dates_rec.invg_day_of_month : '
12622: || l_pn_var_rent_dates_rec.invg_day_of_month
12623: , 3);
12624: pn_varen_util.pvt_debug
12625: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.invg_day_of_month : '
12621: ( 'PN_VAREN_PVT: Update_Var_Rent: l_pn_var_rent_dates_rec.invg_day_of_month : '
12622: || l_pn_var_rent_dates_rec.invg_day_of_month
12623: , 3);
12624: pn_varen_util.pvt_debug
12625: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.invg_day_of_month : '
12626: || p_upd_var_rent_rec.invg_day_of_month
12627: , 3);
12628: END IF;
12629:
12631: OR p_upd_var_rent_rec.invg_days_after = pn_varen_util.g_pn_miss_num)
12632: THEN
12633: p_upd_var_rent_rec.invg_days_after := l_pn_var_rent_dates_rec.invg_days_after;
12634: pn_varen_util.pvt_debug
12635: ( 'PN_VAREN_PVT: Update_Var_Rent: l_pn_var_rent_dates_rec.invg_days_after : '
12636: || l_pn_var_rent_dates_rec.invg_days_after
12637: , 3);
12638: pn_varen_util.pvt_debug
12639: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.invg_days_after : '
12635: ( 'PN_VAREN_PVT: Update_Var_Rent: l_pn_var_rent_dates_rec.invg_days_after : '
12636: || l_pn_var_rent_dates_rec.invg_days_after
12637: , 3);
12638: pn_varen_util.pvt_debug
12639: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.invg_days_after : '
12640: || p_upd_var_rent_rec.invg_days_after
12641: , 3);
12642: -- ELSE condition has been added by Vivek on 03-DEC-2010 to raise an error if the reptg_day_of_month value is not in 1-28 range
12643: ELSE
12655: OR p_upd_var_rent_rec.comments = pn_varen_util.g_pn_miss_char)
12656: THEN
12657: p_upd_var_rent_rec.comments := l_pn_var_rent_dates_rec.comments;
12658: pn_varen_util.pvt_debug
12659: ( 'PN_VAREN_PVT: Update_Var_Rent: l_pn_var_rent_dates_rec.comments : '
12660: || l_pn_var_rent_dates_rec.comments
12661: , 3);
12662: pn_varen_util.pvt_debug
12663: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.comments : '
12659: ( 'PN_VAREN_PVT: Update_Var_Rent: l_pn_var_rent_dates_rec.comments : '
12660: || l_pn_var_rent_dates_rec.comments
12661: , 3);
12662: pn_varen_util.pvt_debug
12663: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.comments : '
12664: || p_upd_var_rent_rec.comments
12665: , 3);
12666: ELSE
12667: pn_varen_util.pvt_debug
12664: || p_upd_var_rent_rec.comments
12665: , 3);
12666: ELSE
12667: pn_varen_util.pvt_debug
12668: ('PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.comments IS NOT NULL'
12669: , 2);
12670: pn_varen_util.pvt_debug
12671: ( 'PN_VAREN_PVT: Update_Var_Rent: l_pn_var_rent_dates_rec.comments : '
12672: || l_pn_var_rent_dates_rec.comments
12667: pn_varen_util.pvt_debug
12668: ('PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.comments IS NOT NULL'
12669: , 2);
12670: pn_varen_util.pvt_debug
12671: ( 'PN_VAREN_PVT: Update_Var_Rent: l_pn_var_rent_dates_rec.comments : '
12672: || l_pn_var_rent_dates_rec.comments
12673: , 3);
12674: pn_varen_util.pvt_debug
12675: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.comments : '
12671: ( 'PN_VAREN_PVT: Update_Var_Rent: l_pn_var_rent_dates_rec.comments : '
12672: || l_pn_var_rent_dates_rec.comments
12673: , 3);
12674: pn_varen_util.pvt_debug
12675: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.comments : '
12676: || p_upd_var_rent_rec.comments
12677: , 3);
12678: END IF;
12679:
12677: , 3);
12678: END IF;
12679:
12680: pn_varen_util.pvt_debug
12681: ( 'PN_VAREN_PVT: Update_Var_Rent: Value of p_upd_var_rent_rec.var_rent_date_id is : '
12682: || p_upd_var_rent_rec.var_rent_date_id
12683: , 3);
12684: pn_varen_util.pvt_debug
12685: ( 'PN_VAREN_PVT: Update_Var_Rent: Value of p_upd_var_rent_rec.invg_freq_code is '
12681: ( 'PN_VAREN_PVT: Update_Var_Rent: Value of p_upd_var_rent_rec.var_rent_date_id is : '
12682: || p_upd_var_rent_rec.var_rent_date_id
12683: , 3);
12684: pn_varen_util.pvt_debug
12685: ( 'PN_VAREN_PVT: Update_Var_Rent: Value of p_upd_var_rent_rec.invg_freq_code is '
12686: || p_upd_var_rent_rec.invg_freq_code
12687: , 3);
12688: pn_varen_util.pvt_debug
12689: ( 'PN_VAREN_PVT: Update_Var_Rent: Value of l_pn_var_rent_dates_rec.invg_freq_code is '
12685: ( 'PN_VAREN_PVT: Update_Var_Rent: Value of p_upd_var_rent_rec.invg_freq_code is '
12686: || p_upd_var_rent_rec.invg_freq_code
12687: , 3);
12688: pn_varen_util.pvt_debug
12689: ( 'PN_VAREN_PVT: Update_Var_Rent: Value of l_pn_var_rent_dates_rec.invg_freq_code is '
12690: || l_pn_var_rent_dates_rec.invg_freq_code
12691: , 3);
12692: pn_varen_util.pvt_debug
12693: ( 'PN_VAREN_PVT: Update_Var_Rent: Value of p_upd_var_rent_rec.invg_freq_meaning is '
12689: ( 'PN_VAREN_PVT: Update_Var_Rent: Value of l_pn_var_rent_dates_rec.invg_freq_code is '
12690: || l_pn_var_rent_dates_rec.invg_freq_code
12691: , 3);
12692: pn_varen_util.pvt_debug
12693: ( 'PN_VAREN_PVT: Update_Var_Rent: Value of p_upd_var_rent_rec.invg_freq_meaning is '
12694: || p_upd_var_rent_rec.invg_freq_meaning
12695: , 3);
12696:
12697: -- The below IF block has been commented and a new IF block has been added by Vivek on 02-DEC-2010
12713: ------------------------------------------------
12714: --Validation of Invoicing Frequency -- INVG_FREQ_CODE
12715: -------------------------------------------------
12716: pn_varen_util.pvt_debug
12717: ('PN_VAREN_PVT: Update_Var_Rent: Calling Invoicing Frequency Validation'
12718: , 3);
12719: pn_varen_util.validate_periods (p_lookup_type => g_payment_frequency
12720: , x_lookup_meaning => p_upd_var_rent_rec.invg_freq_meaning
12721: , x_lookup_code => p_upd_var_rent_rec.invg_freq_code
12720: , x_lookup_meaning => p_upd_var_rent_rec.invg_freq_meaning
12721: , x_lookup_code => p_upd_var_rent_rec.invg_freq_code
12722: , x_return_status => x_return_status);
12723: pn_varen_util.pvt_debug
12724: ( 'PN_VAREN_PVT: Update_Var_Rent: Invoicing Frequency Output Code :'
12725: || p_upd_var_rent_rec.invg_freq_code
12726: , 3);
12727: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Var_Rent: Invoicing Frequency status :'
12728: || x_return_status
12723: pn_varen_util.pvt_debug
12724: ( 'PN_VAREN_PVT: Update_Var_Rent: Invoicing Frequency Output Code :'
12725: || p_upd_var_rent_rec.invg_freq_code
12726: , 3);
12727: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Var_Rent: Invoicing Frequency status :'
12728: || x_return_status
12729: , 3);
12730: pn_varen_util.pvt_debug
12731: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.invg_freq_code :'
12727: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Var_Rent: Invoicing Frequency status :'
12728: || x_return_status
12729: , 3);
12730: pn_varen_util.pvt_debug
12731: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.invg_freq_code :'
12732: || p_upd_var_rent_rec.invg_freq_code
12733: , 3);
12734: pn_varen_util.pvt_debug
12735: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.invg_freq_meaning :'
12731: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.invg_freq_code :'
12732: || p_upd_var_rent_rec.invg_freq_code
12733: , 3);
12734: pn_varen_util.pvt_debug
12735: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.invg_freq_meaning :'
12736: || p_upd_var_rent_rec.invg_freq_meaning
12737: , 3);
12738:
12739: IF (x_return_status = fnd_api.g_ret_sts_error)
12743: , p_upd_var_rent_rec.invg_freq_meaning
12744: || '/'
12745: || p_upd_var_rent_rec.invg_freq_code);
12746: pn_varen_util.pvt_debug
12747: ( 'PN_VAREN_PVT: Update_Var_Rent: Invoicing Frequency Meaning Expected Error :'
12748: || p_upd_var_rent_rec.invg_freq_meaning
12749: , 3);
12750: fnd_msg_pub.ADD;
12751: RAISE fnd_api.g_exc_error;
12757: , p_upd_var_rent_rec.invg_freq_meaning
12758: || '/'
12759: || p_upd_var_rent_rec.invg_freq_code);
12760: pn_varen_util.pvt_debug
12761: ( 'PN_VAREN_PVT: Update_Var_Rent: Invoicing Frequency Meaning Un-Expected Error :'
12762: || p_upd_var_rent_rec.invg_freq_meaning
12763: , 3);
12764: --x_return_status := fnd_api.g_ret_sts_unexp_error;
12765: fnd_msg_pub.ADD;
12765: fnd_msg_pub.ADD;
12766: RAISE fnd_api.g_exc_unexpected_error;
12767: ELSE
12768: pn_varen_util.pvt_debug
12769: ( 'PN_VAREN_PVT: Update_Var_Rent: Invoicing Frequency Code Success :'
12770: || p_upd_var_rent_rec.invg_freq_code
12771: , 3);
12772: x_return_status := fnd_api.g_ret_sts_success;
12773: END IF;
12773: END IF;
12774: ELSE
12775: p_upd_var_rent_rec.invg_freq_code := l_pn_var_rent_dates_rec.invg_freq_code;
12776: pn_varen_util.pvt_debug
12777: ( 'PN_VAREN_PVT: Update_Var_Rent: l_pn_var_rent_dates_rec.invg_freq_code : '
12778: || l_pn_var_rent_dates_rec.invg_freq_code
12779: , 3);
12780: pn_varen_util.pvt_debug
12781: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.invg_freq_code : '
12777: ( 'PN_VAREN_PVT: Update_Var_Rent: l_pn_var_rent_dates_rec.invg_freq_code : '
12778: || l_pn_var_rent_dates_rec.invg_freq_code
12779: , 3);
12780: pn_varen_util.pvt_debug
12781: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.invg_freq_code : '
12782: || p_upd_var_rent_rec.invg_freq_code
12783: , 3);
12784: x_return_status := fnd_api.g_ret_sts_success;
12785: END IF;
12851: l_undo_periods := 'Y';
12852: END IF;
12853:
12854: -- End of IF statements added by Vivek on 07-Dec-2010
12855: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Var_Rent: Value of l_undo_periods is '
12856: || l_undo_periods
12857: , 3);
12858:
12859: IF ( p_upd_var_rent_rec.commencement_date IS NOT NULL
12874:
12875: IF l_undo_periods = 'Y'
12876: THEN
12877: -- call undo periods procedure
12878: pn_varen_util.pvt_debug ('PN_VAREN_PVT: Update_Var_Rent: Start of undo_periods Procedure'
12879: , 3);
12880: undo_periods (p_api_version => 1.0
12881: , p_init_msg_list => fnd_api.g_false
12882: , p_commit => fnd_api.g_false
12887: , x_return_status => x_return_status
12888: , x_msg_count => x_msg_count
12889: , x_msg_data => x_msg_data);
12890: pn_varen_util.pvt_debug
12891: ( 'PN_VAREN_PVT: Update_Var_Rent: Status of undo_periods Procedure is '
12892: || x_return_status
12893: , 3);
12894: pn_varen_util.pvt_debug
12895: ( 'PN_VAREN_PVT: Update_Var_Rent: Error count of undo_periods Procedure is '
12891: ( 'PN_VAREN_PVT: Update_Var_Rent: Status of undo_periods Procedure is '
12892: || x_return_status
12893: , 3);
12894: pn_varen_util.pvt_debug
12895: ( 'PN_VAREN_PVT: Update_Var_Rent: Error count of undo_periods Procedure is '
12896: || x_msg_count
12897: , 3);
12898:
12899:
12915: OR p_upd_var_rent_rec.audit_day_of_month = pn_varen_util.g_pn_miss_num)
12916: THEN
12917: p_upd_var_rent_rec.audit_day_of_month := l_pn_var_rent_dates_rec.audit_day_of_month;
12918: pn_varen_util.pvt_debug
12919: ( 'PN_VAREN_PVT: Update_Var_Rent: l_pn_var_rent_dates_rec.audit_day_of_month : '
12920: || l_pn_var_rent_dates_rec.audit_day_of_month
12921: , 3);
12922: pn_varen_util.pvt_debug
12923: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.audit_day_of_month : '
12919: ( 'PN_VAREN_PVT: Update_Var_Rent: l_pn_var_rent_dates_rec.audit_day_of_month : '
12920: || l_pn_var_rent_dates_rec.audit_day_of_month
12921: , 3);
12922: pn_varen_util.pvt_debug
12923: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.audit_day_of_month : '
12924: || p_upd_var_rent_rec.audit_day_of_month
12925: , 3);
12926: END IF;
12927:
12929: OR p_upd_var_rent_rec.audit_days_after = pn_varen_util.g_pn_miss_num)
12930: THEN
12931: p_upd_var_rent_rec.audit_days_after := l_pn_var_rent_dates_rec.audit_days_after;
12932: pn_varen_util.pvt_debug
12933: ( 'PN_VAREN_PVT: Update_Var_Rent: l_pn_var_rent_dates_rec.audit_days_after : '
12934: || l_pn_var_rent_dates_rec.audit_days_after
12935: , 3);
12936: pn_varen_util.pvt_debug
12937: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.audit_days_after : '
12933: ( 'PN_VAREN_PVT: Update_Var_Rent: l_pn_var_rent_dates_rec.audit_days_after : '
12934: || l_pn_var_rent_dates_rec.audit_days_after
12935: , 3);
12936: pn_varen_util.pvt_debug
12937: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.audit_days_after : '
12938: || p_upd_var_rent_rec.audit_days_after
12939: , 3);
12940: END IF;
12941:
12943: OR p_upd_var_rent_rec.recon_day_of_month = pn_varen_util.g_pn_miss_num)
12944: THEN
12945: p_upd_var_rent_rec.recon_day_of_month := l_pn_var_rent_dates_rec.recon_day_of_month;
12946: pn_varen_util.pvt_debug
12947: ( 'PN_VAREN_PVT: Update_Var_Rent: l_pn_var_rent_dates_rec.recon_day_of_month : '
12948: || l_pn_var_rent_dates_rec.recon_day_of_month
12949: , 3);
12950: pn_varen_util.pvt_debug
12951: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.recon_day_of_month : '
12947: ( 'PN_VAREN_PVT: Update_Var_Rent: l_pn_var_rent_dates_rec.recon_day_of_month : '
12948: || l_pn_var_rent_dates_rec.recon_day_of_month
12949: , 3);
12950: pn_varen_util.pvt_debug
12951: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.recon_day_of_month : '
12952: || p_upd_var_rent_rec.recon_day_of_month
12953: , 3);
12954: END IF;
12955:
12957: OR p_upd_var_rent_rec.recon_days_after = pn_varen_util.g_pn_miss_num)
12958: THEN
12959: p_upd_var_rent_rec.recon_days_after := l_pn_var_rent_dates_rec.recon_days_after;
12960: pn_varen_util.pvt_debug
12961: ( 'PN_VAREN_PVT: Update_Var_Rent: l_pn_var_rent_dates_rec.recon_days_after : '
12962: || l_pn_var_rent_dates_rec.recon_days_after
12963: , 3);
12964: pn_varen_util.pvt_debug
12965: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.recon_days_after : '
12961: ( 'PN_VAREN_PVT: Update_Var_Rent: l_pn_var_rent_dates_rec.recon_days_after : '
12962: || l_pn_var_rent_dates_rec.recon_days_after
12963: , 3);
12964: pn_varen_util.pvt_debug
12965: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.recon_days_after : '
12966: || p_upd_var_rent_rec.recon_days_after
12967: , 3);
12968: END IF;
12969:
12971: OR p_upd_var_rent_rec.dates_attribute_category = pn_varen_util.g_pn_miss_char)
12972: THEN
12973: p_upd_var_rent_rec.dates_attribute_category := l_pn_var_rent_dates_rec.attribute_category;
12974: pn_varen_util.pvt_debug
12975: ( 'PN_VAREN_PVT: Update_Var_Rent: l_pn_var_rent_dates_rec.attribute_category : '
12976: || l_pn_var_rent_dates_rec.attribute_category
12977: , 3);
12978: pn_varen_util.pvt_debug
12979: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.dates_attribute_category : '
12975: ( 'PN_VAREN_PVT: Update_Var_Rent: l_pn_var_rent_dates_rec.attribute_category : '
12976: || l_pn_var_rent_dates_rec.attribute_category
12977: , 3);
12978: pn_varen_util.pvt_debug
12979: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.dates_attribute_category : '
12980: || p_upd_var_rent_rec.dates_attribute_category
12981: , 3);
12982: END IF;
12983:
12985: OR p_upd_var_rent_rec.dates_attribute1 = pn_varen_util.g_pn_miss_char)
12986: THEN
12987: p_upd_var_rent_rec.dates_attribute1 := l_pn_var_rent_dates_rec.attribute1;
12988: pn_varen_util.pvt_debug
12989: ( 'PN_VAREN_PVT: Update_Var_Rent: l_pn_var_rent_dates_rec.attribute1 : '
12990: || l_pn_var_rent_dates_rec.attribute1
12991: , 3);
12992: pn_varen_util.pvt_debug
12993: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.dates_attribute1 : '
12989: ( 'PN_VAREN_PVT: Update_Var_Rent: l_pn_var_rent_dates_rec.attribute1 : '
12990: || l_pn_var_rent_dates_rec.attribute1
12991: , 3);
12992: pn_varen_util.pvt_debug
12993: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.dates_attribute1 : '
12994: || p_upd_var_rent_rec.dates_attribute1
12995: , 3);
12996: END IF;
12997:
12999: OR p_upd_var_rent_rec.dates_attribute2 = pn_varen_util.g_pn_miss_char)
13000: THEN
13001: p_upd_var_rent_rec.dates_attribute2 := l_pn_var_rent_dates_rec.attribute2;
13002: pn_varen_util.pvt_debug
13003: ( 'PN_VAREN_PVT: Update_Var_Rent: l_pn_var_rent_dates_rec.attribute2 : '
13004: || l_pn_var_rent_dates_rec.attribute2
13005: , 3);
13006: pn_varen_util.pvt_debug
13007: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.dates_attribute2 : '
13003: ( 'PN_VAREN_PVT: Update_Var_Rent: l_pn_var_rent_dates_rec.attribute2 : '
13004: || l_pn_var_rent_dates_rec.attribute2
13005: , 3);
13006: pn_varen_util.pvt_debug
13007: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.dates_attribute2 : '
13008: || p_upd_var_rent_rec.dates_attribute2
13009: , 3);
13010: END IF;
13011:
13013: OR p_upd_var_rent_rec.dates_attribute3 = pn_varen_util.g_pn_miss_char)
13014: THEN
13015: p_upd_var_rent_rec.dates_attribute3 := l_pn_var_rent_dates_rec.attribute3;
13016: pn_varen_util.pvt_debug
13017: ( 'PN_VAREN_PVT: Update_Var_Rent: l_pn_var_rent_dates_rec.attribute3 : '
13018: || l_pn_var_rent_dates_rec.attribute3
13019: , 3);
13020: pn_varen_util.pvt_debug
13021: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.dates_attribute3 : '
13017: ( 'PN_VAREN_PVT: Update_Var_Rent: l_pn_var_rent_dates_rec.attribute3 : '
13018: || l_pn_var_rent_dates_rec.attribute3
13019: , 3);
13020: pn_varen_util.pvt_debug
13021: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.dates_attribute3 : '
13022: || p_upd_var_rent_rec.dates_attribute3
13023: , 3);
13024: END IF;
13025:
13027: OR p_upd_var_rent_rec.dates_attribute4 = pn_varen_util.g_pn_miss_char)
13028: THEN
13029: p_upd_var_rent_rec.dates_attribute4 := l_pn_var_rent_dates_rec.attribute4;
13030: pn_varen_util.pvt_debug
13031: ( 'PN_VAREN_PVT: Update_Var_Rent: l_pn_var_rent_dates_rec.attribute4 : '
13032: || l_pn_var_rent_dates_rec.attribute4
13033: , 3);
13034: pn_varen_util.pvt_debug
13035: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.dates_attribute4 : '
13031: ( 'PN_VAREN_PVT: Update_Var_Rent: l_pn_var_rent_dates_rec.attribute4 : '
13032: || l_pn_var_rent_dates_rec.attribute4
13033: , 3);
13034: pn_varen_util.pvt_debug
13035: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.dates_attribute4 : '
13036: || p_upd_var_rent_rec.dates_attribute4
13037: , 3);
13038: END IF;
13039:
13041: OR p_upd_var_rent_rec.dates_attribute5 = pn_varen_util.g_pn_miss_char)
13042: THEN
13043: p_upd_var_rent_rec.dates_attribute5 := l_pn_var_rent_dates_rec.attribute5;
13044: pn_varen_util.pvt_debug
13045: ( 'PN_VAREN_PVT: Update_Var_Rent: l_pn_var_rent_dates_rec.attribute5 : '
13046: || l_pn_var_rent_dates_rec.attribute5
13047: , 3);
13048: pn_varen_util.pvt_debug
13049: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.dates_attribute5 : '
13045: ( 'PN_VAREN_PVT: Update_Var_Rent: l_pn_var_rent_dates_rec.attribute5 : '
13046: || l_pn_var_rent_dates_rec.attribute5
13047: , 3);
13048: pn_varen_util.pvt_debug
13049: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.dates_attribute5 : '
13050: || p_upd_var_rent_rec.dates_attribute5
13051: , 3);
13052: END IF;
13053:
13055: OR p_upd_var_rent_rec.dates_attribute6 = pn_varen_util.g_pn_miss_char)
13056: THEN
13057: p_upd_var_rent_rec.dates_attribute6 := l_pn_var_rent_dates_rec.attribute6;
13058: pn_varen_util.pvt_debug
13059: ( 'PN_VAREN_PVT: Update_Var_Rent: l_pn_var_rent_dates_rec.attribute6 : '
13060: || l_pn_var_rent_dates_rec.attribute6
13061: , 3);
13062: pn_varen_util.pvt_debug
13063: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.dates_attribute6 : '
13059: ( 'PN_VAREN_PVT: Update_Var_Rent: l_pn_var_rent_dates_rec.attribute6 : '
13060: || l_pn_var_rent_dates_rec.attribute6
13061: , 3);
13062: pn_varen_util.pvt_debug
13063: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.dates_attribute6 : '
13064: || p_upd_var_rent_rec.dates_attribute6
13065: , 3);
13066: END IF;
13067:
13069: OR p_upd_var_rent_rec.dates_attribute7 = pn_varen_util.g_pn_miss_char)
13070: THEN
13071: p_upd_var_rent_rec.dates_attribute7 := l_pn_var_rent_dates_rec.attribute7;
13072: pn_varen_util.pvt_debug
13073: ( 'PN_VAREN_PVT: Update_Var_Rent: l_pn_var_rent_dates_rec.attribute7 : '
13074: || l_pn_var_rent_dates_rec.attribute7
13075: , 3);
13076: pn_varen_util.pvt_debug
13077: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.dates_attribute7 : '
13073: ( 'PN_VAREN_PVT: Update_Var_Rent: l_pn_var_rent_dates_rec.attribute7 : '
13074: || l_pn_var_rent_dates_rec.attribute7
13075: , 3);
13076: pn_varen_util.pvt_debug
13077: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.dates_attribute7 : '
13078: || p_upd_var_rent_rec.dates_attribute7
13079: , 3);
13080: END IF;
13081:
13083: OR p_upd_var_rent_rec.dates_attribute8 = pn_varen_util.g_pn_miss_char)
13084: THEN
13085: p_upd_var_rent_rec.dates_attribute8 := l_pn_var_rent_dates_rec.attribute8;
13086: pn_varen_util.pvt_debug
13087: ( 'PN_VAREN_PVT: Update_Var_Rent: l_pn_var_rent_dates_rec.attribute8 : '
13088: || l_pn_var_rent_dates_rec.attribute8
13089: , 3);
13090: pn_varen_util.pvt_debug
13091: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.dates_attribute8 : '
13087: ( 'PN_VAREN_PVT: Update_Var_Rent: l_pn_var_rent_dates_rec.attribute8 : '
13088: || l_pn_var_rent_dates_rec.attribute8
13089: , 3);
13090: pn_varen_util.pvt_debug
13091: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.dates_attribute8 : '
13092: || p_upd_var_rent_rec.dates_attribute8
13093: , 3);
13094: END IF;
13095:
13097: OR p_upd_var_rent_rec.dates_attribute9 = pn_varen_util.g_pn_miss_char)
13098: THEN
13099: p_upd_var_rent_rec.dates_attribute9 := l_pn_var_rent_dates_rec.attribute9;
13100: pn_varen_util.pvt_debug
13101: ( 'PN_VAREN_PVT: Update_Var_Rent: l_pn_var_rent_dates_rec.attribute9 : '
13102: || l_pn_var_rent_dates_rec.attribute9
13103: , 3);
13104: pn_varen_util.pvt_debug
13105: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.dates_attribute9 : '
13101: ( 'PN_VAREN_PVT: Update_Var_Rent: l_pn_var_rent_dates_rec.attribute9 : '
13102: || l_pn_var_rent_dates_rec.attribute9
13103: , 3);
13104: pn_varen_util.pvt_debug
13105: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.dates_attribute9 : '
13106: || p_upd_var_rent_rec.dates_attribute9
13107: , 3);
13108: END IF;
13109:
13111: OR p_upd_var_rent_rec.dates_attribute10 = pn_varen_util.g_pn_miss_char)
13112: THEN
13113: p_upd_var_rent_rec.dates_attribute10 := l_pn_var_rent_dates_rec.attribute10;
13114: pn_varen_util.pvt_debug
13115: ( 'PN_VAREN_PVT: Update_Var_Rent: l_pn_var_rent_dates_rec.attribute10 : '
13116: || l_pn_var_rent_dates_rec.attribute10
13117: , 3);
13118: pn_varen_util.pvt_debug
13119: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.dates_attribute10 : '
13115: ( 'PN_VAREN_PVT: Update_Var_Rent: l_pn_var_rent_dates_rec.attribute10 : '
13116: || l_pn_var_rent_dates_rec.attribute10
13117: , 3);
13118: pn_varen_util.pvt_debug
13119: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.dates_attribute10 : '
13120: || p_upd_var_rent_rec.dates_attribute10
13121: , 3);
13122: END IF;
13123:
13125: OR p_upd_var_rent_rec.dates_attribute11 = pn_varen_util.g_pn_miss_char)
13126: THEN
13127: p_upd_var_rent_rec.dates_attribute11 := l_pn_var_rent_dates_rec.attribute11;
13128: pn_varen_util.pvt_debug
13129: ( 'PN_VAREN_PVT: Update_Var_Rent: l_pn_var_rent_dates_rec.attribute11 : '
13130: || l_pn_var_rent_dates_rec.attribute11
13131: , 3);
13132: pn_varen_util.pvt_debug
13133: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.dates_attribute11 : '
13129: ( 'PN_VAREN_PVT: Update_Var_Rent: l_pn_var_rent_dates_rec.attribute11 : '
13130: || l_pn_var_rent_dates_rec.attribute11
13131: , 3);
13132: pn_varen_util.pvt_debug
13133: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.dates_attribute11 : '
13134: || p_upd_var_rent_rec.dates_attribute11
13135: , 3);
13136: END IF;
13137:
13139: OR p_upd_var_rent_rec.dates_attribute12 = pn_varen_util.g_pn_miss_char)
13140: THEN
13141: p_upd_var_rent_rec.dates_attribute12 := l_pn_var_rent_dates_rec.attribute12;
13142: pn_varen_util.pvt_debug
13143: ( 'PN_VAREN_PVT: Update_Var_Rent: l_pn_var_rent_dates_rec.attribute12 : '
13144: || l_pn_var_rent_dates_rec.attribute12
13145: , 3);
13146: pn_varen_util.pvt_debug
13147: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.dates_attribute12 : '
13143: ( 'PN_VAREN_PVT: Update_Var_Rent: l_pn_var_rent_dates_rec.attribute12 : '
13144: || l_pn_var_rent_dates_rec.attribute12
13145: , 3);
13146: pn_varen_util.pvt_debug
13147: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.dates_attribute12 : '
13148: || p_upd_var_rent_rec.dates_attribute12
13149: , 3);
13150: END IF;
13151:
13153: OR p_upd_var_rent_rec.dates_attribute13 = pn_varen_util.g_pn_miss_char)
13154: THEN
13155: p_upd_var_rent_rec.dates_attribute13 := l_pn_var_rent_dates_rec.attribute13;
13156: pn_varen_util.pvt_debug
13157: ( 'PN_VAREN_PVT: Update_Var_Rent: l_pn_var_rent_dates_rec.attribute13 : '
13158: || l_pn_var_rent_dates_rec.attribute13
13159: , 3);
13160: pn_varen_util.pvt_debug
13161: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.dates_attribute13 : '
13157: ( 'PN_VAREN_PVT: Update_Var_Rent: l_pn_var_rent_dates_rec.attribute13 : '
13158: || l_pn_var_rent_dates_rec.attribute13
13159: , 3);
13160: pn_varen_util.pvt_debug
13161: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.dates_attribute13 : '
13162: || p_upd_var_rent_rec.dates_attribute13
13163: , 3);
13164: END IF;
13165:
13167: OR p_upd_var_rent_rec.dates_attribute14 = pn_varen_util.g_pn_miss_char)
13168: THEN
13169: p_upd_var_rent_rec.dates_attribute14 := l_pn_var_rent_dates_rec.attribute14;
13170: pn_varen_util.pvt_debug
13171: ( 'PN_VAREN_PVT: Update_Var_Rent: l_pn_var_rent_dates_rec.attribute14 : '
13172: || l_pn_var_rent_dates_rec.attribute14
13173: , 3);
13174: pn_varen_util.pvt_debug
13175: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.dates_attribute14 : '
13171: ( 'PN_VAREN_PVT: Update_Var_Rent: l_pn_var_rent_dates_rec.attribute14 : '
13172: || l_pn_var_rent_dates_rec.attribute14
13173: , 3);
13174: pn_varen_util.pvt_debug
13175: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.dates_attribute14 : '
13176: || p_upd_var_rent_rec.dates_attribute14
13177: , 3);
13178: END IF;
13179:
13181: OR p_upd_var_rent_rec.dates_attribute15 = pn_varen_util.g_pn_miss_char)
13182: THEN
13183: p_upd_var_rent_rec.dates_attribute15 := l_pn_var_rent_dates_rec.attribute15;
13184: pn_varen_util.pvt_debug
13185: ( 'PN_VAREN_PVT: Update_Var_Rent: l_pn_var_rent_dates_rec.attribute15 : '
13186: || l_pn_var_rent_dates_rec.attribute15
13187: , 3);
13188: pn_varen_util.pvt_debug
13189: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.dates_attribute15 : '
13185: ( 'PN_VAREN_PVT: Update_Var_Rent: l_pn_var_rent_dates_rec.attribute15 : '
13186: || l_pn_var_rent_dates_rec.attribute15
13187: , 3);
13188: pn_varen_util.pvt_debug
13189: ( 'PN_VAREN_PVT: Update_Var_Rent: p_upd_var_rent_rec.dates_attribute15 : '
13190: || p_upd_var_rent_rec.dates_attribute15
13191: , 3);
13192: END IF;
13193:
13192: END IF;
13193:
13194: -- update validate dates procedure..
13195: pn_varen_util.pvt_debug
13196: ('PN_VAREN_PVT: Update_Var_Rent: Calling of Upd_Validate_Rent_Dates Procedure'
13197: , 3);
13198: upd_validate_rent_dates (p_upd_var_rent_rec_type => p_upd_var_rent_rec
13199: , x_return_status => x_return_status);
13200:
13198: upd_validate_rent_dates (p_upd_var_rent_rec_type => p_upd_var_rent_rec
13199: , x_return_status => x_return_status);
13200:
13201: pn_varen_util.pvt_debug
13202: ( 'PN_VAREN_PVT: Update_Var_Rent: Status of Upd_Validate_Rent_Dates Procedure is '
13203: || x_return_status
13204: , 3);
13205: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Var_Rent: Value of p_validate_flag is '
13206: || p_validate_flag
13201: pn_varen_util.pvt_debug
13202: ( 'PN_VAREN_PVT: Update_Var_Rent: Status of Upd_Validate_Rent_Dates Procedure is '
13203: || x_return_status
13204: , 3);
13205: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Var_Rent: Value of p_validate_flag is '
13206: || p_validate_flag
13207: , 3);
13208: IF x_return_status <> fnd_api.g_ret_sts_success --'S'
13209: THEN
13207: , 3);
13208: IF x_return_status <> fnd_api.g_ret_sts_success --'S'
13209: THEN
13210: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
13211: fnd_message.set_token ('ERR_MSG', 'PN_VAREN_PVT: Update_Var_Rent: UPD_VALIDATE_RENT_DATES returned error');
13212: fnd_msg_pub.ADD;
13213: RAISE fnd_api.g_exc_error;
13214: END IF;
13215:
13216:
13217: IF (p_validate_flag <> 'Y') --and x_return_status = 'S')
13218: THEN
13219: pn_varen_util.pvt_debug
13220: ('PN_VAREN_PVT: Update_Var_Rent: Start of update_varen_dates Procedure'
13221: , 3);
13222: pn_varen_util.pvt_debug
13223: ( 'PN_VAREN_PVT: Update_Var_Rent: Value of p_upd_var_rent_rec.year_start_date before update_varen_dates procedure is : '
13224: || p_upd_var_rent_rec.year_start_date
13219: pn_varen_util.pvt_debug
13220: ('PN_VAREN_PVT: Update_Var_Rent: Start of update_varen_dates Procedure'
13221: , 3);
13222: pn_varen_util.pvt_debug
13223: ( 'PN_VAREN_PVT: Update_Var_Rent: Value of p_upd_var_rent_rec.year_start_date before update_varen_dates procedure is : '
13224: || p_upd_var_rent_rec.year_start_date
13225: , 3);
13226:
13227:
13227:
13228: update_varen_dates (p_upd_var_rent_rec_type => p_upd_var_rent_rec
13229: , x_return_status => x_return_status);
13230: pn_varen_util.pvt_debug
13231: ( 'PN_VAREN_PVT: Update_Var_Rent: Status of update_varen_dates Procedure '
13232: || x_return_status
13233: , 3);
13234: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
13235:
13233: , 3);
13234: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
13235:
13236: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
13237: fnd_message.set_token ('ERR_MSG', 'PN_VAREN_PVT: update_varen_dates: Error');
13238: fnd_msg_pub.ADD;
13239: RAISE fnd_api.g_exc_error;
13240: ELSIF(x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
13241: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
13238: fnd_msg_pub.ADD;
13239: RAISE fnd_api.g_exc_error;
13240: ELSIF(x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
13241: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
13242: fnd_message.set_token ('ERR_MSG', 'PN_VAREN_PVT: update_varen_dates: Error');
13243: fnd_msg_pub.ADD;
13244: RAISE fnd_api.g_exc_unexpected_error;
13245: END IF;
13246:
13267:
13268: ---IF (c_pn_var_line_defaults%NOTFOUND)
13269: --THEN
13270: --x_return_status := fnd_api.g_ret_sts_error;
13271: -- pn_varen_util.pvt_debug ('PN_VAREN_PVT: Update_Var_Rent: Cursor c_pn_var_line_defaults not found'
13272: -- , 3
13273: -- );
13274:
13275: --ELSE
13273: -- );
13274:
13275: --ELSE
13276: pn_varen_util.pvt_debug
13277: ('PN_VAREN_PVT: Update_Var_Rent: Cursor c_pn_var_line_defaults found'
13278: , 3);
13279: --------------------------------------------------------------------------------
13280: -- Initialize Variable Rent Lines
13281: --------------------------------------------------------------------------------
13282:
13283: --FOR ul IN p_var_rent_lines_tbl.FIRST .. p_var_rent_lines_tbl.LAST
13284: --LOOP
13285: pn_varen_util.pvt_debug
13286: ('PN_VAREN_PVT: Update_Var_Rent: Starting of Variable Rent Lines Loop'
13287: , 3);
13288:
13289: IF ( p_var_rent_lines_tbl (ul).line_num IS NULL
13290: OR p_var_rent_lines_tbl (ul).line_num = pn_varen_util.g_pn_miss_num)
13304: pn_varen_util.breakpoint_ext (p_var_rent_id => p_var_rent_lines_tbl (ul).var_rent_id
13305: , x_bkpt_exist => l_bkpt_exist
13306: , x_return_status => x_return_status);
13307: pn_varen_util.pvt_debug
13308: ( 'PN_VAREN_PVT: Update_Var_Rent: Value of p_undo_breakpoints is '
13309: || p_undo_breakpoints
13310: , 3);
13311: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Var_Rent: Value of l_bkpt_exist is '
13312: || l_bkpt_exist
13307: pn_varen_util.pvt_debug
13308: ( 'PN_VAREN_PVT: Update_Var_Rent: Value of p_undo_breakpoints is '
13309: || p_undo_breakpoints
13310: , 3);
13311: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Var_Rent: Value of l_bkpt_exist is '
13312: || l_bkpt_exist
13313: , 3);
13314:
13315: IF ( p_undo_breakpoints = 'Y'
13317: THEN
13318: undo_breakpoints (p_var_rent_id => p_var_rent_lines_tbl (ul).var_rent_id
13319: , x_return_status => x_return_status);
13320: pn_varen_util.pvt_debug
13321: ( 'PN_VAREN_PVT: Update_Var_Rent: status of undo_breakpoints procedure is '
13322: || x_return_status
13323: , 3);
13324: IF x_return_status <> fnd_api.g_ret_sts_success --'S'
13325: THEN
13323: , 3);
13324: IF x_return_status <> fnd_api.g_ret_sts_success --'S'
13325: THEN
13326: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
13327: fnd_message.set_token ('ERR_MSG', 'PN_VAREN_PVT: Update_Var_Rent: UNDO_BREAKPOINTS returned error');
13328: fnd_msg_pub.ADD;
13329: RAISE fnd_api.g_exc_error;
13330: END IF;
13331: END IF;
13338: OR ( p_var_rent_lines_tbl (ul).sales_channel_meaning IS NOT NULL
13339: AND p_var_rent_lines_tbl (ul).sales_channel_meaning <> pn_varen_util.g_pn_miss_char)
13340: THEN
13341: pn_varen_util.pvt_debug
13342: ('PN_VAREN_PVT: Update_Var_Rent: Calling SALES_CHANNEL (Type 1) Validation'
13343: , 3);
13344: pn_varen_util.validate_lookups
13345: (p_lookup_type => g_sales_channel
13346: , x_lookup_meaning => p_var_rent_lines_tbl (ul).sales_channel_meaning
13346: , x_lookup_meaning => p_var_rent_lines_tbl (ul).sales_channel_meaning
13347: , x_lookup_code => p_var_rent_lines_tbl (ul).sales_channel_code
13348: , x_return_status => x_return_status);
13349: pn_varen_util.pvt_debug
13350: ( 'PN_VAREN_PVT: Update_Var_Rent: p_var_rent_lines_tbl (ul).sales_channel_meaning :'
13351: || p_var_rent_lines_tbl (ul).sales_channel_meaning
13352: , 3);
13353: pn_varen_util.pvt_debug
13354: ( 'PN_VAREN_PVT: Update_Var_Rent: p_var_rent_lines_tbl (ul).sales_channel_code:'
13350: ( 'PN_VAREN_PVT: Update_Var_Rent: p_var_rent_lines_tbl (ul).sales_channel_meaning :'
13351: || p_var_rent_lines_tbl (ul).sales_channel_meaning
13352: , 3);
13353: pn_varen_util.pvt_debug
13354: ( 'PN_VAREN_PVT: Update_Var_Rent: p_var_rent_lines_tbl (ul).sales_channel_code:'
13355: || p_var_rent_lines_tbl (ul).sales_channel_code
13356: , 3);
13357: pn_varen_util.pvt_debug
13358: ( 'PN_VAREN_PVT: Update_Var_Rent: SALES_CHANNEL (Type 1) Output Code :'
13354: ( 'PN_VAREN_PVT: Update_Var_Rent: p_var_rent_lines_tbl (ul).sales_channel_code:'
13355: || p_var_rent_lines_tbl (ul).sales_channel_code
13356: , 3);
13357: pn_varen_util.pvt_debug
13358: ( 'PN_VAREN_PVT: Update_Var_Rent: SALES_CHANNEL (Type 1) Output Code :'
13359: || p_var_rent_lines_tbl (ul).sales_channel_code
13360: , 3);
13361:
13362: IF (x_return_status = fnd_api.g_ret_sts_error)
13364: --
13365: fnd_message.set_name ('PN', 'PN_VAR_LIN_SAL_CHL');
13366: --x_return_status :=fnd_api.g_ret_sts_error;
13367: pn_varen_util.pvt_debug
13368: ( 'PN_VAREN_PVT: Update_Var_Rent: SALES_CHANNEL (Type 1) Meaning Expected Error :'
13369: || p_var_rent_lines_tbl (ul).sales_channel_meaning
13370: , 3);
13371: pn_varen_util.pvt_debug
13372: ('PN_VAREN_PVT: Update_Var_Rent: Sales Channel Lookup Validation Error'
13368: ( 'PN_VAREN_PVT: Update_Var_Rent: SALES_CHANNEL (Type 1) Meaning Expected Error :'
13369: || p_var_rent_lines_tbl (ul).sales_channel_meaning
13370: , 3);
13371: pn_varen_util.pvt_debug
13372: ('PN_VAREN_PVT: Update_Var_Rent: Sales Channel Lookup Validation Error'
13373: , 3);
13374: fnd_msg_pub.ADD;
13375: RAISE fnd_api.g_exc_error;
13376: --
13379: --
13380: fnd_message.set_name ('PN', 'PN_VAR_LIN_SAL_CHL');
13381: --x_return_status := fnd_api.g_ret_sts_unexp_error;
13382: pn_varen_util.pvt_debug
13383: ( 'PN_VAREN_PVT: Update_Var_Rent: SALES_CHANNEL (Type 1) Meaning Un-Expected Error :'
13384: || p_var_rent_lines_tbl (ul).sales_channel_meaning
13385: , 3);
13386: pn_varen_util.pvt_debug
13387: ('PN_VAREN_PVT: Update_Var_Rent: Sales Channel Lookup Validation Unexpected Error'
13383: ( 'PN_VAREN_PVT: Update_Var_Rent: SALES_CHANNEL (Type 1) Meaning Un-Expected Error :'
13384: || p_var_rent_lines_tbl (ul).sales_channel_meaning
13385: , 3);
13386: pn_varen_util.pvt_debug
13387: ('PN_VAREN_PVT: Update_Var_Rent: Sales Channel Lookup Validation Unexpected Error'
13388: , 3);
13389: fnd_msg_pub.ADD;
13390: RAISE fnd_api.g_exc_unexpected_error;
13391: --
13391: --
13392: ELSE
13393: x_return_status := fnd_api.g_ret_sts_success;
13394: pn_varen_util.pvt_debug
13395: ( 'PN_VAREN_PVT: Update_Var_Rent: SALES_CHANNEL (Type 1) Code Success :'
13396: || p_var_rent_lines_tbl (ul).sales_channel_code
13397: , 3);
13398: pn_varen_util.pvt_debug
13399: ('PN_VAREN_PVT: Update_Var_Rent: Sales Channel Lookup Validation Success'
13395: ( 'PN_VAREN_PVT: Update_Var_Rent: SALES_CHANNEL (Type 1) Code Success :'
13396: || p_var_rent_lines_tbl (ul).sales_channel_code
13397: , 3);
13398: pn_varen_util.pvt_debug
13399: ('PN_VAREN_PVT: Update_Var_Rent: Sales Channel Lookup Validation Success'
13400: , 3);
13401: END IF;
13402: ELSE
13403: p_var_rent_lines_tbl (ul).sales_channel_code := l_pn_var_line_defaults.sales_type_code;
13402: ELSE
13403: p_var_rent_lines_tbl (ul).sales_channel_code := l_pn_var_line_defaults.sales_type_code;
13404: --p_var_rent_lines_tbl (ul). sales_channel_meaning := l_pn_var_line_defaults.sales_channel_meaning;
13405: pn_varen_util.pvt_debug
13406: ( 'PN_VAREN_PVT: Update_Var_Rent: Value of l_pn_var_line_defaults.sales_type_code is :'
13407: || l_pn_var_line_defaults.sales_type_code
13408: , 3);
13409: pn_varen_util.pvt_debug
13410: ( 'PN_VAREN_PVT: Update_Var_Rent: Value of p_var_rent_lines_tbl (ul).sales_channel_code:'
13406: ( 'PN_VAREN_PVT: Update_Var_Rent: Value of l_pn_var_line_defaults.sales_type_code is :'
13407: || l_pn_var_line_defaults.sales_type_code
13408: , 3);
13409: pn_varen_util.pvt_debug
13410: ( 'PN_VAREN_PVT: Update_Var_Rent: Value of p_var_rent_lines_tbl (ul).sales_channel_code:'
13411: || p_var_rent_lines_tbl (ul).sales_channel_code
13412: , 3);
13413: END IF;
13414:
13420: OR ( p_var_rent_lines_tbl (ul).item_category_meaning IS NOT NULL
13421: AND p_var_rent_lines_tbl (ul).item_category_meaning <> pn_varen_util.g_pn_miss_char)
13422: THEN
13423: pn_varen_util.pvt_debug
13424: ('PN_VAREN_PVT: Update_Var_Rent: Calling ITEM_CATEGORY(Type 2) Validation'
13425: , 3);
13426: pn_varen_util.validate_lookups
13427: (p_lookup_type => g_item_category
13428: , x_lookup_meaning => p_var_rent_lines_tbl (ul).item_category_meaning
13428: , x_lookup_meaning => p_var_rent_lines_tbl (ul).item_category_meaning
13429: , x_lookup_code => p_var_rent_lines_tbl (ul).item_category_code
13430: , x_return_status => x_return_status);
13431: pn_varen_util.pvt_debug
13432: ( 'PN_VAREN_PVT: Update_Var_Rent: p_var_rent_lines_tbl (ul).item_category_meaning :'
13433: || p_var_rent_lines_tbl (ul).item_category_meaning
13434: , 3);
13435: pn_varen_util.pvt_debug
13436: ( 'PN_VAREN_PVT: Update_Var_Rent: p_var_rent_lines_tbl (ul).item_category_code:'
13432: ( 'PN_VAREN_PVT: Update_Var_Rent: p_var_rent_lines_tbl (ul).item_category_meaning :'
13433: || p_var_rent_lines_tbl (ul).item_category_meaning
13434: , 3);
13435: pn_varen_util.pvt_debug
13436: ( 'PN_VAREN_PVT: Update_Var_Rent: p_var_rent_lines_tbl (ul).item_category_code:'
13437: || p_var_rent_lines_tbl (ul).item_category_code
13438: , 3);
13439: pn_varen_util.pvt_debug
13440: ( 'PN_VAREN_PVT: Update_Var_Rent: ITEM_CATEGORY(Type 2) Output Code :'
13436: ( 'PN_VAREN_PVT: Update_Var_Rent: p_var_rent_lines_tbl (ul).item_category_code:'
13437: || p_var_rent_lines_tbl (ul).item_category_code
13438: , 3);
13439: pn_varen_util.pvt_debug
13440: ( 'PN_VAREN_PVT: Update_Var_Rent: ITEM_CATEGORY(Type 2) Output Code :'
13441: || p_var_rent_lines_tbl (ul).item_category_code
13442: , 3);
13443:
13444: IF (x_return_status = fnd_api.g_ret_sts_error)
13446: --
13447: fnd_message.set_name ('PN', 'PN_VAR_LIN_ITM_CAY');
13448: x_return_status := fnd_api.g_ret_sts_error;
13449: pn_varen_util.pvt_debug
13450: ('PN_VAREN_PVT: Update_Var_Rent: Item Category Lookup Validation Error'
13451: , 3);
13452: pn_varen_util.pvt_debug
13453: ( 'PN_VAREN_PVT: Update_Var_Rent: ITEM_CATEGORY(Type 2) Meaning Expected Error :'
13454: || p_var_rent_lines_tbl (ul).item_category_meaning
13449: pn_varen_util.pvt_debug
13450: ('PN_VAREN_PVT: Update_Var_Rent: Item Category Lookup Validation Error'
13451: , 3);
13452: pn_varen_util.pvt_debug
13453: ( 'PN_VAREN_PVT: Update_Var_Rent: ITEM_CATEGORY(Type 2) Meaning Expected Error :'
13454: || p_var_rent_lines_tbl (ul).item_category_meaning
13455: , 3);
13456: fnd_msg_pub.ADD;
13457: RAISE fnd_api.g_exc_error;
13461: --
13462: fnd_message.set_name ('PN', 'PN_VAR_LIN_ITM_CAY');
13463: --x_return_status :=fnd_api.g_ret_sts_unexp_error;
13464: pn_varen_util.pvt_debug
13465: ( 'PN_VAREN_PVT: Update_Var_Rent: Item Category Lookup Validation Unexpected Error :'
13466: || p_var_rent_lines_tbl (ul).item_category_meaning
13467: , 3);
13468: pn_varen_util.pvt_debug
13469: ( 'PN_VAREN_PVT: Update_Var_Rent: ITEM_CATEGORY(Type 2) Meaning Un-Expected Error :'
13465: ( 'PN_VAREN_PVT: Update_Var_Rent: Item Category Lookup Validation Unexpected Error :'
13466: || p_var_rent_lines_tbl (ul).item_category_meaning
13467: , 3);
13468: pn_varen_util.pvt_debug
13469: ( 'PN_VAREN_PVT: Update_Var_Rent: ITEM_CATEGORY(Type 2) Meaning Un-Expected Error :'
13470: || p_var_rent_lines_tbl (ul).item_category_meaning
13471: , 3);
13472: fnd_msg_pub.ADD;
13473: RAISE fnd_api.g_exc_error;
13476: --RAISE fnd_api.g_exc_unexpected_error;
13477: ELSE
13478: x_return_status := fnd_api.g_ret_sts_success;
13479: pn_varen_util.pvt_debug
13480: ('PN_VAREN_PVT: Update_Var_Rent: Item Category Lookup Validation Success'
13481: , 3);
13482: -- x_return_status := fnd_api.g_ret_sts_success;
13483: pn_varen_util.pvt_debug
13484: ( 'PN_VAREN_PVT: Update_Var_Rent: ITEM_CATEGORY(Type 2) Code Success :'
13480: ('PN_VAREN_PVT: Update_Var_Rent: Item Category Lookup Validation Success'
13481: , 3);
13482: -- x_return_status := fnd_api.g_ret_sts_success;
13483: pn_varen_util.pvt_debug
13484: ( 'PN_VAREN_PVT: Update_Var_Rent: ITEM_CATEGORY(Type 2) Code Success :'
13485: || p_var_rent_lines_tbl (ul).item_category_code
13486: , 3);
13487: END IF;
13488: ELSE
13489: p_var_rent_lines_tbl (ul).item_category_code :=
13490: l_pn_var_line_defaults.item_category_code;
13491: --p_var_rent_lines_tbl (ul). item_category_meaning := l_pn_var_line_defaults.item_category_meaning;
13492: pn_varen_util.pvt_debug
13493: ( 'PN_VAREN_PVT: Update_Var_Rent: Value of l_pn_var_line_defaults.item_category_meaning is :'
13494: || l_pn_var_line_defaults.item_category_code
13495: , 3);
13496: pn_varen_util.pvt_debug
13497: ( 'PN_VAREN_PVT: Update_Var_Rent: Value of p_var_rent_lines_tbl (ul).item_category_code:'
13493: ( 'PN_VAREN_PVT: Update_Var_Rent: Value of l_pn_var_line_defaults.item_category_meaning is :'
13494: || l_pn_var_line_defaults.item_category_code
13495: , 3);
13496: pn_varen_util.pvt_debug
13497: ( 'PN_VAREN_PVT: Update_Var_Rent: Value of p_var_rent_lines_tbl (ul).item_category_code:'
13498: || p_var_rent_lines_tbl (ul).item_category_code
13499: , 3);
13500: END IF;
13501:
13753: ------------------------End of 11-Dec-2010 DFF changes----------------------------
13754:
13755:
13756: pn_varen_util.pvt_debug
13757: ('PN_VAREN_PVT: Update_Var_Rent: After all validations of Variable rent lines'
13758: , 3);
13759: pn_varen_util.pvt_debug
13760: ( 'PN_VAREN_PVT: Update_Var_Rent: Before - Value of p_var_rent_lines_tbl (ul).var_rent_id is '
13761: || p_var_rent_lines_tbl (ul).var_rent_id
13756: pn_varen_util.pvt_debug
13757: ('PN_VAREN_PVT: Update_Var_Rent: After all validations of Variable rent lines'
13758: , 3);
13759: pn_varen_util.pvt_debug
13760: ( 'PN_VAREN_PVT: Update_Var_Rent: Before - Value of p_var_rent_lines_tbl (ul).var_rent_id is '
13761: || p_var_rent_lines_tbl (ul).var_rent_id
13762: , 3);
13763: pn_varen_util.pvt_debug
13764: ( 'PN_VAREN_PVT: Update_Var_Rent: Before - Value of p_var_rent_lines_tbl (ul).line_default_id is '
13760: ( 'PN_VAREN_PVT: Update_Var_Rent: Before - Value of p_var_rent_lines_tbl (ul).var_rent_id is '
13761: || p_var_rent_lines_tbl (ul).var_rent_id
13762: , 3);
13763: pn_varen_util.pvt_debug
13764: ( 'PN_VAREN_PVT: Update_Var_Rent: Before - Value of p_var_rent_lines_tbl (ul).line_default_id is '
13765: || p_var_rent_lines_tbl (ul).line_default_id
13766: , 3);
13767: pn_varen_util.pvt_debug
13768: ( 'PN_VAREN_PVT: Update_Var_Rent: Before - Value of p_var_rent_lines_tbl (ul).line_num is '
13764: ( 'PN_VAREN_PVT: Update_Var_Rent: Before - Value of p_var_rent_lines_tbl (ul).line_default_id is '
13765: || p_var_rent_lines_tbl (ul).line_default_id
13766: , 3);
13767: pn_varen_util.pvt_debug
13768: ( 'PN_VAREN_PVT: Update_Var_Rent: Before - Value of p_var_rent_lines_tbl (ul).line_num is '
13769: || p_var_rent_lines_tbl (ul).line_num
13770: , 3);
13771: pn_varen_util.pvt_debug
13772: ( 'PN_VAREN_PVT: Update_Var_Rent: Before - Value of p_var_rent_lines_tbl (ul).sales_channel_code is '
13768: ( 'PN_VAREN_PVT: Update_Var_Rent: Before - Value of p_var_rent_lines_tbl (ul).line_num is '
13769: || p_var_rent_lines_tbl (ul).line_num
13770: , 3);
13771: pn_varen_util.pvt_debug
13772: ( 'PN_VAREN_PVT: Update_Var_Rent: Before - Value of p_var_rent_lines_tbl (ul).sales_channel_code is '
13773: || p_var_rent_lines_tbl (ul).sales_channel_code
13774: , 3);
13775: pn_varen_util.pvt_debug
13776: ( 'PN_VAREN_PVT: Update_Var_Rent: Before - Value of p_var_rent_lines_tbl (ul).item_category_code is '
13772: ( 'PN_VAREN_PVT: Update_Var_Rent: Before - Value of p_var_rent_lines_tbl (ul).sales_channel_code is '
13773: || p_var_rent_lines_tbl (ul).sales_channel_code
13774: , 3);
13775: pn_varen_util.pvt_debug
13776: ( 'PN_VAREN_PVT: Update_Var_Rent: Before - Value of p_var_rent_lines_tbl (ul).item_category_code is '
13777: || p_var_rent_lines_tbl (ul).item_category_code
13778: , 3);
13779: pn_varen_util.pvt_debug
13780: ( 'PN_VAREN_PVT: Update_Var_Rent: Before - Value of p_var_rent_lines_tbl (ul).line_start_date is '
13776: ( 'PN_VAREN_PVT: Update_Var_Rent: Before - Value of p_var_rent_lines_tbl (ul).item_category_code is '
13777: || p_var_rent_lines_tbl (ul).item_category_code
13778: , 3);
13779: pn_varen_util.pvt_debug
13780: ( 'PN_VAREN_PVT: Update_Var_Rent: Before - Value of p_var_rent_lines_tbl (ul).line_start_date is '
13781: || p_var_rent_lines_tbl (ul).line_start_date
13782: , 3);
13783: pn_varen_util.pvt_debug
13784: ( 'PN_VAREN_PVT: Update_Var_Rent: Before - Value of p_var_rent_lines_tbl (ul).line_end_date is '
13780: ( 'PN_VAREN_PVT: Update_Var_Rent: Before - Value of p_var_rent_lines_tbl (ul).line_start_date is '
13781: || p_var_rent_lines_tbl (ul).line_start_date
13782: , 3);
13783: pn_varen_util.pvt_debug
13784: ( 'PN_VAREN_PVT: Update_Var_Rent: Before - Value of p_var_rent_lines_tbl (ul).line_end_date is '
13785: || p_var_rent_lines_tbl (ul).line_end_date
13786: , 3);
13787:
13788: pn_varen_util.breakpoint_ext (p_var_rent_id => p_var_rent_lines_tbl (ul).var_rent_id
13788: pn_varen_util.breakpoint_ext (p_var_rent_id => p_var_rent_lines_tbl (ul).var_rent_id
13789: , x_bkpt_exist => l_bkpt_exist
13790: , x_return_status => x_return_status);
13791: pn_varen_util.pvt_debug
13792: ( 'PN_VAREN_PVT: Update_Var_Rent: Value of l_bkpt_exist after breakpoint_ext procedure is'
13793: || l_bkpt_exist
13794: , 3);
13795:
13796:
13797: IF ( --x_return_status = 'S' or OR
13798: l_bkpt_exist = 0)
13799: THEN
13800: pn_varen_util.pvt_debug
13801: ('PN_VAREN_PVT: Update_Var_Rent: Before calling update_variable_rent_lines procedure '
13802: , 3);
13803: pn_varen_util.pvt_debug
13804: ( 'PN_VAREN_PVT: Update_Var_Rent: Value of p_var_rent_lines_tbl (ul).var_rent_id is '
13805: || p_var_rent_lines_tbl (ul).var_rent_id
13800: pn_varen_util.pvt_debug
13801: ('PN_VAREN_PVT: Update_Var_Rent: Before calling update_variable_rent_lines procedure '
13802: , 3);
13803: pn_varen_util.pvt_debug
13804: ( 'PN_VAREN_PVT: Update_Var_Rent: Value of p_var_rent_lines_tbl (ul).var_rent_id is '
13805: || p_var_rent_lines_tbl (ul).var_rent_id
13806: , 3);
13807: pn_varen_util.pvt_debug
13808: ( 'PN_VAREN_PVT: Update_Var_Rent: Value of p_var_rent_lines_tbl (ul).line_default_id is '
13804: ( 'PN_VAREN_PVT: Update_Var_Rent: Value of p_var_rent_lines_tbl (ul).var_rent_id is '
13805: || p_var_rent_lines_tbl (ul).var_rent_id
13806: , 3);
13807: pn_varen_util.pvt_debug
13808: ( 'PN_VAREN_PVT: Update_Var_Rent: Value of p_var_rent_lines_tbl (ul).line_default_id is '
13809: || p_var_rent_lines_tbl (ul).line_default_id
13810: , 3);
13811: pn_varen_util.pvt_debug
13812: ( 'PN_VAREN_PVT: Update_Var_Rent: Value of p_var_rent_lines_tbl (ul).line_num is '
13808: ( 'PN_VAREN_PVT: Update_Var_Rent: Value of p_var_rent_lines_tbl (ul).line_default_id is '
13809: || p_var_rent_lines_tbl (ul).line_default_id
13810: , 3);
13811: pn_varen_util.pvt_debug
13812: ( 'PN_VAREN_PVT: Update_Var_Rent: Value of p_var_rent_lines_tbl (ul).line_num is '
13813: || p_var_rent_lines_tbl (ul).line_num
13814: , 3);
13815: pn_varen_util.pvt_debug
13816: ( 'PN_VAREN_PVT: Update_Var_Rent: Value of p_var_rent_lines_tbl (ul).sales_channel_code is '
13812: ( 'PN_VAREN_PVT: Update_Var_Rent: Value of p_var_rent_lines_tbl (ul).line_num is '
13813: || p_var_rent_lines_tbl (ul).line_num
13814: , 3);
13815: pn_varen_util.pvt_debug
13816: ( 'PN_VAREN_PVT: Update_Var_Rent: Value of p_var_rent_lines_tbl (ul).sales_channel_code is '
13817: || p_var_rent_lines_tbl (ul).sales_channel_code
13818: , 3);
13819: pn_varen_util.pvt_debug
13820: ( 'PN_VAREN_PVT: Update_Var_Rent: Value of p_var_rent_lines_tbl (ul).item_category_code is '
13816: ( 'PN_VAREN_PVT: Update_Var_Rent: Value of p_var_rent_lines_tbl (ul).sales_channel_code is '
13817: || p_var_rent_lines_tbl (ul).sales_channel_code
13818: , 3);
13819: pn_varen_util.pvt_debug
13820: ( 'PN_VAREN_PVT: Update_Var_Rent: Value of p_var_rent_lines_tbl (ul).item_category_code is '
13821: || p_var_rent_lines_tbl (ul).item_category_code
13822: , 3);
13823: pn_varen_util.pvt_debug
13824: ( 'PN_VAREN_PVT: Update_Var_Rent: Value of p_var_rent_lines_tbl (ul).line_start_date is '
13820: ( 'PN_VAREN_PVT: Update_Var_Rent: Value of p_var_rent_lines_tbl (ul).item_category_code is '
13821: || p_var_rent_lines_tbl (ul).item_category_code
13822: , 3);
13823: pn_varen_util.pvt_debug
13824: ( 'PN_VAREN_PVT: Update_Var_Rent: Value of p_var_rent_lines_tbl (ul).line_start_date is '
13825: || p_var_rent_lines_tbl (ul).line_start_date
13826: , 3);
13827: pn_varen_util.pvt_debug
13828: ( 'PN_VAREN_PVT: Update_Var_Rent: Value of p_var_rent_lines_tbl (ul).line_end_date is '
13824: ( 'PN_VAREN_PVT: Update_Var_Rent: Value of p_var_rent_lines_tbl (ul).line_start_date is '
13825: || p_var_rent_lines_tbl (ul).line_start_date
13826: , 3);
13827: pn_varen_util.pvt_debug
13828: ( 'PN_VAREN_PVT: Update_Var_Rent: Value of p_var_rent_lines_tbl (ul).line_end_date is '
13829: || p_var_rent_lines_tbl (ul).line_end_date
13830: , 3);
13831:
13832:
13834: OR p_var_rent_lines_tbl (ul).line_default_id = pn_varen_util.g_pn_miss_num)
13835: THEN
13836: --pn_varen_util.pvt_debug
13837: pn_varen_util.pvt_debug
13838: ( 'PN_VAREN_PVT: Update_Var_Rent: Value of p_var_rent_lines_tbl (ul).line_default_id is null'
13839: || p_var_rent_lines_tbl (ul).line_default_id
13840: , 3);
13841: pn_varen_util.pvt_debug
13842: ( 'PN_VAREN_PVT: Update_Var_Rent: Value of p_var_rent_lines_tbl (ul).sales_channel_code is '
13838: ( 'PN_VAREN_PVT: Update_Var_Rent: Value of p_var_rent_lines_tbl (ul).line_default_id is null'
13839: || p_var_rent_lines_tbl (ul).line_default_id
13840: , 3);
13841: pn_varen_util.pvt_debug
13842: ( 'PN_VAREN_PVT: Update_Var_Rent: Value of p_var_rent_lines_tbl (ul).sales_channel_code is '
13843: || p_var_rent_lines_tbl (ul).sales_channel_code
13844: , 3);
13845: pn_varen_util.pvt_debug
13846: ( 'PN_VAREN_PVT: Update_Var_Rent: Value of p_var_rent_lines_tbl (ul).item_category_code is '
13842: ( 'PN_VAREN_PVT: Update_Var_Rent: Value of p_var_rent_lines_tbl (ul).sales_channel_code is '
13843: || p_var_rent_lines_tbl (ul).sales_channel_code
13844: , 3);
13845: pn_varen_util.pvt_debug
13846: ( 'PN_VAREN_PVT: Update_Var_Rent: Value of p_var_rent_lines_tbl (ul).item_category_code is '
13847: || p_var_rent_lines_tbl (ul).item_category_code
13848: , 3);
13849: pn_varen_util.pvt_debug
13850: ( 'PN_VAREN_PVT: Update_Var_Rent: Value of p_var_rent_lines_tbl (ul).line_start_date is '
13846: ( 'PN_VAREN_PVT: Update_Var_Rent: Value of p_var_rent_lines_tbl (ul).item_category_code is '
13847: || p_var_rent_lines_tbl (ul).item_category_code
13848: , 3);
13849: pn_varen_util.pvt_debug
13850: ( 'PN_VAREN_PVT: Update_Var_Rent: Value of p_var_rent_lines_tbl (ul).line_start_date is '
13851: || p_var_rent_lines_tbl (ul).line_start_date
13852: , 3);
13853: pn_varen_util.pvt_debug
13854: ( 'PN_VAREN_PVT: Update_Var_Rent: Value of p_var_rent_lines_tbl (ul).line_end_date is '
13850: ( 'PN_VAREN_PVT: Update_Var_Rent: Value of p_var_rent_lines_tbl (ul).line_start_date is '
13851: || p_var_rent_lines_tbl (ul).line_start_date
13852: , 3);
13853: pn_varen_util.pvt_debug
13854: ( 'PN_VAREN_PVT: Update_Var_Rent: Value of p_var_rent_lines_tbl (ul).line_end_date is '
13855: || p_var_rent_lines_tbl (ul).line_end_date
13856: , 3);
13857: pn_varen_util.pvt_debug
13858: ( 'PN_VAREN_PVT: Update_Var_Rent: Value of p_var_rent_lines_tbl (ul).line_num is '
13854: ( 'PN_VAREN_PVT: Update_Var_Rent: Value of p_var_rent_lines_tbl (ul).line_end_date is '
13855: || p_var_rent_lines_tbl (ul).line_end_date
13856: , 3);
13857: pn_varen_util.pvt_debug
13858: ( 'PN_VAREN_PVT: Update_Var_Rent: Value of p_var_rent_lines_tbl (ul).line_num is '
13859: || p_var_rent_lines_tbl (ul).line_num
13860: , 3);
13861: -- p_var_rent_lines_tbl (ul).line_default_id :=
13862: -- l_pn_var_line_defaults.line_default_id;
13862: -- l_pn_var_line_defaults.line_default_id;
13863:
13864: -- Call Create Variable Rent Lines
13865: pn_varen_util.pvt_debug
13866: ('PN_VAREN_PVT: Update_Var_Rent: Start of insert_variable_rent_lines procedure '
13867: , 3);
13868:
13869: -------------------------------------------------------------------------------------
13870: -- Start of Initialize before insertion of record
14042: insert_variable_rent_lines
14043: (p_variable_rent_lines_rec_type => p_var_rent_lines_tbl (ul)
14044: , x_return_status => x_return_status);
14045: pn_varen_util.pvt_debug
14046: ( 'PN_VAREN_PVT: Update_Var_Rent: After Insertion of VRA Line, line_default_id is '
14047: || p_var_rent_lines_tbl (ul).var_rent_id
14048: , 3);
14049: --pn_varen_util.pvt_debug
14050: pn_varen_util.pvt_debug
14047: || p_var_rent_lines_tbl (ul).var_rent_id
14048: , 3);
14049: --pn_varen_util.pvt_debug
14050: pn_varen_util.pvt_debug
14051: ( 'PN_VAREN_PVT: Update_Var_Rent: Status of insert_variable_rent_lines procedure is '
14052: || x_return_status
14053: , 3);
14054: IF x_return_status <> fnd_api.g_ret_sts_success --'S'
14055: THEN
14053: , 3);
14054: IF x_return_status <> fnd_api.g_ret_sts_success --'S'
14055: THEN
14056: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
14057: fnd_message.set_token ('ERR_MSG', 'PN_VAREN_PVT: Update_Var_Rent: INSERT_VARIABLE_RENT_LINES procedure returned error');
14058: fnd_msg_pub.ADD;
14059: RAISE fnd_api.g_exc_error;
14060: END IF;
14061: ELSE
14061: ELSE
14062:
14063: --pn_varen_util.pvt_debug
14064: pn_varen_util.pvt_debug
14065: ('PN_VAREN_PVT: Update_Var_Rent: Value of p_var_rent_lines_tbl (ul).line_default_id is not null'
14066: , 3);
14067: pn_varen_util.pvt_debug
14068: ('PN_VAREN_PVT: Update_Var_Rent: Start of update_variable_rent_lines procedure '
14069: , 3);
14064: pn_varen_util.pvt_debug
14065: ('PN_VAREN_PVT: Update_Var_Rent: Value of p_var_rent_lines_tbl (ul).line_default_id is not null'
14066: , 3);
14067: pn_varen_util.pvt_debug
14068: ('PN_VAREN_PVT: Update_Var_Rent: Start of update_variable_rent_lines procedure '
14069: , 3);
14070: update_variable_rent_lines
14071: (p_variable_rent_lines_rec_type => p_var_rent_lines_tbl (ul)
14072: , x_return_status => x_return_status);
14070: update_variable_rent_lines
14071: (p_variable_rent_lines_rec_type => p_var_rent_lines_tbl (ul)
14072: , x_return_status => x_return_status);
14073: pn_varen_util.pvt_debug
14074: ( 'PN_VAREN_PVT: Update_Var_Rent: Status of update_variable_rent_lines procedure is '
14075: || x_return_status
14076: , 3);
14077: IF x_return_status <> fnd_api.g_ret_sts_success --'S'
14078: THEN
14076: , 3);
14077: IF x_return_status <> fnd_api.g_ret_sts_success --'S'
14078: THEN
14079: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
14080: fnd_message.set_token ('ERR_MSG', 'PN_VAREN_PVT: Update_Var_Rent: UPDATE_VARIABLE_RENT_LINES procedure returned error');
14081: fnd_msg_pub.ADD;
14082: RAISE fnd_api.g_exc_error;
14083: END IF;
14084: END IF; --p_var_rent_lines_tbl (ul).line_default_id IS NULL
14105:
14106: --IF (c_pn_var_bkhd_defaults%NOTFOUND)
14107: --THEN
14108: --x_return_status := fnd_api.g_ret_sts_error;
14109: --pn_varen_util.pvt_debug ('PN_VAREN_PVT: Update_Var_Rent: Cursor c_pn_var_bkhd_defaults not found'
14110: -- , 3
14111: -- );
14112: -- ELSE
14113: --pn_varen_util.pvt_debug ('PN_VAREN_PVT: Update_Var_Rent: Cursor c_pn_var_bkhd_defaults found'
14109: --pn_varen_util.pvt_debug ('PN_VAREN_PVT: Update_Var_Rent: Cursor c_pn_var_bkhd_defaults not found'
14110: -- , 3
14111: -- );
14112: -- ELSE
14113: --pn_varen_util.pvt_debug ('PN_VAREN_PVT: Update_Var_Rent: Cursor c_pn_var_bkhd_defaults found'
14114: -- , 3
14115: -- );
14116: --pn_varen_util.pvt_debug
14117: -- ( 'PN_VAREN_PVT: Update_Var_Rent: After the cursor c_pn_var_bkhd_defaults is open, value of p_upd_var_rent_rec.var_rent_id is '
14113: --pn_varen_util.pvt_debug ('PN_VAREN_PVT: Update_Var_Rent: Cursor c_pn_var_bkhd_defaults found'
14114: -- , 3
14115: -- );
14116: --pn_varen_util.pvt_debug
14117: -- ( 'PN_VAREN_PVT: Update_Var_Rent: After the cursor c_pn_var_bkhd_defaults is open, value of p_upd_var_rent_rec.var_rent_id is '
14118: -- || p_upd_var_rent_rec.var_rent_id
14119: -- , 3
14120: -- );
14121:
14123: -- Initialize Update Breakpoint Headers
14124: -------------------------------------------------------------------------------
14125: --FOR ubk IN p_breakpoint_header_tbl.FIRST .. p_breakpoint_header_tbl.LAST
14126: --LOOP
14127: pn_varen_util.pvt_debug ('PN_VAREN_PVT: Update_Var_Rent: Inside Breakpoint Headers Loop'
14128: , 3);
14129:
14130: IF ( p_breakpoint_header_tbl (ubk).bkhd_detail_num IS NULL
14131: OR p_breakpoint_header_tbl (ubk).bkhd_detail_num = pn_varen_util.g_pn_miss_num)
14159: OR ( p_breakpoint_header_tbl (ubk).break_type_meaning IS NOT NULL
14160: AND p_breakpoint_header_tbl (ubk).break_type_meaning <> pn_varen_util.g_pn_miss_char)
14161: THEN
14162: pn_varen_util.pvt_debug
14163: ('PN_VAREN_PVT: Update_Var_Rent: Calling BREAK_TYPE Validation Lookup - Inside the Loop'
14164: , 3);
14165: pn_varen_util.pvt_debug
14166: ('PN_VAREN_PVT: Update_Var_Rent: Calling BREAK_TYPE Validation'
14167: , 3);
14162: pn_varen_util.pvt_debug
14163: ('PN_VAREN_PVT: Update_Var_Rent: Calling BREAK_TYPE Validation Lookup - Inside the Loop'
14164: , 3);
14165: pn_varen_util.pvt_debug
14166: ('PN_VAREN_PVT: Update_Var_Rent: Calling BREAK_TYPE Validation'
14167: , 3);
14168: pn_varen_util.validate_lookups
14169: (p_lookup_type => g_break_type
14170: , x_lookup_meaning => p_breakpoint_header_tbl (ubk).break_type_meaning
14169: (p_lookup_type => g_break_type
14170: , x_lookup_meaning => p_breakpoint_header_tbl (ubk).break_type_meaning
14171: , x_lookup_code => p_breakpoint_header_tbl (ubk).break_type_code
14172: , x_return_status => x_return_status);
14173: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Var_Rent: BREAK_TYPE Meaning :'
14174: || p_breakpoint_header_tbl (ubk).break_type_meaning
14175: , 3);
14176: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Var_Rent: BREAK_TYPE Code :'
14177: || p_breakpoint_header_tbl (ubk).break_type_code
14172: , x_return_status => x_return_status);
14173: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Var_Rent: BREAK_TYPE Meaning :'
14174: || p_breakpoint_header_tbl (ubk).break_type_meaning
14175: , 3);
14176: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Var_Rent: BREAK_TYPE Code :'
14177: || p_breakpoint_header_tbl (ubk).break_type_code
14178: , 3);
14179: pn_varen_util.pvt_debug
14180: ( 'PN_VAREN_PVT: Update_Var_Rent: BREAK_TYPE validation status :'
14176: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Var_Rent: BREAK_TYPE Code :'
14177: || p_breakpoint_header_tbl (ubk).break_type_code
14178: , 3);
14179: pn_varen_util.pvt_debug
14180: ( 'PN_VAREN_PVT: Update_Var_Rent: BREAK_TYPE validation status :'
14181: || x_return_status
14182: , 3);
14183:
14184: IF (x_return_status = fnd_api.g_ret_sts_error)
14186: --
14187: fnd_message.set_name ('PN', 'PN_VAR_BKHD_BRK_TY');
14188: --x_return_status := fnd_api.g_ret_sts_error;
14189: pn_varen_util.pvt_debug
14190: ( 'PN_VAREN_PVT: Update_Var_Rent: BREAK_TYPE Meaning Expected Error :'
14191: || p_breakpoint_header_tbl (ubk).break_type_meaning
14192: , 3);
14193: pn_varen_util.pvt_debug
14194: ('PN_VAREN_PVT: Update_Var_Rent: BREAK_TYPE Lookup Validation Error'
14190: ( 'PN_VAREN_PVT: Update_Var_Rent: BREAK_TYPE Meaning Expected Error :'
14191: || p_breakpoint_header_tbl (ubk).break_type_meaning
14192: , 3);
14193: pn_varen_util.pvt_debug
14194: ('PN_VAREN_PVT: Update_Var_Rent: BREAK_TYPE Lookup Validation Error'
14195: , 3);
14196: fnd_msg_pub.ADD;
14197: RAISE fnd_api.g_exc_error;
14198: --
14201: --
14202: fnd_message.set_name ('PN', 'PN_VAR_BKHD_BRK_TY');
14203: --x_return_status := fnd_api.g_ret_sts_unexp_error;
14204: pn_varen_util.pvt_debug
14205: ( 'PN_VAREN_PVT: Update_Var_Rent: BREAK_TYPE Meaning Un-Expected Error :'
14206: || p_breakpoint_header_tbl (ubk).break_type_meaning
14207: , 3);
14208: pn_varen_util.pvt_debug
14209: ('PN_VAREN_PVT: Update_Var_Rent: BREAK_TYPE Lookup Validation Unexpected Error'
14205: ( 'PN_VAREN_PVT: Update_Var_Rent: BREAK_TYPE Meaning Un-Expected Error :'
14206: || p_breakpoint_header_tbl (ubk).break_type_meaning
14207: , 3);
14208: pn_varen_util.pvt_debug
14209: ('PN_VAREN_PVT: Update_Var_Rent: BREAK_TYPE Lookup Validation Unexpected Error'
14210: , 3);
14211: fnd_msg_pub.ADD;
14212: RAISE fnd_api.g_exc_unexpected_error;
14213: --
14213: --
14214: ELSE
14215: x_return_status := fnd_api.g_ret_sts_success;
14216: pn_varen_util.pvt_debug
14217: ( 'PN_VAREN_PVT: Update_Var_Rent: BREAK_TYPE Code Success :'
14218: || p_breakpoint_header_tbl (ubk).break_type_code
14219: , 3);
14220: pn_varen_util.pvt_debug
14221: ('PN_VAREN_PVT: Update_Var_Rent: BREAK_TYPE Lookup Validation Success'
14217: ( 'PN_VAREN_PVT: Update_Var_Rent: BREAK_TYPE Code Success :'
14218: || p_breakpoint_header_tbl (ubk).break_type_code
14219: , 3);
14220: pn_varen_util.pvt_debug
14221: ('PN_VAREN_PVT: Update_Var_Rent: BREAK_TYPE Lookup Validation Success'
14222: , 3);
14223: END IF;
14224: ELSE
14225: p_breakpoint_header_tbl (ubk).break_type_code := l_pn_var_bkhd_defaults.break_type;
14222: , 3);
14223: END IF;
14224: ELSE
14225: p_breakpoint_header_tbl (ubk).break_type_code := l_pn_var_bkhd_defaults.break_type;
14226: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Var_Rent: BREAK_TYPE Code :'
14227: || p_breakpoint_header_tbl (ubk).break_type_code
14228: , 3);
14229: pn_varen_util.pvt_debug
14230: ( 'PN_VAREN_PVT: Update_Var_Rent: l_pn_var_bkhd_defaults.break_type :'
14226: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Var_Rent: BREAK_TYPE Code :'
14227: || p_breakpoint_header_tbl (ubk).break_type_code
14228: , 3);
14229: pn_varen_util.pvt_debug
14230: ( 'PN_VAREN_PVT: Update_Var_Rent: l_pn_var_bkhd_defaults.break_type :'
14231: || l_pn_var_bkhd_defaults.break_type
14232: , 3);
14233: END IF;
14234:
14249: AND p_breakpoint_header_tbl (ubk).breakpoint_type_meaning <>
14250: pn_varen_util.g_pn_miss_char)
14251: THEN
14252: pn_varen_util.pvt_debug
14253: ('PN_VAREN_PVT: Update_Var_Rent: Calling BREAKPOINT_TYPE Validation Lookup - Inside the Loop'
14254: , 3);
14255: pn_varen_util.pvt_debug
14256: ('PN_VAREN_PVT: Update_Var_Rent: Calling BREAKPOINT_TYPE Validation'
14257: , 3);
14252: pn_varen_util.pvt_debug
14253: ('PN_VAREN_PVT: Update_Var_Rent: Calling BREAKPOINT_TYPE Validation Lookup - Inside the Loop'
14254: , 3);
14255: pn_varen_util.pvt_debug
14256: ('PN_VAREN_PVT: Update_Var_Rent: Calling BREAKPOINT_TYPE Validation'
14257: , 3);
14258: pn_varen_util.validate_lookups
14259: (p_lookup_type => g_breakpoint_type
14260: , x_lookup_meaning => p_breakpoint_header_tbl (ubk).breakpoint_type_meaning
14259: (p_lookup_type => g_breakpoint_type
14260: , x_lookup_meaning => p_breakpoint_header_tbl (ubk).breakpoint_type_meaning
14261: , x_lookup_code => p_breakpoint_header_tbl (ubk).breakpoint_type_code
14262: , x_return_status => x_return_status);
14263: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Var_Rent: BREAKPOINT_TYPE Meaning :'
14264: || p_breakpoint_header_tbl (ubk).breakpoint_type_meaning
14265: , 3);
14266: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Var_Rent: BREAKPOINT_TYPE Code :'
14267: || p_breakpoint_header_tbl (ubk).breakpoint_type_code
14262: , x_return_status => x_return_status);
14263: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Var_Rent: BREAKPOINT_TYPE Meaning :'
14264: || p_breakpoint_header_tbl (ubk).breakpoint_type_meaning
14265: , 3);
14266: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Var_Rent: BREAKPOINT_TYPE Code :'
14267: || p_breakpoint_header_tbl (ubk).breakpoint_type_code
14268: , 3);
14269: pn_varen_util.pvt_debug
14270: ( 'PN_VAREN_PVT: Update_Var_Rent: BREAKPOINT_TYPE validation status :'
14266: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Var_Rent: BREAKPOINT_TYPE Code :'
14267: || p_breakpoint_header_tbl (ubk).breakpoint_type_code
14268: , 3);
14269: pn_varen_util.pvt_debug
14270: ( 'PN_VAREN_PVT: Update_Var_Rent: BREAKPOINT_TYPE validation status :'
14271: || x_return_status
14272: , 3);
14273:
14274: IF (x_return_status = fnd_api.g_ret_sts_error)
14276: --
14277: fnd_message.set_name ('PN', 'PN_VAR_BKHD_BKPT_TY');
14278: x_return_status := fnd_api.g_ret_sts_error;
14279: pn_varen_util.pvt_debug
14280: ( 'PN_VAREN_PVT: Update_Var_Rent: BREAKPOINT_TYPE Meaning Expected Error :'
14281: || p_breakpoint_header_tbl (ubk).breakpoint_type_meaning
14282: , 3);
14283: pn_varen_util.pvt_debug
14284: ('PN_VAREN_PVT: Update_Var_Rent: BREAKPOINT_TYPE Lookup Validation Error'
14280: ( 'PN_VAREN_PVT: Update_Var_Rent: BREAKPOINT_TYPE Meaning Expected Error :'
14281: || p_breakpoint_header_tbl (ubk).breakpoint_type_meaning
14282: , 3);
14283: pn_varen_util.pvt_debug
14284: ('PN_VAREN_PVT: Update_Var_Rent: BREAKPOINT_TYPE Lookup Validation Error'
14285: , 3);
14286: fnd_msg_pub.ADD;
14287: RAISE fnd_api.g_exc_error;
14288: --
14291: --
14292: fnd_message.set_name ('PN', 'PN_VAR_BKHD_BKPT_TY');
14293: --x_return_status := fnd_api.g_ret_sts_unexp_error;
14294: pn_varen_util.pvt_debug
14295: ( 'PN_VAREN_PVT: Update_Var_Rent: BREAKPOINT_TYPE Meaning Un-Expected Error :'
14296: || p_breakpoint_header_tbl (ubk).breakpoint_type_meaning
14297: , 3);
14298: pn_varen_util.pvt_debug
14299: ('PN_VAREN_PVT: Update_Var_Rent: BREAKPOINT_TYPE Lookup Validation Unexpected Error'
14295: ( 'PN_VAREN_PVT: Update_Var_Rent: BREAKPOINT_TYPE Meaning Un-Expected Error :'
14296: || p_breakpoint_header_tbl (ubk).breakpoint_type_meaning
14297: , 3);
14298: pn_varen_util.pvt_debug
14299: ('PN_VAREN_PVT: Update_Var_Rent: BREAKPOINT_TYPE Lookup Validation Unexpected Error'
14300: , 3);
14301: fnd_msg_pub.ADD;
14302: RAISE fnd_api.g_exc_unexpected_error;
14303: --
14303: --
14304: ELSE
14305: x_return_status := fnd_api.g_ret_sts_success;
14306: pn_varen_util.pvt_debug
14307: ( 'PN_VAREN_PVT: Update_Var_Rent: pn_varen_pvt-BREAKPOINT_TYPE Code Success :'
14308: || p_breakpoint_header_tbl (ubk).breakpoint_type_code
14309: , 3);
14310: pn_varen_util.pvt_debug
14311: ('PN_VAREN_PVT: Update_Var_Rent: BREAKPOINT_TYPE Lookup Validation Success'
14307: ( 'PN_VAREN_PVT: Update_Var_Rent: pn_varen_pvt-BREAKPOINT_TYPE Code Success :'
14308: || p_breakpoint_header_tbl (ubk).breakpoint_type_code
14309: , 3);
14310: pn_varen_util.pvt_debug
14311: ('PN_VAREN_PVT: Update_Var_Rent: BREAKPOINT_TYPE Lookup Validation Success'
14312: , 3);
14313: END IF;
14314: ELSE
14315: p_breakpoint_header_tbl (ubk).breakpoint_type_code :=
14313: END IF;
14314: ELSE
14315: p_breakpoint_header_tbl (ubk).breakpoint_type_code :=
14316: l_pn_var_bkhd_defaults.breakpoint_type;
14317: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Var_Rent: BREAKPOINT_TYPE Code :'
14318: || p_breakpoint_header_tbl (ubk).breakpoint_type_code
14319: , 3);
14320: pn_varen_util.pvt_debug
14321: ( 'PN_VAREN_PVT: Update_Var_Rent: l_pn_var_bkhd_defaults.breakpoint_type :'
14317: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Var_Rent: BREAKPOINT_TYPE Code :'
14318: || p_breakpoint_header_tbl (ubk).breakpoint_type_code
14319: , 3);
14320: pn_varen_util.pvt_debug
14321: ( 'PN_VAREN_PVT: Update_Var_Rent: l_pn_var_bkhd_defaults.breakpoint_type :'
14322: || l_pn_var_bkhd_defaults.breakpoint_type
14323: , 3);
14324: END IF;
14325:
14331: IF p_breakpoint_header_tbl (ubk).breakpoint_type_code <> 'FLAT'
14332: THEN
14333: fnd_message.set_name ('PN', 'PN_VAR_BKHD_BT_BKPT_TY');
14334: pn_varen_util.pvt_debug
14335: ( 'PN_VAREN_PVT: Update_Var_Rent: Provide a correct combination of BREAKPOINT_TYPE_code and Break Type code - Validation Error :'
14336: || p_breakpoint_header_tbl (ubk).breakpoint_type_code
14337: , 3);
14338: fnd_msg_pub.ADD;
14339: RAISE fnd_api.g_exc_error;
14339: RAISE fnd_api.g_exc_error;
14340: --
14341: ELSE
14342: pn_varen_util.pvt_debug
14343: ('PN_VAREN_PVT: Update_Var_Rent: Combination of BREAKPOINT_TYPE_code and Break Type code Validation success'
14344: , 3);
14345: END IF;
14346:
14347: pn_varen_util.pvt_debug
14344: , 3);
14345: END IF;
14346:
14347: pn_varen_util.pvt_debug
14348: ( 'PN_VAREN_PVT: Update_Var_Rent: BREAKPOINT_TYPE_code IS NATURAL '
14349: || p_breakpoint_header_tbl (ubk).break_type_code
14350: , 3);
14351: ELSIF p_breakpoint_header_tbl (ubk).break_type_code = 'ARTIFICIAL'
14352: THEN
14351: ELSIF p_breakpoint_header_tbl (ubk).break_type_code = 'ARTIFICIAL'
14352: THEN
14353: -- If p_breakpoint_header_tbl (ubk)..break_type_code = 'ARTIFICIAL' then natural_break_rate should be null
14354: p_breakpoint_header_tbl (ubk).natural_break_rate := NULL;
14355: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Var_Rent: BREAKPOINT_TYPE_code is '
14356: || p_breakpoint_header_tbl (ubk).break_type_code
14357: , 3);
14358: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Var_Rent: Natural break rate is '
14359: || p_breakpoint_header_tbl (ubk).natural_break_rate
14354: p_breakpoint_header_tbl (ubk).natural_break_rate := NULL;
14355: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Var_Rent: BREAKPOINT_TYPE_code is '
14356: || p_breakpoint_header_tbl (ubk).break_type_code
14357: , 3);
14358: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Var_Rent: Natural break rate is '
14359: || p_breakpoint_header_tbl (ubk).natural_break_rate
14360: , 3);
14361: END IF;
14362:
14589:
14590: ------------------------End of 11-Dec-2010 DFF changes----------------------------
14591:
14592: pn_varen_util.pvt_debug
14593: ( 'PN_VAREN_PVT: Update_Var_Rent: Breakpoint header validations status is '
14594: || x_return_status
14595: , 3);
14596: pn_varen_util.pvt_debug
14597: ('PN_VAREN_PVT: Update_Var_Rent: Calling Generate Breakpoint existence procedure '
14593: ( 'PN_VAREN_PVT: Update_Var_Rent: Breakpoint header validations status is '
14594: || x_return_status
14595: , 3);
14596: pn_varen_util.pvt_debug
14597: ('PN_VAREN_PVT: Update_Var_Rent: Calling Generate Breakpoint existence procedure '
14598: , 3);
14599: pn_varen_util.breakpoint_ext (p_var_rent_id => p_breakpoint_header_tbl (ubk).var_rent_id
14600: , x_bkpt_exist => l_bkpt_exist
14601: , x_return_status => x_return_status);
14599: pn_varen_util.breakpoint_ext (p_var_rent_id => p_breakpoint_header_tbl (ubk).var_rent_id
14600: , x_bkpt_exist => l_bkpt_exist
14601: , x_return_status => x_return_status);
14602: pn_varen_util.pvt_debug
14603: ( 'PN_VAREN_PVT: Update_Var_Rent: Value of l_bkpt_exist from breakpoint_ext procedure is'
14604: || l_bkpt_exist
14605: , 3);
14606: pn_varen_util.pvt_debug
14607: ( 'PN_VAREN_PVT: Update_Var_Rent: Status of breakpoint_ext procedure '
14603: ( 'PN_VAREN_PVT: Update_Var_Rent: Value of l_bkpt_exist from breakpoint_ext procedure is'
14604: || l_bkpt_exist
14605: , 3);
14606: pn_varen_util.pvt_debug
14607: ( 'PN_VAREN_PVT: Update_Var_Rent: Status of breakpoint_ext procedure '
14608: || x_return_status
14609: , 3);
14610: -- Below code has been added by Vivek on 10-DEC-2010
14611: IF p_breakpoint_header_tbl (ubk).bkhd_start_date
14633:
14634:
14635: EXCEPTION
14636: WHEN OTHERS THEN
14637: pn_varen_util.pvt_debug('PN_VAREN_PVT:Remove any overlap in the breakpoint Headers',3);
14638: END;
14639:
14640: IF(NVL(l_date_range_count,0) > 0) THEN
14641: --fnd_message.set_name('PN','PN_VAR_BKPT_OVERLAP');
14658: , x_return_status => x_return_status);
14659: IF x_return_status <> fnd_api.g_ret_sts_success --'S'
14660: THEN
14661: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
14662: fnd_message.set_token ('ERR_MSG', 'PN_VAREN_PVT: Update_Var_Rent:INSERT_BREAKPOINT_HEADERS procedure returned error');
14663: fnd_msg_pub.ADD;
14664: RAISE fnd_api.g_exc_error;
14665: END IF;
14666: END IF;
14676: AND p_breakpoint_header_tbl (ubk).bkhd_default_id <> pn_varen_util.g_pn_miss_num)
14677: THEN
14678: -- Call update of breakpoint headers
14679: pn_varen_util.pvt_debug
14680: ('PN_VAREN_PVT: Update_Var_Rent: Calling update_breakpoint_headers procedure'
14681: , 3);
14682: update_breakpoint_headers
14683: (p_breakpoint_header_rec_type => p_breakpoint_header_tbl (ubk)
14684: , x_return_status => x_return_status);
14682: update_breakpoint_headers
14683: (p_breakpoint_header_rec_type => p_breakpoint_header_tbl (ubk)
14684: , x_return_status => x_return_status);
14685: pn_varen_util.pvt_debug
14686: ( 'PN_VAREN_PVT: Update_Var_Rent: Status of update_breakpoint_headers procedure is '
14687: || x_return_status
14688: , 3);
14689: IF x_return_status <> fnd_api.g_ret_sts_success --'S'
14690: THEN
14688: , 3);
14689: IF x_return_status <> fnd_api.g_ret_sts_success --'S'
14690: THEN
14691: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
14692: fnd_message.set_token ('ERR_MSG', 'PN_VAREN_PVT: Update_Var_Rent:UPDATE_BREAKPOINT_HEADERS procedure returned error');
14693: fnd_msg_pub.ADD;
14694: RAISE fnd_api.g_exc_error;
14695: END IF;
14696:
14722: --IF (c_pn_var_bkdt_defaults%NOTFOUND)
14723: --THEN
14724: --x_return_status := fnd_api.g_ret_sts_error;
14725:
14726: --pn_varen_util.pvt_debug ('PN_VAREN_PVT: Update_Var_Rent: Cursor C_pn_var_bkdt_defaults not found'
14727: -- , 3
14728: -- );
14729: -- ELSE
14730: --pn_varen_util.pvt_debug ('PN_VAREN_PVT: Update_Var_Rent: Cursor C_pn_var_bkdt_defaults found'
14726: --pn_varen_util.pvt_debug ('PN_VAREN_PVT: Update_Var_Rent: Cursor C_pn_var_bkdt_defaults not found'
14727: -- , 3
14728: -- );
14729: -- ELSE
14730: --pn_varen_util.pvt_debug ('PN_VAREN_PVT: Update_Var_Rent: Cursor C_pn_var_bkdt_defaults found'
14731: -- , 3
14732: -- );
14733: pn_varen_util.pvt_debug
14734: ( 'PN_VAREN_PVT: Update_Var_Rent: After the cursor C_pn_var_bkdt_defaults is open, value of p_upd_var_rent_rec.var_rent_id is '
14730: --pn_varen_util.pvt_debug ('PN_VAREN_PVT: Update_Var_Rent: Cursor C_pn_var_bkdt_defaults found'
14731: -- , 3
14732: -- );
14733: pn_varen_util.pvt_debug
14734: ( 'PN_VAREN_PVT: Update_Var_Rent: After the cursor C_pn_var_bkdt_defaults is open, value of p_upd_var_rent_rec.var_rent_id is '
14735: || p_upd_var_rent_rec.var_rent_id
14736: , 3);
14737: --------------------------------------------------------------------------------
14738: -- Initialize Update Breakpoint Details
14739: -------------------------------------------------------------------------------
14740: --FOR ubd IN p_breakpoint_details_tbl.FIRST .. p_breakpoint_details_tbl.LAST
14741: --LOOP
14742: pn_varen_util.pvt_debug
14743: ('PN_VAREN_PVT: Update_Var_Rent: Inside Breakpoint Details procedure loop'
14744: , 3);
14745:
14746: IF ( p_breakpoint_details_tbl (ubd).bkdt_default_id IS NULL
14747: OR p_breakpoint_details_tbl (ubd).bkdt_default_id = pn_varen_util.g_pn_miss_num)
15047: ------------------------End of 11-Dec-2010 DFF changes----------------------------
15048:
15049:
15050: pn_varen_util.pvt_debug
15051: ( 'PN_VAREN_PVT: Update_Var_Rent: Status of Breakpoint Details validations is '
15052: || x_return_status
15053: , 3);
15054:
15055: -- Added by vivek on 10-Dec-2010
15073: AND bkhd_default_id =p_breakpoint_details_tbl (ubd).bkhd_default_id
15074: AND (bkdt_start_date <=p_breakpoint_details_tbl (ubd).bkdt_end_date AND bkdt_end_date >= p_breakpoint_details_tbl (ubd).bkdt_start_date);
15075: EXCEPTION
15076: WHEN OTHERS THEN
15077: pn_varen_util.pvt_debug('PN_VAREN_PVT:Remove any overlap in the breakpoint details',3);
15078: END;
15079:
15080: IF(NVL(l_date_range_bkdt_count,0) > 0) THEN
15081: --fnd_message.set_name('PN','PN_VAR_BKPT_OVERLAP');
15091: IF p_breakpoint_details_tbl (ubd).bkdt_default_id IS NOT NULL
15092: AND p_breakpoint_details_tbl (ubd).bkdt_default_id <> pn_varen_util.g_pn_miss_num
15093: THEN
15094: pn_varen_util.pvt_debug
15095: ('PN_VAREN_PVT: Update_Var_Rent: Before calling update_breakpoint_details prcoedure '
15096: , 3);
15097: update_breakpoint_details
15098: (p_breakpoint_details_rec_type => p_breakpoint_details_tbl (ubd)
15099: , x_return_status => x_return_status);
15097: update_breakpoint_details
15098: (p_breakpoint_details_rec_type => p_breakpoint_details_tbl (ubd)
15099: , x_return_status => x_return_status);
15100: pn_varen_util.pvt_debug
15101: ( 'PN_VAREN_PVT: Update_Var_Rent: Status of update_breakpoint_details prcoedure is '
15102: || x_return_status
15103: , 3);
15104: IF x_return_status <> fnd_api.g_ret_sts_success --'S'
15105: THEN
15103: , 3);
15104: IF x_return_status <> fnd_api.g_ret_sts_success --'S'
15105: THEN
15106: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
15107: fnd_message.set_token ('ERR_MSG', 'PN_VAREN_PVT: Update_Var_Rent:UPDATE_BREAKPOINT_DETAILS procedure returned error');
15108: fnd_msg_pub.ADD;
15109: RAISE fnd_api.g_exc_error;
15110: END IF;
15111: ELSE
15114: , x_return_status => x_return_status);
15115: IF x_return_status <> fnd_api.g_ret_sts_success --'S'
15116: THEN
15117: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
15118: fnd_message.set_token ('ERR_MSG', 'PN_VAREN_PVT: Update_Var_Rent:INSERT_BREAKPOINT_DETAILS procedure returned error');
15119: fnd_msg_pub.ADD;
15120: RAISE fnd_api.g_exc_error;
15121: END IF;
15122: END IF;
15142:
15143: --IF (c_pn_var_constraints%NOTFOUND)
15144: --THEN
15145: -- x_return_status := fnd_api.g_ret_sts_error;
15146: -- pn_varen_util.pvt_debug ('PN_VAREN_PVT: Update_Var_Rent: Cursor c_pn_var_constraints not found'
15147: -- , 3
15148: -- );
15149: --ELSE
15150: -- pn_varen_util.pvt_debug ('PN_VAREN_PVT: Update_Var_Rent: Cursor c_pn_var_constraints found'
15146: -- pn_varen_util.pvt_debug ('PN_VAREN_PVT: Update_Var_Rent: Cursor c_pn_var_constraints not found'
15147: -- , 3
15148: -- );
15149: --ELSE
15150: -- pn_varen_util.pvt_debug ('PN_VAREN_PVT: Update_Var_Rent: Cursor c_pn_var_constraints found'
15151: -- , 3
15152: -- );
15153: -- pn_varen_util.pvt_debug
15154: -- ( 'PN_VAREN_PVT: Update_Var_Rent: After the cursor c_pn_var_constraints is open, value of p_upd_var_rent_rec.var_rent_id is '
15150: -- pn_varen_util.pvt_debug ('PN_VAREN_PVT: Update_Var_Rent: Cursor c_pn_var_constraints found'
15151: -- , 3
15152: -- );
15153: -- pn_varen_util.pvt_debug
15154: -- ( 'PN_VAREN_PVT: Update_Var_Rent: After the cursor c_pn_var_constraints is open, value of p_upd_var_rent_rec.var_rent_id is '
15155: -- || p_upd_var_rent_rec.var_rent_id
15156: -- , 3
15157: -- );
15158: --------------------------------------------------------------------------------
15175: OR p_constraints_tbl (uc).var_rent_num = pn_varen_util.g_pn_miss_char)
15176: THEN
15177: p_constraints_tbl (uc).var_rent_id := l_pn_var_constraints.var_rent_id;
15178: pn_varen_util.pvt_debug
15179: ( 'PN_VAREN_PVT: Update_Var_Rent: Value of p_constraints_tbl(uc).var_rent_id :'
15180: || p_constraints_tbl (uc).var_rent_id
15181: , 3);
15182: pn_varen_util.pvt_debug
15183: ( 'PN_VAREN_PVT: Update_Var_Rent: Value of l_var_commencement_date :'
15179: ( 'PN_VAREN_PVT: Update_Var_Rent: Value of p_constraints_tbl(uc).var_rent_id :'
15180: || p_constraints_tbl (uc).var_rent_id
15181: , 3);
15182: pn_varen_util.pvt_debug
15183: ( 'PN_VAREN_PVT: Update_Var_Rent: Value of l_var_commencement_date :'
15184: || l_var_commencement_date
15185: , 3);
15186: END IF;
15187:
15185: , 3);
15186: END IF;
15187:
15188: pn_varen_util.pvt_debug
15189: ( 'PN_VAREN_PVT: Update_Var_Rent: Before p_constraints_tbl(uc).var_rent_id :'
15190: || p_constraints_tbl (uc).var_rent_id
15191: , 3);
15192: pn_varen_util.pvt_debug
15193: ( 'PN_VAREN_PVT: Update_Var_Rent: Before l_var_commencement_date :'
15189: ( 'PN_VAREN_PVT: Update_Var_Rent: Before p_constraints_tbl(uc).var_rent_id :'
15190: || p_constraints_tbl (uc).var_rent_id
15191: , 3);
15192: pn_varen_util.pvt_debug
15193: ( 'PN_VAREN_PVT: Update_Var_Rent: Before l_var_commencement_date :'
15194: || l_var_commencement_date
15195: , 3);
15196: pn_varen_util.pvt_debug
15197: ( 'PN_VAREN_PVT: Update_Var_Rent: Before l_var_termination_date :'
15193: ( 'PN_VAREN_PVT: Update_Var_Rent: Before l_var_commencement_date :'
15194: || l_var_commencement_date
15195: , 3);
15196: pn_varen_util.pvt_debug
15197: ( 'PN_VAREN_PVT: Update_Var_Rent: Before l_var_termination_date :'
15198: || l_var_termination_date
15199: , 3);
15200: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Var_Rent: Before x_return_status :'
15201: || x_return_status
15196: pn_varen_util.pvt_debug
15197: ( 'PN_VAREN_PVT: Update_Var_Rent: Before l_var_termination_date :'
15198: || l_var_termination_date
15199: , 3);
15200: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Var_Rent: Before x_return_status :'
15201: || x_return_status
15202: , 3);
15203:
15204: ------------------------------
15205: --- Validating Variable Rent Id
15206: -----------------------------------
15207: BEGIN
15208: pn_varen_util.pvt_debug
15209: ( 'PN_VAREN_PVT: Update_Var_Rent: Constraint Variable Rent Id '
15210: || p_constraints_tbl (uc).var_rent_id
15211: , 3);
15212: pn_varen_util.var_rent_details (p_var_rent_id => p_constraints_tbl (uc).var_rent_id
15213: , p_org_id => g_org_id
15214: , x_commencement_date => l_var_commencement_date
15215: , x_termination_date => l_var_termination_date
15216: , x_return_status => x_return_status);
15217: pn_varen_util.pvt_debug
15218: ( 'PN_VAREN_PVT: Update_Var_Rent: Status of var_rent_details procedure is '
15219: || x_return_status
15220: , 3);
15221:
15222: IF x_return_status = fnd_api.g_ret_sts_success
15221:
15222: IF x_return_status = fnd_api.g_ret_sts_success
15223: THEN
15224: pn_varen_util.pvt_debug
15225: ( 'PN_VAREN_PVT: Update_Var_Rent: Constraint Variable Rent Id exists : '
15226: || p_constraints_tbl (uc).var_rent_id
15227: , 3);
15228: pn_varen_util.pvt_debug
15229: ( 'PN_VAREN_PVT: Update_Var_Rent: Variable Rent commencement date : '
15225: ( 'PN_VAREN_PVT: Update_Var_Rent: Constraint Variable Rent Id exists : '
15226: || p_constraints_tbl (uc).var_rent_id
15227: , 3);
15228: pn_varen_util.pvt_debug
15229: ( 'PN_VAREN_PVT: Update_Var_Rent: Variable Rent commencement date : '
15230: || l_var_commencement_date
15231: , 3);
15232: pn_varen_util.pvt_debug
15233: ( 'PN_VAREN_PVT: Update_Var_Rent: Variable Rent termination date : '
15229: ( 'PN_VAREN_PVT: Update_Var_Rent: Variable Rent commencement date : '
15230: || l_var_commencement_date
15231: , 3);
15232: pn_varen_util.pvt_debug
15233: ( 'PN_VAREN_PVT: Update_Var_Rent: Variable Rent termination date : '
15234: || l_var_termination_date
15235: , 3);
15236: ELSE
15237: pn_varen_util.pvt_debug
15234: || l_var_termination_date
15235: , 3);
15236: ELSE
15237: pn_varen_util.pvt_debug
15238: ( 'PN_VAREN_PVT: Update_Var_Rent: Constraint Variable Rent Id doesnot exists : '
15239: || p_constraints_tbl (uc).var_rent_id
15240: , 3);
15241: --
15242: --l_const_val :=
15244: END IF;
15245: END;
15246:
15247: pn_varen_util.pvt_debug
15248: ( 'PN_VAREN_PVT: Update_Var_Rent: After p_constraints_tbl(uc).var_rent_id :'
15249: || p_constraints_tbl (uc).var_rent_id
15250: , 3);
15251: pn_varen_util.pvt_debug
15252: ( 'PN_VAREN_PVT: Update_Var_Rent: After l_var_commencement_date :'
15248: ( 'PN_VAREN_PVT: Update_Var_Rent: After p_constraints_tbl(uc).var_rent_id :'
15249: || p_constraints_tbl (uc).var_rent_id
15250: , 3);
15251: pn_varen_util.pvt_debug
15252: ( 'PN_VAREN_PVT: Update_Var_Rent: After l_var_commencement_date :'
15253: || l_var_commencement_date
15254: , 3);
15255: pn_varen_util.pvt_debug
15256: ( 'PN_VAREN_PVT: Update_Var_Rent: After l_var_termination_date :'
15252: ( 'PN_VAREN_PVT: Update_Var_Rent: After l_var_commencement_date :'
15253: || l_var_commencement_date
15254: , 3);
15255: pn_varen_util.pvt_debug
15256: ( 'PN_VAREN_PVT: Update_Var_Rent: After l_var_termination_date :'
15257: || l_var_termination_date
15258: , 3);
15259: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Var_Rent: After x_return_status :'
15260: || x_return_status
15255: pn_varen_util.pvt_debug
15256: ( 'PN_VAREN_PVT: Update_Var_Rent: After l_var_termination_date :'
15257: || l_var_termination_date
15258: , 3);
15259: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Var_Rent: After x_return_status :'
15260: || x_return_status
15261: , 3);
15262:
15263: BEGIN
15261: , 3);
15262:
15263: BEGIN
15264: pn_varen_util.pvt_debug
15265: ('PN_VAREN_PVT: Update_Var_Rent: Verifying whether constraints are generated or not.'
15266: , 3);
15267:
15268: SELECT COUNT (1)
15269: INTO ln_const_count
15273: WHERE var_rent_id = p_constraints_tbl (uc).var_rent_id);
15274:
15275: --l_pn_var_constraints.var_rent_id;
15276: pn_varen_util.pvt_debug
15277: ( 'PN_VAREN_PVT: Update_Var_Rent: Value of ln_const_count is '
15278: || ln_const_count
15279: , 3);
15280:
15281: IF ln_const_count > 0
15280:
15281: IF ln_const_count > 0
15282: THEN
15283: pn_varen_util.pvt_debug
15284: ( 'PN_VAREN_PVT: Update_Var_Rent: Constraints are already generated for the Variable Rent Id : '
15285: || p_constraints_tbl (uc).var_rent_id
15286: , 3);
15287: pn_varen_util.pvt_debug
15288: ( 'PN_VAREN_PVT: Update_Var_Rent: Constraints are already generated for the Variable Rent Id : '
15284: ( 'PN_VAREN_PVT: Update_Var_Rent: Constraints are already generated for the Variable Rent Id : '
15285: || p_constraints_tbl (uc).var_rent_id
15286: , 3);
15287: pn_varen_util.pvt_debug
15288: ( 'PN_VAREN_PVT: Update_Var_Rent: Constraints are already generated for the Variable Rent Id : '
15289: || p_constraints_tbl (uc).var_rent_id
15290: , 3);
15291: pn_varen_util.pvt_debug
15292: ( 'PN_VAREN_PVT: Update_Var_Rent: Before calling undo_constraints procedure, value of p_undo_constraints is '
15288: ( 'PN_VAREN_PVT: Update_Var_Rent: Constraints are already generated for the Variable Rent Id : '
15289: || p_constraints_tbl (uc).var_rent_id
15290: , 3);
15291: pn_varen_util.pvt_debug
15292: ( 'PN_VAREN_PVT: Update_Var_Rent: Before calling undo_constraints procedure, value of p_undo_constraints is '
15293: || p_undo_constraints
15294: , 3);
15295:
15296: IF p_undo_constraints = 'Y'
15295:
15296: IF p_undo_constraints = 'Y'
15297: THEN
15298: pn_varen_util.pvt_debug
15299: ( 'PN_VAREN_PVT: Update_Var_Rent: Before undo_constraints procedure, value of constraints var_rent_id is '
15300: || p_constraints_tbl (uc).var_rent_id
15301: , 3);
15302: undo_constraints (p_var_rent_id => p_constraints_tbl (uc).var_rent_id
15303: , x_return_status => x_return_status);
15301: , 3);
15302: undo_constraints (p_var_rent_id => p_constraints_tbl (uc).var_rent_id
15303: , x_return_status => x_return_status);
15304: pn_varen_util.pvt_debug
15305: ( 'PN_VAREN_PVT: Update_Var_Rent: Status of undo_constraints procedure is '
15306: || x_return_status
15307: , 3);
15308: END IF; -- p_undo_constraints
15309: END IF; -- ln_const_count
15310: EXCEPTION
15311: WHEN OTHERS
15312: THEN
15313: pn_varen_util.pvt_debug
15314: ('PN_VAREN_PVT: Update_Var_Rent: Error occured while verifying whether constraints are generated or not.'
15315: , 3);
15316: END;
15317:
15318: IF ( p_constraints_tbl (uc).agreement_template_id IS NULL
15346: IF ( p_constraints_tbl (uc).constr_start_date IS NOT NULL
15347: AND p_constraints_tbl (uc).constr_start_date <> pn_varen_util.g_pn_miss_date)
15348: THEN
15349: pn_varen_util.pvt_debug
15350: ( 'PN_VAREN_PVT: Update_Var_Rent: Constratint Start Date is not null : '
15351: || p_constraints_tbl (uc).constr_start_date
15352: , 3);
15353: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Var_Rent: Constratint End Date : '
15354: || p_constraints_tbl (uc).constr_end_date
15349: pn_varen_util.pvt_debug
15350: ( 'PN_VAREN_PVT: Update_Var_Rent: Constratint Start Date is not null : '
15351: || p_constraints_tbl (uc).constr_start_date
15352: , 3);
15353: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Var_Rent: Constratint End Date : '
15354: || p_constraints_tbl (uc).constr_end_date
15355: , 3);
15356: pn_varen_util.pvt_debug
15357: ( 'PN_VAREN_PVT: Update_Var_Rent: Variable Rent Commencement Date : '
15353: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Var_Rent: Constratint End Date : '
15354: || p_constraints_tbl (uc).constr_end_date
15355: , 3);
15356: pn_varen_util.pvt_debug
15357: ( 'PN_VAREN_PVT: Update_Var_Rent: Variable Rent Commencement Date : '
15358: || l_var_commencement_date
15359: , 3);
15360: pn_varen_util.pvt_debug
15361: ( 'PN_VAREN_PVT: Update_Var_Rent: Variable Rent Termination Date: '
15357: ( 'PN_VAREN_PVT: Update_Var_Rent: Variable Rent Commencement Date : '
15358: || l_var_commencement_date
15359: , 3);
15360: pn_varen_util.pvt_debug
15361: ( 'PN_VAREN_PVT: Update_Var_Rent: Variable Rent Termination Date: '
15362: || l_var_termination_date
15363: , 3);
15364:
15365: IF (p_constraints_tbl (uc).constr_start_date = l_var_commencement_date)
15365: IF (p_constraints_tbl (uc).constr_start_date = l_var_commencement_date)
15366: THEN
15367: x_return_status := fnd_api.g_ret_sts_success;
15368: pn_varen_util.pvt_debug
15369: ( 'PN_VAREN_PVT: Update_Var_Rent: Constratint Start Date Validation Success :'
15370: || p_constraints_tbl (uc).constr_start_date
15371: , 3);
15372: pn_varen_util.pvt_debug
15373: ( 'PN_VAREN_PVT: Update_Var_Rent: Constratint Start Date Validation Success :'
15369: ( 'PN_VAREN_PVT: Update_Var_Rent: Constratint Start Date Validation Success :'
15370: || p_constraints_tbl (uc).constr_start_date
15371: , 3);
15372: pn_varen_util.pvt_debug
15373: ( 'PN_VAREN_PVT: Update_Var_Rent: Constratint Start Date Validation Success :'
15374: || p_constraints_tbl (uc).constr_start_date
15375: , 3);
15376: ELSIF ( p_constraints_tbl (uc).constr_start_date < l_var_commencement_date
15377: OR p_constraints_tbl (uc).constr_start_date > l_var_termination_date)
15378: THEN
15379: --
15380: fnd_message.set_name ('PN', 'PN_VAR_CONSTR_STRDT_VAL_MSG');
15381: pn_varen_util.pvt_debug
15382: ( 'PN_VAREN_PVT: Update_Var_Rent: Constratint Start Date Validation Error :'
15383: || p_constraints_tbl (uc).constr_start_date
15384: || 'Please enter a constraint start date that is the same as or after the commencement date of the variable rent agreement.'
15385: , 3);
15386: pn_varen_util.pvt_debug
15383: || p_constraints_tbl (uc).constr_start_date
15384: || 'Please enter a constraint start date that is the same as or after the commencement date of the variable rent agreement.'
15385: , 3);
15386: pn_varen_util.pvt_debug
15387: ( 'PN_VAREN_PVT: Update_Var_Rent: Constratint Start Date Validation Error : '
15388: || p_constraints_tbl (uc).constr_start_date
15389: || 'Please enter a constraint start date that is the same as or after the commencement date of the variable rent agreement.'
15390: , 3);
15391: fnd_msg_pub.ADD;
15400: --
15401: fnd_message.set_name ('PN', 'PN_VAR_CONSTR_STRDT_VAL_MSG');
15402: --x_return_status :=fnd_api.g_ret_sts_error;
15403: pn_varen_util.pvt_debug
15404: ( 'PN_VAREN_PVT: Update_Var_Rent: Constratint Start Date Validation Error :'
15405: || p_constraints_tbl (uc).constr_start_date
15406: || 'Please ensure that constraint dates you enter coincide with invoice period dates'
15407: , 3);
15408: pn_varen_util.pvt_debug
15405: || p_constraints_tbl (uc).constr_start_date
15406: || 'Please ensure that constraint dates you enter coincide with invoice period dates'
15407: , 3);
15408: pn_varen_util.pvt_debug
15409: ( 'PN_VAREN_PVT: Update_Var_Rent: Constratint Start Date Validation Error : '
15410: || p_constraints_tbl (uc).constr_start_date
15411: || 'Please ensure that constraint dates you enter coincide with invoice period dates'
15412: , 3);
15413: fnd_msg_pub.ADD;
15422: p_constraints_tbl (uc).constr_start_date := l_var_commencement_date;
15423: --
15424: x_return_status := fnd_api.g_ret_sts_success;
15425: pn_varen_util.pvt_debug
15426: ( 'PN_VAREN_PVT: Update_Var_Rent: Constratint Start Date is null then value is Defaulted Variable Rent Commencement Date : '
15427: || l_var_commencement_date
15428: || ' Success'
15429: , 3);
15430: pn_varen_util.pvt_debug
15427: || l_var_commencement_date
15428: || ' Success'
15429: , 3);
15430: pn_varen_util.pvt_debug
15431: ( 'PN_VAREN_PVT: Update_Var_Rent: Constratint Start Date is null then value is Defaulted Variable Rent Commencement Date : '
15432: || l_var_commencement_date
15433: || ' Success'
15434: , 3);
15435: END IF;
15434: , 3);
15435: END IF;
15436:
15437: pn_varen_util.pvt_debug
15438: ( 'PN_VAREN_PVT: Update_Var_Rent: , p_constraints_tbl (uc).constr_start_date :'
15439: || p_constraints_tbl (uc).constr_start_date
15440: , 3);
15441: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Var_Rent: , l_var_commencement_date :'
15442: || l_var_commencement_date
15437: pn_varen_util.pvt_debug
15438: ( 'PN_VAREN_PVT: Update_Var_Rent: , p_constraints_tbl (uc).constr_start_date :'
15439: || p_constraints_tbl (uc).constr_start_date
15440: , 3);
15441: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Var_Rent: , l_var_commencement_date :'
15442: || l_var_commencement_date
15443: , 3);
15444:
15445: ----------------------------------------------------------------------
15448: IF ( p_constraints_tbl (uc).constr_end_date IS NOT NULL
15449: AND p_constraints_tbl (uc).constr_end_date <> pn_varen_util.g_pn_miss_date)
15450: THEN
15451: pn_varen_util.pvt_debug
15452: ( 'PN_VAREN_PVT: Update_Var_Rent: Constratint end Date is not null : '
15453: || p_constraints_tbl (uc).constr_end_date
15454: , 3);
15455: pn_varen_util.pvt_debug
15456: ( 'PN_VAREN_PVT: Update_Var_Rent: Variable Rent Termination Date: '
15452: ( 'PN_VAREN_PVT: Update_Var_Rent: Constratint end Date is not null : '
15453: || p_constraints_tbl (uc).constr_end_date
15454: , 3);
15455: pn_varen_util.pvt_debug
15456: ( 'PN_VAREN_PVT: Update_Var_Rent: Variable Rent Termination Date: '
15457: || l_var_termination_date
15458: , 3);
15459:
15460: IF (p_constraints_tbl (uc).constr_end_date = l_var_termination_date)
15460: IF (p_constraints_tbl (uc).constr_end_date = l_var_termination_date)
15461: THEN
15462: x_return_status := fnd_api.g_ret_sts_success;
15463: pn_varen_util.pvt_debug
15464: ( 'PN_VAREN_PVT: Update_Var_Rent: Constratint end Date Validation Success :'
15465: || p_constraints_tbl (uc).constr_end_date
15466: , 3);
15467: pn_varen_util.pvt_debug
15468: ( 'PN_VAREN_PVT: Update_Var_Rent: Constratint end Date Validation Success :'
15464: ( 'PN_VAREN_PVT: Update_Var_Rent: Constratint end Date Validation Success :'
15465: || p_constraints_tbl (uc).constr_end_date
15466: , 3);
15467: pn_varen_util.pvt_debug
15468: ( 'PN_VAREN_PVT: Update_Var_Rent: Constratint end Date Validation Success :'
15469: || p_constraints_tbl (uc).constr_end_date
15470: , 3);
15471: ELSIF ( p_constraints_tbl (uc).constr_end_date > l_var_termination_date
15472: OR p_constraints_tbl (uc).constr_end_date < l_var_commencement_date)
15474: --
15475: fnd_message.set_name ('PN', 'PN_VAR_CONSTR_ENDDT_VAL_MSG');
15476: --x_return_status := fnd_api.g_ret_sts_error;
15477: pn_varen_util.pvt_debug
15478: ( 'PN_VAREN_PVT: Update_Var_Rent: Constratint end Date Validation Error :'
15479: || p_constraints_tbl (uc).constr_end_date
15480: || 'Please enter a constraint end date that is the same as or before the termination date of the variable rent agreement.'
15481: , 3);
15482: pn_varen_util.pvt_debug
15479: || p_constraints_tbl (uc).constr_end_date
15480: || 'Please enter a constraint end date that is the same as or before the termination date of the variable rent agreement.'
15481: , 3);
15482: pn_varen_util.pvt_debug
15483: ( 'PN_VAREN_PVT: Update_Var_Rent: Constraint end Date Validation Error : '
15484: || p_constraints_tbl (uc).constr_end_date
15485: || 'Please enter a constraint end date that is the same as or before the termination date of the variable rent agreement.'
15486: , 3);
15487: fnd_msg_pub.ADD;
15495: --
15496: fnd_message.set_name ('PN', 'PN_VAR_CONSTR_ENDDT_VAL_MSG');
15497: --x_return_status := fnd_api.g_ret_sts_error;
15498: pn_varen_util.pvt_debug
15499: ( 'PN_VAREN_PVT: Update_Var_Rent: Constraint end Date Validation Error :'
15500: || p_constraints_tbl (uc).constr_end_date
15501: || 'Please enter an end date that is greater than or equal to the start date.'
15502: , 3);
15503: pn_varen_util.pvt_debug
15500: || p_constraints_tbl (uc).constr_end_date
15501: || 'Please enter an end date that is greater than or equal to the start date.'
15502: , 3);
15503: pn_varen_util.pvt_debug
15504: ( 'PN_VAREN_PVT: Update_Var_Rent: Constraint end Date Validation Error : '
15505: || p_constraints_tbl (uc).constr_end_date
15506: || 'Please enter an end date that is greater than or equal to the start date.'
15507: , 3);
15508: fnd_msg_pub.ADD;
15517: p_constraints_tbl (uc).constr_end_date := l_var_termination_date;
15518: --
15519: x_return_status := fnd_api.g_ret_sts_success;
15520: pn_varen_util.pvt_debug
15521: ( 'PN_VAREN_PVT: Update_Var_Rent: Constraint end Date is null then value is defaulted Variable Rent Termination Date : '
15522: || l_var_termination_date
15523: || ' Success'
15524: , 3);
15525: pn_varen_util.pvt_debug
15522: || l_var_termination_date
15523: || ' Success'
15524: , 3);
15525: pn_varen_util.pvt_debug
15526: ( 'PN_VAREN_PVT: Update_Var_Rent: Constraint end Date is null then value is defaulted Termination Date : '
15527: || l_var_termination_date
15528: || ' Success'
15529: , 3);
15530: END IF;
15529: , 3);
15530: END IF;
15531:
15532: pn_varen_util.pvt_debug
15533: ( 'PN_VAREN_PVT: Update_Var_Rent: p_constraints_tbl (uc).constr_end_date :'
15534: || p_constraints_tbl (uc).constr_end_date
15535: , 3);
15536:
15537: IF (p_constraints_tbl (uc).constr_start_date > p_constraints_tbl (uc).constr_end_date)
15536:
15537: IF (p_constraints_tbl (uc).constr_start_date > p_constraints_tbl (uc).constr_end_date)
15538: THEN
15539: pn_varen_util.pvt_debug
15540: ('PN_VAREN_PVT: Update_Var_Rent: Please ensure that constraint dates you enter coincide with invoice period dates'
15541: , 3);
15542: pn_varen_util.pvt_debug
15543: ('PN_VAREN_PVT: Update_Var_Rent: Please ensure that constraint dates you enter coincide with invoice period dates'
15544: , 3);
15539: pn_varen_util.pvt_debug
15540: ('PN_VAREN_PVT: Update_Var_Rent: Please ensure that constraint dates you enter coincide with invoice period dates'
15541: , 3);
15542: pn_varen_util.pvt_debug
15543: ('PN_VAREN_PVT: Update_Var_Rent: Please ensure that constraint dates you enter coincide with invoice period dates'
15544: , 3);
15545: -- l_const_val := 'N';
15546: END IF;
15547:
15551: p_constraints_tbl (uc).constr_cat_code := l_pn_var_constraints.constr_cat_code;
15552: END IF;
15553:
15554: pn_varen_util.pvt_debug
15555: ( 'PN_VAREN_PVT: Update_Var_Rent: p_constraints_tbl (uc).constr_cat_code :'
15556: || p_constraints_tbl (uc).constr_cat_code
15557: , 3);
15558: pn_varen_util.pvt_debug
15559: ( 'PN_VAREN_PVT: Update_Var_Rent: Before p_constraints_tbl (uc).constr_type_meaning :'
15555: ( 'PN_VAREN_PVT: Update_Var_Rent: p_constraints_tbl (uc).constr_cat_code :'
15556: || p_constraints_tbl (uc).constr_cat_code
15557: , 3);
15558: pn_varen_util.pvt_debug
15559: ( 'PN_VAREN_PVT: Update_Var_Rent: Before p_constraints_tbl (uc).constr_type_meaning :'
15560: || p_constraints_tbl (uc).constr_type_meaning
15561: , 3);
15562: pn_varen_util.pvt_debug
15563: ( 'PN_VAREN_PVT: Update_Var_Rent: Before p_constraints_tbl (uc).constr_type_code :'
15559: ( 'PN_VAREN_PVT: Update_Var_Rent: Before p_constraints_tbl (uc).constr_type_meaning :'
15560: || p_constraints_tbl (uc).constr_type_meaning
15561: , 3);
15562: pn_varen_util.pvt_debug
15563: ( 'PN_VAREN_PVT: Update_Var_Rent: Before p_constraints_tbl (uc).constr_type_code :'
15564: || p_constraints_tbl (uc).constr_type_code
15565: , 3);
15566: pn_varen_util.pvt_debug
15567: ( 'PN_VAREN_PVT: Update_Var_Rent: Before l_pn_var_constraints.type_code :'
15563: ( 'PN_VAREN_PVT: Update_Var_Rent: Before p_constraints_tbl (uc).constr_type_code :'
15564: || p_constraints_tbl (uc).constr_type_code
15565: , 3);
15566: pn_varen_util.pvt_debug
15567: ( 'PN_VAREN_PVT: Update_Var_Rent: Before l_pn_var_constraints.type_code :'
15568: || l_pn_var_constraints.type_code
15569: , 3);
15570:
15571: IF ( p_constraints_tbl (uc).constr_type_code IS NOT NULL
15576: --------------------------------------------------------------------------------
15577: --Constraint Type validation
15578: --------------------------------------------------------------------------------
15579: pn_varen_util.pvt_debug
15580: ('PN_VAREN_PVT: Update_Var_Rent: Validation Lookup - Inside the Loop'
15581: , 3);
15582: pn_varen_util.pvt_debug ('PN_VAREN_PVT: Update_Var_Rent: Constraint Type Validation'
15583: , 3);
15584: pn_varen_util.validate_lookups
15578: --------------------------------------------------------------------------------
15579: pn_varen_util.pvt_debug
15580: ('PN_VAREN_PVT: Update_Var_Rent: Validation Lookup - Inside the Loop'
15581: , 3);
15582: pn_varen_util.pvt_debug ('PN_VAREN_PVT: Update_Var_Rent: Constraint Type Validation'
15583: , 3);
15584: pn_varen_util.validate_lookups
15585: (p_lookup_type => g_type_code
15586: , x_lookup_meaning => p_constraints_tbl (uc).constr_type_meaning
15586: , x_lookup_meaning => p_constraints_tbl (uc).constr_type_meaning
15587: , x_lookup_code => p_constraints_tbl (uc).constr_type_code
15588: , x_return_status => x_return_status);
15589: pn_varen_util.pvt_debug
15590: ( 'PN_VAREN_PVT: Update_Var_Rent: Constraint Type Output Code :'
15591: || p_constraints_tbl (uc).constr_type_code
15592: , 3);
15593:
15594: IF (x_return_status = fnd_api.g_ret_sts_error)
15596: --
15597: fnd_message.set_name ('PN', 'PN_VAR_CONSTR_TY');
15598: --x_return_status := fnd_api.g_ret_sts_error;
15599: pn_varen_util.pvt_debug
15600: ( 'PN_VAREN_PVT: Update_Var_Rent: Constraint Type Meaning Expected Error :'
15601: || p_constraints_tbl (uc).constr_type_meaning
15602: , 3);
15603: pn_varen_util.pvt_debug
15604: ('PN_VAREN_PVT: Update_Var_Rent: Constraint Type Lookup Validation Error'
15600: ( 'PN_VAREN_PVT: Update_Var_Rent: Constraint Type Meaning Expected Error :'
15601: || p_constraints_tbl (uc).constr_type_meaning
15602: , 3);
15603: pn_varen_util.pvt_debug
15604: ('PN_VAREN_PVT: Update_Var_Rent: Constraint Type Lookup Validation Error'
15605: , 3);
15606: fnd_msg_pub.ADD;
15607: RAISE fnd_api.g_exc_error;
15608: --
15614: --
15615: fnd_message.set_name ('PN', 'PN_VAR_CONSTR_TY');
15616: --x_return_status := fnd_api.g_ret_sts_unexp_error;
15617: pn_varen_util.pvt_debug
15618: ( 'PN_VAREN_PVT: Update_Var_Rent: Constraint Type Meaning Un-Expected Error :'
15619: || p_constraints_tbl (uc).constr_type_meaning
15620: , 3);
15621: pn_varen_util.pvt_debug
15622: ('PN_VAREN_PVT: Update_Var_Rent: Constraint Type Lookup Validation Unexpected Error'
15618: ( 'PN_VAREN_PVT: Update_Var_Rent: Constraint Type Meaning Un-Expected Error :'
15619: || p_constraints_tbl (uc).constr_type_meaning
15620: , 3);
15621: pn_varen_util.pvt_debug
15622: ('PN_VAREN_PVT: Update_Var_Rent: Constraint Type Lookup Validation Unexpected Error'
15623: , 3);
15624: fnd_msg_pub.ADD;
15625: RAISE fnd_api.g_exc_unexpected_error;
15626: --
15631: --
15632: ELSE
15633: x_return_status := fnd_api.g_ret_sts_success;
15634: pn_varen_util.pvt_debug
15635: ( 'PN_VAREN_PVT: Update_Var_Rent: Constraint Type Code Success :'
15636: || p_constraints_tbl (uc).constr_type_code
15637: , 3);
15638: pn_varen_util.pvt_debug
15639: ('PN_VAREN_PVT: Update_Var_Rent: Constraint Type Lookup Validation Success'
15635: ( 'PN_VAREN_PVT: Update_Var_Rent: Constraint Type Code Success :'
15636: || p_constraints_tbl (uc).constr_type_code
15637: , 3);
15638: pn_varen_util.pvt_debug
15639: ('PN_VAREN_PVT: Update_Var_Rent: Constraint Type Lookup Validation Success'
15640: , 3);
15641: END IF;
15642: ELSE
15643: p_constraints_tbl (uc).constr_type_code := l_pn_var_constraints.type_code;
15643: p_constraints_tbl (uc).constr_type_code := l_pn_var_constraints.type_code;
15644: END IF;
15645:
15646: pn_varen_util.pvt_debug
15647: ( 'PN_VAREN_PVT: Update_Var_Rent: After p_constraints_tbl (uc).constr_type_meaning :'
15648: || p_constraints_tbl (uc).constr_type_meaning
15649: , 3);
15650: pn_varen_util.pvt_debug
15651: ( 'PN_VAREN_PVT: Update_Var_Rent: After p_constraints_tbl (uc).constr_type_code :'
15647: ( 'PN_VAREN_PVT: Update_Var_Rent: After p_constraints_tbl (uc).constr_type_meaning :'
15648: || p_constraints_tbl (uc).constr_type_meaning
15649: , 3);
15650: pn_varen_util.pvt_debug
15651: ( 'PN_VAREN_PVT: Update_Var_Rent: After p_constraints_tbl (uc).constr_type_code :'
15652: || p_constraints_tbl (uc).constr_type_code
15653: , 3);
15654: pn_varen_util.pvt_debug
15655: ( 'PN_VAREN_PVT: Update_Var_Rent: After l_pn_var_constraints.type_code :'
15651: ( 'PN_VAREN_PVT: Update_Var_Rent: After p_constraints_tbl (uc).constr_type_code :'
15652: || p_constraints_tbl (uc).constr_type_code
15653: , 3);
15654: pn_varen_util.pvt_debug
15655: ( 'PN_VAREN_PVT: Update_Var_Rent: After l_pn_var_constraints.type_code :'
15656: || l_pn_var_constraints.type_code
15657: , 3);
15658: pn_varen_util.pvt_debug
15659: ( 'PN_VAREN_PVT: Update_Var_Rent: Before p_constraints_tbl (uc).constr_amount :'
15655: ( 'PN_VAREN_PVT: Update_Var_Rent: After l_pn_var_constraints.type_code :'
15656: || l_pn_var_constraints.type_code
15657: , 3);
15658: pn_varen_util.pvt_debug
15659: ( 'PN_VAREN_PVT: Update_Var_Rent: Before p_constraints_tbl (uc).constr_amount :'
15660: || p_constraints_tbl (uc).constr_amount
15661: , 3);
15662: pn_varen_util.pvt_debug
15663: ( 'PN_VAREN_PVT: Update_Var_Rent: Before l_pn_var_constraints.amount :'
15659: ( 'PN_VAREN_PVT: Update_Var_Rent: Before p_constraints_tbl (uc).constr_amount :'
15660: || p_constraints_tbl (uc).constr_amount
15661: , 3);
15662: pn_varen_util.pvt_debug
15663: ( 'PN_VAREN_PVT: Update_Var_Rent: Before l_pn_var_constraints.amount :'
15664: || l_pn_var_constraints.amount
15665: , 3);
15666:
15667: IF ( p_constraints_tbl (uc).constr_amount IS NULL
15670: p_constraints_tbl (uc).constr_amount := l_pn_var_constraints.amount;
15671: END IF;
15672:
15673: pn_varen_util.pvt_debug
15674: ( 'PN_VAREN_PVT: Update_Var_Rent: After p_constraints_tbl (uc).constr_amount :'
15675: || p_constraints_tbl (uc).constr_amount
15676: , 3);
15677: pn_varen_util.pvt_debug
15678: ( 'PN_VAREN_PVT: Update_Var_Rent: After l_pn_var_constraints.amount :'
15674: ( 'PN_VAREN_PVT: Update_Var_Rent: After p_constraints_tbl (uc).constr_amount :'
15675: || p_constraints_tbl (uc).constr_amount
15676: , 3);
15677: pn_varen_util.pvt_debug
15678: ( 'PN_VAREN_PVT: Update_Var_Rent: After l_pn_var_constraints.amount :'
15679: || l_pn_var_constraints.amount
15680: , 3);
15681:
15682: IF ( p_constraints_tbl (uc).last_update_date IS NULL
15901: ------------------------End of 11-Dec-2010 DFF changes----------------------------
15902: IF (p_validate_flag <> 'Y') --and l_return_status = 'S')
15903: THEN
15904: pn_varen_util.pvt_debug
15905: ('PN_VAREN_PVT: Update_Var_Rent: Start of update_varen_dates Procedure'
15906: , 3);
15907: pn_varen_util.pvt_debug
15908: ( 'PN_VAREN_PVT: Update_Var_Rent: Value of p_upd_var_rent_rec.year_start_date before update_varen_dates procedure is : '
15909: || p_constraints_tbl (uc).constr_default_id
15904: pn_varen_util.pvt_debug
15905: ('PN_VAREN_PVT: Update_Var_Rent: Start of update_varen_dates Procedure'
15906: , 3);
15907: pn_varen_util.pvt_debug
15908: ( 'PN_VAREN_PVT: Update_Var_Rent: Value of p_upd_var_rent_rec.year_start_date before update_varen_dates procedure is : '
15909: || p_constraints_tbl (uc).constr_default_id
15910: , 3);
15911: pn_varen_util.pvt_debug
15912: ( 'PN_VAREN_PVT: Update_Var_Rent: Value of p_upd_var_rent_rec.year_start_date before update_varen_dates procedure is : '
15908: ( 'PN_VAREN_PVT: Update_Var_Rent: Value of p_upd_var_rent_rec.year_start_date before update_varen_dates procedure is : '
15909: || p_constraints_tbl (uc).constr_default_id
15910: , 3);
15911: pn_varen_util.pvt_debug
15912: ( 'PN_VAREN_PVT: Update_Var_Rent: Value of p_upd_var_rent_rec.year_start_date before update_varen_dates procedure is : '
15913: || p_constraints_tbl (uc).constr_default_num
15914: , 3);
15915: pn_varen_util.pvt_debug
15916: ( 'PN_VAREN_PVT: Update_Var_Rent: Value of p_upd_var_rent_rec.year_start_date before update_varen_dates procedure is : '
15912: ( 'PN_VAREN_PVT: Update_Var_Rent: Value of p_upd_var_rent_rec.year_start_date before update_varen_dates procedure is : '
15913: || p_constraints_tbl (uc).constr_default_num
15914: , 3);
15915: pn_varen_util.pvt_debug
15916: ( 'PN_VAREN_PVT: Update_Var_Rent: Value of p_upd_var_rent_rec.year_start_date before update_varen_dates procedure is : '
15917: || p_constraints_tbl (uc).var_rent_id
15918: , 3);
15919: pn_varen_util.pvt_debug
15920: ('PN_VAREN_PVT: Update_Var_Rent: Calling constr_ext procedure for no of constraint records. '
15916: ( 'PN_VAREN_PVT: Update_Var_Rent: Value of p_upd_var_rent_rec.year_start_date before update_varen_dates procedure is : '
15917: || p_constraints_tbl (uc).var_rent_id
15918: , 3);
15919: pn_varen_util.pvt_debug
15920: ('PN_VAREN_PVT: Update_Var_Rent: Calling constr_ext procedure for no of constraint records. '
15921: , 3);
15922: pn_varen_util.constr_ext (p_var_rent_id => p_constraints_tbl (uc).var_rent_id
15923: , x_constr_count => l_constr_count
15924: , x_return_status => x_return_status);
15922: pn_varen_util.constr_ext (p_var_rent_id => p_constraints_tbl (uc).var_rent_id
15923: , x_constr_count => l_constr_count
15924: , x_return_status => x_return_status);
15925: pn_varen_util.pvt_debug
15926: ( 'PN_VAREN_PVT: Update_Var_Rent: Status of constr_ext procedure is '
15927: || x_return_status
15928: , 3);
15929: pn_varen_util.pvt_debug
15930: ( 'PN_VAREN_PVT: Update_Var_Rent: No of Constratint records for the Variable Rent is '
15926: ( 'PN_VAREN_PVT: Update_Var_Rent: Status of constr_ext procedure is '
15927: || x_return_status
15928: , 3);
15929: pn_varen_util.pvt_debug
15930: ( 'PN_VAREN_PVT: Update_Var_Rent: No of Constratint records for the Variable Rent is '
15931: || l_constr_count
15932: , 3);
15933:
15934: IF ( p_constraints_tbl (uc).constr_default_id IS NULL
15939: --------------------------
15940: IF (l_constr_count < 2)
15941: THEN
15942: pn_varen_util.pvt_debug
15943: ('PN_VAREN_PVT: Update_Var_Rent: Start of val_ins_constraints procedure '
15944: , 3);
15945:
15946: IF p_constraints_tbl (uc).constr_type_code <> l_pn_var_constraints.type_code
15947: THEN
15949: , p_validate_flag => p_validate_flag
15950: , p_generate_constraints => 'N'
15951: , x_return_status => x_return_status);
15952: pn_varen_util.pvt_debug
15953: ( 'PN_VAREN_PVT: Update_Var_Rent: Status of val_ins_constraints procedure is '
15954: || x_return_status
15955: , 3);
15956: IF x_return_status <> fnd_api.g_ret_sts_success --'S'
15957: THEN
15955: , 3);
15956: IF x_return_status <> fnd_api.g_ret_sts_success --'S'
15957: THEN
15958: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
15959: fnd_message.set_token ('ERR_MSG', 'PN_VAREN_PVT: Update_Var_Rent:VAL_INS_CONSTRAINTS procedure returned error');
15960: fnd_msg_pub.ADD;
15961: RAISE fnd_api.g_exc_error;
15962: END IF;
15963: END IF;
15964: ELSIF (l_constr_count > 2)
15965: THEN
15966: --1234
15967: pn_varen_util.pvt_debug
15968: ('PN_VAREN_PVT: Update_Var_Rent: Only two constraints records can exists with constraint type as MAX and MIN.'
15969: , 3);
15970: fnd_message.set_name ('PN', 'PN_VAR_NO_CONSTR_REC');
15971: fnd_msg_pub.ADD;
15972: RAISE fnd_api.g_exc_error;
15976: ELSE
15977: IF ln_const_count = 0
15978: THEN
15979: pn_varen_util.pvt_debug
15980: ( 'PN_VAREN_PVT: Update_Var_Rent: Value of ln_const_count is '
15981: || ln_const_count
15982: , 3);
15983: pn_varen_util.pvt_debug
15984: ('PN_VAREN_PVT: Update_Var_Rent: Start of update_constraints Procedure '
15980: ( 'PN_VAREN_PVT: Update_Var_Rent: Value of ln_const_count is '
15981: || ln_const_count
15982: , 3);
15983: pn_varen_util.pvt_debug
15984: ('PN_VAREN_PVT: Update_Var_Rent: Start of update_constraints Procedure '
15985: , 3);
15986: --------------------------
15987: -- Update Constraints
15988: --------------------------
15988: --------------------------
15989: update_constraints (p_constraints_rec_type => p_constraints_tbl (uc)
15990: , x_return_status => x_return_status);
15991: pn_varen_util.pvt_debug
15992: ( 'PN_VAREN_PVT: Update_Var_Rent: Status of update_varen_dates Procedure :'
15993: || x_return_status
15994: , 3);
15995: IF x_return_status <> fnd_api.g_ret_sts_success --'S'
15996: THEN
15994: , 3);
15995: IF x_return_status <> fnd_api.g_ret_sts_success --'S'
15996: THEN
15997: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
15998: fnd_message.set_token ('ERR_MSG', 'PN_VAREN_PVT: Update_Var_Rent:UPDATE_CONSTRAINTS procedure returned error');
15999: fnd_msg_pub.ADD;
16000: RAISE fnd_api.g_exc_error;
16001: END IF;
16002: ELSE
16000: RAISE fnd_api.g_exc_error;
16001: END IF;
16002: ELSE
16003: pn_varen_util.pvt_debug
16004: ( 'PN_VAREN_PVT: Update_Var_Rent: Value of p_undo_constratints should be ''Y'' then only record could be updated.'
16005: || x_return_status
16006: , 3);
16007: END IF;
16008: END IF; -- p_constraints_tbl (uc).constr_default_id IS NULL
16028:
16029: --IF (c_pn_var_abat_defaults%NOTFOUND)
16030: --THEN
16031: -- x_return_status := fnd_api.g_ret_sts_error;
16032: -- pn_varen_util.pvt_debug ('PN_VAREN_PVT: Update_Var_Rent: Cursor c_pn_var_abat_defaults not found'
16033: -- , 3
16034: -- );
16035: --ELSE
16036: -- pn_varen_util.pvt_debug ('PN_VAREN_PVT: Update_Var_Rent: Cursor c_pn_var_abat_defaults found'
16032: -- pn_varen_util.pvt_debug ('PN_VAREN_PVT: Update_Var_Rent: Cursor c_pn_var_abat_defaults not found'
16033: -- , 3
16034: -- );
16035: --ELSE
16036: -- pn_varen_util.pvt_debug ('PN_VAREN_PVT: Update_Var_Rent: Cursor c_pn_var_abat_defaults found'
16037: -- , 3
16038: -- );
16039: -- pn_varen_util.pvt_debug
16040: -- ( 'PN_VAREN_PVT: Update_Var_Rent: After the cursor is open, value of p_upd_var_rent_rec.var_rent_id is '
16036: -- pn_varen_util.pvt_debug ('PN_VAREN_PVT: Update_Var_Rent: Cursor c_pn_var_abat_defaults found'
16037: -- , 3
16038: -- );
16039: -- pn_varen_util.pvt_debug
16040: -- ( 'PN_VAREN_PVT: Update_Var_Rent: After the cursor is open, value of p_upd_var_rent_rec.var_rent_id is '
16041: -- || p_upd_var_rent_rec.var_rent_id
16042: -- , 3
16043: -- );
16044: --------------------------------------------------------------------------------
16069: EXCEPTION
16070: WHEN OTHERS
16071: THEN
16072: pn_varen_util.pvt_debug
16073: ( 'PN_VAREN_PVT: Update_Var_Rent: Variable Rent Number or Variable Rent Id doesnot exists :'
16074: || SQLERRM
16075: , 3);
16076: x_return_status := fnd_api.g_ret_sts_error;
16077: l_upd_allow_abat_val := 'N';
16091: OR ( p_allow_abat_tbl (ua).abat_type_meaning IS NOT NULL
16092: AND p_allow_abat_tbl (ua).abat_type_meaning <> pn_varen_util.g_pn_miss_char)
16093: THEN
16094: pn_varen_util.pvt_debug
16095: ('PN_VAREN_PVT: Update_Var_Rent: Calling Allowance and Abatements Validation Lookup - Inside the Loop'
16096: , 3);
16097: pn_varen_util.pvt_debug
16098: ('PN_VAREN_PVT: Update_Var_Rent: Calling Allowance and Abatements Validation'
16099: , 3);
16094: pn_varen_util.pvt_debug
16095: ('PN_VAREN_PVT: Update_Var_Rent: Calling Allowance and Abatements Validation Lookup - Inside the Loop'
16096: , 3);
16097: pn_varen_util.pvt_debug
16098: ('PN_VAREN_PVT: Update_Var_Rent: Calling Allowance and Abatements Validation'
16099: , 3);
16100: pn_varen_util.validate_lookups
16101: (p_lookup_type => g_abate_type_code
16102: , x_lookup_meaning => p_allow_abat_tbl (ua).abat_type_meaning
16102: , x_lookup_meaning => p_allow_abat_tbl (ua).abat_type_meaning
16103: , x_lookup_code => p_allow_abat_tbl (ua).abat_type_code
16104: , x_return_status => x_return_status);
16105: pn_varen_util.pvt_debug
16106: ( 'PN_VAREN_PVT: Update_Var_Rent: Allowance and Abatements Output Code :'
16107: || p_allow_abat_tbl (ua).abat_type_code
16108: , 3);
16109:
16110: IF (x_return_status = fnd_api.g_ret_sts_error)
16115: ( 'PN_VAR_RENT_PVT: Update_Var_Rent: Please provide correct Allowance and Abatements Type Code Expected Error :'
16116: || p_allow_abat_tbl (ua).abat_type_meaning
16117: , 3);
16118: pn_varen_util.pvt_debug
16119: ('PN_VAREN_PVT: Update_Var_Rent: Allowance and Abatements Lookup Validation Error'
16120: , 3);
16121: --
16122: l_upd_allow_abat_val := 'N';
16123: fnd_msg_pub.ADD;
16147: --
16148: ELSE
16149: x_return_status := fnd_api.g_ret_sts_success;
16150: pn_varen_util.pvt_debug
16151: ( 'PN_VAREN_PVT: Update_Var_Rent: Allowance and Abatements Code Success :'
16152: || p_allow_abat_tbl (ua).abat_type_code
16153: , 3);
16154: pn_varen_util.pvt_debug
16155: ('PN_VAREN_PVT: Update_Var_Rent: Allowance and Abatements Lookup Validation Success'
16151: ( 'PN_VAREN_PVT: Update_Var_Rent: Allowance and Abatements Code Success :'
16152: || p_allow_abat_tbl (ua).abat_type_code
16153: , 3);
16154: pn_varen_util.pvt_debug
16155: ('PN_VAREN_PVT: Update_Var_Rent: Allowance and Abatements Lookup Validation Success'
16156: , 3);
16157: END IF;
16158: ELSE
16159: p_allow_abat_tbl (ua).abat_type_code := l_pn_var_abat.type_code;
16210: IF ( p_allow_abat_tbl (ua).abat_start_date IS NOT NULL
16211: AND p_allow_abat_tbl (ua).abat_start_date <> pn_varen_util.g_pn_miss_date)
16212: THEN
16213: pn_varen_util.pvt_debug
16214: ( 'PN_VAREN_PVT: Update_Var_Rent: Allowance and Abatement Start date is not null : '
16215: || p_allow_abat_tbl (ua).abat_start_date
16216: , 3);
16217: pn_varen_util.pvt_debug
16218: ( 'PN_VAREN_PVT: Update_Var_Rent: Allowance and Abatement end date : '
16214: ( 'PN_VAREN_PVT: Update_Var_Rent: Allowance and Abatement Start date is not null : '
16215: || p_allow_abat_tbl (ua).abat_start_date
16216: , 3);
16217: pn_varen_util.pvt_debug
16218: ( 'PN_VAREN_PVT: Update_Var_Rent: Allowance and Abatement end date : '
16219: || p_allow_abat_tbl (ua).abat_end_date
16220: , 3);
16221: pn_varen_util.pvt_debug
16222: ( 'PN_VAREN_PVT: Update_Var_Rent: Variable Rent Commencement Date : '
16218: ( 'PN_VAREN_PVT: Update_Var_Rent: Allowance and Abatement end date : '
16219: || p_allow_abat_tbl (ua).abat_end_date
16220: , 3);
16221: pn_varen_util.pvt_debug
16222: ( 'PN_VAREN_PVT: Update_Var_Rent: Variable Rent Commencement Date : '
16223: || l_var_commencement_date
16224: , 3);
16225: pn_varen_util.pvt_debug
16226: ( 'PN_VAREN_PVT: Update_Var_Rent: Variable Rent Termination Date: '
16222: ( 'PN_VAREN_PVT: Update_Var_Rent: Variable Rent Commencement Date : '
16223: || l_var_commencement_date
16224: , 3);
16225: pn_varen_util.pvt_debug
16226: ( 'PN_VAREN_PVT: Update_Var_Rent: Variable Rent Termination Date: '
16227: || l_var_termination_date
16228: , 3);
16229:
16230: IF (p_allow_abat_tbl (ua).abat_start_date = l_var_commencement_date)
16613: THEN
16614: p_allow_abat_tbl (ua).org_id := l_pn_var_abat.org_id;
16615: END IF;
16616:
16617: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Var_Rent: x_return_status : '
16618: || x_return_status
16619: , 3);
16620: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Var_Rent: l_upd_allow_abat_val : '
16621: || l_upd_allow_abat_val
16616:
16617: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Var_Rent: x_return_status : '
16618: || x_return_status
16619: , 3);
16620: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Var_Rent: l_upd_allow_abat_val : '
16621: || l_upd_allow_abat_val
16622: , 3);
16623:
16624: IF l_upd_allow_abat_val = 'N'
16635: --------------------------------------------------
16636: -- Creation of New Allowance and Abatement record
16637: --------------------------------------------------
16638: pn_varen_util.pvt_debug
16639: ('PN_VAREN_PVT: Update_Var_Rent: Start of val_ins_allow_abat procedure '
16640: , 3);
16641: val_ins_allow_abat (p_allow_abat_tbl_type => p_allow_abat_tbl
16642: , p_validate_flag => p_validate_flag
16643: , x_return_status => x_return_status);
16643: , x_return_status => x_return_status);
16644: IF x_return_status <> fnd_api.g_ret_sts_success --'S'
16645: THEN
16646: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
16647: fnd_message.set_token ('ERR_MSG', 'PN_VAREN_PVT: Update_Var_Rent:VAL_INS_ALLOW_ABAT procedure returned error');
16648: fnd_msg_pub.ADD;
16649: RAISE fnd_api.g_exc_error;
16650: ELSE
16651: l_allow_abat_update := 'Y';
16651: l_allow_abat_update := 'Y';
16652: END IF;
16653:
16654: pn_varen_util.pvt_debug
16655: ( 'PN_VAREN_PVT: Update_Var_Rent: Status of val_ins_allow_abat procedure is '
16656: || x_return_status
16657: , 3);
16658: pn_varen_util.pvt_debug
16659: ( 'PN_VAREN_PVT: Update_Var_Rent: Value of l_allow_abat_update is :'
16655: ( 'PN_VAREN_PVT: Update_Var_Rent: Status of val_ins_allow_abat procedure is '
16656: || x_return_status
16657: , 3);
16658: pn_varen_util.pvt_debug
16659: ( 'PN_VAREN_PVT: Update_Var_Rent: Value of l_allow_abat_update is :'
16660: || l_allow_abat_update
16661: , 3);
16662: ELSE
16663: ----------------------------------------------------
16665: ----------------------------------------------------
16666: IF x_return_status = fnd_api.g_ret_sts_success --'S'
16667: THEN
16668: pn_varen_util.pvt_debug
16669: ('PN_VAREN_PVT: Update_Var_Rent: Start of update_allow_abat procedure '
16670: , 3);
16671: update_allow_abat (p_allow_abat_rec_type => p_allow_abat_tbl (ua)
16672: , x_return_status => x_return_status);
16673: pn_varen_util.pvt_debug
16670: , 3);
16671: update_allow_abat (p_allow_abat_rec_type => p_allow_abat_tbl (ua)
16672: , x_return_status => x_return_status);
16673: pn_varen_util.pvt_debug
16674: ( 'PN_VAREN_PVT: Update_Var_Rent: Status of update_allow_abat procedure is '
16675: || x_return_status
16676: , 3);
16677: IF x_return_status <> fnd_api.g_ret_sts_success --'S'
16678: THEN
16676: , 3);
16677: IF x_return_status <> fnd_api.g_ret_sts_success --'S'
16678: THEN
16679: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
16680: fnd_message.set_token ('ERR_MSG', 'PN_VAREN_PVT: Update_Var_Rent:UPDATE_ALLOW_ABAT procedure returned error');
16681: fnd_msg_pub.ADD;
16682: RAISE fnd_api.g_exc_error;
16683: END IF;
16684: END IF; -- x_return_status
16699: /*
16700: EXCEPTION
16701: WHEN OTHERS
16702: THEN
16703: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Update_Var_Rent: Exception Result of Update_Var_Rent :'
16704: || SQLERRM
16705: , 3
16706: );*/
16707: -- Added by Vivek on 02-DEC-2010
16708: EXCEPTION
16709: WHEN fnd_api.g_exc_error
16710: THEN
16711: pn_index_rent_pvt.DEBUG
16712: ( 'PN_VAREN_PVT: Update_Var_Rent: Exception Result of Update_Var_Rent :'
16713: || '-'
16714: || SQLERRM
16715: , 5);
16716: x_return_status := fnd_api.g_ret_sts_error;
16718:
16719: WHEN OTHERS
16720: THEN
16721: pn_index_rent_pvt.DEBUG
16722: ( 'PN_VAREN_PVT: Update_Var_Rent: Exception Result of Update_Var_Rent :'
16723: || '-'
16724: || SQLERRM
16725: , 5);
16726: x_return_status := fnd_api.g_ret_sts_unexp_error;
16746: THEN
16747: l_count := 0;
16748: RETURN l_count;
16749: END get_attribute_status;
16750: END pn_varen_pvt;