[Home] [Help]
PACKAGE BODY: APPS.AP_APXINDUP_XMLP_PKG
Source
1 PACKAGE BODY AP_APXINDUP_XMLP_PKG AS
2 /* $Header: APXINDUPB.pls 120.0 2007/12/27 07:53:06 vjaganat noship $ */
3 FUNCTION get_base_curr_data RETURN BOOLEAN IS
4 base_curr ap_system_parameters.base_currency_code%TYPE;
5 prec fnd_currencies_vl.precision%TYPE;
6 min_au fnd_currencies_vl.minimum_accountable_unit%TYPE;
7 descr fnd_currencies_vl.description%TYPE;
8 l_org_id ap_system_parameters.org_id%TYPE;
9 BEGIN
10 base_curr := '';
11 prec := 0;
12 min_au := 0;
13 descr := '';
14 SELECT p.base_currency_code,
15 c.precision,
16 c.minimum_accountable_unit,
17 NVL(p.org_id,-99), c.description
18 INTO base_curr,
19 prec,
20 min_au,
21 l_org_id, descr
22 FROM ap_system_parameters p,
23 fnd_currencies_vl c
24 WHERE p.base_currency_code = c.currency_code;
25 c_base_currency_code := base_curr;
26 c_base_precision := prec;
27 c_base_min_acct_unit := min_au;
28 c_base_description := descr;
29 c_org_id := l_org_id;
30 RETURN (TRUE);
31 RETURN NULL; EXCEPTION
32 WHEN OTHERS THEN
33 RETURN (FALSE);
34 END;
35 FUNCTION custom_init RETURN BOOLEAN IS
36 BEGIN
37 RETURN (TRUE);
38 RETURN NULL; EXCEPTION
39 WHEN OTHERS THEN
40 RETURN (FALSE);
41 END;
42 FUNCTION get_cover_page_values RETURN BOOLEAN IS
43 BEGIN
44 RETURN(TRUE);
45 RETURN NULL; EXCEPTION
46 WHEN OTHERS THEN
47 RETURN(FALSE);
48 END;
49 FUNCTION get_nls_strings RETURN BOOLEAN IS
50 nls_all ap_lookup_codes.displayed_field%TYPE; nls_yes fnd_lookups.meaning%TYPE; nls_no fnd_lookups.meaning%TYPE;
51 BEGIN
52 nls_all := '';
53 nls_yes := '';
54 nls_no := '';
55 SELECT ly.meaning,
56 ln.meaning,
57 la.displayed_field
58 INTO nls_yes, nls_no, nls_all
59 FROM fnd_lookups ly, fnd_lookups ln, ap_lookup_codes la
60 WHERE ly.lookup_type = 'YES_NO'
61 AND ly.lookup_code = 'Y'
62 AND ln.lookup_type = 'YES_NO'
63 AND ln.lookup_code = 'N'
64 AND la.lookup_type = 'NLS REPORT PARAMETER'
65 AND la.lookup_code = 'ALL';
66 c_nls_yes := nls_yes;
67 c_nls_no := nls_no;
68 c_nls_all := nls_all;
69 /*SRW.USER_EXIT('FND MESSAGE_NAME APPL="SQLAP" NAME="AP_APPRVL_NO_DATA"');*/null;
70 /*SRW.USER_EXIT('FND MESSAGE_GET OUTPUT_FIELD=":c_nls_no_data_exists"');*/null;
71 /*c_nls_no_data_exists := '*** '||c_nls_no_data_exists||' ***';*/
72 c_nls_no_data_exists := 'No Data Found';
73 /*SRW.USER_EXIT('FND MESSAGE_NAME APPL="SQLAP" NAME="AP_ALL_END_OF_REPORT"');*/null;
74 /*SRW.USER_EXIT('FND MESSAGE_GET OUTPUT_FIELD=":c_nls_end_of_report"');*/null;
75 /*c_nls_end_of_report := '*** '||c_nls_end_of_report||' ***';*/
76 c_nls_end_of_report := 'End of Report';
77 RETURN (TRUE);
78 RETURN NULL; EXCEPTION
79 WHEN OTHERS THEN
80 RETURN (FALSE);
81 END;
82 function BeforeReport return boolean is
83 begin
84 DECLARE
85 init_failure EXCEPTION;
86 BEGIN
87 P_AUDIT_BEGIN_1 := to_char(P_AUDIT_BEGIN,'DD-MON-YY');
88 P_AUDIT_END_1 := to_char(P_AUDIT_END,'DD-MON-YY');
89 P_COMPARE_BEGIN_1 := to_char(P_COMPARE_BEGIN,'DD-MON-YY');
90 P_COMPARE_END_1 := to_char(P_COMPARE_END,'DD-MON-YY');
91 /*srw.reference(C_vendor_name_predicate);*/null;
92 /*srw.reference(C_vendor_type_predicate);*/null;
93 If (p_vendor_name is not null) Then
94 Select vendor_name into p_vendor_name_out
95 From PO_VENDORS
96 where vendor_id = p_vendor_name;
97 End if;
98 /*SRW.USER_EXIT('FND SRWINIT');*/null;
99 IF (p_debug_switch = 'Y') THEN
100 /*SRW.MESSAGE('1','After SRWINIT');*/null;
101 END IF;
102 IF (get_company_name() <> TRUE) THEN RAISE init_failure;
103 END IF;
104 IF (p_debug_switch = 'Y') THEN
105 /*SRW.MESSAGE('2','After Get_Company_Name');*/null;
106 END IF;
107 IF (get_nls_strings() <> TRUE) THEN RAISE init_failure;
108 END IF;
109 IF (p_debug_switch = 'Y') THEN
110 /*SRW.MESSAGE('3','After Get_NLS_Strings');*/null;
111 END IF;
112 IF (get_base_curr_data() <> TRUE) THEN RAISE init_failure;
113 ELSE if(c_org_id<>-99) then
114 P_ORG_COND:=' AND i1.org_id='||c_org_id||' and i2.org_id='||c_org_id;
115 end if;
116 END IF;
117 IF (p_debug_switch = 'Y') THEN
118 /*SRW.MESSAGE('4','After Get_Base_Curr_Data');*/null;
119 END IF;
120 IF (p_debug_switch = 'Y') THEN
121 /*SRW.BREAK;*/null;
122 END IF;
123 RETURN (TRUE);
124 EXCEPTION
125 WHEN OTHERS THEN
126 RAISE_application_error(-20101,null);/*SRW.PROGRAM_ABORT;*/null;
127 END; return (TRUE);
128 end;
129 function AfterReport return boolean is
130 begin
131 BEGIN
132 /*SRW.USER_EXIT('FND SRWEXIT');*/null;
133 IF (P_DEBUG_SWITCH = 'Y') THEN
134 /*SRW.MESSAGE('20','After SRWEXIT');*/null;
135 END IF;
136 EXCEPTION
137 WHEN OTHERS THEN
138 RAISE_application_error(-20101,null);/*SRW.PROGRAM_ABORT;*/null;
139 END; return (TRUE);
140 end;
141 FUNCTION get_company_name RETURN BOOLEAN IS
142 l_chart_of_accounts_id gl_sets_of_books.chart_of_accounts_id%TYPE;
143 l_name gl_sets_of_books.name%TYPE;
144 l_sob_id NUMBER;
145 l_report_start_date DATE;
146 BEGIN
147 l_report_start_date := sysdate; l_sob_id := p_set_of_books_id;
148 SELECT name,
149 chart_of_accounts_id
150 INTO l_name,
151 l_chart_of_accounts_id
152 FROM gl_sets_of_books
153 WHERE set_of_books_id = l_sob_id;
154 c_company_name_header := l_name;
155 c_chart_of_accounts_id := l_chart_of_accounts_id;
156 c_report_start_date := l_report_start_date;
157 RETURN (TRUE);
158 RETURN NULL; EXCEPTION
159 WHEN OTHERS THEN
160 RETURN (FALSE);
161 END;
162 FUNCTION get_flexdata RETURN BOOLEAN IS
163 BEGIN
164 null;
165 RETURN (TRUE);
166 RETURN NULL; EXCEPTION
167 WHEN OTHERS THEN
168 RETURN(FALSE);
169 END;
170 function C_VENDOR_TYPE_PREDICATEFormula return VARCHAR2 is
171 begin
172 if P_VENDOR_TYPE is not null then
173 return('AND V.vendor_type_lookup_code = '''||P_VENDOR_TYPE||'''');
174 end if;
175 --Commented By Raj
176 --RETURN NULL; end;
177 RETURN ' '; end;
178 function C_VENDOR_NAME_PREDICATEFormula return VARCHAR2 is
179 begin
180 if P_VENDOR_NAME is not null then
181 return('AND V.vendor_id = '||to_char(P_VENDOR_NAME));
182 end if;
183 --Commented By Raj
184 --RETURN NULL; end;
185 RETURN ' '; end;
186 function CF_INV_DATE_COMPFormula return Char is
187 l_comp_inv_date fnd_lookups.meaning%TYPE;
188 l_lookup_code fnd_lookups.lookup_type%TYPE;
189 begin
190 select meaning into l_comp_inv_date
191 from fnd_lookups
192 where lookup_type = 'YES_NO'
193 and lookup_code = p_inv_date_comp;
194 return(l_comp_inv_date);
195 end;
196 --Functions to refer Oracle report placeholders--
197 Function C_BASE_CURRENCY_CODE_p return varchar2 is
198 Begin
199 return C_BASE_CURRENCY_CODE;
200 END;
201 Function C_BASE_PRECISION_p return number is
202 Begin
203 return C_BASE_PRECISION;
204 END;
205 Function C_BASE_MIN_ACCT_UNIT_p return number is
206 Begin
207 return C_BASE_MIN_ACCT_UNIT;
208 END;
209 Function C_BASE_DESCRIPTION_p return varchar2 is
210 Begin
211 return C_BASE_DESCRIPTION;
212 END;
213 Function C_COMPANY_NAME_HEADER_p return varchar2 is
214 Begin
215 return C_COMPANY_NAME_HEADER;
216 END;
217 Function C_REPORT_START_DATE_p return date is
218 Begin
219 return C_REPORT_START_DATE;
220 END;
221 Function C_NLS_YES_p return varchar2 is
222 Begin
223 return C_NLS_YES;
224 END;
225 Function C_NLS_NO_p return varchar2 is
226 Begin
227 return C_NLS_NO;
228 END;
229 Function C_NLS_ALL_p return varchar2 is
230 Begin
231 return C_NLS_ALL;
232 END;
233 Function C_NLS_NO_DATA_EXISTS_p return varchar2 is
234 Begin
235 return C_NLS_NO_DATA_EXISTS;
236 END;
237 Function C_CHART_OF_ACCOUNTS_ID_p return number is
238 Begin
239 return C_CHART_OF_ACCOUNTS_ID;
240 END;
241 Function C_NLS_END_OF_REPORT_p return varchar2 is
242 Begin
243 return C_NLS_END_OF_REPORT;
244 END;
245 Function C_ORG_ID_p return number is
246 Begin
247 return C_ORG_ID;
248 END;
249 END AP_APXINDUP_XMLP_PKG ;
250
251