The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE INSERT_ROW (
X_ROWID IN OUT NOCOPY VARCHAR2,
X_RIGHT_ID IN OUT NOCOPY NUMBER,
X_RIGHT_NUM IN OUT NOCOPY NUMBER,
X_LEASE_ID IN NUMBER,
X_LEASE_CHANGE_ID IN NUMBER,
X_RIGHT_TYPE_CODE IN VARCHAR2,
X_RIGHT_STATUS_CODE IN VARCHAR2,
X_RIGHT_REFERENCE IN VARCHAR2,
X_START_DATE IN DATE,
X_EXPIRATION_DATE IN DATE,
X_RIGHT_COMMENTS IN VARCHAR2,
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_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
)
IS
CURSOR rights IS
SELECT ROWID
FROM pn_rights_all
WHERE right_id = x_right_id;
SELECT org_id FROM pn_leases_all WHERE lease_id = x_lease_id;
pnp_debug_pkg.debug ('PN_RIGHTS_PKG.INSERT_ROW (+)');
SELECT NVL(MAX(pnr.right_num),0)
INTO x_right_num
FROM pn_rights_all pnr
WHERE pnr.lease_id = x_lease_id;
SELECT pn_rights_s.NEXTVAL
INTO x_right_id
FROM DUAL;
INSERT INTO PN_RIGHTS_ALL
(
RIGHT_ID,
LAST_UPDATE_DATE,
LAST_UPDATED_BY,
CREATION_DATE,
CREATED_BY,
LAST_UPDATE_LOGIN,
LEASE_ID,
LEASE_CHANGE_ID,
RIGHT_NUM,
RIGHT_TYPE_CODE,
RIGHT_STATUS_CODE,
RIGHT_REFERENCE,
START_DATE,
EXPIRATION_DATE,
RIGHT_COMMENTS,
ATTRIBUTE_CATEGORY,
ATTRIBUTE1,
ATTRIBUTE2,
ATTRIBUTE3,
ATTRIBUTE4,
ATTRIBUTE5,
ATTRIBUTE6,
ATTRIBUTE7,
ATTRIBUTE8,
ATTRIBUTE9,
ATTRIBUTE10,
ATTRIBUTE11,
ATTRIBUTE12,
ATTRIBUTE13,
ATTRIBUTE14,
ATTRIBUTE15,
org_id
)
VALUES
(
X_RIGHT_ID,
X_LAST_UPDATE_DATE,
X_LAST_UPDATED_BY,
X_CREATION_DATE,
X_CREATED_BY,
X_LAST_UPDATE_LOGIN,
X_LEASE_ID,
X_LEASE_CHANGE_ID,
X_RIGHT_NUM,
X_RIGHT_TYPE_CODE,
X_RIGHT_STATUS_CODE,
X_RIGHT_REFERENCE,
X_START_DATE,
X_EXPIRATION_DATE,
X_RIGHT_COMMENTS,
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,
l_org_id
);
pnp_debug_pkg.debug ('PN_RIGHTS_PKG.INSERT_ROW (-)');
END INSERT_ROW;
SELECT *
FROM pn_rights_all
WHERE right_id = x_right_id
FOR UPDATE OF right_id NOWAIT;
PROCEDURE UPDATE_ROW (
X_RIGHT_ID IN NUMBER,
X_LEASE_ID IN NUMBER,
X_LEASE_CHANGE_ID IN NUMBER,
X_RIGHT_NUM IN NUMBER,
X_RIGHT_TYPE_CODE IN VARCHAR2,
X_RIGHT_STATUS_CODE IN VARCHAR2,
X_RIGHT_REFERENCE IN VARCHAR2,
X_START_DATE IN DATE,
X_EXPIRATION_DATE IN DATE,
X_RIGHT_COMMENTS IN VARCHAR2,
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_LAST_UPDATE_DATE IN DATE,
X_LAST_UPDATED_BY IN NUMBER,
X_LAST_UPDATE_LOGIN IN NUMBER
)
IS
CURSOR c2 IS
SELECT *
FROM pn_rights_all
WHERE right_id = x_right_id;
pnp_debug_pkg.debug ('PN_RIGHTS_PKG.UPDATE_ROW (+)');
SELECT PN_RIGHTS_HISTORY_S.NEXTVAL
INTO l_rightHistoryId
FROM DUAL;
INSERT INTO PN_RIGHTS_HISTORY
(
RIGHT_HISTORY_ID,
RIGHT_ID,
LAST_UPDATE_DATE,
LAST_UPDATED_BY,
CREATION_DATE,
CREATED_BY,
LAST_UPDATE_LOGIN,
LEASE_ID,
LEASE_CHANGE_ID,
NEW_LEASE_CHANGE_ID,
RIGHT_NUM,
RIGHT_TYPE_CODE,
RIGHT_STATUS_CODE,
RIGHT_REFERENCE,
START_DATE,
EXPIRATION_DATE,
RIGHT_COMMENTS,
ATTRIBUTE_CATEGORY,
ATTRIBUTE1,
ATTRIBUTE2,
ATTRIBUTE3,
ATTRIBUTE4,
ATTRIBUTE5,
ATTRIBUTE6,
ATTRIBUTE7,
ATTRIBUTE8,
ATTRIBUTE9,
ATTRIBUTE10,
ATTRIBUTE11,
ATTRIBUTE12,
ATTRIBUTE13,
ATTRIBUTE14,
ATTRIBUTE15
)
VALUES
(
l_rightHistoryId,
recInfoForHist.RIGHT_ID,
recInfoForHist.LAST_UPDATE_DATE,
recInfoForHist.LAST_UPDATED_BY,
recInfoForHist.CREATION_DATE,
recInfoForHist.CREATED_BY,
recInfoForHist.LAST_UPDATE_LOGIN,
recInfoForHist.LEASE_ID,
recInfoForHist.LEASE_CHANGE_ID,
X_LEASE_CHANGE_ID,
recInfoForHist.RIGHT_NUM,
recInfoForHist.RIGHT_TYPE_CODE,
recInfoForHist.RIGHT_STATUS_CODE,
recInfoForHist.RIGHT_REFERENCE,
recInfoForHist.START_DATE,
recInfoForHist.EXPIRATION_DATE,
recInfoForHist.RIGHT_COMMENTS,
recInfoForHist.ATTRIBUTE_CATEGORY,
recInfoForHist.ATTRIBUTE1,
recInfoForHist.ATTRIBUTE2,
recInfoForHist.ATTRIBUTE3,
recInfoForHist.ATTRIBUTE4,
recInfoForHist.ATTRIBUTE5,
recInfoForHist.ATTRIBUTE6,
recInfoForHist.ATTRIBUTE7,
recInfoForHist.ATTRIBUTE8,
recInfoForHist.ATTRIBUTE9,
recInfoForHist.ATTRIBUTE10,
recInfoForHist.ATTRIBUTE11,
recInfoForHist.ATTRIBUTE12,
recInfoForHist.ATTRIBUTE13,
recInfoForHist.ATTRIBUTE14,
recInfoForHist.ATTRIBUTE15
);
UPDATE PN_RIGHTS_ALL
SET LEASE_ID = X_LEASE_ID,
LEASE_CHANGE_ID = X_LEASE_CHANGE_ID,
RIGHT_NUM = X_RIGHT_NUM,
RIGHT_TYPE_CODE = X_RIGHT_TYPE_CODE,
RIGHT_STATUS_CODE = X_RIGHT_STATUS_CODE,
RIGHT_REFERENCE = X_RIGHT_REFERENCE,
START_DATE = X_START_DATE,
EXPIRATION_DATE = X_EXPIRATION_DATE,
RIGHT_COMMENTS = X_RIGHT_COMMENTS,
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,
LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
LAST_UPDATED_BY = X_LAST_UPDATED_BY,
LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
WHERE RIGHT_ID = X_RIGHT_ID;
pnp_debug_pkg.debug ('PN_RIGHTS_PKG.UPDATE_ROW (-)');
END UPDATE_ROW;
PROCEDURE DELETE_ROW
(
X_RIGHT_ID IN NUMBER
)
IS
BEGIN
pnp_debug_pkg.debug ('PN_RIGHTS_PKG.DELETE_ROW (+)');
DELETE FROM PN_RIGHTS_ALL --sdm_MOAC
WHERE RIGHT_ID = X_RIGHT_ID;
pnp_debug_pkg.debug ('PN_RIGHTS_PKG.DELETE_ROW (-)');
END DELETE_ROW;