37:
38: IF chk_duplicates%FOUND THEN
39: CLOSE chk_duplicates;
40: fnd_message.set_name('SQLGL', 'GL_DUPLICATE_JE_LINE_NUM');
41: app_exception.raise_exception;
42: END IF;
43:
44: CLOSE chk_duplicates;
45:
43:
44: CLOSE chk_duplicates;
45:
46: EXCEPTION
47: WHEN app_exceptions.application_exception THEN
48: RAISE;
49: WHEN OTHERS THEN
50: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
51: fnd_message.set_token('PROCEDURE', 'gl_je_lines_pkg.check_unique');
61: -- Delete the reference lines if any.
62: GL_IMPORT_REFERENCES_PKG.delete_lines (header_id);
63:
64: EXCEPTION
65: WHEN app_exceptions.application_exception THEN
66: RAISE;
67: WHEN OTHERS THEN
68: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
69: fnd_message.set_token('PROCEDURE', 'gl_je_lines_pkg.delete_lines');
319:
320: IF (temp_return_status = 'E') THEN
321: FND_MESSAGE.Set_Name('ZX', err_msg);
322: fnd_message.set_token('PROCEDURE', 'gl_je_lines_pkg.populate_fields');
323: -- APP_EXCEPTION.Raise_Exception;
324: ELSIF (temp_return_status = 'U') THEN
325: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
326: fnd_message.set_token('PROCEDURE', 'gl_je_lines_pkg.populate_fields');
327: APP_EXCEPTION.Raise_Exception;
323: -- APP_EXCEPTION.Raise_Exception;
324: ELSIF (temp_return_status = 'U') THEN
325: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
326: fnd_message.set_token('PROCEDURE', 'gl_je_lines_pkg.populate_fields');
327: APP_EXCEPTION.Raise_Exception;
328: END IF;
329: END IF;
330:
331: gl_je_lines_pkg.init_acct_dependencies(
349: x_jgzz_recon_flag => x_jgzz_recon_flag);
350:
351: ELSE
352: fnd_message.set_encoded(fnd_flex_keyval.encoded_error_message);
353: app_exception.raise_exception;
354: END IF;
355:
356: END populate_fields;
357:
471:
472: IF (dummy_return_status = 'E') THEN
473: FND_MESSAGE.Set_Name('ZX', err_msg);
474: fnd_message.set_token('PROCEDURE', 'gl_je_lines_pkg.init_acct_dependencies');
475: -- APP_EXCEPTION.Raise_Exception;
476: ELSIF (dummy_return_status = 'U') THEN
477: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
478: fnd_message.set_token('PROCEDURE', 'gl_je_lines_pkg.init_acct_dependencies');
479: APP_EXCEPTION.Raise_Exception;
475: -- APP_EXCEPTION.Raise_Exception;
476: ELSIF (dummy_return_status = 'U') THEN
477: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
478: fnd_message.set_token('PROCEDURE', 'gl_je_lines_pkg.init_acct_dependencies');
479: APP_EXCEPTION.Raise_Exception;
480: END IF;
481:
482: -- Get the default rounding rule code and default include tax flag
483: get_tax_defaults(x_ledger_id, x_org_id, x_account_num,
651:
652: IF (temp_return_status = 'E') THEN
653: FND_MESSAGE.Set_Name('ZX', err_msg);
654: fnd_message.set_token('FUNCTION', 'gl_je_lines_pkg.default_tax_code');
655: --APP_EXCEPTION.Raise_Exception;
656: ELSIF (temp_return_status = 'U') THEN
657: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
658: fnd_message.set_token('FUNCTION', 'gl_je_lines_pkg.default_tax_code');
659: APP_EXCEPTION.Raise_Exception;
655: --APP_EXCEPTION.Raise_Exception;
656: ELSIF (temp_return_status = 'U') THEN
657: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
658: fnd_message.set_token('FUNCTION', 'gl_je_lines_pkg.default_tax_code');
659: APP_EXCEPTION.Raise_Exception;
660: END IF;
661:
662: IF (output_type = 'I') THEN
663: RETURN(to_char(default_tax_code_id));
697:
698: IF (temp_return_status = 'E') THEN
699: FND_MESSAGE.Set_Name('ZX', err_msg);
700: fnd_message.set_token('FUNCTION', 'gl_je_lines_pkg.default_rounding_rule');
701: --APP_EXCEPTION.Raise_Exception;
702: ELSIF (temp_return_status = 'U') THEN
703: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
704: fnd_message.set_token('FUNCTION', 'gl_je_lines_pkg.default_rounding_rule');
705: APP_EXCEPTION.Raise_Exception;
701: --APP_EXCEPTION.Raise_Exception;
702: ELSIF (temp_return_status = 'U') THEN
703: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
704: fnd_message.set_token('FUNCTION', 'gl_je_lines_pkg.default_rounding_rule');
705: APP_EXCEPTION.Raise_Exception;
706: END IF;
707:
708: IF default_rounding_rule_code IS NOT NULL THEN
709: SELECT l.lookup_code, l.meaning
762:
763: IF (temp_return_status = 'E') THEN
764: FND_MESSAGE.Set_Name('ZX', err_msg);
765: fnd_message.set_token('FUNCTION', 'gl_je_lines_pkg.default_includes_tax');
766: -- APP_EXCEPTION.Raise_Exception;
767: ELSIF (temp_return_status = 'U') THEN
768: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
769: fnd_message.set_token('FUNCTION', 'gl_je_lines_pkg.default_includes_tax');
770: APP_EXCEPTION.Raise_Exception;
766: -- APP_EXCEPTION.Raise_Exception;
767: ELSIF (temp_return_status = 'U') THEN
768: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
769: fnd_message.set_token('FUNCTION', 'gl_je_lines_pkg.default_includes_tax');
770: APP_EXCEPTION.Raise_Exception;
771: END IF;
772:
773: IF temp_includes_tax_flag IS NOT NULL THEN
774: SELECT l.lookup_code, l.meaning
1154: FETCH C INTO Recinfo;
1155: if (C%NOTFOUND) then
1156: CLOSE C;
1157: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
1158: APP_EXCEPTION.Raise_Exception;
1159: end if;
1160: CLOSE C;
1161:
1162: if (
1372: X_Jgzz_Recon_Ref=>X_Jgzz_Recon_Ref);
1373: END IF;
1374: else
1375: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
1376: APP_EXCEPTION.RAISE_EXCEPTION;
1377: end if;
1378: else
1379: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
1380: APP_EXCEPTION.RAISE_EXCEPTION;
1376: APP_EXCEPTION.RAISE_EXCEPTION;
1377: end if;
1378: else
1379: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
1380: APP_EXCEPTION.RAISE_EXCEPTION;
1381: end if;
1382: END Lock_Row;
1383:
1384: PROCEDURE Update_Row(X_Rowid VARCHAR2,