3: -------------------------------------------------------------------------------------------------
4: -- GLOBAL MESSAGE CONSTANTS
5: -------------------------------------------------------------------------------------------------
6: G_INVALID_CRITERIA CONSTANT VARCHAR2(200) := 'OKL_LLA_INVALID_CRITERIA';
7: G_FND_APP CONSTANT VARCHAR2(200) := OKL_API.G_FND_APP;
8: G_INVALID_VALUE CONSTANT VARCHAR2(200) := OKL_API.G_INVALID_VALUE;
9: G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_COL_NAME_TOKEN;
10: G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKC_CONTRACTS_UNEXP_ERROR';
11: G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'SQLerrm';
4: -- GLOBAL MESSAGE CONSTANTS
5: -------------------------------------------------------------------------------------------------
6: G_INVALID_CRITERIA CONSTANT VARCHAR2(200) := 'OKL_LLA_INVALID_CRITERIA';
7: G_FND_APP CONSTANT VARCHAR2(200) := OKL_API.G_FND_APP;
8: G_INVALID_VALUE CONSTANT VARCHAR2(200) := OKL_API.G_INVALID_VALUE;
9: G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_COL_NAME_TOKEN;
10: G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKC_CONTRACTS_UNEXP_ERROR';
11: G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'SQLerrm';
12: G_SQLCODE_TOKEN CONSTANT VARCHAR2(200) := 'SQLcode';
5: -------------------------------------------------------------------------------------------------
6: G_INVALID_CRITERIA CONSTANT VARCHAR2(200) := 'OKL_LLA_INVALID_CRITERIA';
7: G_FND_APP CONSTANT VARCHAR2(200) := OKL_API.G_FND_APP;
8: G_INVALID_VALUE CONSTANT VARCHAR2(200) := OKL_API.G_INVALID_VALUE;
9: G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_COL_NAME_TOKEN;
10: G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKC_CONTRACTS_UNEXP_ERROR';
11: G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'SQLerrm';
12: G_SQLCODE_TOKEN CONSTANT VARCHAR2(200) := 'SQLcode';
13: -------------------------------------------------------------------------------------------------
28: -------------------------------------------------------------------------------------------------
29: -- GLOBAL VARIABLES
30: -------------------------------------------------------------------------------------------------
31: G_PKG_NAME CONSTANT VARCHAR2(200) := 'OKL_DEAL_PARTIES_PVT';
32: G_APP_NAME CONSTANT VARCHAR2(3) := OKL_API.G_APP_NAME;
33: -------------------------------------------------------------------------------------------------
34:
35: PROCEDURE process_label_holder(
36: p_api_version IN NUMBER,
90: l_msg_index_out number;
91:
92: BEGIN
93: x_rgpv_rec := p_rgpv_rec;
94: x_return_status := OKL_API.START_ACTIVITY(
95: p_api_name => l_api_name,
96: p_pkg_name => g_pkg_name,
97: p_init_msg_list => p_init_msg_list,
98: l_api_version => l_api_version,
100: p_api_type => g_api_type,
101: x_return_status => x_return_status);
102:
103: -- check if activity started successfully
104: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
105: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
106: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
107: RAISE OKL_API.G_EXCEPTION_ERROR;
108: END IF;
101: x_return_status => x_return_status);
102:
103: -- check if activity started successfully
104: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
105: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
106: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
107: RAISE OKL_API.G_EXCEPTION_ERROR;
108: END IF;
109:
102:
103: -- check if activity started successfully
104: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
105: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
106: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
107: RAISE OKL_API.G_EXCEPTION_ERROR;
108: END IF;
109:
110: OPEN c_label_holder(p_chr_id => p_rgpv_rec.chr_id,
103: -- check if activity started successfully
104: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
105: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
106: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
107: RAISE OKL_API.G_EXCEPTION_ERROR;
108: END IF;
109:
110: OPEN c_label_holder(p_chr_id => p_rgpv_rec.chr_id,
111: p_rle_code => 'PRIVATE_LABEL');
112: FETCH c_label_holder INTO l_party_found;
113: CLOSE c_label_holder;
114:
115: IF (l_party_found = 'Y') THEN
116: OKL_API.set_message(
117: p_app_name => G_APP_NAME,
118: p_msg_name => 'OKL_LLA_PVT_LBL');
119: RAISE OKL_API.G_EXCEPTION_ERROR;
120: END IF;
115: IF (l_party_found = 'Y') THEN
116: OKL_API.set_message(
117: p_app_name => G_APP_NAME,
118: p_msg_name => 'OKL_LLA_PVT_LBL');
119: RAISE OKL_API.G_EXCEPTION_ERROR;
120: END IF;
121:
122: lp_cplv_rec.id := p_rgpv_rec.party_role_id;
123: lp_cplv_rec.object1_id1 := p_rgpv_rec.party_id;
155: x_cplv_rec => lx_cplv_rec,
156: p_kplv_rec => lp_kplv_rec,
157: x_kplv_rec => lx_kplv_rec);
158:
159: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
160: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
161: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
162: RAISE OKL_API.G_EXCEPTION_ERROR;
163: END IF;
156: p_kplv_rec => lp_kplv_rec,
157: x_kplv_rec => lx_kplv_rec);
158:
159: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
160: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
161: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
162: RAISE OKL_API.G_EXCEPTION_ERROR;
163: END IF;
164: ELSE
157: x_kplv_rec => lx_kplv_rec);
158:
159: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
160: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
161: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
162: RAISE OKL_API.G_EXCEPTION_ERROR;
163: END IF;
164: ELSE
165:
158:
159: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
160: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
161: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
162: RAISE OKL_API.G_EXCEPTION_ERROR;
163: END IF;
164: ELSE
165:
166: OKL_K_PARTY_ROLES_PVT.update_k_party_role(
173: x_cplv_rec => lx_cplv_rec,
174: p_kplv_rec => lp_kplv_rec,
175: x_kplv_rec => lx_kplv_rec);
176:
177: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
178: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
179: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
180: RAISE OKL_API.G_EXCEPTION_ERROR;
181: END IF;
174: p_kplv_rec => lp_kplv_rec,
175: x_kplv_rec => lx_kplv_rec);
176:
177: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
178: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
179: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
180: RAISE OKL_API.G_EXCEPTION_ERROR;
181: END IF;
182:
175: x_kplv_rec => lx_kplv_rec);
176:
177: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
178: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
179: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
180: RAISE OKL_API.G_EXCEPTION_ERROR;
181: END IF;
182:
183: END IF;
176:
177: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
178: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
179: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
180: RAISE OKL_API.G_EXCEPTION_ERROR;
181: END IF;
182:
183: END IF;
184:
198: x_msg_data => x_msg_data,
199: p_rgpv_rec => lp_lalabl_rgpv_rec,
200: x_rgpv_rec => lx_lalabl_rgpv_rec);
201:
202: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
203: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
204: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
205: RAISE OKL_API.G_EXCEPTION_ERROR;
206: END IF;
199: p_rgpv_rec => lp_lalabl_rgpv_rec,
200: x_rgpv_rec => lx_lalabl_rgpv_rec);
201:
202: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
203: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
204: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
205: RAISE OKL_API.G_EXCEPTION_ERROR;
206: END IF;
207:
200: x_rgpv_rec => lx_lalabl_rgpv_rec);
201:
202: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
203: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
204: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
205: RAISE OKL_API.G_EXCEPTION_ERROR;
206: END IF;
207:
208: x_rgpv_rec.rgp_id := lx_lalabl_rgpv_rec.id;
201:
202: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
203: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
204: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
205: RAISE OKL_API.G_EXCEPTION_ERROR;
206: END IF;
207:
208: x_rgpv_rec.rgp_id := lx_lalabl_rgpv_rec.id;
209:
224: x_msg_data => x_msg_data,
225: p_rgpv_rec => lp_lalabl_rgpv_rec,
226: x_rgpv_rec => lx_lalabl_rgpv_rec);
227:
228: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
229: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
230: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
231: RAISE OKL_API.G_EXCEPTION_ERROR;
232: END IF;
225: p_rgpv_rec => lp_lalabl_rgpv_rec,
226: x_rgpv_rec => lx_lalabl_rgpv_rec);
227:
228: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
229: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
230: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
231: RAISE OKL_API.G_EXCEPTION_ERROR;
232: END IF;
233:
226: x_rgpv_rec => lx_lalabl_rgpv_rec);
227:
228: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
229: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
230: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
231: RAISE OKL_API.G_EXCEPTION_ERROR;
232: END IF;
233:
234: x_rgpv_rec.rgp_id := lx_lalabl_rgpv_rec.id;
227:
228: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
229: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
230: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
231: RAISE OKL_API.G_EXCEPTION_ERROR;
232: END IF;
233:
234: x_rgpv_rec.rgp_id := lx_lalabl_rgpv_rec.id;
235:
253: x_msg_data => x_msg_data,
254: p_rulv_rec => lp_lalogo_rulv_rec,
255: x_rulv_rec => lx_lalogo_rulv_rec);
256:
257: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
258: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
259: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
260: RAISE OKL_API.G_EXCEPTION_ERROR;
261: END IF;
254: p_rulv_rec => lp_lalogo_rulv_rec,
255: x_rulv_rec => lx_lalogo_rulv_rec);
256:
257: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
258: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
259: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
260: RAISE OKL_API.G_EXCEPTION_ERROR;
261: END IF;
262:
255: x_rulv_rec => lx_lalogo_rulv_rec);
256:
257: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
258: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
259: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
260: RAISE OKL_API.G_EXCEPTION_ERROR;
261: END IF;
262:
263: x_rgpv_rec.rul_lalogo_id := lx_lalogo_rulv_rec.id;
256:
257: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
258: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
259: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
260: RAISE OKL_API.G_EXCEPTION_ERROR;
261: END IF;
262:
263: x_rgpv_rec.rul_lalogo_id := lx_lalogo_rulv_rec.id;
264:
281: x_msg_data => x_msg_data,
282: p_rulv_rec => lp_lalogo_rulv_rec,
283: x_rulv_rec => lx_lalogo_rulv_rec);
284:
285: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
286: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
287: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
288: RAISE OKL_API.G_EXCEPTION_ERROR;
289: END IF;
282: p_rulv_rec => lp_lalogo_rulv_rec,
283: x_rulv_rec => lx_lalogo_rulv_rec);
284:
285: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
286: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
287: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
288: RAISE OKL_API.G_EXCEPTION_ERROR;
289: END IF;
290:
283: x_rulv_rec => lx_lalogo_rulv_rec);
284:
285: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
286: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
287: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
288: RAISE OKL_API.G_EXCEPTION_ERROR;
289: END IF;
290:
291: x_rgpv_rec.rul_lalogo_id := lx_lalogo_rulv_rec.id;
284:
285: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
286: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
287: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
288: RAISE OKL_API.G_EXCEPTION_ERROR;
289: END IF;
290:
291: x_rgpv_rec.rul_lalogo_id := lx_lalogo_rulv_rec.id;
292:
312: x_msg_data => x_msg_data,
313: p_rmpv_rec => lp_rmpv_rec,
314: x_rmpv_rec => lx_rmpv_rec);
315:
316: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
317: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
318: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
319: RAISE OKL_API.G_EXCEPTION_ERROR;
320: END IF;
313: p_rmpv_rec => lp_rmpv_rec,
314: x_rmpv_rec => lx_rmpv_rec);
315:
316: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
317: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
318: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
319: RAISE OKL_API.G_EXCEPTION_ERROR;
320: END IF;
321:
314: x_rmpv_rec => lx_rmpv_rec);
315:
316: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
317: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
318: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
319: RAISE OKL_API.G_EXCEPTION_ERROR;
320: END IF;
321:
322: END IF;
315:
316: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
317: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
318: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
319: RAISE OKL_API.G_EXCEPTION_ERROR;
320: END IF;
321:
322: END IF;
323:
320: END IF;
321:
322: END IF;
323:
324: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
325:
326: EXCEPTION
327: WHEN OKL_API.G_EXCEPTION_ERROR THEN
328: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
323:
324: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
325:
326: EXCEPTION
327: WHEN OKL_API.G_EXCEPTION_ERROR THEN
328: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
329: p_api_name => l_api_name,
330: p_pkg_name => g_pkg_name,
331: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
324: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
325:
326: EXCEPTION
327: WHEN OKL_API.G_EXCEPTION_ERROR THEN
328: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
329: p_api_name => l_api_name,
330: p_pkg_name => g_pkg_name,
331: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
332: x_msg_count => x_msg_count,
327: WHEN OKL_API.G_EXCEPTION_ERROR THEN
328: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
329: p_api_name => l_api_name,
330: p_pkg_name => g_pkg_name,
331: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
332: x_msg_count => x_msg_count,
333: x_msg_data => x_msg_data,
334: p_api_type => g_api_type);
335:
332: x_msg_count => x_msg_count,
333: x_msg_data => x_msg_data,
334: p_api_type => g_api_type);
335:
336: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
337: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
338: p_api_name => l_api_name,
339: p_pkg_name => g_pkg_name,
340: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
333: x_msg_data => x_msg_data,
334: p_api_type => g_api_type);
335:
336: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
337: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
338: p_api_name => l_api_name,
339: p_pkg_name => g_pkg_name,
340: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
341: x_msg_count => x_msg_count,
336: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
337: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
338: p_api_name => l_api_name,
339: p_pkg_name => g_pkg_name,
340: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
341: x_msg_count => x_msg_count,
342: x_msg_data => x_msg_data,
343: p_api_type => g_api_type);
344:
342: x_msg_data => x_msg_data,
343: p_api_type => g_api_type);
344:
345: WHEN OTHERS THEN
346: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
347: p_api_name => l_api_name,
348: p_pkg_name => g_pkg_name,
349: p_exc_name => 'OTHERS',
350: x_msg_count => x_msg_count,
354:
355:
356: PROCEDURE load_guarantor(
357: p_api_version IN NUMBER,
358: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
359: x_return_status OUT NOCOPY VARCHAR2,
360: x_msg_count OUT NOCOPY NUMBER,
361: x_msg_data OUT NOCOPY VARCHAR2,
362: p_chr_id IN NUMBER,
437:
438: l_msg_data VARCHAR2(4000);
439: l_msg_index_out number;
440: BEGIN
441: x_return_status := OKL_API.START_ACTIVITY(
442: p_api_name => l_api_name,
443: p_pkg_name => g_pkg_name,
444: p_init_msg_list => p_init_msg_list,
445: l_api_version => l_api_version,
447: p_api_type => g_api_type,
448: x_return_status => x_return_status);
449:
450: -- check if activity started successfully
451: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
452: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
453: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
454: RAISE OKL_API.G_EXCEPTION_ERROR;
455: END IF;
448: x_return_status => x_return_status);
449:
450: -- check if activity started successfully
451: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
452: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
453: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
454: RAISE OKL_API.G_EXCEPTION_ERROR;
455: END IF;
456:
449:
450: -- check if activity started successfully
451: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
452: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
453: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
454: RAISE OKL_API.G_EXCEPTION_ERROR;
455: END IF;
456:
457: x_party_role_rec.chr_id := p_chr_id;
450: -- check if activity started successfully
451: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
452: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
453: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
454: RAISE OKL_API.G_EXCEPTION_ERROR;
455: END IF;
456:
457: x_party_role_rec.chr_id := p_chr_id;
458: x_party_role_rec.party_role := OKL_LLA_UTIL_PVT.GET_LOOKUP_MEANING('OKC_ROLE','GUARANTOR');
556: END load_guarantor;
557:
558: PROCEDURE process_guarantor(
559: p_api_version IN NUMBER,
560: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
561: x_return_status OUT NOCOPY VARCHAR2,
562: x_msg_count OUT NOCOPY NUMBER,
563: x_msg_data OUT NOCOPY VARCHAR2,
564: p_rgpv_rec IN party_role_rec_type,
607: l_msg_data VARCHAR2(4000);
608: l_msg_index_out number;
609: BEGIN
610: x_rgpv_rec := p_rgpv_rec;
611: x_return_status := OKL_API.START_ACTIVITY(
612: p_api_name => l_api_name,
613: p_pkg_name => g_pkg_name,
614: p_init_msg_list => p_init_msg_list,
615: l_api_version => l_api_version,
617: p_api_type => g_api_type,
618: x_return_status => x_return_status);
619:
620: -- check if activity started successfully
621: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
622: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
623: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
624: RAISE OKL_API.G_EXCEPTION_ERROR;
625: END IF;
618: x_return_status => x_return_status);
619:
620: -- check if activity started successfully
621: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
622: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
623: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
624: RAISE OKL_API.G_EXCEPTION_ERROR;
625: END IF;
626:
619:
620: -- check if activity started successfully
621: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
622: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
623: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
624: RAISE OKL_API.G_EXCEPTION_ERROR;
625: END IF;
626:
627: IF (p_rgpv_rec.rgp_id IS NULL) THEN
620: -- check if activity started successfully
621: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
622: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
623: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
624: RAISE OKL_API.G_EXCEPTION_ERROR;
625: END IF;
626:
627: IF (p_rgpv_rec.rgp_id IS NULL) THEN
628: -- Create LAGRDT rule group
843: x_cplv_rec => lx_cplv_rec,
844: p_kplv_rec => lp_kplv_rec,
845: x_kplv_rec => lx_kplv_rec);
846:
847: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
848: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
849: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
850: RAISE OKL_API.G_EXCEPTION_ERROR;
851: END IF;
844: p_kplv_rec => lp_kplv_rec,
845: x_kplv_rec => lx_kplv_rec);
846:
847: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
848: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
849: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
850: RAISE OKL_API.G_EXCEPTION_ERROR;
851: END IF;
852: ELSE
845: x_kplv_rec => lx_kplv_rec);
846:
847: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
848: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
849: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
850: RAISE OKL_API.G_EXCEPTION_ERROR;
851: END IF;
852: ELSE
853:
846:
847: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
848: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
849: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
850: RAISE OKL_API.G_EXCEPTION_ERROR;
851: END IF;
852: ELSE
853:
854: OKL_K_PARTY_ROLES_PVT.update_k_party_role(
861: x_cplv_rec => lx_cplv_rec,
862: p_kplv_rec => lp_kplv_rec,
863: x_kplv_rec => lx_kplv_rec);
864:
865: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
866: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
867: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
868: RAISE OKL_API.G_EXCEPTION_ERROR;
869: END IF;
862: p_kplv_rec => lp_kplv_rec,
863: x_kplv_rec => lx_kplv_rec);
864:
865: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
866: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
867: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
868: RAISE OKL_API.G_EXCEPTION_ERROR;
869: END IF;
870:
863: x_kplv_rec => lx_kplv_rec);
864:
865: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
866: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
867: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
868: RAISE OKL_API.G_EXCEPTION_ERROR;
869: END IF;
870:
871: END IF;
864:
865: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
866: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
867: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
868: RAISE OKL_API.G_EXCEPTION_ERROR;
869: END IF;
870:
871: END IF;
872:
888: x_msg_data => x_msg_data,
889: p_rmpv_rec => lp_rmpv_rec,
890: x_rmpv_rec => lx_rmpv_rec);
891:
892: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
893: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
894: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
895: RAISE OKL_API.G_EXCEPTION_ERROR;
896: END IF;
889: p_rmpv_rec => lp_rmpv_rec,
890: x_rmpv_rec => lx_rmpv_rec);
891:
892: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
893: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
894: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
895: RAISE OKL_API.G_EXCEPTION_ERROR;
896: END IF;
897:
890: x_rmpv_rec => lx_rmpv_rec);
891:
892: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
893: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
894: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
895: RAISE OKL_API.G_EXCEPTION_ERROR;
896: END IF;
897:
898: END IF;
891:
892: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
893: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
894: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
895: RAISE OKL_API.G_EXCEPTION_ERROR;
896: END IF;
897:
898: END IF;
899: