PACKAGE BODY: APPS.RG_REPORT_SET_REQUESTS_PKG

Source

1 PACKAGE BODY rg_report_set_requests_pkg AS
2 /* $Header: rgirsrqb.pls 120.3 2008/03/11 22:47:31 djogg ship $ */
3 
4 
5   --
6   -- PRIVATE FUNCTIONS
7   --
8 
9   FUNCTION get_unique_id RETURN NUMBER IS
10     next_id     NUMBER;
11   BEGIN
12     select RG_REPORT_SET_REQUESTS_S.NEXTVAL
13     into next_id
14     from dual;
15 
16     return (next_id);
17   END get_unique_id;
18 
19 
20   --
21   -- PUBLIC FUNCTIONS
22   --
23 
24   --
25   -- NAME
26   --   insert_report_set_request
27   --
28   -- DESCRIPTION
29   --   Insert a report set request into rg_report_set_requests.
30   --
31   -- PARAMETERS
32   --   Listed below
33   --
34 
35   PROCEDURE insert_report_set_request (
36                 x_report_set_request_id     IN OUT NOCOPY NUMBER,
37                 x_report_set_id             NUMBER,
38                 x_last_update_date          DATE,
39                 x_last_updated_by           NUMBER,
40                 x_last_update_login         NUMBER,
41                 x_creation_date             DATE,
42                 x_created_by                NUMBER,
43                 x_period_name               VARCHAR2,
44                 x_accounting_date           DATE,
45                 x_unit_of_measure_id        VARCHAR2) IS
46     CURSOR C IS
47       SELECT rowid
48       FROM   RG_REPORT_SET_REQUESTS
49       WHERE  report_set_request_id = x_report_set_request_id;
50     rowid    VARCHAR2(30);
51   BEGIN
52     x_report_set_request_id := rg_report_set_requests_pkg.get_unique_id;
53 
54     INSERT INTO RG_REPORT_SET_REQUESTS
55       ( REPORT_SET_REQUEST_ID,
56 	REPORT_SET_ID,
57 	LAST_UPDATE_DATE,
58 	LAST_UPDATED_BY,
59 	LAST_UPDATE_LOGIN,
60         CREATION_DATE,
61         CREATED_BY,
62 	PERIOD_NAME,
63 	ACCOUNTING_DATE,
64 	UNIT_OF_MEASURE_ID)
65     VALUES
66       ( x_report_set_request_id,
67 	x_report_set_id,
68 	x_last_update_date,
69 	x_last_updated_by,
70 	x_last_update_login,
71         x_creation_date,
72         x_created_by,
73 	x_period_name,
74 	x_accounting_date,
75 	x_unit_of_measure_id);
76 
77     OPEN C;
78     FETCH C INTO rowid;
79     if (C%NOTFOUND) then
80       CLOSE C;
81       RAISE NO_DATA_FOUND;
82     end if;
83     CLOSE C;
84 
85   END insert_report_set_request;
86 
87   --
88   -- NAME
89   --   insert_report_set_req_detail
90   --
91   -- DESCRIPTION
92   --   Insert a row into rg_report_set_req_details.
93   --
94   -- PARAMETERS
95   --   Listed below
96   --
97 
98   PROCEDURE insert_report_set_req_detail(x_report_set_request_id   NUMBER,
99                                          x_sequence                NUMBER,
100                                          x_report_id               NUMBER,
101                                          x_concurrent_request_id   NUMBER) IS
102     CURSOR C IS
103       SELECT rowid
104       FROM   RG_REPORT_SET_REQ_DETAILS
105       WHERE  report_set_request_id = x_report_set_request_id
106       AND    sequence = x_sequence;
107     rowid    VARCHAR2(30);
108   BEGIN
109 
110     INSERT INTO RG_REPORT_SET_REQ_DETAILS
111       ( REPORT_SET_REQUEST_ID,
112 	SEQUENCE,
113 	REPORT_ID,
114 	CONCURRENT_REQUEST_ID,
115         REPORT_SEQUENCE)
116     VALUES
117       ( x_report_set_request_id,
118 	x_sequence,
119 	x_report_id,
120 	x_concurrent_request_id,
121         -1);
122 
123     OPEN C;
124     FETCH C INTO rowid;
125     if (C%NOTFOUND) then
126       CLOSE C;
127       RAISE NO_DATA_FOUND;
128     end if;
129     CLOSE C;
130 
131   END insert_report_set_req_detail;
132 
133 END rg_report_set_requests_pkg;