[Home] [Help]
1: PACKAGE BODY CS_Charge_Create_Order_PVT as
2: /* $Header: csxvchob.pls 120.28.12010000.4 2008/11/14 12:07:05 shachoud 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.28.12010000.4 2008/11/14 12:07:05 shachoud ship $ */
3:
4: /*********** Global Variables ********************************/
5: G_PKG_NAME CONSTANT VARCHAR2(30) := 'CS_Charge_Create_Order_PVT' ;
6:
7:
8: /**************************************************************
9: --
383:
384: WHEN OTHERS THEN
385: ROLLBACK;
386: FND_MESSAGE.SET_NAME('CS', 'CS_DB_ERROR');
387: FND_MESSAGE.SET_TOKEN(token => 'PROG_NAME', value => 'Cs_Charge_Create_Order_PVT.Update_Errors');
388: FND_MESSAGE.SET_TOKEN(token => 'SQLCODE', value => SQLCODE);
389: FND_MESSAGE.SET_TOKEN(token => 'SQLERRM', value => SQLERRM);
390: FND_MSG_PUB.add;
391:
767: -- dbms_application_info.set_client_info('204');
768:
769:
770: -- Standard Start of API Savepoint
771: SAVEPOINT CS_Charge_Create_Order_PVT;
772:
773: -- Standard Call to check API compatibility
774: IF NOT FND_API.Compatible_API_Call( l_api_version,
775: p_api_version,
1358:
1359: ELSIF EstDtlTab(i).purchase_order_num <> '-999' AND
1360: l_purchase_order_num <> EstDtlTab(i).purchase_order_num THEN
1361:
1362: ROLLBACK TO CS_Charge_Create_Order_PVT;
1363: FND_MESSAGE.Set_Name('CS', 'CS_CHG_INVALID_PO');
1364: FND_MESSAGE.Set_Token('PURCHASE_ORDER_NUM',l_purchase_order_num);
1365: FND_MSG_PUB.Add; -- 5455064
1366: -- APP_EXCEPTION.Raise_Exception;
3081: RAISE FND_API.G_EXC_ERROR;
3082: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3083: --7117301
3084: WHEN FND_API.G_EXC_ERROR THEN
3085: ROLLBACK TO CS_Charge_Create_Order_PVT;
3086: x_return_status := FND_API.G_RET_STS_ERROR;
3087: FND_MSG_PUB.Count_And_Get
3088: ( p_count => x_msg_count,
3089: p_data => x_msg_data
3097: -- updating charges schema with errors for 11.5.10
3098: --
3099: -- dbms_output.put_line('Charge_Line_Id before calling update_errors' || EstDtlTab(i).estimate_detail_id);
3100: -- dbms_output.put_line('message data before calling update_errors' || substr(x_msg_data,1,200));
3101: ROLLBACK TO CS_Charge_Create_Order_PVT; --7117301
3102: Update_Errors(p_estimate_detail_id => EstDtlTab(i).estimate_detail_id,
3103: p_line_submitted => 'N',
3104: p_submit_restriction_message => NULL,
3105: p_submit_error_message => x_msg_data,
3105: p_submit_error_message => x_msg_data,
3106: p_submit_from_system => p_submit_from_system);
3107:
3108: FND_MESSAGE.Set_Encoded(x_msg_data);
3109: --ROLLBACK TO CS_Charge_Create_Order_PVT; --7117301
3110: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3111:
3112: WHEN OTHERS THEN
3113: g_oraerrmsg := substrb(sqlerrm,1,G_MAXERRLEN);
3130:
3131: --
3132: -- Adding the error message to charges schema for 11.5.10
3133: --
3134: ROLLBACK TO CS_Charge_Create_Order_PVT; --7117301
3135: Update_Errors(p_estimate_detail_id => EstDtlTab(i).estimate_detail_id,
3136: p_line_submitted => 'N',
3137: p_submit_restriction_message => NULL,
3138: p_submit_error_message => x_msg_data,
3140:
3141: FND_MESSAGE.Set_Encoded(x_msg_data);
3142:
3143:
3144: --ROLLBACK TO CS_Charge_Create_Order_PVT; --7117301
3145: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3146:
3147: END Submit_Order;
3148:
3219: Raise No_Data_Found;
3220:
3221: end Update_Estimate_Details;
3222:
3223: End CS_Charge_Create_Order_PVT;