1: PACKAGE BODY RG_DSS_REQUESTS_PKG as
2: /* $Header: rgidreqb.pls 120.2 2003/04/29 00:47:27 djogg ship $ */
3:
4: PROCEDURE Lock_Row(X_request_id NUMBER,
5: X_status_flag VARCHAR2) IS
4: PROCEDURE Lock_Row(X_request_id NUMBER,
5: X_status_flag VARCHAR2) IS
6: CURSOR C IS
7: SELECT *
8: FROM rg_dss_requests
9: WHERE request_id = X_request_id
10: FOR UPDATE of status_flag NOWAIT;
11: Recinfo C%ROWTYPE;
12: BEGIN
35: X_last_updated_by NUMBER,
36: X_last_update_login NUMBER) IS
37: BEGIN
38:
39: UPDATE rg_dss_requests
40: SET
41: request_id = X_request_id,
42: status_flag = X_status_flag,
43: file_spec = X_file_spec,
85:
86: END Submit_Budget_Load;
87:
88:
89: END RG_DSS_REQUESTS_PKG;