DBA Data[Home] [Help]

APPS.ASO_PRICING_INT dependencies on FND_API

Line 90: if l_ship_to_cust_account_id is not null OR l_ship_to_cust_account_id <> fnd_api.G_MISS_NUM then

86: return x_ship_to_org_id;
87: END IF;
88: CLOSE C_get_quote_info;
89:
90: if l_ship_to_cust_account_id is not null OR l_ship_to_cust_account_id <> fnd_api.G_MISS_NUM then
91: l_cust_account_id := l_ship_to_cust_account_id;
92: end if;
93:
94: IF l_cust_account_id is not NULL

Line 106: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN

102: ,x_msg_count => l_msg_count
103: ,x_msg_data => l_msg_data
104: ,x_site_use_id => x_ship_to_org_id
105: );
106: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
107: x_ship_to_org_id := NULL;
108: END IF;
109:
110: END IF; -- not null

Line 147: OR l_ship_to_cust_account_id <> fnd_api.G_MISS_NUM then

143: END IF;
144: CLOSE C_get_quote_info;
145:
146: if l_ship_to_cust_account_id is not null
147: OR l_ship_to_cust_account_id <> fnd_api.G_MISS_NUM then
148: l_cust_account_id := l_ship_to_cust_account_id;
149: end if;
150:
151: IF l_cust_account_id is not NULL

Line 163: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN

159: ,x_msg_count => l_msg_count
160: ,x_msg_data => l_msg_data
161: ,x_site_use_id => x_ship_to_org_id
162: );
163: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
164: x_ship_to_org_id := NULL;
165: END IF;
166:
167: END IF; -- not null

Line 205: OR l_invoice_to_cust_account_id <> fnd_api.G_MISS_NUM then

201: END IF;
202: CLOSE C_get_quote_info;
203:
204: if l_invoice_to_cust_account_id is not null
205: OR l_invoice_to_cust_account_id <> fnd_api.G_MISS_NUM then
206: l_cust_account_id := l_invoice_to_cust_account_id;
207: end if;
208:
209: IF l_cust_account_id is not NULL

Line 221: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN

217: ,x_msg_count => l_msg_count
218: ,x_msg_data => l_msg_data
219: ,x_site_use_id => x_invoice_to_org_id
220: );
221: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
222: x_invoice_to_org_id := NULL;
223: END IF;
224:
225: END IF; -- not null

Line 262: OR l_invoice_to_cust_account_id <> fnd_api.G_MISS_NUM then

258: END IF;
259: CLOSE C_get_quote_info;
260:
261: if l_invoice_to_cust_account_id is not null
262: OR l_invoice_to_cust_account_id <> fnd_api.G_MISS_NUM then
263: l_cust_account_id := l_invoice_to_cust_account_id;
264: end if;
265:
266: IF l_cust_account_id is not NULL

Line 278: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN

274: ,x_msg_count => l_msg_count
275: ,x_msg_data => l_msg_data
276: ,x_site_use_id => x_invoice_to_org_id
277: );
278: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
279: x_invoice_to_org_id := NULL;
280: END IF;
281:
282: END IF; -- not null

Line 544: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,

540:
541: --wli_end
542: PROCEDURE Pricing_Item (
543: P_Api_Version_Number IN NUMBER,
544: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
545: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
546: p_control_rec IN PRICING_CONTROL_REC_TYPE,
547: p_qte_header_rec IN ASO_QUOTE_PUB.Qte_Header_Rec_Type,
548: p_hd_shipment_rec IN ASO_QUOTE_PUB.Shipment_Rec_Type

Line 545: P_Commit IN VARCHAR2 := FND_API.G_FALSE,

541: --wli_end
542: PROCEDURE Pricing_Item (
543: P_Api_Version_Number IN NUMBER,
544: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
545: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
546: p_control_rec IN PRICING_CONTROL_REC_TYPE,
547: p_qte_header_rec IN ASO_QUOTE_PUB.Qte_Header_Rec_Type,
548: p_hd_shipment_rec IN ASO_QUOTE_PUB.Shipment_Rec_Type
549: := ASO_QUOTE_PUB.G_Miss_Shipment_Rec,

Line 605: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,

601: -- Standard Start of API savepoint
602: SAVEPOINT PRICING_ITEM_PVT;
603:
604: -- Standard call to check for call compatibility.
605: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
606: p_api_version_number,
607: l_api_name,
608: G_PKG_NAME)
609: THEN

Line 610: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

606: p_api_version_number,
607: l_api_name,
608: G_PKG_NAME)
609: THEN
610: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
611: END IF;
612:
613: -- Initialize message list if p_init_msg_list is set to TRUE.
614: IF FND_API.to_Boolean(p_init_msg_list)

Line 614: IF FND_API.to_Boolean(p_init_msg_list)

610: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
611: END IF;
612:
613: -- Initialize message list if p_init_msg_list is set to TRUE.
614: IF FND_API.to_Boolean(p_init_msg_list)
615: THEN
616: FND_MSG_PUB.initialize;
617: END IF;
618:

Line 621: x_return_status := FND_API.G_RET_STS_SUCCESS;

617: END IF;
618:
619: aso_debug_pub.g_debug_flag := nvl(fnd_profile.value('ASO_ENABLE_DEBUG'),'N');
620:
621: x_return_status := FND_API.G_RET_STS_SUCCESS;
622: l_request_type := NVL(p_control_rec.request_type,'ASO');
623: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
624: aso_debug_pub.add('ASO_PRICING_INT:In Pricing Item: p_qte_header_rec.quote_status_id'
625: ||p_qte_header_rec.quote_status_id,1,'Y');

Line 633: IF NVL(p_qte_header_rec.quote_status_id,FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM THEN

629: ASO_PRICING_INT.G_HEADER_REC := ASO_PRICING_CORE_PVT.Set_Global_Rec (
630: p_qte_header_rec => p_qte_header_rec,
631: p_shipment_rec => p_hd_shipment_rec);
632:
633: IF NVL(p_qte_header_rec.quote_status_id,FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM THEN
634: l_pricing_event := 'BATCH'; --p_control_rec.pricing_event;
635: -- commented for bug no 6510202
636: /* ASO_PRICING_INT.G_HEADER_REC := ASO_PRICING_CORE_PVT.Set_Global_Rec (
637: p_qte_header_rec => p_qte_header_rec,

Line 777: IF ((p_qte_header_rec.org_id IS NULL) OR (p_qte_header_rec.org_id = FND_API.G_MISS_NUM)) THEN

773:
774:
775: /* Change for populating QP_PREQ_GRP.CONTROL_RECORD_TYPE.ORG_ID Yogeshwar (MOAC) */
776:
777: IF ((p_qte_header_rec.org_id IS NULL) OR (p_qte_header_rec.org_id = FND_API.G_MISS_NUM)) THEN
778: IF fnd_msg_pub.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
779: FND_MESSAGE.Set_Name('ASO', 'ASO_MISSING_OU');
780: FND_MSG_PUB.ADD;
781: END IF;

Line 783: RAISE FND_API.G_EXC_ERROR;

779: FND_MESSAGE.Set_Name('ASO', 'ASO_MISSING_OU');
780: FND_MSG_PUB.ADD;
781: END IF;
782:
783: RAISE FND_API.G_EXC_ERROR;
784: END IF;
785:
786: l_control_rec.ORG_ID := p_qte_header_rec.org_id;
787:

Line 823: fnd_api.g_ret_sts_unexp_error,fnd_api.g_ret_sts_error,

819: lx_req_line_rec := lx_req_line_tbl(i);
820: If lx_req_line_rec.status_code in(QP_PREQ_GRP.g_status_invalid_price_list,
821: QP_PREQ_GRP.g_sts_lhs_not_found,
822: QP_PREQ_GRP.g_status_formula_error,QP_PREQ_GRP.g_status_other_errors,
823: fnd_api.g_ret_sts_unexp_error,fnd_api.g_ret_sts_error,
824: QP_PREQ_GRP.g_status_calc_error,QP_PREQ_GRP.g_status_uom_failure,
825: QP_PREQ_GRP.g_status_invalid_uom,QP_PREQ_GRP.g_status_dup_price_list,
826: QP_PREQ_GRP.g_status_invalid_uom_conv,QP_PREQ_GRP.g_status_invalid_incomp,
827: QP_PREQ_GRP.g_status_best_price_eval_error,

Line 829: x_return_status := FND_API.G_RET_STS_ERROR;

825: QP_PREQ_GRP.g_status_invalid_uom,QP_PREQ_GRP.g_status_dup_price_list,
826: QP_PREQ_GRP.g_status_invalid_uom_conv,QP_PREQ_GRP.g_status_invalid_incomp,
827: QP_PREQ_GRP.g_status_best_price_eval_error,
828: QP_PREQ_PUB.g_back_calculation_sts) THEN
829: x_return_status := FND_API.G_RET_STS_ERROR;
830: END IF;
831:
832: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
833: aso_debug_pub.add('ASO_PRICING_INT:Fnd_Profile Value for GSA:'

Line 839: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN

835: aso_debug_pub.add('ASO_PRICING_INT:After price request in pricing_item for line id '
836: ||lx_req_line_rec.line_id ||'status code '||lx_req_line_rec.status_code, 1, 'N');
837: END IF;
838:
839: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
840: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
841: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
842: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
843: FND_MESSAGE.Set_Name('ASO', 'ASO_API_UNEXP_ERROR');

Line 840: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN

836: ||lx_req_line_rec.line_id ||'status code '||lx_req_line_rec.status_code, 1, 'N');
837: END IF;
838:
839: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
840: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
841: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
842: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
843: FND_MESSAGE.Set_Name('ASO', 'ASO_API_UNEXP_ERROR');
844: FND_MESSAGE.Set_Token('ROW', 'ASO_PRICING_INT AFTER PRICING CALL', TRUE);

Line 841: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

837: END IF;
838:
839: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
840: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
841: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
842: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
843: FND_MESSAGE.Set_Name('ASO', 'ASO_API_UNEXP_ERROR');
844: FND_MESSAGE.Set_Token('ROW', 'ASO_PRICING_INT AFTER PRICING CALL', TRUE);
845: FND_MSG_PUB.ADD;

Line 847: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

843: FND_MESSAGE.Set_Name('ASO', 'ASO_API_UNEXP_ERROR');
844: FND_MESSAGE.Set_Token('ROW', 'ASO_PRICING_INT AFTER PRICING CALL', TRUE);
845: FND_MSG_PUB.ADD;
846: END IF;
847: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
848: ELSE
849: l_message_text := lx_req_line_rec.status_code || ': '||lx_req_line_rec.status_text;
850: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
851: FND_MESSAGE.Set_Name('ASO', 'ASO_OM_ERROR');

Line 883: IF FND_API.to_Boolean( p_commit )

879: aso_debug_pub.add('ASO_PRICING_INT:after Copy_Request_To_Line in pricing_item', 1, 'Y');
880: END IF;
881:
882: -- Standard check for p_commit
883: IF FND_API.to_Boolean( p_commit )
884: THEN
885: COMMIT WORK;
886: END IF;
887:

Line 892: IF lv_return_status <> FND_API.G_RET_STS_SUCCESS THEN

888: FND_MSG_PUB.Count_And_Get
889: ( p_count => x_msg_count,
890: p_data => x_msg_data
891: );
892: IF lv_return_status <> FND_API.G_RET_STS_SUCCESS THEN
893: RAISE FND_API.G_EXC_ERROR;
894: End If;
895:
896:

Line 893: RAISE FND_API.G_EXC_ERROR;

889: ( p_count => x_msg_count,
890: p_data => x_msg_data
891: );
892: IF lv_return_status <> FND_API.G_RET_STS_SUCCESS THEN
893: RAISE FND_API.G_EXC_ERROR;
894: End If;
895:
896:
897: EXCEPTION

Line 898: WHEN FND_API.G_EXC_ERROR THEN

894: End If;
895:
896:
897: EXCEPTION
898: WHEN FND_API.G_EXC_ERROR THEN
899: ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
900: P_API_NAME => L_API_NAME
901: ,P_PKG_NAME => G_PKG_NAME
902: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR

Line 910: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

906: ,X_MSG_COUNT => X_MSG_COUNT
907: ,X_MSG_DATA => X_MSG_DATA
908: ,X_RETURN_STATUS => X_RETURN_STATUS);
909:
910: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
911: ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
912: P_API_NAME => L_API_NAME
913: ,P_PKG_NAME => G_PKG_NAME
914: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR

Line 939: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,

935:
936:
937: PROCEDURE Pricing_Order(
938: P_Api_Version_Number IN NUMBER,
939: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
940: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
941: p_control_rec IN PRICING_CONTROL_REC_TYPE,
942: p_qte_header_rec IN ASO_QUOTE_PUB.Qte_Header_Rec_Type,
943: p_hd_shipment_rec IN ASO_QUOTE_PUB.Shipment_Rec_Type

Line 940: P_Commit IN VARCHAR2 := FND_API.G_FALSE,

936:
937: PROCEDURE Pricing_Order(
938: P_Api_Version_Number IN NUMBER,
939: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
940: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
941: p_control_rec IN PRICING_CONTROL_REC_TYPE,
942: p_qte_header_rec IN ASO_QUOTE_PUB.Qte_Header_Rec_Type,
943: p_hd_shipment_rec IN ASO_QUOTE_PUB.Shipment_Rec_Type
944: := ASO_QUOTE_PUB.G_Miss_Shipment_Rec,

Line 979: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,

975: -- Standard Start of API savepoint
976: SAVEPOINT PRICING_ORDER_PVT;
977:
978: -- Standard call to check for call compatibility.
979: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
980: p_api_version_number,
981: l_api_name,
982: G_PKG_NAME)
983: THEN

Line 984: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

980: p_api_version_number,
981: l_api_name,
982: G_PKG_NAME)
983: THEN
984: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
985: END IF;
986:
987: aso_debug_pub.g_debug_flag := nvl(fnd_profile.value('ASO_ENABLE_DEBUG'),'N');
988:

Line 994: IF FND_API.to_Boolean( p_init_msg_list )

990: aso_debug_pub.add('ASO_PRICING_INT:Start of Pricing Order.....',1,'Y');
991: END IF;
992:
993: -- Initialize message list if p_init_msg_list is set to TRUE.
994: IF FND_API.to_Boolean( p_init_msg_list )
995: THEN
996: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
997: aso_debug_pub.add('ASO_PRICING_INT:Begin FND_API.to_Boolean'||p_init_msg_list, 1, 'Y');
998: END IF;

Line 997: aso_debug_pub.add('ASO_PRICING_INT:Begin FND_API.to_Boolean'||p_init_msg_list, 1, 'Y');

993: -- Initialize message list if p_init_msg_list is set to TRUE.
994: IF FND_API.to_Boolean( p_init_msg_list )
995: THEN
996: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
997: aso_debug_pub.add('ASO_PRICING_INT:Begin FND_API.to_Boolean'||p_init_msg_list, 1, 'Y');
998: END IF;
999: FND_MSG_PUB.initialize;
1000: END IF;
1001:

Line 1002: x_return_status := FND_API.G_RET_STS_SUCCESS;

998: END IF;
999: FND_MSG_PUB.initialize;
1000: END IF;
1001:
1002: x_return_status := FND_API.G_RET_STS_SUCCESS;
1003:
1004: ASO_PRICING_CORE_PVT.Initialize_Global_Tables;
1005:
1006: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN

Line 1025: P_Init_Msg_List => FND_API.G_FALSE,

1021: END IF;
1022:
1023: ASO_PRICING_CALLBACK_PVT.Config_Callback_Pricing_Order(
1024: P_Api_Version_Number => P_Api_Version_Number,
1025: P_Init_Msg_List => FND_API.G_FALSE,
1026: P_Commit => FND_API.G_FALSE,
1027: p_control_rec => p_control_rec,
1028: p_qte_header_rec => p_qte_header_rec,
1029: p_hd_shipment_rec => p_hd_shipment_rec,

Line 1026: P_Commit => FND_API.G_FALSE,

1022:
1023: ASO_PRICING_CALLBACK_PVT.Config_Callback_Pricing_Order(
1024: P_Api_Version_Number => P_Api_Version_Number,
1025: P_Init_Msg_List => FND_API.G_FALSE,
1026: P_Commit => FND_API.G_FALSE,
1027: p_control_rec => p_control_rec,
1028: p_qte_header_rec => p_qte_header_rec,
1029: p_hd_shipment_rec => p_hd_shipment_rec,
1030: p_hd_price_attr_tbl => p_hd_price_attr_tbl,

Line 1046: IF x_return_status = FND_API.G_RET_STS_ERROR THEN

1042: x_return_status => x_return_status,
1043: x_msg_count => x_msg_count,
1044: x_msg_data => x_msg_data);
1045:
1046: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1047: RAISE FND_API.G_EXC_ERROR;
1048: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1049: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1050: END IF;

Line 1047: RAISE FND_API.G_EXC_ERROR;

1043: x_msg_count => x_msg_count,
1044: x_msg_data => x_msg_data);
1045:
1046: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1047: RAISE FND_API.G_EXC_ERROR;
1048: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1049: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1050: END IF;
1051:

Line 1048: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN

1044: x_msg_data => x_msg_data);
1045:
1046: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1047: RAISE FND_API.G_EXC_ERROR;
1048: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1049: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1050: END IF;
1051:
1052: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN

Line 1049: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

1045:
1046: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1047: RAISE FND_API.G_EXC_ERROR;
1048: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1049: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1050: END IF;
1051:
1052: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1053: aso_debug_pub.add('ASO_PRICING_INT:After Config_Callback_Pricing_Order:x_qte_line_tbl.count:'||nvl(x_qte_line_tbl.count,0),1,'Y');

Line 1075: P_Init_Msg_List => FND_API.G_FALSE,

1071: If NVL(p_control_rec.price_mode,'ENTIRE_QUOTE') = 'ENTIRE_QUOTE' then
1072:
1073: ASO_PRICING_FLOWS_PVT.Price_Entire_Quote(
1074: P_Api_Version_Number => P_Api_Version_Number,
1075: P_Init_Msg_List => FND_API.G_FALSE,
1076: P_Commit => FND_API.G_FALSE,
1077: p_control_rec => p_control_rec,
1078: p_qte_header_rec => p_qte_header_rec,
1079: p_hd_shipment_rec => p_hd_shipment_rec,

Line 1076: P_Commit => FND_API.G_FALSE,

1072:
1073: ASO_PRICING_FLOWS_PVT.Price_Entire_Quote(
1074: P_Api_Version_Number => P_Api_Version_Number,
1075: P_Init_Msg_List => FND_API.G_FALSE,
1076: P_Commit => FND_API.G_FALSE,
1077: p_control_rec => p_control_rec,
1078: p_qte_header_rec => p_qte_header_rec,
1079: p_hd_shipment_rec => p_hd_shipment_rec,
1080: p_qte_line_tbl => p_qte_line_tbl,

Line 1086: IF x_return_status = FND_API.G_RET_STS_ERROR THEN

1082: x_return_status => x_return_status,
1083: x_msg_count => x_msg_count,
1084: x_msg_data => x_msg_data);
1085:
1086: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1087: RAISE FND_API.G_EXC_ERROR;
1088: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1089: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1090: END IF;

Line 1087: RAISE FND_API.G_EXC_ERROR;

1083: x_msg_count => x_msg_count,
1084: x_msg_data => x_msg_data);
1085:
1086: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1087: RAISE FND_API.G_EXC_ERROR;
1088: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1089: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1090: END IF;
1091:

Line 1088: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN

1084: x_msg_data => x_msg_data);
1085:
1086: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1087: RAISE FND_API.G_EXC_ERROR;
1088: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1089: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1090: END IF;
1091:
1092: ELSIF (p_control_rec.price_mode = 'CHANGE_LINE') then

Line 1089: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

1085:
1086: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1087: RAISE FND_API.G_EXC_ERROR;
1088: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1089: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1090: END IF;
1091:
1092: ELSIF (p_control_rec.price_mode = 'CHANGE_LINE') then
1093: -- Change Line logic code path

Line 1097: P_Init_Msg_List => FND_API.G_FALSE,

1093: -- Change Line logic code path
1094:
1095: ASO_PRICING_FLOWS_PVT.Price_Quote_With_Change_Lines(
1096: P_Api_Version_Number => P_Api_Version_Number,
1097: P_Init_Msg_List => FND_API.G_FALSE,
1098: P_Commit => FND_API.G_FALSE,
1099: p_control_rec => p_control_rec,
1100: p_qte_header_rec => p_qte_header_rec,
1101: p_hd_shipment_rec => p_hd_shipment_rec,

Line 1098: P_Commit => FND_API.G_FALSE,

1094:
1095: ASO_PRICING_FLOWS_PVT.Price_Quote_With_Change_Lines(
1096: P_Api_Version_Number => P_Api_Version_Number,
1097: P_Init_Msg_List => FND_API.G_FALSE,
1098: P_Commit => FND_API.G_FALSE,
1099: p_control_rec => p_control_rec,
1100: p_qte_header_rec => p_qte_header_rec,
1101: p_hd_shipment_rec => p_hd_shipment_rec,
1102: p_qte_line_tbl => p_qte_line_tbl,

Line 1108: IF x_return_status = FND_API.G_RET_STS_ERROR THEN

1104: x_return_status => x_return_status,
1105: x_msg_count => x_msg_count,
1106: x_msg_data => x_msg_data);
1107:
1108: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1109: RAISE FND_API.G_EXC_ERROR;
1110: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1111: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1112: END IF;

Line 1109: RAISE FND_API.G_EXC_ERROR;

1105: x_msg_count => x_msg_count,
1106: x_msg_data => x_msg_data);
1107:
1108: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1109: RAISE FND_API.G_EXC_ERROR;
1110: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1111: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1112: END IF;
1113:

Line 1110: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN

1106: x_msg_data => x_msg_data);
1107:
1108: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1109: RAISE FND_API.G_EXC_ERROR;
1110: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1111: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1112: END IF;
1113:
1114: Else

Line 1111: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

1107:
1108: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1109: RAISE FND_API.G_EXC_ERROR;
1110: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1111: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1112: END IF;
1113:
1114: Else
1115: --p_control_rec.price_mode = 'QUOTE_LINE'

Line 1119: P_Init_Msg_List => FND_API.G_FALSE,

1115: --p_control_rec.price_mode = 'QUOTE_LINE'
1116:
1117: ASO_PRICING_FLOWS_PVT.Price_Quote_Line(
1118: P_Api_Version_Number => P_Api_Version_Number,
1119: P_Init_Msg_List => FND_API.G_FALSE,
1120: P_Commit => FND_API.G_FALSE,
1121: p_control_rec => p_control_rec,
1122: p_qte_header_rec => p_qte_header_rec,
1123: p_hd_shipment_rec => p_hd_shipment_rec,

Line 1120: P_Commit => FND_API.G_FALSE,

1116:
1117: ASO_PRICING_FLOWS_PVT.Price_Quote_Line(
1118: P_Api_Version_Number => P_Api_Version_Number,
1119: P_Init_Msg_List => FND_API.G_FALSE,
1120: P_Commit => FND_API.G_FALSE,
1121: p_control_rec => p_control_rec,
1122: p_qte_header_rec => p_qte_header_rec,
1123: p_hd_shipment_rec => p_hd_shipment_rec,
1124: p_qte_line_tbl => p_qte_line_tbl,

Line 1129: IF x_return_status = FND_API.G_RET_STS_ERROR THEN

1125: x_return_status => x_return_status,
1126: x_msg_count => x_msg_count,
1127: x_msg_data => x_msg_data);
1128:
1129: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1130: RAISE FND_API.G_EXC_ERROR;
1131: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1132: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1133: END IF;

Line 1130: RAISE FND_API.G_EXC_ERROR;

1126: x_msg_count => x_msg_count,
1127: x_msg_data => x_msg_data);
1128:
1129: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1130: RAISE FND_API.G_EXC_ERROR;
1131: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1132: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1133: END IF;
1134:

Line 1131: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN

1127: x_msg_data => x_msg_data);
1128:
1129: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1130: RAISE FND_API.G_EXC_ERROR;
1131: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1132: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1133: END IF;
1134:
1135: End If;--NVL(p_control_rec.price_mode,'ENTIRE_QUOTE') = 'ENTIRE_QUOTE'

Line 1132: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

1128:
1129: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1130: RAISE FND_API.G_EXC_ERROR;
1131: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1132: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1133: END IF;
1134:
1135: End If;--NVL(p_control_rec.price_mode,'ENTIRE_QUOTE') = 'ENTIRE_QUOTE'
1136:

Line 1170: WHEN FND_API.G_EXC_ERROR THEN

1166: END IF;
1167: end loop;
1168:
1169: EXCEPTION
1170: WHEN FND_API.G_EXC_ERROR THEN
1171: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1172: aso_debug_pub.add('ASO_PRICING_INT:after inside EXCEPTION return status'||x_return_status, 1, 'Y');
1173: END IF;
1174: ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(

Line 1185: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

1181: ,X_MSG_COUNT => X_MSG_COUNT
1182: ,X_MSG_DATA => X_MSG_DATA
1183: ,X_RETURN_STATUS => X_RETURN_STATUS);
1184:
1185: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1186: ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
1187: P_API_NAME => L_API_NAME
1188: ,P_PKG_NAME => G_PKG_NAME
1189: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR

Line 1215: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,

1211:
1212:
1213: PROCEDURE Pricing_Item (
1214: P_Api_Version_Number IN NUMBER,
1215: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1216: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
1217: p_control_rec IN PRICING_CONTROL_REC_TYPE,
1218: p_qte_line_id IN NUMBER,
1219: x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,

Line 1216: P_Commit IN VARCHAR2 := FND_API.G_FALSE,

1212:
1213: PROCEDURE Pricing_Item (
1214: P_Api_Version_Number IN NUMBER,
1215: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1216: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
1217: p_control_rec IN PRICING_CONTROL_REC_TYPE,
1218: p_qte_line_id IN NUMBER,
1219: x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
1220: x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER,

Line 1262: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,

1258: -- Standard Start of API savepoint
1259: SAVEPOINT PRICING_ITEM_PVT;
1260:
1261: -- Standard call to check for call compatibility.
1262: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1263: p_api_version_number,
1264: l_api_name,
1265: G_PKG_NAME)
1266: THEN

Line 1267: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

1263: p_api_version_number,
1264: l_api_name,
1265: G_PKG_NAME)
1266: THEN
1267: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1268: END IF;
1269:
1270:
1271: -- Initialize message list if p_init_msg_list is set to TRUE.

Line 1272: IF FND_API.to_Boolean( p_init_msg_list )

1268: END IF;
1269:
1270:
1271: -- Initialize message list if p_init_msg_list is set to TRUE.
1272: IF FND_API.to_Boolean( p_init_msg_list )
1273: THEN
1274: FND_MSG_PUB.initialize;
1275: END IF;
1276:

Line 1279: x_return_status := FND_API.G_RET_STS_SUCCESS;

1275: END IF;
1276:
1277: aso_debug_pub.g_debug_flag := nvl(fnd_profile.value('ASO_ENABLE_DEBUG'),'N');
1278:
1279: x_return_status := FND_API.G_RET_STS_SUCCESS;
1280: l_qte_line_rec := ASO_UTILITY_PVT.Query_Qte_Line_Row(p_qte_line_id);
1281: l_qte_header_id := l_qte_line_rec.QUOTE_HEADER_ID;
1282: l_qte_header_rec := ASO_UTILITY_PVT.Query_Header_Row(l_qte_header_id);
1283: l_hd_shipment_tbl := ASO_UTILITY_PVT.Query_Shipment_Rows(l_qte_header_id, NULL);

Line 1310: IF l_qte_line_rec.price_list_id is NULL or l_qte_line_rec.price_list_id = FND_API.G_MISS_NUM THEN

1306: OPEN c_list_id (l_qte_header_id);
1307: FETCH c_list_id INTO l_price_list_id,l_CURRENCY_CODE;
1308: CLOSE c_list_id;
1309:
1310: IF l_qte_line_rec.price_list_id is NULL or l_qte_line_rec.price_list_id = FND_API.G_MISS_NUM THEN
1311: l_qte_line_rec.price_list_id := l_price_list_id ;
1312: ELSE
1313: l_qte_header_rec.price_list_id := NULL;
1314: END IF;

Line 1316: IF l_qte_line_rec.CURRENCY_CODE is NULL or l_qte_line_rec.CURRENCY_CODE = FND_API.G_MISS_CHAR THEN

1312: ELSE
1313: l_qte_header_rec.price_list_id := NULL;
1314: END IF;
1315:
1316: IF l_qte_line_rec.CURRENCY_CODE is NULL or l_qte_line_rec.CURRENCY_CODE = FND_API.G_MISS_CHAR THEN
1317: l_qte_line_rec.CURRENCY_CODE := l_CURRENCY_CODE ;
1318: END IF;
1319:
1320: Pricing_Item (

Line 1322: P_Init_Msg_List => FND_API.G_FALSE,

1318: END IF;
1319:
1320: Pricing_Item (
1321: P_Api_Version_Number => 1,
1322: P_Init_Msg_List => FND_API.G_FALSE,
1323: P_Commit => FND_API.G_FALSE,
1324: p_control_rec => p_control_rec,
1325: p_qte_header_rec => l_qte_header_rec,
1326: p_hd_shipment_rec => l_hd_shipment_rec,

Line 1323: P_Commit => FND_API.G_FALSE,

1319:
1320: Pricing_Item (
1321: P_Api_Version_Number => 1,
1322: P_Init_Msg_List => FND_API.G_FALSE,
1323: P_Commit => FND_API.G_FALSE,
1324: p_control_rec => p_control_rec,
1325: p_qte_header_rec => l_qte_header_rec,
1326: p_hd_shipment_rec => l_hd_shipment_rec,
1327: p_hd_price_attr_tbl => l_hd_price_attr_tbl,

Line 1341: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN

1337: x_return_status => x_return_status,
1338: x_msg_data => x_msg_data,
1339: x_msg_count => x_msg_count);
1340:
1341: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1342: RAISE FND_API.G_EXC_ERROR;
1343: END IF;
1344:
1345: /* Changed the delete statement as per bug 1874082 */

Line 1342: RAISE FND_API.G_EXC_ERROR;

1338: x_msg_data => x_msg_data,
1339: x_msg_count => x_msg_count);
1340:
1341: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1342: RAISE FND_API.G_EXC_ERROR;
1343: END IF;
1344:
1345: /* Changed the delete statement as per bug 1874082 */
1346: /*Removed the Complex Delete Statement with UNION bug 2585468 */

Line 1377: IF FND_API.to_Boolean( p_commit )

1373: aso_debug_pub.add('ASO_PRICING_INT:Pricing Item Ends if the second Pricing Item was called...',1,'Y');
1374: END IF;
1375:
1376: -- Standard check for p_commit
1377: IF FND_API.to_Boolean( p_commit )
1378: THEN
1379: COMMIT WORK;
1380: END IF;
1381:

Line 1383: WHEN FND_API.G_EXC_ERROR THEN

1379: COMMIT WORK;
1380: END IF;
1381:
1382: EXCEPTION
1383: WHEN FND_API.G_EXC_ERROR THEN
1384: ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
1385: P_API_NAME => L_API_NAME
1386: ,P_PKG_NAME => G_PKG_NAME
1387: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR

Line 1395: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

1391: ,X_MSG_COUNT => X_MSG_COUNT
1392: ,X_MSG_DATA => X_MSG_DATA
1393: ,X_RETURN_STATUS => X_RETURN_STATUS);
1394:
1395: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1396: ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
1397: P_API_NAME => L_API_NAME
1398: ,P_PKG_NAME => G_PKG_NAME
1399: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR

Line 1425: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,

1421:
1422:
1423: PROCEDURE Pricing_Order (
1424: P_Api_Version_Number IN NUMBER,
1425: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1426: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
1427: p_control_rec IN PRICING_CONTROL_REC_TYPE,
1428: p_qte_line_tbl IN ASO_QUOTE_PUB.Qte_Line_Tbl_Type,
1429: p_qte_header_id IN NUMBER,

Line 1426: P_Commit IN VARCHAR2 := FND_API.G_FALSE,

1422:
1423: PROCEDURE Pricing_Order (
1424: P_Api_Version_Number IN NUMBER,
1425: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1426: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
1427: p_control_rec IN PRICING_CONTROL_REC_TYPE,
1428: p_qte_line_tbl IN ASO_QUOTE_PUB.Qte_Line_Tbl_Type,
1429: p_qte_header_id IN NUMBER,
1430: x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,

Line 1489: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,

1485: -- Standard Start of API savepoint
1486: SAVEPOINT PRICING_ORDER_PVT;
1487:
1488: -- Standard call to check for call compatibility.
1489: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1490: p_api_version_number,
1491: l_api_name,
1492: G_PKG_NAME)
1493: THEN

Line 1494: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

1490: p_api_version_number,
1491: l_api_name,
1492: G_PKG_NAME)
1493: THEN
1494: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1495: END IF;
1496:
1497:
1498: -- Initialize message list if p_init_msg_list is set to TRUE.

Line 1499: IF FND_API.to_Boolean( p_init_msg_list )

1495: END IF;
1496:
1497:
1498: -- Initialize message list if p_init_msg_list is set to TRUE.
1499: IF FND_API.to_Boolean( p_init_msg_list )
1500: THEN
1501: FND_MSG_PUB.initialize;
1502: END IF;
1503:

Line 1510: x_return_status := FND_API.G_RET_STS_SUCCESS;

1506: END IF;
1507:
1508: aso_debug_pub.g_debug_flag := nvl(fnd_profile.value('ASO_ENABLE_DEBUG'),'N');
1509:
1510: x_return_status := FND_API.G_RET_STS_SUCCESS;
1511: l_request_type := p_control_rec.request_type;
1512: l_pricing_event := p_control_rec.pricing_event;
1513:
1514: l_qte_header_rec := ASO_UTILITY_PVT.Query_Header_Row(p_qte_header_id);

Line 1522: P_Init_Msg_List => FND_API.G_FALSE,

1518: END IF;
1519: l_price_attr_tbl := ASO_UTILITY_PVT.Query_Price_Attr_Rows(p_qte_header_id, null);
1520: ASO_PRICING_INT.Pricing_Order(
1521: P_Api_Version_Number => 1.0,
1522: P_Init_Msg_List => FND_API.G_FALSE,
1523: P_Commit => FND_API.G_FALSE,
1524: p_control_rec => p_control_rec,
1525: p_qte_header_rec => l_qte_header_rec,
1526: p_hd_shipment_rec => l_shipment_rec,

Line 1523: P_Commit => FND_API.G_FALSE,

1519: l_price_attr_tbl := ASO_UTILITY_PVT.Query_Price_Attr_Rows(p_qte_header_id, null);
1520: ASO_PRICING_INT.Pricing_Order(
1521: P_Api_Version_Number => 1.0,
1522: P_Init_Msg_List => FND_API.G_FALSE,
1523: P_Commit => FND_API.G_FALSE,
1524: p_control_rec => p_control_rec,
1525: p_qte_header_rec => l_qte_header_rec,
1526: p_hd_shipment_rec => l_shipment_rec,
1527: p_hd_price_attr_tbl => l_price_attr_tbl,

Line 1544: IF FND_API.to_Boolean( p_commit )

1540: x_msg_count => x_msg_count,
1541: x_msg_data => x_msg_data );
1542:
1543: -- Standard check for p_commit
1544: IF FND_API.to_Boolean( p_commit )
1545: THEN
1546: COMMIT WORK;
1547: END IF;
1548:

Line 1555: WHEN FND_API.G_EXC_ERROR THEN

1551: p_data => x_msg_data
1552: );
1553:
1554: EXCEPTION
1555: WHEN FND_API.G_EXC_ERROR THEN
1556: ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
1557: P_API_NAME => L_API_NAME
1558: ,P_PKG_NAME => G_PKG_NAME
1559: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR

Line 1567: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

1563: ,X_MSG_COUNT => X_MSG_COUNT
1564: ,X_MSG_DATA => X_MSG_DATA
1565: ,X_RETURN_STATUS => X_RETURN_STATUS);
1566:
1567: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1568: ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
1569: P_API_NAME => L_API_NAME
1570: ,P_PKG_NAME => G_PKG_NAME
1571: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR

Line 1596: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,

1592:
1593:
1594: Procedure Delete_Promotion (
1595: P_Api_Version_Number IN NUMBER,
1596: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1597: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
1598: p_price_attr_tbl IN ASO_QUOTE_PUB.Price_Attributes_Tbl_Type,
1599: x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
1600: x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER,

Line 1597: P_Commit IN VARCHAR2 := FND_API.G_FALSE,

1593:
1594: Procedure Delete_Promotion (
1595: P_Api_Version_Number IN NUMBER,
1596: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1597: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
1598: p_price_attr_tbl IN ASO_QUOTE_PUB.Price_Attributes_Tbl_Type,
1599: x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
1600: x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER,
1601: x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2)