4808: IS
4809: l_adjustment_number VARCHAR2(20);
4810:
4811: CURSOR c_adjustment_id IS
4812: SELECT ar_revenue_adjustments_s1.NEXTVAL
4813: FROM dual;
4814:
4815: CURSOR c_adjustment_number IS
4816: SELECT ar_revenue_adjustments_s2.NEXTVAL
4812: SELECT ar_revenue_adjustments_s1.NEXTVAL
4813: FROM dual;
4814:
4815: CURSOR c_adjustment_number IS
4816: SELECT ar_revenue_adjustments_s2.NEXTVAL
4817: FROM dual;
4818:
4819: BEGIN
4820: IF PG_DEBUG in ('Y', 'C') THEN
4828: OPEN c_adjustment_number;
4829: FETCH c_adjustment_number INTO x_adjustment_number;
4830: CLOSE c_adjustment_number;
4831:
4832: INSERT INTO ar_revenue_adjustments
4833: (revenue_adjustment_id
4834: ,revenue_adjustment_number
4835: ,customer_trx_id
4836: ,application_date
5613: p_category_id IN mtl_categories.category_id%TYPE,
5614: p_inventory_item_id IN mtl_system_items.inventory_item_id%TYPE,
5615: p_customer_trx_line_id IN ra_customer_trx_lines.customer_trx_line_id%TYPE,
5616: p_gl_date IN ra_cust_trx_line_gl_dist.gl_date%TYPE,
5617: p_comments IN ar_revenue_adjustments.comments%TYPE,
5618: p_ram_desc_flexfield IN ar_revenue_management_pvt.desc_flexfield,
5619: x_scenario OUT NOCOPY NUMBER,
5620: x_first_rev_adj_id OUT NOCOPY ar_revenue_adjustments.revenue_adjustment_id%TYPE,
5621: x_last_rev_adj_id OUT NOCOPY ar_revenue_adjustments.revenue_adjustment_id%TYPE,
5616: p_gl_date IN ra_cust_trx_line_gl_dist.gl_date%TYPE,
5617: p_comments IN ar_revenue_adjustments.comments%TYPE,
5618: p_ram_desc_flexfield IN ar_revenue_management_pvt.desc_flexfield,
5619: x_scenario OUT NOCOPY NUMBER,
5620: x_first_rev_adj_id OUT NOCOPY ar_revenue_adjustments.revenue_adjustment_id%TYPE,
5621: x_last_rev_adj_id OUT NOCOPY ar_revenue_adjustments.revenue_adjustment_id%TYPE,
5622: x_return_status OUT NOCOPY VARCHAR2,
5623: x_msg_count OUT NOCOPY NUMBER,
5624: x_msg_data OUT NOCOPY VARCHAR2)
5617: p_comments IN ar_revenue_adjustments.comments%TYPE,
5618: p_ram_desc_flexfield IN ar_revenue_management_pvt.desc_flexfield,
5619: x_scenario OUT NOCOPY NUMBER,
5620: x_first_rev_adj_id OUT NOCOPY ar_revenue_adjustments.revenue_adjustment_id%TYPE,
5621: x_last_rev_adj_id OUT NOCOPY ar_revenue_adjustments.revenue_adjustment_id%TYPE,
5622: x_return_status OUT NOCOPY VARCHAR2,
5623: x_msg_count OUT NOCOPY NUMBER,
5624: x_msg_data OUT NOCOPY VARCHAR2)
5625: IS
5687: END IF;
5688: IF (x_first_rev_adj_id IS NULL AND l_first_adj_num IS NOT NULL)
5689: THEN
5690: select revenue_adjustment_id into x_first_rev_adj_id
5691: FROM ar_revenue_adjustments
5692: WHERE revenue_adjustment_number = l_first_adj_num;
5693: END IF;
5694: IF l_last_adj_num IS NOT NULL
5695: THEN
5711: END IF;
5712: IF l_real_last_adj_num IS NOT NULL
5713: THEN
5714: select revenue_adjustment_id into x_last_rev_adj_id
5715: FROM ar_revenue_adjustments
5716: WHERE revenue_adjustment_number = l_real_last_adj_num;
5717: ELSE
5718: x_last_rev_adj_id := x_first_rev_adj_id;
5719: END IF;
5745:
5746: IF l_first_adj_num IS NOT NULL
5747: THEN
5748: select revenue_adjustment_id into x_first_rev_adj_id
5749: FROM ar_revenue_adjustments
5750: WHERE revenue_adjustment_number = l_first_adj_num;
5751: END IF;
5752: END IF;
5753: IF l_last_adj_num IS NOT NULL
5752: END IF;
5753: IF l_last_adj_num IS NOT NULL
5754: THEN
5755: select revenue_adjustment_id into x_last_rev_adj_id
5756: FROM ar_revenue_adjustments
5757: WHERE revenue_adjustment_number = l_last_adj_num;
5758: END IF;
5759: IF PG_DEBUG in ('Y', 'C') THEN
5760: arp_util.debug('Record_Acceptance: ' || 'l_first_adj_num = '||l_first_adj_num);