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