The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE Insert_Row
(
X_ROWID IN OUT NOCOPY VARCHAR2,
X_LEASE_CHANGE_ID IN OUT NOCOPY NUMBER,
X_LEASE_ID IN NUMBER,
X_LEASE_CHANGE_NUMBER IN OUT NOCOPY NUMBER,
X_LEASE_CHANGE_NAME IN VARCHAR2,
X_RESPONSIBLE_USER IN NUMBER,
X_CHANGE_COMMENCEMENT_DATE IN DATE,
X_CHANGE_TERMINATION_DATE IN DATE,
X_CHANGE_TYPE_LOOKUP_CODE IN VARCHAR2,
X_CHANGE_EXECUTION_DATE IN DATE,
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,
X_ABSTRACTED_BY_USER IN NUMBER,
X_CREATION_DATE IN DATE,
X_CREATED_BY IN NUMBER,
X_LAST_UPDATE_DATE IN DATE,
X_LAST_UPDATED_BY IN NUMBER,
X_LAST_UPDATE_LOGIN IN NUMBER,
x_org_id IN NUMBER,
x_cutoff_date IN DATE
)
IS
CURSOR C IS
SELECT ROWID
FROM pn_lease_changes_all
WHERE lease_change_id = x_lease_change_id;
SELECT org_id
FROM pn_leases_all
WHERE lease_id = x_lease_id;
pnp_debug_pkg.debug ('PN_LEASE_CHANGES_PKG.Insert_Row (+)');
SELECT NVL(MAX(pnc.lease_change_number), 0)
INTO x_lease_change_number
FROM pn_lease_changes_all pnc
WHERE pnc.lease_id = x_lease_id
AND pnc.change_type_lookup_code = x_change_type_lookup_code;
SELECT pn_lease_transactions_s.NEXTVAL
INTO l_leaseTransactionId
FROM DUAL;
INSERT INTO pn_lease_transactions_all
(
LEASE_TRANSACTION_ID
,LEASE_ID
,LOCATION_ID
,TRANSACTION_TYPE
,LAST_UPDATE_DATE
,LAST_UPDATED_BY
,CREATION_DATE
,CREATED_BY
,LAST_UPDATE_LOGIN
,DATE_EFFECTIVE
,org_id
)
VALUES
(
l_leaseTransactionId
,X_LEASE_ID
,NULL
,X_CHANGE_TYPE_LOOKUP_CODE
,X_LAST_UPDATE_DATE
,X_LAST_UPDATED_BY
,X_CREATION_DATE
,X_CREATED_BY
,X_LAST_UPDATE_LOGIN
,X_CREATION_DATE
,l_org_id
);
SELECT pn_lease_changes_s.NEXTVAL
INTO x_lease_change_id
FROM DUAL;
INSERT INTO pn_lease_changes_all
(
LEASE_CHANGE_ID
,LEASE_ID
,LEASE_TRANSACTION_ID
,LEASE_CHANGE_NUMBER
,LEASE_CHANGE_NAME
,RESPONSIBLE_USER
,CHANGE_COMMENCEMENT_DATE
,CHANGE_TERMINATION_DATE
,CHANGE_TYPE_LOOKUP_CODE
,CHANGE_EXECUTION_DATE
,ATTRIBUTE_CATEGORY
,ATTRIBUTE1
,ATTRIBUTE2
,ATTRIBUTE3
,ATTRIBUTE4
,ATTRIBUTE5
,ATTRIBUTE6
,ATTRIBUTE7
,ATTRIBUTE8
,ATTRIBUTE9
,ATTRIBUTE10
,ATTRIBUTE11
,ATTRIBUTE12
,ATTRIBUTE13
,ATTRIBUTE14
,ATTRIBUTE15
,ABSTRACTED_BY_USER
,CREATION_DATE
,CREATED_BY
,LAST_UPDATE_DATE
,LAST_UPDATED_BY
,LAST_UPDATE_LOGIN
,org_id
,CUTOFF_DATE
)
VALUES
(
X_LEASE_CHANGE_ID
,X_LEASE_ID
,l_leaseTransactionId
,X_LEASE_CHANGE_NUMBER
,X_LEASE_CHANGE_NAME
,X_RESPONSIBLE_USER
,X_CHANGE_COMMENCEMENT_DATE
,X_CHANGE_TERMINATION_DATE
,X_CHANGE_TYPE_LOOKUP_CODE
,X_CHANGE_EXECUTION_DATE
,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
,X_ABSTRACTED_BY_USER
,X_CREATION_DATE
,X_CREATED_BY
,X_LAST_UPDATE_DATE
,X_LAST_UPDATED_BY
,X_LAST_UPDATE_LOGIN
,l_org_id
,x_cutoff_date
);
pnp_debug_pkg.debug ('PN_LEASE_CHANGES_PKG.Insert_Row (-)');
END Insert_Row;
SELECT *
FROM pn_lease_changes_all
WHERE lease_change_id = x_lease_change_id
FOR UPDATE OF lease_change_id NOWAIT;
PROCEDURE Update_Row
(
X_LEASE_CHANGE_ID IN NUMBER,
X_RESPONSIBLE_USER IN NUMBER,
X_CHANGE_COMMENCEMENT_DATE IN DATE,
X_CHANGE_TERMINATION_DATE IN DATE,
X_CHANGE_TYPE_LOOKUP_CODE IN VARCHAR2,
X_CHANGE_EXECUTION_DATE IN DATE,
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,
X_LEASE_ID IN NUMBER,
X_LEASE_TRANSACTION_ID IN NUMBER,
X_LEASE_CHANGE_NUMBER IN NUMBER,
X_LEASE_CHANGE_NAME IN VARCHAR2,
X_ABSTRACTED_BY_USER IN NUMBER,
X_LAST_UPDATE_DATE IN DATE,
X_LAST_UPDATED_BY IN NUMBER,
X_LAST_UPDATE_LOGIN IN NUMBER
)
IS
BEGIN
pnp_debug_pkg.debug ('PN_LEASE_CHANGES_PKG.Update_Row (+)');
UPDATE pn_lease_changes_all
SET RESPONSIBLE_USER = X_RESPONSIBLE_USER,
CHANGE_COMMENCEMENT_DATE = X_CHANGE_COMMENCEMENT_DATE,
CHANGE_TERMINATION_DATE = X_CHANGE_TERMINATION_DATE,
CHANGE_TYPE_LOOKUP_CODE = X_CHANGE_TYPE_LOOKUP_CODE,
CHANGE_EXECUTION_DATE = X_CHANGE_EXECUTION_DATE,
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,
LEASE_ID = X_LEASE_ID,
LEASE_TRANSACTION_ID = X_LEASE_TRANSACTION_ID,
LEASE_CHANGE_NUMBER = X_LEASE_CHANGE_NUMBER,
LEASE_CHANGE_NAME = X_LEASE_CHANGE_NAME,
ABSTRACTED_BY_USER = X_ABSTRACTED_BY_USER,
LEASE_CHANGE_ID = X_LEASE_CHANGE_ID,
LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
LAST_UPDATED_BY = X_LAST_UPDATED_BY,
LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
WHERE LEASE_CHANGE_ID = X_LEASE_CHANGE_ID;
pnp_debug_pkg.debug ('PN_LEASE_CHANGES_PKG.Update_Row (-)');
END Update_Row;
PROCEDURE Delete_Row
(
X_LEASE_CHANGE_ID IN NUMBER
)
IS
BEGIN
pnp_debug_pkg.debug ('PN_LEASE_CHANGES_PKG.Delete_Row (+)');
DELETE FROM pn_lease_changes_all
WHERE lease_change_id = x_lease_change_id;
pnp_debug_pkg.debug ('PN_LEASE_CHANGES_PKG.Delete_Row (-)');
END Delete_Row;
PROCEDURE Delete_Row_Transactions
(
X_LEASE_TRANSACTION_ID IN NUMBER
)
IS
BEGIN
pnp_debug_pkg.debug ('PN_LEASE_CHANGES_PKG.Delete_Row_Transactions (+)');
DELETE FROM pn_lease_transactions_all
WHERE lease_transaction_id = x_lease_transaction_id;
pnp_debug_pkg.debug ('PN_LEASE_CHANGES_PKG.Delete_Row_Transactions (-)');
END Delete_Row_Transactions;
SELECT 1
INTO l_dummy
FROM DUAL
WHERE NOT EXISTS (SELECT 1
FROM pn_lease_changes_all plc
WHERE plc.change_type_lookup_code = x_change_type_lookup_code
AND plc.lease_id = X_LEASE_ID
);
SELECT name
INTO l_leaseName
FROM pn_leases_all
WHERE lease_id = X_LEASE_ID;
SELECT 1
INTO l_dummy
FROM DUAL
WHERE NOT EXISTS (SELECT 1
FROM pn_lease_changes_all plc
WHERE plc.change_type_lookup_code = X_CHANGE_TYPE_LOOKUP_CODE
AND plc.lease_change_number = X_LEASE_CHANGE_NUMBER
AND plc.lease_id = X_LEASE_ID
);