1: PACKAGE BODY FARX_C_WD as
2: /* $Header: farxcwdb.pls 120.12.12010000.1 2008/07/28 13:23:13 appldev ship $ */
3:
4:
5: PROCEDURE WHATIF (
210: h_value_error := argument20;
211: h_param_error := 'SET OF BOOKS ID';
212:
213: -- Enhancement Bug 3037321
214: FARX_C_WD.sob_id := to_number(argument20);
215: select mrc_sob_type_code,currency_code
216: into FARX_C_WD.mrc_sob_type,FARX_C_WD.currency
217: from gl_sets_of_books
218: where set_of_books_id = to_number(argument20);
212:
213: -- Enhancement Bug 3037321
214: FARX_C_WD.sob_id := to_number(argument20);
215: select mrc_sob_type_code,currency_code
216: into FARX_C_WD.mrc_sob_type,FARX_C_WD.currency
217: from gl_sets_of_books
218: where set_of_books_id = to_number(argument20);
219:
220: -- Enhancement Bug 3037321
217: from gl_sets_of_books
218: where set_of_books_id = to_number(argument20);
219:
220: -- Enhancement Bug 3037321
221: if(FARX_C_WD.mrc_sob_type = 'R') then
222: fnd_client_info.set_currency_context(FARX_C_WD.sob_id);
223: end if;
224:
225: -- PERIOD NAME
218: where set_of_books_id = to_number(argument20);
219:
220: -- Enhancement Bug 3037321
221: if(FARX_C_WD.mrc_sob_type = 'R') then
222: fnd_client_info.set_currency_context(FARX_C_WD.sob_id);
223: end if;
224:
225: -- PERIOD NAME
226: h_mesg_name := 'FA_WHATIF_PARAM_ERROR';
896: retcode := 2;
897:
898: end whatif;
899:
900: END FARX_C_WD;