[Home] [Help]
PACKAGE BODY: APPS.FA_FADI_SHARED_PKG
Source
1 PACKAGE BODY FA_FADI_SHARED_PKG as
2 /* $Header: farfadib.pls 120.2 2005/06/24 23:38:29 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) 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);
54
55 END GET_ACCT_SEGMENT_NUMBERS;
56
57 END FA_FADI_SHARED_PKG;