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