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