PACKAGE BODY: APPS.GL_GLXRLFBL_XMLP_PKG

Source

1 PACKAGE BODY GL_GLXRLFBL_XMLP_PKG AS
2 /* $Header: GLXRLFBLB.pls 120.0 2007/12/27 15:13:16 vijranga noship $ */
3 
4 function BeforeReport return boolean is
5 errbuf  VARCHAR2(132);
6 begin
7   /*srw.user_exit('FND SRWINIT');*/null;
8 
9 
10 
11   begin
12     SELECT name, chart_of_accounts_id
13     INTO   ACCESS_SET_NAME, STRUCT_NUM
14     FROM   gl_access_sets
15     WHERE  access_set_id = P_ACCESS_SET_ID;
16 
17   exception
18     WHEN NO_DATA_FOUND THEN
19       errbuf := gl_message.get_message('GL_PLL_INVALID_DATA_ACCESS_SET', 'Y',
20                                        'DASID', to_char(P_ACCESS_SET_ID));
21       /*srw.message('00', errbuf);*/null;
22 
23       raise_application_error(-20101,null);/*srw.program_abort;*/null;
24 
25 
26     WHEN OTHERS THEN
27       errbuf := SQLERRM;
28       /*srw.message('00', errbuf);*/null;
29 
30       raise_application_error(-20101,null);/*srw.program_abort;*/null;
31 
32   end;
33 
34 
35   begin
36     SELECT name
37     INTO   LEDGER_NAME
38     FROM   gl_ledgers
39     WHERE  ledger_id = P_LEDGER_ID;
40 
41   exception
42     WHEN OTHERS THEN
43       errbuf := SQLERRM;
44       /*srw.message('00', errbuf);*/null;
45 
46       raise_application_error(-20101,null);/*srw.program_abort;*/null;
47 
48   end;
49 
50   /*srw.reference( STRUCT_NUM );*/null;
51 
52   /*srw.user_exit( 'FND FLEXRSQL
53                   CODE = "GL#"
54                   NUM = ":STRUCT_NUM"
55                   APPL_SHORT_NAME = "SQLGL"
56                   OUTPUT = ":FLEX_SELECT_ALL"
57                   TABLEALIAS = "gbfr" ');*/null;
58 
59 
60   return (TRUE);
61 end;
62 
63 function AfterReport return boolean is
64 begin
65   /*srw.user_exit('FND SRWEXIT');*/null;
66 
67   return (TRUE);
68 end;
69 
70 function flex_field_all_lowformula(FLEX_FIELD_ALL_LOW in varchar2) return varchar2 is
71 begin
72   /*srw.reference( STRUCT_NUM );*/null;
73 
74   /*srw.reference( FLEX_DATA_ALL_LOW);*/null;
75 
76   /*srw.user_exit( 'FND FLEXRIDVAL
77                   CODE = "GL#"
78                   NUM = ":STRUCT_NUM"
79                   APPL_SHORT_NAME = "SQLGL"
80                   DATA = ":FLEX_DATA_ALL_LOW"
81                   VALUE = ":FLEX_FIELD_ALL_LOW"' );*/null;
82 
83   return( FLEX_FIELD_ALL_LOW );
84 end;
85 
86 function flex_field_all_highformula(FLEX_FIELD_ALL_HIGH in varchar2) return varchar2 is
87 begin
88   /*srw.reference( STRUCT_NUM );*/null;
89 
90   /*srw.reference( FLEX_DATA_ALL_HIGH);*/null;
91 
92   /*srw.user_exit( 'FND FLEXRIDVAL
93                   CODE = "GL#"
94                   NUM = ":STRUCT_NUM"
95                   APPL_SHORT_NAME = "SQLGL"
96                   DATA = ":FLEX_DATA_ALL_HIGH"
97                   VALUE = ":FLEX_FIELD_ALL_HIGH"' );*/null;
98 
99   return( FLEX_FIELD_ALL_HIGH );
100 end;
101 
102 --Functions to refer Oracle report placeholders--
103 
104  Function STRUCT_NUM_p return varchar2 is
105 	Begin
106 	 return STRUCT_NUM;
107 	 END;
108  Function LEDGER_NAME_p return varchar2 is
109 	Begin
110 	 return LEDGER_NAME;
111 	 END;
112  Function FLEX_SELECT_ALL_LOW_p return varchar2 is
113 	Begin
114 	 return FLEX_SELECT_ALL_LOW;
115 	 END;
116  Function FLEX_SELECT_ALL_HIGH_p return varchar2 is
117 	Begin
118 	 return FLEX_SELECT_ALL_HIGH;
119 	 END;
120  Function ACCESS_SET_NAME_p return varchar2 is
121 	Begin
122 	 return ACCESS_SET_NAME;
123 	 END;
124 END GL_GLXRLFBL_XMLP_PKG ;
125