1 PACKAGE BODY AR_ARXINVAD_XMLP_PKG AS
2 /* $Header: ARXINVADB.pls 120.0 2007/12/27 13:53:56 abraghun noship $ */
3 FUNCTION get_cover_page_values RETURN BOOLEAN IS
4 BEGIN
5 RETURN(TRUE);
6 RETURN NULL; EXCEPTION
7 WHEN OTHERS THEN
8 RETURN(FALSE);
9 END;
10 FUNCTION get_nls_strings RETURN BOOLEAN IS
11 nls_no_data fnd_new_messages.message_text%type;
12 l_sequence_name fnd_document_sequences.name%type;
13 l_sequence_method fnd_lookups.meaning%type;
14 lang varchar2(50);
15 BEGIN
16 nls_no_data := ARP_STANDARD.FND_MESSAGE('AR_NO_DATA_FOUND');
17 c_nls_no_data_exists := '*** '|| nls_no_data || ' ***';
18 SELECT ds.name,
19 lu.meaning
20 INTO l_sequence_name,
21 l_sequence_method
22 FROM fnd_document_sequences ds,
23 fnd_lookups lu
24 WHERE ds.doc_sequence_id = p_sequence_id
25 AND lu.lookup_type = 'SEQUENCE_METHOD'
26 AND lu.LOOKUP_CODE = ds.type;
27 c_sequence_name := l_sequence_name;
28 c_sequence_method := l_sequence_method;
29 RETURN (TRUE);
30 RETURN NULL;
31 EXCEPTION
32 WHEN NO_DATA_FOUND THEN
33 nls_no_data := 'No data found';
34 WHEN OTHERS THEN
35 RETURN (FALSE);
36 END;
37 function BeforeReport return boolean is
38 init_failure EXCEPTION;
39 begin
40 /*SRW.USER_EXIT('FND SRWINIT');*/null;
41 C_last_value:=-1;
42 IF (P_Debug_Switch = 'Y') THEN
43 /*srw.message (100, 'DEBUG: Get the report type from AR Lookups.');*/null;
44 END IF;
45 IF (get_report_type <> TRUE) THEN
46 RAISE init_failure;
47 END IF;
48 IF (P_Debug_Switch = 'Y') THEN
49 /*srw.message (100, 'DEBUG: Get Organization Name and Sysdate.');*/null;
50 END IF;
51 IF (get_company_name <> TRUE) THEN
52 RAISE init_failure;
53 END IF;
54 IF (p_debug_switch = 'Y') THEN
55 /*SRW.MESSAGE(100, 'DEBUG: Get NLS Strings for All, Yes, No, No Data');*/null;
56 END IF;
57 IF (GET_NLS_STRINGS <> TRUE) THEN
58 RAISE init_failure;
59 END IF;
60 IF (p_debug_switch = 'Y') THEN
61 /*SRW.MESSAGE(100, 'DEBUG: Get Code, Precision, Min A/C Unit, Desc for Base Currency');*/null;
62 END IF;
63 IF (get_base_curr_data <> TRUE) THEN
64 RAISE init_failure;
65 END IF;
66 RETURN (TRUE);
67 RETURN NULL; EXCEPTION
68 WHEN OTHERS THEN
69 RAISE_application_error(-20101,null);/*SRW.PROGRAM_ABORT;*/null;
70 end;
71 function AfterReport return boolean is
72 begin
73 BEGIN
74 /*SRW.USER_EXIT('FND SRWEXIT');*/null;
75 IF (P_DEBUG_SWITCH = 'Y') THEN
76 /*SRW.MESSAGE('20','After SRWEXIT');*/null;
77 END IF;
78 EXCEPTION
79 WHEN OTHERS THEN
80 RAISE_application_error(-20101,null);/*SRW.PROGRAM_ABORT;*/null;
81 END; return (TRUE);
82 end;
83 FUNCTION get_company_name RETURN BOOLEAN IS
84 l_chart_of_accounts_id gl_sets_of_books.chart_of_accounts_id%TYPE;
85 l_name gl_sets_of_books.name%TYPE;
86 l_sob_id NUMBER;
87 l_report_start_date DATE;
88 BEGIN
89 l_report_start_date := sysdate; l_sob_id := p_set_of_books_id;
90 SELECT name,
91 chart_of_accounts_id
92 INTO l_name,
93 l_chart_of_accounts_id
94 FROM gl_sets_of_books
95 WHERE set_of_books_id = l_sob_id;
96 c_company_name_header := l_name;
97 c_chart_of_accounts_id := l_chart_of_accounts_id;
98 c_report_start_date := l_report_start_date;
99 RETURN (TRUE);
100 RETURN NULL; EXCEPTION
101 WHEN OTHERS THEN
102 RETURN (FALSE);
103 END;
104 function C_enteredFormula return VARCHAR2 is
105 begin
106 DECLARE
107 status VARCHAR2(30);
108 BEGIN
109 select SUBSTR(meaning, 1, 30)
110 into status
111 from fnd_lookups
112 where lookup_type='SEQ_DOCUMENT_STATUS'
113 and lookup_code='E';
114 return(status);
115 END;
116 RETURN NULL; end;
117 function C_deletedFormula return VARCHAR2 is
118 begin
119 DECLARE
120 status VARCHAR2(30);
121 BEGIN
122 select SUBSTR(meaning, 1, 30)
123 into status
124 from fnd_lookups
125 where lookup_type = 'SEQ_DOCUMENT_STATUS'
126 and lookup_code = 'D';
127 return(status);
128 END;
129 RETURN NULL; end;
130 function c_new_recordsformula(doc_sequence_value in number) return number is
131 begin
132 DECLARE
133 temp ra_customer_trx.doc_sequence_value%type;
134 BEGIN
135 IF (C_last_value = -1) THEN
136 C_last_value := P_sequence_from - 1;
137 END IF;
138 IF (doc_sequence_value <> (C_last_value + 1)) THEN
139 temp := doc_sequence_value - C_last_value - 1;
140 ELSE
141 temp := 0;
142 END IF;
143 C_last_value := doc_sequence_value;
144 return(temp);
145 END;
146 RETURN NULL; end;
147 function C_not_enteredFormula return VARCHAR2 is
148 begin
149 DECLARE
150 status VARCHAR2(30);
151 BEGIN
152 select SUBSTR(meaning, 1, 30)
153 into status
154 from fnd_lookups
155 where lookup_type = 'SEQ_DOCUMENT_STATUS'
156 and lookup_code = 'N';
157 return(status);
158 END;
159 RETURN NULL; end;
160 FUNCTION get_base_curr_data RETURN BOOLEAN IS
161 base_curr gl_sets_of_books.currency_code%TYPE; prec fnd_currencies.precision%TYPE; min_au fnd_currencies.minimum_accountable_unit%TYPE; descr fnd_currencies_vl.description%TYPE;
162 BEGIN
163 base_curr := '';
164 prec := 0;
165 min_au := 0;
166 descr := '';
167 SELECT g.currency_code,
168 c.precision,
169 c.minimum_accountable_unit,
170 c.description
171 INTO base_curr,
172 prec,
173 min_au,
174 descr
175 FROM ar_system_parameters p,
176 gl_sets_of_books g,
177 fnd_currencies_vl c
178 WHERE p.set_of_books_id = g.set_of_books_id
179 AND g.currency_code = c.currency_code;
180 c_base_currency_code := base_curr;
181 c_base_precision := prec;
182 c_base_min_acct_unit := min_au;
183 c_base_description := descr;
184 RETURN (TRUE);
185 RETURN NULL; EXCEPTION
186 WHEN OTHERS THEN
187 RETURN (FALSE);
188 END;
189 FUNCTION get_report_type RETURN BOOLEAN IS
190 l_report_type AR_LOOKUPS.MEANING%TYPE;
191 BEGIN
192 SELECT meaning
193 INTO l_report_type
194 FROM ar_lookups
195 WHERE LOOKUP_TYPE = 'AUDIT_REPORT_TYPE'
196 AND LOOKUP_CODE = p_type;
197 c_report_type := l_report_type;
198 RETURN (TRUE);
199 RETURN NULL; EXCEPTION
200 WHEN OTHERS THEN
201 RETURN (FALSE);
202 END;
203 --Functions to refer Oracle report placeholders--
204 Function C_last_value_p return number is
205 Begin
206 return C_last_value;
207 END;
208 Function C_BASE_CURRENCY_CODE_p return varchar2 is
209 Begin
210 return C_BASE_CURRENCY_CODE;
211 END;
212 Function C_BASE_PRECISION_p return number is
213 Begin
214 return C_BASE_PRECISION;
215 END;
216 Function C_BASE_MIN_ACCT_UNIT_p return number is
217 Begin
218 return C_BASE_MIN_ACCT_UNIT;
219 END;
220 Function C_BASE_DESCRIPTION_p return varchar2 is
221 Begin
222 return C_BASE_DESCRIPTION;
223 END;
224 Function C_COMPANY_NAME_HEADER_p return varchar2 is
225 Begin
226 return C_COMPANY_NAME_HEADER;
227 END;
228 Function C_REPORT_START_DATE_p return date is
229 Begin
230 return C_REPORT_START_DATE;
231 END;
232 Function C_NLS_NO_DATA_EXISTS_p return varchar2 is
233 Begin
234 return C_NLS_NO_DATA_EXISTS;
235 END;
236 Function C_CHART_OF_ACCOUNTS_ID_p return number is
237 Begin
238 return C_CHART_OF_ACCOUNTS_ID;
239 END;
240 Function C_sequence_name_p return varchar2 is
241 Begin
242 return C_sequence_name;
243 END;
244 Function C_sequence_method_p return varchar2 is
245 Begin
246 return C_sequence_method;
247 END;
248 Function C_report_type_p return varchar2 is
249 Begin
250 return C_report_type;
251 END;
252 END AR_ARXINVAD_XMLP_PKG ;
253