4: -- Global Message Constants
5: ----------------------------------------------------------------------------
6:
7: G_NO_MATCHING_RECORD CONSTANT VARCHAR2(200) := 'OKL_LLA_NO_MATCHING_RECORD';
8: G_REQUIRED_VALUE CONSTANT VARCHAR2(200) := OKL_API.G_REQUIRED_VALUE;
9: G_INVALID_VALUE CONSTANT VARCHAR2(200) := OKL_API.G_INVALID_VALUE;
10: G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_COL_NAME_TOKEN;
11: G_PARENT_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_PARENT_TABLE_TOKEN;
12: G_CHILD_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_CHILD_TABLE_TOKEN;
5: ----------------------------------------------------------------------------
6:
7: G_NO_MATCHING_RECORD CONSTANT VARCHAR2(200) := 'OKL_LLA_NO_MATCHING_RECORD';
8: G_REQUIRED_VALUE CONSTANT VARCHAR2(200) := OKL_API.G_REQUIRED_VALUE;
9: G_INVALID_VALUE CONSTANT VARCHAR2(200) := OKL_API.G_INVALID_VALUE;
10: G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_COL_NAME_TOKEN;
11: G_PARENT_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_PARENT_TABLE_TOKEN;
12: G_CHILD_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_CHILD_TABLE_TOKEN;
13: G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKC_CONTRACTS_UNEXP_ERROR';
6:
7: G_NO_MATCHING_RECORD CONSTANT VARCHAR2(200) := 'OKL_LLA_NO_MATCHING_RECORD';
8: G_REQUIRED_VALUE CONSTANT VARCHAR2(200) := OKL_API.G_REQUIRED_VALUE;
9: G_INVALID_VALUE CONSTANT VARCHAR2(200) := OKL_API.G_INVALID_VALUE;
10: G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_COL_NAME_TOKEN;
11: G_PARENT_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_PARENT_TABLE_TOKEN;
12: G_CHILD_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_CHILD_TABLE_TOKEN;
13: G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKC_CONTRACTS_UNEXP_ERROR';
14: G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'SQLerrm';
7: G_NO_MATCHING_RECORD CONSTANT VARCHAR2(200) := 'OKL_LLA_NO_MATCHING_RECORD';
8: G_REQUIRED_VALUE CONSTANT VARCHAR2(200) := OKL_API.G_REQUIRED_VALUE;
9: G_INVALID_VALUE CONSTANT VARCHAR2(200) := OKL_API.G_INVALID_VALUE;
10: G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_COL_NAME_TOKEN;
11: G_PARENT_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_PARENT_TABLE_TOKEN;
12: G_CHILD_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_CHILD_TABLE_TOKEN;
13: G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKC_CONTRACTS_UNEXP_ERROR';
14: G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'SQLerrm';
15: G_SQLCODE_TOKEN CONSTANT VARCHAR2(200) := 'SQLcode';
8: G_REQUIRED_VALUE CONSTANT VARCHAR2(200) := OKL_API.G_REQUIRED_VALUE;
9: G_INVALID_VALUE CONSTANT VARCHAR2(200) := OKL_API.G_INVALID_VALUE;
10: G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_COL_NAME_TOKEN;
11: G_PARENT_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_PARENT_TABLE_TOKEN;
12: G_CHILD_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_CHILD_TABLE_TOKEN;
13: G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKC_CONTRACTS_UNEXP_ERROR';
14: G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'SQLerrm';
15: G_SQLCODE_TOKEN CONSTANT VARCHAR2(200) := 'SQLcode';
16: G_API_TYPE CONSTANT VARCHAR2(200) := '_PVT';
108: SELECT USER_NAME, DESCRIPTION
109: FROM FND_USER
110: WHERE user_id = c_user_id;
111: BEGIN
112: x_return_status := OKL_API.G_RET_STS_SUCCESS;
113: OPEN wf_users_csr(p_user_id);
114: FETCH wf_users_csr INTO x_name, x_description;
115: CLOSE wf_users_csr;
116: IF x_name IS NULL THEN
123: END IF;
124: END IF;
125: EXCEPTION
126: WHEN OTHERS THEN
127: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
128: END l_get_agent;
129:
130: ---------------------------------------------------------------------------
131: -- PROCEDURE l_change_add_req_status
140: -- Version : 1.0
141: -- End of comments
142: ---------------------------------------------------------------------------
143: PROCEDURE l_change_add_req_status(p_api_version IN NUMBER,
144: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
145: x_return_status OUT NOCOPY VARCHAR2,
146: x_msg_count OUT NOCOPY NUMBER,
147: x_msg_data OUT NOCOPY VARCHAR2,
148: p_pool_trx_status IN OKL_POOL_TRANSACTIONS.TRANSACTION_STATUS%TYPE,
157: lp_poxv_rec poxv_rec_type;
158: lx_poxv_rec poxv_rec_type;
159:
160: BEGIN
161: x_return_status := OKL_API.G_RET_STS_SUCCESS;
162: l_pool_trans_id := p_pool_trans_id;
163: l_pool_trx_status := p_pool_trx_status;
164: l_pool_id := p_pool_id;
165: -- Call start_activity to create savepoint, check compatibility
163: l_pool_trx_status := p_pool_trx_status;
164: l_pool_id := p_pool_id;
165: -- Call start_activity to create savepoint, check compatibility
166: -- and initialize message list
167: x_return_status := OKL_API.START_ACTIVITY (
168: l_api_name,
169: p_init_msg_list,
170: '_PVT',
171: x_return_status);
170: '_PVT',
171: x_return_status);
172:
173: -- Check if activity started successfully
174: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
175: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
176: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
177: RAISE OKL_API.G_EXCEPTION_ERROR;
178: END IF;
171: x_return_status);
172:
173: -- Check if activity started successfully
174: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
175: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
176: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
177: RAISE OKL_API.G_EXCEPTION_ERROR;
178: END IF;
179:
172:
173: -- Check if activity started successfully
174: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
175: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
176: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
177: RAISE OKL_API.G_EXCEPTION_ERROR;
178: END IF;
179:
180: --Set the Pool Transaction Id for the update call
173: -- Check if activity started successfully
174: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
175: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
176: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
177: RAISE OKL_API.G_EXCEPTION_ERROR;
178: END IF;
179:
180: --Set the Pool Transaction Id for the update call
181: lp_poxv_rec.ID := l_pool_trans_id;
199: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
200: fnd_log.STRING(fnd_log.level_statement,'okl.plsql.okl_sec_agreement_wf.l_change_add_req_status', 'After Pool Transaction update call x_return_status ' || x_return_status);
201: END IF;
202:
203: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
204: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
205: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
206: RAISE OKL_API.G_EXCEPTION_ERROR;
207: END IF;
200: fnd_log.STRING(fnd_log.level_statement,'okl.plsql.okl_sec_agreement_wf.l_change_add_req_status', 'After Pool Transaction update call x_return_status ' || x_return_status);
201: END IF;
202:
203: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
204: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
205: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
206: RAISE OKL_API.G_EXCEPTION_ERROR;
207: END IF;
208:
201: END IF;
202:
203: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
204: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
205: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
206: RAISE OKL_API.G_EXCEPTION_ERROR;
207: END IF;
208:
209: OKL_API.END_ACTIVITY (x_msg_count,
202:
203: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
204: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
205: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
206: RAISE OKL_API.G_EXCEPTION_ERROR;
207: END IF;
208:
209: OKL_API.END_ACTIVITY (x_msg_count,
210: x_msg_data );
205: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
206: RAISE OKL_API.G_EXCEPTION_ERROR;
207: END IF;
208:
209: OKL_API.END_ACTIVITY (x_msg_count,
210: x_msg_data );
211: EXCEPTION
212: WHEN OKL_API.G_EXCEPTION_ERROR THEN
213: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
208:
209: OKL_API.END_ACTIVITY (x_msg_count,
210: x_msg_data );
211: EXCEPTION
212: WHEN OKL_API.G_EXCEPTION_ERROR THEN
213: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
214: l_api_name,
215: G_PKG_NAME,
216: 'OKL_API.G_RET_STS_ERROR',
209: OKL_API.END_ACTIVITY (x_msg_count,
210: x_msg_data );
211: EXCEPTION
212: WHEN OKL_API.G_EXCEPTION_ERROR THEN
213: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
214: l_api_name,
215: G_PKG_NAME,
216: 'OKL_API.G_RET_STS_ERROR',
217: x_msg_count,
212: WHEN OKL_API.G_EXCEPTION_ERROR THEN
213: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
214: l_api_name,
215: G_PKG_NAME,
216: 'OKL_API.G_RET_STS_ERROR',
217: x_msg_count,
218: x_msg_data,
219: '_PVT');
220: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
216: 'OKL_API.G_RET_STS_ERROR',
217: x_msg_count,
218: x_msg_data,
219: '_PVT');
220: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
221: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
222: l_api_name,
223: G_PKG_NAME,
224: 'OKL_API.G_RET_STS_UNEXP_ERROR',
217: x_msg_count,
218: x_msg_data,
219: '_PVT');
220: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
221: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
222: l_api_name,
223: G_PKG_NAME,
224: 'OKL_API.G_RET_STS_UNEXP_ERROR',
225: x_msg_count,
220: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
221: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
222: l_api_name,
223: G_PKG_NAME,
224: 'OKL_API.G_RET_STS_UNEXP_ERROR',
225: x_msg_count,
226: x_msg_data,
227: '_PVT');
228: WHEN OTHERS THEN
225: x_msg_count,
226: x_msg_data,
227: '_PVT');
228: WHEN OTHERS THEN
229: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
230: l_api_name,
231: G_PKG_NAME,
232: 'OTHERS',
233: x_msg_count,
284: -- Version : 1.0
285: -- End of comments
286: ---------------------------------------------------------------------------
287: PROCEDURE raise_add_khr_approval_event (p_api_version IN NUMBER,
288: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
289: x_return_status OUT NOCOPY VARCHAR2,
290: x_msg_count OUT NOCOPY NUMBER,
291: x_msg_data OUT NOCOPY VARCHAR2,
292: p_agreement_id IN OKC_K_HEADERS_B.ID%TYPE,
350: l_approval_option VARCHAR2(5);
351:
352: BEGIN
353:
354: l_return_status := OKL_API.G_RET_STS_SUCCESS;
355: l_api_version := 1.0;
356: l_init_msg_list := OKL_API.G_FALSE;
357: l_agreement_id := p_agreement_id;
358: l_pool_id := p_pool_id;
352: BEGIN
353:
354: l_return_status := OKL_API.G_RET_STS_SUCCESS;
355: l_api_version := 1.0;
356: l_init_msg_list := OKL_API.G_FALSE;
357: l_agreement_id := p_agreement_id;
358: l_pool_id := p_pool_id;
359: l_pool_trans_id := p_pool_trans_id;
360: x_return_status := OKL_API.G_RET_STS_SUCCESS;
356: l_init_msg_list := OKL_API.G_FALSE;
357: l_agreement_id := p_agreement_id;
358: l_pool_id := p_pool_id;
359: l_pool_trans_id := p_pool_trans_id;
360: x_return_status := OKL_API.G_RET_STS_SUCCESS;
361:
362: -- Call start_activity to create savepoint, check compatibility
363: -- and initialize message list
364: x_return_status := OKL_API.START_ACTIVITY(l_api_name,
360: x_return_status := OKL_API.G_RET_STS_SUCCESS;
361:
362: -- Call start_activity to create savepoint, check compatibility
363: -- and initialize message list
364: x_return_status := OKL_API.START_ACTIVITY(l_api_name,
365: p_init_msg_list,
366: '_PVT',
367: x_return_status);
368: -- Check if activity started successfully
365: p_init_msg_list,
366: '_PVT',
367: x_return_status);
368: -- Check if activity started successfully
369: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
370: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
371: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
372: RAISE OKL_API.G_EXCEPTION_ERROR;
373: END IF;
366: '_PVT',
367: x_return_status);
368: -- Check if activity started successfully
369: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
370: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
371: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
372: RAISE OKL_API.G_EXCEPTION_ERROR;
373: END IF;
374: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
367: x_return_status);
368: -- Check if activity started successfully
369: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
370: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
371: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
372: RAISE OKL_API.G_EXCEPTION_ERROR;
373: END IF;
374: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
375: fnd_log.STRING(fnd_log.level_statement,'okl.plsql.okl_sec_agreement_wf.raise_add_khr_approval_event', 'Begin Add Contract Approval Processing');
368: -- Check if activity started successfully
369: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
370: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
371: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
372: RAISE OKL_API.G_EXCEPTION_ERROR;
373: END IF;
374: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
375: fnd_log.STRING(fnd_log.level_statement,'okl.plsql.okl_sec_agreement_wf.raise_add_khr_approval_event', 'Begin Add Contract Approval Processing');
376: END IF;
382: x_return_status => x_return_status,
383: x_name => l_requester,
384: x_description => l_name);
385:
386: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
387: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
388: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
389: RAISE OKL_API.G_EXCEPTION_ERROR;
390: END IF;
383: x_name => l_requester,
384: x_description => l_name);
385:
386: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
387: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
388: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
389: RAISE OKL_API.G_EXCEPTION_ERROR;
390: END IF;
391: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
384: x_description => l_name);
385:
386: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
387: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
388: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
389: RAISE OKL_API.G_EXCEPTION_ERROR;
390: END IF;
391: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
392: fnd_log.STRING(fnd_log.level_statement,'okl.plsql.okl_sec_agreement_wf.raise_add_khr_approval_event', 'After l_get_agent l_requester : ' || l_requester);
385:
386: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
387: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
388: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
389: RAISE OKL_API.G_EXCEPTION_ERROR;
390: END IF;
391: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
392: fnd_log.STRING(fnd_log.level_statement,'okl.plsql.okl_sec_agreement_wf.raise_add_khr_approval_event', 'After l_get_agent l_requester : ' || l_requester);
393: END IF;
403: -- Get the Investor Agreement Number
404: OPEN c_fetch_ia_number_csr(l_agreement_id);
405: FETCH c_fetch_ia_number_csr INTO l_agreement_num;
406: IF c_fetch_ia_number_csr%NOTFOUND THEN
407: OKL_API.set_message(p_app_name => G_APP_NAME,
408: p_msg_name => G_NO_MATCHING_RECORD,
409: p_token1 => G_COL_NAME_TOKEN,
410: p_token1_value => 'OKC_K_HEADERS_V.ID');
411: RAISE OKL_API.G_EXCEPTION_ERROR;
407: OKL_API.set_message(p_app_name => G_APP_NAME,
408: p_msg_name => G_NO_MATCHING_RECORD,
409: p_token1 => G_COL_NAME_TOKEN,
410: p_token1_value => 'OKC_K_HEADERS_V.ID');
411: RAISE OKL_API.G_EXCEPTION_ERROR;
412: END IF;
413: CLOSE c_fetch_ia_number_csr;
414: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
415: fnd_log.STRING(fnd_log.level_statement,'okl.plsql.okl_sec_agreement_wf.raise_add_khr_approval_event','After c_fetch_ia_number_csr l_agreement_num : ' || l_agreement_num);
417: --Get Pool Number
418: OPEN c_fetch_pool_number_csr(p_pool_id);
419: FETCH c_fetch_pool_number_csr into l_pool_number;
420: IF c_fetch_pool_number_csr%NOTFOUND THEN
421: OKL_API.set_message(p_app_name => G_APP_NAME,
422: p_msg_name => G_NO_MATCHING_RECORD,
423: p_token1 => G_COL_NAME_TOKEN,
424: p_token1_value => 'OKL_POOLS.NUMBER');
425: RAISE OKL_API.G_EXCEPTION_ERROR;
421: OKL_API.set_message(p_app_name => G_APP_NAME,
422: p_msg_name => G_NO_MATCHING_RECORD,
423: p_token1 => G_COL_NAME_TOKEN,
424: p_token1_value => 'OKL_POOLS.NUMBER');
425: RAISE OKL_API.G_EXCEPTION_ERROR;
426: END IF;
427: CLOSE c_fetch_pool_number_csr ;
428: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
429: fnd_log.STRING(fnd_log.level_statement,'okl.plsql.okl_sec_agreement_wf.raise_add_khr_approval_event', 'c_fetch_pool_number_csr returned l_pool_number : ' || l_pool_number);
439: -- Get the Application ID
440: OPEN c_get_app_id_csr;
441: FETCH c_get_app_id_csr INTO l_application_id;
442: IF c_get_app_id_csr%NOTFOUND THEN
443: OKL_API.set_message(p_app_name => G_APP_NAME,
444: p_msg_name => G_NO_MATCHING_RECORD,
445: p_token1 => G_COL_NAME_TOKEN,
446: p_token1_value => 'Application id');
447: RAISE OKL_API.G_EXCEPTION_ERROR;
443: OKL_API.set_message(p_app_name => G_APP_NAME,
444: p_msg_name => G_NO_MATCHING_RECORD,
445: p_token1 => G_COL_NAME_TOKEN,
446: p_token1_value => 'Application id');
447: RAISE OKL_API.G_EXCEPTION_ERROR;
448: END IF;
449: CLOSE c_get_app_id_csr;
450: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
451: fnd_log.STRING(fnd_log.level_statement,'okl.plsql.okl_sec_agreement_wf.raise_add_khr_approval_event', 'After Get the Application ID c_get_app_id_csr l_application_id : ' || l_application_id);
455: OPEN c_get_trx_type_csr(G_TRANS_APP_NAME);
456: FETCH c_get_trx_type_csr INTO l_trans_type_id,
457: l_trans_appl_id;
458: IF c_get_trx_type_csr%NOTFOUND THEN
459: OKL_API.set_message(p_app_name => G_APP_NAME,
460: p_msg_name => G_NO_MATCHING_RECORD,
461: p_token1 => G_COL_NAME_TOKEN,
462: p_token1_value => 'AME Transcation TYPE id, Application id');
463: RAISE OKL_API.G_EXCEPTION_ERROR;
459: OKL_API.set_message(p_app_name => G_APP_NAME,
460: p_msg_name => G_NO_MATCHING_RECORD,
461: p_token1 => G_COL_NAME_TOKEN,
462: p_token1_value => 'AME Transcation TYPE id, Application id');
463: RAISE OKL_API.G_EXCEPTION_ERROR;
464: END IF;
465: CLOSE c_get_trx_type_csr;
466:
467: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
482: wf_event.AddParameterToList(G_WF_ITM_REQUESTER,l_requester,l_parameter_list);
483: wf_event.AddParameterToList(G_WF_ITM_REQUESTER_ID,l_requester_id,l_parameter_list);
484: wf_event.AddParameterToList(G_WF_ITM_ORG_ID, mo_global.get_current_org_id ,l_parameter_list);
485: ELSE
486: OKL_API.set_message(p_app_name => G_APP_NAME,
487: p_msg_name => G_INVALID_APP);
488: RAISE OKL_API.G_EXCEPTION_ERROR;
489: END IF; -- l_application_id
490: ELSIF l_approval_option = G_IA_ADD_CONTRACTS_APPRV_WF THEN
484: wf_event.AddParameterToList(G_WF_ITM_ORG_ID, mo_global.get_current_org_id ,l_parameter_list);
485: ELSE
486: OKL_API.set_message(p_app_name => G_APP_NAME,
487: p_msg_name => G_INVALID_APP);
488: RAISE OKL_API.G_EXCEPTION_ERROR;
489: END IF; -- l_application_id
490: ELSIF l_approval_option = G_IA_ADD_CONTRACTS_APPRV_WF THEN
491: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
492: fnd_log.STRING(fnd_log.level_statement,'okl.plsql.okl_sec_agreement_wf.raise_add_khr_approval_event', 'l_approval_option ' || l_approval_option);
501: wf_event.AddParameterToList(G_WF_ITM_REQUESTER,l_requester,l_parameter_list);
502: wf_event.AddParameterToList(G_WF_ITM_REQUESTER_ID,l_requester_id,l_parameter_list);
503: wf_event.AddParameterToList(G_WF_ITM_ORG_ID, mo_global.get_current_org_id ,l_parameter_list);
504: ELSE
505: RAISE OKL_API.G_EXCEPTION_ERROR;
506: END IF; -- l_approval_option
507:
508: -- Raise Event
509: wf_event.RAISE(p_event_name => l_event_name,
514: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
515: fnd_log.STRING(fnd_log.level_statement,'okl.plsql.okl_sec_agreement_wf.raise_add_khr_approval_event', 'Worklow Intiated and Approval Sent');
516: END IF;
517:
518: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
519: x_msg_data => x_msg_data);
520: EXCEPTION
521: WHEN OKL_API.G_EXCEPTION_ERROR THEN
522: x_return_status := OKL_API.G_RET_STS_ERROR;
517:
518: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
519: x_msg_data => x_msg_data);
520: EXCEPTION
521: WHEN OKL_API.G_EXCEPTION_ERROR THEN
522: x_return_status := OKL_API.G_RET_STS_ERROR;
523: IF c_fetch_ia_number_csr%ISOPEN THEN
524: CLOSE c_fetch_ia_number_csr;
525: END IF;
518: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
519: x_msg_data => x_msg_data);
520: EXCEPTION
521: WHEN OKL_API.G_EXCEPTION_ERROR THEN
522: x_return_status := OKL_API.G_RET_STS_ERROR;
523: IF c_fetch_ia_number_csr%ISOPEN THEN
524: CLOSE c_fetch_ia_number_csr;
525: END IF;
526: IF c_get_app_id_csr%ISOPEN THEN
534: END IF;
535: IF c_fetch_pool_number_csr%ISOPEN THEN
536: CLOSE c_fetch_pool_number_csr;
537: END IF;
538: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
539: p_api_name => l_api_name,
540: p_pkg_name => G_PKG_NAME,
541: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
542: x_msg_count => x_msg_count,
537: END IF;
538: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
539: p_api_name => l_api_name,
540: p_pkg_name => G_PKG_NAME,
541: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
542: x_msg_count => x_msg_count,
543: x_msg_data => x_msg_data,
544: p_api_type => G_API_TYPE);
545: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
541: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
542: x_msg_count => x_msg_count,
543: x_msg_data => x_msg_data,
544: p_api_type => G_API_TYPE);
545: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
546: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
547: IF c_fetch_ia_number_csr%ISOPEN THEN
548: CLOSE c_fetch_ia_number_csr;
549: END IF;
542: x_msg_count => x_msg_count,
543: x_msg_data => x_msg_data,
544: p_api_type => G_API_TYPE);
545: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
546: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
547: IF c_fetch_ia_number_csr%ISOPEN THEN
548: CLOSE c_fetch_ia_number_csr;
549: END IF;
550: IF c_get_app_id_csr%ISOPEN THEN
558: END IF;
559: IF c_fetch_pool_number_csr%ISOPEN THEN
560: CLOSE c_fetch_pool_number_csr;
561: END IF;
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 => 'OKL_API.G_RET_STS_UNEXP_ERROR',
566: x_msg_count => x_msg_count,
561: END IF;
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 => 'OKL_API.G_RET_STS_UNEXP_ERROR',
566: x_msg_count => x_msg_count,
567: x_msg_data => x_msg_data,
568: p_api_type => G_API_TYPE);
569: WHEN OTHERS THEN
582: IF c_fetch_pool_number_csr%ISOPEN THEN
583: CLOSE c_fetch_pool_number_csr;
584: END IF;
585: -- store SQL error message on message stack
586: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
587: p_api_name => l_api_name,
588: p_pkg_name => G_PKG_NAME,
589: p_exc_name => 'OTHERS',
590: x_msg_count => x_msg_count,
662: BEGIN
663:
664: l_api_version := 1;
665: l_init_msg_list := OKC_API.G_TRUE;
666: l_return_status := OKL_API.G_RET_STS_SUCCESS;
667: l_message := l_message || '