66: AND jeb.je_batch_id = jeh.je_batch_id
67: AND lgr.ledger_id = jeh.ledger_id;
68: EXCEPTION
69: WHEN NO_DATA_FOUND THEN
70: fnd_message.set_name('SQLGL', 'GL_CTAX_BAD_HEADER');
71: fnd_message.set_token('HEADER_ID', to_char(header_id));
72: app_exception.raise_exception;
73: END;
74:
67: AND lgr.ledger_id = jeh.ledger_id;
68: EXCEPTION
69: WHEN NO_DATA_FOUND THEN
70: fnd_message.set_name('SQLGL', 'GL_CTAX_BAD_HEADER');
71: fnd_message.set_token('HEADER_ID', to_char(header_id));
72: app_exception.raise_exception;
73: END;
74:
75: IF (tax_status_code <> 'R') THEN
72: app_exception.raise_exception;
73: END;
74:
75: IF (tax_status_code <> 'R') THEN
76: fnd_message.set_name('SQLGL', 'GL_CTAX_HEADER_TAXED');
77: app_exception.raise_exception;
78: END IF;
79:
80: -- Get various information about the tax setup
109: dummy := 'Y';
110: END;
111:
112: IF (dummy = 'N') THEN
113: fnd_message.set_name('SQLGL', 'GL_CTAX_NO_OPTIONS');
114: ELSIF (tax_level = 'J') THEN
115: fnd_message.set_name('SQLGL', 'GL_CTAX_NO_OPTIONS_JOURN_ORG');
116: ELSE
117: fnd_message.set_name('SQLGL', 'GL_CTAX_NO_OPTIONS_BATCH_ORG');
111:
112: IF (dummy = 'N') THEN
113: fnd_message.set_name('SQLGL', 'GL_CTAX_NO_OPTIONS');
114: ELSIF (tax_level = 'J') THEN
115: fnd_message.set_name('SQLGL', 'GL_CTAX_NO_OPTIONS_JOURN_ORG');
116: ELSE
117: fnd_message.set_name('SQLGL', 'GL_CTAX_NO_OPTIONS_BATCH_ORG');
118: END IF;
119: app_exception.raise_exception;
113: fnd_message.set_name('SQLGL', 'GL_CTAX_NO_OPTIONS');
114: ELSIF (tax_level = 'J') THEN
115: fnd_message.set_name('SQLGL', 'GL_CTAX_NO_OPTIONS_JOURN_ORG');
116: ELSE
117: fnd_message.set_name('SQLGL', 'GL_CTAX_NO_OPTIONS_BATCH_ORG');
118: END IF;
119: app_exception.raise_exception;
120: END;
121: END setup;
294: FROM gl_je_headers jeh
295: WHERE jeh.je_batch_id = batch_header_id;
296: EXCEPTION
297: WHEN NO_DATA_FOUND THEN
298: fnd_message.set_name('SQLGL', 'GL_CTAX_BAD_BATCH');
299: fnd_message.set_token('BATCH_ID', to_char(batch_header_id));
300: app_exception.raise_exception;
301: END;
302:
295: WHERE jeh.je_batch_id = batch_header_id;
296: EXCEPTION
297: WHEN NO_DATA_FOUND THEN
298: fnd_message.set_name('SQLGL', 'GL_CTAX_BAD_BATCH');
299: fnd_message.set_token('BATCH_ID', to_char(batch_header_id));
300: app_exception.raise_exception;
301: END;
302:
303: IF (nvl(tax_status_code,'0') <> '1') THEN
300: app_exception.raise_exception;
301: END;
302:
303: IF (nvl(tax_status_code,'0') <> '1') THEN
304: fnd_message.set_name('SQLGL', 'GL_CTAX_BATCH_TAXED');
305: app_exception.raise_exception;
306: END IF;
307:
308: OPEN b_journals;
418: END IF;
419:
420: IF (calculation_level <> 'L') THEN
421: -- Determine description for tax line
422: fnd_message.set_name('SQLGL', 'GL_CTAX_LINE_DESCRIPTION');
423: fnd_message.set_token('TAX_CODE', tax_code);
424: fnd_message.set_token('PERCENTAGE', to_char(tax_rate*100));
425: IF (bad_acct) THEN
426: tax_line_descr := substrb(bad_csegs||': '||fnd_message.get,
419:
420: IF (calculation_level <> 'L') THEN
421: -- Determine description for tax line
422: fnd_message.set_name('SQLGL', 'GL_CTAX_LINE_DESCRIPTION');
423: fnd_message.set_token('TAX_CODE', tax_code);
424: fnd_message.set_token('PERCENTAGE', to_char(tax_rate*100));
425: IF (bad_acct) THEN
426: tax_line_descr := substrb(bad_csegs||': '||fnd_message.get,
427: 1, 240);
420: IF (calculation_level <> 'L') THEN
421: -- Determine description for tax line
422: fnd_message.set_name('SQLGL', 'GL_CTAX_LINE_DESCRIPTION');
423: fnd_message.set_token('TAX_CODE', tax_code);
424: fnd_message.set_token('PERCENTAGE', to_char(tax_rate*100));
425: IF (bad_acct) THEN
426: tax_line_descr := substrb(bad_csegs||': '||fnd_message.get,
427: 1, 240);
428: ELSE
422: fnd_message.set_name('SQLGL', 'GL_CTAX_LINE_DESCRIPTION');
423: fnd_message.set_token('TAX_CODE', tax_code);
424: fnd_message.set_token('PERCENTAGE', to_char(tax_rate*100));
425: IF (bad_acct) THEN
426: tax_line_descr := substrb(bad_csegs||': '||fnd_message.get,
427: 1, 240);
428: ELSE
429: tax_line_descr := substrb(fnd_message.get, 1, 240);
430: END IF;
425: IF (bad_acct) THEN
426: tax_line_descr := substrb(bad_csegs||': '||fnd_message.get,
427: 1, 240);
428: ELSE
429: tax_line_descr := substrb(fnd_message.get, 1, 240);
430: END IF;
431:
432: -- Calculate tax amount for tax line
433: IF (incl_tax = 'Y') THEN
459: line_tax_acc_cr := total_jtax_acc_cr - total_ltax_acc_cr;
460: END IF;
461: ELSE
462: -- Determine description for tax line
463: fnd_message.set_name('SQLGL', 'GL_CTAX_JOURNAL_DESCRIPTION');
464: fnd_message.set_token('TAX_CODE', tax_code);
465: fnd_message.set_token('PERCENTAGE', to_char(tax_rate*100));
466: fnd_message.set_token('LINE_NUM', to_char(line_num));
467: fnd_message.set_token('LINE_DESCRIPTION', description);
460: END IF;
461: ELSE
462: -- Determine description for tax line
463: fnd_message.set_name('SQLGL', 'GL_CTAX_JOURNAL_DESCRIPTION');
464: fnd_message.set_token('TAX_CODE', tax_code);
465: fnd_message.set_token('PERCENTAGE', to_char(tax_rate*100));
466: fnd_message.set_token('LINE_NUM', to_char(line_num));
467: fnd_message.set_token('LINE_DESCRIPTION', description);
468: IF (bad_acct) THEN
461: ELSE
462: -- Determine description for tax line
463: fnd_message.set_name('SQLGL', 'GL_CTAX_JOURNAL_DESCRIPTION');
464: fnd_message.set_token('TAX_CODE', tax_code);
465: fnd_message.set_token('PERCENTAGE', to_char(tax_rate*100));
466: fnd_message.set_token('LINE_NUM', to_char(line_num));
467: fnd_message.set_token('LINE_DESCRIPTION', description);
468: IF (bad_acct) THEN
469: tax_line_descr := substrb(bad_csegs||': '||fnd_message.get,
462: -- Determine description for tax line
463: fnd_message.set_name('SQLGL', 'GL_CTAX_JOURNAL_DESCRIPTION');
464: fnd_message.set_token('TAX_CODE', tax_code);
465: fnd_message.set_token('PERCENTAGE', to_char(tax_rate*100));
466: fnd_message.set_token('LINE_NUM', to_char(line_num));
467: fnd_message.set_token('LINE_DESCRIPTION', description);
468: IF (bad_acct) THEN
469: tax_line_descr := substrb(bad_csegs||': '||fnd_message.get,
470: 1, 240);
463: fnd_message.set_name('SQLGL', 'GL_CTAX_JOURNAL_DESCRIPTION');
464: fnd_message.set_token('TAX_CODE', tax_code);
465: fnd_message.set_token('PERCENTAGE', to_char(tax_rate*100));
466: fnd_message.set_token('LINE_NUM', to_char(line_num));
467: fnd_message.set_token('LINE_DESCRIPTION', description);
468: IF (bad_acct) THEN
469: tax_line_descr := substrb(bad_csegs||': '||fnd_message.get,
470: 1, 240);
471: ELSE
465: fnd_message.set_token('PERCENTAGE', to_char(tax_rate*100));
466: fnd_message.set_token('LINE_NUM', to_char(line_num));
467: fnd_message.set_token('LINE_DESCRIPTION', description);
468: IF (bad_acct) THEN
469: tax_line_descr := substrb(bad_csegs||': '||fnd_message.get,
470: 1, 240);
471: ELSE
472: tax_line_descr := substrb(fnd_message.get,1,240);
473: END IF;
468: IF (bad_acct) THEN
469: tax_line_descr := substrb(bad_csegs||': '||fnd_message.get,
470: 1, 240);
471: ELSE
472: tax_line_descr := substrb(fnd_message.get,1,240);
473: END IF;
474:
475: -- Calculate tax amount for line
476: IF (incl_tax = 'Y') THEN
587:
588: -- Raise an error
589: IF (line_count = 0) THEN
590: IF (tax_level = 'B') THEN
591: fnd_message.set_name('SQLGL', 'GL_CTAX_BATCH_NO_TAX_LINES');
592: app_exception.raise_exception;
593: ELSE
594: fnd_message.set_name('SQLGL', 'GL_CTAX_JOURNAL_NO_TAX_LINES');
595: app_exception.raise_exception;
590: IF (tax_level = 'B') THEN
591: fnd_message.set_name('SQLGL', 'GL_CTAX_BATCH_NO_TAX_LINES');
592: app_exception.raise_exception;
593: ELSE
594: fnd_message.set_name('SQLGL', 'GL_CTAX_JOURNAL_NO_TAX_LINES');
595: app_exception.raise_exception;
596: END IF;
597: END IF;
598: