[Home] [Help]
PACKAGE BODY: APPS.OKS_RENEW_PUB
Source
1 Package Body OKS_RENEW_PUB AS
2 /* $Header: OKSPRENB.pls 120.4 2005/08/11 09:58:22 skekkar noship $ */
3
4 Procedure Renew
5 (
6 p_api_version IN NUMBER,
7 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
8 x_return_status OUT NOCOPY VARCHAR2,
9 x_msg_count OUT NOCOPY NUMBER,
10 x_msg_data OUT NOCOPY VARCHAR2,
11 x_contract_id OUT NOCOPY NUMBER,
12 p_do_commit IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
13 p_renewal_called_from_ui IN VARCHAR2 DEFAULT 'Y'
14 )
15 Is
16
17 l_api_name CONSTANT VARCHAR2(30) := 'renew';
18 l_api_version CONSTANT NUMBER := 1.0;
19 l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
20
21 Begin
22
23 l_return_status := OKC_API.START_ACTIVITY(
24 p_api_name => l_api_name,
25 p_pkg_name => G_PKG_NAME,
26 p_init_msg_list => p_init_msg_list,
27 l_api_version => l_api_version,
28 p_api_version => p_api_version,
29 p_api_type => '_PUB',
30 x_return_status => x_return_status
31 );
32
33 If l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
34 Raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
35 ElsIf l_return_status = OKC_API.G_RET_STS_ERROR Then
36 Raise OKC_API.G_EXCEPTION_ERROR;
37 End If;
38 If OKC_RENEW_PUB.g_prerenew_in_parameters_rec.p_contract_id = OKC_API.G_MISS_NUM Then
39 OKC_RENEW_PUB.g_prerenew_in_parameters_rec.p_contract_id := Null;
40 End If;
41 If OKC_RENEW_PUB.g_prerenew_in_parameters_rec.p_contract_number = OKC_API.G_MISS_CHAR Then
42 OKC_RENEW_PUB.g_prerenew_in_parameters_rec.p_contract_number := Null;
43 End If;
44 If OKC_RENEW_PUB.g_prerenew_in_parameters_rec.p_contract_version = OKC_API.G_MISS_CHAR Then
45 OKC_RENEW_PUB.g_prerenew_in_parameters_rec.p_contract_version := Null;
46 End If;
47 If OKC_RENEW_PUB.g_prerenew_in_parameters_rec.p_contract_modifier = OKC_API.G_MISS_CHAR Then
48 OKC_RENEW_PUB.g_prerenew_in_parameters_rec.p_contract_modifier := Null;
49 End If;
50 If OKC_RENEW_PUB.g_prerenew_in_parameters_rec.p_object_version_number = OKC_API.G_MISS_NUM Then
51 OKC_RENEW_PUB.g_prerenew_in_parameters_rec.p_object_version_number := Null;
52 End If;
53 If OKC_RENEW_PUB.g_prerenew_in_parameters_rec.p_new_contract_modifier = OKC_API.G_MISS_CHAR Then
54 OKC_RENEW_PUB.g_prerenew_in_parameters_rec.p_new_contract_modifier := Null;
55 End If;
56 If OKC_RENEW_PUB.g_prerenew_in_parameters_rec.p_start_date = OKC_API.G_MISS_DATE Then
57 OKC_RENEW_PUB.g_prerenew_in_parameters_rec.p_start_date := Null;
58 End If;
59 If OKC_RENEW_PUB.g_prerenew_in_parameters_rec.p_end_date = OKC_API.G_MISS_DATE Then
60 OKC_RENEW_PUB.g_prerenew_in_parameters_rec.p_end_date := Null;
61 End If;
62 If OKC_RENEW_PUB.g_prerenew_in_parameters_rec.p_orig_start_date = OKC_API.G_MISS_DATE Then
63 OKC_RENEW_PUB.g_prerenew_in_parameters_rec.p_orig_start_date := Null;
64 End If;
65 If OKC_RENEW_PUB.g_prerenew_in_parameters_rec.p_orig_end_date = OKC_API.G_MISS_DATE Then
66 OKC_RENEW_PUB.g_prerenew_in_parameters_rec.p_orig_end_date := Null;
67 End If;
68 If OKC_RENEW_PUB.g_prerenew_in_parameters_rec.p_uom_code = OKC_API.G_MISS_CHAR Then
69 OKC_RENEW_PUB.g_prerenew_in_parameters_rec.p_uom_code := Null;
70 End If;
71 If OKC_RENEW_PUB.g_prerenew_in_parameters_rec.p_duration = OKC_API.G_MISS_NUM Then
72 OKC_RENEW_PUB.g_prerenew_in_parameters_rec.p_duration := Null;
73 End If;
74
75 /*
76 For R12 moved to the new Rnewals API
77 OKS_RENEW_PVT.Renew
78 (
79 p_api_version => 1.0,
80 p_init_msg_list => OKC_API.G_FALSE,
81 p_contract_id => OKC_RENEW_PUB.g_prerenew_in_parameters_rec.p_contract_id,
82 p_contract_number => OKC_RENEW_PUB.g_prerenew_in_parameters_rec.p_contract_number,
83 p_contract_version => OKC_RENEW_PUB.g_prerenew_in_parameters_rec.p_contract_version,
84 p_contract_modifier => OKC_RENEW_PUB.g_prerenew_in_parameters_rec.p_contract_modifier,
85 p_object_version_number => OKC_RENEW_PUB.g_prerenew_in_parameters_rec.p_object_version_number,
86 p_new_contract_number => OKC_RENEW_PUB.g_prerenew_in_parameters_rec.p_new_contract_number,
87 p_new_contract_modifier => OKC_RENEW_PUB.g_prerenew_in_parameters_rec.p_new_contract_modifier,
88 p_start_date => OKC_RENEW_PUB.g_prerenew_in_parameters_rec.p_start_date,
89 p_end_date => OKC_RENEW_PUB.g_prerenew_in_parameters_rec.p_end_date,
90 p_orig_start_date => OKC_RENEW_PUB.g_prerenew_in_parameters_rec.p_orig_start_date,
91 p_orig_end_date => OKC_RENEW_PUB.g_prerenew_in_parameters_rec.p_orig_end_date,
92 p_uom_code => OKC_RENEW_PUB.g_prerenew_in_parameters_rec.p_uom_code,
93 p_duration => OKC_RENEW_PUB.g_prerenew_in_parameters_rec.p_duration,
94 p_Renewal_Type => NULL,
95 p_Renewal_Pricing_Type => NULL,
96 p_Markup_Percent => NULL,
97 p_Price_List_Id1 => NULL,
98 p_Price_List_Id2 => NULL,
99 p_PDF_ID => NULL,
100 p_QCL_ID => NULL,
101 p_CGP_NEW_ID => NULL,
102 p_CGP_RENEW_ID => NULL,
103 p_PO_REQUIRED_YN => NULL,
104 p_RLE_CODE => NULL,
105 p_Function_Name => NULL,
106 x_new_chr_id => x_contract_id,
107 x_msg_count => x_msg_count,
108 x_msg_data => x_msg_data,
109 x_return_status => x_return_status
110 );
111 */
112
113 OKS_RENEW_CONTRACT_PVT.renew_contract(
114 p_api_version => 1,
115 p_init_msg_list => FND_API.G_FALSE,
116 p_commit => FND_API.G_FALSE,
117 p_chr_id => OKC_RENEW_PUB.g_prerenew_in_parameters_rec.p_contract_id,
118 p_new_contract_number => OKC_RENEW_PUB.g_prerenew_in_parameters_rec.p_new_contract_number,
119 p_new_contract_modifier => OKC_RENEW_PUB.g_prerenew_in_parameters_rec.p_new_contract_modifier,
120 p_new_start_date => OKC_RENEW_PUB.g_prerenew_in_parameters_rec.p_start_date,
121 p_new_end_date => OKC_RENEW_PUB.g_prerenew_in_parameters_rec.p_end_date,
122 p_new_duration => OKC_RENEW_PUB.g_prerenew_in_parameters_rec.p_duration,
123 p_new_uom_code => OKC_RENEW_PUB.g_prerenew_in_parameters_rec.p_uom_code,
124 p_renewal_called_from_ui => p_renewal_called_from_ui,
125 x_chr_id => x_contract_id,
126 x_msg_count => x_msg_count,
127 x_msg_data => x_msg_data,
128 x_return_status => x_return_status
129 ) ;
130
131 If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
132 raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
133 Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
134 raise OKC_API.G_EXCEPTION_ERROR;
135 End If;
136
137 --standard check of p_commit
138 IF FND_API.to_boolean( p_do_commit ) THEN
139 COMMIT;
140 END IF;
141
142 OKC_API.END_ACTIVITY
143 (
144 x_msg_count => x_msg_count,
145 x_msg_data => x_msg_data
146 );
147
148 Exception
149
150 When OKC_API.G_EXCEPTION_ERROR THEN
151 x_return_status := OKC_API.HANDLE_EXCEPTIONS
152 (
153 l_api_name,
154 G_PKG_NAME,
155 'OKC_API.G_RET_STS_ERROR',
156 x_msg_count,
157 x_msg_data,
158 '_PUB'
159 );
160
161 When OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
162 x_return_status := OKC_API.HANDLE_EXCEPTIONS
163 (
164 l_api_name,
165 G_PKG_NAME,
166 'OKC_API.G_RET_STS_UNEXP_ERROR',
167 x_msg_count,
168 x_msg_data,
169 '_PUB'
170 );
171
172 When OTHERS THEN
173 x_return_status := OKC_API.HANDLE_EXCEPTIONS
174 (
175 l_api_name,
176 G_PKG_NAME,
177 'OTHERS',
178 x_msg_count,
179 x_msg_data,
180 '_PUB'
181 );
182
183 End;
184
185 END OKS_RENEW_PUB;