[Home] [Help]
219: END IF;
220:
221: CLOSE C_Validate_Quote;
222:
223: IF aso_debug_pub.g_debug_flag = 'Y' THEN
224: aso_debug_pub.ADD ( 'Copy_Quote - Begin- ASO_COPY_QUOTE_PVT.Copy_Quote ' , 1 , 'Y' );
225: aso_debug_pub.ADD ( 'Copy_Quote - P_Copy_Quote_Header_Rec.Quote_Header_Id: ' || P_Copy_Quote_Header_Rec.Quote_Header_Id , 1 , 'N' );
226: aso_debug_pub.ADD ( 'Copy_Quote - P_Copy_Quote_Control_Rec.Copy_Header_Only ' || P_Copy_Quote_Control_Rec.Copy_Header_Only , 1 , 'N' );
227: aso_debug_pub.ADD ( 'Copy_Quote - P_Copy_Quote_Control_Rec.New_Version ' || P_Copy_Quote_Control_Rec.New_Version , 1 , 'N' );
220:
221: CLOSE C_Validate_Quote;
222:
223: IF aso_debug_pub.g_debug_flag = 'Y' THEN
224: aso_debug_pub.ADD ( 'Copy_Quote - Begin- ASO_COPY_QUOTE_PVT.Copy_Quote ' , 1 , 'Y' );
225: aso_debug_pub.ADD ( 'Copy_Quote - P_Copy_Quote_Header_Rec.Quote_Header_Id: ' || P_Copy_Quote_Header_Rec.Quote_Header_Id , 1 , 'N' );
226: aso_debug_pub.ADD ( 'Copy_Quote - P_Copy_Quote_Control_Rec.Copy_Header_Only ' || P_Copy_Quote_Control_Rec.Copy_Header_Only , 1 , 'N' );
227: aso_debug_pub.ADD ( 'Copy_Quote - P_Copy_Quote_Control_Rec.New_Version ' || P_Copy_Quote_Control_Rec.New_Version , 1 , 'N' );
228: aso_debug_pub.ADD ( 'Copy_Quote - P_Copy_Quote_Header_Rec.Quote_Number ' || P_Copy_Quote_Header_Rec.Quote_Number , 1 , 'N' );
221: CLOSE C_Validate_Quote;
222:
223: IF aso_debug_pub.g_debug_flag = 'Y' THEN
224: aso_debug_pub.ADD ( 'Copy_Quote - Begin- ASO_COPY_QUOTE_PVT.Copy_Quote ' , 1 , 'Y' );
225: aso_debug_pub.ADD ( 'Copy_Quote - P_Copy_Quote_Header_Rec.Quote_Header_Id: ' || P_Copy_Quote_Header_Rec.Quote_Header_Id , 1 , 'N' );
226: aso_debug_pub.ADD ( 'Copy_Quote - P_Copy_Quote_Control_Rec.Copy_Header_Only ' || P_Copy_Quote_Control_Rec.Copy_Header_Only , 1 , 'N' );
227: aso_debug_pub.ADD ( 'Copy_Quote - P_Copy_Quote_Control_Rec.New_Version ' || P_Copy_Quote_Control_Rec.New_Version , 1 , 'N' );
228: aso_debug_pub.ADD ( 'Copy_Quote - P_Copy_Quote_Header_Rec.Quote_Number ' || P_Copy_Quote_Header_Rec.Quote_Number , 1 , 'N' );
229: aso_debug_pub.ADD ( 'Copy_Quote - P_Copy_Quote_Header_Rec.Resource_Id ' || P_Copy_Quote_Header_Rec.Resource_Id , 1 , 'N' );
222:
223: IF aso_debug_pub.g_debug_flag = 'Y' THEN
224: aso_debug_pub.ADD ( 'Copy_Quote - Begin- ASO_COPY_QUOTE_PVT.Copy_Quote ' , 1 , 'Y' );
225: aso_debug_pub.ADD ( 'Copy_Quote - P_Copy_Quote_Header_Rec.Quote_Header_Id: ' || P_Copy_Quote_Header_Rec.Quote_Header_Id , 1 , 'N' );
226: aso_debug_pub.ADD ( 'Copy_Quote - P_Copy_Quote_Control_Rec.Copy_Header_Only ' || P_Copy_Quote_Control_Rec.Copy_Header_Only , 1 , 'N' );
227: aso_debug_pub.ADD ( 'Copy_Quote - P_Copy_Quote_Control_Rec.New_Version ' || P_Copy_Quote_Control_Rec.New_Version , 1 , 'N' );
228: aso_debug_pub.ADD ( 'Copy_Quote - P_Copy_Quote_Header_Rec.Quote_Number ' || P_Copy_Quote_Header_Rec.Quote_Number , 1 , 'N' );
229: aso_debug_pub.ADD ( 'Copy_Quote - P_Copy_Quote_Header_Rec.Resource_Id ' || P_Copy_Quote_Header_Rec.Resource_Id , 1 , 'N' );
230: aso_debug_pub.ADD ( 'Copy_Quote - P_Copy_Quote_Header_Rec.Resource_Grp_Id ' || P_Copy_Quote_Header_Rec.Resource_Grp_Id , 1 , 'N' );
223: IF aso_debug_pub.g_debug_flag = 'Y' THEN
224: aso_debug_pub.ADD ( 'Copy_Quote - Begin- ASO_COPY_QUOTE_PVT.Copy_Quote ' , 1 , 'Y' );
225: aso_debug_pub.ADD ( 'Copy_Quote - P_Copy_Quote_Header_Rec.Quote_Header_Id: ' || P_Copy_Quote_Header_Rec.Quote_Header_Id , 1 , 'N' );
226: aso_debug_pub.ADD ( 'Copy_Quote - P_Copy_Quote_Control_Rec.Copy_Header_Only ' || P_Copy_Quote_Control_Rec.Copy_Header_Only , 1 , 'N' );
227: aso_debug_pub.ADD ( 'Copy_Quote - P_Copy_Quote_Control_Rec.New_Version ' || P_Copy_Quote_Control_Rec.New_Version , 1 , 'N' );
228: aso_debug_pub.ADD ( 'Copy_Quote - P_Copy_Quote_Header_Rec.Quote_Number ' || P_Copy_Quote_Header_Rec.Quote_Number , 1 , 'N' );
229: aso_debug_pub.ADD ( 'Copy_Quote - P_Copy_Quote_Header_Rec.Resource_Id ' || P_Copy_Quote_Header_Rec.Resource_Id , 1 , 'N' );
230: aso_debug_pub.ADD ( 'Copy_Quote - P_Copy_Quote_Header_Rec.Resource_Grp_Id ' || P_Copy_Quote_Header_Rec.Resource_Grp_Id , 1 , 'N' );
231: aso_debug_pub.ADD ( 'Copy_Quote - P_Copy_Quote_Header_Rec.Quote_Name ' || P_Copy_Quote_Header_Rec.Quote_Name , 1 , 'N' );
224: aso_debug_pub.ADD ( 'Copy_Quote - Begin- ASO_COPY_QUOTE_PVT.Copy_Quote ' , 1 , 'Y' );
225: aso_debug_pub.ADD ( 'Copy_Quote - P_Copy_Quote_Header_Rec.Quote_Header_Id: ' || P_Copy_Quote_Header_Rec.Quote_Header_Id , 1 , 'N' );
226: aso_debug_pub.ADD ( 'Copy_Quote - P_Copy_Quote_Control_Rec.Copy_Header_Only ' || P_Copy_Quote_Control_Rec.Copy_Header_Only , 1 , 'N' );
227: aso_debug_pub.ADD ( 'Copy_Quote - P_Copy_Quote_Control_Rec.New_Version ' || P_Copy_Quote_Control_Rec.New_Version , 1 , 'N' );
228: aso_debug_pub.ADD ( 'Copy_Quote - P_Copy_Quote_Header_Rec.Quote_Number ' || P_Copy_Quote_Header_Rec.Quote_Number , 1 , 'N' );
229: aso_debug_pub.ADD ( 'Copy_Quote - P_Copy_Quote_Header_Rec.Resource_Id ' || P_Copy_Quote_Header_Rec.Resource_Id , 1 , 'N' );
230: aso_debug_pub.ADD ( 'Copy_Quote - P_Copy_Quote_Header_Rec.Resource_Grp_Id ' || P_Copy_Quote_Header_Rec.Resource_Grp_Id , 1 , 'N' );
231: aso_debug_pub.ADD ( 'Copy_Quote - P_Copy_Quote_Header_Rec.Quote_Name ' || P_Copy_Quote_Header_Rec.Quote_Name , 1 , 'N' );
232: END IF;
225: aso_debug_pub.ADD ( 'Copy_Quote - P_Copy_Quote_Header_Rec.Quote_Header_Id: ' || P_Copy_Quote_Header_Rec.Quote_Header_Id , 1 , 'N' );
226: aso_debug_pub.ADD ( 'Copy_Quote - P_Copy_Quote_Control_Rec.Copy_Header_Only ' || P_Copy_Quote_Control_Rec.Copy_Header_Only , 1 , 'N' );
227: aso_debug_pub.ADD ( 'Copy_Quote - P_Copy_Quote_Control_Rec.New_Version ' || P_Copy_Quote_Control_Rec.New_Version , 1 , 'N' );
228: aso_debug_pub.ADD ( 'Copy_Quote - P_Copy_Quote_Header_Rec.Quote_Number ' || P_Copy_Quote_Header_Rec.Quote_Number , 1 , 'N' );
229: aso_debug_pub.ADD ( 'Copy_Quote - P_Copy_Quote_Header_Rec.Resource_Id ' || P_Copy_Quote_Header_Rec.Resource_Id , 1 , 'N' );
230: aso_debug_pub.ADD ( 'Copy_Quote - P_Copy_Quote_Header_Rec.Resource_Grp_Id ' || P_Copy_Quote_Header_Rec.Resource_Grp_Id , 1 , 'N' );
231: aso_debug_pub.ADD ( 'Copy_Quote - P_Copy_Quote_Header_Rec.Quote_Name ' || P_Copy_Quote_Header_Rec.Quote_Name , 1 , 'N' );
232: END IF;
233:
226: aso_debug_pub.ADD ( 'Copy_Quote - P_Copy_Quote_Control_Rec.Copy_Header_Only ' || P_Copy_Quote_Control_Rec.Copy_Header_Only , 1 , 'N' );
227: aso_debug_pub.ADD ( 'Copy_Quote - P_Copy_Quote_Control_Rec.New_Version ' || P_Copy_Quote_Control_Rec.New_Version , 1 , 'N' );
228: aso_debug_pub.ADD ( 'Copy_Quote - P_Copy_Quote_Header_Rec.Quote_Number ' || P_Copy_Quote_Header_Rec.Quote_Number , 1 , 'N' );
229: aso_debug_pub.ADD ( 'Copy_Quote - P_Copy_Quote_Header_Rec.Resource_Id ' || P_Copy_Quote_Header_Rec.Resource_Id , 1 , 'N' );
230: aso_debug_pub.ADD ( 'Copy_Quote - P_Copy_Quote_Header_Rec.Resource_Grp_Id ' || P_Copy_Quote_Header_Rec.Resource_Grp_Id , 1 , 'N' );
231: aso_debug_pub.ADD ( 'Copy_Quote - P_Copy_Quote_Header_Rec.Quote_Name ' || P_Copy_Quote_Header_Rec.Quote_Name , 1 , 'N' );
232: END IF;
233:
234: l_qte_header_rec := ASO_UTILITY_PVT.Query_Header_Row ( P_Copy_Quote_Header_Rec.Quote_Header_Id );
227: aso_debug_pub.ADD ( 'Copy_Quote - P_Copy_Quote_Control_Rec.New_Version ' || P_Copy_Quote_Control_Rec.New_Version , 1 , 'N' );
228: aso_debug_pub.ADD ( 'Copy_Quote - P_Copy_Quote_Header_Rec.Quote_Number ' || P_Copy_Quote_Header_Rec.Quote_Number , 1 , 'N' );
229: aso_debug_pub.ADD ( 'Copy_Quote - P_Copy_Quote_Header_Rec.Resource_Id ' || P_Copy_Quote_Header_Rec.Resource_Id , 1 , 'N' );
230: aso_debug_pub.ADD ( 'Copy_Quote - P_Copy_Quote_Header_Rec.Resource_Grp_Id ' || P_Copy_Quote_Header_Rec.Resource_Grp_Id , 1 , 'N' );
231: aso_debug_pub.ADD ( 'Copy_Quote - P_Copy_Quote_Header_Rec.Quote_Name ' || P_Copy_Quote_Header_Rec.Quote_Name , 1 , 'N' );
232: END IF;
233:
234: l_qte_header_rec := ASO_UTILITY_PVT.Query_Header_Row ( P_Copy_Quote_Header_Rec.Quote_Header_Id );
235:
237: IF ( P_Copy_Quote_Header_Rec.Quote_Number IS NULL
238: OR P_Copy_Quote_Header_Rec.Quote_Number = FND_API.G_MISS_NUM
239: ) THEN
240: IF ( NVL ( FND_PROFILE.VALUE ('ASO_AUTO_NUMBERING' ), 'Y' ) = 'Y' ) THEN
241: IF aso_debug_pub.g_debug_flag = 'Y' THEN
242: aso_debug_pub.ADD ( 'Copy_Quote - AUTO_NUMBERING is Y ' , 1 , 'N' );
243: END IF;
244:
245: OPEN C_Qte_Number;
238: OR P_Copy_Quote_Header_Rec.Quote_Number = FND_API.G_MISS_NUM
239: ) THEN
240: IF ( NVL ( FND_PROFILE.VALUE ('ASO_AUTO_NUMBERING' ), 'Y' ) = 'Y' ) THEN
241: IF aso_debug_pub.g_debug_flag = 'Y' THEN
242: aso_debug_pub.ADD ( 'Copy_Quote - AUTO_NUMBERING is Y ' , 1 , 'N' );
243: END IF;
244:
245: OPEN C_Qte_Number;
246: FETCH C_Qte_Number INTO l_qte_header_rec.quote_number;
262: FETCH C_Qte_Number_Exists INTO l_qte_num;
263: CLOSE C_Qte_Number_Exists;
264:
265: IF l_qte_num = P_Copy_Quote_Header_Rec.Quote_Number THEN
266: IF aso_debug_pub.g_debug_flag = 'Y' THEN
267: aso_debug_pub.ADD ( 'Copy_Quote - AUTO_NUMBERING is N ' , 1 , 'N' );
268: END IF;
269: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_ERROR ) THEN
270: FND_MESSAGE.Set_Name ('ASO' , 'ASO_CANNOT_COPY_QTE' );
263: CLOSE C_Qte_Number_Exists;
264:
265: IF l_qte_num = P_Copy_Quote_Header_Rec.Quote_Number THEN
266: IF aso_debug_pub.g_debug_flag = 'Y' THEN
267: aso_debug_pub.ADD ( 'Copy_Quote - AUTO_NUMBERING is N ' , 1 , 'N' );
268: END IF;
269: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_ERROR ) THEN
270: FND_MESSAGE.Set_Name ('ASO' , 'ASO_CANNOT_COPY_QTE' );
271: FND_MSG_PUB.ADD;
323: END IF;
324: CLOSE C_Qte_Number_Exists;
325: RAISE FND_API.G_EXC_ERROR;
326: ELSE
327: IF aso_debug_pub.g_debug_flag = 'Y' THEN
328: aso_debug_pub.ADD ( 'Copy_Quote - P_Qte_Number Exists' , 1 , 'N' );
329: END IF;
330: l_qte_header_rec.quote_number := P_Copy_Quote_Header_Rec.Quote_Number;
331: CLOSE C_Qte_Number_Exists;
324: CLOSE C_Qte_Number_Exists;
325: RAISE FND_API.G_EXC_ERROR;
326: ELSE
327: IF aso_debug_pub.g_debug_flag = 'Y' THEN
328: aso_debug_pub.ADD ( 'Copy_Quote - P_Qte_Number Exists' , 1 , 'N' );
329: END IF;
330: l_qte_header_rec.quote_number := P_Copy_Quote_Header_Rec.Quote_Number;
331: CLOSE C_Qte_Number_Exists;
332: END IF;
338: , l_qte_header_id
339: , l_qte_header_rec.quote_version;
340: CLOSE C_Curr_Qte_Info;
341:
342: IF aso_debug_pub.g_debug_flag = 'Y' THEN
343: aso_debug_pub.ADD ( 'Copy_Quote - l_qte_status_id ' || l_qte_status_id , 1 , 'N' );
344: aso_debug_pub.ADD ( 'Copy_Quote - l_qte_header_id ' || l_qte_header_id , 1 , 'N' );
345: aso_debug_pub.ADD ( 'Copy_Quote - l_qte_header_rec.quote_version ' || l_qte_header_rec.quote_version , 1 , 'N' );
346: END IF;
339: , l_qte_header_rec.quote_version;
340: CLOSE C_Curr_Qte_Info;
341:
342: IF aso_debug_pub.g_debug_flag = 'Y' THEN
343: aso_debug_pub.ADD ( 'Copy_Quote - l_qte_status_id ' || l_qte_status_id , 1 , 'N' );
344: aso_debug_pub.ADD ( 'Copy_Quote - l_qte_header_id ' || l_qte_header_id , 1 , 'N' );
345: aso_debug_pub.ADD ( 'Copy_Quote - l_qte_header_rec.quote_version ' || l_qte_header_rec.quote_version , 1 , 'N' );
346: END IF;
347:
340: CLOSE C_Curr_Qte_Info;
341:
342: IF aso_debug_pub.g_debug_flag = 'Y' THEN
343: aso_debug_pub.ADD ( 'Copy_Quote - l_qte_status_id ' || l_qte_status_id , 1 , 'N' );
344: aso_debug_pub.ADD ( 'Copy_Quote - l_qte_header_id ' || l_qte_header_id , 1 , 'N' );
345: aso_debug_pub.ADD ( 'Copy_Quote - l_qte_header_rec.quote_version ' || l_qte_header_rec.quote_version , 1 , 'N' );
346: END IF;
347:
348: OPEN C_Check_Qte_Status ( l_qte_status_id );
341:
342: IF aso_debug_pub.g_debug_flag = 'Y' THEN
343: aso_debug_pub.ADD ( 'Copy_Quote - l_qte_status_id ' || l_qte_status_id , 1 , 'N' );
344: aso_debug_pub.ADD ( 'Copy_Quote - l_qte_header_id ' || l_qte_header_id , 1 , 'N' );
345: aso_debug_pub.ADD ( 'Copy_Quote - l_qte_header_rec.quote_version ' || l_qte_header_rec.quote_version , 1 , 'N' );
346: END IF;
347:
348: OPEN C_Check_Qte_Status ( l_qte_status_id );
349: FETCH C_Check_Qte_Status INTO l_dummy;
348: OPEN C_Check_Qte_Status ( l_qte_status_id );
349: FETCH C_Check_Qte_Status INTO l_dummy;
350:
351: IF C_Check_Qte_Status%NOTFOUND THEN
352: IF aso_debug_pub.g_debug_flag = 'Y' THEN
353: aso_debug_pub.ADD ('Copy_Quote - invalid status ' , 1, 'N' );
354: END IF;
355: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_ERROR ) THEN
356: FND_MESSAGE.Set_Name ('ASO' , 'ASO_CANNOT_COPY_FOR_STATUS' );
349: FETCH C_Check_Qte_Status INTO l_dummy;
350:
351: IF C_Check_Qte_Status%NOTFOUND THEN
352: IF aso_debug_pub.g_debug_flag = 'Y' THEN
353: aso_debug_pub.ADD ('Copy_Quote - invalid status ' , 1, 'N' );
354: END IF;
355: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_ERROR ) THEN
356: FND_MESSAGE.Set_Name ('ASO' , 'ASO_CANNOT_COPY_FOR_STATUS' );
357: FND_MSG_PUB.ADD;
439: l_qte_header_rec.tax_updated_date := P_Copy_Quote_Header_Rec.tax_updated_date;
440: END IF;
441:
442:
443: IF aso_debug_pub.g_debug_flag = 'Y' THEN
444: aso_debug_pub.ADD ('Copy_Quote - Begin- before copy_rows ' , 1, 'Y' );
445: END IF;
446: Copy_Header_Rows (
447: P_Api_Version_Number => 1.0
440: END IF;
441:
442:
443: IF aso_debug_pub.g_debug_flag = 'Y' THEN
444: aso_debug_pub.ADD ('Copy_Quote - Begin- before copy_rows ' , 1, 'Y' );
445: END IF;
446: Copy_Header_Rows (
447: P_Api_Version_Number => 1.0
448: , P_Init_Msg_List => FND_API.G_FALSE
454: , X_Return_Status => l_return_status
455: , X_Msg_Count => x_msg_count
456: , X_Msg_Data => x_msg_data
457: );
458: IF aso_debug_pub.g_debug_flag = 'Y' THEN
459: aso_debug_pub.ADD ( 'Copy_Quote - After copy_rows ' || l_return_status , 1 , 'Y' );
460: END IF;
461:
462: IF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
455: , X_Msg_Count => x_msg_count
456: , X_Msg_Data => x_msg_data
457: );
458: IF aso_debug_pub.g_debug_flag = 'Y' THEN
459: aso_debug_pub.ADD ( 'Copy_Quote - After copy_rows ' || l_return_status , 1 , 'Y' );
460: END IF;
461:
462: IF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
463: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
473: END IF;
474:
475: IF P_Copy_Quote_Control_Rec.Copy_Header_Only <> FND_API.G_TRUE THEN
476:
477: IF aso_debug_pub.g_debug_flag = 'Y' THEN
478: aso_debug_pub.ADD ('Copy_Quote - Begin- before copy_rows ' , 1, 'Y' );
479: END IF;
480:
481:
474:
475: IF P_Copy_Quote_Control_Rec.Copy_Header_Only <> FND_API.G_TRUE THEN
476:
477: IF aso_debug_pub.g_debug_flag = 'Y' THEN
478: aso_debug_pub.ADD ('Copy_Quote - Begin- before copy_rows ' , 1, 'Y' );
479: END IF;
480:
481:
482: l_copy_line_qte_header_rec.batch_price_flag := FND_API.G_FALSE;
496: , X_Return_Status => l_return_status
497: , X_Msg_Count => x_msg_count
498: , X_Msg_Data => x_msg_data
499: );
500: IF aso_debug_pub.g_debug_flag = 'Y' THEN
501: aso_debug_pub.ADD ( 'Copy_Quote - After copy_rows ' || l_return_status , 1 , 'Y' );
502: END IF;
503: END IF;
504:
497: , X_Msg_Count => x_msg_count
498: , X_Msg_Data => x_msg_data
499: );
500: IF aso_debug_pub.g_debug_flag = 'Y' THEN
501: aso_debug_pub.ADD ( 'Copy_Quote - After copy_rows ' || l_return_status , 1 , 'Y' );
502: END IF;
503: END IF;
504:
505: IF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
542: x_return_status := FND_API.G_RET_STS_ERROR;
543: RAISE FND_API.G_EXC_ERROR;
544: END IF;
545:
546: IF aso_debug_pub.g_debug_flag = 'Y' THEN
547: aso_debug_pub.ADD ( 'Copy_Quote - Before Copy_Opp_Quote: ' , 1 , 'N' );
548: END IF;
549: ASO_COPY_QUOTE_PVT.Copy_Opp_Quote(
550: p_api_version_number => 1.0,
543: RAISE FND_API.G_EXC_ERROR;
544: END IF;
545:
546: IF aso_debug_pub.g_debug_flag = 'Y' THEN
547: aso_debug_pub.ADD ( 'Copy_Quote - Before Copy_Opp_Quote: ' , 1 , 'N' );
548: END IF;
549: ASO_COPY_QUOTE_PVT.Copy_Opp_Quote(
550: p_api_version_number => 1.0,
551: p_qte_header_id => P_Copy_Quote_Header_Rec.quote_header_id,
553: X_Return_Status => l_return_status,
554: X_Msg_Count => x_msg_count,
555: X_Msg_Data => x_msg_data
556: );
557: IF aso_debug_pub.g_debug_flag = 'Y' THEN
558: aso_debug_pub.ADD ( 'Copy_Quote - After Copy_Opp_Quote: l_return_status '||l_return_status , 1 , 'N' );
559: END IF;
560: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
561: x_return_status := l_return_status;
554: X_Msg_Count => x_msg_count,
555: X_Msg_Data => x_msg_data
556: );
557: IF aso_debug_pub.g_debug_flag = 'Y' THEN
558: aso_debug_pub.ADD ( 'Copy_Quote - After Copy_Opp_Quote: l_return_status '||l_return_status , 1 , 'N' );
559: END IF;
560: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
561: x_return_status := l_return_status;
562: RAISE FND_API.G_EXC_ERROR;
564:
565: END IF;
566:
567: -- vtariker Price/Tax Enh
568: IF aso_debug_pub.g_debug_flag = 'Y' THEN
569: aso_debug_pub.ADD ( 'Copy_Quote - P_Copy_Quote_Control_Rec.Pricing_Request_Type'||
570: P_Copy_Quote_Control_Rec.Pricing_Request_Type , 1 , 'N' );
571: aso_debug_pub.ADD ( 'Copy_Quote - P_Copy_Quote_Control_Rec.Header_Pricing_Event'||
572: P_Copy_Quote_Control_Rec.Header_Pricing_Event , 1 , 'N' );
565: END IF;
566:
567: -- vtariker Price/Tax Enh
568: IF aso_debug_pub.g_debug_flag = 'Y' THEN
569: aso_debug_pub.ADD ( 'Copy_Quote - P_Copy_Quote_Control_Rec.Pricing_Request_Type'||
570: P_Copy_Quote_Control_Rec.Pricing_Request_Type , 1 , 'N' );
571: aso_debug_pub.ADD ( 'Copy_Quote - P_Copy_Quote_Control_Rec.Header_Pricing_Event'||
572: P_Copy_Quote_Control_Rec.Header_Pricing_Event , 1 , 'N' );
573: aso_debug_pub.ADD ( 'Copy_Quote - P_Copy_Quote_Control_Rec.Price_Mode'||
567: -- vtariker Price/Tax Enh
568: IF aso_debug_pub.g_debug_flag = 'Y' THEN
569: aso_debug_pub.ADD ( 'Copy_Quote - P_Copy_Quote_Control_Rec.Pricing_Request_Type'||
570: P_Copy_Quote_Control_Rec.Pricing_Request_Type , 1 , 'N' );
571: aso_debug_pub.ADD ( 'Copy_Quote - P_Copy_Quote_Control_Rec.Header_Pricing_Event'||
572: P_Copy_Quote_Control_Rec.Header_Pricing_Event , 1 , 'N' );
573: aso_debug_pub.ADD ( 'Copy_Quote - P_Copy_Quote_Control_Rec.Price_Mode'||
574: P_Copy_Quote_Control_Rec.Price_Mode , 1 , 'N' );
575: aso_debug_pub.ADD ( 'Copy_Quote - P_Copy_Quote_Control_Rec.Calculate_Tax_Flag'||
569: aso_debug_pub.ADD ( 'Copy_Quote - P_Copy_Quote_Control_Rec.Pricing_Request_Type'||
570: P_Copy_Quote_Control_Rec.Pricing_Request_Type , 1 , 'N' );
571: aso_debug_pub.ADD ( 'Copy_Quote - P_Copy_Quote_Control_Rec.Header_Pricing_Event'||
572: P_Copy_Quote_Control_Rec.Header_Pricing_Event , 1 , 'N' );
573: aso_debug_pub.ADD ( 'Copy_Quote - P_Copy_Quote_Control_Rec.Price_Mode'||
574: P_Copy_Quote_Control_Rec.Price_Mode , 1 , 'N' );
575: aso_debug_pub.ADD ( 'Copy_Quote - P_Copy_Quote_Control_Rec.Calculate_Tax_Flag'||
576: P_Copy_Quote_Control_Rec.Calculate_Tax_Flag , 1 , 'N' );
577: aso_debug_pub.ADD ( 'Copy_Quote - P_Copy_Quote_Control_Rec.Calculate_Freight_Charge_Flag'||
571: aso_debug_pub.ADD ( 'Copy_Quote - P_Copy_Quote_Control_Rec.Header_Pricing_Event'||
572: P_Copy_Quote_Control_Rec.Header_Pricing_Event , 1 , 'N' );
573: aso_debug_pub.ADD ( 'Copy_Quote - P_Copy_Quote_Control_Rec.Price_Mode'||
574: P_Copy_Quote_Control_Rec.Price_Mode , 1 , 'N' );
575: aso_debug_pub.ADD ( 'Copy_Quote - P_Copy_Quote_Control_Rec.Calculate_Tax_Flag'||
576: P_Copy_Quote_Control_Rec.Calculate_Tax_Flag , 1 , 'N' );
577: aso_debug_pub.ADD ( 'Copy_Quote - P_Copy_Quote_Control_Rec.Calculate_Freight_Charge_Flag'||
578: P_Copy_Quote_Control_Rec.Calculate_Freight_Charge_Flag , 1 , 'N' );
579: END IF;
573: aso_debug_pub.ADD ( 'Copy_Quote - P_Copy_Quote_Control_Rec.Price_Mode'||
574: P_Copy_Quote_Control_Rec.Price_Mode , 1 , 'N' );
575: aso_debug_pub.ADD ( 'Copy_Quote - P_Copy_Quote_Control_Rec.Calculate_Tax_Flag'||
576: P_Copy_Quote_Control_Rec.Calculate_Tax_Flag , 1 , 'N' );
577: aso_debug_pub.ADD ( 'Copy_Quote - P_Copy_Quote_Control_Rec.Calculate_Freight_Charge_Flag'||
578: P_Copy_Quote_Control_Rec.Calculate_Freight_Charge_Flag , 1 , 'N' );
579: END IF;
580:
581: IF (P_Copy_Quote_Control_Rec.Header_Pricing_Event <> FND_API.G_MISS_CHAR
604: CLOSE C_Get_Last_Upd_Date;
605:
606: l_upd_qte_header_rec.quote_header_id := x_qte_header_id;
607:
608: IF aso_debug_pub.g_debug_flag = 'Y' THEN
609: aso_debug_pub.ADD ( 'Copy_Quote - Before Update_Qte: x_qte_header_id '||x_qte_header_id , 1 , 'N' );
610: END IF;
611: aso_quote_pub.update_quote (
612: p_api_version_number => 1.0,
605:
606: l_upd_qte_header_rec.quote_header_id := x_qte_header_id;
607:
608: IF aso_debug_pub.g_debug_flag = 'Y' THEN
609: aso_debug_pub.ADD ( 'Copy_Quote - Before Update_Qte: x_qte_header_id '||x_qte_header_id , 1 , 'N' );
610: END IF;
611: aso_quote_pub.update_quote (
612: p_api_version_number => 1.0,
613: p_init_msg_list => fnd_api.g_false,
653: x_msg_count => x_msg_count,
654: x_msg_data => x_msg_data
655: );
656:
657: IF aso_debug_pub.g_debug_flag = 'Y' THEN
658: aso_debug_pub.ADD ( 'Copy_Quote - After Update_Quote (Reprice/tax): l_return_status '||
659: l_return_status , 1 ,'N' );
660: END IF;
661: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
654: x_msg_data => x_msg_data
655: );
656:
657: IF aso_debug_pub.g_debug_flag = 'Y' THEN
658: aso_debug_pub.ADD ( 'Copy_Quote - After Update_Quote (Reprice/tax): l_return_status '||
659: l_return_status , 1 ,'N' );
660: END IF;
661: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
662: x_return_status := l_return_status;
669:
670: IF NVL(FND_PROFILE.Value('OKC_ENABLE_SALES_CONTRACTS'),'N') = 'Y'
671: THEN
672:
673: IF aso_debug_pub.g_debug_flag = 'Y' THEN
674: aso_debug_pub.add(
675: 'Copy_Quote - Checking whether the old quote has terms associated with.',
676: 1,
677: 'Y');
670: IF NVL(FND_PROFILE.Value('OKC_ENABLE_SALES_CONTRACTS'),'N') = 'Y'
671: THEN
672:
673: IF aso_debug_pub.g_debug_flag = 'Y' THEN
674: aso_debug_pub.add(
675: 'Copy_Quote - Checking whether the old quote has terms associated with.',
676: 1,
677: 'Y');
678: END IF;
678: END IF;
679: -- bug 5314615
680: l_has_terms := OKC_TERMS_UTIL_GRP.has_terms('QUOTE', p_copy_quote_header_rec.quote_header_id);
681:
682: IF aso_debug_pub.g_debug_flag = 'Y' THEN
683: aso_debug_pub.add(
684: 'Copy_Quote - l_has_terms ' || l_has_terms,
685: 1,
686: 'Y');
679: -- bug 5314615
680: l_has_terms := OKC_TERMS_UTIL_GRP.has_terms('QUOTE', p_copy_quote_header_rec.quote_header_id);
681:
682: IF aso_debug_pub.g_debug_flag = 'Y' THEN
683: aso_debug_pub.add(
684: 'Copy_Quote - l_has_terms ' || l_has_terms,
685: 1,
686: 'Y');
687: END IF;
692:
693: l_target_doc_type := 'QUOTE';
694: l_target_doc_Id := x_qte_header_id;
695:
696: IF aso_debug_pub.g_debug_flag = 'Y' THEN
697: aso_debug_pub.add(
698: 'Copy_Quote - P_Source_Doc_ID ' || P_Copy_Quote_Header_Rec.Quote_Header_Id,
699: 1,
700: 'Y');
693: l_target_doc_type := 'QUOTE';
694: l_target_doc_Id := x_qte_header_id;
695:
696: IF aso_debug_pub.g_debug_flag = 'Y' THEN
697: aso_debug_pub.add(
698: 'Copy_Quote - P_Source_Doc_ID ' || P_Copy_Quote_Header_Rec.Quote_Header_Id,
699: 1,
700: 'Y');
701: aso_debug_pub.add(
697: aso_debug_pub.add(
698: 'Copy_Quote - P_Source_Doc_ID ' || P_Copy_Quote_Header_Rec.Quote_Header_Id,
699: 1,
700: 'Y');
701: aso_debug_pub.add(
702: 'Copy_Quote - P_Target_Doc_ID ' || l_target_doc_Id,
703: 1,
704: 'Y');
705: aso_debug_pub.add(
701: aso_debug_pub.add(
702: 'Copy_Quote - P_Target_Doc_ID ' || l_target_doc_Id,
703: 1,
704: 'Y');
705: aso_debug_pub.add(
706: 'Copy_Quote - P_Target_Doc_Type ' || l_target_doc_type,
707: 1,
708: 'Y');
709: END IF;
708: 'Y');
709: END IF;
710:
711: -- bug 4932493,always copying the contract documents
712: IF aso_debug_pub.g_debug_flag = 'Y' THEN
713: aso_debug_pub.add(
714: 'Copy_Quote - Copying terms, as well as contract documents',
715: 1,
716: 'Y');
709: END IF;
710:
711: -- bug 4932493,always copying the contract documents
712: IF aso_debug_pub.g_debug_flag = 'Y' THEN
713: aso_debug_pub.add(
714: 'Copy_Quote - Copying terms, as well as contract documents',
715: 1,
716: 'Y');
717: END IF;
766: OPEN C_Get_RSA(x_qte_header_id);
767: FETCH C_Get_RSA INTO l_rsa;
768: CLOSE C_Get_RSA;
769:
770: IF aso_debug_pub.g_debug_flag = 'Y' THEN
771: aso_debug_pub.ADD ( 'Copy_Quote - l_rsa: '|| l_rsa , 1 , 'Y' );
772: END IF;
773:
774: IF ( (P_Copy_Quote_Control_Rec.New_Version = FND_API.G_TRUE) and (nvl(l_rsa,'N') = 'Y') ) then
767: FETCH C_Get_RSA INTO l_rsa;
768: CLOSE C_Get_RSA;
769:
770: IF aso_debug_pub.g_debug_flag = 'Y' THEN
771: aso_debug_pub.ADD ( 'Copy_Quote - l_rsa: '|| l_rsa , 1 , 'Y' );
772: END IF;
773:
774: IF ( (P_Copy_Quote_Control_Rec.New_Version = FND_API.G_TRUE) and (nvl(l_rsa,'N') = 'Y') ) then
775:
777: OPEN get_note_id(P_Copy_Quote_Header_Rec.quote_header_id);
778: FETCH get_note_id into l_note_id;
779: CLOSE get_note_id;
780:
781: IF aso_debug_pub.g_debug_flag = 'Y' THEN
782: aso_debug_pub.ADD ( 'Copy_Quote - l_note_id: '|| l_note_id , 1 , 'Y' );
783: aso_debug_pub.ADD ( 'Copy_Quote - Before Calling JTF_NOTES_PUB.Create_Note_Context', 1 , 'Y' );
784: END IF;
785:
778: FETCH get_note_id into l_note_id;
779: CLOSE get_note_id;
780:
781: IF aso_debug_pub.g_debug_flag = 'Y' THEN
782: aso_debug_pub.ADD ( 'Copy_Quote - l_note_id: '|| l_note_id , 1 , 'Y' );
783: aso_debug_pub.ADD ( 'Copy_Quote - Before Calling JTF_NOTES_PUB.Create_Note_Context', 1 , 'Y' );
784: END IF;
785:
786: JTF_NOTES_PUB.Create_Note_Context(
779: CLOSE get_note_id;
780:
781: IF aso_debug_pub.g_debug_flag = 'Y' THEN
782: aso_debug_pub.ADD ( 'Copy_Quote - l_note_id: '|| l_note_id , 1 , 'Y' );
783: aso_debug_pub.ADD ( 'Copy_Quote - Before Calling JTF_NOTES_PUB.Create_Note_Context', 1 , 'Y' );
784: END IF;
785:
786: JTF_NOTES_PUB.Create_Note_Context(
787: p_validation_level => FND_API.G_VALID_LEVEL_NONE,
796: p_note_context_type => 'ASO_QUOTE' ,
797: x_note_context_id => lx_jtf_note_context_id
798: );
799:
800: IF aso_debug_pub.g_debug_flag = 'Y' THEN
801: aso_debug_pub.ADD ( 'Copy_Quote - After Calling JTF_NOTES_PUB.Create_Note_Context', 1 , 'Y' );
802: aso_debug_pub.ADD ( 'Copy_Quote - x_return_status : ' || x_return_status, 1 , 'Y' );
803: aso_debug_pub.ADD ( 'Copy_Quote - lx_jtf_note_context_id: ' || lx_jtf_note_context_id, 1 , 'Y' );
804: END IF;
797: x_note_context_id => lx_jtf_note_context_id
798: );
799:
800: IF aso_debug_pub.g_debug_flag = 'Y' THEN
801: aso_debug_pub.ADD ( 'Copy_Quote - After Calling JTF_NOTES_PUB.Create_Note_Context', 1 , 'Y' );
802: aso_debug_pub.ADD ( 'Copy_Quote - x_return_status : ' || x_return_status, 1 , 'Y' );
803: aso_debug_pub.ADD ( 'Copy_Quote - lx_jtf_note_context_id: ' || lx_jtf_note_context_id, 1 , 'Y' );
804: END IF;
805: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
798: );
799:
800: IF aso_debug_pub.g_debug_flag = 'Y' THEN
801: aso_debug_pub.ADD ( 'Copy_Quote - After Calling JTF_NOTES_PUB.Create_Note_Context', 1 , 'Y' );
802: aso_debug_pub.ADD ( 'Copy_Quote - x_return_status : ' || x_return_status, 1 , 'Y' );
803: aso_debug_pub.ADD ( 'Copy_Quote - lx_jtf_note_context_id: ' || lx_jtf_note_context_id, 1 , 'Y' );
804: END IF;
805: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
806: RAISE FND_API.G_EXC_ERROR;
799:
800: IF aso_debug_pub.g_debug_flag = 'Y' THEN
801: aso_debug_pub.ADD ( 'Copy_Quote - After Calling JTF_NOTES_PUB.Create_Note_Context', 1 , 'Y' );
802: aso_debug_pub.ADD ( 'Copy_Quote - x_return_status : ' || x_return_status, 1 , 'Y' );
803: aso_debug_pub.ADD ( 'Copy_Quote - lx_jtf_note_context_id: ' || lx_jtf_note_context_id, 1 , 'Y' );
804: END IF;
805: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
806: RAISE FND_API.G_EXC_ERROR;
807: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
810:
811: END IF; -- end if for the new version and rsa check
812:
813:
814: IF aso_debug_pub.g_debug_flag = 'Y' THEN
815: aso_debug_pub.ADD ( 'Copy_Quote - END ' , 1 , 'Y' );
816: END IF;
817:
818: x_return_status := FND_API.G_RET_STS_SUCCESS;
811: END IF; -- end if for the new version and rsa check
812:
813:
814: IF aso_debug_pub.g_debug_flag = 'Y' THEN
815: aso_debug_pub.ADD ( 'Copy_Quote - END ' , 1 , 'Y' );
816: END IF;
817:
818: x_return_status := FND_API.G_RET_STS_SUCCESS;
819:
1029: p_qte_header_id => l_qte_header_id
1030: , p_qte_line_id => NULL
1031: ); */
1032:
1033: IF aso_debug_pub.g_debug_flag = 'Y' THEN
1034: aso_debug_pub.ADD ( 'Copy_Rows - payment_tbl.count: ' || TO_CHAR ( l_payment_tbl.COUNT ) , 1 , 'N' );
1035: END IF;
1036:
1037: l_tax_detail_tbl :=
1030: , p_qte_line_id => NULL
1031: ); */
1032:
1033: IF aso_debug_pub.g_debug_flag = 'Y' THEN
1034: aso_debug_pub.ADD ( 'Copy_Rows - payment_tbl.count: ' || TO_CHAR ( l_payment_tbl.COUNT ) , 1 , 'N' );
1035: END IF;
1036:
1037: l_tax_detail_tbl :=
1038: ASO_UTILITY_PVT.Query_Tax_Detail_Rows (
1039: p_qte_header_id => l_qte_header_id
1040: , p_qte_line_id => NULL
1041: , p_shipment_tbl => ASO_QUOTE_PUB.g_miss_shipment_tbl
1042: );
1043: IF aso_debug_pub.g_debug_flag = 'Y' THEN
1044: aso_debug_pub.ADD ( 'Copy_Rows - tax_dtl_tbl.count: ' || TO_CHAR ( l_tax_detail_tbl.COUNT ) , 1 , 'N' );
1045: END IF;
1046:
1047: l_shipment_tbl :=
1040: , p_qte_line_id => NULL
1041: , p_shipment_tbl => ASO_QUOTE_PUB.g_miss_shipment_tbl
1042: );
1043: IF aso_debug_pub.g_debug_flag = 'Y' THEN
1044: aso_debug_pub.ADD ( 'Copy_Rows - tax_dtl_tbl.count: ' || TO_CHAR ( l_tax_detail_tbl.COUNT ) , 1 , 'N' );
1045: END IF;
1046:
1047: l_shipment_tbl :=
1048: ASO_UTILITY_PVT.Query_Shipment_Rows (
1048: ASO_UTILITY_PVT.Query_Shipment_Rows (
1049: p_qte_header_id => l_qte_header_id
1050: , p_qte_line_id => NULL
1051: );
1052: IF aso_debug_pub.g_debug_flag = 'Y' THEN
1053: aso_debug_pub.ADD ( 'Copy_Rows - shipment_tbl.count: ' || TO_CHAR ( l_shipment_tbl.COUNT ) , 1 , 'N' );
1054: END IF;
1055:
1056: l_freight_charge_tbl :=
1049: p_qte_header_id => l_qte_header_id
1050: , p_qte_line_id => NULL
1051: );
1052: IF aso_debug_pub.g_debug_flag = 'Y' THEN
1053: aso_debug_pub.ADD ( 'Copy_Rows - shipment_tbl.count: ' || TO_CHAR ( l_shipment_tbl.COUNT ) , 1 , 'N' );
1054: END IF;
1055:
1056: l_freight_charge_tbl :=
1057: ASO_UTILITY_PVT.Query_Freight_Charge_Rows (
1106: -- bug 5159758
1107: IF ( P_Copy_Quote_Control_Rec.New_Version = FND_API.G_FALSE ) THEN
1108: l_qte_header_rec.ASSISTANCE_REQUESTED := null;
1109: l_qte_header_rec.ASSISTANCE_REASON_CODE := null;
1110: IF aso_debug_pub.g_debug_flag = 'Y' THEN
1111: aso_debug_pub.ADD ( 'Copy_Rows - Nulled out the ASSISTANCE_REQUESTED and ASSISTANCE_REASON_CODE' , 1 , 'N' );
1112: END IF;
1113: END IF;
1114:
1107: IF ( P_Copy_Quote_Control_Rec.New_Version = FND_API.G_FALSE ) THEN
1108: l_qte_header_rec.ASSISTANCE_REQUESTED := null;
1109: l_qte_header_rec.ASSISTANCE_REASON_CODE := null;
1110: IF aso_debug_pub.g_debug_flag = 'Y' THEN
1111: aso_debug_pub.ADD ( 'Copy_Rows - Nulled out the ASSISTANCE_REQUESTED and ASSISTANCE_REASON_CODE' , 1 , 'N' );
1112: END IF;
1113: END IF;
1114:
1115:
1208: l_tax_detail_tbl := l_tax_detail_tbl_out ;
1209: l_payment_tbl := l_payment_tbl_out;
1210:
1211:
1212: IF aso_debug_pub.g_debug_flag = 'Y' THEN
1213: aso_debug_pub.ADD ( 'Copy_Rows - After insert_rows - status: ' || l_return_status , 1 , 'Y' );
1214: END IF;
1215:
1216: IF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
1209: l_payment_tbl := l_payment_tbl_out;
1210:
1211:
1212: IF aso_debug_pub.g_debug_flag = 'Y' THEN
1213: aso_debug_pub.ADD ( 'Copy_Rows - After insert_rows - status: ' || l_return_status , 1 , 'Y' );
1214: END IF;
1215:
1216: IF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
1217: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1240: l_payment_tbl ( j ).payment_id := NULL;
1241: l_payment_tbl ( j ).object_version_number := FND_API.G_MISS_NUM;
1242: END LOOP;
1243:
1244: IF aso_debug_pub.g_debug_flag = 'Y' THEN
1245: aso_debug_pub.add('Copy_Header: Before call to copy_payment_row ', 1, 'Y');
1246: END IF;
1247:
1248: aso_copy_quote_pvt.copy_payment_row(p_payment_rec => l_payment_tbl(1) ,
1241: l_payment_tbl ( j ).object_version_number := FND_API.G_MISS_NUM;
1242: END LOOP;
1243:
1244: IF aso_debug_pub.g_debug_flag = 'Y' THEN
1245: aso_debug_pub.add('Copy_Header: Before call to copy_payment_row ', 1, 'Y');
1246: END IF;
1247:
1248: aso_copy_quote_pvt.copy_payment_row(p_payment_rec => l_payment_tbl(1) ,
1249: x_return_status => l_return_status,
1249: x_return_status => l_return_status,
1250: x_msg_count => x_msg_count,
1251: x_msg_data => x_msg_data);
1252:
1253: IF aso_debug_pub.g_debug_flag = 'Y' THEN
1254: aso_debug_pub.add('Copy_Header: After call to copy_payment_row: x_return_status: '||l_return_status, 1, 'Y');
1255: END IF;
1256: IF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
1257: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1250: x_msg_count => x_msg_count,
1251: x_msg_data => x_msg_data);
1252:
1253: IF aso_debug_pub.g_debug_flag = 'Y' THEN
1254: aso_debug_pub.add('Copy_Header: After call to copy_payment_row: x_return_status: '||l_return_status, 1, 'Y');
1255: END IF;
1256: IF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
1257: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1258: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_ERROR ) THEN
1277: -- see bug3805575 for more details
1278:
1279: IF P_Copy_Quote_Control_Rec.New_Version = FND_API.G_TRUE THEN
1280:
1281: IF aso_debug_pub.g_debug_flag = 'Y' THEN
1282: aso_debug_pub.ADD ( 'Copy_Rows - Begin- before copy_notes-l_old_qte_header_id ' || l_old_qte_header_id , 1 , 'N' );
1283: aso_debug_pub.ADD ( 'Copy_Rows - Begin- before copy_notes-x_qte_header_id ' || x_qte_header_id , 1 , 'N' );
1284: aso_debug_pub.ADD ('Copy_Rows - Begin- before copy_notes ' , 1, 'N' );
1285: aso_debug_pub.ADD ('Copy_Rows - Begin- creating new reference for note ' , 1, 'N' );
1278:
1279: IF P_Copy_Quote_Control_Rec.New_Version = FND_API.G_TRUE THEN
1280:
1281: IF aso_debug_pub.g_debug_flag = 'Y' THEN
1282: aso_debug_pub.ADD ( 'Copy_Rows - Begin- before copy_notes-l_old_qte_header_id ' || l_old_qte_header_id , 1 , 'N' );
1283: aso_debug_pub.ADD ( 'Copy_Rows - Begin- before copy_notes-x_qte_header_id ' || x_qte_header_id , 1 , 'N' );
1284: aso_debug_pub.ADD ('Copy_Rows - Begin- before copy_notes ' , 1, 'N' );
1285: aso_debug_pub.ADD ('Copy_Rows - Begin- creating new reference for note ' , 1, 'N' );
1286: END IF;
1279: IF P_Copy_Quote_Control_Rec.New_Version = FND_API.G_TRUE THEN
1280:
1281: IF aso_debug_pub.g_debug_flag = 'Y' THEN
1282: aso_debug_pub.ADD ( 'Copy_Rows - Begin- before copy_notes-l_old_qte_header_id ' || l_old_qte_header_id , 1 , 'N' );
1283: aso_debug_pub.ADD ( 'Copy_Rows - Begin- before copy_notes-x_qte_header_id ' || x_qte_header_id , 1 , 'N' );
1284: aso_debug_pub.ADD ('Copy_Rows - Begin- before copy_notes ' , 1, 'N' );
1285: aso_debug_pub.ADD ('Copy_Rows - Begin- creating new reference for note ' , 1, 'N' );
1286: END IF;
1287:
1280:
1281: IF aso_debug_pub.g_debug_flag = 'Y' THEN
1282: aso_debug_pub.ADD ( 'Copy_Rows - Begin- before copy_notes-l_old_qte_header_id ' || l_old_qte_header_id , 1 , 'N' );
1283: aso_debug_pub.ADD ( 'Copy_Rows - Begin- before copy_notes-x_qte_header_id ' || x_qte_header_id , 1 , 'N' );
1284: aso_debug_pub.ADD ('Copy_Rows - Begin- before copy_notes ' , 1, 'N' );
1285: aso_debug_pub.ADD ('Copy_Rows - Begin- creating new reference for note ' , 1, 'N' );
1286: END IF;
1287:
1288: ASO_NOTES_INT.COPY_NOTES (
1281: IF aso_debug_pub.g_debug_flag = 'Y' THEN
1282: aso_debug_pub.ADD ( 'Copy_Rows - Begin- before copy_notes-l_old_qte_header_id ' || l_old_qte_header_id , 1 , 'N' );
1283: aso_debug_pub.ADD ( 'Copy_Rows - Begin- before copy_notes-x_qte_header_id ' || x_qte_header_id , 1 , 'N' );
1284: aso_debug_pub.ADD ('Copy_Rows - Begin- before copy_notes ' , 1, 'N' );
1285: aso_debug_pub.ADD ('Copy_Rows - Begin- creating new reference for note ' , 1, 'N' );
1286: END IF;
1287:
1288: ASO_NOTES_INT.COPY_NOTES (
1289: p_api_version => l_api_version
1296: , p_new_object_id => x_qte_header_id
1297: , p_old_object_type_code => 'ASO_QUOTE'
1298: , p_new_object_type_code => 'ASO_QUOTE'
1299: );
1300: IF aso_debug_pub.g_debug_flag = 'Y' THEN
1301: aso_debug_pub.ADD ( 'Copy_Rows - after copy_notes status' || l_return_status , 1 , 'Y' );
1302: END IF;
1303:
1304: IF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
1297: , p_old_object_type_code => 'ASO_QUOTE'
1298: , p_new_object_type_code => 'ASO_QUOTE'
1299: );
1300: IF aso_debug_pub.g_debug_flag = 'Y' THEN
1301: aso_debug_pub.ADD ( 'Copy_Rows - after copy_notes status' || l_return_status , 1 , 'Y' );
1302: END IF;
1303:
1304: IF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
1305: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1314: RAISE FND_API.G_EXC_ERROR;
1315: END IF;
1316:
1317: ELSE -- this means new quote is being created
1318: IF aso_debug_pub.g_debug_flag = 'Y' THEN
1319: aso_debug_pub.ADD ('Copy_Rows - Begin- creating new note ' , 1, 'N' );
1320: END IF;
1321: ASO_NOTES_INT.Copy_Notes_copy_quote (
1322: p_api_version => l_api_version
1315: END IF;
1316:
1317: ELSE -- this means new quote is being created
1318: IF aso_debug_pub.g_debug_flag = 'Y' THEN
1319: aso_debug_pub.ADD ('Copy_Rows - Begin- creating new note ' , 1, 'N' );
1320: END IF;
1321: ASO_NOTES_INT.Copy_Notes_copy_quote (
1322: p_api_version => l_api_version
1323: , p_init_msg_list => FND_API.G_FALSE
1329: , x_return_status => l_return_status
1330: , x_msg_count => x_msg_count
1331: , x_msg_data => x_msg_data
1332: );
1333: IF aso_debug_pub.g_debug_flag = 'Y' THEN
1334: aso_debug_pub.ADD ( 'Copy_Rows - after Copy_Notes_copy_quote status' || l_return_status , 1 , 'Y' );
1335: END IF;
1336:
1337: IF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
1330: , x_msg_count => x_msg_count
1331: , x_msg_data => x_msg_data
1332: );
1333: IF aso_debug_pub.g_debug_flag = 'Y' THEN
1334: aso_debug_pub.ADD ( 'Copy_Rows - after Copy_Notes_copy_quote status' || l_return_status , 1 , 'Y' );
1335: END IF;
1336:
1337: IF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
1338: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1351:
1352: END IF; -- end if for copy notes flag
1353:
1354: IF P_Copy_Quote_Control_Rec.Copy_Task = FND_API.G_TRUE THEN
1355: IF aso_debug_pub.g_debug_flag = 'Y' THEN
1356: aso_debug_pub.ADD ('Copy_Rows - Begin- before copy_tasks ' , 1, 'Y' );
1357: END IF;
1358:
1359: ASO_TASK_INT.COPY_TASKS (
1352: END IF; -- end if for copy notes flag
1353:
1354: IF P_Copy_Quote_Control_Rec.Copy_Task = FND_API.G_TRUE THEN
1355: IF aso_debug_pub.g_debug_flag = 'Y' THEN
1356: aso_debug_pub.ADD ('Copy_Rows - Begin- before copy_tasks ' , 1, 'Y' );
1357: END IF;
1358:
1359: ASO_TASK_INT.COPY_TASKS (
1360: p_api_version => l_api_version
1371: || FND_GLOBAL.local_chr ( 45 )
1372: || l_qte_header_rec.quote_version ,
1373: p_quote_version_flag => P_Copy_Quote_Control_Rec.New_Version
1374: );
1375: IF aso_debug_pub.g_debug_flag = 'Y' THEN
1376: aso_debug_pub.ADD ( 'Copy_Rows - after copy_tasks status' || l_return_status , 1 , 'Y' );
1377: END IF;
1378:
1379: IF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
1372: || l_qte_header_rec.quote_version ,
1373: p_quote_version_flag => P_Copy_Quote_Control_Rec.New_Version
1374: );
1375: IF aso_debug_pub.g_debug_flag = 'Y' THEN
1376: aso_debug_pub.ADD ( 'Copy_Rows - after copy_tasks status' || l_return_status , 1 , 'Y' );
1377: END IF;
1378:
1379: IF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
1380: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1391:
1392: END IF;
1393:
1394: IF P_Copy_Quote_Control_Rec.Copy_Attachment = FND_API.G_TRUE THEN
1395: IF aso_debug_pub.g_debug_flag = 'Y' THEN
1396: aso_debug_pub.ADD ( 'Copy_Rows - Begin- before copy_attch ' , 1 , 'Y' );
1397: END IF;
1398:
1399: ASO_ATTACHMENT_INT.COPY_ATTACHMENTS(
1392: END IF;
1393:
1394: IF P_Copy_Quote_Control_Rec.Copy_Attachment = FND_API.G_TRUE THEN
1395: IF aso_debug_pub.g_debug_flag = 'Y' THEN
1396: aso_debug_pub.ADD ( 'Copy_Rows - Begin- before copy_attch ' , 1 , 'Y' );
1397: END IF;
1398:
1399: ASO_ATTACHMENT_INT.COPY_ATTACHMENTS(
1400: p_api_version => l_api_version,
1405: x_return_status => l_return_status,
1406: x_msg_count => x_msg_count,
1407: x_msg_data => x_msg_data
1408: );
1409: IF aso_debug_pub.g_debug_flag = 'Y' THEN
1410: aso_debug_pub.ADD ( 'Copy_Rows -After copy_attch ' || l_return_status , 1 , 'Y' );
1411: END IF;
1412:
1413: IF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
1406: x_msg_count => x_msg_count,
1407: x_msg_data => x_msg_data
1408: );
1409: IF aso_debug_pub.g_debug_flag = 'Y' THEN
1410: aso_debug_pub.ADD ( 'Copy_Rows -After copy_attch ' || l_return_status , 1 , 'Y' );
1411: END IF;
1412:
1413: IF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
1414: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1425:
1426: END IF;
1427:
1428: FOR j IN 1 .. l_price_adj_tbl.COUNT LOOP
1429: IF aso_debug_pub.g_debug_flag = 'Y' THEN
1430: aso_debug_pub.ADD ( 'Copy_Header_Rows: lx_hd_price_adj_tbl(j).price_adjustment_id' || lx_hd_price_adj_tbl ( j ).price_adjustment_id , 1 , 'Y' );
1431: END IF;
1432:
1433: X_Price_Index_Link_Tbl ( l_dup_price_adj_tbl ( j ).price_adjustment_id ) :=
1426: END IF;
1427:
1428: FOR j IN 1 .. l_price_adj_tbl.COUNT LOOP
1429: IF aso_debug_pub.g_debug_flag = 'Y' THEN
1430: aso_debug_pub.ADD ( 'Copy_Header_Rows: lx_hd_price_adj_tbl(j).price_adjustment_id' || lx_hd_price_adj_tbl ( j ).price_adjustment_id , 1 , 'Y' );
1431: END IF;
1432:
1433: X_Price_Index_Link_Tbl ( l_dup_price_adj_tbl ( j ).price_adjustment_id ) :=
1434: lx_hd_price_adj_tbl ( j ).price_adjustment_id;
1438:
1439: IF P_Copy_Quote_Control_Rec.New_Version = FND_API.G_FALSE THEN
1440: -- security changes
1441:
1442: IF aso_debug_pub.g_debug_flag = 'Y' THEN
1443: aso_debug_pub.ADD ( 'Copy_Quote: value of ASO_API_ENABLE_SECURITY: ' || FND_PROFILE.VALUE ('ASO_API_ENABLE_SECURITY' ) , 1 , 'Y' );
1444: END IF;
1445:
1446: l_qte_header_rec.batch_price_flag := FND_API.G_FALSE;
1439: IF P_Copy_Quote_Control_Rec.New_Version = FND_API.G_FALSE THEN
1440: -- security changes
1441:
1442: IF aso_debug_pub.g_debug_flag = 'Y' THEN
1443: aso_debug_pub.ADD ( 'Copy_Quote: value of ASO_API_ENABLE_SECURITY: ' || FND_PROFILE.VALUE ('ASO_API_ENABLE_SECURITY' ) , 1 , 'Y' );
1444: END IF;
1445:
1446: l_qte_header_rec.batch_price_flag := FND_API.G_FALSE;
1447:
1446: l_qte_header_rec.batch_price_flag := FND_API.G_FALSE;
1447:
1448: IF NVL ( FND_PROFILE.VALUE ('ASO_API_ENABLE_SECURITY' ), 'N' ) = 'Y' THEN
1449:
1450: IF aso_debug_pub.g_debug_flag = 'Y' THEN
1451: aso_debug_pub.ADD ( 'Copy_Quote: Sales_Team: l_sales_team_prof: ' || l_sales_team_prof , 1 , 'N' );
1452: END IF;
1453: IF l_sales_team_prof = 'FULL' OR l_sales_team_prof = 'PARTIAL' THEN
1454:
1447:
1448: IF NVL ( FND_PROFILE.VALUE ('ASO_API_ENABLE_SECURITY' ), 'N' ) = 'Y' THEN
1449:
1450: IF aso_debug_pub.g_debug_flag = 'Y' THEN
1451: aso_debug_pub.ADD ( 'Copy_Quote: Sales_Team: l_sales_team_prof: ' || l_sales_team_prof , 1 , 'N' );
1452: END IF;
1453: IF l_sales_team_prof = 'FULL' OR l_sales_team_prof = 'PARTIAL' THEN
1454:
1455: OPEN C_Get_Old_Qte (l_old_qte_header_id);
1455: OPEN C_Get_Old_Qte (l_old_qte_header_id);
1456: FETCH C_Get_Old_Qte INTO l_old_qte_num;
1457: CLOSE C_Get_Old_Qte;
1458:
1459: IF aso_debug_pub.g_debug_flag = 'Y' THEN
1460: aso_debug_pub.ADD ( 'Copy_Quote: Sales_Team: l_old_qte_num: ' || l_old_qte_num , 1 , 'N' );
1461: END IF;
1462: FOR C_Sales_Team_Rec IN C_Get_Sales_Team(l_old_qte_num) LOOP
1463: IF aso_debug_pub.g_debug_flag = 'Y' THEN
1456: FETCH C_Get_Old_Qte INTO l_old_qte_num;
1457: CLOSE C_Get_Old_Qte;
1458:
1459: IF aso_debug_pub.g_debug_flag = 'Y' THEN
1460: aso_debug_pub.ADD ( 'Copy_Quote: Sales_Team: l_old_qte_num: ' || l_old_qte_num , 1 , 'N' );
1461: END IF;
1462: FOR C_Sales_Team_Rec IN C_Get_Sales_Team(l_old_qte_num) LOOP
1463: IF aso_debug_pub.g_debug_flag = 'Y' THEN
1464: aso_debug_pub.ADD ( 'Copy_Quote: Sales_Team: Add Res: Resource_Id: ' || C_Sales_Team_Rec.Resource_Id , 1 , 'N' );
1459: IF aso_debug_pub.g_debug_flag = 'Y' THEN
1460: aso_debug_pub.ADD ( 'Copy_Quote: Sales_Team: l_old_qte_num: ' || l_old_qte_num , 1 , 'N' );
1461: END IF;
1462: FOR C_Sales_Team_Rec IN C_Get_Sales_Team(l_old_qte_num) LOOP
1463: IF aso_debug_pub.g_debug_flag = 'Y' THEN
1464: aso_debug_pub.ADD ( 'Copy_Quote: Sales_Team: Add Res: Resource_Id: ' || C_Sales_Team_Rec.Resource_Id , 1 , 'N' );
1465: END IF;
1466: l_sequence := NULL;
1467: ASO_QUOTE_ACCESSES_PKG.Insert_Row(
1460: aso_debug_pub.ADD ( 'Copy_Quote: Sales_Team: l_old_qte_num: ' || l_old_qte_num , 1 , 'N' );
1461: END IF;
1462: FOR C_Sales_Team_Rec IN C_Get_Sales_Team(l_old_qte_num) LOOP
1463: IF aso_debug_pub.g_debug_flag = 'Y' THEN
1464: aso_debug_pub.ADD ( 'Copy_Quote: Sales_Team: Add Res: Resource_Id: ' || C_Sales_Team_Rec.Resource_Id , 1 , 'N' );
1465: END IF;
1466: l_sequence := NULL;
1467: ASO_QUOTE_ACCESSES_PKG.Insert_Row(
1468: px_ACCESS_ID => l_sequence,
1521: );
1522: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1523: RAISE FND_API.G_EXC_ERROR;
1524: END IF;
1525: IF aso_debug_pub.g_debug_flag = 'Y' THEN
1526: aso_debug_pub.ADD ( 'Copy_Quote: After Add Salesrep: x_return_status: ' || x_return_status , 1 , 'N' );
1527: END IF;
1528: END IF; -- sales_team_prof
1529: END IF;
1522: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1523: RAISE FND_API.G_EXC_ERROR;
1524: END IF;
1525: IF aso_debug_pub.g_debug_flag = 'Y' THEN
1526: aso_debug_pub.ADD ( 'Copy_Quote: After Add Salesrep: x_return_status: ' || x_return_status , 1 , 'N' );
1527: END IF;
1528: END IF; -- sales_team_prof
1529: END IF;
1530: -- end security changes
1831: --
1832: -- API body
1833: --
1834:
1835: IF aso_debug_pub.g_debug_flag = 'Y' THEN
1836: aso_debug_pub.ADD ('Copy_Rows - Header and Lines' , 1, 'N' );
1837: END IF;
1838:
1839: -- hyang: for bug 2692785
1832: -- API body
1833: --
1834:
1835: IF aso_debug_pub.g_debug_flag = 'Y' THEN
1836: aso_debug_pub.ADD ('Copy_Rows - Header and Lines' , 1, 'N' );
1837: END IF;
1838:
1839: -- hyang: for bug 2692785
1840: IF P_Qte_Header_Rec.batch_price_flag <> FND_API.G_FALSE THEN
1936: l_qte_line_dtl_tbl := ASO_UTILITY_PVT.Query_Line_Dtl_Rows ( P_Qte_Line_Id );
1937:
1938:
1939: IF l_qte_line_rec.line_category_code = 'RETURN' THEN
1940: IF aso_debug_pub.g_debug_flag = 'Y' THEN
1941: aso_debug_pub.ADD ('l_qte_line_dtl_tbl.count' , 1, 'N' );
1942: END IF;
1943:
1944: IF l_qte_line_dtl_tbl.count > 0 THEN
1937:
1938:
1939: IF l_qte_line_rec.line_category_code = 'RETURN' THEN
1940: IF aso_debug_pub.g_debug_flag = 'Y' THEN
1941: aso_debug_pub.ADD ('l_qte_line_dtl_tbl.count' , 1, 'N' );
1942: END IF;
1943:
1944: IF l_qte_line_dtl_tbl.count > 0 THEN
1945:
1948: l_qte_line_dtl_tbl(1).INSTANCE_ID IS NOT NULL )
1949: OR ( l_qte_line_dtl_tbl(1).REF_TYPE_CODE = 'TOP_MODEL' ) THEN
1950: x_return_status := FND_API.G_RET_STS_ERROR;
1951:
1952: IF aso_debug_pub.g_debug_flag = 'Y' THEN
1953: aso_debug_pub.ADD ('Install Base Check Failed' , 1, 'N' );
1954: END IF;
1955: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_ERROR ) THEN
1956: FND_MESSAGE.Set_Name ('ASO' , 'ASO_RECONFIG_ITM_ERR' );
1949: OR ( l_qte_line_dtl_tbl(1).REF_TYPE_CODE = 'TOP_MODEL' ) THEN
1950: x_return_status := FND_API.G_RET_STS_ERROR;
1951:
1952: IF aso_debug_pub.g_debug_flag = 'Y' THEN
1953: aso_debug_pub.ADD ('Install Base Check Failed' , 1, 'N' );
1954: END IF;
1955: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_ERROR ) THEN
1956: FND_MESSAGE.Set_Name ('ASO' , 'ASO_RECONFIG_ITM_ERR' );
1957: FND_MSG_PUB.ADD;
2014:
2015:
2016: -- Check to see if it is a servicable product
2017:
2018: IF aso_debug_pub.g_debug_flag = 'Y' THEN
2019: aso_debug_pub.ADD ( 'service item flag = ' || l_qte_line_rec.service_item_flag , 1 , 'N' );
2020: END IF;
2021: IF l_qte_line_rec.service_item_flag = 'Y' THEN
2022:
2015:
2016: -- Check to see if it is a servicable product
2017:
2018: IF aso_debug_pub.g_debug_flag = 'Y' THEN
2019: aso_debug_pub.ADD ( 'service item flag = ' || l_qte_line_rec.service_item_flag , 1 , 'N' );
2020: END IF;
2021: IF l_qte_line_rec.service_item_flag = 'Y' THEN
2022:
2023: x_return_status := FND_API.G_RET_STS_ERROR;
2035: l_service_item_flag := NULL;
2036: l_serviceable_product_flag := NULL;
2037:
2038: END IF;
2039: IF aso_debug_pub.g_debug_flag = 'Y' THEN
2040: aso_debug_pub.ADD ('End Of New Code ' , 1, 'N' );
2041: END IF;
2042:
2043: -- End of New Code added
2036: l_serviceable_product_flag := NULL;
2037:
2038: END IF;
2039: IF aso_debug_pub.g_debug_flag = 'Y' THEN
2040: aso_debug_pub.ADD ('End Of New Code ' , 1, 'N' );
2041: END IF;
2042:
2043: -- End of New Code added
2044:
2055:
2056: l_qte_line_tbl ( i ).quote_header_id := P_New_Qte_Header_Id;
2057: l_qte_line_id := l_qte_line_tbl ( i ).quote_line_id;
2058:
2059: IF aso_debug_pub.g_debug_flag = 'Y' THEN
2060: aso_debug_pub.ADD ( 'qte line id = ' || l_qte_line_id, 1, 'N' );
2061: aso_debug_pub.ADD ( 'i = ' || i, 1, 'N' );
2062: aso_debug_pub.ADD ( 'item_type_code = ' || l_qte_line_tbl ( i ).item_type_code , 1 , 'N' );
2063: END IF;
2056: l_qte_line_tbl ( i ).quote_header_id := P_New_Qte_Header_Id;
2057: l_qte_line_id := l_qte_line_tbl ( i ).quote_line_id;
2058:
2059: IF aso_debug_pub.g_debug_flag = 'Y' THEN
2060: aso_debug_pub.ADD ( 'qte line id = ' || l_qte_line_id, 1, 'N' );
2061: aso_debug_pub.ADD ( 'i = ' || i, 1, 'N' );
2062: aso_debug_pub.ADD ( 'item_type_code = ' || l_qte_line_tbl ( i ).item_type_code , 1 , 'N' );
2063: END IF;
2064:
2057: l_qte_line_id := l_qte_line_tbl ( i ).quote_line_id;
2058:
2059: IF aso_debug_pub.g_debug_flag = 'Y' THEN
2060: aso_debug_pub.ADD ( 'qte line id = ' || l_qte_line_id, 1, 'N' );
2061: aso_debug_pub.ADD ( 'i = ' || i, 1, 'N' );
2062: aso_debug_pub.ADD ( 'item_type_code = ' || l_qte_line_tbl ( i ).item_type_code , 1 , 'N' );
2063: END IF;
2064:
2065: IF l_line_index_link_tbl ( l_qte_line_id ) = FND_API.G_MISS_NUM THEN
2058:
2059: IF aso_debug_pub.g_debug_flag = 'Y' THEN
2060: aso_debug_pub.ADD ( 'qte line id = ' || l_qte_line_id, 1, 'N' );
2061: aso_debug_pub.ADD ( 'i = ' || i, 1, 'N' );
2062: aso_debug_pub.ADD ( 'item_type_code = ' || l_qte_line_tbl ( i ).item_type_code , 1 , 'N' );
2063: END IF;
2064:
2065: IF l_line_index_link_tbl ( l_qte_line_id ) = FND_API.G_MISS_NUM THEN
2066:
2080: l_ato_model := fnd_api.g_true;
2081: end if;
2082:
2083:
2084: IF aso_debug_pub.g_debug_flag = 'Y' THEN
2085: aso_debug_pub.ADD ( 'Before Calling ASO_CGF_INT.Copy Configuration' , 1 , 'N' );
2086: END IF;
2087:
2088: ASO_CFG_INT.Copy_Configuration (
2081: end if;
2082:
2083:
2084: IF aso_debug_pub.g_debug_flag = 'Y' THEN
2085: aso_debug_pub.ADD ( 'Before Calling ASO_CGF_INT.Copy Configuration' , 1 , 'N' );
2086: END IF;
2087:
2088: ASO_CFG_INT.Copy_Configuration (
2089: P_Api_version_NUmber => 1.0
2099: , x_msg_data => x_msg_data
2100: , p_autonomous_flag => FND_API.G_FALSE
2101: );
2102:
2103: IF aso_debug_pub.g_debug_flag = 'Y' THEN
2104: aso_debug_pub.ADD ( 'After Calling ASO_CGF_INT.Copy Configuration' , 1 , 'N' );
2105: END IF;
2106:
2107: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
2100: , p_autonomous_flag => FND_API.G_FALSE
2101: );
2102:
2103: IF aso_debug_pub.g_debug_flag = 'Y' THEN
2104: aso_debug_pub.ADD ( 'After Calling ASO_CGF_INT.Copy Configuration' , 1 , 'N' );
2105: END IF;
2106:
2107: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
2108: l_old_config_header_id :=
2126:
2127: l_serviceable_product_flag := l_qte_line_tbl ( i ).SERVICEABLE_PRODUCT_FLAG;
2128: l_service_item_flag := l_qte_line_tbl ( i ).service_item_flag;
2129:
2130: IF aso_debug_pub.g_debug_flag = 'Y' THEN
2131: aso_debug_pub.ADD ( 'service item flag = ' || l_service_item_flag , 1 , 'N' );
2132: aso_debug_pub.ADD ( 'serviceable_product_flag = ' || l_serviceable_product_flag , 1 , 'N' );
2133: END IF;
2134:
2127: l_serviceable_product_flag := l_qte_line_tbl ( i ).SERVICEABLE_PRODUCT_FLAG;
2128: l_service_item_flag := l_qte_line_tbl ( i ).service_item_flag;
2129:
2130: IF aso_debug_pub.g_debug_flag = 'Y' THEN
2131: aso_debug_pub.ADD ( 'service item flag = ' || l_service_item_flag , 1 , 'N' );
2132: aso_debug_pub.ADD ( 'serviceable_product_flag = ' || l_serviceable_product_flag , 1 , 'N' );
2133: END IF;
2134:
2135: IF l_service_item_flag = 'Y'
2128: l_service_item_flag := l_qte_line_tbl ( i ).service_item_flag;
2129:
2130: IF aso_debug_pub.g_debug_flag = 'Y' THEN
2131: aso_debug_pub.ADD ( 'service item flag = ' || l_service_item_flag , 1 , 'N' );
2132: aso_debug_pub.ADD ( 'serviceable_product_flag = ' || l_serviceable_product_flag , 1 , 'N' );
2133: END IF;
2134:
2135: IF l_service_item_flag = 'Y'
2136: AND (l_qte_line_dtl_tbl ( 1 ).service_ref_type_code IS NULL OR
2137: l_qte_line_dtl_tbl ( 1 ).service_ref_type_code <> 'QUOTE') THEN
2138: l_service_item_flag := 'N';
2139: END IF;
2140:
2141: IF aso_debug_pub.g_debug_flag = 'Y' THEN
2142: aso_debug_pub.ADD ( 'service item flag 2= ' || l_service_item_flag , 1 , 'N' );
2143: END IF;
2144:
2145: IF l_qte_line_tbl ( i ).item_type_code <> 'CFG'
2138: l_service_item_flag := 'N';
2139: END IF;
2140:
2141: IF aso_debug_pub.g_debug_flag = 'Y' THEN
2142: aso_debug_pub.ADD ( 'service item flag 2= ' || l_service_item_flag , 1 , 'N' );
2143: END IF;
2144:
2145: IF l_qte_line_tbl ( i ).item_type_code <> 'CFG'
2146: AND l_qte_line_tbl ( i ).item_type_code <> 'OPT'
2259:
2260: END IF;
2261:
2262:
2263: IF aso_debug_pub.g_debug_flag = 'Y' THEN
2264: aso_debug_pub.ADD ( 'Copy_Line_Rows - Before insert_quote_line_rows: ' || l_qte_line_id , 1 , 'Y' );
2265: END IF;
2266: ASO_QUOTE_LINES_PVT.Insert_Quote_Line_Rows (
2267: p_control_rec => l_control_rec
2260: END IF;
2261:
2262:
2263: IF aso_debug_pub.g_debug_flag = 'Y' THEN
2264: aso_debug_pub.ADD ( 'Copy_Line_Rows - Before insert_quote_line_rows: ' || l_qte_line_id , 1 , 'Y' );
2265: END IF;
2266: ASO_QUOTE_LINES_PVT.Insert_Quote_Line_Rows (
2267: p_control_rec => l_control_rec
2268: , P_qte_Line_Rec => l_qte_line_tbl ( i )
2317: ELSIF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
2318: x_return_status := FND_API.G_RET_STS_ERROR;
2319: RAISE FND_API.G_EXC_ERROR;
2320: END IF;
2321: IF aso_debug_pub.g_debug_flag = 'Y' THEN
2322: aso_debug_pub.ADD ( 'Copy_Rows - After insert_quote_line_rows - status: ' || l_return_status , 1 , 'Y' );
2323: END IF;
2324:
2325: IF aso_debug_pub.g_debug_flag = 'Y' THEN
2318: x_return_status := FND_API.G_RET_STS_ERROR;
2319: RAISE FND_API.G_EXC_ERROR;
2320: END IF;
2321: IF aso_debug_pub.g_debug_flag = 'Y' THEN
2322: aso_debug_pub.ADD ( 'Copy_Rows - After insert_quote_line_rows - status: ' || l_return_status , 1 , 'Y' );
2323: END IF;
2324:
2325: IF aso_debug_pub.g_debug_flag = 'Y' THEN
2326: aso_debug_pub.ADD ( 'Copy_Rows - Updating the top model and ato line id for the top model line ', 1 , 'Y' );
2321: IF aso_debug_pub.g_debug_flag = 'Y' THEN
2322: aso_debug_pub.ADD ( 'Copy_Rows - After insert_quote_line_rows - status: ' || l_return_status , 1 , 'Y' );
2323: END IF;
2324:
2325: IF aso_debug_pub.g_debug_flag = 'Y' THEN
2326: aso_debug_pub.ADD ( 'Copy_Rows - Updating the top model and ato line id for the top model line ', 1 , 'Y' );
2327: aso_debug_pub.ADD ( 'Copy_Rows - l_ato_model: ' || l_ato_model , 1 , 'Y' );
2328: END IF;
2329: update aso_quote_line_details
2322: aso_debug_pub.ADD ( 'Copy_Rows - After insert_quote_line_rows - status: ' || l_return_status , 1 , 'Y' );
2323: END IF;
2324:
2325: IF aso_debug_pub.g_debug_flag = 'Y' THEN
2326: aso_debug_pub.ADD ( 'Copy_Rows - Updating the top model and ato line id for the top model line ', 1 , 'Y' );
2327: aso_debug_pub.ADD ( 'Copy_Rows - l_ato_model: ' || l_ato_model , 1 , 'Y' );
2328: END IF;
2329: update aso_quote_line_details
2330: set top_model_line_id = lx_qte_line_rec.quote_line_id,
2323: END IF;
2324:
2325: IF aso_debug_pub.g_debug_flag = 'Y' THEN
2326: aso_debug_pub.ADD ( 'Copy_Rows - Updating the top model and ato line id for the top model line ', 1 , 'Y' );
2327: aso_debug_pub.ADD ( 'Copy_Rows - l_ato_model: ' || l_ato_model , 1 , 'Y' );
2328: END IF;
2329: update aso_quote_line_details
2330: set top_model_line_id = lx_qte_line_rec.quote_line_id,
2331: ato_line_id = decode(l_ato_model,fnd_api.g_true,lx_qte_line_rec.quote_line_id,null)
2344: l_payment_tbl ( j ).payment_id := NULL;
2345: l_payment_tbl ( j ).object_version_number := FND_API.G_MISS_NUM;
2346: END LOOP;
2347:
2348: IF aso_debug_pub.g_debug_flag = 'Y' THEN
2349: aso_debug_pub.add('Copy_Rows: Before call to copy_payment_row ', 1, 'Y');
2350: END IF;
2351:
2352: aso_copy_quote_pvt.copy_payment_row(p_payment_rec => l_payment_tbl(1) ,
2345: l_payment_tbl ( j ).object_version_number := FND_API.G_MISS_NUM;
2346: END LOOP;
2347:
2348: IF aso_debug_pub.g_debug_flag = 'Y' THEN
2349: aso_debug_pub.add('Copy_Rows: Before call to copy_payment_row ', 1, 'Y');
2350: END IF;
2351:
2352: aso_copy_quote_pvt.copy_payment_row(p_payment_rec => l_payment_tbl(1) ,
2353: x_return_status => l_return_status,
2353: x_return_status => l_return_status,
2354: x_msg_count => x_msg_count,
2355: x_msg_data => x_msg_data);
2356:
2357: IF aso_debug_pub.g_debug_flag = 'Y' THEN
2358: aso_debug_pub.add('Copy_Rows: After call to copy_payment_row: x_return_status: '||l_return_status, 1, 'Y');
2359: END IF;
2360: IF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
2361: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2354: x_msg_count => x_msg_count,
2355: x_msg_data => x_msg_data);
2356:
2357: IF aso_debug_pub.g_debug_flag = 'Y' THEN
2358: aso_debug_pub.add('Copy_Rows: After call to copy_payment_row: x_return_status: '||l_return_status, 1, 'Y');
2359: END IF;
2360: IF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
2361: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2362: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_ERROR ) THEN
2368: ELSIF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
2369: x_return_status := FND_API.G_RET_STS_ERROR;
2370: RAISE FND_API.G_EXC_ERROR;
2371: END IF;
2372: IF aso_debug_pub.g_debug_flag = 'Y' THEN
2373: aso_debug_pub.ADD ( 'Copy_Rows - After insert_quote_line_rows - status: ' || l_return_status , 1 , 'Y' );
2374: END IF;
2375:
2376: END IF;
2369: x_return_status := FND_API.G_RET_STS_ERROR;
2370: RAISE FND_API.G_EXC_ERROR;
2371: END IF;
2372: IF aso_debug_pub.g_debug_flag = 'Y' THEN
2373: aso_debug_pub.ADD ( 'Copy_Rows - After insert_quote_line_rows - status: ' || l_return_status , 1 , 'Y' );
2374: END IF;
2375:
2376: END IF;
2377:
2379:
2380: -- Copying the sales supplement data for the line
2381: IF ( P_Copy_Quote_Control_Rec.New_Version = FND_API.G_TRUE ) THEN
2382:
2383: IF aso_debug_pub.g_debug_flag = 'Y' THEN
2384: aso_debug_pub.ADD ( 'Copy_Rows - Begin- before line copy_sales_supplement ' , 1 , 'Y' );
2385: END IF;
2386:
2387: ASO_COPY_QUOTE_PVT.INSERT_SALES_SUPP_DATA
2380: -- Copying the sales supplement data for the line
2381: IF ( P_Copy_Quote_Control_Rec.New_Version = FND_API.G_TRUE ) THEN
2382:
2383: IF aso_debug_pub.g_debug_flag = 'Y' THEN
2384: aso_debug_pub.ADD ( 'Copy_Rows - Begin- before line copy_sales_supplement ' , 1 , 'Y' );
2385: END IF;
2386:
2387: ASO_COPY_QUOTE_PVT.INSERT_SALES_SUPP_DATA
2388: (
2395: X_Msg_Count => X_Msg_Count,
2396: X_Msg_Data => X_Msg_Data );
2397:
2398:
2399: IF aso_debug_pub.g_debug_flag = 'Y' THEN
2400: aso_debug_pub.ADD ( 'Copy_Rows -After line copy_sales_supplement ' || x_return_status , 1 , 'Y' );
2401: END IF;
2402:
2403:
2396: X_Msg_Data => X_Msg_Data );
2397:
2398:
2399: IF aso_debug_pub.g_debug_flag = 'Y' THEN
2400: aso_debug_pub.ADD ( 'Copy_Rows -After line copy_sales_supplement ' || x_return_status , 1 , 'Y' );
2401: END IF;
2402:
2403:
2404: IF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
2426: IF P_Copy_Quote_Control_Rec.Copy_Attachment = FND_API.G_TRUE
2427:
2428: OR ( ( P_Qte_Line_Id IS NOT NULL ) AND (P_Qte_Line_Id <> FND_API.G_MISS_NUM)) THEN
2429:
2430: IF aso_debug_pub.g_debug_flag = 'Y' THEN
2431: aso_debug_pub.ADD ( 'Copy_Rows - Begin- before line copy_attch ' , 1 , 'Y' );
2432: END IF;
2433:
2434: ASO_ATTACHMENT_INT.Copy_Attachments(
2427:
2428: OR ( ( P_Qte_Line_Id IS NOT NULL ) AND (P_Qte_Line_Id <> FND_API.G_MISS_NUM)) THEN
2429:
2430: IF aso_debug_pub.g_debug_flag = 'Y' THEN
2431: aso_debug_pub.ADD ( 'Copy_Rows - Begin- before line copy_attch ' , 1 , 'Y' );
2432: END IF;
2433:
2434: ASO_ATTACHMENT_INT.Copy_Attachments(
2435: p_api_version => l_api_version,
2440: x_return_status => l_return_status,
2441: x_msg_count => x_msg_count,
2442: x_msg_data => x_msg_data
2443: );
2444: IF aso_debug_pub.g_debug_flag = 'Y' THEN
2445: aso_debug_pub.ADD ( 'Copy_Rows -After line copy_attch ' || x_return_status , 1 , 'Y' );
2446: END IF;
2447:
2448: IF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
2441: x_msg_count => x_msg_count,
2442: x_msg_data => x_msg_data
2443: );
2444: IF aso_debug_pub.g_debug_flag = 'Y' THEN
2445: aso_debug_pub.ADD ( 'Copy_Rows -After line copy_attch ' || x_return_status , 1 , 'Y' );
2446: END IF;
2447:
2448: IF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
2449: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2462:
2463: FOR j IN 1 .. l_dup_price_adj_tbl.COUNT LOOP
2464: l_price_index_link_tbl ( l_dup_price_adj_tbl ( j ).price_adjustment_id ) :=
2465: lx_ln_price_adj_tbl ( j ).price_adjustment_id;
2466: aso_debug_pub.ADD ( 'Copy - l_dup_price_adj_tbl ( j ).price_adjustment_id ' || l_dup_price_adj_tbl ( j ).price_adjustment_id , 1 , 'Y' );
2467: aso_debug_pub.ADD ( 'Copy - lx_ln_price_adj_tbl ( j ).price_adjustment_id ' || lx_ln_price_adj_tbl ( j ).price_adjustment_id , 1 , 'Y' );
2468: END LOOP;
2469:
2470: l_line_index_link_tbl ( l_qte_line_id ) :=
2463: FOR j IN 1 .. l_dup_price_adj_tbl.COUNT LOOP
2464: l_price_index_link_tbl ( l_dup_price_adj_tbl ( j ).price_adjustment_id ) :=
2465: lx_ln_price_adj_tbl ( j ).price_adjustment_id;
2466: aso_debug_pub.ADD ( 'Copy - l_dup_price_adj_tbl ( j ).price_adjustment_id ' || l_dup_price_adj_tbl ( j ).price_adjustment_id , 1 , 'Y' );
2467: aso_debug_pub.ADD ( 'Copy - lx_ln_price_adj_tbl ( j ).price_adjustment_id ' || lx_ln_price_adj_tbl ( j ).price_adjustment_id , 1 , 'Y' );
2468: END LOOP;
2469:
2470: l_line_index_link_tbl ( l_qte_line_id ) :=
2471: lx_qte_line_rec.quote_line_id;
2468: END LOOP;
2469:
2470: l_line_index_link_tbl ( l_qte_line_id ) :=
2471: lx_qte_line_rec.quote_line_id;
2472: IF aso_debug_pub.g_debug_flag = 'Y' THEN
2473: aso_debug_pub.ADD ( 'Copy_Config - l_qte_line_tbl(i).item_type_code ' || l_qte_line_tbl ( i ).item_type_code , 1 , 'Y' );
2474: aso_debug_pub.ADD ( 'Copy - l_qte_line_tbl(i).inventory_item_id ' || l_qte_line_tbl ( i ).inventory_item_id , 1 , 'Y' );
2475: aso_debug_pub.ADD ( 'Copy - l_serviceable_product_flag ' || l_serviceable_product_flag , 1 , 'Y' );
2476: END IF;
2469:
2470: l_line_index_link_tbl ( l_qte_line_id ) :=
2471: lx_qte_line_rec.quote_line_id;
2472: IF aso_debug_pub.g_debug_flag = 'Y' THEN
2473: aso_debug_pub.ADD ( 'Copy_Config - l_qte_line_tbl(i).item_type_code ' || l_qte_line_tbl ( i ).item_type_code , 1 , 'Y' );
2474: aso_debug_pub.ADD ( 'Copy - l_qte_line_tbl(i).inventory_item_id ' || l_qte_line_tbl ( i ).inventory_item_id , 1 , 'Y' );
2475: aso_debug_pub.ADD ( 'Copy - l_serviceable_product_flag ' || l_serviceable_product_flag , 1 , 'Y' );
2476: END IF;
2477:
2470: l_line_index_link_tbl ( l_qte_line_id ) :=
2471: lx_qte_line_rec.quote_line_id;
2472: IF aso_debug_pub.g_debug_flag = 'Y' THEN
2473: aso_debug_pub.ADD ( 'Copy_Config - l_qte_line_tbl(i).item_type_code ' || l_qte_line_tbl ( i ).item_type_code , 1 , 'Y' );
2474: aso_debug_pub.ADD ( 'Copy - l_qte_line_tbl(i).inventory_item_id ' || l_qte_line_tbl ( i ).inventory_item_id , 1 , 'Y' );
2475: aso_debug_pub.ADD ( 'Copy - l_serviceable_product_flag ' || l_serviceable_product_flag , 1 , 'Y' );
2476: END IF;
2477:
2478: IF l_serviceable_product_flag = 'Y' THEN
2471: lx_qte_line_rec.quote_line_id;
2472: IF aso_debug_pub.g_debug_flag = 'Y' THEN
2473: aso_debug_pub.ADD ( 'Copy_Config - l_qte_line_tbl(i).item_type_code ' || l_qte_line_tbl ( i ).item_type_code , 1 , 'Y' );
2474: aso_debug_pub.ADD ( 'Copy - l_qte_line_tbl(i).inventory_item_id ' || l_qte_line_tbl ( i ).inventory_item_id , 1 , 'Y' );
2475: aso_debug_pub.ADD ( 'Copy - l_serviceable_product_flag ' || l_serviceable_product_flag , 1 , 'Y' );
2476: END IF;
2477:
2478: IF l_serviceable_product_flag = 'Y' THEN
2479:
2476: END IF;
2477:
2478: IF l_serviceable_product_flag = 'Y' THEN
2479:
2480: IF aso_debug_pub.g_debug_flag = 'Y' THEN
2481: aso_debug_pub.ADD ( 'Before Calling Service Copy ' , 1 , 'N' );
2482: END IF;
2483:
2484: ASO_COPY_QUOTE_PVT.service_copy (
2477:
2478: IF l_serviceable_product_flag = 'Y' THEN
2479:
2480: IF aso_debug_pub.g_debug_flag = 'Y' THEN
2481: aso_debug_pub.ADD ( 'Before Calling Service Copy ' , 1 , 'N' );
2482: END IF;
2483:
2484: ASO_COPY_QUOTE_PVT.service_copy (
2485: p_qte_line_id => l_qte_line_id
2495: );
2496:
2497: END IF;
2498:
2499: IF aso_debug_pub.g_debug_flag = 'Y' THEN
2500: aso_debug_pub.ADD ( ' After Calling Service Copy' , 1 , 'N' );
2501: END IF;
2502:
2503:
2496:
2497: END IF;
2498:
2499: IF aso_debug_pub.g_debug_flag = 'Y' THEN
2500: aso_debug_pub.ADD ( ' After Calling Service Copy' , 1 , 'N' );
2501: END IF;
2502:
2503:
2504: IF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
2525: l_config_rev_nbr;
2526: END LOOP;
2527: END IF;
2528:
2529: IF aso_debug_pub.g_debug_flag = 'Y' THEN
2530: aso_debug_pub.ADD ( 'l_old_config_header_id = ' || l_old_config_header_id , 1 , 'N' );
2531: aso_debug_pub.ADD ( ' Before Calling Copy Quote Config Copy' , 1 , 'N' );
2532: END IF;
2533:
2526: END LOOP;
2527: END IF;
2528:
2529: IF aso_debug_pub.g_debug_flag = 'Y' THEN
2530: aso_debug_pub.ADD ( 'l_old_config_header_id = ' || l_old_config_header_id , 1 , 'N' );
2531: aso_debug_pub.ADD ( ' Before Calling Copy Quote Config Copy' , 1 , 'N' );
2532: END IF;
2533:
2534: ASO_COPY_QUOTE_PVT.config_copy (
2527: END IF;
2528:
2529: IF aso_debug_pub.g_debug_flag = 'Y' THEN
2530: aso_debug_pub.ADD ( 'l_old_config_header_id = ' || l_old_config_header_id , 1 , 'N' );
2531: aso_debug_pub.ADD ( ' Before Calling Copy Quote Config Copy' , 1 , 'N' );
2532: END IF;
2533:
2534: ASO_COPY_QUOTE_PVT.config_copy (
2535: p_old_config_header_id => l_old_config_header_id
2546: , X_Msg_Data => x_msg_data
2547: , p_line_quantity => FND_API.G_MISS_NUM
2548: );
2549:
2550: IF aso_debug_pub.g_debug_flag = 'Y' THEN
2551: aso_debug_pub.ADD ( ' After Calling Copy Quote Config Copy' , 1 , 'N' );
2552: END IF;
2553:
2554:
2547: , p_line_quantity => FND_API.G_MISS_NUM
2548: );
2549:
2550: IF aso_debug_pub.g_debug_flag = 'Y' THEN
2551: aso_debug_pub.ADD ( ' After Calling Copy Quote Config Copy' , 1 , 'N' );
2552: END IF;
2553:
2554:
2555: IF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
2571: /* bug 1903605*/
2572:
2573: IF (l_orig_item_id_tbl IS NOT NULL) AND (l_new_item_id_tbl IS NOT NULL) THEN
2574:
2575: IF aso_debug_pub.g_debug_flag = 'Y' THEN
2576: aso_debug_pub.ADD ( 'item_id_count > 0 ', 1 , 'N' );
2577: aso_debug_pub.ADD ( 'Orig Tbl Count ' ||l_orig_item_id_tbl.count, 1 , 'N' );
2578: aso_debug_pub.ADD ( 'New Tbl Count '||l_new_item_id_tbl.count, 1 , 'N' );
2579:
2572:
2573: IF (l_orig_item_id_tbl IS NOT NULL) AND (l_new_item_id_tbl IS NOT NULL) THEN
2574:
2575: IF aso_debug_pub.g_debug_flag = 'Y' THEN
2576: aso_debug_pub.ADD ( 'item_id_count > 0 ', 1 , 'N' );
2577: aso_debug_pub.ADD ( 'Orig Tbl Count ' ||l_orig_item_id_tbl.count, 1 , 'N' );
2578: aso_debug_pub.ADD ( 'New Tbl Count '||l_new_item_id_tbl.count, 1 , 'N' );
2579:
2580: END IF;
2573: IF (l_orig_item_id_tbl IS NOT NULL) AND (l_new_item_id_tbl IS NOT NULL) THEN
2574:
2575: IF aso_debug_pub.g_debug_flag = 'Y' THEN
2576: aso_debug_pub.ADD ( 'item_id_count > 0 ', 1 , 'N' );
2577: aso_debug_pub.ADD ( 'Orig Tbl Count ' ||l_orig_item_id_tbl.count, 1 , 'N' );
2578: aso_debug_pub.ADD ( 'New Tbl Count '||l_new_item_id_tbl.count, 1 , 'N' );
2579:
2580: END IF;
2581:
2574:
2575: IF aso_debug_pub.g_debug_flag = 'Y' THEN
2576: aso_debug_pub.ADD ( 'item_id_count > 0 ', 1 , 'N' );
2577: aso_debug_pub.ADD ( 'Orig Tbl Count ' ||l_orig_item_id_tbl.count, 1 , 'N' );
2578: aso_debug_pub.ADD ( 'New Tbl Count '||l_new_item_id_tbl.count, 1 , 'N' );
2579:
2580: END IF;
2581:
2582: IF l_orig_item_id_tbl.count > 0 AND l_new_item_id_tbl.count > 0 THEN
2609:
2610: FOR price_adj_rltship_rec IN c_price_adj_rel ( p_qte_header_id ) LOOP
2611: lx_price_adj_rltship_id := FND_API.G_MISS_NUM;
2612:
2613: IF aso_debug_pub.g_debug_flag = 'Y' THEN
2614: aso_debug_pub.ADD ( 'l_line_index_link_tbl ( price_adj_rltship_rec.quote_line_id ) = ' || l_line_index_link_tbl ( price_adj_rltship_rec.quote_line_id ) , 1 , 'N' );
2615: END IF;
2616:
2617: OPEN C_Get_Ship_Id (
2610: FOR price_adj_rltship_rec IN c_price_adj_rel ( p_qte_header_id ) LOOP
2611: lx_price_adj_rltship_id := FND_API.G_MISS_NUM;
2612:
2613: IF aso_debug_pub.g_debug_flag = 'Y' THEN
2614: aso_debug_pub.ADD ( 'l_line_index_link_tbl ( price_adj_rltship_rec.quote_line_id ) = ' || l_line_index_link_tbl ( price_adj_rltship_rec.quote_line_id ) , 1 , 'N' );
2615: END IF;
2616:
2617: OPEN C_Get_Ship_Id (
2618: l_line_index_link_tbl ( price_adj_rltship_rec.quote_line_id )
2619: );
2620: FETCH C_Get_Ship_Id INTO l_ship_id;
2621: CLOSE C_Get_Ship_Id;
2622:
2623: IF aso_debug_pub.g_debug_flag = 'Y' THEN
2624: aso_debug_pub.ADD ( 'l_ship_id from line_id = ' || l_ship_id , 1 , 'N' );
2625: aso_debug_pub.ADD ( 'price_adj_rltship_rec.price_adjustment_id = ' || price_adj_rltship_rec.price_adjustment_id , 1 , 'N' );
2626: aso_debug_pub.ADD ( 'price_adj_rltship_rec.rltd_price_adj_id = ' || price_adj_rltship_rec.rltd_price_adj_id , 1 , 'N' );
2627: END IF;
2620: FETCH C_Get_Ship_Id INTO l_ship_id;
2621: CLOSE C_Get_Ship_Id;
2622:
2623: IF aso_debug_pub.g_debug_flag = 'Y' THEN
2624: aso_debug_pub.ADD ( 'l_ship_id from line_id = ' || l_ship_id , 1 , 'N' );
2625: aso_debug_pub.ADD ( 'price_adj_rltship_rec.price_adjustment_id = ' || price_adj_rltship_rec.price_adjustment_id , 1 , 'N' );
2626: aso_debug_pub.ADD ( 'price_adj_rltship_rec.rltd_price_adj_id = ' || price_adj_rltship_rec.rltd_price_adj_id , 1 , 'N' );
2627: END IF;
2628:
2621: CLOSE C_Get_Ship_Id;
2622:
2623: IF aso_debug_pub.g_debug_flag = 'Y' THEN
2624: aso_debug_pub.ADD ( 'l_ship_id from line_id = ' || l_ship_id , 1 , 'N' );
2625: aso_debug_pub.ADD ( 'price_adj_rltship_rec.price_adjustment_id = ' || price_adj_rltship_rec.price_adjustment_id , 1 , 'N' );
2626: aso_debug_pub.ADD ( 'price_adj_rltship_rec.rltd_price_adj_id = ' || price_adj_rltship_rec.rltd_price_adj_id , 1 , 'N' );
2627: END IF;
2628:
2629: ASO_PRICE_RLTSHIPS_PKG.Insert_Row (
2622:
2623: IF aso_debug_pub.g_debug_flag = 'Y' THEN
2624: aso_debug_pub.ADD ( 'l_ship_id from line_id = ' || l_ship_id , 1 , 'N' );
2625: aso_debug_pub.ADD ( 'price_adj_rltship_rec.price_adjustment_id = ' || price_adj_rltship_rec.price_adjustment_id , 1 , 'N' );
2626: aso_debug_pub.ADD ( 'price_adj_rltship_rec.rltd_price_adj_id = ' || price_adj_rltship_rec.rltd_price_adj_id , 1 , 'N' );
2627: END IF;
2628:
2629: ASO_PRICE_RLTSHIPS_PKG.Insert_Row (
2630: px_ADJ_RELATIONSHIP_ID => lx_price_adj_rltship_id
2670:
2671: -- Copy for only that line if a line id was passed in
2672: ELSIF ( P_Qte_Line_Id IS NOT NULL ) AND (P_Qte_Line_Id <> FND_API.G_MISS_NUM) THEN
2673:
2674: IF aso_debug_pub.g_debug_flag = 'Y' THEN
2675: aso_debug_pub.ADD ( ' Copying price adj records ', 1 , 'N' );
2676: aso_debug_pub.ADD ( 'Line Index Tbl Count = '||to_char(l_line_index_link_tbl.count) , 1 , 'N' );
2677: END IF;
2678:
2671: -- Copy for only that line if a line id was passed in
2672: ELSIF ( P_Qte_Line_Id IS NOT NULL ) AND (P_Qte_Line_Id <> FND_API.G_MISS_NUM) THEN
2673:
2674: IF aso_debug_pub.g_debug_flag = 'Y' THEN
2675: aso_debug_pub.ADD ( ' Copying price adj records ', 1 , 'N' );
2676: aso_debug_pub.ADD ( 'Line Index Tbl Count = '||to_char(l_line_index_link_tbl.count) , 1 , 'N' );
2677: END IF;
2678:
2679: FOR price_adj_rltship_rec IN c_price_adj_rel_from_line_id ( P_Qte_Line_Id ) LOOP
2672: ELSIF ( P_Qte_Line_Id IS NOT NULL ) AND (P_Qte_Line_Id <> FND_API.G_MISS_NUM) THEN
2673:
2674: IF aso_debug_pub.g_debug_flag = 'Y' THEN
2675: aso_debug_pub.ADD ( ' Copying price adj records ', 1 , 'N' );
2676: aso_debug_pub.ADD ( 'Line Index Tbl Count = '||to_char(l_line_index_link_tbl.count) , 1 , 'N' );
2677: END IF;
2678:
2679: FOR price_adj_rltship_rec IN c_price_adj_rel_from_line_id ( P_Qte_Line_Id ) LOOP
2680: lx_price_adj_rltship_id := FND_API.G_MISS_NUM;
2677: END IF;
2678:
2679: FOR price_adj_rltship_rec IN c_price_adj_rel_from_line_id ( P_Qte_Line_Id ) LOOP
2680: lx_price_adj_rltship_id := FND_API.G_MISS_NUM;
2681: IF aso_debug_pub.g_debug_flag = 'Y' THEN
2682: aso_debug_pub.ADD ( 'l_line_index_link_tbl ( price_adj_rltship_rec.quote_line_id ) = '
2683: || l_line_index_link_tbl( price_adj_rltship_rec.quote_line_id ) , 1 , 'N' );
2684: END IF;
2685:
2678:
2679: FOR price_adj_rltship_rec IN c_price_adj_rel_from_line_id ( P_Qte_Line_Id ) LOOP
2680: lx_price_adj_rltship_id := FND_API.G_MISS_NUM;
2681: IF aso_debug_pub.g_debug_flag = 'Y' THEN
2682: aso_debug_pub.ADD ( 'l_line_index_link_tbl ( price_adj_rltship_rec.quote_line_id ) = '
2683: || l_line_index_link_tbl( price_adj_rltship_rec.quote_line_id ) , 1 , 'N' );
2684: END IF;
2685:
2686: OPEN C_Get_Ship_Id (
2688: );
2689: FETCH C_Get_Ship_Id INTO l_ship_id;
2690: CLOSE C_Get_Ship_Id;
2691:
2692: IF aso_debug_pub.g_debug_flag = 'Y' THEN
2693: aso_debug_pub.ADD ( 'l_ship_id from line_id = ' || l_ship_id , 1 , 'N' );
2694: END IF;
2695:
2696: ASO_PRICE_RLTSHIPS_PKG.Insert_Row (
2689: FETCH C_Get_Ship_Id INTO l_ship_id;
2690: CLOSE C_Get_Ship_Id;
2691:
2692: IF aso_debug_pub.g_debug_flag = 'Y' THEN
2693: aso_debug_pub.ADD ( 'l_ship_id from line_id = ' || l_ship_id , 1 , 'N' );
2694: END IF;
2695:
2696: ASO_PRICE_RLTSHIPS_PKG.Insert_Row (
2697: px_ADJ_RELATIONSHIP_ID => lx_price_adj_rltship_id
2714:
2715:
2716: -- copy line relationships
2717:
2718: IF aso_debug_pub.g_debug_flag = 'Y' THEN
2719: aso_debug_pub.ADD ( ' Copying line relationship records ', 1 , 'N' );
2720: END IF;
2721:
2722: FOR line_rel_rec IN c_line_relation_from_line_id ( P_Qte_Line_Id ) LOOP
2715:
2716: -- copy line relationships
2717:
2718: IF aso_debug_pub.g_debug_flag = 'Y' THEN
2719: aso_debug_pub.ADD ( ' Copying line relationship records ', 1 , 'N' );
2720: END IF;
2721:
2722: FOR line_rel_rec IN c_line_relation_from_line_id ( P_Qte_Line_Id ) LOOP
2723: lx_LINE_RELATIONSHIP_ID := FND_API.G_MISS_NUM;
2745:
2746: -- Pass back the new quote line id which was created
2747: IF ( P_Qte_Line_Id IS NOT NULL ) AND (P_Qte_Line_Id <> FND_API.G_MISS_NUM) THEN
2748:
2749: IF aso_debug_pub.g_debug_flag = 'Y' THEN
2750: aso_debug_pub.ADD ( 'Calling Update Quote to re-price the quote ', 1 , 'N' );
2751: END IF;
2752: -- Call Update Quote for repricing the quote
2753:
2746: -- Pass back the new quote line id which was created
2747: IF ( P_Qte_Line_Id IS NOT NULL ) AND (P_Qte_Line_Id <> FND_API.G_MISS_NUM) THEN
2748:
2749: IF aso_debug_pub.g_debug_flag = 'Y' THEN
2750: aso_debug_pub.ADD ( 'Calling Update Quote to re-price the quote ', 1 , 'N' );
2751: END IF;
2752: -- Call Update Quote for repricing the quote
2753:
2754: -- l_control_rec.pricing_request_type := 'ASO';
2807: x_msg_count => x_msg_count,
2808: x_msg_data => x_msg_data
2809: );
2810:
2811: IF aso_debug_pub.g_debug_flag = 'Y' THEN
2812: aso_debug_pub.ADD ( ' Return Status from Update Quote = '||l_return_status, 1 , 'N' );
2813: END IF;
2814:
2815: IF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
2808: x_msg_data => x_msg_data
2809: );
2810:
2811: IF aso_debug_pub.g_debug_flag = 'Y' THEN
2812: aso_debug_pub.ADD ( ' Return Status from Update Quote = '||l_return_status, 1 , 'N' );
2813: END IF;
2814:
2815: IF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
2816: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2823: x_return_status := FND_API.G_RET_STS_ERROR;
2824: RAISE FND_API.G_EXC_ERROR;
2825: END IF;
2826:
2827: IF aso_debug_pub.g_debug_flag = 'Y' THEN
2828: aso_debug_pub.ADD ( ' After Calling Update Quote ', 1 , 'N' );
2829: END IF;
2830:
2831: X_Qte_Line_Id := lx_qte_line_rec.quote_line_id;
2824: RAISE FND_API.G_EXC_ERROR;
2825: END IF;
2826:
2827: IF aso_debug_pub.g_debug_flag = 'Y' THEN
2828: aso_debug_pub.ADD ( ' After Calling Update Quote ', 1 , 'N' );
2829: END IF;
2830:
2831: X_Qte_Line_Id := lx_qte_line_rec.quote_line_id;
2832: IF aso_debug_pub.g_debug_flag = 'Y' THEN
2828: aso_debug_pub.ADD ( ' After Calling Update Quote ', 1 , 'N' );
2829: END IF;
2830:
2831: X_Qte_Line_Id := lx_qte_line_rec.quote_line_id;
2832: IF aso_debug_pub.g_debug_flag = 'Y' THEN
2833: aso_debug_pub.ADD ('X_Qte_Line_Id = '||to_char(X_Qte_Line_Id), 1 , 'N' );
2834: END IF;
2835:
2836: ELSE
2829: END IF;
2830:
2831: X_Qte_Line_Id := lx_qte_line_rec.quote_line_id;
2832: IF aso_debug_pub.g_debug_flag = 'Y' THEN
2833: aso_debug_pub.ADD ('X_Qte_Line_Id = '||to_char(X_Qte_Line_Id), 1 , 'N' );
2834: END IF;
2835:
2836: ELSE
2837:
2837:
2838: X_Qte_Line_Id := NULL;
2839: END IF;
2840:
2841: IF aso_debug_pub.g_debug_flag = 'Y' THEN
2842: aso_debug_pub.ADD ( ' End Copy Line Rows API ', 1 , 'N' );
2843: END IF;
2844:
2845: x_return_status := FND_API.G_RET_STS_SUCCESS;
2838: X_Qte_Line_Id := NULL;
2839: END IF;
2840:
2841: IF aso_debug_pub.g_debug_flag = 'Y' THEN
2842: aso_debug_pub.ADD ( ' End Copy Line Rows API ', 1 , 'N' );
2843: END IF;
2844:
2845: x_return_status := FND_API.G_RET_STS_SUCCESS;
2846:
3016:
3017:
3018: BEGIN
3019:
3020: IF aso_debug_pub.g_debug_flag = 'Y' THEN
3021: aso_debug_pub.ADD ('Copy_Config - Begin ' , 1, 'Y' );
3022: aso_debug_pub.ADD ( 'Copy_Config - p_new_qte_header_id ' || p_new_qte_header_id , 1 , 'Y' );
3023: aso_debug_pub.ADD ( 'Copy_Config - p_qte_header_id ' || p_qte_header_id , 1 , 'Y' );
3024: END IF;
3017:
3018: BEGIN
3019:
3020: IF aso_debug_pub.g_debug_flag = 'Y' THEN
3021: aso_debug_pub.ADD ('Copy_Config - Begin ' , 1, 'Y' );
3022: aso_debug_pub.ADD ( 'Copy_Config - p_new_qte_header_id ' || p_new_qte_header_id , 1 , 'Y' );
3023: aso_debug_pub.ADD ( 'Copy_Config - p_qte_header_id ' || p_qte_header_id , 1 , 'Y' );
3024: END IF;
3025:
3018: BEGIN
3019:
3020: IF aso_debug_pub.g_debug_flag = 'Y' THEN
3021: aso_debug_pub.ADD ('Copy_Config - Begin ' , 1, 'Y' );
3022: aso_debug_pub.ADD ( 'Copy_Config - p_new_qte_header_id ' || p_new_qte_header_id , 1 , 'Y' );
3023: aso_debug_pub.ADD ( 'Copy_Config - p_qte_header_id ' || p_qte_header_id , 1 , 'Y' );
3024: END IF;
3025:
3026: x_return_status := FND_API.G_RET_STS_SUCCESS;
3019:
3020: IF aso_debug_pub.g_debug_flag = 'Y' THEN
3021: aso_debug_pub.ADD ('Copy_Config - Begin ' , 1, 'Y' );
3022: aso_debug_pub.ADD ( 'Copy_Config - p_new_qte_header_id ' || p_new_qte_header_id , 1 , 'Y' );
3023: aso_debug_pub.ADD ( 'Copy_Config - p_qte_header_id ' || p_qte_header_id , 1 , 'Y' );
3024: END IF;
3025:
3026: x_return_status := FND_API.G_RET_STS_SUCCESS;
3027:
3032: );
3033: LOOP
3034: FETCH line_id_from_config INTO qte_line_id;
3035: EXIT WHEN line_id_from_config%NOTFOUND;
3036: IF aso_debug_pub.g_debug_flag = 'Y' THEN
3037: aso_debug_pub.ADD ( 'Copy_Config - inside cursor qte_line_id ' || qte_line_id , 1 , 'Y' );
3038: END IF;
3039:
3040: l_qte_line_rec := ASO_UTILITY_PVT.Query_Qte_Line_Row ( qte_line_id );
3033: LOOP
3034: FETCH line_id_from_config INTO qte_line_id;
3035: EXIT WHEN line_id_from_config%NOTFOUND;
3036: IF aso_debug_pub.g_debug_flag = 'Y' THEN
3037: aso_debug_pub.ADD ( 'Copy_Config - inside cursor qte_line_id ' || qte_line_id , 1 , 'Y' );
3038: END IF;
3039:
3040: l_qte_line_rec := ASO_UTILITY_PVT.Query_Qte_Line_Row ( qte_line_id );
3041:
3053: OPEN get_qte_line_number(lx_line_index_link_tbl(l_old_quote_line_id));
3054: FETCH get_qte_line_number into l_line_number;
3055: CLOSE get_qte_line_number;
3056:
3057: IF aso_debug_pub.g_debug_flag = 'Y' THEN
3058: aso_debug_pub.ADD ( 'Line Number -- ' || l_line_number , 1 , 'Y' );
3059: END IF;
3060:
3061:
3054: FETCH get_qte_line_number into l_line_number;
3055: CLOSE get_qte_line_number;
3056:
3057: IF aso_debug_pub.g_debug_flag = 'Y' THEN
3058: aso_debug_pub.ADD ( 'Line Number -- ' || l_line_number , 1 , 'Y' );
3059: END IF;
3060:
3061:
3062: l_qte_line_rec.line_number := l_line_number;
3101: OPEN C_Serviceable_Product ( l_qte_line_rec.organization_id , l_qte_line_rec.inventory_item_id );
3102: FETCH C_Serviceable_Product INTO l_serviceable_product_flag;
3103: CLOSE C_Serviceable_Product;
3104:
3105: IF aso_debug_pub.g_debug_flag = 'Y' THEN
3106: aso_debug_pub.ADD ('Copy_Config - After querying all the records for the line ' , 1, 'Y' );
3107: END IF;
3108:
3109: FOR j IN 1 .. l_qte_line_dtl_tbl.COUNT LOOP
3102: FETCH C_Serviceable_Product INTO l_serviceable_product_flag;
3103: CLOSE C_Serviceable_Product;
3104:
3105: IF aso_debug_pub.g_debug_flag = 'Y' THEN
3106: aso_debug_pub.ADD ('Copy_Config - After querying all the records for the line ' , 1, 'Y' );
3107: END IF;
3108:
3109: FOR j IN 1 .. l_qte_line_dtl_tbl.COUNT LOOP
3110:
3107: END IF;
3108:
3109: FOR j IN 1 .. l_qte_line_dtl_tbl.COUNT LOOP
3110:
3111: IF aso_debug_pub.g_debug_flag = 'Y' THEN
3112: aso_debug_pub.ADD ('Copy_Config - l_qte_line_dtl_tbl('||j||')ref_line_id: '||l_qte_line_dtl_tbl(j).ref_line_id , 1, 'Y' );
3113: aso_debug_pub.ADD ('Copy_Config - l_qte_line_dtl_tbl('||j||')top_model_line_id: '||l_qte_line_dtl_tbl(j).top_model_line_id , 1, 'Y' );
3114: aso_debug_pub.ADD ('Copy_Config - l_qte_line_dtl_tbl('||j||')ato_line_id: '||l_qte_line_dtl_tbl(j).ato_line_id , 1, 'Y' );
3115: END IF;
3108:
3109: FOR j IN 1 .. l_qte_line_dtl_tbl.COUNT LOOP
3110:
3111: IF aso_debug_pub.g_debug_flag = 'Y' THEN
3112: aso_debug_pub.ADD ('Copy_Config - l_qte_line_dtl_tbl('||j||')ref_line_id: '||l_qte_line_dtl_tbl(j).ref_line_id , 1, 'Y' );
3113: aso_debug_pub.ADD ('Copy_Config - l_qte_line_dtl_tbl('||j||')top_model_line_id: '||l_qte_line_dtl_tbl(j).top_model_line_id , 1, 'Y' );
3114: aso_debug_pub.ADD ('Copy_Config - l_qte_line_dtl_tbl('||j||')ato_line_id: '||l_qte_line_dtl_tbl(j).ato_line_id , 1, 'Y' );
3115: END IF;
3116:
3109: FOR j IN 1 .. l_qte_line_dtl_tbl.COUNT LOOP
3110:
3111: IF aso_debug_pub.g_debug_flag = 'Y' THEN
3112: aso_debug_pub.ADD ('Copy_Config - l_qte_line_dtl_tbl('||j||')ref_line_id: '||l_qte_line_dtl_tbl(j).ref_line_id , 1, 'Y' );
3113: aso_debug_pub.ADD ('Copy_Config - l_qte_line_dtl_tbl('||j||')top_model_line_id: '||l_qte_line_dtl_tbl(j).top_model_line_id , 1, 'Y' );
3114: aso_debug_pub.ADD ('Copy_Config - l_qte_line_dtl_tbl('||j||')ato_line_id: '||l_qte_line_dtl_tbl(j).ato_line_id , 1, 'Y' );
3115: END IF;
3116:
3117: l_ref_ln_id := lx_line_index_link_tbl ( l_qte_line_dtl_tbl ( j ).ref_line_id );
3110:
3111: IF aso_debug_pub.g_debug_flag = 'Y' THEN
3112: aso_debug_pub.ADD ('Copy_Config - l_qte_line_dtl_tbl('||j||')ref_line_id: '||l_qte_line_dtl_tbl(j).ref_line_id , 1, 'Y' );
3113: aso_debug_pub.ADD ('Copy_Config - l_qte_line_dtl_tbl('||j||')top_model_line_id: '||l_qte_line_dtl_tbl(j).top_model_line_id , 1, 'Y' );
3114: aso_debug_pub.ADD ('Copy_Config - l_qte_line_dtl_tbl('||j||')ato_line_id: '||l_qte_line_dtl_tbl(j).ato_line_id , 1, 'Y' );
3115: END IF;
3116:
3117: l_ref_ln_id := lx_line_index_link_tbl ( l_qte_line_dtl_tbl ( j ).ref_line_id );
3118: l_qte_line_dtl_tbl ( j ).ref_line_id := l_ref_ln_id;
3204:
3205:
3206: --End of BC4J Fix
3207:
3208: IF aso_debug_pub.g_debug_flag = 'Y' THEN
3209: aso_debug_pub.ADD ( 'Copy_Config - Before insert_quote_line_rows: ' || l_quote_line_id , 1 , 'Y' );
3210: END IF;
3211: ASO_QUOTE_LINES_PVT.Insert_Quote_Line_Rows (
3212: p_control_rec => l_control_rec
3205:
3206: --End of BC4J Fix
3207:
3208: IF aso_debug_pub.g_debug_flag = 'Y' THEN
3209: aso_debug_pub.ADD ( 'Copy_Config - Before insert_quote_line_rows: ' || l_quote_line_id , 1 , 'Y' );
3210: END IF;
3211: ASO_QUOTE_LINES_PVT.Insert_Quote_Line_Rows (
3212: p_control_rec => l_control_rec
3213: , P_qte_Line_Rec => l_qte_line_rec
3276: l_payment_tbl ( j ).payment_id := NULL;
3277: l_payment_tbl ( j ).object_version_number := FND_API.G_MISS_NUM;
3278: END LOOP;
3279:
3280: IF aso_debug_pub.g_debug_flag = 'Y' THEN
3281: aso_debug_pub.add('Copy_Config: Before call to copy_payment_row ', 1, 'Y');
3282: END IF;
3283:
3284: aso_copy_quote_pvt.copy_payment_row(p_payment_rec => l_payment_tbl(1) ,
3277: l_payment_tbl ( j ).object_version_number := FND_API.G_MISS_NUM;
3278: END LOOP;
3279:
3280: IF aso_debug_pub.g_debug_flag = 'Y' THEN
3281: aso_debug_pub.add('Copy_Config: Before call to copy_payment_row ', 1, 'Y');
3282: END IF;
3283:
3284: aso_copy_quote_pvt.copy_payment_row(p_payment_rec => l_payment_tbl(1) ,
3285: x_return_status => l_return_status,
3285: x_return_status => l_return_status,
3286: x_msg_count => x_msg_count,
3287: x_msg_data => x_msg_data);
3288:
3289: IF aso_debug_pub.g_debug_flag = 'Y' THEN
3290: aso_debug_pub.add('Copy_Config: After call to copy_payment_row: x_return_status: '||l_return_status, 1, 'Y');
3291: END IF;
3292: IF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3293: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3286: x_msg_count => x_msg_count,
3287: x_msg_data => x_msg_data);
3288:
3289: IF aso_debug_pub.g_debug_flag = 'Y' THEN
3290: aso_debug_pub.add('Copy_Config: After call to copy_payment_row: x_return_status: '||l_return_status, 1, 'Y');
3291: END IF;
3292: IF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3293: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3294: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_ERROR ) THEN
3308:
3309: -- Copying the sales supplement data for the line
3310: IF ( P_Copy_Quote_Control_Rec.New_Version = FND_API.G_TRUE ) THEN
3311:
3312: IF aso_debug_pub.g_debug_flag = 'Y' THEN
3313: aso_debug_pub.ADD ( 'Copy_Rows - Begin- before line copy_sales_supplement ' , 1 , 'Y' );
3314: END IF;
3315:
3316: ASO_COPY_QUOTE_PVT.INSERT_SALES_SUPP_DATA
3309: -- Copying the sales supplement data for the line
3310: IF ( P_Copy_Quote_Control_Rec.New_Version = FND_API.G_TRUE ) THEN
3311:
3312: IF aso_debug_pub.g_debug_flag = 'Y' THEN
3313: aso_debug_pub.ADD ( 'Copy_Rows - Begin- before line copy_sales_supplement ' , 1 , 'Y' );
3314: END IF;
3315:
3316: ASO_COPY_QUOTE_PVT.INSERT_SALES_SUPP_DATA
3317: (
3324: X_Msg_Count => X_Msg_Count,
3325: X_Msg_Data => X_Msg_Data );
3326:
3327:
3328: IF aso_debug_pub.g_debug_flag = 'Y' THEN
3329: aso_debug_pub.ADD ( 'Copy_Rows -After line copy_sales_supplement ' || x_return_status , 1 , 'Y' );
3330: END IF;
3331:
3332:
3325: X_Msg_Data => X_Msg_Data );
3326:
3327:
3328: IF aso_debug_pub.g_debug_flag = 'Y' THEN
3329: aso_debug_pub.ADD ( 'Copy_Rows -After line copy_sales_supplement ' || x_return_status , 1 , 'Y' );
3330: END IF;
3331:
3332:
3333: IF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3348:
3349:
3350:
3351: IF P_Copy_Quote_Control_Rec.copy_attachment = FND_API.G_TRUE THEN
3352: IF aso_debug_pub.g_debug_flag = 'Y' THEN
3353: aso_debug_pub.ADD ( 'Copy_Rows - Begin- before config line copy_attch ' , 1 , 'Y' );
3354: END IF;
3355:
3356: ASO_ATTACHMENT_INT.Copy_Attachments(
3349:
3350:
3351: IF P_Copy_Quote_Control_Rec.copy_attachment = FND_API.G_TRUE THEN
3352: IF aso_debug_pub.g_debug_flag = 'Y' THEN
3353: aso_debug_pub.ADD ( 'Copy_Rows - Begin- before config line copy_attch ' , 1 , 'Y' );
3354: END IF;
3355:
3356: ASO_ATTACHMENT_INT.Copy_Attachments(
3357: p_api_version => l_api_version,
3362: x_return_status => x_return_status ,
3363: x_msg_count => x_msg_count,
3364: x_msg_data => x_msg_data
3365: );
3366: IF aso_debug_pub.g_debug_flag = 'Y' THEN
3367: aso_debug_pub.ADD ( 'Copy_Rows -After config line copy_attch ' || x_return_status , 1 , 'Y' );
3368: END IF;
3369: IF ( x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3370: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_ERROR ) THEN
3363: x_msg_count => x_msg_count,
3364: x_msg_data => x_msg_data
3365: );
3366: IF aso_debug_pub.g_debug_flag = 'Y' THEN
3367: aso_debug_pub.ADD ( 'Copy_Rows -After config line copy_attch ' || x_return_status , 1 , 'Y' );
3368: END IF;
3369: IF ( x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3370: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_ERROR ) THEN
3371: FND_MESSAGE.Set_Name ('ASO' , 'ASO_API_UNEXP_ERROR' );
3386: lx_line_index_link_tbl(qte_line_id) := lx_qte_line_rec.quote_line_id;
3387:
3388: -- CLOSE line_id_from_config;
3389:
3390: IF aso_debug_pub.g_debug_flag = 'Y' THEN
3391: aso_debug_pub.ADD('Copy_Config - l_qte_line_tbl(i).item_type_code ' || l_qte_line_rec.item_type_code , 1 , 'Y' );
3392: aso_debug_pub.ADD('Copy - l_qte_line_tbl(i).inventory_item_id ' || l_qte_line_rec.inventory_item_id , 1 , 'Y' );
3393: aso_debug_pub.ADD('Copy - l_serviceable_product_flag ' || l_serviceable_product_flag , 1 , 'Y' );
3394: END IF;
3387:
3388: -- CLOSE line_id_from_config;
3389:
3390: IF aso_debug_pub.g_debug_flag = 'Y' THEN
3391: aso_debug_pub.ADD('Copy_Config - l_qte_line_tbl(i).item_type_code ' || l_qte_line_rec.item_type_code , 1 , 'Y' );
3392: aso_debug_pub.ADD('Copy - l_qte_line_tbl(i).inventory_item_id ' || l_qte_line_rec.inventory_item_id , 1 , 'Y' );
3393: aso_debug_pub.ADD('Copy - l_serviceable_product_flag ' || l_serviceable_product_flag , 1 , 'Y' );
3394: END IF;
3395:
3388: -- CLOSE line_id_from_config;
3389:
3390: IF aso_debug_pub.g_debug_flag = 'Y' THEN
3391: aso_debug_pub.ADD('Copy_Config - l_qte_line_tbl(i).item_type_code ' || l_qte_line_rec.item_type_code , 1 , 'Y' );
3392: aso_debug_pub.ADD('Copy - l_qte_line_tbl(i).inventory_item_id ' || l_qte_line_rec.inventory_item_id , 1 , 'Y' );
3393: aso_debug_pub.ADD('Copy - l_serviceable_product_flag ' || l_serviceable_product_flag , 1 , 'Y' );
3394: END IF;
3395:
3396: IF l_serviceable_product_flag = 'Y' THEN
3389:
3390: IF aso_debug_pub.g_debug_flag = 'Y' THEN
3391: aso_debug_pub.ADD('Copy_Config - l_qte_line_tbl(i).item_type_code ' || l_qte_line_rec.item_type_code , 1 , 'Y' );
3392: aso_debug_pub.ADD('Copy - l_qte_line_tbl(i).inventory_item_id ' || l_qte_line_rec.inventory_item_id , 1 , 'Y' );
3393: aso_debug_pub.ADD('Copy - l_serviceable_product_flag ' || l_serviceable_product_flag , 1 , 'Y' );
3394: END IF;
3395:
3396: IF l_serviceable_product_flag = 'Y' THEN
3397: ASO_COPY_QUOTE_PVT.service_copy (
3501:
3502:
3503: BEGIN
3504:
3505: IF aso_debug_pub.g_debug_flag = 'Y' THEN
3506: aso_debug_pub.ADD ('Copy_Service - Begin ' , 1, 'Y' );
3507: aso_debug_pub.ADD ( 'Copy_Service - p_new_qte_header_id ' || p_new_qte_header_id , 1 , 'Y' );
3508: aso_debug_pub.ADD ( 'Copy_Service - p_qte_header_id ' || p_qte_header_id , 1 , 'Y' );
3509: aso_debug_pub.ADD ( 'Copy_Service - p_qte_line_id ' || p_qte_line_id , 1 , 'Y' );
3502:
3503: BEGIN
3504:
3505: IF aso_debug_pub.g_debug_flag = 'Y' THEN
3506: aso_debug_pub.ADD ('Copy_Service - Begin ' , 1, 'Y' );
3507: aso_debug_pub.ADD ( 'Copy_Service - p_new_qte_header_id ' || p_new_qte_header_id , 1 , 'Y' );
3508: aso_debug_pub.ADD ( 'Copy_Service - p_qte_header_id ' || p_qte_header_id , 1 , 'Y' );
3509: aso_debug_pub.ADD ( 'Copy_Service - p_qte_line_id ' || p_qte_line_id , 1 , 'Y' );
3510: END IF;
3503: BEGIN
3504:
3505: IF aso_debug_pub.g_debug_flag = 'Y' THEN
3506: aso_debug_pub.ADD ('Copy_Service - Begin ' , 1, 'Y' );
3507: aso_debug_pub.ADD ( 'Copy_Service - p_new_qte_header_id ' || p_new_qte_header_id , 1 , 'Y' );
3508: aso_debug_pub.ADD ( 'Copy_Service - p_qte_header_id ' || p_qte_header_id , 1 , 'Y' );
3509: aso_debug_pub.ADD ( 'Copy_Service - p_qte_line_id ' || p_qte_line_id , 1 , 'Y' );
3510: END IF;
3511:
3504:
3505: IF aso_debug_pub.g_debug_flag = 'Y' THEN
3506: aso_debug_pub.ADD ('Copy_Service - Begin ' , 1, 'Y' );
3507: aso_debug_pub.ADD ( 'Copy_Service - p_new_qte_header_id ' || p_new_qte_header_id , 1 , 'Y' );
3508: aso_debug_pub.ADD ( 'Copy_Service - p_qte_header_id ' || p_qte_header_id , 1 , 'Y' );
3509: aso_debug_pub.ADD ( 'Copy_Service - p_qte_line_id ' || p_qte_line_id , 1 , 'Y' );
3510: END IF;
3511:
3512: x_return_status := FND_API.G_RET_STS_SUCCESS;
3505: IF aso_debug_pub.g_debug_flag = 'Y' THEN
3506: aso_debug_pub.ADD ('Copy_Service - Begin ' , 1, 'Y' );
3507: aso_debug_pub.ADD ( 'Copy_Service - p_new_qte_header_id ' || p_new_qte_header_id , 1 , 'Y' );
3508: aso_debug_pub.ADD ( 'Copy_Service - p_qte_header_id ' || p_qte_header_id , 1 , 'Y' );
3509: aso_debug_pub.ADD ( 'Copy_Service - p_qte_line_id ' || p_qte_line_id , 1 , 'Y' );
3510: END IF;
3511:
3512: x_return_status := FND_API.G_RET_STS_SUCCESS;
3513:
3515:
3516: LOOP
3517: FETCH line_id_from_service INTO qte_line_id;
3518: EXIT WHEN line_id_from_service%NOTFOUND;
3519: IF aso_debug_pub.g_debug_flag = 'Y' THEN
3520: aso_debug_pub.ADD ( 'Copy_Service - inside cursor qte_line_id ' || qte_line_id , 1 , 'Y' );
3521: END IF;
3522:
3523: l_qte_line_rec :=
3516: LOOP
3517: FETCH line_id_from_service INTO qte_line_id;
3518: EXIT WHEN line_id_from_service%NOTFOUND;
3519: IF aso_debug_pub.g_debug_flag = 'Y' THEN
3520: aso_debug_pub.ADD ( 'Copy_Service - inside cursor qte_line_id ' || qte_line_id , 1 , 'Y' );
3521: END IF;
3522:
3523: l_qte_line_rec :=
3524: ASO_UTILITY_PVT.Query_Qte_Line_Row ( qte_line_id );
3549: IF l_qte_line_dtl_tbl ( k ).service_ref_type_code = 'QUOTE' THEN
3550:
3551: IF l_qte_line_dtl_tbl ( k ).service_ref_line_id IS NOT NULL THEN
3552:
3553: IF aso_debug_pub.g_debug_flag = 'Y' THEN
3554: aso_debug_pub.ADD ( 'Copy_Service - l_qte_line_dtl_tbl(k).service_ref_line_id ' || l_qte_line_dtl_tbl ( k ).service_ref_line_id , 1 , 'Y' );
3555: END IF;
3556: l_service_ref_line_id :=
3557: lx_line_index_link_tbl ( l_qte_line_dtl_tbl ( k ).service_ref_line_id );
3550:
3551: IF l_qte_line_dtl_tbl ( k ).service_ref_line_id IS NOT NULL THEN
3552:
3553: IF aso_debug_pub.g_debug_flag = 'Y' THEN
3554: aso_debug_pub.ADD ( 'Copy_Service - l_qte_line_dtl_tbl(k).service_ref_line_id ' || l_qte_line_dtl_tbl ( k ).service_ref_line_id , 1 , 'Y' );
3555: END IF;
3556: l_service_ref_line_id :=
3557: lx_line_index_link_tbl ( l_qte_line_dtl_tbl ( k ).service_ref_line_id );
3558: l_qte_line_dtl_tbl ( k ).service_ref_line_id :=
3564: END LOOP;
3565:
3566: END IF;
3567:
3568: IF aso_debug_pub.g_debug_flag = 'Y' THEN
3569: aso_debug_pub.ADD ( 'Copy_Service - 2 l_service_ref_line_id ' || l_service_ref_line_id , 1 , 'Y' );
3570: END IF;
3571:
3572: l_line_attr_Ext_Tbl := ASO_UTILITY_PVT.Query_Line_Attribs_Ext_Rows ( qte_line_id );
3565:
3566: END IF;
3567:
3568: IF aso_debug_pub.g_debug_flag = 'Y' THEN
3569: aso_debug_pub.ADD ( 'Copy_Service - 2 l_service_ref_line_id ' || l_service_ref_line_id , 1 , 'Y' );
3570: END IF;
3571:
3572: l_line_attr_Ext_Tbl := ASO_UTILITY_PVT.Query_Line_Attribs_Ext_Rows ( qte_line_id );
3573:
3662:
3663:
3664: --End of BC4J Fix
3665:
3666: IF aso_debug_pub.g_debug_flag = 'Y' THEN
3667: aso_debug_pub.ADD ( 'Copy_Service - Before insert_quote_line_rows: ' || p_qte_line_id , 1 , 'Y' );
3668: END IF;
3669: ASO_QUOTE_LINES_PVT.Insert_Quote_Line_Rows (
3670: p_control_rec => l_control_rec
3663:
3664: --End of BC4J Fix
3665:
3666: IF aso_debug_pub.g_debug_flag = 'Y' THEN
3667: aso_debug_pub.ADD ( 'Copy_Service - Before insert_quote_line_rows: ' || p_qte_line_id , 1 , 'Y' );
3668: END IF;
3669: ASO_QUOTE_LINES_PVT.Insert_Quote_Line_Rows (
3670: p_control_rec => l_control_rec
3671: , P_qte_Line_Rec => l_qte_line_rec
3735: l_payment_tbl ( j ).payment_id := NULL;
3736: l_payment_tbl ( j ).object_version_number := FND_API.G_MISS_NUM;
3737: END LOOP;
3738:
3739: IF aso_debug_pub.g_debug_flag = 'Y' THEN
3740: aso_debug_pub.add('Service_Copy: Before call to copy_payment_row ', 1, 'Y');
3741: END IF;
3742:
3743: aso_copy_quote_pvt.copy_payment_row(p_payment_rec => l_payment_tbl(1) ,
3736: l_payment_tbl ( j ).object_version_number := FND_API.G_MISS_NUM;
3737: END LOOP;
3738:
3739: IF aso_debug_pub.g_debug_flag = 'Y' THEN
3740: aso_debug_pub.add('Service_Copy: Before call to copy_payment_row ', 1, 'Y');
3741: END IF;
3742:
3743: aso_copy_quote_pvt.copy_payment_row(p_payment_rec => l_payment_tbl(1) ,
3744: x_return_status => l_return_status,
3744: x_return_status => l_return_status,
3745: x_msg_count => x_msg_count,
3746: x_msg_data => x_msg_data);
3747:
3748: IF aso_debug_pub.g_debug_flag = 'Y' THEN
3749: aso_debug_pub.add('Service_Copy:: After call to copy_payment_row: x_return_status: '||l_return_status, 1, 'Y');
3750: END IF;
3751: IF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3752: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3745: x_msg_count => x_msg_count,
3746: x_msg_data => x_msg_data);
3747:
3748: IF aso_debug_pub.g_debug_flag = 'Y' THEN
3749: aso_debug_pub.add('Service_Copy:: After call to copy_payment_row: x_return_status: '||l_return_status, 1, 'Y');
3750: END IF;
3751: IF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3752: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3753: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_ERROR ) THEN
3766:
3767: -- Copying the sales supplement data for the line
3768: IF ( P_Copy_Quote_Control_Rec.New_Version = FND_API.G_TRUE ) THEN
3769:
3770: IF aso_debug_pub.g_debug_flag = 'Y' THEN
3771: aso_debug_pub.ADD ( 'Copy_Rows - Begin- before line copy_sales_supplement ' , 1 , 'Y' );
3772: END IF;
3773:
3774: ASO_COPY_QUOTE_PVT.INSERT_SALES_SUPP_DATA
3767: -- Copying the sales supplement data for the line
3768: IF ( P_Copy_Quote_Control_Rec.New_Version = FND_API.G_TRUE ) THEN
3769:
3770: IF aso_debug_pub.g_debug_flag = 'Y' THEN
3771: aso_debug_pub.ADD ( 'Copy_Rows - Begin- before line copy_sales_supplement ' , 1 , 'Y' );
3772: END IF;
3773:
3774: ASO_COPY_QUOTE_PVT.INSERT_SALES_SUPP_DATA
3775: (
3782: X_Msg_Count => X_Msg_Count,
3783: X_Msg_Data => X_Msg_Data );
3784:
3785:
3786: IF aso_debug_pub.g_debug_flag = 'Y' THEN
3787: aso_debug_pub.ADD ( 'Copy_Rows -After line copy_sales_supplement ' || x_return_status , 1 , 'Y' );
3788: END IF;
3789:
3790:
3783: X_Msg_Data => X_Msg_Data );
3784:
3785:
3786: IF aso_debug_pub.g_debug_flag = 'Y' THEN
3787: aso_debug_pub.ADD ( 'Copy_Rows -After line copy_sales_supplement ' || x_return_status , 1 , 'Y' );
3788: END IF;
3789:
3790:
3791: IF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3805:
3806:
3807:
3808: IF P_Copy_Quote_Control_Rec.copy_attachment = FND_API.G_TRUE THEN
3809: IF aso_debug_pub.g_debug_flag = 'Y' THEN
3810: aso_debug_pub.ADD ( 'Copy_Rows - Begin- before config line copy_attch ' , 1 , 'Y' );
3811: END IF;
3812:
3813: ASO_ATTACHMENT_INT.Copy_Attachments (
3806:
3807:
3808: IF P_Copy_Quote_Control_Rec.copy_attachment = FND_API.G_TRUE THEN
3809: IF aso_debug_pub.g_debug_flag = 'Y' THEN
3810: aso_debug_pub.ADD ( 'Copy_Rows - Begin- before config line copy_attch ' , 1 , 'Y' );
3811: END IF;
3812:
3813: ASO_ATTACHMENT_INT.Copy_Attachments (
3814: p_api_version => l_api_version,
3819: x_return_status => x_return_status,
3820: x_msg_count => x_msg_count,
3821: x_msg_data => x_msg_data
3822: );
3823: IF aso_debug_pub.g_debug_flag = 'Y' THEN
3824: aso_debug_pub.ADD ( 'Copy_Rows -After config line copy_attch ' || x_return_status , 1 , 'Y' );
3825: END IF;
3826: IF ( x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3827: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_ERROR ) THEN
3820: x_msg_count => x_msg_count,
3821: x_msg_data => x_msg_data
3822: );
3823: IF aso_debug_pub.g_debug_flag = 'Y' THEN
3824: aso_debug_pub.ADD ( 'Copy_Rows -After config line copy_attch ' || x_return_status , 1 , 'Y' );
3825: END IF;
3826: IF ( x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
3827: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_ERROR ) THEN
3828: FND_MESSAGE.Set_Name ('ASO' , 'ASO_API_UNEXP_ERROR' );
3970: FND_MSG_PUB.initialize;
3971: END IF;
3972:
3973: -- API BODY
3974: IF aso_debug_pub.g_debug_flag = 'Y' THEN
3975: aso_debug_pub.ADD ('COPY_SALES_SUPPLEMENT API: Begin' , 1, 'N' );
3976: aso_debug_pub.ADD ( 'Old Qte Header Id : ' || TO_CHAR ( p_old_quote_header_id ) , 1 , 'N' );
3977: aso_debug_pub.ADD ( 'New Qte Header Id : ' || TO_CHAR ( p_new_quote_header_id ) , 1 , 'N' );
3978: END IF;
3971: END IF;
3972:
3973: -- API BODY
3974: IF aso_debug_pub.g_debug_flag = 'Y' THEN
3975: aso_debug_pub.ADD ('COPY_SALES_SUPPLEMENT API: Begin' , 1, 'N' );
3976: aso_debug_pub.ADD ( 'Old Qte Header Id : ' || TO_CHAR ( p_old_quote_header_id ) , 1 , 'N' );
3977: aso_debug_pub.ADD ( 'New Qte Header Id : ' || TO_CHAR ( p_new_quote_header_id ) , 1 , 'N' );
3978: END IF;
3979:
3972:
3973: -- API BODY
3974: IF aso_debug_pub.g_debug_flag = 'Y' THEN
3975: aso_debug_pub.ADD ('COPY_SALES_SUPPLEMENT API: Begin' , 1, 'N' );
3976: aso_debug_pub.ADD ( 'Old Qte Header Id : ' || TO_CHAR ( p_old_quote_header_id ) , 1 , 'N' );
3977: aso_debug_pub.ADD ( 'New Qte Header Id : ' || TO_CHAR ( p_new_quote_header_id ) , 1 , 'N' );
3978: END IF;
3979:
3980: -- Get the template id's and template_instance_id's based upon the
3973: -- API BODY
3974: IF aso_debug_pub.g_debug_flag = 'Y' THEN
3975: aso_debug_pub.ADD ('COPY_SALES_SUPPLEMENT API: Begin' , 1, 'N' );
3976: aso_debug_pub.ADD ( 'Old Qte Header Id : ' || TO_CHAR ( p_old_quote_header_id ) , 1 , 'N' );
3977: aso_debug_pub.ADD ( 'New Qte Header Id : ' || TO_CHAR ( p_new_quote_header_id ) , 1 , 'N' );
3978: END IF;
3979:
3980: -- Get the template id's and template_instance_id's based upon the
3981: -- quote header id
3980: -- Get the template id's and template_instance_id's based upon the
3981: -- quote header id
3982:
3983: FOR template_val IN get_template_id ( p_old_quote_header_id ) LOOP
3984: IF aso_debug_pub.g_debug_flag = 'Y' THEN
3985: aso_debug_pub.ADD ( 'Template Id : ' || TO_CHAR ( template_val.template_id ) , 1 , 'N' );
3986: aso_debug_pub.ADD ( ' Old Template Instance Id : ' || TO_CHAR ( template_val.template_instance_id ) , 1 , 'N' );
3987:
3988: -- Create a new row in the ASO_SUP_TMPL_INSTANCE Table with the template id
3981: -- quote header id
3982:
3983: FOR template_val IN get_template_id ( p_old_quote_header_id ) LOOP
3984: IF aso_debug_pub.g_debug_flag = 'Y' THEN
3985: aso_debug_pub.ADD ( 'Template Id : ' || TO_CHAR ( template_val.template_id ) , 1 , 'N' );
3986: aso_debug_pub.ADD ( ' Old Template Instance Id : ' || TO_CHAR ( template_val.template_instance_id ) , 1 , 'N' );
3987:
3988: -- Create a new row in the ASO_SUP_TMPL_INSTANCE Table with the template id
3989:
3982:
3983: FOR template_val IN get_template_id ( p_old_quote_header_id ) LOOP
3984: IF aso_debug_pub.g_debug_flag = 'Y' THEN
3985: aso_debug_pub.ADD ( 'Template Id : ' || TO_CHAR ( template_val.template_id ) , 1 , 'N' );
3986: aso_debug_pub.ADD ( ' Old Template Instance Id : ' || TO_CHAR ( template_val.template_instance_id ) , 1 , 'N' );
3987:
3988: -- Create a new row in the ASO_SUP_TMPL_INSTANCE Table with the template id
3989:
3990: aso_debug_pub.ADD ( 'Inserting a row into tmpl_instance table' , 1 , 'N' );
3986: aso_debug_pub.ADD ( ' Old Template Instance Id : ' || TO_CHAR ( template_val.template_instance_id ) , 1 , 'N' );
3987:
3988: -- Create a new row in the ASO_SUP_TMPL_INSTANCE Table with the template id
3989:
3990: aso_debug_pub.ADD ( 'Inserting a row into tmpl_instance table' , 1 , 'N' );
3991: END IF;
3992:
3993: -- Initiate the variable to null,
3994: -- so that each time they contain new value for every pass of loop
4006: , P_Owner_Table_Name => 'ASO_QUOTE_HEADERS'
4007: , P_Owner_Table_Id => p_new_quote_header_id
4008: , P_OBJECT_VERSION_NUMBER => FND_API.G_MISS_NUM
4009: );
4010: IF aso_debug_pub.g_debug_flag = 'Y' THEN
4011: aso_debug_pub.ADD ( ' New Template Instance Id : ' || TO_CHAR ( l_new_template_instance_id ) , 1 , 'N' );
4012: END IF;
4013:
4014: -- Get the values for that instance
4007: , P_Owner_Table_Id => p_new_quote_header_id
4008: , P_OBJECT_VERSION_NUMBER => FND_API.G_MISS_NUM
4009: );
4010: IF aso_debug_pub.g_debug_flag = 'Y' THEN
4011: aso_debug_pub.ADD ( ' New Template Instance Id : ' || TO_CHAR ( l_new_template_instance_id ) , 1 , 'N' );
4012: END IF;
4013:
4014: -- Get the values for that instance
4015: FOR inst_val IN get_values ( template_val.template_instance_id ) LOOP
4012: END IF;
4013:
4014: -- Get the values for that instance
4015: FOR inst_val IN get_values ( template_val.template_instance_id ) LOOP
4016: IF aso_debug_pub.g_debug_flag = 'Y' THEN
4017: aso_debug_pub.ADD ( 'Value : ' || inst_val.VALUE, 1, 'N' );
4018: aso_debug_pub.ADD ( 'Value Type Qualifier : ' || inst_val.value_type_qualifier , 1 , 'N' );
4019: aso_debug_pub.ADD ( 'Response Id : ' || TO_CHAR ( inst_val.response_id ) , 1 , 'N' );
4020: END IF;
4013:
4014: -- Get the values for that instance
4015: FOR inst_val IN get_values ( template_val.template_instance_id ) LOOP
4016: IF aso_debug_pub.g_debug_flag = 'Y' THEN
4017: aso_debug_pub.ADD ( 'Value : ' || inst_val.VALUE, 1, 'N' );
4018: aso_debug_pub.ADD ( 'Value Type Qualifier : ' || inst_val.value_type_qualifier , 1 , 'N' );
4019: aso_debug_pub.ADD ( 'Response Id : ' || TO_CHAR ( inst_val.response_id ) , 1 , 'N' );
4020: END IF;
4021:
4014: -- Get the values for that instance
4015: FOR inst_val IN get_values ( template_val.template_instance_id ) LOOP
4016: IF aso_debug_pub.g_debug_flag = 'Y' THEN
4017: aso_debug_pub.ADD ( 'Value : ' || inst_val.VALUE, 1, 'N' );
4018: aso_debug_pub.ADD ( 'Value Type Qualifier : ' || inst_val.value_type_qualifier , 1 , 'N' );
4019: aso_debug_pub.ADD ( 'Response Id : ' || TO_CHAR ( inst_val.response_id ) , 1 , 'N' );
4020: END IF;
4021:
4022: -- If values are fetched then insert rows
4015: FOR inst_val IN get_values ( template_val.template_instance_id ) LOOP
4016: IF aso_debug_pub.g_debug_flag = 'Y' THEN
4017: aso_debug_pub.ADD ( 'Value : ' || inst_val.VALUE, 1, 'N' );
4018: aso_debug_pub.ADD ( 'Value Type Qualifier : ' || inst_val.value_type_qualifier , 1 , 'N' );
4019: aso_debug_pub.ADD ( 'Response Id : ' || TO_CHAR ( inst_val.response_id ) , 1 , 'N' );
4020: END IF;
4021:
4022: -- If values are fetched then insert rows
4023: IF inst_val.sect_comp_map_id IS NOT NULL THEN
4024: -- Initiate the variables to null,
4025: -- so that each time they contain new value for every pass of loop
4026:
4027: l_instance_value_id := NULL;
4028: IF aso_debug_pub.g_debug_flag = 'Y' THEN
4029: aso_debug_pub.ADD ( 'Inserting a row into instance_value table' , 1 , 'N' );
4030: END IF;
4031:
4032: -- Create a new row in the ASO_SUP_INSTANCE_VALUE table
4025: -- so that each time they contain new value for every pass of loop
4026:
4027: l_instance_value_id := NULL;
4028: IF aso_debug_pub.g_debug_flag = 'Y' THEN
4029: aso_debug_pub.ADD ( 'Inserting a row into instance_value table' , 1 , 'N' );
4030: END IF;
4031:
4032: -- Create a new row in the ASO_SUP_INSTANCE_VALUE table
4033: ASO_SUP_INSTANCE_VALUE_PKG.INSERT_ROW (
4042: , P_last_updated_by => FND_GLOBAL.USER_ID
4043: , P_last_update_login => FND_GLOBAL.CONC_LOGIN_ID
4044: , P_OBJECT_VERSION_NUMBER => FND_API.G_MISS_NUM
4045: );
4046: IF aso_debug_pub.g_debug_flag = 'Y' THEN
4047: aso_debug_pub.ADD ( 'New Instance Value Id : ' || TO_CHAR ( l_instance_value_id ) , 1 , 'N' );
4048: END IF;
4049: END IF;
4050:
4043: , P_last_update_login => FND_GLOBAL.CONC_LOGIN_ID
4044: , P_OBJECT_VERSION_NUMBER => FND_API.G_MISS_NUM
4045: );
4046: IF aso_debug_pub.g_debug_flag = 'Y' THEN
4047: aso_debug_pub.ADD ( 'New Instance Value Id : ' || TO_CHAR ( l_instance_value_id ) , 1 , 'N' );
4048: END IF;
4049: END IF;
4050:
4051: END LOOP; -- instance value loop
4059:
4060: -- Initialize API return status to success
4061: x_return_status := FND_API.G_RET_STS_SUCCESS;
4062:
4063: IF aso_debug_pub.g_debug_flag = 'Y' THEN
4064: aso_debug_pub.ADD ( 'COPY_SALES_SUPPLEMENT API: ' || l_api_name || 'end' , 1 , 'N' );
4065: END IF;
4066:
4067: EXCEPTION
4060: -- Initialize API return status to success
4061: x_return_status := FND_API.G_RET_STS_SUCCESS;
4062:
4063: IF aso_debug_pub.g_debug_flag = 'Y' THEN
4064: aso_debug_pub.ADD ( 'COPY_SALES_SUPPLEMENT API: ' || l_api_name || 'end' , 1 , 'N' );
4065: END IF;
4066:
4067: EXCEPTION
4068:
4128:
4129: BEGIN
4130:
4131: x_return_status := FND_API.G_RET_STS_SUCCESS;
4132: IF aso_debug_pub.g_debug_flag = 'Y' THEN
4133: aso_debug_pub.ADD ( 'Copy_Opp_Quote: p_qte_header_id: ' || p_qte_header_id, 1 , 'N' );
4134: aso_debug_pub.ADD ( 'Copy_Opp_Quote: p_new_qte_header_id: ' || p_new_qte_header_id, 1 , 'N' );
4135: END IF;
4136:
4129: BEGIN
4130:
4131: x_return_status := FND_API.G_RET_STS_SUCCESS;
4132: IF aso_debug_pub.g_debug_flag = 'Y' THEN
4133: aso_debug_pub.ADD ( 'Copy_Opp_Quote: p_qte_header_id: ' || p_qte_header_id, 1 , 'N' );
4134: aso_debug_pub.ADD ( 'Copy_Opp_Quote: p_new_qte_header_id: ' || p_new_qte_header_id, 1 , 'N' );
4135: END IF;
4136:
4137: OPEN C_Get_Opp_From_Hdr (p_qte_header_id);
4130:
4131: x_return_status := FND_API.G_RET_STS_SUCCESS;
4132: IF aso_debug_pub.g_debug_flag = 'Y' THEN
4133: aso_debug_pub.ADD ( 'Copy_Opp_Quote: p_qte_header_id: ' || p_qte_header_id, 1 , 'N' );
4134: aso_debug_pub.ADD ( 'Copy_Opp_Quote: p_new_qte_header_id: ' || p_new_qte_header_id, 1 , 'N' );
4135: END IF;
4136:
4137: OPEN C_Get_Opp_From_Hdr (p_qte_header_id);
4138: FETCH C_Get_Opp_From_Hdr INTO l_related_obj_rec.request_id, l_related_obj_rec.program_application_id,
4140: l_related_obj_rec.quote_object_type_code, l_related_obj_rec.quote_object_id,
4141: l_related_obj_rec.object_type_code, l_related_obj_rec.object_id,
4142: l_related_obj_rec.relationship_type_code, l_related_obj_rec.reciprocal_flag;
4143: IF C_Get_Opp_From_Hdr%NOTFOUND THEN
4144: IF aso_debug_pub.g_debug_flag = 'Y' THEN
4145: aso_debug_pub.ADD ( 'Copy_Opp_Quote: Not from Opportunity ', 1 , 'N' );
4146: END IF;
4147: CLOSE C_Get_Opp_From_Hdr;
4148: RETURN;
4141: l_related_obj_rec.object_type_code, l_related_obj_rec.object_id,
4142: l_related_obj_rec.relationship_type_code, l_related_obj_rec.reciprocal_flag;
4143: IF C_Get_Opp_From_Hdr%NOTFOUND THEN
4144: IF aso_debug_pub.g_debug_flag = 'Y' THEN
4145: aso_debug_pub.ADD ( 'Copy_Opp_Quote: Not from Opportunity ', 1 , 'N' );
4146: END IF;
4147: CLOSE C_Get_Opp_From_Hdr;
4148: RETURN;
4149: END IF;
4151:
4152: l_related_obj_rec.quote_object_id := p_new_qte_header_id;
4153:
4154:
4155: IF aso_debug_pub.g_debug_flag = 'Y' THEN
4156: aso_debug_pub.ADD ( 'Copy_Opp_Quote: before insert rel object ', 1 , 'N' );
4157: END IF;
4158: aso_related_obj_pvt.create_related_obj (
4159: p_api_version_number => 1.0,
4152: l_related_obj_rec.quote_object_id := p_new_qte_header_id;
4153:
4154:
4155: IF aso_debug_pub.g_debug_flag = 'Y' THEN
4156: aso_debug_pub.ADD ( 'Copy_Opp_Quote: before insert rel object ', 1 , 'N' );
4157: END IF;
4158: aso_related_obj_pvt.create_related_obj (
4159: p_api_version_number => 1.0,
4160: p_validation_level => fnd_api.g_valid_level_none,
4164: x_msg_count => x_msg_count,
4165: x_msg_data => x_msg_data
4166: );
4167:
4168: IF aso_debug_pub.g_debug_flag = 'Y' THEN
4169: aso_debug_pub.ADD ( 'Copy_Opp_Quote: after insert_rel_object:x_return_status: ' || x_return_status, 1 , 'N' );
4170: END IF;
4171: IF x_return_status <> fnd_api.g_ret_sts_success THEN
4172: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error) THEN
4165: x_msg_data => x_msg_data
4166: );
4167:
4168: IF aso_debug_pub.g_debug_flag = 'Y' THEN
4169: aso_debug_pub.ADD ( 'Copy_Opp_Quote: after insert_rel_object:x_return_status: ' || x_return_status, 1 , 'N' );
4170: END IF;
4171: IF x_return_status <> fnd_api.g_ret_sts_success THEN
4172: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error) THEN
4173: fnd_message.set_name ( 'ASO', 'ASO_API_ERROR_IN_CREATING_RLTSHIPS');
4374:
4375:
4376: BEGIN
4377:
4378: IF aso_debug_pub.g_debug_flag = 'Y' THEN
4379: aso_debug_pub.ADD ( 'SPLIT_MODEL_LINE - Begin- ASO_COPY_QUOTE_PVT.SPLIT_MODEL_LINE ' , 1 , 'Y' );
4380: END IF;
4381: -- Standard Start of API savepoint
4382: SAVEPOINT SPLIT_MODEL_LINE_PVT;
4375:
4376: BEGIN
4377:
4378: IF aso_debug_pub.g_debug_flag = 'Y' THEN
4379: aso_debug_pub.ADD ( 'SPLIT_MODEL_LINE - Begin- ASO_COPY_QUOTE_PVT.SPLIT_MODEL_LINE ' , 1 , 'Y' );
4380: END IF;
4381: -- Standard Start of API savepoint
4382: SAVEPOINT SPLIT_MODEL_LINE_PVT;
4383:
4421: END IF;
4422: RAISE FND_API.G_EXC_ERROR;
4423: END IF;
4424:
4425: IF aso_debug_pub.g_debug_flag = 'Y' THEN
4426: aso_debug_pub.ADD ( 'SPLIT_MODEL_LINE - Vaildating the quote ' , 1 , 'Y' );
4427: END IF;
4428:
4429: OPEN C_Validate_Quote ( P_Qte_Header_Rec.quote_header_id);
4422: RAISE FND_API.G_EXC_ERROR;
4423: END IF;
4424:
4425: IF aso_debug_pub.g_debug_flag = 'Y' THEN
4426: aso_debug_pub.ADD ( 'SPLIT_MODEL_LINE - Vaildating the quote ' , 1 , 'Y' );
4427: END IF;
4428:
4429: OPEN C_Validate_Quote ( P_Qte_Header_Rec.quote_header_id);
4430: FETCH C_Validate_Quote INTO l_val;
4443: END IF;
4444:
4445: CLOSE C_Validate_Quote;
4446:
4447: IF aso_debug_pub.g_debug_flag = 'Y' THEN
4448: aso_debug_pub.ADD ( 'SPLIT_MODEL_LINE - After Validating the Quote ' , 1 , 'N' );
4449: END IF;
4450: -- Validating if the quote_line_id belongs to the qte_header_id
4451:
4444:
4445: CLOSE C_Validate_Quote;
4446:
4447: IF aso_debug_pub.g_debug_flag = 'Y' THEN
4448: aso_debug_pub.ADD ( 'SPLIT_MODEL_LINE - After Validating the Quote ' , 1 , 'N' );
4449: END IF;
4450: -- Validating if the quote_line_id belongs to the qte_header_id
4451:
4452: OPEN C_Validate_Quote_Line ( P_Qte_Header_Rec.quote_header_id, P_Original_Qte_Line_Rec.quote_line_id);
4464: END IF;
4465:
4466: CLOSE C_Validate_Quote_Line;
4467:
4468: IF aso_debug_pub.g_debug_flag = 'Y' THEN
4469: aso_debug_pub.ADD ( 'SPLIT_MODEL_LINE - After Validating the Quote Line ' , 1 , 'N' );
4470: END IF;
4471:
4472: -- Getting the quote line record
4465:
4466: CLOSE C_Validate_Quote_Line;
4467:
4468: IF aso_debug_pub.g_debug_flag = 'Y' THEN
4469: aso_debug_pub.ADD ( 'SPLIT_MODEL_LINE - After Validating the Quote Line ' , 1 , 'N' );
4470: END IF;
4471:
4472: -- Getting the quote line record
4473: l_qte_line_rec := ASO_UTILITY_PVT.Query_Qte_Line_Row ( P_Original_Qte_Line_Rec.quote_line_id );
4493: l_quantity := l_quantity + l_qty_qte_line_tbl(i).quantity;
4494:
4495: END LOOP;
4496:
4497: IF aso_debug_pub.g_debug_flag = 'Y' THEN
4498: aso_debug_pub.ADD ( 'SPLIT_MODEL_LINE - Total Qty Passed = '||to_char(l_quantity) , 1 , 'N' );
4499: END IF;
4500:
4501:
4494:
4495: END LOOP;
4496:
4497: IF aso_debug_pub.g_debug_flag = 'Y' THEN
4498: aso_debug_pub.ADD ( 'SPLIT_MODEL_LINE - Total Qty Passed = '||to_char(l_quantity) , 1 , 'N' );
4499: END IF;
4500:
4501:
4502: -- If quantity list total is less than quote line quantity
4505:
4506: -- storing the remaining quantity
4507: l_remaining_quantity := l_qte_line_rec.quantity - l_quantity;
4508:
4509: IF aso_debug_pub.g_debug_flag = 'Y' THEN
4510: aso_debug_pub.ADD ( 'SPLIT_MODEL_LINE - Remaining Qty = '||to_char(l_remaining_quantity) , 1 , 'N' );
4511: END IF;
4512:
4513: l_qty_qte_line_tbl( l_qty_qte_line_tbl.count + 1 ).quantity := l_remaining_quantity;
4506: -- storing the remaining quantity
4507: l_remaining_quantity := l_qte_line_rec.quantity - l_quantity;
4508:
4509: IF aso_debug_pub.g_debug_flag = 'Y' THEN
4510: aso_debug_pub.ADD ( 'SPLIT_MODEL_LINE - Remaining Qty = '||to_char(l_remaining_quantity) , 1 , 'N' );
4511: END IF;
4512:
4513: l_qty_qte_line_tbl( l_qty_qte_line_tbl.count + 1 ).quantity := l_remaining_quantity;
4514:
4530:
4531: -- Check to see if the item is a component
4532: IF l_qte_line_rec.item_type_code <> 'MDL' then
4533:
4534: IF aso_debug_pub.g_debug_flag = 'Y' THEN
4535: aso_debug_pub.ADD ( 'SPLIT_MODEL_LINE - Item is not a Model Item', 1 , 'N' );
4536: END IF;
4537: x_return_status := FND_API.G_RET_STS_ERROR;
4538:
4531: -- Check to see if the item is a component
4532: IF l_qte_line_rec.item_type_code <> 'MDL' then
4533:
4534: IF aso_debug_pub.g_debug_flag = 'Y' THEN
4535: aso_debug_pub.ADD ( 'SPLIT_MODEL_LINE - Item is not a Model Item', 1 , 'N' );
4536: END IF;
4537: x_return_status := FND_API.G_RET_STS_ERROR;
4538:
4539: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_ERROR ) THEN
4547:
4548: -- Check to see if the item is a service item
4549: IF l_qte_line_rec.service_item_flag = 'Y' THEN
4550:
4551: IF aso_debug_pub.g_debug_flag = 'Y' THEN
4552: aso_debug_pub.ADD ( 'SPLIT_MODEL_LINE - Item is Service Item', 1 , 'N' );
4553: END IF;
4554: x_return_status := FND_API.G_RET_STS_ERROR;
4555:
4548: -- Check to see if the item is a service item
4549: IF l_qte_line_rec.service_item_flag = 'Y' THEN
4550:
4551: IF aso_debug_pub.g_debug_flag = 'Y' THEN
4552: aso_debug_pub.ADD ( 'SPLIT_MODEL_LINE - Item is Service Item', 1 , 'N' );
4553: END IF;
4554: x_return_status := FND_API.G_RET_STS_ERROR;
4555:
4556: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_ERROR ) THEN
4600: END IF;
4601: */
4602:
4603: IF l_qte_line_rec.line_category_code = 'RETURN' THEN
4604: IF aso_debug_pub.g_debug_flag = 'Y' THEN
4605: aso_debug_pub.ADD ('l_qte_line_dtl_tbl.count' , 1, 'N' );
4606: aso_debug_pub.ADD ( 'SPLIT_MODEL_LINE - Line Category Code is RETURN ', 1 , 'N' );
4607: END IF;
4608:
4601: */
4602:
4603: IF l_qte_line_rec.line_category_code = 'RETURN' THEN
4604: IF aso_debug_pub.g_debug_flag = 'Y' THEN
4605: aso_debug_pub.ADD ('l_qte_line_dtl_tbl.count' , 1, 'N' );
4606: aso_debug_pub.ADD ( 'SPLIT_MODEL_LINE - Line Category Code is RETURN ', 1 , 'N' );
4607: END IF;
4608:
4609: IF l_qte_line_detail_tbl.count > 0 THEN
4602:
4603: IF l_qte_line_rec.line_category_code = 'RETURN' THEN
4604: IF aso_debug_pub.g_debug_flag = 'Y' THEN
4605: aso_debug_pub.ADD ('l_qte_line_dtl_tbl.count' , 1, 'N' );
4606: aso_debug_pub.ADD ( 'SPLIT_MODEL_LINE - Line Category Code is RETURN ', 1 , 'N' );
4607: END IF;
4608:
4609: IF l_qte_line_detail_tbl.count > 0 THEN
4610:
4625:
4626: END IF;
4627:
4628:
4629: IF aso_debug_pub.g_debug_flag = 'Y' THEN
4630: aso_debug_pub.ADD ( 'SPLIT_MODEL_LINE - Line Tbl Count = '||to_char(l_qty_qte_line_tbl.count), 1 , 'N' );
4631: END IF;
4632: -- Copying the line
4633: For i in 1..l_qty_qte_line_tbl.count-1 LOOP
4626: END IF;
4627:
4628:
4629: IF aso_debug_pub.g_debug_flag = 'Y' THEN
4630: aso_debug_pub.ADD ( 'SPLIT_MODEL_LINE - Line Tbl Count = '||to_char(l_qty_qte_line_tbl.count), 1 , 'N' );
4631: END IF;
4632: -- Copying the line
4633: For i in 1..l_qty_qte_line_tbl.count-1 LOOP
4634:
4652: ASO_UTILITY_PVT.Query_Line_Dtl_Rows ( P_Original_Qte_Line_Rec.quote_line_id );
4653:
4654: IF l_qte_line_rec.item_type_code = 'MDL' THEN
4655:
4656: IF aso_debug_pub.g_debug_flag = 'Y' THEN
4657: aso_debug_pub.ADD ( 'item_type_code = ' || l_qte_line_rec.item_type_code , 1 , 'N' );
4658: END IF;
4659:
4660: IF l_qte_line_detail_tbl.COUNT > 0 THEN
4653:
4654: IF l_qte_line_rec.item_type_code = 'MDL' THEN
4655:
4656: IF aso_debug_pub.g_debug_flag = 'Y' THEN
4657: aso_debug_pub.ADD ( 'item_type_code = ' || l_qte_line_rec.item_type_code , 1 , 'N' );
4658: END IF;
4659:
4660: IF l_qte_line_detail_tbl.COUNT > 0 THEN
4661:
4667: IF (l_qte_line_detail_tbl(1).ato_line_id is not null and l_qte_line_detail_tbl(1).ato_line_id <> fnd_api.g_miss_num) then
4668: l_ato_model := fnd_api.g_true;
4669: end if;
4670:
4671: IF aso_debug_pub.g_debug_flag = 'Y' THEN
4672: aso_debug_pub.ADD ( ' Calling Copy Configuration ', 1 , 'N' );
4673: END IF;
4674:
4675: ASO_CFG_INT.Copy_Configuration (
4668: l_ato_model := fnd_api.g_true;
4669: end if;
4670:
4671: IF aso_debug_pub.g_debug_flag = 'Y' THEN
4672: aso_debug_pub.ADD ( ' Calling Copy Configuration ', 1 , 'N' );
4673: END IF;
4674:
4675: ASO_CFG_INT.Copy_Configuration (
4676: P_Api_version_NUmber => 1.0
4686: , x_msg_data => x_msg_data
4687: , p_autonomous_flag => FND_API.G_TRUE
4688: );
4689:
4690: IF aso_debug_pub.g_debug_flag = 'Y' THEN
4691: aso_debug_pub.ADD ( ' After Calling Copy Configuration ', 1 , 'N' );
4692: END IF;
4693:
4694: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
4687: , p_autonomous_flag => FND_API.G_TRUE
4688: );
4689:
4690: IF aso_debug_pub.g_debug_flag = 'Y' THEN
4691: aso_debug_pub.ADD ( ' After Calling Copy Configuration ', 1 , 'N' );
4692: END IF;
4693:
4694: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
4695: l_old_config_header_id :=
4700: l_config_hdr_id;
4701: l_qte_line_detail_tbl ( 1 ).config_revision_num :=
4702: l_config_rev_nbr;
4703:
4704: IF aso_debug_pub.g_debug_flag = 'Y' THEN
4705: aso_debug_pub.ADD ( ' Old Config Hdr Id = '||to_char(l_old_config_header_id) , 1 , 'N' );
4706: aso_debug_pub.ADD ( ' Old Rev Nbr = '||to_char(l_old_config_revision_num), 1 , 'N' );
4707: aso_debug_pub.ADD ( 'New Config Hdr Id = '||to_char(l_config_hdr_id), 1 , 'N' );
4708: aso_debug_pub.ADD ( ' New Rev Nbr = '||to_char(l_config_rev_nbr), 1 , 'N' );
4701: l_qte_line_detail_tbl ( 1 ).config_revision_num :=
4702: l_config_rev_nbr;
4703:
4704: IF aso_debug_pub.g_debug_flag = 'Y' THEN
4705: aso_debug_pub.ADD ( ' Old Config Hdr Id = '||to_char(l_old_config_header_id) , 1 , 'N' );
4706: aso_debug_pub.ADD ( ' Old Rev Nbr = '||to_char(l_old_config_revision_num), 1 , 'N' );
4707: aso_debug_pub.ADD ( 'New Config Hdr Id = '||to_char(l_config_hdr_id), 1 , 'N' );
4708: aso_debug_pub.ADD ( ' New Rev Nbr = '||to_char(l_config_rev_nbr), 1 , 'N' );
4709: END IF;
4702: l_config_rev_nbr;
4703:
4704: IF aso_debug_pub.g_debug_flag = 'Y' THEN
4705: aso_debug_pub.ADD ( ' Old Config Hdr Id = '||to_char(l_old_config_header_id) , 1 , 'N' );
4706: aso_debug_pub.ADD ( ' Old Rev Nbr = '||to_char(l_old_config_revision_num), 1 , 'N' );
4707: aso_debug_pub.ADD ( 'New Config Hdr Id = '||to_char(l_config_hdr_id), 1 , 'N' );
4708: aso_debug_pub.ADD ( ' New Rev Nbr = '||to_char(l_config_rev_nbr), 1 , 'N' );
4709: END IF;
4710:
4703:
4704: IF aso_debug_pub.g_debug_flag = 'Y' THEN
4705: aso_debug_pub.ADD ( ' Old Config Hdr Id = '||to_char(l_old_config_header_id) , 1 , 'N' );
4706: aso_debug_pub.ADD ( ' Old Rev Nbr = '||to_char(l_old_config_revision_num), 1 , 'N' );
4707: aso_debug_pub.ADD ( 'New Config Hdr Id = '||to_char(l_config_hdr_id), 1 , 'N' );
4708: aso_debug_pub.ADD ( ' New Rev Nbr = '||to_char(l_config_rev_nbr), 1 , 'N' );
4709: END IF;
4710:
4711: ELSE
4704: IF aso_debug_pub.g_debug_flag = 'Y' THEN
4705: aso_debug_pub.ADD ( ' Old Config Hdr Id = '||to_char(l_old_config_header_id) , 1 , 'N' );
4706: aso_debug_pub.ADD ( ' Old Rev Nbr = '||to_char(l_old_config_revision_num), 1 , 'N' );
4707: aso_debug_pub.ADD ( 'New Config Hdr Id = '||to_char(l_config_hdr_id), 1 , 'N' );
4708: aso_debug_pub.ADD ( ' New Rev Nbr = '||to_char(l_config_rev_nbr), 1 , 'N' );
4709: END IF;
4710:
4711: ELSE
4712: x_return_status := FND_API.G_RET_STS_ERROR;
4726: FETCH C_Serviceable_Product INTO l_serviceable_product_flag
4727: , l_service_item_flag;
4728: CLOSE C_Serviceable_Product;
4729:
4730: IF aso_debug_pub.g_debug_flag = 'Y' THEN
4731: aso_debug_pub.ADD ( 'service item flag = ' || l_service_item_flag , 1 , 'N' );
4732: END IF;
4733: IF l_service_item_flag = 'Y'
4734: AND l_qte_line_detail_tbl ( 1 ).service_ref_type_code <> 'QUOTE' THEN
4727: , l_service_item_flag;
4728: CLOSE C_Serviceable_Product;
4729:
4730: IF aso_debug_pub.g_debug_flag = 'Y' THEN
4731: aso_debug_pub.ADD ( 'service item flag = ' || l_service_item_flag , 1 , 'N' );
4732: END IF;
4733: IF l_service_item_flag = 'Y'
4734: AND l_qte_line_detail_tbl ( 1 ).service_ref_type_code <> 'QUOTE' THEN
4735: l_service_item_flag := 'N';
4733: IF l_service_item_flag = 'Y'
4734: AND l_qte_line_detail_tbl ( 1 ).service_ref_type_code <> 'QUOTE' THEN
4735: l_service_item_flag := 'N';
4736: END IF;
4737: IF aso_debug_pub.g_debug_flag = 'Y' THEN
4738: aso_debug_pub.ADD ( 'service item flag 2= ' || l_service_item_flag , 1 , 'N' );
4739: END IF;
4740:
4741: IF l_qte_line_rec.item_type_code <> 'CFG'
4734: AND l_qte_line_detail_tbl ( 1 ).service_ref_type_code <> 'QUOTE' THEN
4735: l_service_item_flag := 'N';
4736: END IF;
4737: IF aso_debug_pub.g_debug_flag = 'Y' THEN
4738: aso_debug_pub.ADD ( 'service item flag 2= ' || l_service_item_flag , 1 , 'N' );
4739: END IF;
4740:
4741: IF l_qte_line_rec.item_type_code <> 'CFG'
4742: AND l_qte_line_rec.item_type_code <> 'OPT'
4857: l_qte_line_rec.line_number := l_line_number + 10000;
4858:
4859: END IF;
4860:
4861: IF aso_debug_pub.g_debug_flag = 'Y' THEN
4862: aso_debug_pub.ADD ( 'Split_Model_Line - Before insert_quote_line_rows: ' ||
4863: P_Original_Qte_Line_Rec.quote_line_id , 1 , 'Y' );
4864: END IF;
4865:
4858:
4859: END IF;
4860:
4861: IF aso_debug_pub.g_debug_flag = 'Y' THEN
4862: aso_debug_pub.ADD ( 'Split_Model_Line - Before insert_quote_line_rows: ' ||
4863: P_Original_Qte_Line_Rec.quote_line_id , 1 , 'Y' );
4864: END IF;
4865:
4866: ASO_QUOTE_LINES_PVT.Insert_Quote_Line_Rows (
4916: ELSIF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
4917: x_return_status := FND_API.G_RET_STS_ERROR;
4918: RAISE FND_API.G_EXC_ERROR;
4919: END IF;
4920: IF aso_debug_pub.g_debug_flag = 'Y' THEN
4921: aso_debug_pub.ADD ( 'Split_Model_Line - After insert_quote_line_rows - status: ' ||l_return_status ,1 , 'Y' );
4922: aso_debug_pub.ADD ( 'SPLIT_MODEL_LINE - New Qte Line ID ='||to_char(lx_qte_line_rec.quote_line_id), 1 , 'N' );
4923: aso_debug_pub.ADD ( 'Split_Model_Line - Updating the top model and ato line id for the top model line ', 1 , 'Y' );
4924: aso_debug_pub.ADD ( 'Split_Model_Line - l_ato_model: ' || l_ato_model , 1 , 'Y' );
4917: x_return_status := FND_API.G_RET_STS_ERROR;
4918: RAISE FND_API.G_EXC_ERROR;
4919: END IF;
4920: IF aso_debug_pub.g_debug_flag = 'Y' THEN
4921: aso_debug_pub.ADD ( 'Split_Model_Line - After insert_quote_line_rows - status: ' ||l_return_status ,1 , 'Y' );
4922: aso_debug_pub.ADD ( 'SPLIT_MODEL_LINE - New Qte Line ID ='||to_char(lx_qte_line_rec.quote_line_id), 1 , 'N' );
4923: aso_debug_pub.ADD ( 'Split_Model_Line - Updating the top model and ato line id for the top model line ', 1 , 'Y' );
4924: aso_debug_pub.ADD ( 'Split_Model_Line - l_ato_model: ' || l_ato_model , 1 , 'Y' );
4925: END IF;
4918: RAISE FND_API.G_EXC_ERROR;
4919: END IF;
4920: IF aso_debug_pub.g_debug_flag = 'Y' THEN
4921: aso_debug_pub.ADD ( 'Split_Model_Line - After insert_quote_line_rows - status: ' ||l_return_status ,1 , 'Y' );
4922: aso_debug_pub.ADD ( 'SPLIT_MODEL_LINE - New Qte Line ID ='||to_char(lx_qte_line_rec.quote_line_id), 1 , 'N' );
4923: aso_debug_pub.ADD ( 'Split_Model_Line - Updating the top model and ato line id for the top model line ', 1 , 'Y' );
4924: aso_debug_pub.ADD ( 'Split_Model_Line - l_ato_model: ' || l_ato_model , 1 , 'Y' );
4925: END IF;
4926: update aso_quote_line_details
4919: END IF;
4920: IF aso_debug_pub.g_debug_flag = 'Y' THEN
4921: aso_debug_pub.ADD ( 'Split_Model_Line - After insert_quote_line_rows - status: ' ||l_return_status ,1 , 'Y' );
4922: aso_debug_pub.ADD ( 'SPLIT_MODEL_LINE - New Qte Line ID ='||to_char(lx_qte_line_rec.quote_line_id), 1 , 'N' );
4923: aso_debug_pub.ADD ( 'Split_Model_Line - Updating the top model and ato line id for the top model line ', 1 , 'Y' );
4924: aso_debug_pub.ADD ( 'Split_Model_Line - l_ato_model: ' || l_ato_model , 1 , 'Y' );
4925: END IF;
4926: update aso_quote_line_details
4927: set top_model_line_id = lx_qte_line_rec.quote_line_id,
4920: IF aso_debug_pub.g_debug_flag = 'Y' THEN
4921: aso_debug_pub.ADD ( 'Split_Model_Line - After insert_quote_line_rows - status: ' ||l_return_status ,1 , 'Y' );
4922: aso_debug_pub.ADD ( 'SPLIT_MODEL_LINE - New Qte Line ID ='||to_char(lx_qte_line_rec.quote_line_id), 1 , 'N' );
4923: aso_debug_pub.ADD ( 'Split_Model_Line - Updating the top model and ato line id for the top model line ', 1 , 'Y' );
4924: aso_debug_pub.ADD ( 'Split_Model_Line - l_ato_model: ' || l_ato_model , 1 , 'Y' );
4925: END IF;
4926: update aso_quote_line_details
4927: set top_model_line_id = lx_qte_line_rec.quote_line_id,
4928: ato_line_id = decode(l_ato_model,fnd_api.g_true,lx_qte_line_rec.quote_line_id,null)
4931: -- Storing the new quote line id to be used later in update quote
4932: l_inserted_qte_line_tbl(i).quote_line_id := lx_qte_line_rec.quote_line_id;
4933: l_inserted_qte_line_tbl(i).quantity := l_qty_qte_line_tbl(i).quantity;
4934:
4935: IF aso_debug_pub.g_debug_flag = 'Y' THEN
4936: aso_debug_pub.ADD ( ' Qty for new line = '||to_char(l_qty_qte_line_tbl(i).quantity), 1 , 'N' );
4937: END IF;
4938:
4939:
4932: l_inserted_qte_line_tbl(i).quote_line_id := lx_qte_line_rec.quote_line_id;
4933: l_inserted_qte_line_tbl(i).quantity := l_qty_qte_line_tbl(i).quantity;
4934:
4935: IF aso_debug_pub.g_debug_flag = 'Y' THEN
4936: aso_debug_pub.ADD ( ' Qty for new line = '||to_char(l_qty_qte_line_tbl(i).quantity), 1 , 'N' );
4937: END IF;
4938:
4939:
4940: -- Copy the payment record
4951: l_payment_tbl ( j ).payment_id := NULL;
4952: l_payment_tbl ( j ).object_version_number := FND_API.G_MISS_NUM;
4953: END LOOP;
4954:
4955: IF aso_debug_pub.g_debug_flag = 'Y' THEN
4956: aso_debug_pub.add('SPLIT_MODEL_LINE: Before call to copy_payment_row ', 1, 'Y');
4957: END IF;
4958:
4959: aso_copy_quote_pvt.copy_payment_row(p_payment_rec => l_payment_tbl(1) ,
4952: l_payment_tbl ( j ).object_version_number := FND_API.G_MISS_NUM;
4953: END LOOP;
4954:
4955: IF aso_debug_pub.g_debug_flag = 'Y' THEN
4956: aso_debug_pub.add('SPLIT_MODEL_LINE: Before call to copy_payment_row ', 1, 'Y');
4957: END IF;
4958:
4959: aso_copy_quote_pvt.copy_payment_row(p_payment_rec => l_payment_tbl(1) ,
4960: x_return_status => l_return_status,
4960: x_return_status => l_return_status,
4961: x_msg_count => x_msg_count,
4962: x_msg_data => x_msg_data);
4963:
4964: IF aso_debug_pub.g_debug_flag = 'Y' THEN
4965: aso_debug_pub.add('SPLIT_MODEL_LINE: After call to copy_payment_row: x_return_status: '||l_return_status, 1, 'Y');
4966: END IF;
4967: IF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
4968: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4961: x_msg_count => x_msg_count,
4962: x_msg_data => x_msg_data);
4963:
4964: IF aso_debug_pub.g_debug_flag = 'Y' THEN
4965: aso_debug_pub.add('SPLIT_MODEL_LINE: After call to copy_payment_row: x_return_status: '||l_return_status, 1, 'Y');
4966: END IF;
4967: IF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
4968: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4969: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_ERROR ) THEN
4981: -- End Copy payment record
4982:
4983:
4984: -- Copying the sales supplement data for the line
4985: IF aso_debug_pub.g_debug_flag = 'Y' THEN
4986: aso_debug_pub.ADD ( 'Copy_Rows - Begin- before line copy_sales_supplement ' , 1 , 'Y' );
4987: END IF;
4988:
4989: ASO_COPY_QUOTE_PVT.INSERT_SALES_SUPP_DATA
4982:
4983:
4984: -- Copying the sales supplement data for the line
4985: IF aso_debug_pub.g_debug_flag = 'Y' THEN
4986: aso_debug_pub.ADD ( 'Copy_Rows - Begin- before line copy_sales_supplement ' , 1 , 'Y' );
4987: END IF;
4988:
4989: ASO_COPY_QUOTE_PVT.INSERT_SALES_SUPP_DATA
4990: (
4997: X_Msg_Count => X_Msg_Count,
4998: X_Msg_Data => X_Msg_Data );
4999:
5000:
5001: IF aso_debug_pub.g_debug_flag = 'Y' THEN
5002: aso_debug_pub.ADD ( 'Copy_Rows -After line copy_sales_supplement ' || x_return_status , 1 , 'Y' );
5003: END IF;
5004:
5005:
4998: X_Msg_Data => X_Msg_Data );
4999:
5000:
5001: IF aso_debug_pub.g_debug_flag = 'Y' THEN
5002: aso_debug_pub.ADD ( 'Copy_Rows -After line copy_sales_supplement ' || x_return_status , 1 , 'Y' );
5003: END IF;
5004:
5005:
5006: IF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
5018: END IF;
5019:
5020:
5021: -- IF P_Copy_Quote_Control_Rec.Copy_Attachment = FND_API.G_TRUE THEN
5022: IF aso_debug_pub.g_debug_flag = 'Y' THEN
5023: aso_debug_pub.ADD ( 'Split_Model_Line- Begin- before line copy_attch ' , 1 , 'Y' );
5024: END IF;
5025:
5026: ASO_ATTACHMENT_INT.Copy_Attachments(
5019:
5020:
5021: -- IF P_Copy_Quote_Control_Rec.Copy_Attachment = FND_API.G_TRUE THEN
5022: IF aso_debug_pub.g_debug_flag = 'Y' THEN
5023: aso_debug_pub.ADD ( 'Split_Model_Line- Begin- before line copy_attch ' , 1 , 'Y' );
5024: END IF;
5025:
5026: ASO_ATTACHMENT_INT.Copy_Attachments(
5027: p_api_version => l_api_version,
5032: x_return_status => l_return_status,
5033: x_msg_count => x_msg_count,
5034: x_msg_data => x_msg_data
5035: );
5036: IF aso_debug_pub.g_debug_flag = 'Y' THEN
5037: aso_debug_pub.ADD ( 'Split_Model_Line -After line copy_attch ' || x_return_status , 1 , 'Y' );
5038: END IF;
5039:
5040: IF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
5033: x_msg_count => x_msg_count,
5034: x_msg_data => x_msg_data
5035: );
5036: IF aso_debug_pub.g_debug_flag = 'Y' THEN
5037: aso_debug_pub.ADD ( 'Split_Model_Line -After line copy_attch ' || x_return_status , 1 , 'Y' );
5038: END IF;
5039:
5040: IF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
5041: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5058: END LOOP;
5059:
5060: l_line_index_link_tbl ( P_Original_Qte_Line_Rec.quote_line_id) :=
5061: lx_qte_line_rec.quote_line_id;
5062: IF aso_debug_pub.g_debug_flag = 'Y' THEN
5063: aso_debug_pub.ADD ( 'Split_Model_Line - l_qte_line_tbl(i).item_type_code ' ||
5064: l_qte_line_rec.item_type_code , 1 , 'Y' );
5065: aso_debug_pub.ADD ( 'Copy - l_qte_line_tbl(i).inventory_item_id ' ||
5066: l_qte_line_rec.inventory_item_id, 1 , 'Y' );
5059:
5060: l_line_index_link_tbl ( P_Original_Qte_Line_Rec.quote_line_id) :=
5061: lx_qte_line_rec.quote_line_id;
5062: IF aso_debug_pub.g_debug_flag = 'Y' THEN
5063: aso_debug_pub.ADD ( 'Split_Model_Line - l_qte_line_tbl(i).item_type_code ' ||
5064: l_qte_line_rec.item_type_code , 1 , 'Y' );
5065: aso_debug_pub.ADD ( 'Copy - l_qte_line_tbl(i).inventory_item_id ' ||
5066: l_qte_line_rec.inventory_item_id, 1 , 'Y' );
5067: aso_debug_pub.ADD ( 'Copy - l_serviceable_product_flag ' || l_serviceable_product_flag , 1 , 'Y' );
5061: lx_qte_line_rec.quote_line_id;
5062: IF aso_debug_pub.g_debug_flag = 'Y' THEN
5063: aso_debug_pub.ADD ( 'Split_Model_Line - l_qte_line_tbl(i).item_type_code ' ||
5064: l_qte_line_rec.item_type_code , 1 , 'Y' );
5065: aso_debug_pub.ADD ( 'Copy - l_qte_line_tbl(i).inventory_item_id ' ||
5066: l_qte_line_rec.inventory_item_id, 1 , 'Y' );
5067: aso_debug_pub.ADD ( 'Copy - l_serviceable_product_flag ' || l_serviceable_product_flag , 1 , 'Y' );
5068: END IF;
5069:
5063: aso_debug_pub.ADD ( 'Split_Model_Line - l_qte_line_tbl(i).item_type_code ' ||
5064: l_qte_line_rec.item_type_code , 1 , 'Y' );
5065: aso_debug_pub.ADD ( 'Copy - l_qte_line_tbl(i).inventory_item_id ' ||
5066: l_qte_line_rec.inventory_item_id, 1 , 'Y' );
5067: aso_debug_pub.ADD ( 'Copy - l_serviceable_product_flag ' || l_serviceable_product_flag , 1 , 'Y' );
5068: END IF;
5069:
5070: IF l_serviceable_product_flag = 'Y' THEN
5071:
5112: l_config_rev_nbr;
5113: END LOOP;
5114: END IF;
5115:
5116: IF aso_debug_pub.g_debug_flag = 'Y' THEN
5117: aso_debug_pub.ADD ( 'l_old_config_header_id = ' || l_old_config_header_id , 1 , 'N' );
5118: END IF;
5119:
5120: l_copy_quote_control_rec.Copy_Note := FND_API.G_TRUE;
5113: END LOOP;
5114: END IF;
5115:
5116: IF aso_debug_pub.g_debug_flag = 'Y' THEN
5117: aso_debug_pub.ADD ( 'l_old_config_header_id = ' || l_old_config_header_id , 1 , 'N' );
5118: END IF;
5119:
5120: l_copy_quote_control_rec.Copy_Note := FND_API.G_TRUE;
5121: l_copy_quote_control_rec.Copy_Task := FND_API.G_TRUE;
5157: -- bug 1903605
5158:
5159: IF (l_orig_item_id_tbl IS NOT NULL) AND (l_new_item_id_tbl IS NOT NULL) THEN
5160:
5161: IF aso_debug_pub.g_debug_flag = 'Y' THEN
5162: aso_debug_pub.ADD ( 'item_id_count > 0 ', 1 , 'N' );
5163: aso_debug_pub.ADD ( 'Orig Tbl Count ' ||l_orig_item_id_tbl.count, 1 , 'N' );
5164: aso_debug_pub.ADD ( 'New Tbl Count '||l_new_item_id_tbl.count, 1 , 'N' );
5165: END IF;
5158:
5159: IF (l_orig_item_id_tbl IS NOT NULL) AND (l_new_item_id_tbl IS NOT NULL) THEN
5160:
5161: IF aso_debug_pub.g_debug_flag = 'Y' THEN
5162: aso_debug_pub.ADD ( 'item_id_count > 0 ', 1 , 'N' );
5163: aso_debug_pub.ADD ( 'Orig Tbl Count ' ||l_orig_item_id_tbl.count, 1 , 'N' );
5164: aso_debug_pub.ADD ( 'New Tbl Count '||l_new_item_id_tbl.count, 1 , 'N' );
5165: END IF;
5166:
5159: IF (l_orig_item_id_tbl IS NOT NULL) AND (l_new_item_id_tbl IS NOT NULL) THEN
5160:
5161: IF aso_debug_pub.g_debug_flag = 'Y' THEN
5162: aso_debug_pub.ADD ( 'item_id_count > 0 ', 1 , 'N' );
5163: aso_debug_pub.ADD ( 'Orig Tbl Count ' ||l_orig_item_id_tbl.count, 1 , 'N' );
5164: aso_debug_pub.ADD ( 'New Tbl Count '||l_new_item_id_tbl.count, 1 , 'N' );
5165: END IF;
5166:
5167: IF l_orig_item_id_tbl.count > 0 AND l_new_item_id_tbl.count > 0 THEN
5160:
5161: IF aso_debug_pub.g_debug_flag = 'Y' THEN
5162: aso_debug_pub.ADD ( 'item_id_count > 0 ', 1 , 'N' );
5163: aso_debug_pub.ADD ( 'Orig Tbl Count ' ||l_orig_item_id_tbl.count, 1 , 'N' );
5164: aso_debug_pub.ADD ( 'New Tbl Count '||l_new_item_id_tbl.count, 1 , 'N' );
5165: END IF;
5166:
5167: IF l_orig_item_id_tbl.count > 0 AND l_new_item_id_tbl.count > 0 THEN
5168:
5187:
5188: END IF; -- Checking the index line table
5189:
5190: --Insert rows for line relationships and line price relationships for that quote line---
5191: IF aso_debug_pub.g_debug_flag = 'Y' THEN
5192: aso_debug_pub.ADD ( ' Copying the line relationship and price relation records for the new qte line' , 1 , 'N' );
5193: END IF;
5194:
5195:
5188: END IF; -- Checking the index line table
5189:
5190: --Insert rows for line relationships and line price relationships for that quote line---
5191: IF aso_debug_pub.g_debug_flag = 'Y' THEN
5192: aso_debug_pub.ADD ( ' Copying the line relationship and price relation records for the new qte line' , 1 , 'N' );
5193: END IF;
5194:
5195:
5196: FOR price_adj_rltship_rec IN c_price_adj_rel ( P_Original_Qte_Line_Rec.quote_line_id ) LOOP
5195:
5196: FOR price_adj_rltship_rec IN c_price_adj_rel ( P_Original_Qte_Line_Rec.quote_line_id ) LOOP
5197: lx_price_adj_rltship_id := FND_API.G_MISS_NUM;
5198:
5199: IF aso_debug_pub.g_debug_flag = 'Y' THEN
5200: aso_debug_pub.ADD ( 'l_line_index_link_tbl ( price_adj_rltship_rec.quote_line_id ) = ' ||
5201: l_line_index_link_tbl ( price_adj_rltship_rec.quote_line_id ) , 1 , 'N' );
5202: aso_debug_pub.ADD ( 'l_price_index_link_tbl ( price_adj_rltship_rec.rltd_price_adj_id ) = ' ||
5203: l_price_index_link_tbl ( price_adj_rltship_rec.rltd_price_adj_id ) , 1 , 'N' );
5196: FOR price_adj_rltship_rec IN c_price_adj_rel ( P_Original_Qte_Line_Rec.quote_line_id ) LOOP
5197: lx_price_adj_rltship_id := FND_API.G_MISS_NUM;
5198:
5199: IF aso_debug_pub.g_debug_flag = 'Y' THEN
5200: aso_debug_pub.ADD ( 'l_line_index_link_tbl ( price_adj_rltship_rec.quote_line_id ) = ' ||
5201: l_line_index_link_tbl ( price_adj_rltship_rec.quote_line_id ) , 1 , 'N' );
5202: aso_debug_pub.ADD ( 'l_price_index_link_tbl ( price_adj_rltship_rec.rltd_price_adj_id ) = ' ||
5203: l_price_index_link_tbl ( price_adj_rltship_rec.rltd_price_adj_id ) , 1 , 'N' );
5204: aso_debug_pub.ADD ( 'price_adj_rltship_rec.rltd_price_adj_id = ' ||
5198:
5199: IF aso_debug_pub.g_debug_flag = 'Y' THEN
5200: aso_debug_pub.ADD ( 'l_line_index_link_tbl ( price_adj_rltship_rec.quote_line_id ) = ' ||
5201: l_line_index_link_tbl ( price_adj_rltship_rec.quote_line_id ) , 1 , 'N' );
5202: aso_debug_pub.ADD ( 'l_price_index_link_tbl ( price_adj_rltship_rec.rltd_price_adj_id ) = ' ||
5203: l_price_index_link_tbl ( price_adj_rltship_rec.rltd_price_adj_id ) , 1 , 'N' );
5204: aso_debug_pub.ADD ( 'price_adj_rltship_rec.rltd_price_adj_id = ' ||
5205: price_adj_rltship_rec.rltd_price_adj_id , 1 , 'N' );
5206: END IF;
5200: aso_debug_pub.ADD ( 'l_line_index_link_tbl ( price_adj_rltship_rec.quote_line_id ) = ' ||
5201: l_line_index_link_tbl ( price_adj_rltship_rec.quote_line_id ) , 1 , 'N' );
5202: aso_debug_pub.ADD ( 'l_price_index_link_tbl ( price_adj_rltship_rec.rltd_price_adj_id ) = ' ||
5203: l_price_index_link_tbl ( price_adj_rltship_rec.rltd_price_adj_id ) , 1 , 'N' );
5204: aso_debug_pub.ADD ( 'price_adj_rltship_rec.rltd_price_adj_id = ' ||
5205: price_adj_rltship_rec.rltd_price_adj_id , 1 , 'N' );
5206: END IF;
5207:
5208: OPEN C_Get_Ship_Id (
5210: );
5211: FETCH C_Get_Ship_Id INTO l_ship_id;
5212: CLOSE C_Get_Ship_Id;
5213:
5214: IF aso_debug_pub.g_debug_flag = 'Y' THEN
5215: aso_debug_pub.ADD ( 'l_ship_id from line_id = ' || l_ship_id , 1 , 'N' );
5216: END IF;
5217:
5218: ASO_PRICE_RLTSHIPS_PKG.Insert_Row (
5211: FETCH C_Get_Ship_Id INTO l_ship_id;
5212: CLOSE C_Get_Ship_Id;
5213:
5214: IF aso_debug_pub.g_debug_flag = 'Y' THEN
5215: aso_debug_pub.ADD ( 'l_ship_id from line_id = ' || l_ship_id , 1 , 'N' );
5216: END IF;
5217:
5218: ASO_PRICE_RLTSHIPS_PKG.Insert_Row (
5219: px_ADJ_RELATIONSHIP_ID => lx_price_adj_rltship_id
5263: END LOOP;
5264: -- End Copying the Line Loop
5265: -- Calling Update Quote to update the quantities
5266:
5267: IF aso_debug_pub.g_debug_flag = 'Y' THEN
5268: aso_debug_pub.ADD ( ' Getting the last update date of the quote before updating the quote ', 1 , 'N' );
5269: END IF;
5270:
5271: l_quote_header_rec := ASO_UTILITY_PVT.Query_Header_Row(P_Qte_Header_Rec.quote_header_id);
5264: -- End Copying the Line Loop
5265: -- Calling Update Quote to update the quantities
5266:
5267: IF aso_debug_pub.g_debug_flag = 'Y' THEN
5268: aso_debug_pub.ADD ( ' Getting the last update date of the quote before updating the quote ', 1 , 'N' );
5269: END IF;
5270:
5271: l_quote_header_rec := ASO_UTILITY_PVT.Query_Header_Row(P_Qte_Header_Rec.quote_header_id);
5272:
5291:
5292:
5293: l_qte_line_tbl := ASO_QUOTE_PUB.G_MISS_QTE_LINE_TBL;
5294:
5295: IF aso_debug_pub.g_debug_flag = 'Y' THEN
5296: aso_debug_pub.ADD ( 'No Of Qte Lines 1 = '|| to_char(l_qte_line_tbl.count), 1 , 'N' );
5297: aso_debug_pub.ADD ( ' Setting the qty and op code for new line created ', 1 , 'N' );
5298: END IF;
5299:
5292:
5293: l_qte_line_tbl := ASO_QUOTE_PUB.G_MISS_QTE_LINE_TBL;
5294:
5295: IF aso_debug_pub.g_debug_flag = 'Y' THEN
5296: aso_debug_pub.ADD ( 'No Of Qte Lines 1 = '|| to_char(l_qte_line_tbl.count), 1 , 'N' );
5297: aso_debug_pub.ADD ( ' Setting the qty and op code for new line created ', 1 , 'N' );
5298: END IF;
5299:
5300: FOR i in 1..l_inserted_qte_line_tbl.count LOOP
5293: l_qte_line_tbl := ASO_QUOTE_PUB.G_MISS_QTE_LINE_TBL;
5294:
5295: IF aso_debug_pub.g_debug_flag = 'Y' THEN
5296: aso_debug_pub.ADD ( 'No Of Qte Lines 1 = '|| to_char(l_qte_line_tbl.count), 1 , 'N' );
5297: aso_debug_pub.ADD ( ' Setting the qty and op code for new line created ', 1 , 'N' );
5298: END IF;
5299:
5300: FOR i in 1..l_inserted_qte_line_tbl.count LOOP
5301: l_qte_line_tbl(i).quote_header_id := P_Qte_Header_Rec.quote_header_id;
5303: l_qte_line_tbl(i).quote_line_id := l_inserted_qte_line_tbl(i).quote_line_id;
5304: l_qte_line_tbl(i).operation_code := 'UPDATE';
5305:
5306:
5307: IF aso_debug_pub.g_debug_flag = 'Y' THEN
5308: aso_debug_pub.ADD ( 'New Qte Line '|| to_char(l_inserted_qte_line_tbl(i).quote_line_id), 1 , 'N' );
5309: aso_debug_pub.ADD ( 'New Qty '|| to_char(l_inserted_qte_line_tbl(i).quantity), 1 , 'N' );
5310: END IF;
5311:
5304: l_qte_line_tbl(i).operation_code := 'UPDATE';
5305:
5306:
5307: IF aso_debug_pub.g_debug_flag = 'Y' THEN
5308: aso_debug_pub.ADD ( 'New Qte Line '|| to_char(l_inserted_qte_line_tbl(i).quote_line_id), 1 , 'N' );
5309: aso_debug_pub.ADD ( 'New Qty '|| to_char(l_inserted_qte_line_tbl(i).quantity), 1 , 'N' );
5310: END IF;
5311:
5312: END LOOP;
5305:
5306:
5307: IF aso_debug_pub.g_debug_flag = 'Y' THEN
5308: aso_debug_pub.ADD ( 'New Qte Line '|| to_char(l_inserted_qte_line_tbl(i).quote_line_id), 1 , 'N' );
5309: aso_debug_pub.ADD ( 'New Qty '|| to_char(l_inserted_qte_line_tbl(i).quantity), 1 , 'N' );
5310: END IF;
5311:
5312: END LOOP;
5313:
5310: END IF;
5311:
5312: END LOOP;
5313:
5314: IF aso_debug_pub.g_debug_flag = 'Y' THEN
5315: aso_debug_pub.ADD ( 'No Of Qte Lines 2 = '|| to_char(l_qte_line_tbl.count), 1 , 'N' );
5316: aso_debug_pub.ADD ( ' Setting the qty and op code for orig line to be updated ', 1 , 'N' );
5317: END IF;
5318:
5311:
5312: END LOOP;
5313:
5314: IF aso_debug_pub.g_debug_flag = 'Y' THEN
5315: aso_debug_pub.ADD ( 'No Of Qte Lines 2 = '|| to_char(l_qte_line_tbl.count), 1 , 'N' );
5316: aso_debug_pub.ADD ( ' Setting the qty and op code for orig line to be updated ', 1 , 'N' );
5317: END IF;
5318:
5319: l_total_lines := l_qte_line_tbl.count;
5312: END LOOP;
5313:
5314: IF aso_debug_pub.g_debug_flag = 'Y' THEN
5315: aso_debug_pub.ADD ( 'No Of Qte Lines 2 = '|| to_char(l_qte_line_tbl.count), 1 , 'N' );
5316: aso_debug_pub.ADD ( ' Setting the qty and op code for orig line to be updated ', 1 , 'N' );
5317: END IF;
5318:
5319: l_total_lines := l_qte_line_tbl.count;
5320:
5323: l_qte_line_tbl(l_total_lines + 1).quote_header_id := P_Qte_Header_Rec.quote_header_id;
5324: l_qte_line_tbl(l_total_lines + 1).operation_code := 'UPDATE';
5325: l_qte_line_tbl(l_total_lines + 1).quote_line_id := P_Original_Qte_Line_Rec.quote_line_id;
5326:
5327: IF aso_debug_pub.g_debug_flag = 'Y' THEN
5328: aso_debug_pub.ADD ( 'No Of Qte Lines before update qty = '|| to_char(l_qte_line_tbl.count), 1 , 'N' );
5329: aso_debug_pub.ADD ( ' Calling Update Quote to update all lines ', 1 , 'N' );
5330: END IF;
5331:
5324: l_qte_line_tbl(l_total_lines + 1).operation_code := 'UPDATE';
5325: l_qte_line_tbl(l_total_lines + 1).quote_line_id := P_Original_Qte_Line_Rec.quote_line_id;
5326:
5327: IF aso_debug_pub.g_debug_flag = 'Y' THEN
5328: aso_debug_pub.ADD ( 'No Of Qte Lines before update qty = '|| to_char(l_qte_line_tbl.count), 1 , 'N' );
5329: aso_debug_pub.ADD ( ' Calling Update Quote to update all lines ', 1 , 'N' );
5330: END IF;
5331:
5332: aso_quote_pub.update_quote (
5325: l_qte_line_tbl(l_total_lines + 1).quote_line_id := P_Original_Qte_Line_Rec.quote_line_id;
5326:
5327: IF aso_debug_pub.g_debug_flag = 'Y' THEN
5328: aso_debug_pub.ADD ( 'No Of Qte Lines before update qty = '|| to_char(l_qte_line_tbl.count), 1 , 'N' );
5329: aso_debug_pub.ADD ( ' Calling Update Quote to update all lines ', 1 , 'N' );
5330: END IF;
5331:
5332: aso_quote_pub.update_quote (
5333: p_api_version_number => 1.0,
5374: x_msg_count => x_msg_count,
5375: x_msg_data => x_msg_data
5376: );
5377:
5378: IF aso_debug_pub.g_debug_flag = 'Y' THEN
5379: aso_debug_pub.ADD ( ' Return Status from Update Quote = '||l_return_status, 1 , 'N' );
5380: END IF;
5381:
5382:
5375: x_msg_data => x_msg_data
5376: );
5377:
5378: IF aso_debug_pub.g_debug_flag = 'Y' THEN
5379: aso_debug_pub.ADD ( ' Return Status from Update Quote = '||l_return_status, 1 , 'N' );
5380: END IF;
5381:
5382:
5383: IF ( l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
5391: x_return_status := FND_API.G_RET_STS_ERROR;
5392: RAISE FND_API.G_EXC_ERROR;
5393: END IF;
5394:
5395: IF aso_debug_pub.g_debug_flag = 'Y' THEN
5396: aso_debug_pub.ADD ( ' After Calling Update Quote to update all lines ', 1 , 'N' );
5397: END IF;
5398:
5399:
5392: RAISE FND_API.G_EXC_ERROR;
5393: END IF;
5394:
5395: IF aso_debug_pub.g_debug_flag = 'Y' THEN
5396: aso_debug_pub.ADD ( ' After Calling Update Quote to update all lines ', 1 , 'N' );
5397: END IF;
5398:
5399:
5400: X_Quote_Line_Tbl := x_qte_line_tbl;
5410: p_count => x_msg_count
5411: , p_data => x_msg_data
5412: );
5413:
5414: IF aso_debug_pub.g_debug_flag = 'Y' THEN
5415: aso_debug_pub.ADD ( ' End of Split_Model_Line ', 1 , 'N' );
5416: END IF;
5417: EXCEPTION
5418: WHEN FND_API.G_EXC_ERROR THEN
5411: , p_data => x_msg_data
5412: );
5413:
5414: IF aso_debug_pub.g_debug_flag = 'Y' THEN
5415: aso_debug_pub.ADD ( ' End of Split_Model_Line ', 1 , 'N' );
5416: END IF;
5417: EXCEPTION
5418: WHEN FND_API.G_EXC_ERROR THEN
5419: ASO_UTILITY_PVT.HANDLE_EXCEPTIONS (
5510: FND_MSG_PUB.initialize;
5511: END IF;
5512:
5513: -- API BODY
5514: IF aso_debug_pub.g_debug_flag = 'Y' THEN
5515: aso_debug_pub.ADD ('INSERT_SALES_SUPP_DATA: Begin' , 1, 'N' );
5516: aso_debug_pub.ADD ( 'Old QTE Line Id : ' || TO_CHAR ( P_OLD_QUOTE_LINE_ID ) , 1 , 'N' );
5517: aso_debug_pub.ADD ( 'New QTE Line Id : ' || TO_CHAR ( P_NEW_QUOTE_LINE_ID ) , 1 , 'N' );
5518: END IF;
5511: END IF;
5512:
5513: -- API BODY
5514: IF aso_debug_pub.g_debug_flag = 'Y' THEN
5515: aso_debug_pub.ADD ('INSERT_SALES_SUPP_DATA: Begin' , 1, 'N' );
5516: aso_debug_pub.ADD ( 'Old QTE Line Id : ' || TO_CHAR ( P_OLD_QUOTE_LINE_ID ) , 1 , 'N' );
5517: aso_debug_pub.ADD ( 'New QTE Line Id : ' || TO_CHAR ( P_NEW_QUOTE_LINE_ID ) , 1 , 'N' );
5518: END IF;
5519:
5512:
5513: -- API BODY
5514: IF aso_debug_pub.g_debug_flag = 'Y' THEN
5515: aso_debug_pub.ADD ('INSERT_SALES_SUPP_DATA: Begin' , 1, 'N' );
5516: aso_debug_pub.ADD ( 'Old QTE Line Id : ' || TO_CHAR ( P_OLD_QUOTE_LINE_ID ) , 1 , 'N' );
5517: aso_debug_pub.ADD ( 'New QTE Line Id : ' || TO_CHAR ( P_NEW_QUOTE_LINE_ID ) , 1 , 'N' );
5518: END IF;
5519:
5520: -- Get the template id and template_instance_id based upon the
5513: -- API BODY
5514: IF aso_debug_pub.g_debug_flag = 'Y' THEN
5515: aso_debug_pub.ADD ('INSERT_SALES_SUPP_DATA: Begin' , 1, 'N' );
5516: aso_debug_pub.ADD ( 'Old QTE Line Id : ' || TO_CHAR ( P_OLD_QUOTE_LINE_ID ) , 1 , 'N' );
5517: aso_debug_pub.ADD ( 'New QTE Line Id : ' || TO_CHAR ( P_NEW_QUOTE_LINE_ID ) , 1 , 'N' );
5518: END IF;
5519:
5520: -- Get the template id and template_instance_id based upon the
5521: -- quote line id
5520: -- Get the template id and template_instance_id based upon the
5521: -- quote line id
5522:
5523: FOR template_val IN get_template_id ( P_OLD_QUOTE_LINE_ID ) LOOP
5524: IF aso_debug_pub.g_debug_flag = 'Y' THEN
5525: aso_debug_pub.ADD ( 'Template Id : ' || TO_CHAR ( template_val.template_id ) , 1 , 'N' );
5526: aso_debug_pub.ADD ( ' Old Template Instance Id : ' || TO_CHAR ( template_val.template_instance_id ) , 1 , 'N
5527: ' );
5528:
5521: -- quote line id
5522:
5523: FOR template_val IN get_template_id ( P_OLD_QUOTE_LINE_ID ) LOOP
5524: IF aso_debug_pub.g_debug_flag = 'Y' THEN
5525: aso_debug_pub.ADD ( 'Template Id : ' || TO_CHAR ( template_val.template_id ) , 1 , 'N' );
5526: aso_debug_pub.ADD ( ' Old Template Instance Id : ' || TO_CHAR ( template_val.template_instance_id ) , 1 , 'N
5527: ' );
5528:
5529: -- Create a new row in the ASO_SUP_TMPL_INSTANCE Table with the template id
5522:
5523: FOR template_val IN get_template_id ( P_OLD_QUOTE_LINE_ID ) LOOP
5524: IF aso_debug_pub.g_debug_flag = 'Y' THEN
5525: aso_debug_pub.ADD ( 'Template Id : ' || TO_CHAR ( template_val.template_id ) , 1 , 'N' );
5526: aso_debug_pub.ADD ( ' Old Template Instance Id : ' || TO_CHAR ( template_val.template_instance_id ) , 1 , 'N
5527: ' );
5528:
5529: -- Create a new row in the ASO_SUP_TMPL_INSTANCE Table with the template id
5530:
5527: ' );
5528:
5529: -- Create a new row in the ASO_SUP_TMPL_INSTANCE Table with the template id
5530:
5531: aso_debug_pub.ADD ( 'Inserting a row into tmpl_instance table' , 1 , 'N' );
5532: END IF;
5533:
5534: -- Initiate the variable to null,
5535: -- so that each time they contain new value for every pass of loop
5548: , P_Owner_Table_Id => P_NEW_QUOTE_LINE_ID
5549: , P_OBJECT_VERSION_NUMBER => FND_API.G_MISS_NUM
5550: );
5551:
5552: IF aso_debug_pub.g_debug_flag = 'Y' THEN
5553: aso_debug_pub.ADD ( ' New Template Instance Id : ' || TO_CHAR ( l_new_template_instance_id ) , 1 , 'N' );
5554: END IF;
5555:
5556: -- Get the values for that instance
5549: , P_OBJECT_VERSION_NUMBER => FND_API.G_MISS_NUM
5550: );
5551:
5552: IF aso_debug_pub.g_debug_flag = 'Y' THEN
5553: aso_debug_pub.ADD ( ' New Template Instance Id : ' || TO_CHAR ( l_new_template_instance_id ) , 1 , 'N' );
5554: END IF;
5555:
5556: -- Get the values for that instance
5557: FOR inst_val IN get_values ( template_val.template_instance_id ) LOOP
5554: END IF;
5555:
5556: -- Get the values for that instance
5557: FOR inst_val IN get_values ( template_val.template_instance_id ) LOOP
5558: IF aso_debug_pub.g_debug_flag = 'Y' THEN
5559: aso_debug_pub.ADD ( 'Value : ' || inst_val.VALUE, 1, 'N' );
5560: aso_debug_pub.ADD ( 'Value Type Qualifier : ' || inst_val.value_type_qualifier , 1 , 'N' );
5561: aso_debug_pub.ADD ( 'Response Id : ' || TO_CHAR ( inst_val.response_id ) , 1 , 'N' );
5562: END IF;
5555:
5556: -- Get the values for that instance
5557: FOR inst_val IN get_values ( template_val.template_instance_id ) LOOP
5558: IF aso_debug_pub.g_debug_flag = 'Y' THEN
5559: aso_debug_pub.ADD ( 'Value : ' || inst_val.VALUE, 1, 'N' );
5560: aso_debug_pub.ADD ( 'Value Type Qualifier : ' || inst_val.value_type_qualifier , 1 , 'N' );
5561: aso_debug_pub.ADD ( 'Response Id : ' || TO_CHAR ( inst_val.response_id ) , 1 , 'N' );
5562: END IF;
5563:
5556: -- Get the values for that instance
5557: FOR inst_val IN get_values ( template_val.template_instance_id ) LOOP
5558: IF aso_debug_pub.g_debug_flag = 'Y' THEN
5559: aso_debug_pub.ADD ( 'Value : ' || inst_val.VALUE, 1, 'N' );
5560: aso_debug_pub.ADD ( 'Value Type Qualifier : ' || inst_val.value_type_qualifier , 1 , 'N' );
5561: aso_debug_pub.ADD ( 'Response Id : ' || TO_CHAR ( inst_val.response_id ) , 1 , 'N' );
5562: END IF;
5563:
5564: -- If values are fetched then insert rows
5557: FOR inst_val IN get_values ( template_val.template_instance_id ) LOOP
5558: IF aso_debug_pub.g_debug_flag = 'Y' THEN
5559: aso_debug_pub.ADD ( 'Value : ' || inst_val.VALUE, 1, 'N' );
5560: aso_debug_pub.ADD ( 'Value Type Qualifier : ' || inst_val.value_type_qualifier , 1 , 'N' );
5561: aso_debug_pub.ADD ( 'Response Id : ' || TO_CHAR ( inst_val.response_id ) , 1 , 'N' );
5562: END IF;
5563:
5564: -- If values are fetched then insert rows
5565: IF inst_val.sect_comp_map_id IS NOT NULL THEN
5566: -- Initiate the variables to null,
5567: -- so that each time they contain new value for every pass of loop
5568:
5569: l_instance_value_id := NULL;
5570: IF aso_debug_pub.g_debug_flag = 'Y' THEN
5571: aso_debug_pub.ADD ( 'Inserting a row into instance_value table' , 1 , 'N' );
5572: END IF;
5573:
5574: -- Create a new row in the ASO_SUP_INSTANCE_VALUE table
5567: -- so that each time they contain new value for every pass of loop
5568:
5569: l_instance_value_id := NULL;
5570: IF aso_debug_pub.g_debug_flag = 'Y' THEN
5571: aso_debug_pub.ADD ( 'Inserting a row into instance_value table' , 1 , 'N' );
5572: END IF;
5573:
5574: -- Create a new row in the ASO_SUP_INSTANCE_VALUE table
5575: ASO_SUP_INSTANCE_VALUE_PKG.INSERT_ROW (
5584: , P_last_updated_by => FND_GLOBAL.USER_ID
5585: , P_last_update_login => FND_GLOBAL.CONC_LOGIN_ID
5586: , P_OBJECT_VERSION_NUMBER => FND_API.G_MISS_NUM
5587: );
5588: IF aso_debug_pub.g_debug_flag = 'Y' THEN
5589: aso_debug_pub.ADD ( 'New Instance Value Id : ' || TO_CHAR ( l_instance_value_id ) , 1 , 'N' );
5590: END IF;
5591: END IF;
5592:
5585: , P_last_update_login => FND_GLOBAL.CONC_LOGIN_ID
5586: , P_OBJECT_VERSION_NUMBER => FND_API.G_MISS_NUM
5587: );
5588: IF aso_debug_pub.g_debug_flag = 'Y' THEN
5589: aso_debug_pub.ADD ( 'New Instance Value Id : ' || TO_CHAR ( l_instance_value_id ) , 1 , 'N' );
5590: END IF;
5591: END IF;
5592:
5593: END LOOP; -- instance value loop
5601:
5602: -- Initialize API return status to success
5603: x_return_status := FND_API.G_RET_STS_SUCCESS;
5604:
5605: IF aso_debug_pub.g_debug_flag = 'Y' THEN
5606: aso_debug_pub.ADD ( 'INSERT_SALES_SUPP_DATA: ' || l_api_name || 'end' , 1 , 'N' );
5607: END IF;
5608:
5609:
5602: -- Initialize API return status to success
5603: x_return_status := FND_API.G_RET_STS_SUCCESS;
5604:
5605: IF aso_debug_pub.g_debug_flag = 'Y' THEN
5606: aso_debug_pub.ADD ( 'INSERT_SALES_SUPP_DATA: ' || l_api_name || 'end' , 1 , 'N' );
5607: END IF;
5608:
5609:
5610:
5676: SELECT ASO_PAYMENTS_S.nextval FROM sys.dual;
5677:
5678: begin
5679: SAVEPOINT COPY_PAYMENT_ROW_PVT;
5680: aso_debug_pub.g_debug_flag := nvl(fnd_profile.value('ASO_ENABLE_DEBUG'),'N');
5681:
5682: IF aso_debug_pub.g_debug_flag = 'Y' THEN
5683: aso_debug_pub.add('Begin copy_payment_row ', 1, 'Y');
5684: aso_debug_pub.add('l_payment_rec.Quote_Header_Id: ' || l_payment_rec.Quote_Header_Id, 1, 'Y');
5678: begin
5679: SAVEPOINT COPY_PAYMENT_ROW_PVT;
5680: aso_debug_pub.g_debug_flag := nvl(fnd_profile.value('ASO_ENABLE_DEBUG'),'N');
5681:
5682: IF aso_debug_pub.g_debug_flag = 'Y' THEN
5683: aso_debug_pub.add('Begin copy_payment_row ', 1, 'Y');
5684: aso_debug_pub.add('l_payment_rec.Quote_Header_Id: ' || l_payment_rec.Quote_Header_Id, 1, 'Y');
5685: aso_debug_pub.add('l_payment_rec.Quote_Line_Id: ' || l_payment_rec.Quote_Line_Id, 1, 'Y');
5686: aso_debug_pub.add('l_payment_rec.trxn_extension_id:' || l_payment_rec.trxn_extension_id, 1, 'Y');
5679: SAVEPOINT COPY_PAYMENT_ROW_PVT;
5680: aso_debug_pub.g_debug_flag := nvl(fnd_profile.value('ASO_ENABLE_DEBUG'),'N');
5681:
5682: IF aso_debug_pub.g_debug_flag = 'Y' THEN
5683: aso_debug_pub.add('Begin copy_payment_row ', 1, 'Y');
5684: aso_debug_pub.add('l_payment_rec.Quote_Header_Id: ' || l_payment_rec.Quote_Header_Id, 1, 'Y');
5685: aso_debug_pub.add('l_payment_rec.Quote_Line_Id: ' || l_payment_rec.Quote_Line_Id, 1, 'Y');
5686: aso_debug_pub.add('l_payment_rec.trxn_extension_id:' || l_payment_rec.trxn_extension_id, 1, 'Y');
5687: aso_debug_pub.add('l_payment_rec.PAYMENT_REF_NUMBER:'|| l_payment_rec.PAYMENT_REF_NUMBER , 1, 'Y');
5680: aso_debug_pub.g_debug_flag := nvl(fnd_profile.value('ASO_ENABLE_DEBUG'),'N');
5681:
5682: IF aso_debug_pub.g_debug_flag = 'Y' THEN
5683: aso_debug_pub.add('Begin copy_payment_row ', 1, 'Y');
5684: aso_debug_pub.add('l_payment_rec.Quote_Header_Id: ' || l_payment_rec.Quote_Header_Id, 1, 'Y');
5685: aso_debug_pub.add('l_payment_rec.Quote_Line_Id: ' || l_payment_rec.Quote_Line_Id, 1, 'Y');
5686: aso_debug_pub.add('l_payment_rec.trxn_extension_id:' || l_payment_rec.trxn_extension_id, 1, 'Y');
5687: aso_debug_pub.add('l_payment_rec.PAYMENT_REF_NUMBER:'|| l_payment_rec.PAYMENT_REF_NUMBER , 1, 'Y');
5688: aso_debug_pub.add('l_payment_rec.PAYMENT_TERM_ID: ' || l_payment_rec.PAYMENT_TERM_ID, 1, 'Y');
5681:
5682: IF aso_debug_pub.g_debug_flag = 'Y' THEN
5683: aso_debug_pub.add('Begin copy_payment_row ', 1, 'Y');
5684: aso_debug_pub.add('l_payment_rec.Quote_Header_Id: ' || l_payment_rec.Quote_Header_Id, 1, 'Y');
5685: aso_debug_pub.add('l_payment_rec.Quote_Line_Id: ' || l_payment_rec.Quote_Line_Id, 1, 'Y');
5686: aso_debug_pub.add('l_payment_rec.trxn_extension_id:' || l_payment_rec.trxn_extension_id, 1, 'Y');
5687: aso_debug_pub.add('l_payment_rec.PAYMENT_REF_NUMBER:'|| l_payment_rec.PAYMENT_REF_NUMBER , 1, 'Y');
5688: aso_debug_pub.add('l_payment_rec.PAYMENT_TERM_ID: ' || l_payment_rec.PAYMENT_TERM_ID, 1, 'Y');
5689: END IF;
5682: IF aso_debug_pub.g_debug_flag = 'Y' THEN
5683: aso_debug_pub.add('Begin copy_payment_row ', 1, 'Y');
5684: aso_debug_pub.add('l_payment_rec.Quote_Header_Id: ' || l_payment_rec.Quote_Header_Id, 1, 'Y');
5685: aso_debug_pub.add('l_payment_rec.Quote_Line_Id: ' || l_payment_rec.Quote_Line_Id, 1, 'Y');
5686: aso_debug_pub.add('l_payment_rec.trxn_extension_id:' || l_payment_rec.trxn_extension_id, 1, 'Y');
5687: aso_debug_pub.add('l_payment_rec.PAYMENT_REF_NUMBER:'|| l_payment_rec.PAYMENT_REF_NUMBER , 1, 'Y');
5688: aso_debug_pub.add('l_payment_rec.PAYMENT_TERM_ID: ' || l_payment_rec.PAYMENT_TERM_ID, 1, 'Y');
5689: END IF;
5690:
5683: aso_debug_pub.add('Begin copy_payment_row ', 1, 'Y');
5684: aso_debug_pub.add('l_payment_rec.Quote_Header_Id: ' || l_payment_rec.Quote_Header_Id, 1, 'Y');
5685: aso_debug_pub.add('l_payment_rec.Quote_Line_Id: ' || l_payment_rec.Quote_Line_Id, 1, 'Y');
5686: aso_debug_pub.add('l_payment_rec.trxn_extension_id:' || l_payment_rec.trxn_extension_id, 1, 'Y');
5687: aso_debug_pub.add('l_payment_rec.PAYMENT_REF_NUMBER:'|| l_payment_rec.PAYMENT_REF_NUMBER , 1, 'Y');
5688: aso_debug_pub.add('l_payment_rec.PAYMENT_TERM_ID: ' || l_payment_rec.PAYMENT_TERM_ID, 1, 'Y');
5689: END IF;
5690:
5691: x_return_status := FND_API.G_RET_STS_SUCCESS;
5684: aso_debug_pub.add('l_payment_rec.Quote_Header_Id: ' || l_payment_rec.Quote_Header_Id, 1, 'Y');
5685: aso_debug_pub.add('l_payment_rec.Quote_Line_Id: ' || l_payment_rec.Quote_Line_Id, 1, 'Y');
5686: aso_debug_pub.add('l_payment_rec.trxn_extension_id:' || l_payment_rec.trxn_extension_id, 1, 'Y');
5687: aso_debug_pub.add('l_payment_rec.PAYMENT_REF_NUMBER:'|| l_payment_rec.PAYMENT_REF_NUMBER , 1, 'Y');
5688: aso_debug_pub.add('l_payment_rec.PAYMENT_TERM_ID: ' || l_payment_rec.PAYMENT_TERM_ID, 1, 'Y');
5689: END IF;
5690:
5691: x_return_status := FND_API.G_RET_STS_SUCCESS;
5692:
5697:
5698: if (l_payment_rec.trxn_extension_id is not null or l_payment_rec.trxn_extension_id <> fnd_api.g_miss_num) then
5699:
5700: -- Check to see if cvv2 is mandatory or not
5701: IF aso_debug_pub.g_debug_flag = 'Y' THEN
5702: aso_debug_pub.add('Before calling IBY_FNDCPT_TRXN_PUB.Get_Payment_Channel_Attribs ', 1, 'Y');
5703: END IF;
5704:
5705: IBY_FNDCPT_SETUP_PUB.Get_Payment_Channel_Attribs
5698: if (l_payment_rec.trxn_extension_id is not null or l_payment_rec.trxn_extension_id <> fnd_api.g_miss_num) then
5699:
5700: -- Check to see if cvv2 is mandatory or not
5701: IF aso_debug_pub.g_debug_flag = 'Y' THEN
5702: aso_debug_pub.add('Before calling IBY_FNDCPT_TRXN_PUB.Get_Payment_Channel_Attribs ', 1, 'Y');
5703: END IF;
5704:
5705: IBY_FNDCPT_SETUP_PUB.Get_Payment_Channel_Attribs
5706: (
5712: p_channel_code => 'CREDIT_CARD',
5713: x_channel_attrib_uses => lx_channel_attrib_uses,
5714: x_response => lx_response);
5715:
5716: IF aso_debug_pub.g_debug_flag = 'Y' THEN
5717: aso_debug_pub.add('after calling IBY_FNDCPT_TRXN_PUB.Get_Payment_Channel_Attribs ', 1, 'Y');
5718: aso_debug_pub.add('Return Status: '||x_return_status, 1, 'Y');
5719: aso_debug_pub.add('cvv2 use: '||lx_channel_attrib_uses.Instr_SecCode_Use, 1, 'Y');
5720: aso_debug_pub.add('x_response.result_code: '|| to_char(lx_response.result_code), 1, 'Y');
5713: x_channel_attrib_uses => lx_channel_attrib_uses,
5714: x_response => lx_response);
5715:
5716: IF aso_debug_pub.g_debug_flag = 'Y' THEN
5717: aso_debug_pub.add('after calling IBY_FNDCPT_TRXN_PUB.Get_Payment_Channel_Attribs ', 1, 'Y');
5718: aso_debug_pub.add('Return Status: '||x_return_status, 1, 'Y');
5719: aso_debug_pub.add('cvv2 use: '||lx_channel_attrib_uses.Instr_SecCode_Use, 1, 'Y');
5720: aso_debug_pub.add('x_response.result_code: '|| to_char(lx_response.result_code), 1, 'Y');
5721: aso_debug_pub.add('x_response.result_category:'|| to_char(lx_response.result_category), 1, 'Y');
5714: x_response => lx_response);
5715:
5716: IF aso_debug_pub.g_debug_flag = 'Y' THEN
5717: aso_debug_pub.add('after calling IBY_FNDCPT_TRXN_PUB.Get_Payment_Channel_Attribs ', 1, 'Y');
5718: aso_debug_pub.add('Return Status: '||x_return_status, 1, 'Y');
5719: aso_debug_pub.add('cvv2 use: '||lx_channel_attrib_uses.Instr_SecCode_Use, 1, 'Y');
5720: aso_debug_pub.add('x_response.result_code: '|| to_char(lx_response.result_code), 1, 'Y');
5721: aso_debug_pub.add('x_response.result_category:'|| to_char(lx_response.result_category), 1, 'Y');
5722: aso_debug_pub.add('x_response.result_message: '|| to_char(lx_response.result_message), 1, 'Y');
5715:
5716: IF aso_debug_pub.g_debug_flag = 'Y' THEN
5717: aso_debug_pub.add('after calling IBY_FNDCPT_TRXN_PUB.Get_Payment_Channel_Attribs ', 1, 'Y');
5718: aso_debug_pub.add('Return Status: '||x_return_status, 1, 'Y');
5719: aso_debug_pub.add('cvv2 use: '||lx_channel_attrib_uses.Instr_SecCode_Use, 1, 'Y');
5720: aso_debug_pub.add('x_response.result_code: '|| to_char(lx_response.result_code), 1, 'Y');
5721: aso_debug_pub.add('x_response.result_category:'|| to_char(lx_response.result_category), 1, 'Y');
5722: aso_debug_pub.add('x_response.result_message: '|| to_char(lx_response.result_message), 1, 'Y');
5723: END IF;
5716: IF aso_debug_pub.g_debug_flag = 'Y' THEN
5717: aso_debug_pub.add('after calling IBY_FNDCPT_TRXN_PUB.Get_Payment_Channel_Attribs ', 1, 'Y');
5718: aso_debug_pub.add('Return Status: '||x_return_status, 1, 'Y');
5719: aso_debug_pub.add('cvv2 use: '||lx_channel_attrib_uses.Instr_SecCode_Use, 1, 'Y');
5720: aso_debug_pub.add('x_response.result_code: '|| to_char(lx_response.result_code), 1, 'Y');
5721: aso_debug_pub.add('x_response.result_category:'|| to_char(lx_response.result_category), 1, 'Y');
5722: aso_debug_pub.add('x_response.result_message: '|| to_char(lx_response.result_message), 1, 'Y');
5723: END IF;
5724:
5717: aso_debug_pub.add('after calling IBY_FNDCPT_TRXN_PUB.Get_Payment_Channel_Attribs ', 1, 'Y');
5718: aso_debug_pub.add('Return Status: '||x_return_status, 1, 'Y');
5719: aso_debug_pub.add('cvv2 use: '||lx_channel_attrib_uses.Instr_SecCode_Use, 1, 'Y');
5720: aso_debug_pub.add('x_response.result_code: '|| to_char(lx_response.result_code), 1, 'Y');
5721: aso_debug_pub.add('x_response.result_category:'|| to_char(lx_response.result_category), 1, 'Y');
5722: aso_debug_pub.add('x_response.result_message: '|| to_char(lx_response.result_message), 1, 'Y');
5723: END IF;
5724:
5725: -- if cvv2 is not mandatory then call IBY API to create the new trxn extension
5718: aso_debug_pub.add('Return Status: '||x_return_status, 1, 'Y');
5719: aso_debug_pub.add('cvv2 use: '||lx_channel_attrib_uses.Instr_SecCode_Use, 1, 'Y');
5720: aso_debug_pub.add('x_response.result_code: '|| to_char(lx_response.result_code), 1, 'Y');
5721: aso_debug_pub.add('x_response.result_category:'|| to_char(lx_response.result_category), 1, 'Y');
5722: aso_debug_pub.add('x_response.result_message: '|| to_char(lx_response.result_message), 1, 'Y');
5723: END IF;
5724:
5725: -- if cvv2 is not mandatory then call IBY API to create the new trxn extension
5726: -- if cvv2 is mandatory then do not call IBY API, make payment ref as null and insert row
5760: l_trxn_attribs.VoiceAuth_Date := null;
5761: l_trxn_attribs.VoiceAuth_Code := null;
5762: l_trxn_attribs.Additional_Info := null;
5763:
5764: IF aso_debug_pub.g_debug_flag = 'Y' THEN
5765: aso_debug_pub.add('Before calling IBY_FNDCPT_TRXN_PUB.Create_Transaction_Extension ', 1, 'Y');
5766: aso_debug_pub.add('Instrument Assignment id: '|| l_payment_rec.instr_assignment_id, 1, 'Y');
5767: aso_debug_pub.add('payment id is : '|| l_payment_rec.payment_id,1,'Y');
5768: aso_debug_pub.add('quote line id is : '|| l_payment_rec.quote_line_id,1,'Y');
5761: l_trxn_attribs.VoiceAuth_Code := null;
5762: l_trxn_attribs.Additional_Info := null;
5763:
5764: IF aso_debug_pub.g_debug_flag = 'Y' THEN
5765: aso_debug_pub.add('Before calling IBY_FNDCPT_TRXN_PUB.Create_Transaction_Extension ', 1, 'Y');
5766: aso_debug_pub.add('Instrument Assignment id: '|| l_payment_rec.instr_assignment_id, 1, 'Y');
5767: aso_debug_pub.add('payment id is : '|| l_payment_rec.payment_id,1,'Y');
5768: aso_debug_pub.add('quote line id is : '|| l_payment_rec.quote_line_id,1,'Y');
5769: aso_debug_pub.add('party_id is : '|| l_payer.party_id,1,'Y');
5762: l_trxn_attribs.Additional_Info := null;
5763:
5764: IF aso_debug_pub.g_debug_flag = 'Y' THEN
5765: aso_debug_pub.add('Before calling IBY_FNDCPT_TRXN_PUB.Create_Transaction_Extension ', 1, 'Y');
5766: aso_debug_pub.add('Instrument Assignment id: '|| l_payment_rec.instr_assignment_id, 1, 'Y');
5767: aso_debug_pub.add('payment id is : '|| l_payment_rec.payment_id,1,'Y');
5768: aso_debug_pub.add('quote line id is : '|| l_payment_rec.quote_line_id,1,'Y');
5769: aso_debug_pub.add('party_id is : '|| l_payer.party_id,1,'Y');
5770: END IF;
5763:
5764: IF aso_debug_pub.g_debug_flag = 'Y' THEN
5765: aso_debug_pub.add('Before calling IBY_FNDCPT_TRXN_PUB.Create_Transaction_Extension ', 1, 'Y');
5766: aso_debug_pub.add('Instrument Assignment id: '|| l_payment_rec.instr_assignment_id, 1, 'Y');
5767: aso_debug_pub.add('payment id is : '|| l_payment_rec.payment_id,1,'Y');
5768: aso_debug_pub.add('quote line id is : '|| l_payment_rec.quote_line_id,1,'Y');
5769: aso_debug_pub.add('party_id is : '|| l_payer.party_id,1,'Y');
5770: END IF;
5771:
5764: IF aso_debug_pub.g_debug_flag = 'Y' THEN
5765: aso_debug_pub.add('Before calling IBY_FNDCPT_TRXN_PUB.Create_Transaction_Extension ', 1, 'Y');
5766: aso_debug_pub.add('Instrument Assignment id: '|| l_payment_rec.instr_assignment_id, 1, 'Y');
5767: aso_debug_pub.add('payment id is : '|| l_payment_rec.payment_id,1,'Y');
5768: aso_debug_pub.add('quote line id is : '|| l_payment_rec.quote_line_id,1,'Y');
5769: aso_debug_pub.add('party_id is : '|| l_payer.party_id,1,'Y');
5770: END IF;
5771:
5772: IBY_FNDCPT_TRXN_PUB.Create_Transaction_Extension
5765: aso_debug_pub.add('Before calling IBY_FNDCPT_TRXN_PUB.Create_Transaction_Extension ', 1, 'Y');
5766: aso_debug_pub.add('Instrument Assignment id: '|| l_payment_rec.instr_assignment_id, 1, 'Y');
5767: aso_debug_pub.add('payment id is : '|| l_payment_rec.payment_id,1,'Y');
5768: aso_debug_pub.add('quote line id is : '|| l_payment_rec.quote_line_id,1,'Y');
5769: aso_debug_pub.add('party_id is : '|| l_payer.party_id,1,'Y');
5770: END IF;
5771:
5772: IBY_FNDCPT_TRXN_PUB.Create_Transaction_Extension
5773: (
5784: p_trxn_attribs => l_trxn_attribs,
5785: x_entity_id => lx_entity_id,
5786: x_response => lx_response);
5787:
5788: IF aso_debug_pub.g_debug_flag = 'Y' THEN
5789: aso_debug_pub.add('after calling IBY_FNDCPT_TRXN_PUB.Create_Transaction_Extension ', 1, 'Y');
5790: aso_debug_pub.add('Return Status: '||x_return_status, 1, 'Y');
5791: aso_debug_pub.add('lx_entity_id: '||lx_entity_id, 1, 'Y');
5792: aso_debug_pub.add('x_response.result_code: '|| to_char(lx_response.result_code), 1, 'Y');
5785: x_entity_id => lx_entity_id,
5786: x_response => lx_response);
5787:
5788: IF aso_debug_pub.g_debug_flag = 'Y' THEN
5789: aso_debug_pub.add('after calling IBY_FNDCPT_TRXN_PUB.Create_Transaction_Extension ', 1, 'Y');
5790: aso_debug_pub.add('Return Status: '||x_return_status, 1, 'Y');
5791: aso_debug_pub.add('lx_entity_id: '||lx_entity_id, 1, 'Y');
5792: aso_debug_pub.add('x_response.result_code: '|| to_char(lx_response.result_code), 1, 'Y');
5793: aso_debug_pub.add('x_response.result_category:'|| to_char(lx_response.result_category), 1, 'Y');
5786: x_response => lx_response);
5787:
5788: IF aso_debug_pub.g_debug_flag = 'Y' THEN
5789: aso_debug_pub.add('after calling IBY_FNDCPT_TRXN_PUB.Create_Transaction_Extension ', 1, 'Y');
5790: aso_debug_pub.add('Return Status: '||x_return_status, 1, 'Y');
5791: aso_debug_pub.add('lx_entity_id: '||lx_entity_id, 1, 'Y');
5792: aso_debug_pub.add('x_response.result_code: '|| to_char(lx_response.result_code), 1, 'Y');
5793: aso_debug_pub.add('x_response.result_category:'|| to_char(lx_response.result_category), 1, 'Y');
5794: aso_debug_pub.add('x_response.result_message: '|| to_char(lx_response.result_message), 1, 'Y');
5787:
5788: IF aso_debug_pub.g_debug_flag = 'Y' THEN
5789: aso_debug_pub.add('after calling IBY_FNDCPT_TRXN_PUB.Create_Transaction_Extension ', 1, 'Y');
5790: aso_debug_pub.add('Return Status: '||x_return_status, 1, 'Y');
5791: aso_debug_pub.add('lx_entity_id: '||lx_entity_id, 1, 'Y');
5792: aso_debug_pub.add('x_response.result_code: '|| to_char(lx_response.result_code), 1, 'Y');
5793: aso_debug_pub.add('x_response.result_category:'|| to_char(lx_response.result_category), 1, 'Y');
5794: aso_debug_pub.add('x_response.result_message: '|| to_char(lx_response.result_message), 1, 'Y');
5795: END IF;
5788: IF aso_debug_pub.g_debug_flag = 'Y' THEN
5789: aso_debug_pub.add('after calling IBY_FNDCPT_TRXN_PUB.Create_Transaction_Extension ', 1, 'Y');
5790: aso_debug_pub.add('Return Status: '||x_return_status, 1, 'Y');
5791: aso_debug_pub.add('lx_entity_id: '||lx_entity_id, 1, 'Y');
5792: aso_debug_pub.add('x_response.result_code: '|| to_char(lx_response.result_code), 1, 'Y');
5793: aso_debug_pub.add('x_response.result_category:'|| to_char(lx_response.result_category), 1, 'Y');
5794: aso_debug_pub.add('x_response.result_message: '|| to_char(lx_response.result_message), 1, 'Y');
5795: END IF;
5796:
5789: aso_debug_pub.add('after calling IBY_FNDCPT_TRXN_PUB.Create_Transaction_Extension ', 1, 'Y');
5790: aso_debug_pub.add('Return Status: '||x_return_status, 1, 'Y');
5791: aso_debug_pub.add('lx_entity_id: '||lx_entity_id, 1, 'Y');
5792: aso_debug_pub.add('x_response.result_code: '|| to_char(lx_response.result_code), 1, 'Y');
5793: aso_debug_pub.add('x_response.result_category:'|| to_char(lx_response.result_category), 1, 'Y');
5794: aso_debug_pub.add('x_response.result_message: '|| to_char(lx_response.result_message), 1, 'Y');
5795: END IF;
5796:
5797: if x_return_status <> fnd_api.g_ret_sts_success then
5790: aso_debug_pub.add('Return Status: '||x_return_status, 1, 'Y');
5791: aso_debug_pub.add('lx_entity_id: '||lx_entity_id, 1, 'Y');
5792: aso_debug_pub.add('x_response.result_code: '|| to_char(lx_response.result_code), 1, 'Y');
5793: aso_debug_pub.add('x_response.result_category:'|| to_char(lx_response.result_category), 1, 'Y');
5794: aso_debug_pub.add('x_response.result_message: '|| to_char(lx_response.result_message), 1, 'Y');
5795: END IF;
5796:
5797: if x_return_status <> fnd_api.g_ret_sts_success then
5798: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5811: l_payment_rec.trxn_extension_id := lx_entity_id;
5812:
5813: ELSE
5814:
5815: IF aso_debug_pub.g_debug_flag = 'Y' THEN
5816: aso_debug_pub.add('Instr Sec Code cvv2 is mandatory hence setting the payment ref number and trxn ext id to null ', 1, 'Y');
5817: END IF;
5818:
5819: l_payment_rec.PAYMENT_REF_NUMBER := null;
5812:
5813: ELSE
5814:
5815: IF aso_debug_pub.g_debug_flag = 'Y' THEN
5816: aso_debug_pub.add('Instr Sec Code cvv2 is mandatory hence setting the payment ref number and trxn ext id to null ', 1, 'Y');
5817: END IF;
5818:
5819: l_payment_rec.PAYMENT_REF_NUMBER := null;
5820: l_payment_rec.trxn_extension_id := null;
5886: ( p_count => x_msg_count,
5887: p_data => x_msg_data
5888: );
5889:
5890: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
5891: aso_debug_pub.ADD ('END copy_payment_row',1,'N');
5892: END IF;
5893:
5894: EXCEPTION
5887: p_data => x_msg_data
5888: );
5889:
5890: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
5891: aso_debug_pub.ADD ('END copy_payment_row',1,'N');
5892: END IF;
5893:
5894: EXCEPTION
5895: WHEN FND_API.G_EXC_ERROR THEN