The following lines contain the word 'select', 'insert', 'update' or 'delete':
| INSERT_ROW - insert a row into PN_INDEX_HISTORY_LINES.
| DELETE_ROW - deletes a row from PN_INDEX_HISTORY_LINES.
| UPDATE_ROW - updates a row from PN_INDEX_HISTORY_LINES.
| LOCKS_ROW - will check if a row has been modified since being queried by form.
|
|
| HISTORY
| 24-APR-2001 jbreyes o Created
| 13-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_line_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_index_id IN NUMBER
,x_index_date IN DATE
,x_last_update_login IN NUMBER
,x_index_figure IN NUMBER
,x_index_estimate IN NUMBER
,x_index_unadj_1 IN NUMBER
,x_index_unadj_2 IN NUMBER
,x_index_seasonally_unadj_1 IN NUMBER
,x_index_seasonally_unadj_2 IN NUMBER
,x_updated_flag 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_lines
WHERE index_line_id = x_index_line_id;
SELECT pn_index_history_lines_s.NEXTVAL
INTO x_index_line_id
FROM DUAL;
INSERT INTO pn_index_history_lines
(index_line_id
,last_update_date
,last_updated_by
,creation_date
,created_by
,index_id
,index_date
,last_update_login
,index_figure
,index_estimate
,index_unadj_1
,index_unadj_2
,index_seasonally_unadj_1
,index_seasonally_unadj_2
,updated_flag
,attribute_category
,attribute1
,attribute2
,attribute3
,attribute4
,attribute5
,attribute6
,attribute7
,attribute8
,attribute9
,attribute10
,attribute11
,attribute12
,attribute13
,attribute14
,attribute15
)
VALUES (x_index_line_id
,x_last_update_date
,x_last_updated_by
,x_creation_date
,x_created_by
,x_index_id
,x_index_date
,x_last_update_login
,x_index_figure
,x_index_estimate
,x_index_unadj_1
,x_index_unadj_2
,x_index_seasonally_unadj_1
,x_index_seasonally_unadj_2
,x_updated_flag
,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_line_id IN NUMBER
,x_last_update_date IN DATE
,x_last_updated_by IN NUMBER
,x_index_id IN NUMBER
,x_index_date IN DATE
,x_last_update_login IN NUMBER
,x_index_figure IN NUMBER
,x_index_estimate IN NUMBER
,x_index_unadj_1 IN NUMBER
,x_index_unadj_2 IN NUMBER
,x_index_seasonally_unadj_1 IN NUMBER
,x_index_seasonally_unadj_2 IN NUMBER
,x_updated_flag 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_lines
SET last_update_date = x_last_update_date
,last_updated_by = x_last_updated_by
,index_id = x_index_id
,index_date = x_index_date
,last_update_login = x_last_update_login
,index_figure = x_index_figure
,index_estimate = x_index_estimate
,index_unadj_1 = x_index_unadj_1
,index_unadj_2 = x_index_unadj_2
,index_seasonally_unadj_1 = x_index_seasonally_unadj_1
,index_seasonally_unadj_2 = x_index_seasonally_unadj_2
,updated_flag = x_updated_flag
,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;
,x_updated_flag 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 c1 IS
SELECT *
FROM pn_index_history_lines
WHERE ROWID = x_rowid
FOR UPDATE OF index_line_id NOWAIT;
PROCEDURE delete_row (
x_rowid IN VARCHAR2
) IS
BEGIN
--PNP_DEBUG_PKG.debug (' PN_INDEX_HISTORY_LINES_PKG.delete_row (+)');
DELETE FROM pn_index_history_lines
WHERE ROWID = x_rowid;
END delete_row;
SELECT 1
INTO l_dummy
FROM DUAL
WHERE NOT EXISTS ( SELECT 1
FROM pn_index_history_lines
WHERE (TO_CHAR (index_date, 'MON-RRRR') =
TO_CHAR (x_index_date, 'MON-RRRR')
)
AND (index_id = x_index_id)
AND ( (x_index_line_id IS NULL)
OR (index_line_id <> x_index_line_id)
));