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,
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:
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(
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,
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;
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
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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;
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,
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;
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:
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
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
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: );
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,
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',
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: );
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,
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',
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: );
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',