PACKAGE BODY: APPS.GL_RGXROWS_XMLP_PKG

Source

1 PACKAGE BODY GL_RGXROWS_XMLP_PKG AS
2 /* $Header: RGXROWSB.pls 120.0 2007/12/27 15:37:33 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 
36       /*SRW.USER_EXIT('FND GETPROFILE
37                     ATTRIBUTE_REPORTING :C_ATTRIBUTE_FLAG');*/null;
38 
39 
40 
41 
42       IF ( C_ATTRIBUTE_FLAG = 'Y' )
43       THEN
44          C_ID_FLEX_CODE := 'GLAT' ;
45       END IF;
46 
47     END IF ;
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     RETURN TRUE;
59 END;  return (TRUE);
60 end;
61 
62 --Functions to refer Oracle report placeholders--
63 
64  Function C_STRUCTURE_ID_p return number is
65 	Begin
66 	 return C_STRUCTURE_ID;
67 	 END;
68  Function C_ID_FLEX_CODE_p return varchar2 is
69 	Begin
70 	 return C_ID_FLEX_CODE;
71 	 END;
72  Function C_ATTRIBUTE_FLAG_p return varchar2 is
73 	Begin
74 	 return C_ATTRIBUTE_FLAG;
75 	 END;
76  Function C_INDUSTRY_TYPE_p return varchar2 is
77 	Begin
78 	 return C_INDUSTRY_TYPE;
79 	 END;
80 END GL_RGXROWS_XMLP_PKG ;
81