PACKAGE BODY: APPS.GL_GLXLSLST_XMLP_PKG

Source

1 PACKAGE BODY GL_GLXLSLST_XMLP_PKG AS
2 /* $Header: GLXLSLSTB.pls 120.0 2007/12/27 14:59:52 vijranga noship $ */
3 
4 function BeforeReport return boolean is
5 errbuf VARCHAR2(300);
6 begin
7   /*srw.user_exit('FND SRWINIT');*/null;
8 
9 
10   begin
11      SELECT g.chart_of_accounts_id, g.period_set_name,
12             p.user_period_type, g.name, g.description
13      INTO    C_STRUCT_NUM, C_CALENDAR, C_PERIOD_TYPE,
14              C_LEDGER_SET_NAME, C_DESCRIPTION
15      FROM  gl_ledgers g, gl_period_types p
16      WHERE g.ledger_id = P_LEDGER_ID
17      AND   p.period_type = g.accounted_period_type;
18 
19   exception
20     WHEN NO_DATA_FOUND THEN
21       errbuf := SQLERRM;
22       /*srw.message('00', errbuf);*/null;
23 
24       raise_application_error(-20101,null);/*srw.program_abort;*/null;
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   C_LANGUAGE := userenv('LANG');
34   begin
35      SELECT id_flex_structure_name
36      INTO    C_COA_NAME
37      FROM  fnd_id_flex_structures_tl
38      WHERE application_id = 101
39      AND   id_flex_code = 'GL#'
40      AND   language = C_LANGUAGE
41      AND   id_flex_num = C_STRUCT_NUM;
42 
43   exception
44     WHEN NO_DATA_FOUND THEN
45       errbuf := SQLERRM;
46       /*srw.message('00', errbuf);*/null;
47 
48       raise_application_error(-20101,null);/*srw.program_abort;*/null;
49 
50     WHEN OTHERS THEN
51       errbuf := SQLERRM;
52       /*srw.message('00', errbuf);*/null;
53 
54       raise_application_error(-20101,null);/*srw.program_abort;*/null;
55 
56   end;
57 
58   return (TRUE);
59 end;
60 
61 function AfterReport return boolean is
62 begin
63   /*srw.user_exit('FND SRWEXIT');*/null;
64 
65   return (TRUE);
66 end;
67 
68 --Functions to refer Oracle report placeholders--
69 
70  Function C_CALENDAR_p return varchar2 is
71 	Begin
72 	 return C_CALENDAR;
73 	 END;
74  Function C_PERIOD_TYPE_p return varchar2 is
75 	Begin
76 	 return C_PERIOD_TYPE;
77 	 END;
78  Function C_STRUCT_NUM_p return number is
79 	Begin
80 	 return C_STRUCT_NUM;
81 	 END;
82  Function C_DESCRIPTION_p return varchar2 is
83 	Begin
84 	 return C_DESCRIPTION;
85 	 END;
86  Function C_COA_NAME_p return varchar2 is
87 	Begin
88 	 return C_COA_NAME;
89 	 END;
90  Function C_LEDGER_SET_NAME_p return varchar2 is
91 	Begin
92 	 return C_LEDGER_SET_NAME;
93 	 END;
94  Function C_LANGUAGE_p return varchar2 is
95 	Begin
96 	 return C_LANGUAGE;
97 	 END;
98 END GL_GLXLSLST_XMLP_PKG ;
99