APPS.GMS_ENCUMBRANCE_GROUPS_PKG dependencies on GMS_ENCUMBRANCE_GROUPS

Line 1: package body gms_encumbrance_groups_pkg as

1: package body gms_encumbrance_groups_pkg as
2: /* $Header: GMSEGRPB.pls 120.1 2007/02/06 09:46:42 rshaik ship $ */
3:
4: -- forward declarations
5: procedure check_submit_allowed (x_encumbrance_group in VARCHAR2,

Line 32: cursor c is select rowid from gms_encumbrance_groups

28: x_org_id in NUMBER,
29: x_request_id IN NUMBER DEFAULT NULL /* Bug 5689213 */
30: ) is
31:
32: cursor c is select rowid from gms_encumbrance_groups
33: where encumbrance_group = x_encumbrance_group;
34: x_err_code NUMBER;
35: x_return_status VARCHAR2(630);
36: x_status VARCHAR2(30) := 'WORKING' ;

Line 45: insert into gms_encumbrance_groups (encumbrance_group,

41: x_status := 'RELEASED' ;
42: end if ;
43: -- Fix end for bug : 2111317
44:
45: insert into gms_encumbrance_groups (encumbrance_group,
46: last_update_date,
47: last_updated_by ,
48: creation_date,
49: created_by,

Line 111: cursor c_orig_group is select * from gms_encumbrance_groups

107: x_description in VARCHAR2,
108: x_last_update_login in NUMBER,
109: x_transaction_source in VARCHAR2) is
110:
111: cursor c_orig_group is select * from gms_encumbrance_groups
112: where rowid = x_rowid;
113:
114: x_orig_group c_orig_group%rowtype;
115: x_err_code NUMBER;

Line 127: update gms_encumbrance_groups

123: -- update all the columns to the new values, except for the
124: -- encumbrance_group_status_code column - we call on the appropriate
125: -- submit/rework/release procedures to handle that.
126:
127: update gms_encumbrance_groups
128: set encumbrance_group = x_encumbrance_group,
129: last_update_date = x_last_update_date,
130: last_updated_by = x_last_updated_by,
131: encumbrance_ending_date = x_encumbrance_ending_date,

Line 178: from gms_encumbrance_groups

174:
175: procedure delete_row (x_rowid in VARCHAR2) is
176: cursor get_group is select encumbrance_group,
177: encumbrance_group_status_code
178: from gms_encumbrance_groups
179: where rowid = x_rowid;
180: groups_rec get_group%rowtype;
181:
182: BEGIN

Line 219: delete from gms_encumbrance_groups

215: fnd_message.set_name ('FND', 'FORM_UNABLE_TO_RESERVE_RECORD');
216: app_exception.raise_exception;
217: END;
218:
219: delete from gms_encumbrance_groups
220: where rowid = x_rowid;
221:
222: END delete_row;
223:

Line 232: from gms_encumbrance_groups

228: procedure lock_row (x_rowid in VARCHAR2) is
229: dummy NUMBER;
230: BEGIN
231: select 1 into dummy
232: from gms_encumbrance_groups
233: where rowid = x_rowid
234: for update of encumbrance_group nowait;
235: EXCEPTION
236:

Line 257: cursor c_orig_group is select * from gms_encumbrance_groups

253: procedure release (x_encumbrance_group in VARCHAR2,
254: x_err_code in out NOCOPY NUMBER,
255: x_return_status in out NOCOPY VARCHAR2) is
256:
257: cursor c_orig_group is select * from gms_encumbrance_groups
258: where encumbrance_group = x_encumbrance_group;
259:
260: cursor lock_exps is select encumbrance_id from gms_encumbrances
261: where encumbrance_group = x_encumbrance_group

Line 283: update gms_encumbrance_groups

279: open lock_exps;
280: fetch lock_exps into x_exps;
281:
282: -- if it reaches here, the locks succeeded.
283: update gms_encumbrance_groups
284: set encumbrance_group_status_code = 'RELEASED'
285: where encumbrance_group = x_encumbrance_group;
286:
287: update gms_encumbrances

Line 308: cursor c_orig_group is select * from gms_encumbrance_groups

304: procedure rework (x_encumbrance_group in VARCHAR2,
305: x_err_code in out NOCOPY NUMBER,
306: x_return_status in out NOCOPY VARCHAR2) is
307:
308: cursor c_orig_group is select * from gms_encumbrance_groups
309: where encumbrance_group = x_encumbrance_group
310: for update of encumbrance_group_status_code nowait;
311:
312: cursor lock_exps is select encumbrance_id from gms_encumbrances

Line 334: update gms_encumbrance_groups

330: open lock_exps;
331: fetch lock_exps into x_exps;
332:
333: -- if it reaches here, the locks succeeded.
334: update gms_encumbrance_groups
335: set encumbrance_group_status_code = 'WORKING'
336: where encumbrance_group = x_encumbrance_group;
337:
338: update gms_encumbrances

Line 374: cursor c_orig_group is select * from gms_encumbrance_groups

370: procedure check_submit_allowed (x_encumbrance_group in VARCHAR2,
371: x_err_code in out NOCOPY NUMBER,
372: x_return_status in out NOCOPY VARCHAR2) is
373:
374: cursor c_orig_group is select * from gms_encumbrance_groups
375: where encumbrance_group = x_encumbrance_group;
376:
377: x_orig_group c_orig_group%rowtype;
378: BEGIN

Line 503: update gms_encumbrance_groups

499: -- make sure the encumbrances are not locked before making the change
500: open lock_exps;
501: fetch lock_exps into x_exps;
502:
503: update gms_encumbrance_groups
504: set encumbrance_group_status_code = 'SUBMITTED'
505: where encumbrance_group = x_encumbrance_group;
506:
507: update gms_encumbrances

Line 522: END gms_encumbrance_groups_pkg;

518:
519: ---------------------------------------------------------------------------
520:
521:
522: END gms_encumbrance_groups_pkg;