213: FND_MSG_PUB.Add;
214: END IF;
215:
216: --Procedure added by Anoop Rajan on 30/09/2005 to print login details
217: IF aso_debug_pub.g_debug_flag = 'Y' THEN
218: aso_debug_pub.add('Before call to printing login info details', 1, 'Y');
219: ASO_UTILITY_PVT.print_login_info;
220: aso_debug_pub.add('After call to printing login info details', 1, 'Y');
221: END IF;
214: END IF;
215:
216: --Procedure added by Anoop Rajan on 30/09/2005 to print login details
217: IF aso_debug_pub.g_debug_flag = 'Y' THEN
218: aso_debug_pub.add('Before call to printing login info details', 1, 'Y');
219: ASO_UTILITY_PVT.print_login_info;
220: aso_debug_pub.add('After call to printing login info details', 1, 'Y');
221: END IF;
222:
216: --Procedure added by Anoop Rajan on 30/09/2005 to print login details
217: IF aso_debug_pub.g_debug_flag = 'Y' THEN
218: aso_debug_pub.add('Before call to printing login info details', 1, 'Y');
219: ASO_UTILITY_PVT.print_login_info;
220: aso_debug_pub.add('After call to printing login info details', 1, 'Y');
221: END IF;
222:
223: -- Change Done By Girish
224: -- Procedure added to validate the operating unit
243: RAISE FND_API.G_EXC_ERROR;
244: END IF;
245: -- ******************************************************************
246:
247: IF aso_debug_pub.g_debug_flag = 'Y' THEN
248: aso_debug_pub.add('Submit_Q: Begin ', 1, 'N');
249: aso_debug_pub.add('l_om_defaulting_prof: '||l_om_defaulting_prof,1,'N');
250: END IF;
251:
244: END IF;
245: -- ******************************************************************
246:
247: IF aso_debug_pub.g_debug_flag = 'Y' THEN
248: aso_debug_pub.add('Submit_Q: Begin ', 1, 'N');
249: aso_debug_pub.add('l_om_defaulting_prof: '||l_om_defaulting_prof,1,'N');
250: END IF;
251:
252: -- vtariker - Check Whether record has been changed
245: -- ******************************************************************
246:
247: IF aso_debug_pub.g_debug_flag = 'Y' THEN
248: aso_debug_pub.add('Submit_Q: Begin ', 1, 'N');
249: aso_debug_pub.add('l_om_defaulting_prof: '||l_om_defaulting_prof,1,'N');
250: END IF;
251:
252: -- vtariker - Check Whether record has been changed
253: OPEN C_Get_Update_Date(P_Qte_Header_Rec.Quote_Header_Id);
252: -- vtariker - Check Whether record has been changed
253: OPEN C_Get_Update_Date(P_Qte_Header_Rec.Quote_Header_Id);
254: FETCH C_Get_Update_Date INTO l_last_upd_date;
255:
256: IF aso_debug_pub.g_debug_flag = 'Y' THEN
257: aso_debug_pub.add('Submit_Q: l_last_upd_date: '||l_last_upd_date, 1, 'N');
258: aso_debug_pub.add('Submit_Q: p_qte_header_rec.last_update_date: '||p_qte_header_rec.last_update_date, 1, 'N');
259: END IF;
260:
253: OPEN C_Get_Update_Date(P_Qte_Header_Rec.Quote_Header_Id);
254: FETCH C_Get_Update_Date INTO l_last_upd_date;
255:
256: IF aso_debug_pub.g_debug_flag = 'Y' THEN
257: aso_debug_pub.add('Submit_Q: l_last_upd_date: '||l_last_upd_date, 1, 'N');
258: aso_debug_pub.add('Submit_Q: p_qte_header_rec.last_update_date: '||p_qte_header_rec.last_update_date, 1, 'N');
259: END IF;
260:
261: IF (C_Get_Update_Date%NOTFOUND) OR
254: FETCH C_Get_Update_Date INTO l_last_upd_date;
255:
256: IF aso_debug_pub.g_debug_flag = 'Y' THEN
257: aso_debug_pub.add('Submit_Q: l_last_upd_date: '||l_last_upd_date, 1, 'N');
258: aso_debug_pub.add('Submit_Q: p_qte_header_rec.last_update_date: '||p_qte_header_rec.last_update_date, 1, 'N');
259: END IF;
260:
261: IF (C_Get_Update_Date%NOTFOUND) OR
262: (l_last_upd_date IS NULL OR l_last_upd_date = FND_API.G_MISS_DATE) THEN
417: END IF;
418: RAISE FND_API.G_EXC_ERROR;
419: END IF;
420:
421: IF aso_debug_pub.g_debug_flag = 'Y' THEN
422: aso_debug_pub.add('Submit_Q: After validate_status_transition: ORDER SUBMITEED ', 1, 'N');
423: END IF;
424: -- end of hyang quote_status
425:
418: RAISE FND_API.G_EXC_ERROR;
419: END IF;
420:
421: IF aso_debug_pub.g_debug_flag = 'Y' THEN
422: aso_debug_pub.add('Submit_Q: After validate_status_transition: ORDER SUBMITEED ', 1, 'N');
423: END IF;
424: -- end of hyang quote_status
425:
426: FOR count_main in c_line_relation(p_qte_header_rec.quote_header_id) LOOP
441: l_hd_price_adj_tbl := ASO_SUBMIT_QUOTE_PVT.Query_Price_Adj_Hdr_Rows(
442: p_qte_header_id => p_qte_header_rec.quote_header_id,
443: p_qte_line_id => NULL);
444:
445: IF aso_debug_pub.g_debug_flag = 'Y' THEN
446: aso_debug_pub.add('Submit_Q: After hd_price_adj_tbl ', 1, 'N');
447: aso_debug_pub.add('Submit_Q: After l_hd_price_adj_tbl.count: '||l_hd_price_adj_tbl.count, 1, 'N');
448: END IF;
449:
442: p_qte_header_id => p_qte_header_rec.quote_header_id,
443: p_qte_line_id => NULL);
444:
445: IF aso_debug_pub.g_debug_flag = 'Y' THEN
446: aso_debug_pub.add('Submit_Q: After hd_price_adj_tbl ', 1, 'N');
447: aso_debug_pub.add('Submit_Q: After l_hd_price_adj_tbl.count: '||l_hd_price_adj_tbl.count, 1, 'N');
448: END IF;
449:
450: -- pbh/prg
443: p_qte_line_id => NULL);
444:
445: IF aso_debug_pub.g_debug_flag = 'Y' THEN
446: aso_debug_pub.add('Submit_Q: After hd_price_adj_tbl ', 1, 'N');
447: aso_debug_pub.add('Submit_Q: After l_hd_price_adj_tbl.count: '||l_hd_price_adj_tbl.count, 1, 'N');
448: END IF;
449:
450: -- pbh/prg
451: l_hd_Price_Adj_Attr_Tbl := ASO_UTILITY_PVT.Query_Price_Adj_Attr_Rows(
450: -- pbh/prg
451: l_hd_Price_Adj_Attr_Tbl := ASO_UTILITY_PVT.Query_Price_Adj_Attr_Rows(
452: p_price_adj_tbl => l_hd_price_adj_tbl);
453:
454: IF aso_debug_pub.g_debug_flag = 'Y' THEN
455: aso_debug_pub.add('vtariker: After l_hd_Price_Adj_Attr_Tbl.count: '||l_hd_Price_Adj_Attr_Tbl.count, 1, 'N');
456: END IF;
457: -- pbh/prg
458:
451: l_hd_Price_Adj_Attr_Tbl := ASO_UTILITY_PVT.Query_Price_Adj_Attr_Rows(
452: p_price_adj_tbl => l_hd_price_adj_tbl);
453:
454: IF aso_debug_pub.g_debug_flag = 'Y' THEN
455: aso_debug_pub.add('vtariker: After l_hd_Price_Adj_Attr_Tbl.count: '||l_hd_Price_Adj_Attr_Tbl.count, 1, 'N');
456: END IF;
457: -- pbh/prg
458:
459: l_hd_price_attr_tbl := ASO_UTILITY_PVT.Query_Price_Attr_Rows(
485: l_hd_shipment_tbl := ASO_UTILITY_PVT.Query_Shipment_Rows(
486: p_qte_header_id => p_qte_header_rec.quote_header_id,
487: p_qte_line_id => NULL);
488:
489: IF aso_debug_pub.g_debug_flag = 'Y' THEN
490: aso_debug_pub.add('Submit_Q: After hd_shipment_tbl init ', 1, 'N');
491: END IF;
492:
493: l_hd_freight_charge_tbl := ASO_UTILITY_PVT.Query_Freight_Charge_Rows(
486: p_qte_header_id => p_qte_header_rec.quote_header_id,
487: p_qte_line_id => NULL);
488:
489: IF aso_debug_pub.g_debug_flag = 'Y' THEN
490: aso_debug_pub.add('Submit_Q: After hd_shipment_tbl init ', 1, 'N');
491: END IF;
492:
493: l_hd_freight_charge_tbl := ASO_UTILITY_PVT.Query_Freight_Charge_Rows(
494: P_Shipment_Tbl => l_hd_shipment_tbl);
504: ASO_LINE_NUM_INT.RESET_LINE_NUM;
505:
506: l_qte_line_tbl := ASO_UTILITY_PVT.Query_Qte_Line_Rows_Submit (p_qte_header_rec.quote_header_id);
507:
508: IF aso_debug_pub.g_debug_flag = 'Y' THEN
509: aso_debug_pub.add('Submit_Quote - qte_line_tbl.count: '||to_char(l_qte_line_tbl.count), 1, 'N');
510: END IF;
511:
512: FOR i IN 1..l_qte_line_tbl.count LOOP
505:
506: l_qte_line_tbl := ASO_UTILITY_PVT.Query_Qte_Line_Rows_Submit (p_qte_header_rec.quote_header_id);
507:
508: IF aso_debug_pub.g_debug_flag = 'Y' THEN
509: aso_debug_pub.add('Submit_Quote - qte_line_tbl.count: '||to_char(l_qte_line_tbl.count), 1, 'N');
510: END IF;
511:
512: FOR i IN 1..l_qte_line_tbl.count LOOP
513: l_qte_line_id := l_qte_line_tbl(i).quote_line_id;
511:
512: FOR i IN 1..l_qte_line_tbl.count LOOP
513: l_qte_line_id := l_qte_line_tbl(i).quote_line_id;
514:
515: IF aso_debug_pub.g_debug_flag = 'Y' THEN
516: aso_debug_pub.add('Submit_Quote - l_qte_line_id: '||l_qte_line_id, 1, 'N');
517: END IF;
518: -- 2469621 vtariker
519: IF l_qte_line_tbl(i).item_type_code = 'MDL' THEN
512: FOR i IN 1..l_qte_line_tbl.count LOOP
513: l_qte_line_id := l_qte_line_tbl(i).quote_line_id;
514:
515: IF aso_debug_pub.g_debug_flag = 'Y' THEN
516: aso_debug_pub.add('Submit_Quote - l_qte_line_id: '||l_qte_line_id, 1, 'N');
517: END IF;
518: -- 2469621 vtariker
519: IF l_qte_line_tbl(i).item_type_code = 'MDL' THEN
520:
529: END IF;
530: CLOSE C_Get_Config_Flag;
531: RAISE FND_API.G_EXC_ERROR;
532: ELSE
533: IF aso_debug_pub.g_debug_flag = 'Y' THEN
534: aso_debug_pub.add('Submit_Quote - l_complete_config: '||l_complete_config, 1, 'N');
535: aso_debug_pub.add('Submit_Quote - l_valid_config: '||l_valid_config, 1, 'N');
536: aso_debug_pub.add('Submit_Quote - l_instance_id: '||l_instance_id, 1, 'N');
537: END IF;
530: CLOSE C_Get_Config_Flag;
531: RAISE FND_API.G_EXC_ERROR;
532: ELSE
533: IF aso_debug_pub.g_debug_flag = 'Y' THEN
534: aso_debug_pub.add('Submit_Quote - l_complete_config: '||l_complete_config, 1, 'N');
535: aso_debug_pub.add('Submit_Quote - l_valid_config: '||l_valid_config, 1, 'N');
536: aso_debug_pub.add('Submit_Quote - l_instance_id: '||l_instance_id, 1, 'N');
537: END IF;
538:
531: RAISE FND_API.G_EXC_ERROR;
532: ELSE
533: IF aso_debug_pub.g_debug_flag = 'Y' THEN
534: aso_debug_pub.add('Submit_Quote - l_complete_config: '||l_complete_config, 1, 'N');
535: aso_debug_pub.add('Submit_Quote - l_valid_config: '||l_valid_config, 1, 'N');
536: aso_debug_pub.add('Submit_Quote - l_instance_id: '||l_instance_id, 1, 'N');
537: END IF;
538:
539: IF (l_instance_id IS NULL) OR (l_instance_id = FND_API.G_MISS_NUM) THEN -- 2498776 vtariker
532: ELSE
533: IF aso_debug_pub.g_debug_flag = 'Y' THEN
534: aso_debug_pub.add('Submit_Quote - l_complete_config: '||l_complete_config, 1, 'N');
535: aso_debug_pub.add('Submit_Quote - l_valid_config: '||l_valid_config, 1, 'N');
536: aso_debug_pub.add('Submit_Quote - l_instance_id: '||l_instance_id, 1, 'N');
537: END IF;
538:
539: IF (l_instance_id IS NULL) OR (l_instance_id = FND_API.G_MISS_NUM) THEN -- 2498776 vtariker
540:
587: -- pbh/prg
588: l_ln_price_adj_rltship_tbl
589: := ASO_SUBMIT_QUOTE_PVT.Query_Price_Adj_Rltship_Rows(
590: l_tmp_price_adj_tbl(j).price_adjustment_id, i, l_ln_price_adj_rltship_tbl);
591: IF aso_debug_pub.g_debug_flag = 'Y' THEN
592: aso_debug_pub.add('Submit_Q: After l_ln_Price_Adj_Rltship_tbl.count: '||l_ln_Price_Adj_Rltship_tbl.count, 1, 'N');
593: END IF;
594: -- pbh/prg
595:
588: l_ln_price_adj_rltship_tbl
589: := ASO_SUBMIT_QUOTE_PVT.Query_Price_Adj_Rltship_Rows(
590: l_tmp_price_adj_tbl(j).price_adjustment_id, i, l_ln_price_adj_rltship_tbl);
591: IF aso_debug_pub.g_debug_flag = 'Y' THEN
592: aso_debug_pub.add('Submit_Q: After l_ln_Price_Adj_Rltship_tbl.count: '||l_ln_Price_Adj_Rltship_tbl.count, 1, 'N');
593: END IF;
594: -- pbh/prg
595:
596: -- 2800749 vtariker
616: l_tmp_payment_tbl(j).payment_term_id := FND_API.G_MISS_NUM;
617: end if;
618: end if;
619: l_ln_payment_tbl(l_index) := l_tmp_payment_tbl(j);
620: IF aso_debug_pub.g_debug_flag = 'Y' THEN
621: aso_debug_pub.add('Submit_Q: l_tmp_payment_tbl:l_index '||l_index, 1, 'N');
622: aso_debug_pub.add('Submit_Q: l_tmp_payment_tbl(j).qte_line_index '||l_tmp_payment_tbl(j).qte_line_index, 1, 'N');
623: END IF;
624:
617: end if;
618: end if;
619: l_ln_payment_tbl(l_index) := l_tmp_payment_tbl(j);
620: IF aso_debug_pub.g_debug_flag = 'Y' THEN
621: aso_debug_pub.add('Submit_Q: l_tmp_payment_tbl:l_index '||l_index, 1, 'N');
622: aso_debug_pub.add('Submit_Q: l_tmp_payment_tbl(j).qte_line_index '||l_tmp_payment_tbl(j).qte_line_index, 1, 'N');
623: END IF;
624:
625: -- l_index := l_index+1;
618: end if;
619: l_ln_payment_tbl(l_index) := l_tmp_payment_tbl(j);
620: IF aso_debug_pub.g_debug_flag = 'Y' THEN
621: aso_debug_pub.add('Submit_Q: l_tmp_payment_tbl:l_index '||l_index, 1, 'N');
622: aso_debug_pub.add('Submit_Q: l_tmp_payment_tbl(j).qte_line_index '||l_tmp_payment_tbl(j).qte_line_index, 1, 'N');
623: END IF;
624:
625: -- l_index := l_index+1;
626: END LOOP;
657: END LOOP; -- Line_Tbl loop
658:
659: -- pbh/prg
660: l_ln_Price_Adj_Attr_Tbl := ASO_UTILITY_PVT.Query_Price_Adj_Attr_Rows(l_ln_price_adj_tbl);
661: aso_debug_pub.add('vtariker: l_ln_Price_Adj_Attr_Tbl.count: '||l_ln_Price_Adj_Attr_Tbl.count, 1, 'N');
662: -- pbh/prg
663:
664: /*** Will not be required after CC condolidation
665: OPEN C_check_pymnt_type(p_qte_header_rec.quote_header_id);
670: EXIT;
671: END IF;
672:
673: IF l_payment_type_code = 'CREDIT_CARD' THEN
674: IF aso_debug_pub.g_debug_flag = 'Y' THEN
675: aso_debug_pub.add('Submit_Quote - payment_type is CC ', 1, 'N');
676: END IF;
677:
678: IF NVL(FND_PROFILE.Value('ASO_CC_AUTHORIZATION_ENABLED'), 'N') = 'Y' THEN
671: END IF;
672:
673: IF l_payment_type_code = 'CREDIT_CARD' THEN
674: IF aso_debug_pub.g_debug_flag = 'Y' THEN
675: aso_debug_pub.add('Submit_Quote - payment_type is CC ', 1, 'N');
676: END IF;
677:
678: IF NVL(FND_PROFILE.Value('ASO_CC_AUTHORIZATION_ENABLED'), 'N') = 'Y' THEN
679: IF aso_debug_pub.g_debug_flag = 'Y' THEN
675: aso_debug_pub.add('Submit_Quote - payment_type is CC ', 1, 'N');
676: END IF;
677:
678: IF NVL(FND_PROFILE.Value('ASO_CC_AUTHORIZATION_ENABLED'), 'N') = 'Y' THEN
679: IF aso_debug_pub.g_debug_flag = 'Y' THEN
680: aso_debug_pub.add('Submit_Q: CC_Authorization_enabled ', 1, 'N');
681: END IF;
682:
683: IF p_control_rec.CVV2 IS NOT NULL AND p_control_rec.CVV2 <> FND_API.G_MISS_CHAR THEN
676: END IF;
677:
678: IF NVL(FND_PROFILE.Value('ASO_CC_AUTHORIZATION_ENABLED'), 'N') = 'Y' THEN
679: IF aso_debug_pub.g_debug_flag = 'Y' THEN
680: aso_debug_pub.add('Submit_Q: CC_Authorization_enabled ', 1, 'N');
681: END IF;
682:
683: IF p_control_rec.CVV2 IS NOT NULL AND p_control_rec.CVV2 <> FND_API.G_MISS_CHAR THEN
684:
681: END IF;
682:
683: IF p_control_rec.CVV2 IS NOT NULL AND p_control_rec.CVV2 <> FND_API.G_MISS_CHAR THEN
684:
685: IF aso_debug_pub.g_debug_flag = 'Y' THEN
686: aso_debug_pub.add('Submit_Q: Before Authorize_payment p_control_rec.CVV2: '|| p_control_rec.CVV2, 1, 'N');
687: END IF;
688: FOR i in 1..l_hd_payment_tbl.count LOOP
689: l_hd_payment_tbl(i).CVV2 := p_control_rec.CVV2;
682:
683: IF p_control_rec.CVV2 IS NOT NULL AND p_control_rec.CVV2 <> FND_API.G_MISS_CHAR THEN
684:
685: IF aso_debug_pub.g_debug_flag = 'Y' THEN
686: aso_debug_pub.add('Submit_Q: Before Authorize_payment p_control_rec.CVV2: '|| p_control_rec.CVV2, 1, 'N');
687: END IF;
688: FOR i in 1..l_hd_payment_tbl.count LOOP
689: l_hd_payment_tbl(i).CVV2 := p_control_rec.CVV2;
690: END LOOP;
701: X_Msg_Data => X_Msg_Data );
702:
703: l_hd_payment_tbl := l_hd_payment_tbl_out;
704:
705: IF aso_debug_pub.g_debug_flag = 'Y' THEN
706: aso_debug_pub.add('Submit_Q: After Authorize_payment x_return_status: '|| x_return_status, 1, 'N');
707: END IF;
708: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
709: RAISE FND_API.G_EXC_ERROR;
702:
703: l_hd_payment_tbl := l_hd_payment_tbl_out;
704:
705: IF aso_debug_pub.g_debug_flag = 'Y' THEN
706: aso_debug_pub.add('Submit_Q: After Authorize_payment x_return_status: '|| x_return_status, 1, 'N');
707: END IF;
708: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
709: RAISE FND_API.G_EXC_ERROR;
710: END IF;
720: OPEN C_Check_Qte_Status (l_qte_header_rec.quote_header_id);
721: FETCH C_Check_Qte_Status INTO l_istore_source;
722: CLOSE C_Check_Qte_Status;
723:
724: IF aso_debug_pub.g_debug_flag = 'Y' THEN
725: aso_debug_pub.add('Submit_Q: Before Assign_Team: l_qte_header_rec.resource_id: ' || l_qte_header_rec.resource_id, 1, 'Y');
726: aso_debug_pub.add('Submit_Q: Before Assign_Team: l_istore_source: ' || l_istore_source, 1, 'Y');
727: END IF;
728:
721: FETCH C_Check_Qte_Status INTO l_istore_source;
722: CLOSE C_Check_Qte_Status;
723:
724: IF aso_debug_pub.g_debug_flag = 'Y' THEN
725: aso_debug_pub.add('Submit_Q: Before Assign_Team: l_qte_header_rec.resource_id: ' || l_qte_header_rec.resource_id, 1, 'Y');
726: aso_debug_pub.add('Submit_Q: Before Assign_Team: l_istore_source: ' || l_istore_source, 1, 'Y');
727: END IF;
728:
729: IF l_istore_source <> 'Y' OR (l_istore_source = 'Y' AND
722: CLOSE C_Check_Qte_Status;
723:
724: IF aso_debug_pub.g_debug_flag = 'Y' THEN
725: aso_debug_pub.add('Submit_Q: Before Assign_Team: l_qte_header_rec.resource_id: ' || l_qte_header_rec.resource_id, 1, 'Y');
726: aso_debug_pub.add('Submit_Q: Before Assign_Team: l_istore_source: ' || l_istore_source, 1, 'Y');
727: END IF;
728:
729: IF l_istore_source <> 'Y' OR (l_istore_source = 'Y' AND
730: (l_qte_header_rec.resource_id IS NOT NULL AND l_qte_header_rec.resource_id <> FND_API.G_MISS_NUM)) THEN
799: FETCH C_payment_amount into l_payment_amount;
800: CLOSE C_payment_amount;
801:
802: l_Qte_Header_Rec.payment_amount := l_payment_amount;
803: IF aso_debug_pub.g_debug_flag = 'Y' THEN
804: aso_debug_pub.add('Submit_Quote - before create_order l_payment_amount: '||l_payment_amount, 1, 'Y');
805: END IF;
806:
807: ASO_ORDER_INT.Create_order(
800: CLOSE C_payment_amount;
801:
802: l_Qte_Header_Rec.payment_amount := l_payment_amount;
803: IF aso_debug_pub.g_debug_flag = 'Y' THEN
804: aso_debug_pub.add('Submit_Quote - before create_order l_payment_amount: '||l_payment_amount, 1, 'Y');
805: END IF;
806:
807: ASO_ORDER_INT.Create_order(
808: P_Api_Version => 1.0,
840: X_Order_Line_Tbl => lx_Order_Line_Tbl,
841: X_Return_Status => X_Return_Status,
842: X_Msg_Count => X_Msg_Count,
843: X_Msg_Data => X_Msg_Data);
844: IF aso_debug_pub.g_debug_flag = 'Y' THEN
845: aso_debug_pub.add('Submit_Q: After Create_Order x_return_status: '||x_return_status, 1, 'N');
846: END IF;
847: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
848: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
841: X_Return_Status => X_Return_Status,
842: X_Msg_Count => X_Msg_Count,
843: X_Msg_Data => X_Msg_Data);
844: IF aso_debug_pub.g_debug_flag = 'Y' THEN
845: aso_debug_pub.add('Submit_Q: After Create_Order x_return_status: '||x_return_status, 1, 'N');
846: END IF;
847: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
848: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
849: FND_MESSAGE.Set_Name('ASO', 'ASO_API_ERROR_IN_ORDERING');
861: -- is not booked. We raise an error in case the order is not booked.
862: /** Bug# 4045135. Removing this check since deferred scheduling may book orders at a later stage.
863: IF x_return_status = FND_API.G_RET_STS_SUCCESS
864: AND l_order_control_rec.BOOK_FLAG = FND_API.G_TRUE THEN
865: IF aso_debug_pub.g_debug_flag = 'Y' THEN
866: aso_debug_pub.add('Submit_Q: After create_order Success and Book_flag = true ', 1, 'N');
867: END IF;
868: OPEN C_book_flag;
869: FETCH C_book_flag into l_book_flag;
862: /** Bug# 4045135. Removing this check since deferred scheduling may book orders at a later stage.
863: IF x_return_status = FND_API.G_RET_STS_SUCCESS
864: AND l_order_control_rec.BOOK_FLAG = FND_API.G_TRUE THEN
865: IF aso_debug_pub.g_debug_flag = 'Y' THEN
866: aso_debug_pub.add('Submit_Q: After create_order Success and Book_flag = true ', 1, 'N');
867: END IF;
868: OPEN C_book_flag;
869: FETCH C_book_flag into l_book_flag;
870: IF C_book_flag%NOTFOUND THEN
877: END IF;
878: **/
879:
880: -- EDU
881: IF aso_debug_pub.g_debug_flag = 'Y' THEN
882: aso_debug_pub.add('Submit_Quote - before ASO_EDUCATION_INT.Update_OTA_With_OrderLine ', 1, 'N');
883: END IF;
884: ASO_EDUCATION_INT.Update_OTA_With_OrderLine(
885: P_Init_Msg_List => FND_API.G_FALSE,
878: **/
879:
880: -- EDU
881: IF aso_debug_pub.g_debug_flag = 'Y' THEN
882: aso_debug_pub.add('Submit_Quote - before ASO_EDUCATION_INT.Update_OTA_With_OrderLine ', 1, 'N');
883: END IF;
884: ASO_EDUCATION_INT.Update_OTA_With_OrderLine(
885: P_Init_Msg_List => FND_API.G_FALSE,
886: P_Commit => FND_API.G_FALSE,
887: P_Order_Line_Tbl => lx_order_line_tbl,
888: X_Return_Status => x_return_status,
889: X_Msg_Count => x_msg_count,
890: X_Msg_Data => x_msg_data);
891: IF aso_debug_pub.g_debug_flag = 'Y' THEN
892: aso_debug_pub.add('Submit_Quote - after ASO_EDUCATION_INT.Update_OTA_With_OrderLine: '||x_return_status, 1, 'N');
893: END IF;
894: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
895: RAISE FND_API.G_EXC_ERROR;
888: X_Return_Status => x_return_status,
889: X_Msg_Count => x_msg_count,
890: X_Msg_Data => x_msg_data);
891: IF aso_debug_pub.g_debug_flag = 'Y' THEN
892: aso_debug_pub.add('Submit_Quote - after ASO_EDUCATION_INT.Update_OTA_With_OrderLine: '||x_return_status, 1, 'N');
893: END IF;
894: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
895: RAISE FND_API.G_EXC_ERROR;
896: END IF;
921: X_MSG_COUNT => X_MSG_COUNT ,
922: X_MSG_DATA => X_MSG_DATA
923: );
924:
925: IF aso_debug_pub.g_debug_flag = 'Y' THEN
926: aso_debug_pub.add('Submit_Q: After Create_Related_Obj x_return_status: '||x_return_status, 1, 'N');
927: END IF;
928: IF X_RETURN_STATUS <> FND_API.G_RET_STS_SUCCESS THEN
929: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
922: X_MSG_DATA => X_MSG_DATA
923: );
924:
925: IF aso_debug_pub.g_debug_flag = 'Y' THEN
926: aso_debug_pub.add('Submit_Q: After Create_Related_Obj x_return_status: '||x_return_status, 1, 'N');
927: END IF;
928: IF X_RETURN_STATUS <> FND_API.G_RET_STS_SUCCESS THEN
929: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
930: FND_MESSAGE.Set_Name('ASO', 'ASO_API_ERROR_IN_CREATE_RLTN');
981: P_Order_Line_Id => lx_order_line_tbl(i).order_line_id,
982: X_Return_Status => x_Return_Status,
983: X_Msg_Count => X_Msg_Count,
984: X_Msg_Data => X_Msg_Data );
985: IF aso_debug_pub.g_debug_flag = 'Y' THEN
986: aso_debug_pub.add('Submit_Q: After Update_Inst_Details x_return_status: '||x_return_status, 1, 'N');
987: END IF;
988: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
989: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
982: X_Return_Status => x_Return_Status,
983: X_Msg_Count => X_Msg_Count,
984: X_Msg_Data => X_Msg_Data );
985: IF aso_debug_pub.g_debug_flag = 'Y' THEN
986: aso_debug_pub.add('Submit_Q: After Update_Inst_Details x_return_status: '||x_return_status, 1, 'N');
987: END IF;
988: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
989: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
990: FND_MESSAGE.Set_Name('ASO', 'ASO_API_ERROR_IN_UPDATE_INST');
1014: X_Return_Status => x_Return_Status,
1015: X_Msg_Count => X_Msg_Count,
1016: X_Msg_Data => X_Msg_Data,
1017: X_new_RESERVATION_ID => l_reservation_id);
1018: IF aso_debug_pub.g_debug_flag = 'Y' THEN
1019: aso_debug_pub.add('Submit_Q: After Transfer_Reservation x_return_status: '||x_return_status, 1, 'N');
1020: END IF;
1021: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1022: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1015: X_Msg_Count => X_Msg_Count,
1016: X_Msg_Data => X_Msg_Data,
1017: X_new_RESERVATION_ID => l_reservation_id);
1018: IF aso_debug_pub.g_debug_flag = 'Y' THEN
1019: aso_debug_pub.add('Submit_Q: After Transfer_Reservation x_return_status: '||x_return_status, 1, 'N');
1020: END IF;
1021: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1022: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1023: FND_MESSAGE.Set_Name('ASO', 'ASO_API_ERROR_IN_TRANS_RSV');
1031: END IF;
1032: END IF;
1033: END IF;
1034: END LOOP; -- lx_order_line_tbl
1035: IF aso_debug_pub.g_debug_flag = 'Y' THEN
1036: aso_debug_pub.add('Submit_Q: After lx_order_line_tbl loop x_return_status: '||x_return_status, 1, 'N');
1037: END IF;
1038:
1039:
1032: END IF;
1033: END IF;
1034: END LOOP; -- lx_order_line_tbl
1035: IF aso_debug_pub.g_debug_flag = 'Y' THEN
1036: aso_debug_pub.add('Submit_Q: After lx_order_line_tbl loop x_return_status: '||x_return_status, 1, 'N');
1037: END IF;
1038:
1039:
1040: -- lx_return_status := x_return_status -- 1966456
1049: ,x_return_status => x_return_status
1050: ,x_msg_count => x_msg_count
1051: ,x_msg_data => x_msg_data
1052: );
1053: IF aso_debug_pub.g_debug_flag = 'Y' THEN
1054: aso_debug_pub.add('Submit_Q: After Copy_Attachments_to_order x_return_status: '||x_return_status, 1, 'N');
1055: END IF;
1056: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1057: RAISE FND_API.G_EXC_ERROR;
1050: ,x_msg_count => x_msg_count
1051: ,x_msg_data => x_msg_data
1052: );
1053: IF aso_debug_pub.g_debug_flag = 'Y' THEN
1054: aso_debug_pub.add('Submit_Q: After Copy_Attachments_to_order x_return_status: '||x_return_status, 1, 'N');
1055: END IF;
1056: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1057: RAISE FND_API.G_EXC_ERROR;
1058: END if;
1063: -- x_return_status := lx_return_status; -- 1966456
1064:
1065: -- Changes for High Availability
1066:
1067: IF aso_debug_pub.g_debug_flag = 'Y' THEN
1068: aso_debug_pub.add('Submit_Q: HA Test 10 ', 1, 'N');
1069: END IF;
1070:
1071: JTF_HA_STATE_PKG.GET_CURRENT_STATE (
1064:
1065: -- Changes for High Availability
1066:
1067: IF aso_debug_pub.g_debug_flag = 'Y' THEN
1068: aso_debug_pub.add('Submit_Q: HA Test 10 ', 1, 'N');
1069: END IF;
1070:
1071: JTF_HA_STATE_PKG.GET_CURRENT_STATE (
1072: X_CURRENT_STATE => X_Current_State,
1071: JTF_HA_STATE_PKG.GET_CURRENT_STATE (
1072: X_CURRENT_STATE => X_Current_State,
1073: X_RETURN_STATUS => X_Return_Status);
1074:
1075: IF aso_debug_pub.g_debug_flag = 'Y' THEN
1076: aso_debug_pub.add('Submit_Q: After JTF_HA_STATE_PKG.GET_CURRENT_STATE x_return_status: '||x_return_status, 1, 'N');
1077: END IF;
1078: IF x_return_Status = FND_API.G_RET_STS_SUCCESS THEN
1079:
1072: X_CURRENT_STATE => X_Current_State,
1073: X_RETURN_STATUS => X_Return_Status);
1074:
1075: IF aso_debug_pub.g_debug_flag = 'Y' THEN
1076: aso_debug_pub.add('Submit_Q: After JTF_HA_STATE_PKG.GET_CURRENT_STATE x_return_status: '||x_return_status, 1, 'N');
1077: END IF;
1078: IF x_return_Status = FND_API.G_RET_STS_SUCCESS THEN
1079:
1080: IF X_Current_State IN (3,4) THEN
1078: IF x_return_Status = FND_API.G_RET_STS_SUCCESS THEN
1079:
1080: IF X_Current_State IN (3,4) THEN
1081:
1082: IF aso_debug_pub.g_debug_flag = 'Y' THEN
1083: aso_debug_pub.add('Submit_Q: In HA: X_Current_State: '||X_Current_State, 1, 'N');
1084: END IF;
1085: ROLLBACK TO SUBMIT_QUOTE_PVT;
1086:
1079:
1080: IF X_Current_State IN (3,4) THEN
1081:
1082: IF aso_debug_pub.g_debug_flag = 'Y' THEN
1083: aso_debug_pub.add('Submit_Q: In HA: X_Current_State: '||X_Current_State, 1, 'N');
1084: END IF;
1085: ROLLBACK TO SUBMIT_QUOTE_PVT;
1086:
1087: ASO_SUBMIT_QUOTE_PVT.Raise_Quote_Event (
1088: P_Quote_Header_Id => p_qte_header_rec.quote_header_id,
1089: P_Control_Rec => p_control_rec,
1090: X_Return_Status => x_return_status );
1091:
1092: IF aso_debug_pub.g_debug_flag = 'Y' THEN
1093: aso_debug_pub.add('Submit_Q: Raise_Quote_Event: X_Current_State: '||X_Current_State, 1, 'N');
1094: END IF;
1095: IF x_return_Status = FND_API.G_RET_STS_SUCCESS THEN
1096:
1089: P_Control_Rec => p_control_rec,
1090: X_Return_Status => x_return_status );
1091:
1092: IF aso_debug_pub.g_debug_flag = 'Y' THEN
1093: aso_debug_pub.add('Submit_Q: Raise_Quote_Event: X_Current_State: '||X_Current_State, 1, 'N');
1094: END IF;
1095: IF x_return_Status = FND_API.G_RET_STS_SUCCESS THEN
1096:
1097: UPDATE ASO_QUOTE_HEADERS_ALL
1110:
1111: END IF;
1112: -- HA
1113:
1114: IF aso_debug_pub.g_debug_flag = 'Y' THEN
1115: aso_debug_pub.add('Submit_Q: End of submit_quote x_return_status: '||x_return_status, 1, 'N');
1116: END IF;
1117:
1118: -- Debug Message
1111: END IF;
1112: -- HA
1113:
1114: IF aso_debug_pub.g_debug_flag = 'Y' THEN
1115: aso_debug_pub.add('Submit_Q: End of submit_quote x_return_status: '||x_return_status, 1, 'N');
1116: END IF;
1117:
1118: -- Debug Message
1119: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
1318: BEGIN
1319: --Fix for bug 5714535. Setting the output table structure directly instead of
1320: --setting it through the local record structure.
1321:
1322: IF aso_debug_pub.g_debug_flag = 'Y' THEN
1323: aso_debug_pub.add('Begin ASO_SUBMIT_QUOTE_PVT.Query_Tax_Detail_Rows', 1, 'N');
1324: END IF;
1325:
1326: IF P_Qte_Line_Id is NULL or P_Qte_Line_Id = FND_API.G_MISS_NUM THEN
1319: --Fix for bug 5714535. Setting the output table structure directly instead of
1320: --setting it through the local record structure.
1321:
1322: IF aso_debug_pub.g_debug_flag = 'Y' THEN
1323: aso_debug_pub.add('Begin ASO_SUBMIT_QUOTE_PVT.Query_Tax_Detail_Rows', 1, 'N');
1324: END IF;
1325:
1326: IF P_Qte_Line_Id is NULL or P_Qte_Line_Id = FND_API.G_MISS_NUM THEN
1327:
1326: IF P_Qte_Line_Id is NULL or P_Qte_Line_Id = FND_API.G_MISS_NUM THEN
1327:
1328: FOR tax_rec IN c_tax1 LOOP
1329: l_tax_det_count := lx_tax_detail_tbl.COUNT+1;
1330: IF aso_debug_pub.g_debug_flag = 'Y' THEN
1331: aso_debug_pub.add('Query_Tax_Detail_Rows - l_tax_det_count: ' || l_tax_det_count, 1, 'N');
1332: END IF;
1333:
1334: lx_tax_detail_tbl(l_tax_det_count).TAX_DETAIL_ID := tax_rec.TAX_DETAIL_ID;
1327:
1328: FOR tax_rec IN c_tax1 LOOP
1329: l_tax_det_count := lx_tax_detail_tbl.COUNT+1;
1330: IF aso_debug_pub.g_debug_flag = 'Y' THEN
1331: aso_debug_pub.add('Query_Tax_Detail_Rows - l_tax_det_count: ' || l_tax_det_count, 1, 'N');
1332: END IF;
1333:
1334: lx_tax_detail_tbl(l_tax_det_count).TAX_DETAIL_ID := tax_rec.TAX_DETAIL_ID;
1335: lx_tax_detail_tbl(l_tax_det_count).CREATION_DATE := tax_rec.CREATION_DATE;
1420: -- lx_tax_detail_tbl(lx_tax_detail_tbl.COUNT+1) := l_tax_detail_rec;
1421: END LOOP;
1422: END IF;
1423:
1424: IF aso_debug_pub.g_debug_flag = 'Y' THEN
1425: aso_debug_pub.add('ASO_SUBMIT_QUOTE_PVT.Query_Tax_Detail_Rows - end', 1, 'N');
1426: END IF;
1427: RETURN lx_tax_detail_tbl;
1428: END Query_Tax_Detail_Rows;
1421: END LOOP;
1422: END IF;
1423:
1424: IF aso_debug_pub.g_debug_flag = 'Y' THEN
1425: aso_debug_pub.add('ASO_SUBMIT_QUOTE_PVT.Query_Tax_Detail_Rows - end', 1, 'N');
1426: END IF;
1427: RETURN lx_tax_detail_tbl;
1428: END Query_Tax_Detail_Rows;
1429:
3421: l_Event wf_event_t;
3422:
3423: BEGIN
3424:
3425: IF aso_debug_pub.g_debug_flag = 'Y' THEN
3426: aso_debug_pub.add('Raise_Quote_Event: P_Quote_Header_id: '||P_Quote_Header_id, 1, 'N');
3427: aso_debug_pub.add('Raise_Quote_Event: P_Control_Rec.Calculate_Price: '||P_Control_Rec.Calculate_Price, 1, 'N');
3428: aso_debug_pub.add('Raise_Quote_Event: P_Control_Rec.Book_Flag: '||P_Control_Rec.Book_Flag, 1, 'N');
3429: aso_debug_pub.add('Raise_Quote_Event: P_Control_Rec.Server_Id: '||P_Control_Rec.Server_Id, 1, 'N');
3422:
3423: BEGIN
3424:
3425: IF aso_debug_pub.g_debug_flag = 'Y' THEN
3426: aso_debug_pub.add('Raise_Quote_Event: P_Quote_Header_id: '||P_Quote_Header_id, 1, 'N');
3427: aso_debug_pub.add('Raise_Quote_Event: P_Control_Rec.Calculate_Price: '||P_Control_Rec.Calculate_Price, 1, 'N');
3428: aso_debug_pub.add('Raise_Quote_Event: P_Control_Rec.Book_Flag: '||P_Control_Rec.Book_Flag, 1, 'N');
3429: aso_debug_pub.add('Raise_Quote_Event: P_Control_Rec.Server_Id: '||P_Control_Rec.Server_Id, 1, 'N');
3430: END IF;
3423: BEGIN
3424:
3425: IF aso_debug_pub.g_debug_flag = 'Y' THEN
3426: aso_debug_pub.add('Raise_Quote_Event: P_Quote_Header_id: '||P_Quote_Header_id, 1, 'N');
3427: aso_debug_pub.add('Raise_Quote_Event: P_Control_Rec.Calculate_Price: '||P_Control_Rec.Calculate_Price, 1, 'N');
3428: aso_debug_pub.add('Raise_Quote_Event: P_Control_Rec.Book_Flag: '||P_Control_Rec.Book_Flag, 1, 'N');
3429: aso_debug_pub.add('Raise_Quote_Event: P_Control_Rec.Server_Id: '||P_Control_Rec.Server_Id, 1, 'N');
3430: END IF;
3431:
3424:
3425: IF aso_debug_pub.g_debug_flag = 'Y' THEN
3426: aso_debug_pub.add('Raise_Quote_Event: P_Quote_Header_id: '||P_Quote_Header_id, 1, 'N');
3427: aso_debug_pub.add('Raise_Quote_Event: P_Control_Rec.Calculate_Price: '||P_Control_Rec.Calculate_Price, 1, 'N');
3428: aso_debug_pub.add('Raise_Quote_Event: P_Control_Rec.Book_Flag: '||P_Control_Rec.Book_Flag, 1, 'N');
3429: aso_debug_pub.add('Raise_Quote_Event: P_Control_Rec.Server_Id: '||P_Control_Rec.Server_Id, 1, 'N');
3430: END IF;
3431:
3432: X_Return_Status := FND_API.G_RET_STS_SUCCESS;
3425: IF aso_debug_pub.g_debug_flag = 'Y' THEN
3426: aso_debug_pub.add('Raise_Quote_Event: P_Quote_Header_id: '||P_Quote_Header_id, 1, 'N');
3427: aso_debug_pub.add('Raise_Quote_Event: P_Control_Rec.Calculate_Price: '||P_Control_Rec.Calculate_Price, 1, 'N');
3428: aso_debug_pub.add('Raise_Quote_Event: P_Control_Rec.Book_Flag: '||P_Control_Rec.Book_Flag, 1, 'N');
3429: aso_debug_pub.add('Raise_Quote_Event: P_Control_Rec.Server_Id: '||P_Control_Rec.Server_Id, 1, 'N');
3430: END IF;
3431:
3432: X_Return_Status := FND_API.G_RET_STS_SUCCESS;
3433:
3490: l_Qte_Header_Rec ASO_QUOTE_PUB.Qte_Header_Rec_Type := ASO_QUOTE_PUB.G_MISS_Qte_Header_Rec;
3491:
3492: BEGIN
3493:
3494: IF aso_debug_pub.g_debug_flag = 'Y' THEN
3495: aso_debug_pub.add('Quote_Order_High_Availability: P_Quote_Header_id: '||P_Quote_Header_id, 1, 'N');
3496: aso_debug_pub.add('Quote_Order_High_Availability: P_Book_Flag: '||P_Book_Flag, 1, 'N');
3497: aso_debug_pub.add('Quote_Order_High_Availability: P_Calculate_Flag: '||P_Calculate_Flag, 1, 'N');
3498: aso_debug_pub.add('Quote_Order_High_Availability: P_Server_Id: '||P_Server_Id, 1, 'N');
3491:
3492: BEGIN
3493:
3494: IF aso_debug_pub.g_debug_flag = 'Y' THEN
3495: aso_debug_pub.add('Quote_Order_High_Availability: P_Quote_Header_id: '||P_Quote_Header_id, 1, 'N');
3496: aso_debug_pub.add('Quote_Order_High_Availability: P_Book_Flag: '||P_Book_Flag, 1, 'N');
3497: aso_debug_pub.add('Quote_Order_High_Availability: P_Calculate_Flag: '||P_Calculate_Flag, 1, 'N');
3498: aso_debug_pub.add('Quote_Order_High_Availability: P_Server_Id: '||P_Server_Id, 1, 'N');
3499: END IF;
3492: BEGIN
3493:
3494: IF aso_debug_pub.g_debug_flag = 'Y' THEN
3495: aso_debug_pub.add('Quote_Order_High_Availability: P_Quote_Header_id: '||P_Quote_Header_id, 1, 'N');
3496: aso_debug_pub.add('Quote_Order_High_Availability: P_Book_Flag: '||P_Book_Flag, 1, 'N');
3497: aso_debug_pub.add('Quote_Order_High_Availability: P_Calculate_Flag: '||P_Calculate_Flag, 1, 'N');
3498: aso_debug_pub.add('Quote_Order_High_Availability: P_Server_Id: '||P_Server_Id, 1, 'N');
3499: END IF;
3500:
3493:
3494: IF aso_debug_pub.g_debug_flag = 'Y' THEN
3495: aso_debug_pub.add('Quote_Order_High_Availability: P_Quote_Header_id: '||P_Quote_Header_id, 1, 'N');
3496: aso_debug_pub.add('Quote_Order_High_Availability: P_Book_Flag: '||P_Book_Flag, 1, 'N');
3497: aso_debug_pub.add('Quote_Order_High_Availability: P_Calculate_Flag: '||P_Calculate_Flag, 1, 'N');
3498: aso_debug_pub.add('Quote_Order_High_Availability: P_Server_Id: '||P_Server_Id, 1, 'N');
3499: END IF;
3500:
3501: l_Control_Rec.Book_Flag := P_Book_Flag;
3494: IF aso_debug_pub.g_debug_flag = 'Y' THEN
3495: aso_debug_pub.add('Quote_Order_High_Availability: P_Quote_Header_id: '||P_Quote_Header_id, 1, 'N');
3496: aso_debug_pub.add('Quote_Order_High_Availability: P_Book_Flag: '||P_Book_Flag, 1, 'N');
3497: aso_debug_pub.add('Quote_Order_High_Availability: P_Calculate_Flag: '||P_Calculate_Flag, 1, 'N');
3498: aso_debug_pub.add('Quote_Order_High_Availability: P_Server_Id: '||P_Server_Id, 1, 'N');
3499: END IF;
3500:
3501: l_Control_Rec.Book_Flag := P_Book_Flag;
3502: l_Control_Rec.Calculate_Price := P_Calculate_Flag;