2: /* $Header: PAXRVUTB.pls 120.2 2007/12/08 19:18:57 jjgeorge ship $ */
3:
4: procedure INITIALIZE is
5: begin
6: pa_security.initialize(fnd_global.user_id, 'PAXRVRVW');
7: end INITIALIZE;
8:
9: function ALLOW_RELEASE(
10: X_PROJECT_ID in NUMBER,
192: begin
193: update pa_draft_revenues
194: set released_date = sysdate,
195: last_update_date = sysdate,
196: last_updated_by = fnd_global.user_id,
197: last_update_login = fnd_global.login_id
198: where project_id = X_project_id
199: and draft_revenue_num = X_draft_revenue_num;
200: exception
193: update pa_draft_revenues
194: set released_date = sysdate,
195: last_update_date = sysdate,
196: last_updated_by = fnd_global.user_id,
197: last_update_login = fnd_global.login_id
198: where project_id = X_project_id
199: and draft_revenue_num = X_draft_revenue_num;
200: exception
201: when others then
216: begin
217: update pa_draft_revenues
218: set released_date = NULL,
219: last_update_date = sysdate,
220: last_updated_by = fnd_global.user_id,
221: last_update_login = fnd_global.login_id
222: where project_id = X_project_id
223: and draft_revenue_num = X_draft_revenue_num;
224: exception
217: update pa_draft_revenues
218: set released_date = NULL,
219: last_update_date = sysdate,
220: last_updated_by = fnd_global.user_id,
221: last_update_login = fnd_global.login_id
222: where project_id = X_project_id
223: and draft_revenue_num = X_draft_revenue_num;
224: exception
225: when others then