[Home] [Help]
191: END IF;
192:
193: -- Debug Message
194: IF (PV_DEBUG_HIGH_ON) THEN
195: PVX_UTILITY_PVT.debug_message('Private API: ' || l_api_name || ' - start');
196: END IF;
197:
198:
199: -- Initialize API return status to SUCCESS
251: FND_MSG_PUB.add;
252: RAISE FND_API.G_EXC_ERROR;
253: else
254: IF (PV_DEBUG_HIGH_ON) THEN
255: PVX_UTiLiTY_PVT.debug_message('Billing Address Validated succesfully');
256: END IF;
257: end if;
258:
259: PV_ORDER_MGMT_PVT.Order_Debug_On;
259: PV_ORDER_MGMT_PVT.Order_Debug_On;
260:
261: -- Debug Message
262: IF (PV_DEBUG_HIGH_ON) THEN
263: PVX_UTiLiTY_PVT.debug_message('QP Version'||QP_PREQ_GRP.GET_VERSiON);
264: END IF;
265:
266: QP_PRiCE_REQUEST_CONTEXT.SET_REQUEST_iD();
267:
265:
266: QP_PRiCE_REQUEST_CONTEXT.SET_REQUEST_iD();
267:
268: IF (PV_DEBUG_HIGH_ON) THEN
269: PVX_UTiLiTY_PVT.debug_message('request id was set');
270: END IF;
271:
272:
273: l_control_rec.pricing_event := 'BATCH';
279:
280: FOR line_index in l_enrl_req_id_tbl.FIRST..l_enrl_req_id_tbl.LAST LOOP
281:
282: IF (PV_DEBUG_HIGH_ON) THEN
283: PVX_UTiLiTY_PVT.debug_message('building contex for line :' || line_index);
284: PVX_UTiLiTY_PVT.debug_message('Getting UOM code for item id:' || l_inventory_item_id_tbl(line_index));
285: END IF;
286:
287: select msi.primary_uom_code
280: FOR line_index in l_enrl_req_id_tbl.FIRST..l_enrl_req_id_tbl.LAST LOOP
281:
282: IF (PV_DEBUG_HIGH_ON) THEN
283: PVX_UTiLiTY_PVT.debug_message('building contex for line :' || line_index);
284: PVX_UTiLiTY_PVT.debug_message('Getting UOM code for item id:' || l_inventory_item_id_tbl(line_index));
285: END IF;
286:
287: select msi.primary_uom_code
288: into l_uom_code
290: where msi.inventory_item_id = l_inventory_item_id_tbl(line_index)
291: and rownum = 1;
292:
293: IF (PV_DEBUG_HIGH_ON) THEN
294: PVX_UTiLiTY_PVT.debug_message('UOM Code is:' || l_uom_code);
295: END IF;
296:
297: G_line_index_tbl(line_index) := line_index;
298: G_line_type_code_tbl(line_index) := 'LINE';
345: line_index := l_enrl_req_id_tbl.LAST;
346: line_index := line_index + 1;
347:
348: IF (PV_DEBUG_HIGH_ON) THEN
349: PVX_UTiLiTY_PVT.debug_message('line_index '|| line_index);
350: END IF;
351:
352: G_LiNE_iNDEX_TBL(line_index) :=line_index;
353: G_LiNE_TYPE_CODE_TBL(line_index) := 'ORDER';
397: p_pricing_type_code => 'H');
398:
399:
400: IF (PV_DEBUG_HIGH_ON) THEN
401: PVX_UTiLiTY_PVT.debug_message('Before inserting into temporary tables');
402: END IF;
403:
404:
405: QP_PREQ_GRP.iNSERT_LiNES2
441:
442:
443:
444: IF (PV_DEBUG_HIGH_ON) THEN
445: PVX_UTiLiTY_PVT.debug_message('Return Status ater inserting : '|| x_return_status);
446: END IF;
447:
448: IF (PV_DEBUG_HIGH_ON) THEN
449: PVX_UTiLiTY_PVT.debug_message('Return Status text after inserting : '|| l_return_status_text);
445: PVX_UTiLiTY_PVT.debug_message('Return Status ater inserting : '|| x_return_status);
446: END IF;
447:
448: IF (PV_DEBUG_HIGH_ON) THEN
449: PVX_UTiLiTY_PVT.debug_message('Return Status text after inserting : '|| l_return_status_text);
450: END IF;
451:
452: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
453: FND_MESSAGE.SET_NAME('PV','PV_PRICING_ERROR');
462: END IF;
463:
464:
465: IF (PV_DEBUG_HIGH_ON) THEN
466: PVX_UTiLiTY_PVT.debug_message('Before pricing engine call');
467: END IF;
468:
469:
470:
474: x_return_status_text => l_return_status_text);
475:
476:
477: IF (PV_DEBUG_HIGH_ON) THEN
478: PVX_UTiLiTY_PVT.debug_message('Return Status ater pricing call : '|| x_return_status);
479: END IF;
480:
481:
482: IF (PV_DEBUG_HIGH_ON) THEN
479: END IF;
480:
481:
482: IF (PV_DEBUG_HIGH_ON) THEN
483: PVX_UTiLiTY_PVT.debug_message('Return Status text after pricing call : '|| l_return_status_text);
484: END IF;
485:
486:
487: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
498:
499:
500:
501: IF (PV_DEBUG_HIGH_ON) THEN
502: PVX_UTiLiTY_PVT.debug_message('Before retrieving the price from temp table ');
503: END IF;
504:
505:
506:
526: fetch c_program_name into l_program_name;
527: close c_program_name;
528:
529: IF (PV_DEBUG_HIGH_ON) THEN
530: PVX_UTiLiTY_PVT.debug_message('Pricing Error for program : ' || l_program_name || ' : ' ||
531: 'Pricing_status_code' || ' : ' || l_pricing_status_code || ' : ' ||
532: ' pricing status text :' || l_PRiCiNG_STATUS_TEXT );
533: END IF;
534:
539:
540:
541: ELSIF (l_line_type_code = 'ORDER') THEN
542: IF (PV_DEBUG_HIGH_ON) THEN
543: PVX_UTiLiTY_PVT.debug_message('Pricing Error for ORDER LINE : Pricing_status_code' || ' : ' || l_pricing_status_code || ' : ' ||
544: ' pricing status text :' || l_PRiCiNG_STATUS_TEXT );
545: END IF;
546:
547: FND_MESSAGE.set_name('PV', 'PV_ERROR_IN_CALC_PRICE');
553:
554: ELSE
555: IF (l_line_type_code = 'LINE') THEN
556: IF (PV_DEBUG_HIGH_ON) THEN
557: PVX_UTiLiTY_PVT.debug_message('Updating : ' || l_line_index || ' : ' || 'Enrl_req_id' || ' : ' ||
558: l_enrl_req_id_tbl(l_line_index) || ' : ' || 'Price' || ' : '
559: || l_adjusted_unit_price || ' : ' || 'currency' || ' : ' || l_currency_code ||
560: 'Price_list' || l_price_list_header_id);
561: END IF;
590: where enrl_request_id = l_enrl_req_id_tbl(l_line_index);
591:
592: ELSIF (l_line_type_code = 'ORDER') THEN
593: IF (PV_DEBUG_HIGH_ON) THEN
594: PVX_UTiLiTY_PVT.debug_message('ORDER LINE : ' || l_line_index || ' : ' || 'Price' || ' : '
595: || l_adjusted_unit_price || ' : ' || 'currency' || ' : ' || l_currency_code);
596: END IF;
597:
598: END IF;
606:
607: Close c_price;
608:
609: IF (PV_DEBUG_HIGH_ON) THEN
610: PVX_UTiLiTY_PVT.debug_message('After retrieving the price and updating price information ');
611: END IF;
612: END IF;
613:
614: FND_MSG_PUB.Count_And_Get