54:
55: PROCEDURE put_log (
56: p_string IN VARCHAR2) IS
57: BEGIN
58: pn_index_lease_common_pkg.put_log (p_string);
59: END put_log;
60:
61:
62: ------------------------------------------------------------------------
68:
69: PROCEDURE put_output (
70: p_string IN VARCHAR2) IS
71: BEGIN
72: pn_index_lease_common_pkg.put_output (p_string);
73: END put_output;
74:
75:
76: ------------------------------------------------------------------------
834: -- Periods can only be deleted if no periods are approved, the following steps are taken:
835: -- - check that no index rent period has payment terms that have been approved.
836: --
837: --
838: pn_index_lease_common_pkg.chk_for_approved_index_periods (
839: p_index_lease_id => p_index_lease_id
840: ,p_index_lease_period_id => NULL
841: ,p_msg => v_msg);
842:
913: -- results '1' - periods exists
914: -- NULL - no periods found
915:
916: IF NVL (
917: pn_index_lease_common_pkg.find_if_period_exists (
918: p_index_lease_id => ilp.index_lease_id)
919: ,0) = 1 -- OR ip_regenerate_YN ='Y'
920: THEN
921: v_periods_found := TRUE;
1034: -- do not create periods if periods exists.
1035: --
1036:
1037: IF NVL (
1038: pn_index_lease_common_pkg.find_if_period_exists (
1039: p_index_lease_id => ip_index_lease_id)
1040: ,0) <> 1 THEN
1041: FOR ilp IN index_lease_periods (ip_index_lease_id)
1042: LOOP
1321:
1322: /*IF p_ignore_approved_terms = 'N' THEN
1323: FOR il_rec IN il_recs_to_delete (p_index_lease_id, v_new_termination_date)
1324: LOOP
1325: pn_index_lease_common_pkg.chk_for_approved_index_periods (
1326: p_index_lease_id => p_index_lease_id
1327: ,p_index_lease_period_id => il_rec.index_period_id
1328: ,p_msg => v_msg);
1329: DBMS_OUTPUT.put_line ( '*******V_MSG='