[Home] [Help]
232: l_rec_calc_period_id pn_rec_calc_periods_all.rec_calc_period_id%TYPE;
233:
234: BEGIN
235:
236: pnp_debug_pkg.log('PN_REC_CALC_PKG.CALCULATE_REC_AMOUNT_BATCH (+) ');
237: l_rec_calc_period_id := p_rec_calc_period_id;
238:
239: l_start_date := TRUNC(fnd_date.canonical_to_date(p_calc_period_startdate));
240: l_end_date := TRUNC(fnd_date.canonical_to_date(p_calc_period_enddate));
260: fnd_message.set_token ('PROP_NAME',p_property_name);
261: fnd_message.set_token ('CUST_NAME',p_customer_name);
262: fnd_message.set_token ('CUST_SITE',p_customer_site);
263: fnd_message.set_token ('PRD_END',l_calc_period_ending);
264: pnp_debug_pkg.put_log_msg(fnd_message.get);
265:
266: /* PL/SQL Tables to cache term templates which are lazy upgraded for E-Tax*/
267: template_name_tbl.DELETE;
268: template_id_tbl.DELETE;
273: */
274: IF p_org_id is NOT NULL THEN
275: pn_mo_cache_utils.fnd_req_set_org_id (p_org_id);
276: /* uncomment to debug
277: pnp_debug_pkg.log('Set the org id with value:' || to_char(pn_mo_cache_utils.get_current_org_id)); */
278: END IF;
279:
280: IF ((p_rec_agreement_id IS NOT NULL)
281: or (p_lease_id IS NOT NULL)
434: END LOOP;
435:
436: fnd_message.set_name ('PN','PN_RECALC_AGR_PROC');
437: fnd_message.set_token ('NUM', l_processed);
438: pnp_debug_pkg.put_log_msg(fnd_message.get);
439:
440: fnd_message.set_name ('PN','PN_RECALC_AGR_SUC');
441: fnd_message.set_token ('NUM', l_success_count);
442: pnp_debug_pkg.put_log_msg(fnd_message.get);
438: pnp_debug_pkg.put_log_msg(fnd_message.get);
439:
440: fnd_message.set_name ('PN','PN_RECALC_AGR_SUC');
441: fnd_message.set_token ('NUM', l_success_count);
442: pnp_debug_pkg.put_log_msg(fnd_message.get);
443:
444: fnd_message.set_name ('PN','PN_RECALC_AGR_FAIL');
445: fnd_message.set_token ('NUM', l_fail_count);
446: pnp_debug_pkg.put_log_msg(fnd_message.get);
442: pnp_debug_pkg.put_log_msg(fnd_message.get);
443:
444: fnd_message.set_name ('PN','PN_RECALC_AGR_FAIL');
445: fnd_message.set_token ('NUM', l_fail_count);
446: pnp_debug_pkg.put_log_msg(fnd_message.get);
447:
448: IF calc_rec_amount_wloc_prop%ISOPEN THEN
449: CLOSE calc_rec_amount_wloc_prop;
450: ELSIF calc_rec_amount_wloc%ISOPEN THEN
459: END IF;
460:
461: /*Logging information for upgraded Term Templates*/
462: FOR i IN 1 .. template_id_tbl.COUNT LOOP
463: pnp_debug_pkg.put_log_msg('Term template '||template_name_tbl(i)||
464: ' has an existing tax code or tax group.A corresponding tax classification will replace it');
465: END LOOP;
466:
467: pnp_debug_pkg.log('PN_REC_CALC_PKG.CALCULATE_REC_AMOUNT_BATCH (-) ');
463: pnp_debug_pkg.put_log_msg('Term template '||template_name_tbl(i)||
464: ' has an existing tax code or tax group.A corresponding tax classification will replace it');
465: END LOOP;
466:
467: pnp_debug_pkg.log('PN_REC_CALC_PKG.CALCULATE_REC_AMOUNT_BATCH (-) ');
468:
469: EXCEPTION
470:
471: When OTHERS Then
468:
469: EXCEPTION
470:
471: When OTHERS Then
472: pnp_debug_pkg.log('Error in PN_REC_CALC_PKG.CALCULATE_REC_AMOUNT_BATCH :'||to_char(sqlcode)||' : '||sqlerrm);
473: Errbuf := SQLERRM;
474: Retcode := 2;
475: rollback;
476: raise;
640: l_rec_calc_period_id pn_rec_calc_periods_all.rec_calc_period_id%TYPE;
641:
642: BEGIN
643:
644: pnp_debug_pkg.log('PN_REC_CALC_PKG.CALCULATE_REC_AMOUNT_BATCH (+) ');
645: fnd_message.set_name ('PN','PN_RECALC_AGR_INP_PARAM');
646: fnd_message.set_token ('LEASE_FRM',p_lease_num_from);
647: fnd_message.set_token ('LEASE_TO',p_lease_num_to);
648: fnd_message.set_token ('LOC_CODE_FRM',p_location_code_from);
653: fnd_message.set_token ('CUST_NAME',p_customer_name);
654: fnd_message.set_token ('CUST_SITE',p_customer_site);
655: fnd_message.set_token ('PRD_END',l_calc_period_ending);
656:
657: pnp_debug_pkg.put_log_msg(fnd_message.get);
658:
659: /* if p_org_ID is not null, then set.
660: else if in R12, current org is already set
661: */
661: */
662: IF p_org_id is NOT NULL THEN
663: pn_mo_cache_utils.fnd_req_set_org_id (p_org_id);
664: /* uncomment to debug
665: pnp_debug_pkg.log('Set the org id with value:' || to_char(pn_mo_cache_utils.get_current_org_id)); */
666: END IF;
667:
668: IF p_location_code_from IS NOT NULL or p_location_code_to IS NOT NULL THEN
669: IF p_property_name IS NOT NULL THEN
753: END IF; --l_rec_calc_period_id <> -1
754:
755: END LOOP;
756:
757: pnp_debug_pkg.put_log_msg('
758: ===============================================================================');
759:
760: fnd_message.set_name ('PN','PN_RECALC_AGR_PROC');
761: fnd_message.set_token ('NUM', l_processed);
758: ===============================================================================');
759:
760: fnd_message.set_name ('PN','PN_RECALC_AGR_PROC');
761: fnd_message.set_token ('NUM', l_processed);
762: pnp_debug_pkg.put_log_msg(fnd_message.get);
763:
764: fnd_message.set_name ('PN','PN_RECALC_AGR_SUC');
765: fnd_message.set_token ('NUM', l_success_count);
766: pnp_debug_pkg.put_log_msg(fnd_message.get);
762: pnp_debug_pkg.put_log_msg(fnd_message.get);
763:
764: fnd_message.set_name ('PN','PN_RECALC_AGR_SUC');
765: fnd_message.set_token ('NUM', l_success_count);
766: pnp_debug_pkg.put_log_msg(fnd_message.get);
767:
768: fnd_message.set_name ('PN','PN_RECALC_AGR_FAIL');
769: fnd_message.set_token ('NUM', l_fail_count);
770: pnp_debug_pkg.put_log_msg(fnd_message.get);
766: pnp_debug_pkg.put_log_msg(fnd_message.get);
767:
768: fnd_message.set_name ('PN','PN_RECALC_AGR_FAIL');
769: fnd_message.set_token ('NUM', l_fail_count);
770: pnp_debug_pkg.put_log_msg(fnd_message.get);
771:
772: pnp_debug_pkg.put_log_msg('
773: ===============================================================================');
774:
768: fnd_message.set_name ('PN','PN_RECALC_AGR_FAIL');
769: fnd_message.set_token ('NUM', l_fail_count);
770: pnp_debug_pkg.put_log_msg(fnd_message.get);
771:
772: pnp_debug_pkg.put_log_msg('
773: ===============================================================================');
774:
775: IF calc_rec_amount_wloc_prop%ISOPEN THEN
776: CLOSE calc_rec_amount_wloc_prop;
781: ELSIF calc_rec_amount_woloc%ISOPEN THEN
782: CLOSE calc_rec_amount_woloc;
783: END IF;
784:
785: pnp_debug_pkg.log('PN_REC_CALC_PKG.CALCULATE_REC_AMOUNT_BATCH (-) ');
786:
787: EXCEPTION
788:
789: When OTHERS Then
786:
787: EXCEPTION
788:
789: When OTHERS Then
790: pnp_debug_pkg.log('Error in PN_REC_CALC_PKG.CALCULATE_REC_AMOUNT_BATCH :'||to_char(sqlcode)||' : '||sqlerrm);
791: Errbuf := SQLERRM;
792: Retcode := 2;
793: rollback;
794: raise;
1059: l_org_id NUMBER;
1060:
1061: BEGIN
1062:
1063: pnp_debug_pkg.log('PN_REC_CALC_PKG.CALCULATE_REC_AMOUNT (+) ');
1064:
1065: /* Get currency code and negative recovery value for the agreement */
1066:
1067: FOR rec IN csr_currency_code LOOP
1073: END LOOP;
1074:
1075: l_consolidate := NVL(pn_mo_cache_utils.get_profile_value('PN_REC_CONSOLIDATE_TERMS', l_org_id), 'N');
1076:
1077: pnp_debug_pkg.put_log_msg(' ');
1078: fnd_message.set_name ('PN','PN_RECALC_AGR_NAME');
1079: fnd_message.set_token ('NAME', l_rec_agr_name);
1080: pnp_debug_pkg.put_log_msg(fnd_message.get);
1081:
1076:
1077: pnp_debug_pkg.put_log_msg(' ');
1078: fnd_message.set_name ('PN','PN_RECALC_AGR_NAME');
1079: fnd_message.set_token ('NAME', l_rec_agr_name);
1080: pnp_debug_pkg.put_log_msg(fnd_message.get);
1081:
1082: fnd_message.set_name ('PN','PN_RECALC_AGR_NUMBER');
1083: fnd_message.set_token ('NUM', l_rec_agr_num);
1084: pnp_debug_pkg.put_log_msg(fnd_message.get);
1080: pnp_debug_pkg.put_log_msg(fnd_message.get);
1081:
1082: fnd_message.set_name ('PN','PN_RECALC_AGR_NUMBER');
1083: fnd_message.set_token ('NUM', l_rec_agr_num);
1084: pnp_debug_pkg.put_log_msg(fnd_message.get);
1085:
1086: pnp_debug_pkg.log('calculate_rec_amount - agreement id : '||p_rec_agreement_id);
1087: pnp_debug_pkg.log('calculate_rec_amount - agreement id : '||p_rec_agreement_id);
1088: pnp_debug_pkg.log('calculate_rec_amount - currency code : '||g_currency_code);
1082: fnd_message.set_name ('PN','PN_RECALC_AGR_NUMBER');
1083: fnd_message.set_token ('NUM', l_rec_agr_num);
1084: pnp_debug_pkg.put_log_msg(fnd_message.get);
1085:
1086: pnp_debug_pkg.log('calculate_rec_amount - agreement id : '||p_rec_agreement_id);
1087: pnp_debug_pkg.log('calculate_rec_amount - agreement id : '||p_rec_agreement_id);
1088: pnp_debug_pkg.log('calculate_rec_amount - currency code : '||g_currency_code);
1089: pnp_debug_pkg.log('calculate_rec_amount - -ve rent rule : '||l_negative_recovery);
1090:
1083: fnd_message.set_token ('NUM', l_rec_agr_num);
1084: pnp_debug_pkg.put_log_msg(fnd_message.get);
1085:
1086: pnp_debug_pkg.log('calculate_rec_amount - agreement id : '||p_rec_agreement_id);
1087: pnp_debug_pkg.log('calculate_rec_amount - agreement id : '||p_rec_agreement_id);
1088: pnp_debug_pkg.log('calculate_rec_amount - currency code : '||g_currency_code);
1089: pnp_debug_pkg.log('calculate_rec_amount - -ve rent rule : '||l_negative_recovery);
1090:
1091: IF p_rec_agr_line_id IS NULL THEN
1084: pnp_debug_pkg.put_log_msg(fnd_message.get);
1085:
1086: pnp_debug_pkg.log('calculate_rec_amount - agreement id : '||p_rec_agreement_id);
1087: pnp_debug_pkg.log('calculate_rec_amount - agreement id : '||p_rec_agreement_id);
1088: pnp_debug_pkg.log('calculate_rec_amount - currency code : '||g_currency_code);
1089: pnp_debug_pkg.log('calculate_rec_amount - -ve rent rule : '||l_negative_recovery);
1090:
1091: IF p_rec_agr_line_id IS NULL THEN
1092: OPEN agr_lines_all;
1085:
1086: pnp_debug_pkg.log('calculate_rec_amount - agreement id : '||p_rec_agreement_id);
1087: pnp_debug_pkg.log('calculate_rec_amount - agreement id : '||p_rec_agreement_id);
1088: pnp_debug_pkg.log('calculate_rec_amount - currency code : '||g_currency_code);
1089: pnp_debug_pkg.log('calculate_rec_amount - -ve rent rule : '||l_negative_recovery);
1090:
1091: IF p_rec_agr_line_id IS NULL THEN
1092: OPEN agr_lines_all;
1093: l_calculate_all := TRUE;
1144: l_tenancy_start_date := NULL;
1145: l_tenancy_end_date := NULL;
1146: line_constr_tbl.delete;
1147:
1148: pnp_debug_pkg.log('Processing line id : '||agr_lines_record.rec_agr_line_id);
1149:
1150: /* Test for calculation Method */
1151:
1152: pnp_debug_pkg.log('Calculation Method : '||agr_lines_record.calc_method);
1148: pnp_debug_pkg.log('Processing line id : '||agr_lines_record.rec_agr_line_id);
1149:
1150: /* Test for calculation Method */
1151:
1152: pnp_debug_pkg.log('Calculation Method : '||agr_lines_record.calc_method);
1153:
1154: IF agr_lines_record.calc_method <> 'FIXEDAMT' THEN
1155:
1156: -- Only if calculation method is either Prorata Share, Fixed Pct or Fixed Rate
1156: -- Only if calculation method is either Prorata Share, Fixed Pct or Fixed Rate
1157:
1158: IF agr_lines_record.calc_method IN('PRORATSH','FIXEDPCT') THEN
1159:
1160: pnp_debug_pkg.log('Calculation Method : Prorata Share/Fixed Pct - line id :'||agr_lines_record.rec_agr_line_id);
1161: -- If calculation method is Prorata Share get the expenses for the line
1162: -- and the total area of the property
1163:
1164: pnp_debug_pkg.log('get_line_expenses....Agr line id : '||agr_lines_record.rec_agr_line_id);
1160: pnp_debug_pkg.log('Calculation Method : Prorata Share/Fixed Pct - line id :'||agr_lines_record.rec_agr_line_id);
1161: -- If calculation method is Prorata Share get the expenses for the line
1162: -- and the total area of the property
1163:
1164: pnp_debug_pkg.log('get_line_expenses....Agr line id : '||agr_lines_record.rec_agr_line_id);
1165: pnp_debug_pkg.log('get_line_expenses - Customer id : '||p_customer_id);
1166: pnp_debug_pkg.log('get_line_expenses - Lease id : '||p_lease_id);
1167: pnp_debug_pkg.log('get_line_expenses - Location id : '||p_location_id);
1168: pnp_debug_pkg.log('get_line_expenses - Start Date : '||p_calc_period_start_date);
1161: -- If calculation method is Prorata Share get the expenses for the line
1162: -- and the total area of the property
1163:
1164: pnp_debug_pkg.log('get_line_expenses....Agr line id : '||agr_lines_record.rec_agr_line_id);
1165: pnp_debug_pkg.log('get_line_expenses - Customer id : '||p_customer_id);
1166: pnp_debug_pkg.log('get_line_expenses - Lease id : '||p_lease_id);
1167: pnp_debug_pkg.log('get_line_expenses - Location id : '||p_location_id);
1168: pnp_debug_pkg.log('get_line_expenses - Start Date : '||p_calc_period_start_date);
1169: pnp_debug_pkg.log('get_line_expenses - End Date : '||p_calc_period_end_date);
1162: -- and the total area of the property
1163:
1164: pnp_debug_pkg.log('get_line_expenses....Agr line id : '||agr_lines_record.rec_agr_line_id);
1165: pnp_debug_pkg.log('get_line_expenses - Customer id : '||p_customer_id);
1166: pnp_debug_pkg.log('get_line_expenses - Lease id : '||p_lease_id);
1167: pnp_debug_pkg.log('get_line_expenses - Location id : '||p_location_id);
1168: pnp_debug_pkg.log('get_line_expenses - Start Date : '||p_calc_period_start_date);
1169: pnp_debug_pkg.log('get_line_expenses - End Date : '||p_calc_period_end_date);
1170:
1163:
1164: pnp_debug_pkg.log('get_line_expenses....Agr line id : '||agr_lines_record.rec_agr_line_id);
1165: pnp_debug_pkg.log('get_line_expenses - Customer id : '||p_customer_id);
1166: pnp_debug_pkg.log('get_line_expenses - Lease id : '||p_lease_id);
1167: pnp_debug_pkg.log('get_line_expenses - Location id : '||p_location_id);
1168: pnp_debug_pkg.log('get_line_expenses - Start Date : '||p_calc_period_start_date);
1169: pnp_debug_pkg.log('get_line_expenses - End Date : '||p_calc_period_end_date);
1170:
1171: PN_REC_CALC_PKG.get_line_expenses(
1164: pnp_debug_pkg.log('get_line_expenses....Agr line id : '||agr_lines_record.rec_agr_line_id);
1165: pnp_debug_pkg.log('get_line_expenses - Customer id : '||p_customer_id);
1166: pnp_debug_pkg.log('get_line_expenses - Lease id : '||p_lease_id);
1167: pnp_debug_pkg.log('get_line_expenses - Location id : '||p_location_id);
1168: pnp_debug_pkg.log('get_line_expenses - Start Date : '||p_calc_period_start_date);
1169: pnp_debug_pkg.log('get_line_expenses - End Date : '||p_calc_period_end_date);
1170:
1171: PN_REC_CALC_PKG.get_line_expenses(
1172: p_rec_agr_line_id => agr_lines_record.rec_agr_line_id
1165: pnp_debug_pkg.log('get_line_expenses - Customer id : '||p_customer_id);
1166: pnp_debug_pkg.log('get_line_expenses - Lease id : '||p_lease_id);
1167: pnp_debug_pkg.log('get_line_expenses - Location id : '||p_location_id);
1168: pnp_debug_pkg.log('get_line_expenses - Start Date : '||p_calc_period_start_date);
1169: pnp_debug_pkg.log('get_line_expenses - End Date : '||p_calc_period_end_date);
1170:
1171: PN_REC_CALC_PKG.get_line_expenses(
1172: p_rec_agr_line_id => agr_lines_record.rec_agr_line_id
1173: ,p_customer_id => p_customer_id
1182: ,p_error => p_error
1183: ,p_error_code => p_error_code
1184: );
1185:
1186: pnp_debug_pkg.log('get_line_expenses - Recoverable_amt : '||l_line_expenses);
1187: pnp_debug_pkg.log('get_line_expenses - Fee Before Contr : '||l_fee_before_contr);
1188: pnp_debug_pkg.log('get_line_expenses - Fee after contr : '||l_fee_after_contr);
1189: pnp_debug_pkg.log('get_line_expenses - Return Status : '||p_error);
1190: pnp_debug_pkg.log('get_line_expenses - Return Code : '||p_error_code);
1183: ,p_error_code => p_error_code
1184: );
1185:
1186: pnp_debug_pkg.log('get_line_expenses - Recoverable_amt : '||l_line_expenses);
1187: pnp_debug_pkg.log('get_line_expenses - Fee Before Contr : '||l_fee_before_contr);
1188: pnp_debug_pkg.log('get_line_expenses - Fee after contr : '||l_fee_after_contr);
1189: pnp_debug_pkg.log('get_line_expenses - Return Status : '||p_error);
1190: pnp_debug_pkg.log('get_line_expenses - Return Code : '||p_error_code);
1191:
1184: );
1185:
1186: pnp_debug_pkg.log('get_line_expenses - Recoverable_amt : '||l_line_expenses);
1187: pnp_debug_pkg.log('get_line_expenses - Fee Before Contr : '||l_fee_before_contr);
1188: pnp_debug_pkg.log('get_line_expenses - Fee after contr : '||l_fee_after_contr);
1189: pnp_debug_pkg.log('get_line_expenses - Return Status : '||p_error);
1190: pnp_debug_pkg.log('get_line_expenses - Return Code : '||p_error_code);
1191:
1192: IF p_error_code <> -99 THEN
1185:
1186: pnp_debug_pkg.log('get_line_expenses - Recoverable_amt : '||l_line_expenses);
1187: pnp_debug_pkg.log('get_line_expenses - Fee Before Contr : '||l_fee_before_contr);
1188: pnp_debug_pkg.log('get_line_expenses - Fee after contr : '||l_fee_after_contr);
1189: pnp_debug_pkg.log('get_line_expenses - Return Status : '||p_error);
1190: pnp_debug_pkg.log('get_line_expenses - Return Code : '||p_error_code);
1191:
1192: IF p_error_code <> -99 THEN
1193: l_budget_expense := PN_REC_CALC_PKG.get_budget_expenses(
1186: pnp_debug_pkg.log('get_line_expenses - Recoverable_amt : '||l_line_expenses);
1187: pnp_debug_pkg.log('get_line_expenses - Fee Before Contr : '||l_fee_before_contr);
1188: pnp_debug_pkg.log('get_line_expenses - Fee after contr : '||l_fee_after_contr);
1189: pnp_debug_pkg.log('get_line_expenses - Return Status : '||p_error);
1190: pnp_debug_pkg.log('get_line_expenses - Return Code : '||p_error_code);
1191:
1192: IF p_error_code <> -99 THEN
1193: l_budget_expense := PN_REC_CALC_PKG.get_budget_expenses(
1194: p_rec_agr_line_id => agr_lines_record.rec_agr_line_id
1210:
1211: END IF;
1212:
1213:
1214: pnp_debug_pkg.log('get_budget_expenses - Return Code : '||p_error_code);
1215: pnp_debug_pkg.log('Budget Expense : '||l_budget_expense);
1216:
1217: END IF;
1218:
1211: END IF;
1212:
1213:
1214: pnp_debug_pkg.log('get_budget_expenses - Return Code : '||p_error_code);
1215: pnp_debug_pkg.log('Budget Expense : '||l_budget_expense);
1216:
1217: END IF;
1218:
1219: pnp_debug_pkg.log('Error Code 1 : '||p_error_code);
1215: pnp_debug_pkg.log('Budget Expense : '||l_budget_expense);
1216:
1217: END IF;
1218:
1219: pnp_debug_pkg.log('Error Code 1 : '||p_error_code);
1220:
1221: IF p_error_code <> -99 THEN
1222:
1223: l_contr_actual_recovery := PN_REC_CALC_PKG.get_contr_actual_recovery(
1240: p_error_code := 0;
1241:
1242: END IF;
1243:
1244: pnp_debug_pkg.log('Contr Actual Recovery : '||l_contr_actual_recovery);
1245:
1246: END IF;
1247:
1248: pnp_debug_pkg.log('Error Code 2 : '||p_error_code);
1244: pnp_debug_pkg.log('Contr Actual Recovery : '||l_contr_actual_recovery);
1245:
1246: END IF;
1247:
1248: pnp_debug_pkg.log('Error Code 2 : '||p_error_code);
1249:
1250: /* If total expenses is greater than contributors prorata share
1251: then subtract the contributors prorata share from total expenses.
1252: Also apply the fee after contributors if the fee before
1263: l_line_expenses := (nvl(l_line_expenses,0) - nvl(l_contr_actual_recovery,0))
1264: + ((l_fee_after_contr / 100) *
1265: (nvl(l_line_expenses,0) - nvl(l_contr_actual_recovery,0)));
1266:
1267: pnp_debug_pkg.log('get_line_expenses - expense after contr and fee : '||l_line_expenses);
1268: ELSE
1269:
1270: l_line_expenses := nvl(l_line_expenses,0) - nvl(l_contr_actual_recovery,0);
1271: pnp_debug_pkg.log('get_line_expenses - expenses after contr : '||l_line_expenses);
1267: pnp_debug_pkg.log('get_line_expenses - expense after contr and fee : '||l_line_expenses);
1268: ELSE
1269:
1270: l_line_expenses := nvl(l_line_expenses,0) - nvl(l_contr_actual_recovery,0);
1271: pnp_debug_pkg.log('get_line_expenses - expenses after contr : '||l_line_expenses);
1272:
1273: END IF;
1274:
1275:
1279: l_line_expenses := 0;
1280:
1281: END IF;
1282:
1283: pnp_debug_pkg.log('Line expenses after contributors : '||l_line_expenses);
1284:
1285:
1286: pnp_debug_pkg.log('Error Code 3 : '||p_error_code);
1287:
1282:
1283: pnp_debug_pkg.log('Line expenses after contributors : '||l_line_expenses);
1284:
1285:
1286: pnp_debug_pkg.log('Error Code 3 : '||p_error_code);
1287:
1288: IF p_error_code <> -99 AND
1289: agr_lines_record.calc_method = 'FIXEDPCT' AND
1290: nvl(agr_lines_record.fixed_pct,0) <> 0 THEN
1288: IF p_error_code <> -99 AND
1289: agr_lines_record.calc_method = 'FIXEDPCT' AND
1290: nvl(agr_lines_record.fixed_pct,0) <> 0 THEN
1291:
1292: pnp_debug_pkg.log('Error Code 4 : '||p_error_code);
1293: l_ten_actual_recovery := l_line_expenses*agr_lines_record.fixed_pct/100;
1294:
1295: l_budget_recovery := l_budget_expense*agr_lines_record.fixed_pct/100;
1296:
1295: l_budget_recovery := l_budget_expense*agr_lines_record.fixed_pct/100;
1296:
1297: l_status := 'COMPLETE';
1298:
1299: pnp_debug_pkg.log('Calculation Method : Fixed Pct - tenant actual recovery :'||
1300: l_ten_actual_recovery||l_status);
1301: p_error := 'Success';
1302: p_error_code := 0;
1303:
1304: ELSIF p_error_code <> -99 AND
1305: agr_lines_record.calc_method = 'FIXEDPCT' AND
1306: nvl(agr_lines_record.fixed_pct,0) = 0 THEN
1307:
1308: pnp_debug_pkg.log('Error Code 5 : '||p_error_code);
1309: l_ten_actual_recovery := 0;
1310: l_status := 'ERROR';
1311:
1312: fnd_message.set_name ('PN','PN_RECALC_PCT_NOT');
1309: l_ten_actual_recovery := 0;
1310: l_status := 'ERROR';
1311:
1312: fnd_message.set_name ('PN','PN_RECALC_PCT_NOT');
1313: pnp_debug_pkg.put_log_msg(fnd_message.get);
1314:
1315: p_error := 'Percentage not specified for Fixed Percentage calc. method';
1316: p_error_code := -99;
1317:
1319:
1320: ELSIF p_error_code <> -99 AND
1321: agr_lines_record.calc_method = 'PRORATSH' THEN
1322:
1323: pnp_debug_pkg.log('Error Code 6 : '||p_error_code);
1324: -- Only if calculation method is either Prorata Share, Fixed Pct or Fixed Rate
1325:
1326:
1327: pnp_debug_pkg.log('get_tot_prop_area - Agr line id : '||agr_lines_record.rec_agr_line_id);
1323: pnp_debug_pkg.log('Error Code 6 : '||p_error_code);
1324: -- Only if calculation method is either Prorata Share, Fixed Pct or Fixed Rate
1325:
1326:
1327: pnp_debug_pkg.log('get_tot_prop_area - Agr line id : '||agr_lines_record.rec_agr_line_id);
1328: pnp_debug_pkg.log('get_tot_prop_area - Customer id : '||p_customer_id);
1329: pnp_debug_pkg.log('get_tot_prop_area - Lease id : '||p_lease_id);
1330: pnp_debug_pkg.log('get_tot_prop_area - Location id : '||p_location_id);
1331: pnp_debug_pkg.log('get_tot_prop_area - Start Date : '||p_calc_period_start_date);
1324: -- Only if calculation method is either Prorata Share, Fixed Pct or Fixed Rate
1325:
1326:
1327: pnp_debug_pkg.log('get_tot_prop_area - Agr line id : '||agr_lines_record.rec_agr_line_id);
1328: pnp_debug_pkg.log('get_tot_prop_area - Customer id : '||p_customer_id);
1329: pnp_debug_pkg.log('get_tot_prop_area - Lease id : '||p_lease_id);
1330: pnp_debug_pkg.log('get_tot_prop_area - Location id : '||p_location_id);
1331: pnp_debug_pkg.log('get_tot_prop_area - Start Date : '||p_calc_period_start_date);
1332: pnp_debug_pkg.log('get_tot_prop_area - End Date : '||p_calc_period_end_date);
1325:
1326:
1327: pnp_debug_pkg.log('get_tot_prop_area - Agr line id : '||agr_lines_record.rec_agr_line_id);
1328: pnp_debug_pkg.log('get_tot_prop_area - Customer id : '||p_customer_id);
1329: pnp_debug_pkg.log('get_tot_prop_area - Lease id : '||p_lease_id);
1330: pnp_debug_pkg.log('get_tot_prop_area - Location id : '||p_location_id);
1331: pnp_debug_pkg.log('get_tot_prop_area - Start Date : '||p_calc_period_start_date);
1332: pnp_debug_pkg.log('get_tot_prop_area - End Date : '||p_calc_period_end_date);
1333: pnp_debug_pkg.log('get_tot_prop_area - As of Date : '||p_as_of_date);
1326:
1327: pnp_debug_pkg.log('get_tot_prop_area - Agr line id : '||agr_lines_record.rec_agr_line_id);
1328: pnp_debug_pkg.log('get_tot_prop_area - Customer id : '||p_customer_id);
1329: pnp_debug_pkg.log('get_tot_prop_area - Lease id : '||p_lease_id);
1330: pnp_debug_pkg.log('get_tot_prop_area - Location id : '||p_location_id);
1331: pnp_debug_pkg.log('get_tot_prop_area - Start Date : '||p_calc_period_start_date);
1332: pnp_debug_pkg.log('get_tot_prop_area - End Date : '||p_calc_period_end_date);
1333: pnp_debug_pkg.log('get_tot_prop_area - As of Date : '||p_as_of_date);
1334:
1327: pnp_debug_pkg.log('get_tot_prop_area - Agr line id : '||agr_lines_record.rec_agr_line_id);
1328: pnp_debug_pkg.log('get_tot_prop_area - Customer id : '||p_customer_id);
1329: pnp_debug_pkg.log('get_tot_prop_area - Lease id : '||p_lease_id);
1330: pnp_debug_pkg.log('get_tot_prop_area - Location id : '||p_location_id);
1331: pnp_debug_pkg.log('get_tot_prop_area - Start Date : '||p_calc_period_start_date);
1332: pnp_debug_pkg.log('get_tot_prop_area - End Date : '||p_calc_period_end_date);
1333: pnp_debug_pkg.log('get_tot_prop_area - As of Date : '||p_as_of_date);
1334:
1335: l_tot_prop_area := PN_REC_CALC_PKG.get_tot_prop_area(
1328: pnp_debug_pkg.log('get_tot_prop_area - Customer id : '||p_customer_id);
1329: pnp_debug_pkg.log('get_tot_prop_area - Lease id : '||p_lease_id);
1330: pnp_debug_pkg.log('get_tot_prop_area - Location id : '||p_location_id);
1331: pnp_debug_pkg.log('get_tot_prop_area - Start Date : '||p_calc_period_start_date);
1332: pnp_debug_pkg.log('get_tot_prop_area - End Date : '||p_calc_period_end_date);
1333: pnp_debug_pkg.log('get_tot_prop_area - As of Date : '||p_as_of_date);
1334:
1335: l_tot_prop_area := PN_REC_CALC_PKG.get_tot_prop_area(
1336: p_rec_agr_line_id => agr_lines_record.rec_agr_line_id
1329: pnp_debug_pkg.log('get_tot_prop_area - Lease id : '||p_lease_id);
1330: pnp_debug_pkg.log('get_tot_prop_area - Location id : '||p_location_id);
1331: pnp_debug_pkg.log('get_tot_prop_area - Start Date : '||p_calc_period_start_date);
1332: pnp_debug_pkg.log('get_tot_prop_area - End Date : '||p_calc_period_end_date);
1333: pnp_debug_pkg.log('get_tot_prop_area - As of Date : '||p_as_of_date);
1334:
1335: l_tot_prop_area := PN_REC_CALC_PKG.get_tot_prop_area(
1336: p_rec_agr_line_id => agr_lines_record.rec_agr_line_id
1337: ,p_customer_id => p_customer_id
1344:
1345: IF l_tot_prop_area = -99 THEN
1346:
1347: fnd_message.set_name ('PN','PN_RECALB_TOT_AR');
1348: pnp_debug_pkg.put_log_msg(fnd_message.get);
1349:
1350: p_error := 'Error while getting Total Property Area ';
1351: p_error_code := -99;
1352: l_tot_prop_area := 0;
1353:
1354: ELSE
1355: p_error := 'Success';
1356: p_error_code := 0;
1357: pnp_debug_pkg.log('Total Property Area : '||l_tot_prop_area);
1358:
1359: END IF;
1360:
1361:
1358:
1359: END IF;
1360:
1361:
1362: pnp_debug_pkg.log('Error Code 7 : '||p_error_code);
1363: IF p_error_code <> -99 AND
1364: (nvl(l_tot_prop_area,0) <> 0) AND
1365: (nvl(l_line_expenses,0) <> 0) THEN
1366:
1363: IF p_error_code <> -99 AND
1364: (nvl(l_tot_prop_area,0) <> 0) AND
1365: (nvl(l_line_expenses,0) <> 0) THEN
1366:
1367: pnp_debug_pkg.log('Error Code 8 : '||p_error_code);
1368: -- Compute the rate
1369:
1370: l_rate := l_line_expenses/l_tot_prop_area;
1371: pnp_debug_pkg.log('Calc. Method : Prorata Share - total expense :'||l_line_expenses);
1367: pnp_debug_pkg.log('Error Code 8 : '||p_error_code);
1368: -- Compute the rate
1369:
1370: l_rate := l_line_expenses/l_tot_prop_area;
1371: pnp_debug_pkg.log('Calc. Method : Prorata Share - total expense :'||l_line_expenses);
1372: pnp_debug_pkg.log('Calc. Method : Prorata Share - total area :'||l_tot_prop_area);
1373:
1374: END IF;
1375:
1368: -- Compute the rate
1369:
1370: l_rate := l_line_expenses/l_tot_prop_area;
1371: pnp_debug_pkg.log('Calc. Method : Prorata Share - total expense :'||l_line_expenses);
1372: pnp_debug_pkg.log('Calc. Method : Prorata Share - total area :'||l_tot_prop_area);
1373:
1374: END IF;
1375:
1376: pnp_debug_pkg.log('Error Code 9 : '||p_error_code);
1372: pnp_debug_pkg.log('Calc. Method : Prorata Share - total area :'||l_tot_prop_area);
1373:
1374: END IF;
1375:
1376: pnp_debug_pkg.log('Error Code 9 : '||p_error_code);
1377: IF p_error_code <> -99 AND
1378: (nvl(l_tot_prop_area,0) <> 0) AND
1379: nvl(l_budget_expense,0) <> 0 THEN
1380:
1377: IF p_error_code <> -99 AND
1378: (nvl(l_tot_prop_area,0) <> 0) AND
1379: nvl(l_budget_expense,0) <> 0 THEN
1380:
1381: pnp_debug_pkg.log('Error Code 10 : '||p_error_code);
1382: l_budget_cost_per_area := l_budget_expense/l_tot_prop_area;
1383:
1384: pnp_debug_pkg.log('Calc. Method : Prorata Share - Budget total expense :'||l_budget_expense);
1385: pnp_debug_pkg.log('Calc. Method : Prorata Share - Budget total area :'||l_tot_prop_area);
1380:
1381: pnp_debug_pkg.log('Error Code 10 : '||p_error_code);
1382: l_budget_cost_per_area := l_budget_expense/l_tot_prop_area;
1383:
1384: pnp_debug_pkg.log('Calc. Method : Prorata Share - Budget total expense :'||l_budget_expense);
1385: pnp_debug_pkg.log('Calc. Method : Prorata Share - Budget total area :'||l_tot_prop_area);
1386: END IF;
1387: ------------------------------------------------------------------------
1388: -- Compute tenant's share of the area to be used in the calculation
1381: pnp_debug_pkg.log('Error Code 10 : '||p_error_code);
1382: l_budget_cost_per_area := l_budget_expense/l_tot_prop_area;
1383:
1384: pnp_debug_pkg.log('Calc. Method : Prorata Share - Budget total expense :'||l_budget_expense);
1385: pnp_debug_pkg.log('Calc. Method : Prorata Share - Budget total area :'||l_tot_prop_area);
1386: END IF;
1387: ------------------------------------------------------------------------
1388: -- Compute tenant's share of the area to be used in the calculation
1389: -- The procedure returns a record with occupied area and the occupancy %
1388: -- Compute tenant's share of the area to be used in the calculation
1389: -- The procedure returns a record with occupied area and the occupancy %
1390: ------------------------------------------------------------------------
1391:
1392: pnp_debug_pkg.log('Error Code 11 : '||p_error_code);
1393: IF p_error_code <> -99 THEN
1394:
1395: pnp_debug_pkg.log('Error Code 12 : '||p_error_code);
1396: pnp_debug_pkg.log('ten_recoverable_areaAgr line id : '||agr_lines_record.rec_agr_line_id);
1391:
1392: pnp_debug_pkg.log('Error Code 11 : '||p_error_code);
1393: IF p_error_code <> -99 THEN
1394:
1395: pnp_debug_pkg.log('Error Code 12 : '||p_error_code);
1396: pnp_debug_pkg.log('ten_recoverable_areaAgr line id : '||agr_lines_record.rec_agr_line_id);
1397: pnp_debug_pkg.log('ten_recoverable_area - Customer id : '||p_customer_id);
1398: pnp_debug_pkg.log('ten_recoverable_area - Lease id : '||p_lease_id);
1399: pnp_debug_pkg.log('ten_recoverable_area - Location id : '||p_location_id);
1392: pnp_debug_pkg.log('Error Code 11 : '||p_error_code);
1393: IF p_error_code <> -99 THEN
1394:
1395: pnp_debug_pkg.log('Error Code 12 : '||p_error_code);
1396: pnp_debug_pkg.log('ten_recoverable_areaAgr line id : '||agr_lines_record.rec_agr_line_id);
1397: pnp_debug_pkg.log('ten_recoverable_area - Customer id : '||p_customer_id);
1398: pnp_debug_pkg.log('ten_recoverable_area - Lease id : '||p_lease_id);
1399: pnp_debug_pkg.log('ten_recoverable_area - Location id : '||p_location_id);
1400: pnp_debug_pkg.log('ten_recoverable_area - Start Date : '||p_calc_period_start_date);
1393: IF p_error_code <> -99 THEN
1394:
1395: pnp_debug_pkg.log('Error Code 12 : '||p_error_code);
1396: pnp_debug_pkg.log('ten_recoverable_areaAgr line id : '||agr_lines_record.rec_agr_line_id);
1397: pnp_debug_pkg.log('ten_recoverable_area - Customer id : '||p_customer_id);
1398: pnp_debug_pkg.log('ten_recoverable_area - Lease id : '||p_lease_id);
1399: pnp_debug_pkg.log('ten_recoverable_area - Location id : '||p_location_id);
1400: pnp_debug_pkg.log('ten_recoverable_area - Start Date : '||p_calc_period_start_date);
1401: pnp_debug_pkg.log('ten_recoverable_area - End Date : '||p_calc_period_end_date);
1394:
1395: pnp_debug_pkg.log('Error Code 12 : '||p_error_code);
1396: pnp_debug_pkg.log('ten_recoverable_areaAgr line id : '||agr_lines_record.rec_agr_line_id);
1397: pnp_debug_pkg.log('ten_recoverable_area - Customer id : '||p_customer_id);
1398: pnp_debug_pkg.log('ten_recoverable_area - Lease id : '||p_lease_id);
1399: pnp_debug_pkg.log('ten_recoverable_area - Location id : '||p_location_id);
1400: pnp_debug_pkg.log('ten_recoverable_area - Start Date : '||p_calc_period_start_date);
1401: pnp_debug_pkg.log('ten_recoverable_area - End Date : '||p_calc_period_end_date);
1402: pnp_debug_pkg.log('ten_recoverable_area - As of Date : '||p_as_of_date);
1395: pnp_debug_pkg.log('Error Code 12 : '||p_error_code);
1396: pnp_debug_pkg.log('ten_recoverable_areaAgr line id : '||agr_lines_record.rec_agr_line_id);
1397: pnp_debug_pkg.log('ten_recoverable_area - Customer id : '||p_customer_id);
1398: pnp_debug_pkg.log('ten_recoverable_area - Lease id : '||p_lease_id);
1399: pnp_debug_pkg.log('ten_recoverable_area - Location id : '||p_location_id);
1400: pnp_debug_pkg.log('ten_recoverable_area - Start Date : '||p_calc_period_start_date);
1401: pnp_debug_pkg.log('ten_recoverable_area - End Date : '||p_calc_period_end_date);
1402: pnp_debug_pkg.log('ten_recoverable_area - As of Date : '||p_as_of_date);
1403:
1396: pnp_debug_pkg.log('ten_recoverable_areaAgr line id : '||agr_lines_record.rec_agr_line_id);
1397: pnp_debug_pkg.log('ten_recoverable_area - Customer id : '||p_customer_id);
1398: pnp_debug_pkg.log('ten_recoverable_area - Lease id : '||p_lease_id);
1399: pnp_debug_pkg.log('ten_recoverable_area - Location id : '||p_location_id);
1400: pnp_debug_pkg.log('ten_recoverable_area - Start Date : '||p_calc_period_start_date);
1401: pnp_debug_pkg.log('ten_recoverable_area - End Date : '||p_calc_period_end_date);
1402: pnp_debug_pkg.log('ten_recoverable_area - As of Date : '||p_as_of_date);
1403:
1404: l_ten_recoverable_area_rec := PN_REC_CALC_PKG.ten_recoverable_area(
1397: pnp_debug_pkg.log('ten_recoverable_area - Customer id : '||p_customer_id);
1398: pnp_debug_pkg.log('ten_recoverable_area - Lease id : '||p_lease_id);
1399: pnp_debug_pkg.log('ten_recoverable_area - Location id : '||p_location_id);
1400: pnp_debug_pkg.log('ten_recoverable_area - Start Date : '||p_calc_period_start_date);
1401: pnp_debug_pkg.log('ten_recoverable_area - End Date : '||p_calc_period_end_date);
1402: pnp_debug_pkg.log('ten_recoverable_area - As of Date : '||p_as_of_date);
1403:
1404: l_ten_recoverable_area_rec := PN_REC_CALC_PKG.ten_recoverable_area(
1405: p_rec_agr_line_id => agr_lines_record.rec_agr_line_id
1398: pnp_debug_pkg.log('ten_recoverable_area - Lease id : '||p_lease_id);
1399: pnp_debug_pkg.log('ten_recoverable_area - Location id : '||p_location_id);
1400: pnp_debug_pkg.log('ten_recoverable_area - Start Date : '||p_calc_period_start_date);
1401: pnp_debug_pkg.log('ten_recoverable_area - End Date : '||p_calc_period_end_date);
1402: pnp_debug_pkg.log('ten_recoverable_area - As of Date : '||p_as_of_date);
1403:
1404: l_ten_recoverable_area_rec := PN_REC_CALC_PKG.ten_recoverable_area(
1405: p_rec_agr_line_id => agr_lines_record.rec_agr_line_id
1406: ,p_customer_id => p_customer_id
1425: l_ten_occupancy_pct := l_ten_recoverable_area_rec.occupancy_pct;
1426: p_error := 'Success';
1427: p_error_code := 0;
1428:
1429: pnp_debug_pkg.log('Calc. Method : Prorata Share - tenant rec area :'
1430: ||l_ten_recoverable_area);
1431: pnp_debug_pkg.log('Calc. Method : Prorata Share - tenant occ% :'
1432: ||l_ten_occupancy_pct);
1433: END IF;
1427: p_error_code := 0;
1428:
1429: pnp_debug_pkg.log('Calc. Method : Prorata Share - tenant rec area :'
1430: ||l_ten_recoverable_area);
1431: pnp_debug_pkg.log('Calc. Method : Prorata Share - tenant occ% :'
1432: ||l_ten_occupancy_pct);
1433: END IF;
1434:
1435: pnp_debug_pkg.log('Error Code 13 : '||p_error_code);
1431: pnp_debug_pkg.log('Calc. Method : Prorata Share - tenant occ% :'
1432: ||l_ten_occupancy_pct);
1433: END IF;
1434:
1435: pnp_debug_pkg.log('Error Code 13 : '||p_error_code);
1436: END IF;
1437: pnp_debug_pkg.log('Error Code 14 : '||p_error_code);
1438:
1439: END IF; /* end of fixed pct and prorata share */
1433: END IF;
1434:
1435: pnp_debug_pkg.log('Error Code 13 : '||p_error_code);
1436: END IF;
1437: pnp_debug_pkg.log('Error Code 14 : '||p_error_code);
1438:
1439: END IF; /* end of fixed pct and prorata share */
1440:
1441: pnp_debug_pkg.log('Error Code 15 : '||p_error_code);
1437: pnp_debug_pkg.log('Error Code 14 : '||p_error_code);
1438:
1439: END IF; /* end of fixed pct and prorata share */
1440:
1441: pnp_debug_pkg.log('Error Code 15 : '||p_error_code);
1442: ELSIF agr_lines_record.calc_method = 'FIXEDRT' THEN
1443:
1444: pnp_debug_pkg.log('Calculation Method : Fixed Rate - line id :'||agr_lines_record.rec_agr_line_id);
1445: -- For fixed rate we have the rate available and since the user puts
1440:
1441: pnp_debug_pkg.log('Error Code 15 : '||p_error_code);
1442: ELSIF agr_lines_record.calc_method = 'FIXEDRT' THEN
1443:
1444: pnp_debug_pkg.log('Calculation Method : Fixed Rate - line id :'||agr_lines_record.rec_agr_line_id);
1445: -- For fixed rate we have the rate available and since the user puts
1446: -- in the recoverable area occupancy % is 100%
1447:
1448: l_rate := agr_lines_record.fixed_rate;
1460:
1461: l_ten_occupancy_pct := 100;
1462: p_error_code := 0;
1463:
1464: pnp_debug_pkg.log('Calc. Method : Fixed Rate - tenant rec area :'
1465: ||l_ten_recoverable_area);
1466: pnp_debug_pkg.log('Calc. Method : Fixed Rate - tenant occ% :'||
1467: l_ten_occupancy_pct);
1468: END IF;
1462: p_error_code := 0;
1463:
1464: pnp_debug_pkg.log('Calc. Method : Fixed Rate - tenant rec area :'
1465: ||l_ten_recoverable_area);
1466: pnp_debug_pkg.log('Calc. Method : Fixed Rate - tenant occ% :'||
1467: l_ten_occupancy_pct);
1468: END IF;
1469:
1470: END IF; /* end of all cal. methods */
1470: END IF; /* end of all cal. methods */
1471:
1472: -- Calculate tenant's actual recovery
1473:
1474: pnp_debug_pkg.log('Error Code 16 : '||p_error_code);
1475: IF p_error_code <> -99 AND
1476: agr_lines_record.calc_method in ('FIXEDRT','PRORATSH')AND
1477: (nvl(l_rate,0) <> 0) AND
1478: (nvl(l_ten_recoverable_area,0) <> 0) AND
1483: l_ten_actual_recovery := l_amount_per_sft*((l_ten_recoverable_area*l_ten_occupancy_pct)/100);
1484:
1485: l_status := 'COMPLETE';
1486:
1487: pnp_debug_pkg.log('Calculation Method : Prorata Share/Fixed Rate - amount per sq ft :'||
1488: l_amount_per_sft);
1489: pnp_debug_pkg.log('Calculation Method : Prorata Share/Fixed Rate - tenant actual recovery :'||l_ten_actual_recovery||l_status);
1490:
1491: pnp_debug_pkg.log('Error Code 17 : '||p_error_code);
1485: l_status := 'COMPLETE';
1486:
1487: pnp_debug_pkg.log('Calculation Method : Prorata Share/Fixed Rate - amount per sq ft :'||
1488: l_amount_per_sft);
1489: pnp_debug_pkg.log('Calculation Method : Prorata Share/Fixed Rate - tenant actual recovery :'||l_ten_actual_recovery||l_status);
1490:
1491: pnp_debug_pkg.log('Error Code 17 : '||p_error_code);
1492: ELSIF p_error_code <> -99 AND
1493: agr_lines_record.calc_method in ('FIXEDRT','PRORATSH') AND
1487: pnp_debug_pkg.log('Calculation Method : Prorata Share/Fixed Rate - amount per sq ft :'||
1488: l_amount_per_sft);
1489: pnp_debug_pkg.log('Calculation Method : Prorata Share/Fixed Rate - tenant actual recovery :'||l_ten_actual_recovery||l_status);
1490:
1491: pnp_debug_pkg.log('Error Code 17 : '||p_error_code);
1492: ELSIF p_error_code <> -99 AND
1493: agr_lines_record.calc_method in ('FIXEDRT','PRORATSH') AND
1494: (nvl(l_rate,0) = 0 OR
1495: nvl(l_ten_recoverable_area,0) = 0 OR
1498: l_ten_actual_recovery := 0;
1499: l_status := 'ERROR';
1500: p_error := 'Rate or recoverable Area or Occupancy pct is zero';
1501: p_error_code := -99;
1502: pnp_debug_pkg.log('Rate or recoverable Area or Occupancy pct is zero');
1503: pnp_debug_pkg.log('Rate is ' || to_char(nvl(l_rate,0)));
1504: pnp_debug_pkg.log('Recoverable Area is ' || to_char(nvl(l_ten_recoverable_area,0)));
1505: pnp_debug_pkg.log('Occ. Pct. is ' || to_char(nvl(l_ten_occupancy_pct,0)));
1506:
1499: l_status := 'ERROR';
1500: p_error := 'Rate or recoverable Area or Occupancy pct is zero';
1501: p_error_code := -99;
1502: pnp_debug_pkg.log('Rate or recoverable Area or Occupancy pct is zero');
1503: pnp_debug_pkg.log('Rate is ' || to_char(nvl(l_rate,0)));
1504: pnp_debug_pkg.log('Recoverable Area is ' || to_char(nvl(l_ten_recoverable_area,0)));
1505: pnp_debug_pkg.log('Occ. Pct. is ' || to_char(nvl(l_ten_occupancy_pct,0)));
1506:
1507: END IF;
1500: p_error := 'Rate or recoverable Area or Occupancy pct is zero';
1501: p_error_code := -99;
1502: pnp_debug_pkg.log('Rate or recoverable Area or Occupancy pct is zero');
1503: pnp_debug_pkg.log('Rate is ' || to_char(nvl(l_rate,0)));
1504: pnp_debug_pkg.log('Recoverable Area is ' || to_char(nvl(l_ten_recoverable_area,0)));
1505: pnp_debug_pkg.log('Occ. Pct. is ' || to_char(nvl(l_ten_occupancy_pct,0)));
1506:
1507: END IF;
1508:
1501: p_error_code := -99;
1502: pnp_debug_pkg.log('Rate or recoverable Area or Occupancy pct is zero');
1503: pnp_debug_pkg.log('Rate is ' || to_char(nvl(l_rate,0)));
1504: pnp_debug_pkg.log('Recoverable Area is ' || to_char(nvl(l_ten_recoverable_area,0)));
1505: pnp_debug_pkg.log('Occ. Pct. is ' || to_char(nvl(l_ten_occupancy_pct,0)));
1506:
1507: END IF;
1508:
1509: pnp_debug_pkg.log('Error Code 18 : '||p_error_code);
1505: pnp_debug_pkg.log('Occ. Pct. is ' || to_char(nvl(l_ten_occupancy_pct,0)));
1506:
1507: END IF;
1508:
1509: pnp_debug_pkg.log('Error Code 18 : '||p_error_code);
1510: /* Get budget recovery for prorata share */
1511: IF p_error_code <> -99 AND
1512: agr_lines_record.calc_method = 'PRORATSH' AND
1513: nvl(l_budget_cost_per_area,0) <> 0 THEN
1519: END IF;
1520:
1521: ELSIF p_error_code <> -99 AND agr_lines_record.calc_method = 'FIXEDAMT' THEN
1522:
1523: pnp_debug_pkg.log('Error Code 19 : '||p_error_code);
1524: -- Tenant's actual recovery for fixed amount calc. method is user supplied
1525: l_status := 'COMPLETE';
1526: l_ten_actual_recovery := agr_lines_record.fixed_amount;
1527:
1524: -- Tenant's actual recovery for fixed amount calc. method is user supplied
1525: l_status := 'COMPLETE';
1526: l_ten_actual_recovery := agr_lines_record.fixed_amount;
1527:
1528: pnp_debug_pkg.log('Calculation Method : Fixed Amount - tenant actual recovery :'||l_ten_actual_recovery);
1529:
1530: END IF; /* end of getting actual recovery for all calculation methods */
1531:
1532: pnp_debug_pkg.log('Error Code 20 : '||p_error_code);
1528: pnp_debug_pkg.log('Calculation Method : Fixed Amount - tenant actual recovery :'||l_ten_actual_recovery);
1529:
1530: END IF; /* end of getting actual recovery for all calculation methods */
1531:
1532: pnp_debug_pkg.log('Error Code 20 : '||p_error_code);
1533: IF p_error_code <> -99 THEN
1534:
1535: -- Calculate billed recovery, constraints and abatements.
1536:
1533: IF p_error_code <> -99 THEN
1534:
1535: -- Calculate billed recovery, constraints and abatements.
1536:
1537: pnp_debug_pkg.log('get_billed_recovery - Agr line id : '||
1538: agr_lines_record.rec_agr_line_id);
1539: pnp_debug_pkg.log('get_billed_recovery - Payment Purpose: '||
1540: agr_lines_record.purpose);
1541: pnp_debug_pkg.log('get_billed_recovery - Payment Type: '||
1535: -- Calculate billed recovery, constraints and abatements.
1536:
1537: pnp_debug_pkg.log('get_billed_recovery - Agr line id : '||
1538: agr_lines_record.rec_agr_line_id);
1539: pnp_debug_pkg.log('get_billed_recovery - Payment Purpose: '||
1540: agr_lines_record.purpose);
1541: pnp_debug_pkg.log('get_billed_recovery - Payment Type: '||
1542: agr_lines_record.type);
1543: pnp_debug_pkg.log('get_billed_recovery - Lease id : '||p_lease_id);
1537: pnp_debug_pkg.log('get_billed_recovery - Agr line id : '||
1538: agr_lines_record.rec_agr_line_id);
1539: pnp_debug_pkg.log('get_billed_recovery - Payment Purpose: '||
1540: agr_lines_record.purpose);
1541: pnp_debug_pkg.log('get_billed_recovery - Payment Type: '||
1542: agr_lines_record.type);
1543: pnp_debug_pkg.log('get_billed_recovery - Lease id : '||p_lease_id);
1544: pnp_debug_pkg.log('get_billed_recovery - Location id : '||p_location_id); -- 110403
1545: pnp_debug_pkg.log('get_billed_recovery - Start Date : '||p_calc_period_start_date);
1539: pnp_debug_pkg.log('get_billed_recovery - Payment Purpose: '||
1540: agr_lines_record.purpose);
1541: pnp_debug_pkg.log('get_billed_recovery - Payment Type: '||
1542: agr_lines_record.type);
1543: pnp_debug_pkg.log('get_billed_recovery - Lease id : '||p_lease_id);
1544: pnp_debug_pkg.log('get_billed_recovery - Location id : '||p_location_id); -- 110403
1545: pnp_debug_pkg.log('get_billed_recovery - Start Date : '||p_calc_period_start_date);
1546: pnp_debug_pkg.log('get_billed_recovery - End Date : '||p_calc_period_end_date);
1547: pnp_debug_pkg.log('get_billed_recovery - Calc Period Id : '||p_rec_calc_period_id);
1540: agr_lines_record.purpose);
1541: pnp_debug_pkg.log('get_billed_recovery - Payment Type: '||
1542: agr_lines_record.type);
1543: pnp_debug_pkg.log('get_billed_recovery - Lease id : '||p_lease_id);
1544: pnp_debug_pkg.log('get_billed_recovery - Location id : '||p_location_id); -- 110403
1545: pnp_debug_pkg.log('get_billed_recovery - Start Date : '||p_calc_period_start_date);
1546: pnp_debug_pkg.log('get_billed_recovery - End Date : '||p_calc_period_end_date);
1547: pnp_debug_pkg.log('get_billed_recovery - Calc Period Id : '||p_rec_calc_period_id);
1548:
1541: pnp_debug_pkg.log('get_billed_recovery - Payment Type: '||
1542: agr_lines_record.type);
1543: pnp_debug_pkg.log('get_billed_recovery - Lease id : '||p_lease_id);
1544: pnp_debug_pkg.log('get_billed_recovery - Location id : '||p_location_id); -- 110403
1545: pnp_debug_pkg.log('get_billed_recovery - Start Date : '||p_calc_period_start_date);
1546: pnp_debug_pkg.log('get_billed_recovery - End Date : '||p_calc_period_end_date);
1547: pnp_debug_pkg.log('get_billed_recovery - Calc Period Id : '||p_rec_calc_period_id);
1548:
1549: l_billed_recovery := PN_REC_CALC_PKG.get_billed_recovery(
1542: agr_lines_record.type);
1543: pnp_debug_pkg.log('get_billed_recovery - Lease id : '||p_lease_id);
1544: pnp_debug_pkg.log('get_billed_recovery - Location id : '||p_location_id); -- 110403
1545: pnp_debug_pkg.log('get_billed_recovery - Start Date : '||p_calc_period_start_date);
1546: pnp_debug_pkg.log('get_billed_recovery - End Date : '||p_calc_period_end_date);
1547: pnp_debug_pkg.log('get_billed_recovery - Calc Period Id : '||p_rec_calc_period_id);
1548:
1549: l_billed_recovery := PN_REC_CALC_PKG.get_billed_recovery(
1550: p_payment_purpose => agr_lines_record.purpose
1543: pnp_debug_pkg.log('get_billed_recovery - Lease id : '||p_lease_id);
1544: pnp_debug_pkg.log('get_billed_recovery - Location id : '||p_location_id); -- 110403
1545: pnp_debug_pkg.log('get_billed_recovery - Start Date : '||p_calc_period_start_date);
1546: pnp_debug_pkg.log('get_billed_recovery - End Date : '||p_calc_period_end_date);
1547: pnp_debug_pkg.log('get_billed_recovery - Calc Period Id : '||p_rec_calc_period_id);
1548:
1549: l_billed_recovery := PN_REC_CALC_PKG.get_billed_recovery(
1550: p_payment_purpose => agr_lines_record.purpose
1551: ,p_payment_type => agr_lines_record.type
1566: p_error_code := 0;
1567:
1568: END IF;
1569:
1570: pnp_debug_pkg.log('Billed Recovery :'||l_billed_recovery);
1571:
1572: END IF;
1573:
1574: pnp_debug_pkg.log('Error Code 21 : '||p_error_code);
1570: pnp_debug_pkg.log('Billed Recovery :'||l_billed_recovery);
1571:
1572: END IF;
1573:
1574: pnp_debug_pkg.log('Error Code 21 : '||p_error_code);
1575: IF p_error_code <> -99 THEN
1576:
1577: line_constr_tbl := PN_REC_CALC_PKG.get_line_constraints(
1578: p_rec_agr_line_id => agr_lines_record.rec_agr_line_id ,
1593: END IF;
1594:
1595: END IF;
1596:
1597: pnp_debug_pkg.log('After getting constraints error code:'||p_error_code);
1598: pnp_debug_pkg.log('Error Code 22 : '||p_error_code);
1599: IF p_error_code <> -99 THEN
1600:
1601: l_prior_period_amount := PN_REC_CALC_PKG.get_prior_period_actual_amount(
1594:
1595: END IF;
1596:
1597: pnp_debug_pkg.log('After getting constraints error code:'||p_error_code);
1598: pnp_debug_pkg.log('Error Code 22 : '||p_error_code);
1599: IF p_error_code <> -99 THEN
1600:
1601: l_prior_period_amount := PN_REC_CALC_PKG.get_prior_period_actual_amount(
1602: p_rec_agr_line_id => agr_lines_record.rec_agr_line_id
1619: END IF;
1620:
1621: END IF;
1622:
1623: pnp_debug_pkg.log('Error Code 23 : '||p_error_code);
1624: IF p_error_code <> -99 THEN
1625:
1626: l_prior_period_cap := PN_REC_CALC_PKG.get_prior_period_cap(
1627: p_rec_agr_line_id => agr_lines_record.rec_agr_line_id
1645: END IF;
1646:
1647: END IF;
1648:
1649: pnp_debug_pkg.log('Error Code 24 : '||p_error_code);
1650: IF p_error_code <> -99 THEN
1651:
1652: l_line_abatements := PN_REC_CALC_PKG.get_line_abatements(
1653: p_rec_agr_line_id => agr_lines_record.rec_agr_line_id
1666: p_error_code := 0;
1667:
1668: END IF;
1669:
1670: pnp_debug_pkg.log('Abatements :'||l_line_abatements);
1671:
1672: END IF;
1673:
1674:
1671:
1672: END IF;
1673:
1674:
1675: pnp_debug_pkg.log('Error Code 25 : '||p_error_code);
1676: IF p_error_code <> -99 THEN
1677:
1678: /* Now apply the constraints on the actual recovery */
1679:
1726: and line_constr_tbl(l_count).relation = 'MIN') THEN
1727:
1728: l_rate_amt_exists := TRUE;
1729:
1730: pnp_debug_pkg.log('Min Rate Cons - amt per sqft : '||l_amount_per_sft);
1731: pnp_debug_pkg.log('Min Rate Cons - Cons. value : '||line_constr_tbl(l_count).value);
1732: l_rate_amt_exists := TRUE;
1733:
1734: IF l_amount_per_sft < line_constr_tbl(l_count).value THEN
1727:
1728: l_rate_amt_exists := TRUE;
1729:
1730: pnp_debug_pkg.log('Min Rate Cons - amt per sqft : '||l_amount_per_sft);
1731: pnp_debug_pkg.log('Min Rate Cons - Cons. value : '||line_constr_tbl(l_count).value);
1732: l_rate_amt_exists := TRUE;
1733:
1734: IF l_amount_per_sft < line_constr_tbl(l_count).value THEN
1735: l_constrained_actual :=
1752: and line_constr_tbl(l_count).relation = 'MAX') THEN
1753:
1754: l_rate_amt_exists := TRUE;
1755:
1756: pnp_debug_pkg.log('Max Rate Cons - amt per sqft : '||l_amount_per_sft);
1757: pnp_debug_pkg.log('Max Rate Cons - Cons. value : '||line_constr_tbl(l_count).value);
1758:
1759: IF l_amount_per_sft > line_constr_tbl(l_count).value THEN
1760: l_constrained_actual :=
1753:
1754: l_rate_amt_exists := TRUE;
1755:
1756: pnp_debug_pkg.log('Max Rate Cons - amt per sqft : '||l_amount_per_sft);
1757: pnp_debug_pkg.log('Max Rate Cons - Cons. value : '||line_constr_tbl(l_count).value);
1758:
1759: IF l_amount_per_sft > line_constr_tbl(l_count).value THEN
1760: l_constrained_actual :=
1761: (line_constr_tbl(l_count).value * agr_lines_record.multiple_pct/100) *
1775: END IF;
1776: END LOOP;
1777: END IF;
1778:
1779: pnp_debug_pkg.log('Constrained Actual after min/max cons : '||l_constrained_actual);
1780: pnp_debug_pkg.log('Constrained Budget after min/max cons : '||l_constrained_budget);
1781:
1782: /* If rate or amount type of constraints do not exists only then
1783: apply the %age over prior year amount or %age over prior year
1776: END LOOP;
1777: END IF;
1778:
1779: pnp_debug_pkg.log('Constrained Actual after min/max cons : '||l_constrained_actual);
1780: pnp_debug_pkg.log('Constrained Budget after min/max cons : '||l_constrained_budget);
1781:
1782: /* If rate or amount type of constraints do not exists only then
1783: apply the %age over prior year amount or %age over prior year
1784: cap constraint */
1782: /* If rate or amount type of constraints do not exists only then
1783: apply the %age over prior year amount or %age over prior year
1784: cap constraint */
1785:
1786: pnp_debug_pkg.log('Error Code 26 : '||p_error_code);
1787: IF p_error_code <> -99 AND not l_rate_amt_exists THEN
1788:
1789: /* verify that both %age over prior year amount or %age over prior year
1790: cap type of constraints DO NOT exist */
1813:
1814: IF l_opya_exists and l_opyc_exists THEN
1815:
1816: fnd_message.set_name ('PN','PN_RECALC_CAP_EXT');
1817: pnp_debug_pkg.put_log_msg(fnd_message.get);
1818:
1819: p_error := 'Both cumulative and non-cumulative caps exists.';
1820: p_error_code := -99;
1821:
1833: IF (line_constr_tbl(l_count).scope = 'OPYA'
1834: and line_constr_tbl(l_count).relation = 'MAX')
1835: and l_prior_period_amount <> -1 THEN
1836:
1837: pnp_debug_pkg.log('Prior Period Amount :'||l_prior_period_amount);
1838: pnp_debug_pkg.log('OPYA - Actual Recovery :'||l_ten_actual_recovery);
1839: pnp_debug_pkg.log('OPYA - Budget Recovery :'||l_budget_recovery);
1840:
1841: IF l_ten_actual_recovery <
1834: and line_constr_tbl(l_count).relation = 'MAX')
1835: and l_prior_period_amount <> -1 THEN
1836:
1837: pnp_debug_pkg.log('Prior Period Amount :'||l_prior_period_amount);
1838: pnp_debug_pkg.log('OPYA - Actual Recovery :'||l_ten_actual_recovery);
1839: pnp_debug_pkg.log('OPYA - Budget Recovery :'||l_budget_recovery);
1840:
1841: IF l_ten_actual_recovery <
1842: ((line_constr_tbl(l_count).value*l_prior_period_amount/100)+
1835: and l_prior_period_amount <> -1 THEN
1836:
1837: pnp_debug_pkg.log('Prior Period Amount :'||l_prior_period_amount);
1838: pnp_debug_pkg.log('OPYA - Actual Recovery :'||l_ten_actual_recovery);
1839: pnp_debug_pkg.log('OPYA - Budget Recovery :'||l_budget_recovery);
1840:
1841: IF l_ten_actual_recovery <
1842: ((line_constr_tbl(l_count).value*l_prior_period_amount/100)+
1843: l_prior_period_amount) THEN
1869: ELSIF (line_constr_tbl(l_count).scope = 'OPYC'
1870: and line_constr_tbl(l_count).relation = 'MAX')
1871: and l_prior_period_cap <> -1 THEN
1872:
1873: pnp_debug_pkg.log('Prior Period Cap :'||l_prior_period_cap);
1874: pnp_debug_pkg.log('OPYC - Actual Recovery :'||l_ten_actual_recovery);
1875: pnp_debug_pkg.log('OPYC - Budget Recovery :'||l_budget_recovery);
1876:
1877: IF l_ten_actual_recovery < l_prior_period_cap THEN
1870: and line_constr_tbl(l_count).relation = 'MAX')
1871: and l_prior_period_cap <> -1 THEN
1872:
1873: pnp_debug_pkg.log('Prior Period Cap :'||l_prior_period_cap);
1874: pnp_debug_pkg.log('OPYC - Actual Recovery :'||l_ten_actual_recovery);
1875: pnp_debug_pkg.log('OPYC - Budget Recovery :'||l_budget_recovery);
1876:
1877: IF l_ten_actual_recovery < l_prior_period_cap THEN
1878:
1871: and l_prior_period_cap <> -1 THEN
1872:
1873: pnp_debug_pkg.log('Prior Period Cap :'||l_prior_period_cap);
1874: pnp_debug_pkg.log('OPYC - Actual Recovery :'||l_ten_actual_recovery);
1875: pnp_debug_pkg.log('OPYC - Budget Recovery :'||l_budget_recovery);
1876:
1877: IF l_ten_actual_recovery < l_prior_period_cap THEN
1878:
1879: l_constrained_actual := l_ten_actual_recovery;
1897: END IF;
1898:
1899: END LOOP;
1900:
1901: pnp_debug_pkg.log('Constrained Actual :'||l_constrained_actual);
1902: pnp_debug_pkg.log('Constrained Budget :'||l_constrained_budget);
1903:
1904: END IF;
1905:
1898:
1899: END LOOP;
1900:
1901: pnp_debug_pkg.log('Constrained Actual :'||l_constrained_actual);
1902: pnp_debug_pkg.log('Constrained Budget :'||l_constrained_budget);
1903:
1904: END IF;
1905:
1906: END IF;
1904: END IF;
1905:
1906: END IF;
1907:
1908: pnp_debug_pkg.log('Error Code 27 : '||p_error_code);
1909:
1910: IF p_error_code <> -99 THEN
1911:
1912: /* Apply abatements to actual */
1920: l_actual_prorata_share := 0;
1921:
1922: END IF;
1923:
1924: pnp_debug_pkg.log('Actual Prorata Share :'||l_actual_prorata_share);
1925:
1926: /* Apply abatements to Budget */
1927:
1928: IF nvl(l_constrained_budget,0) > nvl(l_line_abatements,0) THEN
1934: l_budget_prorata_share := 0;
1935:
1936: END IF;
1937:
1938: pnp_debug_pkg.log('Budget Prorata Share :'||l_budget_prorata_share);
1939:
1940: /* Apply Billed Recovery to actual */
1941:
1942: IF nvl(l_actual_prorata_share,0) > nvl(l_billed_recovery,0) THEN
1958: END IF;
1959:
1960: END IF;
1961:
1962: pnp_debug_pkg.log('Reconciled Amount :'||l_reconciled_amount);
1963:
1964: END IF;
1965:
1966: pnp_debug_pkg.log('Error Code 28 : '||p_error_code);
1962: pnp_debug_pkg.log('Reconciled Amount :'||l_reconciled_amount);
1963:
1964: END IF;
1965:
1966: pnp_debug_pkg.log('Error Code 28 : '||p_error_code);
1967: IF p_error_code <> -99 THEN
1968:
1969: /* Check if recovery amount has already been calculated for the period start and
1970: end dates and the as of date.If it has not, then insert a new record into the
1986: p_error_code := 0;
1987:
1988: END IF;
1989:
1990: pnp_debug_pkg.log('Recovery period line id :'||l_rec_period_lines_id);
1991:
1992: END IF;
1993:
1994: pnp_debug_pkg.log('Error Code 29 : '||p_error_code);
1990: pnp_debug_pkg.log('Recovery period line id :'||l_rec_period_lines_id);
1991:
1992: END IF;
1993:
1994: pnp_debug_pkg.log('Error Code 29 : '||p_error_code);
1995: IF p_error_code <> -99 and l_rec_period_lines_id IS NULL THEN
1996:
1997: pnp_debug_pkg.log('Inserting into PN_REC_PERIOD_LINES_ALL ');
1998:
1993:
1994: pnp_debug_pkg.log('Error Code 29 : '||p_error_code);
1995: IF p_error_code <> -99 and l_rec_period_lines_id IS NULL THEN
1996:
1997: pnp_debug_pkg.log('Inserting into PN_REC_PERIOD_LINES_ALL ');
1998:
1999: IF p_error_code = -99 THEN
2000: l_status := 'Error';
2001: ELSE
2052:
2053: END IF;
2054:
2055: ELSIF p_error_code <> -99 AND l_rec_period_lines_id is not null THEN
2056: pnp_debug_pkg.log('Error Code 30 : '||p_error_code);
2057:
2058: pnp_debug_pkg.log('Updating PN_REC_PERIOD_LINES_ALL ');
2059:
2060: IF p_error_code = -99 THEN
2054:
2055: ELSIF p_error_code <> -99 AND l_rec_period_lines_id is not null THEN
2056: pnp_debug_pkg.log('Error Code 30 : '||p_error_code);
2057:
2058: pnp_debug_pkg.log('Updating PN_REC_PERIOD_LINES_ALL ');
2059:
2060: IF p_error_code = -99 THEN
2061: l_status := 'Error';
2062: ELSE
2120: END IF;
2121:
2122: END LOOP;
2123:
2124: pnp_debug_pkg.put_log_msg(' ');
2125: pnp_debug_pkg.put_log_msg('===============================================================================');
2126:
2127: fnd_message.set_name ('PN','PN_RECALC_LINE_PROC');
2128: fnd_message.set_token ('NUM', l_total_lines);
2121:
2122: END LOOP;
2123:
2124: pnp_debug_pkg.put_log_msg(' ');
2125: pnp_debug_pkg.put_log_msg('===============================================================================');
2126:
2127: fnd_message.set_name ('PN','PN_RECALC_LINE_PROC');
2128: fnd_message.set_token ('NUM', l_total_lines);
2129: pnp_debug_pkg.put_log_msg(fnd_message.get);
2125: pnp_debug_pkg.put_log_msg('===============================================================================');
2126:
2127: fnd_message.set_name ('PN','PN_RECALC_LINE_PROC');
2128: fnd_message.set_token ('NUM', l_total_lines);
2129: pnp_debug_pkg.put_log_msg(fnd_message.get);
2130:
2131: fnd_message.set_name ('PN','PN_RECALC_LINE_SUC');
2132: fnd_message.set_token ('NUM', l_success_lines);
2133: pnp_debug_pkg.put_log_msg(fnd_message.get);
2129: pnp_debug_pkg.put_log_msg(fnd_message.get);
2130:
2131: fnd_message.set_name ('PN','PN_RECALC_LINE_SUC');
2132: fnd_message.set_token ('NUM', l_success_lines);
2133: pnp_debug_pkg.put_log_msg(fnd_message.get);
2134:
2135: fnd_message.set_name ('PN','PN_RECALC_LINE_FAIL');
2136: fnd_message.set_token ('NUM', l_error_lines);
2137: pnp_debug_pkg.put_log_msg(fnd_message.get);
2133: pnp_debug_pkg.put_log_msg(fnd_message.get);
2134:
2135: fnd_message.set_name ('PN','PN_RECALC_LINE_FAIL');
2136: fnd_message.set_token ('NUM', l_error_lines);
2137: pnp_debug_pkg.put_log_msg(fnd_message.get);
2138:
2139: pnp_debug_pkg.put_log_msg('===============================================================================');
2140:
2141: IF agr_lines_all%ISOPEN THEN
2135: fnd_message.set_name ('PN','PN_RECALC_LINE_FAIL');
2136: fnd_message.set_token ('NUM', l_error_lines);
2137: pnp_debug_pkg.put_log_msg(fnd_message.get);
2138:
2139: pnp_debug_pkg.put_log_msg('===============================================================================');
2140:
2141: IF agr_lines_all%ISOPEN THEN
2142: CLOSE agr_lines_all;
2143: ELSIF agr_lines_one%ISOPEN THEN
2171:
2172: END IF;
2173:
2174:
2175: pnp_debug_pkg.log('Consolidate Terms - Yes/No :'||l_consolidate);
2176:
2177: IF l_consolidate = 'Y' and
2178: (l_open_exists = 'Y' OR l_no_prd_line = 'Y') THEN
2179:
2177: IF l_consolidate = 'Y' and
2178: (l_open_exists = 'Y' OR l_no_prd_line = 'Y') THEN
2179:
2180: fnd_message.set_name ('PN','PN_RECALC_LN_INCOM');
2181: pnp_debug_pkg.put_log_msg(fnd_message.get);
2182:
2183: fnd_message.set_name ('PN','PN_RECALC_BT_NOT_CRTD');
2184: pnp_debug_pkg.put_log_msg(fnd_message.get);
2185:
2180: fnd_message.set_name ('PN','PN_RECALC_LN_INCOM');
2181: pnp_debug_pkg.put_log_msg(fnd_message.get);
2182:
2183: fnd_message.set_name ('PN','PN_RECALC_BT_NOT_CRTD');
2184: pnp_debug_pkg.put_log_msg(fnd_message.get);
2185:
2186: p_error := 'Calculation not successful for all lines';
2187: p_error_code := -99;
2188:
2188:
2189: ELSIF (l_consolidate = 'Y' and (l_open_exists = 'N' AND l_no_prd_line = 'N')) OR
2190: (l_consolidate = 'N') THEN
2191:
2192: pnp_debug_pkg.log('Creating Term(s).....');
2193:
2194: pnp_debug_pkg.log('Consolidate Terms - Yes/No :'||l_consolidate);
2195:
2196: IF l_calculate_all AND l_consolidate = 'Y' THEN
2190: (l_consolidate = 'N') THEN
2191:
2192: pnp_debug_pkg.log('Creating Term(s).....');
2193:
2194: pnp_debug_pkg.log('Consolidate Terms - Yes/No :'||l_consolidate);
2195:
2196: IF l_calculate_all AND l_consolidate = 'Y' THEN
2197:
2198: /* get the sum of reconciled amount for all the lines for the
2197:
2198: /* get the sum of reconciled amount for all the lines for the
2199: recovery agreement */
2200:
2201: pnp_debug_pkg.log('Opening cursor for Calculate All and Consolidate Terms');
2202: pnp_debug_pkg.log('Agreement Id '|| p_rec_agreement_id);
2203:
2204: OPEN calc_all_cons;
2205:
2198: /* get the sum of reconciled amount for all the lines for the
2199: recovery agreement */
2200:
2201: pnp_debug_pkg.log('Opening cursor for Calculate All and Consolidate Terms');
2202: pnp_debug_pkg.log('Agreement Id '|| p_rec_agreement_id);
2203:
2204: OPEN calc_all_cons;
2205:
2206: ELSIF l_calculate_all AND l_consolidate = 'N' THEN
2207:
2208: /* get the reconciled amounts for all the lines of the agreement for which
2209: calculation has been successfully */
2210:
2211: pnp_debug_pkg.log('Opening cursor for Calculate All and no consolidation');
2212: pnp_debug_pkg.log('Agreement Id '|| p_rec_agreement_id);
2213:
2214: OPEN calc_all_no_cons;
2215:
2208: /* get the reconciled amounts for all the lines of the agreement for which
2209: calculation has been successfully */
2210:
2211: pnp_debug_pkg.log('Opening cursor for Calculate All and no consolidation');
2212: pnp_debug_pkg.log('Agreement Id '|| p_rec_agreement_id);
2213:
2214: OPEN calc_all_no_cons;
2215:
2216: ELSIF not l_calculate_all AND l_consolidate = 'Y' THEN
2217:
2218: /* get the sum of reconciled amount for all the lines for the
2219: recovery agreement of the line passed to the routine */
2220:
2221: pnp_debug_pkg.log('Opening cursor for Calculate and Consolidate Terms');
2222: pnp_debug_pkg.log('Agreement Id '|| p_rec_agreement_id);
2223:
2224: OPEN calc_all_cons;
2225:
2218: /* get the sum of reconciled amount for all the lines for the
2219: recovery agreement of the line passed to the routine */
2220:
2221: pnp_debug_pkg.log('Opening cursor for Calculate and Consolidate Terms');
2222: pnp_debug_pkg.log('Agreement Id '|| p_rec_agreement_id);
2223:
2224: OPEN calc_all_cons;
2225:
2226: ELSIF not l_calculate_all AND l_consolidate = 'N' THEN
2227:
2228: /* get the reconciled amount for the lines which was passed to the calculate
2229: routine and for which the calculation has been successful */
2230:
2231: pnp_debug_pkg.log('Opening cursor for Calculate and no consolidation');
2232: pnp_debug_pkg.log('Agreement Line Id '|| p_rec_agr_line_id);
2233: OPEN calc_no_cons;
2234:
2235: END IF;
2228: /* get the reconciled amount for the lines which was passed to the calculate
2229: routine and for which the calculation has been successful */
2230:
2231: pnp_debug_pkg.log('Opening cursor for Calculate and no consolidation');
2232: pnp_debug_pkg.log('Agreement Line Id '|| p_rec_agr_line_id);
2233: OPEN calc_no_cons;
2234:
2235: END IF;
2236:
2279: END IF;
2280:
2281: END IF;
2282:
2283: pnp_debug_pkg.log('Line Id :'||l_rec_agr_line_id);
2284: pnp_debug_pkg.log('Term start Date :'||l_end_date);
2285: pnp_debug_pkg.log(' Lease Id :'||p_lease_id);
2286: pnp_debug_pkg.log(' Reconciled Amount:'||l_reconciled_amount);
2287: pnp_debug_pkg.log('Calc Period Id :'||p_rec_calc_period_id);
2280:
2281: END IF;
2282:
2283: pnp_debug_pkg.log('Line Id :'||l_rec_agr_line_id);
2284: pnp_debug_pkg.log('Term start Date :'||l_end_date);
2285: pnp_debug_pkg.log(' Lease Id :'||p_lease_id);
2286: pnp_debug_pkg.log(' Reconciled Amount:'||l_reconciled_amount);
2287: pnp_debug_pkg.log('Calc Period Id :'||p_rec_calc_period_id);
2288: pnp_debug_pkg.log('Calc Period End date :'||l_end_date);
2281: END IF;
2282:
2283: pnp_debug_pkg.log('Line Id :'||l_rec_agr_line_id);
2284: pnp_debug_pkg.log('Term start Date :'||l_end_date);
2285: pnp_debug_pkg.log(' Lease Id :'||p_lease_id);
2286: pnp_debug_pkg.log(' Reconciled Amount:'||l_reconciled_amount);
2287: pnp_debug_pkg.log('Calc Period Id :'||p_rec_calc_period_id);
2288: pnp_debug_pkg.log('Calc Period End date :'||l_end_date);
2289: pnp_debug_pkg.log('Agreement Id :'||p_rec_agreement_id);
2282:
2283: pnp_debug_pkg.log('Line Id :'||l_rec_agr_line_id);
2284: pnp_debug_pkg.log('Term start Date :'||l_end_date);
2285: pnp_debug_pkg.log(' Lease Id :'||p_lease_id);
2286: pnp_debug_pkg.log(' Reconciled Amount:'||l_reconciled_amount);
2287: pnp_debug_pkg.log('Calc Period Id :'||p_rec_calc_period_id);
2288: pnp_debug_pkg.log('Calc Period End date :'||l_end_date);
2289: pnp_debug_pkg.log('Agreement Id :'||p_rec_agreement_id);
2290: pnp_debug_pkg.log('Location Id :'||p_location_id);
2283: pnp_debug_pkg.log('Line Id :'||l_rec_agr_line_id);
2284: pnp_debug_pkg.log('Term start Date :'||l_end_date);
2285: pnp_debug_pkg.log(' Lease Id :'||p_lease_id);
2286: pnp_debug_pkg.log(' Reconciled Amount:'||l_reconciled_amount);
2287: pnp_debug_pkg.log('Calc Period Id :'||p_rec_calc_period_id);
2288: pnp_debug_pkg.log('Calc Period End date :'||l_end_date);
2289: pnp_debug_pkg.log('Agreement Id :'||p_rec_agreement_id);
2290: pnp_debug_pkg.log('Location Id :'||p_location_id);
2291: pnp_debug_pkg.log('Billing Type :'||l_billing_type);
2284: pnp_debug_pkg.log('Term start Date :'||l_end_date);
2285: pnp_debug_pkg.log(' Lease Id :'||p_lease_id);
2286: pnp_debug_pkg.log(' Reconciled Amount:'||l_reconciled_amount);
2287: pnp_debug_pkg.log('Calc Period Id :'||p_rec_calc_period_id);
2288: pnp_debug_pkg.log('Calc Period End date :'||l_end_date);
2289: pnp_debug_pkg.log('Agreement Id :'||p_rec_agreement_id);
2290: pnp_debug_pkg.log('Location Id :'||p_location_id);
2291: pnp_debug_pkg.log('Billing Type :'||l_billing_type);
2292: pnp_debug_pkg.log('Billing Purpose :'||l_billing_purpose);
2285: pnp_debug_pkg.log(' Lease Id :'||p_lease_id);
2286: pnp_debug_pkg.log(' Reconciled Amount:'||l_reconciled_amount);
2287: pnp_debug_pkg.log('Calc Period Id :'||p_rec_calc_period_id);
2288: pnp_debug_pkg.log('Calc Period End date :'||l_end_date);
2289: pnp_debug_pkg.log('Agreement Id :'||p_rec_agreement_id);
2290: pnp_debug_pkg.log('Location Id :'||p_location_id);
2291: pnp_debug_pkg.log('Billing Type :'||l_billing_type);
2292: pnp_debug_pkg.log('Billing Purpose :'||l_billing_purpose);
2293:
2286: pnp_debug_pkg.log(' Reconciled Amount:'||l_reconciled_amount);
2287: pnp_debug_pkg.log('Calc Period Id :'||p_rec_calc_period_id);
2288: pnp_debug_pkg.log('Calc Period End date :'||l_end_date);
2289: pnp_debug_pkg.log('Agreement Id :'||p_rec_agreement_id);
2290: pnp_debug_pkg.log('Location Id :'||p_location_id);
2291: pnp_debug_pkg.log('Billing Type :'||l_billing_type);
2292: pnp_debug_pkg.log('Billing Purpose :'||l_billing_purpose);
2293:
2294: IF l_rec_agr_line_id is null THEN
2287: pnp_debug_pkg.log('Calc Period Id :'||p_rec_calc_period_id);
2288: pnp_debug_pkg.log('Calc Period End date :'||l_end_date);
2289: pnp_debug_pkg.log('Agreement Id :'||p_rec_agreement_id);
2290: pnp_debug_pkg.log('Location Id :'||p_location_id);
2291: pnp_debug_pkg.log('Billing Type :'||l_billing_type);
2292: pnp_debug_pkg.log('Billing Purpose :'||l_billing_purpose);
2293:
2294: IF l_rec_agr_line_id is null THEN
2295: l_rec_agr_line_id := -1;
2288: pnp_debug_pkg.log('Calc Period End date :'||l_end_date);
2289: pnp_debug_pkg.log('Agreement Id :'||p_rec_agreement_id);
2290: pnp_debug_pkg.log('Location Id :'||p_location_id);
2291: pnp_debug_pkg.log('Billing Type :'||l_billing_type);
2292: pnp_debug_pkg.log('Billing Purpose :'||l_billing_purpose);
2293:
2294: IF l_rec_agr_line_id is null THEN
2295: l_rec_agr_line_id := -1;
2296: pnp_debug_pkg.log('Set Line Id to -1');
2292: pnp_debug_pkg.log('Billing Purpose :'||l_billing_purpose);
2293:
2294: IF l_rec_agr_line_id is null THEN
2295: l_rec_agr_line_id := -1;
2296: pnp_debug_pkg.log('Set Line Id to -1');
2297: END IF;
2298:
2299: pnp_debug_pkg.log('Before calling PN_REC_CALC_PKG.create_payment_terms '|| p_error_code);
2300: p_error_code := 0; --Initialize p_error_code Fix for bug#9091777
2295: l_rec_agr_line_id := -1;
2296: pnp_debug_pkg.log('Set Line Id to -1');
2297: END IF;
2298:
2299: pnp_debug_pkg.log('Before calling PN_REC_CALC_PKG.create_payment_terms '|| p_error_code);
2300: p_error_code := 0; --Initialize p_error_code Fix for bug#9091777
2301:
2302: PN_REC_CALC_PKG.create_payment_terms(
2303: p_lease_id => p_lease_id
2316: ,p_consolidate => l_consolidate
2317: ,p_error => p_error
2318: ,p_error_code => p_error_code
2319: );
2320: pnp_debug_pkg.log('After calling PN_REC_CALC_PKG.create_payment_terms '|| p_error_code);
2321:
2322: IF p_error_code = -99 THEN
2323: IF l_consolidate = 'Y' AND l_calculate_all THEN
2324: pnp_debug_pkg.log('Rolling Back Lines for l_consolidate = Y and l_calculate_all');
2320: pnp_debug_pkg.log('After calling PN_REC_CALC_PKG.create_payment_terms '|| p_error_code);
2321:
2322: IF p_error_code = -99 THEN
2323: IF l_consolidate = 'Y' AND l_calculate_all THEN
2324: pnp_debug_pkg.log('Rolling Back Lines for l_consolidate = Y and l_calculate_all');
2325:
2326: ROLLBACK;
2327: UPDATE pn_rec_period_lines_all
2328: SET STATUS = 'Error'
2334: AND rec_calc_period_id = p_rec_calc_period_id;
2335: COMMIT;
2336:
2337: ELSE
2338: pnp_debug_pkg.log('Rolling Back Lines for Else Part of l_consolidate = Y and l_calculate_all');
2339: ROLLBACK;
2340: UPDATE pn_rec_period_lines_all
2341: SET STATUS = 'Error'
2342: WHERE rec_agr_line_id = l_rec_agr_line_id
2356: END LOOP;
2357:
2358: END IF;
2359:
2360: pnp_debug_pkg.log('PN_REC_CALC_PKG.CALCULATE_REC_AMOUNT (-) ');
2361:
2362: EXCEPTION
2363:
2364: When OTHERS Then
2361:
2362: EXCEPTION
2363:
2364: When OTHERS Then
2365: pnp_debug_pkg.log('PN_REC_CALC_PKG.CALCULATE_REC_AMOUNT '|| to_char(sqlcode));
2366:
2367: END CALCULATE_REC_AMOUNT;
2368:
2369: /*===========================================================================+
2405: l_recoverable_area pn_rec_period_lines_all.recoverable_area%TYPE;
2406:
2407: BEGIN
2408:
2409: pnp_debug_pkg.log('PN_REC_CALC_PKG.get_recoverable_area (+) ');
2410:
2411: SELECT NVL(plines.recoverable_area,0)
2412: INTO l_recoverable_area
2413: FROM pn_rec_period_lines_all plines
2414: WHERE plines.rec_agr_line_id = p_rec_agr_line_id
2415: AND plines.rec_calc_period_id = p_rec_calc_period_id
2416: ;
2417:
2418: pnp_debug_pkg.log('PN_REC_CALC_PKG.get_recoverable_area (-) ');
2419:
2420: RETURN l_recoverable_area;
2421:
2422:
2424:
2425: WHEN OTHERS
2426: THEN
2427: fnd_message.set_name ('PN','PN_RECALB_TNT_AR');
2428: pnp_debug_pkg.put_log_msg(fnd_message.get||' '||to_char(sqlcode));
2429: RETURN -99;
2430:
2431:
2432: END get_recoverable_area;
2515: AND area_class_dtl_lines.location_id = p_location_id
2516: ;
2517: BEGIN
2518:
2519: pnp_debug_pkg.log('PN_REC_CALC_PKG.get_tot_prop_area (+) ');
2520:
2521: l_context := 'getting area type';
2522:
2523: open c_area;
2530: if c_area%NotFound then
2531: l_tot_prop_area := -99;
2532: close c_area;
2533: fnd_message.set_name ('PN','PN_RECALB_AR_NF');
2534: pnp_debug_pkg.put_log_msg(fnd_message.get);
2535: RETURN l_tot_prop_area;
2536: end if;
2537:
2538: l_context := 'getting contributors';
2536: end if;
2537:
2538: l_context := 'getting contributors';
2539:
2540: pnp_debug_pkg.log('9579092 l_area_class_dtl_id ' ||l_area_class_dtl_id);
2541: SELECT NVL(SUM(ASSIGNABLE_AREA),0),
2542: NVL(SUM(NVL(occupied_area_ovr, occupied_area)),0),
2543: NVL(SUM (NVL( WEIGHTED_AVG_OVR, WEIGHTED_AVG)),0)
2544: INTO
2580: l_greater_area := l_net_wgt_avg_area;
2581: end if;
2582: l_tot_prop_area := l_greater_area;
2583:
2584: pnp_debug_pkg.log('PN_REC_CALC_PKG.get_tot_prop_area (-) ');
2585:
2586: RETURN l_tot_prop_area;
2587:
2588: EXCEPTION
2587:
2588: EXCEPTION
2589:
2590: WHEN OTHERS THEN
2591: pnp_debug_pkg.log(substrb('Error in get_tot_prop_area - '|| l_context,1,244));
2592: pnp_debug_pkg.log('Error in get_tot_prop_area - '|| to_char(sqlcode));
2593: RETURN -99;
2594:
2595:
2588: EXCEPTION
2589:
2590: WHEN OTHERS THEN
2591: pnp_debug_pkg.log(substrb('Error in get_tot_prop_area - '|| l_context,1,244));
2592: pnp_debug_pkg.log('Error in get_tot_prop_area - '|| to_char(sqlcode));
2593: RETURN -99;
2594:
2595:
2596: END get_tot_prop_area;
2639: l_ten_recoverable_area_rec ten_recoverable_area_rec;
2640:
2641: BEGIN
2642:
2643: pnp_debug_pkg.log('PN_REC_CALC_PKG.ten_recoverable_area (+) ');
2644:
2645: SELECT nvl(area_class_dtl_lines.occupied_area_ovr, area_class_dtl_lines.occupied_area)
2646: ,occupancy_pct
2647: INTO l_ten_recoverable_area_rec
2662: AND area_class_dtl_lines.location_id = p_location_id
2663: AND area_class_dtl_lines.include_flag = 'Y'
2664: ;
2665:
2666: pnp_debug_pkg.log('PN_REC_CALC_PKG.ten_recoverable_area (-) ');
2667:
2668: RETURN l_ten_recoverable_area_rec;
2669:
2670: EXCEPTION
2671:
2672: WHEN OTHERS
2673: THEN
2674:
2675: pnp_debug_pkg.log('Error while getting tenant occupied area ' || to_char(sqlcode));
2676: l_ten_recoverable_area_rec.occupied_area := -99;
2677: l_ten_recoverable_area_rec.occupancy_pct := -99;
2678: RETURN l_ten_recoverable_area_rec;
2679:
2785: l_line_type pn_rec_agr_lines_all.TYPE%TYPE;
2786:
2787: BEGIN
2788:
2789: pnp_debug_pkg.log('PN_REC_CALC_PKG.get_contr_actual_recovery (+) ');
2790:
2791: -- Fix for bug # 3123283
2792: OPEN csr_get_line;
2793: FETCH csr_get_line into l_line_purpose, l_line_type;
2807:
2808: OPEN chk_contr_calculated(l_line_purpose, l_line_type); -- Fix for bug # 3123283
2809: FETCH chk_contr_calculated into l_exists;
2810: IF chk_contr_calculated%FOUND and l_exists = 'Y' THEN
2811: pnp_debug_pkg.log('Calculation has not been done for one of the contributors ');
2812: close chk_contr_calculated;
2813: IF p_called_from = 'CALCUI' THEN
2814: return 0;
2815: ELSE
2859: AND area_class_dtl_lines.include_flag = 'Y'
2860: AND area_class_dtl_lines.exclude_prorata_ovr_flag = 'Y'
2861: );
2862:
2863: pnp_debug_pkg.log('get_contr_actual_recovery contributor exp ' ||
2864: to_char(l_contr_actual_recovery));
2865:
2866: IF p_called_from = 'CALCUI'AND l_contr_actual_recovery = 0 THEN
2867: RETURN 0;
2874: WHEN OTHERS
2875: THEN
2876:
2877: fnd_message.set_name ('PN','PN_RECALC_CAL_NOT_CONTRB');
2878: pnp_debug_pkg.put_log_msg(fnd_message.get);
2879: pnp_debug_pkg.put_log_msg(TO_CHAR(sqlcode));
2880: IF p_called_from = 'CALCUI' THEN
2881: RETURN 0;
2882: ELSE
2875: THEN
2876:
2877: fnd_message.set_name ('PN','PN_RECALC_CAL_NOT_CONTRB');
2878: pnp_debug_pkg.put_log_msg(fnd_message.get);
2879: pnp_debug_pkg.put_log_msg(TO_CHAR(sqlcode));
2880: IF p_called_from = 'CALCUI' THEN
2881: RETURN 0;
2882: ELSE
2883: RETURN -99;
2882: ELSE
2883: RETURN -99;
2884: END IF;
2885:
2886: pnp_debug_pkg.log('PN_REC_CALC_PKG.get_contr_actual_recovery (-) ');
2887:
2888: END get_contr_actual_recovery;
2889:
2890: /*===========================================================================+
2941: l_expense_type_count Number := 0;
2942:
2943: BEGIN
2944:
2945: pnp_debug_pkg.log('PN_REC_CALC_PKG.get_line_expenses (+) ');
2946:
2947: --Added expense_class_id in the Select clause which will be used to check expense types
2948: SELECT distinct nvl(exp_detail_line.computed_recoverable_amt,0),
2949: nvl(exp_detail_line.cls_line_fee_before_contr_ovr,0),
2974: INTO l_expense_type_count
2975: FROM PN_REC_EXPCL_TYPE_ALL
2976: WHERE expense_class_id = l_expense_class_id;
2977:
2978: pnp_debug_pkg.log('Expense_class_id '|| l_expense_class_id);
2979: pnp_debug_pkg.log('Expense types count '|| l_expense_type_count);
2980:
2981: IF (l_expense_type_count > 1) THEN
2982: SELECT distinct nvl(exp_detail_acc.computed_recoverable_amt,0),
2975: FROM PN_REC_EXPCL_TYPE_ALL
2976: WHERE expense_class_id = l_expense_class_id;
2977:
2978: pnp_debug_pkg.log('Expense_class_id '|| l_expense_class_id);
2979: pnp_debug_pkg.log('Expense types count '|| l_expense_type_count);
2980:
2981: IF (l_expense_type_count > 1) THEN
2982: SELECT distinct nvl(exp_detail_acc.computed_recoverable_amt,0),
2983: nvl(exp_detail_acc.cls_line_dtl_fee_bf_contr_ovr,0),
3009: END IF;
3010:
3011: -- Fix for bug#9269643 End
3012:
3013: pnp_debug_pkg.log('computed_recoverable_amt '|| l_line_expenses);
3014: pnp_debug_pkg.log('cls_line_dtl_fee_bf_contr_ovr '|| l_fee_before);
3015: pnp_debug_pkg.log('cls_line_fee_after_contr '|| l_fee_after);
3016:
3017: p_recoverable_amt := l_line_expenses;
3010:
3011: -- Fix for bug#9269643 End
3012:
3013: pnp_debug_pkg.log('computed_recoverable_amt '|| l_line_expenses);
3014: pnp_debug_pkg.log('cls_line_dtl_fee_bf_contr_ovr '|| l_fee_before);
3015: pnp_debug_pkg.log('cls_line_fee_after_contr '|| l_fee_after);
3016:
3017: p_recoverable_amt := l_line_expenses;
3018: p_fee_before_contr := l_fee_before;
3011: -- Fix for bug#9269643 End
3012:
3013: pnp_debug_pkg.log('computed_recoverable_amt '|| l_line_expenses);
3014: pnp_debug_pkg.log('cls_line_dtl_fee_bf_contr_ovr '|| l_fee_before);
3015: pnp_debug_pkg.log('cls_line_fee_after_contr '|| l_fee_after);
3016:
3017: p_recoverable_amt := l_line_expenses;
3018: p_fee_before_contr := l_fee_before;
3019: p_fee_after_contr := l_fee_after;
3030: p_error := 'Error getting line expenses' || to_char(sqlcode);
3031: p_error_code := -99;
3032:
3033: fnd_message.set_name ('PN','PN_RECALB_LNEXP_NF');
3034: pnp_debug_pkg.put_log_msg(fnd_message.get||' '|| to_char(sqlcode));
3035:
3036: pnp_debug_pkg.log('PN_REC_CALC_PKG.get_line_expenses (-) ');
3037:
3038: END get_line_expenses;
3032:
3033: fnd_message.set_name ('PN','PN_RECALB_LNEXP_NF');
3034: pnp_debug_pkg.put_log_msg(fnd_message.get||' '|| to_char(sqlcode));
3035:
3036: pnp_debug_pkg.log('PN_REC_CALC_PKG.get_line_expenses (-) ');
3037:
3038: END get_line_expenses;
3039:
3040: /*===========================================================================+
3083: l_budget_expenses pn_rec_expcl_dtlln_all.budgeted_amt%TYPE;
3084:
3085: BEGIN
3086:
3087: pnp_debug_pkg.log('PN_REC_CALC_PKG.get_budget_expenses (+) ');
3088: pnp_debug_pkg.log('Agr line ID: '||p_rec_agr_line_id);
3089: pnp_debug_pkg.log('Cust ID: '||p_customer_id);
3090: pnp_debug_pkg.log('lease ID: '||p_lease_id);
3091: pnp_debug_pkg.log('Location ID: '||p_location_id);
3084:
3085: BEGIN
3086:
3087: pnp_debug_pkg.log('PN_REC_CALC_PKG.get_budget_expenses (+) ');
3088: pnp_debug_pkg.log('Agr line ID: '||p_rec_agr_line_id);
3089: pnp_debug_pkg.log('Cust ID: '||p_customer_id);
3090: pnp_debug_pkg.log('lease ID: '||p_lease_id);
3091: pnp_debug_pkg.log('Location ID: '||p_location_id);
3092: pnp_debug_pkg.log('Start Date : '||p_calc_period_start_date);
3085: BEGIN
3086:
3087: pnp_debug_pkg.log('PN_REC_CALC_PKG.get_budget_expenses (+) ');
3088: pnp_debug_pkg.log('Agr line ID: '||p_rec_agr_line_id);
3089: pnp_debug_pkg.log('Cust ID: '||p_customer_id);
3090: pnp_debug_pkg.log('lease ID: '||p_lease_id);
3091: pnp_debug_pkg.log('Location ID: '||p_location_id);
3092: pnp_debug_pkg.log('Start Date : '||p_calc_period_start_date);
3093: pnp_debug_pkg.log('End Date : ' ||p_calc_period_end_date);
3086:
3087: pnp_debug_pkg.log('PN_REC_CALC_PKG.get_budget_expenses (+) ');
3088: pnp_debug_pkg.log('Agr line ID: '||p_rec_agr_line_id);
3089: pnp_debug_pkg.log('Cust ID: '||p_customer_id);
3090: pnp_debug_pkg.log('lease ID: '||p_lease_id);
3091: pnp_debug_pkg.log('Location ID: '||p_location_id);
3092: pnp_debug_pkg.log('Start Date : '||p_calc_period_start_date);
3093: pnp_debug_pkg.log('End Date : ' ||p_calc_period_end_date);
3094: pnp_debug_pkg.log('As of Date : '||p_calc_period_as_of_date);
3087: pnp_debug_pkg.log('PN_REC_CALC_PKG.get_budget_expenses (+) ');
3088: pnp_debug_pkg.log('Agr line ID: '||p_rec_agr_line_id);
3089: pnp_debug_pkg.log('Cust ID: '||p_customer_id);
3090: pnp_debug_pkg.log('lease ID: '||p_lease_id);
3091: pnp_debug_pkg.log('Location ID: '||p_location_id);
3092: pnp_debug_pkg.log('Start Date : '||p_calc_period_start_date);
3093: pnp_debug_pkg.log('End Date : ' ||p_calc_period_end_date);
3094: pnp_debug_pkg.log('As of Date : '||p_calc_period_as_of_date);
3095:
3088: pnp_debug_pkg.log('Agr line ID: '||p_rec_agr_line_id);
3089: pnp_debug_pkg.log('Cust ID: '||p_customer_id);
3090: pnp_debug_pkg.log('lease ID: '||p_lease_id);
3091: pnp_debug_pkg.log('Location ID: '||p_location_id);
3092: pnp_debug_pkg.log('Start Date : '||p_calc_period_start_date);
3093: pnp_debug_pkg.log('End Date : ' ||p_calc_period_end_date);
3094: pnp_debug_pkg.log('As of Date : '||p_calc_period_as_of_date);
3095:
3096:
3089: pnp_debug_pkg.log('Cust ID: '||p_customer_id);
3090: pnp_debug_pkg.log('lease ID: '||p_lease_id);
3091: pnp_debug_pkg.log('Location ID: '||p_location_id);
3092: pnp_debug_pkg.log('Start Date : '||p_calc_period_start_date);
3093: pnp_debug_pkg.log('End Date : ' ||p_calc_period_end_date);
3094: pnp_debug_pkg.log('As of Date : '||p_calc_period_as_of_date);
3095:
3096:
3097:
3090: pnp_debug_pkg.log('lease ID: '||p_lease_id);
3091: pnp_debug_pkg.log('Location ID: '||p_location_id);
3092: pnp_debug_pkg.log('Start Date : '||p_calc_period_start_date);
3093: pnp_debug_pkg.log('End Date : ' ||p_calc_period_end_date);
3094: pnp_debug_pkg.log('As of Date : '||p_calc_period_as_of_date);
3095:
3096:
3097:
3098: SELECT NVL(
3126: AND p_calc_period_as_of_date between lineexp.start_date AND lineexp.end_date
3127: AND lineexp.rec_agr_line_id = p_rec_agr_line_id
3128: AND expcl_lndtl_alloc.expense_class_line_id = exp_detail_line.expense_class_line_id
3129: ;
3130: pnp_debug_pkg.log('Cal exp: '||l_budget_expenses);
3131: RETURN l_budget_expenses;
3132:
3133: EXCEPTION
3134:
3134:
3135: WHEN OTHERS
3136: THEN
3137: fnd_message.set_name ('PN','PN_RECALB_BDEXP_NF');
3138: pnp_debug_pkg.put_log_msg(fnd_message.get||' '|| to_char(sqlcode));
3139:
3140: RETURN -99;
3141:
3142: pnp_debug_pkg.log('PN_REC_CALC_PKG.get_budget_expenses (-) ');
3138: pnp_debug_pkg.put_log_msg(fnd_message.get||' '|| to_char(sqlcode));
3139:
3140: RETURN -99;
3141:
3142: pnp_debug_pkg.log('PN_REC_CALC_PKG.get_budget_expenses (-) ');
3143:
3144: END get_budget_expenses;
3145:
3146: /*===========================================================================+
3200: );
3201:
3202: BEGIN
3203:
3204: pnp_debug_pkg.log('PN_REC_CALC_PKG.billed_recovery (+) ');
3205:
3206:
3207: SELECT nvl(SUM(pitem.actual_amount),0)
3208: INTO l_billed_recovery
3234:
3235: WHEN OTHERS
3236: THEN
3237: fnd_message.set_name ('PN','PN_RECALB_BLREC_NF');
3238: pnp_debug_pkg.put_log_msg(fnd_message.get||' '|| to_char(sqlcode));
3239: RETURN -99;
3240:
3241: pnp_debug_pkg.log('PN_REC_CALC_PKG.get_billed_recovery (-) ');
3242:
3237: fnd_message.set_name ('PN','PN_RECALB_BLREC_NF');
3238: pnp_debug_pkg.put_log_msg(fnd_message.get||' '|| to_char(sqlcode));
3239: RETURN -99;
3240:
3241: pnp_debug_pkg.log('PN_REC_CALC_PKG.get_billed_recovery (-) ');
3242:
3243: END get_billed_recovery;
3244:
3245: /*===========================================================================+
3296: i NUMBER :=0;
3297:
3298: BEGIN
3299:
3300: pnp_debug_pkg.log('PN_REC_CALC_PKG.line_constraints (+) ');
3301: pnp_debug_pkg.log('PN_REC_CALC_PKG.line_constraints -line id'|| p_rec_agr_line_id);
3302: pnp_debug_pkg.log('PN_REC_CALC_PKG.line_constraints -as of date '|| to_char(p_as_of_date));
3303:
3304: FOR line_constr_rec in get_line_constr_csr
3297:
3298: BEGIN
3299:
3300: pnp_debug_pkg.log('PN_REC_CALC_PKG.line_constraints (+) ');
3301: pnp_debug_pkg.log('PN_REC_CALC_PKG.line_constraints -line id'|| p_rec_agr_line_id);
3302: pnp_debug_pkg.log('PN_REC_CALC_PKG.line_constraints -as of date '|| to_char(p_as_of_date));
3303:
3304: FOR line_constr_rec in get_line_constr_csr
3305:
3298: BEGIN
3299:
3300: pnp_debug_pkg.log('PN_REC_CALC_PKG.line_constraints (+) ');
3301: pnp_debug_pkg.log('PN_REC_CALC_PKG.line_constraints -line id'|| p_rec_agr_line_id);
3302: pnp_debug_pkg.log('PN_REC_CALC_PKG.line_constraints -as of date '|| to_char(p_as_of_date));
3303:
3304: FOR line_constr_rec in get_line_constr_csr
3305:
3306: LOOP
3315: line_constr_tbl(i).base_year := line_constr_rec.base_year;
3316:
3317: END LOOP;
3318:
3319: pnp_debug_pkg.log('PN_REC_CALC_PKG.get_line_constraints (-) ');
3320: RETURN line_constr_tbl;
3321:
3322: EXCEPTION
3323:
3323:
3324: WHEN OTHERS
3325: THEN
3326: fnd_message.set_name ('PN','PN_RECALB_CONST_NF');
3327: pnp_debug_pkg.put_log_msg(fnd_message.get||' '|| to_char(sqlcode));
3328:
3329: line_constr_tbl(1).constr_order := -99;
3330: line_constr_tbl(1).scope := null;
3331: line_constr_tbl(1).relation := null;
3388: OPEN csr_get_abate;
3389: FETCH csr_get_abate into l_line_abatements;
3390: CLOSE csr_get_abate;
3391:
3392: pnp_debug_pkg.log('PN_REC_CALC_PKG.line_abatements (+) ');
3393:
3394:
3395: RETURN l_line_abatements;
3396:
3398:
3399: WHEN OTHERS THEN
3400:
3401: fnd_message.set_name ('PN','PN_RECALB_ABAT_NF');
3402: pnp_debug_pkg.put_log_msg(fnd_message.get||' '|| to_char(sqlcode));
3403:
3404: RETURN -99;
3405:
3406: pnp_debug_pkg.log('PN_REC_CALC_PKG.get_line_abatements (-) ');
3402: pnp_debug_pkg.put_log_msg(fnd_message.get||' '|| to_char(sqlcode));
3403:
3404: RETURN -99;
3405:
3406: pnp_debug_pkg.log('PN_REC_CALC_PKG.get_line_abatements (-) ');
3407:
3408: END get_line_abatements;
3409:
3410: /*===========================================================================+
3445: l_rec_period_lines_id pn_rec_period_lines_all.rec_period_lines_id%TYPE;
3446:
3447: BEGIN
3448:
3449: PNP_DEBUG_PKG.log ('PN_REC_CALC_PKG.find_if_period_line_exists (+)');
3450:
3451: OPEN csr_chck_exist;
3452: FETCH csr_chck_exist INTO l_rec_period_lines_id;
3453: IF csr_chck_exist%NOTFOUND THEN
3454: l_rec_period_lines_id := null;
3455: END IF;
3456: CLOSE csr_chck_exist;
3457:
3458: PNP_DEBUG_PKG.debug ('PN_VAR_RENT_PKG.find_if_period_line_exists (-)');
3459:
3460: RETURN l_rec_period_lines_id;
3461:
3462: EXCEPTION
3464: WHEN TOO_MANY_ROWS
3465: THEN
3466:
3467: fnd_message.set_name ('PN','PN_RECALB_PRDLN');
3468: pnp_debug_pkg.put_log_msg(fnd_message.get||' '||to_char(sqlcode));
3469: return -99;
3470:
3471: WHEN OTHERS
3472: THEN
3470:
3471: WHEN OTHERS
3472: THEN
3473: fnd_message.set_name ('PN','PN_RECALB_CHK_PRDLN');
3474: pnp_debug_pkg.put_log_msg(fnd_message.get||' '||to_char(sqlcode));
3475: RETURN -99;
3476:
3477:
3478: END find_if_period_line_exists;
3554: l_org_ID NUMBER;
3555:
3556: BEGIN
3557:
3558: PNP_DEBUG_PKG.log ('PN_REC_CALC_PKG.INSERT_PERIOD_LINES_ROW (+)');
3559:
3560: -------------------------------------------------------
3561: -- Select the nextval for group date id
3562: -------------------------------------------------------
3659: raise no_data_found;
3660: end if;
3661: close c;
3662:
3663: PNP_DEBUG_PKG.log ('PN_REC_CALC_PKG.INSERT_PERIOD_LINES_ROW (-)');
3664:
3665: EXCEPTION
3666: WHEN OTHERS THEN
3667:
3665: EXCEPTION
3666: WHEN OTHERS THEN
3667:
3668: X_ERROR_CODE := -99;
3669: PNP_DEBUG_PKG.log ('Error inserting into period lines'|| to_char(sqlcode));
3670:
3671: end INSERT_PERIOD_LINES_ROW;
3672:
3673: /*===========================================================================+
3732: ) is
3733:
3734: BEGIN
3735:
3736: PNP_DEBUG_PKG.log ('PN_REC_CALC_PKG.UPDATE_PERIOD_LINES_ROW (+)');
3737:
3738: update PN_REC_PERIOD_LINES_ALL set
3739: BUDGET_PCT = X_BUDGET_PCT
3740: ,OCCUPANCY_PCT = X_OCCUPANCY_PCT
3774: if (sql%notfound) then
3775: raise no_data_found;
3776: end if;
3777:
3778: PNP_DEBUG_PKG.log ('PN_REC_CALC_PKG.UPDATE_PERIOD_LINES_ROW (-)');
3779:
3780: EXCEPTION
3781: WHEN OTHERS THEN
3782:
3780: EXCEPTION
3781: WHEN OTHERS THEN
3782:
3783: X_ERROR_CODE := -99;
3784: PNP_DEBUG_PKG.log ('Error updating into period lines'|| to_char(sqlcode));
3785:
3786: end UPDATE_PERIOD_LINES_ROW;
3787:
3788: /*===========================================================================+
3814: ) is
3815:
3816: BEGIN
3817:
3818: PNP_DEBUG_PKG.log ('PN_REC_CALC_PKG.DELETE_PERIOD_LINES_ROW (+)');
3819:
3820: delete from PN_REC_PERIOD_LINES_ALL
3821: where REC_PERIOD_LINES_ID = X_REC_PERIOD_LINES_ID;
3822:
3823: if (sql%notfound) then
3824: raise no_data_found;
3825: end if;
3826:
3827: PNP_DEBUG_PKG.log ('PN_REC_CALC_PKG.DELETE_PERIOD_LINES_ROW (-)');
3828:
3829: end DELETE_PERIOD_LINES_ROW;
3830:
3831: /*===========================================================================+
3876: l_org_ID NUMBER;
3877:
3878: BEGIN
3879:
3880: PNP_DEBUG_PKG.log ('PN_REC_CALC_PKG.INSERT_PERIOD_BILLREC_ROW (+)');
3881:
3882: -------------------------------------------------------
3883: -- Select the nextval for PERIOD_BILLREC_ID
3884: -------------------------------------------------------
3930: RAISE NO_DATA_FOUND;
3931: END IF;
3932: CLOSE C;
3933:
3934: PNP_DEBUG_PKG.log ('PN_REC_CALC_PKG.INSERT_PERIOD_BILLREC_ROW (-)');
3935:
3936: END INSERT_PERIOD_BILLREC_ROW;
3937:
3938: /*===========================================================================+
3970: ) is
3971:
3972: BEGIN
3973:
3974: PNP_DEBUG_PKG.log ('PN_REC_CALC_PKG.UPDATE_PERIOD_BILLREC_ROW (+)');
3975:
3976: update PN_REC_PERIOD_BILL_ALL set
3977: REC_AGR_LINE_ID = X_REC_AGR_LINE_ID
3978: ,REC_AGREEMENT_ID = X_REC_AGREEMENT_ID
3988: if (sql%notfound) then
3989: raise no_data_found;
3990: end if;
3991:
3992: PNP_DEBUG_PKG.log ('PN_REC_CALC_PKG.UPDATE_PERIOD_BILLREC_ROW (-)');
3993:
3994: end UPDATE_PERIOD_BILLREC_ROW;
3995:
3996: /*===========================================================================+
4021: ) is
4022:
4023: BEGIN
4024:
4025: PNP_DEBUG_PKG.log ('PN_REC_CALC_PKG.DELETE_PERIOD_BILLREC_ROW (+)');
4026:
4027: delete from PN_REC_PERIOD_BILL_ALL
4028: where PERIOD_BILLREC_ID = X_PERIOD_BILLREC_ID;
4029:
4030: if (sql%notfound) then
4031: raise no_data_found;
4032: end if;
4033:
4034: PNP_DEBUG_PKG.log ('PN_REC_CALC_PKG.DELETE_PERIOD_BILLREC_ROW (-)');
4035:
4036: end DELETE_PERIOD_BILLREC_ROW;
4037:
4038: /*===========================================================================+
4177:
4178:
4179: BEGIN
4180:
4181: pnp_debug_pkg.log ('PN_REC_CALC_PKG.create_payment_terms : (+)');
4182:
4183: IF p_org_id IS NULL THEN
4184: FOR rec IN org_cur LOOP
4185: l_org_id := rec.org_id;
4201: AND pld.lease_id = p_lease_id;
4202:
4203: EXCEPTION
4204: WHEN OTHERS THEN
4205: pnp_debug_pkg.log ('Unable to get Lease Details :'||
4206: to_char(SQLCODE));
4207: p_error := 'Unable to get Lease Details';
4208: p_error_code := -99;
4209: return;
4211: END;
4212:
4213: IF p_error_code <> -99 THEN
4214:
4215: pnp_debug_pkg.log ('create_payment_terms - Org id :'||l_org_id);
4216:
4217: l_context := 'Getting SOB ';
4218:
4219: l_set_of_books_id := TO_NUMBER(pn_mo_cache_utils.get_profile_value('PN_SET_OF_BOOKS_ID', l_org_id));
4216:
4217: l_context := 'Getting SOB ';
4218:
4219: l_set_of_books_id := TO_NUMBER(pn_mo_cache_utils.get_profile_value('PN_SET_OF_BOOKS_ID', l_org_id));
4220: pnp_debug_pkg.log ('create_payment_terms - Set of books id :'||l_set_of_books_id);
4221:
4222: /*E-Tax lazy upgrade for Term Template*/
4223:
4224: IF l_is_r12 THEN
4228:
4229: IF csr_template_upg%FOUND THEN
4230:
4231: l_dummy := pn_r12_util_pkg.check_tax_upgrade(rec_template.term_template_id);
4232: pnp_debug_pkg.log('Term Template '||rec_template.name||' upgraded');
4233: template_name_tbl(NVL(template_name_tbl.LAST,0)+1) := rec_template.name;
4234: template_id_tbl(NVL(template_id_tbl.LAST,0)+1) := rec_template.term_template_id;
4235:
4236: END IF;
4256: CLOSE csr_lease_term;
4257:
4258: ELSE
4259:
4260: pnp_debug_pkg.log ('With Consolidation Option a term template is needed');
4261: p_error := 'Unable to get Lease Details';
4262: p_error_code := -99;
4263: CLOSE csr_template;
4264: return;
4339: l_period_billrec_id := l_period_bill_record.period_billrec_id;
4340:
4341: END IF;
4342:
4343: pnp_debug_pkg.log ('create_payment_terms - approved amount '|| l_payment_amount);
4344: pnp_debug_pkg.log ('create_payment_terms - period_billrec_id '|| l_period_billrec_id);
4345: IF p_error_code <> -99 and l_period_billrec_id IS NOT NULL THEN
4346:
4347: l_payment_amount := p_payment_amount - l_payment_amount;
4340:
4341: END IF;
4342:
4343: pnp_debug_pkg.log ('create_payment_terms - approved amount '|| l_payment_amount);
4344: pnp_debug_pkg.log ('create_payment_terms - period_billrec_id '|| l_period_billrec_id);
4345: IF p_error_code <> -99 and l_period_billrec_id IS NOT NULL THEN
4346:
4347: l_payment_amount := p_payment_amount - l_payment_amount;
4348:
4363: l_payment_amount := p_payment_amount;
4364:
4365: l_context := 'Inserting period_billrec ';
4366:
4367: pnp_debug_pkg.log ('insert_period_billrec_row - agr id :'||p_rec_agreement_id);
4368: pnp_debug_pkg.log ('insert_period_billrec_row - p_rec_agr_line_id :'||p_rec_agr_line_id);
4369: pnp_debug_pkg.log ('insert_period_billrec_row - p_rec_calc_period_id :'||p_rec_calc_period_id);
4370: pnp_debug_pkg.log ('insert_period_billrec_row - amount :'||l_payment_amount);
4371: PN_REC_CALC_PKG.insert_period_billrec_row (
4364:
4365: l_context := 'Inserting period_billrec ';
4366:
4367: pnp_debug_pkg.log ('insert_period_billrec_row - agr id :'||p_rec_agreement_id);
4368: pnp_debug_pkg.log ('insert_period_billrec_row - p_rec_agr_line_id :'||p_rec_agr_line_id);
4369: pnp_debug_pkg.log ('insert_period_billrec_row - p_rec_calc_period_id :'||p_rec_calc_period_id);
4370: pnp_debug_pkg.log ('insert_period_billrec_row - amount :'||l_payment_amount);
4371: PN_REC_CALC_PKG.insert_period_billrec_row (
4372: X_ROWID => l_rowId
4365: l_context := 'Inserting period_billrec ';
4366:
4367: pnp_debug_pkg.log ('insert_period_billrec_row - agr id :'||p_rec_agreement_id);
4368: pnp_debug_pkg.log ('insert_period_billrec_row - p_rec_agr_line_id :'||p_rec_agr_line_id);
4369: pnp_debug_pkg.log ('insert_period_billrec_row - p_rec_calc_period_id :'||p_rec_calc_period_id);
4370: pnp_debug_pkg.log ('insert_period_billrec_row - amount :'||l_payment_amount);
4371: PN_REC_CALC_PKG.insert_period_billrec_row (
4372: X_ROWID => l_rowId
4373: ,X_PERIOD_BILLREC_ID => l_period_billrec_id
4366:
4367: pnp_debug_pkg.log ('insert_period_billrec_row - agr id :'||p_rec_agreement_id);
4368: pnp_debug_pkg.log ('insert_period_billrec_row - p_rec_agr_line_id :'||p_rec_agr_line_id);
4369: pnp_debug_pkg.log ('insert_period_billrec_row - p_rec_calc_period_id :'||p_rec_calc_period_id);
4370: pnp_debug_pkg.log ('insert_period_billrec_row - amount :'||l_payment_amount);
4371: PN_REC_CALC_PKG.insert_period_billrec_row (
4372: X_ROWID => l_rowId
4373: ,X_PERIOD_BILLREC_ID => l_period_billrec_id
4374: ,X_REC_AGREEMENT_ID => p_rec_agreement_id
4394: l_rec_agr_line_id := p_rec_agr_line_id;
4395:
4396: END IF;
4397:
4398: pnp_debug_pkg.log ('create_payment_terms - l_payment_amount :'||l_payment_amount);
4399: pnp_debug_pkg.log ('create_payment_terms - Row Id :'||l_rowid);
4400: pnp_debug_pkg.log ('create_payment_terms - l_payment_amount :'||l_payment_amount);
4401: pnp_debug_pkg.log ('create_payment_terms - Payment Term Id :'||l_payment_term_id);
4402: pnp_debug_pkg.log ('create_payment_terms - Billing Purpose :'||p_billing_purpose);
4395:
4396: END IF;
4397:
4398: pnp_debug_pkg.log ('create_payment_terms - l_payment_amount :'||l_payment_amount);
4399: pnp_debug_pkg.log ('create_payment_terms - Row Id :'||l_rowid);
4400: pnp_debug_pkg.log ('create_payment_terms - l_payment_amount :'||l_payment_amount);
4401: pnp_debug_pkg.log ('create_payment_terms - Payment Term Id :'||l_payment_term_id);
4402: pnp_debug_pkg.log ('create_payment_terms - Billing Purpose :'||p_billing_purpose);
4403: pnp_debug_pkg.log ('create_payment_terms - Billing Type :'||p_billing_Type);
4396: END IF;
4397:
4398: pnp_debug_pkg.log ('create_payment_terms - l_payment_amount :'||l_payment_amount);
4399: pnp_debug_pkg.log ('create_payment_terms - Row Id :'||l_rowid);
4400: pnp_debug_pkg.log ('create_payment_terms - l_payment_amount :'||l_payment_amount);
4401: pnp_debug_pkg.log ('create_payment_terms - Payment Term Id :'||l_payment_term_id);
4402: pnp_debug_pkg.log ('create_payment_terms - Billing Purpose :'||p_billing_purpose);
4403: pnp_debug_pkg.log ('create_payment_terms - Billing Type :'||p_billing_Type);
4404: pnp_debug_pkg.log ('create_payment_terms - Frequency Code :'||l_frequency);
4397:
4398: pnp_debug_pkg.log ('create_payment_terms - l_payment_amount :'||l_payment_amount);
4399: pnp_debug_pkg.log ('create_payment_terms - Row Id :'||l_rowid);
4400: pnp_debug_pkg.log ('create_payment_terms - l_payment_amount :'||l_payment_amount);
4401: pnp_debug_pkg.log ('create_payment_terms - Payment Term Id :'||l_payment_term_id);
4402: pnp_debug_pkg.log ('create_payment_terms - Billing Purpose :'||p_billing_purpose);
4403: pnp_debug_pkg.log ('create_payment_terms - Billing Type :'||p_billing_Type);
4404: pnp_debug_pkg.log ('create_payment_terms - Frequency Code :'||l_frequency);
4405: pnp_debug_pkg.log ('create_payment_terms - Lease Id :'||p_lease_id);
4398: pnp_debug_pkg.log ('create_payment_terms - l_payment_amount :'||l_payment_amount);
4399: pnp_debug_pkg.log ('create_payment_terms - Row Id :'||l_rowid);
4400: pnp_debug_pkg.log ('create_payment_terms - l_payment_amount :'||l_payment_amount);
4401: pnp_debug_pkg.log ('create_payment_terms - Payment Term Id :'||l_payment_term_id);
4402: pnp_debug_pkg.log ('create_payment_terms - Billing Purpose :'||p_billing_purpose);
4403: pnp_debug_pkg.log ('create_payment_terms - Billing Type :'||p_billing_Type);
4404: pnp_debug_pkg.log ('create_payment_terms - Frequency Code :'||l_frequency);
4405: pnp_debug_pkg.log ('create_payment_terms - Lease Id :'||p_lease_id);
4406: pnp_debug_pkg.log ('create_payment_terms - Lease change Id :'||l_lease_change_id);
4399: pnp_debug_pkg.log ('create_payment_terms - Row Id :'||l_rowid);
4400: pnp_debug_pkg.log ('create_payment_terms - l_payment_amount :'||l_payment_amount);
4401: pnp_debug_pkg.log ('create_payment_terms - Payment Term Id :'||l_payment_term_id);
4402: pnp_debug_pkg.log ('create_payment_terms - Billing Purpose :'||p_billing_purpose);
4403: pnp_debug_pkg.log ('create_payment_terms - Billing Type :'||p_billing_Type);
4404: pnp_debug_pkg.log ('create_payment_terms - Frequency Code :'||l_frequency);
4405: pnp_debug_pkg.log ('create_payment_terms - Lease Id :'||p_lease_id);
4406: pnp_debug_pkg.log ('create_payment_terms - Lease change Id :'||l_lease_change_id);
4407: pnp_debug_pkg.log ('create_payment_terms - Start Date :'||p_calc_period_end_date);
4400: pnp_debug_pkg.log ('create_payment_terms - l_payment_amount :'||l_payment_amount);
4401: pnp_debug_pkg.log ('create_payment_terms - Payment Term Id :'||l_payment_term_id);
4402: pnp_debug_pkg.log ('create_payment_terms - Billing Purpose :'||p_billing_purpose);
4403: pnp_debug_pkg.log ('create_payment_terms - Billing Type :'||p_billing_Type);
4404: pnp_debug_pkg.log ('create_payment_terms - Frequency Code :'||l_frequency);
4405: pnp_debug_pkg.log ('create_payment_terms - Lease Id :'||p_lease_id);
4406: pnp_debug_pkg.log ('create_payment_terms - Lease change Id :'||l_lease_change_id);
4407: pnp_debug_pkg.log ('create_payment_terms - Start Date :'||p_calc_period_end_date);
4408: pnp_debug_pkg.log ('create_payment_terms - End Date :'||p_calc_period_end_date);
4401: pnp_debug_pkg.log ('create_payment_terms - Payment Term Id :'||l_payment_term_id);
4402: pnp_debug_pkg.log ('create_payment_terms - Billing Purpose :'||p_billing_purpose);
4403: pnp_debug_pkg.log ('create_payment_terms - Billing Type :'||p_billing_Type);
4404: pnp_debug_pkg.log ('create_payment_terms - Frequency Code :'||l_frequency);
4405: pnp_debug_pkg.log ('create_payment_terms - Lease Id :'||p_lease_id);
4406: pnp_debug_pkg.log ('create_payment_terms - Lease change Id :'||l_lease_change_id);
4407: pnp_debug_pkg.log ('create_payment_terms - Start Date :'||p_calc_period_end_date);
4408: pnp_debug_pkg.log ('create_payment_terms - End Date :'||p_calc_period_end_date);
4409: pnp_debug_pkg.log ('create_payment_terms - SOB :'||rec_template.set_of_books_id);
4402: pnp_debug_pkg.log ('create_payment_terms - Billing Purpose :'||p_billing_purpose);
4403: pnp_debug_pkg.log ('create_payment_terms - Billing Type :'||p_billing_Type);
4404: pnp_debug_pkg.log ('create_payment_terms - Frequency Code :'||l_frequency);
4405: pnp_debug_pkg.log ('create_payment_terms - Lease Id :'||p_lease_id);
4406: pnp_debug_pkg.log ('create_payment_terms - Lease change Id :'||l_lease_change_id);
4407: pnp_debug_pkg.log ('create_payment_terms - Start Date :'||p_calc_period_end_date);
4408: pnp_debug_pkg.log ('create_payment_terms - End Date :'||p_calc_period_end_date);
4409: pnp_debug_pkg.log ('create_payment_terms - SOB :'||rec_template.set_of_books_id);
4410: pnp_debug_pkg.log ('create_payment_terms - SOB :'||l_set_of_books_id);
4403: pnp_debug_pkg.log ('create_payment_terms - Billing Type :'||p_billing_Type);
4404: pnp_debug_pkg.log ('create_payment_terms - Frequency Code :'||l_frequency);
4405: pnp_debug_pkg.log ('create_payment_terms - Lease Id :'||p_lease_id);
4406: pnp_debug_pkg.log ('create_payment_terms - Lease change Id :'||l_lease_change_id);
4407: pnp_debug_pkg.log ('create_payment_terms - Start Date :'||p_calc_period_end_date);
4408: pnp_debug_pkg.log ('create_payment_terms - End Date :'||p_calc_period_end_date);
4409: pnp_debug_pkg.log ('create_payment_terms - SOB :'||rec_template.set_of_books_id);
4410: pnp_debug_pkg.log ('create_payment_terms - SOB :'||l_set_of_books_id);
4411: pnp_debug_pkg.log ('create_payment_terms - Currency Code :'||g_currency_code);
4404: pnp_debug_pkg.log ('create_payment_terms - Frequency Code :'||l_frequency);
4405: pnp_debug_pkg.log ('create_payment_terms - Lease Id :'||p_lease_id);
4406: pnp_debug_pkg.log ('create_payment_terms - Lease change Id :'||l_lease_change_id);
4407: pnp_debug_pkg.log ('create_payment_terms - Start Date :'||p_calc_period_end_date);
4408: pnp_debug_pkg.log ('create_payment_terms - End Date :'||p_calc_period_end_date);
4409: pnp_debug_pkg.log ('create_payment_terms - SOB :'||rec_template.set_of_books_id);
4410: pnp_debug_pkg.log ('create_payment_terms - SOB :'||l_set_of_books_id);
4411: pnp_debug_pkg.log ('create_payment_terms - Currency Code :'||g_currency_code);
4412: pnp_debug_pkg.log ('create_payment_terms - Vendor Id :'||rec_template.vendor_id);
4405: pnp_debug_pkg.log ('create_payment_terms - Lease Id :'||p_lease_id);
4406: pnp_debug_pkg.log ('create_payment_terms - Lease change Id :'||l_lease_change_id);
4407: pnp_debug_pkg.log ('create_payment_terms - Start Date :'||p_calc_period_end_date);
4408: pnp_debug_pkg.log ('create_payment_terms - End Date :'||p_calc_period_end_date);
4409: pnp_debug_pkg.log ('create_payment_terms - SOB :'||rec_template.set_of_books_id);
4410: pnp_debug_pkg.log ('create_payment_terms - SOB :'||l_set_of_books_id);
4411: pnp_debug_pkg.log ('create_payment_terms - Currency Code :'||g_currency_code);
4412: pnp_debug_pkg.log ('create_payment_terms - Vendor Id :'||rec_template.vendor_id);
4413: pnp_debug_pkg.log ('create_payment_terms - Vendor Site Id :'||rec_template.vendor_site_id);
4406: pnp_debug_pkg.log ('create_payment_terms - Lease change Id :'||l_lease_change_id);
4407: pnp_debug_pkg.log ('create_payment_terms - Start Date :'||p_calc_period_end_date);
4408: pnp_debug_pkg.log ('create_payment_terms - End Date :'||p_calc_period_end_date);
4409: pnp_debug_pkg.log ('create_payment_terms - SOB :'||rec_template.set_of_books_id);
4410: pnp_debug_pkg.log ('create_payment_terms - SOB :'||l_set_of_books_id);
4411: pnp_debug_pkg.log ('create_payment_terms - Currency Code :'||g_currency_code);
4412: pnp_debug_pkg.log ('create_payment_terms - Vendor Id :'||rec_template.vendor_id);
4413: pnp_debug_pkg.log ('create_payment_terms - Vendor Site Id :'||rec_template.vendor_site_id);
4414: pnp_debug_pkg.log ('create_payment_terms - Actual Amount :'||l_payment_amount);
4407: pnp_debug_pkg.log ('create_payment_terms - Start Date :'||p_calc_period_end_date);
4408: pnp_debug_pkg.log ('create_payment_terms - End Date :'||p_calc_period_end_date);
4409: pnp_debug_pkg.log ('create_payment_terms - SOB :'||rec_template.set_of_books_id);
4410: pnp_debug_pkg.log ('create_payment_terms - SOB :'||l_set_of_books_id);
4411: pnp_debug_pkg.log ('create_payment_terms - Currency Code :'||g_currency_code);
4412: pnp_debug_pkg.log ('create_payment_terms - Vendor Id :'||rec_template.vendor_id);
4413: pnp_debug_pkg.log ('create_payment_terms - Vendor Site Id :'||rec_template.vendor_site_id);
4414: pnp_debug_pkg.log ('create_payment_terms - Actual Amount :'||l_payment_amount);
4415: pnp_debug_pkg.log ('create_payment_terms - Customer Site Use :'||rec_template.customer_site_use_id);
4408: pnp_debug_pkg.log ('create_payment_terms - End Date :'||p_calc_period_end_date);
4409: pnp_debug_pkg.log ('create_payment_terms - SOB :'||rec_template.set_of_books_id);
4410: pnp_debug_pkg.log ('create_payment_terms - SOB :'||l_set_of_books_id);
4411: pnp_debug_pkg.log ('create_payment_terms - Currency Code :'||g_currency_code);
4412: pnp_debug_pkg.log ('create_payment_terms - Vendor Id :'||rec_template.vendor_id);
4413: pnp_debug_pkg.log ('create_payment_terms - Vendor Site Id :'||rec_template.vendor_site_id);
4414: pnp_debug_pkg.log ('create_payment_terms - Actual Amount :'||l_payment_amount);
4415: pnp_debug_pkg.log ('create_payment_terms - Customer Site Use :'||rec_template.customer_site_use_id);
4416: pnp_debug_pkg.log ('create_payment_terms - Location :'||p_location_id);
4409: pnp_debug_pkg.log ('create_payment_terms - SOB :'||rec_template.set_of_books_id);
4410: pnp_debug_pkg.log ('create_payment_terms - SOB :'||l_set_of_books_id);
4411: pnp_debug_pkg.log ('create_payment_terms - Currency Code :'||g_currency_code);
4412: pnp_debug_pkg.log ('create_payment_terms - Vendor Id :'||rec_template.vendor_id);
4413: pnp_debug_pkg.log ('create_payment_terms - Vendor Site Id :'||rec_template.vendor_site_id);
4414: pnp_debug_pkg.log ('create_payment_terms - Actual Amount :'||l_payment_amount);
4415: pnp_debug_pkg.log ('create_payment_terms - Customer Site Use :'||rec_template.customer_site_use_id);
4416: pnp_debug_pkg.log ('create_payment_terms - Location :'||p_location_id);
4417: pnp_debug_pkg.log ('create_payment_terms - Schedule Day :'||l_schedule_day);
4410: pnp_debug_pkg.log ('create_payment_terms - SOB :'||l_set_of_books_id);
4411: pnp_debug_pkg.log ('create_payment_terms - Currency Code :'||g_currency_code);
4412: pnp_debug_pkg.log ('create_payment_terms - Vendor Id :'||rec_template.vendor_id);
4413: pnp_debug_pkg.log ('create_payment_terms - Vendor Site Id :'||rec_template.vendor_site_id);
4414: pnp_debug_pkg.log ('create_payment_terms - Actual Amount :'||l_payment_amount);
4415: pnp_debug_pkg.log ('create_payment_terms - Customer Site Use :'||rec_template.customer_site_use_id);
4416: pnp_debug_pkg.log ('create_payment_terms - Location :'||p_location_id);
4417: pnp_debug_pkg.log ('create_payment_terms - Schedule Day :'||l_schedule_day);
4418: pnp_debug_pkg.log ('create_payment_terms - Customer Ship to :'||rec_template.cust_ship_site_id);
4411: pnp_debug_pkg.log ('create_payment_terms - Currency Code :'||g_currency_code);
4412: pnp_debug_pkg.log ('create_payment_terms - Vendor Id :'||rec_template.vendor_id);
4413: pnp_debug_pkg.log ('create_payment_terms - Vendor Site Id :'||rec_template.vendor_site_id);
4414: pnp_debug_pkg.log ('create_payment_terms - Actual Amount :'||l_payment_amount);
4415: pnp_debug_pkg.log ('create_payment_terms - Customer Site Use :'||rec_template.customer_site_use_id);
4416: pnp_debug_pkg.log ('create_payment_terms - Location :'||p_location_id);
4417: pnp_debug_pkg.log ('create_payment_terms - Schedule Day :'||l_schedule_day);
4418: pnp_debug_pkg.log ('create_payment_terms - Customer Ship to :'||rec_template.cust_ship_site_id);
4419: pnp_debug_pkg.log ('create_payment_terms - AP Ar Temr Id :'||rec_template.ap_ar_term_id);
4412: pnp_debug_pkg.log ('create_payment_terms - Vendor Id :'||rec_template.vendor_id);
4413: pnp_debug_pkg.log ('create_payment_terms - Vendor Site Id :'||rec_template.vendor_site_id);
4414: pnp_debug_pkg.log ('create_payment_terms - Actual Amount :'||l_payment_amount);
4415: pnp_debug_pkg.log ('create_payment_terms - Customer Site Use :'||rec_template.customer_site_use_id);
4416: pnp_debug_pkg.log ('create_payment_terms - Location :'||p_location_id);
4417: pnp_debug_pkg.log ('create_payment_terms - Schedule Day :'||l_schedule_day);
4418: pnp_debug_pkg.log ('create_payment_terms - Customer Ship to :'||rec_template.cust_ship_site_id);
4419: pnp_debug_pkg.log ('create_payment_terms - AP Ar Temr Id :'||rec_template.ap_ar_term_id);
4420: pnp_debug_pkg.log ('create_payment_terms - Trx Id :'||rec_template.cust_trx_type_id);
4413: pnp_debug_pkg.log ('create_payment_terms - Vendor Site Id :'||rec_template.vendor_site_id);
4414: pnp_debug_pkg.log ('create_payment_terms - Actual Amount :'||l_payment_amount);
4415: pnp_debug_pkg.log ('create_payment_terms - Customer Site Use :'||rec_template.customer_site_use_id);
4416: pnp_debug_pkg.log ('create_payment_terms - Location :'||p_location_id);
4417: pnp_debug_pkg.log ('create_payment_terms - Schedule Day :'||l_schedule_day);
4418: pnp_debug_pkg.log ('create_payment_terms - Customer Ship to :'||rec_template.cust_ship_site_id);
4419: pnp_debug_pkg.log ('create_payment_terms - AP Ar Temr Id :'||rec_template.ap_ar_term_id);
4420: pnp_debug_pkg.log ('create_payment_terms - Trx Id :'||rec_template.cust_trx_type_id);
4421: pnp_debug_pkg.log ('create_payment_terms - Project Id :'||rec_template.project_id);
4414: pnp_debug_pkg.log ('create_payment_terms - Actual Amount :'||l_payment_amount);
4415: pnp_debug_pkg.log ('create_payment_terms - Customer Site Use :'||rec_template.customer_site_use_id);
4416: pnp_debug_pkg.log ('create_payment_terms - Location :'||p_location_id);
4417: pnp_debug_pkg.log ('create_payment_terms - Schedule Day :'||l_schedule_day);
4418: pnp_debug_pkg.log ('create_payment_terms - Customer Ship to :'||rec_template.cust_ship_site_id);
4419: pnp_debug_pkg.log ('create_payment_terms - AP Ar Temr Id :'||rec_template.ap_ar_term_id);
4420: pnp_debug_pkg.log ('create_payment_terms - Trx Id :'||rec_template.cust_trx_type_id);
4421: pnp_debug_pkg.log ('create_payment_terms - Project Id :'||rec_template.project_id);
4422: pnp_debug_pkg.log ('create_payment_terms - Task Id :'||rec_template.task_id);
4415: pnp_debug_pkg.log ('create_payment_terms - Customer Site Use :'||rec_template.customer_site_use_id);
4416: pnp_debug_pkg.log ('create_payment_terms - Location :'||p_location_id);
4417: pnp_debug_pkg.log ('create_payment_terms - Schedule Day :'||l_schedule_day);
4418: pnp_debug_pkg.log ('create_payment_terms - Customer Ship to :'||rec_template.cust_ship_site_id);
4419: pnp_debug_pkg.log ('create_payment_terms - AP Ar Temr Id :'||rec_template.ap_ar_term_id);
4420: pnp_debug_pkg.log ('create_payment_terms - Trx Id :'||rec_template.cust_trx_type_id);
4421: pnp_debug_pkg.log ('create_payment_terms - Project Id :'||rec_template.project_id);
4422: pnp_debug_pkg.log ('create_payment_terms - Task Id :'||rec_template.task_id);
4423: pnp_debug_pkg.log ('create_payment_terms - Organization Id :'||rec_template.organization_id);
4416: pnp_debug_pkg.log ('create_payment_terms - Location :'||p_location_id);
4417: pnp_debug_pkg.log ('create_payment_terms - Schedule Day :'||l_schedule_day);
4418: pnp_debug_pkg.log ('create_payment_terms - Customer Ship to :'||rec_template.cust_ship_site_id);
4419: pnp_debug_pkg.log ('create_payment_terms - AP Ar Temr Id :'||rec_template.ap_ar_term_id);
4420: pnp_debug_pkg.log ('create_payment_terms - Trx Id :'||rec_template.cust_trx_type_id);
4421: pnp_debug_pkg.log ('create_payment_terms - Project Id :'||rec_template.project_id);
4422: pnp_debug_pkg.log ('create_payment_terms - Task Id :'||rec_template.task_id);
4423: pnp_debug_pkg.log ('create_payment_terms - Organization Id :'||rec_template.organization_id);
4424: pnp_debug_pkg.log ('create_payment_terms - Exend Type :'||rec_template.expenditure_type);
4417: pnp_debug_pkg.log ('create_payment_terms - Schedule Day :'||l_schedule_day);
4418: pnp_debug_pkg.log ('create_payment_terms - Customer Ship to :'||rec_template.cust_ship_site_id);
4419: pnp_debug_pkg.log ('create_payment_terms - AP Ar Temr Id :'||rec_template.ap_ar_term_id);
4420: pnp_debug_pkg.log ('create_payment_terms - Trx Id :'||rec_template.cust_trx_type_id);
4421: pnp_debug_pkg.log ('create_payment_terms - Project Id :'||rec_template.project_id);
4422: pnp_debug_pkg.log ('create_payment_terms - Task Id :'||rec_template.task_id);
4423: pnp_debug_pkg.log ('create_payment_terms - Organization Id :'||rec_template.organization_id);
4424: pnp_debug_pkg.log ('create_payment_terms - Exend Type :'||rec_template.expenditure_type);
4425: pnp_debug_pkg.log ('create_payment_terms - Exend Item Date :'||rec_template.expenditure_item_date);
4418: pnp_debug_pkg.log ('create_payment_terms - Customer Ship to :'||rec_template.cust_ship_site_id);
4419: pnp_debug_pkg.log ('create_payment_terms - AP Ar Temr Id :'||rec_template.ap_ar_term_id);
4420: pnp_debug_pkg.log ('create_payment_terms - Trx Id :'||rec_template.cust_trx_type_id);
4421: pnp_debug_pkg.log ('create_payment_terms - Project Id :'||rec_template.project_id);
4422: pnp_debug_pkg.log ('create_payment_terms - Task Id :'||rec_template.task_id);
4423: pnp_debug_pkg.log ('create_payment_terms - Organization Id :'||rec_template.organization_id);
4424: pnp_debug_pkg.log ('create_payment_terms - Exend Type :'||rec_template.expenditure_type);
4425: pnp_debug_pkg.log ('create_payment_terms - Exend Item Date :'||rec_template.expenditure_item_date);
4426: pnp_debug_pkg.log ('create_payment_terms - Tax Group Id :'||rec_template.tax_group_id);
4419: pnp_debug_pkg.log ('create_payment_terms - AP Ar Temr Id :'||rec_template.ap_ar_term_id);
4420: pnp_debug_pkg.log ('create_payment_terms - Trx Id :'||rec_template.cust_trx_type_id);
4421: pnp_debug_pkg.log ('create_payment_terms - Project Id :'||rec_template.project_id);
4422: pnp_debug_pkg.log ('create_payment_terms - Task Id :'||rec_template.task_id);
4423: pnp_debug_pkg.log ('create_payment_terms - Organization Id :'||rec_template.organization_id);
4424: pnp_debug_pkg.log ('create_payment_terms - Exend Type :'||rec_template.expenditure_type);
4425: pnp_debug_pkg.log ('create_payment_terms - Exend Item Date :'||rec_template.expenditure_item_date);
4426: pnp_debug_pkg.log ('create_payment_terms - Tax Group Id :'||rec_template.tax_group_id);
4427: pnp_debug_pkg.log ('create_payment_terms - Tax Code Id :'||rec_template.tax_code_id);
4420: pnp_debug_pkg.log ('create_payment_terms - Trx Id :'||rec_template.cust_trx_type_id);
4421: pnp_debug_pkg.log ('create_payment_terms - Project Id :'||rec_template.project_id);
4422: pnp_debug_pkg.log ('create_payment_terms - Task Id :'||rec_template.task_id);
4423: pnp_debug_pkg.log ('create_payment_terms - Organization Id :'||rec_template.organization_id);
4424: pnp_debug_pkg.log ('create_payment_terms - Exend Type :'||rec_template.expenditure_type);
4425: pnp_debug_pkg.log ('create_payment_terms - Exend Item Date :'||rec_template.expenditure_item_date);
4426: pnp_debug_pkg.log ('create_payment_terms - Tax Group Id :'||rec_template.tax_group_id);
4427: pnp_debug_pkg.log ('create_payment_terms - Tax Code Id :'||rec_template.tax_code_id);
4428: pnp_debug_pkg.log ('create_payment_terms - Tax Incl :'||rec_template.tax_included);
4421: pnp_debug_pkg.log ('create_payment_terms - Project Id :'||rec_template.project_id);
4422: pnp_debug_pkg.log ('create_payment_terms - Task Id :'||rec_template.task_id);
4423: pnp_debug_pkg.log ('create_payment_terms - Organization Id :'||rec_template.organization_id);
4424: pnp_debug_pkg.log ('create_payment_terms - Exend Type :'||rec_template.expenditure_type);
4425: pnp_debug_pkg.log ('create_payment_terms - Exend Item Date :'||rec_template.expenditure_item_date);
4426: pnp_debug_pkg.log ('create_payment_terms - Tax Group Id :'||rec_template.tax_group_id);
4427: pnp_debug_pkg.log ('create_payment_terms - Tax Code Id :'||rec_template.tax_code_id);
4428: pnp_debug_pkg.log ('create_payment_terms - Tax Incl :'||rec_template.tax_included);
4429: pnp_debug_pkg.log ('create_payment_terms - Distr Set Id :'||rec_template.distribution_set_id);
4422: pnp_debug_pkg.log ('create_payment_terms - Task Id :'||rec_template.task_id);
4423: pnp_debug_pkg.log ('create_payment_terms - Organization Id :'||rec_template.organization_id);
4424: pnp_debug_pkg.log ('create_payment_terms - Exend Type :'||rec_template.expenditure_type);
4425: pnp_debug_pkg.log ('create_payment_terms - Exend Item Date :'||rec_template.expenditure_item_date);
4426: pnp_debug_pkg.log ('create_payment_terms - Tax Group Id :'||rec_template.tax_group_id);
4427: pnp_debug_pkg.log ('create_payment_terms - Tax Code Id :'||rec_template.tax_code_id);
4428: pnp_debug_pkg.log ('create_payment_terms - Tax Incl :'||rec_template.tax_included);
4429: pnp_debug_pkg.log ('create_payment_terms - Distr Set Id :'||rec_template.distribution_set_id);
4430: pnp_debug_pkg.log ('create_payment_terms - Inv rule Id :'||rec_template.inv_rule_id);
4423: pnp_debug_pkg.log ('create_payment_terms - Organization Id :'||rec_template.organization_id);
4424: pnp_debug_pkg.log ('create_payment_terms - Exend Type :'||rec_template.expenditure_type);
4425: pnp_debug_pkg.log ('create_payment_terms - Exend Item Date :'||rec_template.expenditure_item_date);
4426: pnp_debug_pkg.log ('create_payment_terms - Tax Group Id :'||rec_template.tax_group_id);
4427: pnp_debug_pkg.log ('create_payment_terms - Tax Code Id :'||rec_template.tax_code_id);
4428: pnp_debug_pkg.log ('create_payment_terms - Tax Incl :'||rec_template.tax_included);
4429: pnp_debug_pkg.log ('create_payment_terms - Distr Set Id :'||rec_template.distribution_set_id);
4430: pnp_debug_pkg.log ('create_payment_terms - Inv rule Id :'||rec_template.inv_rule_id);
4431: pnp_debug_pkg.log ('create_payment_terms - Acct rule Id :'||rec_template.account_rule_id);
4424: pnp_debug_pkg.log ('create_payment_terms - Exend Type :'||rec_template.expenditure_type);
4425: pnp_debug_pkg.log ('create_payment_terms - Exend Item Date :'||rec_template.expenditure_item_date);
4426: pnp_debug_pkg.log ('create_payment_terms - Tax Group Id :'||rec_template.tax_group_id);
4427: pnp_debug_pkg.log ('create_payment_terms - Tax Code Id :'||rec_template.tax_code_id);
4428: pnp_debug_pkg.log ('create_payment_terms - Tax Incl :'||rec_template.tax_included);
4429: pnp_debug_pkg.log ('create_payment_terms - Distr Set Id :'||rec_template.distribution_set_id);
4430: pnp_debug_pkg.log ('create_payment_terms - Inv rule Id :'||rec_template.inv_rule_id);
4431: pnp_debug_pkg.log ('create_payment_terms - Acct rule Id :'||rec_template.account_rule_id);
4432: pnp_debug_pkg.log ('create_payment_terms - Sales Rep Id :'||rec_template.salesrep_id);
4425: pnp_debug_pkg.log ('create_payment_terms - Exend Item Date :'||rec_template.expenditure_item_date);
4426: pnp_debug_pkg.log ('create_payment_terms - Tax Group Id :'||rec_template.tax_group_id);
4427: pnp_debug_pkg.log ('create_payment_terms - Tax Code Id :'||rec_template.tax_code_id);
4428: pnp_debug_pkg.log ('create_payment_terms - Tax Incl :'||rec_template.tax_included);
4429: pnp_debug_pkg.log ('create_payment_terms - Distr Set Id :'||rec_template.distribution_set_id);
4430: pnp_debug_pkg.log ('create_payment_terms - Inv rule Id :'||rec_template.inv_rule_id);
4431: pnp_debug_pkg.log ('create_payment_terms - Acct rule Id :'||rec_template.account_rule_id);
4432: pnp_debug_pkg.log ('create_payment_terms - Sales Rep Id :'||rec_template.salesrep_id);
4433: pnp_debug_pkg.log ('create_payment_terms - PO header Id :'||rec_template.po_header_id);
4426: pnp_debug_pkg.log ('create_payment_terms - Tax Group Id :'||rec_template.tax_group_id);
4427: pnp_debug_pkg.log ('create_payment_terms - Tax Code Id :'||rec_template.tax_code_id);
4428: pnp_debug_pkg.log ('create_payment_terms - Tax Incl :'||rec_template.tax_included);
4429: pnp_debug_pkg.log ('create_payment_terms - Distr Set Id :'||rec_template.distribution_set_id);
4430: pnp_debug_pkg.log ('create_payment_terms - Inv rule Id :'||rec_template.inv_rule_id);
4431: pnp_debug_pkg.log ('create_payment_terms - Acct rule Id :'||rec_template.account_rule_id);
4432: pnp_debug_pkg.log ('create_payment_terms - Sales Rep Id :'||rec_template.salesrep_id);
4433: pnp_debug_pkg.log ('create_payment_terms - PO header Id :'||rec_template.po_header_id);
4434: pnp_debug_pkg.log ('create_payment_terms - PO # :'||rec_template.cust_po_number);
4427: pnp_debug_pkg.log ('create_payment_terms - Tax Code Id :'||rec_template.tax_code_id);
4428: pnp_debug_pkg.log ('create_payment_terms - Tax Incl :'||rec_template.tax_included);
4429: pnp_debug_pkg.log ('create_payment_terms - Distr Set Id :'||rec_template.distribution_set_id);
4430: pnp_debug_pkg.log ('create_payment_terms - Inv rule Id :'||rec_template.inv_rule_id);
4431: pnp_debug_pkg.log ('create_payment_terms - Acct rule Id :'||rec_template.account_rule_id);
4432: pnp_debug_pkg.log ('create_payment_terms - Sales Rep Id :'||rec_template.salesrep_id);
4433: pnp_debug_pkg.log ('create_payment_terms - PO header Id :'||rec_template.po_header_id);
4434: pnp_debug_pkg.log ('create_payment_terms - PO # :'||rec_template.cust_po_number);
4435: pnp_debug_pkg.log ('create_payment_terms - Receipt method id :'||rec_template.receipt_method_id);
4428: pnp_debug_pkg.log ('create_payment_terms - Tax Incl :'||rec_template.tax_included);
4429: pnp_debug_pkg.log ('create_payment_terms - Distr Set Id :'||rec_template.distribution_set_id);
4430: pnp_debug_pkg.log ('create_payment_terms - Inv rule Id :'||rec_template.inv_rule_id);
4431: pnp_debug_pkg.log ('create_payment_terms - Acct rule Id :'||rec_template.account_rule_id);
4432: pnp_debug_pkg.log ('create_payment_terms - Sales Rep Id :'||rec_template.salesrep_id);
4433: pnp_debug_pkg.log ('create_payment_terms - PO header Id :'||rec_template.po_header_id);
4434: pnp_debug_pkg.log ('create_payment_terms - PO # :'||rec_template.cust_po_number);
4435: pnp_debug_pkg.log ('create_payment_terms - Receipt method id :'||rec_template.receipt_method_id);
4436: pnp_debug_pkg.log ('create_payment_terms - Org id :'||p_org_id);
4429: pnp_debug_pkg.log ('create_payment_terms - Distr Set Id :'||rec_template.distribution_set_id);
4430: pnp_debug_pkg.log ('create_payment_terms - Inv rule Id :'||rec_template.inv_rule_id);
4431: pnp_debug_pkg.log ('create_payment_terms - Acct rule Id :'||rec_template.account_rule_id);
4432: pnp_debug_pkg.log ('create_payment_terms - Sales Rep Id :'||rec_template.salesrep_id);
4433: pnp_debug_pkg.log ('create_payment_terms - PO header Id :'||rec_template.po_header_id);
4434: pnp_debug_pkg.log ('create_payment_terms - PO # :'||rec_template.cust_po_number);
4435: pnp_debug_pkg.log ('create_payment_terms - Receipt method id :'||rec_template.receipt_method_id);
4436: pnp_debug_pkg.log ('create_payment_terms - Org id :'||p_org_id);
4437: pnp_debug_pkg.log ('create_payment_terms - Period Billrec id :'||l_period_billrec_id);
4430: pnp_debug_pkg.log ('create_payment_terms - Inv rule Id :'||rec_template.inv_rule_id);
4431: pnp_debug_pkg.log ('create_payment_terms - Acct rule Id :'||rec_template.account_rule_id);
4432: pnp_debug_pkg.log ('create_payment_terms - Sales Rep Id :'||rec_template.salesrep_id);
4433: pnp_debug_pkg.log ('create_payment_terms - PO header Id :'||rec_template.po_header_id);
4434: pnp_debug_pkg.log ('create_payment_terms - PO # :'||rec_template.cust_po_number);
4435: pnp_debug_pkg.log ('create_payment_terms - Receipt method id :'||rec_template.receipt_method_id);
4436: pnp_debug_pkg.log ('create_payment_terms - Org id :'||p_org_id);
4437: pnp_debug_pkg.log ('create_payment_terms - Period Billrec id :'||l_period_billrec_id);
4438: pnp_debug_pkg.log ('create_payment_terms - Rec Agr Line id :'||l_rec_agr_line_id);
4431: pnp_debug_pkg.log ('create_payment_terms - Acct rule Id :'||rec_template.account_rule_id);
4432: pnp_debug_pkg.log ('create_payment_terms - Sales Rep Id :'||rec_template.salesrep_id);
4433: pnp_debug_pkg.log ('create_payment_terms - PO header Id :'||rec_template.po_header_id);
4434: pnp_debug_pkg.log ('create_payment_terms - PO # :'||rec_template.cust_po_number);
4435: pnp_debug_pkg.log ('create_payment_terms - Receipt method id :'||rec_template.receipt_method_id);
4436: pnp_debug_pkg.log ('create_payment_terms - Org id :'||p_org_id);
4437: pnp_debug_pkg.log ('create_payment_terms - Period Billrec id :'||l_period_billrec_id);
4438: pnp_debug_pkg.log ('create_payment_terms - Rec Agr Line id :'||l_rec_agr_line_id);
4439: pnp_debug_pkg.log ('create_payment_terms - Term Template ID :'||rec_template.term_template_id);
4432: pnp_debug_pkg.log ('create_payment_terms - Sales Rep Id :'||rec_template.salesrep_id);
4433: pnp_debug_pkg.log ('create_payment_terms - PO header Id :'||rec_template.po_header_id);
4434: pnp_debug_pkg.log ('create_payment_terms - PO # :'||rec_template.cust_po_number);
4435: pnp_debug_pkg.log ('create_payment_terms - Receipt method id :'||rec_template.receipt_method_id);
4436: pnp_debug_pkg.log ('create_payment_terms - Org id :'||p_org_id);
4437: pnp_debug_pkg.log ('create_payment_terms - Period Billrec id :'||l_period_billrec_id);
4438: pnp_debug_pkg.log ('create_payment_terms - Rec Agr Line id :'||l_rec_agr_line_id);
4439: pnp_debug_pkg.log ('create_payment_terms - Term Template ID :'||rec_template.term_template_id);
4440:
4433: pnp_debug_pkg.log ('create_payment_terms - PO header Id :'||rec_template.po_header_id);
4434: pnp_debug_pkg.log ('create_payment_terms - PO # :'||rec_template.cust_po_number);
4435: pnp_debug_pkg.log ('create_payment_terms - Receipt method id :'||rec_template.receipt_method_id);
4436: pnp_debug_pkg.log ('create_payment_terms - Org id :'||p_org_id);
4437: pnp_debug_pkg.log ('create_payment_terms - Period Billrec id :'||l_period_billrec_id);
4438: pnp_debug_pkg.log ('create_payment_terms - Rec Agr Line id :'||l_rec_agr_line_id);
4439: pnp_debug_pkg.log ('create_payment_terms - Term Template ID :'||rec_template.term_template_id);
4440:
4441: IF p_location_id IS NOT NULL AND
4434: pnp_debug_pkg.log ('create_payment_terms - PO # :'||rec_template.cust_po_number);
4435: pnp_debug_pkg.log ('create_payment_terms - Receipt method id :'||rec_template.receipt_method_id);
4436: pnp_debug_pkg.log ('create_payment_terms - Org id :'||p_org_id);
4437: pnp_debug_pkg.log ('create_payment_terms - Period Billrec id :'||l_period_billrec_id);
4438: pnp_debug_pkg.log ('create_payment_terms - Rec Agr Line id :'||l_rec_agr_line_id);
4439: pnp_debug_pkg.log ('create_payment_terms - Term Template ID :'||rec_template.term_template_id);
4440:
4441: IF p_location_id IS NOT NULL AND
4442: p_calc_period_end_date IS NOT NULL THEN
4435: pnp_debug_pkg.log ('create_payment_terms - Receipt method id :'||rec_template.receipt_method_id);
4436: pnp_debug_pkg.log ('create_payment_terms - Org id :'||p_org_id);
4437: pnp_debug_pkg.log ('create_payment_terms - Period Billrec id :'||l_period_billrec_id);
4438: pnp_debug_pkg.log ('create_payment_terms - Rec Agr Line id :'||l_rec_agr_line_id);
4439: pnp_debug_pkg.log ('create_payment_terms - Term Template ID :'||rec_template.term_template_id);
4440:
4441: IF p_location_id IS NOT NULL AND
4442: p_calc_period_end_date IS NOT NULL THEN
4443:
4580: EXIT WHEN csr_temp_dist%NOTFOUND;
4581:
4582: END IF;
4583:
4584: pnp_debug_pkg.log(' account_id '||rec_distributions.account_id);
4585: pnp_debug_pkg.log(' account_class '||rec_distributions.account_id);
4586:
4587: l_context := 'Inserting Account Distributions ';
4588: pn_distributions_pkg.insert_row (
4581:
4582: END IF;
4583:
4584: pnp_debug_pkg.log(' account_id '||rec_distributions.account_id);
4585: pnp_debug_pkg.log(' account_class '||rec_distributions.account_id);
4586:
4587: l_context := 'Inserting Account Distributions ';
4588: pn_distributions_pkg.insert_row (
4589: x_rowid => l_rowid
4626:
4627: END IF;
4628:
4629: END IF;
4630: pnp_debug_pkg.log('PN_REC_CALC_PKG.create_payment_terms (-) ');
4631:
4632: EXCEPTION
4633: when others then
4634: pnp_debug_pkg.log('Error while' || l_context || to_char(sqlcode));
4630: pnp_debug_pkg.log('PN_REC_CALC_PKG.create_payment_terms (-) ');
4631:
4632: EXCEPTION
4633: when others then
4634: pnp_debug_pkg.log('Error while' || l_context || to_char(sqlcode));
4635: p_error := 'Error creating billing term';
4636: p_error_code := -99;
4637:
4638: END create_payment_terms;
4705: -- Fix for bug # 3142328
4706:
4707: BEGIN
4708:
4709: pnp_debug_pkg.log('PN_REC_CALC_PKG.find_if_rec_payterm_exists (+) ');
4710:
4711: l_period_bill_record.amount := 0;
4712: l_period_bill_record.period_billrec_id:= 0;
4713: l_distributions_exist := 'N';
4716: period line */
4717:
4718: l_context := 'selecting billed amount record';
4719:
4720: pnp_debug_pkg.log('find_if_rec_payterm_exists - getting billed_rec_id');
4721:
4722: IF (p_consolidate = 'N') THEN
4723: SELECT period_billrec_id
4724: INTO l_period_bill_record.period_billrec_id
4733: WHERE rec_agreement_id = p_rec_agreement_id
4734: AND rec_calc_period_id = p_rec_calc_period_id;
4735: END IF;
4736:
4737: pnp_debug_pkg.log('find_if_rec_payterm_exists - bille_rec_id '|| l_period_bill_record.period_billrec_id);
4738:
4739: /* Get the amount of approved terms for the period */
4740:
4741: l_context := 'getting approved billed amount';
4739: /* Get the amount of approved terms for the period */
4740:
4741: l_context := 'getting approved billed amount';
4742:
4743: pnp_debug_pkg.log('find_if_rec_payterm_exists - getting approved amount');
4744:
4745: IF (p_consolidate = 'N') THEN
4746: SELECT NVL(SUM(actual_amount),0)
4747: INTO l_period_bill_record.amount
4756: WHERE period_billrec_id = l_period_bill_record.period_billrec_id
4757: AND status = 'APPROVED';
4758: END IF;
4759:
4760: pnp_debug_pkg.log('find_if_rec_payterm_exists - approved amount'|| l_period_bill_record.amount);
4761: l_context := 'deleting billing terms';
4762:
4763: pnp_debug_pkg.log('find_if_rec_payterm_exists - deleting terms ');
4764:
4759:
4760: pnp_debug_pkg.log('find_if_rec_payterm_exists - approved amount'|| l_period_bill_record.amount);
4761: l_context := 'deleting billing terms';
4762:
4763: pnp_debug_pkg.log('find_if_rec_payterm_exists - deleting terms ');
4764:
4765: IF (p_consolidate = 'N') THEN
4766:
4767: -- Fix for bug # 3142328
4768: OPEN get_distributions_exist_nocons;
4769: FETCH get_distributions_exist_nocons INTO l_distributions_exist;
4770: CLOSE get_distributions_exist_nocons;
4771:
4772: pnp_debug_pkg.log('now deleting terms l_distributions_exist: '||l_distributions_exist);
4773: IF l_distributions_exist = 'Y' THEN
4774:
4775: DELETE pn_distributions_all
4776: WHERE payment_term_id in (SELECT payment_term_id
4811: AND status = 'DRAFT';
4812:
4813: END IF;
4814:
4815: pnp_debug_pkg.log('find_if_rec_payterm_exists - terms deleted '|| to_char(SQL%ROWCOUNT));
4816: pnp_debug_pkg.log('PN_REC_CALC_PKG.find_if_rec_payterm_exists (-) ');
4817:
4818: RETURN l_period_bill_record;
4819:
4812:
4813: END IF;
4814:
4815: pnp_debug_pkg.log('find_if_rec_payterm_exists - terms deleted '|| to_char(SQL%ROWCOUNT));
4816: pnp_debug_pkg.log('PN_REC_CALC_PKG.find_if_rec_payterm_exists (-) ');
4817:
4818: RETURN l_period_bill_record;
4819:
4820: EXCEPTION
4823: RETURN NULL;
4824:
4825: WHEN OTHERS
4826: THEN
4827: pnp_debug_pkg.log('Error while '|| l_context || to_char(sqlcode));
4828: l_period_bill_record.period_billrec_id := -99;
4829: l_period_bill_record.amount := null;
4830:
4831: END find_if_rec_payterm_exists;
4873: AND lineconst.SCOPE = 'OPYA';
4874:
4875: BEGIN
4876:
4877: pnp_debug_pkg.log('PN_REC_CALC_PKG.get_prior_period_actual_amount (+) ');
4878:
4879: SELECT NVL(period_lines.constrained_actual,0)
4880: INTO l_prior_period_amount
4881: FROM pn_rec_period_lines_all period_lines
4908: EXCEPTION
4909:
4910: WHEN TOO_MANY_ROWS
4911: THEN
4912: pnp_debug_pkg.log('get_prior_period_actual_amount - Multiple prior periods found');
4913:
4914: IF p_called_from = 'CALCUI' THEN
4915: return null;
4916: ELSE
4929: END IF;
4930:
4931: WHEN OTHERS
4932: THEN
4933: pnp_debug_pkg.log('Error getting prior period actual amount '|| to_char(sqlcode));
4934: IF p_called_from = 'CALCUI' THEN
4935: return null;
4936: ELSE
4937: return -99;
4936: ELSE
4937: return -99;
4938: END IF;
4939:
4940: pnp_debug_pkg.log('PN_REC_CALC_PKG.get_prior_period_actual_amount (-) ');
4941:
4942: END get_prior_period_actual_amount;
4943:
4944: /*===========================================================================+
5011: AND lineconst.SCOPE = 'OPYC';
5012:
5013: BEGIN
5014:
5015: pnp_debug_pkg.log('PN_REC_CALC_PKG.get_prior_period_cap (+) ');
5016:
5017: OPEN csr_get_base_cap;
5018: FETCH csr_get_base_cap into l_cap_amount,l_start_date,l_end_date;
5019:
5075: close csr_get_curr_percent;
5076:
5077: END IF;
5078:
5079: pnp_debug_pkg.log('PN_REC_CALC_PKG.get_prior_period_cap (-) ');
5080:
5081: RETURN l_cap_amount;
5082:
5083: EXCEPTION
5083: EXCEPTION
5084:
5085: WHEN OTHERS
5086: THEN
5087: pnp_debug_pkg.log('Error getting prior year cap '|| to_char(sqlcode));
5088: IF p_called_from = 'CALCUI' THEN
5089: return null;
5090: ELSE
5091: return -99;
5237: l_rec_agr_line_id pn_rec_agr_lines_all.rec_agr_line_id%TYPE;
5238:
5239: begin
5240:
5241: pnp_debug_pkg.log('PN_REC_CALC_PKG.lock_area_exp_cls_dtl (+) ');
5242:
5243: FOR l_term_rec in c_term
5244: LOOP
5245:
5335: END IF;
5336:
5337: END LOOP;
5338: commit;
5339: pnp_debug_pkg.log('PN_REC_CALC_PKG.lock_area_exp_cls_dtl (-) ');
5340: Exception
5341: when others then
5342: pnp_debug_pkg.log(' error in PN_REC_CALC_PKG.lock_area_exp_cls_dtl :'||to_char(sqlcode)||' : '||sqlerrm);
5343: raise;
5338: commit;
5339: pnp_debug_pkg.log('PN_REC_CALC_PKG.lock_area_exp_cls_dtl (-) ');
5340: Exception
5341: when others then
5342: pnp_debug_pkg.log(' error in PN_REC_CALC_PKG.lock_area_exp_cls_dtl :'||to_char(sqlcode)||' : '||sqlerrm);
5343: raise;
5344:
5345: END lock_area_exp_cls_dtl ;
5346:
5381: l_rec_calc_period_id pn_rec_calc_periods_all.rec_calc_period_id%TYPE;
5382: l_period_count NUMBER;
5383: l_org_id NUMBER;
5384: BEGIN
5385: pnp_debug_pkg.log('PN_REC_CALC_PKG.validate_create_calc_period (+) ');
5386:
5387: SELECT count(1)
5388: INTO l_period_count
5389: FROM pn_rec_calc_periods_all
5428: );
5429: return l_rec_calc_period_id;
5430: ELSE
5431: fnd_message.set_name ('PN','PN_REC_AGRMNT_PERIOD_EXIST');
5432: pnp_debug_pkg.put_log_msg(fnd_message.get);
5433: return -1;
5434: END IF;
5435: pnp_debug_pkg.log('PN_REC_CALC_PKG.validate_create_calculation_period (-) ');
5436:
5431: fnd_message.set_name ('PN','PN_REC_AGRMNT_PERIOD_EXIST');
5432: pnp_debug_pkg.put_log_msg(fnd_message.get);
5433: return -1;
5434: END IF;
5435: pnp_debug_pkg.log('PN_REC_CALC_PKG.validate_create_calculation_period (-) ');
5436:
5437: EXCEPTION
5438: WHEN OTHERS THEN
5439: pnp_debug_pkg.log('error in PN_REC_CALC_PKG.validate_create_calc_period :'||to_char(sqlcode)||' : '||sqlerrm);
5435: pnp_debug_pkg.log('PN_REC_CALC_PKG.validate_create_calculation_period (-) ');
5436:
5437: EXCEPTION
5438: WHEN OTHERS THEN
5439: pnp_debug_pkg.log('error in PN_REC_CALC_PKG.validate_create_calc_period :'||to_char(sqlcode)||' : '||sqlerrm);
5440: raise;
5441: END validate_create_calc_period;
5442:
5443: END PN_REC_CALC_PKG;