[Home] [Help]
771: BEGIN
772: indx := 0;
773:
774: select DECODE(p_freq_code,'QTR',3,'SA',6,'YR',12)
775: into period_duration from dual;
776:
777: while months_counter <= 12
778: loop
779: cal_table(indx) := add_months(p_yr_start_dt, months_counter);
1724: IF check_sch%NOTFOUND THEN
1725:
1726: SELECT pn_payment_schedules_s.NEXTVAL
1727: INTO l_sch_id
1728: FROM DUAL;
1729:
1730: l_pymnt_st_lkp_cd := 'DRAFT';
1731:
1732: INSERT INTO pn_payment_schedules_all
1804: pnp_debug_pkg.log('create_schedule: select executed' );
1805:
1806: EXCEPTION WHEN NO_DATA_FOUND THEN
1807: SELECT pn_payment_schedules_s.NEXTVAL INTO l_sch_id
1808: FROM DUAL;
1809: pnp_debug_pkg.log('create_schedule: l_sch_id ' || l_sch_id);
1810: INSERT INTO pn_payment_schedules_all(
1811: payment_schedule_id,
1812: last_update_date,
2561: /* CASH */
2562: begin -- Bug 7149537
2563: select 1 /* 7149537 */
2564: into l_draft_exist
2565: from dual
2566: where exists(select * from pn_payment_items_all
2567: where due_date = l_norm_sch_dt
2568: and payment_term_id = p_term_id
2569: and payment_item_type_lookup_code = 'CASH'
3792:
3793: BEGIN
3794: SELECT 'Y'
3795: INTO l_exists
3796: FROM DUAL
3797: WHERE EXISTS (SELECT NULL
3798: FROM pn_space_assign_cust_all psa
3799: WHERE psa.tenancy_id = p_tenancy_id
3800: AND (EXISTS (SELECT NULL
8232:
8233: CURSOR bkhd_exists_cur
8234: IS
8235: select 'x'
8236: FROM DUAL
8237: where exists (select BKHD_DEFAULT_ID
8238: from pn_var_bkpts_head_all
8239: where period_id IN (select PERIOD_ID
8240: FROM pn_var_periods_all
8255: AND details.lease_change_id = det_history.new_lease_change_id;
8256:
8257: CURSOR no_periods_exist_cur IS
8258: SELECT 'Y'
8259: FROM DUAL
8260: WHERE NOT EXISTS ( SELECT NULL
8261: FROM pn_index_leases_all ilease, pn_index_lease_periods_all period
8262: WHERE ilease.lease_id = p_lease_id
8263: AND period.index_lease_id = ilease.index_lease_id);
8334:
8335: WHILE(l_start_pos <= length(p_lease_context))
8336: LOOP
8337: select decode(instr(p_lease_context,':',l_start_pos),0,length(p_lease_context),instr(p_lease_context,':',l_start_pos)-1)
8338: into l_end_pos from dual;
8339: l_lease_context := substr(p_lease_context,l_start_pos,l_end_pos - l_start_pos + 1);
8340: l_start_pos := l_end_pos + 2;
8341:
8342: IF l_lease_context = 'CON' AND p_called_from = 'MAIN' THEN