[Home] [Help]
1: PACKAGE BODY PN_OPEX_TERMS_PKG AS
2: -- $Header: PNOTERMB.pls 120.7 2011/11/03 19:34:06 asahoo ship $
3:
4: -------------------------------------------------------------------
5: -- PROCEDURE CREATE_OPEX_PAYMENT_TERMS
1154:
1155: -- Getting the last approved schedule date
1156: pnp_debug_pkg.put_log_msg('Getting the last approved schedule date');
1157:
1158: /* pn_opex_terms_pkg.last_schedule_day(p_lease_id => p_lease_id,
1159: p_payment_term_id => prev_pay_term_id,
1160: x_end_date => last_sch_date);
1161: pnp_debug_pkg.put_log_msg('last approved schedule date ' || last_sch_date); */
1162:
1343:
1344:
1345: BEGIN
1346:
1347: pnp_debug_pkg.debug ('PN_OPEX_TERMS_PKG.LAST_SCHEDULE_DAY (+)');
1348:
1349:
1350: FOR rec IN opex_est_pay_cur(p_payment_term_id) LOOP
1351: l_pay_term_id := rec.payment_term_id;
1390: --dbms_output.put_line('end date = '||end_date);
1391:
1392: x_end_date := to_char(end_date);*/
1393:
1394: pnp_debug_pkg.debug ('PN_OPEX_TERMS_PKG.LAST_SCHEDULE_DAY (-)');
1395:
1396: EXCEPTION
1397: WHEN OTHERS THEN
1398: RAISE;
1427:
1428:
1429: BEGIN
1430:
1431: pnp_debug_pkg.debug ('PN_OPEX_TERMS_PKG.LAST_SCHEDULE_DAY (+)');
1432:
1433: FOR rec IN schedule_end_date_cur LOOP
1434: --dbms_output.put_line('schedule_date = L1');
1435: schedule_date := rec.schedule_date ;
1449: --dbms_output.put_line('end date = '||end_date);
1450:
1451: x_end_date := to_char(end_date);
1452:
1453: pnp_debug_pkg.debug ('PN_OPEX_TERMS_PKG.LAST_SCHEDULE_DAY (-)');
1454:
1455: EXCEPTION
1456: WHEN OTHERS THEN
1457: RAISE;
2062: err_code VARCHAR2(2000);
2063: l_include_in_var_rent VARCHAR2(30);
2064:
2065: BEGIN
2066: put_log('pn_opex_terms_pkg.approve_index_pay_term (+) : ');
2067:
2068: pn_index_lease_common_pkg.chk_for_payment_reqd_fields (
2069: p_payment_term_id => ip_opex_pay_term_id
2070: ,p_msg => v_msg
2100: END IF;
2101:
2102: op_msg := v_msg;
2103:
2104: put_log('pn_opex_terms_pkg.approve_index_pay_term (-) : ');
2105:
2106: END approve_opex_pay_term;
2107:
2108:
2122: -- Modifed CURSOR opex_recs w.r.t. join with
2123: -- PN_PROPERTIES_ALL
2124: -- 23-MAY-07 sdmahesh o Bug 6069029
2125: -- Modifed CURSOR OPEX_RECS w.r.t. join with
2126: -- PN_PROPERTIES_ALL.Used PN_OPEX_TERMS_PKG.GET_PROP_ID
2127: -------------------------------------------------------------------------------
2128:
2129: PROCEDURE approve_opex_pay_term_batch (
2130: errbuf OUT NOCOPY VARCHAR2
2181: WHERE pl.lease_id = popex.lease_id
2182: AND popex.agreement_id = ppt.opex_agr_id
2183: AND popex.tenancy_id = ten.tenancy_id
2184: AND ten.location_id = loc.location_id
2185: AND prop.property_id(+) = pn_opex_terms_pkg.get_prop_id(ppt.location_id)
2186: AND(popex.agr_num BETWEEN nvl(p_agreement_number_lower, popex.agr_num) AND nvl(p_agreement_number_upper, popex.agr_num))
2187: AND(pl.lease_num BETWEEN nvl(p_main_lease_number_lower, pl.lease_num) AND nvl(p_main_lease_number_upper, pl.lease_num))
2188: AND(loc.location_code BETWEEN nvl(p_location_code_lower, loc.location_code)AND nvl(p_location_code_upper, loc.location_code))
2189: AND(ppt.start_date BETWEEN nvl(fnd_date.canonical_to_date(p_payment_start_date_lower), ppt.start_date) AND nvl(fnd_date.canonical_to_date(p_payment_start_date_upper), ppt.start_date))
2210: l_appr_count NUMBER := 0;
2211: l_batch_size NUMBER := 1000;
2212:
2213: BEGIN
2214: put_log('pn_opex_terms_pkg.approve_index_pay_term_batch (+) : ');
2215:
2216: put_log ('ip_agreement_number_lower '|| ip_agreement_number_lower);
2217: put_log ('ip_agreement_number_upper '|| ip_agreement_number_upper);
2218: put_log ('ip_main_lease_number_lower '|| ip_main_lease_number_lower);
2312: put_output (fnd_message.get||' :');
2313: display_error_messages (ip_message_string => 'PN_INDEX_NO_PAYT_TO_APPROVE');
2314: END IF;
2315:
2316: put_log('pn_opex_terms_pkg.approve_index_pay_term_batch (-) : ');
2317:
2318: END approve_opex_pay_term_batch;
2319:
2320:
2427: WHEN OTHERS THEN
2428: RETURN NULL;
2429:
2430: END get_unpaid_amt;
2431: END PN_OPEX_TERMS_PKG;