1: Package Body ASO_MERGE_PVT As
2: /* $Header: asovmrgb.pls 120.0 2005/05/31 11:39:14 appldev noship $ */
3:
4: /*----------------------------------------------------------------------------*
5: | |
207: arp_message.set_token('NUM_ROWS',to_char(l_count));
208:
209: END IF;
210:
211: ASO_MERGE_PVT.UPDATE_QUOTE_LINES(
212: req_id => req_id,
213: set_num => set_num,
214: process_mode => process_mode
215: );
213: set_num => set_num,
214: process_mode => process_mode
215: );
216:
217: ASO_MERGE_PVT.UPDATE_SHIPMENTS(
218: req_id => req_id,
219: set_num => set_num,
220: process_mode => process_mode
221: );
611: PRAGMA EXCEPTION_INIT(RESOURCE_BUSY, -0054);
612:
613: BEGIN
614:
615: arp_message.set_line('ASO_MERGE_PVT.MERGE_QUOTE_HEADERS()+');
616:
617: x_return_status := FND_API.G_RET_STS_SUCCESS;
618:
619: /* Perform the merge operation */
716: END IF;
717:
718: End If;
719:
720: arp_message.set_line('ASO_MERGE_PVT.MERGE_QUOTE_HEADERS()-');
721:
722: Exception
723: When RESOURCE_BUSY Then
724: arp_message.set_line('ASO_MERGE_PVT.MERGE_QUOTE_HEADERS; Could not obtain lock'||
720: arp_message.set_line('ASO_MERGE_PVT.MERGE_QUOTE_HEADERS()-');
721:
722: Exception
723: When RESOURCE_BUSY Then
724: arp_message.set_line('ASO_MERGE_PVT.MERGE_QUOTE_HEADERS; Could not obtain lock'||
725: 'on table ASO_QUOTE_HEADERS_ALL');
726:
727: x_return_status := FND_API.G_RET_STS_ERROR;
728: raise;
726:
727: x_return_status := FND_API.G_RET_STS_ERROR;
728: raise;
729: When Others Then
730: arp_message.set_line('ASO_MERGE_PVT.MERGE_QUOTE_HEADERS'||sqlerrm);
731: x_return_status := FND_API.G_RET_STS_ERROR;
732: raise;
733: END MERGE_QUOTE_HEADERS;
734:
774: PRAGMA EXCEPTION_INIT(RESOURCE_BUSY, -0054);
775:
776: BEGIN
777:
778: arp_message.set_line('ASO_MERGE_PVT.MERGE_QUOTE_LINES()+');
779:
780: x_return_status := FND_API.G_RET_STS_SUCCESS;
781:
782: /* Perform the merge operation */
850: End If;
851:
852: End If;
853:
854: arp_message.set_line('ASO_MERGE_PVT.MERGE_QUOTE_LINES()-');
855:
856: Exception
857: When RESOURCE_BUSY Then
858: arp_message.set_line('ASO_MERGE_PVT.MERGE_QUOTE_LINES; Could not obtain lock'||
854: arp_message.set_line('ASO_MERGE_PVT.MERGE_QUOTE_LINES()-');
855:
856: Exception
857: When RESOURCE_BUSY Then
858: arp_message.set_line('ASO_MERGE_PVT.MERGE_QUOTE_LINES; Could not obtain lock'||
859: 'on table ASO_QUOTE_LINES_ALL');
860:
861: x_return_status := FND_API.G_RET_STS_ERROR;
862: raise;
860:
861: x_return_status := FND_API.G_RET_STS_ERROR;
862: raise;
863: When Others Then
864: arp_message.set_line('ASO_MERGE_PVT.MERGE_QUOTE_LINES'||sqlerrm);
865: x_return_status := FND_API.G_RET_STS_ERROR;
866: raise;
867:
868: END MERGE_QUOTE_LINES;
909: PRAGMA EXCEPTION_INIT(RESOURCE_BUSY, -0054);
910:
911: BEGIN
912:
913: arp_message.set_line('ASO_MERGE_PVT.MERGE_SHIPMENTS()+');
914:
915: x_return_status := FND_API.G_RET_STS_SUCCESS;
916:
917: /* Perform the merge operation */
980: End If;
981:
982: End If;
983:
984: arp_message.set_line('ASO_MERGE_PVT.MERGE_SHIPMENTS()-');
985:
986: Exception
987: When RESOURCE_BUSY Then
988: arp_message.set_line('ASO_MERGE_PVT.MERGE_SHIPMENTS; Could not obtain lock'||
984: arp_message.set_line('ASO_MERGE_PVT.MERGE_SHIPMENTS()-');
985:
986: Exception
987: When RESOURCE_BUSY Then
988: arp_message.set_line('ASO_MERGE_PVT.MERGE_SHIPMENTS; Could not obtain lock'||
989: 'on table ASO_SHIPMENTS');
990:
991: x_return_status := FND_API.G_RET_STS_ERROR;
992: raise;
990:
991: x_return_status := FND_API.G_RET_STS_ERROR;
992: raise;
993: When Others Then
994: arp_message.set_line('ASO_MERGE_PVT.MERGE_SHIPMENTS'||sqlerrm);
995: x_return_status := FND_API.G_RET_STS_ERROR;
996: raise;
997:
998: END MERGE_SHIPMENTS;
996: raise;
997:
998: END MERGE_SHIPMENTS;
999:
1000: END ASO_MERGE_PVT;