[Home] [Help]
1: PACKAGE BODY pn_index_lease_constraints_pkg AS
2: -- $Header: PNTINLCB.pls 120.3 2007/01/30 10:39:43 pseeram ship $
3:
4:
5: /*============================================================================+
83: l_org_ID NUMBER;
84:
85: BEGIN
86:
87: PNP_DEBUG_PKG.debug (' PN_INDEX_LEASE_CONSTRAINTS_PKG.insert_row (+)');
88: /* If no INDEX_CONSTRAINT_ID is provided, get one from sequence */
89:
90: IF (x_index_constraint_id IS NULL) THEN
91: SELECT pn_index_lease_constraints_s.NEXTVAL
100: ELSE
101: l_org_id := x_org_id;
102: END IF;
103:
104: pn_index_lease_constraints_pkg.check_unq_constraint_scope (
105: l_return_status
106: ,x_index_constraint_id
107: ,x_index_lease_id
108: ,x_scope
185: RAISE NO_DATA_FOUND;
186: END IF;
187: CLOSE c;
188:
189: PNP_DEBUG_PKG.debug (' PN_INDEX_LEASE_CONSTRAINTS_PKG.insert_row (-)');
190: END insert_row;
191:
192:
193: -------------------------------------------------------------------------------
234: IS
235: l_return_status VARCHAR2 (30) := NULL;
236: BEGIN
237:
238: PNP_DEBUG_PKG.debug (' PN_INDEX_LEASE_CONSTRAINTS_PKG.update_row (+)');
239:
240: pn_index_lease_constraints_pkg.check_unq_constraint_scope (
241: l_return_status
242: ,x_index_constraint_id
236: BEGIN
237:
238: PNP_DEBUG_PKG.debug (' PN_INDEX_LEASE_CONSTRAINTS_PKG.update_row (+)');
239:
240: pn_index_lease_constraints_pkg.check_unq_constraint_scope (
241: l_return_status
242: ,x_index_constraint_id
243: ,x_index_lease_id
244: ,x_scope
281: IF (SQL%NOTFOUND) THEN
282: RAISE NO_DATA_FOUND;
283: END IF;
284:
285: PNP_DEBUG_PKG.debug (' PN_INDEX_LEASE_CONSTRAINTS_PKG.update_row (-)');
286:
287: END update_row;
288:
289: -------------------------------------------------------------------------------
330:
331: tlinfo c1%ROWTYPE;
332: BEGIN
333:
334: PNP_DEBUG_PKG.debug (' PN_INDEX_LEASE_CONSTRAINTS_PKG.lock_row (+)');
335: OPEN c1;
336: FETCH c1 INTO tlinfo;
337: IF (c1%NOTFOUND) THEN
338: CLOSE c1;
371: OR ((tlinfo.maximum_percent IS NULL) AND x_maximum_percent IS NULL)) THEN
372: pn_var_rent_pkg.lock_row_exception('MAXIMUM_PERCENT',tlinfo.maximum_percent);
373: END IF;
374:
375: PNP_DEBUG_PKG.debug (' PN_INDEX_LEASE_CONSTRAINTS_PKG.lock_row (-)');
376: END lock_row;
377:
378:
379: -------------------------------------------------------------------------------
389: x_rowid IN VARCHAR2
390: )
391: IS
392: BEGIN
393: PNP_DEBUG_PKG.debug (' PN_INDEX_LEASE_CONSTRAINTS_PKG.delete_row (+)');
394:
395: DELETE FROM pn_index_lease_constraints_all
396: WHERE ROWID = x_rowid;
397:
398: IF (SQL%NOTFOUND) THEN
399: RAISE NO_DATA_FOUND;
400: END IF;
401:
402: PNP_DEBUG_PKG.debug (' PN_INDEX_LEASE_CONSTRAINTS_PKG.delete_row (-)');
403: END delete_row;
404:
405:
406: -------------------------------------------------------------------------------
415: x_index_constraint_id IN NUMBER
416: )
417: IS
418: BEGIN
419: PNP_DEBUG_PKG.debug (' PN_INDEX_LEASE_CONSTRAINTS_PKG.delete_row (+)');
420: DELETE FROM pn_index_lease_constraints_all
421: WHERE index_constraint_id = x_index_constraint_id;
422:
423: IF (SQL%NOTFOUND) THEN
423: IF (SQL%NOTFOUND) THEN
424: RAISE NO_DATA_FOUND;
425: END IF;
426:
427: PNP_DEBUG_PKG.debug (' PN_INDEX_LEASE_CONSTRAINTS_PKG.delete_row (-)');
428: END delete_row;
429:
430:
431: -------------------------------------------------------------------------------
460: WHEN NO_DATA_FOUND THEN
461: fnd_message.set_name ('PN', 'PN_DUP_INDEX_LEASE_NUMBER');
462: x_return_status := 'E';
463: END check_unq_constraint_scope;
464: END pn_index_lease_constraints_pkg;