The following lines contain the word 'select', 'insert', 'update' or 'delete':
procedure INSERT_ROW
(
X_INDEX_LEASE_TERM_ID IN OUT NOCOPY NUMBER
,X_INDEX_LEASE_ID IN NUMBER
,X_INDEX_PERIOD_ID IN NUMBER
,X_LEASE_TERM_ID IN NUMBER
,X_RENT_INCREASE_TERM_ID IN NUMBER
,X_AMOUNT IN NUMBER
,X_APPROVED_FLAG IN VARCHAR2
,X_INDEX_TERM_INDICATOR 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_LAST_UPDATE_LOGIN IN NUMBER
) IS
l_return_status VARCHAR2(30) := NULL;
SELECT org_id
FROM pn_index_leases_all
WHERE index_lease_id = x_index_lease_id;
PNP_DEBUG_PKG.debug (' PN_INDEX_LEASE_TERMS_PKG.insert_row (+)');
SELECT '1'
INTO l_rowExists
FROM DUAL
WHERE EXISTS (
SELECT 1
FROM pn_index_lease_terms_all ilt
WHERE ilt.index_lease_id = x_index_lease_id
AND ilt.index_period_id = x_index_period_id
AND ilt.lease_term_id = x_lease_term_id
AND ilt.rent_increase_term_id = x_rent_increase_term_id);
SELECT PN_INDEX_LEASE_TERM_S.nextval into X_INDEX_LEASE_TERM_ID from dual;
INSERT INTO PN_INDEX_LEASE_TERMS_ALL
(
index_lease_term_id
,index_lease_id
,index_period_id
,lease_term_id
,rent_increase_term_id
,amount
,approved_flag
,index_term_indicator
,last_update_date
,last_updated_by
,creation_date
,created_by
,last_update_login
,org_id
)
VALUES
(
x_index_lease_term_id
,x_index_lease_id
,x_index_period_id
,x_lease_term_id
,x_rent_increase_term_id
,x_amount
,x_approved_flag
,x_index_term_indicator
,x_last_update_date
,x_last_updated_by
,x_creation_date
,x_created_by
,x_last_update_login
,l_org_id
);
PNP_DEBUG_PKG.debug (' PN_INDEX_LEASE_TERMS_PKG.insert_row (-)');
END INSERT_ROW;
procedure UPDATE_ROW
(
X_INDEX_LEASE_TERM_ID IN NUMBER
,X_INDEX_LEASE_ID IN NUMBER
,X_INDEX_PERIOD_ID IN NUMBER
,X_LEASE_TERM_ID IN NUMBER
,X_RENT_INCREASE_TERM_ID IN NUMBER
,X_AMOUNT IN NUMBER
,X_APPROVED_FLAG IN VARCHAR2
,X_INDEX_TERM_INDICATOR IN VARCHAR2
,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_INDEX_LEASE_TERMS_PKG.update_row (+)');
UPDATE PN_INDEX_LEASE_TERMS_ALL
SET
INDEX_LEASE_TERM_ID = X_INDEX_LEASE_TERM_ID
,INDEX_LEASE_ID = X_INDEX_LEASE_ID
,INDEX_PERIOD_ID = X_INDEX_PERIOD_ID
,LEASE_TERM_ID = X_LEASE_TERM_ID
,RENT_INCREASE_TERM_ID = X_RENT_INCREASE_TERM_ID
,AMOUNT = X_AMOUNT
,APPROVED_FLAG = X_APPROVED_FLAG
,INDEX_TERM_INDICATOR = X_INDEX_TERM_INDICATOR
,LAST_UPDATE_DATE = X_LAST_UPDATE_DATE
,LAST_UPDATED_BY = X_LAST_UPDATED_BY
,LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
WHERE INDEX_LEASE_TERM_ID = X_INDEX_LEASE_TERM_ID;
PNP_DEBUG_PKG.debug (' PN_INDEX_LEASE_TERMS_PKG.update_row (-)');
end update_row;
SELECT *
FROM PN_INDEX_LEASE_TERMS_ALL
WHERE INDEX_LEASE_TERM_ID = X_INDEX_LEASE_TERM_ID
FOR UPDATE OF INDEX_LEASE_TERM_ID NOWAIT;
procedure delete_row
(
X_INDEX_LEASE_TERM_ID IN NUMBER
,X_INDEX_LEASE_ID IN NUMBER
,X_INDEX_PERIOD_ID IN NUMBER
,X_LEASE_TERM_ID IN NUMBER
,X_RENT_INCREASE_TERM_ID IN NUMBER
) IS
l_rowExists VARCHAR2(10) := NULL;
PNP_DEBUG_PKG.debug (' PN_INDEX_LEASE_TERMS_PKG.delete_row (+)');
SELECT '1'
INTO l_rowExists
FROM DUAL
WHERE EXISTS (
SELECT 1
FROM pn_index_lease_terms_all ilt
WHERE ilt.index_lease_id = x_index_lease_id
AND ilt.index_period_id = x_index_period_id
AND ilt.lease_term_id = x_lease_term_id
AND ilt.rent_increase_term_id = x_rent_increase_term_id);
DELETE FROM pn_index_lease_terms_all ilt
WHERE ilt.index_lease_id = x_index_lease_id
AND ilt.index_period_id = x_index_period_id
AND ilt.lease_term_id = x_lease_term_id
AND ilt.rent_increase_term_id = x_rent_increase_term_id;
PNP_DEBUG_PKG.debug (' PN_INDEX_LEASE_TERMS_PKG.delete_row (-)');
END delete_row;