[Home] [Help]
PACKAGE BODY: APPS.CS_CHARGE_CONTRACT_PKG
Source
1 package body CS_Charge_Contract_PKG as
2 /* $Header: cschconb.pls 120.1 2010/07/29 11:20:39 gasankar noship $ */
3
4 /*********** Global Variables ********************************/
5 G_PKG_NAME CONSTANT VARCHAR2(30) := 'CS_Charge_Contract_PKG' ;
6
7 PROCEDURE Get_Contract_Price_List (
8 P_Api_Version IN NUMBER default null ,
9 P_Init_Msg_List IN VARCHAR2 ,
10 p_contract_line_id IN NUMBER,
11 p_business_process_id IN NUMBER,
12 p_request_date IN DATE,
13 x_return_status OUT NOCOPY VARCHAR2,
14 x_msg_count OUT NOCOPY NUMBER,
15 x_msg_data OUT NOCOPY VARCHAR2,
16 x_contract_line_id OUT NOCOPY Number,
17 x_business_process_id OUT NOCOPY NUMBER,
18 x_BP_Price_list_id OUT NOCOPY NUMBER,
19 x_BP_Discount_id OUT NOCOPY NUMBER,
20 x_BP_start_date OUT NOCOPY DATE,
21 x_BP_end_date OUT NOCOPY DATE,
22 x_Contract_Price_list_Id OUT NOCOPY NUMBER ) IS
23
24 l_service_line_id Number := p_contract_line_id;
25 l_business_process_id Number := p_business_process_id;
26 l_request_date Date := p_request_date;
27 l_record_count Number;
28
29 lx_pricing_tbl oks_con_coverage_pub.pricing_tbl_type;
30 lx_return_status VARCHAR2(1);
31 lx_msg_count NUMBER;
32 lx_msg_data VARCHAR2(2000);
33
34 l_api_name CONSTANT VARCHAR2(100) := 'Get_Contract_Price_List' ;
35 l_api_name_full CONSTANT VARCHAR2(100) := G_PKG_NAME || '.' || l_api_name ;
36 l_log_module CONSTANT VARCHAR2(500) := 'cs.plsql.' || l_api_name_full || '.';
37
38
39 BEGIN
40
41 --add_to_temp_log('Inside Package');
42
43 IF FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level
44 THEN
45 FND_LOG.String
46 ( FND_LOG.level_procedure , L_LOG_MODULE || ''
47 ,'P_Api_Version :' || P_Api_Version
48 );
49 FND_LOG.String
50 ( FND_LOG.level_procedure , L_LOG_MODULE || ''
51 ,'P_Init_Msg_List :' || P_Init_Msg_List
52 );
53 FND_LOG.String
54 ( FND_LOG.level_procedure , L_LOG_MODULE || ''
55 ,'p_contract_line_id :' || p_contract_line_id
56 );
57 FND_LOG.String
58 ( FND_LOG.level_procedure , L_LOG_MODULE || ''
59 ,'p_business_process_id :' || p_business_process_id
60 );
61 FND_LOG.String
62 ( FND_LOG.level_procedure , L_LOG_MODULE || ''
63 ,'p_request_date :' || p_request_date
64 );
65
66 END IF;
67
68 oks_con_coverage_pub.get_bp_pricelist(
69 p_api_version => 1.0,
70 p_init_msg_list => 'T',
71 p_contract_line_id => l_service_line_id,
72 p_business_process_id => l_business_process_id,
73 p_request_date => l_request_date,
74 x_return_status => lx_return_status,
75 x_msg_count => lx_msg_count,
76 x_msg_data => lx_msg_data,
77 x_pricing_tbl => lx_pricing_tbl);
78
79 x_return_status := lx_return_status;
80 x_msg_data := lx_msg_data;
81 x_msg_count := lx_msg_count;
82
83
84 IF lx_return_status = FND_API.G_RET_STS_SUCCESS AND lx_pricing_tbl.count > 0 THEN
85 l_record_count := lx_pricing_tbl.first;
86 x_BP_Price_list_id := lx_pricing_tbl(l_record_count).bp_price_list_id;
87 x_contract_line_id := lx_pricing_tbl(l_record_count).contract_line_id;
88 x_business_process_id := lx_pricing_tbl(l_record_count).business_process_id;
89 x_BP_Discount_id := lx_pricing_tbl(l_record_count).BP_Discount_id;
90 x_BP_start_date := lx_pricing_tbl(l_record_count).BP_start_date;
91 x_BP_end_date := lx_pricing_tbl(l_record_count).BP_end_date;
92 x_Contract_Price_list_Id := lx_pricing_tbl(l_record_count).Contract_Price_list_Id;
93
94 -- add_to_temp_log('x_BP_Price_list_id',x_BP_Price_list_id);
95
96
97 END IF;
98
99
100 --x_return_status := FND_API.G_RET_STS_SUCCESS;
101
102 EXCEPTION
103 WHEN OTHERS THEN
104 fnd_msg_pub.count_and_get(
105 p_count => x_msg_count
106 ,p_data => x_msg_data);
107 x_return_status := FND_API.G_RET_STS_ERROR;
108
109 END Get_Contract_Price_List;
110
111 END CS_Charge_Contract_PKG;