APPS.GMS_ENCUMBRANCES_PKG dependencies on GMS_ENCUMBRANCES

Line 1: package body gms_encumbrances_pkg as

1: package body gms_encumbrances_pkg as
2: /* $Header: GMSTEXPB.pls 120.0 2005/05/29 12:09:04 appldev noship $ */
3:
4: procedure insert_row (x_rowid in out NOCOPY VARCHAR2 ,
5: x_encumbrance_id in out NOCOPY NUMBER,

Line 44: cursor return_rowid is select rowid from gms_encumbrances

40: x_orig_user_enc_txn_reference in VARCHAR2 DEFAULT NULL,
41: x_vendor_id in NUMBER DEFAULT NULL,
42: x_org_id in NUMBER ) is
43:
44: cursor return_rowid is select rowid from gms_encumbrances
45: where encumbrance_id = x_encumbrance_id;
46: cursor get_enc_id is select gms_encumbrances_s.nextval from dual;
47:
48: BEGIN

Line 46: cursor get_enc_id is select gms_encumbrances_s.nextval from dual;

42: x_org_id in NUMBER ) is
43:
44: cursor return_rowid is select rowid from gms_encumbrances
45: where encumbrance_id = x_encumbrance_id;
46: cursor get_enc_id is select gms_encumbrances_s.nextval from dual;
47:
48: BEGIN
49:
50: if (x_encumbrance_id is null) then

Line 55: insert into gms_encumbrances (encumbrance_id,

51: open get_enc_id;
52: fetch get_enc_id into x_encumbrance_id;
53: end if;
54:
55: insert into gms_encumbrances (encumbrance_id,
56: last_update_date,
57: last_updated_by,
58: creation_date,
59: created_by,

Line 182: update gms_encumbrances

178: x_orig_user_enc_txn_reference in VARCHAR2,
179: x_vendor_id in NUMBER ) is
180: BEGIN
181:
182: update gms_encumbrances
183: set encumbrance_id = x_encumbrance_id,
184: last_update_date = x_last_update_date,
185: last_updated_by = x_last_updated_by,
186: encumbrance_status_code = x_encumbrance_status_code,

Line 246: delete from gms_encumbrances

242: gms_encumbrance_items_pkg.delete_row (items_rec.encumbrance_item_id);
243: end if;
244: END LOOP;
245:
246: delete from gms_encumbrances
247: where encumbrance_id = x_encumbrance_id;
248: EXCEPTION
249: when APP_EXCEPTION.RECORD_LOCK_EXCEPTION then
250: fnd_message.set_name ('FND', 'FORM_UNABLE_TO_RESERVE_RECORD');

Line 256: cursor get_enc_id is select encumbrance_id from gms_encumbrances

252: END delete_row;
253:
254:
255: procedure delete_row (x_rowid in VARCHAR2) is
256: cursor get_enc_id is select encumbrance_id from gms_encumbrances
257: where rowid = x_rowid;
258: enc_rec get_enc_id%rowtype;
259: BEGIN
260: open get_enc_id;

Line 273: END gms_encumbrances_pkg;

269: BEGIN
270: null;
271: END lock_row;
272:
273: END gms_encumbrances_pkg;