[Home] [Help]
PACKAGE BODY: APPS.GMF_GL_GET_BASE_CUR
Source
1 PACKAGE BODY GMF_GL_GET_BASE_CUR as
2 /* $Header: gmfbascb.pls 115.0 99/07/16 04:14:54 porting shi $ */
3 function GET_BASE_CUR ( PORG_ID NUMBER) return varchar2 is
4
5 base_currency varchar2(15);
6
7 begin
8 select currency_code
9 into base_currency
10 from gl_sets_of_books sob,
11 ar_system_parameters_all ars
12 where sob.set_of_books_id = ars.set_of_books_id
13 and nvl(ars.org_id,0) = nvl(porg_id, nvl(ars.org_id,0));
14
15 return (base_currency);
16 exception
17 when NO_DATA_FOUND then
18 base_currency := -2;
19 return (base_currency);
20
21 when OTHERS then
22 base_currency := -2;
23 return (base_currency);
24
25 end;
26
27 END GMF_GL_GET_BASE_CUR;