1: PACKAGE BODY JE_BE_CSSR_PKG AS
2: /* $Header: jebecsrb.pls 120.1.12010000.3 2008/09/02 07:16:30 vgadde ship $ */
3:
4: procedure main(
5: p_errbuf OUT NOCOPY VARCHAR2,
129: when l_exc_survey_code_null then
130: fnd_file.put_line(fnd_file.log,'-------------');
131: fnd_file.put_line(fnd_file.log,' ERROR LOG ');
132: fnd_file.put_line(fnd_file.log,'-------------');
133: fnd_file.put_line(fnd_file.log,' JE_BE_CSSR_PKG: JEBE: Survey code Profile Option not set ');
134: fnd_file.put_line(fnd_file.log,'-------------');
135: P_RETCODE := 2;
136: RETURN;
137:
138: when l_exc_lang_limit then
139: fnd_file.put_line(fnd_file.log,'-------------');
140: fnd_file.put_line(fnd_file.log,' ERROR LOG ');
141: fnd_file.put_line(fnd_file.log,'-------------');
142: fnd_file.put_line(fnd_file.log,' JE_BE_CSSR_PKG: The Report can be run for only the following languages');
143: fnd_file.put_line(fnd_file.log,' EN DE NL FR ');
144: fnd_file.put_line(fnd_file.log,'-------------');
145: P_RETCODE := 2;
146: RETURN;
148: when others then
149: fnd_file.put_line(fnd_file.log,'-------------');
150: fnd_file.put_line(fnd_file.log,' ERROR LOG ');
151: fnd_file.put_line(fnd_file.log,'-------------');
152: fnd_file.put_line(fnd_file.log,' Unexpected error occured in the JE_BE_CSSR_PKG package');
153: fnd_file.put_line(fnd_file.log,' Please check if all the setup is done properly');
154: fnd_file.put_line(fnd_file.log,'-------------');
155: raise;
156: end main;
190: into l_sysdate
191: from dual;
192: --main open
193: -- g_xml := '
194: l_var := JE_BE_CSSR_PKG.level_up;
195: fnd_file.put_line(fnd_file.output,l_var);
196:
197: fnd_file.put_line(fnd_file.output,'
198: --admin open
195: fnd_file.put_line(fnd_file.output,l_var);
196:
197: fnd_file.put_line(fnd_file.output,'
198: --admin open
199: l_var := JE_BE_CSSR_PKG.level_up;
200: fnd_file.put_line(fnd_file.output,l_var||'
201:
202: -- sender info open
203: l_var := JE_BE_CSSR_PKG.level_up;
199: l_var := JE_BE_CSSR_PKG.level_up;
200: fnd_file.put_line(fnd_file.output,l_var||'
201:
202: -- sender info open
203: l_var := JE_BE_CSSR_PKG.level_up;
204: fnd_file.put_line(fnd_file.output,l_var||'
205:
206: --contact tag open
207: l_var := JE_BE_CSSR_PKG.level_up;
203: l_var := JE_BE_CSSR_PKG.level_up;
204: fnd_file.put_line(fnd_file.output,l_var||'
205:
206: --contact tag open
207: l_var := JE_BE_CSSR_PKG.level_up;
208: fnd_file.put_line(fnd_file.output,l_var||'
209:
210: -- name tag open and close
211: l_var := JE_BE_CSSR_PKG.level_up;
207: l_var := JE_BE_CSSR_PKG.level_up;
208: fnd_file.put_line(fnd_file.output,l_var||'
209:
210: -- name tag open and close
211: l_var := JE_BE_CSSR_PKG.level_up;
212: if( p_name is not null ) then
213: fnd_file.put_line(fnd_file.output,l_var||'
214: else
215: fnd_file.put_line(fnd_file.output,l_var||'');
237: fnd_file.put_line(fnd_file.output,l_var||l_string);
238: end if;
239:
240: -- contact tag close
241: l_var := JE_BE_CSSR_PKG.level_down;
242: fnd_file.put_line(fnd_file.output,l_var||'');
243: -- sender info close
244: l_var := JE_BE_CSSR_PKG.level_down;
245: fnd_file.put_line(fnd_file.output,l_var||'');
240: -- contact tag close
241: l_var := JE_BE_CSSR_PKG.level_down;
242: fnd_file.put_line(fnd_file.output,l_var||'');
243: -- sender info close
244: l_var := JE_BE_CSSR_PKG.level_down;
245: fnd_file.put_line(fnd_file.output,l_var||'');
246:
247: fnd_file.put_line(fnd_file.output,l_var||'
248:
255:
256: -- processsing parameters tag open
257: fnd_file.put_line(fnd_file.output,l_var||'
258:
259: l_var := JE_BE_CSSR_PKG.level_up;
260: -- email response tag
261: if ( p_email_resp is not null ) then
262: fnd_file.put_line(fnd_file.output,l_var||'
263: ||lower(p_email_resp)||'
292: close c_get_iso_lang;
293: l_string := '
294: fnd_file.put_line(fnd_file.output,l_var||l_string);
295:
296: l_var := JE_BE_CSSR_PKG.level_down;
297:
298: -- processsing parameters tag close
299: fnd_file.put_line(fnd_file.output,l_var||'');
300: else
300: else
301: fnd_file.put_line(fnd_file.output,l_var||'
302: end if;
303: --admin close
304: l_var := JE_BE_CSSR_PKG.level_down;
305: fnd_file.put_line(fnd_file.output,l_var||'');
306:
307: end get_admin_data;
308:
399:
400: l_string := '
402: || l_disp_period ||'">';
403: l_var := JE_BE_CSSR_PKG.level_down;
404: l_var := JE_BE_CSSR_PKG.level_up;
405: fnd_file.put_line(fnd_file.output,l_var||l_string);
406:
407: IF l_reporting_level <> 'LE' THEN
400: l_string := '
402: || l_disp_period ||'">';
403: l_var := JE_BE_CSSR_PKG.level_down;
404: l_var := JE_BE_CSSR_PKG.level_up;
405: fnd_file.put_line(fnd_file.output,l_var||l_string);
406:
407: IF l_reporting_level <> 'LE' THEN
408: l_sob_id := l_ledger_id;
418:
419: -- Get the accounting/natural segment for the chart of accounts defined.
420:
421: l_status_text := ' Get the accounting/natural segment for coa '||l_coa_id;
422: l_seg_name := JE_BE_CSSR_PKG.get_accounting_segment(l_coa_id);
423:
424: fnd_file.put_line(fnd_file.log,'Accounting Segment :'||l_seg_name);
425:
426: END IF;
424: fnd_file.put_line(fnd_file.log,'Accounting Segment :'||l_seg_name);
425:
426: END IF;
427:
428: l_var := JE_BE_CSSR_PKG.level_up;
429: l_string := l_var ||'
777: fnd_file.put_line(fnd_file.output,l_string ||' nihil = "true" />');
778: end if;
779:
780: --content tag close
781: l_var := JE_BE_CSSR_PKG.level_down;
782: fnd_file.put_line(fnd_file.output,l_var||'');
783:
784: --main close
785: l_var := JE_BE_CSSR_PKG.level_down;
781: l_var := JE_BE_CSSR_PKG.level_down;
782: fnd_file.put_line(fnd_file.output,l_var||'');
783:
784: --main close
785: l_var := JE_BE_CSSR_PKG.level_down;
786: fnd_file.put_line(fnd_file.output,'');
787:
788: end get_content_data;
789:
908:
909: END get_accounting_segment;
910:
911:
912: end JE_BE_CSSR_PKG;