102: l_org_ID NUMBER;
103:
104: BEGIN
105:
106: PNP_DEBUG_PKG.debug (' PN_INDEX_LEASE_PERIODS_PKG.insert_row (+)');
107: /* If no INDEX_PERIOD_ID is provided, get one from sequence */
108: IF (x_index_period_id IS NULL) THEN
109: SELECT pn_index_lease_periods_s.NEXTVAL
110: INTO x_index_period_id
224: CLOSE c;
225: RAISE NO_DATA_FOUND;
226: END IF;
227: CLOSE c;
228: PNP_DEBUG_PKG.debug (' PN_INDEX_LEASE_PERIODS_PKG.insert_row (-)');
229: END insert_row;
230:
231:
232: -------------------------------------------------------------------------------
282: IS
283: l_return_status VARCHAR2 (30) := NULL;
284: BEGIN
285:
286: PNP_DEBUG_PKG.debug (' PN_INDEX_LEASE_PERIODS_PKG.update_row (+)');
287: IF (l_return_status IS NOT NULL)
288: THEN
289: app_exception.raise_exception;
290: END IF;
335: THEN
336: RAISE NO_DATA_FOUND;
337: END IF;
338:
339: PNP_DEBUG_PKG.debug (' PN_INDEX_LEASE_PERIODS_PKG.update_row (-)');
340: END update_row;
341:
342: -------------------------------------------------------------------------------
343: -- PROCDURE : update_row_calc
404: l_carry_forward_percent pn_index_lease_periods.carry_forward_percent%type;
405:
406: BEGIN
407:
408: PNP_DEBUG_PKG.debug (' PN_INDEX_LEASE_PERIODS_PKG.update_row_calc (+)');
409: IF (l_return_status IS NOT NULL)
410: THEN
411: app_exception.raise_exception;
412: END IF;
549: END IF;
550:
551: END IF;
552:
553: PNP_DEBUG_PKG.debug (' PN_INDEX_LEASE_PERIODS_PKG.update_row_calc (-)');
554: END update_row_calc;
555:
556:
557: -------------------------------------------------------------------------------
610:
611: tlinfo c1%ROWTYPE;
612: BEGIN
613:
614: PNP_DEBUG_PKG.debug (' PN_INDEX_LEASE_PERIODS_PKG.lock_row (+)');
615: OPEN c1;
616: FETCH c1 INTO tlinfo;
617: IF (c1%NOTFOUND)
618: THEN
716: OR ((tlinfo.constraint_applied_percent IS NULL) AND x_constraint_applied_percent IS NULL)) THEN
717: pn_var_rent_pkg.lock_row_exception('CONSTRAINT_RENT_DUE',tlinfo.constraint_applied_percent);
718: END IF;
719:
720: PNP_DEBUG_PKG.debug (' PN_INDEX_LEASE_PERIODS_PKG.lock_row (-)');
721: END lock_row;
722:
723:
724: -------------------------------------------------------------------------------
731: -------------------------------------------------------------------------------
732: PROCEDURE delete_row (x_rowid IN VARCHAR2)
733: IS
734: BEGIN
735: PNP_DEBUG_PKG.debug (' PN_INDEX_LEASE_PERIODS_PKG.delete_row (+)');
736: DELETE FROM pn_index_lease_periods_all
737: WHERE ROWID = x_rowid;
738:
739: IF (SQL%NOTFOUND)
740: THEN
741: RAISE NO_DATA_FOUND;
742: END IF;
743:
744: PNP_DEBUG_PKG.debug (' PN_INDEX_LEASE_PERIODS_PKG.delete_row (-)');
745: END delete_row;
746:
747: -------------------------------------------------------------------------------
748: -- PROCDURE : delete_row
754: -------------------------------------------------------------------------------
755: PROCEDURE delete_row (x_index_period_id IN NUMBER)
756: IS
757: BEGIN
758: PNP_DEBUG_PKG.debug (' PN_INDEX_LEASE_PERIODS_PKG.delete_row (+)');
759: DELETE FROM pn_index_lease_periods_all
760: WHERE index_period_id = x_index_period_id;
761:
762: IF (SQL%NOTFOUND)
763: THEN
764: RAISE NO_DATA_FOUND;
765: END IF;
766:
767: PNP_DEBUG_PKG.debug (' PN_INDEX_LEASE_PERIODS_PKG.delete_row (-)');
768: END delete_row;
769:
770:
771: