[Home] [Help]
The following lines contain the word 'select', 'insert', 'update' or 'delete':
| INSERT_ROW - insert a row into PN_INDEX_HISTORY_HEADERS.
| DELETE_ROW - deletes a row from PN_INDEX_HISTORY_HEADERS.
| UPDATE_ROW - updates a row from PN_INDEX_HISTORY_HEADERS.
| LOCKS_ROW - will check if a row has been modified since being queried by form.
|
|
| HISTORY
| 24-APR-2001 jbreyes o Created
| 10-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.
+==============================================================================*/
------------------------------------------------------------------------
-- PROCEDURE : INSERT_ROW
------------------------------------------------------------------------
PROCEDURE insert_row (
x_rowid IN OUT NOCOPY VARCHAR2
,x_index_id IN OUT NOCOPY NUMBER
,x_last_update_date IN DATE
,x_last_updated_by IN NUMBER
,x_creation_date IN DATE
,x_created_by IN NUMBER
,x_name IN VARCHAR2
,x_last_update_login IN NUMBER
,x_source IN VARCHAR2
,x_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
) IS
CURSOR c IS
SELECT ROWID
FROM pn_index_history_headers
WHERE index_id = x_index_id;
SELECT pn_index_history_headers_s.NEXTVAL
INTO x_index_id
FROM DUAL;
INSERT INTO pn_index_history_headers
(index_id
,last_update_date
,last_updated_by
,creation_date
,created_by
,name
,last_update_login
,source
,comments
,attribute_category
,attribute1
,attribute2
,attribute3
,attribute4
,attribute5
,attribute6
,attribute7
,attribute8
,attribute9
,attribute10
,attribute11
,attribute12
,attribute13
,attribute14
,attribute15
)
VALUES (x_index_id
,x_last_update_date
,x_last_updated_by
,x_creation_date
,x_created_by
,x_name
,x_last_update_login
,x_source
,x_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
);
END insert_row;
PROCEDURE update_row (
x_rowid IN VARCHAR2
,x_index_id IN NUMBER
,x_last_update_date IN DATE
,x_last_updated_by IN NUMBER
,x_name IN VARCHAR2
,x_last_update_login IN NUMBER
,x_source IN VARCHAR2
,x_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
) IS
l_return_status VARCHAR2 (30) := NULL;
UPDATE pn_index_history_headers
SET last_update_date = x_last_update_date
,last_updated_by = x_last_updated_by
,name = x_name
,last_update_login = x_last_update_login
,source = x_source
,comments = x_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
WHERE ROWID = x_rowid;
END update_row;
SELECT *
FROM pn_index_history_headers
WHERE ROWID = x_rowid
FOR UPDATE OF index_id NOWAIT;
PROCEDURE delete_row (
x_rowid IN VARCHAR2
) IS
BEGIN
--PNP_DEBUG_PKG.debug (' PN_INDEX_HISTORY_HEADERS_PKG.delete_row (+)');
DELETE FROM pn_index_history_headers
WHERE ROWID = x_rowid;
END delete_row;
SELECT 1
INTO l_dummy
FROM DUAL
WHERE NOT EXISTS ( SELECT 1
FROM pn_index_history_headers
WHERE (name = x_name)
AND ( (x_index_id IS NULL)
OR (index_id <> x_index_id)
));