[Home] [Help]
1: PACKAGE BODY CS_Charge_Create_Order_PVT as
2: /* $Header: csxvchob.pls 120.52.12020000.8 2013/05/03 09:15:57 bkanimoz ship $ */
3:
4: /*********** Global Variables ********************************/
5: G_PKG_NAME CONSTANT VARCHAR2(30) := 'CS_Charge_Create_Order_PVT' ;
1: PACKAGE BODY CS_Charge_Create_Order_PVT as
2: /* $Header: csxvchob.pls 120.52.12020000.8 2013/05/03 09:15:57 bkanimoz ship $ */
3:
4: /*********** Global Variables ********************************/
5: G_PKG_NAME CONSTANT VARCHAR2(30) := 'CS_Charge_Create_Order_PVT' ;
6:
7:
8: /**************************************************************
9: --
385:
386: WHEN OTHERS THEN
387: ROLLBACK;
388: FND_MESSAGE.SET_NAME('CS', 'CS_DB_ERROR');
389: FND_MESSAGE.SET_TOKEN(token => 'PROG_NAME', value => 'Cs_Charge_Create_Order_PVT.Update_Errors');
390: FND_MESSAGE.SET_TOKEN(token => 'SQLCODE', value => SQLCODE);
391: FND_MESSAGE.SET_TOKEN(token => 'SQLERRM', value => SQLERRM);
392: FND_MSG_PUB.add;
393:
839: -- dbms_application_info.set_client_info('204');
840:
841:
842: -- Standard Start of API Savepoint
843: SAVEPOINT CS_Charge_Create_Order_PVT;
844:
845: -- Standard Call to check API compatibility
846: IF NOT FND_API.Compatible_API_Call( l_api_version,
847: p_api_version,
1472:
1473: ELSIF EstDtlTab(i).purchase_order_num <> '-999' AND
1474: l_purchase_order_num <> EstDtlTab(i).purchase_order_num THEN
1475:
1476: ROLLBACK TO CS_Charge_Create_Order_PVT;
1477: FND_MESSAGE.Set_Name('CS', 'CS_CHG_INVALID_PO');
1478: FND_MESSAGE.Set_Token('PURCHASE_ORDER_NUM',l_purchase_order_num);
1479: FND_MSG_PUB.Add; -- 5455064
1480: -- APP_EXCEPTION.Raise_Exception;
3679: RAISE FND_API.G_EXC_ERROR;
3680: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3681: --7117301
3682: WHEN FND_API.G_EXC_ERROR THEN
3683: ROLLBACK TO CS_Charge_Create_Order_PVT;
3684: x_return_status := FND_API.G_RET_STS_ERROR;
3685: FND_MSG_PUB.Count_And_Get
3686: ( p_count => x_msg_count,
3687: p_data => x_msg_data
3695: -- updating charges schema with errors for 11.5.10
3696: --
3697: -- dbms_output.put_line('Charge_Line_Id before calling update_errors' || EstDtlTab(i).estimate_detail_id);
3698: -- dbms_output.put_line('message data before calling update_errors' || substr(x_msg_data,1,200));
3699: ROLLBACK TO CS_Charge_Create_Order_PVT; --7117301
3700: Update_Errors(p_estimate_detail_id => EstDtlTab(i).estimate_detail_id,
3701: p_line_submitted => 'N',
3702: p_submit_restriction_message => NULL,
3703: p_submit_error_message => x_msg_data,
3703: p_submit_error_message => x_msg_data,
3704: p_submit_from_system => p_submit_from_system);
3705:
3706: FND_MESSAGE.Set_Encoded(x_msg_data);
3707: --ROLLBACK TO CS_Charge_Create_Order_PVT; --7117301
3708: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3709:
3710: WHEN OTHERS THEN
3711: g_oraerrmsg := substrb(sqlerrm,1,G_MAXERRLEN);
3728:
3729: --
3730: -- Adding the error message to charges schema for 11.5.10
3731: --
3732: ROLLBACK TO CS_Charge_Create_Order_PVT; --7117301
3733: Update_Errors(p_estimate_detail_id => EstDtlTab(i).estimate_detail_id,
3734: p_line_submitted => 'N',
3735: p_submit_restriction_message => NULL,
3736: p_submit_error_message => x_msg_data,
3738:
3739: FND_MESSAGE.Set_Encoded(x_msg_data);
3740:
3741:
3742: --ROLLBACK TO CS_Charge_Create_Order_PVT; --7117301
3743: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3744:
3745: END Submit_Order;
3746:
3817: Raise No_Data_Found;
3818:
3819: end Update_Estimate_Details;
3820:
3821: End CS_Charge_Create_Order_PVT;