34: SAVEPOINT pop_err_msgs_pvt;
35: l_msg_count := 0;
36: -- Initialize API return status to success
37: l_return_status :=
38: okl_api.start_activity (l_api_name,
39: g_pkg_name,
40: l_init_msg_list,
41: l_api_version,
42: l_api_version,
43: '_PVT',
44: l_return_status
45: );
46:
47: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
48: RAISE okl_api.g_exception_unexpected_error;
49: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
50: RAISE okl_api.g_exception_error;
51: END IF;
44: l_return_status
45: );
46:
47: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
48: RAISE okl_api.g_exception_unexpected_error;
49: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
50: RAISE okl_api.g_exception_error;
51: END IF;
52:
45: );
46:
47: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
48: RAISE okl_api.g_exception_unexpected_error;
49: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
50: RAISE okl_api.g_exception_error;
51: END IF;
52:
53: --Step 1
46:
47: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
48: RAISE okl_api.g_exception_unexpected_error;
49: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
50: RAISE okl_api.g_exception_error;
51: END IF;
52:
53: --Step 1
54: --insert all new error stack errors
61: p_vlrv_tbl => l_error_tbl,
62: x_vlrv_tbl => lx_error_tbl
63: );
64:
65: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
66: RAISE okl_api.g_exception_unexpected_error;
67: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
68: RAISE okl_api.g_exception_error;
69: END IF;
62: x_vlrv_tbl => lx_error_tbl
63: );
64:
65: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
66: RAISE okl_api.g_exception_unexpected_error;
67: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
68: RAISE okl_api.g_exception_error;
69: END IF;
70:
63: );
64:
65: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
66: RAISE okl_api.g_exception_unexpected_error;
67: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
68: RAISE okl_api.g_exception_error;
69: END IF;
70:
71: --Step 3
64:
65: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
66: RAISE okl_api.g_exception_unexpected_error;
67: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
68: RAISE okl_api.g_exception_error;
69: END IF;
70:
71: --Step 3
72: --set output variables
73: x_return_status := l_return_status;
74: x_msg_count := l_msg_count;
75: x_msg_data := l_msg_data;
76: EXCEPTION
77: WHEN okl_api.g_exception_error THEN
78: ROLLBACK TO pop_err_msgs_pvt;
79: x_return_status := okl_api.g_ret_sts_unexp_error;
80: x_msg_count := l_msg_count;
81: x_msg_data := l_msg_data;
75: x_msg_data := l_msg_data;
76: EXCEPTION
77: WHEN okl_api.g_exception_error THEN
78: ROLLBACK TO pop_err_msgs_pvt;
79: x_return_status := okl_api.g_ret_sts_unexp_error;
80: x_msg_count := l_msg_count;
81: x_msg_data := l_msg_data;
82: WHEN okl_api.g_exception_unexpected_error THEN
83: ROLLBACK TO pop_err_msgs_pvt;
78: ROLLBACK TO pop_err_msgs_pvt;
79: x_return_status := okl_api.g_ret_sts_unexp_error;
80: x_msg_count := l_msg_count;
81: x_msg_data := l_msg_data;
82: WHEN okl_api.g_exception_unexpected_error THEN
83: ROLLBACK TO pop_err_msgs_pvt;
84: x_return_status := okl_api.g_ret_sts_error;
85: x_msg_count := l_msg_count;
86: x_msg_data := l_msg_data;
80: x_msg_count := l_msg_count;
81: x_msg_data := l_msg_data;
82: WHEN okl_api.g_exception_unexpected_error THEN
83: ROLLBACK TO pop_err_msgs_pvt;
84: x_return_status := okl_api.g_ret_sts_error;
85: x_msg_count := l_msg_count;
86: x_msg_data := l_msg_data;
87: WHEN OTHERS THEN
88: ROLLBACK TO pop_err_msgs_pvt;
85: x_msg_count := l_msg_count;
86: x_msg_data := l_msg_data;
87: WHEN OTHERS THEN
88: ROLLBACK TO pop_err_msgs_pvt;
89: x_return_status := okl_api.g_ret_sts_unexp_error;
90: okl_api.set_message (p_app_name => 'OKL',
91: p_msg_name => 'OKL_DB_ERROR',
92: p_token1 => 'PROG_NAME',
93: p_token1_value => 'populate_error_messages',
86: x_msg_data := l_msg_data;
87: WHEN OTHERS THEN
88: ROLLBACK TO pop_err_msgs_pvt;
89: x_return_status := okl_api.g_ret_sts_unexp_error;
90: okl_api.set_message (p_app_name => 'OKL',
91: p_msg_name => 'OKL_DB_ERROR',
92: p_token1 => 'PROG_NAME',
93: p_token1_value => 'populate_error_messages',
94: p_token2 => 'SQLCODE',
419: --recipt to invoice currency conversion code
420: IF l_invoice_currency_code <> l_receipt_currency THEN
421: l_exchange_rate_type :=OKL_RECEIPTS_PVT.cross_currency_rate_type(l_org_id);-- FND_PROFILE.value('AR_CROSS_CURRENCY_RATE_TYPE');
422: IF l_exchange_rate_type IS NULL THEN
423: OKL_API.set_message( p_app_name => G_APP_NAME
424: ,p_msg_name => 'OKL_BPD_CONV_TYPE_NOT_FOUND'
425: );
426: IF (fnd_msg_pub.count_msg > 0) THEN
427: FOR l_counter IN 1 .. fnd_msg_pub.count_msg
451: ,l_exchange_rate_type
452: );
453: IF l_conversion_rate IN (0,-1) THEN
454: -- Message Text: No exchange rate defined
455: x_return_status := okl_api.G_RET_STS_ERROR;
456: okl_api.set_message( p_app_name => G_APP_NAME,
457: p_msg_name => 'OKL_BPD_NO_EXCHANGE_RATE');
458: IF (fnd_msg_pub.count_msg > 0) THEN
459: FOR l_counter IN 1 .. fnd_msg_pub.count_msg
452: );
453: IF l_conversion_rate IN (0,-1) THEN
454: -- Message Text: No exchange rate defined
455: x_return_status := okl_api.G_RET_STS_ERROR;
456: okl_api.set_message( p_app_name => G_APP_NAME,
457: p_msg_name => 'OKL_BPD_NO_EXCHANGE_RATE');
458: IF (fnd_msg_pub.count_msg > 0) THEN
459: FOR l_counter IN 1 .. fnd_msg_pub.count_msg
460: LOOP
533: p_appl_tbl => l_appl_tbl,
534: x_cash_receipt_id => l_cash_receipt_id
535: );
536:
537: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
538: okl_api.set_message
539: (p_app_name => g_app_name,
540: p_msg_name => 'OKL_DB_ERROR',
541: p_token1 => 'PROG_NAME',
534: x_cash_receipt_id => l_cash_receipt_id
535: );
536:
537: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
538: okl_api.set_message
539: (p_app_name => g_app_name,
540: p_msg_name => 'OKL_DB_ERROR',
541: p_token1 => 'PROG_NAME',
542: p_token1_value => 'int_ext_csh_app',
571: EXIT;
572:
573: END IF;
574:
575: IF (l_return_status = okl_api.g_ret_sts_error) THEN
576: /* okc_api.set_message (p_app_name => g_app_name,
577: p_msg_name => 'OKL_BPD_CASH_APP_FAIL',
578: p_token1 => 'CUSTOMER_NUM',
579: p_token1_value => l_cust_num,
630: SET rcpt_status_code = l_rcpt_status_code
631: WHERE ID = l_rct_id;
632:
633: -- Update Ar receipt Id , if it successfully created
634: IF (l_return_status = okl_api.g_ret_sts_success) THEN
635: UPDATE okl_trx_csh_receipt_b
636: SET ID = l_cash_receipt_id
637: WHERE ID = l_rct_id;
638:
648: CLOSE c_get_batch_receipts;
649: IF l_trx_status_code = 'ERROR' THEN
650: ROLLBACK TO process_batch_pvt;
651: END IF;
652: x_return_status := OKL_API.G_RET_STS_SUCCESS;
653: x_trx_status_code := l_trx_status_code;
654: EXCEPTION
655: WHEN OTHERS THEN
656: ROLLBACK TO process_batch_pvt;
653: x_trx_status_code := l_trx_status_code;
654: EXCEPTION
655: WHEN OTHERS THEN
656: ROLLBACK TO process_batch_pvt;
657: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
658: x_trx_status_code := 'ERROR';
659: END process_batch;
660:
661: ---------------------------------------------------------------------------
1057: --recipt to invoice currency conversion code
1058: IF l_invoice_currency_code <> l_receipt_currency THEN
1059: l_exchange_rate_type := OKL_RECEIPTS_PVT.cross_currency_rate_type(l_org_id);--FND_PROFILE.value('AR_CROSS_CURRENCY_RATE_TYPE');
1060: IF l_exchange_rate_type IS NULL THEN
1061: OKL_API.set_message( p_app_name => G_APP_NAME
1062: ,p_msg_name => 'OKL_BPD_CONV_TYPE_NOT_FOUND'
1063: );
1064: RAISE G_EXCEPTION_HALT_VALIDATION;
1065: ELSE
1069: ,l_exchange_rate_type
1070: );
1071: IF l_conversion_rate IN (0,-1) THEN
1072: -- Message Text: No exchange rate defined
1073: x_return_status := okl_api.G_RET_STS_ERROR;
1074: okl_api.set_message( p_app_name => G_APP_NAME,
1075: p_msg_name => 'OKL_BPD_NO_EXCHANGE_RATE');
1076: RAISE G_EXCEPTION_HALT_VALIDATION;
1077: END IF;
1070: );
1071: IF l_conversion_rate IN (0,-1) THEN
1072: -- Message Text: No exchange rate defined
1073: x_return_status := okl_api.G_RET_STS_ERROR;
1074: okl_api.set_message( p_app_name => G_APP_NAME,
1075: p_msg_name => 'OKL_BPD_NO_EXCHANGE_RATE');
1076: RAISE G_EXCEPTION_HALT_VALIDATION;
1077: END IF;
1078: END IF;
1131: p_appl_tbl => l_appl_tbl,
1132: x_cash_receipt_id => l_cash_receipt_id
1133: );
1134:
1135: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
1136: /* okc_api.set_message (p_app_name => g_app_name,
1137: p_msg_name => 'OKL_BPD_CASH_APP_FAIL',
1138: p_token1 => 'CUSTOMER_NUM',
1139: p_token1_value => l_cust_num,
1143: p_token3_value => l_khr_id
1144: );*/
1145: l_error := 'E';
1146: EXIT;
1147: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
1148: /* okc_api.set_message (p_app_name => g_app_name,
1149: p_msg_name => 'OKL_BPD_CASH_APP_FAIL',
1150: p_token1 => 'CUSTOMER_NUM',
1151: p_token1_value => l_cust_num,
1235: x_msg_data => l_msg_data,
1236: p_vlrv_tbl => l_old_error_tbl
1237: );
1238:
1239: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
1240: RAISE okl_api.g_exception_unexpected_error;
1241: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
1242: RAISE okl_api.g_exception_error;
1243: END IF;
1236: p_vlrv_tbl => l_old_error_tbl
1237: );
1238:
1239: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
1240: RAISE okl_api.g_exception_unexpected_error;
1241: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
1242: RAISE okl_api.g_exception_error;
1243: END IF;
1244: END IF;
1237: );
1238:
1239: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
1240: RAISE okl_api.g_exception_unexpected_error;
1241: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
1242: RAISE okl_api.g_exception_error;
1243: END IF;
1244: END IF;
1245:
1238:
1239: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
1240: RAISE okl_api.g_exception_unexpected_error;
1241: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
1242: RAISE okl_api.g_exception_error;
1243: END IF;
1244: END IF;
1245:
1246: l_btcv_rec.ID := l_btc_id;
1256:
1257: IF l_error_tbl.COUNT > 0 THEN
1258: i := l_error_tbl.LAST;
1259: END IF;
1260: IF (l_return_status = okl_api.g_ret_sts_unexp_error)
1261: OR (l_return_status = okl_api.g_ret_sts_error) THEN
1262: IF (fnd_msg_pub.count_msg > 0) THEN
1263: FOR l_counter IN 1 .. fnd_msg_pub.count_msg
1264: LOOP
1257: IF l_error_tbl.COUNT > 0 THEN
1258: i := l_error_tbl.LAST;
1259: END IF;
1260: IF (l_return_status = okl_api.g_ret_sts_unexp_error)
1261: OR (l_return_status = okl_api.g_ret_sts_error) THEN
1262: IF (fnd_msg_pub.count_msg > 0) THEN
1263: FOR l_counter IN 1 .. fnd_msg_pub.count_msg
1264: LOOP
1265: i := i + 1;
1312: l_msg_data,
1313: l_btcv_rec
1314: );
1315:
1316: IF (l_return_status = okl_api.g_ret_sts_unexp_error)
1317: OR (l_return_status = okl_api.g_ret_sts_error) THEN
1318: -- problems deleting delinquent batches.
1319: okc_api.set_message (p_app_name => g_app_name,
1320: p_msg_name => 'OKL_BPD_BATCH_FAIL_DEL',
1313: l_btcv_rec
1314: );
1315:
1316: IF (l_return_status = okl_api.g_ret_sts_unexp_error)
1317: OR (l_return_status = okl_api.g_ret_sts_error) THEN
1318: -- problems deleting delinquent batches.
1319: okc_api.set_message (p_app_name => g_app_name,
1320: p_msg_name => 'OKL_BPD_BATCH_FAIL_DEL',
1321: p_token1 => 'BATCH_NAME',
1359: x_msg_count := l_msg_count;
1360: x_msg_data := l_msg_data;
1361: EXCEPTION
1362: WHEN OTHERS THEN
1363: x_return_status := okl_api.g_ret_sts_unexp_error;
1364: x_msg_count := l_msg_count;
1365: x_msg_data := l_msg_data;
1366: END int_ext_csh_app;
1367: END okl_int_ext_csh_app_pvt;