[Home] [Help]
46: ppt.currency_code,
47: ppt.rate,
48: ppt.index_period_id,
49: ppt.norm_start_date
50: FROM pn_payment_terms_all ppt
51: WHERE ppt.lease_id = p_lease_id
52: AND ppt.var_rent_inv_id IS NULL
53: AND ppt.period_billrec_id IS NULL
54: AND EXISTS (SELECT NULL
76: ppt.currency_code,
77: ppt.rate,
78: ppt.index_period_id,
79: ppt.norm_start_date
80: FROM pn_payment_terms_all ppt
81: WHERE ppt.lease_id = p_lease_id
82: AND ppt.index_period_id IS NOT NULL
83: AND ppt.status = 'APPROVED'
84: AND ppt.index_term_indicator NOT IN ('BACKBILL','ATLEAST-BACKBILL')
117: ppt.currency_code,
118: ppt.rate,
119: ppt.norm_start_date,
120: ppt.norm_end_date
121: FROM pn_payment_terms_all ppt
122: WHERE ppt.lease_id = p_lease_id
123: AND ppt.payment_term_id = p_payment_term_id
124: AND EXISTS (SELECT NULL
125: FROM pn_payment_items_all ppi
163: ppt.currency_code,
164: ppt.rate,
165: ppt.index_period_id,
166: ppt.norm_start_date
167: FROM pn_payment_terms_all ppt
168: WHERE ppt.lease_id = p_lease_id
169: AND NVL(ppt.normalize,'N') = 'Y'
170: AND NVL(ppt.status,'APPROVED') = 'APPROVED'
171: AND EXISTS (SELECT NULL
205: ppt.currency_code,
206: ppt.rate,
207: ppt.index_period_id,
208: ppt.norm_start_date
209: FROM pn_payment_terms_all ppt
210: WHERE ppt.lease_id = p_lease_id
211: AND ppt.var_rent_inv_id IS NULL
212: AND ppt.period_billrec_id IS NULL
213: AND (NVL(ppt.normalize,'N') = 'Y' AND NVL(ppt.norm_end_date, ppt.end_date) > p_cutoff_date) /* 6699877 */
236: ppt.currency_code,
237: ppt.rate,
238: ppt.index_period_id,
239: ppt.norm_start_date
240: FROM pn_payment_terms_all ppt
241: WHERE ppt.lease_id = p_lease_id
242: AND ppt.index_period_id IS NOT NULL
243: AND ppt.status = 'APPROVED'
244: AND ppt.index_term_indicator NOT IN ('BACKBILL','ATLEAST-BACKBILL')
286: ppt.rate,
287: ppt.norm_start_date,
288: plc.change_type_lookup_code,
289: plc.change_commencement_date
290: FROM pn_payment_terms_all ppt,
291: pn_lease_changes_all plc
292: WHERE ppt.lease_id = p_lease_id
293: AND ppt.lease_change_id = plc.lease_change_id
294: AND ppt.index_period_id IS NULL
331: ppt.set_of_books_id,
332: ppt.currency_code,
333: ppt.rate,
334: ppt.norm_start_date
335: FROM pn_payment_terms_all ppt
336: WHERE ppt.payment_term_id = p_term_id
337: AND NOT EXISTS (SELECT NULL
338: FROM pn_payment_items_all ppi
339: WHERE ppt.lease_id = p_lease_id
370: ppt.set_of_books_id,
371: ppt.currency_code,
372: ppt.rate,
373: ppt.norm_start_date
374: FROM pn_payment_terms_all ppt
375: WHERE lease_id = p_lease_id
376: AND ppt.index_period_id IS NULL
377: AND ppt.var_rent_inv_id IS NULL
378: AND ppt.period_billrec_id IS NULL
413: ppt.currency_code,
414: ppt.rate,
415: ppt.norm_start_date,
416: ppt.norm_end_date
417: FROM pn_payment_terms_all ppt
418: WHERE ppt.lease_id = p_lease_id
419: AND ppt.changed_flag = 'Y'
420: AND EXISTS (SELECT NULL
421: FROM pn_payment_items_all ppi
461: CURSOR leave_alone_amt(p_lease_id Number) IS
462: SELECT NVL(SUM(ppi.actual_amount),0)
463: FROM pn_payment_items_all ppi,
464: pn_payment_schedules_all pps,
465: pn_payment_terms_all ppt
466: WHERE ppt.payment_term_id = ppi.payment_term_id
467: AND ppt.lease_id = p_lease_id
468: AND ppi.payment_item_type_lookup_code = 'NORMALIZED'
469: AND pps.payment_schedule_id = ppi.payment_schedule_id
492: sum(ppi.actual_amount) actual_amount,
493: sum(nvl(ppi.export_currency_amount,0)) export_currency_amount
494: FROM pn_payment_items_all ppi,
495: pn_payment_schedules_all pps,
496: pn_payment_terms_all ppt
497: WHERE ppt.payment_term_id = ppi.payment_term_id
498: AND ppt.lease_id = p_lease_id
499: AND ppt.normalize = 'Y'
500: AND ppi.payment_item_type_lookup_code = 'NORMALIZED'
548: sum(decode(payment_item_type_lookup_code,'CASH',b.actual_amount,0)) -
549: sum(decode(payment_item_type_lookup_code,'NORMALIZED',b.actual_amount,0)) diff_act_amt,
550: sum(decode(payment_item_type_lookup_code,'CASH',b.export_currency_amount,0)) -
551: sum(decode(payment_item_type_lookup_code,'NORMALIZED',b.export_currency_amount,0)) diff_exp_amt
552: FROM pn_payment_terms_all a,
553: pn_payment_items_all b,
554: pn_leases_all c
555: WHERE a.payment_term_id = b.payment_term_id
556: AND a.normalize = 'Y'
565:
566: --Get the last Payment_item_id, where the Approved amount will be reversed
567: CURSOR get_payment_item(p_lease_id Number, p_payment_term_id Number) IS
568: SELECT MAX(c.payment_item_id)
569: FROM pn_payment_terms_all a,
570: pn_payment_schedules_all b,
571: pn_payment_items_all c
572: WHERE a.lease_id = p_lease_id
573: AND a.payment_term_id = p_payment_term_id
1010: and the new lease termination date */
1011:
1012: select norm_start_date /* 9231686 */
1013: into l_norm_str_dt
1014: from pn_payment_terms_all
1015: where payment_term_id = p_term_id;
1016:
1017: IF l_norm_str_dt IS NULL
1018: THEN
1880: l_actual_amount pn_payment_items.actual_amount%TYPE;
1881:
1882: CURSOR org_cur IS
1883: SELECT org_id
1884: FROM pn_payment_terms_all
1885: WHERE payment_term_id = p_term_id;
1886:
1887: CURSOR get_calc_date_recur_bb ( p_term_id IN NUMBER) IS
1888: SELECT recur_bb_calc_date
1885: WHERE payment_term_id = p_term_id;
1886:
1887: CURSOR get_calc_date_recur_bb ( p_term_id IN NUMBER) IS
1888: SELECT recur_bb_calc_date
1889: FROM pn_payment_terms_all
1890: WHERE payment_term_id = p_term_id
1891: AND recur_bb_calc_date IS NOT NULL;
1892:
1893: CURSOR get_inv_grp_rule IS
1891: AND recur_bb_calc_date IS NOT NULL;
1892:
1893: CURSOR get_inv_grp_rule IS
1894: SELECT grouping_rule_id
1895: FROM pn_payment_terms_all
1896: WHERE payment_term_id = p_term_id;
1897:
1898: l_org_id NUMBER;
1899: l_sch_dt DATE := p_sch_dt;
2113:
2114:
2115: CURSOR get_org_id(l_term_id NUMBER) IS
2116: SELECT org_id
2117: FROM pn_payment_terms_all
2118: WHERE payment_term_id = l_term_id;
2119:
2120: -- Added distinct clause for bug#12728421, the below cursor was returning duplicate schedule dates in case multiple approved
2121: -- schedules exist for the same period
2152: l_due_date DATE;
2153:
2154: CURSOR get_calc_date_recur_bb ( p_term_id IN NUMBER) IS
2155: SELECT recur_bb_calc_date
2156: FROM pn_payment_terms_all
2157: WHERE payment_term_id = p_term_id
2158: AND recur_bb_calc_date IS NOT NULL ;
2159:
2160: CURSOR get_inv_grp_rule IS
2158: AND recur_bb_calc_date IS NOT NULL ;
2159:
2160: CURSOR get_inv_grp_rule IS
2161: SELECT grouping_rule_id
2162: FROM pn_payment_terms_all
2163: WHERE payment_term_id = p_term_id;
2164:
2165: l_inv_grp_rule NUMBER := NULL;
2166:
2780:
2781: END IF;
2782:
2783: -- Added for BUG#2590872
2784: UPDATE pn_payment_terms_all
2785: SET event_type_code = p_lease_context
2786: WHERE normalize ='Y'
2787: AND payment_term_id = p_term_id;
2788:
2936: -- Bug 7570052
2937: SELECT cal_start
2938: INTO l_cal_yr_st_dt
2939: FROM PN_LEASES_ALL
2940: WHERE LEASE_ID = (select distinct lease_id from pn_payment_terms_all where payment_term_id = p_payment_term_id);
2941:
2942: l_sch_dt := p_sch_dt;
2943: l_sch_day := TO_CHAR(l_sch_dt,'DD');
2944:
3425: l_ext_precision NUMBER;
3426: l_min_acct_unit NUMBER;
3427:
3428: CURSOR currency_cur IS
3429: SELECT currency_code FROM pn_payment_terms_all WHERE payment_term_id = p_term_id;
3430:
3431: BEGIN
3432:
3433: pnp_debug_pkg.log('update_cash_item +Start+ (+)');
3546: end_date,
3547: actual_amount,
3548: estimated_amount,
3549: frequency_code
3550: FROM pn_payment_terms_all
3551: WHERE lease_id = g_lease_id
3552: --AND end_date = p_new_lease_term_date Bug 9150650
3553: AND frequency_code <> 'OT';
3554:
3651: -- 07-FEB-2002 Satish Tripathi o Added variable l_norm_str_dt to capture Normalize Start
3652: -- Date, if the term is added through AMEND.
3653: -- 26-MAR-2002 Satish Tripathi o Added variable l_sch_str_dt to correctly point the
3654: -- Schedule-Start-Date for NON MONTHLY Payment Term.
3655: -- 10-DEC-2002 graghuna o Modified to update pn_payment_terms_all.norm_end_date
3656: -- for Month-to-Month Re-Normalization issue. --MTM-I
3657: -- 16-OCT-2003 Satish Tripathi o Fix for BUG# 3201091. Conditionally pass lease_context
3658: -- depending on change_type_lookup_code of a particular term.
3659: -- Pass new parameter p_amd_comm_dt to get_sch_info and
3760:
3761: END IF;
3762:
3763: IF add_main_cur.normalize = 'Y' THEN
3764: UPDATE pn_payment_terms_all
3765: SET norm_start_date = NVL(l_norm_str_dt, p_new_lea_comm_dt),
3766: norm_end_date = g_new_lea_term_dt
3767: WHERE payment_term_id = add_main_cur.payment_term_id;
3768: END IF;
4042: -- 07-FEB-2002 Satish Tripathi o Added variable l_norm_str_dt to capture Normalize Start
4043: -- Date, if term was added through AMEND and pass it to
4044: -- routine CREATE_NORMALIZE_ITEMS.
4045: -- 10-DEC-2002 graghuna o Modified to get and pass p_active_lease_change_id to
4046: -- cursor and update pn_payment_terms_all.norm_end_date
4047: -- for Month-to-Month Re-Normalization issue. --MTM-I
4048: -- 16-OCT-2003 Satish Tripathi o Fix for BUG# 3201091. Pass new parameter p_lease_change_id
4049: -- to create_normalize_items.
4050: -- 03-DEC-2003 Satish Tripathi o Call Contract_Tenancies to early terminate tenancies only
4097: WHERE lease_id = p_lease_id
4098: AND schedule_date > p_new_lea_term_dt
4099: AND payment_status_lookup_code = 'DRAFT')
4100: AND payment_term_id NOT IN (SELECT payment_term_id
4101: FROM pn_payment_terms_all
4102: WHERE lease_id = p_lease_id
4103: AND var_rent_inv_id IS NOT NULL);
4104:
4105: /* Delete payment schedules for the lease which are in draft status
4116: WHERE pitm.payment_schedule_id = psch.payment_schedule_id);
4117:
4118: DELETE pn_payment_items_all
4119: WHERE payment_term_id IN (SELECT payment_term_id
4120: FROM pn_payment_terms_all
4121: WHERE start_date > p_new_lea_term_dt
4122: AND lease_id = p_lease_id)
4123: AND payment_term_id NOT IN (SELECT payment_term_id
4124: FROM pn_payment_terms_all
4120: FROM pn_payment_terms_all
4121: WHERE start_date > p_new_lea_term_dt
4122: AND lease_id = p_lease_id)
4123: AND payment_term_id NOT IN (SELECT payment_term_id
4124: FROM pn_payment_terms_all
4125: WHERE lease_id = p_lease_id
4126: AND var_rent_inv_id IS NOT NULL);
4127:
4128: /* Delete payment terms for the lease which have term start date
4129: greater than lease termination date. */
4130:
4131: pnp_debug_pkg.log('CON - MAIN - Deleting Payment Terms');
4132:
4133: DELETE pn_payment_terms_all
4134: WHERE lease_id = p_lease_id
4135: AND start_date > p_new_lea_term_dt
4136: AND var_rent_inv_id IS NULL;
4137:
4139: lease termination date. */
4140:
4141: pnp_debug_pkg.log('CON - MAIN - Updating end date of Payment Terms');
4142:
4143: UPDATE pn_payment_terms_all
4144: SET end_date = p_new_lea_term_dt,
4145: last_update_date = SYSDATE,
4146: last_updated_by = NVL(fnd_profile.value('USER_ID'),0),
4147: last_update_login= NVL(fnd_profile.value('LOGIN_ID'),0)
4220:
4221: pnp_debug_pkg.log('CON - MAIN - Renormalization done for Term : '
4222: ||TO_CHAR(con_cur.payment_term_id));
4223:
4224: UPDATE pn_payment_terms_all
4225: SET norm_end_date = g_new_lea_term_dt
4226: WHERE payment_term_id = con_cur.payment_term_id;
4227:
4228: END LOOP;
4417: greater than lease termination date. */
4418:
4419: pnp_debug_pkg.log('CONTRACTION_BY_ITM_END_DT - MAIN - Deleting Payment Terms');
4420:
4421: DELETE pn_payment_terms_all term
4422: WHERE lease_id = p_lease_id
4423: AND start_date > p_new_lea_term_dt
4424: AND index_period_id IS NULL
4425: AND NOT EXISTS(SELECT 1
4434:
4435: pnp_debug_pkg.log('CONTRACTION_BY_ITM_END_DT - MAIN - Updating end date of Payment Terms');
4436:
4437: FOR i IN 1 .. l_item_end_dt_tbl.COUNT LOOP
4438: UPDATE pn_payment_terms_all
4439: SET end_date = l_item_end_dt_tbl(i).item_end_dt,
4440: last_update_date = SYSDATE,
4441: last_updated_by = NVL(fnd_profile.value('USER_ID'),0),
4442: last_update_login= NVL(fnd_profile.value('LOGIN_ID'),0)
4503:
4504: pnp_debug_pkg.log('CONTRACTION_BY_ITM_END_DT - MAIN - Renormalization done for Term : '
4505: ||TO_CHAR(con_cur.payment_term_id));
4506:
4507: UPDATE pn_payment_terms_all
4508: SET norm_end_date = p_new_lea_term_dt
4509: WHERE payment_term_id = con_cur.payment_term_id;
4510:
4511: END LOOP;
4549: -- Date, if term was added through AMEND.
4550: -- 26-MAR-2002 Satish Tripathi o Added variable l_sch_str_dt to correctly point the
4551: -- Schedule-Start-Date for NON MONTHLY Payment Term.
4552: -- 10-DEC-2002 graghuna o Modified to get and pass p_active_lease_change_id to
4553: -- cursor and update pn_payment_terms_all.norm_end_date
4554: -- for Month-to-Month Re-Normalization issue. --MTM-I
4555: -- 16-OCT-2003 Satish Tripathi o Fix for BUG# 3201091. Pass new parameter p_lease_change_id
4556: -- to process_term.
4557: -- 24-MAR-2004 Satish Tripathi o Fixed for BUG# 3295405. If norm_start_date is null
4584: l_active_lease_change_id pn_lease_details.lease_change_id%TYPE;
4585: l_cutoff_date DATE;
4586: l_ext_dt DATE;
4587: l_old_lease_end_date DATE;
4588: l_payment_term_rec pn_payment_terms_all%ROWTYPE;
4589: x_return_status VARCHAR2(100);
4590: x_return_message VARCHAR2(100);
4591: l_lease_change_id NUMBER;
4592: l_lease_status_old VARCHAR2(30);
4625: AND pld.lease_id = p_lease_id;
4626:
4627: CURSOR get_main_lease_terms_to_expand( p_old_lease_end_date DATE) IS
4628: SELECT *
4629: FROM pn_payment_terms_all
4630: WHERE lease_id = p_lease_id
4631: AND end_date = p_old_lease_end_date
4632: AND index_period_id IS NULL
4633: AND var_rent_inv_id IS NULL
4778: p_index_prd_id => con_cur.index_period_id,
4779: p_norm_str_dt => l_norm_str_dt,
4780: p_lease_change_id => con_cur.lease_change_id);
4781:
4782: UPDATE pn_payment_terms_all
4783: SET norm_end_date = g_new_lea_term_dt
4784: WHERE payment_term_id = con_cur.payment_term_id;
4785:
4786: pnp_debug_pkg.log('EXPANSION - processed term '||TO_CHAR(con_cur.payment_term_id));
4860: x_return_message => x_return_message );
4861:
4862: ELSE
4863:
4864: UPDATE pn_payment_terms_all
4865: SET end_date = l_lease_term_date,
4866: lease_change_id = l_lease_change_id,
4867: last_update_date = SYSDATE,
4868: last_updated_by = fnd_global.user_id,
4896: p_new_end_date => g_new_lea_term_dt,
4897: x_return_status => x_return_status,
4898: x_return_message => x_return_message);
4899:
4900: UPDATE pn_payment_terms_all
4901: SET end_date = g_new_lea_term_dt
4902: WHERE payment_term_id = l_payment_term_rec.payment_term_id;
4903:
4904: /* commented and replaced by the below code for bug #10184924
5071: p_msg => l_msg);
5072: END IF;
5073:
5074: if l_cutoff_date > l_payment_term_rec.norm_end_date then
5075: UPDATE pn_payment_terms_all
5076: SET norm_end_date = p_new_lea_term_dt
5077: WHERE payment_term_id = l_payment_term_rec.payment_term_id and normalize='Y';
5078:
5079: end if;
5095: -- 07-FEB-2002 Satish Tripathi o Added variable l_norm_str_dt to capture Normalize Start
5096: -- Date, if term was added through AMEND.
5097: -- 26-MAR-2002 Satish Tripathi o Added variable l_sch_str_dt to correctly point the
5098: -- Schedule-Start-Date for NON MONTHLY Payment Term.
5099: -- 10-DEC-2002 graghuna o Modified to update pn_payment_terms_all.norm_end_date
5100: -- for Month-to-Month Re-Normalization issue. --MTM-I
5101: -- 16-OCT-2003 Satish Tripathi o Fix for BUG# 3201091. Pass new parameter p_lease_change_id
5102: -- to process_term.
5103: -- 20-NOV-2006 Hareesha o MTM Uptake - Added handling for creating schedules and items
5143: ppt.set_of_books_id,
5144: ppt.currency_code,
5145: ppt.rate,
5146: ppt.norm_start_date
5147: FROM pn_payment_terms_all ppt
5148: WHERE lease_id = p_lease_id
5149: AND ppt.index_period_id IS NULL
5150: AND ppt.var_rent_inv_id IS NULL
5151: AND ppt.period_billrec_id IS NULL
5282: p_norm_str_dt => l_norm_str_dt,
5283: p_lease_change_id => abs_cur.lease_change_id);
5284:
5285: IF abs_cur.normalize = 'Y' THEN
5286: UPDATE pn_payment_terms_all
5287: SET norm_start_date = NVL(l_norm_str_dt, p_new_lea_comm_dt),
5288: norm_end_date = g_new_lea_term_dt
5289: WHERE payment_term_id = abs_cur.payment_term_id;
5290: END IF;
5398: p_norm_str_dt => l_norm_str_dt,
5399: p_lease_change_id => add_ind_var_cur.lease_change_id);
5400:
5401: IF add_ind_var_cur.normalize = 'Y' THEN
5402: UPDATE pn_payment_terms_all
5403: SET norm_start_date = l_norm_str_dt,
5404: norm_end_date = g_new_lea_term_dt
5405: WHERE payment_term_id = add_ind_var_cur.payment_term_id;
5406: END IF;
5656: END IF;
5657:
5658: END IF;
5659:
5660: UPDATE pn_payment_terms_all
5661: SET changed_flag = 'N'
5662: WHERE payment_term_id = pay_term_con_cur.payment_term_id;
5663:
5664: END LOOP;
5842: -- 03-APR-07 Prabhakar o Bug #5958872. Added the two parameters area and
5843: -- area_type_code in the call to inser_row handler.
5844: -- 08-DEC-11 acprakas o Bug#13468332. modifying to pass include_in_var_rent column
5845: -------------------------------------------------------------------------------
5846: PROCEDURE Insert_Payment_Term (p_payment_term_rec IN OUT NOCOPY pn_payment_terms_all%ROWTYPE,
5847: x_return_status OUT NOCOPY VARCHAR2,
5848: x_return_message OUT NOCOPY VARCHAR2)
5849: IS
5850:
6037: -- to consider CASH amount only. Also added some
6038: -- debug messages.
6039: --------------------------------------------------------------------------------
6040:
6041: PROCEDURE Extend_Payment_Term (p_payment_term_rec IN pn_payment_terms_all%ROWTYPE,
6042: p_new_lea_comm_dt IN DATE,
6043: p_new_lea_term_dt IN DATE,
6044: p_mths IN NUMBER,
6045: p_new_start_date IN DATE ,
6058: l_sch_end_dt DATE;
6059: l_norm_st_dt DATE;
6060: l_sch_id pn_payment_schedules.payment_schedule_id%TYPE;
6061: l_pymnt_st_lkp_cd pn_payment_schedules.payment_status_lookup_code%TYPE;
6062: l_est_amt pn_payment_terms_all.estimated_amount%TYPE;
6063: l_act_amt pn_payment_terms_all.actual_amount%TYPE;
6064: l_cash_est_amt pn_payment_terms_all.estimated_amount%TYPE;
6065: l_cash_act_amt pn_payment_terms_all.actual_amount%TYPE;
6066: l_rec_found BOOLEAN := FALSE;
6059: l_norm_st_dt DATE;
6060: l_sch_id pn_payment_schedules.payment_schedule_id%TYPE;
6061: l_pymnt_st_lkp_cd pn_payment_schedules.payment_status_lookup_code%TYPE;
6062: l_est_amt pn_payment_terms_all.estimated_amount%TYPE;
6063: l_act_amt pn_payment_terms_all.actual_amount%TYPE;
6064: l_cash_est_amt pn_payment_terms_all.estimated_amount%TYPE;
6065: l_cash_act_amt pn_payment_terms_all.actual_amount%TYPE;
6066: l_rec_found BOOLEAN := FALSE;
6067: l_sch_day VARCHAR2(240);
6060: l_sch_id pn_payment_schedules.payment_schedule_id%TYPE;
6061: l_pymnt_st_lkp_cd pn_payment_schedules.payment_status_lookup_code%TYPE;
6062: l_est_amt pn_payment_terms_all.estimated_amount%TYPE;
6063: l_act_amt pn_payment_terms_all.actual_amount%TYPE;
6064: l_cash_est_amt pn_payment_terms_all.estimated_amount%TYPE;
6065: l_cash_act_amt pn_payment_terms_all.actual_amount%TYPE;
6066: l_rec_found BOOLEAN := FALSE;
6067: l_sch_day VARCHAR2(240);
6068: l_exist_amount NUMBER;
6061: l_pymnt_st_lkp_cd pn_payment_schedules.payment_status_lookup_code%TYPE;
6062: l_est_amt pn_payment_terms_all.estimated_amount%TYPE;
6063: l_act_amt pn_payment_terms_all.actual_amount%TYPE;
6064: l_cash_est_amt pn_payment_terms_all.estimated_amount%TYPE;
6065: l_cash_act_amt pn_payment_terms_all.actual_amount%TYPE;
6066: l_rec_found BOOLEAN := FALSE;
6067: l_sch_day VARCHAR2(240);
6068: l_exist_amount NUMBER;
6069:
6112: -- Bug 7570052
6113: SELECT cal_start
6114: INTO l_cal_yr_st_dt
6115: FROM PN_LEASES_ALL
6116: WHERE LEASE_ID = (select distinct lease_id from pn_payment_terms_all where payment_term_id = p_payment_term_rec.payment_term_id);
6117:
6118: get_sch_info(p_lease_context => 'ABS',
6119: p_normalize_flag => 'N',
6120: p_mths => p_mths,
6379: -- to process_term.
6380: -- 16-OCT-06 Hareesha o Populate index_norm_flag and parent_term_id while
6381: -- creating not-normalized terms for rollover period.
6382: -------------------------------------------------------------------------------
6383: PROCEDURE Create_Payment_Term (p_payment_term_rec IN pn_payment_terms_all%ROWTYPE,
6384: p_lease_end_date IN DATE,
6385: p_term_start_date IN DATE,
6386: p_term_end_date IN DATE,
6387: p_new_lea_term_dt IN DATE,
6396: l_new_term_start_date DATE := NULL;
6397: l_schedule_date DATE := NULL;
6398: l_sch_id NUMBER := NULL;
6399: l_curr_payment_term_id NUMBER := NULL;
6400: l_payment_term_rec pn_payment_terms_all%ROWTYPE;
6401: l_pro_sch_dt pn_payment_schedules.schedule_date%TYPE;
6402: l_no_sch NUMBER;
6403: l_freq NUMBER;
6404: l_counter NUMBER;
6534: IS
6535:
6536: CURSOR payment_terms_cursor (p_date DATE) IS
6537: SELECT *
6538: FROM pn_payment_terms_all
6539: WHERE lease_id = p_lease_id
6540: AND frequency_code <> 'OT'
6541: AND index_period_id IS NULL
6542: AND end_date = p_date;
6564: l_schd_date DATE := NULL;
6565: l_schd_day NUMBER := NULL;
6566: l_lease_change_id pn_lease_details.lease_change_id%TYPE;
6567: l_rollover_mode VARCHAR2(30) := NULL;
6568: l_freq_code pn_payment_terms_all.frequency_code%TYPE;
6569: l_freq NUMBER;
6570: l_no_of_sch NUMBER;
6571: l_last_sch_date DATE;
6572: l_duration_in_months NUMBER;
6632: x_return_message => x_return_message);
6633:
6634: pnp_debug_pkg.log('ROLLOVER - Update end date of payment term..');
6635:
6636: UPDATE pn_payment_terms_all
6637: SET end_date = p_lease_end_date,
6638: lease_status = 'MTM'
6639: WHERE payment_term_id = l_payment_term_rec.payment_term_id;
6640:
6724: x_return_status => x_return_status,
6725: x_return_message => x_return_message);
6726:
6727: pnp_debug_pkg.log('ROLLOVER - Update end date of payment term..');
6728: UPDATE pn_payment_terms_all
6729: SET end_date = p_lease_end_date,
6730: lease_status = 'MTM'
6731: WHERE payment_term_id = l_payment_term_rec.payment_term_id;
6732: END IF;
6956: SUM(DECODE(ppi.payment_item_type_lookup_code, 'NORMALIZED',
6957: NVL(ppi.actual_amount,0), 0)) norm_amt
6958: FROM pn_payment_items_all ppi,
6959: pn_payment_schedules_all pps,
6960: pn_payment_terms_all ppt
6961: WHERE ppt.lease_id = g_lease_id
6962: AND ppt.lease_id = pps.lease_id
6963: AND pps.payment_schedule_id = ppi.payment_schedule_id
6964: AND ppt.payment_term_id = ppi.payment_term_id
7090: SELECT agr.rec_agreement_name
7091: ,agr.rec_agreement_num
7092: FROM pn_rec_agreements_all agr
7093: ,pn_rec_agr_lines_all line
7094: ,pn_payment_terms_all term
7095: WHERE agr.lease_id = g_lease_id
7096: AND agr.rec_agreement_id = line.rec_agreement_id
7097: AND term.payment_term_id = p_term_id
7098: AND line.purpose = term.payment_purpose_code
7156: SELECT pvr.rent_num
7157: FROM pn_var_rents_all pvr
7158: ,pn_var_rent_inv_all pvri
7159: ,pn_var_abatements_all pva
7160: ,pn_payment_terms_all ppt
7161: WHERE ppt.payment_term_id = p_term_id
7162: AND pva.payment_term_id = ppt.payment_term_id
7163: AND pvri.var_rent_inv_id = pva.var_rent_inv_id
7164: AND pvri.invoice_date BETWEEN ppt.start_date
7225: l_act_amount NUMBER;
7226:
7227: CURSOR currency_cur IS
7228: SELECT currency_code
7229: FROM pn_payment_terms_all
7230: WHERE payment_term_id = p_payment_term_id;
7231:
7232: BEGIN
7233: pnp_debug_pkg.log('UPDATE TERMS +Start+ (+)');
7247: l_act_amount := TO_NUMBER(NULL);
7248: END IF;
7249:
7250: /* Updates the term with new term start/end date */
7251: UPDATE pn_payment_terms_all
7252: SET start_date = NVL(p_new_lea_term_start_dt, start_date),
7253: end_date = p_new_lea_term_end_dt,
7254: actual_amount = NVL(l_act_amount, actual_amount),
7255: last_update_date = SYSDATE,
7289: l_adj_amount NUMBER;
7290:
7291: CURSOR currency_cur IS
7292: SELECT currency_code
7293: FROM pn_payment_terms_all
7294: WHERE payment_term_id = p_term_id;
7295:
7296: BEGIN
7297: pnp_debug_pkg.log('update_cash_item +Start+ (-)');
7427: DELETE pn_payment_items_all
7428: WHERE payment_term_id = p_payment_term_id;
7429:
7430: pnp_debug_pkg.log('Deleting term ....'||p_payment_term_id);
7431: DELETE pn_payment_terms_all
7432: WHERE payment_term_id = p_payment_term_id;
7433:
7434:
7435: pnp_debug_pkg.log('Delete term End (-)');
7461: -- before renormalizing the terms.
7462: -- 04-APR-06 piagrawa o Bug#5107134 - modified delete statement to include
7463: -- status 'ON_HOLD'
7464: -- 02-JAN-09 acprakas o Bug#7016892. Modified code to update changed_flag
7465: -- of pn_payment_terms_all only when lease context is
7466: -- CONTERM.
7467: -- 15-JUL-09 jsundara o Bug8608490 - if lease context is CONTERM,
7468: -- get last cash sched date as term end date.
7469: -- 14-OCT-09 amehrotr o Bug#9019575. Modified to use the already determined
7571: END IF;
7572:
7573: select schedule_day
7574: INTO l_sch_dy
7575: from pn_payment_terms_all
7576: where payment_term_id = p_payment_term_id; /* 9231686 */
7577:
7578:
7579:
7846:
7847: END IF; /* IF p_normalize = 'Y' */
7848:
7849: IF p_lease_context = 'CONTERM' THEN
7850: UPDATE pn_payment_terms_all
7851: SET changed_flag = 'N'
7852: WHERE payment_term_id = pay_term_con_cur.payment_term_id;
7853: END IF;
7854:
8225:
8226: CURSOR terms_cur (p1_lease_id IN NUMBER)
8227: IS
8228: SELECT UPDATE_NBP_FLAG
8229: FROM PN_PAYMENT_TERMS_ALL
8230: WHERE lease_id = p1_lease_id
8231: FOR UPDATE NOWAIT;
8232:
8233: CURSOR bkhd_exists_cur
8560:
8561:
8562: END LOOP;
8563:
8564: UPDATE pn_payment_terms_all
8565: SET UPDATE_NBP_FLAG = NULL
8566: WHERE lease_id = p_lease_id;
8567:
8568: