PACKAGE BODY: APPS.RG_DSS_REQUESTS_PKG

Source

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
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
13   OPEN C;
14   FETCH C INTO Recinfo;
15   IF (C%NOTFOUND) THEN
16     CLOSE C;
17     FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
18     APP_EXCEPTION.RAISE_EXCEPTION;
19   END IF;
20   CLOSE C;
21 
22   IF (Recinfo.status_flag <> X_status_flag) THEN
23     FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
24     APP_EXCEPTION.RAISE_EXCEPTION;
25   ELSE
26      RETURN;
27   END IF;
28 END Lock_Row;
29 
30 
31 PROCEDURE Update_Row(X_request_id                           NUMBER,
32                      X_status_flag                          VARCHAR2,
33                      X_file_spec                            VARCHAR2,
34 		     X_last_update_date			    DATE,
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,
44     last_update_date                         =    X_Last_Update_Date,
45     last_updated_by                          =    X_Last_Updated_By,
46     last_update_login                        =    X_Last_Update_Login
47   WHERE request_id = X_request_id;
48 
49   IF (SQL%NOTFOUND) THEN
50     RAISE NO_DATA_FOUND;
51   END IF;
52 
53 END Update_Row;
54 
55 
56 PROCEDURE Submit_Budget_Load(X_ledger_id                       VARCHAR2,
57                              X_coa_id                       VARCHAR2,
58                              X_budget_name                  VARCHAR2,
59                              X_budget_version               VARCHAR2,
60                              X_org_name                     VARCHAR2,
61                              X_org_id                       VARCHAR2) IS
62     dummy_id      NUMBER;
63 BEGIN
64 	dummy_id :=  FND_REQUEST.SUBMIT_REQUEST(
65   		'SQLGL',
66     		'GLBBSU',
67     		'',
68     		'',
69     		FALSE,
70     		X_ledger_id,
71     		X_coa_id,
72 		X_budget_name,
73                 X_budget_version,
74 		X_org_name,
75 		X_org_id,
76 		chr(0),
77     		'','','','','','','','','','','','','','','',
78     		'','','','','','','','','','','','','','','',
79     		'','','','','','','','','','','','','','','',
80     		'','','','','','','','','','','','','','','',
81     		'','','','','','','','','','','','','','','',
82     		'','','','','','','','','','','','','','','',
83     		'','','');
84 	COMMIT;
85 
86 END Submit_Budget_Load;
87 
88 
89 END RG_DSS_REQUESTS_PKG;