13: IF PG_DEBUG in ('Y', 'C') THEN
14: arp_standard.debug( 'arp_distributions_pkg.insert_p()+' );
15: END IF;
16: --
17: SELECT ar_distributions_s.nextval
18: INTO l_line_id
19: FROM dual;
20: --
21: IF PG_DEBUG in ('Y', 'C') THEN
182: IF PG_DEBUG in ('Y', 'C') THEN
183: arp_standard.debug( 'arp_distributions_pkg.update_p()+' );
184: END IF;
185: --
186: UPDATE ar_distributions SET
187: source_id = p_dist_rec.source_id,
188: source_table = p_dist_rec.source_table,
189: source_type = p_dist_rec.source_type,
190: source_type_secondary = p_dist_rec.source_type_secondary,
309: RAISE;
310: END fetch_p;
311: --
312: PROCEDURE fetch_pk(
313: p_source_id IN ar_distributions.source_id%TYPE,
314: p_source_table IN ar_distributions.source_table%TYPE,
315: p_source_type IN ar_distributions.source_type%TYPE,
316: p_dist_rec OUT NOCOPY ar_distributions%ROWTYPE ) IS
317: BEGIN
310: END fetch_p;
311: --
312: PROCEDURE fetch_pk(
313: p_source_id IN ar_distributions.source_id%TYPE,
314: p_source_table IN ar_distributions.source_table%TYPE,
315: p_source_type IN ar_distributions.source_type%TYPE,
316: p_dist_rec OUT NOCOPY ar_distributions%ROWTYPE ) IS
317: BEGIN
318: IF PG_DEBUG in ('Y', 'C') THEN
311: --
312: PROCEDURE fetch_pk(
313: p_source_id IN ar_distributions.source_id%TYPE,
314: p_source_table IN ar_distributions.source_table%TYPE,
315: p_source_type IN ar_distributions.source_type%TYPE,
316: p_dist_rec OUT NOCOPY ar_distributions%ROWTYPE ) IS
317: BEGIN
318: IF PG_DEBUG in ('Y', 'C') THEN
319: arp_standard.debug( 'arp_distributions_pkg.fetch_pk()+' );
337: RAISE;
338: END fetch_pk;
339: --
340: PROCEDURE lock_fetch_pk(
341: p_source_id IN ar_distributions.source_id%TYPE,
342: p_source_table IN ar_distributions.source_table%TYPE,
343: p_source_type IN ar_distributions.source_type%TYPE,
344: p_dist_rec OUT NOCOPY ar_distributions%ROWTYPE ) IS
345: BEGIN
338: END fetch_pk;
339: --
340: PROCEDURE lock_fetch_pk(
341: p_source_id IN ar_distributions.source_id%TYPE,
342: p_source_table IN ar_distributions.source_table%TYPE,
343: p_source_type IN ar_distributions.source_type%TYPE,
344: p_dist_rec OUT NOCOPY ar_distributions%ROWTYPE ) IS
345: BEGIN
346: IF PG_DEBUG in ('Y', 'C') THEN
339: --
340: PROCEDURE lock_fetch_pk(
341: p_source_id IN ar_distributions.source_id%TYPE,
342: p_source_table IN ar_distributions.source_table%TYPE,
343: p_source_type IN ar_distributions.source_type%TYPE,
344: p_dist_rec OUT NOCOPY ar_distributions%ROWTYPE ) IS
345: BEGIN
346: IF PG_DEBUG in ('Y', 'C') THEN
347: arp_standard.debug( 'arp_distributions_pkg.lock_fetch_pk()+' );
367: RAISE;
368: END lock_fetch_pk;
369: --
370: PROCEDURE nowaitlock_fetch_pk(
371: p_source_id IN ar_distributions.source_id%TYPE,
372: p_source_table IN ar_distributions.source_table%TYPE,
373: p_source_type IN ar_distributions.source_type%TYPE,
374: p_dist_rec OUT NOCOPY ar_distributions%ROWTYPE ) IS
375: BEGIN
368: END lock_fetch_pk;
369: --
370: PROCEDURE nowaitlock_fetch_pk(
371: p_source_id IN ar_distributions.source_id%TYPE,
372: p_source_table IN ar_distributions.source_table%TYPE,
373: p_source_type IN ar_distributions.source_type%TYPE,
374: p_dist_rec OUT NOCOPY ar_distributions%ROWTYPE ) IS
375: BEGIN
376: IF PG_DEBUG in ('Y', 'C') THEN
369: --
370: PROCEDURE nowaitlock_fetch_pk(
371: p_source_id IN ar_distributions.source_id%TYPE,
372: p_source_table IN ar_distributions.source_table%TYPE,
373: p_source_type IN ar_distributions.source_type%TYPE,
374: p_dist_rec OUT NOCOPY ar_distributions%ROWTYPE ) IS
375: BEGIN
376: IF PG_DEBUG in ('Y', 'C') THEN
377: arp_standard.debug( 'arp_distributions_pkg.nowaitlock_fetch_pk()+' );