512: l_quote_amount :=0;
513: END IF;
514:
515: x_quote_amount:=FND_NUMBER.NUMBER_TO_CANONICAL(NVL(l_quote_amount,0));
516: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
517: aso_debug_pub.add('ASO_PRICING_INT:In Get_quote_amount: x_quote_amount:'||x_quote_amount,1,'Y');
518: END IF;
519: RETURN x_quote_amount;
520:
513: END IF;
514:
515: x_quote_amount:=FND_NUMBER.NUMBER_TO_CANONICAL(NVL(l_quote_amount,0));
516: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
517: aso_debug_pub.add('ASO_PRICING_INT:In Get_quote_amount: x_quote_amount:'||x_quote_amount,1,'Y');
518: END IF;
519: RETURN x_quote_amount;
520:
521: END Get_quote_Amount;
613: THEN
614: FND_MSG_PUB.initialize;
615: END IF;
616:
617: aso_debug_pub.g_debug_flag := nvl(fnd_profile.value('ASO_ENABLE_DEBUG'),'N');
618:
619: x_return_status := FND_API.G_RET_STS_SUCCESS;
620: l_request_type := NVL(p_control_rec.request_type,'ASO');
621: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
617: aso_debug_pub.g_debug_flag := nvl(fnd_profile.value('ASO_ENABLE_DEBUG'),'N');
618:
619: x_return_status := FND_API.G_RET_STS_SUCCESS;
620: l_request_type := NVL(p_control_rec.request_type,'ASO');
621: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
622: aso_debug_pub.add('ASO_PRICING_INT:In Pricing Item: p_qte_header_rec.quote_status_id'
623: ||p_qte_header_rec.quote_status_id,1,'Y');
624: END IF;
625: -- Bug No 6510202. Header rec needs to be intialized since the header rec frozen date is passed
618:
619: x_return_status := FND_API.G_RET_STS_SUCCESS;
620: l_request_type := NVL(p_control_rec.request_type,'ASO');
621: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
622: aso_debug_pub.add('ASO_PRICING_INT:In Pricing Item: p_qte_header_rec.quote_status_id'
623: ||p_qte_header_rec.quote_status_id,1,'Y');
624: END IF;
625: -- Bug No 6510202. Header rec needs to be intialized since the header rec frozen date is passed
626: -- to line rec price effective date which would be picked by pricing for selecting the correct price list
749: l_control_rec.TEMP_TABLE_INSERT_FLAG := 'Y';
750: l_control_rec.GSA_CHECK_FLAG := 'Y';
751: l_control_rec.GSA_DUP_CHECK_FLAG := 'Y';
752: END IF;
753: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
754: aso_debug_pub.add('ASO_PRICING_INT:In Pricing Item: l_control_rec.pricing_event'
755: ||l_control_rec.pricing_event,1,'Y');
756: aso_debug_pub.add('ASO_PRICING_INT:In Pricing Item: l_request_type'||l_request_type,1,'Y');
757: END IF;
750: l_control_rec.GSA_CHECK_FLAG := 'Y';
751: l_control_rec.GSA_DUP_CHECK_FLAG := 'Y';
752: END IF;
753: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
754: aso_debug_pub.add('ASO_PRICING_INT:In Pricing Item: l_control_rec.pricing_event'
755: ||l_control_rec.pricing_event,1,'Y');
756: aso_debug_pub.add('ASO_PRICING_INT:In Pricing Item: l_request_type'||l_request_type,1,'Y');
757: END IF;
758:
752: END IF;
753: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
754: aso_debug_pub.add('ASO_PRICING_INT:In Pricing Item: l_control_rec.pricing_event'
755: ||l_control_rec.pricing_event,1,'Y');
756: aso_debug_pub.add('ASO_PRICING_INT:In Pricing Item: l_request_type'||l_request_type,1,'Y');
757: END IF;
758:
759:
760: /* Change for populating QP_PREQ_GRP.CONTROL_RECORD_TYPE.ORG_ID Yogeshwar (MOAC) */
791: x_related_lines_tbl => lx_req_related_lines_tbl,
792: x_return_status => x_return_status,
793: x_return_status_text => l_return_status_text);
794:
795: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
796: aso_debug_pub.add('ASO_PRICING_INT:Price Request Status from Pricing Item:'||x_return_status,1,'Y');
797: END IF;
798:
799: ASO_PRICING_INT.G_LINE_REC := NULL;
792: x_return_status => x_return_status,
793: x_return_status_text => l_return_status_text);
794:
795: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
796: aso_debug_pub.add('ASO_PRICING_INT:Price Request Status from Pricing Item:'||x_return_status,1,'Y');
797: END IF;
798:
799: ASO_PRICING_INT.G_LINE_REC := NULL;
800: ASO_PRICING_INT.G_HEADER_REC := NULL;
813: QP_PREQ_PUB.g_back_calculation_sts) THEN
814: x_return_status := FND_API.G_RET_STS_ERROR;
815: END IF;
816:
817: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
818: aso_debug_pub.add('ASO_PRICING_INT:Fnd_Profile Value for GSA:'
819: ||FND_PROFILE.value('ASO_GSA_PRICING'), 1, 'N');
820: aso_debug_pub.add('ASO_PRICING_INT:After price request in pricing_item for line id '
821: ||lx_req_line_rec.line_id ||'status code '||lx_req_line_rec.status_code, 1, 'N');
814: x_return_status := FND_API.G_RET_STS_ERROR;
815: END IF;
816:
817: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
818: aso_debug_pub.add('ASO_PRICING_INT:Fnd_Profile Value for GSA:'
819: ||FND_PROFILE.value('ASO_GSA_PRICING'), 1, 'N');
820: aso_debug_pub.add('ASO_PRICING_INT:After price request in pricing_item for line id '
821: ||lx_req_line_rec.line_id ||'status code '||lx_req_line_rec.status_code, 1, 'N');
822: END IF;
816:
817: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
818: aso_debug_pub.add('ASO_PRICING_INT:Fnd_Profile Value for GSA:'
819: ||FND_PROFILE.value('ASO_GSA_PRICING'), 1, 'N');
820: aso_debug_pub.add('ASO_PRICING_INT:After price request in pricing_item for line id '
821: ||lx_req_line_rec.line_id ||'status code '||lx_req_line_rec.status_code, 1, 'N');
822: END IF;
823:
824: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
841: lv_return_status := x_return_status;
842: END IF;
843: i := lx_req_line_tbl.NEXT(i);
844: END LOOP;
845: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
846: aso_debug_pub.add('ASO_PRICING_INT:Before Copy_Request_To_Line in pricing_item', 1, 'Y');
847: END IF;
848: ASO_PRICING_CALLBACK_PVT.Copy_Request_To_Line (
849: p_req_line_tbl => lx_req_line_tbl,
842: END IF;
843: i := lx_req_line_tbl.NEXT(i);
844: END LOOP;
845: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
846: aso_debug_pub.add('ASO_PRICING_INT:Before Copy_Request_To_Line in pricing_item', 1, 'Y');
847: END IF;
848: ASO_PRICING_CALLBACK_PVT.Copy_Request_To_Line (
849: p_req_line_tbl => lx_req_line_tbl,
850: p_req_line_qual => lx_Req_qual_tbl,
859: x_qte_line_dtl_tbl => x_qte_line_dtl_tbl,
860: x_price_adj_tbl => x_price_adj_tbl,
861: x_price_adj_attr_tbl => x_price_adj_attr_tbl,
862: x_price_adj_rltship_tbl => x_price_adj_rltship_tbl);
863: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
864: aso_debug_pub.add('ASO_PRICING_INT:after Copy_Request_To_Line in pricing_item', 1, 'Y');
865: END IF;
866:
867: -- Standard check for p_commit
860: x_price_adj_tbl => x_price_adj_tbl,
861: x_price_adj_attr_tbl => x_price_adj_attr_tbl,
862: x_price_adj_rltship_tbl => x_price_adj_rltship_tbl);
863: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
864: aso_debug_pub.add('ASO_PRICING_INT:after Copy_Request_To_Line in pricing_item', 1, 'Y');
865: END IF;
866:
867: -- Standard check for p_commit
868: IF FND_API.to_Boolean( p_commit )
968: THEN
969: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
970: END IF;
971:
972: aso_debug_pub.g_debug_flag := nvl(fnd_profile.value('ASO_ENABLE_DEBUG'),'N');
973:
974: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
975: aso_debug_pub.add('ASO_PRICING_INT:Start of Pricing Order.....',1,'Y');
976: END IF;
970: END IF;
971:
972: aso_debug_pub.g_debug_flag := nvl(fnd_profile.value('ASO_ENABLE_DEBUG'),'N');
973:
974: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
975: aso_debug_pub.add('ASO_PRICING_INT:Start of Pricing Order.....',1,'Y');
976: END IF;
977:
978: -- Initialize message list if p_init_msg_list is set to TRUE.
971:
972: aso_debug_pub.g_debug_flag := nvl(fnd_profile.value('ASO_ENABLE_DEBUG'),'N');
973:
974: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
975: aso_debug_pub.add('ASO_PRICING_INT:Start of Pricing Order.....',1,'Y');
976: END IF;
977:
978: -- Initialize message list if p_init_msg_list is set to TRUE.
979: IF FND_API.to_Boolean( p_init_msg_list )
977:
978: -- Initialize message list if p_init_msg_list is set to TRUE.
979: IF FND_API.to_Boolean( p_init_msg_list )
980: THEN
981: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
982: aso_debug_pub.add('ASO_PRICING_INT:Begin FND_API.to_Boolean'||p_init_msg_list, 1, 'Y');
983: END IF;
984: FND_MSG_PUB.initialize;
985: END IF;
978: -- Initialize message list if p_init_msg_list is set to TRUE.
979: IF FND_API.to_Boolean( p_init_msg_list )
980: THEN
981: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
982: aso_debug_pub.add('ASO_PRICING_INT:Begin FND_API.to_Boolean'||p_init_msg_list, 1, 'Y');
983: END IF;
984: FND_MSG_PUB.initialize;
985: END IF;
986:
987: x_return_status := FND_API.G_RET_STS_SUCCESS;
988:
989: ASO_PRICING_CORE_PVT.Initialize_Global_Tables;
990:
991: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
992: aso_debug_pub.add('ASO_PRICING_INT:p_control_rec.request_type:'||p_control_rec.request_type,1,'Y');
993: aso_debug_pub.add('ASO_PRICING_INT:p_control_rec.pricing_event:'||p_control_rec.pricing_event,1,'Y');
994: END IF;
995: l_request_type := p_control_rec.request_type;
988:
989: ASO_PRICING_CORE_PVT.Initialize_Global_Tables;
990:
991: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
992: aso_debug_pub.add('ASO_PRICING_INT:p_control_rec.request_type:'||p_control_rec.request_type,1,'Y');
993: aso_debug_pub.add('ASO_PRICING_INT:p_control_rec.pricing_event:'||p_control_rec.pricing_event,1,'Y');
994: END IF;
995: l_request_type := p_control_rec.request_type;
996: l_pricing_event := p_control_rec.pricing_event;
989: ASO_PRICING_CORE_PVT.Initialize_Global_Tables;
990:
991: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
992: aso_debug_pub.add('ASO_PRICING_INT:p_control_rec.request_type:'||p_control_rec.request_type,1,'Y');
993: aso_debug_pub.add('ASO_PRICING_INT:p_control_rec.pricing_event:'||p_control_rec.pricing_event,1,'Y');
994: END IF;
995: l_request_type := p_control_rec.request_type;
996: l_pricing_event := p_control_rec.pricing_event;
997:
994: END IF;
995: l_request_type := p_control_rec.request_type;
996: l_pricing_event := p_control_rec.pricing_event;
997:
998: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
999: aso_debug_pub.add('ASO_PRICING_INT:Pricing Order Code Path Determination Flag - PRICE_CONFIG_FLAG:'
1000: || p_control_rec.PRICE_CONFIG_FLAG,1,'Y');
1001: aso_debug_pub.add('ASO_PRICING_INT:p_qte_line_tbl.count:'||nvl(p_qte_line_tbl.count,0),1,'Y');
1002: END IF;
995: l_request_type := p_control_rec.request_type;
996: l_pricing_event := p_control_rec.pricing_event;
997:
998: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
999: aso_debug_pub.add('ASO_PRICING_INT:Pricing Order Code Path Determination Flag - PRICE_CONFIG_FLAG:'
1000: || p_control_rec.PRICE_CONFIG_FLAG,1,'Y');
1001: aso_debug_pub.add('ASO_PRICING_INT:p_qte_line_tbl.count:'||nvl(p_qte_line_tbl.count,0),1,'Y');
1002: END IF;
1003: If p_control_rec.PRICE_CONFIG_FLAG = 'Y' then
997:
998: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
999: aso_debug_pub.add('ASO_PRICING_INT:Pricing Order Code Path Determination Flag - PRICE_CONFIG_FLAG:'
1000: || p_control_rec.PRICE_CONFIG_FLAG,1,'Y');
1001: aso_debug_pub.add('ASO_PRICING_INT:p_qte_line_tbl.count:'||nvl(p_qte_line_tbl.count,0),1,'Y');
1002: END IF;
1003: If p_control_rec.PRICE_CONFIG_FLAG = 'Y' then
1004: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1005: aso_debug_pub.add('ASO_PRICING_INT:Before Pricing Request Configurator Code Path Begins',1,'Y');
1000: || p_control_rec.PRICE_CONFIG_FLAG,1,'Y');
1001: aso_debug_pub.add('ASO_PRICING_INT:p_qte_line_tbl.count:'||nvl(p_qte_line_tbl.count,0),1,'Y');
1002: END IF;
1003: If p_control_rec.PRICE_CONFIG_FLAG = 'Y' then
1004: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1005: aso_debug_pub.add('ASO_PRICING_INT:Before Pricing Request Configurator Code Path Begins',1,'Y');
1006: END IF;
1007:
1008: ASO_PRICING_CALLBACK_PVT.Config_Callback_Pricing_Order(
1001: aso_debug_pub.add('ASO_PRICING_INT:p_qte_line_tbl.count:'||nvl(p_qte_line_tbl.count,0),1,'Y');
1002: END IF;
1003: If p_control_rec.PRICE_CONFIG_FLAG = 'Y' then
1004: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1005: aso_debug_pub.add('ASO_PRICING_INT:Before Pricing Request Configurator Code Path Begins',1,'Y');
1006: END IF;
1007:
1008: ASO_PRICING_CALLBACK_PVT.Config_Callback_Pricing_Order(
1009: P_Api_Version_Number => P_Api_Version_Number,
1033: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1034: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1035: END IF;
1036:
1037: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1038: aso_debug_pub.add('ASO_PRICING_INT:After Config_Callback_Pricing_Order:x_qte_line_tbl.count:'||nvl(x_qte_line_tbl.count,0),1,'Y');
1039: If x_qte_line_tbl.count > 0 then
1040: For i in 1..x_qte_line_tbl.count loop
1041: aso_debug_pub.add('ASO_PRICING_INT:x_qte_line_tbl('||i||').LINE_LIST_PRICE: '||x_qte_line_tbl(i).LINE_LIST_PRICE,1,'Y');
1034: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1035: END IF;
1036:
1037: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1038: aso_debug_pub.add('ASO_PRICING_INT:After Config_Callback_Pricing_Order:x_qte_line_tbl.count:'||nvl(x_qte_line_tbl.count,0),1,'Y');
1039: If x_qte_line_tbl.count > 0 then
1040: For i in 1..x_qte_line_tbl.count loop
1041: aso_debug_pub.add('ASO_PRICING_INT:x_qte_line_tbl('||i||').LINE_LIST_PRICE: '||x_qte_line_tbl(i).LINE_LIST_PRICE,1,'Y');
1042: aso_debug_pub.add('ASO_PRICING_INT:x_qte_line_tbl('||i||').LINE_QUOTE_PRICE: '||x_qte_line_tbl(i).LINE_QUOTE_PRICE,1,'Y');
1037: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1038: aso_debug_pub.add('ASO_PRICING_INT:After Config_Callback_Pricing_Order:x_qte_line_tbl.count:'||nvl(x_qte_line_tbl.count,0),1,'Y');
1039: If x_qte_line_tbl.count > 0 then
1040: For i in 1..x_qte_line_tbl.count loop
1041: aso_debug_pub.add('ASO_PRICING_INT:x_qte_line_tbl('||i||').LINE_LIST_PRICE: '||x_qte_line_tbl(i).LINE_LIST_PRICE,1,'Y');
1042: aso_debug_pub.add('ASO_PRICING_INT:x_qte_line_tbl('||i||').LINE_QUOTE_PRICE: '||x_qte_line_tbl(i).LINE_QUOTE_PRICE,1,'Y');
1043: aso_debug_pub.add('ASO_PRICING_INT:x_qte_line_tbl('||i||').INVENTORY_ITEM_ID: '||x_qte_line_tbl(i).INVENTORY_ITEM_ID,1,'Y');
1044: End Loop;
1045: End If;
1038: aso_debug_pub.add('ASO_PRICING_INT:After Config_Callback_Pricing_Order:x_qte_line_tbl.count:'||nvl(x_qte_line_tbl.count,0),1,'Y');
1039: If x_qte_line_tbl.count > 0 then
1040: For i in 1..x_qte_line_tbl.count loop
1041: aso_debug_pub.add('ASO_PRICING_INT:x_qte_line_tbl('||i||').LINE_LIST_PRICE: '||x_qte_line_tbl(i).LINE_LIST_PRICE,1,'Y');
1042: aso_debug_pub.add('ASO_PRICING_INT:x_qte_line_tbl('||i||').LINE_QUOTE_PRICE: '||x_qte_line_tbl(i).LINE_QUOTE_PRICE,1,'Y');
1043: aso_debug_pub.add('ASO_PRICING_INT:x_qte_line_tbl('||i||').INVENTORY_ITEM_ID: '||x_qte_line_tbl(i).INVENTORY_ITEM_ID,1,'Y');
1044: End Loop;
1045: End If;
1046:
1039: If x_qte_line_tbl.count > 0 then
1040: For i in 1..x_qte_line_tbl.count loop
1041: aso_debug_pub.add('ASO_PRICING_INT:x_qte_line_tbl('||i||').LINE_LIST_PRICE: '||x_qte_line_tbl(i).LINE_LIST_PRICE,1,'Y');
1042: aso_debug_pub.add('ASO_PRICING_INT:x_qte_line_tbl('||i||').LINE_QUOTE_PRICE: '||x_qte_line_tbl(i).LINE_QUOTE_PRICE,1,'Y');
1043: aso_debug_pub.add('ASO_PRICING_INT:x_qte_line_tbl('||i||').INVENTORY_ITEM_ID: '||x_qte_line_tbl(i).INVENTORY_ITEM_ID,1,'Y');
1044: End Loop;
1045: End If;
1046:
1047: END IF;-- ASO_DEBUG_PUB.G_Debug_Flag = 'Y'
1043: aso_debug_pub.add('ASO_PRICING_INT:x_qte_line_tbl('||i||').INVENTORY_ITEM_ID: '||x_qte_line_tbl(i).INVENTORY_ITEM_ID,1,'Y');
1044: End Loop;
1045: End If;
1046:
1047: END IF;-- ASO_DEBUG_PUB.G_Debug_Flag = 'Y'
1048:
1049: Else
1050: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1051: aso_debug_pub.add('ASO_PRICING_INT: p_control_rec.price_mode: '||NVL(p_control_rec.price_mode,'NULL'),1,'Y');
1046:
1047: END IF;-- ASO_DEBUG_PUB.G_Debug_Flag = 'Y'
1048:
1049: Else
1050: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1051: aso_debug_pub.add('ASO_PRICING_INT: p_control_rec.price_mode: '||NVL(p_control_rec.price_mode,'NULL'),1,'Y');
1052: END IF;
1053:
1054: --Non Configurator Code Path
1047: END IF;-- ASO_DEBUG_PUB.G_Debug_Flag = 'Y'
1048:
1049: Else
1050: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1051: aso_debug_pub.add('ASO_PRICING_INT: p_control_rec.price_mode: '||NVL(p_control_rec.price_mode,'NULL'),1,'Y');
1052: END IF;
1053:
1054: --Non Configurator Code Path
1055:
1119:
1120: End If;--NVL(p_control_rec.price_mode,'ENTIRE_QUOTE') = 'ENTIRE_QUOTE'
1121:
1122:
1123: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1124: aso_debug_pub.add('ASO_PRICING_INT:After Entire_Quote:lx_qte_line_tbl.count:'||nvl(lx_qte_line_tbl.count,0),1,'Y');
1125: END IF;
1126:
1127: x_qte_line_tbl:= p_qte_line_tbl;
1120: End If;--NVL(p_control_rec.price_mode,'ENTIRE_QUOTE') = 'ENTIRE_QUOTE'
1121:
1122:
1123: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1124: aso_debug_pub.add('ASO_PRICING_INT:After Entire_Quote:lx_qte_line_tbl.count:'||nvl(lx_qte_line_tbl.count,0),1,'Y');
1125: END IF;
1126:
1127: x_qte_line_tbl:= p_qte_line_tbl;
1128:
1132: end loop;
1133: end If;
1134: End if;--p_control_rec.PRICE_CONFIG_FLAG = 'Y'
1135:
1136: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1137: aso_debug_pub.add('ASO_PRICING_INT:End of Pricing Order:x_qte_line_tbl.count:'||nvl(x_qte_line_tbl.count,0),1,'Y');
1138: END IF;
1139:
1140: FND_MSG_PUB.Count_And_Get
1133: end If;
1134: End if;--p_control_rec.PRICE_CONFIG_FLAG = 'Y'
1135:
1136: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1137: aso_debug_pub.add('ASO_PRICING_INT:End of Pricing Order:x_qte_line_tbl.count:'||nvl(x_qte_line_tbl.count,0),1,'Y');
1138: END IF;
1139:
1140: FND_MSG_PUB.Count_And_Get
1141: ( p_encoded => 'F',
1144: );
1145:
1146: for l in 1 .. x_msg_count loop
1147: x_msg_data := fnd_msg_pub.get( p_msg_index => l, p_encoded => 'F');
1148: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1149: aso_debug_pub.add('ASO_PRICING_INT:Messge count and get '||x_msg_data, 1, 'Y');
1150: aso_debug_pub.add('ASO_PRICING_INT:Messge count and get '||x_msg_count, 1, 'Y');
1151: END IF;
1152: end loop;
1145:
1146: for l in 1 .. x_msg_count loop
1147: x_msg_data := fnd_msg_pub.get( p_msg_index => l, p_encoded => 'F');
1148: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1149: aso_debug_pub.add('ASO_PRICING_INT:Messge count and get '||x_msg_data, 1, 'Y');
1150: aso_debug_pub.add('ASO_PRICING_INT:Messge count and get '||x_msg_count, 1, 'Y');
1151: END IF;
1152: end loop;
1153:
1146: for l in 1 .. x_msg_count loop
1147: x_msg_data := fnd_msg_pub.get( p_msg_index => l, p_encoded => 'F');
1148: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1149: aso_debug_pub.add('ASO_PRICING_INT:Messge count and get '||x_msg_data, 1, 'Y');
1150: aso_debug_pub.add('ASO_PRICING_INT:Messge count and get '||x_msg_count, 1, 'Y');
1151: END IF;
1152: end loop;
1153:
1154: EXCEPTION
1152: end loop;
1153:
1154: EXCEPTION
1155: WHEN FND_API.G_EXC_ERROR THEN
1156: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1157: aso_debug_pub.add('ASO_PRICING_INT:after inside EXCEPTION return status'||x_return_status, 1, 'Y');
1158: END IF;
1159: ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
1160: P_API_NAME => L_API_NAME
1153:
1154: EXCEPTION
1155: WHEN FND_API.G_EXC_ERROR THEN
1156: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1157: aso_debug_pub.add('ASO_PRICING_INT:after inside EXCEPTION return status'||x_return_status, 1, 'Y');
1158: END IF;
1159: ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
1160: P_API_NAME => L_API_NAME
1161: ,P_PKG_NAME => G_PKG_NAME
1258: THEN
1259: FND_MSG_PUB.initialize;
1260: END IF;
1261:
1262: aso_debug_pub.g_debug_flag := nvl(fnd_profile.value('ASO_ENABLE_DEBUG'),'N');
1263:
1264: x_return_status := FND_API.G_RET_STS_SUCCESS;
1265: l_qte_line_rec := ASO_UTILITY_PVT.Query_Qte_Line_Row(p_qte_line_id);
1266: l_qte_header_id := l_qte_line_rec.QUOTE_HEADER_ID;
1330: /* Changed the delete statement as per bug 1874082 */
1331: /*Removed the Complex Delete Statement with UNION bug 2585468 */
1332: DELETE from ASO_PRICE_ADJ_RELATIONSHIPS
1333: WHERE quote_line_id = p_qte_line_id;
1334: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1335: aso_debug_pub.add('ASO_PRICING_INT:Rltd adj Lines deleted '||sql%ROWCOUNT,1,'Y');
1336: END IF;
1337:
1338:
1331: /*Removed the Complex Delete Statement with UNION bug 2585468 */
1332: DELETE from ASO_PRICE_ADJ_RELATIONSHIPS
1333: WHERE quote_line_id = p_qte_line_id;
1334: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1335: aso_debug_pub.add('ASO_PRICING_INT:Rltd adj Lines deleted '||sql%ROWCOUNT,1,'Y');
1336: END IF;
1337:
1338:
1339: DELETE FROM ASO_PRICE_ADJUSTMENTS
1337:
1338:
1339: DELETE FROM ASO_PRICE_ADJUSTMENTS
1340: WHERE quote_line_id = p_qte_line_id;
1341: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1342: aso_debug_pub.add('ASO_PRICING_INT:ADJ Lines deleted '||sql%ROWCOUNT,1,'Y');
1343: END IF;
1344:
1345: FOR i IN 1..lx_qte_line_tbl.count LOOP
1338:
1339: DELETE FROM ASO_PRICE_ADJUSTMENTS
1340: WHERE quote_line_id = p_qte_line_id;
1341: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1342: aso_debug_pub.add('ASO_PRICING_INT:ADJ Lines deleted '||sql%ROWCOUNT,1,'Y');
1343: END IF;
1344:
1345: FOR i IN 1..lx_qte_line_tbl.count LOOP
1346: l_qte_line_rec := ASO_UTILITY_PVT.Query_Qte_Line_Row(lx_qte_line_tbl(i).quote_line_id);
1353: p_price_adj_tbl => lx_price_adj_tbl,
1354: p_price_adj_attr_tbl => lx_price_adj_attr_tbl,
1355: p_price_adj_rltship_tbl => lx_price_adj_rltship_tbl);
1356:
1357: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1358: aso_debug_pub.add('ASO_PRICING_INT:Pricing Item Ends if the second Pricing Item was called...',1,'Y');
1359: END IF;
1360:
1361: -- Standard check for p_commit
1354: p_price_adj_attr_tbl => lx_price_adj_attr_tbl,
1355: p_price_adj_rltship_tbl => lx_price_adj_rltship_tbl);
1356:
1357: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1358: aso_debug_pub.add('ASO_PRICING_INT:Pricing Item Ends if the second Pricing Item was called...',1,'Y');
1359: END IF;
1360:
1361: -- Standard check for p_commit
1362: IF FND_API.to_Boolean( p_commit )
1485: THEN
1486: FND_MSG_PUB.initialize;
1487: END IF;
1488:
1489: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1490: aso_debug_pub.add('ASO_PRICING_INT:In Pricing Order with hdr Id', 1, 'Y');
1491: END IF;
1492:
1493: aso_debug_pub.g_debug_flag := nvl(fnd_profile.value('ASO_ENABLE_DEBUG'),'N');
1486: FND_MSG_PUB.initialize;
1487: END IF;
1488:
1489: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1490: aso_debug_pub.add('ASO_PRICING_INT:In Pricing Order with hdr Id', 1, 'Y');
1491: END IF;
1492:
1493: aso_debug_pub.g_debug_flag := nvl(fnd_profile.value('ASO_ENABLE_DEBUG'),'N');
1494:
1489: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1490: aso_debug_pub.add('ASO_PRICING_INT:In Pricing Order with hdr Id', 1, 'Y');
1491: END IF;
1492:
1493: aso_debug_pub.g_debug_flag := nvl(fnd_profile.value('ASO_ENABLE_DEBUG'),'N');
1494:
1495: x_return_status := FND_API.G_RET_STS_SUCCESS;
1496: l_request_type := p_control_rec.request_type;
1497: l_pricing_event := p_control_rec.pricing_event;
1663: fetch get_req_date into l_request_date;
1664: CLOSE get_req_date;
1665:
1666: x_request_date := FND_DATE.DATE_TO_CANONICAL(l_request_date);
1667: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1668: aso_debug_pub.add('ASO_PRICING_INT:In Get_Line_Request_date'||x_request_date, 1, 'Y');
1669: END IF;
1670: RETURN x_request_date;
1671: END Get_line_Request_date;
1664: CLOSE get_req_date;
1665:
1666: x_request_date := FND_DATE.DATE_TO_CANONICAL(l_request_date);
1667: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1668: aso_debug_pub.add('ASO_PRICING_INT:In Get_Line_Request_date'||x_request_date, 1, 'Y');
1669: END IF;
1670: RETURN x_request_date;
1671: END Get_line_Request_date;
1672: