[Home] [Help]
127: , x_attribute13 => p_constraints_rec_type.attribute13
128: , x_attribute14 => p_constraints_rec_type.attribute14
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: );
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;
145: END insert_constraints;
146:
147: --------------------------------------------------------------------------------
148: -- NAME : UPDATE_CONSTRAINTS
254: , x_attribute13 => p_constraints_rec_type.attribute13
255: , x_attribute14 => p_constraints_rec_type.attribute14
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: );
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;
272: END update_constraints;
273:
274: --------------------------------------------------------------------------------
275: -- NAME : GENERATE_CONSTRAINTS
282: --
283: -- 20-SEP-2010 vkatta o Created
284: --------------------------------------------------------------------------------
285: PROCEDURE generate_constraints (
286: -- p_commit IN VARCHAR2 DEFAULT fnd_api.g_false
287: p_var_rent_id IN NUMBER
288: -- ,p_constr_default_id IN NUMBER
289: -- ,p_constr_default_num IN NUMBER
290: , p_org_id IN NUMBER
317:
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: );
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;
346: END generate_constraints;
347:
348: --------------------------------------------------------------------------------
349: -- NAME : UNDO_CONSTRAINTS
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
381: WHEN OTHERS
382: THEN
383: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Undo_Constraints Exception Error: '
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;
388: END undo_constraints;
389:
390: --------------------------------------------------------------------------------
391: -- NAME : GENERATE_BREAKPOINTS
399: --
400: -- 20-SEP-2010 vkatta o Created
401: --------------------------------------------------------------------------------
402: PROCEDURE generate_breakpoints (
403: -- p_commit IN VARCHAR2 DEFAULT fnd_api.g_false
404: p_var_rent_id IN NUMBER
405: -- ,p_bkdt_default_id IN NUMBER
406: -- ,p_bkdt_detail_num IN NUMBER
407: -- ,p_bkhd_default_id IN NUMBER
445: , 3
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: );
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
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: '
467: fnd_msg_pub.ADD;
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: );
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;
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;
477: WHEN OTHERS
478: THEN
479: pn_varen_util.pvt_debug ( 'PN_VAREN_PVT: Generate_Breakpoints: OTHERS Exception Error: '
480: || SQLERRM
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;
484: END generate_breakpoints;
485:
486: --------------------------------------------------------------------------------
487: -- NAME : UNDO_BREAKPOINTS
531: WHERE EXISTS (SELECT bkhd_default_id
532: FROM pn_var_bkhd_defaults_all
533: WHERE var_rent_id = p_var_rent_id);
534: BEGIN
535: x_return_status := fnd_api.g_ret_sts_success;
536: l_dummy := NULL;
537:
538: OPEN exists_hd_def_cur_1;
539:
555:
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: );
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;
565: ELSE
566: FOR exists_lines_rec IN exists_line_cur
567: LOOP
568: l_line_def_id :=
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: '
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;
623: END undo_breakpoints;
624:
625: --------------------------------------------------------------------------------
626: -- NAME : INSERT_ALLOW_ABAT
739: , x_attribute14 => p_allow_abat_rec_type.attribute14
740: , x_attribute15 => p_allow_abat_rec_type.attribute15
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: );
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;
757: END insert_allow_abat;
758:
759: --------------------------------------------------------------------------------
760: -- NAME : UPDATE_ALLOW_ABAT
856: , x_attribute14 => p_allow_abat_rec_type.attribute14
857: , x_attribute15 => p_allow_abat_rec_type.attribute15
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: );
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;
874: END update_allow_abat;
875:
876: --------------------------------------------------------------------------------
877: -- NAME : INSERT_BREAKPOINT_DETAILS
1016: , x_attribute13 => p_breakpoint_details_rec_type.attribute13
1017: , x_attribute14 => p_breakpoint_details_rec_type.attribute14
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: );
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;
1034: END insert_breakpoint_details;
1035:
1036: --------------------------------------------------------------------------------
1037: -- NAME : UPDATE_BREAKPOINT_DETAILS
1152: , x_attribute13 => p_breakpoint_details_rec_type.attribute13
1153: , x_attribute14 => p_breakpoint_details_rec_type.attribute14
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: );
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;
1170: END update_breakpoint_details;
1171:
1172: --------------------------------------------------------------------------------
1173: -- NAME : INSERT_BREAKPOINT_HEADERS
1308: , 3
1309: );
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: );
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;
1326: END insert_breakpoint_headers;
1327:
1328: --------------------------------------------------------------------------------
1329: -- NAME : UPDATE_BREAKPOINT_HEADERS
1436: , x_attribute13 => p_breakpoint_header_rec_type.attribute13
1437: , x_attribute14 => p_breakpoint_header_rec_type.attribute14
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: );
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;
1454: END update_breakpoint_headers;
1455:
1456: --------------------------------------------------------------------------------
1457: -- NAME : INSERT_VARIABLE_RENT_LINES
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
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;
1652: END insert_variable_rent_lines;
1653:
1654: --------------------------------------------------------------------------------
1655: -- NAME : UPDATE_VARIABLE_RENT_LINES
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
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;
1782: END update_variable_rent_lines;
1783:
1784: --------------------------------------------------------------------------------
1785: -- NAME : VAL_INS_ALLOW_ABAT
2022: );
2023: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
2024: fnd_message.set_token ('ERR_MSG', 'Var Rent : Val_Ins_Allow_Abat: Variable Rent Number or Variable Rent Id doesnot exists While selecting the count');
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
2055: || p_allow_abat_tbl_type (b).abat_type_code
2056: , 3
2057: );
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
2065: fnd_message.set_name ('PN'
2066: , 'PN_VAR_ALL_ABA_TY'
2067: );
2068: fnd_msg_pub.ADD;
2069: RAISE fnd_api.g_exc_error;
2070: ELSIF (l_return_status = fnd_api.g_ret_sts_unexp_error)
2071: THEN
2072: pn_varen_util.pvt_debug
2073: ( 'PN_VAR_RENT_PVT: Val_Ins_Allow_Abat: Allowance and Abatements Meaning Un-Expected Error :'
2066: , 'PN_VAR_ALL_ABA_TY'
2067: );
2068: fnd_msg_pub.ADD;
2069: RAISE fnd_api.g_exc_error;
2070: ELSIF (l_return_status = fnd_api.g_ret_sts_unexp_error)
2071: THEN
2072: pn_varen_util.pvt_debug
2073: ( 'PN_VAR_RENT_PVT: Val_Ins_Allow_Abat: Allowance and Abatements Meaning Un-Expected Error :'
2074: || p_allow_abat_tbl_type (b).abat_type_meaning
2077: fnd_message.set_name ('PN'
2078: , 'PN_VAR_ALL_ABA_TY'
2079: );
2080: fnd_msg_pub.ADD;
2081: RAISE fnd_api.g_exc_unexpected_error;
2082: END IF;
2083: END IF;
2084:
2085: -----------------------------------------------------------------------------
2106: fnd_message.set_name ('PN'
2107: , 'PN_ST_DT_INV_MSG'
2108: );
2109: fnd_msg_pub.ADD;
2110: RAISE fnd_api.g_exc_error;
2111: END IF;
2112:
2113: ----------------------------------------------------------------------
2114: --- Validation of Allowance and Abatement Start date
2153: fnd_message.set_name ('PN'
2154: , 'PN_VAR_ABT_STRDT_VAL_MSG'
2155: );
2156: fnd_msg_pub.ADD;
2157: RAISE fnd_api.g_exc_error;
2158:
2159: ELSIF (p_allow_abat_tbl_type (b).abat_start_date > p_allow_abat_tbl_type (b).abat_end_date)
2160: THEN
2161: pn_varen_util.pvt_debug
2169: fnd_message.set_name ('PN'
2170: , 'PN_STR_GRT_END_DT'
2171: );
2172: fnd_msg_pub.ADD;
2173: RAISE fnd_api.g_exc_error;
2174: END IF;
2175: ELSE
2176: --
2177: p_allow_abat_tbl_type (b).abat_start_date := l_var_commencement_date;
2189: IF (p_allow_abat_tbl_type (b).abat_end_date IS NOT NULL OR p_allow_abat_tbl_type (b).abat_end_date <> pn_varen_util.g_pn_miss_date) THEN
2190: IF (p_allow_abat_tbl_type (b).abat_end_date < l_var_commencement_date OR p_allow_abat_tbl_type (b).abat_end_date > l_var_termination_date) THEN
2191: fnd_message.set_name('PN', 'PN_VAR_ABT_END_MSG');
2192: fnd_msg_pub.ADD;
2193: RAISE fnd_api.g_exc_error;
2194: ELSIF( p_allow_abat_tbl_type (b).abat_start_date > p_allow_abat_tbl_type (b).abat_end_date) THEN
2195: fnd_message.set_name('PN', 'PN_STR_GRT_END_DT');
2196: fnd_msg_pub.ADD;
2197: RAISE fnd_api.g_exc_error;
2193: RAISE fnd_api.g_exc_error;
2194: ELSIF( p_allow_abat_tbl_type (b).abat_start_date > p_allow_abat_tbl_type (b).abat_end_date) THEN
2195: fnd_message.set_name('PN', 'PN_STR_GRT_END_DT');
2196: fnd_msg_pub.ADD;
2197: RAISE fnd_api.g_exc_error;
2198: END IF;
2199:
2200: BEGIN
2201: SELECT 'x'
2214: IF l_exist IS NULL THEN
2215: /* End date is not coinciding with the invoice End date */
2216: fnd_message.set_name('PN', 'PN_SED_DT_INV_MSG');
2217: fnd_msg_pub.ADD;
2218: RAISE fnd_api.g_exc_error;
2219: END IF;
2220: ELSE
2221: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
2222: fnd_message.set_token('ERR_MSG', 'Invalid ABAT End Date');
2220: ELSE
2221: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
2222: fnd_message.set_token('ERR_MSG', 'Invalid ABAT End Date');
2223: fnd_msg_pub.ADD;
2224: RAISE fnd_api.g_exc_error;
2225: END IF;
2226:
2227:
2228: /*
2263: fnd_message.set_name ('PN'
2264: , 'PN_VAR_ABT_END_MSG'
2265: );
2266: fnd_msg_pub.ADD;
2267: RAISE fnd_api.g_exc_error;
2268: ELSIF ( p_allow_abat_tbl_type (b).abat_end_date > l_var_termination_date
2269: OR p_allow_abat_tbl_type (b).abat_end_date < l_var_commencement_date
2270: )
2271: THEN
2278: fnd_message.set_name ('PN'
2279: , 'PN_VAR_ABT_END_MSG'
2280: );
2281: fnd_msg_pub.ADD;
2282: RAISE fnd_api.g_exc_error;
2283: ELSIF (p_allow_abat_tbl_type (b).abat_start_date > p_allow_abat_tbl_type (b).abat_end_date)
2284: THEN
2285: pn_varen_util.pvt_debug
2286: ( 'PN_VAR_RENT_PVT: Val_Ins_Allow_Abat: Allowance and Abatement end Date Validation Error : '
2291: fnd_message.set_name ('PN'
2292: , 'PN_STR_GRT_END_DT'
2293: );
2294: fnd_msg_pub.ADD;
2295: RAISE fnd_api.g_exc_error;
2296: END IF;
2297: ELSE
2298: p_allow_abat_tbl_type (b).abat_end_date := l_var_termination_date;
2299: pn_varen_util.pvt_debug
2315: fnd_message.set_name ('PN'
2316: , 'PN_VAR_ALL_ABA_AT'
2317: );
2318: fnd_msg_pub.ADD;
2319: RAISE fnd_api.g_exc_error;
2320: END IF;
2321: */
2322:
2323: -------------------------------------------------------------------------------------------
2362: , x_return_msg => l_return_msg
2363: , x_return_status => l_return_status
2364: );
2365:
2366: IF (l_return_status = fnd_api.g_ret_sts_error) THEN
2367: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
2368: fnd_message.set_token ('ERR_MSG', 'Var Rent : PN_ALLOW_ABATE Descriptive Fields Error');
2369: fnd_msg_pub.ADD;
2370: RAISE fnd_api.g_exc_error;
2366: IF (l_return_status = fnd_api.g_ret_sts_error) THEN
2367: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
2368: fnd_message.set_token ('ERR_MSG', 'Var Rent : PN_ALLOW_ABATE Descriptive Fields Error');
2369: fnd_msg_pub.ADD;
2370: RAISE fnd_api.g_exc_error;
2371: ELSIF (l_return_status = fnd_api.g_ret_sts_unexp_error) THEN
2372: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
2373: fnd_message.set_token ('ERR_MSG', 'Var Rent : PN_ALLOW_ABATE Descriptive Fields Error');
2374: fnd_msg_pub.ADD;
2367: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
2368: fnd_message.set_token ('ERR_MSG', 'Var Rent : PN_ALLOW_ABATE Descriptive Fields Error');
2369: fnd_msg_pub.ADD;
2370: RAISE fnd_api.g_exc_error;
2371: ELSIF (l_return_status = fnd_api.g_ret_sts_unexp_error) THEN
2372: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
2373: fnd_message.set_token ('ERR_MSG', 'Var Rent : PN_ALLOW_ABATE Descriptive Fields Error');
2374: fnd_msg_pub.ADD;
2375: RAISE fnd_api.g_exc_unexpected_error;
2371: ELSIF (l_return_status = fnd_api.g_ret_sts_unexp_error) THEN
2372: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
2373: fnd_message.set_token ('ERR_MSG', 'Var Rent : PN_ALLOW_ABATE Descriptive Fields Error');
2374: fnd_msg_pub.ADD;
2375: RAISE fnd_api.g_exc_unexpected_error;
2376: END IF;
2377: END IF;
2378: END IF; -- End of attributes valitions in create var Allow and Abate*/
2379:
2385: , 3
2386: );
2387:
2388: /* IF ( l_allow_abat_val <> 'N'
2389: AND x_return_status = fnd_api.g_ret_sts_success)
2390: THEN
2391: pn_varen_util.pvt_debug
2392: ( 'PN_VAR_RENT_PVT: Val_Ins_Allow_Abat: Before Calling insert_Allowance and Abatements procedure : '
2393: || l_allow_abat_val
2398: THEN
2399: insert_allow_abat (p_allow_abat_rec_type => p_allow_abat_tbl_type (b)
2400: , x_return_status => x_return_status
2401: );
2402: IF (l_return_status = fnd_api.g_ret_sts_error) THEN
2403: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
2404: fnd_message.set_token ('ERR_MSG', 'Var Rent:INSERT_ALLOW_ABAT:Exception');
2405: fnd_msg_pub.ADD;
2406: RAISE fnd_api.g_exc_error;
2402: IF (l_return_status = fnd_api.g_ret_sts_error) THEN
2403: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
2404: fnd_message.set_token ('ERR_MSG', 'Var Rent:INSERT_ALLOW_ABAT:Exception');
2405: fnd_msg_pub.ADD;
2406: RAISE fnd_api.g_exc_error;
2407: ELSIF (l_return_status = fnd_api.g_ret_sts_unexp_error) THEN
2408: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
2409: fnd_message.set_token ('ERR_MSG', 'Var Rent : INSERT_ALLOW_ABAT:Unexpected Exception');
2410: fnd_msg_pub.ADD;
2403: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
2404: fnd_message.set_token ('ERR_MSG', 'Var Rent:INSERT_ALLOW_ABAT:Exception');
2405: fnd_msg_pub.ADD;
2406: RAISE fnd_api.g_exc_error;
2407: ELSIF (l_return_status = fnd_api.g_ret_sts_unexp_error) THEN
2408: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
2409: fnd_message.set_token ('ERR_MSG', 'Var Rent : INSERT_ALLOW_ABAT:Unexpected Exception');
2410: fnd_msg_pub.ADD;
2411: RAISE fnd_api.g_exc_unexpected_error;
2407: ELSIF (l_return_status = fnd_api.g_ret_sts_unexp_error) THEN
2408: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
2409: fnd_message.set_token ('ERR_MSG', 'Var Rent : INSERT_ALLOW_ABAT:Unexpected Exception');
2410: fnd_msg_pub.ADD;
2411: RAISE fnd_api.g_exc_unexpected_error;
2412: END IF;
2413: ELSE
2414: pn_varen_util.pvt_debug
2415: ('PN_VAR_RENT_PVT: Val_Ins_Allow_Abat: Abatements Procedure is ran in Validation mode, abatements would not be created '
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:
2437: EXCEPTION
2438: WHEN fnd_api.g_exc_error THEN
2434: RAISE fnd_api.g_exc_error;
2435: END IF;
2436:
2437: EXCEPTION
2438: WHEN fnd_api.g_exc_error THEN
2439: pn_varen_util.pvt_debug(g_pkg_name||'-val_ins_allow_abat:LOOOPING:EXCEPTION:FND_API.G_EXC_ERROR'||SQLERRM,3);
2440: l_allow_abat_count := l_allow_abat_count+1;
2441: WHEN OTHERS THEN
2442: pn_varen_util.pvt_debug(g_pkg_name||'-val_ins_allow_abat:LOOOPING:EXCEPTION:'||SQLERRM,3);
2435: END IF;
2436:
2437: EXCEPTION
2438: WHEN fnd_api.g_exc_error THEN
2439: pn_varen_util.pvt_debug(g_pkg_name||'-val_ins_allow_abat:LOOOPING:EXCEPTION:FND_API.G_EXC_ERROR'||SQLERRM,3);
2440: l_allow_abat_count := l_allow_abat_count+1;
2441: WHEN OTHERS THEN
2442: pn_varen_util.pvt_debug(g_pkg_name||'-val_ins_allow_abat:LOOOPING:EXCEPTION:'||SQLERRM,3);
2443: l_allow_abat_count := l_allow_abat_count+1;
2444: END;
2445: END LOOP;
2446:
2447: IF(l_allow_abat_count = 0) THEN
2448: x_return_status := fnd_api.g_ret_sts_success;
2449: ELSE
2450: x_return_status := fnd_api.g_ret_sts_error;
2451: END IF;
2452: EXCEPTION
2446:
2447: IF(l_allow_abat_count = 0) THEN
2448: x_return_status := fnd_api.g_ret_sts_success;
2449: ELSE
2450: x_return_status := fnd_api.g_ret_sts_error;
2451: END IF;
2452: EXCEPTION
2453: WHEN OTHERS
2454: THEN
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;
2461: END val_ins_allow_abat;
2462:
2463: --------------------------------------------------------------------------------
2464: -- NAME : VAL_INS_CONSTRAINTS
2714: );
2715: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
2716: fnd_message.set_token('ERR_MSG', 'Rent ID/Rent Number doesnt exist.');
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
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');
2743: fnd_msg_pub.ADD;
2744: RAISE fnd_api.g_exc_error;
2745: --l_const_val := 'N';
2746: END IF;
2747:
2748: --------------------------------------------------------------------------------
2769: || p_constraints_tbl_type (c).constr_type_code||'-'||l_return_status
2770: , 3
2771: );
2772:
2773: IF (l_return_status = fnd_api.g_ret_sts_error)
2774: THEN
2775: --
2776: fnd_message.set_name ('PN'
2777: , 'PN_VAR_CONSTR_TY'
2776: fnd_message.set_name ('PN'
2777: , 'PN_VAR_CONSTR_TY'
2778: );
2779: fnd_msg_pub.ADD;
2780: RAISE fnd_api.g_exc_error;
2781: ELSIF (l_return_status = fnd_api.g_ret_sts_unexp_error)
2782: THEN
2783: --
2784: fnd_message.set_name ('PN'
2777: , 'PN_VAR_CONSTR_TY'
2778: );
2779: fnd_msg_pub.ADD;
2780: RAISE fnd_api.g_exc_error;
2781: ELSIF (l_return_status = fnd_api.g_ret_sts_unexp_error)
2782: THEN
2783: --
2784: fnd_message.set_name ('PN'
2785: , 'PN_VAR_CONSTR_TY'
2784: fnd_message.set_name ('PN'
2785: , 'PN_VAR_CONSTR_TY'
2786: );
2787: fnd_msg_pub.ADD;
2788: RAISE fnd_api.g_exc_unexpected_error;
2789: END IF;
2790: END IF;
2791:
2792: --
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)
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
2828: );
2829: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
2830: fnd_message.set_token('ERR_MSG', ' Constraint Variable Rent Id doesnot exists');
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
2829: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
2830: fnd_message.set_token('ERR_MSG', ' Constraint Variable Rent Id doesnot exists');
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');
2840: fnd_message.set_token('ERR_MSG', 'Unexpected Constraint Variable Rent Id doesnot exists');
2841: fnd_msg_pub.ADD;
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 : '
2850: fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
2851: fnd_message.set_token ('API_NAME', 'PN_VAR_RENT_PVT');
2852: fnd_message.set_token ('NULL_PARAM', 'RENT_ID ');
2853: fnd_msg_pub.ADD;
2854: RAISE fnd_api.g_exc_error;
2855: END IF;
2856:
2857: ----------------------------------------------------------------------
2858: --- Validation of Constratint start date
2902: fnd_message.set_name ('PN'
2903: , 'PN_VAR_CONSTR_STRDT_VAL_MSG'
2904: );
2905: fnd_msg_pub.ADD;
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 :'
2915: fnd_message.set_name ('PN'
2916: , 'PN_VAR_CONSTR_STRDT_VAL_MSG'
2917: );
2918: fnd_msg_pub.ADD;
2919: RAISE fnd_api.g_exc_error;
2920: END IF;
2921: ELSE
2922: --
2923: p_constraints_tbl_type (c).constr_start_date := l_var_commencement_date;
2973: fnd_message.set_name ('PN'
2974: , 'PN_VAR_CONSTR_ENDDT_VAL_MSG'
2975: );
2976: fnd_msg_pub.ADD;
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 :'
2986: fnd_message.set_name ('PN'
2987: , 'PN_VAR_CONSTR_ENDDT_VAL_MSG'
2988: );
2989: fnd_msg_pub.ADD;
2990: RAISE fnd_api.g_exc_error;
2991: END IF;
2992: ELSE
2993: --
2994: p_constraints_tbl_type (c).constr_end_date := l_var_termination_date;
3011: fnd_message.set_name ('PN'
3012: , 'PN_VAR_CONSTR_AMT'
3013: );
3014: fnd_msg_pub.ADD;
3015: RAISE fnd_api.g_exc_error;
3016: END IF;
3017:
3018: ---------------------------------------------------------------------------------------------------------------------
3019: -- For the second constraint record, need to compare the first constraint type code and amount with the second record
3053: fnd_message.set_name ('PN'
3054: , 'PN_VAR_WRONG_RANGE'
3055: );
3056: fnd_msg_pub.ADD;
3057: RAISE fnd_api.g_exc_error;
3058: END IF;
3059: ELSIF ( p_constraints_tbl_type (c).constr_type_code <> l_first_constr_type_code
3060: -- second record 'MIN'
3061: AND l_first_constr_type_code = 'MAX'
3075: fnd_message.set_name ('PN'
3076: , 'PN_VAR_WRONG_RANGE'
3077: );
3078: fnd_msg_pub.ADD;
3079: RAISE fnd_api.g_exc_error;
3080: END IF;
3081: END IF;
3082: END IF;
3083:
3122: , x_return_msg => l_return_msg
3123: , x_return_status => l_return_status
3124: );
3125:
3126: IF (l_return_status = fnd_api.g_ret_sts_error) THEN
3127: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
3128: fnd_message.set_token ('ERR_MSG', 'Var Rent : PN_VAR_CONSTRAINTS Descriptive Fields Error');
3129: fnd_msg_pub.ADD;
3130: RAISE fnd_api.g_exc_error;
3126: IF (l_return_status = fnd_api.g_ret_sts_error) THEN
3127: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
3128: fnd_message.set_token ('ERR_MSG', 'Var Rent : PN_VAR_CONSTRAINTS Descriptive Fields Error');
3129: fnd_msg_pub.ADD;
3130: RAISE fnd_api.g_exc_error;
3131: ELSIF (l_return_status = fnd_api.g_ret_sts_unexp_error) THEN
3132: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
3133: fnd_message.set_token ('ERR_MSG', 'Var Rent : PN_VAR_CONSTRAINTS Descriptive Fields Error');
3134: fnd_msg_pub.ADD;
3127: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
3128: fnd_message.set_token ('ERR_MSG', 'Var Rent : PN_VAR_CONSTRAINTS Descriptive Fields Error');
3129: fnd_msg_pub.ADD;
3130: RAISE fnd_api.g_exc_error;
3131: ELSIF (l_return_status = fnd_api.g_ret_sts_unexp_error) THEN
3132: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
3133: fnd_message.set_token ('ERR_MSG', 'Var Rent : PN_VAR_CONSTRAINTS Descriptive Fields Error');
3134: fnd_msg_pub.ADD;
3135: RAISE fnd_api.g_exc_unexpected_error;
3131: ELSIF (l_return_status = fnd_api.g_ret_sts_unexp_error) THEN
3132: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
3133: fnd_message.set_token ('ERR_MSG', 'Var Rent : PN_VAR_CONSTRAINTS Descriptive Fields Error');
3134: fnd_msg_pub.ADD;
3135: RAISE fnd_api.g_exc_unexpected_error;
3136: END IF;
3137: END IF;
3138: END IF; -- End of attributes valitions in pn_var_constraints
3139:
3146: , 3
3147: );
3148:
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
3161: );*/
3162: insert_constraints (p_constraints_rec_type => p_constraints_tbl_type (c)
3163: , x_return_status => x_return_status
3164: );
3165: IF (l_return_status = fnd_api.g_ret_sts_error) THEN
3166: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
3167: fnd_message.set_token ('ERR_MSG', 'VAR RENT Contraints : INSERT_CONSTRAINTS Error');
3168: fnd_msg_pub.ADD;
3169: RAISE fnd_api.g_exc_error;
3165: IF (l_return_status = fnd_api.g_ret_sts_error) THEN
3166: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
3167: fnd_message.set_token ('ERR_MSG', 'VAR RENT Contraints : INSERT_CONSTRAINTS Error');
3168: fnd_msg_pub.ADD;
3169: RAISE fnd_api.g_exc_error;
3170: ELSIF (l_return_status = fnd_api.g_ret_sts_unexp_error) THEN
3171: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
3172: fnd_message.set_token ('ERR_MSG', 'VAR RENT Contraints : INSERT_CONSTRAINTS Unexpected Error');
3173: fnd_msg_pub.ADD;
3166: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
3167: fnd_message.set_token ('ERR_MSG', 'VAR RENT Contraints : INSERT_CONSTRAINTS Error');
3168: fnd_msg_pub.ADD;
3169: RAISE fnd_api.g_exc_error;
3170: ELSIF (l_return_status = fnd_api.g_ret_sts_unexp_error) THEN
3171: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
3172: fnd_message.set_token ('ERR_MSG', 'VAR RENT Contraints : INSERT_CONSTRAINTS Unexpected Error');
3173: fnd_msg_pub.ADD;
3174: RAISE fnd_api.g_exc_unexpected_error;
3170: ELSIF (l_return_status = fnd_api.g_ret_sts_unexp_error) THEN
3171: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
3172: fnd_message.set_token ('ERR_MSG', 'VAR RENT Contraints : INSERT_CONSTRAINTS Unexpected Error');
3173: fnd_msg_pub.ADD;
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'
3187: );
3188: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
3189: fnd_message.set_token ('ERR_MSG', 'VAR RENT Incorrect Rent Number:Error');
3190: fnd_msg_pub.ADD;
3191: RAISE fnd_api.g_exc_error;
3192: END IF;
3193: EXCEPTION
3194: WHEN fnd_api.g_exc_error THEN
3195: pn_varen_util.pvt_debug(g_pkg_name||'-val_ins_constraints:LOOOPING:EXCEPTION:FND_API.G_EXC_ERROR'||SQLERRM,3);
3190: fnd_msg_pub.ADD;
3191: RAISE fnd_api.g_exc_error;
3192: END IF;
3193: EXCEPTION
3194: WHEN fnd_api.g_exc_error THEN
3195: pn_varen_util.pvt_debug(g_pkg_name||'-val_ins_constraints:LOOOPING:EXCEPTION:FND_API.G_EXC_ERROR'||SQLERRM,3);
3196: l_val_ins_error_count := l_val_ins_error_count + 1;
3197: WHEN fnd_api.g_exc_unexpected_error THEN
3198: pn_varen_util.pvt_debug(g_pkg_name||'-val_ins_constraints:LOOOPING:EXCEPTION:FND_API.G_RET_STS_UNEXP_ERROR'||SQLERRM,3);
3191: RAISE fnd_api.g_exc_error;
3192: END IF;
3193: EXCEPTION
3194: WHEN fnd_api.g_exc_error THEN
3195: pn_varen_util.pvt_debug(g_pkg_name||'-val_ins_constraints:LOOOPING:EXCEPTION:FND_API.G_EXC_ERROR'||SQLERRM,3);
3196: l_val_ins_error_count := l_val_ins_error_count + 1;
3197: WHEN fnd_api.g_exc_unexpected_error THEN
3198: pn_varen_util.pvt_debug(g_pkg_name||'-val_ins_constraints:LOOOPING:EXCEPTION:FND_API.G_RET_STS_UNEXP_ERROR'||SQLERRM,3);
3199: l_val_ins_error_count := l_val_ins_error_count + 1;
3193: EXCEPTION
3194: WHEN fnd_api.g_exc_error THEN
3195: pn_varen_util.pvt_debug(g_pkg_name||'-val_ins_constraints:LOOOPING:EXCEPTION:FND_API.G_EXC_ERROR'||SQLERRM,3);
3196: l_val_ins_error_count := l_val_ins_error_count + 1;
3197: WHEN fnd_api.g_exc_unexpected_error THEN
3198: pn_varen_util.pvt_debug(g_pkg_name||'-val_ins_constraints:LOOOPING:EXCEPTION:FND_API.G_RET_STS_UNEXP_ERROR'||SQLERRM,3);
3199: l_val_ins_error_count := l_val_ins_error_count + 1;
3200: WHEN OTHERS THEN
3201: pn_varen_util.pvt_debug(g_pkg_name||'-val_ins_constraints:LOOOPING:OTHERS EXCEPTION:'||SQLERRM,3);
3194: WHEN fnd_api.g_exc_error THEN
3195: pn_varen_util.pvt_debug(g_pkg_name||'-val_ins_constraints:LOOOPING:EXCEPTION:FND_API.G_EXC_ERROR'||SQLERRM,3);
3196: l_val_ins_error_count := l_val_ins_error_count + 1;
3197: WHEN fnd_api.g_exc_unexpected_error THEN
3198: pn_varen_util.pvt_debug(g_pkg_name||'-val_ins_constraints:LOOOPING:EXCEPTION:FND_API.G_RET_STS_UNEXP_ERROR'||SQLERRM,3);
3199: l_val_ins_error_count := l_val_ins_error_count + 1;
3200: WHEN OTHERS THEN
3201: pn_varen_util.pvt_debug(g_pkg_name||'-val_ins_constraints:LOOOPING:OTHERS EXCEPTION:'||SQLERRM,3);
3202: l_val_ins_error_count := l_val_ins_error_count + 1;
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');
3227: fnd_message.set_token('ERR_MSG', 'Error in Generating the Constraints');
3228: fnd_msg_pub.ADD;
3229: RAISE fnd_api.g_exc_error;
3225: IF (l_return_status = fnd_api.g_ret_sts_error) THEN
3226: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
3227: fnd_message.set_token('ERR_MSG', 'Error in Generating the Constraints');
3228: fnd_msg_pub.ADD;
3229: RAISE fnd_api.g_exc_error;
3230: ELSIF (l_return_status = fnd_api.g_ret_sts_unexp_error) THEN
3231: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
3232: fnd_message.set_token('ERR_MSG', 'Unexpected Error in Generating the Constraints');
3233: fnd_msg_pub.ADD;
3226: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
3227: fnd_message.set_token('ERR_MSG', 'Error in Generating the Constraints');
3228: fnd_msg_pub.ADD;
3229: RAISE fnd_api.g_exc_error;
3230: ELSIF (l_return_status = fnd_api.g_ret_sts_unexp_error) THEN
3231: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
3232: fnd_message.set_token('ERR_MSG', 'Unexpected Error in Generating the Constraints');
3233: fnd_msg_pub.ADD;
3234: RAISE fnd_api.g_exc_unexpected_error;
3230: ELSIF (l_return_status = fnd_api.g_ret_sts_unexp_error) THEN
3231: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
3232: fnd_message.set_token('ERR_MSG', 'Unexpected Error in Generating the Constraints');
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:
3242: IF(l_val_ins_error_count = 0) THEN
3243: x_return_status := fnd_api.g_ret_sts_success;
3244: ELSE
3245: x_return_status := fnd_api.g_ret_sts_error;
3246: END IF;
3247:
3241:
3242: IF(l_val_ins_error_count = 0) THEN
3243: x_return_status := fnd_api.g_ret_sts_success;
3244: ELSE
3245: x_return_status := fnd_api.g_ret_sts_error;
3246: END IF;
3247:
3248: EXCEPTION
3249: WHEN fnd_api.g_exc_error THEN
3245: x_return_status := fnd_api.g_ret_sts_error;
3246: END IF;
3247:
3248: EXCEPTION
3249: WHEN fnd_api.g_exc_error THEN
3250: x_return_status := fnd_api.g_ret_sts_error;
3251: pn_varen_util.pvt_debug(g_pkg_name||'-:Exception:fnd_api.g_ret_sts_error:val_ins_constraints'||SQLERRM,3);
3252: WHEN fnd_api.g_exc_unexpected_error THEN
3253: x_return_status := fnd_api.g_ret_sts_unexp_error;
3246: END IF;
3247:
3248: EXCEPTION
3249: WHEN fnd_api.g_exc_error THEN
3250: x_return_status := fnd_api.g_ret_sts_error;
3251: pn_varen_util.pvt_debug(g_pkg_name||'-:Exception:fnd_api.g_ret_sts_error:val_ins_constraints'||SQLERRM,3);
3252: WHEN fnd_api.g_exc_unexpected_error THEN
3253: x_return_status := fnd_api.g_ret_sts_unexp_error;
3254: pn_varen_util.pvt_debug(g_pkg_name||'-:Unexpected Exception:fnd_api.g_ret_sts_error:val_ins_constraints'||SQLERRM,3);
3247:
3248: EXCEPTION
3249: WHEN fnd_api.g_exc_error THEN
3250: x_return_status := fnd_api.g_ret_sts_error;
3251: pn_varen_util.pvt_debug(g_pkg_name||'-:Exception:fnd_api.g_ret_sts_error:val_ins_constraints'||SQLERRM,3);
3252: WHEN fnd_api.g_exc_unexpected_error THEN
3253: x_return_status := fnd_api.g_ret_sts_unexp_error;
3254: pn_varen_util.pvt_debug(g_pkg_name||'-:Unexpected Exception:fnd_api.g_ret_sts_error:val_ins_constraints'||SQLERRM,3);
3255: WHEN OTHERS THEN
3248: EXCEPTION
3249: WHEN fnd_api.g_exc_error THEN
3250: x_return_status := fnd_api.g_ret_sts_error;
3251: pn_varen_util.pvt_debug(g_pkg_name||'-:Exception:fnd_api.g_ret_sts_error:val_ins_constraints'||SQLERRM,3);
3252: WHEN fnd_api.g_exc_unexpected_error THEN
3253: x_return_status := fnd_api.g_ret_sts_unexp_error;
3254: pn_varen_util.pvt_debug(g_pkg_name||'-:Unexpected Exception:fnd_api.g_ret_sts_error:val_ins_constraints'||SQLERRM,3);
3255: WHEN OTHERS THEN
3256: x_return_status := fnd_api.g_ret_sts_unexp_error;
3249: WHEN fnd_api.g_exc_error THEN
3250: x_return_status := fnd_api.g_ret_sts_error;
3251: pn_varen_util.pvt_debug(g_pkg_name||'-:Exception:fnd_api.g_ret_sts_error:val_ins_constraints'||SQLERRM,3);
3252: WHEN fnd_api.g_exc_unexpected_error THEN
3253: x_return_status := fnd_api.g_ret_sts_unexp_error;
3254: pn_varen_util.pvt_debug(g_pkg_name||'-:Unexpected Exception:fnd_api.g_ret_sts_error:val_ins_constraints'||SQLERRM,3);
3255: WHEN OTHERS THEN
3256: x_return_status := fnd_api.g_ret_sts_unexp_error;
3257: pn_varen_util.pvt_debug(g_pkg_name||'-OTHERS:Exception:val_ins_constraints'||SQLERRM,3);
3250: x_return_status := fnd_api.g_ret_sts_error;
3251: pn_varen_util.pvt_debug(g_pkg_name||'-:Exception:fnd_api.g_ret_sts_error:val_ins_constraints'||SQLERRM,3);
3252: WHEN fnd_api.g_exc_unexpected_error THEN
3253: x_return_status := fnd_api.g_ret_sts_unexp_error;
3254: pn_varen_util.pvt_debug(g_pkg_name||'-:Unexpected Exception:fnd_api.g_ret_sts_error:val_ins_constraints'||SQLERRM,3);
3255: WHEN OTHERS THEN
3256: x_return_status := fnd_api.g_ret_sts_unexp_error;
3257: pn_varen_util.pvt_debug(g_pkg_name||'-OTHERS:Exception:val_ins_constraints'||SQLERRM,3);
3258: END val_ins_constraints;
3252: WHEN fnd_api.g_exc_unexpected_error THEN
3253: x_return_status := fnd_api.g_ret_sts_unexp_error;
3254: pn_varen_util.pvt_debug(g_pkg_name||'-:Unexpected Exception:fnd_api.g_ret_sts_error:val_ins_constraints'||SQLERRM,3);
3255: WHEN OTHERS THEN
3256: x_return_status := fnd_api.g_ret_sts_unexp_error;
3257: pn_varen_util.pvt_debug(g_pkg_name||'-OTHERS:Exception:val_ins_constraints'||SQLERRM,3);
3258: END val_ins_constraints;
3259:
3260: --------------------------------------------------------------------------------
3310: WHERE var_rent_id = p_breakpoint_details_rec_type.var_rent_id
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
3334: );
3335: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
3336: fnd_message.set_token('ERR_MSG', 'Validate_Breakpoint_Details: Variable Rent Id doesnot exists in Breakpoint Details');
3337: fnd_msg_pub.ADD;
3338: RAISE fnd_api.g_exc_error;
3339: END;
3340: IF( trim(l_break_type) <> 'NATURAL') THEN
3341: ----------------------------------------------------------------------------------------------------
3342: --- Fetching of Period Id based on the Breakpoint details for calculation of group breakpoint volumes
3366: );
3367: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
3368: fnd_message.set_token('ERR_MSG', 'Validate_Breakpoint_Details: Mulitple period_id exists for the same variable rent Id');
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
3378: );
3379: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
3380: fnd_message.set_token('ERR_MSG', 'Validate_Breakpoint_Details: Mulitple period_id exists for the same variable rent Id');
3381: fnd_msg_pub.ADD;
3382: RAISE fnd_api.g_exc_error;
3383: END;
3384:
3385: ----------------------------------------------------------------------
3386: --- Validation of Beakpoint Details start date
3444: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
3445: fnd_message.set_token('ERR_MSG', 'Validate_Breakpoint_Details: Please enter dates for breakpoint details:'
3446: ||p_breakpoint_details_rec_type.bkdt_start_date||' that coincide with the breakpoint dates');
3447: fnd_msg_pub.ADD;
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 : '
3468: fnd_message.set_name ('PN'
3469: , 'PN_VAR_DATES_INTERSECT'
3470: );
3471: fnd_msg_pub.ADD;
3472: RAISE fnd_api.g_exc_error;
3473: --
3474: END IF;
3475:
3476: ----------------------------------------------------------------------
3525: fnd_message.set_name ('PN'
3526: , 'PN_VAR_DATES_INTERSECT'
3527: );
3528: fnd_msg_pub.ADD;
3529: RAISE fnd_api.g_exc_error;
3530:
3531: END IF;
3532: ELSE
3533: pn_varen_util.pvt_debug
3563: fnd_message.set_name ('PN'
3564: , 'PN_VAR_WRONG_RANGE'
3565: );
3566: fnd_msg_pub.ADD;
3567: RAISE fnd_api.g_exc_error;
3568: END IF;
3569:
3570: -----------------------------------------------------------------------------------------
3571: -- Group Breakpoint Volume start should be always less than Group Breakpoint Volume end
3579: fnd_message.set_name ('PN'
3580: , 'PN_VAR_WRONG_RANGE'
3581: );
3582: fnd_msg_pub.ADD;
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 : '
3769: fnd_message.set_name ('PN'
3770: , 'PN_VAR_BKPT_OVERLAP'
3771: );
3772: fnd_msg_pub.ADD;
3773: RAISE fnd_api.g_exc_error;
3774: END IF;
3775:
3776: -----------------------------------------------------------------------------------------------------
3777: -- Next record Breakpoint Details end date is greater than previous record Breakpoint Details end date
3792: fnd_message.set_name ('PN'
3793: , 'PN_VAR_BKPT_OVERLAP'
3794: );
3795: fnd_msg_pub.ADD;
3796: RAISE fnd_api.g_exc_error;
3797: END IF;
3798: END IF;
3799:
3800: IF p_validate_flag <> 'Y'
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');
3821: fnd_message.set_token ('ERR_MSG', 'Var Rent : validate_breakpoint_details: Break Point Details not inserted properly');
3822: fnd_msg_pub.ADD;
3823: RAISE fnd_api.g_exc_error;
3819: IF(x_return_status = fnd_api.g_ret_sts_error) THEN
3820: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
3821: fnd_message.set_token ('ERR_MSG', 'Var Rent : validate_breakpoint_details: Break Point Details not inserted properly');
3822: fnd_msg_pub.ADD;
3823: RAISE fnd_api.g_exc_error;
3824: ELSIF(x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
3825: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
3826: fnd_message.set_token ('ERR_MSG', 'Var Rent : validate_breakpoint_details: Break Point Details not inserted properly:Unexpected Exception');
3827: fnd_msg_pub.ADD;
3820: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
3821: fnd_message.set_token ('ERR_MSG', 'Var Rent : validate_breakpoint_details: Break Point Details not inserted properly');
3822: fnd_msg_pub.ADD;
3823: RAISE fnd_api.g_exc_error;
3824: ELSIF(x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
3825: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
3826: fnd_message.set_token ('ERR_MSG', 'Var Rent : validate_breakpoint_details: Break Point Details not inserted properly:Unexpected Exception');
3827: fnd_msg_pub.ADD;
3828: RAISE fnd_api.g_exc_unexpected_error;
3824: ELSIF(x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
3825: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
3826: fnd_message.set_token ('ERR_MSG', 'Var Rent : validate_breakpoint_details: Break Point Details not inserted properly:Unexpected Exception');
3827: fnd_msg_pub.ADD;
3828: RAISE fnd_api.g_exc_unexpected_error;
3829: END IF;
3830:
3831: -- Capturing previous breakpoint details start date and breakpoint details end date.
3832: l_previous_bkdt_start_date :=
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;
3845: ELSE
3846: p_breakpoint_details_rec_type.bkdt_start_date := l_bkhd_start_date;
3847: p_breakpoint_details_rec_type.bkdt_end_date := l_bkhd_end_date;
3848: p_breakpoint_details_rec_type.period_bkpt_vol_start := 0;
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');
3863: fnd_message.set_token ('ERR_MSG', 'Var Rent : validate_breakpoint_details: Natural::Break Point Details not inserted properly');
3864: fnd_msg_pub.ADD;
3865: RAISE fnd_api.g_exc_error;
3861: IF(x_return_status = fnd_api.g_ret_sts_error) THEN
3862: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
3863: fnd_message.set_token ('ERR_MSG', 'Var Rent : validate_breakpoint_details: Natural::Break Point Details not inserted properly');
3864: fnd_msg_pub.ADD;
3865: RAISE fnd_api.g_exc_error;
3866: ELSIF(x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
3867: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
3868: fnd_message.set_token ('ERR_MSG', 'Var Rent : validate_breakpoint_details:Natural:: Break Point Details not inserted properly:Unexpected Exception');
3869: fnd_msg_pub.ADD;
3862: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
3863: fnd_message.set_token ('ERR_MSG', 'Var Rent : validate_breakpoint_details: Natural::Break Point Details not inserted properly');
3864: fnd_msg_pub.ADD;
3865: RAISE fnd_api.g_exc_error;
3866: ELSIF(x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
3867: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
3868: fnd_message.set_token ('ERR_MSG', 'Var Rent : validate_breakpoint_details:Natural:: Break Point Details not inserted properly:Unexpected Exception');
3869: fnd_msg_pub.ADD;
3870: RAISE fnd_api.g_exc_unexpected_error;
3866: ELSIF(x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
3867: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
3868: fnd_message.set_token ('ERR_MSG', 'Var Rent : validate_breakpoint_details:Natural:: Break Point Details not inserted properly:Unexpected Exception');
3869: fnd_msg_pub.ADD;
3870: RAISE fnd_api.g_exc_unexpected_error;
3871: END IF;
3872: x_return_status := fnd_api.g_ret_sts_success;
3873: END IF;--Artificial/Natural
3874: EXCEPTION
3868: fnd_message.set_token ('ERR_MSG', 'Var Rent : validate_breakpoint_details:Natural:: Break Point Details not inserted properly:Unexpected Exception');
3869: fnd_msg_pub.ADD;
3870: RAISE fnd_api.g_exc_unexpected_error;
3871: END IF;
3872: x_return_status := fnd_api.g_ret_sts_success;
3873: END IF;--Artificial/Natural
3874: EXCEPTION
3875: WHEN fnd_api.g_exc_error THEN
3876: pn_varen_util.pvt_debug(g_pkg_name||'-validate_breakpoint_details:EXCEPTION:FND_API.G_EXC_ERROR'||SQLERRM,3);
3871: END IF;
3872: x_return_status := fnd_api.g_ret_sts_success;
3873: END IF;--Artificial/Natural
3874: EXCEPTION
3875: WHEN fnd_api.g_exc_error THEN
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
3872: x_return_status := fnd_api.g_ret_sts_success;
3873: END IF;--Artificial/Natural
3874: EXCEPTION
3875: WHEN fnd_api.g_exc_error THEN
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 : '
3873: END IF;--Artificial/Natural
3874: EXCEPTION
3875: WHEN fnd_api.g_exc_error THEN
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
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;
3885: END validate_breakpoint_details;
3886:
3887: --------------------------------------------------------------------------------
3888: -- NAME : VALIDATE_BREAKPOINT_HEADER
3918: l_bkhd_var_rent_id := p_breakpoint_header_rec_type.var_rent_id;
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:
3944: || p_breakpoint_header_rec_type.break_type_code
3945: , 3
3946: );
3947:
3948: IF (l_return_status = fnd_api.g_ret_sts_error)
3949: THEN
3950: fnd_message.set_name ('PN'
3951: , 'PN_VAR_BKHD_BRK_TY'
3952: );
3950: fnd_message.set_name ('PN'
3951: , 'PN_VAR_BKHD_BRK_TY'
3952: );
3953: fnd_msg_pub.ADD;
3954: RAISE fnd_api.g_exc_error;
3955: ELSIF (l_return_status = fnd_api.g_ret_sts_unexp_error) THEN
3956: fnd_message.set_name ('PN','PN_VAR_BKHD_BRK_TY');
3957: fnd_msg_pub.ADD;
3958: RAISE fnd_api.g_exc_unexpected_error;
3951: , 'PN_VAR_BKHD_BRK_TY'
3952: );
3953: fnd_msg_pub.ADD;
3954: RAISE fnd_api.g_exc_error;
3955: ELSIF (l_return_status = fnd_api.g_ret_sts_unexp_error) THEN
3956: fnd_message.set_name ('PN','PN_VAR_BKHD_BRK_TY');
3957: fnd_msg_pub.ADD;
3958: RAISE fnd_api.g_exc_unexpected_error;
3959: END IF;
3954: RAISE fnd_api.g_exc_error;
3955: ELSIF (l_return_status = fnd_api.g_ret_sts_unexp_error) THEN
3956: fnd_message.set_name ('PN','PN_VAR_BKHD_BRK_TY');
3957: fnd_msg_pub.ADD;
3958: RAISE fnd_api.g_exc_unexpected_error;
3959: END IF;
3960: ELSE
3961: fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
3962: fnd_message.set_token ('API_NAME', 'PN_VAR_RENT_PVT');
3961: fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
3962: fnd_message.set_token ('API_NAME', 'PN_VAR_RENT_PVT');
3963: fnd_message.set_token ('NULL_PARAM', 'Break Type:NULL');
3964: fnd_msg_pub.ADD;
3965: RAISE fnd_api.g_exc_error;
3966: END IF;
3967:
3968: ----------------------------------------------------------------------
3969: --- Fetching of commencement and termination date of the vairable rent
3998: );
3999: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
4000: fnd_message.set_token('ERR_MSG', 'Variable Rent ID doesnt exist');
4001: fnd_msg_pub.ADD;
4002: RAISE fnd_api.g_exc_error;
4003: --x_return_status := fnd_api.g_ret_sts_error;
4004: -- l_validate_success:= 'N';
4005: END;
4006:
3999: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
4000: fnd_message.set_token('ERR_MSG', 'Variable Rent ID doesnt exist');
4001: fnd_msg_pub.ADD;
4002: RAISE fnd_api.g_exc_error;
4003: --x_return_status := fnd_api.g_ret_sts_error;
4004: -- l_validate_success:= 'N';
4005: END;
4006:
4007: ----------------------------------------------------------------------
4041:
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
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 :'
4055: || p_breakpoint_header_tbl( i ).break_type_code
4056: , 3 );
4057: pn_varen_util.pvt_debug
4077: fnd_message.set_name ('PN'
4078: , 'PN_VAR_DATES_INTERSECT'
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'
4125: fnd_message.set_name ('PN'
4126: , 'PN_VAR_DATES_INTERSECT'
4127: );
4128: fnd_msg_pub.ADD;
4129: RAISE fnd_api.g_exc_error;
4130:
4131: END IF;
4132:
4133: ----------------------------------------------------------------------
4155: fnd_message.set_name ('PN'
4156: , 'PN_VAR_DATES_INTERSECT'
4157: );
4158: fnd_msg_pub.ADD;
4159: RAISE fnd_api.g_exc_error;
4160: END IF;
4161: ELSE
4162: p_breakpoint_header_rec_type.bkhd_end_date := l_bkhd_term_date;
4163: pn_varen_util.pvt_debug
4189: || p_breakpoint_header_rec_type.breakpoint_type_code||'-'||l_return_status
4190: , 3
4191: );
4192:
4193: IF (l_return_status = fnd_api.g_ret_sts_error) THEN
4194: fnd_message.set_name ('PN','PN_VAR_BKHD_BKPT_TY');
4195: fnd_msg_pub.ADD;
4196: RAISE fnd_api.g_exc_error;
4197: ELSIF (l_return_status = fnd_api.g_ret_sts_unexp_error) THEN
4192:
4193: IF (l_return_status = fnd_api.g_ret_sts_error) THEN
4194: fnd_message.set_name ('PN','PN_VAR_BKHD_BKPT_TY');
4195: fnd_msg_pub.ADD;
4196: RAISE fnd_api.g_exc_error;
4197: ELSIF (l_return_status = fnd_api.g_ret_sts_unexp_error) THEN
4198: fnd_message.set_name ('PN','PN_VAR_BKHD_BKPT_TY');
4199: fnd_msg_pub.ADD;
4200: RAISE fnd_api.g_exc_unexpected_error;
4193: IF (l_return_status = fnd_api.g_ret_sts_error) THEN
4194: fnd_message.set_name ('PN','PN_VAR_BKHD_BKPT_TY');
4195: fnd_msg_pub.ADD;
4196: RAISE fnd_api.g_exc_error;
4197: ELSIF (l_return_status = fnd_api.g_ret_sts_unexp_error) THEN
4198: fnd_message.set_name ('PN','PN_VAR_BKHD_BKPT_TY');
4199: fnd_msg_pub.ADD;
4200: RAISE fnd_api.g_exc_unexpected_error;
4201: END IF;
4196: RAISE fnd_api.g_exc_error;
4197: ELSIF (l_return_status = fnd_api.g_ret_sts_unexp_error) THEN
4198: fnd_message.set_name ('PN','PN_VAR_BKHD_BKPT_TY');
4199: fnd_msg_pub.ADD;
4200: RAISE fnd_api.g_exc_unexpected_error;
4201: END IF;
4202: ELSE
4203: fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
4204: fnd_message.set_token ('API_NAME', 'PN_VAR_RENT_PVT');
4203: fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
4204: fnd_message.set_token ('API_NAME', 'PN_VAR_RENT_PVT');
4205: fnd_message.set_token ('NULL_PARAM', 'Break Point Type:NULL');
4206: fnd_msg_pub.ADD;
4207: RAISE fnd_api.g_exc_error;
4208: END IF;
4209:
4210: ----------------------------------
4211: -- NATURAL_BREAK_RATE is not null
4217: fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
4218: fnd_message.set_token ('API_NAME', 'PN_VAR_RENT_PVT');
4219: fnd_message.set_token ('NULL_PARAM', 'Natural Rate: NULL');
4220: fnd_msg_pub.ADD;
4221: RAISE fnd_api.g_exc_error;
4222: END IF;
4223: ELSIF(p_breakpoint_header_rec_type.break_type_code = 'ARTIFICIAL') THEN
4224: p_breakpoint_header_rec_type.natural_break_rate := NULL;
4225: END IF;
4227: fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
4228: fnd_message.set_token ('API_NAME', 'PN_VAR_RENT_PVT');
4229: fnd_message.set_token ('NULL_PARAM', 'Break Type:NULL');
4230: fnd_msg_pub.ADD;
4231: RAISE fnd_api.g_exc_error;
4232: END IF;
4233:
4234: /*
4235: IF p_breakpoint_header_rec_type.natural_break_rate IS NOT NULL
4233:
4234: /*
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
4253: fnd_message.set_name ('PN'
4254: , 'PN_VAR_BKHD_BRK_RT'
4255: );
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
4255: );
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: );
4284: fnd_message.set_name ('PN'
4285: , 'PN_VAR_BKHD_BT_BKPT_TY'
4286: );
4287: fnd_msg_pub.ADD;
4288: RAISE fnd_api.g_exc_error;
4289: END IF;
4290: END IF;
4291:
4292:
4333: fnd_message.set_name ('PN'
4334: , 'PN_VAR_BKPT_OVERLAP'
4335: );
4336: fnd_msg_pub.ADD;
4337: RAISE fnd_api.g_exc_error;
4338: END IF;
4339:
4340: -----------------------------------------------------------------------------------------------------
4341: -- Next record Breakpoint Header end date is greater than previous record Breakpoint Header end date
4356: fnd_message.set_name ('PN'
4357: , 'PN_VAR_BKPT_OVERLAP'
4358: );
4359: fnd_msg_pub.ADD;
4360: RAISE fnd_api.g_exc_error;
4361: END IF;
4362: END IF; --l_previous_bkhd_start_date --l_previous_bkhd_end_date
4363:
4364: --------------------------------------------------------------------------------
4402: , x_return_msg => l_return_msg
4403: , x_return_status => l_return_status
4404: );
4405:
4406: IF (l_return_status = fnd_api.g_ret_sts_error) THEN
4407: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
4408: fnd_message.set_token ('ERR_MSG', 'Var Rent : PN_VAR_BKPTS_HEAD Descriptive Fields Error '||l_return_msg);
4409: fnd_msg_pub.ADD;
4410: RAISE fnd_api.g_exc_error;
4406: IF (l_return_status = fnd_api.g_ret_sts_error) THEN
4407: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
4408: fnd_message.set_token ('ERR_MSG', 'Var Rent : PN_VAR_BKPTS_HEAD Descriptive Fields Error '||l_return_msg);
4409: fnd_msg_pub.ADD;
4410: RAISE fnd_api.g_exc_error;
4411: ELSIF (l_return_status = fnd_api.g_ret_sts_unexp_error) THEN
4412: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
4413: fnd_message.set_token ('ERR_MSG', 'Var Rent : PN_VAR_BKPTS_HEAD Descriptive Fields Error '||l_return_msg);
4414: fnd_msg_pub.ADD;
4407: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
4408: fnd_message.set_token ('ERR_MSG', 'Var Rent : PN_VAR_BKPTS_HEAD Descriptive Fields Error '||l_return_msg);
4409: fnd_msg_pub.ADD;
4410: RAISE fnd_api.g_exc_error;
4411: ELSIF (l_return_status = fnd_api.g_ret_sts_unexp_error) THEN
4412: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
4413: fnd_message.set_token ('ERR_MSG', 'Var Rent : PN_VAR_BKPTS_HEAD Descriptive Fields Error '||l_return_msg);
4414: fnd_msg_pub.ADD;
4415: RAISE fnd_api.g_exc_unexpected_error;
4411: ELSIF (l_return_status = fnd_api.g_ret_sts_unexp_error) THEN
4412: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
4413: fnd_message.set_token ('ERR_MSG', 'Var Rent : PN_VAR_BKPTS_HEAD Descriptive Fields Error '||l_return_msg);
4414: fnd_msg_pub.ADD;
4415: RAISE fnd_api.g_exc_unexpected_error;
4416: END IF;
4417: END IF;
4418: END IF; -- End of attributes validations in PN_VAR_BKPTS_HEAD
4419:
4421: ----------------------------------------------------
4422: --Calling Breakpoint Headers Insert Procedure
4423: ----------------------------------------------------
4424:
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 '
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');
4445: fnd_msg_pub.ADD;
4446: RAISE fnd_api.g_exc_error;
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');
4445: fnd_msg_pub.ADD;
4446: RAISE fnd_api.g_exc_error;
4447: ELSIF (l_return_status = fnd_api.g_ret_sts_unexp_error) THEN
4448: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
4449: fnd_message.set_token ('ERR_MSG', 'INSERT_BREAKPOINT_HEADERS:Unexpected Error');
4450: fnd_msg_pub.ADD;
4443: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
4444: fnd_message.set_token ('ERR_MSG', 'INSERT_BREAKPOINT_HEADERS:Error');
4445: fnd_msg_pub.ADD;
4446: RAISE fnd_api.g_exc_error;
4447: ELSIF (l_return_status = fnd_api.g_ret_sts_unexp_error) THEN
4448: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
4449: fnd_message.set_token ('ERR_MSG', 'INSERT_BREAKPOINT_HEADERS:Unexpected Error');
4450: fnd_msg_pub.ADD;
4451: RAISE fnd_api.g_exc_unexpected_error;
4447: ELSIF (l_return_status = fnd_api.g_ret_sts_unexp_error) THEN
4448: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
4449: fnd_message.set_token ('ERR_MSG', 'INSERT_BREAKPOINT_HEADERS:Unexpected Error');
4450: fnd_msg_pub.ADD;
4451: RAISE fnd_api.g_exc_unexpected_error;
4452: END IF;
4453:
4454: -- capturing the previous breakpoint header start date into a variable.
4455: l_previous_bkhd_start_date := p_breakpoint_header_rec_type.bkhd_start_date;
4458:
4459:
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;
4459:
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);
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;
4469:
4470: --------------------------------------------------------------------------------
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
4735: -- Check if Periods generated
4733:
4734: IF (l_variable_rent_exists = 1) THEN
4735: -- Check if Periods generated
4736: l_period_exists := pn_var_rent_pkg.find_if_period_exists (p_variable_rent_lines_tbl (i).var_rent_id);--Checking the existence of the periods.
4737: --l_return_status := fnd_api.g_ret_sts_success;
4738:
4739:
4740: IF l_period_exists = 1 THEN -- Only when periods are generated
4741: pn_varen_util.pvt_debug
4766: || p_variable_rent_lines_tbl (i).sales_channel_code
4767: , 3
4768: );
4769:
4770: IF (l_return_status = fnd_api.g_ret_sts_error)
4771: THEN
4772: --
4773: fnd_message.set_name ('PN'
4774: , 'PN_VAR_LIN_SAL_CHL'
4773: fnd_message.set_name ('PN'
4774: , 'PN_VAR_LIN_SAL_CHL'
4775: );
4776: fnd_msg_pub.ADD;
4777: RAISE fnd_api.g_exc_error;
4778: ELSIF (l_return_status = fnd_api.g_ret_sts_unexp_error)
4779: THEN
4780: fnd_message.set_name ('PN'
4781: , 'PN_VAR_LIN_SAL_CHL'
4774: , 'PN_VAR_LIN_SAL_CHL'
4775: );
4776: fnd_msg_pub.ADD;
4777: RAISE fnd_api.g_exc_error;
4778: ELSIF (l_return_status = fnd_api.g_ret_sts_unexp_error)
4779: THEN
4780: fnd_message.set_name ('PN'
4781: , 'PN_VAR_LIN_SAL_CHL'
4782: );
4780: fnd_message.set_name ('PN'
4781: , 'PN_VAR_LIN_SAL_CHL'
4782: );
4783: fnd_msg_pub.ADD;
4784: RAISE fnd_api.g_exc_unexpected_error;
4785: END IF;
4786: END IF;
4787:
4788: --------------------------------------------------------------------------------
4807: || p_variable_rent_lines_tbl (i).item_category_code
4808: , 3
4809: );
4810:
4811: IF (l_return_status = fnd_api.g_ret_sts_error)
4812: THEN
4813: --
4814: fnd_message.set_name ('PN'
4815: , 'PN_VAR_LIN_ITM_CAY'
4814: fnd_message.set_name ('PN'
4815: , 'PN_VAR_LIN_ITM_CAY'
4816: );
4817: fnd_msg_pub.ADD;
4818: RAISE fnd_api.g_exc_error;
4819: ELSIF (l_return_status = fnd_api.g_ret_sts_unexp_error)
4820: THEN
4821: --
4822: fnd_message.set_name ('PN'
4815: , 'PN_VAR_LIN_ITM_CAY'
4816: );
4817: fnd_msg_pub.ADD;
4818: RAISE fnd_api.g_exc_error;
4819: ELSIF (l_return_status = fnd_api.g_ret_sts_unexp_error)
4820: THEN
4821: --
4822: fnd_message.set_name ('PN'
4823: , 'PN_VAR_LIN_ITM_CAY'
4822: fnd_message.set_name ('PN'
4823: , 'PN_VAR_LIN_ITM_CAY'
4824: );
4825: fnd_msg_pub.ADD;
4826: RAISE fnd_api.g_exc_unexpected_error;
4827: END IF;
4828: END IF;
4829:
4830: ---- End of Variable Rent Lines validations
4834:
4835: ---
4836: -- variable rent lines insert procedure
4837: --
4838: --IF l_return_status = fnd_api.g_ret_sts_success
4839: --THEN
4840:
4841: l_var_rent_input_line_num := p_variable_rent_lines_tbl (i).line_num;
4842:
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;
4854: RAISE fnd_api.g_exc_error;
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;
4854: RAISE fnd_api.g_exc_error;
4855: ELSIF (l_return_status = fnd_api.g_ret_sts_unexp_error) THEN
4856: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
4857: fnd_message.set_token('ERR_MSG', 'Unexpected Error while inserting the VRA lines.');
4858: fnd_msg_pub.ADD;
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;
4854: RAISE fnd_api.g_exc_error;
4855: ELSIF (l_return_status = fnd_api.g_ret_sts_unexp_error) THEN
4856: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
4857: fnd_message.set_token('ERR_MSG', 'Unexpected Error while inserting the VRA lines.');
4858: fnd_msg_pub.ADD;
4859: RAISE fnd_api.g_exc_unexpected_error;
4855: ELSIF (l_return_status = fnd_api.g_ret_sts_unexp_error) THEN
4856: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
4857: fnd_message.set_token('ERR_MSG', 'Unexpected Error while inserting the VRA lines.');
4858: fnd_msg_pub.ADD;
4859: RAISE fnd_api.g_exc_unexpected_error;
4860: END IF;
4861: END IF;
4862:
4863: -- Calling Breakpoint Header procedure only when insert variable rent lines is success
4861: END IF;
4862:
4863: -- Calling Breakpoint Header procedure only when insert variable rent lines is success
4864: ----
4865: -- IF l_return_status = fnd_api.g_ret_sts_success
4866: -- THEN
4867: FOR j IN p_breakpoint_header_tbl.FIRST .. p_breakpoint_header_tbl.LAST
4868: LOOP
4869: BEGIN
5055: --fnd_message.set_name('PN','PN_VAR_BKPT_OVERLAP');
5056: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
5057: fnd_message.set_token('ERR_MSG', 'Please review each breakpoint component and remove any overlap in the breakpoint Header dates.');
5058: fnd_msg_pub.ADD;
5059: RAISE fnd_api.g_exc_error;
5060: END IF;
5061:
5062:
5063: p_breakpoint_header_tbl (j).line_default_id := p_variable_rent_lines_tbl (i).line_default_id;
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 :'
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
5075: || l_return_status
5076: , 3
5077: );
5078:
5079: -- IF l_return_status = fnd_api.g_ret_sts_success
5080: --THEN
5081: -- Call validate_breakpoint_details
5082: -- IF (p_breakpoint_header_tbl (j).break_type_code = 'ARTIFICIAL' OR
5083: -- p_breakpoint_header_tbl (j).break_type_meaning = 'Artificial' ) THEN
5347: --fnd_message.set_name('PN','PN_VAR_BKPT_OVERLAP');
5348: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
5349: fnd_message.set_token('ERR_MSG', 'Please review each breakpoint component and remove any overlap in the breakpoint Details dates.');
5350: fnd_msg_pub.ADD;
5351: RAISE fnd_api.g_exc_error;
5352: END IF;
5353:
5354:
5355:
5383: || l_return_status
5384: , 3
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');
5394: --fnd_message.set_token('ERR_MSG', 'Breakpoint Details not created:'|| p_breakpoint_details_tbl (k).bkdt_detail_num);
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
5393: --fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
5394: --fnd_message.set_token('ERR_MSG', 'Breakpoint Details not created:'|| p_breakpoint_details_tbl (k).bkdt_detail_num);
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');
5404: --fnd_message.set_token('ERR_MSG', 'Breakpoint Details not created:'|| p_breakpoint_details_tbl (k).bkdt_detail_num);
5405: --fnd_msg_pub.ADD;
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 :'
5414: END IF;
5415: -- Breakpoint Header Detail Num is not equal to Breakpoint Header Detail Num
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;
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.
5432: , 3
5433: );
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;
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
5473: --End of Calling Breakpoint Header procedure only when insert variable rent lines is success
5474: ----
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
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;
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 :'
5490: );
5491: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
5492: fnd_message.set_token('ERR_MSG', 'Periods are not generated for Rent Num :'||p_variable_rent_lines_tbl (i).var_rent_num);
5493: fnd_msg_pub.ADD;
5494: RAISE fnd_api.g_exc_error;
5495: END IF; -- End of l_period_exists condition
5496: END IF; --l_variable_rent_exists
5497:
5498: EXCEPTION
5495: END IF; -- End of l_period_exists condition
5496: END IF; --l_variable_rent_exists
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;
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:
5522: generate_breakpoints (p_var_rent_id => l_var_rent_id
5523: , p_org_id => g_org_id
5524: , x_return_status => l_return_status
5525: );
5526: IF (l_return_status = fnd_api.g_ret_sts_error) THEN
5527: --fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
5528: --fnd_message.set_token('ERR_MSG', 'Break Points are not generated:'||l_var_rent_id);--OOPS(RHIA)
5529: --fnd_msg_pub.ADD;
5530: RAISE fnd_api.g_exc_error;
5526: IF (l_return_status = fnd_api.g_ret_sts_error) THEN
5527: --fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
5528: --fnd_message.set_token('ERR_MSG', 'Break Points are not generated:'||l_var_rent_id);--OOPS(RHIA)
5529: --fnd_msg_pub.ADD;
5530: RAISE fnd_api.g_exc_error;
5531: ELSIF(l_return_status = fnd_api.g_ret_sts_unexp_error) THEN
5532: --fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
5533: --fnd_message.set_token('ERR_MSG', 'Break Points are not generated:'||l_var_rent_id);
5534: --fnd_msg_pub.ADD;
5527: --fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
5528: --fnd_message.set_token('ERR_MSG', 'Break Points are not generated:'||l_var_rent_id);--OOPS(RHIA)
5529: --fnd_msg_pub.ADD;
5530: RAISE fnd_api.g_exc_error;
5531: ELSIF(l_return_status = fnd_api.g_ret_sts_unexp_error) THEN
5532: --fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
5533: --fnd_message.set_token('ERR_MSG', 'Break Points are not generated:'||l_var_rent_id);
5534: --fnd_msg_pub.ADD;
5535: RAISE fnd_api.g_exc_unexpected_error;
5531: ELSIF(l_return_status = fnd_api.g_ret_sts_unexp_error) THEN
5532: --fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
5533: --fnd_message.set_token('ERR_MSG', 'Break Points are not generated:'||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:
5543: IF(l_var_lines_err_count = 0) THEN
5544: x_return_status := fnd_api.g_ret_sts_success;
5545: ELSE
5546: x_return_status := fnd_api.g_ret_sts_error;
5547: END IF;
5548:
5542:
5543: IF(l_var_lines_err_count = 0) THEN
5544: x_return_status := fnd_api.g_ret_sts_success;
5545: ELSE
5546: x_return_status := fnd_api.g_ret_sts_error;
5547: END IF;
5548:
5549: ---- ------------------------------------------------------
5550: ---- -- Starting Constraints Validation and Insert procedure.
5554: ---- p_constraints_tbl_type => p_constraints_tbl_type
5555: ---- , x_return_status => l_return_status
5556: ---- );
5557: EXCEPTION
5558: WHEN fnd_api.g_exc_error THEN
5559: x_return_status := fnd_api.g_ret_sts_error;
5560: pn_varen_util.pvt_debug(g_pkg_name||'-VAR_RENT_LINES_BKHD:EXCEPTION:FND_API.G_EXC_ERROR'||SQLERRM,3);
5561: WHEN OTHERS THEN
5562: x_return_status := fnd_api.g_ret_sts_unexp_error;
5555: ---- , x_return_status => l_return_status
5556: ---- );
5557: EXCEPTION
5558: WHEN fnd_api.g_exc_error THEN
5559: x_return_status := fnd_api.g_ret_sts_error;
5560: pn_varen_util.pvt_debug(g_pkg_name||'-VAR_RENT_LINES_BKHD:EXCEPTION:FND_API.G_EXC_ERROR'||SQLERRM,3);
5561: WHEN OTHERS THEN
5562: x_return_status := fnd_api.g_ret_sts_unexp_error;
5563: pn_varen_util.pvt_debug(g_pkg_name||'-VAR_RENT_LINES_BKHD:Un expected EXCEPTION:FND_API.G_RET_STS_UNEXP_ERROR'||SQLERRM,3);
5556: ---- );
5557: EXCEPTION
5558: WHEN fnd_api.g_exc_error THEN
5559: x_return_status := fnd_api.g_ret_sts_error;
5560: pn_varen_util.pvt_debug(g_pkg_name||'-VAR_RENT_LINES_BKHD:EXCEPTION:FND_API.G_EXC_ERROR'||SQLERRM,3);
5561: WHEN OTHERS THEN
5562: x_return_status := fnd_api.g_ret_sts_unexp_error;
5563: pn_varen_util.pvt_debug(g_pkg_name||'-VAR_RENT_LINES_BKHD:Un expected EXCEPTION:FND_API.G_RET_STS_UNEXP_ERROR'||SQLERRM,3);
5564: END var_rent_lines_bkhd;
5558: WHEN fnd_api.g_exc_error THEN
5559: x_return_status := fnd_api.g_ret_sts_error;
5560: pn_varen_util.pvt_debug(g_pkg_name||'-VAR_RENT_LINES_BKHD:EXCEPTION:FND_API.G_EXC_ERROR'||SQLERRM,3);
5561: WHEN OTHERS THEN
5562: x_return_status := fnd_api.g_ret_sts_unexp_error;
5563: pn_varen_util.pvt_debug(g_pkg_name||'-VAR_RENT_LINES_BKHD:Un expected EXCEPTION:FND_API.G_RET_STS_UNEXP_ERROR'||SQLERRM,3);
5564: END var_rent_lines_bkhd;
5565:
5566: --------------------------------------------------------------------------------
5559: x_return_status := fnd_api.g_ret_sts_error;
5560: pn_varen_util.pvt_debug(g_pkg_name||'-VAR_RENT_LINES_BKHD:EXCEPTION:FND_API.G_EXC_ERROR'||SQLERRM,3);
5561: WHEN OTHERS THEN
5562: x_return_status := fnd_api.g_ret_sts_unexp_error;
5563: pn_varen_util.pvt_debug(g_pkg_name||'-VAR_RENT_LINES_BKHD:Un expected EXCEPTION:FND_API.G_RET_STS_UNEXP_ERROR'||SQLERRM,3);
5564: END var_rent_lines_bkhd;
5565:
5566: --------------------------------------------------------------------------------
5567: -- NAME : INI_VAL_VAR_REC
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: --------
5845: -- End
5846: --------
5847: EXCEPTION
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;
5856: END ini_val_var_rec;
5857:
5858: --------------------------------------------------------------------------------
5859: -- NAME : UPD_VAL_VAR_RENT
5903: || x_return_status
5904: , 3
5905: );
5906:
5907: IF (x_return_status = fnd_api.g_ret_sts_error)
5908: THEN
5909: fnd_message.set_name ('PN'
5910: , 'PN_DUP_LEASE_NUMBER'
5911: );
5909: fnd_message.set_name ('PN'
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: );
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)
5919: THEN
5920: fnd_message.set_name ('PN'
5921: , 'PN_DUP_LEASE_NUMBER'
5922: );
5920: fnd_message.set_name ('PN'
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: );
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: );
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: '
6044: || p_var_rent_rec.lease_id
6045: , 3
6047: fnd_message.set_name ('PN'
6048: , 'PN_VAR_NVALID_LEASE'
6049: );
6050: fnd_msg_pub.ADD;
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: '
6049: );
6050: fnd_msg_pub.ADD;
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
6059: fnd_message.set_name ('PN'
6060: , 'PN_VAR_NVALID_LEASE'
6061: );
6062: fnd_msg_pub.ADD;
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: '
6062: fnd_msg_pub.ADD;
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: );
6083: --Validate variable rent number or id
6084: --------------------------------------------------------------------------------
6085: IF ( p_var_rent_rec.rent_num IS NOT NULL
6086: AND p_var_rent_rec.rent_num <> pn_varen_util.g_pn_miss_char
6087: AND l_return_status = fnd_api.g_ret_sts_success
6088: )
6089: THEN
6090: l_return_status := NULL;
6091:
6114: || l_return_status
6115: , 3
6116: );
6117:
6118: IF (l_return_status = fnd_api.g_ret_sts_error) THEN
6119: fnd_message.set_name ('PN'
6120: , 'PN_DUP_LEASE_NUMBER'
6121: );
6122: fnd_msg_pub.ADD;
6119: fnd_message.set_name ('PN'
6120: , 'PN_DUP_LEASE_NUMBER'
6121: );
6122: fnd_msg_pub.ADD;
6123: RAISE fnd_api.g_exc_error;
6124: ELSIF (l_return_status = fnd_api.g_ret_sts_unexp_error) THEN
6125: fnd_message.set_name ('PN'
6126: , 'PN_DUP_LEASE_NUMBER'
6127: );
6120: , 'PN_DUP_LEASE_NUMBER'
6121: );
6122: fnd_msg_pub.ADD;
6123: RAISE fnd_api.g_exc_error;
6124: ELSIF (l_return_status = fnd_api.g_ret_sts_unexp_error) THEN
6125: fnd_message.set_name ('PN'
6126: , 'PN_DUP_LEASE_NUMBER'
6127: );
6128: fnd_msg_pub.ADD;
6125: fnd_message.set_name ('PN'
6126: , 'PN_DUP_LEASE_NUMBER'
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
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;
6156: ELSE
6157: fnd_message.set_name ('PN'
6158: , 'PN_VAR_RENT_NUM_NULL'
6159: );
6157: fnd_message.set_name ('PN'
6158: , 'PN_VAR_RENT_NUM_NULL'
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: );
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;
6168: END IF;
6169:
6170: --------------------------------------------------------------------------------------
6169:
6170: --------------------------------------------------------------------------------------
6171: -- If Variable Rent Num already exists then no need to call the rest of the validations
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
6237: AND p_var_rent_rec.commencement_date <= NVL (p_var_rent_rec.termination_date,l_lease_termination_date)
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: );
6248: p_var_rent_rec.commencement_date :=
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: );
6254: || p_var_rent_rec.commencement_date
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: );
6262: );
6263: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
6264: fnd_message.set_token('ERR_MSG', 'Lease Commencement Date is NULL');
6265: fnd_msg_pub.ADD;
6266: RAISE fnd_api.g_exc_error;
6267: END IF;
6268:
6269: --------------------------------------------------------------------------------
6270: --Termination date validation
6277: AND p_var_rent_rec.termination_date > p_var_rent_rec.commencement_date
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: );
6284: , 3
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: );
6290: || p_var_rent_rec.termination_date
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: );
6302: );
6303: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
6304: fnd_message.set_token('ERR_MSG', 'Lease Termination Date is NULL');
6305: fnd_msg_pub.ADD;
6306: RAISE fnd_api.g_exc_error;
6307: END IF;
6308:
6309: --------------------------------------------------------------------------------
6310: --Location details validation
6325: || p_var_rent_rec.location_id
6326: , 3
6327: );
6328:
6329: IF (l_return_status = fnd_api.g_ret_sts_error)
6330: THEN
6331: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
6332: fnd_message.set_token('ERR_MSG', 'Invalid Location Code/ID,Please Provide Valid Location Code/ID');
6333: fnd_msg_pub.ADD;
6330: THEN
6331: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
6332: fnd_message.set_token('ERR_MSG', 'Invalid Location Code/ID,Please Provide Valid Location Code/ID');
6333: fnd_msg_pub.ADD;
6334: RAISE fnd_api.g_exc_error;
6335: ELSIF (l_return_status = fnd_api.g_ret_sts_unexp_error)
6336: THEN
6337: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
6338: fnd_message.set_token('ERR_MSG', 'Invalid Location Code/ID,Please Provide Valid Location Code/ID:Unexpected Error');
6331: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
6332: fnd_message.set_token('ERR_MSG', 'Invalid Location Code/ID,Please Provide Valid Location Code/ID');
6333: fnd_msg_pub.ADD;
6334: RAISE fnd_api.g_exc_error;
6335: ELSIF (l_return_status = fnd_api.g_ret_sts_unexp_error)
6336: THEN
6337: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
6338: fnd_message.set_token('ERR_MSG', 'Invalid Location Code/ID,Please Provide Valid Location Code/ID:Unexpected Error');
6339: fnd_msg_pub.ADD;
6336: THEN
6337: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
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
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;
6347: END IF;
6348: END IF;
6349:
6350: --------------------------------------------------------------------------------
6365: || p_var_rent_rec.purpose_code
6366: , 3
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
6380: || '/'
6381: || p_var_rent_rec.purpose_code
6382: );
6383: fnd_msg_pub.ADD;
6384: RAISE fnd_api.g_exc_error;
6385:
6386: ELSIF (l_return_status = fnd_api.g_ret_sts_unexp_error)
6387: THEN
6388: pn_varen_util.pvt_debug
6382: );
6383: fnd_msg_pub.ADD;
6384: RAISE fnd_api.g_exc_error;
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
6398: || '/'
6399: || p_var_rent_rec.purpose_code
6400: );
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
6422: || '/'
6423: || p_var_rent_rec.purpose_code
6424: );
6425: fnd_msg_pub.ADD;
6426: RAISE fnd_api.g_exc_error;
6427: END IF;
6428:
6429: --------------------------------------------------------------------------------
6430: --Volume Type validation
6448: || p_var_rent_rec.type_code
6449: , 3
6450: );
6451:
6452: IF (l_return_status = fnd_api.g_ret_sts_error)
6453: THEN
6454: fnd_message.set_name ('PN'
6455: , 'PN_VAR_VOL_TY'
6456: );
6459: || '/'
6460: || p_var_rent_rec.type_code
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
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)
6470: THEN
6471: fnd_message.set_name ('PN'
6472: , 'PN_VAR_VOL_TY'
6473: );
6476: || '/'
6477: || p_var_rent_rec.type_code
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
6504: || '/'
6505: || p_var_rent_rec.type_code
6506: );
6507: fnd_msg_pub.ADD;
6508: RAISE fnd_api.g_exc_error;
6509: END IF;
6510:
6511: --------------------------------------------------------------------------------
6512: --Abstracted by user validation
6525: || p_var_rent_rec.abstracted_by_user_id
6526: , 3
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
6540: || '/'
6541: || p_var_rent_rec.abstracted_by_user_id
6542: );
6543: fnd_msg_pub.ADD;
6544: RAISE fnd_api.g_exc_error;
6545:
6546: ELSIF (l_return_status = fnd_api.g_ret_sts_unexp_error)
6547: THEN
6548: pn_varen_util.pvt_debug
6542: );
6543: fnd_msg_pub.ADD;
6544: RAISE fnd_api.g_exc_error;
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
6558: || '/'
6559: || p_var_rent_rec.abstracted_by_user_id
6560: );
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
6571: fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
6572: fnd_message.set_token ('API_NAME', 'PN_VAR_RENT_PVT');
6573: fnd_message.set_token ('NULL_PARAM', 'Abstracted By is NULL.Please provide the valid value');
6574: fnd_msg_pub.ADD;
6575: RAISE fnd_api.g_exc_error;
6576: END IF;
6577:
6578: --------------------------------------------------------------------------------
6579: --Cumulative Volumen/Method validation
6593: || p_var_rent_rec.cumulative_vol_code
6594: , 3
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
6608: || '/'
6609: || p_var_rent_rec.cumulative_vol_code
6610: );
6611: fnd_msg_pub.ADD;
6612: RAISE fnd_api.g_exc_error;
6613:
6614: ELSIF (l_return_status = fnd_api.g_ret_sts_unexp_error)
6615: THEN
6616: pn_varen_util.pvt_debug
6610: );
6611: fnd_msg_pub.ADD;
6612: RAISE fnd_api.g_exc_error;
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
6626: || '/'
6627: || p_var_rent_rec.cumulative_vol_code
6628: );
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
6654: fnd_message.set_name ('PN', 'PN_API_ALL_NULL_PARAMETER');
6655: fnd_message.set_token ('API_NAME', 'PN_VAR_RENT_PVT');
6656: fnd_message.set_token ('NULL_PARAM', 'CUMULATIVE_VOL is NULL');
6657: fnd_msg_pub.ADD;
6658: RAISE fnd_api.g_exc_error;
6659: END IF;
6660:
6661: --------------------------------------------------------------------------------
6662: --Proration Rule validation or partial year method
6676: || p_var_rent_rec.proration_rule_code
6677: , 3
6678: );
6679:
6680: IF (l_return_status = fnd_api.g_ret_sts_error)
6681: THEN
6682: fnd_message.set_name ('PN'
6683: , 'PN_VAR_PRO_RUL'
6684: );
6687: || '/'
6688: || p_var_rent_rec.proration_rule_code
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
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)
6698: THEN
6699: fnd_message.set_name ('PN'
6700: , 'PN_VAR_PRO_RUL'
6701: );
6704: || '/'
6705: || p_var_rent_rec.proration_rule_code
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
6751: || p_var_rent_rec.invoice_on_code
6752: , 3
6753: );
6754:
6755: IF (l_return_status = fnd_api.g_ret_sts_error)
6756: THEN
6757: fnd_message.set_name ('PN'
6758: , 'PN_VAR_INV_ON'
6759: );
6762: || '/'
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: );
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)
6772: THEN
6773: fnd_message.set_name ('PN'
6774: , 'PN_VAR_INV_ON'
6775: );
6778: || '/'
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: );
6831: THEN
6832: fnd_message.set_name ('PN'
6833: , 'PN_VAR_CALC_PRO_CODE'
6834: );
6835: RAISE fnd_api.g_exc_error;
6836: ELSIF l_return_status = 'U'
6837: THEN
6838: fnd_message.set_name ('PN'
6839: , 'PN_VAR_CALC_PRO_CODE'
6837: THEN
6838: fnd_message.set_name ('PN'
6839: , 'PN_VAR_CALC_PRO_CODE'
6840: );
6841: RAISE fnd_api.g_exc_unexpected_error;
6842: END IF;
6843: END IF;
6844:
6845: -------------------------------------------------------------------
6859: || l_return_status
6860: , 3
6861: );
6862:
6863: IF (l_return_status = fnd_api.g_ret_sts_error)
6864: THEN
6865: fnd_message.set_name ('PN'
6866: , 'PN_VAR_FOR_PRO_CODE'
6867: );
6864: THEN
6865: fnd_message.set_name ('PN'
6866: , 'PN_VAR_FOR_PRO_CODE'
6867: );
6868: RAISE fnd_api.g_exc_error;
6869: ELSIF (l_return_status = fnd_api.g_ret_sts_unexp_error)
6870: THEN
6871: fnd_message.set_name ('PN'
6872: , 'PN_VAR_FOR_PRO_CODE'
6865: fnd_message.set_name ('PN'
6866: , 'PN_VAR_FOR_PRO_CODE'
6867: );
6868: RAISE fnd_api.g_exc_error;
6869: ELSIF (l_return_status = fnd_api.g_ret_sts_unexp_error)
6870: THEN
6871: fnd_message.set_name ('PN'
6872: , 'PN_VAR_FOR_PRO_CODE'
6873: );
6870: THEN
6871: fnd_message.set_name ('PN'
6872: , 'PN_VAR_FOR_PRO_CODE'
6873: );
6874: RAISE fnd_api.g_exc_unexpected_error;
6875: END IF;
6876: END IF;
6877:
6878: --------------------------------------------------------------------------------
6893: || p_var_rent_rec.negative_rent_code
6894: , 3
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
6908: || '/'
6909: || p_var_rent_rec.negative_rent_code
6910: );
6911: fnd_msg_pub.ADD;
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 :'
6910: );
6911: fnd_msg_pub.ADD;
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
6925: || '/'
6926: || p_var_rent_rec.negative_rent_code
6927: );
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
6966: || p_var_rent_rec.term_template_id
6967: , 3
6968: );
6969:
6970: IF (l_return_status = fnd_api.g_ret_sts_error)
6971: THEN
6972: fnd_message.set_name ('PN'
6973: , 'PN_VAR_TRM_TEM'
6974: );
6977: || '/'
6978: || p_var_rent_rec.term_template_name
6979: );
6980: fnd_msg_pub.ADD;
6981: RAISE fnd_api.g_exc_error;
6982:
6983: ELSIF (l_return_status = fnd_api.g_ret_sts_unexp_error)
6984: THEN
6985: fnd_message.set_name ('PN'
6979: );
6980: fnd_msg_pub.ADD;
6981: RAISE fnd_api.g_exc_error;
6982:
6983: ELSIF (l_return_status = fnd_api.g_ret_sts_unexp_error)
6984: THEN
6985: fnd_message.set_name ('PN'
6986: , 'PN_VAR_TRM_TEM'
6987: );
6990: || '/'
6991: || p_var_rent_rec.term_template_name
6992: );
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
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;
7011: END IF;
7012:
7013: --------------------------------------------------------------------------------
7014: --Currency Validation
7021: pn_varen_util.validate_currency (p_currency_code => p_var_rent_rec.currency_code
7022: , x_return_status => l_return_status
7023: );
7024:
7025: IF (l_return_status = fnd_api.g_ret_sts_error)
7026: THEN
7027: fnd_message.set_name ('PN'
7028: , 'PN_VAR_CUR_CODE'
7029: );
7030: fnd_message.set_token ('CURRENCY_CODE'
7031: , p_var_rent_rec.currency_code
7032: );
7033: fnd_msg_pub.ADD;
7034: RAISE fnd_api.g_exc_error;
7035:
7036: ELSIF (l_return_status = fnd_api.g_ret_sts_unexp_error)
7037: THEN
7038: fnd_message.set_name ('PN'
7032: );
7033: fnd_msg_pub.ADD;
7034: RAISE fnd_api.g_exc_error;
7035:
7036: ELSIF (l_return_status = fnd_api.g_ret_sts_unexp_error)
7037: THEN
7038: fnd_message.set_name ('PN'
7039: , 'PN_VAR_CUR_CODE'
7040: );
7041: fnd_message.set_token ('CURRENCY_CODE'
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: );
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;
7062: END IF;
7063:
7064: pn_varen_util.pvt_debug ('PN_VAREN_PVT: End - Variable Rent validations'
7065: , 3
7109: , x_return_msg => l_return_msg
7110: , x_return_status => l_return_status
7111: );
7112:
7113: IF (l_return_status = fnd_api.g_ret_sts_error) THEN
7114: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
7115: fnd_message.set_token ('ERR_MSG', 'Var Rent : PN_VAR_RENTS Descriptive Fields Error'||l_return_msg);
7116: fnd_msg_pub.ADD;
7117: RAISE fnd_api.g_exc_error;
7113: IF (l_return_status = fnd_api.g_ret_sts_error) THEN
7114: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
7115: fnd_message.set_token ('ERR_MSG', 'Var Rent : PN_VAR_RENTS Descriptive Fields Error'||l_return_msg);
7116: fnd_msg_pub.ADD;
7117: RAISE fnd_api.g_exc_error;
7118: ELSIF (l_return_status = fnd_api.g_ret_sts_unexp_error) THEN
7119: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
7120: fnd_message.set_token ('ERR_MSG', 'Var Rent : PN_VAR_RENTS Descriptive Fields Error'||l_return_msg);
7121: fnd_msg_pub.ADD;
7114: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
7115: fnd_message.set_token ('ERR_MSG', 'Var Rent : PN_VAR_RENTS Descriptive Fields Error'||l_return_msg);
7116: fnd_msg_pub.ADD;
7117: RAISE fnd_api.g_exc_error;
7118: ELSIF (l_return_status = fnd_api.g_ret_sts_unexp_error) THEN
7119: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
7120: fnd_message.set_token ('ERR_MSG', 'Var Rent : PN_VAR_RENTS Descriptive Fields Error'||l_return_msg);
7121: fnd_msg_pub.ADD;
7122: RAISE fnd_api.g_exc_unexpected_error;
7118: ELSIF (l_return_status = fnd_api.g_ret_sts_unexp_error) THEN
7119: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
7120: fnd_message.set_token ('ERR_MSG', 'Var Rent : PN_VAR_RENTS Descriptive Fields Error'||l_return_msg);
7121: fnd_msg_pub.ADD;
7122: RAISE fnd_api.g_exc_unexpected_error;
7123: END IF;
7124: END IF;
7125: END IF; -- End of attributes valitions in create var rent*/
7126: /* --Commented as DFF is not available
7162: , x_return_msg => l_return_msg
7163: , x_return_status => x_return_status
7164: );
7165:
7166: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
7167: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
7168: fnd_message.set_token ('ERR_MSG', 'Var Rent : PN VAR DATES Descriptive Fields Error');
7169: fnd_msg_pub.ADD;
7170: RAISE fnd_api.g_exc_error;
7166: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
7167: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
7168: fnd_message.set_token ('ERR_MSG', 'Var Rent : PN VAR DATES Descriptive Fields Error');
7169: fnd_msg_pub.ADD;
7170: RAISE fnd_api.g_exc_error;
7171: ELSIF (l_return_status = fnd_api.g_ret_sts_unexp_error) THEN
7172: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
7173: fnd_message.set_token ('ERR_MSG', 'Var Rent : PN VAR DATES Descriptive Fields Error');
7174: fnd_msg_pub.ADD;
7167: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
7168: fnd_message.set_token ('ERR_MSG', 'Var Rent : PN VAR DATES Descriptive Fields Error');
7169: fnd_msg_pub.ADD;
7170: RAISE fnd_api.g_exc_error;
7171: ELSIF (l_return_status = fnd_api.g_ret_sts_unexp_error) THEN
7172: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
7173: fnd_message.set_token ('ERR_MSG', 'Var Rent : PN VAR DATES Descriptive Fields Error');
7174: fnd_msg_pub.ADD;
7175: RAISE fnd_api.g_exc_unexpected_error;
7171: ELSIF (l_return_status = fnd_api.g_ret_sts_unexp_error) THEN
7172: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
7173: fnd_message.set_token ('ERR_MSG', 'Var Rent : PN VAR DATES Descriptive Fields Error');
7174: fnd_msg_pub.ADD;
7175: RAISE fnd_api.g_exc_unexpected_error;
7176: END IF;
7177: END IF;
7178: END IF; -- End of attributes valitions in create var rent dates */
7179:
7176: END IF;
7177: END IF;
7178: END IF; -- End of attributes valitions in create var rent dates */
7179:
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);
7178: END IF; -- End of attributes valitions in create var rent dates */
7179:
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;
7179:
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);
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;
7189:
7190: --------------------------------------------------------------------------------
7226: , 3
7227: );
7228: --fnd_message.set_name ('PN', 'PN_VAR_NVALID_LEASE');
7229: --fnd_msg_pub.ADD;
7230: RAISE fnd_api.g_exc_error;
7231: x_return_status := fnd_api.g_ret_sts_error;
7232: ELSE
7233: pn_varen_util.val_rent_details (p_rent_num => p_upd_var_rent_rec_type.rent_num
7234: , x_var_rent_id => p_upd_var_rent_rec_type.var_rent_id
7227: );
7228: --fnd_message.set_name ('PN', 'PN_VAR_NVALID_LEASE');
7229: --fnd_msg_pub.ADD;
7230: RAISE fnd_api.g_exc_error;
7231: x_return_status := fnd_api.g_ret_sts_error;
7232: ELSE
7233: pn_varen_util.val_rent_details (p_rent_num => p_upd_var_rent_rec_type.rent_num
7234: , x_var_rent_id => p_upd_var_rent_rec_type.var_rent_id
7235: , x_lease_id => p_upd_var_rent_rec_type.lease_id
7241: || l_return_status
7242: , 3
7243: );
7244:
7245: IF (l_return_status = fnd_api.g_ret_sts_error)
7246: THEN
7247: --fnd_message.set_name ('PN' , 'PN_VAR_NVALID_LEASE');
7248: --fnd_msg_pub.ADD;
7249: RAISE fnd_api.g_exc_error;
7245: IF (l_return_status = fnd_api.g_ret_sts_error)
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: );
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)
7255: THEN
7256: --fnd_message.set_name ('PN' , 'PN_VAR_NVALID_LEASE');
7257: --fnd_msg_pub.ADD;
7258: RAISE fnd_api.g_exc_unexpected_error;
7254: ELSIF (l_return_status = fnd_api.g_ret_sts_unexp_error)
7255: THEN
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
7261: || p_upd_var_rent_rec_type.rent_num
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: );
7279: , 3
7280: );
7281: --fnd_message.set_name ('PN', 'PN_VAR_NVALID_LEASE');
7282: --fnd_msg_pub.ADD;
7283: RAISE fnd_api.g_exc_error;
7284: x_return_status := fnd_api.g_ret_sts_error;
7285: ELSE
7286: pn_varen_util.val_rent_details (p_rent_num => p_upd_var_rent_rec_type.rent_num
7287: , x_var_rent_id => p_upd_var_rent_rec_type.var_rent_id
7280: );
7281: --fnd_message.set_name ('PN', 'PN_VAR_NVALID_LEASE');
7282: --fnd_msg_pub.ADD;
7283: RAISE fnd_api.g_exc_error;
7284: x_return_status := fnd_api.g_ret_sts_error;
7285: ELSE
7286: pn_varen_util.val_rent_details (p_rent_num => p_upd_var_rent_rec_type.rent_num
7287: , x_var_rent_id => p_upd_var_rent_rec_type.var_rent_id
7288: , x_return_status => l_return_status
7292: || l_return_status
7293: , 3
7294: );
7295:
7296: IF (l_return_status = fnd_api.g_ret_sts_error)
7297: THEN
7298: --fnd_message.set_name ('PN' , 'PN_VAR_NVALID_LEASE');
7299: --fnd_msg_pub.ADD;
7300: RAISE fnd_api.g_exc_error;
7296: IF (l_return_status = fnd_api.g_ret_sts_error)
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: );
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)
7306: THEN
7307: --fnd_message.set_name ('PN' , 'PN_VAR_NVALID_LEASE');
7308: --fnd_msg_pub.ADD;
7309: RAISE fnd_api.g_exc_unexpected_error;
7305: ELSIF (l_return_status = fnd_api.g_ret_sts_unexp_error)
7306: THEN
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
7312: || p_upd_var_rent_rec_type.rent_num
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: );
7335: || l_return_status
7336: , 3
7337: );
7338:
7339: IF (l_return_status <> fnd_api.g_ret_sts_success)
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;
7349: END IF;
7350:
7351: END IF;
7352:
7366: || l_return_status
7367: , 3
7368: );
7369:
7370: IF (l_return_status <> fnd_api.g_ret_sts_success)
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;
7380: END IF;
7381:
7382: END IF;
7383:
7404: || l_return_status
7405: , 3
7406: );
7407:
7408: IF l_return_status = fnd_api.g_ret_sts_error
7409: THEN
7410: fnd_message.set_name ('PN'
7411: , 'PN_VAR_CALC_PRO_CODE'
7412: );
7410: fnd_message.set_name ('PN'
7411: , 'PN_VAR_CALC_PRO_CODE'
7412: );
7413: fnd_msg_pub.ADD;
7414: RAISE fnd_api.g_exc_error;
7415: x_return_status := fnd_api.g_ret_sts_error;
7416: ELSIF (l_return_status = fnd_api.g_ret_sts_unexp_error)
7417: THEN
7418: fnd_message.set_name ('PN'
7411: , 'PN_VAR_CALC_PRO_CODE'
7412: );
7413: fnd_msg_pub.ADD;
7414: RAISE fnd_api.g_exc_error;
7415: x_return_status := fnd_api.g_ret_sts_error;
7416: ELSIF (l_return_status = fnd_api.g_ret_sts_unexp_error)
7417: THEN
7418: fnd_message.set_name ('PN'
7419: , 'PN_VAR_CALC_PRO_CODE'
7412: );
7413: fnd_msg_pub.ADD;
7414: RAISE fnd_api.g_exc_error;
7415: x_return_status := fnd_api.g_ret_sts_error;
7416: ELSIF (l_return_status = fnd_api.g_ret_sts_unexp_error)
7417: THEN
7418: fnd_message.set_name ('PN'
7419: , 'PN_VAR_CALC_PRO_CODE'
7420: );
7418: fnd_message.set_name ('PN'
7419: , 'PN_VAR_CALC_PRO_CODE'
7420: );
7421: fnd_msg_pub.ADD;
7422: RAISE fnd_api.g_exc_unexpected_error;
7423: x_return_status :=
7424: fnd_api.g_ret_sts_unexp_error;
7425: ELSE
7426: x_return_status := fnd_api.g_ret_sts_success;
7420: );
7421: fnd_msg_pub.ADD;
7422: RAISE fnd_api.g_exc_unexpected_error;
7423: x_return_status :=
7424: fnd_api.g_ret_sts_unexp_error;
7425: ELSE
7426: x_return_status := fnd_api.g_ret_sts_success;
7427: END IF;
7428: END IF;
7422: RAISE fnd_api.g_exc_unexpected_error;
7423: x_return_status :=
7424: fnd_api.g_ret_sts_unexp_error;
7425: ELSE
7426: x_return_status := fnd_api.g_ret_sts_success;
7427: END IF;
7428: END IF;
7429:
7430: -------------------------------------------------------------------------
7450: || l_return_status
7451: , 3
7452: );
7453:
7454: IF l_return_status = fnd_api.g_ret_sts_error
7455: THEN
7456: fnd_message.set_name ('PN'
7457: , 'PN_VAR_FOR_PRO_CODE'
7458: );
7456: fnd_message.set_name ('PN'
7457: , 'PN_VAR_FOR_PRO_CODE'
7458: );
7459: fnd_msg_pub.ADD;
7460: RAISE fnd_api.g_exc_error;
7461: x_return_status := fnd_api.g_ret_sts_error;
7462: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error
7463: THEN
7464: fnd_message.set_name ('PN'
7457: , 'PN_VAR_FOR_PRO_CODE'
7458: );
7459: fnd_msg_pub.ADD;
7460: RAISE fnd_api.g_exc_error;
7461: x_return_status := fnd_api.g_ret_sts_error;
7462: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error
7463: THEN
7464: fnd_message.set_name ('PN'
7465: , 'PN_VAR_FOR_PRO_CODE'
7458: );
7459: fnd_msg_pub.ADD;
7460: RAISE fnd_api.g_exc_error;
7461: x_return_status := fnd_api.g_ret_sts_error;
7462: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error
7463: THEN
7464: fnd_message.set_name ('PN'
7465: , 'PN_VAR_FOR_PRO_CODE'
7466: );
7464: fnd_message.set_name ('PN'
7465: , 'PN_VAR_FOR_PRO_CODE'
7466: );
7467: fnd_msg_pub.ADD;
7468: RAISE fnd_api.g_exc_unexpected_error;
7469: x_return_status :=
7470: fnd_api.g_ret_sts_unexp_error;
7471: ELSE
7472: x_return_status := fnd_api.g_ret_sts_success;
7466: );
7467: fnd_msg_pub.ADD;
7468: RAISE fnd_api.g_exc_unexpected_error;
7469: x_return_status :=
7470: fnd_api.g_ret_sts_unexp_error;
7471: ELSE
7472: x_return_status := fnd_api.g_ret_sts_success;
7473: END IF;
7474: END IF;
7468: RAISE fnd_api.g_exc_unexpected_error;
7469: x_return_status :=
7470: fnd_api.g_ret_sts_unexp_error;
7471: ELSE
7472: x_return_status := fnd_api.g_ret_sts_success;
7473: END IF;
7474: END IF;
7475: EXCEPTION
7476: WHEN OTHERS
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
7695: WHEN OTHERS
7696: THEN
7697: x_return_status := fnd_api.g_ret_sts_error;
7693: x_return_status := fnd_api.g_ret_sts_success;
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: );
7813: || p_var_rent_rec.period_type
7814: , 3
7815: );
7816:
7817: IF (l_return_status = fnd_api.g_ret_sts_error)
7818: THEN
7819: fnd_message.set_name ('PN'
7820: , 'PN_VAR_GL_CAL_PER_TY'
7821: );
7828: fnd_message.set_token ('YEAR_START_DATE'
7829: , p_var_rent_rec.year_start_date
7830: );
7831: fnd_msg_pub.ADD;
7832: RAISE fnd_api.g_exc_error;
7833: ELSIF (l_return_status = fnd_api.g_ret_sts_unexp_error)
7834: THEN
7835: fnd_message.set_name ('PN'
7836: , 'PN_VAR_GL_CAL_PER_TY'
7829: , p_var_rent_rec.year_start_date
7830: );
7831: fnd_msg_pub.ADD;
7832: RAISE fnd_api.g_exc_error;
7833: ELSIF (l_return_status = fnd_api.g_ret_sts_unexp_error)
7834: THEN
7835: fnd_message.set_name ('PN'
7836: , 'PN_VAR_GL_CAL_PER_TY'
7837: );
7844: fnd_message.set_token ('YEAR_START_DATE'
7845: , p_var_rent_rec.year_start_date
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
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;
7863: END IF;
7864: ELSIF ( l_reptg_freq_code IS NOT NULL
7865: OR l_year_start_date IS NOT NULL
7866: OR l_use_gl_calendar IS NOT NULL
7894: || p_var_rent_rec.reptg_freq_code
7895: , 3
7896: );
7897:
7898: IF (l_return_status = fnd_api.g_ret_sts_error)
7899: THEN
7900: fnd_message.set_name ('PN'
7901: , 'PN_VAR_REPT_CODE'
7902: );
7905: || '/'
7906: || p_var_rent_rec.reptg_freq_code
7907: );
7908: fnd_msg_pub.ADD;
7909: RAISE fnd_api.g_exc_error;
7910:
7911: ELSIF (l_return_status = fnd_api.g_ret_sts_unexp_error)
7912: THEN
7913: fnd_message.set_name ('PN'
7907: );
7908: fnd_msg_pub.ADD;
7909: RAISE fnd_api.g_exc_error;
7910:
7911: ELSIF (l_return_status = fnd_api.g_ret_sts_unexp_error)
7912: THEN
7913: fnd_message.set_name ('PN'
7914: , 'PN_VAR_REPT_CODE'
7915: );
7918: || '/'
7919: || p_var_rent_rec.reptg_freq_code
7920: );
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
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;
7930: END IF;
7931: ELSIF (l_invg_freq_code IS NOT NULL)
7932: THEN
7933: p_var_rent_rec.reptg_freq_code := l_invg_freq_code;
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;
7941: END IF;
7942:
7943: ------------------------------------------------
7944: --Validation of Reporting Frequency -- VRG_REPTG_FREQ_CODE
7958: || p_var_rent_rec.vrg_reptg_freq_code
7959: , 3
7960: );
7961:
7962: IF (l_return_status = fnd_api.g_ret_sts_error)
7963: THEN
7964: fnd_message.set_name ('PN'
7965: , 'PN_VAR_VRG_REPT_CODE'
7966: );
7969: || '/'
7970: || p_var_rent_rec.vrg_reptg_freq_code
7971: );
7972: fnd_msg_pub.ADD;
7973: RAISE fnd_api.g_exc_error;
7974:
7975: ELSIF (l_return_status = fnd_api.g_ret_sts_unexp_error)
7976: THEN
7977: fnd_message.set_name ('PN'
7971: );
7972: fnd_msg_pub.ADD;
7973: RAISE fnd_api.g_exc_error;
7974:
7975: ELSIF (l_return_status = fnd_api.g_ret_sts_unexp_error)
7976: THEN
7977: fnd_message.set_name ('PN'
7978: , 'PN_VAR_VRG_REPT_CODE'
7979: );
7982: || '/'
7983: || p_var_rent_rec.vrg_reptg_freq_code
7984: );
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
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;
7994: END IF;
7995: ELSIF (l_vrg_reptg_freq_code IS NOT NULL)
7996: THEN
7997: p_var_rent_rec.vrg_reptg_freq_code := l_vrg_reptg_freq_code;
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;
8005: END IF;
8006:
8007: ------------------------------------------------
8008: --Validation of Invoicing Frequency -- INVG_FREQ_CODE
8022: || p_var_rent_rec.invg_freq_code
8023: , 3
8024: );
8025:
8026: IF (l_return_status = fnd_api.g_ret_sts_error)
8027: THEN
8028: fnd_message.set_name ('PN'
8029: , 'PN_VAR_INVG_FREQ_CODE'
8030: );
8033: || '/'
8034: || p_var_rent_rec.invg_freq_code
8035: );
8036: fnd_msg_pub.ADD;
8037: RAISE fnd_api.g_exc_error;
8038:
8039: ELSIF (l_return_status = fnd_api.g_ret_sts_unexp_error)
8040: THEN
8041: fnd_message.set_name ('PN'
8035: );
8036: fnd_msg_pub.ADD;
8037: RAISE fnd_api.g_exc_error;
8038:
8039: ELSIF (l_return_status = fnd_api.g_ret_sts_unexp_error)
8040: THEN
8041: fnd_message.set_name ('PN'
8042: , 'PN_VAR_INVG_FREQ_CODE'
8043: );
8046: || '/'
8047: || p_var_rent_rec.invg_freq_code
8048: );
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
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;
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 :'
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;
8066: END IF;
8067:
8068: -------------------------------------------------------------------------------------------
8069: -- variable rent calculation frequency to be equal to or less than the reporting frequency.
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;
8116: --
8117: ELSIF ( p_var_rent_rec.reptg_day_of_month IS NOT NULL
8118: AND p_var_rent_rec.reptg_days_after IS NULL
8119: AND p_var_rent_rec.reptg_day_of_month >= 1
8125: , 3
8126: );
8127: --p_var_rent_rec.reptg_days_after := NULL;
8128: --
8129: x_return_status := fnd_api.g_ret_sts_success;
8130: ELSIF ( p_var_rent_rec.reptg_day_of_month IS NOT NULL
8131: AND p_var_rent_rec.reptg_days_after IS NOT NULL
8132: AND (p_var_rent_rec.reptg_day_of_month < 1
8133: OR p_var_rent_rec.reptg_day_of_month > 28)
8137: fnd_message.set_name ('PN'
8138: , 'PN_VAR_REPTG_DAY_OF_MONTH'
8139: );
8140: fnd_msg_pub.ADD;
8141: RAISE fnd_api.g_exc_error;
8142: END IF;
8143:
8144: ------------------------------------------------------------------------------------
8145: -- If Invoicing Due Day is not null then it Invoicing Due Day should be between 1-28
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;
8160: ELSIF ( p_var_rent_rec.invg_day_of_month IS NOT NULL
8161: AND p_var_rent_rec.invg_days_after IS NULL
8162: AND ( p_var_rent_rec.invg_day_of_month >= 1
8163: AND p_var_rent_rec.invg_day_of_month <= 28)
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;
8172: ELSIF ( p_var_rent_rec.invg_day_of_month IS NOT NULL
8173: AND p_var_rent_rec.invg_days_after IS NOT NULL
8174: AND ( p_var_rent_rec.invg_day_of_month < 1
8175: OR p_var_rent_rec.invg_day_of_month > 28)
8179: fnd_message.set_name ('PN'
8180: , 'PN_VAR_INVG_DAY_OF_MONTH'
8181: );
8182: fnd_msg_pub.ADD;
8183: RAISE fnd_api.g_exc_error;
8184:
8185: END IF;
8186: /*
8187: --------------------------------------------------------------------------------
8225: , x_return_msg => l_return_msg
8226: , x_return_status => l_return_status
8227: );
8228:
8229: IF (l_return_status = fnd_api.g_ret_sts_error) THEN
8230: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
8231: fnd_message.set_token ('ERR_MSG', 'Var Rent : PN VAR DATES Descriptive Fields Error '||l_return_msg);
8232: fnd_msg_pub.ADD;
8233: RAISE fnd_api.g_exc_error;
8229: IF (l_return_status = fnd_api.g_ret_sts_error) THEN
8230: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
8231: fnd_message.set_token ('ERR_MSG', 'Var Rent : PN VAR DATES Descriptive Fields Error '||l_return_msg);
8232: fnd_msg_pub.ADD;
8233: RAISE fnd_api.g_exc_error;
8234: ELSIF (l_return_status = fnd_api.g_ret_sts_unexp_error) THEN
8235: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
8236: fnd_message.set_token ('ERR_MSG', 'Var Rent : PN VAR DATES Descriptive Fields Error '||l_return_msg);
8237: fnd_msg_pub.ADD;
8230: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
8231: fnd_message.set_token ('ERR_MSG', 'Var Rent : PN VAR DATES Descriptive Fields Error '||l_return_msg);
8232: fnd_msg_pub.ADD;
8233: RAISE fnd_api.g_exc_error;
8234: ELSIF (l_return_status = fnd_api.g_ret_sts_unexp_error) THEN
8235: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
8236: fnd_message.set_token ('ERR_MSG', 'Var Rent : PN VAR DATES Descriptive Fields Error '||l_return_msg);
8237: fnd_msg_pub.ADD;
8238: RAISE fnd_api.g_exc_unexpected_error;
8234: ELSIF (l_return_status = fnd_api.g_ret_sts_unexp_error) THEN
8235: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
8236: fnd_message.set_token ('ERR_MSG', 'Var Rent : PN VAR DATES Descriptive Fields Error '||l_return_msg);
8237: fnd_msg_pub.ADD;
8238: RAISE fnd_api.g_exc_unexpected_error;
8239: END IF;
8240: END IF;
8241: END IF; -- End of attributes valitions in create var rent
8242: */
8240: END IF;
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;
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
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
8250: pn_varen_util.pvt_debug ('PN_VAREN_PVT: Validate_Dates: OTHERS:'||SQLERRM
8251: , 3
8252: );
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;
8255:
8256: --------------------------------------------------------------------------------
8257: -- NAME : UPD_VALIDATE_RENT_DATES
8272: IS
8273: l_return_status VARCHAR2 (1);
8274: l_return_msg VARCHAR2 (2000);
8275: BEGIN
8276: x_return_status := fnd_api.g_ret_sts_success;
8277:
8278: -------------------------------------------------------------------------------------------
8279: -- variable rent calculation frequency to be equal to or less than the reporting frequency.
8280: -------------------------------------------------------------------------------------------
8301: || p_upd_var_rent_rec_type.reptg_freq_code
8302: , 3
8303: );
8304:
8305: IF x_return_status = fnd_api.g_ret_sts_error
8306: THEN
8307: fnd_message.set_name ('PN'
8308: , 'PN_VAR_CALC_REPTG_FREQ'
8309: );
8307: fnd_message.set_name ('PN'
8308: , 'PN_VAR_CALC_REPTG_FREQ'
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: || ' , '
8315: || ' , '
8316: || p_upd_var_rent_rec_type.reptg_freq_code
8317: , 3
8318: );
8319: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
8320: THEN
8321: fnd_message.set_name ('PN'
8322: , 'PN_VAR_CALC_REPTG_FREQ'
8323: );
8321: fnd_message.set_name ('PN'
8322: , 'PN_VAR_CALC_REPTG_FREQ'
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
8332: );
8333: ELSE
8334: x_return_status := fnd_api.g_ret_sts_success;
8335: END IF;
8336: END IF;
8337:
8338: -------------------------------------------------------------------------------------------
8360: || p_upd_var_rent_rec_type.invg_freq_code
8361: , 3
8362: );
8363:
8364: IF x_return_status = fnd_api.g_ret_sts_error
8365: THEN
8366: fnd_message.set_name ('PN'
8367: , 'PN_VAR_INVG_CALC_FREQ'
8368: );
8366: fnd_message.set_name ('PN'
8367: , 'PN_VAR_INVG_CALC_FREQ'
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: || ' , '
8374: || ' , '
8375: || p_upd_var_rent_rec_type.invg_freq_code
8376: , 3
8377: );
8378: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
8379: THEN
8380: fnd_message.set_name ('PN'
8381: , 'PN_VAR_INVG_CALC_FREQ'
8382: );
8380: fnd_message.set_name ('PN'
8381: , 'PN_VAR_INVG_CALC_FREQ'
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: || ' , '
8390: , 3
8391: );
8392: ELSE
8393:
8394: x_return_status := fnd_api.g_ret_sts_success;
8395: END IF;
8396: END IF;
8397:
8398: ------------------------------------------------------------------------------------
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;
8414: --
8415: ELSIF ( p_upd_var_rent_rec_type.reptg_day_of_month IS NOT NULL
8416: AND p_upd_var_rent_rec_type.reptg_days_after IS NULL
8417: AND p_upd_var_rent_rec_type.reptg_day_of_month >= 1
8423: , 3
8424: );
8425: --p_upd_var_rent_rec_type.reptg_days_after := NULL;
8426: --
8427: x_return_status := fnd_api.g_ret_sts_success;
8428: ELSIF ( p_upd_var_rent_rec_type.reptg_day_of_month IS NOT NULL
8429: AND p_upd_var_rent_rec_type.reptg_days_after IS NOT NULL
8430: AND p_upd_var_rent_rec_type.reptg_day_of_month < 1
8431: AND p_upd_var_rent_rec_type.reptg_day_of_month > 28
8434: fnd_message.set_name ('PN'
8435: , 'PN_VAR_REPTG_DAY_OF_MONTH'
8436: );
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
8445: || p_upd_var_rent_rec_type.reptg_day_of_month
8446: , 3
8447: );
8448: --
8449: x_return_status := fnd_api.g_ret_sts_error;
8450: END IF;
8451:
8452: ------------------------------------------------------------------------------------
8453: -- If Invoicing Due Day is not null then it Invoicing Due Day should be between 1-28
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;
8468: ELSIF ( p_upd_var_rent_rec_type.invg_day_of_month IS NOT NULL
8469: AND p_upd_var_rent_rec_type.invg_days_after IS NULL
8470: AND ( p_upd_var_rent_rec_type.invg_day_of_month >= 1
8471: AND p_upd_var_rent_rec_type.invg_day_of_month <= 28)
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;
8480: ELSIF ( p_upd_var_rent_rec_type.invg_day_of_month IS NOT NULL
8481: AND p_upd_var_rent_rec_type.invg_days_after IS NOT NULL
8482: AND ( p_upd_var_rent_rec_type.invg_day_of_month < 1
8483: AND p_upd_var_rent_rec_type.invg_day_of_month > 28)
8486: fnd_message.set_name ('PN'
8487: , 'PN_VAR_INVG_DAY_OF_MONTH'
8488: );
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
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
8498: , 3
8499: );
8500: x_return_status := fnd_api.g_ret_sts_error;
8501: END IF;
8502:
8503: --------------------------------------------------------------------------------
8504: --Variable Rent Date Attribute Category Validation
8529: );
8530:
8531: IF l_return_msg = 'VALID'
8532: THEN
8533: x_return_status := fnd_api.g_ret_sts_success;
8534: ELSE
8535: x_return_status := fnd_api.g_ret_sts_error;
8536: END IF;
8537:
8531: IF l_return_msg = 'VALID'
8532: THEN
8533: x_return_status := fnd_api.g_ret_sts_success;
8534: ELSE
8535: x_return_status := fnd_api.g_ret_sts_error;
8536: END IF;
8537:
8538:
8539: IF x_return_status <> fnd_api.g_ret_sts_success
8535: x_return_status := fnd_api.g_ret_sts_error;
8536: END IF;
8537:
8538:
8539: IF x_return_status <> fnd_api.g_ret_sts_success
8540: THEN
8541: fnd_message.set_name ('PN'
8542: , 'PN_OTHERS_EXCEPTION'
8543: );
8542: , 'PN_OTHERS_EXCEPTION'
8543: );
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:
8591: , x_return_msg => l_return_msg
8592: , x_return_status => x_return_status
8593: );
8594:
8595: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
8596: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
8597: fnd_message.set_token ('ERR_MSG', l_return_msg);
8598: fnd_msg_pub.ADD;
8599: RAISE fnd_api.g_exc_error;
8595: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
8596: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
8597: fnd_message.set_token ('ERR_MSG', l_return_msg);
8598: fnd_msg_pub.ADD;
8599: RAISE fnd_api.g_exc_error;
8600: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
8601: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
8602: fnd_message.set_token ('ERR_MSG', l_return_msg);
8603: fnd_msg_pub.ADD;
8596: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
8597: fnd_message.set_token ('ERR_MSG', l_return_msg);
8598: fnd_msg_pub.ADD;
8599: RAISE fnd_api.g_exc_error;
8600: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
8601: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
8602: fnd_message.set_token ('ERR_MSG', l_return_msg);
8603: fnd_msg_pub.ADD;
8604: RAISE fnd_api.g_exc_unexpected_error;
8600: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
8601: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
8602: fnd_message.set_token ('ERR_MSG', l_return_msg);
8603: fnd_msg_pub.ADD;
8604: RAISE fnd_api.g_exc_unexpected_error;
8605: END IF;
8606: END IF;
8607: END IF; -- End of attributes valitions in update var rent dates*/
8608:
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;
8621: RAISE;
8622: END upd_validate_rent_dates;
8623:
8624: --------------------------------------------------------------------------------
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: );
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;
8735:
8736: END call_varen_insert_row;
8737:
8738: --------------------------------------------------------------------------------
8920: , 'DD-MM-RRRR'
8921: );
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: );
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
9005: WHEN OTHERS
9006: THEN
9007: pn_varen_util.pvt_debug
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;
9013:
9014: --------------------------------------------------------------------------------
9015: -- NAME : UPDATE_VAREN_DATES
9036: l_invg_term NUMBER DEFAULT NULL;
9037: l_null NUMBER DEFAULT NULL;
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: );
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;
9189:
9190: --------------------------------------------------------------------------------
9191: -- NAME : CREATE_VAR_RENT
9218: -- 20-SEP-2010 vkatta o Created
9219: --------------------------------------------------------------------------------
9220: PROCEDURE create_var_rent (
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
9219: --------------------------------------------------------------------------------
9220: PROCEDURE create_var_rent (
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
9298:
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: );
9315: );
9316: SAVEPOINT create_var_rent;
9317:
9318: -- Standard call to check for call compatibility
9319: IF NOT fnd_api.compatible_api_call (l_api_version
9320: , p_api_version
9321: , l_api_name
9322: , g_pkg_name
9323: )
9321: , l_api_name
9322: , g_pkg_name
9323: )
9324: THEN
9325: RAISE fnd_api.g_exc_error;
9326: END IF;
9327:
9328: --
9329: -- IF NVL (mo_global.check_valid_org (g_org_id), 'N') <> 'Y'
9329: -- IF NVL (mo_global.check_valid_org (g_org_id), 'N') <> 'Y'
9330: -- THEN
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
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;
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 :'
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
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');
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
9539: call_varen_insert_row (p_var_rent_id => l_var_rent_id
9540: , p_var_rent_rec => p_var_rent_rec
9541: , x_return_status => x_return_status
9542: );
9543: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
9544: l_var_rent_err_count := l_var_rent_err_count+1;
9545: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
9546: fnd_message.set_token ('ERR_MSG', 'CREATE_VAR_RENT : VAR RENT INSERTION Error');
9547: fnd_msg_pub.ADD;
9544: l_var_rent_err_count := l_var_rent_err_count+1;
9545: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
9546: fnd_message.set_token ('ERR_MSG', 'CREATE_VAR_RENT : VAR RENT INSERTION Error');
9547: fnd_msg_pub.ADD;
9548: RAISE fnd_api.g_exc_error;
9549: ELSIF(x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
9550: l_var_rent_err_count := l_var_rent_err_count+1;
9551: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
9552: fnd_message.set_token ('ERR_MSG', 'CREATE_VAR_RENT : VAR RENT INSERTION Unexpected Error');
9545: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
9546: fnd_message.set_token ('ERR_MSG', 'CREATE_VAR_RENT : VAR RENT INSERTION Error');
9547: fnd_msg_pub.ADD;
9548: RAISE fnd_api.g_exc_error;
9549: ELSIF(x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
9550: l_var_rent_err_count := l_var_rent_err_count+1;
9551: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
9552: fnd_message.set_token ('ERR_MSG', 'CREATE_VAR_RENT : VAR RENT INSERTION Unexpected Error');
9553: fnd_msg_pub.ADD;
9550: l_var_rent_err_count := l_var_rent_err_count+1;
9551: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
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
9577: );
9578: validate_dates (p_var_rent_rec => p_var_rent_rec
9579: , x_return_status => l_return_status
9580: );
9581: IF (l_return_status = fnd_api.g_ret_sts_error) THEN
9582: --l_var_rent_err_count := l_var_rent_err_count+1;
9583: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
9584: fnd_message.set_token ('ERR_MSG', 'CREATE_VAR_RENT : GENERATE_PERIODS Return Status Error');
9585: fnd_msg_pub.ADD;
9582: --l_var_rent_err_count := l_var_rent_err_count+1;
9583: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
9584: fnd_message.set_token ('ERR_MSG', 'CREATE_VAR_RENT : GENERATE_PERIODS Return Status Error');
9585: fnd_msg_pub.ADD;
9586: RAISE fnd_api.g_exc_error;
9587: ELSIF(l_return_status = fnd_api.g_ret_sts_unexp_error) THEN
9588: --l_var_rent_err_count := l_var_rent_err_count+1;
9589: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
9590: fnd_message.set_token ('ERR_MSG', 'CREATE_VAR_RENT : GENERATE_PERIODS Return Status Unexpected Error');
9583: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
9584: fnd_message.set_token ('ERR_MSG', 'CREATE_VAR_RENT : GENERATE_PERIODS Return Status Error');
9585: fnd_msg_pub.ADD;
9586: RAISE fnd_api.g_exc_error;
9587: ELSIF(l_return_status = fnd_api.g_ret_sts_unexp_error) THEN
9588: --l_var_rent_err_count := l_var_rent_err_count+1;
9589: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
9590: fnd_message.set_token ('ERR_MSG', 'CREATE_VAR_RENT : GENERATE_PERIODS Return Status Unexpected Error');
9591: fnd_msg_pub.ADD;
9588: --l_var_rent_err_count := l_var_rent_err_count+1;
9589: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
9590: fnd_message.set_token ('ERR_MSG', 'CREATE_VAR_RENT : GENERATE_PERIODS Return Status Unexpected Error');
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
9601: || l_return_status
9602: , 3
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: );
9665: call_varen_dates_insert_row (p_var_rent_id => l_var_rent_id
9666: , p_var_rent_rec => p_var_rent_rec
9667: , x_return_status => x_return_status
9668: );
9669: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
9670: --l_var_rent_err_count := l_var_rent_err_count+1;
9671: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
9672: fnd_message.set_token ('ERR_MSG', 'CREATE_VAR_RENT : GENERATE_PERIODS Return Status Error');
9673: fnd_msg_pub.ADD;
9670: --l_var_rent_err_count := l_var_rent_err_count+1;
9671: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
9672: fnd_message.set_token ('ERR_MSG', 'CREATE_VAR_RENT : GENERATE_PERIODS Return Status Error');
9673: fnd_msg_pub.ADD;
9674: RAISE fnd_api.g_exc_error;
9675: ELSIF(x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
9676: --l_var_rent_err_count := l_var_rent_err_count+1;
9677: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
9678: fnd_message.set_token ('ERR_MSG', 'CREATE_VAR_RENT : GENERATE_PERIODS Return Status Unexpected Error');
9671: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
9672: fnd_message.set_token ('ERR_MSG', 'CREATE_VAR_RENT : GENERATE_PERIODS Return Status Error');
9673: fnd_msg_pub.ADD;
9674: RAISE fnd_api.g_exc_error;
9675: ELSIF(x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
9676: --l_var_rent_err_count := l_var_rent_err_count+1;
9677: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
9678: fnd_message.set_token ('ERR_MSG', 'CREATE_VAR_RENT : GENERATE_PERIODS Return Status Unexpected Error');
9679: fnd_msg_pub.ADD;
9676: --l_var_rent_err_count := l_var_rent_err_count+1;
9677: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
9678: fnd_message.set_token ('ERR_MSG', 'CREATE_VAR_RENT : GENERATE_PERIODS Return Status Unexpected Error');
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
9716: , x_return_status => l_return_status
9717: , x_msg_count => x_msg_count
9718: , x_msg_data => x_msg_data
9719: );
9720: IF (l_return_status = fnd_api.g_ret_sts_error) THEN
9721: --l_var_rent_err_count := l_var_rent_err_count+1;
9722: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
9723: fnd_message.set_token ('ERR_MSG', 'CREATE_VAR_RENT : GENERATE_PERIODS Return Status Error');
9724: fnd_msg_pub.ADD;
9721: --l_var_rent_err_count := l_var_rent_err_count+1;
9722: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
9723: fnd_message.set_token ('ERR_MSG', 'CREATE_VAR_RENT : GENERATE_PERIODS Return Status Error');
9724: fnd_msg_pub.ADD;
9725: RAISE fnd_api.g_exc_error;
9726: ELSIF(l_return_status = fnd_api.g_ret_sts_unexp_error) THEN
9727: --l_var_rent_err_count := l_var_rent_err_count+1;
9728: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
9729: fnd_message.set_token ('ERR_MSG', 'CREATE_VAR_RENT : GENERATE_PERIODS Return Status Unexpected Error');
9722: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
9723: fnd_message.set_token ('ERR_MSG', 'CREATE_VAR_RENT : GENERATE_PERIODS Return Status Error');
9724: fnd_msg_pub.ADD;
9725: RAISE fnd_api.g_exc_error;
9726: ELSIF(l_return_status = fnd_api.g_ret_sts_unexp_error) THEN
9727: --l_var_rent_err_count := l_var_rent_err_count+1;
9728: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
9729: fnd_message.set_token ('ERR_MSG', 'CREATE_VAR_RENT : GENERATE_PERIODS Return Status Unexpected Error');
9730: fnd_msg_pub.ADD;
9727: --l_var_rent_err_count := l_var_rent_err_count+1;
9728: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
9729: fnd_message.set_token ('ERR_MSG', 'CREATE_VAR_RENT : GENERATE_PERIODS Return Status Unexpected Error');
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
9767: , x_return_status => x_return_status
9768: , x_msg_count => x_msg_count
9769: , x_msg_data => x_msg_data
9770: );
9771: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
9772: l_var_rent_err_count := l_var_rent_err_count+1;
9773: --fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
9774: -- fnd_message.set_token ('ERR_MSG', 'CREATE_VAR_RENT : CREATE_BKPT_CONST_ALLOW_ABAT Return Status Error'||x_return_status);
9775: --fnd_msg_pub.ADD;
9772: l_var_rent_err_count := l_var_rent_err_count+1;
9773: --fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
9774: -- fnd_message.set_token ('ERR_MSG', 'CREATE_VAR_RENT : CREATE_BKPT_CONST_ALLOW_ABAT Return Status Error'||x_return_status);
9775: --fnd_msg_pub.ADD;
9776: --RAISE fnd_api.g_exc_error;
9777: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
9778: l_var_rent_err_count := l_var_rent_err_count+1;
9779: -- fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
9780: -- fnd_message.set_token ('ERR_MSG', 'CREATE_VAR_RENT : CREATE_BKPT_CONST_ALLOW_ABAT Return Status Unexpected Error'||x_return_status);
9773: --fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
9774: -- fnd_message.set_token ('ERR_MSG', 'CREATE_VAR_RENT : CREATE_BKPT_CONST_ALLOW_ABAT Return Status Error'||x_return_status);
9775: --fnd_msg_pub.ADD;
9776: --RAISE fnd_api.g_exc_error;
9777: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
9778: l_var_rent_err_count := l_var_rent_err_count+1;
9779: -- fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
9780: -- fnd_message.set_token ('ERR_MSG', 'CREATE_VAR_RENT : CREATE_BKPT_CONST_ALLOW_ABAT Return Status Unexpected Error'||x_return_status);
9781: -- fnd_msg_pub.ADD;
9778: l_var_rent_err_count := l_var_rent_err_count+1;
9779: -- fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
9780: -- fnd_message.set_token ('ERR_MSG', 'CREATE_VAR_RENT : CREATE_BKPT_CONST_ALLOW_ABAT Return Status Unexpected Error'||x_return_status);
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
9792: , 3
9793: );
9794: END IF;
9795:
9796: fnd_msg_pub.count_and_get (p_encoded => fnd_api.g_false
9797: , p_count => x_msg_count
9798: , p_data => x_msg_data
9799: );
9800:
9808: || x_var_rent_num
9809: , 3
9810: );
9811: IF(l_var_rent_err_count = 0) THEN
9812: x_return_status := fnd_api.g_ret_sts_success;
9813: ELSE
9814: x_return_status := fnd_api.g_ret_sts_error;
9815: END IF;
9816:
9810: );
9811: IF(l_var_rent_err_count = 0) THEN
9812: x_return_status := fnd_api.g_ret_sts_success;
9813: ELSE
9814: x_return_status := fnd_api.g_ret_sts_error;
9815: END IF;
9816:
9817: EXCEPTION
9818: WHEN fnd_api.g_exc_error THEN
9814: x_return_status := fnd_api.g_ret_sts_error;
9815: END IF;
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
9815: END IF;
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
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: );
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: );
9825: RAISE;
9823: , p_data => x_msg_data
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
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: );
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: );
9833: RAISE;
9855: -- 20-SEP-2010 vkatta o Created
9856: --------------------------------------------------------------------------------
9857: PROCEDURE generate_periods (
9858: p_api_version IN NUMBER
9859: , p_init_msg_list IN VARCHAR2 DEFAULT fnd_api.g_false
9860: , p_commit IN VARCHAR2 DEFAULT fnd_api.g_false
9861: , p_var_rent_id IN NUMBER
9862: , p_var_rent_num IN VARCHAR2
9863: , p_org_id IN NUMBER
9856: --------------------------------------------------------------------------------
9857: PROCEDURE generate_periods (
9858: p_api_version IN NUMBER
9859: , p_init_msg_list IN VARCHAR2 DEFAULT fnd_api.g_false
9860: , p_commit IN VARCHAR2 DEFAULT fnd_api.g_false
9861: , p_var_rent_id IN NUMBER
9862: , p_var_rent_num IN VARCHAR2
9863: , p_org_id IN NUMBER
9864: , p_generate_periods IN VARCHAR2 DEFAULT 'N'
9942: , pn_var_rent_dates_all pvrd
9943: WHERE pvra.var_rent_id = pvrd.var_rent_id
9944: AND pvra.var_rent_id = p_var_rent_id;
9945: BEGIN
9946: x_return_status := fnd_api.g_ret_sts_success;
9947: /* Check if the variable rent details exist*/
9948: OPEN c_var_rent_exist;
9949:
9950: FETCH c_var_rent_exist
10003: pn_var_rent_pkg.create_var_rent_periods (l_varentid
10004: , l_cumulativevol
10005: );
10006: x_return_status :=
10007: fnd_api.g_ret_sts_success;
10008: ELSIF NVL (l_use_gl_calendar
10009: , 'N'
10010: ) = 'N'
10011: THEN
10012: pn_var_rent_pkg.create_var_rent_periods_nocal (l_varentid
10013: , l_cumulativevol
10014: , l_yearstartdate
10015: );
10016: x_return_status :=fnd_api.g_ret_sts_success;
10017: END IF;
10018: ELSE
10019: x_return_status := fnd_api.g_ret_sts_error;
10020: END IF;
10015: );
10016: x_return_status :=fnd_api.g_ret_sts_success;
10017: END IF;
10018: ELSE
10019: x_return_status := fnd_api.g_ret_sts_error;
10020: END IF;
10021:
10022: IF l_chg_cal_var_rent_id IS NOT NULL
10023: THEN
10081: END IF;
10082: END IF;
10083: END IF; -- Point to be constant
10084: ELSE
10085: x_return_status := fnd_api.g_ret_sts_error;
10086: END IF;
10087: ELSE
10088: x_return_status := fnd_api.g_ret_sts_error;
10089: END IF;
10084: ELSE
10085: x_return_status := fnd_api.g_ret_sts_error;
10086: END IF;
10087: ELSE
10088: x_return_status := fnd_api.g_ret_sts_error;
10089: END IF;
10090:
10091: --Commit the work
10092: IF p_commit = 'Y'
10099: THEN
10100: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
10101: fnd_message.set_token ('ERR_MSG', 'Exception in GENERATE_PERIODS');
10102: fnd_msg_pub.ADD;
10103: x_return_status := fnd_api.g_ret_sts_error;
10104: RAISE;
10105: END generate_periods;
10106:
10107: --------------------------------------------------------------------------------
10125: -- 11-OCT-2010 vkatta o Created
10126: --------------------------------------------------------------------------------
10127: PROCEDURE undo_periods (
10128: p_api_version IN NUMBER
10129: , p_init_msg_list IN VARCHAR2 DEFAULT fnd_api.g_false
10130: , p_commit IN VARCHAR2 DEFAULT fnd_api.g_false
10131: , p_var_rent_id IN NUMBER
10132: , p_var_rent_num IN VARCHAR2
10133: , p_org_id IN NUMBER
10126: --------------------------------------------------------------------------------
10127: PROCEDURE undo_periods (
10128: p_api_version IN NUMBER
10129: , p_init_msg_list IN VARCHAR2 DEFAULT fnd_api.g_false
10130: , p_commit IN VARCHAR2 DEFAULT fnd_api.g_false
10131: , p_var_rent_id IN NUMBER
10132: , p_var_rent_num IN VARCHAR2
10133: , p_org_id IN NUMBER
10134: , p_generate_periods IN VARCHAR2 DEFAULT 'N'
10174: , pn_var_rent_dates_all pvrd
10175: WHERE pvra.var_rent_id = pvrd.var_rent_id
10176: AND pvra.var_rent_id = p_var_rent_id;
10177: BEGIN
10178: x_return_status := fnd_api.g_ret_sts_success;
10179: /* Check if the variable rent details exist*/
10180: OPEN c_var_rent_et;
10181:
10182: FETCH c_var_rent_et
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:
10239: DELETE FROM pn_var_vol_hist_all
10240: WHERE period_id IN (SELECT period_id
10241: FROM pn_var_periods_all
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;
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
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;
10305: END IF; -- l_var_rent_ext
10306:
10307: IF p_commit = 'Y'
10308: THEN
10318: );
10319: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
10320: fnd_message.set_token ('ERR_MSG', 'Exception in UNDO_PERIODS');
10321: fnd_msg_pub.ADD;
10322: x_return_status := fnd_api.g_ret_sts_error;
10323: RAISE;
10324: END undo_periods;
10325:
10326: --------------------------------------------------------------------------------
10348: -- 20-SEP-2010 vkatta o Created
10349: --------------------------------------------------------------------------------
10350: PROCEDURE create_bkpt_const_allow_abat (
10351: p_api_version IN NUMBER
10352: , p_init_msg_list IN VARCHAR2 DEFAULT fnd_api.g_false
10353: , p_commit IN VARCHAR2 DEFAULT fnd_api.g_false
10354: , p_validate_flag IN VARCHAR2 DEFAULT 'Y'
10355: , p_generate_breakpoints IN VARCHAR2 DEFAULT 'Y'
10356: , p_generate_constraints IN VARCHAR2 DEFAULT 'Y'
10349: --------------------------------------------------------------------------------
10350: PROCEDURE create_bkpt_const_allow_abat (
10351: p_api_version IN NUMBER
10352: , p_init_msg_list IN VARCHAR2 DEFAULT fnd_api.g_false
10353: , p_commit IN VARCHAR2 DEFAULT fnd_api.g_false
10354: , p_validate_flag IN VARCHAR2 DEFAULT 'Y'
10355: , p_generate_breakpoints IN VARCHAR2 DEFAULT 'Y'
10356: , p_generate_constraints IN VARCHAR2 DEFAULT 'Y'
10357: , p_variable_rent_lines_tbl IN OUT NOCOPY variable_rent_lines_tbl_type
10363: , x_msg_count OUT NOCOPY NUMBER
10364: , x_msg_data OUT NOCOPY VARCHAR2
10365: )
10366: IS
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 '
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
10394: l_err_count := l_err_count+1;
10395: ELSIF (l_return_status = fnd_api.g_ret_sts_unexp_error) THEN
10396: l_err_count := l_err_count+1;
10397: END IF;
10391: , 3
10392: );
10393: IF (l_return_status = fnd_api.g_ret_sts_error) THEN
10394: l_err_count := l_err_count+1;
10395: ELSIF (l_return_status = fnd_api.g_ret_sts_unexp_error) THEN
10396: l_err_count := l_err_count+1;
10397: END IF;
10398: EXCEPTION
10399: WHEN OTHERS THEN
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;
10419: END IF;
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;
10419: END IF;
10420: EXCEPTION
10421: WHEN OTHERS THEN
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;
10440: END IF;
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;
10440: END IF;
10441: EXCEPTION
10442: WHEN OTHERS THEN
10450: COMMIT;
10451: END IF;
10452:
10453: IF (l_err_count = 0 ) THEN
10454: x_return_status := fnd_api.g_ret_sts_success;
10455: ELSE
10456: x_return_status := fnd_api.g_ret_sts_error;
10457: END IF;
10458:
10452:
10453: IF (l_err_count = 0 ) THEN
10454: x_return_status := fnd_api.g_ret_sts_success;
10455: ELSE
10456: x_return_status := fnd_api.g_ret_sts_error;
10457: END IF;
10458:
10459: EXCEPTION
10460: WHEN OTHERS
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:
10467:
10495: --------------------------------------------------------------------------------
10496: /* Formatted on 2010/12/10 11:31 (Formatter Plus v4.8.8) */
10497: PROCEDURE update_var_rent (
10498: p_api_version IN NUMBER
10499: , p_init_msg_list IN VARCHAR2 DEFAULT fnd_api.g_false
10500: , p_commit IN VARCHAR2 DEFAULT fnd_api.g_false
10501: , p_validate_flag IN VARCHAR2 DEFAULT 'Y'
10502: , p_upd_var_rent_rec IN OUT NOCOPY upd_var_rent_rec_type
10503: , p_var_rent_lines_tbl IN OUT NOCOPY variable_rent_lines_tbl_type
10496: /* Formatted on 2010/12/10 11:31 (Formatter Plus v4.8.8) */
10497: PROCEDURE update_var_rent (
10498: p_api_version IN NUMBER
10499: , p_init_msg_list IN VARCHAR2 DEFAULT fnd_api.g_false
10500: , p_commit IN VARCHAR2 DEFAULT fnd_api.g_false
10501: , p_validate_flag IN VARCHAR2 DEFAULT 'Y'
10502: , p_upd_var_rent_rec IN OUT NOCOPY upd_var_rent_rec_type
10503: , p_var_rent_lines_tbl IN OUT NOCOPY variable_rent_lines_tbl_type
10504: , p_breakpoint_header_tbl IN OUT NOCOPY breakpoint_header_tbl_type
10865: l_date_range_bkdt_count NUMBER;
10866: BEGIN
10867:
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;
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
10877: , p_api_version
10878: , l_api_name
10879: , g_pkg_name)
10880: THEN
10877: , p_api_version
10878: , l_api_name
10879: , g_pkg_name)
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);
10890: INTO l_pn_var_rents_rec;
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:
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)
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
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;
10972: RAISE fnd_api.g_exc_error;
10973: END IF;
10974:
10975: IF p_upd_var_rent_rec.location_id IS NULL
10976: OR p_upd_var_rent_rec.location_id = pn_varen_util.g_pn_miss_num
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)
11037: THEN
11038: fnd_message.set_name ('PN', 'PN_VAR_ABS_USER');
11039: fnd_message.set_token ('ABSTRACTED_BY_USER_ID'
11040: , p_upd_var_rent_rec.abstracted_by_user
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;
11049: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
11050: THEN
11051: fnd_message.set_name ('PN', 'PN_VAR_ABS_USER');
11052: fnd_message.set_token ('ABSTRACTED_BY_USER_ID'
11045: || p_upd_var_rent_rec.abstracted_by_user
11046: , 3);
11047: fnd_msg_pub.ADD;
11048: RAISE fnd_api.g_exc_error;
11049: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
11050: THEN
11051: fnd_message.set_name ('PN', 'PN_VAR_ABS_USER');
11052: fnd_message.set_token ('ABSTRACTED_BY_USER_ID'
11053: , p_upd_var_rent_rec.abstracted_by_user
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;
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
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)
11150: THEN
11151: fnd_message.set_name ('PN', 'PN_VAR_TRM_TEM');
11152: fnd_message.set_token ('TERM_TEMPLATE_ID_NAME'
11153: , p_upd_var_rent_rec.term_template_id
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;
11162: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
11163: THEN
11164: fnd_message.set_name ('PN', 'PN_VAR_TRM_TEM');
11165: fnd_message.set_token ('TERM_TEMPLATE_ID_NAME'
11158: || p_upd_var_rent_rec.term_template_name
11159: , 3);
11160: fnd_msg_pub.ADD;
11161: RAISE fnd_api.g_exc_error;
11162: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
11163: THEN
11164: fnd_message.set_name ('PN', 'PN_VAR_TRM_TEM');
11165: fnd_message.set_token ('TERM_TEMPLATE_ID_NAME'
11166: , p_upd_var_rent_rec.term_template_id
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;
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);
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;
11225: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_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);
11221: || p_upd_var_rent_rec.currency_code
11222: , 3);
11223: fnd_msg_pub.ADD;
11224: RAISE fnd_api.g_exc_error;
11225: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_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;
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);
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)
11326: THEN
11327: fnd_message.set_name ('PN', 'PN_VAR_CUMM_VOL');
11328: fnd_message.set_token ('CUMULATIVE_VOL_CODE_MEANING'
11329: , p_upd_var_rent_rec.cumulative_vol_meaning
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;
11338: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
11339: THEN
11340: fnd_message.set_name ('PN', 'PN_VAR_CUMM_VOL');
11341: fnd_message.set_token ('CUMULATIVE_VOL_CODE_MEANING'
11334: || p_upd_var_rent_rec.cumulative_vol_meaning
11335: , 3);
11336: fnd_msg_pub.ADD;
11337: RAISE fnd_api.g_exc_error;
11338: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
11339: THEN
11340: fnd_message.set_name ('PN', 'PN_VAR_CUMM_VOL');
11341: fnd_message.set_token ('CUMULATIVE_VOL_CODE_MEANING'
11342: , p_upd_var_rent_rec.cumulative_vol_meaning
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;
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
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)
11415: THEN
11416: fnd_message.set_name ('PN', 'PN_VAR_PRO_RUL');
11417: fnd_message.set_token ('PRORATION_RULE_CODE_MEANING'
11418: , p_upd_var_rent_rec.proration_rule_meaning
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;
11427: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
11428: THEN
11429: fnd_message.set_name ('PN', 'PN_VAR_PRO_RUL');
11430: fnd_message.set_token ('PRORATION_RULE_CODE_MEANING'
11423: || p_upd_var_rent_rec.proration_rule_meaning
11424: , 3);
11425: fnd_msg_pub.ADD;
11426: RAISE fnd_api.g_exc_error;
11427: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
11428: THEN
11429: fnd_message.set_name ('PN', 'PN_VAR_PRO_RUL');
11430: fnd_message.set_token ('PRORATION_RULE_CODE_MEANING'
11431: , p_upd_var_rent_rec.proration_rule_meaning
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;
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
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)
11501: THEN
11502: fnd_message.set_name ('PN', 'PN_VAR_INV_ON');
11503: fnd_message.set_token ('INVOICE_ON_CODE_MEANING'
11504: , p_upd_var_rent_rec.invoice_on_meaning
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;
11513: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
11514: THEN
11515: fnd_message.set_name ('PN', 'PN_VAR_INV_ON');
11516: fnd_message.set_token ('INVOICE_ON_CODE_MEANING'
11509: || p_upd_var_rent_rec.invoice_on_meaning
11510: , 3);
11511: fnd_msg_pub.ADD;
11512: RAISE fnd_api.g_exc_error;
11513: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
11514: THEN
11515: fnd_message.set_name ('PN', 'PN_VAR_INV_ON');
11516: fnd_message.set_token ('INVOICE_ON_CODE_MEANING'
11517: , p_upd_var_rent_rec.invoice_on_meaning
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;
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);
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)
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
11594: , p_upd_var_rent_rec.negative_rent_meaning
11595: || '/'
11596: || p_upd_var_rent_rec.negative_rent_code);
11597: fnd_msg_pub.ADD;
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 :'
11595: || '/'
11596: || p_upd_var_rent_rec.negative_rent_code);
11597: fnd_msg_pub.ADD;
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
11607: , p_upd_var_rent_rec.negative_rent_meaning
11608: || '/'
11609: || p_upd_var_rent_rec.negative_rent_code);
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
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)
11678: THEN
11679: fnd_message.set_name ('PN', 'PN_VAR_VOL_TY');
11680: fnd_message.set_token ('VOLUME_TYPE_CODE_MEANING'
11681: , p_upd_var_rent_rec.type_meaning
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;
11690: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
11691: THEN
11692: fnd_message.set_name ('PN', 'PN_VAR_VOL_TY');
11693: fnd_message.set_token ('VOLUME_TYPE_CODE_MEANING'
11686: || p_upd_var_rent_rec.type_meaning
11687: , 3);
11688: fnd_msg_pub.ADD;
11689: RAISE fnd_api.g_exc_error;
11690: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
11691: THEN
11692: fnd_message.set_name ('PN', 'PN_VAR_VOL_TY');
11693: fnd_message.set_token ('VOLUME_TYPE_CODE_MEANING'
11694: , p_upd_var_rent_rec.type_meaning
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;
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);
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)
11766: THEN
11767: fnd_message.set_name ('PN', 'PN_VAR_PUR_CODE');
11768: fnd_message.set_token ('PURPOSE_CODE_MEANING'
11769: , p_upd_var_rent_rec.purpose_code_meaning
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;
11778: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
11779: THEN
11780: fnd_message.set_name ('PN', 'PN_VAR_PUR_CODE');
11781: fnd_message.set_token ('PURPOSE_CODE_MEANING'
11774: || p_upd_var_rent_rec.purpose_code_meaning
11775: , 3);
11776: fnd_msg_pub.ADD;
11777: RAISE fnd_api.g_exc_error;
11778: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
11779: THEN
11780: fnd_message.set_name ('PN', 'PN_VAR_PUR_CODE');
11781: fnd_message.set_token ('PURPOSE_CODE_MEANING'
11782: , p_upd_var_rent_rec.purpose_code_meaning
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;
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
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
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;
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:
12128: IF (p_validate_flag <> 'Y') --and x_return_status = 'S')
12129: THEN
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
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;
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:
12157: INTO l_pn_var_rent_dates_rec;
12158:
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
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)
12304: THEN
12305: fnd_message.set_name ('PN', 'PN_VAR_PERIOD_SET_TYPE');
12306: fnd_message.set_token ('PERIOD_SET_TYPE'
12307: , p_upd_var_rent_rec.gl_period_set_name
12313: || ' , '
12314: || p_upd_var_rent_rec.period_type
12315: , 3);
12316: fnd_msg_pub.ADD;
12317: RAISE fnd_api.g_exc_error;
12318: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
12319: THEN
12320: fnd_message.set_name ('PN', 'PN_VAR_PERIOD_SET_TYPE');
12321: fnd_message.set_token ('PERIOD_SET_TYPE'
12314: || p_upd_var_rent_rec.period_type
12315: , 3);
12316: fnd_msg_pub.ADD;
12317: RAISE fnd_api.g_exc_error;
12318: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
12319: THEN
12320: fnd_message.set_name ('PN', 'PN_VAR_PERIOD_SET_TYPE');
12321: fnd_message.set_token ('PERIOD_SET_TYPE'
12322: , p_upd_var_rent_rec.gl_period_set_name
12328: || ' , '
12329: || p_upd_var_rent_rec.period_type
12330: , 3);
12331: fnd_msg_pub.ADD;
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 :'
12329: || p_upd_var_rent_rec.period_type
12330: , 3);
12331: fnd_msg_pub.ADD;
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
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;
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
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)
12422: THEN
12423: fnd_message.set_name ('PN', 'PN_VAR_VRG_REPT_CODE');
12424: fnd_message.set_token ('VRG_REPTG_FREQ_CODE_MEANING'
12425: , p_upd_var_rent_rec.vrg_reptg_freq_meaning
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;
12434: RAISE fnd_api.g_exc_error;
12435: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
12436: THEN
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;
12434: RAISE fnd_api.g_exc_error;
12435: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
12436: THEN
12437: fnd_message.set_name ('PN', 'PN_VAR_VRG_REPT_CODE');
12438: fnd_message.set_token ('VRG_REPTG_FREQ_CODE_MEANING'
12431: , 3);
12432: x_return_status := fnd_api.g_ret_sts_error;
12433: fnd_msg_pub.ADD;
12434: RAISE fnd_api.g_exc_error;
12435: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
12436: THEN
12437: fnd_message.set_name ('PN', 'PN_VAR_VRG_REPT_CODE');
12438: fnd_message.set_token ('VRG_REPTG_FREQ_CODE_MEANING'
12439: , p_upd_var_rent_rec.vrg_reptg_freq_meaning
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;
12448: RAISE fnd_api.g_exc_unexpected_error;
12449: ELSE
12450: pn_varen_util.pvt_debug
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;
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
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;
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
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)
12522: THEN
12523: fnd_message.set_name ('PN', 'PN_VAR_REPT_CODE');
12524: fnd_message.set_token ('REPTG_FREQ_CODE_MEANING'
12525: , p_upd_var_rent_rec.reptg_freq_meaning
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;
12534: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
12535: THEN
12536: fnd_message.set_name ('PN', 'PN_VAR_REPT_CODE');
12537: fnd_message.set_token ('REPTG_FREQ_CODE_MEANING'
12530: || p_upd_var_rent_rec.reptg_freq_meaning
12531: , 3);
12532: fnd_msg_pub.ADD;
12533: RAISE fnd_api.g_exc_error;
12534: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
12535: THEN
12536: fnd_message.set_name ('PN', 'PN_VAR_REPT_CODE');
12537: fnd_message.set_token ('REPTG_FREQ_CODE_MEANING'
12538: , p_upd_var_rent_rec.reptg_freq_meaning
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;
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
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;
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
12582: THEN
12583: p_upd_var_rent_rec.reptg_day_of_month := NULL;
12584: fnd_message.set_name ('PN', 'PN_VAR_REPTG_DAY_OF_MONTH');
12585: fnd_msg_pub.ADD;
12586: RAISE fnd_api.g_exc_error;
12587: END IF;
12588: END IF;
12589:
12590: IF ( p_upd_var_rent_rec.reptg_days_after IS NULL
12606: THEN
12607: p_upd_var_rent_rec.reptg_days_after := NULL;
12608: fnd_message.set_name ('PN', 'PN_VAR_INVG_DAY_OF_MONTH');
12609: fnd_msg_pub.ADD;
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);
12646: THEN
12647: p_upd_var_rent_rec.invg_day_of_month := NULL;
12648: fnd_message.set_name ('PN', 'PN_VAR_INVG_DAY_OF_MONTH');
12649: fnd_msg_pub.ADD;
12650: RAISE fnd_api.g_exc_error;
12651: END IF;
12652: END IF;
12653:
12654: IF ( p_upd_var_rent_rec.comments IS NULL
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)
12740: THEN
12741: fnd_message.set_name ('PN', 'PN_VAR_INVG_FREQ_CODE');
12742: fnd_message.set_token ('INVG_FREQ_CODE_MEANING'
12743: , p_upd_var_rent_rec.invg_freq_meaning
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;
12752: --x_return_status := fnd_api.g_ret_sts_error;
12753: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
12754: THEN
12755: fnd_message.set_name ('PN', 'PN_VAR_INVG_FREQ_CODE');
12748: || p_upd_var_rent_rec.invg_freq_meaning
12749: , 3);
12750: fnd_msg_pub.ADD;
12751: RAISE fnd_api.g_exc_error;
12752: --x_return_status := fnd_api.g_ret_sts_error;
12753: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
12754: THEN
12755: fnd_message.set_name ('PN', 'PN_VAR_INVG_FREQ_CODE');
12756: fnd_message.set_token ('INVG_FREQ_CODE_MEANING'
12749: , 3);
12750: fnd_msg_pub.ADD;
12751: RAISE fnd_api.g_exc_error;
12752: --x_return_status := fnd_api.g_ret_sts_error;
12753: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
12754: THEN
12755: fnd_message.set_name ('PN', 'PN_VAR_INVG_FREQ_CODE');
12756: fnd_message.set_token ('INVG_FREQ_CODE_MEANING'
12757: , p_upd_var_rent_rec.invg_freq_meaning
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;
12766: RAISE fnd_api.g_exc_unexpected_error;
12767: ELSE
12768: pn_varen_util.pvt_debug
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;
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
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;
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
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;
12786:
12787: -- The below IF statements have been added by Vivek on 07-Dec-2010
12788:
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
12883: , p_var_rent_id => p_upd_var_rent_rec.var_rent_id
12884: , p_var_rent_num => p_upd_var_rent_rec.rent_num
12885: , p_org_id => g_org_id
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
12883: , p_var_rent_id => p_upd_var_rent_rec.var_rent_id
12884: , p_var_rent_num => p_upd_var_rent_rec.rent_num
12885: , p_org_id => g_org_id
12886: , p_generate_periods => 'Y'
12896: || x_msg_count
12897: , 3);
12898:
12899:
12900: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
12901:
12902: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
12903: fnd_message.set_token ('ERR_MSG', 'UPDATE_VAR_RENT : Undo Periods returned error');
12904: fnd_msg_pub.ADD;
12901:
12902: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
12903: fnd_message.set_token ('ERR_MSG', 'UPDATE_VAR_RENT : Undo Periods returned error');
12904: fnd_msg_pub.ADD;
12905: RAISE fnd_api.g_exc_error;
12906: ELSIF(x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
12907: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
12908: fnd_message.set_token ('ERR_MSG', 'UPDATE_VAR_RENT : Undo Periods returned error');
12909: fnd_msg_pub.ADD;
12902: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
12903: fnd_message.set_token ('ERR_MSG', 'UPDATE_VAR_RENT : Undo Periods returned error');
12904: fnd_msg_pub.ADD;
12905: RAISE fnd_api.g_exc_error;
12906: ELSIF(x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
12907: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
12908: fnd_message.set_token ('ERR_MSG', 'UPDATE_VAR_RENT : Undo Periods returned error');
12909: fnd_msg_pub.ADD;
12910: RAISE fnd_api.g_exc_unexpected_error;
12906: ELSIF(x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
12907: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
12908: fnd_message.set_token ('ERR_MSG', 'UPDATE_VAR_RENT : Undo Periods returned error');
12909: fnd_msg_pub.ADD;
12910: RAISE fnd_api.g_exc_unexpected_error;
12911: END IF;
12912: END IF;
12913:
12914: IF ( p_upd_var_rent_rec.audit_day_of_month IS NULL
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
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;
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')
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:
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;
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');
13242: fnd_message.set_token ('ERR_MSG', 'PN_VAREN_PVT: update_varen_dates: Error');
13243: fnd_msg_pub.ADD;
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');
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;
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:
13247: END IF; -- p_validate_flag
13248: --END IF; -- c_pn_var_rent_dates
13266: CLOSE c_pn_var_line_defaults;
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:
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
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;
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;
13332:
13333: --------------------------------------------------------------------------------
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)
13363: THEN
13364: --
13365: fnd_message.set_name ('PN', 'PN_VAR_LIN_SAL_CHL');
13366: --x_return_status :=fnd_api.g_ret_sts_error;
13362: IF (x_return_status = fnd_api.g_ret_sts_error)
13363: THEN
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'
13373: , 3);
13374: fnd_msg_pub.ADD;
13375: RAISE fnd_api.g_exc_error;
13376: --
13377: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
13378: THEN
13379: --
13373: , 3);
13374: fnd_msg_pub.ADD;
13375: RAISE fnd_api.g_exc_error;
13376: --
13377: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
13378: THEN
13379: --
13380: fnd_message.set_name ('PN', 'PN_VAR_LIN_SAL_CHL');
13381: --x_return_status := fnd_api.g_ret_sts_unexp_error;
13377: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
13378: THEN
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'
13388: , 3);
13389: fnd_msg_pub.ADD;
13390: RAISE fnd_api.g_exc_unexpected_error;
13391: --
13392: ELSE
13393: x_return_status := fnd_api.g_ret_sts_success;
13394: pn_varen_util.pvt_debug
13389: fnd_msg_pub.ADD;
13390: RAISE fnd_api.g_exc_unexpected_error;
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);
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)
13445: THEN
13446: --
13447: fnd_message.set_name ('PN', 'PN_VAR_LIN_ITM_CAY');
13448: x_return_status := fnd_api.g_ret_sts_error;
13444: IF (x_return_status = fnd_api.g_ret_sts_error)
13445: THEN
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
13455: , 3);
13456: fnd_msg_pub.ADD;
13457: RAISE fnd_api.g_exc_error;
13458: --
13459: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
13460: THEN
13461: --
13455: , 3);
13456: fnd_msg_pub.ADD;
13457: RAISE fnd_api.g_exc_error;
13458: --
13459: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
13460: THEN
13461: --
13462: fnd_message.set_name ('PN', 'PN_VAR_LIN_ITM_CAY');
13463: --x_return_status :=fnd_api.g_ret_sts_unexp_error;
13459: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
13460: THEN
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);
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;
13474: --
13475:
13476: --RAISE fnd_api.g_exc_unexpected_error;
13477: ELSE
13472: fnd_msg_pub.ADD;
13473: RAISE fnd_api.g_exc_error;
13474: --
13475:
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'
13474: --
13475:
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;
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 :'
13485: || p_var_rent_lines_tbl (ul).item_category_code
13486: , 3);
13687:
13688:
13689: IF l_return_msg = 'VALID'
13690: THEN
13691: x_return_status := fnd_api.g_ret_sts_success;
13692: ELSE
13693: x_return_status := fnd_api.g_ret_sts_error;
13694: END IF;
13695: END IF;
13689: IF l_return_msg = 'VALID'
13690: THEN
13691: x_return_status := fnd_api.g_ret_sts_success;
13692: ELSE
13693: x_return_status := fnd_api.g_ret_sts_error;
13694: END IF;
13695: END IF;
13696: */
13697:
13735: , x_return_msg => l_return_msg
13736: , x_return_status => x_return_status
13737: );
13738:
13739: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
13740: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
13741: fnd_message.set_token ('ERR_MSG', 'UPDATE_VAR_RENT : PN_VAR_RENTS Descriptive Fields Error '||l_return_msg);
13742: fnd_msg_pub.ADD;
13743: RAISE fnd_api.g_exc_error;
13739: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
13740: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
13741: fnd_message.set_token ('ERR_MSG', 'UPDATE_VAR_RENT : PN_VAR_RENTS Descriptive Fields Error '||l_return_msg);
13742: fnd_msg_pub.ADD;
13743: RAISE fnd_api.g_exc_error;
13744: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
13745: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
13746: fnd_message.set_token ('ERR_MSG', 'UPDATE_VAR_RENT : PN_VAR_RENTS Descriptive Fields Error'||l_return_msg);
13747: fnd_msg_pub.ADD;
13740: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
13741: fnd_message.set_token ('ERR_MSG', 'UPDATE_VAR_RENT : PN_VAR_RENTS Descriptive Fields Error '||l_return_msg);
13742: fnd_msg_pub.ADD;
13743: RAISE fnd_api.g_exc_error;
13744: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
13745: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
13746: fnd_message.set_token ('ERR_MSG', 'UPDATE_VAR_RENT : PN_VAR_RENTS Descriptive Fields Error'||l_return_msg);
13747: fnd_msg_pub.ADD;
13748: RAISE fnd_api.g_exc_unexpected_error;
13744: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
13745: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
13746: fnd_message.set_token ('ERR_MSG', 'UPDATE_VAR_RENT : PN_VAR_RENTS Descriptive Fields Error'||l_return_msg);
13747: fnd_msg_pub.ADD;
13748: RAISE fnd_api.g_exc_unexpected_error;
13749: END IF;
13750: END IF;
13751: END IF; -- End of attributes valitions in create var rent
13752:
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
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;
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
14062:
14063: --pn_varen_util.pvt_debug
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
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;
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
14085: END IF;
14086: --END LOOP;
14104: CLOSE c_pn_var_bkhd_defaults;
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
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)
14185: THEN
14186: --
14187: fnd_message.set_name ('PN', 'PN_VAR_BKHD_BRK_TY');
14188: --x_return_status := fnd_api.g_ret_sts_error;
14184: IF (x_return_status = fnd_api.g_ret_sts_error)
14185: THEN
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'
14195: , 3);
14196: fnd_msg_pub.ADD;
14197: RAISE fnd_api.g_exc_error;
14198: --
14199: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
14200: THEN
14201: --
14195: , 3);
14196: fnd_msg_pub.ADD;
14197: RAISE fnd_api.g_exc_error;
14198: --
14199: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
14200: THEN
14201: --
14202: fnd_message.set_name ('PN', 'PN_VAR_BKHD_BRK_TY');
14203: --x_return_status := fnd_api.g_ret_sts_unexp_error;
14199: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
14200: THEN
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'
14210: , 3);
14211: fnd_msg_pub.ADD;
14212: RAISE fnd_api.g_exc_unexpected_error;
14213: --
14214: ELSE
14215: x_return_status := fnd_api.g_ret_sts_success;
14216: pn_varen_util.pvt_debug
14211: fnd_msg_pub.ADD;
14212: RAISE fnd_api.g_exc_unexpected_error;
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);
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)
14275: THEN
14276: --
14277: fnd_message.set_name ('PN', 'PN_VAR_BKHD_BKPT_TY');
14278: x_return_status := fnd_api.g_ret_sts_error;
14274: IF (x_return_status = fnd_api.g_ret_sts_error)
14275: THEN
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'
14285: , 3);
14286: fnd_msg_pub.ADD;
14287: RAISE fnd_api.g_exc_error;
14288: --
14289: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
14290: THEN
14291: --
14285: , 3);
14286: fnd_msg_pub.ADD;
14287: RAISE fnd_api.g_exc_error;
14288: --
14289: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
14290: THEN
14291: --
14292: fnd_message.set_name ('PN', 'PN_VAR_BKHD_BKPT_TY');
14293: --x_return_status := fnd_api.g_ret_sts_unexp_error;
14289: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
14290: THEN
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'
14300: , 3);
14301: fnd_msg_pub.ADD;
14302: RAISE fnd_api.g_exc_unexpected_error;
14303: --
14304: ELSE
14305: x_return_status := fnd_api.g_ret_sts_success;
14306: pn_varen_util.pvt_debug
14301: fnd_msg_pub.ADD;
14302: RAISE fnd_api.g_exc_unexpected_error;
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);
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;
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'
14523: , x_return_status => l_return_status);
14524:
14525: IF l_return_msg = 'VALID'
14526: THEN
14527: x_return_status := fnd_api.g_ret_sts_success;
14528: ELSE
14529: x_return_status := fnd_api.g_ret_sts_error;
14530: END IF;
14531: END IF;
14525: IF l_return_msg = 'VALID'
14526: THEN
14527: x_return_status := fnd_api.g_ret_sts_success;
14528: ELSE
14529: x_return_status := fnd_api.g_ret_sts_error;
14530: END IF;
14531: END IF;
14532: */
14533:
14572: , x_return_msg => l_return_msg
14573: , x_return_status => x_return_status
14574: );
14575:
14576: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
14577: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
14578: fnd_message.set_token ('ERR_MSG', 'UPDATE_VAR_RENT : PN_VAR_BKPTS_HEAD Descriptive Fields Error '||l_return_msg);
14579: fnd_msg_pub.ADD;
14580: RAISE fnd_api.g_exc_error;
14576: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
14577: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
14578: fnd_message.set_token ('ERR_MSG', 'UPDATE_VAR_RENT : PN_VAR_BKPTS_HEAD Descriptive Fields Error '||l_return_msg);
14579: fnd_msg_pub.ADD;
14580: RAISE fnd_api.g_exc_error;
14581: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
14582: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
14583: fnd_message.set_token ('ERR_MSG','UPDATE_VAR_RENT : PN_VAR_BKPTS_HEAD Descriptive Fields Error '|| l_return_msg);
14584: fnd_msg_pub.ADD;
14577: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
14578: fnd_message.set_token ('ERR_MSG', 'UPDATE_VAR_RENT : PN_VAR_BKPTS_HEAD Descriptive Fields Error '||l_return_msg);
14579: fnd_msg_pub.ADD;
14580: RAISE fnd_api.g_exc_error;
14581: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
14582: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
14583: fnd_message.set_token ('ERR_MSG','UPDATE_VAR_RENT : PN_VAR_BKPTS_HEAD Descriptive Fields Error '|| l_return_msg);
14584: fnd_msg_pub.ADD;
14585: RAISE fnd_api.g_exc_unexpected_error;
14581: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
14582: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
14583: fnd_message.set_token ('ERR_MSG','UPDATE_VAR_RENT : PN_VAR_BKPTS_HEAD Descriptive Fields Error '|| l_return_msg);
14584: fnd_msg_pub.ADD;
14585: RAISE fnd_api.g_exc_unexpected_error;
14586: END IF;
14587: END IF;
14588: END IF; -- End of attributes validations in PN_VAR_BKPTS_HEAD
14589:
14615: --fnd_message.set_name('PN','PN_VAR_BKPT_OVERLAP');
14616: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
14617: fnd_message.set_token('ERR_MSG', 'Please review each breakpoint header dates and remove any overlap with the variable rent dates.');
14618: fnd_msg_pub.ADD;
14619: RAISE fnd_api.g_exc_error;
14620: END IF;
14621:
14622: l_date_range_count := 0;
14623: BEGIN
14641: --fnd_message.set_name('PN','PN_VAR_BKPT_OVERLAP');
14642: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
14643: fnd_message.set_token('ERR_MSG', 'Please review each breakpoint component and remove any overlap in the breakpoint Header dates.');
14644: fnd_msg_pub.ADD;
14645: RAISE fnd_api.g_exc_error;
14646: END IF;
14647:
14648: -- Below if block has been added by Vivek on 09-DEC-2010
14649: IF ( x_return_status = 'S'
14655: THEN
14656: insert_breakpoint_headers
14657: (p_breakpoint_header_rec_type => p_breakpoint_header_tbl (ubk)
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;
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;
14667: END IF;
14668:
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
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;
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:
14697: END IF;
14698: END IF; --l_bkpt_exist = 0
14720: CLOSE c_pn_var_bkdt_defaults;
14721:
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: -- );
14980: , x_return_status => l_return_status);
14981:
14982: IF l_return_msg = 'VALID'
14983: THEN
14984: x_return_status := fnd_api.g_ret_sts_success;
14985: ELSE
14986: x_return_status := fnd_api.g_ret_sts_error;
14987: END IF;
14988: END IF;
14982: IF l_return_msg = 'VALID'
14983: THEN
14984: x_return_status := fnd_api.g_ret_sts_success;
14985: ELSE
14986: x_return_status := fnd_api.g_ret_sts_error;
14987: END IF;
14988: END IF;
14989: */
14990:
15029: , x_return_msg => l_return_msg
15030: , x_return_status => x_return_status
15031: );
15032:
15033: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
15034: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
15035: fnd_message.set_token ('ERR_MSG', 'UPDATE_VAR_RENT : PN_VAR_BKPTS_DETAIL Descriptive Fields Error '||l_return_msg);
15036: fnd_msg_pub.ADD;
15037: RAISE fnd_api.g_exc_error;
15033: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
15034: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
15035: fnd_message.set_token ('ERR_MSG', 'UPDATE_VAR_RENT : PN_VAR_BKPTS_DETAIL Descriptive Fields Error '||l_return_msg);
15036: fnd_msg_pub.ADD;
15037: RAISE fnd_api.g_exc_error;
15038: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
15039: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
15040: fnd_message.set_token ('ERR_MSG', 'UPDATE_VAR_RENT: PN_VAR_BKPTS_DETAIL Descriptive Fields Error '||l_return_msg);
15041: fnd_msg_pub.ADD;
15034: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
15035: fnd_message.set_token ('ERR_MSG', 'UPDATE_VAR_RENT : PN_VAR_BKPTS_DETAIL Descriptive Fields Error '||l_return_msg);
15036: fnd_msg_pub.ADD;
15037: RAISE fnd_api.g_exc_error;
15038: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
15039: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
15040: fnd_message.set_token ('ERR_MSG', 'UPDATE_VAR_RENT: PN_VAR_BKPTS_DETAIL Descriptive Fields Error '||l_return_msg);
15041: fnd_msg_pub.ADD;
15042: RAISE fnd_api.g_exc_unexpected_error;
15038: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
15039: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
15040: fnd_message.set_token ('ERR_MSG', 'UPDATE_VAR_RENT: PN_VAR_BKPTS_DETAIL Descriptive Fields Error '||l_return_msg);
15041: fnd_msg_pub.ADD;
15042: RAISE fnd_api.g_exc_unexpected_error;
15043: END IF;
15044: END IF;
15045: END IF; -- End of attributes validations in PN_VAR_BKPTS_HEAD
15046:
15060: --fnd_message.set_name('PN','PN_VAR_BKPT_OVERLAP');
15061: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
15062: fnd_message.set_token('ERR_MSG', 'Please review each breakpoint header dates and remove any overlap with the variable rent date.');
15063: fnd_msg_pub.ADD;
15064: RAISE fnd_api.g_exc_error;
15065: END IF;
15066: l_date_range_bkdt_count :=0;
15067: BEGIN
15068: SELECT COUNT(1)
15081: --fnd_message.set_name('PN','PN_VAR_BKPT_OVERLAP');
15082: fnd_message.set_name('PN','PN_OTHERS_EXCEPTION');
15083: fnd_message.set_token('ERR_MSG', 'Please review each breakpoint component and remove any overlap in the breakpoint Details dates.');
15084: fnd_msg_pub.ADD;
15085: RAISE fnd_api.g_exc_error;
15086: END IF;
15087: IF x_return_status = 'S'
15088: THEN
15089: -- call Breakpoint Details update procedure
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
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;
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
15112: insert_breakpoint_details
15113: (p_breakpoint_details_rec_type => p_breakpoint_details_tbl (ubd)
15111: ELSE
15112: insert_breakpoint_details
15113: (p_breakpoint_details_rec_type => p_breakpoint_details_tbl (ubd)
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;
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;
15123: END IF;
15124: --END LOOP; Commented by Vivek on 09-DEC-2010
15141: CLOSE c_pn_var_constraints;
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
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
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
15363: , 3);
15364:
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);
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;
15392: --x_return_status := fnd_api.g_ret_sts_error;
15393: RAISE fnd_api.g_exc_error;
15394: --
15395:
15396: --l_const_val :=
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;
15392: --x_return_status := fnd_api.g_ret_sts_error;
15393: RAISE fnd_api.g_exc_error;
15394: --
15395:
15396: --l_const_val :=
15397: -- 'N';
15398: ELSIF (p_constraints_tbl (uc).constr_start_date > l_var_commencement_date)
15399: THEN
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'
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;
15414: RAISE fnd_api.g_exc_error;
15415: --
15416:
15417: --l_const_val :=
15418: -- 'N';
15420: ELSE
15421: --
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'
15458: , 3);
15459:
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);
15472: OR p_constraints_tbl (uc).constr_end_date < l_var_commencement_date)
15473: THEN
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.'
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;
15488: RAISE fnd_api.g_exc_error;
15489: --
15490:
15491: --l_const_val :=
15492: -- 'N';
15493: ELSIF (p_constraints_tbl (uc).constr_end_date < l_var_termination_date)
15494: THEN
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.'
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;
15509: RAISE fnd_api.g_exc_error;
15510: --
15511:
15512: --l_const_val :=
15513: -- 'N';
15515: ELSE
15516: --
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'
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)
15595: THEN
15596: --
15597: fnd_message.set_name ('PN', 'PN_VAR_CONSTR_TY');
15598: --x_return_status := fnd_api.g_ret_sts_error;
15594: IF (x_return_status = fnd_api.g_ret_sts_error)
15595: THEN
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'
15605: , 3);
15606: fnd_msg_pub.ADD;
15607: RAISE fnd_api.g_exc_error;
15608: --
15609: --l_const_val :=
15610: -- 'N';
15611: --
15608: --
15609: --l_const_val :=
15610: -- 'N';
15611: --
15612: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
15613: THEN
15614: --
15615: fnd_message.set_name ('PN', 'PN_VAR_CONSTR_TY');
15616: --x_return_status := fnd_api.g_ret_sts_unexp_error;
15612: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error)
15613: THEN
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'
15623: , 3);
15624: fnd_msg_pub.ADD;
15625: RAISE fnd_api.g_exc_unexpected_error;
15626: --
15627:
15628: --
15629: -- l_const_val :=
15629: -- l_const_val :=
15630: -- 'N';
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);
15834: , x_return_status => l_return_status);
15835:
15836: IF l_return_msg = 'VALID'
15837: THEN
15838: x_return_status := fnd_api.g_ret_sts_success;
15839: ELSE
15840: x_return_status := fnd_api.g_ret_sts_error;
15841: END IF;
15842: END IF;
15836: IF l_return_msg = 'VALID'
15837: THEN
15838: x_return_status := fnd_api.g_ret_sts_success;
15839: ELSE
15840: x_return_status := fnd_api.g_ret_sts_error;
15841: END IF;
15842: END IF;
15843: */
15844:
15883: , x_return_msg => l_return_msg
15884: , x_return_status => x_return_status
15885: );
15886:
15887: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
15888: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
15889: fnd_message.set_token ('ERR_MSG', 'UPDATE_VAR_RENT: PN_VAR_CONSTRAINTS Descriptive Fields Error '||l_return_msg);
15890: fnd_msg_pub.ADD;
15891: RAISE fnd_api.g_exc_error;
15887: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
15888: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
15889: fnd_message.set_token ('ERR_MSG', 'UPDATE_VAR_RENT: PN_VAR_CONSTRAINTS Descriptive Fields Error '||l_return_msg);
15890: fnd_msg_pub.ADD;
15891: RAISE fnd_api.g_exc_error;
15892: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
15893: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
15894: fnd_message.set_token ('ERR_MSG', 'UPDATE_VAR_RENT : PN_VAR_CONSTRAINTS Descriptive Fields Error '||l_return_msg);
15895: fnd_msg_pub.ADD;
15888: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
15889: fnd_message.set_token ('ERR_MSG', 'UPDATE_VAR_RENT: PN_VAR_CONSTRAINTS Descriptive Fields Error '||l_return_msg);
15890: fnd_msg_pub.ADD;
15891: RAISE fnd_api.g_exc_error;
15892: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
15893: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
15894: fnd_message.set_token ('ERR_MSG', 'UPDATE_VAR_RENT : PN_VAR_CONSTRAINTS Descriptive Fields Error '||l_return_msg);
15895: fnd_msg_pub.ADD;
15896: RAISE fnd_api.g_exc_unexpected_error;
15892: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
15893: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
15894: fnd_message.set_token ('ERR_MSG', 'UPDATE_VAR_RENT : PN_VAR_CONSTRAINTS Descriptive Fields Error '||l_return_msg);
15895: fnd_msg_pub.ADD;
15896: RAISE fnd_api.g_exc_unexpected_error;
15897: END IF;
15898: END IF;
15899: END IF; -- End of attributes valitions in pn_var_constraints
15900:
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
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;
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
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;
15973: --x_return_status := fnd_api.g_ret_sts_error;
15974: END IF; -- l_constr_count >=1
15975: --p_constraints_tbl (uc).constr_default_id := l_pn_var_constraints.constr_default_id;
15976: ELSE
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;
15973: --x_return_status := fnd_api.g_ret_sts_error;
15974: END IF; -- l_constr_count >=1
15975: --p_constraints_tbl (uc).constr_default_id := l_pn_var_constraints.constr_default_id;
15976: ELSE
15977: IF ln_const_count = 0
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
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;
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
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.'
16027: CLOSE c_pn_var_abat_defaults;
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
16064: GROUP BY var_rent_id
16065: , commencement_date
16066: , termination_date;
16067:
16068: x_return_status := fnd_api.g_ret_sts_success;
16069: EXCEPTION
16070: WHEN OTHERS
16071: THEN
16072: pn_varen_util.pvt_debug
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';
16078: END;
16079:
16080: IF ( p_allow_abat_tbl (ua).var_rent_id IS NULL
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)
16111: THEN
16112: fnd_message.set_name ('PN', 'PN_VAR_ALL_ABA_TY');
16113: --x_return_status := fnd_api.g_ret_sts_error;
16114: pn_varen_util.pvt_debug
16109:
16110: IF (x_return_status = fnd_api.g_ret_sts_error)
16111: THEN
16112: fnd_message.set_name ('PN', 'PN_VAR_ALL_ABA_TY');
16113: --x_return_status := fnd_api.g_ret_sts_error;
16114: pn_varen_util.pvt_debug
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);
16120: , 3);
16121: --
16122: l_upd_allow_abat_val := 'N';
16123: fnd_msg_pub.ADD;
16124: RAISE fnd_api.g_exc_error;
16125: --
16126:
16127: --
16128: ELSIF (l_return_status = fnd_api.g_ret_sts_unexp_error)
16124: RAISE fnd_api.g_exc_error;
16125: --
16126:
16127: --
16128: ELSIF (l_return_status = fnd_api.g_ret_sts_unexp_error)
16129: THEN
16130: --x_return_status :=fnd_api.g_ret_sts_unexp_error;
16131: pn_varen_util.pvt_debug
16132: ( 'PN_VAR_RENT_PVT: Update_Var_Rent: Allowance and Abatements Meaning Un-Expected Error :'
16126:
16127: --
16128: ELSIF (l_return_status = fnd_api.g_ret_sts_unexp_error)
16129: THEN
16130: --x_return_status :=fnd_api.g_ret_sts_unexp_error;
16131: pn_varen_util.pvt_debug
16132: ( 'PN_VAR_RENT_PVT: Update_Var_Rent: Allowance and Abatements Meaning Un-Expected Error :'
16133: || p_allow_abat_tbl (ua).abat_type_meaning
16134: , 3);
16135: pn_varen_util.pvt_debug
16136: ('PN_VAR_RENT_PVT: Update_Var_Rent: Allowance and Abatements Lookup Validation Unexpected Error'
16137: , 3);
16138: l_upd_allow_abat_val := 'N';
16139: RAISE fnd_api.g_exc_unexpected_error;
16140: --
16141: fnd_message.set_name ('PN', 'PN_VAR_ALL_ABA_TY');
16142: fnd_msg_pub.ADD;
16143: --
16145: --
16146:
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);
16177: -- Allowance and Abatement Start date should be always greater than end date
16178: -----------------------------------------------------------------------------
16179: IF (p_allow_abat_tbl (ua).abat_start_date < p_allow_abat_tbl (ua).abat_end_date)
16180: THEN
16181: x_return_status := fnd_api.g_ret_sts_success;
16182: pn_varen_util.pvt_debug
16183: ( 'PN_VAR_RENT_PVT: Update_Var_Rent: Allowance and Abatement Start date is less than Allowance and Abatement end date: '
16184: || p_allow_abat_tbl (ua).abat_start_date
16185: || ' and '
16187: , 3);
16188: ELSE
16189: --
16190: l_upd_allow_abat_val := 'N';
16191: --x_return_status := fnd_api.g_ret_sts_error;
16192: --
16193: fnd_message.set_name ('PN', 'PN_ST_DT_INV_MSG');
16194: pn_varen_util.pvt_debug
16195: ( 'PN_VAR_RENT_PVT: Update_Var_Rent: Allowances and abatements must start on the same date as the invoice period.Please change the allowance or abatement start date. '
16197: || ' and '
16198: || p_allow_abat_tbl (ua).abat_end_date
16199: , 3);
16200: fnd_msg_pub.ADD;
16201: RAISE fnd_api.g_exc_error;
16202: --
16203:
16204: --
16205: END IF;
16228: , 3);
16229:
16230: IF (p_allow_abat_tbl (ua).abat_start_date = l_var_commencement_date)
16231: THEN
16232: x_return_status := fnd_api.g_ret_sts_success;
16233: pn_varen_util.pvt_debug
16234: ( 'PN_VAR_RENT_PVT: Update_Var_Rent: Allowance and Abatement Start date Validation Success :'
16235: || p_allow_abat_tbl (ua).abat_start_date
16236: , 3);
16242: OR p_allow_abat_tbl (ua).abat_start_date > l_var_termination_date)
16243: THEN
16244: --
16245:
16246: --x_return_status := fnd_api.g_ret_sts_error;
16247: l_upd_allow_abat_val := 'N';
16248: fnd_message.set_name ('PN', 'PN_VAR_ABT_STRDT_VAL_MSG');
16249: fnd_msg_pub.ADD;
16250: pn_varen_util.pvt_debug
16251: ( 'PN_VAR_RENT_PVT: Update_Var_Rent: Allowance and Abatement Start date Validation Error : '
16252: || p_allow_abat_tbl (ua).abat_start_date
16253: || 'Please ensure that the start date for a rolling allowance or fixed abatement is within the variable rent agreement dates.'
16254: , 3);
16255: RAISE fnd_api.g_exc_error;
16256: --
16257:
16258: --
16259: ELSIF (p_allow_abat_tbl (ua).abat_start_date > p_allow_abat_tbl (ua).abat_end_date)
16268: || 'Please ensure that the start date for a rolling allowance or fixed abatement is less than the end date.'
16269: , 3);
16270: --
16271: l_upd_allow_abat_val := 'N';
16272: --x_return_status := fnd_api.g_ret_sts_error;
16273: fnd_msg_pub.ADD;
16274: RAISE fnd_api.g_exc_error;
16275: --
16276:
16270: --
16271: l_upd_allow_abat_val := 'N';
16272: --x_return_status := fnd_api.g_ret_sts_error;
16273: fnd_msg_pub.ADD;
16274: RAISE fnd_api.g_exc_error;
16275: --
16276:
16277: --
16278:
16281: ELSE
16282: --
16283: p_allow_abat_tbl (ua).abat_start_date := l_var_commencement_date;
16284: --
16285: x_return_status := fnd_api.g_ret_sts_success;
16286: pn_varen_util.pvt_debug
16287: ( 'PN_VAR_RENT_PVT: Update_Var_Rent: Allowance and Abatement Start date is null then value is Defaulted Variable Rent Commencement Date : '
16288: || l_var_commencement_date
16289: || ' Success'
16312:
16313: IF (p_allow_abat_tbl (ua).abat_end_date = l_var_termination_date)
16314: THEN
16315: --
16316: x_return_status := fnd_api.g_ret_sts_success;
16317: --
16318: pn_varen_util.pvt_debug
16319: ( 'PN_VAR_RENT_PVT: Update_Var_Rent: Allowance and Abatement end date Validation Success :'
16320: || p_allow_abat_tbl (ua).abat_end_date
16323: ELSIF ( p_allow_abat_tbl (ua).abat_end_date > l_var_termination_date
16324: OR p_allow_abat_tbl (ua).abat_end_date < l_var_commencement_date)
16325: THEN
16326: --
16327: x_return_status := fnd_api.g_ret_sts_error;
16328: --
16329: pn_varen_util.pvt_debug
16330: ( 'PN_VAR_RENT_PVT: Update_Var_Rent: Allowance and Abatement end Date Validation Error : '
16331: || p_allow_abat_tbl (ua).abat_end_date
16334: l_upd_allow_abat_val := 'N';
16335: fnd_message.set_name ('PN', 'PN_VAR_ABT_END_MSG');
16336: fnd_msg_pub.ADD;
16337: --
16338: RAISE fnd_api.g_exc_error;
16339: --
16340:
16341: --
16342: ELSIF (p_allow_abat_tbl (ua).abat_start_date > p_allow_abat_tbl (ua).abat_end_date)
16341: --
16342: ELSIF (p_allow_abat_tbl (ua).abat_start_date > p_allow_abat_tbl (ua).abat_end_date)
16343: THEN
16344: --
16345: --x_return_status := fnd_api.g_ret_sts_error;
16346: pn_varen_util.pvt_debug
16347: ( 'PN_VAR_RENT_PVT: Update_Var_Rent: Allowance and Abatement end Date Validation Error : '
16348: || p_allow_abat_tbl (ua).abat_end_date
16349: || 'Please ensure that the start date for a rolling allowance or fixed abatement is less than the end date.'
16350: , 3);
16351: l_upd_allow_abat_val := 'N';
16352: fnd_message.set_name ('PN', 'PN_STR_GRT_END_DT');
16353: fnd_msg_pub.ADD;
16354: RAISE fnd_api.g_exc_error;
16355: END IF;
16356: ELSE
16357: --
16358: p_allow_abat_tbl (ua).abat_end_date := l_var_termination_date;
16356: ELSE
16357: --
16358: p_allow_abat_tbl (ua).abat_end_date := l_var_termination_date;
16359: --
16360: x_return_status := fnd_api.g_ret_sts_success;
16361: --
16362: pn_varen_util.pvt_debug
16363: ( 'PN_VAR_RENT_PVT: Update_Var_Rent: Allowance and Abatement end Date is null then value is defaulted Termination Date : '
16364: || l_var_termination_date
16543: , x_return_status => l_return_status);
16544:
16545: IF l_return_msg = 'VALID'
16546: THEN
16547: x_return_status := fnd_api.g_ret_sts_success;
16548: ELSE
16549: x_return_status := fnd_api.g_ret_sts_error;
16550: l_upd_allow_abat_val := 'N';
16551: END IF;
16545: IF l_return_msg = 'VALID'
16546: THEN
16547: x_return_status := fnd_api.g_ret_sts_success;
16548: ELSE
16549: x_return_status := fnd_api.g_ret_sts_error;
16550: l_upd_allow_abat_val := 'N';
16551: END IF;
16552: END IF;
16553: */
16591: , x_return_msg => l_return_msg
16592: , x_return_status => x_return_status
16593: );
16594:
16595: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
16596: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
16597: fnd_message.set_token ('ERR_MSG', 'Var Rent : PN_ALLOW_ABATE Descriptive Fields Error');
16598: fnd_msg_pub.ADD;
16599: RAISE fnd_api.g_exc_error;
16595: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
16596: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
16597: fnd_message.set_token ('ERR_MSG', 'Var Rent : PN_ALLOW_ABATE Descriptive Fields Error');
16598: fnd_msg_pub.ADD;
16599: RAISE fnd_api.g_exc_error;
16600: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
16601: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
16602: fnd_message.set_token ('ERR_MSG', 'Var Rent : PN_ALLOW_ABATE Descriptive Fields Error');
16603: fnd_msg_pub.ADD;
16596: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
16597: fnd_message.set_token ('ERR_MSG', 'Var Rent : PN_ALLOW_ABATE Descriptive Fields Error');
16598: fnd_msg_pub.ADD;
16599: RAISE fnd_api.g_exc_error;
16600: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
16601: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
16602: fnd_message.set_token ('ERR_MSG', 'Var Rent : PN_ALLOW_ABATE Descriptive Fields Error');
16603: fnd_msg_pub.ADD;
16604: RAISE fnd_api.g_exc_unexpected_error;
16600: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
16601: fnd_message.set_name ('PN', 'PN_OTHERS_EXCEPTION');
16602: fnd_message.set_token ('ERR_MSG', 'Var Rent : PN_ALLOW_ABATE Descriptive Fields Error');
16603: fnd_msg_pub.ADD;
16604: RAISE fnd_api.g_exc_unexpected_error;
16605: END IF;
16606: END IF;
16607: END IF; -- End of attributes valitions in update var Allow and Abate
16608: */
16622: , 3);
16623:
16624: IF l_upd_allow_abat_val = 'N'
16625: THEN
16626: x_return_status := fnd_api.g_ret_sts_error;
16627: END IF;
16628:
16629: -------------------------------------------------------------------
16630: -- End of Allowances and Abatements validation and initialization
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);
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;
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';
16652: END IF;
16653:
16662: ELSE
16663: ----------------------------------------------------
16664: -- Update of existing Allowance and Abatement record
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);
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
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;
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
16685: END IF; --p_allow_abat_tbl (ua).abatement_id IS NULL
16686: --END LOOP;
16689: END LOOP;
16690: END IF; -- p_allow_abat_tbl.COUNT>0
16691:
16692: -- c_pn_var_abat_defaults
16693: IF p_commit = fnd_api.g_true
16694: THEN
16695: COMMIT;
16696: END IF;
16697: --x_return_status := x_return_status;
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: || '-'
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;
16717: RAISE;
16718:
16719: WHEN OTHERS
16720: THEN
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;
16727: RAISE;
16728: END update_var_rent;
16729:
16730: FUNCTION get_attribute_status (