The following lines contain the word 'select', 'insert', 'update' or 'delete':
| INSERT_ROW - insert a row into PN_INDEX_LEASE_CONSTRAINTS.
| DELETE_ROW - deletes a row from PN_INDEX_LEASE_CONSTRAINTS.
| UPDATE_ROW - updates a row from PN_INDEX_LEASE_CONSTRAINTS.
| LOCKS_ROW - will check if a row has been modified since being
| queried by form.
|
|
| HISTORY
| 11-APR-2001 jbreyes o Created
| 13-DEC-2001 Mrinal Misra o Added dbdrv command.
| 15-JAN-2002 Mrinal Misra o In dbdrv command changed phase=pls to phase=plb.
| Added checkfile.Ref. Bug# 2184724.
| 09-JUL-2002 ftanudja o added x_org_id parameter in insert_row for
| shared serv. enh.
| 23-JUL-2002 ftanudja o changed lock_row to comply with new standards
| 05-Jul-2005 hrodda o overloaded delete_row proc to take PK as parameter
| 19-JAN-2007 Prabnhakar o Modified the update_row update where condition.
+============================================================================*/
-------------------------------------------------------------------------------
-- PROCDURE : INSERT_ROW
-- INVOKED FROM : insert_row procedure
-- PURPOSE : inserts the row
-- HISTORY :
-- 04-JUL-05 hrodda o Bug 4284035 - Replaced pn_index_lease_constraints with
-- _ALL table.
-------------------------------------------------------------------------------
PROCEDURE insert_row (
x_rowid IN OUT NOCOPY VARCHAR2
,x_org_id IN NUMBER
,x_index_constraint_id IN OUT NOCOPY NUMBER
,x_index_lease_id IN NUMBER
,x_scope IN VARCHAR2
,x_last_update_date IN DATE
,x_last_updated_by IN NUMBER
,x_creation_date IN DATE
,x_created_by IN NUMBER
,x_minimum_amount IN NUMBER
,x_maximum_amount IN NUMBER
,x_minimum_percent IN NUMBER
,x_maximum_percent IN NUMBER
,x_last_update_login IN NUMBER
,x_attribute_category IN VARCHAR2
,x_attribute1 IN VARCHAR2
,x_attribute2 IN VARCHAR2
,x_attribute3 IN VARCHAR2
,x_attribute4 IN VARCHAR2
,x_attribute5 IN VARCHAR2
,x_attribute6 IN VARCHAR2
,x_attribute7 IN VARCHAR2
,x_attribute8 IN VARCHAR2
,x_attribute9 IN VARCHAR2
,x_attribute10 IN VARCHAR2
,x_attribute11 IN VARCHAR2
,x_attribute12 IN VARCHAR2
,x_attribute13 IN VARCHAR2
,x_attribute14 IN VARCHAR2
,x_attribute15 IN VARCHAR2
) IS
CURSOR c IS
SELECT ROWID
FROM pn_index_lease_constraints_all
WHERE index_constraint_id = x_index_constraint_id;
SELECT org_id FROM pn_index_leases_all WHERE index_lease_id = x_index_lease_id;
PNP_DEBUG_PKG.debug (' PN_INDEX_LEASE_CONSTRAINTS_PKG.insert_row (+)');
SELECT pn_index_lease_constraints_s.NEXTVAL
INTO x_index_constraint_id
FROM DUAL;
INSERT INTO pn_index_lease_constraints_all
(
index_constraint_id
,org_id
,index_lease_id
,scope
,last_update_date
,last_updated_by
,creation_date
,created_by
,minimum_amount
,maximum_amount
,minimum_percent
,maximum_percent
,last_update_login
,attribute_category
,attribute1
,attribute2
,attribute3
,attribute4
,attribute5
,attribute6
,attribute7
,attribute8
,attribute9
,attribute10
,attribute11
,attribute12
,attribute13
,attribute14
,attribute15
)
VALUES
(
x_index_constraint_id
,l_org_id
,x_index_lease_id
,x_scope
,x_last_update_date
,x_last_updated_by
,x_creation_date
,x_created_by
,x_minimum_amount
,x_maximum_amount
,x_minimum_percent
,x_maximum_percent
,x_last_update_login
,x_attribute_category
,x_attribute1
,x_attribute2
,x_attribute3
,x_attribute4
,x_attribute5
,x_attribute6
,x_attribute7
,x_attribute8
,x_attribute9
,x_attribute10
,x_attribute11
,x_attribute12
,x_attribute13
,x_attribute14
,x_attribute15
);
PNP_DEBUG_PKG.debug (' PN_INDEX_LEASE_CONSTRAINTS_PKG.insert_row (-)');
END insert_row;
PROCEDURE update_row
(
x_rowid IN VARCHAR2
,x_index_constraint_id IN NUMBER
,x_index_lease_id IN NUMBER
,x_scope IN VARCHAR2
,x_last_update_date IN DATE
,x_last_updated_by IN NUMBER
,x_minimum_amount IN NUMBER
,x_maximum_amount IN NUMBER
,x_minimum_percent IN NUMBER
,x_maximum_percent IN NUMBER
,x_last_update_login IN NUMBER
,x_attribute_category IN VARCHAR2
,x_attribute1 IN VARCHAR2
,x_attribute2 IN VARCHAR2
,x_attribute3 IN VARCHAR2
,x_attribute4 IN VARCHAR2
,x_attribute5 IN VARCHAR2
,x_attribute6 IN VARCHAR2
,x_attribute7 IN VARCHAR2
,x_attribute8 IN VARCHAR2
,x_attribute9 IN VARCHAR2
,x_attribute10 IN VARCHAR2
,x_attribute11 IN VARCHAR2
,x_attribute12 IN VARCHAR2
,x_attribute13 IN VARCHAR2
,x_attribute14 IN VARCHAR2
,x_attribute15 IN VARCHAR2
)
IS
l_return_status VARCHAR2 (30) := NULL;
PNP_DEBUG_PKG.debug (' PN_INDEX_LEASE_CONSTRAINTS_PKG.update_row (+)');
UPDATE pn_index_lease_constraints_all
SET
index_lease_id = x_index_lease_id
,scope = x_scope
,last_update_date = x_last_update_date
,last_updated_by = x_last_updated_by
,minimum_amount = x_minimum_amount
,maximum_amount = x_maximum_amount
,minimum_percent = x_minimum_percent
,maximum_percent = x_maximum_percent
,last_update_login = x_last_update_login
,attribute_category = x_attribute_category
,attribute1 = x_attribute1
,attribute2 = x_attribute2
,attribute3 = x_attribute3
,attribute4 = x_attribute4
,attribute5 = x_attribute5
,attribute6 = x_attribute6
,attribute7 = x_attribute7
,attribute8 = x_attribute8
,attribute9 = x_attribute9
,attribute10 = x_attribute10
,attribute11 = x_attribute11
,attribute12 = x_attribute12
,attribute13 = x_attribute13
,attribute14 = x_attribute14
,attribute15 = x_attribute15
WHERE index_constraint_id = x_index_constraint_id;
PNP_DEBUG_PKG.debug (' PN_INDEX_LEASE_CONSTRAINTS_PKG.update_row (-)');
END update_row;
SELECT *
FROM pn_index_lease_constraints_all
WHERE index_constraint_id = x_index_constraint_id
FOR UPDATE OF index_constraint_id NOWAIT;
PROCEDURE delete_row
(
x_rowid IN VARCHAR2
)
IS
BEGIN
PNP_DEBUG_PKG.debug (' PN_INDEX_LEASE_CONSTRAINTS_PKG.delete_row (+)');
DELETE FROM pn_index_lease_constraints_all
WHERE ROWID = x_rowid;
PNP_DEBUG_PKG.debug (' PN_INDEX_LEASE_CONSTRAINTS_PKG.delete_row (-)');
END delete_row;
PROCEDURE delete_row (
x_index_constraint_id IN NUMBER
)
IS
BEGIN
PNP_DEBUG_PKG.debug (' PN_INDEX_LEASE_CONSTRAINTS_PKG.delete_row (+)');
DELETE FROM pn_index_lease_constraints_all
WHERE index_constraint_id = x_index_constraint_id;
PNP_DEBUG_PKG.debug (' PN_INDEX_LEASE_CONSTRAINTS_PKG.delete_row (-)');
END delete_row;
SELECT 1
INTO l_dummy
FROM DUAL
WHERE NOT EXISTS ( SELECT 1
FROM pn_index_lease_constraints_all
WHERE (scope = x_scope)
AND (index_lease_id = x_index_lease_id)
AND ( (x_index_constraint_id IS NULL)
OR (index_constraint_id <> x_index_constraint_id)
));