eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.

APPS.GL_JE_SOURCES_PKG dependencies on GL_JE_SOURCES

Line 1: PACKAGE BODY gl_je_sources_pkg AS

1: PACKAGE BODY gl_je_sources_pkg AS
2: /* $Header: glijesrb.pls 120.11 2011/11/03 06:15:05 skotakar ship $ */
3:
4: --
5: -- PRIVATE FUNCTIONS

Line 18: -- gl_je_sources_pkg.select_row(recinfo)

14: -- 11-02-93 D. J. Ogg Created
15: -- Arguments
16: -- recinfo Various information about the row
17: -- Example
18: -- gl_je_sources_pkg.select_row(recinfo)
19: -- Notes
20: --
21: PROCEDURE select_row( recinfo IN OUT NOCOPY gl_je_sources%ROWTYPE) IS
22: BEGIN

Line 21: PROCEDURE select_row( recinfo IN OUT NOCOPY gl_je_sources%ROWTYPE) IS

17: -- Example
18: -- gl_je_sources_pkg.select_row(recinfo)
19: -- Notes
20: --
21: PROCEDURE select_row( recinfo IN OUT NOCOPY gl_je_sources%ROWTYPE) IS
22: BEGIN
23: SELECT *
24: INTO recinfo
25: FROM gl_je_sources

Line 25: FROM gl_je_sources

21: PROCEDURE select_row( recinfo IN OUT NOCOPY gl_je_sources%ROWTYPE) IS
22: BEGIN
23: SELECT *
24: INTO recinfo
25: FROM gl_je_sources
26: WHERE je_source_name = recinfo.je_source_name;
27: END SELECT_ROW;
28:
29: PROCEDURE select_columns(x_je_source_name VARCHAR2,

Line 34: recinfo gl_je_sources%ROWTYPE;

30: x_user_je_source_name IN OUT NOCOPY VARCHAR2,
31: x_effective_date_rule_code IN OUT NOCOPY VARCHAR2,
32: x_frozen_source_flag IN OUT NOCOPY VARCHAR2,
33: x_journal_approval_flag IN OUT NOCOPY VARCHAR2) IS
34: recinfo gl_je_sources%ROWTYPE;
35:
36: BEGIN
37: recinfo.je_source_name := x_je_source_name;
38: select_row(recinfo);

Line 49: FROM GL_JE_SOURCES jes

45: PROCEDURE check_unique_name(x_je_source_name VARCHAR2,
46: x_row_id VARCHAR2) IS
47: CURSOR chk_duplicates_name is
48: SELECT 'Duplicate'
49: FROM GL_JE_SOURCES jes
50: WHERE jes.je_source_name = x_je_source_name
51: AND ( x_row_id is null
52: OR jes.rowid <> chartorowid(x_row_id)) ;
53: dummy VARCHAR2(100);

Line 68: fnd_message.set_token('PROCEDURE', 'gl_je_sources_pkg.check_unique_name');

64: WHEN app_exceptions.application_exception THEN
65: RAISE;
66: WHEN OTHERS THEN
67: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
68: fnd_message.set_token('PROCEDURE', 'gl_je_sources_pkg.check_unique_name');
69: RAISE;
70: END check_unique_name;
71:
72: PROCEDURE check_unique_user_name(x_user_je_source_name VARCHAR2,

Line 76: FROM GL_JE_SOURCES jes

72: PROCEDURE check_unique_user_name(x_user_je_source_name VARCHAR2,
73: x_row_id VARCHAR2) IS
74: CURSOR chk_duplicates_user_name is
75: SELECT 'Duplicate'
76: FROM GL_JE_SOURCES jes
77: WHERE jes.user_je_source_name = x_user_je_source_name
78: AND ( x_row_id is null
79: OR jes.rowid <> x_row_id);
80: dummy VARCHAR2(100);

Line 97: 'gl_je_sources_pkg.check_unique_user_name');

93: RAISE;
94: WHEN OTHERS THEN
95: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
96: fnd_message.set_token('PROCEDURE',
97: 'gl_je_sources_pkg.check_unique_user_name');
98: RAISE;
99: END check_unique_user_name;
100:
101: PROCEDURE check_unique_key(x_je_source_key VARCHAR2,

Line 105: FROM GL_JE_SOURCES jes

101: PROCEDURE check_unique_key(x_je_source_key VARCHAR2,
102: x_row_id VARCHAR2) IS
103: CURSOR chk_duplicates_key is
104: SELECT 'Duplicate'
105: FROM GL_JE_SOURCES jes
106: WHERE jes.je_source_key = x_je_source_key
107: AND ( x_row_id is null
108: OR jes.rowid <> x_row_id);
109: dummy VARCHAR2(100);

Line 126: 'gl_je_sources_pkg.check_unique_key');

122: RAISE;
123: WHEN OTHERS THEN
124: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
125: fnd_message.set_token('PROCEDURE',
126: 'gl_je_sources_pkg.check_unique_key');
127: RAISE;
128: END check_unique_key;
129:
130: FUNCTION get_unique_id RETURN NUMBER IS

Line 132: SELECT gl_je_sources_s.NEXTVAL

128: END check_unique_key;
129:
130: FUNCTION get_unique_id RETURN NUMBER IS
131: CURSOR get_new_id IS
132: SELECT gl_je_sources_s.NEXTVAL
133: FROM sys.dual;
134: new_id number;
135: BEGIN
136: OPEN get_new_id;

Line 145: fnd_message.set_token('SEQUENCE', 'GL_JE_SOURCES_S');

141: return(new_id);
142: ELSE
143: CLOSE get_new_id;
144: fnd_message.set_name('SQLGL', 'GL_ERROR_GETTING_UNIQUE_ID');
145: fnd_message.set_token('SEQUENCE', 'GL_JE_SOURCES_S');
146: app_exception.raise_exception;
147: END IF;
148:
149: EXCEPTION

Line 154: fnd_message.set_token('PROCEDURE', 'gl_je_sources_pkg.get_unique_id');

150: WHEN app_exceptions.application_exception THEN
151: RAISE;
152: WHEN OTHERS THEN
153: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
154: fnd_message.set_token('PROCEDURE', 'gl_je_sources_pkg.get_unique_id');
155: RAISE;
156: END get_unique_id;
157:
158: FUNCTION is_sla_source( X_je_source VARCHAR2) RETURN BOOLEAN IS

Line 202: FROM GL_JE_SOURCES_TL

198: X_Attribute4 VARCHAR2,
199: X_Attribute5 VARCHAR2,
200: X_Context VARCHAR2) IS
201: CURSOR C IS SELECT rowid, language, source_lang
202: FROM GL_JE_SOURCES_TL
203: WHERE je_source_name = X_Je_Source_Name
204: and Language = userenv('LANG');
205: CURSOR C2 IS SELECT gl_je_headers_s.nextval FROM dual;
206: BEGIN

Line 213: INSERT INTO GL_JE_SOURCES_TL(

209: OPEN C2;
210: FETCH C2 INTO X_Je_Source_Name;
211: CLOSE C2;
212: end if;
213: INSERT INTO GL_JE_SOURCES_TL(
214: je_source_name,
215: je_source_key,
216: language,
217: source_lang,

Line 264: from GL_JE_SOURCES_TL B

260: FROM FND_LANGUAGES L
261: WHERE L.Installed_Flag in ('I', 'B')
262: AND not exists
263: ( select NULL
264: from GL_JE_SOURCES_TL B
265: where B.Je_Source_Name = X_Je_Source_Name
266: and B.Language = L.Language_Code);
267: OPEN C;
268: FETCH C INTO X_Rowid, X_Language, X_Source_Lang;

Line 294: SELECT * FROM GL_JE_SOURCES_TL

290: X_Attribute4 VARCHAR2,
291: X_Attribute5 VARCHAR2,
292: X_Context VARCHAR2) IS
293: CURSOR C IS
294: SELECT * FROM GL_JE_SOURCES_TL
295: WHERE Je_Source_Name = X_Je_Source_Name
296: and Language = userenv('LANG')
297: FOR UPDATE OF JE_SOURCE_NAME NOWAIT;
298: Recinfo C%ROWTYPE;

Line 398: UPDATE GL_JE_SOURCES_TL

394: X_Attribute5 VARCHAR2,
395: X_Context VARCHAR2) IS
396: BEGIN
397: -- update non-translatable columns
398: UPDATE GL_JE_SOURCES_TL
399: SET
400: je_source_name = x_je_source_name,
401: je_source_key = x_je_source_key,
402: override_edits_flag = x_override_edits_flag,

Line 425: UPDATE GL_JE_SOURCES_TL

421: RAISE NO_DATA_FOUND;
422: end if;
423:
424: -- update the translatable columns
425: UPDATE GL_JE_SOURCES_TL
426: SET
427: user_je_source_name = x_user_je_source_name,
428: description = x_description,
429: source_lang = userenv('LANG')

Line 440: DELETE FROM GL_JE_SOURCES_TL

436: END Update_Row;
437:
438: PROCEDURE Delete_Row(X_Je_Source_Name VARCHAR2) IS
439: BEGIN
440: DELETE FROM GL_JE_SOURCES_TL
441: WHERE Je_Source_Name = X_Je_Source_Name;
442:
443: if (SQL%NOTFOUND) then
444: RAISE NO_DATA_FOUND;

Line 503: from gl_je_sources

499: /* Check if the row exists in the database. If it does, retrieves
500: the creation date for update_row. */
501: /*select creation_date
502: into v_creation_date
503: from gl_je_sources
504: where je_source_name = X_je_source_name;*/
505:
506: /*Modified as part of bug13037565*/
507: select creation_date,

Line 521: from gl_je_sources

517: v_attribute3,
518: v_attribute4,
519: v_attribute5,
520: v_context
521: from gl_je_sources
522: where je_source_name = X_je_source_name;
523:
524: /* Update only if force_edits is 'Y' or if user_id = 1 */
525: if ( user_id = 1 or X_Force_Edits = 'Y' ) then

Line 527: GL_JE_SOURCES_PKG.Update_Row(

523:
524: /* Update only if force_edits is 'Y' or if user_id = 1 */
525: if ( user_id = 1 or X_Force_Edits = 'Y' ) then
526: -- update row if present
527: GL_JE_SOURCES_PKG.Update_Row(
528: X_Rowid => v_rowid,
529: X_je_source_name => X_Je_Source_Name,
530: X_last_update_date => sysdate,
531: X_last_updated_by => user_id,

Line 552: GL_JE_SOURCES_PKG.Insert_Row(

548: X_context => V_Context);
549: end if;
550: exception
551: when NO_DATA_FOUND then
552: GL_JE_SOURCES_PKG.Insert_Row(
553: X_Rowid => v_rowid,
554: X_je_source_name => X_Je_Source_Name,
555: X_language => v_language,
556: X_source_lang => v_source_lang,

Line 592: UPDATE GL_JE_SOURCES_TL

588: end if;
589:
590: /* Update only if force_edits is 'Y' or user_id = 1 */
591: if ( user_id = 1 or X_Force_Edits = 'Y' ) then
592: UPDATE GL_JE_SOURCES_TL
593: SET
594: user_je_source_name = x_user_je_source_name,
595: description = x_description,
596: last_update_date = sysdate,

Line 615: update GL_JE_SOURCES_TL T

611: is
612: begin
613:
614:
615: update GL_JE_SOURCES_TL T
616: set ( user_je_source_name,
617: DESCRIPTION )
618: = ( select
619: B.user_je_source_name,

Line 621: from gl_je_sources_tl B

617: DESCRIPTION )
618: = ( select
619: B.user_je_source_name,
620: B.DESCRIPTION
621: from gl_je_sources_tl B
622: where B.je_source_name = T.je_source_name
623: and B.LANGUAGE = T.SOURCE_LANG )
624: where ( T.je_source_name,
625: T.LANGUAGE ) in

Line 629: from gl_je_sources_tl SUBB,

625: T.LANGUAGE ) in
626: ( select
627: SUBT.je_source_name,
628: SUBT.LANGUAGE
629: from gl_je_sources_tl SUBB,
630: gl_je_sources_tl SUBT
631: where SUBB.je_source_name = SUBT.je_source_name
632: and SUBB.LANGUAGE = SUBT.SOURCE_LANG
633: and (SUBB.USER_JE_SOURCE_NAME <> SUBT.USER_JE_SOURCE_NAME

Line 630: gl_je_sources_tl SUBT

626: ( select
627: SUBT.je_source_name,
628: SUBT.LANGUAGE
629: from gl_je_sources_tl SUBB,
630: gl_je_sources_tl SUBT
631: where SUBB.je_source_name = SUBT.je_source_name
632: and SUBB.LANGUAGE = SUBT.SOURCE_LANG
633: and (SUBB.USER_JE_SOURCE_NAME <> SUBT.USER_JE_SOURCE_NAME
634: or SUBB.DESCRIPTION <> SUBT.DESCRIPTION

Line 639: insert into gl_je_sources_tl (

635: or (SUBB.DESCRIPTION is null and SUBT.DESCRIPTION is not null)
636: or (SUBB.DESCRIPTION is not null and SUBT.DESCRIPTION is null))
637: );
638:
639: insert into gl_je_sources_tl (
640: je_source_name,
641: LAST_UPDATE_DATE,
642: LAST_UPDATED_BY,
643: CREATION_DATE,

Line 686: from gl_je_sources_tl B, FND_LANGUAGES L

682: B.attribute3,
683: B.attribute4,
684: B.attribute5,
685: B.context
686: from gl_je_sources_tl B, FND_LANGUAGES L
687: where L.INSTALLED_FLAG in ('I', 'B')
688: and B.LANGUAGE = userenv('LANG')
689: and not exists
690: (select NULL

Line 691: from gl_je_sources_tl T

687: where L.INSTALLED_FLAG in ('I', 'B')
688: and B.LANGUAGE = userenv('LANG')
689: and not exists
690: (select NULL
691: from gl_je_sources_tl T
692: where T.je_source_name = B.je_source_name
693: and T.LANGUAGE = L.LANGUAGE_CODE);
694:
695: end ADD_LANGUAGE;

Line 697: END gl_je_sources_pkg;

693: and T.LANGUAGE = L.LANGUAGE_CODE);
694:
695: end ADD_LANGUAGE;
696:
697: END gl_je_sources_pkg;