[Home] [Help]
PACKAGE BODY: APPS.OKL_CREDIT_MGNT_PUB
Source
1 PACKAGE BODY OKL_CREDIT_MGNT_PUB AS
2 /* $Header: OKLPCMTB.pls 115.2 2003/02/05 18:32:47 rgalipo noship $ */
3
4 --
5 PROCEDURE submit_credit_request
6 (p_api_version IN NUMBER
7 ,p_init_msg_list IN VARCHAR2 DEFAULT OKL_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 ,p_contract_id IN NUMBER
12 ,p_review_type IN VARCHAR2 -- application purpose
13 ,p_credit_classification IN VARCHAR2
14 ,p_requested_amount IN NUMBER
15 ,p_contact_party_id IN NUMBER
16 ,p_notes IN VARCHAR2
17 ,p_chr_rec IN okl_credit_mgnt_pvt.l_chr_rec
18 ) IS
19
20 l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
21 l_api_version CONSTANT NUMBER := 1;
22
23
24 BEGIN
25
26 l_return_status := Okl_Api.START_ACTIVITY(p_api_name => G_APP_NAME,
27 p_pkg_name => G_PKG_NAME,
28 p_init_msg_list => p_init_msg_list,
29 l_api_version => l_api_version,
30 p_api_version => p_api_version,
31 p_api_type => G_API_TYPE,
32 x_return_status => l_return_status);
33
34 IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
35 RAISE G_EXCEPTION_UNEXPECTED_ERROR;
36 ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
37 RAISE G_EXCEPTION_ERROR;
38 END IF;
39
40
41 okl_credit_mgnt_pvt.submit_credit_request
42 (p_api_version => p_api_version
43 ,p_init_msg_list => p_init_msg_list
44 ,x_return_status => x_return_status
45 ,x_msg_count => x_msg_count
46 ,x_msg_data => x_msg_data
47 ,p_contract_id => p_contract_id
48 ,p_review_type => p_review_type
49 ,p_credit_classification => p_credit_classification
50 ,p_requested_amount => p_requested_amount
51 ,p_contact_party_id => p_contact_party_id
52 ,p_notes => p_notes
53 ,p_chr_rec => p_chr_rec
54 );
55
56
57 IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
58 RAISE G_EXCEPTION_UNEXPECTED_ERROR;
59 ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
60 RAISE G_EXCEPTION_ERROR;
61 END IF;
62
63 okl_api.end_activity(x_msg_count => x_msg_count,
64 x_msg_data => x_msg_data);
65 -- x_return_status := l_return_status;
66
67 EXCEPTION
68 WHEN G_EXCEPTION_ERROR THEN
69 x_return_status := Okl_Api.HANDLE_EXCEPTIONS(p_api_name => G_APP_NAME,
70 p_pkg_name => G_PKG_NAME,
71 p_exc_name => G_EXC_NAME_ERROR,
72 x_msg_count => x_msg_count,
73 x_msg_data => x_msg_data,
74 p_api_type => G_API_TYPE);
75 WHEN G_EXCEPTION_UNEXPECTED_ERROR THEN
76 x_return_status := Okl_Api.HANDLE_EXCEPTIONS(p_api_name => G_APP_NAME,
77 p_pkg_name => G_PKG_NAME,
78 p_exc_name => G_EXC_NAME_UNEXP_ERROR,
79 x_msg_count => x_msg_count,
80 x_msg_data => x_msg_data,
81 p_api_type => G_API_TYPE);
82 WHEN OTHERS THEN
83 x_return_status := Okl_Api.HANDLE_EXCEPTIONS(p_api_name => G_APP_NAME,
84 p_pkg_name => G_PKG_NAME,
85 p_exc_name => G_EXC_NAME_OTHERS,
86 x_msg_count => x_msg_count,
87 x_msg_data => x_msg_data,
88 p_api_type => G_API_TYPE);
89 END; -- submit_credit_request
90
91
92 PROCEDURE compile_credit_request
93 (p_api_version IN NUMBER
94 ,p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE
95 ,x_return_status OUT NOCOPY VARCHAR2
96 ,x_msg_count OUT NOCOPY NUMBER
97 ,x_msg_data OUT NOCOPY VARCHAR2
98 ,p_contract_id IN NUMBER
99 ,x_chr_rec OUT NOCOPY okl_credit_mgnt_pvt.l_chr_rec
100 ) IS
101
102 l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
103 l_api_version CONSTANT NUMBER := 1;
104
105
106 BEGIN
107
108 l_return_status := Okl_Api.START_ACTIVITY(p_api_name => G_APP_NAME,
109 p_pkg_name => G_PKG_NAME,
110 p_init_msg_list => p_init_msg_list,
111 l_api_version => l_api_version,
112 p_api_version => p_api_version,
113 p_api_type => G_API_TYPE,
114 x_return_status => l_return_status);
115
116 IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
117 RAISE G_EXCEPTION_UNEXPECTED_ERROR;
118 ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
119 RAISE G_EXCEPTION_ERROR;
120 END IF;
121
122 okl_credit_mgnt_pvt.compile_credit_request
123 (p_api_version => p_api_version
124 ,p_init_msg_list => p_init_msg_list
125 ,x_return_status => x_return_status
126 ,x_msg_count => x_msg_count
127 ,x_msg_data => x_msg_data
128 ,p_contract_id => p_contract_id
129 ,x_chr_rec => x_chr_rec
130 );
131
132
133 IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
134 RAISE G_EXCEPTION_UNEXPECTED_ERROR;
135 ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
136 RAISE G_EXCEPTION_ERROR;
137 END IF;
138
139 okl_api.end_activity(x_msg_count => x_msg_count,
140 x_msg_data => x_msg_data);
141
142 x_return_status := l_return_status;
143
144 EXCEPTION
145 WHEN G_EXCEPTION_ERROR THEN
146 x_return_status := Okl_Api.HANDLE_EXCEPTIONS(p_api_name => G_APP_NAME,
147 p_pkg_name => G_PKG_NAME,
148 p_exc_name => G_EXC_NAME_ERROR,
149 x_msg_count => x_msg_count,
150 x_msg_data => x_msg_data,
151 p_api_type => G_API_TYPE);
152 WHEN G_EXCEPTION_UNEXPECTED_ERROR THEN
153 x_return_status := Okl_Api.HANDLE_EXCEPTIONS(p_api_name => G_APP_NAME,
154 p_pkg_name => G_PKG_NAME,
155 p_exc_name => G_EXC_NAME_UNEXP_ERROR,
156 x_msg_count => x_msg_count,
157 x_msg_data => x_msg_data,
158 p_api_type => G_API_TYPE);
159 WHEN OTHERS THEN
160 x_return_status := Okl_Api.HANDLE_EXCEPTIONS(p_api_name => G_APP_NAME,
161 p_pkg_name => G_PKG_NAME,
162 p_exc_name => G_EXC_NAME_OTHERS,
163 x_msg_count => x_msg_count,
164 x_msg_data => x_msg_data,
165 p_api_type => G_API_TYPE);
166 END compile_credit_request;
167
168
169
170 END OKL_CREDIT_MGNT_PUB;