[Home] [Help]
PACKAGE BODY: APPS.AP_APXTOLRP_XMLP_PKG
Source
1 PACKAGE BODY AP_APXTOLRP_XMLP_PKG AS
2 /* $Header: APXTOLRPB.pls 120.0 2007/12/27 08:39:42 vjaganat noship $ */
3
4 FUNCTION get_base_curr_data RETURN BOOLEAN IS
5
6 base_curr ap_system_parameters.base_currency_code%TYPE; prec fnd_currencies.precision%TYPE; min_au fnd_currencies.minimum_accountable_unit%TYPE; descr fnd_currencies.description%TYPE;
7 BEGIN
8
9 RETURN (TRUE);
10
11 EXCEPTION
12
13 WHEN OTHERS THEN
14 RETURN (FALSE);
15
16 END;
17
18 FUNCTION custom_init RETURN BOOLEAN IS
19
20 BEGIN
21
22
23 RETURN (TRUE);
24
25 RETURN NULL; EXCEPTION
26
27 WHEN OTHERS THEN
28 RETURN (FALSE);
29
30 END;
31
32 FUNCTION get_cover_page_values RETURN BOOLEAN IS
33
34 BEGIN
35
36 RETURN(TRUE);
37
38 RETURN NULL; EXCEPTION
39 WHEN OTHERS THEN
40 RETURN(FALSE);
41
42 END;
43
44 FUNCTION get_nls_strings RETURN BOOLEAN IS
45 nls_void ap_lookup_codes.displayed_field%TYPE; nls_na ap_lookup_codes.displayed_field%TYPE; nls_all ap_lookup_codes.displayed_field%TYPE; nls_yes fnd_lookups.meaning%TYPE; nls_no fnd_lookups.meaning%TYPE;
46 BEGIN
47
48 SELECT ly.meaning,
49 ln.meaning,
50 l1.displayed_field,
51 l2.displayed_field,
52 l3.displayed_field
53 INTO nls_yes,
54 nls_no,
55 nls_all,
56 nls_void,
57 nls_na
58 FROM fnd_lookups ly,
59 fnd_lookups ln,
60 ap_lookup_codes l1,
61 ap_lookup_codes l2,
62 ap_lookup_codes l3
63 WHERE ly.lookup_type = 'YES_NO'
64 AND ly.lookup_code = 'Y'
65 AND ln.lookup_type = 'YES_NO'
66 AND ln.lookup_code = 'N'
67 AND l1.lookup_type = 'NLS REPORT PARAMETER'
68 AND l1.lookup_code = 'ALL'
69 AND l2.lookup_type = 'NLS TRANSLATION'
70 AND l2.lookup_code = 'VOID'
71 AND l3.lookup_type = 'NLS REPORT PARAMETER'
72 AND l3.lookup_code = 'NA';
73
74 C_NLS_YES := nls_yes;
75 C_NLS_NO := nls_no;
76 C_NLS_ALL := nls_all;
77 C_NLS_VOID := nls_void;
78 C_NLS_NA := nls_na;
79
80
81
82 /*srw.user_exit('FND MESSAGE_NAME APPL="SQLAP" NAME="AP_APPRVL_NO_DATA"');*/null;
83
84 /*srw.user_exit('FND MESSAGE_GET OUTPUT_FIELD=":C_NLS_NO_DATA_EXISTS"');*/null;
85
86 /*srw.user_exit('FND MESSAGE_NAME APPL="SQLAP" NAME="AP_ALL_END_OF_REPORT"');*/null;
87
88 /*srw.user_exit('FND MESSAGE_GET OUTPUT_FIELD=":C_NLS_END_OF_REPORT"');*/null;
89
90
91 C_NLS_NO_DATA_EXISTS := '*** '||C_NLS_NO_DATA_EXISTS||' ***';
92 C_NLS_END_OF_REPORT := '*** '||C_NLS_END_OF_REPORT||' ***';
93
94 RETURN (TRUE);
95
96 RETURN NULL; EXCEPTION
97 WHEN OTHERS THEN
98 RETURN (FALSE);
99 END;
100
101 function BeforeReport return boolean is
102 begin
103
104
105
106 DECLARE
107
108 init_failure EXCEPTION;
109
110 BEGIN
111
112
113 C_REPORT_START_DATE := sysdate;
114
115
116 IF (p_trace_switch in ('y','Y')) THEN
117 /*SRW.DO_SQL('alter session set sql_trace TRUE');*/null;
118
119 END IF;
120
121 /*SRW.USER_EXIT('FND SRWINIT');*/null;
122
123
124
125
126
127
128 IF (tolerance_hold_names() <> TRUE) THEN
129 /*SRW.MESSAGE('3', 'Function tolerance_hold_names() Failed');*/null;
130
131 RAISE init_failure;
132 END IF;
133
134 IF (p_debug_switch in ('y','Y')) THEN
135 /*SRW.MESSAGE('3','After tolerance_hold_names');*/null;
136
137 END IF;
138
139
140
141
142
143
144
145
146
147
148
149
150
151 RETURN (TRUE);
152
153
154
155 EXCEPTION
156
157 WHEN OTHERS THEN
158
159 RAISE_application_error(-20101,null);/*SRW.PROGRAM_ABORT;*/null;
160
161
162 END;
163 return (TRUE);
164 end;
165
166 FUNCTION tolerance_hold_names RETURN BOOLEAN IS
167 BEGIN
168
169
170 RETURN TRUE;
171
172 EXCEPTION
173
174 When Others Then
175 Return False;
176 END;
177
178 function AfterReport return boolean is
179 begin
180
181 BEGIN
182 /*SRW.USER_EXIT('FND SRWEXIT');*/null;
183
184 EXCEPTION
185 WHEN OTHERS THEN
186 RAISE_application_error(-20101,null);/*SRW.PROGRAM_ABORT;*/null;
187
188 END;
189 return (TRUE);
190
191 end;
192
193 --Functions to refer Oracle report placeholders--
194
195 Function C_NLS_YES_p return varchar2 is
196 Begin
197 return C_NLS_YES;
198 END;
199 Function C_NLS_NO_p return varchar2 is
200 Begin
201 return C_NLS_NO;
202 END;
203 Function C_NLS_ALL_p return varchar2 is
204 Begin
205 return C_NLS_ALL;
206 END;
207 Function C_NLS_NO_DATA_EXISTS_p return varchar2 is
208 Begin
209 return C_NLS_NO_DATA_EXISTS;
210 END;
211 Function C_NLS_VOID_p return varchar2 is
212 Begin
213 return C_NLS_VOID;
214 END;
215 Function C_NLS_NA_p return varchar2 is
216 Begin
217 return C_NLS_NA;
218 END;
219 Function C_NLS_END_OF_REPORT_p return varchar2 is
220 Begin
221 return C_NLS_END_OF_REPORT;
222 END;
223 Function C_REPORT_START_DATE_p return date is
224 Begin
225 return C_REPORT_START_DATE;
226 END;
227 Function C_COMPANY_NAME_HEADER_p return varchar2 is
228 Begin
229 return C_COMPANY_NAME_HEADER;
230 END;
231 /*Function Applications Template Report_p return varchar2 is
232 Begin
233 return Applications Template Report;
234 END;*/
235 Function Applications_Template_Report_p return varchar2 is
236 Begin
237 return Applications_Template_Report;
238 END;
239 END AP_APXTOLRP_XMLP_PKG ;
240