DBA Data[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;