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