1: PACKAGE BODY GL_TRANSACTION_CALENDAR_PKG AS
2: /* $Header: glitrclb.pls 120.5 2003/12/05 18:56:24 cma ship $ */
3:
4: --
5: -- PUBLIC FUNCTIONS
7:
8: PROCEDURE check_unique(x_name VARCHAR2, row_id VARCHAR2) IS
9: CURSOR chk_duplicates is
10: SELECT 'Duplicate'
11: FROM GL_TRANSACTION_CALENDAR gps
12: WHERE gps.name = x_name
13: AND ( row_id is null
14: OR gps.rowid <> row_id);
15: dummy VARCHAR2(100);
29: WHEN app_exceptions.application_exception THEN
30: RAISE;
31: WHEN OTHERS THEN
32: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
33: fnd_message.set_token('PROCEDURE', 'gl_transaction_calendar_pkg.check_unique');
34: RAISE;
35: END check_unique;
36:
37: /* Added for Definition Access Sets Project */
92: attribute12,
93: attribute13,
94: attribute14,
95: attribute15
96: FROM gl_transaction_calendar
97: WHERE ROWID = X_Rowid
98: FOR UPDATE OF transaction_calendar_id NOWAIT;
99: recinfo C%ROWTYPE;
100:
232: x_attribute13 VARCHAR2,
233: x_attribute14 VARCHAR2,
234: x_attribute15 VARCHAR2
235: ) IS
236: CURSOR C_ROWID IS SELECT rowid FROM gl_transaction_calendar
237: WHERE transaction_calendar_id = x_transaction_calendar_id;
238:
239: BEGIN
240: -- insert the record
237: WHERE transaction_calendar_id = x_transaction_calendar_id;
238:
239: BEGIN
240: -- insert the record
241: INSERT INTO gl_transaction_calendar
242: (
243: transaction_calendar_id,
244: name,
245: sun_business_day_flag,
344: fnd_message.set_name('SQLGL', 'GL_AB_TR_CAL_IS_USED');
345: app_exception.raise_exception;
346: END IF;
347:
348: -- delete from gl_transaction_calendar
349: DELETE FROM GL_TRANSACTION_CALENDAR
350: WHERE transaction_calendar_id = x_transaction_calendar_id;
351:
352: -- delete from gl_transaction_dates
345: app_exception.raise_exception;
346: END IF;
347:
348: -- delete from gl_transaction_calendar
349: DELETE FROM GL_TRANSACTION_CALENDAR
350: WHERE transaction_calendar_id = x_transaction_calendar_id;
351:
352: -- delete from gl_transaction_dates
353: DELETE FROM GL_TRANSACTION_DATES
380: app_exception.raise_exception;
381: END IF;
382:
383: END check_calendar;
384: END GL_TRANSACTION_CALENDAR_PKG;