15: -- End of comments
16:
17:
18: PROCEDURE create_hold_setup_trx( p_api_version IN NUMBER,
19: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
20: p_book_type_code IN fa_book_controls.book_type_code%TYPE,
21: x_return_status OUT NOCOPY VARCHAR2,
22: x_msg_count OUT NOCOPY NUMBER,
23: x_msg_data OUT NOCOPY VARCHAR2,
25: ) IS
26:
27:
28:
29: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
30: l_dummy VARCHAR2(1);
31:
32:
33: lp_amhv_tbl amhv_tbl_type;
55:
56:
57: BEGIN
58:
59: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
60: G_PKG_NAME,
61: p_init_msg_list,
62: l_api_version,
63: p_api_version,
65: x_return_status);
66:
67:
68:
69: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
70: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
71: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
72: RAISE OKL_API.G_EXCEPTION_ERROR;
73: END IF;
66:
67:
68:
69: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
70: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
71: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
72: RAISE OKL_API.G_EXCEPTION_ERROR;
73: END IF;
74:
67:
68:
69: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
70: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
71: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
72: RAISE OKL_API.G_EXCEPTION_ERROR;
73: END IF;
74:
75: i := 0;
68:
69: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
70: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
71: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
72: RAISE OKL_API.G_EXCEPTION_ERROR;
73: END IF;
74:
75: i := 0;
76:
112: END IF;
113:
114:
115:
116: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
117:
118: EXCEPTION
119: WHEN OKL_API.G_EXCEPTION_ERROR THEN
120: IF l_amortholdsetup_csr%ISOPEN THEN
115:
116: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
117:
118: EXCEPTION
119: WHEN OKL_API.G_EXCEPTION_ERROR THEN
120: IF l_amortholdsetup_csr%ISOPEN THEN
121: CLOSE l_amortholdsetup_csr;
122: END IF;
123: IF l_facatbookdef_csr%ISOPEN THEN
122: END IF;
123: IF l_facatbookdef_csr%ISOPEN THEN
124: CLOSE l_facatbookdef_csr;
125: END IF;
126: x_return_status := OKL_API.HANDLE_EXCEPTIONS
127: (
128: l_api_name,
129: G_PKG_NAME,
130: 'OKL_API.G_RET_STS_ERROR',
126: x_return_status := OKL_API.HANDLE_EXCEPTIONS
127: (
128: l_api_name,
129: G_PKG_NAME,
130: 'OKL_API.G_RET_STS_ERROR',
131: x_msg_count,
132: x_msg_data,
133: '_PVT'
134: );
131: x_msg_count,
132: x_msg_data,
133: '_PVT'
134: );
135: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
136: IF l_amortholdsetup_csr%ISOPEN THEN
137: CLOSE l_amortholdsetup_csr;
138: END IF;
139: IF l_facatbookdef_csr%ISOPEN THEN
138: END IF;
139: IF l_facatbookdef_csr%ISOPEN THEN
140: CLOSE l_facatbookdef_csr;
141: END IF;
142: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
143: (
144: l_api_name,
145: G_PKG_NAME,
146: 'OKL_API.G_RET_STS_UNEXP_ERROR',
142: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
143: (
144: l_api_name,
145: G_PKG_NAME,
146: 'OKL_API.G_RET_STS_UNEXP_ERROR',
147: x_msg_count,
148: x_msg_data,
149: '_PVT'
150: );
154: END IF;
155: IF l_facatbookdef_csr%ISOPEN THEN
156: CLOSE l_facatbookdef_csr;
157: END IF;
158: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
159: (
160: l_api_name,
161: G_PKG_NAME,
162: 'OTHERS',