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.10 2005/05/05 01:09:58 kvora 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 496: from gl_je_sources

492: /* Check if the row exists in the database. If it does, retrieves
493: the creation date for update_row. */
494: select creation_date
495: into v_creation_date
496: from gl_je_sources
497: where je_source_name = X_je_source_name;
498:
499: /* Update only if force_edits is 'Y' or if user_id = 1 */
500: if ( user_id = 1 or X_Force_Edits = 'Y' ) then

Line 502: GL_JE_SOURCES_PKG.Update_Row(

498:
499: /* Update only if force_edits is 'Y' or if user_id = 1 */
500: if ( user_id = 1 or X_Force_Edits = 'Y' ) then
501: -- update row if present
502: GL_JE_SOURCES_PKG.Update_Row(
503: X_Rowid => v_rowid,
504: X_je_source_name => X_Je_Source_Name,
505: X_last_update_date => sysdate,
506: X_last_updated_by => user_id,

Line 526: GL_JE_SOURCES_PKG.Insert_Row(

522: X_context => X_Context);
523: end if;
524: exception
525: when NO_DATA_FOUND then
526: GL_JE_SOURCES_PKG.Insert_Row(
527: X_Rowid => v_rowid,
528: X_je_source_name => X_Je_Source_Name,
529: X_language => v_language,
530: X_source_lang => v_source_lang,

Line 566: UPDATE GL_JE_SOURCES_TL

562: end if;
563:
564: /* Update only if force_edits is 'Y' or user_id = 1 */
565: if ( user_id = 1 or X_Force_Edits = 'Y' ) then
566: UPDATE GL_JE_SOURCES_TL
567: SET
568: user_je_source_name = x_user_je_source_name,
569: description = x_description,
570: last_update_date = sysdate,

Line 589: update GL_JE_SOURCES_TL T

585: is
586: begin
587:
588:
589: update GL_JE_SOURCES_TL T
590: set ( user_je_source_name,
591: DESCRIPTION )
592: = ( select
593: B.user_je_source_name,

Line 595: from gl_je_sources_tl B

591: DESCRIPTION )
592: = ( select
593: B.user_je_source_name,
594: B.DESCRIPTION
595: from gl_je_sources_tl B
596: where B.je_source_name = T.je_source_name
597: and B.LANGUAGE = T.SOURCE_LANG )
598: where ( T.je_source_name,
599: T.LANGUAGE ) in

Line 603: from gl_je_sources_tl SUBB,

599: T.LANGUAGE ) in
600: ( select
601: SUBT.je_source_name,
602: SUBT.LANGUAGE
603: from gl_je_sources_tl SUBB,
604: gl_je_sources_tl SUBT
605: where SUBB.je_source_name = SUBT.je_source_name
606: and SUBB.LANGUAGE = SUBT.SOURCE_LANG
607: and (SUBB.USER_JE_SOURCE_NAME <> SUBT.USER_JE_SOURCE_NAME

Line 604: gl_je_sources_tl SUBT

600: ( select
601: SUBT.je_source_name,
602: SUBT.LANGUAGE
603: from gl_je_sources_tl SUBB,
604: gl_je_sources_tl SUBT
605: where SUBB.je_source_name = SUBT.je_source_name
606: and SUBB.LANGUAGE = SUBT.SOURCE_LANG
607: and (SUBB.USER_JE_SOURCE_NAME <> SUBT.USER_JE_SOURCE_NAME
608: or SUBB.DESCRIPTION <> SUBT.DESCRIPTION

Line 613: insert into gl_je_sources_tl (

609: or (SUBB.DESCRIPTION is null and SUBT.DESCRIPTION is not null)
610: or (SUBB.DESCRIPTION is not null and SUBT.DESCRIPTION is null))
611: );
612:
613: insert into gl_je_sources_tl (
614: je_source_name,
615: LAST_UPDATE_DATE,
616: LAST_UPDATED_BY,
617: CREATION_DATE,

Line 660: from gl_je_sources_tl B, FND_LANGUAGES L

656: B.attribute3,
657: B.attribute4,
658: B.attribute5,
659: B.context
660: from gl_je_sources_tl B, FND_LANGUAGES L
661: where L.INSTALLED_FLAG in ('I', 'B')
662: and B.LANGUAGE = userenv('LANG')
663: and not exists
664: (select NULL

Line 665: from gl_je_sources_tl T

661: where L.INSTALLED_FLAG in ('I', 'B')
662: and B.LANGUAGE = userenv('LANG')
663: and not exists
664: (select NULL
665: from gl_je_sources_tl T
666: where T.je_source_name = B.je_source_name
667: and T.LANGUAGE = L.LANGUAGE_CODE);
668:
669: end ADD_LANGUAGE;

Line 671: END gl_je_sources_pkg;

667: and T.LANGUAGE = L.LANGUAGE_CODE);
668:
669: end ADD_LANGUAGE;
670:
671: END gl_je_sources_pkg;