PACKAGE BODY: APPS.GL_RGXRSETS_XMLP_PKG

Source

1 PACKAGE BODY GL_RGXRSETS_XMLP_PKG AS
2 /* $Header: RGXRSETSB.pls 120.1 2007/12/28 11:04:00 vijranga noship $ */
3 
4 function print_detail (dtl_type in varchar2,
5                        pset_id in number) return number is
6       print_flag number;
7 begin
8    select count(*) into print_flag
9    from rg_report_parameters
10    where parameter_set_id = pset_id
11      and data_type = dtl_type;
12    return (print_flag);
13 end;
14 
15 function print_detail_text (pset_id in number) return number is
16       print_flag number;
17 begin
18       select count(*) into print_flag
19       from rg_report_parameters
20       where parameter_set_id = pset_id
21         and data_type in ('B','E','C');
22       return print_flag;
23 end;
24 
25 function BeforeReport return boolean is
26 begin
27 
28 DECLARE
29    COA_ID    NUMBER;
30    FUNC_CURR VARCHAR2(15);
31 BEGIN
32     /*SRW.USER_EXIT('FND SRWINIT');*/null;
33 
34 
35     IF P_ACCESS_SET_ID IS NULL THEN
36        NULL;
37     ELSE
38       SELECT chart_of_accounts_id INTO COA_ID
39       FROM gl_access_sets WHERE access_set_id = P_ACCESS_SET_ID;
40       C_STRUCTURE_ID := COA_ID;
41     END IF;
42 
43     C_ID_FLEX_CODE := 'GLLE' ;
44 
45 
46 
47     /*SRW.USER_EXIT('FND GETPROFILE
48                     INDUSTRY :C_INDUSTRY_TYPE');*/null;
49 
50 
51     IF ( C_INDUSTRY_TYPE = 'G' )
52     THEN
53 
54 
55 
56 
57        /*SRW.USER_EXIT('FND GETPROFILE
58                     ATTRIBUTE_REPORTING :C_ATTRIBUTE_FLAG');*/null;
59 
60 
61 
62 
63     IF ( C_ATTRIBUTE_FLAG = 'Y' )
64     THEN
65          C_ID_FLEX_CODE := 'GLAT' ;
66     END IF;
67 
68     END IF ;
69 
70 END;  return (TRUE);
71 end;
72 
73 function AfterReport return boolean is
74 begin
75 
76 BEGIN
77     /*SRW.USER_EXIT('FND SRWEXIT');*/null;
78 
79 END;  return (TRUE);
80 end;
81 
82 --Functions to refer Oracle report placeholders--
83 
84  Function C_STRUCTURE_ID_p return number is
85 	Begin
86 	 return C_STRUCTURE_ID;
87 	 END;
88  Function C_ID_FLEX_CODE_p return varchar2 is
89 	Begin
90 	 return C_ID_FLEX_CODE;
91 	 END;
92  Function C_INDUSTRY_TYPE_p return varchar2 is
93 	Begin
94 	 return C_INDUSTRY_TYPE;
95 	 END;
96  Function C_ATTRIBUTE_FLAG_p return varchar2 is
97 	Begin
98 	 return C_ATTRIBUTE_FLAG;
99 	 END;
100 END GL_RGXRSETS_XMLP_PKG ;
101