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;