87: EXCEPTION
88: WHEN FND_API.G_EXC_ERROR THEN
89: x_return_status := FND_API.G_RET_STS_ERROR;
90:
91: FND_MSG_PUB.Count_and_get(p_encoded => OKL_API.G_FALSE
92: ,p_count => x_msg_count
93: ,p_data => x_msg_data);
94: RETURN l_request_id;
95:
94: RETURN l_request_id;
95:
96: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
97: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
98: FND_MSG_PUB.Count_and_get(p_encoded => OKL_API.G_FALSE
99: ,p_count => x_msg_count
100: ,p_data => x_msg_data);
101: RETURN l_request_id;
102:
101: RETURN l_request_id;
102:
103: WHEN OTHERS THEN
104: FND_MSG_PUB.ADD_EXC_MSG('OKL_LOSS_PROV_PUB','SUBMIT_GENERAL_LOSS');
105: FND_MSG_PUB.Count_and_get(p_encoded => OKL_API.G_FALSE
106: ,p_count => x_msg_count
107: ,p_data => x_msg_data);
108: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
109: RETURN l_request_id;
113:
114: -- this procedure is used create a specific loss provision
115: PROCEDURE SPECIFIC_LOSS_PROVISION (
116: p_api_version IN NUMBER
117: ,p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE
118: ,x_msg_count OUT NOCOPY NUMBER
119: ,x_msg_data OUT NOCOPY VARCHAR2
120: ,x_return_status OUT NOCOPY VARCHAR2
121: ,p_slpv_rec IN slpv_rec_type)
125: l_api_name CONSTANT VARCHAR2(30) := 'SPECIFIC_LOSS_PROVISION';
126: l_slpv_rec slpv_rec_type := p_slpv_rec;
127:
128: BEGIN
129: x_return_status := OKL_API.G_RET_STS_SUCCESS;
130:
131: -- customer pre-processing
132:
133:
154: EXCEPTION
155: WHEN FND_API.G_EXC_ERROR THEN
156: x_return_status := FND_API.G_RET_STS_ERROR;
157:
158: FND_MSG_PUB.Count_and_get(p_encoded => OKL_API.G_FALSE
159: ,p_count => x_msg_count
160: ,p_data => x_msg_data);
161:
162: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
160: ,p_data => x_msg_data);
161:
162: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
163: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
164: FND_MSG_PUB.Count_and_get(p_encoded => OKL_API.G_FALSE
165: ,p_count => x_msg_count
166: ,p_data => x_msg_data);
167:
168: WHEN OTHERS THEN
166: ,p_data => x_msg_data);
167:
168: WHEN OTHERS THEN
169: FND_MSG_PUB.ADD_EXC_MSG('OKL_LOSS_PROV_PUB','SPECIFIC_LOSS_PROVISION');
170: FND_MSG_PUB.Count_and_get(p_encoded => OKL_API.G_FALSE
171: ,p_count => x_msg_count
172: ,p_data => x_msg_data);
173: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
174:
175: END SPECIFIC_LOSS_PROVISION;
176:
177: PROCEDURE SPECIFIC_LOSS_PROVISION (
178: p_api_version IN NUMBER
179: ,p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE
180: ,x_msg_count OUT NOCOPY NUMBER
181: ,x_msg_data OUT NOCOPY VARCHAR2
182: ,x_return_status OUT NOCOPY VARCHAR2
183: ,p_khr_id IN NUMBER
189: l_api_name CONSTANT VARCHAR2(30) := 'SPECIFIC_LOSS_PROVISION';
190: l_slpv_rec slpv_rec_type;
191:
192: BEGIN
193: x_return_status := OKL_API.G_RET_STS_SUCCESS;
194:
195: FOR x IN p_slpv_tbl.FIRST..p_slpv_tbl.LAST
196: LOOP
197: l_slpv_rec := NULL;
229: EXCEPTION
230: WHEN FND_API.G_EXC_ERROR THEN
231: x_return_status := FND_API.G_RET_STS_ERROR;
232:
233: FND_MSG_PUB.Count_and_get(p_encoded => OKL_API.G_FALSE
234: ,p_count => x_msg_count
235: ,p_data => x_msg_data);
236:
237: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
235: ,p_data => x_msg_data);
236:
237: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
238: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
239: FND_MSG_PUB.Count_and_get(p_encoded => OKL_API.G_FALSE
240: ,p_count => x_msg_count
241: ,p_data => x_msg_data);
242:
243: WHEN OTHERS THEN
241: ,p_data => x_msg_data);
242:
243: WHEN OTHERS THEN
244: FND_MSG_PUB.ADD_EXC_MSG('OKL_LOSS_PROV_PUB','SPECIFIC_LOSS_PROVISION');
245: FND_MSG_PUB.Count_and_get(p_encoded => OKL_API.G_FALSE
246: ,p_count => x_msg_count
247: ,p_data => x_msg_data);
248: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
249: