561:
562: -- End bug 2089289
563:
564:
565: procedure get_date( p_ps_id IN ar_dispute_history.payment_schedule_id%TYPE,
566: p_last_dispute_date IN OUT NOCOPY ar_dispute_history.start_date%TYPE ) is
567: begin
568: select start_date into
569: p_last_dispute_date
562: -- End bug 2089289
563:
564:
565: procedure get_date( p_ps_id IN ar_dispute_history.payment_schedule_id%TYPE,
566: p_last_dispute_date IN OUT NOCOPY ar_dispute_history.start_date%TYPE ) is
567: begin
568: select start_date into
569: p_last_dispute_date
570: from ar_dispute_history
566: p_last_dispute_date IN OUT NOCOPY ar_dispute_history.start_date%TYPE ) is
567: begin
568: select start_date into
569: p_last_dispute_date
570: from ar_dispute_history
571: where payment_schedule_id = p_ps_id and
572: end_date is null;
573: -- arp_standard.enable_debug;
574: EXCEPTION
601: end;
602:
603:
604:
605: procedure get_flag( p_ps_id IN ar_dispute_history.payment_schedule_id%TYPE,
606: p_ever_in_dispute_flag IN OUT NOCOPY varchar2) IS
607: begin
608: select decode(min(start_date),
609: NULL , 'N',
608: select decode(min(start_date),
609: NULL , 'N',
610: 'Y' )
611: into p_ever_in_dispute_flag
612: from ar_dispute_history
613: WHERE payment_schedule_id = p_ps_id;
614: -- arp_standard.enable_debug;
615: EXCEPTION
616: WHEN OTHERS THEN