1: PACKAGE BODY Okl_Kbk_Approvals_Wf AS
2: /* $Header: OKLRBWFB.pls 120.17.12020000.3 2013/02/04 12:43:59 jjuneja ship $ */
3:
4: G_NO_MATCHING_RECORD CONSTANT VARCHAR2(200) := 'OKL_LLA_NO_MATCHING_RECORD';
5: G_REQUIRED_VALUE CONSTANT VARCHAR2(200) := OKL_API.G_REQUIRED_VALUE;
6: G_INVALID_VALUE CONSTANT VARCHAR2(200) := OKL_API.G_INVALID_VALUE;
7: G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_COL_NAME_TOKEN;
8: G_PARENT_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_PARENT_TABLE_TOKEN;
9: G_CHILD_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_CHILD_TABLE_TOKEN;
2: /* $Header: OKLRBWFB.pls 120.17.12020000.3 2013/02/04 12:43:59 jjuneja ship $ */
3:
4: G_NO_MATCHING_RECORD CONSTANT VARCHAR2(200) := 'OKL_LLA_NO_MATCHING_RECORD';
5: G_REQUIRED_VALUE CONSTANT VARCHAR2(200) := OKL_API.G_REQUIRED_VALUE;
6: G_INVALID_VALUE CONSTANT VARCHAR2(200) := OKL_API.G_INVALID_VALUE;
7: G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_COL_NAME_TOKEN;
8: G_PARENT_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_PARENT_TABLE_TOKEN;
9: G_CHILD_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_CHILD_TABLE_TOKEN;
10: G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKC_CONTRACTS_UNEXP_ERROR';
3:
4: G_NO_MATCHING_RECORD CONSTANT VARCHAR2(200) := 'OKL_LLA_NO_MATCHING_RECORD';
5: G_REQUIRED_VALUE CONSTANT VARCHAR2(200) := OKL_API.G_REQUIRED_VALUE;
6: G_INVALID_VALUE CONSTANT VARCHAR2(200) := OKL_API.G_INVALID_VALUE;
7: G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_COL_NAME_TOKEN;
8: G_PARENT_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_PARENT_TABLE_TOKEN;
9: G_CHILD_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_CHILD_TABLE_TOKEN;
10: G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKC_CONTRACTS_UNEXP_ERROR';
11: G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'SQLerrm';
4: G_NO_MATCHING_RECORD CONSTANT VARCHAR2(200) := 'OKL_LLA_NO_MATCHING_RECORD';
5: G_REQUIRED_VALUE CONSTANT VARCHAR2(200) := OKL_API.G_REQUIRED_VALUE;
6: G_INVALID_VALUE CONSTANT VARCHAR2(200) := OKL_API.G_INVALID_VALUE;
7: G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_COL_NAME_TOKEN;
8: G_PARENT_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_PARENT_TABLE_TOKEN;
9: G_CHILD_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_CHILD_TABLE_TOKEN;
10: G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKC_CONTRACTS_UNEXP_ERROR';
11: G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'SQLerrm';
12: G_SQLCODE_TOKEN CONSTANT VARCHAR2(200) := 'SQLcode';
5: G_REQUIRED_VALUE CONSTANT VARCHAR2(200) := OKL_API.G_REQUIRED_VALUE;
6: G_INVALID_VALUE CONSTANT VARCHAR2(200) := OKL_API.G_INVALID_VALUE;
7: G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_COL_NAME_TOKEN;
8: G_PARENT_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_PARENT_TABLE_TOKEN;
9: G_CHILD_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_CHILD_TABLE_TOKEN;
10: G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKC_CONTRACTS_UNEXP_ERROR';
11: G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'SQLerrm';
12: G_SQLCODE_TOKEN CONSTANT VARCHAR2(200) := 'SQLcode';
13: G_API_TYPE CONSTANT VARCHAR2(200) := '_PVT';
95: SELECT USER_NAME, DESCRIPTION
96: FROM FND_USER
97: WHERE user_id = c_user_id;
98: BEGIN
99: x_return_status := OKL_API.G_RET_STS_SUCCESS;
100: OPEN wf_users_csr(p_user_id);
101: FETCH wf_users_csr INTO x_name, x_description;
102: CLOSE wf_users_csr;
103: IF x_name IS NULL THEN
110: END IF;
111: END IF;
112: EXCEPTION
113: WHEN OTHERS THEN
114: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
115: END l_get_agent;
116:
117: --------------------------------------------------------------------------------------------------
118: PROCEDURE l_change_k_status(p_api_version IN NUMBER,
115: END l_get_agent;
116:
117: --------------------------------------------------------------------------------------------------
118: PROCEDURE l_change_k_status(p_api_version IN NUMBER,
119: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
120: x_return_status OUT NOCOPY VARCHAR2,
121: x_msg_count OUT NOCOPY NUMBER,
122: x_msg_data OUT NOCOPY VARCHAR2,
123: p_khr_status IN OKC_K_HEADERS_V.STS_CODE%TYPE,
123: p_khr_status IN OKC_K_HEADERS_V.STS_CODE%TYPE,
124: p_chr_id IN NUMBER) IS
125: l_api_name CONSTANT VARCHAR2(30) := 'l_change_k_status';
126: BEGIN
127: x_return_status := OKL_API.G_RET_STS_SUCCESS;
128: -- Call start_activity to create savepoint, check compatibility
129: -- and initialize message list
130: x_return_status := OKL_API.START_ACTIVITY (
131: l_api_name,
126: BEGIN
127: x_return_status := OKL_API.G_RET_STS_SUCCESS;
128: -- Call start_activity to create savepoint, check compatibility
129: -- and initialize message list
130: x_return_status := OKL_API.START_ACTIVITY (
131: l_api_name,
132: p_init_msg_list,
133: '_PVT',
134: x_return_status);
133: '_PVT',
134: x_return_status);
135:
136: -- Check if activity started successfully
137: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
138: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
139: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
140: RAISE OKL_API.G_EXCEPTION_ERROR;
141: END IF;
134: x_return_status);
135:
136: -- Check if activity started successfully
137: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
138: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
139: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
140: RAISE OKL_API.G_EXCEPTION_ERROR;
141: END IF;
142: Okl_Contract_Status_Pub.update_contract_status(
135:
136: -- Check if activity started successfully
137: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
138: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
139: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
140: RAISE OKL_API.G_EXCEPTION_ERROR;
141: END IF;
142: Okl_Contract_Status_Pub.update_contract_status(
143: p_api_version => p_api_version,
136: -- Check if activity started successfully
137: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
138: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
139: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
140: RAISE OKL_API.G_EXCEPTION_ERROR;
141: END IF;
142: Okl_Contract_Status_Pub.update_contract_status(
143: p_api_version => p_api_version,
144: p_init_msg_list => p_init_msg_list,
147: x_msg_data => x_msg_data,
148: p_khr_status => p_khr_status,
149: p_chr_id => p_chr_id);
150:
151: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
152: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
153: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
154: RAISE OKL_API.G_EXCEPTION_ERROR;
155: END IF;
148: p_khr_status => p_khr_status,
149: p_chr_id => p_chr_id);
150:
151: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
152: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
153: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
154: RAISE OKL_API.G_EXCEPTION_ERROR;
155: END IF;
156:
149: p_chr_id => p_chr_id);
150:
151: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
152: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
153: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
154: RAISE OKL_API.G_EXCEPTION_ERROR;
155: END IF;
156:
157: --call to cascade status on to lines
150:
151: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
152: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
153: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
154: RAISE OKL_API.G_EXCEPTION_ERROR;
155: END IF;
156:
157: --call to cascade status on to lines
158: Okl_Contract_Status_Pub.cascade_lease_status(
162: x_msg_count => x_msg_count,
163: x_msg_data => x_msg_data,
164: p_chr_id => p_chr_id);
165:
166: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
167: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
168: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
169: RAISE OKL_API.G_EXCEPTION_ERROR;
170: END IF;
163: x_msg_data => x_msg_data,
164: p_chr_id => p_chr_id);
165:
166: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
167: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
168: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
169: RAISE OKL_API.G_EXCEPTION_ERROR;
170: END IF;
171: OKL_API.END_ACTIVITY (x_msg_count,
164: p_chr_id => p_chr_id);
165:
166: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
167: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
168: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
169: RAISE OKL_API.G_EXCEPTION_ERROR;
170: END IF;
171: OKL_API.END_ACTIVITY (x_msg_count,
172: x_msg_data );
165:
166: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
167: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
168: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
169: RAISE OKL_API.G_EXCEPTION_ERROR;
170: END IF;
171: OKL_API.END_ACTIVITY (x_msg_count,
172: x_msg_data );
173: EXCEPTION
167: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
168: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
169: RAISE OKL_API.G_EXCEPTION_ERROR;
170: END IF;
171: OKL_API.END_ACTIVITY (x_msg_count,
172: x_msg_data );
173: EXCEPTION
174: WHEN OKL_API.G_EXCEPTION_ERROR THEN
175: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
170: END IF;
171: OKL_API.END_ACTIVITY (x_msg_count,
172: x_msg_data );
173: EXCEPTION
174: WHEN OKL_API.G_EXCEPTION_ERROR THEN
175: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
176: l_api_name,
177: G_PKG_NAME,
178: 'OKL_API.G_RET_STS_ERROR',
171: OKL_API.END_ACTIVITY (x_msg_count,
172: x_msg_data );
173: EXCEPTION
174: WHEN OKL_API.G_EXCEPTION_ERROR THEN
175: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
176: l_api_name,
177: G_PKG_NAME,
178: 'OKL_API.G_RET_STS_ERROR',
179: x_msg_count,
174: WHEN OKL_API.G_EXCEPTION_ERROR THEN
175: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
176: l_api_name,
177: G_PKG_NAME,
178: 'OKL_API.G_RET_STS_ERROR',
179: x_msg_count,
180: x_msg_data,
181: '_PVT');
182: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
178: 'OKL_API.G_RET_STS_ERROR',
179: x_msg_count,
180: x_msg_data,
181: '_PVT');
182: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
183: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
184: l_api_name,
185: G_PKG_NAME,
186: 'OKL_API.G_RET_STS_UNEXP_ERROR',
179: x_msg_count,
180: x_msg_data,
181: '_PVT');
182: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
183: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
184: l_api_name,
185: G_PKG_NAME,
186: 'OKL_API.G_RET_STS_UNEXP_ERROR',
187: x_msg_count,
182: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
183: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
184: l_api_name,
185: G_PKG_NAME,
186: 'OKL_API.G_RET_STS_UNEXP_ERROR',
187: x_msg_count,
188: x_msg_data,
189: '_PVT');
190: WHEN OTHERS THEN
187: x_msg_count,
188: x_msg_data,
189: '_PVT');
190: WHEN OTHERS THEN
191: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
192: l_api_name,
193: G_PKG_NAME,
194: 'OTHERS',
195: x_msg_count,
219: --------------------------------------------------------------------------------------------------
220: ----------------------------------Rasing Business Event ------------------------------------------
221: --------------------------------------------------------------------------------------------------
222: PROCEDURE raise_approval_event (p_api_version IN NUMBER,
223: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
224: x_return_status OUT NOCOPY VARCHAR2,
225: x_msg_count OUT NOCOPY NUMBER,
226: x_msg_data OUT NOCOPY VARCHAR2,
227: p_contract_id IN OKC_K_HEADERS_B.ID%TYPE)
270: SELECT created_by
271: FROM okc_k_headers_all_b
272: WHERE id = p_khr_id;
273:
274: l_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
275: l_api_version NUMBER := 1.0;
276: l_api_name CONSTANT VARCHAR2(30) := 'raise_approval_event';
277: l_msg_count NUMBER;
278: l_init_msg_list VARCHAR2(10) := OKL_API.G_FALSE;
274: l_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
275: l_api_version NUMBER := 1.0;
276: l_api_name CONSTANT VARCHAR2(30) := 'raise_approval_event';
277: l_msg_count NUMBER;
278: l_init_msg_list VARCHAR2(10) := OKL_API.G_FALSE;
279: l_msg_data VARCHAR2(2000);
280:
281: l_parameter_list wf_parameter_list_t;
282: l_key VARCHAR2(240);
299: l_approval_option VARCHAR2(5);
300: --Added by dpsingh for LE Uptake
301: l_legal_entity_id NUMBER;
302: BEGIN
303: x_return_status := OKL_API.G_RET_STS_SUCCESS;
304: -- Call start_activity to create savepoint, check compatibility
305: -- and initialize message list
306: x_return_status := OKL_API.START_ACTIVITY(l_api_name,
307: p_init_msg_list,
302: BEGIN
303: x_return_status := OKL_API.G_RET_STS_SUCCESS;
304: -- Call start_activity to create savepoint, check compatibility
305: -- and initialize message list
306: x_return_status := OKL_API.START_ACTIVITY(l_api_name,
307: p_init_msg_list,
308: '_PVT',
309: x_return_status);
310: -- Check if activity started successfully
307: p_init_msg_list,
308: '_PVT',
309: x_return_status);
310: -- Check if activity started successfully
311: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
312: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
313: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
314: RAISE OKL_API.G_EXCEPTION_ERROR;
315: END IF;
308: '_PVT',
309: x_return_status);
310: -- Check if activity started successfully
311: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
312: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
313: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
314: RAISE OKL_API.G_EXCEPTION_ERROR;
315: END IF;
316:
309: x_return_status);
310: -- Check if activity started successfully
311: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
312: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
313: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
314: RAISE OKL_API.G_EXCEPTION_ERROR;
315: END IF;
316:
317: -- mvasudev
310: -- Check if activity started successfully
311: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
312: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
313: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
314: RAISE OKL_API.G_EXCEPTION_ERROR;
315: END IF;
316:
317: -- mvasudev
318: -- Create Internal Transaction
337: x_return_status => x_return_status,
338: x_name => l_requester,
339: x_description => l_name);
340:
341: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
342: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
343: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
344: RAISE OKL_API.G_EXCEPTION_ERROR;
345: END IF;
338: x_name => l_requester,
339: x_description => l_name);
340:
341: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
342: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
343: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
344: RAISE OKL_API.G_EXCEPTION_ERROR;
345: END IF;
346:
339: x_description => l_name);
340:
341: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
342: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
343: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
344: RAISE OKL_API.G_EXCEPTION_ERROR;
345: END IF;
346:
347: FOR l_wf_item_key_rec IN l_wf_item_key_csr
340:
341: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
342: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
343: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
344: RAISE OKL_API.G_EXCEPTION_ERROR;
345: END IF;
346:
347: FOR l_wf_item_key_rec IN l_wf_item_key_csr
348: LOOP
368: l_legal_entity_id := OKL_LEGAL_ENTITY_UTIL.get_khr_le_id(p_contract_id) ;
369: IF l_legal_entity_id IS NOT NULL THEN
370: l_trxH_in_rec.legal_entity_id := l_legal_entity_id;
371: ELSE
372: Okl_Api.set_message(p_app_name => g_app_name,
373: p_msg_name => 'OKL_LE_NOT_EXIST_CNTRCT',
374: p_token1 => 'CONTRACT_NUMBER',
375: p_token1_value => l_contract_num);
376: RAISE OKL_API.G_EXCEPTION_ERROR;
372: Okl_Api.set_message(p_app_name => g_app_name,
373: p_msg_name => 'OKL_LE_NOT_EXIST_CNTRCT',
374: p_token1 => 'CONTRACT_NUMBER',
375: p_token1_value => l_contract_num);
376: RAISE OKL_API.G_EXCEPTION_ERROR;
377: END IF;
378: -- Create Transaction Header
379: Okl_Trx_Contracts_Pub.create_trx_contracts(
380: p_api_version => l_api_version
384: ,x_msg_data => l_msg_data
385: ,p_tcnv_rec => l_trxH_in_rec
386: ,x_tcnv_rec => l_trxH_out_rec);
387:
388: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
389: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
390: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
391: RAISE Okl_Api.G_EXCEPTION_ERROR;
392: END IF;
385: ,p_tcnv_rec => l_trxH_in_rec
386: ,x_tcnv_rec => l_trxH_out_rec);
387:
388: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
389: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
390: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
391: RAISE Okl_Api.G_EXCEPTION_ERROR;
392: END IF;
393: -- end, mvasudev
386: ,x_tcnv_rec => l_trxH_out_rec);
387:
388: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
389: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
390: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
391: RAISE Okl_Api.G_EXCEPTION_ERROR;
392: END IF;
393: -- end, mvasudev
394:
387:
388: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
389: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
390: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
391: RAISE Okl_Api.G_EXCEPTION_ERROR;
392: END IF;
393: -- end, mvasudev
394:
395: l_approval_option := fnd_profile.value('OKL_LEASE_CONTRACT_APPROVAL_PROCESS');
398: -- Get the Contract Number
399: OPEN c_fetch_k_number(l_chrv_id);
400: FETCH c_fetch_k_number INTO l_contract_num,l_sts_code;
401: IF c_fetch_k_number%NOTFOUND THEN
402: OKL_API.set_message(p_app_name => G_APP_NAME,
403: p_msg_name => G_NO_MATCHING_RECORD,
404: p_token1 => G_COL_NAME_TOKEN,
405: p_token1_value => 'OKC_K_HEADERS_V.ID');
406: RAISE OKL_API.G_EXCEPTION_ERROR;
402: OKL_API.set_message(p_app_name => G_APP_NAME,
403: p_msg_name => G_NO_MATCHING_RECORD,
404: p_token1 => G_COL_NAME_TOKEN,
405: p_token1_value => 'OKC_K_HEADERS_V.ID');
406: RAISE OKL_API.G_EXCEPTION_ERROR;
407: END IF;
408: CLOSE c_fetch_k_number;
409: IF l_sts_code <> G_KHR_STS_COMPLETE THEN
410: OKL_API.set_message(p_app_name => G_APP_NAME,
406: RAISE OKL_API.G_EXCEPTION_ERROR;
407: END IF;
408: CLOSE c_fetch_k_number;
409: IF l_sts_code <> G_KHR_STS_COMPLETE THEN
410: OKL_API.set_message(p_app_name => G_APP_NAME,
411: p_msg_name => G_KHR_STATUS_NOT_COMPLETE);
412: RAISE OKL_API.G_EXCEPTION_ERROR;
413: END IF;
414:
408: CLOSE c_fetch_k_number;
409: IF l_sts_code <> G_KHR_STS_COMPLETE THEN
410: OKL_API.set_message(p_app_name => G_APP_NAME,
411: p_msg_name => G_KHR_STATUS_NOT_COMPLETE);
412: RAISE OKL_API.G_EXCEPTION_ERROR;
413: END IF;
414:
415: -- Get the Application ID
416: OPEN c_get_app_id_csr;
415: -- Get the Application ID
416: OPEN c_get_app_id_csr;
417: FETCH c_get_app_id_csr INTO l_application_id;
418: IF c_get_app_id_csr%NOTFOUND THEN
419: OKL_API.set_message(p_app_name => G_APP_NAME,
420: p_msg_name => G_NO_MATCHING_RECORD,
421: p_token1 => G_COL_NAME_TOKEN,
422: p_token1_value => 'Application id');
423: RAISE OKL_API.G_EXCEPTION_ERROR;
419: OKL_API.set_message(p_app_name => G_APP_NAME,
420: p_msg_name => G_NO_MATCHING_RECORD,
421: p_token1 => G_COL_NAME_TOKEN,
422: p_token1_value => 'Application id');
423: RAISE OKL_API.G_EXCEPTION_ERROR;
424: END IF;
425: CLOSE c_get_app_id_csr;
426:
427: -- Get the Transaction Type ID
428: OPEN c_get_trx_type_csr(G_TRANS_APP_NAME);
429: FETCH c_get_trx_type_csr INTO l_trans_type_id,
430: l_trans_appl_id;
431: IF c_get_trx_type_csr%NOTFOUND THEN
432: OKL_API.set_message(p_app_name => G_APP_NAME,
433: p_msg_name => G_NO_MATCHING_RECORD,
434: p_token1 => G_COL_NAME_TOKEN,
435: p_token1_value => 'AME Transcation TYPE id, Application id');
436: RAISE OKL_API.G_EXCEPTION_ERROR;
432: OKL_API.set_message(p_app_name => G_APP_NAME,
433: p_msg_name => G_NO_MATCHING_RECORD,
434: p_token1 => G_COL_NAME_TOKEN,
435: p_token1_value => 'AME Transcation TYPE id, Application id');
436: RAISE OKL_API.G_EXCEPTION_ERROR;
437: END IF;
438: CLOSE c_get_trx_type_csr;
439:
440:
452: --added by akrangan
453: wf_event.AddParameterToList('ORG_ID',mo_global.get_current_org_id ,l_parameter_list);
454:
455: ELSE
456: OKL_API.set_message(p_app_name => G_APP_NAME,
457: p_msg_name => G_INVALID_APP);
458: RAISE OKL_API.G_EXCEPTION_ERROR;
459: END IF; -- l_application_id
460:
454:
455: ELSE
456: OKL_API.set_message(p_app_name => G_APP_NAME,
457: p_msg_name => G_INVALID_APP);
458: RAISE OKL_API.G_EXCEPTION_ERROR;
459: END IF; -- l_application_id
460:
461: ELSIF l_approval_option = G_LEASE_CONTRACT_APPROVAL_WF THEN
462: l_event_name := G_EVENT_APPROVE_WF;
475: wf_event.AddParameterToList('ORG_ID',mo_global.get_current_org_id ,l_parameter_list);
476: --added by jjuneja for Bug# 15991081
477: wf_event.AddParameterToList(G_WF_ITM_FROM_ROLE,l_requester ,l_parameter_list);
478: ELSE
479: RAISE OKL_API.G_EXCEPTION_ERROR;
480: END IF; -- l_approval_option
481:
482: -- We need to status to Approved Pending since We are sending for approval
483: l_change_k_status(p_api_version => p_api_version,
487: x_msg_data => x_msg_data,
488: p_khr_status => G_KHR_STS_PENDING_APPROVAL,
489: p_chr_id => l_chrv_id);
490:
491: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
492: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
493: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
494: RAISE OKL_API.G_EXCEPTION_ERROR;
495: END IF;
488: p_khr_status => G_KHR_STS_PENDING_APPROVAL,
489: p_chr_id => l_chrv_id);
490:
491: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
492: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
493: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
494: RAISE OKL_API.G_EXCEPTION_ERROR;
495: END IF;
496:
489: p_chr_id => l_chrv_id);
490:
491: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
492: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
493: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
494: RAISE OKL_API.G_EXCEPTION_ERROR;
495: END IF;
496:
497: -- Raise Event
490:
491: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
492: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
493: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
494: RAISE OKL_API.G_EXCEPTION_ERROR;
495: END IF;
496:
497: -- Raise Event
498: wf_event.RAISE(p_event_name => l_event_name,
499: p_event_key => l_key,
500: p_parameters => l_parameter_list);
501: l_parameter_list.DELETE;
502:
503: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
504: x_msg_data => x_msg_data);
505: EXCEPTION
506: WHEN OKL_API.G_EXCEPTION_ERROR THEN
507: x_return_status := OKL_API.G_RET_STS_ERROR;
502:
503: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
504: x_msg_data => x_msg_data);
505: EXCEPTION
506: WHEN OKL_API.G_EXCEPTION_ERROR THEN
507: x_return_status := OKL_API.G_RET_STS_ERROR;
508: IF c_fetch_k_number%ISOPEN THEN
509: CLOSE c_fetch_k_number;
510: END IF;
503: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
504: x_msg_data => x_msg_data);
505: EXCEPTION
506: WHEN OKL_API.G_EXCEPTION_ERROR THEN
507: x_return_status := OKL_API.G_RET_STS_ERROR;
508: IF c_fetch_k_number%ISOPEN THEN
509: CLOSE c_fetch_k_number;
510: END IF;
511: IF c_get_app_id_csr%ISOPEN THEN
516: END IF;
517: IF l_wf_item_key_csr%ISOPEN THEN
518: CLOSE l_wf_item_key_csr;
519: END IF;
520: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
521: p_api_name => l_api_name,
522: p_pkg_name => G_PKG_NAME,
523: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
524: x_msg_count => x_msg_count,
519: END IF;
520: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
521: p_api_name => l_api_name,
522: p_pkg_name => G_PKG_NAME,
523: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
524: x_msg_count => x_msg_count,
525: x_msg_data => x_msg_data,
526: p_api_type => G_API_TYPE);
527: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
523: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
524: x_msg_count => x_msg_count,
525: x_msg_data => x_msg_data,
526: p_api_type => G_API_TYPE);
527: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
528: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
529: IF c_fetch_k_number%ISOPEN THEN
530: CLOSE c_fetch_k_number;
531: END IF;
524: x_msg_count => x_msg_count,
525: x_msg_data => x_msg_data,
526: p_api_type => G_API_TYPE);
527: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
528: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
529: IF c_fetch_k_number%ISOPEN THEN
530: CLOSE c_fetch_k_number;
531: END IF;
532: IF c_get_app_id_csr%ISOPEN THEN
537: END IF;
538: IF l_wf_item_key_csr%ISOPEN THEN
539: CLOSE l_wf_item_key_csr;
540: END IF;
541: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
542: p_api_name => l_api_name,
543: p_pkg_name => G_PKG_NAME,
544: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
545: x_msg_count => x_msg_count,
540: END IF;
541: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
542: p_api_name => l_api_name,
543: p_pkg_name => G_PKG_NAME,
544: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
545: x_msg_count => x_msg_count,
546: x_msg_data => x_msg_data,
547: p_api_type => G_API_TYPE);
548: WHEN OTHERS THEN
558: IF l_wf_item_key_csr%ISOPEN THEN
559: CLOSE l_wf_item_key_csr;
560: END IF;
561: -- store SQL error message on message stack
562: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
563: p_api_name => l_api_name,
564: p_pkg_name => G_PKG_NAME,
565: p_exc_name => 'OTHERS',
566: x_msg_count => x_msg_count,
575: l_msg_count NUMBER;
576: l_msg_data VARCHAR2(2000);
577: l_api_version NUMBER := 1;
578: l_init_msg_list VARCHAR2(3) := OKC_API.G_TRUE;
579: l_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
580:
581: l_true_tax VARCHAR2(200);
582: l_cap_amt NUMBER;
583: l_res_value NUMBER;
862: p_formula_name => 'CONTRACT_FINANCED_AMOUNT_BKG',
863: --fmiao end bug 5178182
864: p_contract_id => p_contract_id,
865: x_value => l_cap_amt);
866: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
867: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
868: ELSIF (l_return_Status = OKL_API.G_RET_STS_ERROR) THEN
869: RAISE OKL_API.G_EXCEPTION_ERROR;
870: END IF;
863: --fmiao end bug 5178182
864: p_contract_id => p_contract_id,
865: x_value => l_cap_amt);
866: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
867: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
868: ELSIF (l_return_Status = OKL_API.G_RET_STS_ERROR) THEN
869: RAISE OKL_API.G_EXCEPTION_ERROR;
870: END IF;
871: l_message := l_message || '
864: p_contract_id => p_contract_id,
865: x_value => l_cap_amt);
866: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
867: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
868: ELSIF (l_return_Status = OKL_API.G_RET_STS_ERROR) THEN
869: RAISE OKL_API.G_EXCEPTION_ERROR;
870: END IF;
871: l_message := l_message || '
872:
865: x_value => l_cap_amt);
866: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
867: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
868: ELSIF (l_return_Status = OKL_API.G_RET_STS_ERROR) THEN
869: RAISE OKL_API.G_EXCEPTION_ERROR;
870: END IF;
871: l_message := l_message || '
872:
889: x_msg_data => l_msg_data,
890: p_formula_name => 'CONTRACT_RESIDUAL_VALUE',
891: p_contract_id => p_contract_id,
892: x_value => l_res_value);
893: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
894: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
895: ELSIF (l_return_Status = OKL_API.G_RET_STS_ERROR) THEN
896: RAISE OKL_API.G_EXCEPTION_ERROR;
897: END IF;
890: p_formula_name => 'CONTRACT_RESIDUAL_VALUE',
891: p_contract_id => p_contract_id,
892: x_value => l_res_value);
893: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
894: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
895: ELSIF (l_return_Status = OKL_API.G_RET_STS_ERROR) THEN
896: RAISE OKL_API.G_EXCEPTION_ERROR;
897: END IF;
898: l_message := l_message || '
891: p_contract_id => p_contract_id,
892: x_value => l_res_value);
893: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
894: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
895: ELSIF (l_return_Status = OKL_API.G_RET_STS_ERROR) THEN
896: RAISE OKL_API.G_EXCEPTION_ERROR;
897: END IF;
898: l_message := l_message || '
899:
892: x_value => l_res_value);
893: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
894: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
895: ELSIF (l_return_Status = OKL_API.G_RET_STS_ERROR) THEN
896: RAISE OKL_API.G_EXCEPTION_ERROR;
897: END IF;
898: l_message := l_message || '
899:
1145:
1146: l_return_status VARCHAR2(1);
1147:
1148: BEGIN
1149: l_return_status := OKL_API.G_RET_STS_SUCCESS;
1150:
1151: -- "RUN"
1152: IF (funcmode = 'RUN') THEN
1153: --l_user_id := fnd_profile.value('OKL_LEASE_CONTRACT_APPROVER');
1312: --rkuttiya added for 12.1.1 Multi GAAP Project
1313: AND representation_type = 'PRIMARY';
1314: --
1315:
1316: l_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
1317: l_process_status VARCHAR2 (1) := okl_api.g_ret_sts_success; -- Bug#9873432
1318: l_contract_number OKC_K_HEADERS_B.CONTRACT_NUMBER%TYPE; -- Bug#9873432
1319: l_api_version NUMBER := 1.0;
1320: l_msg_count NUMBER;
1313: AND representation_type = 'PRIMARY';
1314: --
1315:
1316: l_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
1317: l_process_status VARCHAR2 (1) := okl_api.g_ret_sts_success; -- Bug#9873432
1318: l_contract_number OKC_K_HEADERS_B.CONTRACT_NUMBER%TYPE; -- Bug#9873432
1319: l_api_version NUMBER := 1.0;
1320: l_msg_count NUMBER;
1321: l_init_msg_list VARCHAR2(10) := OKL_API.G_FALSE;
1317: l_process_status VARCHAR2 (1) := okl_api.g_ret_sts_success; -- Bug#9873432
1318: l_contract_number OKC_K_HEADERS_B.CONTRACT_NUMBER%TYPE; -- Bug#9873432
1319: l_api_version NUMBER := 1.0;
1320: l_msg_count NUMBER;
1321: l_init_msg_list VARCHAR2(10) := OKL_API.G_FALSE;
1322: l_msg_data VARCHAR2(2000);
1323: l_api_name VARCHAR2(30) := 'update_approval_status';
1324:
1325: l_chrv_id OKC_K_HEADERS_V.ID%TYPE;
1351: x_msg_count => l_msg_count,
1352: x_msg_data => l_msg_data,
1353: p_khr_status => G_KHR_STS_APPROVED,
1354: p_chr_id => l_chrv_id);
1355: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1356: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1357: ELSIF (l_return_Status = OKL_API.G_RET_STS_ERROR) THEN
1358: RAISE OKL_API.G_EXCEPTION_ERROR;
1359: END IF;
1352: x_msg_data => l_msg_data,
1353: p_khr_status => G_KHR_STS_APPROVED,
1354: p_chr_id => l_chrv_id);
1355: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1356: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1357: ELSIF (l_return_Status = OKL_API.G_RET_STS_ERROR) THEN
1358: RAISE OKL_API.G_EXCEPTION_ERROR;
1359: END IF;
1360:
1353: p_khr_status => G_KHR_STS_APPROVED,
1354: p_chr_id => l_chrv_id);
1355: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1356: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1357: ELSIF (l_return_Status = OKL_API.G_RET_STS_ERROR) THEN
1358: RAISE OKL_API.G_EXCEPTION_ERROR;
1359: END IF;
1360:
1361: Okl_Contract_Book_Pvt.post_approval_process(p_api_version => l_api_version,
1354: p_chr_id => l_chrv_id);
1355: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1356: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1357: ELSIF (l_return_Status = OKL_API.G_RET_STS_ERROR) THEN
1358: RAISE OKL_API.G_EXCEPTION_ERROR;
1359: END IF;
1360:
1361: Okl_Contract_Book_Pvt.post_approval_process(p_api_version => l_api_version,
1362: p_init_msg_list => l_init_msg_list,
1366: p_chr_id => l_chrv_id,
1367: x_process_status => l_process_status -- Bug#9873432
1368: );
1369:
1370: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1371: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1372: ELSIF (l_return_Status = OKL_API.G_RET_STS_ERROR) THEN
1373: RAISE OKL_API.G_EXCEPTION_ERROR;
1374: END IF;
1367: x_process_status => l_process_status -- Bug#9873432
1368: );
1369:
1370: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1371: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1372: ELSIF (l_return_Status = OKL_API.G_RET_STS_ERROR) THEN
1373: RAISE OKL_API.G_EXCEPTION_ERROR;
1374: END IF;
1375: ELSE
1368: );
1369:
1370: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1371: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1372: ELSIF (l_return_Status = OKL_API.G_RET_STS_ERROR) THEN
1373: RAISE OKL_API.G_EXCEPTION_ERROR;
1374: END IF;
1375: ELSE
1376: l_change_k_status(p_api_version => l_api_version,
1369:
1370: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1371: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1372: ELSIF (l_return_Status = OKL_API.G_RET_STS_ERROR) THEN
1373: RAISE OKL_API.G_EXCEPTION_ERROR;
1374: END IF;
1375: ELSE
1376: l_change_k_status(p_api_version => l_api_version,
1377: p_init_msg_list => l_init_msg_list,
1379: x_msg_count => l_msg_count,
1380: x_msg_data => l_msg_data,
1381: p_khr_status => G_KHR_STS_INCOMPLETE,
1382: p_chr_id => l_chrv_id);
1383: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1384: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1385: ELSIF (l_return_Status = OKL_API.G_RET_STS_ERROR) THEN
1386: RAISE OKL_API.G_EXCEPTION_ERROR;
1387: END IF;
1380: x_msg_data => l_msg_data,
1381: p_khr_status => G_KHR_STS_INCOMPLETE,
1382: p_chr_id => l_chrv_id);
1383: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1384: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1385: ELSIF (l_return_Status = OKL_API.G_RET_STS_ERROR) THEN
1386: RAISE OKL_API.G_EXCEPTION_ERROR;
1387: END IF;
1388: END IF;
1381: p_khr_status => G_KHR_STS_INCOMPLETE,
1382: p_chr_id => l_chrv_id);
1383: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1384: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1385: ELSIF (l_return_Status = OKL_API.G_RET_STS_ERROR) THEN
1386: RAISE OKL_API.G_EXCEPTION_ERROR;
1387: END IF;
1388: END IF;
1389:
1382: p_chr_id => l_chrv_id);
1383: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1384: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1385: ELSIF (l_return_Status = OKL_API.G_RET_STS_ERROR) THEN
1386: RAISE OKL_API.G_EXCEPTION_ERROR;
1387: END IF;
1388: END IF;
1389:
1390: -- trx's trx_number IS wf's trx_id
1407: ,x_msg_data => l_msg_data
1408: ,p_tcnv_rec => l_trxH_in_rec
1409: ,x_tcnv_rec => l_trxH_out_rec);
1410:
1411: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1412: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1413: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
1414: RAISE Okl_Api.G_EXCEPTION_ERROR;
1415: END IF;
1408: ,p_tcnv_rec => l_trxH_in_rec
1409: ,x_tcnv_rec => l_trxH_out_rec);
1410:
1411: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1412: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1413: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
1414: RAISE Okl_Api.G_EXCEPTION_ERROR;
1415: END IF;
1416:
1409: ,x_tcnv_rec => l_trxH_out_rec);
1410:
1411: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1412: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1413: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
1414: RAISE Okl_Api.G_EXCEPTION_ERROR;
1415: END IF;
1416:
1417: resultout := 'COMPLETE:';
1410:
1411: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1412: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1413: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
1414: RAISE Okl_Api.G_EXCEPTION_ERROR;
1415: END IF;
1416:
1417: resultout := 'COMPLETE:';
1418:
1417: resultout := 'COMPLETE:';
1418:
1419: -- Bug#9873432 - Start
1420: -- Populate the message doc and subject for the notification to be sent to the requester
1421: IF l_process_status <> OKL_API.G_RET_STS_SUCCESS THEN
1422: l_contract_number := wf_engine.GetItemAttrText (itemtype => itemtype,
1423: itemkey => itemkey,
1424: aname => G_WF_ITM_CONTRACT_NUMBER);
1425: -- Set the message subject
1473: resultout := 'COMPLETE:';
1474: RETURN;
1475: END IF;
1476: EXCEPTION
1477: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1478: wf_core.context(G_PKG_NAME,
1479: l_api_name,
1480: itemtype,
1481: itemkey,
1481: itemkey,
1482: TO_CHAR(actid),
1483: funcmode);
1484: RAISE;
1485: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1486: wf_core.context(G_PKG_NAME,
1487: l_api_name,
1488: itemtype,
1489: itemkey,