PACKAGE BODY: APPS.GL_GLXRLACH_XMLP_PKG

Source

1 PACKAGE BODY GL_GLXRLACH_XMLP_PKG AS
2 /* $Header: GLXRLACHB.pls 120.0 2007/12/27 15:09:32 vijranga noship $ */
3 function BeforeReport return boolean is
4 begin
5 
6   /*srw.user_exit('FND SRWINIT');*/null;
7 
8 
9 
10   declare
11     ledname     VARCHAR2(30);
12     coaid       NUMBER;
13     func_curr   VARCHAR2(15);
14     errbuf      VARCHAR2(132);
15     errbuf2     VARCHAR2(132);
16   begin
17    gl_info.gl_get_ledger_info(P_LEDGER_ID,
18                        coaid, ledname, func_curr, errbuf);
19 
20     if (errbuf is not null) then
21 
22       errbuf2 := gl_message.get_message(
23                    'GL_PLL_ROUTINE_ERROR', 'N',
24                    'ROUTINE','gl_get_ledger_info'
25                  );
26       /*srw.message('00', errbuf2);*/null;
27 
28       /*srw.message('00', errbuf);*/null;
29 
30       raise_application_error(-20101,null);/*srw.program_abort;*/null;
31 
32     end if;
33 
34     STRUCT_NUM:= coaid;
35     LEDGER_NAME := ledname;
36   end;
37 
38   /*SRW.REFERENCE(STRUCT_NUM);*/null;
39 
40 
41 
42  null;
43 
44 
45  null;
46 
47 
48  null;
49 
50 
51  null;
52 
53 
54   IF (P_TEMPLATE_ID IS NOT NULL) THEN
55     WHERE_TEMPLATE := 'and st.template_id = ' || to_char(P_TEMPLATE_ID);
56   END IF;
57 IF (WHERE_TEMPLATE IS NULL) THEN
58 	WHERE_TEMPLATE := ' ';
59 END IF;
60 
61     WHERE_DAS := GL_ACCESS_SET_SECURITY_PKG.GET_SECURITY_CLAUSE(
62                   P_ACCESS_SET_ID,
63                   'R',
64                   'LEDGER_ID',
65                   P_LEDGER_ID,
66                   null,
67                   'SEG_COLUMN',
68                   null,
69                   'cs1',
70                   null);
71 
72   IF (WHERE_DAS is not null) THEN
73     WHERE_DAS := ' AND ' || WHERE_DAS;
74   END IF;
75 IF (WHERE_DAS IS NULL) THEN
76 	WHERE_DAS := ' ';
77 END IF;
78 
79   return (TRUE);
80 end;
81 
82 function AfterReport return boolean is
83 begin
84   /*srw.user_exit('FND SRWEXIT');*/null;
85 
86   return (TRUE);
87 end;
88 
89 function new_descformula(C_DESC_ACCT_DET in varchar2) return varchar2 is
90 begin
91   if (C_DESC_ACCT_DET <> OLD_DESC) or
92      (OLD_DESC is null) then
93     OLD_DESC := C_DESC_ACCT_DET;
94     return('Y');
95   else
96     return('N');
97   end if;
98 
99   RETURN NULL;
100 end;
101 
102 --Functions to refer Oracle report placeholders--
103 
104  Function OLD_DESC_p return varchar2 is
105 	Begin
106 	 return OLD_DESC;
107 	 END;
108  Function LEDGER_NAME_p return varchar2 is
109 	Begin
110 	 return LEDGER_NAME;
111 	 END;
112  Function P_FLEXDATA_SUM_p return varchar2 is
113 	Begin
114 	 return P_FLEXDATA_SUM;
115 	 END;
116  Function P_FLEXDATA_DET_p return varchar2 is
117 	Begin
118 	 return P_FLEXDATA_DET;
119 	 END;
120  Function P_ORDER_BY_SUM_p return varchar2 is
121 	Begin
122 	 return P_ORDER_BY_SUM;
123 	 END;
124  Function P_ORDER_BY_DET_p return varchar2 is
125 	Begin
126 	 return P_ORDER_BY_DET;
127 	 END;
128  Function STRUCT_NUM_p return number is
129 	Begin
130 	 return STRUCT_NUM;
131 	 END;
132  Function WHERE_DAS_p return varchar2 is
133 	Begin
134 	 return WHERE_DAS;
135 	 END;
136  Function WHERE_TEMPLATE_p return varchar2 is
137 	Begin
138 	 return WHERE_TEMPLATE;
139 	 END;
140 END GL_GLXRLACH_XMLP_PKG ;
141