[Home] [Help]
1: PACKAGE BODY FA_MASS_TRANSFERS_PKG AS
2: /* $Header: FAXMTFRB.pls 120.6 2009/03/27 04:16:05 bridgway ship $ */
3:
4:
5: /** The following describes what this function expects as parameters
55: segment27,
56: segment28,
57: segment29,
58: segment30
59: from fa_mass_transfers
60: where mass_transfer_id = x_mass_transfer_id;
61:
62: mtfr_rec c_mtfr%ROWTYPE := null;
63:
110:
111: if mtfr_rec.to_gl_ccid is null then
112:
113: if (p_log_level_rec.statement_level) then
114: fa_debug_pkg.add('FA_MASS_TRANSFERS.famtgcc','to_gl_ccid ','null', p_log_level_rec => p_log_level_rec);
115: end if;
116:
117:
118: -- Get Chart of Accounts ID
131: -- x_to_glccid := -99;
132: if x_to_glccid = -99 then
133:
134: if (p_log_level_rec.statement_level) then
135: fa_debug_pkg.add('FA_MASS_TRANSFERS.famtgcc','x_to_glccid','null', p_log_level_rec => p_log_level_rec);
136: end if;
137:
138:
139: -- the ccid does not exist and so needs to be created
141: -- initialize segment array
142: v_from_segarray.delete;
143:
144: if (p_log_level_rec.statement_level) then
145: fa_debug_pkg.add('FA_MASS_TRANSFERS.famtgcc','calling','FND_FLEX_EXT.GET_SEGMENTS', p_log_level_rec => p_log_level_rec);
146: end if;
147:
148: -- Get from_glccid segment array in the displayed order
149: IF (NOT FND_FLEX_EXT.GET_SEGMENTS(
156: raise flex_error;
157: END IF;
158:
159: if (p_log_level_rec.statement_level) then
160: fa_debug_pkg.add('FA_MASS_TRANSFERS.famtgcc','calling',' get_segarray ', p_log_level_rec => p_log_level_rec);
161: end if;
162:
163: -- Prepare segment array for To_gl_ccid
164: if NOT get_segarray ( x_mass_transfer_id => x_mass_transfer_id,
180: end loop;
181:
182:
183: if (p_log_level_rec.statement_level) then
184: fa_debug_pkg.add('FA_MASS_TRANSFERS.famtgcc','calling','FND_FLEX_EXT.GET_COMBINATION_ID', p_log_level_rec => p_log_level_rec);
185: end if;
186:
187: -- Updating array with new account value
188: IF (NOT FND_FLEX_EXT.GET_COMBINATION_ID( 'SQLGL',
207:
208: v_message := FND_FLEX_EXT.GET_ENCODED_MESSAGE;
209: fnd_msg_pub.add;
210:
211: FA_SRVR_MSG.add_message(CALLING_FN => 'FA_MASS_TRANSFERS_PKG.famtgcc', p_log_level_rec => p_log_level_rec);
212:
213: RETURN (FALSE);
214:
215: when comb_error then
225: end if;
226: end loop;
227:
228: FA_SRVR_MSG.ADD_MESSAGE(
229: CALLING_FN=>'FA_MASS_TRANSFERS.famtgcc',
230: NAME=>'FA_FLEXBUILDER_FAIL_CCID',
231: TOKEN1 => 'ACCOUNT_TYPE',
232: VALUE1 => 'DEPRN_EXP',
233: TOKEN2 => 'BOOK_TYPE_CODE',
242:
243: when others then
244:
245: FA_SRVR_MSG.ADD_SQL_ERROR (
246: CALLING_FN => 'FA_MASS_TRANSFERS.famtgcc', p_log_level_rec => p_log_level_rec);
247: RETURN (FALSE);
248:
249: END ;
250:
280: segment11, segment12, segment13, segment14, segment15,
281: segment16, segment17, segment18, segment19, segment20,
282: segment21, segment22, segment23, segment24, segment25,
283: segment26, segment27, segment28, segment29, segment30
284: from fa_mass_transfers
285: where mass_transfer_id = x_mass_transfer_id;
286:
287: mtfr_rec c_mtfr%ROWTYPE := null;
288: BEGIN
287: mtfr_rec c_mtfr%ROWTYPE := null;
288: BEGIN
289:
290: if (p_log_level_rec.statement_level) then
291: fa_debug_pkg.add('FA_MASS_TRANSFERS.get_segarray','calling','fnd_flex_ext.get_delimiter', p_log_level_rec => p_log_level_rec);
292: end if;
293:
294: x_delimiter := fnd_flex_ext.get_delimiter(
295: application_short_name => 'SQLGL'
296: , key_flex_code => 'GL#'
297: , structure_number => x_structure_number );
298:
299: if (p_log_level_rec.statement_level) then
300: fa_debug_pkg.add('FA_MASS_TRANSFERS.get_segarray','calling','fnd_flex_key_api.set_session_mode', p_log_level_rec => p_log_level_rec);
301: end if;
302:
303:
304: fnd_flex_key_api.set_session_mode('customer_data');
304: fnd_flex_key_api.set_session_mode('customer_data');
305:
306:
307: if (p_log_level_rec.statement_level) then
308: fa_debug_pkg.add('FA_MASS_TRANSFERS.get_segarray','calling','fnd_flex_key_api.find_flexfield', p_log_level_rec => p_log_level_rec);
309: end if;
310:
311: v_flex_type := fnd_flex_key_api.find_flexfield(
312: appl_short_name => 'SQLGL',
312: appl_short_name => 'SQLGL',
313: flex_code => 'GL#' );
314:
315: if (p_log_level_rec.statement_level) then
316: fa_debug_pkg.add('FA_MASS_TRANSFERS.get_segarray','calling','fnd_flex_key_api.find_structure', p_log_level_rec => p_log_level_rec);
317: end if;
318:
319:
320: v_struct_type := fnd_flex_key_api.find_structure(
321: flexfield => v_flex_type,
322: structure_number => x_structure_number );
323:
324: if (p_log_level_rec.statement_level) then
325: fa_debug_pkg.add('FA_MASS_TRANSFERS.get_segarray','calling','fnd_flex_key_api.get_segments', p_log_level_rec => p_log_level_rec);
326: end if;
327:
328:
329: fnd_flex_key_api.get_segments( flexfield => v_flex_type,
404:
405: exception
406: when others then
407: FA_SRVR_MSG.ADD_SQL_ERROR (
408: CALLING_FN => 'FA_MASS_TRANSFERS.get_segarray', p_log_level_rec => p_log_level_rec);
409: RETURN (FALSE);
410:
411: END get_segarray;
412:
448: return TRUE;
449: exception
450: when others then
451: FA_SRVR_MSG.ADD_SQL_ERROR (
452: CALLING_FN => 'FA_MASS_TRANSFERS.get_conc_segments', p_log_level_rec => p_log_level_rec);
453: RETURN (FALSE);
454:
455: END get_conc_segments;
456:
454:
455: END get_conc_segments;
456:
457:
458: END FA_MASS_TRANSFERS_PKG;