[Home] [Help]
51: mpa padj%ROWTYPE; /* alias defined for pa (price adjustments)*/
52: v_price_adjustment_id number;
53:
54: --
55: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
56: --
57: begin
58: -- dbms_output.enable(999999999999);
59: open padj;
220: l_msc sc%ROWTYPE; /* alias defined for sc (sales credits)*/
221: v_sales_credit_id number;
222:
223: --
224: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
225: --
226: begin
227: -- dbms_output.enable(999999999);
228: open sc;
365: where soc.line_id = G_old_line_id
366: and soc.header_id = G_header_id;
367:
368: --
369: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
370: --
371: begin
372: -- dbms_output.enable(999999999);
373: G_ERROR_LOCATION := 5;
629: v_actual_ordered_quantity number;
630: r_pto_m_c_k boolean := FALSE;
631: r_upgraded_flag varchar2(1):= null;
632: --
633: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
634: --
635: begin
636: -- dbms_output.enable(999999999);
637:
2307: v_auto_source_code varchar2(30);
2308: v_error_code number;
2309:
2310: --
2311: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2312: --
2313: begin
2314: -- dbms_output.enable(999999999);
2315: G_ERROR_LOCATION := 9;
2847: End Upgrade_Create_Order_Headers;
2848:
2849: Procedure Upgrade_Insert_Lines_History is
2850: --
2851: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2852: --
2853: begin
2854: G_ERROR_LOCATION := 14;
2855: insert into oe_order_lines_history
3474:
3475: Procedure Upgrade_Insert_Upgrade_log
3476: is
3477: --
3478: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3479: --
3480: begin
3481:
3482: G_ERROR_LOCATION := 16;
3543: v_total_slabs number;
3544: v_type_ctr number;
3545:
3546: --
3547: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3548: --
3549: Begin
3550:
3551: delete oe_upgrade_distribution;
3658: )
3659: is
3660:
3661: --
3662: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3663: --
3664: Begin
3665: insert into oe_upgrade_distribution
3666: (
3690: )
3691: is
3692:
3693: --
3694: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3695: --
3696: Begin
3697: G_ERROR_LOCATION := 18;
3698: insert into oe_upgrade_errors
3786: v_ctr number;
3787: p_line_number number;
3788: v_item_type_code varchar2(200);
3789: --
3790: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3791: --
3792: begin
3793: v_header_id := 0;
3794: v_commit_ctr := 0;
3988: select header_id, line_id from oe_order_lines_all
3989: where item_type_code = 'SERVICE';
3990: v_new_line_id number;
3991: --
3992: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3993: --
3994: begin
3995: for c2 in c1 loop
3996: begin
4085: l_upgraded_flag VARCHAR2(1);
4086:
4087:
4088: --
4089: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4090: --
4091: BEGIN
4092:
4093: -- Get the model line which has multiple config lines.
4117:
4118:
4119: -- dbms_output.put_line('Cfg Line Id: ' || l_cfg_line_id);
4120: IF l_debug_level > 0 THEN
4121: oe_debug_pub.add( 'CFG LINE ID: ' || L_CFG_LINE_ID , 1 ) ;
4122: END IF;
4123:
4124: -- Create model and option lines for each of the config line.
4125:
4135: l_line_rec := Query_Row(l_line_id);
4136:
4137: IF l_line_rec.item_type_code = 'MODEL' THEN
4138: IF l_debug_level > 0 THEN
4139: oe_debug_pub.add( 'CREATING A NEW MODEL LINE' ) ;
4140: END IF;
4141: l_new_line_rec := l_line_rec;
4142:
4143: SELECT oe_order_lines_s.nextval
4150: l_new_line_rec.ordered_quantity := l_cfg_ordered_quantity;
4151: l_model_rec := l_new_line_rec;
4152:
4153: IF l_debug_level > 0 THEN
4154: oe_debug_pub.add( 'INSERTING A MODEL LINE :' || L_NEW_LINE_REC.LINE_ID ) ;
4155: END IF;
4156:
4157: INSERT_ROW(l_new_line_rec, l_line_id,l_upgraded_flag);
4158:
4189:
4190: ELSE
4191: -- dbms_output.put_line('Creating a new option line ');
4192: IF l_debug_level > 0 THEN
4193: oe_debug_pub.add( 'CREATING A NEW OPTION LINE ' , 1 ) ;
4194: END IF;
4195: l_new_line_rec := l_line_rec;
4196:
4197: SELECT oe_order_lines_s.nextval
4534: WHERE LINE_ID = p_line_id ;
4535:
4536:
4537: --
4538: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4539: --
4540: BEGIN
4541:
4542: -- Loop over fetched records
4860: p_apply_price_adj IN Varchar2 default 'Y'
4861: )
4862: IS
4863: --
4864: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4865: --
4866: BEGIN
4867:
4868: /* bring old_line_id from log table using the L_Line_id as the new_line_id */
6071: OE_Upg_SO.Upgrade_Sales_Credits
6072: ( L_level_flag => 'L');
6073:
6074: IF l_debug_level > 0 THEN
6075: oe_debug_pub.add( 'EXITING INSERT_ROW' , 1 ) ;
6076: END IF;
6077:
6078: EXCEPTION
6079: WHEN OTHERS THEN
6100: from mtl_so_rma_interface
6101: where rma_line_id = p_line_id
6102: and inventory_item_id <> l_inventory_item_id;
6103: --
6104: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
6105: --
6106: BEGIN
6107:
6108: l_line_rec := Query_Row(p_line_id);