1: PACKAGE BODY pa_utilization_options_all_pkg AS
2: /* $Header: PARUTOPB.pls 120.1 2005/08/19 17:03:01 mwasowic noship $ */
3:
4: PROCEDURE insert_row (
5: x_rowid IN OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
21: || (reverse chronological order - newest change first)
22: */
23: CURSOR c IS
24: SELECT rowid
25: FROM pa_utilization_options_all
26: WHERE nvl(org_id,-99) = nvl(x_org_id,-99);
27:
28: x_last_update_date DATE;
29: x_last_updated_by NUMBER;
48: fnd_message.set_name ('FND', 'SYSTEM-INVALID ARGS');
49: app_exception.raise_exception;
50: END IF;
51:
52: INSERT INTO pa_utilization_options_all (
53: org_id,
54: gl_period_flag,
55: pa_period_flag,
56: global_exp_period_flag,
110: pa_period_flag,
111: global_exp_period_flag,
112: forecast_thru_date,
113: actuals_thru_date
114: FROM pa_utilization_options_all
115: WHERE rowid = x_rowid
116: FOR UPDATE NOWAIT;
117:
118: tlinfo c1%ROWTYPE;
189: fnd_message.set_name( 'FND', 'SYSTEM-INVALID ARGS');
190: app_exception.raise_exception;
191: END IF;
192:
193: UPDATE pa_utilization_options_all
194: SET
195: gl_period_flag = x_gl_period_flag,
196: pa_period_flag = x_pa_period_flag,
197: global_exp_period_flag = x_global_exp_period_flag,
222: || (reverse chronological order - newest change first)
223: */
224: BEGIN
225:
226: DELETE FROM pa_utilization_options_all
227: WHERE rowid = x_rowid;
228:
229: IF (SQL%NOTFOUND) THEN
230: RAISE NO_DATA_FOUND;
232:
233: END delete_row;
234:
235:
236: END pa_utilization_options_all_pkg;