[Home] [Help]
PACKAGE BODY: APPS.FVXBEGLS
Source
1 PACKAGE BODY FVXBEGLS
2 -- $Header: FVXBEGLB.pls 115.5 2002/06/17 00:43:07 ksriniva ship $
3 --
4 AS
5 --
6 g_set_of_books_id NUMBER;
7 g_load_accounts VARCHAR2(01);
8 --
9 -- ---------- End of Package Level Declaritives -----------------------------
10 -- --------------------------------------------------------------------------
11 PROCEDURE a000_load_tables
12 (errbuf OUT VARCHAR2,
13 retcode OUT NUMBER,
14 set_of_books_id IN NUMBER,
18 --
15 load_accounts IN VARCHAR2)
16 --
17 IS
19 -- ------------------------------------
20 -- Work Variables
21 -- ------------------------------------
22 v_boolean BOOLEAN;
23 v_flex_field_nbr NUMBER;
24 v_segment_number NUMBER;
25 v_segment_app_name VARCHAR2(40);
26 v_segment_prompt VARCHAR2(25);
27 v_segment_value_set_name VARCHAR2(40);
28 --
29 v_account_segment_name VARCHAR2(25);
30 --
31 invalid_segment_returned EXCEPTION;
32 --
33 BEGIN
34 -- ------------------------------------
35 retcode := 0;
36 g_set_of_books_id := set_of_books_id;
37 g_load_accounts := UPPER(load_accounts);
38 --
39 -- ------------------------------------
40 -- Clear and Load SF133 Line Definitions
41 -- ------------------------------------
42 DELETE
43 FROM fv_sf133_definitions_lines
44 WHERE set_of_books_id = g_set_of_books_id;
45 --
46
47 INSERT
48 INTO fv_sf133_definitions_lines
49 (sf133_line_id,
50 set_of_books_id,
51 sf133_line_number,
52 sf133_line_label,
53 sf133_line_type_code,
54 sf133_goals_line_number,
55 sf133_report_line_number,
56 sf133_natural_balance_type,
57 sf133_fund_category,
58 created_by,
59 creation_date,
60 last_updated_by,
61 last_update_date,
62 last_update_login)
63 SELECT fv_sf133_line_id_s.NEXTVAL,
64 g_set_of_books_id,
65 load.sf133_line_number,
66 load.sf133_line_label,
67 load.sf133_line_type_code,
68 load.sf133_goals_line_number,
69 load.sf133_report_line_number,
70 load.sf133_natural_balance_type,
71 load.sf133_fund_category,
72 0,
73 SYSDATE,
74 0,
75 SYSDATE,
76 0
77 FROM fv_sf133_load_lines load;
78 --
79 -- ------------------------------------
80 -- Clear and Load SF133 Line Accounts
81 -- ------------------------------------
82 DELETE
83 FROM fv_sf133_definitions_accts
84 WHERE (sf133_line_id)
85 IN
86 (SELECT set_of_books_id
87 FROM fv_sf133_definitions_lines
88 WHERE g_set_of_books_id = set_of_books_id);
89 --
90 IF g_load_accounts = 'Y' THEN
91 -- ------------------------------------
92 -- Determine Account Segment Name
93 -- ------------------------------------
94 SELECT chart_of_accounts_id
95 INTO v_flex_field_nbr
96 FROM gl_sets_of_books
97 WHERE set_of_books_id = g_set_of_books_id;
98 --
99 v_boolean := FND_FLEX_APIS.GET_SEGMENT_COLUMN(101,
100 'GL#',
101 v_flex_field_nbr,
102 'GL_ACCOUNT',
103 v_account_segment_name);
104 IF (v_boolean) THEN
105 -- ------------------------------------
106 -- Load Account Codes for Set of Books
107 -- ------------------------------------
108 v_account_segment_name := UPPER(v_account_segment_name);
109 --
110 fv_utility.debug_mesg('-- ');
111 fv_utility.debug_mesg('-- Set of Books Id ('||g_set_of_books_id||')'
112 ||' Account Segment ('||v_account_segment_name||')');
113 --
114 INSERT
115 INTO fv_sf133_definitions_accts
116 (sf133_line_acct_id,
117 sf133_line_id,
118 sf133_balance_type,
119 sf133_additional_info,
120 created_by,
121 creation_date,
122 last_updated_by,
123 last_update_date,
124 last_update_login,
125 segment1,
126 segment2,
127 segment3,
128 segment4,
129 segment5,
130 segment6,
131 segment7,
132 segment8,
133 segment9,
134 segment10,
135 segment11,
136 segment12,
137 segment13,
138 segment14,
139 segment15,
140 segment16,
141 segment17,
142 segment18,
143 segment19,
144 segment20,
145 segment21,
146 segment22,
147 segment23,
148 segment24,
149 segment25,
150 segment26,
151 segment27,
152 segment28,
153 segment29,
154 segment30)
155 SELECT fv_sf133_line_acct_id_s.NEXTVAL,
156 line.sf133_line_id,
157 load.sf133_balance_type,
158 load.sf133_additional_info,
159 0,
160 SYSDATE,
161 0,
162 SYSDATE,
163 0,
164 decode(v_account_segment_name,
165 'SEGMENT1',load.sf133_line_account, NULL),
166 decode(v_account_segment_name,
167 'SEGMENT2',load.sf133_line_account, NULL),
168 decode(v_account_segment_name,
169 'SEGMENT3',load.sf133_line_account, NULL),
170 decode(v_account_segment_name,
171 'SEGMENT4',load.sf133_line_account, NULL),
172 decode(v_account_segment_name,
173 'SEGMENT5',load.sf133_line_account, NULL),
174 decode(v_account_segment_name,
175 'SEGMENT6',load.sf133_line_account, NULL),
176 decode(v_account_segment_name,
177 'SEGMENT7',load.sf133_line_account, NULL),
178 decode(v_account_segment_name,
179 'SEGMENT8',load.sf133_line_account, NULL),
180 decode(v_account_segment_name,
181 'SEGMENT9',load.sf133_line_account, NULL),
182 decode(v_account_segment_name,
183 'SEGMENT10',load.sf133_line_account, NULL),
184 decode(v_account_segment_name,
185 'SEGMENT11',load.sf133_line_account, NULL),
186 decode(v_account_segment_name,
187 'SEGMENT12',load.sf133_line_account, NULL),
188 decode(v_account_segment_name,
189 'SEGMENT13',load.sf133_line_account, NULL),
190 decode(v_account_segment_name,
191 'SEGMENT14',load.sf133_line_account, NULL),
192 decode(v_account_segment_name,
193 'SEGMENT15',load.sf133_line_account, NULL),
194 decode(v_account_segment_name,
195 'SEGMENT16',load.sf133_line_account, NULL),
196 decode(v_account_segment_name,
197 'SEGMENT17',load.sf133_line_account, NULL),
198 decode(v_account_segment_name,
199 'SEGMENT18',load.sf133_line_account, NULL),
200 decode(v_account_segment_name,
201 'SEGMENT19',load.sf133_line_account, NULL),
202 decode(v_account_segment_name,
203 'SEGMENT20',load.sf133_line_account, NULL),
204 decode(v_account_segment_name,
205 'SEGMENT21',load.sf133_line_account, NULL),
206 decode(v_account_segment_name,
207 'SEGMENT22',load.sf133_line_account, NULL),
208 decode(v_account_segment_name,
209 'SEGMENT23',load.sf133_line_account, NULL),
210 decode(v_account_segment_name,
211 'SEGMENT24',load.sf133_line_account, NULL),
212 decode(v_account_segment_name,
213 'SEGMENT25',load.sf133_line_account, NULL),
214 decode(v_account_segment_name,
215 'SEGMENT26',load.sf133_line_account, NULL),
216 decode(v_account_segment_name,
217 'SEGMENT27',load.sf133_line_account, NULL),
218 decode(v_account_segment_name,
219 'SEGMENT28',load.sf133_line_account, NULL),
220 decode(v_account_segment_name,
221 'SEGMENT29',load.sf133_line_account, NULL),
222 decode(v_account_segment_name,
223 'SEGMENT30',load.sf133_line_account, NULL)
224 FROM fv_sf133_definitions_lines line,
225 fv_sf133_load_accts load
226 WHERE line.sf133_line_number = load.sf133_line_number
227 AND line.set_of_books_id = g_set_of_books_id;
228 END IF;
229 --
230 END IF;
231 --
232 -- ------------------------------------
233 -- Exception Processing
234 -- ------------------------------------
235 EXCEPTION
236 --
237 WHEN OTHERS THEN
238 errbuf := sqlerrm;
239 retcode := 2;
240 --
241 END a000_load_tables;
242 --
243 END FVXBEGLS;
244 -- ==========================================================================