APPS.GMS_ENCUMBRANCE_GROUPS_PKG dependencies on GMS_ENCUMBRANCES

Line 194: cursor expnds is select encumbrance_id from gms_encumbrances

190: end if;
191:
192: -- cascade delete to encumbrances.
193: DECLARE
194: cursor expnds is select encumbrance_id from gms_encumbrances
195: where encumbrance_group = groups_rec.encumbrance_group
196: for update of encumbrance_id nowait;
197: exp_rec expnds%rowtype;
198: BEGIN

Line 209: gms_encumbrances_pkg.delete_row (exp_rec.encumbrance_id);

205: -- 3733123 - PJ.M:B5: QA:P11:OTH: MANUAL ENC/EXP FORM CREATING ORPHAN ADLS
206: -- ---------------------------------------------------------------------
207: gms_awards_dist_pkg.delete_adls(exp_rec.encumbrance_id, NULL, 'ENC' ) ;
208:
209: gms_encumbrances_pkg.delete_row (exp_rec.encumbrance_id);
210: end if;
211: END LOOP;
212:
213: EXCEPTION

Line 260: cursor lock_exps is select encumbrance_id from gms_encumbrances

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
262: for update of encumbrance_status_code nowait;
263:
264: x_orig_group c_orig_group%rowtype;

Line 287: update gms_encumbrances

283: update gms_encumbrance_groups
284: set encumbrance_group_status_code = 'RELEASED'
285: where encumbrance_group = x_encumbrance_group;
286:
287: update gms_encumbrances
288: set encumbrance_status_code = 'APPROVED'
289: where encumbrance_group = x_encumbrance_group;
290:
291: EXCEPTION

Line 312: cursor lock_exps is select encumbrance_id from gms_encumbrances

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
313: where encumbrance_group = x_encumbrance_group
314: for update of encumbrance_status_code nowait;
315:
316: x_orig_group c_orig_group%rowtype;

Line 338: update gms_encumbrances

334: update gms_encumbrance_groups
335: set encumbrance_group_status_code = 'WORKING'
336: where encumbrance_group = x_encumbrance_group;
337:
338: update gms_encumbrances
339: set encumbrance_status_code = 'WORKING'
340: where encumbrance_group = x_encumbrance_group;
341:
342: EXCEPTION

Line 404: (select encumbrance_id from gms_encumbrances

400: DECLARE
401: cursor count_ei is
402: select count(*) from gms_encumbrance_items
403: where encumbrance_id in
404: (select encumbrance_id from gms_encumbrances
405: where encumbrance_group = x_encumbrance_group);
406: x_count NUMBER;
407: BEGIN
408: open count_ei;

Line 423: select count(*) from gms_encumbrances

419: -- If control amounts were entered, make sure they match
420: -- the actual amounts.
421: DECLARE
422: cursor count_exp is
423: select count(*) from gms_encumbrances
424: where encumbrance_group = x_encumbrance_group;
425:
426: cursor totals is
427: select sum(amount)

Line 430: (select encumbrance_id from gms_encumbrances

426: cursor totals is
427: select sum(amount)
428: from gms_encumbrance_items
429: where encumbrance_id in
430: (select encumbrance_id from gms_encumbrances
431: where encumbrance_group = x_encumbrance_group);
432:
433: x_count NUMBER;
434: x_total NUMBER;

Line 469: select encumbrance_id from gms_encumbrances

465: DECLARE
466: cursor null_qty is
467: select count(*) from gms_encumbrance_items
468: where encumbrance_id in (
469: select encumbrance_id from gms_encumbrances
470: where encumbrance_group = x_encumbrance_group )
471: and amount is null ;
472: number_of_nulls NUMBER ;
473: BEGIN

Line 493: cursor lock_exps is select encumbrance_id from gms_encumbrances

489: procedure execute_submit (x_encumbrance_group VARCHAR2,
490: x_err_code in out NOCOPY NUMBER,
491: x_return_status in out NOCOPY VARCHAR2) is
492:
493: cursor lock_exps is select encumbrance_id from gms_encumbrances
494: where encumbrance_group = x_encumbrance_group
495: for update of encumbrance_status_code nowait;
496:
497: x_exps lock_exps%rowtype;

Line 507: update gms_encumbrances

503: update gms_encumbrance_groups
504: set encumbrance_group_status_code = 'SUBMITTED'
505: where encumbrance_group = x_encumbrance_group;
506:
507: update gms_encumbrances
508: set encumbrance_status_code = 'SUBMITTED'
509: where encumbrance_group = x_encumbrance_group;
510:
511: