8: PROCEDURE UPDATE_PNT_ITEMS_AMT
9: (p_pnt_term_id IN pn_payment_items.payment_term_id%TYPE,
10: p_old_est_amt IN pn_payment_items.estimated_amount%TYPE,
11: p_new_est_amt IN pn_payment_items.estimated_amount%TYPE,
12: p_lease_id IN pn_payment_terms.lease_id%TYPE,
13: p_trm_str_dt IN DATE,
14: p_trm_end_dt IN DATE,
15: p_freq_code IN pn_payment_terms.frequency_code%TYPE);
16:
11: p_new_est_amt IN pn_payment_items.estimated_amount%TYPE,
12: p_lease_id IN pn_payment_terms.lease_id%TYPE,
13: p_trm_str_dt IN DATE,
14: p_trm_end_dt IN DATE,
15: p_freq_code IN pn_payment_terms.frequency_code%TYPE);
16:
17: -------------------------------------------------------------------
18: -- PROCEDURE UPDATE_PNT_ITEMS_RATE
19: -------------------------------------------------------------------
48: -- HISTORY :
49: -- 04-DEC-03 ftanudja o Added parameter area_type_code, area. 3257508.
50: -- 17-DEC-03 ATUPPAD o Added parameter grouping_rule_id.
51: -- Part of Grouping Logic for Invoices
52: -- 05-JUL-05 sdmahesh o Bug 4284035 - Replaced pn_payment_terms with _ALL
53: -- table.
54: -- 15-JUL-05 ftanudja o R12 changes. #4495054, #4497295
55: -- 24-NOV-05 Kiran o rounding for amounts done based on currency precision
56: -- 17-APR-06 Hareesha o Bug 5115291 Passed norm_start_date while inserting
53: -- table.
54: -- 15-JUL-05 ftanudja o R12 changes. #4495054, #4497295
55: -- 24-NOV-05 Kiran o rounding for amounts done based on currency precision
56: -- 17-APR-06 Hareesha o Bug 5115291 Passed norm_start_date while inserting
57: -- into pn_payment_terms_all
58: -- 14-AUG-06 Pikhar o Set update_nbp_flag to 'Y' on insert
59: -- 21-SEP-06 Hareesha o Removed populating pn_index_exclude_term basing on
60: -- profile option, since we are using a systemoption
61: -- 09-JAN-07 Lokesh o Removed call to CHECK_APPROVED_SCHEDULE_EXISTS which
176: )
177: IS
178: CURSOR c IS
179: SELECT ROWID
180: FROM pn_payment_terms_all
181: WHERE payment_term_id = x_payment_term_id;
182:
183: l_legal_entity_id pn_payment_terms.legal_entity_id%TYPE;
184: l_return_status VARCHAR2(2) := NULL;
179: SELECT ROWID
180: FROM pn_payment_terms_all
181: WHERE payment_term_id = x_payment_term_id;
182:
183: l_legal_entity_id pn_payment_terms.legal_entity_id%TYPE;
184: l_return_status VARCHAR2(2) := NULL;
185:
186: CURSOR org_cur IS
187: SELECT org_id FROM pn_leases_all WHERE lease_id = X_LEASE_ID;
254: ,ext_precision => l_ext_precision
255: ,min_acct_unit => l_min_acct_unit);
256:
257: BEGIN
258: INSERT INTO pn_payment_terms_all
259: (
260: PAYMENT_TERM_ID,
261: LAST_UPDATE_DATE,
262: LAST_UPDATED_BY,
366: OPEX_TYPE
367: )
368: VALUES
369: (
370: NVL(X_PAYMENT_TERM_ID,pn_payment_terms_s.NEXTVAL),
371: X_LAST_UPDATE_DATE,
372: X_LAST_UPDATED_BY,
373: X_CREATION_DATE,
374: X_CREATED_BY,
602: )
603: IS
604: CURSOR c1 IS
605: SELECT *
606: FROM PN_PAYMENT_TERMS_ALL
607: WHERE PAYMENT_TERM_ID = X_PAYMENT_TERM_ID
608: FOR UPDATE OF payment_term_id NOWAIT;
609:
610: --tlinfo c1%rowtype;
1079: -- PURPOSE : updates a term
1080: -- HISTORY :
1081: -- 04-DEC-03 ftanudja o Added parameter area_type_code, area. 3257508.
1082: -- 15-JUL-05 ftanudja o R12 changes. #4495054, #4497295
1083: -- 25-JUL-05 sdmahesh o Bug 4284035 - Replaced pn_payment_terms, pn_leases
1084: -- with _ALL table.
1085: -- 24-NOV-05 Kiran o rounding for amounts done based on currency precision
1086: -- 01-DEC-05 Hareesha o Fetched legal_entity_id into l_legal_entity_id
1087: -- for handling incase it has distributions.
1196: FROM dual
1197: WHERE EXISTS (SELECT 'Y' FROM pn_distributions_all
1198: WHERE payment_term_id = x_payment_term_id);
1199:
1200: l_legal_entity_id pn_payment_terms.legal_entity_id%TYPE;
1201: l_org_id pn_payment_terms.org_id%TYPE;
1202: l_find_le BOOLEAN;
1203: l_return_status VARCHAR2 (2) := NULL;
1204: l_old_est NUMBER;
1197: WHERE EXISTS (SELECT 'Y' FROM pn_distributions_all
1198: WHERE payment_term_id = x_payment_term_id);
1199:
1200: l_legal_entity_id pn_payment_terms.legal_entity_id%TYPE;
1201: l_org_id pn_payment_terms.org_id%TYPE;
1202: l_find_le BOOLEAN;
1203: l_return_status VARCHAR2 (2) := NULL;
1204: l_old_est NUMBER;
1205: l_status PN_LEASES.status%TYPE;
1203: l_return_status VARCHAR2 (2) := NULL;
1204: l_old_est NUMBER;
1205: l_status PN_LEASES.status%TYPE;
1206: l_context varchar2(240);
1207: l_rate pn_payment_terms.rate%TYPE;
1208: l_precision NUMBER;
1209: l_ext_precision NUMBER;
1210: l_min_acct_unit NUMBER;
1211: l_update_nbp_flag VARCHAR2(1);
1268: l_context := 'SELECTing estimated amt';
1269:
1270: SELECT estimated_amount
1271: INTO l_old_est
1272: FROM pn_payment_terms_all
1273: WHERE payment_term_id = X_PAYMENT_TERM_ID;
1274:
1275: IF (l_status = 'F' AND l_old_est <> X_ESTIMATED_AMOUNT) THEN
1276:
1289: l_context := 'Selecting old rate and org_id';
1290:
1291: SELECT rate, org_id,legal_entity_id
1292: INTO l_rate, l_org_id,l_legal_entity_id
1293: FROM pn_payment_terms_all
1294: WHERE payment_term_id = X_PAYMENT_TERM_ID;
1295:
1296: l_context := 'updating payment items rate IF rate IS changed';
1297:
1350: ,min_acct_unit => l_min_acct_unit);
1351:
1352: l_context := 'updating payment terms';
1353:
1354: UPDATE PN_PAYMENT_TERMS_ALL
1355: SET PAYMENT_TERM_ID = X_PAYMENT_TERM_ID,
1356: PAYMENT_PURPOSE_CODE = X_PAYMENT_PURPOSE_CODE,
1357: PAYMENT_TERM_TYPE_CODE = X_PAYMENT_TERM_TYPE_CODE,
1358: FREQUENCY_CODE = X_FREQUENCY_CODE,
1469: -- PROCDURE : DELETE_ROW
1470: -- INVOKED FROM : DELETE_ROW procedure
1471: -- PURPOSE : deletes the row
1472: -- HISTORY :
1473: -- 05-JUL-05 sdmahesh o Bug 4284035 - Replaced pn_payment_terms with _ALL
1474: -- table.
1475: -------------------------------------------------------------------------------
1476: PROCEDURE DELETE_ROW (
1477: X_PAYMENT_TERM_ID IN NUMBER
1480: BEGIN
1481:
1482: pnp_debug_pkg.debug ('PNT_PAYMENT_TERMS_PKG.DELETE_ROW (+)');
1483:
1484: DELETE FROM pn_payment_terms_all
1485: WHERE payment_term_id = x_payment_term_id;
1486:
1487: IF (SQL%NOTFOUND) THEN
1488: RAISE NO_DATA_FOUND;
1634: PROCEDURE UPDATE_PNT_ITEMS_AMT (
1635: p_pnt_term_id IN pn_payment_items.payment_term_id%TYPE,
1636: p_old_est_amt IN pn_payment_items.estimated_amount%TYPE,
1637: p_new_est_amt IN pn_payment_items.estimated_amount%TYPE,
1638: p_lease_id IN pn_payment_terms.lease_id%TYPE,
1639: p_trm_str_dt IN DATE,
1640: p_trm_end_dt IN DATE,
1641: p_freq_code IN pn_payment_terms.frequency_code%TYPE
1642: )
1637: p_new_est_amt IN pn_payment_items.estimated_amount%TYPE,
1638: p_lease_id IN pn_payment_terms.lease_id%TYPE,
1639: p_trm_str_dt IN DATE,
1640: p_trm_end_dt IN DATE,
1641: p_freq_code IN pn_payment_terms.frequency_code%TYPE
1642: )
1643: IS
1644:
1645: l_prorate_rule NUMBER;
1868: -- term record is 'corrected' or 'updated' in the Leases UI.
1869: -- HISTORY
1870: -- 15-OCT-04 Mrinal o Created.
1871: -- 15-JUL-05 ftanudja o R12 changes - #4495054, #4497295
1872: -- 25-JUL-05 sdmahesh o Bug 4284035 - Replaced pn_payment_terms with _ALL
1873: -- table.
1874: -------------------------------------------------------------------------------
1875: PROCEDURE create_hist_corr_upd(p_term_id IN NUMBER,
1876: p_dist_changed IN NUMBER,
1878: p_change_mode IN VARCHAR2,
1879: p_eff_str_dt IN DATE,
1880: p_eff_end_dt IN DATE) IS
1881:
1882: term_rec PN_PAYMENT_TERMS_ALL%ROWTYPE;
1883: n NUMBER(1);
1884: l_dist_change_id NUMBER(15);
1885: l_prev_term_hist_id NUMBER(15);
1886: l_new_term_id NUMBER(15);
1894: l_creation_date DATE;
1895: l_created_by NUMBER;
1896: l_last_update_login NUMBER;
1897: l_insert_dist_hist VARCHAR2(1);
1898: l_adj_type_code pn_payment_terms_history.adjustment_type_code%TYPE;
1899: l_term_comments pn_payment_terms_history.term_comments%TYPE;
1900: l_changed_flag pn_payment_terms.changed_flag%TYPE;
1901:
1902: CURSOR get_term_cur(p_term_id IN NUMBER) IS
1895: l_created_by NUMBER;
1896: l_last_update_login NUMBER;
1897: l_insert_dist_hist VARCHAR2(1);
1898: l_adj_type_code pn_payment_terms_history.adjustment_type_code%TYPE;
1899: l_term_comments pn_payment_terms_history.term_comments%TYPE;
1900: l_changed_flag pn_payment_terms.changed_flag%TYPE;
1901:
1902: CURSOR get_term_cur(p_term_id IN NUMBER) IS
1903: SELECT *
1896: l_last_update_login NUMBER;
1897: l_insert_dist_hist VARCHAR2(1);
1898: l_adj_type_code pn_payment_terms_history.adjustment_type_code%TYPE;
1899: l_term_comments pn_payment_terms_history.term_comments%TYPE;
1900: l_changed_flag pn_payment_terms.changed_flag%TYPE;
1901:
1902: CURSOR get_term_cur(p_term_id IN NUMBER) IS
1903: SELECT *
1904: FROM pn_payment_terms_all
1900: l_changed_flag pn_payment_terms.changed_flag%TYPE;
1901:
1902: CURSOR get_term_cur(p_term_id IN NUMBER) IS
1903: SELECT *
1904: FROM pn_payment_terms_all
1905: WHERE payment_term_id = p_term_id;
1906:
1907: CURSOR get_dist_cur(p_term_id IN NUMBER) IS
1908: SELECT *
1917: AND pd.payment_term_id = p_term_id;
1918:
1919: CURSOR get_max_term_hist_id_cur(p_term_id IN NUMBER) IS
1920: SELECT MAX(term_history_id)
1921: FROM pn_payment_terms_history
1922: WHERE payment_term_id = p_term_id;
1923: BEGIN
1924:
1925: pnp_debug_pkg.debug('PNT_PAYMENT_TERMS_PKG.create_hist_corr_upd (+)');
2066: END LOOP;
2067:
2068: pnp_debug_pkg.debug('create_hist_corr_upd : Inserting in Term Hist. for very first time');
2069:
2070: INSERT INTO pn_payment_terms_history
2071: (
2072: TERM_HISTORY_ID
2073: ,LAST_UPDATE_DATE
2074: ,LAST_UPDATED_BY
2172: ,AREA_TYPE_CODE
2173: ,AREA
2174: ,TERM_COMMENTS)
2175: VALUES
2176: (PN_PAYMENT_TERMS_HISTORY_S.NEXTVAL
2177: ,SYSDATE
2178: ,FND_GLOBAL.USER_ID
2179: ,SYSDATE
2180: ,FND_GLOBAL.USER_ID
2276: ,tlinfo.AREA_TYPE_CODE
2277: ,tlinfo.AREA
2278: ,NULL);
2279:
2280: pnp_debug_pkg.debug('create_hist_corr_upd : Updating Term Altered Flag in pn_payment_terms_all');
2281:
2282: UPDATE pn_payment_terms_all
2283: SET term_altered_flag = 'Y'
2284: WHERE payment_term_id = p_term_id;
2278: ,NULL);
2279:
2280: pnp_debug_pkg.debug('create_hist_corr_upd : Updating Term Altered Flag in pn_payment_terms_all');
2281:
2282: UPDATE pn_payment_terms_all
2283: SET term_altered_flag = 'Y'
2284: WHERE payment_term_id = p_term_id;
2285: END IF;
2286:
2412:
2413: pnp_debug_pkg.debug('create_hist_corr_upd : l_adj_type_code :'||l_adj_type_code);
2414: pnp_debug_pkg.debug('create_hist_corr_upd : '||p_change_mode|| '- Inserting into Term Hist.');
2415:
2416: INSERT INTO pn_payment_terms_history
2417: (TERM_HISTORY_ID
2418: ,LAST_UPDATE_DATE
2419: ,LAST_UPDATED_BY
2420: ,CREATION_DATE
2517: ,AREA_TYPE_CODE
2518: ,AREA
2519: ,TERM_COMMENTS)
2520: VALUES
2521: (PN_PAYMENT_TERMS_HISTORY_S.NEXTVAL
2522: ,SYSDATE
2523: ,FND_GLOBAL.USER_ID
2524: ,SYSDATE
2525: ,FND_GLOBAL.USER_ID
2632:
2633: IF (p_eff_str_dt > term_rec.start_date AND
2634: NVL(p_eff_end_dt, term_rec.end_date) <= term_rec.end_date) THEN
2635:
2636: SELECT pn_payment_terms_s.nextval
2637: INTO l_new_term_id
2638: FROM DUAL;
2639:
2640: l_adj_type_code := NULL;
2642:
2643: pnp_debug_pkg.debug('create_hist_corr_upd : '||p_change_mode|| '- l_new_term_id: '||l_new_term_id);
2644: pnp_debug_pkg.debug('create_hist_corr_upd : '||p_change_mode|| '- Updating term with new Term Id');
2645:
2646: UPDATE pn_payment_terms_all
2647: SET start_date = p_eff_str_dt,
2648: end_date = NVL(p_eff_end_dt,term_rec.end_date),
2649: term_altered_flag = 'Y',
2650: changed_flag = 'N',
2738: NVL(p_eff_end_dt, term_rec.end_date) <= term_rec.end_date) THEN
2739:
2740: pnp_debug_pkg.debug('create_hist_corr_upd : '||p_change_mode|| '- Updating term with Eff. End Date');
2741:
2742: UPDATE pn_payment_terms_all
2743: SET end_date = NVL(p_eff_end_dt, term_rec.end_date),
2744: term_altered_flag = 'Y',
2745: changed_flag = 'Y'
2746: WHERE payment_term_id = p_term_id;
2759: pnp_debug_pkg.debug('create_hist_corr_upd : '||p_change_mode|| '- l_new_term_id: '||l_new_term_id);
2760: pnp_debug_pkg.debug('create_hist_corr_upd : '||p_change_mode|| '- l_dist_change_id: '||l_dist_change_id);
2761: pnp_debug_pkg.debug('create_hist_corr_upd : '||p_change_mode|| '- Inserting into Term Hist.');
2762:
2763: INSERT INTO pn_payment_terms_history
2764: (TERM_HISTORY_ID
2765: ,LAST_UPDATE_DATE
2766: ,LAST_UPDATED_BY
2767: ,CREATION_DATE
2864: ,AREA_TYPE_CODE
2865: ,AREA
2866: ,TERM_COMMENTS)
2867: VALUES
2868: (PN_PAYMENT_TERMS_HISTORY_S.NEXTVAL
2869: ,SYSDATE
2870: ,FND_GLOBAL.USER_ID
2871: ,SYSDATE
2872: ,FND_GLOBAL.USER_ID
3008: i = 2) OR
3009: (p_eff_str_dt = term_rec.start_date AND
3010: i = 1) THEN
3011:
3012: SELECT pn_payment_terms_s.nextval
3013: INTO l_term_id
3014: FROM DUAL;
3015:
3016: l_str_dt := NVL(p_eff_end_dt, term_rec.end_date) + 1;
3030: pnp_debug_pkg.debug('create_hist_corr_upd : '||p_change_mode|| '- l_str_dt : '||l_str_dt);
3031: pnp_debug_pkg.debug('create_hist_corr_upd : '||p_change_mode|| '- l_end_dt : '||l_end_dt);
3032: pnp_debug_pkg.debug('create_hist_corr_upd : '||p_change_mode|| '- Inserting into Terms table.');
3033:
3034: INSERT INTO pn_payment_terms_all
3035: (PAYMENT_TERM_ID
3036: ,LAST_UPDATE_DATE
3037: ,LAST_UPDATED_BY
3038: ,CREATION_DATE
3402: END IF;
3403:
3404: pnp_debug_pkg.debug('create_hist_corr_upd : '||p_change_mode|| '- Inserting into Term Hist. table.');
3405:
3406: INSERT INTO pn_payment_terms_history
3407: (TERM_HISTORY_ID
3408: ,LAST_UPDATE_DATE
3409: ,LAST_UPDATED_BY
3410: ,CREATION_DATE
3507: ,AREA_TYPE_CODE
3508: ,AREA
3509: ,TERM_COMMENTS)
3510: VALUES
3511: (PN_PAYMENT_TERMS_HISTORY_S.NEXTVAL
3512: ,SYSDATE
3513: ,FND_GLOBAL.USER_ID
3514: ,SYSDATE
3515: ,FND_GLOBAL.USER_ID
3620: END create_hist_corr_upd;
3621:
3622: --------------------------------------------------------------------------------
3623: -- FUNCTION : return_agreement_number
3624: -- INVOKED FROM : pn_payment_terms_v form view (PNPTERMV.sql)
3625: -- PURPOSE : returns the agreement number to which the payment term is associated.
3626: -- HISTORY :
3627: --
3628: -- 12-MAR-07 Prabhakar o Created.
3632: l_agreement_number VARCHAR2(30) := NULL;
3633:
3634: CURSOR c1 IS
3635: SELECT opex_agr_id,index_period_id,var_rent_inv_id,rec_agr_line_id
3636: FROM pn_payment_terms_all
3637: where payment_term_id = p_payment_term_id;
3638:
3639: BEGIN
3640:
3719: END CHECK_IF_OPEX_TERM;
3720:
3721: --------------------------------------------------------------------------------
3722: -- FUNCTION : get_source_module_type
3723: -- INVOKED FROM : pn_payment_terms_v form view (PNPTERMV.sql)
3724: -- PURPOSE : returns the source of the term from which it is created.
3725: -- HISTORY :
3726: --
3727: -- 09-MAY-07 Prabhakar o Created.
3736: index_period_id,
3737: var_rent_inv_id,
3738: rec_agr_line_id,
3739: source_code
3740: FROM pn_payment_terms_all
3741: where payment_term_id = p_payment_term_id;
3742:
3743: BEGIN
3744:
3771: BEGIN
3772:
3773: pnp_debug_pkg.debug ('PNT_PAYMENT_TERMS_PKG.MODIFY_ROW (+)');
3774:
3775: UPDATE pn_payment_terms_all
3776: SET changed_flag = x_changed_flag
3777: WHERE payment_term_id = NVL(x_payment_term_id ,payment_term_id )
3778: AND var_rent_inv_id = x_var_rent_inv_id;
3779: