16: FETCH chk_duplicates INTO dummy;
17:
18: IF chk_duplicates%FOUND THEN
19: CLOSE chk_duplicates;
20: fnd_message.set_name('SQLGL', 'GL_DUPLICATE_JE_HEADER_NAME');
21: app_exception.raise_exception;
22: END IF;
23:
24: CLOSE chk_duplicates;
26: EXCEPTION
27: WHEN app_exceptions.application_exception THEN
28: RAISE;
29: WHEN OTHERS THEN
30: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
31: fnd_message.set_token('PROCEDURE', 'gl_je_headers_pkg.check_unique');
32: RAISE;
33: END check_unique;
34:
27: WHEN app_exceptions.application_exception THEN
28: RAISE;
29: WHEN OTHERS THEN
30: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
31: fnd_message.set_token('PROCEDURE', 'gl_je_headers_pkg.check_unique');
32: RAISE;
33: END check_unique;
34:
35: FUNCTION get_unique_id RETURN NUMBER IS
45: CLOSE get_new_id;
46: return(new_id);
47: ELSE
48: CLOSE get_new_id;
49: fnd_message.set_name('SQLGL', 'GL_ERROR_GETTING_UNIQUE_ID');
50: fnd_message.set_token('SEQUENCE', 'GL_JE_HEADERS_S');
51: app_exception.raise_exception;
52: END IF;
53:
46: return(new_id);
47: ELSE
48: CLOSE get_new_id;
49: fnd_message.set_name('SQLGL', 'GL_ERROR_GETTING_UNIQUE_ID');
50: fnd_message.set_token('SEQUENCE', 'GL_JE_HEADERS_S');
51: app_exception.raise_exception;
52: END IF;
53:
54: EXCEPTION
54: EXCEPTION
55: WHEN app_exceptions.application_exception THEN
56: RAISE;
57: WHEN OTHERS THEN
58: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
59: fnd_message.set_token('PROCEDURE', 'gl_je_headers_pkg.get_unique_id');
60: RAISE;
61: END get_unique_id;
62:
55: WHEN app_exceptions.application_exception THEN
56: RAISE;
57: WHEN OTHERS THEN
58: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
59: fnd_message.set_token('PROCEDURE', 'gl_je_headers_pkg.get_unique_id');
60: RAISE;
61: END get_unique_id;
62:
63: PROCEDURE delete_headers(batch_id NUMBER) IS
118: EXCEPTION
119: WHEN app_exceptions.application_exception THEN
120: RAISE;
121: WHEN OTHERS THEN
122: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
123: fnd_message.set_token('PROCEDURE', 'gl_je_headers_pkg.delete_headers');
124: RAISE;
125: END delete_headers;
126:
119: WHEN app_exceptions.application_exception THEN
120: RAISE;
121: WHEN OTHERS THEN
122: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
123: fnd_message.set_token('PROCEDURE', 'gl_je_headers_pkg.delete_headers');
124: RAISE;
125: END delete_headers;
126:
127: PROCEDURE change_effective_date(batch_id NUMBER,
157: EXCEPTION
158: WHEN app_exceptions.application_exception THEN
159: RAISE;
160: WHEN OTHERS THEN
161: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
162: fnd_message.set_token('PROCEDURE',
163: 'gl_je_headers_pkg.change_effective_date');
164: RAISE;
165: END change_effective_date;
158: WHEN app_exceptions.application_exception THEN
159: RAISE;
160: WHEN OTHERS THEN
161: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
162: fnd_message.set_token('PROCEDURE',
163: 'gl_je_headers_pkg.change_effective_date');
164: RAISE;
165: END change_effective_date;
166:
192: CLOSE calc_totals;
193:
194: EXCEPTION
195: WHEN OTHERS THEN
196: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
197: fnd_message.set_token('PROCEDURE', 'gl_je_headers_pkg.calculate_totals');
198: RAISE;
199: END calculate_totals;
200:
193:
194: EXCEPTION
195: WHEN OTHERS THEN
196: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
197: fnd_message.set_token('PROCEDURE', 'gl_je_headers_pkg.calculate_totals');
198: RAISE;
199: END calculate_totals;
200:
201:
279:
280: -- Check the parameters
281: IF (header_id IS NOT NULL) THEN
282: IF (currency_code IS NULL) THEN
283: fnd_message.set_name('FND', 'FORM_INVALID_ARGUMENT');
284: fnd_message.set_token('PROCEDURE', 'gl_je_headers_pkg.change_period');
285: fnd_message.set_token('ARGUMENT', 'currency_code');
286: fnd_message.set_token('VALUE', currency_code);
287: ELSIF (conversion_date IS NULL) THEN
280: -- Check the parameters
281: IF (header_id IS NOT NULL) THEN
282: IF (currency_code IS NULL) THEN
283: fnd_message.set_name('FND', 'FORM_INVALID_ARGUMENT');
284: fnd_message.set_token('PROCEDURE', 'gl_je_headers_pkg.change_period');
285: fnd_message.set_token('ARGUMENT', 'currency_code');
286: fnd_message.set_token('VALUE', currency_code);
287: ELSIF (conversion_date IS NULL) THEN
288: fnd_message.set_name('FND', 'FORM_INVALID_ARGUMENT');
281: IF (header_id IS NOT NULL) THEN
282: IF (currency_code IS NULL) THEN
283: fnd_message.set_name('FND', 'FORM_INVALID_ARGUMENT');
284: fnd_message.set_token('PROCEDURE', 'gl_je_headers_pkg.change_period');
285: fnd_message.set_token('ARGUMENT', 'currency_code');
286: fnd_message.set_token('VALUE', currency_code);
287: ELSIF (conversion_date IS NULL) THEN
288: fnd_message.set_name('FND', 'FORM_INVALID_ARGUMENT');
289: fnd_message.set_token('PROCEDURE', 'gl_je_headers_pkg.change_period');
282: IF (currency_code IS NULL) THEN
283: fnd_message.set_name('FND', 'FORM_INVALID_ARGUMENT');
284: fnd_message.set_token('PROCEDURE', 'gl_je_headers_pkg.change_period');
285: fnd_message.set_token('ARGUMENT', 'currency_code');
286: fnd_message.set_token('VALUE', currency_code);
287: ELSIF (conversion_date IS NULL) THEN
288: fnd_message.set_name('FND', 'FORM_INVALID_ARGUMENT');
289: fnd_message.set_token('PROCEDURE', 'gl_je_headers_pkg.change_period');
290: fnd_message.set_token('ARGUMENT', 'conversion_date');
284: fnd_message.set_token('PROCEDURE', 'gl_je_headers_pkg.change_period');
285: fnd_message.set_token('ARGUMENT', 'currency_code');
286: fnd_message.set_token('VALUE', currency_code);
287: ELSIF (conversion_date IS NULL) THEN
288: fnd_message.set_name('FND', 'FORM_INVALID_ARGUMENT');
289: fnd_message.set_token('PROCEDURE', 'gl_je_headers_pkg.change_period');
290: fnd_message.set_token('ARGUMENT', 'conversion_date');
291: fnd_message.set_token('VALUE', conversion_date);
292: ELSIF (conversion_type IS NULL) THEN
285: fnd_message.set_token('ARGUMENT', 'currency_code');
286: fnd_message.set_token('VALUE', currency_code);
287: ELSIF (conversion_date IS NULL) THEN
288: fnd_message.set_name('FND', 'FORM_INVALID_ARGUMENT');
289: fnd_message.set_token('PROCEDURE', 'gl_je_headers_pkg.change_period');
290: fnd_message.set_token('ARGUMENT', 'conversion_date');
291: fnd_message.set_token('VALUE', conversion_date);
292: ELSIF (conversion_type IS NULL) THEN
293: fnd_message.set_name('FND', 'FORM_INVALID_ARGUMENT');
286: fnd_message.set_token('VALUE', currency_code);
287: ELSIF (conversion_date IS NULL) THEN
288: fnd_message.set_name('FND', 'FORM_INVALID_ARGUMENT');
289: fnd_message.set_token('PROCEDURE', 'gl_je_headers_pkg.change_period');
290: fnd_message.set_token('ARGUMENT', 'conversion_date');
291: fnd_message.set_token('VALUE', conversion_date);
292: ELSIF (conversion_type IS NULL) THEN
293: fnd_message.set_name('FND', 'FORM_INVALID_ARGUMENT');
294: fnd_message.set_token('PROCEDURE', 'gl_je_headers_pkg.change_period');
287: ELSIF (conversion_date IS NULL) THEN
288: fnd_message.set_name('FND', 'FORM_INVALID_ARGUMENT');
289: fnd_message.set_token('PROCEDURE', 'gl_je_headers_pkg.change_period');
290: fnd_message.set_token('ARGUMENT', 'conversion_date');
291: fnd_message.set_token('VALUE', conversion_date);
292: ELSIF (conversion_type IS NULL) THEN
293: fnd_message.set_name('FND', 'FORM_INVALID_ARGUMENT');
294: fnd_message.set_token('PROCEDURE', 'gl_je_headers_pkg.change_period');
295: fnd_message.set_token('ARGUMENT', 'conversion_type');
289: fnd_message.set_token('PROCEDURE', 'gl_je_headers_pkg.change_period');
290: fnd_message.set_token('ARGUMENT', 'conversion_date');
291: fnd_message.set_token('VALUE', conversion_date);
292: ELSIF (conversion_type IS NULL) THEN
293: fnd_message.set_name('FND', 'FORM_INVALID_ARGUMENT');
294: fnd_message.set_token('PROCEDURE', 'gl_je_headers_pkg.change_period');
295: fnd_message.set_token('ARGUMENT', 'conversion_type');
296: fnd_message.set_token('VALUE', conversion_type);
297: ELSIF (conversion_rate IS NULL) THEN
290: fnd_message.set_token('ARGUMENT', 'conversion_date');
291: fnd_message.set_token('VALUE', conversion_date);
292: ELSIF (conversion_type IS NULL) THEN
293: fnd_message.set_name('FND', 'FORM_INVALID_ARGUMENT');
294: fnd_message.set_token('PROCEDURE', 'gl_je_headers_pkg.change_period');
295: fnd_message.set_token('ARGUMENT', 'conversion_type');
296: fnd_message.set_token('VALUE', conversion_type);
297: ELSIF (conversion_rate IS NULL) THEN
298: fnd_message.set_name('FND', 'FORM_INVALID_ARGUMENT');
291: fnd_message.set_token('VALUE', conversion_date);
292: ELSIF (conversion_type IS NULL) THEN
293: fnd_message.set_name('FND', 'FORM_INVALID_ARGUMENT');
294: fnd_message.set_token('PROCEDURE', 'gl_je_headers_pkg.change_period');
295: fnd_message.set_token('ARGUMENT', 'conversion_type');
296: fnd_message.set_token('VALUE', conversion_type);
297: ELSIF (conversion_rate IS NULL) THEN
298: fnd_message.set_name('FND', 'FORM_INVALID_ARGUMENT');
299: fnd_message.set_token('PROCEDURE', 'gl_je_headers_pkg.change_period');
292: ELSIF (conversion_type IS NULL) THEN
293: fnd_message.set_name('FND', 'FORM_INVALID_ARGUMENT');
294: fnd_message.set_token('PROCEDURE', 'gl_je_headers_pkg.change_period');
295: fnd_message.set_token('ARGUMENT', 'conversion_type');
296: fnd_message.set_token('VALUE', conversion_type);
297: ELSIF (conversion_rate IS NULL) THEN
298: fnd_message.set_name('FND', 'FORM_INVALID_ARGUMENT');
299: fnd_message.set_token('PROCEDURE', 'gl_je_headers_pkg.change_period');
300: fnd_message.set_token('ARGUMENT', 'conversion_rate');
294: fnd_message.set_token('PROCEDURE', 'gl_je_headers_pkg.change_period');
295: fnd_message.set_token('ARGUMENT', 'conversion_type');
296: fnd_message.set_token('VALUE', conversion_type);
297: ELSIF (conversion_rate IS NULL) THEN
298: fnd_message.set_name('FND', 'FORM_INVALID_ARGUMENT');
299: fnd_message.set_token('PROCEDURE', 'gl_je_headers_pkg.change_period');
300: fnd_message.set_token('ARGUMENT', 'conversion_rate');
301: fnd_message.set_token('VALUE', conversion_rate);
302: END IF;
295: fnd_message.set_token('ARGUMENT', 'conversion_type');
296: fnd_message.set_token('VALUE', conversion_type);
297: ELSIF (conversion_rate IS NULL) THEN
298: fnd_message.set_name('FND', 'FORM_INVALID_ARGUMENT');
299: fnd_message.set_token('PROCEDURE', 'gl_je_headers_pkg.change_period');
300: fnd_message.set_token('ARGUMENT', 'conversion_rate');
301: fnd_message.set_token('VALUE', conversion_rate);
302: END IF;
303: END IF;
296: fnd_message.set_token('VALUE', conversion_type);
297: ELSIF (conversion_rate IS NULL) THEN
298: fnd_message.set_name('FND', 'FORM_INVALID_ARGUMENT');
299: fnd_message.set_token('PROCEDURE', 'gl_je_headers_pkg.change_period');
300: fnd_message.set_token('ARGUMENT', 'conversion_rate');
301: fnd_message.set_token('VALUE', conversion_rate);
302: END IF;
303: END IF;
304:
297: ELSIF (conversion_rate IS NULL) THEN
298: fnd_message.set_name('FND', 'FORM_INVALID_ARGUMENT');
299: fnd_message.set_token('PROCEDURE', 'gl_je_headers_pkg.change_period');
300: fnd_message.set_token('ARGUMENT', 'conversion_rate');
301: fnd_message.set_token('VALUE', conversion_rate);
302: END IF;
303: END IF;
304:
305: -- Delete all the corrupted ALC journal lines and headers in this batch.
991: END;
992: END IF;
993:
994: IF (has_line = 'N') THEN
995: fnd_message.set_name('SQLGL', 'GL_JE_JOURNAL_W_NO_LINES');
996: app_exception.raise_exception;
997: END IF;
998:
999: IF (X_Je_Batch_Id IS NULL) THEN
1257: OPEN C;
1258: FETCH C INTO Recinfo;
1259: if (C%NOTFOUND) then
1260: CLOSE C;
1261: FND_MESSAGE.SET_NAME('FND', 'FORM_RECORD_DELETED');
1262: APP_EXCEPTION.RAISE_EXCEPTION;
1263: end if;
1264: CLOSE C;
1265: if (
1427: AND (X_Doc_Sequence_Value IS NULL)))
1428: ) then
1429: return;
1430: else
1431: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
1432: APP_EXCEPTION.RAISE_EXCEPTION;
1433: end if;
1434: END Lock_Row;
1435:
1527: OPEN C;
1528: FETCH C INTO Recinfo;
1529: if (C%NOTFOUND) then
1530: CLOSE C;
1531: FND_MESSAGE.SET_NAME('FND', 'FORM_RECORD_DELETED');
1532: APP_EXCEPTION.RAISE_EXCEPTION;
1533: end if;
1534: CLOSE C;
1535: if (
1709: AND (X_Reference_Date IS NULL)))
1710: ) then
1711: null;
1712: else
1713: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
1714: APP_EXCEPTION.RAISE_EXCEPTION;
1715: end if;
1716:
1717: -- If we are in header mode, then Lock the batch record
1831: END;
1832: END IF;
1833:
1834: IF (has_line = 'N') THEN
1835: fnd_message.set_name('SQLGL', 'GL_JE_JOURNAL_W_NO_LINES');
1836: app_exception.raise_exception;
1837: END IF;
1838:
1839: UPDATE GL_JE_HEADERS
2009: END;
2010: END IF;
2011:
2012: IF (has_line = 'N') THEN
2013: fnd_message.set_name('SQLGL', 'GL_JE_JOURNAL_W_NO_LINES');
2014: app_exception.raise_exception;
2015: END IF;
2016:
2017: -- Update the lines effective date, if necessary