1: PACKAGE BODY RG_REPORT_PARAMETERS_PKG AS
2: /* $Header: rgirparb.pls 120.4 2003/04/29 00:47:50 djogg ship $ */
3:
4: FUNCTION get_new_id
5: RETURN NUMBER
5: RETURN NUMBER
6: IS
7: new_id NUMBER;
8: BEGIN
9: SELECT rg_report_parameters_s.nextval
10: INTO new_id
11: FROM dual;
12:
13: RETURN new_id;
22: dummy NUMBER;
23: BEGIN
24: SELECT 1 INTO dummy FROM dual
25: WHERE NOT EXISTS
26: (SELECT 1 FROM rg_report_parameters
27: WHERE parameter_set_id = para_set_id
28: AND parameter_num = para_num
29: AND data_type = para_type
30: AND ((row_id IS NULL) OR (row_id <> rowid)));
41: RETURN NUMBER
42: IS
43: to_parameter_set_id NUMBER;
44: BEGIN
45: SELECT rg_report_parameters_s.nextval
46: INTO to_parameter_set_id
47: FROM dual;
48:
49: INSERT INTO rg_report_parameters
45: SELECT rg_report_parameters_s.nextval
46: INTO to_parameter_set_id
47: FROM dual;
48:
49: INSERT INTO rg_report_parameters
50: (parameter_set_id,
51: last_update_date,
52: last_updated_by,
53: last_update_login,
107: attribute13,
108: attribute14,
109: attribute15
110: FROM
111: rg_report_parameters
112: WHERE
113: parameter_set_id = from_parameter_set_id;
114:
115: RETURN(to_parameter_set_id);
148: X_Attribute13 VARCHAR2,
149: X_Attribute14 VARCHAR2,
150: X_Attribute15 VARCHAR2
151: ) RETURN BOOLEAN IS
152: CURSOR C IS SELECT rowid FROM rg_report_parameters
153: WHERE parameter_set_id = X_Parameter_Set_Id
154: AND parameter_num = X_Parameter_Num
155: AND data_type = X_Data_Type;
156:
153: WHERE parameter_set_id = X_Parameter_Set_Id
154: AND parameter_num = X_Parameter_Num
155: AND data_type = X_Data_Type;
156:
157: CURSOR C2 IS SELECT rg_report_parameters_s.nextval FROM dual;
158: BEGIN
159:
160: IF (X_Parameter_Set_Id is NULL) then
161: OPEN C2;
169: X_Rowid)) THEN
170: RETURN(FALSE);
171: END IF;
172:
173: INSERT INTO rg_report_parameters(
174: parameter_set_id,
175: last_update_date,
176: last_updated_by,
177: last_update_login,
272: X_Attribute15 VARCHAR2
273: ) IS
274: CURSOR C IS
275: SELECT *
276: FROM rg_report_parameters
277: WHERE rowid = X_Rowid
278: FOR UPDATE of Parameter_Set_Id NOWAIT;
279: Recinfo C%ROWTYPE;
280: BEGIN
407: X_Rowid)) THEN
408: RETURN(FALSE);
409: END IF;
410:
411: UPDATE rg_report_parameters
412: SET
413: parameter_set_id = X_Parameter_Set_Id,
414: last_update_date = X_Last_Update_Date,
415: last_updated_by = X_Last_Updated_By,
447: END update_row;
448:
449: PROCEDURE delete_row(X_Rowid VARCHAR2) IS
450: BEGIN
451: DELETE FROM rg_report_parameters
452: WHERE rowid = X_Rowid;
453:
454: IF (SQL%NOTFOUND) then
455: RAISE NO_DATA_FOUND;
455: RAISE NO_DATA_FOUND;
456: END IF;
457: END delete_row;
458:
459: END RG_REPORT_PARAMETERS_PKG;