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