The following lines contain the word 'select', 'insert', 'update' or 'delete':
procedure INSERT_ROW
(
X_INDEX_EXCLUDE_TERM_ID IN OUT NOCOPY NUMBER
,X_ORG_ID IN NUMBER
,X_INDEX_LEASE_ID IN NUMBER
,X_PAYMENT_TERM_ID IN NUMBER
,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
,X_INCLUDE_EXCLUDE_FLAG IN VARCHAR2
)
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_EXCLUDE_TERM_PKG.insert_row (+)');
SELECT '1'
INTO l_rowExists
FROM DUAL
WHERE EXISTS ( SELECT 1
FROM pn_index_exclude_term_all exclude
WHERE exclude.index_lease_id = x_index_lease_id
AND exclude.payment_term_id = x_payment_term_id
AND exclude.org_id = x_org_id);
SELECT PN_INDEX_EXCLUDE_TERM_s.nextval
INTO X_INDEX_EXCLUDE_TERM_ID
FROM dual;
INSERT INTO PN_INDEX_EXCLUDE_TERM_ALL
(
INDEX_EXCLUDE_TERM_ID
,ORG_ID
,INDEX_LEASE_ID
,PAYMENT_TERM_ID
,LAST_UPDATE_DATE
,LAST_UPDATED_BY
,CREATION_DATE
,CREATED_BY
,LAST_UPDATE_LOGIN
,INCLUDE_EXCLUDE_FLAG
)
VALUES
(
X_INDEX_EXCLUDE_TERM_ID
,l_org_id
,X_INDEX_LEASE_ID
,X_PAYMENT_TERM_ID
,X_LAST_UPDATE_DATE
,X_LAST_UPDATED_BY
,X_CREATION_DATE
,X_CREATED_BY
,X_LAST_UPDATE_LOGIN
,X_INCLUDE_EXCLUDE_FLAG
);
PNP_DEBUG_PKG.debug (' PN_INDEX_EXCLUDE_TERM_PKG.insert_row (-)');
END INSERT_ROW;
procedure UPDATE_ROW
(
X_INDEX_EXCLUDE_TERM_ID IN NUMBER
,X_INDEX_LEASE_ID IN NUMBER
,X_PAYMENT_TERM_ID IN NUMBER
,X_LAST_UPDATE_DATE IN DATE
,X_LAST_UPDATED_BY IN NUMBER
,X_LAST_UPDATE_LOGIN IN NUMBER
,X_INCLUDE_EXCLUDE_FLAG IN VARCHAR2
)
IS
l_return_status VARCHAR2(30) := NULL;
PNP_DEBUG_PKG.debug (' PN_INDEX_EXCLUDE_TERM_PKG.update_row (+)');
UPDATE PN_INDEX_EXCLUDE_TERM_ALL
SET
INDEX_LEASE_ID =X_INDEX_LEASE_ID
,PAYMENT_TERM_ID =X_PAYMENT_TERM_ID
,LAST_UPDATE_DATE =X_LAST_UPDATE_DATE
,LAST_UPDATED_BY =X_LAST_UPDATED_BY
,LAST_UPDATE_LOGIN =X_LAST_UPDATE_LOGIN
,INCLUDE_EXCLUDE_FLAG =X_INCLUDE_EXCLUDE_FLAG
WHERE INDEX_EXCLUDE_TERM_ID = X_INDEX_EXCLUDE_TERM_ID;
PNP_DEBUG_PKG.debug (' PN_INDEX_EXCLUDE_TERM_PKG.update_row (-)');
END update_row;
SELECT * FROM PN_INDEX_EXCLUDE_TERM_ALL
WHERE INDEX_EXCLUDE_TERM_ID = X_INDEX_EXCLUDE_TERM_ID
FOR UPDATE OF INDEX_EXCLUDE_TERM_ID NOWAIT;
procedure delete_row
(
X_INDEX_LEASE_ID IN NUMBER
,X_PAYMENT_TERM_ID IN NUMBER
)
IS
l_rowExists VARCHAR2(10) := NULL;
PNP_DEBUG_PKG.debug (' PN_INDEX_EXCLUDE_TERM_PKG.delete_row (+)');
SELECT '1'
INTO l_rowExists
FROM DUAL
WHERE EXISTS ( SELECT 1
FROM pn_index_exclude_term_all exclude
WHERE exclude.index_lease_id = x_index_lease_id
AND exclude.payment_term_id = x_payment_term_id);
DELETE FROM PN_INDEX_EXCLUDE_TERM_ALL
WHERE INDEX_LEASE_ID = X_INDEX_LEASE_ID
AND PAYMENT_TERM_ID = X_PAYMENT_TERM_ID;
PNP_DEBUG_PKG.debug (' PN_INDEX_EXCLUDE_TERM_PKG.delete_row (-)');
END delete_row;
procedure DELETE_ALL_EXCLUDE_TERMS( X_INDEX_LEASE_ID IN NUMBER )
IS
BEGIN
PNP_DEBUG_PKG.debug (' PN_INDEX_EXCLUDE_TERM_PKG.DELETE_ALL_EXCLUDE_TERMS (+)');
DELETE FROM PN_INDEX_EXCLUDE_TERM_ALL
WHERE INDEX_LEASE_ID = X_INDEX_LEASE_ID;
PNP_DEBUG_PKG.debug (' PN_INDEX_EXCLUDE_TERM_PKG.DELETE_ALL_EXCLUDE_TERMS (-)');
END DELETE_ALL_EXCLUDE_TERMS;