PACKAGE BODY: APPS.FA_FADI_SHARED_PKG

Source

1 PACKAGE BODY FA_FADI_SHARED_PKG as
2 /* $Header: farfadib.pls 120.3 2009/03/26 22:48:14 bridgway ship $ */
3 
4 
5 PROCEDURE GET_ACCT_SEGMENT_NUMBERS (
6    BOOK				IN	VARCHAR2,
7    BALANCING_SEGNUM	 OUT NOCOPY NUMBER,
8    ACCOUNT_SEGNUM	 OUT NOCOPY NUMBER,
9    CC_SEGNUM		 OUT NOCOPY NUMBER,
10    CALLING_FN			IN	VARCHAR2, p_log_level_rec        IN     FA_API_TYPES.log_level_rec_type)  IS
11 
12   structure_num		number;
13   get_qualifier_segnum_failed   exception;
14   gqsval    boolean;
15 
16 BEGIN
17   select accounting_flex_structure
18   into structure_num
19   from fa_book_controls
20   where book_type_code = BOOK;
21 
22   gqsval :=  fnd_flex_apis.get_qualifier_segnum (
23 	appl_id => 101,
24 	key_flex_code => 'GL#',
25 	structure_number => structure_num,
26 	flex_qual_name => 'GL_BALANCING',
27 	segment_number => balancing_segnum);
28   if (gqsval = FALSE) then raise get_qualifier_segnum_failed;  end if;
29 
30   gqsval := fnd_flex_apis.get_qualifier_segnum (
31 	appl_id => 101,
32 	key_flex_code => 'GL#',
33 	structure_number => structure_num,
34 	flex_qual_name => 'GL_ACCOUNT',
35 	segment_number => account_segnum);
36   if (gqsval = FALSE) then raise get_qualifier_segnum_failed;  end if;
37 
38   gqsval :=  fnd_flex_apis.get_qualifier_segnum (
39 	appl_id => 101,
40 	key_flex_code => 'GL#',
41 	structure_number => structure_num,
42 	flex_qual_name => 'FA_COST_CTR',
43 	segment_number => cc_segnum);
44   if (gqsval = FALSE) then raise get_qualifier_segnum_failed;  end if;
45 
46 
47 EXCEPTION
48   when get_qualifier_segnum_failed then
49     null;
50   when others then
51     FA_STANDARD_PKG.RAISE_ERROR
52 		(CALLED_FN => 'FA_FADI_SHARED_PKG.GET_ACCT_SEGMENT_NUMBERS',
53 		 CALLING_FN => CALLING_FN, p_log_level_rec => p_log_level_rec);
54 
55 END GET_ACCT_SEGMENT_NUMBERS;
56 
57 END FA_FADI_SHARED_PKG;