[Home] [Help]
PACKAGE BODY: APPS.GL_RGXCONS_XMLP_PKG
Source
1 PACKAGE BODY GL_RGXCONS_XMLP_PKG AS
2 /* $Header: RGXCONSB.pls 120.0 2007/12/27 15:33:18 vijranga noship $ */
3
4 function BeforeReport return boolean is
5 begin
6
7 DECLARE
8 COA_ID NUMBER;
9 FUNC_CURR VARCHAR2(15);
10 BEGIN
11 /*SRW.USER_EXIT('FND SRWINIT');*/null;
12
13
14 IF P_ACCESS_SET_ID IS NULL THEN
15 NULL;
16 ELSE
17 SELECT chart_of_accounts_id INTO COA_ID
18 FROM gl_access_sets WHERE access_set_id = P_ACCESS_SET_ID;
19 C_STRUCTURE_ID := COA_ID;
20 END IF;
21
22 C_ID_FLEX_CODE := 'GLLE' ;
23
24
25
26 /*SRW.USER_EXIT('FND GETPROFILE
27 INDUSTRY :C_INDUSTRY_TYPE');*/null;
28
29
30 IF ( C_INDUSTRY_TYPE = 'G' )
31 THEN
32
33
34
35 /*SRW.USER_EXIT('FND GETPROFILE
36 ATTRIBUTE_REPORTING :C_ATTRIBUTE_FLAG');*/null;
37
38
39
40
41 IF ( C_ATTRIBUTE_FLAG = 'Y' )
42 THEN
43 C_ID_FLEX_CODE := 'GLAT' ;
44 END IF;
45
46 END IF;
47
48
49 END; return (TRUE);
50 end;
51
52 function AfterReport return boolean is
53 begin
54
55 BEGIN
56 /*SRW.USER_EXIT('FND SRWEXIT');*/null;
57
58 END; return (TRUE);
59 end;
60
61 --Functions to refer Oracle report placeholders--
62
63 Function C_STRUCTURE_ID_p return number is
64 Begin
65 return C_STRUCTURE_ID;
66 END;
67 Function C_ID_FLEX_CODE_p return varchar2 is
68 Begin
69 return C_ID_FLEX_CODE;
70 END;
71 Function C_ATTRIBUTE_FLAG_p return varchar2 is
72 Begin
73 return C_ATTRIBUTE_FLAG;
74 END;
75 Function C_INDUSTRY_TYPE_p return varchar2 is
76 Begin
77 return C_INDUSTRY_TYPE;
78 END;
79 END GL_RGXCONS_XMLP_PKG ;
80