[Home] [Help]
116: pa_rec QP_Upg_OE_PVT.PRICE_ADJ_REC_TYPE;
117:
118:
119: --
120: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
121: --
122: begin
123: -- dbms_output.enable(999999999999);
124: if L_level_flag = 'L' then
367: mscx sc%ROWTYPE; /* alias defined for sc (sales credits)*/ -- GSCC change
368: v_sales_credit_id number;
369:
370: --
371: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
372: --
373: begin
374: -- dbms_output.enable(999999999);
375: open sc;
514: where soc.line_id = G_old_line_id
515: and soc.header_id = G_header_id;
516: v_cancel_comment long;
517: --
518: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
519: --
520: begin
521: -- dbms_output.enable(999999999);
522: G_ERROR_LOCATION := 5;
859: r_upgraded_flag varchar2(1):= null;
860: --to pass this record structure to QP
861: l_qp_upg_line_rec OE_UPG_SO_NEW.LINE_REC_TYPE;
862: --
863: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
864: --
865: begin
866: -- bug fix 1759900
867: G_OPEN_ATO_MODEL := 0;
1491: AND l.inventory_item_id = si.inventory_item_id;
1492:
1493: EXCEPTION
1494: WHEN NO_DATA_FOUND THEN
1495: /* oe_debug_pub.add('accounting, invoicing rule ids not found. Setting to Null ');*/
1496: g_line_rec.accounting_rule_id := NULL;
1497: g_line_rec.invoicing_rule_id := NULL;
1498: END;
1499: else
2944: l_source_code varchar2(30);
2945: l_count NUMBER := 0;
2946: v_cancel_comment long;
2947: --
2948: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2949: --
2950: begin
2951: -- dbms_output.enable(999999999);
2952: G_ERROR_LOCATION := 9;
3714: End Upgrade_Create_Order_Headers;
3715:
3716: Procedure Upgrade_Insert_Lines_History is
3717: --
3718: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3719: --
3720: begin
3721: G_ERROR_LOCATION := 14;
3722: insert into oe_order_lines_history
4343:
4344: Procedure Upgrade_Insert_Upgrade_log
4345: is
4346: --
4347: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4348: --
4349: begin
4350:
4351: G_ERROR_LOCATION := 16;
4411: v_start_flag number;
4412: v_total_slabs number;
4413:
4414: --
4415: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4416: --
4417: Begin
4418: v_type := L_type;
4419:
4544: l_starting_id NUMBER := NULL;
4545: l_ending_id NUMBER := NULL;
4546:
4547: --
4548: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4549: --
4550: BEGIN
4551:
4552: DELETE FROM oe_upgrade_distribution
4658: v_start_flag number;
4659: v_total_slabs number;
4660:
4661: --
4662: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4663: --
4664: Begin
4665: v_type := 'H';
4666:
4774: v_start_flag number;
4775: v_total_slabs number;
4776:
4777: --
4778: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4779: --
4780: BEGIN
4781: v_type := 'F';
4782:
4872: )
4873: is
4874:
4875: --
4876: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4877: --
4878: Begin
4879: insert into oe_upgrade_distribution
4880: (
4904: )
4905: is
4906:
4907: --
4908: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4909: --
4910: Begin
4911: G_ERROR_LOCATION := 18;
4912: insert into oe_upgrade_errors
4959: l_item_type_code VARCHAR2(30);
4960: l_inventory_item_id NUMBER;
4961:
4962: --
4963: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4964: --
4965: begin
4966:
4967: OPEN model_lines;
4973:
4974: /* Check for the model line if there are multiple included items */
4975:
4976: IF l_debug_level > 0 THEN
4977: oe_debug_pub.add( 'MODEL LINE ID : ' || L_PARENT_LINE_ID ) ;
4978: END IF;
4979:
4980: SELECT count(*)
4981: INTO no_of_details
4985: AND nvl(CONFIGURATION_ITEM_FLAG,'N') = 'N';
4986:
4987: IF no_of_details > 1 THEN
4988: IF l_debug_level > 0 THEN
4989: oe_debug_pub.add( 'MULTIPLE DETAILS EXIST FOR :' || L_PARENT_LINE_ID ) ;
4990: END IF;
4991: multiple_details_exist := TRUE;
4992: goto mld;
4993: END IF;
5014: where line_detail_id = l_detail_line_id;
5015:
5016: IF no_of_picking_details > 1 THEN
5017: IF l_debug_level > 0 THEN
5018: oe_debug_pub.add( 'MULTIPLE PICKING DETAILS EXIST FOR :' || L_PARENT_LINE_ID ) ;
5019: END IF;
5020: multiple_details_exist := TRUE;
5021: goto mld;
5022: END IF;
5030: group by inventory_item_id
5031: having count(*) > 1;
5032:
5033: IF l_debug_level > 0 THEN
5034: oe_debug_pub.add( 'MULTIPLE INCLUDED ITEM EXISTS FOR :' || L_PARENT_LINE_ID ) ;
5035: END IF;
5036:
5037: EXCEPTION
5038: WHEN OTHERS THEN
5040: END ;
5041:
5042: IF l_valid = 'Y' THEN
5043: IF l_debug_level > 0 THEN
5044: oe_debug_pub.add( '1. SETTING MULTIPLE_DETAILS_EXIST TO TRUE' , 1 ) ;
5045: END IF;
5046: multiple_details_exist := TRUE;
5047: goto mld;
5048: END IF;
5061: where line_detail_id = l_ii_line_id;
5062:
5063: IF no_of_picking_details > 1 THEN
5064: IF l_debug_level > 0 THEN
5065: oe_debug_pub.add( 'MULTIPLE PICKING DETAILS EXIST FOR :' || L_II_LINE_ID ) ;
5066: END IF;
5067: multiple_details_exist := TRUE;
5068: EXIT;
5069: END IF;
5073: CLOSE included_items;
5074:
5075: IF multiple_details_exist THEN
5076: IF l_debug_level > 0 THEN
5077: oe_debug_pub.add( '1. GOTO MULTIPLE_DETAILS_EXIST' , 1 ) ;
5078: END IF;
5079: goto mld;
5080: END IF;
5081:
5102: AND nvl(CONFIGURATION_ITEM_FLAG,'N') = 'N';
5103:
5104: IF no_of_details > 1 THEN
5105: IF l_debug_level > 0 THEN
5106: oe_debug_pub.add( 'MULTIPLE DETAILS EXIST FOR :' || L_OPTION_LINE_ID ) ;
5107: END IF;
5108: multiple_details_exist := TRUE;
5109: EXIT;
5110: END IF;
5131: where line_detail_id = l_detail_line_id;
5132:
5133: IF no_of_picking_details > 1 THEN
5134: IF l_debug_level > 0 THEN
5135: oe_debug_pub.add( 'MULTIPLE PICKING DETAILS EXIST FOR :' || L_OPTION_LINE_ID ) ;
5136: END IF;
5137: multiple_details_exist := TRUE;
5138: EXIT;
5139: END IF;
5150: group by inventory_item_id
5151: having count(*) > 1;
5152:
5153: IF l_debug_level > 0 THEN
5154: oe_debug_pub.add( 'MULTIPLE INCLUDED ITEM EXISTS FOR :' || L_OPTION_LINE_ID ) ;
5155: END IF;
5156:
5157: EXCEPTION
5158: WHEN OTHERS THEN
5160: END ;
5161:
5162: IF l_valid = 'Y' THEN
5163: IF l_debug_level > 0 THEN
5164: oe_debug_pub.add( '1. EXITING' , 1 ) ;
5165: END IF;
5166: EXIT;
5167: END IF;
5168: END IF;
5182: where line_detail_id = l_ii_line_id;
5183:
5184: IF no_of_picking_details > 1 THEN
5185: IF l_debug_level > 0 THEN
5186: oe_debug_pub.add( 'MULTIPLE PICKING DETAILS EXIST FOR :' || L_II_LINE_ID ) ;
5187: END IF;
5188: multiple_details_exist := TRUE;
5189: EXIT;
5190: END IF;
5193:
5194: CLOSE included_items;
5195: IF multiple_details_exist THEN
5196: IF l_debug_level > 0 THEN
5197: oe_debug_pub.add( '2. EXITING' , 1 ) ;
5198: END IF;
5199: EXIT;
5200: END IF;
5201: END IF;
5331: l_ship_set_id NUMBER;
5332: l_set_index NUMBER;
5333:
5334: --
5335: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
5336: --
5337: BEGIN
5338:
5339: FOR l_temp_record IN c_get_record
5931: v_ctr number;
5932: p_line_number number;
5933: v_item_type_code varchar2(200);
5934: --
5935: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
5936: --
5937: begin
5938: v_header_id := 0;
5939: v_commit_ctr := 0;
6188: l_new_line_rec OE_ORDER_PUB.line_rec_type;
6189: v_error_code NUMBER;
6190: l_orig_model_quantity NUMBER := 0;
6191: --
6192: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
6193: --
6194: BEGIN
6195:
6196: -- Get the model line which has multiple config lines.
6294:
6295:
6296: -- dbms_output.put_line('Cfg Line Id: ' || l_cfg_line_id);
6297: IF l_debug_level > 0 THEN
6298: oe_debug_pub.add( 'CFG LINE ID: ' || L_CFG_LINE_ID , 1 ) ;
6299: END IF;
6300:
6301: -- Create model and option lines for each of the config line.
6302:
6314: IF l_line_rec.line_id = l_line_rec.ato_line_id AND
6315: l_line_rec.item_type_code in ('MODEL','CLASS') THEN
6316:
6317: IF l_debug_level > 0 THEN
6318: oe_debug_pub.add( 'CREATING A NEW MODEL LINE' ) ;
6319: END IF;
6320:
6321: l_new_line_rec := l_line_rec;
6322:
6355:
6356: l_model_rec := l_new_line_rec;
6357:
6358: IF l_debug_level > 0 THEN
6359: oe_debug_pub.add( 'INSERTING A MODEL LINE :' || L_NEW_LINE_REC.LINE_ID ) ;
6360: END IF;
6361:
6362: INSERT_ROW(l_new_line_rec, l_line_id);
6363:
6397:
6398: ELSE
6399: -- dbms_output.put_line('Creating a new option line ');
6400: IF l_debug_level > 0 THEN
6401: oe_debug_pub.add( 'CREATING A NEW OPTION LINE ' , 1 ) ;
6402: END IF;
6403: l_new_line_rec := l_line_rec;
6404:
6405: SELECT oe_order_lines_s.nextval
6804: WHERE LINE_ID = p_line_id ;
6805:
6806:
6807: --
6808: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
6809: --
6810: BEGIN
6811:
6812: -- Loop over fetched records
7131: p_apply_price_adj IN Varchar2 default 'Y'
7132: )
7133: IS
7134: --
7135: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
7136: --
7137: BEGIN
7138:
7139: /* bring old_line_id from log table using the L_Line_id as the new_line_id */
8362: OE_UPG_SO_NEW.Upgrade_Sales_Credits
8363: ( L_level_flag => 'L');
8364:
8365: IF l_debug_level > 0 THEN
8366: oe_debug_pub.add( 'EXITING INSERT_ROW' , 1 ) ;
8367: END IF;
8368:
8369: EXCEPTION
8370: WHEN OTHERS THEN
8392: from mtl_so_rma_interface
8393: where rma_line_id = p_line_id
8394: and inventory_item_id <> l_inventory_item_id;
8395: --
8396: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
8397: --
8398: BEGIN
8399:
8400: l_line_rec := Query_Row(p_line_id);
8548: and l1.reference_type is not null
8549: and nvl(l1.open_flag,'-') = 'Y'
8550: and l1.header_id = p_header_id;
8551: --
8552: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
8553: --
8554: begin
8555:
8556: For l_rec in C1 LOOP
8578:
8579: Procedure Mark_Order_As_Non_Updatable(p_header_id in number)
8580: IS
8581: --
8582: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
8583: --
8584: BEGIN
8585: Update so_headers_all
8586: set upgrade_flag = 'X'
8664: where reference_line_id = l_fulfillment_ref_line_id
8665: and header_id = l_header_id;
8666: l_temp_rec C1%ROWTYPE;
8667: --
8668: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
8669: --
8670: BEGIN
8671:
8672: Open C1;
8865: l_new_line_id1 NUMBER;
8866: l_new_line_id2 NUMBER;
8867:
8868: --
8869: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
8870: --
8871: begin
8872:
8873: OPEN serviceable_lines;
8932: END Upgrade_Upd_Serv_Ref_line_id;
8933:
8934: Procedure Query_And_Set_Price_Attribs(p_line_id IN NUMBER, p_header_id NUMBER) IS
8935: --
8936: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
8937: --
8938: Begin
8939: Select pricing_attribute11,pricing_attribute12,
8940: pricing_attribute13,pricing_attribute14,pricing_attribute15