DBA Data[Home] [Help]

APPS.GMS_ENCUMBRANCE_ITEMS_PKG dependencies on GMS_ENCUMBRANCE_ITEMS

Line 1: package body gms_encumbrance_items_pkg as

1: package body gms_encumbrance_items_pkg as
2: /* $Header: GMSTITMB.pls 120.1 2007/02/06 09:47:11 rshaik ship $ */
3:
4: procedure insert_row (x_rowid in out NOCOPY VARCHAR2 ,
5: x_encumbrance_item_id in out NOCOPY NUMBER,

Line 65: cursor return_rowid is select rowid from gms_encumbrance_items

61: x_burden_sum_dest_run_id in NUMBER DEFAULT NULL,
62: x_burden_sum_source_run_id in NUMBER DEFAULT NULL) IS
63:
64:
65: cursor return_rowid is select rowid from gms_encumbrance_items
66: where encumbrance_item_id = x_encumbrance_item_id;
67: cursor get_itemid is select gms_encumbrance_items_s.nextval from sys.dual;
68:
69: status NUMBER;

Line 67: cursor get_itemid is select gms_encumbrance_items_s.nextval from sys.dual;

63:
64:
65: cursor return_rowid is select rowid from gms_encumbrance_items
66: where encumbrance_item_id = x_encumbrance_item_id;
67: cursor get_itemid is select gms_encumbrance_items_s.nextval from sys.dual;
68:
69: status NUMBER;
70: l_project_id number; --Bug 5726575
71: BEGIN

Line 89: insert into gms_encumbrance_items (encumbrance_item_id,

85: end if;
86:
87: -- if amt is negative, need to update reversed original
88:
89: insert into gms_encumbrance_items (encumbrance_item_id,
90: last_update_date,
91: last_updated_by,
92: creation_date,
93: created_by,

Line 216: update gms_encumbrance_items

212: -- is matched. unmatched occurs in adjustments
213: -- if (((x_quantity < 0) or (x_burden_cost < 0)) and
214: if ((x_amount < 0) and
215: (x_net_zero_adjustment_flag = 'Y')) then
216: update gms_encumbrance_items
217: set net_zero_adjustment_flag = 'Y'
218: where encumbrance_item_id = x_adjusted_encumbrance_item_id;
219:
220: -- Date : 17-JUN-99

Line 318: update gms_encumbrance_items

314: from pa_tasks
315: where task_id = x_task_id;
316: end if;
317:
318: update gms_encumbrance_items
319: set encumbrance_item_id = x_encumbrance_item_id,
320: last_update_date = x_last_update_date,
321: last_updated_by = x_last_updated_by,
322: encumbrance_id = x_encumbrance_id,

Line 374: update gms_encumbrance_items

370: -- is matched. unmatched occurs in adjustments
371: -- if (((x_quantity < 0) or (x_burden_cost < 0)) and
372: if ((x_amount < 0) and
373: (x_net_zero_adjustment_flag = 'Y')) then
374: update gms_encumbrance_items
375: set net_zero_adjustment_flag = 'Y'
376: where encumbrance_item_id = x_adjusted_encumbrance_item_id;
377:
378: -- Date : 17-JUN-99

Line 406: select adjusted_encumbrance_item_id from gms_encumbrance_items

402:
403: procedure delete_row (x_encumbrance_item_id in NUMBER) is
404:
405: cursor check_reversing is
406: select adjusted_encumbrance_item_id from gms_encumbrance_items
407: where encumbrance_item_id = x_encumbrance_item_id;
408:
409: cursor check_source is
410: select encumbrance_item_id, adjusted_encumbrance_item_id

Line 411: from gms_encumbrance_items

407: where encumbrance_item_id = x_encumbrance_item_id;
408:
409: cursor check_source is
410: select encumbrance_item_id, adjusted_encumbrance_item_id
411: from gms_encumbrance_items
412: where source_encumbrance_item_id = x_encumbrance_item_id;
413:
414: rev_item check_reversing%rowtype;
415: source_item check_source%rowtype;

Line 423: update gms_encumbrance_items

419: -- reset the adjustment flag.
420: open check_reversing;
421: fetch check_reversing into rev_item;
422: if (rev_item.adjusted_encumbrance_item_id is not null) then
423: update gms_encumbrance_items
424: set net_zero_adjustment_flag = 'N'
425: where encumbrance_item_id = rev_item.adjusted_encumbrance_item_id;
426:
427: open check_source ;

Line 442: update gms_encumbrance_items

438: if check_source%notfound then exit ;
439: end if;
440: fetch check_source into source_item ;
441: if (source_item.adjusted_encumbrance_item_id is not null) then
442: update gms_encumbrance_items
443: set net_zero_adjustment_flag = 'N'
444: where encumbrance_item_id = source_item.adjusted_encumbrance_item_id ;
445:
446: delete from gms_encumbrance_items

Line 446: delete from gms_encumbrance_items

442: update gms_encumbrance_items
443: set net_zero_adjustment_flag = 'N'
444: where encumbrance_item_id = source_item.adjusted_encumbrance_item_id ;
445:
446: delete from gms_encumbrance_items
447: where encumbrance_item_id = source_item.encumbrance_item_id;
448: end if ;
449: END LOOP;
450: --

Line 457: delete from gms_encumbrance_items

453: close check_source ;
454:
455: end if;
456:
457: delete from gms_encumbrance_items
458: where encumbrance_item_id = x_encumbrance_item_id;
459:
460:
461: END delete_row;

Line 466: cursor get_itemid is select encumbrance_item_id from gms_encumbrance_items

462:
463: -- =======================================================================================================
464: procedure delete_row (x_rowid in VARCHAR2) is
465:
466: cursor get_itemid is select encumbrance_item_id from gms_encumbrance_items
467: where rowid = x_rowid;
468: x_encumbrance_item_id NUMBER;
469:
470: BEGIN

Line 485: END gms_encumbrance_items_pkg;

481: BEGIN
482: null;
483: END lock_row;
484:
485: END gms_encumbrance_items_pkg;