[Home] [Help]
PACKAGE BODY: APPS.FA_RXC_GROUP
Source
1 PACKAGE BODY FA_RXC_GROUP AS
2 /* $Header: farxcgab.pls 120.4 2009/10/30 10:16:37 pmadas ship $ */
3
4 -- global variables
5 g_print_debug boolean := fa_cache_pkg.fa_print_debug;
6
7
8 PROCEDURE get_group_asset_info (
9 x_errbuf out NOCOPY varchar2,
10 x_retcode out NOCOPY varchar2,
11 argument1 in varchar2, -- book
12 -- MRC
13 argument2 in varchar2, -- MRC: Set of books id
14 argument3 in varchar2, -- start filcal year
15 argument4 in varchar2, -- end fiscal year
16 argument5 in varchar2, -- category structure number
17 argument6 in varchar2, -- major category low
18 argument7 in varchar2, -- major category high
19 argument8 in varchar2, -- minor category exists
20 argument9 in varchar2, -- minor category low
21 argument10 in varchar2, -- minor category high
22 argument11 in varchar2, -- category segment name
23 argument12 in varchar2, -- category segment name low
24 argument13 in varchar2, -- category segment name high
25 argument14 in varchar2, -- asset number low
26 argument15 in varchar2, -- asset number high
27 argument16 in varchar2, -- drill down
28 argument17 in varchar2, -- debug
29 -- End MRC
30 argument18 in varchar2,
31 argument19 in varchar2,
32 argument20 in varchar2,
33 argument21 in varchar2,
34 argument22 in varchar2,
35 argument23 in varchar2,
36 argument24 in varchar2,
37 argument25 in varchar2,
38 argument26 in varchar2,
39 argument27 in varchar2,
40 argument28 in varchar2,
41 argument29 in varchar2,
42 argument30 in varchar2,
43 argument31 in varchar2,
44 argument32 in varchar2,
45 argument33 in varchar2,
46 argument34 in varchar2,
47 argument35 in varchar2,
48 argument36 in varchar2,
49 argument37 in varchar2,
50 argument38 in varchar2,
51 argument39 in varchar2,
52 argument40 in varchar2,
53 argument41 in varchar2,
54 argument42 in varchar2,
55 argument43 in varchar2,
56 argument44 in varchar2,
57 argument45 in varchar2,
58 argument46 in varchar2,
59 argument47 in varchar2,
60 argument48 in varchar2,
61 argument49 in varchar2,
62 argument50 in varchar2,
63 argument51 in varchar2,
64 argument52 in varchar2,
65 argument53 in varchar2,
66 argument54 in varchar2,
67 argument55 in varchar2,
68 argument56 in varchar2,
69 argument57 in varchar2,
70 argument58 in varchar2,
71 argument59 in varchar2,
72 argument60 in varchar2,
73 argument61 in varchar2,
74 argument62 in varchar2,
75 argument63 in varchar2,
76 argument64 in varchar2,
77 argument65 in varchar2,
78 argument66 in varchar2,
79 argument67 in varchar2,
80 argument68 in varchar2,
81 argument69 in varchar2,
82 argument70 in varchar2,
83 argument71 in varchar2,
84 argument72 in varchar2,
85 argument73 in varchar2,
86 argument74 in varchar2,
87 argument75 in varchar2,
88 argument76 in varchar2,
89 argument77 in varchar2,
90 argument78 in varchar2,
91 argument79 in varchar2,
92 argument80 in varchar2,
93 argument81 in varchar2,
94 argument82 in varchar2,
95 argument83 in varchar2,
96 argument84 in varchar2,
97 argument85 in varchar2,
98 argument86 in varchar2,
99 argument87 in varchar2,
100 argument88 in varchar2,
101 argument89 in varchar2,
102 argument90 in varchar2,
103 argument91 in varchar2,
104 argument92 in varchar2,
105 argument93 in varchar2,
106 argument94 in varchar2,
107 argument95 in varchar2,
108 argument96 in varchar2,
109 argument97 in varchar2,
110 argument98 in varchar2,
111 argument99 in varchar2,
112 argument100 in varchar2)
113 IS
114 l_request_id NUMBER;
115 l_user_id NUMBER;
116 l_err_msg VARCHAR2(2000);
117 l_debug BOOLEAN;
118
119 BEGIN
120 l_debug := UPPER(argument17) LIKE 'Y%'; -- MRC
121 IF l_debug THEN
122 fa_rx_util_pkg.enable_debug;
123 END IF;
124
125 IF (g_print_debug) THEN
126 fa_rx_util_pkg.debug('get_group_asset_info: ' || 'argument1:' ||argument1);
127 -- MRC
128 fa_rx_util_pkg.debug('get_group_asset_info: ' || 'argument2:' ||argument2);
129 fa_rx_util_pkg.debug('get_group_asset_info: ' || 'argument3:' ||argument3);
130 fa_rx_util_pkg.debug('get_group_asset_info: ' || 'argument4:' ||argument4);
131 fa_rx_util_pkg.debug('get_group_asset_info: ' || 'argument5:' ||argument5);
132 fa_rx_util_pkg.debug('get_group_asset_info: ' || 'argument6:' ||argument6);
133 fa_rx_util_pkg.debug('get_group_asset_info: ' || 'argument7:' ||argument7);
134 fa_rx_util_pkg.debug('get_group_asset_info: ' || 'argument8:' ||argument8);
135 fa_rx_util_pkg.debug('get_group_asset_info: ' || 'argument9:' ||argument9);
136 fa_rx_util_pkg.debug('get_group_asset_info: ' || 'argument10:' ||argument10);
137 fa_rx_util_pkg.debug('get_group_asset_info: ' || 'argument11:' ||argument11);
138 fa_rx_util_pkg.debug('get_group_asset_info: ' || 'argument12:' ||argument12);
139 fa_rx_util_pkg.debug('get_group_asset_info: ' || 'argument13:' ||argument13);
140 fa_rx_util_pkg.debug('get_group_asset_info: ' || 'argument14:' ||argument14);
141 fa_rx_util_pkg.debug('get_group_asset_info: ' || 'argument15:' ||argument15);
142 fa_rx_util_pkg.debug('get_group_asset_info: ' || 'argument16:' ||argument16);
143 fa_rx_util_pkg.debug('get_group_asset_info: ' || 'argument17:' ||argument17);
144 -- End MRC
145 END IF;
146
147
148 l_request_id := fnd_global.conc_request_id;
149 fnd_profile.get('USER_ID',l_user_id);
150
151 fa_rx_group.get_group_asset_info (
152 p_book_type_code => argument1,
153 -- MRC
154 p_sob_id => argument2, -- MRC: Set of books id
155 p_start_fiscal_year => argument3,
156 p_end_fiscal_year => argument4,
157 p_major_category_low => argument6,
158 p_major_category_high => argument7,
159 p_minor_category_low => argument9,
160 p_minor_category_high => argument10,
161 p_category_segment_name => argument11,
162 p_category_segment_low => argument12,
163 p_category_segment_high => argument13,
164 p_asset_number_low => argument14,
165 p_asset_number_high => argument15,
166 p_drill_down => argument16,
167 -- End MRC
168 p_request_id => l_request_id,
169 p_user_id => l_user_id,
170 x_retcode => x_retcode,
171 x_errbuf => x_errbuf);
172
173 COMMIT;
174
175 EXCEPTION
176 WHEN OTHERS THEN
177 fnd_message.set_name('OFA', 'FA_SHARED_SERVER_ERROR');
178 l_err_msg := fnd_message.get;
179 fa_rx_conc_mesg_pkg.log(l_err_msg);
180 x_retcode := 2;
181
182 END get_group_asset_info;
183
184 END FA_RXC_GROUP;