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;
291: FROM gl_je_headers jeh
292: WHERE jeh.je_batch_id = batch_header_id;
293: EXCEPTION
294: WHEN NO_DATA_FOUND THEN
295: fnd_message.set_name('SQLGL', 'GL_CTAX_BAD_BATCH');
296: fnd_message.set_token('BATCH_ID', to_char(batch_header_id));
297: app_exception.raise_exception;
298: END;
299:
292: WHERE jeh.je_batch_id = batch_header_id;
293: EXCEPTION
294: WHEN NO_DATA_FOUND THEN
295: fnd_message.set_name('SQLGL', 'GL_CTAX_BAD_BATCH');
296: fnd_message.set_token('BATCH_ID', to_char(batch_header_id));
297: app_exception.raise_exception;
298: END;
299:
300: IF (nvl(tax_status_code,'0') <> '1') THEN
297: app_exception.raise_exception;
298: END;
299:
300: IF (nvl(tax_status_code,'0') <> '1') THEN
301: fnd_message.set_name('SQLGL', 'GL_CTAX_BATCH_TAXED');
302: app_exception.raise_exception;
303: END IF;
304:
305: OPEN b_journals;
412: END IF;
413:
414: IF (calculation_level <> 'L') THEN
415: -- Determine description for tax line
416: fnd_message.set_name('SQLGL', 'GL_CTAX_LINE_DESCRIPTION');
417: fnd_message.set_token('TAX_CODE', tax_code);
418: fnd_message.set_token('PERCENTAGE', to_char(tax_rate*100));
419: IF (bad_acct) THEN
420: tax_line_descr := substrb(bad_csegs||': '||fnd_message.get,
413:
414: IF (calculation_level <> 'L') THEN
415: -- Determine description for tax line
416: fnd_message.set_name('SQLGL', 'GL_CTAX_LINE_DESCRIPTION');
417: fnd_message.set_token('TAX_CODE', tax_code);
418: fnd_message.set_token('PERCENTAGE', to_char(tax_rate*100));
419: IF (bad_acct) THEN
420: tax_line_descr := substrb(bad_csegs||': '||fnd_message.get,
421: 1, 240);
414: IF (calculation_level <> 'L') THEN
415: -- Determine description for tax line
416: fnd_message.set_name('SQLGL', 'GL_CTAX_LINE_DESCRIPTION');
417: fnd_message.set_token('TAX_CODE', tax_code);
418: fnd_message.set_token('PERCENTAGE', to_char(tax_rate*100));
419: IF (bad_acct) THEN
420: tax_line_descr := substrb(bad_csegs||': '||fnd_message.get,
421: 1, 240);
422: ELSE
416: fnd_message.set_name('SQLGL', 'GL_CTAX_LINE_DESCRIPTION');
417: fnd_message.set_token('TAX_CODE', tax_code);
418: fnd_message.set_token('PERCENTAGE', to_char(tax_rate*100));
419: IF (bad_acct) THEN
420: tax_line_descr := substrb(bad_csegs||': '||fnd_message.get,
421: 1, 240);
422: ELSE
423: tax_line_descr := substrb(fnd_message.get, 1, 240);
424: END IF;
419: IF (bad_acct) THEN
420: tax_line_descr := substrb(bad_csegs||': '||fnd_message.get,
421: 1, 240);
422: ELSE
423: tax_line_descr := substrb(fnd_message.get, 1, 240);
424: END IF;
425:
426: -- Calculate tax amount for tax line
427: IF (incl_tax = 'Y') THEN
453: line_tax_acc_cr := total_jtax_acc_cr - total_ltax_acc_cr;
454: END IF;
455: ELSE
456: -- Determine description for tax line
457: fnd_message.set_name('SQLGL', 'GL_CTAX_JOURNAL_DESCRIPTION');
458: fnd_message.set_token('TAX_CODE', tax_code);
459: fnd_message.set_token('PERCENTAGE', to_char(tax_rate*100));
460: fnd_message.set_token('LINE_NUM', to_char(line_num));
461: fnd_message.set_token('LINE_DESCRIPTION', description);
454: END IF;
455: ELSE
456: -- Determine description for tax line
457: fnd_message.set_name('SQLGL', 'GL_CTAX_JOURNAL_DESCRIPTION');
458: fnd_message.set_token('TAX_CODE', tax_code);
459: fnd_message.set_token('PERCENTAGE', to_char(tax_rate*100));
460: fnd_message.set_token('LINE_NUM', to_char(line_num));
461: fnd_message.set_token('LINE_DESCRIPTION', description);
462: IF (bad_acct) THEN
455: ELSE
456: -- Determine description for tax line
457: fnd_message.set_name('SQLGL', 'GL_CTAX_JOURNAL_DESCRIPTION');
458: fnd_message.set_token('TAX_CODE', tax_code);
459: fnd_message.set_token('PERCENTAGE', to_char(tax_rate*100));
460: fnd_message.set_token('LINE_NUM', to_char(line_num));
461: fnd_message.set_token('LINE_DESCRIPTION', description);
462: IF (bad_acct) THEN
463: tax_line_descr := substrb(bad_csegs||': '||fnd_message.get,
456: -- Determine description for tax line
457: fnd_message.set_name('SQLGL', 'GL_CTAX_JOURNAL_DESCRIPTION');
458: fnd_message.set_token('TAX_CODE', tax_code);
459: fnd_message.set_token('PERCENTAGE', to_char(tax_rate*100));
460: fnd_message.set_token('LINE_NUM', to_char(line_num));
461: fnd_message.set_token('LINE_DESCRIPTION', description);
462: IF (bad_acct) THEN
463: tax_line_descr := substrb(bad_csegs||': '||fnd_message.get,
464: 1, 240);
457: fnd_message.set_name('SQLGL', 'GL_CTAX_JOURNAL_DESCRIPTION');
458: fnd_message.set_token('TAX_CODE', tax_code);
459: fnd_message.set_token('PERCENTAGE', to_char(tax_rate*100));
460: fnd_message.set_token('LINE_NUM', to_char(line_num));
461: fnd_message.set_token('LINE_DESCRIPTION', description);
462: IF (bad_acct) THEN
463: tax_line_descr := substrb(bad_csegs||': '||fnd_message.get,
464: 1, 240);
465: ELSE
459: fnd_message.set_token('PERCENTAGE', to_char(tax_rate*100));
460: fnd_message.set_token('LINE_NUM', to_char(line_num));
461: fnd_message.set_token('LINE_DESCRIPTION', description);
462: IF (bad_acct) THEN
463: tax_line_descr := substrb(bad_csegs||': '||fnd_message.get,
464: 1, 240);
465: ELSE
466: tax_line_descr := substrb(fnd_message.get,1,240);
467: END IF;
462: IF (bad_acct) THEN
463: tax_line_descr := substrb(bad_csegs||': '||fnd_message.get,
464: 1, 240);
465: ELSE
466: tax_line_descr := substrb(fnd_message.get,1,240);
467: END IF;
468:
469: -- Calculate tax amount for line
470: IF (incl_tax = 'Y') THEN
581:
582: -- Raise an error
583: IF (line_count = 0) THEN
584: IF (tax_level = 'B') THEN
585: fnd_message.set_name('SQLGL', 'GL_CTAX_BATCH_NO_TAX_LINES');
586: app_exception.raise_exception;
587: ELSE
588: fnd_message.set_name('SQLGL', 'GL_CTAX_JOURNAL_NO_TAX_LINES');
589: app_exception.raise_exception;
584: IF (tax_level = 'B') THEN
585: fnd_message.set_name('SQLGL', 'GL_CTAX_BATCH_NO_TAX_LINES');
586: app_exception.raise_exception;
587: ELSE
588: fnd_message.set_name('SQLGL', 'GL_CTAX_JOURNAL_NO_TAX_LINES');
589: app_exception.raise_exception;
590: END IF;
591: END IF;
592: