DBA Data[Home] [Help]

APPS.GL_ENCUMBRANCE_TYPES_PKG dependencies on GL_ENCUMBRANCE_TYPES

Line 1: PACKAGE BODY gl_encumbrance_types_pkg AS

1: PACKAGE BODY gl_encumbrance_types_pkg AS
2: /* $Header: glietdfb.pls 120.8 2006/02/06 18:29:21 kvora ship $ */
3:
4: ---
5: --- PRIVATE FUNCTIONS

Line 12: -- Gets the row from gl_encumbrance_types associated with

8: --
9: -- Procedure
10: -- select_row
11: -- Purpose
12: -- Gets the row from gl_encumbrance_types associated with
13: -- the given encumbrance.
14: -- History
15: -- 01-NOV-94 D J Ogg Created.
16: -- Arguments

Line 17: -- recinfo A row from gl_encumbrance_types

13: -- the given encumbrance.
14: -- History
15: -- 01-NOV-94 D J Ogg Created.
16: -- Arguments
17: -- recinfo A row from gl_encumbrance_types
18: -- Example
19: -- gl_encumbrance_types_pkg.select_row(recinfo);
20: -- Notes
21: --

Line 19: -- gl_encumbrance_types_pkg.select_row(recinfo);

15: -- 01-NOV-94 D J Ogg Created.
16: -- Arguments
17: -- recinfo A row from gl_encumbrance_types
18: -- Example
19: -- gl_encumbrance_types_pkg.select_row(recinfo);
20: -- Notes
21: --
22: PROCEDURE select_row( recinfo IN OUT NOCOPY gl_encumbrance_types%ROWTYPE ) IS
23: BEGIN

Line 22: PROCEDURE select_row( recinfo IN OUT NOCOPY gl_encumbrance_types%ROWTYPE ) IS

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

Line 26: FROM gl_encumbrance_types

22: PROCEDURE select_row( recinfo IN OUT NOCOPY gl_encumbrance_types%ROWTYPE ) IS
23: BEGIN
24: SELECT *
25: INTO recinfo
26: FROM gl_encumbrance_types
27: WHERE encumbrance_type_id = recinfo.encumbrance_type_id;
28: EXCEPTION
29: WHEN NO_DATA_FOUND THEN
30: RETURN;

Line 36: 'gl_encumbrance_types.select_row');

32: RAISE;
33: WHEN OTHERS THEN
34: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
35: fnd_message.set_token('PROCEDURE',
36: 'gl_encumbrance_types.select_row');
37: RAISE;
38: END select_row;
39:
40:

Line 49: FROM GL_ENCUMBRANCE_TYPES et

45: PROCEDURE check_unique_name(x_name VARCHAR2,
46: x_row_id VARCHAR2) IS
47: CURSOR chk_duplicates IS
48: SELECT 'Duplicate'
49: FROM GL_ENCUMBRANCE_TYPES et
50: WHERE et.encumbrance_type = x_name
51: AND ( (x_row_id is null)
52: OR (et.rowid <> x_row_id));
53: dummy VARCHAR2(100);

Line 71: fnd_message.set_token('PROCEDURE', 'gl_encumbrance_types_pkg.check_unique_name');

67: WHEN app_exceptions.application_exception THEN
68: RAISE;
69: WHEN OTHERS THEN
70: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
71: fnd_message.set_token('PROCEDURE', 'gl_encumbrance_types_pkg.check_unique_name');
72: RAISE;
73: END check_unique_name;
74:
75: PROCEDURE check_unique_id(x_etid NUMBER,

Line 79: FROM GL_ENCUMBRANCE_TYPES et

75: PROCEDURE check_unique_id(x_etid NUMBER,
76: x_row_id VARCHAR2) IS
77: CURSOR chk_duplicate_ids IS
78: SELECT 'Duplicate'
79: FROM GL_ENCUMBRANCE_TYPES et
80: WHERE et.encumbrance_type_id = x_etid
81: AND ( (x_row_id is null)
82: OR (et.rowid <> x_row_id));
83: dummy VARCHAR2(100);

Line 101: fnd_message.set_token('PROCEDURE', 'gl_encumbrance_types_pkg.check_unique_id');

97: WHEN app_exceptions.application_exception THEN
98: RAISE;
99: WHEN OTHERS THEN
100: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
101: fnd_message.set_token('PROCEDURE', 'gl_encumbrance_types_pkg.check_unique_id');
102: RAISE;
103: END check_unique_id;
104:
105:

Line 108: SELECT gl_encumbrance_types_s.NEXTVAL

104:
105:
106: PROCEDURE get_unique_id (x_encumbrance_type_id IN OUT NOCOPY NUMBER) IS
107: CURSOR get_new_id IS
108: SELECT gl_encumbrance_types_s.NEXTVAL
109: FROM dual;
110: new_id number;
111: BEGIN
112: OPEN get_new_id;

Line 120: fnd_message.set_token('SEQUENCE', 'GL_ENCUMBRANCE_TYPES_S');

116: CLOSE get_new_id;
117: ELSE
118: CLOSE get_new_id;
119: fnd_message.set_name('SQLGL', 'GL_ERROR_GETTING_UNIQUE_ID');
120: fnd_message.set_token('SEQUENCE', 'GL_ENCUMBRANCE_TYPES_S');
121: app_exception.raise_exception;
122: END IF;
123:
124: EXCEPTION

Line 129: fnd_message.set_token('PROCEDURE', 'gl_encumbrance_types_pkg.get_unique_id');

125: WHEN app_exceptions.application_exception THEN
126: RAISE;
127: WHEN OTHERS THEN
128: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
129: fnd_message.set_token('PROCEDURE', 'gl_encumbrance_types_pkg.get_unique_id');
130: RAISE;
131: END get_unique_id;
132:
133:

Line 138: recinfo gl_encumbrance_types%ROWTYPE;

134: PROCEDURE select_columns(
135: x_encumbrance_type_id NUMBER,
136: x_encumbrance_type IN OUT NOCOPY VARCHAR2 ) IS
137:
138: recinfo gl_encumbrance_types%ROWTYPE;
139:
140: BEGIN
141: recinfo.encumbrance_type_id := x_encumbrance_type_id;
142: select_row( recinfo );

Line 153: 'gl_encumbrance_types.select_columns');

149: RAISE;
150: WHEN OTHERS THEN
151: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
152: fnd_message.set_token('PROCEDURE',
153: 'gl_encumbrance_types.select_columns');
154: RAISE;
155: END select_columns;
156:
157:

Line 184: 'gl_encumbrance_types.get_enc_type_all');

180: RAISE;
181: WHEN OTHERS THEN
182: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
183: fnd_message.set_token('FUNCTION',
184: 'gl_encumbrance_types.get_enc_type_all');
185: RAISE;
186: END get_enc_type_all;
187:
188: PROCEDURE insert_row(

Line 201: CURSOR C IS SELECT rowid FROM gl_encumbrance_types

197: x_created_by IN NUMBER,
198: x_last_update_login IN NUMBER,
199: x_description IN VARCHAR2) IS
200:
201: CURSOR C IS SELECT rowid FROM gl_encumbrance_types
202: WHERE encumbrance_type = x_encumbrance_type;
203:
204: current_sequence NUMBER := 0;
205: BEGIN

Line 207: SELECT gl_encumbrance_types_s.nextval

203:
204: current_sequence NUMBER := 0;
205: BEGIN
206: IF (x_encumbrance_type_id IS NULL) THEN
207: SELECT gl_encumbrance_types_s.nextval
208: INTO x_encumbrance_type_id
209: FROM dual;
210: END IF;
211:

Line 216: INSERT INTO gl_encumbrance_types(

212: IF (x_encumbrance_type_key IS NULL) THEN
213: x_encumbrance_type_key := to_char(x_encumbrance_type_id);
214: END IF;
215:
216: INSERT INTO gl_encumbrance_types(
217: encumbrance_type_id,
218: encumbrance_type_key,
219: encumbrance_type,
220: enabled_flag,

Line 260: UPDATE gl_encumbrance_types

256: x_last_update_login IN NUMBER,
257: x_description IN VARCHAR2) IS
258:
259: BEGIN
260: UPDATE gl_encumbrance_types
261: SET encumbrance_type = x_encumbrance_type,
262: enabled_flag = x_enabled_flag,
263: last_update_date = x_last_update_date,
264: last_updated_by = x_last_updated_by,

Line 310: FROM gl_encumbrance_types

306: IF ((y_force_edits = 'Y') OR (y_owner = 'SEED')) THEN
307:
308: SELECT encumbrance_type_id
309: INTO l_encumbrance_type_id
310: FROM gl_encumbrance_types
311: WHERE encumbrance_type_key = l_encumbrance_type_key;
312:
313: -- update row if present
314: GL_ENCUMBRANCE_TYPES_PKG.update_row(

Line 314: GL_ENCUMBRANCE_TYPES_PKG.update_row(

310: FROM gl_encumbrance_types
311: WHERE encumbrance_type_key = l_encumbrance_type_key;
312:
313: -- update row if present
314: GL_ENCUMBRANCE_TYPES_PKG.update_row(
315: x_encumbrance_type_id => l_encumbrance_type_id,
316: x_encumbrance_type => y_encumbrance_type,
317: x_enabled_flag => y_enabled_flag,
318: x_last_update_date => sysdate,

Line 325: GL_ENCUMBRANCE_TYPES_PKG.insert_row(

321: x_description => y_description);
322: END IF;
323:
324: EXCEPTION WHEN NO_DATA_FOUND THEN
325: GL_ENCUMBRANCE_TYPES_PKG.insert_row(
326: x_rowid => l_rowid,
327: x_encumbrance_type_id => l_encumbrance_type_id,
328: x_encumbrance_type_key => l_encumbrance_type_key,
329: x_encumbrance_type => y_encumbrance_type,

Line 359: UPDATE GL_ENCUMBRANCE_TYPES

355:
356: /* Update only if force_edits is 'Y' or it is seed data */
357: IF ((x_force_edits = 'Y') OR (x_owner = 'SEED')) THEN
358:
359: UPDATE GL_ENCUMBRANCE_TYPES
360: SET encumbrance_type = x_encumbrance_type,
361: description = x_description,
362: last_update_date = sysdate,
363: last_updated_by = l_user_id,

Line 378: END gl_encumbrance_types_pkg;

374: END IF;
375:
376: END translate_row;
377:
378: END gl_encumbrance_types_pkg;