[Home] [Help]
1: PACKAGE BODY PN_OPEX_TERMS_PKG AS
2: -- $Header: PNOTERMB.pls 120.2 2007/10/11 06:27:45 rthumma noship $
3:
4: -------------------------------------------------------------------
5: -- PROCEDURE CREATE_OPEX_PAYMENT_TERMS
1149:
1150: -- Getting the last approved schedule date
1151: pnp_debug_pkg.put_log_msg('Getting the last approved schedule date');
1152:
1153: /* pn_opex_terms_pkg.last_schedule_day(p_lease_id => p_lease_id,
1154: p_payment_term_id => prev_pay_term_id,
1155: x_end_date => last_sch_date);
1156: pnp_debug_pkg.put_log_msg('last approved schedule date ' || last_sch_date); */
1157:
1314:
1315:
1316: BEGIN
1317:
1318: pnp_debug_pkg.debug ('PN_OPEX_TERMS_PKG.LAST_SCHEDULE_DAY (+)');
1319:
1320:
1321: FOR rec IN opex_est_pay_cur(p_payment_term_id) LOOP
1322: l_pay_term_id := rec.payment_term_id;
1361: --dbms_output.put_line('end date = '||end_date);
1362:
1363: x_end_date := to_char(end_date);*/
1364:
1365: pnp_debug_pkg.debug ('PN_OPEX_TERMS_PKG.LAST_SCHEDULE_DAY (-)');
1366:
1367: EXCEPTION
1368: WHEN OTHERS THEN
1369: RAISE;
1398:
1399:
1400: BEGIN
1401:
1402: pnp_debug_pkg.debug ('PN_OPEX_TERMS_PKG.LAST_SCHEDULE_DAY (+)');
1403:
1404: FOR rec IN schedule_end_date_cur LOOP
1405: --dbms_output.put_line('schedule_date = L1');
1406: schedule_date := rec.schedule_date ;
1420: --dbms_output.put_line('end date = '||end_date);
1421:
1422: x_end_date := to_char(end_date);
1423:
1424: pnp_debug_pkg.debug ('PN_OPEX_TERMS_PKG.LAST_SCHEDULE_DAY (-)');
1425:
1426: EXCEPTION
1427: WHEN OTHERS THEN
1428: RAISE;
2031: err_code VARCHAR2(2000);
2032: l_include_in_var_rent VARCHAR2(30);
2033:
2034: BEGIN
2035: put_log('pn_opex_terms_pkg.approve_index_pay_term (+) : ');
2036:
2037: pn_index_lease_common_pkg.chk_for_payment_reqd_fields (
2038: p_payment_term_id => ip_opex_pay_term_id
2039: ,p_msg => v_msg
2069: END IF;
2070:
2071: op_msg := v_msg;
2072:
2073: put_log('pn_opex_terms_pkg.approve_index_pay_term (-) : ');
2074:
2075: END approve_opex_pay_term;
2076:
2077:
2091: -- Modifed CURSOR opex_recs w.r.t. join with
2092: -- PN_PROPERTIES_ALL
2093: -- 23-MAY-07 sdmahesh o Bug 6069029
2094: -- Modifed CURSOR OPEX_RECS w.r.t. join with
2095: -- PN_PROPERTIES_ALL.Used PN_OPEX_TERMS_PKG.GET_PROP_ID
2096: -------------------------------------------------------------------------------
2097:
2098: PROCEDURE approve_opex_pay_term_batch (
2099: errbuf OUT NOCOPY VARCHAR2
2150: WHERE pl.lease_id = popex.lease_id
2151: AND popex.agreement_id = ppt.opex_agr_id
2152: AND popex.tenancy_id = ten.tenancy_id
2153: AND ten.location_id = loc.location_id
2154: AND prop.property_id(+) = pn_opex_terms_pkg.get_prop_id(ppt.location_id)
2155: AND(popex.agr_num BETWEEN nvl(p_agreement_number_lower, popex.agr_num) AND nvl(p_agreement_number_upper, popex.agr_num))
2156: AND(pl.lease_num BETWEEN nvl(p_main_lease_number_lower, pl.lease_num) AND nvl(p_main_lease_number_upper, pl.lease_num))
2157: AND(loc.location_code BETWEEN nvl(p_location_code_lower, loc.location_code)AND nvl(p_location_code_upper, loc.location_code))
2158: 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))
2179: l_appr_count NUMBER := 0;
2180: l_batch_size NUMBER := 1000;
2181:
2182: BEGIN
2183: put_log('pn_opex_terms_pkg.approve_index_pay_term_batch (+) : ');
2184:
2185: put_log ('ip_agreement_number_lower '|| ip_agreement_number_lower);
2186: put_log ('ip_agreement_number_upper '|| ip_agreement_number_upper);
2187: put_log ('ip_main_lease_number_lower '|| ip_main_lease_number_lower);
2281: put_output (fnd_message.get||' :');
2282: display_error_messages (ip_message_string => 'PN_INDEX_NO_PAYT_TO_APPROVE');
2283: END IF;
2284:
2285: put_log('pn_opex_terms_pkg.approve_index_pay_term_batch (-) : ');
2286:
2287: END approve_opex_pay_term_batch;
2288:
2289:
2396: WHEN OTHERS THEN
2397: RETURN NULL;
2398:
2399: END get_unpaid_amt;
2400: END PN_OPEX_TERMS_PKG;