[Home] [Help]
22:
23: l_list_line_id NUMBER;
24: l_list_header_id NUMBER;
25:
26: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
27: BEGIN
28:
29: IF l_debug_level > 0 THEN
30: oe_debug_pub.ADD('Entering Add_Manual_Modifier...');
26: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
27: BEGIN
28:
29: IF l_debug_level > 0 THEN
30: oe_debug_pub.ADD('Entering Add_Manual_Modifier...');
31: END IF;
32:
33: --
34: -- Check if the profile 'ONT_AIA_MANUAL_MODIFIER' has any value,
45: -- list_header_id.
46: --
47:
48: IF l_debug_level > 0 THEN
49: oe_debug_pub.ADD(' l_list_line_id: ' || l_list_line_id);
50: END IF;
51:
52: SELECT list_header_id
53: INTO l_list_header_id
54: FROM qp_list_lines
55: WHERE list_line_id = l_list_line_id;
56:
57: IF l_debug_level > 0 THEN
58: oe_debug_pub.ADD(' l_list_header_id: ' || l_list_header_id);
59: END IF;
60:
61: ELSE
62:
60:
61: ELSE
62:
63: IF l_debug_level > 0 THEN
64: oe_debug_pub.ADD(' Profile ONT_O2C_MANUAL_MODIFIER is not set...');
65: END IF;
66:
67: END IF;
68:
102: --
103: FOR j IN p_x_line_tbl.first .. p_x_line_tbl.last LOOP
104:
105: IF l_debug_level > 0 THEN
106: oe_debug_pub.ADD(' Checking line: ' || j);
107: END IF;
108:
109: IF p_x_line_tbl(j).calculate_price_flag = 'P' AND
110: nvl(p_x_line_tbl(j).unit_list_price, -1) <> nvl(p_x_line_tbl(j).unit_selling_price, -1) AND
116: -- The profile is set. Proceed with adding a price adjustment
117: -- record.
118: --
119: IF l_debug_level > 0 THEN
120: oe_debug_pub.ADD(' Adding price adjustment record explicitly...');
121: END IF;
122:
123: l_adj_cnt := p_x_line_adj_tbl.count() + 1;
124: p_x_line_adj_tbl(l_adj_cnt) := OE_ORDER_PUB.G_MISS_LINE_ADJ_REC; -- Initiate to G_MISS for defaulting to happen
139: -- In case the profile is not set, this API will return
140: -- an error status.
141: --
142: IF l_debug_level > 0 THEN
143: oe_debug_pub.ADD(' Though LSP and USP differ and calc_price_flg is P, profile not set. Exiting...');
144: END IF;
145: x_ret_stat := Fnd_Api.G_RET_STS_ERROR;
146: EXIT;
147:
153:
154: END IF; -- end of p_x_line_tbl.count() > 0
155:
156: IF l_debug_level > 0 THEN
157: oe_debug_pub.ADD('Leaving Add_Manual_Modifier finally...');
158: END IF;
159:
160: END ADD_MANUAL_MODIFIER;
161:
563: aPlsqlItem.SHIP_TO_ORG_ID := aSqlItem.SHIP_TO_ORG_ID;
564: aPlsqlItem.SOLD_FROM_ORG_ID := aSqlItem.SOLD_FROM_ORG_ID;
565: aPlsqlItem.SOLD_TO_CONTACT_ID := aSqlItem.SOLD_TO_CONTACT_ID;
566: aPlsqlItem.SOLD_TO_ORG_ID := aSqlItem.SOLD_TO_ORG_ID;
567: --oe_debug_pub.add('Srini 102 header sold_to_org_id '||aPlsqlItem.SOLD_TO_ORG_ID);
568: aPlsqlItem.SOLD_TO_PHONE_ID := aSqlItem.SOLD_TO_PHONE_ID;
569: aPlsqlItem.SOURCE_DOCUMENT_ID := aSqlItem.SOURCE_DOCUMENT_ID;
570: aPlsqlItem.SOURCE_DOCUMENT_TYPE_ID := aSqlItem.SOURCE_DOCUMENT_TYPE_ID;
571: aPlsqlItem.TAX_EXEMPT_FLAG := aSqlItem.TAX_EXEMPT_FLAG;
674: aPlsqlItem.INVOICE_TO_PARTY_NUMBER := aSqlItem.INVOICE_TO_PARTY_NUMBER;
675: aPlsqlItem.DELIVER_TO_PARTY_NUMBER := aSqlItem.DELIVER_TO_PARTY_NUMBER;
676: aPlsqlItem.ORDER_FIRMED_DATE := aSqlItem.ORDER_FIRMED_DATE;
677:
678: oe_debug_pub.add('Caliing OE_GENESIS_UTIL.Convert_hdr_null_to_miss', 1);
679: OE_GENESIS_UTIL.Convert_hdr_null_to_miss(aPlsqlItem);
680: -- Convert_hdr_null_to_miss(aPlsqlItem);
681: --convert_hdr_null_to_miss(aPlsqlItem);
682: oe_debug_pub.add('After Caliing OE_GENESIS_UTIL.Convert_hdr_null_to_miss', 1);
678: oe_debug_pub.add('Caliing OE_GENESIS_UTIL.Convert_hdr_null_to_miss', 1);
679: OE_GENESIS_UTIL.Convert_hdr_null_to_miss(aPlsqlItem);
680: -- Convert_hdr_null_to_miss(aPlsqlItem);
681: --convert_hdr_null_to_miss(aPlsqlItem);
682: oe_debug_pub.add('After Caliing OE_GENESIS_UTIL.Convert_hdr_null_to_miss', 1);
683:
684: RETURN aPlsqlItem;
685: END SQL_TO_PL1;
686:
2117: aPlsqlItem.OPERATION := aSqlItem.OPERATION;
2118: aPlsqlItem.DEFER_PAYMENT_PROCESSING_FLAG := aSqlItem.DEFER_PAYMENT_PROCESSING_FLAG;
2119: aPlsqlItem.LOCK_CONTROL := aSqlItem.LOCK_CONTROL;
2120:
2121: oe_debug_pub.add('Calling OE_GENESIS_UTIL.Convert_hdr_pymnt_null_to_miss', 1);
2122: OE_GENESIS_UTIL.Convert_hdr_pymnt_null_to_miss(aPlsqlItem);
2123: oe_debug_pub.add('After Calling OE_GENESIS_UTIL.Convert_hdr_pymnt_null_to_miss', 1);
2124:
2125: RETURN aPlsqlItem;
2119: aPlsqlItem.LOCK_CONTROL := aSqlItem.LOCK_CONTROL;
2120:
2121: oe_debug_pub.add('Calling OE_GENESIS_UTIL.Convert_hdr_pymnt_null_to_miss', 1);
2122: OE_GENESIS_UTIL.Convert_hdr_pymnt_null_to_miss(aPlsqlItem);
2123: oe_debug_pub.add('After Calling OE_GENESIS_UTIL.Convert_hdr_pymnt_null_to_miss', 1);
2124:
2125: RETURN aPlsqlItem;
2126: END SQL_TO_PL33;
2127:
2465: aSqlItem.SHIP_TOLERANCE_BELOW := aPlsqlItem.SHIP_TOLERANCE_BELOW;
2466: aSqlItem.SHIP_TO_CONTACT_ID := aPlsqlItem.SHIP_TO_CONTACT_ID;
2467: aSqlItem.SHIP_TO_ORG_ID := aPlsqlItem.SHIP_TO_ORG_ID;
2468: aSqlItem.SOLD_TO_ORG_ID := aPlsqlItem.SOLD_TO_ORG_ID;
2469: --oe_debug_pub.add('Srini 103 header sold_to_org_id '||aSqlItem.SOLD_TO_ORG_ID);
2470: aSqlItem.SOLD_FROM_ORG_ID := aPlsqlItem.SOLD_FROM_ORG_ID;
2471: aSqlItem.SORT_ORDER := aPlsqlItem.SORT_ORDER;
2472: aSqlItem.SOURCE_DOCUMENT_ID := aPlsqlItem.SOURCE_DOCUMENT_ID;
2473: aSqlItem.SOURCE_DOCUMENT_LINE_ID := aPlsqlItem.SOURCE_DOCUMENT_LINE_ID;
2638: RETURN OE_ORDER_PUB.LINE_REC_TYPE IS
2639: aPlsqlItem OE_ORDER_PUB.LINE_REC_TYPE;
2640: BEGIN
2641:
2642: oe_debug_pub.add('Inside the SQL_TO_PL35', 1);
2643:
2644: aPlsqlItem.ACCOUNTING_RULE_ID := aSqlItem.ACCOUNTING_RULE_ID;
2645: aPlsqlItem.ACTUAL_ARRIVAL_DATE := aSqlItem.ACTUAL_ARRIVAL_DATE;
2646: aPlsqlItem.ACTUAL_SHIPMENT_DATE := aSqlItem.ACTUAL_SHIPMENT_DATE;
2884: aPlsqlItem.SHIP_TOLERANCE_BELOW := aSqlItem.SHIP_TOLERANCE_BELOW;
2885: aPlsqlItem.SHIP_TO_CONTACT_ID := aSqlItem.SHIP_TO_CONTACT_ID;
2886: aPlsqlItem.SHIP_TO_ORG_ID := aSqlItem.SHIP_TO_ORG_ID;
2887: aPlsqlItem.SOLD_TO_ORG_ID := aSqlItem.SOLD_TO_ORG_ID;
2888: --oe_debug_pub.add('Srini 104 header sold_to_org_id '||aPlsqlItem.SOLD_TO_ORG_ID);
2889: aPlsqlItem.SOLD_FROM_ORG_ID := aSqlItem.SOLD_FROM_ORG_ID;
2890: aPlsqlItem.SORT_ORDER := aSqlItem.SORT_ORDER;
2891: aPlsqlItem.SOURCE_DOCUMENT_ID := aSqlItem.SOURCE_DOCUMENT_ID;
2892: aPlsqlItem.SOURCE_DOCUMENT_LINE_ID := aSqlItem.SOURCE_DOCUMENT_LINE_ID;
3050: aPlsqlItem.ACTUAL_FULFILLMENT_DATE := aSqlItem.ACTUAL_FULFILLMENT_DATE;
3051: aPlsqlItem.CHANGED_LINES_POCAO := aSqlItem.CHANGED_LINES_POCAO;
3052: aPlsqlItem.CHARGE_PERIODICITY_CODE := aSqlItem.CHARGE_PERIODICITY_CODE;
3053:
3054: -- oe_debug_pub.add('Calling OE_GENESIS_UTIL.print_po_payload Before Convert_Line_null_to_miss');
3055: -- OE_GENESIS_UTIL.print_po_payload(
3056: -- P_HEADER_REC_,
3057: -- P_HEADER_VAL_REC_,
3058: -- P_HEADER_PAYMENT_TBL_,
3058: -- P_HEADER_PAYMENT_TBL_,
3059: -- P_LINE_TBL_
3060: -- );
3061:
3062: oe_debug_pub.add('Calling OE_GENESIS_UTIL.Convert_Line_null_to_miss', 1);
3063: OE_GENESIS_UTIL.Convert_Line_null_to_miss(aPlsqlItem);
3064: -- oe_debug_pub.add('Calling OE_GENESIS_UTIL.print_po_payload After Convert_Line_null_to_miss');
3065: -- OE_GENESIS_UTIL.print_po_payload(
3066: -- P_HEADER_REC_,
3060: -- );
3061:
3062: oe_debug_pub.add('Calling OE_GENESIS_UTIL.Convert_Line_null_to_miss', 1);
3063: OE_GENESIS_UTIL.Convert_Line_null_to_miss(aPlsqlItem);
3064: -- oe_debug_pub.add('Calling OE_GENESIS_UTIL.print_po_payload After Convert_Line_null_to_miss');
3065: -- OE_GENESIS_UTIL.print_po_payload(
3066: -- P_HEADER_REC_,
3067: -- P_HEADER_VAL_REC_,
3068: -- P_HEADER_PAYMENT_TBL_,
3069: -- P_LINE_TBL_
3070: -- );
3071:
3072: -- convert_line_null_to_miss(aPlsqlItem);
3073: oe_debug_pub.add('After Calling OE_GENESIS_UTIL.Convert_Line_null_to_miss', 1);
3074:
3075: RETURN aPlsqlItem;
3076: END SQL_TO_PL35;
3077:
3094: aPlsqlItem OE_ORDER_PUB.LINE_TBL_TYPE;
3095: BEGIN
3096: BEGIN
3097: FOR I IN 1..aSqlItem.COUNT LOOP
3098: oe_debug_pub.add('Inside SQL_TO_PL12', 1);
3099: aPlsqlItem(I) := SQL_TO_PL35(aSqlItem(I));
3100: --aPlsqlItem(1) := SQL_TO_PL35(aSqlItem(1));
3101: oe_debug_pub.add('After the call to SQL_TO_PL35', 1);
3102: END LOOP;
3097: FOR I IN 1..aSqlItem.COUNT LOOP
3098: oe_debug_pub.add('Inside SQL_TO_PL12', 1);
3099: aPlsqlItem(I) := SQL_TO_PL35(aSqlItem(I));
3100: --aPlsqlItem(1) := SQL_TO_PL35(aSqlItem(1));
3101: oe_debug_pub.add('After the call to SQL_TO_PL35', 1);
3102: END LOOP;
3103: EXCEPTION
3104: WHEN OTHERS THEN
3105: oe_debug_pub.add('EXCEPTION in SQL_TO_PL12', 1);
3101: oe_debug_pub.add('After the call to SQL_TO_PL35', 1);
3102: END LOOP;
3103: EXCEPTION
3104: WHEN OTHERS THEN
3105: oe_debug_pub.add('EXCEPTION in SQL_TO_PL12', 1);
3106: NULL;
3107: END;
3108: RETURN aPlsqlItem;
3109: END SQL_TO_PL12;
4940: FOR I IN aPlsqlItem.FIRST..aPlsqlItem.LAST LOOP
4941: aSqlItem(I + 1 - aPlsqlItem.FIRST) := PL_TO_SQL48(aPlsqlItem(I));
4942: -- Oe_Inbound_Int.G_check_action_ret_status :=
4943: -- aSqlItem(1).return_status;
4944: -- oe_debug_pub.add('Srini psu '
4945: -- ||Oe_Inbound_Int.G_check_action_ret_status);
4946: END LOOP;
4947: end if;
4948: RETURN aSqlItem;
5095: -- Bug 9131751
5096: l_amm_ret_stat VARCHAR2(1) := Fnd_Api.G_RET_STS_SUCCESS;
5097: l_line_adj_tbl Oe_Order_Pub_Line_Adj_Tbl_Typ;
5098: */
5099: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
5100:
5101: BEGIN
5102:
5103: l_action_request_tbl := p_action_request_tbl;
5111:
5112: Oe_Genesis_Util.G_INCOMING_FROM_DOO := TRUE;
5113:
5114: IF l_debug_level > 0 THEN
5115: oe_debug_pub.ADD('Set G_INCOMING_FROM_DOO at Location 1.', 5);
5116: END IF;
5117:
5118: ELSIF Nvl(p_header_rec.order_source_id,Fnd_Api.G_Miss_Num)
5119: = Fnd_Api.G_Miss_Num THEN
5123:
5124: Oe_Genesis_Util.G_INCOMING_FROM_DOO := TRUE;
5125:
5126: IF l_debug_level > 0 THEN
5127: oe_debug_pub.ADD('Set G_INCOMING_FROM_DOO at Location 2.', 5);
5128: END IF;
5129:
5130: EXIT; -- No need to loop further; we know this is from DOO by now.
5131: END IF;
5221: END IF;
5222: END LOOP;
5223: EXCEPTION
5224: WHEN Others THEN
5225: oe_debug_pub.ADD('Error at location PRE-PROCESS: ' || SQLERRM);
5226: END;
5227:
5228: /*
5229: --
5235:
5236: IF l_amm_ret_stat = Fnd_Api.G_RET_STS_SUCCESS THEN
5237: -- only now proceed with executing this logic.
5238: IF l_debug_level > 0 THEN
5239: Oe_Debug_Pub.ADD('Proceeding with Invocation to Process_Order...');
5240: END IF;
5241:
5242: ELSIF l_amm_ret_stat = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
5243: -- Some problem in executing Add_Manual_Modifier; either relevant
5243: -- Some problem in executing Add_Manual_Modifier; either relevant
5244: -- modifier reference is missing or multiple rows got identified.
5245: --
5246: IF l_debug_level > 0 THEN
5247: Oe_Debug_Pub.ADD('Problem in deriving valid modifier...');
5248: END IF;
5249:
5250: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
5251: RETURN;
5252:
5253: ELSE
5254: -- push an error message into x_messages table and get out.
5255: IF l_debug_level > 0 THEN
5256: Oe_Debug_Pub.ADD('Price modifier not found. Exiting...');
5257: END IF;
5258: x_messages := OE_MESSAGE_OBJ_T();
5259: x_messages.EXTEND;
5260: x_messages(x_messages.Count) := OE_MESSAGE_OBJ(
5327: END IF;
5328: END LOOP;
5329: EXCEPTION
5330: When Others Then
5331: Oe_Debug_Pub.Add('Error in setting parameters for ' ||
5332: ' fulfillment hold application/release: ' || sqlerrm);
5333: END;
5334:
5335: ---
5443: -- Bug 9019061
5444:
5445: IF ( X_RETURN_STATUS IN ('E', 'U') ) THEN
5446:
5447: oe_debug_pub.ADD('Oe_Inbound_Int.Process_Order failed. Check its processing messages.');
5448:
5449: -- Would it be a good idea to push an additional information message onto x_messages?
5450:
5451: ELSE
5490: END LOOP;
5491: END IF; -- check on x_line_tbl.Count
5492: EXCEPTION
5493: WHEN Others THEN
5494: Oe_Debug_Pub.ADD('Error at step 2c: ' || SQLERRM);
5495: END;
5496: END IF;
5497:
5498: -- 2(d). Correct signing of taxes on individual line level -- Bug 8977354
5532:
5533: x_header_rec.flow_status_code := l_hdr_fstat;
5534: EXCEPTION
5535: WHEN Others THEN
5536: oe_debug_pub.ADD('Error at step 3a: ' || SQLERRM);
5537: END;
5538: END IF;
5539:
5540: --
5562: l_line_rec25_obj oe_order_pub_line_rec25;
5563: BEGIN
5564: l_model_line_tab := number_table_type();
5565:
5566: oe_debug_pub.ADD('Entered 3b.....');
5567: FOR idx IN x_line_tbl.first..x_line_tbl.last
5568: LOOP
5569: oe_debug_pub.ADD('line_id in loop..... ' || x_line_tbl(idx).line_id);
5570: SELECT flow_status_code, item_type_code, config_rev_nbr
5565:
5566: oe_debug_pub.ADD('Entered 3b.....');
5567: FOR idx IN x_line_tbl.first..x_line_tbl.last
5568: LOOP
5569: oe_debug_pub.ADD('line_id in loop..... ' || x_line_tbl(idx).line_id);
5570: SELECT flow_status_code, item_type_code, config_rev_nbr
5571: INTO l_flow_stat, l_item_type, l_config_rev_nbr
5572: FROM oe_order_lines_all l
5573: WHERE l.line_id = x_line_tbl(idx).line_id;
5575: x_line_tbl(idx).flow_status_code := l_flow_stat;
5576: x_line_tbl(idx).config_rev_nbr := l_config_rev_nbr;
5577:
5578: IF ( l_item_type IN ('MODEL', 'KIT') ) THEN
5579: oe_debug_pub.ADD(' ........ it is a model/kit. ');
5580: l_model_line_tab.extend;
5581: l_count := l_count + 1;
5582: l_model_line_tab(l_count) := x_line_tbl(idx).line_id;
5583: END IF;
5585: END LOOP;
5586:
5587: -- For each model, get all its children lines and put them in
5588: -- x_line_tbl (the output lines table).
5589: oe_debug_pub.ADD(' p_line_tbl count.... ' || p_line_tbl.Count);
5590: oe_debug_pub.ADD(' x_line_tbl count.... ' || x_line_tbl.Count);
5591:
5592: IF p_line_tbl.Count <> x_line_tbl.Count THEN
5593: l_count := x_line_tbl.last;
5586:
5587: -- For each model, get all its children lines and put them in
5588: -- x_line_tbl (the output lines table).
5589: oe_debug_pub.ADD(' p_line_tbl count.... ' || p_line_tbl.Count);
5590: oe_debug_pub.ADD(' x_line_tbl count.... ' || x_line_tbl.Count);
5591:
5592: IF p_line_tbl.Count <> x_line_tbl.Count THEN
5593: l_count := x_line_tbl.last;
5594: oe_debug_pub.ADD(' l_count: ' || l_count);
5590: oe_debug_pub.ADD(' x_line_tbl count.... ' || x_line_tbl.Count);
5591:
5592: IF p_line_tbl.Count <> x_line_tbl.Count THEN
5593: l_count := x_line_tbl.last;
5594: oe_debug_pub.ADD(' l_count: ' || l_count);
5595: FOR i IN l_model_line_tab.first..l_model_line_tab.last
5596: LOOP
5597:
5598: FOR line IN config_child_lines(l_model_line_tab(i))
5606: l_reprice_flag VARCHAR2(1) := 'N';
5607: tmp_line_rec oe_order_pub.line_rec_type;
5608: BEGIN
5609: tmp_line_rec := l_line_rec;
5610: oe_debug_pub.ADD(' Just before the loop... with j as index....');
5611: oe_debug_pub.ADD(' # of records in l_config_process_tab.count...' ||
5612: l_config_process_tab.Count);
5613: FOR j IN 1..l_config_process_tab.Count
5614: LOOP
5607: tmp_line_rec oe_order_pub.line_rec_type;
5608: BEGIN
5609: tmp_line_rec := l_line_rec;
5610: oe_debug_pub.ADD(' Just before the loop... with j as index....');
5611: oe_debug_pub.ADD(' # of records in l_config_process_tab.count...' ||
5612: l_config_process_tab.Count);
5613: FOR j IN 1..l_config_process_tab.Count
5614: LOOP
5615: oe_debug_pub.ADD(' ........ Value of j = ' || j);
5611: oe_debug_pub.ADD(' # of records in l_config_process_tab.count...' ||
5612: l_config_process_tab.Count);
5613: FOR j IN 1..l_config_process_tab.Count
5614: LOOP
5615: oe_debug_pub.ADD(' ........ Value of j = ' || j);
5616: o_config_process_rec := l_config_process_tab(j);
5617:
5618: IF o_config_process_rec.config_header_id =
5619: tmp_line_rec.config_header_id THEN
5616: o_config_process_rec := l_config_process_tab(j);
5617:
5618: IF o_config_process_rec.config_header_id =
5619: tmp_line_rec.config_header_id THEN
5620: oe_debug_pub.ADD(' .... config_header_id equality check!');
5621: IF o_config_process_rec.line_id IS NULL AND
5622: o_config_process_rec.inventory_item_id = tmp_line_rec.inventory_item_id AND
5623: o_config_process_rec.ordered_quantity = tmp_line_rec.ordered_quantity AND
5624: (o_config_process_rec.unit_list_price <> tmp_line_rec.unit_list_price OR
5626: THEN
5627: -- Newly added options during this configuration edit.
5628: -- Always re-price the option line here.
5629: l_reprice_flag := 'Y';
5630: oe_debug_pub.ADD(' loc1 reprice_flag: ' || l_reprice_flag);
5631: ELSE
5632: -- Check if line price and the input price are
5633: -- varying. If they are varying, then the source of truth
5634: -- is the input.
5637: (o_config_process_rec.unit_list_price <> tmp_line_rec.unit_selling_price OR
5638: o_config_process_rec.unit_selling_price <> tmp_line_rec.unit_selling_price)
5639: THEN
5640: l_reprice_flag := 'Y';
5641: oe_debug_pub.ADD(' loc2 reprice_flag: ' || l_reprice_flag);
5642: END IF; -- checking line record price and input price
5643: END IF; -- check on l_config_process_rec.line_id being null.
5644:
5645: END IF; -- check for configuration_id equality on input/queried line.
5642: END IF; -- checking line record price and input price
5643: END IF; -- check on l_config_process_rec.line_id being null.
5644:
5645: END IF; -- check for configuration_id equality on input/queried line.
5646: oe_debug_pub.ADD(' loc3 reprice_flag: ' || l_reprice_flag);
5647: EXIT WHEN l_reprice_flag = 'Y';
5648: END LOOP; -- over l_config_process_tab, for current line.
5649:
5650: ------------
5649:
5650: ------------
5651: -- If the current line is found to be a candidate, reprice it.
5652: ------------
5653: oe_debug_pub.ADD(' checking if re-pricing is to be done for: ' || tmp_line_rec.line_id);
5654: IF l_reprice_flag = 'Y' THEN
5655: oe_debug_pub.ADD(' Yes..... indeed it is required.');
5656: DECLARE
5657: repr_control_rec oe_globals.control_rec_type;
5651: -- If the current line is found to be a candidate, reprice it.
5652: ------------
5653: oe_debug_pub.ADD(' checking if re-pricing is to be done for: ' || tmp_line_rec.line_id);
5654: IF l_reprice_flag = 'Y' THEN
5655: oe_debug_pub.ADD(' Yes..... indeed it is required.');
5656: DECLARE
5657: repr_control_rec oe_globals.control_rec_type;
5658: repr_line_tbl oe_order_pub.line_tbl_type;
5659: repr_old_line_tbl oe_order_pub.line_tbl_type;
5673: repr_line_rec.unit_selling_price := o_config_process_rec.unit_selling_price;
5674:
5675: repr_line_tbl(1) := repr_line_rec;
5676:
5677: oe_debug_pub.ADD(' Initializing the control record for UPDATE...');
5678: repr_control_rec := oe_globals.init_control_rec(
5679: repr_line_rec.operation, repr_control_rec);
5680:
5681: oe_debug_pub.ADD(' Calling Lines(...)....');
5677: oe_debug_pub.ADD(' Initializing the control record for UPDATE...');
5678: repr_control_rec := oe_globals.init_control_rec(
5679: repr_line_rec.operation, repr_control_rec);
5680:
5681: oe_debug_pub.ADD(' Calling Lines(...)....');
5682: oe_order_pvt.lines(
5683: p_validation_level => FND_API.G_VALID_LEVEL_NONE,
5684: p_control_rec => repr_control_rec,
5685: p_x_line_tbl => repr_line_tbl,
5685: p_x_line_tbl => repr_line_tbl,
5686: p_x_old_line_tbl => repr_old_line_tbl,
5687: x_return_status => repr_return_status
5688: );
5689: oe_debug_pub.ADD(' Return status from Lines(...)' ||
5690: repr_return_status);
5691:
5692: -- Raise O2C business event so that the price change gets
5693: -- synched to AIA.
5695: l_sso_seq NUMBER;
5696: l_stat VARCHAR2(30);
5697: l_hdr_rec oe_order_pub.header_rec_type;
5698: BEGIN
5699: oe_debug_pub.ADD(' Price Changed on line ' || repr_line_tbl(1).line_id);
5700:
5701: SELECT OE_XML_MESSAGE_SEQ_S.NEXTVAL INTO l_sso_seq FROM dual;
5702:
5703: oe_header_util.query_row(repr_line_tbl(1).header_id, l_hdr_rec);
5701: SELECT OE_XML_MESSAGE_SEQ_S.NEXTVAL INTO l_sso_seq FROM dual;
5702:
5703: oe_header_util.query_row(repr_line_tbl(1).header_id, l_hdr_rec);
5704:
5705: oe_debug_pub.ADD(' Calling Insert_Sync_Line...');
5706: OE_SYNC_ORDER_PVT.INSERT_SYNC_lINE(
5707: P_LINE_rec => repr_line_tbl(1),
5708: p_change_type => 'PRICE_CHG',
5709: p_req_id => l_sso_seq,
5709: p_req_id => l_sso_seq,
5710: X_RETURN_STATUS => l_stat);
5711:
5712: IF l_stat = FND_API.G_RET_STS_SUCCESS THEN
5713: oe_debug_pub.ADD(' Calling Sync_Header_Line...');
5714: OE_SYNC_ORDER_PVT.SYNC_HEADER_LINE(
5715: p_header_rec => l_hdr_rec,
5716: p_line_rec => repr_line_tbl(1),
5717: p_hdr_req_id => l_sso_seq,
5717: p_hdr_req_id => l_sso_seq,
5718: p_lin_req_id => l_sso_seq,
5719: p_change_type => 'PRICE_CHG');
5720: END IF;
5721: oe_debug_pub.ADD('...... Done raising event.');
5722: END;
5723:
5724: COMMIT;
5725:
5748: IF SQLCODE = -6531 THEN
5749: -- A pure header level update. In such case, the order line table will
5750: -- have been neither populated, nor have been returned (on the
5751: -- signature of process_order(...) API).
5752: oe_debug_pub.ADD('Ignorable Error occurred: ' || SQLERRM);
5753: ELSE
5754: oe_debug_pub.ADD('Error occurred: ' || SQLERRM);
5755: END IF;
5756: END; -- End of the Block that started with 3B
5750: -- have been neither populated, nor have been returned (on the
5751: -- signature of process_order(...) API).
5752: oe_debug_pub.ADD('Ignorable Error occurred: ' || SQLERRM);
5753: ELSE
5754: oe_debug_pub.ADD('Error occurred: ' || SQLERRM);
5755: END IF;
5756: END; -- End of the Block that started with 3B
5757:
5758: END IF; -- Bug 9019061
5927: l_return_status VARCHAR2(256);
5928:
5929: L_MSG_COUNT NUMBER ;
5930: L_MSG_DATA VARCHAR2(2000);
5931: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
5932: l_booking_action_index NUMBER := NULL; -- Bug 8872110
5933:
5934: l_price_adj_tbl OE_ORDER_PUB.Line_Adj_Tbl_Type; -- 10171747
5935: l_amm_ret_stat VARCHAR2(1) := Fnd_Api.G_RET_STS_SUCCESS; -- 10171747
5942: AND bom.organization_id = oe_sys_parameters.Value('MASTER_ORGANIZATION_ID')
5943: AND bom.ALTERNATE_BOM_DESIGNATOR IS NULL;
5944:
5945: BEGIN
5946: oe_debug_pub.initialize;
5947:
5948: l_temp_var := oe_debug_pub.set_debug_mode('FILE');
5949:
5950: oe_debug_pub.debug_on;
5944:
5945: BEGIN
5946: oe_debug_pub.initialize;
5947:
5948: l_temp_var := oe_debug_pub.set_debug_mode('FILE');
5949:
5950: oe_debug_pub.debug_on;
5951:
5952: IF l_debug_level > 0 THEN
5946: oe_debug_pub.initialize;
5947:
5948: l_temp_var := oe_debug_pub.set_debug_mode('FILE');
5949:
5950: oe_debug_pub.debug_on;
5951:
5952: IF l_debug_level > 0 THEN
5953: oe_debug_pub.add('Inside the cover API...');
5954: oe_debug_pub.add('Line table count is: '||p_line_tbl.COUNT);
5949:
5950: oe_debug_pub.debug_on;
5951:
5952: IF l_debug_level > 0 THEN
5953: oe_debug_pub.add('Inside the cover API...');
5954: oe_debug_pub.add('Line table count is: '||p_line_tbl.COUNT);
5955: END IF;
5956:
5957:
5950: oe_debug_pub.debug_on;
5951:
5952: IF l_debug_level > 0 THEN
5953: oe_debug_pub.add('Inside the cover API...');
5954: oe_debug_pub.add('Line table count is: '||p_line_tbl.COUNT);
5955: END IF;
5956:
5957:
5958: P_HEADER_REC_ := Oe_Inbound_Int.SQL_TO_PL1(P_HEADER_REC);
6014: --
6015: IF ( Nvl(p_header_rec.transaction_phase_code, 'F') = 'F' OR
6016: p_header_rec.transaction_phase_code = FND_API.G_MISS_CHAR) THEN --Bug 8442659
6017: IF l_debug_level > 0 THEN
6018: oe_debug_pub.add('+++ Sales order under creation...');
6019: END IF;
6020: -- Bug 7629966
6021: IF ( Nvl(p_header_rec.booked_flag, 'N') = 'Y' AND
6022: -- Bug 8872110
6021: IF ( Nvl(p_header_rec.booked_flag, 'N') = 'Y' AND
6022: -- Bug 8872110
6023: p_header_rec.operation = Oe_Globals.G_Opr_Create) THEN
6024: IF l_debug_level > 0 THEN
6025: oe_debug_pub.add('+++ Requesting booking...');
6026: END IF;
6027: p_action_request_tbl_(p_action_request_tbl_.COUNT+1).request_type := OE_GLOBALS.G_BOOK_ORDER; --Bug 8442659
6028: p_action_request_tbl_(p_action_request_tbl_.COUNT).entity_code := OE_GLOBALS.G_ENTITY_HEADER; --Bug 8442659
6029: l_booking_action_index := p_action_request_tbl_.COUNT; -- Bug 8872110
6030: p_header_rec_.booked_flag := FND_API.G_MISS_CHAR; --Bug 8485302
6031: END IF;
6032: ELSIF ( p_header_rec.transaction_phase_code = 'N' ) THEN
6033: IF l_debug_level > 0 THEN
6034: oe_debug_pub.add('+++ Quote under creation, not populating action request table.');
6035: END IF;
6036: END IF;
6037: --
6038: -- Code Changes End : ER 7025965
6038: -- Code Changes End : ER 7025965
6039: --
6040:
6041: IF l_debug_level > 0 THEN
6042: oe_debug_pub.add('Before calling PO');
6043: oe_debug_pub.add('Header Attributes');
6044: oe_debug_pub.add('header sold_to_org_id '||p_header_rec_.sold_to_org_id);
6045: oe_debug_pub.add('header Order Type '||p_header_rec_.order_type_id);
6046: oe_debug_pub.add('header order_source_id'||p_header_rec_.order_source_id);
6039: --
6040:
6041: IF l_debug_level > 0 THEN
6042: oe_debug_pub.add('Before calling PO');
6043: oe_debug_pub.add('Header Attributes');
6044: oe_debug_pub.add('header sold_to_org_id '||p_header_rec_.sold_to_org_id);
6045: oe_debug_pub.add('header Order Type '||p_header_rec_.order_type_id);
6046: oe_debug_pub.add('header order_source_id'||p_header_rec_.order_source_id);
6047: oe_debug_pub.add('header salesrep_id '||p_header_rec_.salesrep_id);
6040:
6041: IF l_debug_level > 0 THEN
6042: oe_debug_pub.add('Before calling PO');
6043: oe_debug_pub.add('Header Attributes');
6044: oe_debug_pub.add('header sold_to_org_id '||p_header_rec_.sold_to_org_id);
6045: oe_debug_pub.add('header Order Type '||p_header_rec_.order_type_id);
6046: oe_debug_pub.add('header order_source_id'||p_header_rec_.order_source_id);
6047: oe_debug_pub.add('header salesrep_id '||p_header_rec_.salesrep_id);
6048: oe_debug_pub.add('header Org Id '||p_header_rec_.Org_id);
6041: IF l_debug_level > 0 THEN
6042: oe_debug_pub.add('Before calling PO');
6043: oe_debug_pub.add('Header Attributes');
6044: oe_debug_pub.add('header sold_to_org_id '||p_header_rec_.sold_to_org_id);
6045: oe_debug_pub.add('header Order Type '||p_header_rec_.order_type_id);
6046: oe_debug_pub.add('header order_source_id'||p_header_rec_.order_source_id);
6047: oe_debug_pub.add('header salesrep_id '||p_header_rec_.salesrep_id);
6048: oe_debug_pub.add('header Org Id '||p_header_rec_.Org_id);
6049: oe_debug_pub.add('header orig_sys_document_ref '||p_header_rec_.orig_sys_document_ref);
6042: oe_debug_pub.add('Before calling PO');
6043: oe_debug_pub.add('Header Attributes');
6044: oe_debug_pub.add('header sold_to_org_id '||p_header_rec_.sold_to_org_id);
6045: oe_debug_pub.add('header Order Type '||p_header_rec_.order_type_id);
6046: oe_debug_pub.add('header order_source_id'||p_header_rec_.order_source_id);
6047: oe_debug_pub.add('header salesrep_id '||p_header_rec_.salesrep_id);
6048: oe_debug_pub.add('header Org Id '||p_header_rec_.Org_id);
6049: oe_debug_pub.add('header orig_sys_document_ref '||p_header_rec_.orig_sys_document_ref);
6050: oe_debug_pub.add('Line Attributes');
6043: oe_debug_pub.add('Header Attributes');
6044: oe_debug_pub.add('header sold_to_org_id '||p_header_rec_.sold_to_org_id);
6045: oe_debug_pub.add('header Order Type '||p_header_rec_.order_type_id);
6046: oe_debug_pub.add('header order_source_id'||p_header_rec_.order_source_id);
6047: oe_debug_pub.add('header salesrep_id '||p_header_rec_.salesrep_id);
6048: oe_debug_pub.add('header Org Id '||p_header_rec_.Org_id);
6049: oe_debug_pub.add('header orig_sys_document_ref '||p_header_rec_.orig_sys_document_ref);
6050: oe_debug_pub.add('Line Attributes');
6051: oe_debug_pub.add('Line table count is '||p_line_tbl_.COUNT);
6044: oe_debug_pub.add('header sold_to_org_id '||p_header_rec_.sold_to_org_id);
6045: oe_debug_pub.add('header Order Type '||p_header_rec_.order_type_id);
6046: oe_debug_pub.add('header order_source_id'||p_header_rec_.order_source_id);
6047: oe_debug_pub.add('header salesrep_id '||p_header_rec_.salesrep_id);
6048: oe_debug_pub.add('header Org Id '||p_header_rec_.Org_id);
6049: oe_debug_pub.add('header orig_sys_document_ref '||p_header_rec_.orig_sys_document_ref);
6050: oe_debug_pub.add('Line Attributes');
6051: oe_debug_pub.add('Line table count is '||p_line_tbl_.COUNT);
6052: END IF;
6045: oe_debug_pub.add('header Order Type '||p_header_rec_.order_type_id);
6046: oe_debug_pub.add('header order_source_id'||p_header_rec_.order_source_id);
6047: oe_debug_pub.add('header salesrep_id '||p_header_rec_.salesrep_id);
6048: oe_debug_pub.add('header Org Id '||p_header_rec_.Org_id);
6049: oe_debug_pub.add('header orig_sys_document_ref '||p_header_rec_.orig_sys_document_ref);
6050: oe_debug_pub.add('Line Attributes');
6051: oe_debug_pub.add('Line table count is '||p_line_tbl_.COUNT);
6052: END IF;
6053:
6046: oe_debug_pub.add('header order_source_id'||p_header_rec_.order_source_id);
6047: oe_debug_pub.add('header salesrep_id '||p_header_rec_.salesrep_id);
6048: oe_debug_pub.add('header Org Id '||p_header_rec_.Org_id);
6049: oe_debug_pub.add('header orig_sys_document_ref '||p_header_rec_.orig_sys_document_ref);
6050: oe_debug_pub.add('Line Attributes');
6051: oe_debug_pub.add('Line table count is '||p_line_tbl_.COUNT);
6052: END IF;
6053:
6054: if p_line_tbl_.COUNT > 0 then
6047: oe_debug_pub.add('header salesrep_id '||p_header_rec_.salesrep_id);
6048: oe_debug_pub.add('header Org Id '||p_header_rec_.Org_id);
6049: oe_debug_pub.add('header orig_sys_document_ref '||p_header_rec_.orig_sys_document_ref);
6050: oe_debug_pub.add('Line Attributes');
6051: oe_debug_pub.add('Line table count is '||p_line_tbl_.COUNT);
6052: END IF;
6053:
6054: if p_line_tbl_.COUNT > 0 then
6055: if l_debug_level > 0 THEN
6052: END IF;
6053:
6054: if p_line_tbl_.COUNT > 0 then
6055: if l_debug_level > 0 THEN
6056: oe_debug_pub.add('line inventory_item_id '||p_line_tbl_(1).inventory_item_id);
6057: oe_debug_pub.add('line ordered_quantity '||p_line_tbl_(1).ordered_quantity);
6058: end if;
6059: end if;
6060:
6053:
6054: if p_line_tbl_.COUNT > 0 then
6055: if l_debug_level > 0 THEN
6056: oe_debug_pub.add('line inventory_item_id '||p_line_tbl_(1).inventory_item_id);
6057: oe_debug_pub.add('line ordered_quantity '||p_line_tbl_(1).ordered_quantity);
6058: end if;
6059: end if;
6060:
6061: if l_debug_level > 0 then
6058: end if;
6059: end if;
6060:
6061: if l_debug_level > 0 then
6062: oe_debug_pub.add('22Calling OE_GENESIS_UTIL.print_po_payload');
6063: end if;
6064:
6065: OE_GENESIS_UTIL.print_po_payload(
6066: P_HEADER_REC_,
6069: P_LINE_TBL_
6070: );
6071:
6072: if l_debug_level > 0 then
6073: oe_debug_pub.add('Calling OE_ORDER_IMPORT_CONFIG_PVT.Pre_Process');
6074: end if;
6075: OE_ORDER_IMPORT_CONFIG_PVT.Pre_Process(
6076: p_header_rec => P_HEADER_REC_
6077: ,p_x_line_tbl => P_LINE_TBL_
6076: p_header_rec => P_HEADER_REC_
6077: ,p_x_line_tbl => P_LINE_TBL_
6078: ,p_return_status => l_return_status);
6079: if l_debug_level > 0 then
6080: oe_debug_pub.add('After OE_ORDER_IMPORT_CONFIG_PVT.Pre_Process' ||
6081: l_return_status);
6082: end if;
6083:
6084: ---
6084: ---
6085: -- Bug 10171747
6086: ---
6087: IF l_debug_level > 0 THEN
6088: oe_debug_pub.ADD('Calling Add_Manual_Modifier...', 5);
6089: END IF;
6090:
6091: l_price_adj_tbl := p_line_adj_tbl_;
6092:
6092:
6093: Add_Manual_Modifier(p_line_tbl_, l_price_adj_tbl, l_amm_ret_stat);
6094:
6095: IF l_debug_level > 0 THEN
6096: oe_debug_pub.ADD(' Return status from Add_Manual_Modifier: '
6097: || l_amm_ret_stat, 5);
6098: END IF;
6099:
6100: IF l_amm_ret_stat = Fnd_Api.G_RET_STS_SUCCESS THEN
6100: IF l_amm_ret_stat = Fnd_Api.G_RET_STS_SUCCESS THEN
6101:
6102: -- only now proceed with executing this logic.
6103: IF l_debug_level > 0 THEN
6104: Oe_Debug_Pub.ADD('Proceeding with Invocation to Process_Order...');
6105: END IF;
6106:
6107: ELSIF l_amm_ret_stat = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
6108: -- Some problem in executing Add_Manual_Modifier; either relevant
6108: -- Some problem in executing Add_Manual_Modifier; either relevant
6109: -- modifier reference is missing or multiple rows got identified.
6110: --
6111: IF l_debug_level > 0 THEN
6112: Oe_Debug_Pub.ADD('Problem in deriving valid modifier...');
6113: END IF;
6114:
6115: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
6116: RETURN;
6117:
6118: ELSE
6119: -- push an error message into x_messages table and get out.
6120: IF l_debug_level > 0 THEN
6121: Oe_Debug_Pub.ADD('Price modifier not found. Exiting...');
6122: END IF;
6123: x_messages := OE_MESSAGE_OBJ_T();
6124: x_messages.EXTEND;
6125: x_messages(x_messages.Count) := OE_MESSAGE_OBJ(
6153: LOOP
6154: IF Nvl(P_LINE_TBL_(i).Schedule_Ship_Date, Fnd_Api.G_Miss_Date)
6155: <> Fnd_Api.G_Miss_Date THEN
6156: IF l_debug_level > 0 THEN
6157: oe_debug_pub.ADD('Setting BYPASS_SCH_FLAG to Y on line_id '
6158: || P_LINE_TBL_(i).line_id);
6159: END IF;
6160: P_LINE_TBL_(i).Bypass_Sch_Flag := 'Y';
6161: END IF;
6168: P_LINE_TBL_(i).Item_Type_Code IN
6169: ('KIT', 'CLASS', 'MODEL', 'INCLUDED', 'OPTION')
6170: ) THEN
6171: IF l_debug_level > 0 THEN
6172: oe_debug_pub.ADD('Setting PRE_EXPLODED_FLAG to Y on line_id '
6173: || P_LINE_TBL_(i).line_id);
6174: END IF;
6175: P_LINE_TBL_(i).Pre_Exploded_Flag := 'Y';
6176:
6275: X_ACTION_REQUEST_TBL_,
6276: P_RTRIM_DATA);
6277:
6278: if l_debug_level > 0 then
6279: oe_debug_pub.add('After calling PO');
6280: end if;
6281:
6282: X_HEADER_REC := Oe_Inbound_Int.PL_TO_SQL1(X_HEADER_REC_);
6283: X_HEADER_VAL_REC := Oe_Inbound_Int.PL_TO_SQL2(X_HEADER_VAL_REC_);
6320: OR
6321: x_return_status IN ('E', 'U')
6322: THEN
6323: if l_debug_level > 0 then
6324: oe_debug_pub.add('In the Rollback section ');
6325: end if;
6326: ROLLBACK;
6327: ELSE
6328: if l_debug_level > 0 then
6325: end if;
6326: ROLLBACK;
6327: ELSE
6328: if l_debug_level > 0 then
6329: oe_debug_pub.add('Commit has been triggered here! ');
6330: end if;
6331: -- Bug 9924161 : Start
6332: IF Nvl(p_action_commit, Fnd_Api.G_True) <> Fnd_Api.G_False THEN
6333: COMMIT;
6337:
6338: -- Populate OM Processing Messages onto the OUT parameter
6339: -- 'x_messages'.
6340: if l_debug_level > 0 then
6341: oe_debug_pub.add('Populating message_tbl for Genesis');
6342: end if;
6343:
6344: -- Ensure to have a clean message object table
6345: x_messages := OE_MESSAGE_OBJ_T();
6362:
6363: -- If debugging is on, add the name of the debug file as an
6364: -- additional message (so that it can be viewed in the XML
6365: -- message generated in case of BPEL fault).
6366: IF ( oe_debug_pub.IsDebugOn ) THEN
6367: x_messages.EXTEND;
6368: x_messages(x_messages.Count) :=
6369: OE_MESSAGE_OBJ ('Debug File: ' || l_temp_var);
6370: END IF;
6470: )
6471: IS
6472:
6473: l_messages oe_message_obj_t;
6474: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
6475:
6476: BEGIN
6477: if l_debug_level > 0 then
6478: oe_debug_pub.add('Oe_Inbound_Int.Process_Order with deprecated signature invoked...');
6474: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
6475:
6476: BEGIN
6477: if l_debug_level > 0 then
6478: oe_debug_pub.add('Oe_Inbound_Int.Process_Order with deprecated signature invoked...');
6479: oe_debug_pub.add('Calling...');
6480: end if;
6481:
6482: Process_Order (
6475:
6476: BEGIN
6477: if l_debug_level > 0 then
6478: oe_debug_pub.add('Oe_Inbound_Int.Process_Order with deprecated signature invoked...');
6479: oe_debug_pub.add('Calling...');
6480: end if;
6481:
6482: Process_Order (
6483: P_API_VERSION_NUMBER => P_API_VERSION_NUMBER,
6563: P_RTRIM_DATA => P_RTRIM_DATA
6564: );
6565:
6566: if l_debug_level > 0 then
6567: oe_debug_pub.add('After calling the newer signature of Process_Order...');
6568: oe_debug_pub.add('Setting x_msg_count and x_msg_data...');
6569: end if;
6570:
6571: x_msg_count := l_messages.COUNT;
6564: );
6565:
6566: if l_debug_level > 0 then
6567: oe_debug_pub.add('After calling the newer signature of Process_Order...');
6568: oe_debug_pub.add('Setting x_msg_count and x_msg_data...');
6569: end if;
6570:
6571: x_msg_count := l_messages.COUNT;
6572: x_msg_data := l_messages(1).message_text;
6571: x_msg_count := l_messages.COUNT;
6572: x_msg_data := l_messages(1).message_text;
6573:
6574: if l_debug_level > 0 then
6575: oe_debug_pub.add('Done... returning to caller...');
6576: end if;
6577:
6578:
6579: END Process_Order; -- Overloaded form with the older deprecated signature.