28: G_LOAN_SCS_CODE CONSTANT OKC_K_HEADERS_V.SCS_CODE%TYPE := 'LOAN';
29: ----------------------------------------------------------------------------------------
30: -- GLOBAL EXCEPTION
31: ----------------------------------------------------------------------------------------
32: G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_COL_NAME_TOKEN;
33: G_EXCEPTION_HALT_VALIDATION EXCEPTION;
34: G_EXCEPTION_STOP_VALIDATION EXCEPTION;
35: G_API_TYPE CONSTANT VARCHAR2(4) := '_PVT';
36: G_API_VERSION CONSTANT NUMBER := 1.0;
51: -- Version : 1.0
52: -- End of comments
53: PROCEDURE Create_fa_version(
54: p_api_version IN NUMBER,
55: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
56: x_return_status OUT NOCOPY VARCHAR2,
57: x_msg_count OUT NOCOPY NUMBER,
58: x_msg_data OUT NOCOPY VARCHAR2,
59: p_chr_id IN NUMBER,
107: l_cntrct_number OKC_K_HEADERS_B.CONTRACT_NUMBER%TYPE;
108: l_legal_entity_id NUMBER;
109:
110: BEGIN
111: x_return_status := OKL_API.G_RET_STS_SUCCESS;
112: --version FA Details
113: -- Call start_activity to create savepoint, check compatibility
114: -- and initialize message list
115: x_return_status := OKL_API.START_ACTIVITY (
111: x_return_status := OKL_API.G_RET_STS_SUCCESS;
112: --version FA Details
113: -- Call start_activity to create savepoint, check compatibility
114: -- and initialize message list
115: x_return_status := OKL_API.START_ACTIVITY (
116: l_api_name
117: ,p_init_msg_list
118: ,'_PVT'
119: ,x_return_status);
117: ,p_init_msg_list
118: ,'_PVT'
119: ,x_return_status);
120: -- Check if activity started successfully
121: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
122: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
123: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
124: RAISE OKL_API.G_EXCEPTION_ERROR;
125: END IF;
118: ,'_PVT'
119: ,x_return_status);
120: -- Check if activity started successfully
121: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
122: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
123: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
124: RAISE OKL_API.G_EXCEPTION_ERROR;
125: END IF;
126: FOR r_get_fa_line_id IN c_get_fa_line_id(p_chr_id) LOOP
119: ,x_return_status);
120: -- Check if activity started successfully
121: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
122: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
123: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
124: RAISE OKL_API.G_EXCEPTION_ERROR;
125: END IF;
126: FOR r_get_fa_line_id IN c_get_fa_line_id(p_chr_id) LOOP
127: IF c_get_fa_line_id%NOTFOUND THEN
120: -- Check if activity started successfully
121: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
122: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
123: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
124: RAISE OKL_API.G_EXCEPTION_ERROR;
125: END IF;
126: FOR r_get_fa_line_id IN c_get_fa_line_id(p_chr_id) LOOP
127: IF c_get_fa_line_id%NOTFOUND THEN
128: OKL_API.set_message(p_app_name => G_APP_NAME,
124: RAISE OKL_API.G_EXCEPTION_ERROR;
125: END IF;
126: FOR r_get_fa_line_id IN c_get_fa_line_id(p_chr_id) LOOP
127: IF c_get_fa_line_id%NOTFOUND THEN
128: OKL_API.set_message(p_app_name => G_APP_NAME,
129: p_msg_name => G_NO_MATCHING_RECORD,
130: p_token1 => G_COL_NAME_TOKEN,
131: p_token1_value => 'Fixed Asset Line id');
132: x_return_status := OKL_API.G_RET_STS_ERROR;
128: OKL_API.set_message(p_app_name => G_APP_NAME,
129: p_msg_name => G_NO_MATCHING_RECORD,
130: p_token1 => G_COL_NAME_TOKEN,
131: p_token1_value => 'Fixed Asset Line id');
132: x_return_status := OKL_API.G_RET_STS_ERROR;
133: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
134: END IF;
135: -- To get the Info all the fixed asset lines
136: -- And the build the VFAV record
129: p_msg_name => G_NO_MATCHING_RECORD,
130: p_token1 => G_COL_NAME_TOKEN,
131: p_token1_value => 'Fixed Asset Line id');
132: x_return_status := OKL_API.G_RET_STS_ERROR;
133: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
134: END IF;
135: -- To get the Info all the fixed asset lines
136: -- And the build the VFAV record
137: OPEN c_asset_info(r_get_fa_line_id.object1_id1,
136: -- And the build the VFAV record
137: OPEN c_asset_info(r_get_fa_line_id.object1_id1,
138: r_get_fa_line_id.object1_id2);
139: IF c_asset_info%NOTFOUND THEN
140: OKL_API.set_message(p_app_name => G_APP_NAME,
141: p_msg_name => G_NO_MATCHING_RECORD,
142: p_token1 => G_COL_NAME_TOKEN,
143: p_token1_value => 'OKX_ASSETS_V.OBJECT1_ID1');
144: x_return_status := OKL_API.G_RET_STS_ERROR;
140: OKL_API.set_message(p_app_name => G_APP_NAME,
141: p_msg_name => G_NO_MATCHING_RECORD,
142: p_token1 => G_COL_NAME_TOKEN,
143: p_token1_value => 'OKX_ASSETS_V.OBJECT1_ID1');
144: x_return_status := OKL_API.G_RET_STS_ERROR;
145: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
146: END IF;
147: FETCH c_asset_info INTO r_asset_info;
148: CLOSE c_asset_info;
141: p_msg_name => G_NO_MATCHING_RECORD,
142: p_token1 => G_COL_NAME_TOKEN,
143: p_token1_value => 'OKX_ASSETS_V.OBJECT1_ID1');
144: x_return_status := OKL_API.G_RET_STS_ERROR;
145: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
146: END IF;
147: FETCH c_asset_info INTO r_asset_info;
148: CLOSE c_asset_info;
149: l_vfav_rec.major_version := p_major_version;
198: -- get the contract number
199: OPEN contract_num_csr(p_chr_id);
200: FETCH contract_num_csr INTO l_cntrct_number;
201: CLOSE contract_num_csr;
202: Okl_Api.set_message(p_app_name => g_app_name,
203: p_msg_name => 'OKL_LE_NOT_EXIST_CNTRCT',
204: p_token1 => 'CONTRACT_NUMBER',
205: p_token1_value => l_cntrct_number);
206: RAISE OKL_API.G_EXCEPTION_ERROR;
202: Okl_Api.set_message(p_app_name => g_app_name,
203: p_msg_name => 'OKL_LE_NOT_EXIST_CNTRCT',
204: p_token1 => 'CONTRACT_NUMBER',
205: p_token1_value => l_cntrct_number);
206: RAISE OKL_API.G_EXCEPTION_ERROR;
207: END IF;
208:
209: -- Now we are going to install into OKL_CONTRACT_ASSET_H table
210: OKL_VERSION_FA_PUB.create_version_fa(
214: x_msg_count => x_msg_count,
215: x_msg_data => x_msg_data,
216: p_vfav_rec => l_vfav_rec,
217: x_vfav_rec => lx_vfav_rec);
218: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
219: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
220: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
221: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
222: END IF;
215: x_msg_data => x_msg_data,
216: p_vfav_rec => l_vfav_rec,
217: x_vfav_rec => lx_vfav_rec);
218: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
219: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
220: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
221: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
222: END IF;
223: END LOOP;
216: p_vfav_rec => l_vfav_rec,
217: x_vfav_rec => lx_vfav_rec);
218: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
219: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
220: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
221: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
222: END IF;
223: END LOOP;
224: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
217: x_vfav_rec => lx_vfav_rec);
218: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
219: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
220: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
221: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
222: END IF;
223: END LOOP;
224: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
225: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
220: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
221: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
222: END IF;
223: END LOOP;
224: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
225: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
226: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
227: RAISE OKL_API.G_EXCEPTION_ERROR;
228: END IF;
221: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
222: END IF;
223: END LOOP;
224: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
225: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
226: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
227: RAISE OKL_API.G_EXCEPTION_ERROR;
228: END IF;
229: OKL_API.END_ACTIVITY (x_msg_count,
222: END IF;
223: END LOOP;
224: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
225: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
226: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
227: RAISE OKL_API.G_EXCEPTION_ERROR;
228: END IF;
229: OKL_API.END_ACTIVITY (x_msg_count,
230: x_msg_data );
223: END LOOP;
224: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
225: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
226: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
227: RAISE OKL_API.G_EXCEPTION_ERROR;
228: END IF;
229: OKL_API.END_ACTIVITY (x_msg_count,
230: x_msg_data );
231: EXCEPTION
225: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
226: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
227: RAISE OKL_API.G_EXCEPTION_ERROR;
228: END IF;
229: OKL_API.END_ACTIVITY (x_msg_count,
230: x_msg_data );
231: EXCEPTION
232: WHEN OKL_API.G_EXCEPTION_ERROR THEN
233: --Bug# 2981308
228: END IF;
229: OKL_API.END_ACTIVITY (x_msg_count,
230: x_msg_data );
231: EXCEPTION
232: WHEN OKL_API.G_EXCEPTION_ERROR THEN
233: --Bug# 2981308
234: if l_fab_csr%ISOPEN then
235: close l_fab_csr;
236: end if;
233: --Bug# 2981308
234: if l_fab_csr%ISOPEN then
235: close l_fab_csr;
236: end if;
237: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
238: l_api_name,
239: G_PKG_NAME,
240: 'OKL_API.G_RET_STS_ERROR',
241: x_msg_count,
236: end if;
237: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
238: l_api_name,
239: G_PKG_NAME,
240: 'OKL_API.G_RET_STS_ERROR',
241: x_msg_count,
242: x_msg_data,
243: '_PVT');
244: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
240: 'OKL_API.G_RET_STS_ERROR',
241: x_msg_count,
242: x_msg_data,
243: '_PVT');
244: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
245: --Bug# 2981308
246: if l_fab_csr%ISOPEN then
247: close l_fab_csr;
248: end if;
245: --Bug# 2981308
246: if l_fab_csr%ISOPEN then
247: close l_fab_csr;
248: end if;
249: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
250: l_api_name,
251: G_PKG_NAME,
252: 'OKL_API.G_RET_STS_UNEXP_ERROR',
253: x_msg_count,
248: end if;
249: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
250: l_api_name,
251: G_PKG_NAME,
252: 'OKL_API.G_RET_STS_UNEXP_ERROR',
253: x_msg_count,
254: x_msg_data,
255: '_PVT');
256: WHEN OTHERS THEN
257: --Bug# 2981308
258: if l_fab_csr%ISOPEN then
259: close l_fab_csr;
260: end if;
261: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
262: l_api_name,
263: G_PKG_NAME,
264: 'OTHERS',
265: x_msg_count,
276: -- Version : 1.0
277: -- End of comments
278: PROCEDURE Create_ib_version(
279: p_api_version IN NUMBER,
280: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
281: x_return_status OUT NOCOPY VARCHAR2,
282: x_msg_count OUT NOCOPY NUMBER,
283: x_msg_data OUT NOCOPY VARCHAR2,
284: p_chr_id IN NUMBER,
338: l_cntrct_number OKC_K_HEADERS_B.CONTRACT_NUMBER%TYPE;
339: l_legal_entity_id NUMBER;
340:
341: BEGIN
342: x_return_status := OKL_API.G_RET_STS_SUCCESS;
343: --version IB Details
344: -- Call start_activity to create savepoint, check compatibility
345: -- and initialize message list
346: x_return_status := OKL_API.START_ACTIVITY (
342: x_return_status := OKL_API.G_RET_STS_SUCCESS;
343: --version IB Details
344: -- Call start_activity to create savepoint, check compatibility
345: -- and initialize message list
346: x_return_status := OKL_API.START_ACTIVITY (
347: l_api_name
348: ,p_init_msg_list
349: ,'_PVT'
350: ,x_return_status);
348: ,p_init_msg_list
349: ,'_PVT'
350: ,x_return_status);
351: -- Check if activity started successfully
352: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
353: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
354: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
355: RAISE OKL_API.G_EXCEPTION_ERROR;
356: END IF;
349: ,'_PVT'
350: ,x_return_status);
351: -- Check if activity started successfully
352: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
353: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
354: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
355: RAISE OKL_API.G_EXCEPTION_ERROR;
356: END IF;
357: FOR r_get_ib_line_id IN c_get_ib_line_id(p_chr_id) LOOP
350: ,x_return_status);
351: -- Check if activity started successfully
352: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
353: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
354: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
355: RAISE OKL_API.G_EXCEPTION_ERROR;
356: END IF;
357: FOR r_get_ib_line_id IN c_get_ib_line_id(p_chr_id) LOOP
358: IF c_get_ib_line_id%NOTFOUND THEN
351: -- Check if activity started successfully
352: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
353: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
354: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
355: RAISE OKL_API.G_EXCEPTION_ERROR;
356: END IF;
357: FOR r_get_ib_line_id IN c_get_ib_line_id(p_chr_id) LOOP
358: IF c_get_ib_line_id%NOTFOUND THEN
359: OKL_API.set_message(p_app_name => G_APP_NAME,
355: RAISE OKL_API.G_EXCEPTION_ERROR;
356: END IF;
357: FOR r_get_ib_line_id IN c_get_ib_line_id(p_chr_id) LOOP
358: IF c_get_ib_line_id%NOTFOUND THEN
359: OKL_API.set_message(p_app_name => G_APP_NAME,
360: p_msg_name => G_NO_MATCHING_RECORD,
361: p_token1 => G_COL_NAME_TOKEN,
362: p_token1_value => 'Install Base line id');
363: x_return_status := OKL_API.G_RET_STS_ERROR;
359: OKL_API.set_message(p_app_name => G_APP_NAME,
360: p_msg_name => G_NO_MATCHING_RECORD,
361: p_token1 => G_COL_NAME_TOKEN,
362: p_token1_value => 'Install Base line id');
363: x_return_status := OKL_API.G_RET_STS_ERROR;
364: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
365: END IF;
366: -- To get the Info all the fixed asset lines
367: -- And the build the VFAV record
360: p_msg_name => G_NO_MATCHING_RECORD,
361: p_token1 => G_COL_NAME_TOKEN,
362: p_token1_value => 'Install Base line id');
363: x_return_status := OKL_API.G_RET_STS_ERROR;
364: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
365: END IF;
366: -- To get the Info all the fixed asset lines
367: -- And the build the VFAV record
368: OPEN c_ib_info(r_get_ib_line_id.object1_id1,
367: -- And the build the VFAV record
368: OPEN c_ib_info(r_get_ib_line_id.object1_id1,
369: r_get_ib_line_id.object1_id2);
370: IF c_ib_info%NOTFOUND THEN
371: OKL_API.set_message(p_app_name => G_APP_NAME,
372: p_msg_name => G_NO_MATCHING_RECORD,
373: p_token1 => G_COL_NAME_TOKEN,
374: p_token1_value => 'OKX_INSTALL_ITEMS_V.OBJECT1_ID1');
375: x_return_status := OKL_API.G_RET_STS_ERROR;
371: OKL_API.set_message(p_app_name => G_APP_NAME,
372: p_msg_name => G_NO_MATCHING_RECORD,
373: p_token1 => G_COL_NAME_TOKEN,
374: p_token1_value => 'OKX_INSTALL_ITEMS_V.OBJECT1_ID1');
375: x_return_status := OKL_API.G_RET_STS_ERROR;
376: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
377: END IF;
378: FETCH c_ib_info INTO r_ib_info;
379: CLOSE c_ib_info;
372: p_msg_name => G_NO_MATCHING_RECORD,
373: p_token1 => G_COL_NAME_TOKEN,
374: p_token1_value => 'OKX_INSTALL_ITEMS_V.OBJECT1_ID1');
375: x_return_status := OKL_API.G_RET_STS_ERROR;
376: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
377: END IF;
378: FETCH c_ib_info INTO r_ib_info;
379: CLOSE c_ib_info;
380: l_vibv_rec.major_version := p_major_version;
395: -- get the contract number
396: OPEN contract_num_csr(p_chr_id);
397: FETCH contract_num_csr INTO l_cntrct_number;
398: CLOSE contract_num_csr;
399: Okl_Api.set_message(p_app_name => g_app_name,
400: p_msg_name => 'OKL_LE_NOT_EXIST_CNTRCT',
401: p_token1 => 'CONTRACT_NUMBER',
402: p_token1_value => l_cntrct_number);
403: RAISE OKL_API.G_EXCEPTION_ERROR;
399: Okl_Api.set_message(p_app_name => g_app_name,
400: p_msg_name => 'OKL_LE_NOT_EXIST_CNTRCT',
401: p_token1 => 'CONTRACT_NUMBER',
402: p_token1_value => l_cntrct_number);
403: RAISE OKL_API.G_EXCEPTION_ERROR;
404: END IF;
405: -- Now we are going to install into OKL_CONTRACT_IB_H table
406: OKL_VERSION_IB_PUB.create_version_ib(
407: p_api_version => p_api_version,
410: x_msg_count => x_msg_count,
411: x_msg_data => x_msg_data,
412: p_vibv_rec => l_vibv_rec,
413: x_vibv_rec => lx_vibv_rec);
414: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
415: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
416: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
417: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
418: END IF;
411: x_msg_data => x_msg_data,
412: p_vibv_rec => l_vibv_rec,
413: x_vibv_rec => lx_vibv_rec);
414: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
415: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
416: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
417: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
418: END IF;
419: END LOOP;
412: p_vibv_rec => l_vibv_rec,
413: x_vibv_rec => lx_vibv_rec);
414: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
415: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
416: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
417: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
418: END IF;
419: END LOOP;
420: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
413: x_vibv_rec => lx_vibv_rec);
414: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
415: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
416: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
417: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
418: END IF;
419: END LOOP;
420: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
421: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
416: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
417: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
418: END IF;
419: END LOOP;
420: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
421: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
422: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
423: RAISE OKL_API.G_EXCEPTION_ERROR;
424: END IF;
417: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
418: END IF;
419: END LOOP;
420: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
421: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
422: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
423: RAISE OKL_API.G_EXCEPTION_ERROR;
424: END IF;
425: OKL_API.END_ACTIVITY (x_msg_count,
418: END IF;
419: END LOOP;
420: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
421: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
422: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
423: RAISE OKL_API.G_EXCEPTION_ERROR;
424: END IF;
425: OKL_API.END_ACTIVITY (x_msg_count,
426: x_msg_data );
419: END LOOP;
420: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
421: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
422: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
423: RAISE OKL_API.G_EXCEPTION_ERROR;
424: END IF;
425: OKL_API.END_ACTIVITY (x_msg_count,
426: x_msg_data );
427: EXCEPTION
421: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
422: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
423: RAISE OKL_API.G_EXCEPTION_ERROR;
424: END IF;
425: OKL_API.END_ACTIVITY (x_msg_count,
426: x_msg_data );
427: EXCEPTION
428: WHEN OKL_API.G_EXCEPTION_ERROR THEN
429: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
424: END IF;
425: OKL_API.END_ACTIVITY (x_msg_count,
426: x_msg_data );
427: EXCEPTION
428: WHEN OKL_API.G_EXCEPTION_ERROR THEN
429: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
430: l_api_name,
431: G_PKG_NAME,
432: 'OKL_API.G_RET_STS_ERROR',
425: OKL_API.END_ACTIVITY (x_msg_count,
426: x_msg_data );
427: EXCEPTION
428: WHEN OKL_API.G_EXCEPTION_ERROR THEN
429: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
430: l_api_name,
431: G_PKG_NAME,
432: 'OKL_API.G_RET_STS_ERROR',
433: x_msg_count,
428: WHEN OKL_API.G_EXCEPTION_ERROR THEN
429: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
430: l_api_name,
431: G_PKG_NAME,
432: 'OKL_API.G_RET_STS_ERROR',
433: x_msg_count,
434: x_msg_data,
435: '_PVT');
436: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
432: 'OKL_API.G_RET_STS_ERROR',
433: x_msg_count,
434: x_msg_data,
435: '_PVT');
436: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
437: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
438: l_api_name,
439: G_PKG_NAME,
440: 'OKL_API.G_RET_STS_UNEXP_ERROR',
433: x_msg_count,
434: x_msg_data,
435: '_PVT');
436: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
437: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
438: l_api_name,
439: G_PKG_NAME,
440: 'OKL_API.G_RET_STS_UNEXP_ERROR',
441: x_msg_count,
436: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
437: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
438: l_api_name,
439: G_PKG_NAME,
440: 'OKL_API.G_RET_STS_UNEXP_ERROR',
441: x_msg_count,
442: x_msg_data,
443: '_PVT');
444: WHEN OTHERS THEN
441: x_msg_count,
442: x_msg_data,
443: '_PVT');
444: WHEN OTHERS THEN
445: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
446: l_api_name,
447: G_PKG_NAME,
448: 'OTHERS',
449: x_msg_count,
459: -- Version : 1.0
460: -- End of comments
461: PROCEDURE version_contract_extra(
462: p_api_version IN NUMBER,
463: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
464: x_return_status OUT NOCOPY VARCHAR2,
465: x_msg_count OUT NOCOPY NUMBER,
466: x_msg_data OUT NOCOPY VARCHAR2,
467: p_chr_id IN NUMBER,
469: l_api_version CONSTANT NUMBER := 1;
470: l_api_name CONSTANT VARCHAR2(30) := 'OKL_VERSION_CREATE';
471:
472: BEGIN
473: x_return_status := OKL_API.G_RET_STS_SUCCESS;
474: -- Call start_activity to create savepoint, check compatibility
475: -- and initialize message list
476: x_return_status := OKL_API.START_ACTIVITY (
477: l_api_name
472: BEGIN
473: x_return_status := OKL_API.G_RET_STS_SUCCESS;
474: -- Call start_activity to create savepoint, check compatibility
475: -- and initialize message list
476: x_return_status := OKL_API.START_ACTIVITY (
477: l_api_name
478: ,p_init_msg_list
479: ,'_PVT'
480: ,x_return_status);
478: ,p_init_msg_list
479: ,'_PVT'
480: ,x_return_status);
481: -- Check if activity started successfully
482: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
483: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
484: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
485: RAISE OKL_API.G_EXCEPTION_ERROR;
486: END IF;
479: ,'_PVT'
480: ,x_return_status);
481: -- Check if activity started successfully
482: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
483: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
484: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
485: RAISE OKL_API.G_EXCEPTION_ERROR;
486: END IF;
487: --version contract header
480: ,x_return_status);
481: -- Check if activity started successfully
482: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
483: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
484: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
485: RAISE OKL_API.G_EXCEPTION_ERROR;
486: END IF;
487: --version contract header
488: x_return_status:=OKL_KHR_PVT.Create_Version(p_chr_id,
481: -- Check if activity started successfully
482: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
483: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
484: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
485: RAISE OKL_API.G_EXCEPTION_ERROR;
486: END IF;
487: --version contract header
488: x_return_status:=OKL_KHR_PVT.Create_Version(p_chr_id,
489: p_major_version);
487: --version contract header
488: x_return_status:=OKL_KHR_PVT.Create_Version(p_chr_id,
489: p_major_version);
490: --- If any errors happen abort API
491: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
492: OKL_API.set_message(p_app_name => G_APP_NAME,
493: p_msg_name => G_CREATE_VER_ERROR,
494: p_token1 => G_COL_NAME_TOKEN,
495: p_token1_value => 'OKL_K_HEADERS_H');
488: x_return_status:=OKL_KHR_PVT.Create_Version(p_chr_id,
489: p_major_version);
490: --- If any errors happen abort API
491: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
492: OKL_API.set_message(p_app_name => G_APP_NAME,
493: p_msg_name => G_CREATE_VER_ERROR,
494: p_token1 => G_COL_NAME_TOKEN,
495: p_token1_value => 'OKL_K_HEADERS_H');
496: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
492: OKL_API.set_message(p_app_name => G_APP_NAME,
493: p_msg_name => G_CREATE_VER_ERROR,
494: p_token1 => G_COL_NAME_TOKEN,
495: p_token1_value => 'OKL_K_HEADERS_H');
496: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
497: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
498: OKL_API.set_message(p_app_name => G_APP_NAME,
499: p_msg_name => G_CREATE_VER_ERROR,
500: p_token1 => G_COL_NAME_TOKEN,
493: p_msg_name => G_CREATE_VER_ERROR,
494: p_token1 => G_COL_NAME_TOKEN,
495: p_token1_value => 'OKL_K_HEADERS_H');
496: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
497: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
498: OKL_API.set_message(p_app_name => G_APP_NAME,
499: p_msg_name => G_CREATE_VER_ERROR,
500: p_token1 => G_COL_NAME_TOKEN,
501: p_token1_value => 'OKL_K_HEADERS_H');
494: p_token1 => G_COL_NAME_TOKEN,
495: p_token1_value => 'OKL_K_HEADERS_H');
496: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
497: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
498: OKL_API.set_message(p_app_name => G_APP_NAME,
499: p_msg_name => G_CREATE_VER_ERROR,
500: p_token1 => G_COL_NAME_TOKEN,
501: p_token1_value => 'OKL_K_HEADERS_H');
502: RAISE OKL_API.G_EXCEPTION_ERROR;
498: OKL_API.set_message(p_app_name => G_APP_NAME,
499: p_msg_name => G_CREATE_VER_ERROR,
500: p_token1 => G_COL_NAME_TOKEN,
501: p_token1_value => 'OKL_K_HEADERS_H');
502: RAISE OKL_API.G_EXCEPTION_ERROR;
503: END IF;
504: --version contract lines
505: x_return_status:=OKL_KLE_PVT.Create_Version(p_chr_id,
506: p_major_version);
504: --version contract lines
505: x_return_status:=OKL_KLE_PVT.Create_Version(p_chr_id,
506: p_major_version);
507: --- If any errors happen abort API
508: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
509: OKL_API.set_message(p_app_name => G_APP_NAME,
510: p_msg_name => G_CREATE_VER_ERROR,
511: p_token1 => G_COL_NAME_TOKEN,
512: p_token1_value => 'OKL_K_LINES_H');
505: x_return_status:=OKL_KLE_PVT.Create_Version(p_chr_id,
506: p_major_version);
507: --- If any errors happen abort API
508: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
509: OKL_API.set_message(p_app_name => G_APP_NAME,
510: p_msg_name => G_CREATE_VER_ERROR,
511: p_token1 => G_COL_NAME_TOKEN,
512: p_token1_value => 'OKL_K_LINES_H');
513: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
509: OKL_API.set_message(p_app_name => G_APP_NAME,
510: p_msg_name => G_CREATE_VER_ERROR,
511: p_token1 => G_COL_NAME_TOKEN,
512: p_token1_value => 'OKL_K_LINES_H');
513: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
514: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
515: OKL_API.set_message(p_app_name => G_APP_NAME,
516: p_msg_name => G_CREATE_VER_ERROR,
517: p_token1 => G_COL_NAME_TOKEN,
510: p_msg_name => G_CREATE_VER_ERROR,
511: p_token1 => G_COL_NAME_TOKEN,
512: p_token1_value => 'OKL_K_LINES_H');
513: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
514: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
515: OKL_API.set_message(p_app_name => G_APP_NAME,
516: p_msg_name => G_CREATE_VER_ERROR,
517: p_token1 => G_COL_NAME_TOKEN,
518: p_token1_value => 'OKL_K_LINES_H');
511: p_token1 => G_COL_NAME_TOKEN,
512: p_token1_value => 'OKL_K_LINES_H');
513: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
514: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
515: OKL_API.set_message(p_app_name => G_APP_NAME,
516: p_msg_name => G_CREATE_VER_ERROR,
517: p_token1 => G_COL_NAME_TOKEN,
518: p_token1_value => 'OKL_K_LINES_H');
519: RAISE OKL_API.G_EXCEPTION_ERROR;
515: OKL_API.set_message(p_app_name => G_APP_NAME,
516: p_msg_name => G_CREATE_VER_ERROR,
517: p_token1 => G_COL_NAME_TOKEN,
518: p_token1_value => 'OKL_K_LINES_H');
519: RAISE OKL_API.G_EXCEPTION_ERROR;
520: END IF;
521: --version Supplier Invoice Details
522: x_return_status:=OKL_SID_PVT.Create_Version(p_chr_id,
523: p_major_version);
521: --version Supplier Invoice Details
522: x_return_status:=OKL_SID_PVT.Create_Version(p_chr_id,
523: p_major_version);
524: --- If any errors happen abort API
525: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
526: OKL_API.set_message(p_app_name => G_APP_NAME,
527: p_msg_name => G_CREATE_VER_ERROR,
528: p_token1 => G_COL_NAME_TOKEN,
529: p_token1_value => 'OKL_SUPP_INVOICE_DTLS_H');
522: x_return_status:=OKL_SID_PVT.Create_Version(p_chr_id,
523: p_major_version);
524: --- If any errors happen abort API
525: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
526: OKL_API.set_message(p_app_name => G_APP_NAME,
527: p_msg_name => G_CREATE_VER_ERROR,
528: p_token1 => G_COL_NAME_TOKEN,
529: p_token1_value => 'OKL_SUPP_INVOICE_DTLS_H');
530: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
526: OKL_API.set_message(p_app_name => G_APP_NAME,
527: p_msg_name => G_CREATE_VER_ERROR,
528: p_token1 => G_COL_NAME_TOKEN,
529: p_token1_value => 'OKL_SUPP_INVOICE_DTLS_H');
530: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
531: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
532: OKL_API.set_message(p_app_name => G_APP_NAME,
533: p_msg_name => G_CREATE_VER_ERROR,
534: p_token1 => G_COL_NAME_TOKEN,
527: p_msg_name => G_CREATE_VER_ERROR,
528: p_token1 => G_COL_NAME_TOKEN,
529: p_token1_value => 'OKL_SUPP_INVOICE_DTLS_H');
530: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
531: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
532: OKL_API.set_message(p_app_name => G_APP_NAME,
533: p_msg_name => G_CREATE_VER_ERROR,
534: p_token1 => G_COL_NAME_TOKEN,
535: p_token1_value => 'OKL_SUPP_INVOICE_DTLS_H');
528: p_token1 => G_COL_NAME_TOKEN,
529: p_token1_value => 'OKL_SUPP_INVOICE_DTLS_H');
530: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
531: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
532: OKL_API.set_message(p_app_name => G_APP_NAME,
533: p_msg_name => G_CREATE_VER_ERROR,
534: p_token1 => G_COL_NAME_TOKEN,
535: p_token1_value => 'OKL_SUPP_INVOICE_DTLS_H');
536: RAISE OKL_API.G_EXCEPTION_ERROR;
532: OKL_API.set_message(p_app_name => G_APP_NAME,
533: p_msg_name => G_CREATE_VER_ERROR,
534: p_token1 => G_COL_NAME_TOKEN,
535: p_token1_value => 'OKL_SUPP_INVOICE_DTLS_H');
536: RAISE OKL_API.G_EXCEPTION_ERROR;
537: END IF;
538:
539: --Version Party Payment Hdr, fmiao
540: x_return_status:=OKL_LDB_PVT.Create_Version(p_chr_id,
539: --Version Party Payment Hdr, fmiao
540: x_return_status:=OKL_LDB_PVT.Create_Version(p_chr_id,
541: p_major_version);
542: --- If any errors happen abort API
543: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
544: OKL_API.set_message(p_app_name => G_APP_NAME,
545: p_msg_name => G_CREATE_VER_ERROR,
546: p_token1 => G_COL_NAME_TOKEN,
547: p_token1_value => 'OKL_PARTY_PAYMENT_HDR_H');
540: x_return_status:=OKL_LDB_PVT.Create_Version(p_chr_id,
541: p_major_version);
542: --- If any errors happen abort API
543: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
544: OKL_API.set_message(p_app_name => G_APP_NAME,
545: p_msg_name => G_CREATE_VER_ERROR,
546: p_token1 => G_COL_NAME_TOKEN,
547: p_token1_value => 'OKL_PARTY_PAYMENT_HDR_H');
548: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
544: OKL_API.set_message(p_app_name => G_APP_NAME,
545: p_msg_name => G_CREATE_VER_ERROR,
546: p_token1 => G_COL_NAME_TOKEN,
547: p_token1_value => 'OKL_PARTY_PAYMENT_HDR_H');
548: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
549: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
550: OKL_API.set_message(p_app_name => G_APP_NAME,
551: p_msg_name => G_CREATE_VER_ERROR,
552: p_token1 => G_COL_NAME_TOKEN,
545: p_msg_name => G_CREATE_VER_ERROR,
546: p_token1 => G_COL_NAME_TOKEN,
547: p_token1_value => 'OKL_PARTY_PAYMENT_HDR_H');
548: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
549: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
550: OKL_API.set_message(p_app_name => G_APP_NAME,
551: p_msg_name => G_CREATE_VER_ERROR,
552: p_token1 => G_COL_NAME_TOKEN,
553: p_token1_value => 'OKL_PARTY_PAYMENT_HDR_H');
546: p_token1 => G_COL_NAME_TOKEN,
547: p_token1_value => 'OKL_PARTY_PAYMENT_HDR_H');
548: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
549: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
550: OKL_API.set_message(p_app_name => G_APP_NAME,
551: p_msg_name => G_CREATE_VER_ERROR,
552: p_token1 => G_COL_NAME_TOKEN,
553: p_token1_value => 'OKL_PARTY_PAYMENT_HDR_H');
554: RAISE OKL_API.G_EXCEPTION_ERROR;
550: OKL_API.set_message(p_app_name => G_APP_NAME,
551: p_msg_name => G_CREATE_VER_ERROR,
552: p_token1 => G_COL_NAME_TOKEN,
553: p_token1_value => 'OKL_PARTY_PAYMENT_HDR_H');
554: RAISE OKL_API.G_EXCEPTION_ERROR;
555: END IF;
556:
557: --------------
558: --Bug# 3143522
560: --version party payment details
561: x_return_status:=OKL_PYD_PVT.Create_Version(p_chr_id,
562: p_major_version);
563: --- If any errors happen abort API
564: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
565: OKL_API.set_message(p_app_name => G_APP_NAME,
566: p_msg_name => G_CREATE_VER_ERROR,
567: p_token1 => G_COL_NAME_TOKEN,
568: p_token1_value => 'OKL_PARTY_PAYMENT_DTLS_H');
561: x_return_status:=OKL_PYD_PVT.Create_Version(p_chr_id,
562: p_major_version);
563: --- If any errors happen abort API
564: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
565: OKL_API.set_message(p_app_name => G_APP_NAME,
566: p_msg_name => G_CREATE_VER_ERROR,
567: p_token1 => G_COL_NAME_TOKEN,
568: p_token1_value => 'OKL_PARTY_PAYMENT_DTLS_H');
569: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
565: OKL_API.set_message(p_app_name => G_APP_NAME,
566: p_msg_name => G_CREATE_VER_ERROR,
567: p_token1 => G_COL_NAME_TOKEN,
568: p_token1_value => 'OKL_PARTY_PAYMENT_DTLS_H');
569: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
570: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
571: OKL_API.set_message(p_app_name => G_APP_NAME,
572: p_msg_name => G_CREATE_VER_ERROR,
573: p_token1 => G_COL_NAME_TOKEN,
566: p_msg_name => G_CREATE_VER_ERROR,
567: p_token1 => G_COL_NAME_TOKEN,
568: p_token1_value => 'OKL_PARTY_PAYMENT_DTLS_H');
569: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
570: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
571: OKL_API.set_message(p_app_name => G_APP_NAME,
572: p_msg_name => G_CREATE_VER_ERROR,
573: p_token1 => G_COL_NAME_TOKEN,
574: p_token1_value => 'OKL_PARTY_PAYMENT_DTLS_H');
567: p_token1 => G_COL_NAME_TOKEN,
568: p_token1_value => 'OKL_PARTY_PAYMENT_DTLS_H');
569: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
570: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
571: OKL_API.set_message(p_app_name => G_APP_NAME,
572: p_msg_name => G_CREATE_VER_ERROR,
573: p_token1 => G_COL_NAME_TOKEN,
574: p_token1_value => 'OKL_PARTY_PAYMENT_DTLS_H');
575: RAISE OKL_API.G_EXCEPTION_ERROR;
571: OKL_API.set_message(p_app_name => G_APP_NAME,
572: p_msg_name => G_CREATE_VER_ERROR,
573: p_token1 => G_COL_NAME_TOKEN,
574: p_token1_value => 'OKL_PARTY_PAYMENT_DTLS_H');
575: RAISE OKL_API.G_EXCEPTION_ERROR;
576: END IF;
577: --------------
578: --End Bug# 3143522
579: ---------------
583: --Version Okl_K_Party_Roles
584: x_return_status:=OKL_KPL_PVT.Create_Version(p_chr_id,
585: p_major_version);
586: --- If any errors happen abort API
587: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
588: OKL_API.set_message(p_app_name => G_APP_NAME,
589: p_msg_name => G_CREATE_VER_ERROR,
590: p_token1 => G_COL_NAME_TOKEN,
591: p_token1_value => 'OKL_K_PARTY_ROLES_H');
584: x_return_status:=OKL_KPL_PVT.Create_Version(p_chr_id,
585: p_major_version);
586: --- If any errors happen abort API
587: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
588: OKL_API.set_message(p_app_name => G_APP_NAME,
589: p_msg_name => G_CREATE_VER_ERROR,
590: p_token1 => G_COL_NAME_TOKEN,
591: p_token1_value => 'OKL_K_PARTY_ROLES_H');
592: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
588: OKL_API.set_message(p_app_name => G_APP_NAME,
589: p_msg_name => G_CREATE_VER_ERROR,
590: p_token1 => G_COL_NAME_TOKEN,
591: p_token1_value => 'OKL_K_PARTY_ROLES_H');
592: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
593: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
594: OKL_API.set_message(p_app_name => G_APP_NAME,
595: p_msg_name => G_CREATE_VER_ERROR,
596: p_token1 => G_COL_NAME_TOKEN,
589: p_msg_name => G_CREATE_VER_ERROR,
590: p_token1 => G_COL_NAME_TOKEN,
591: p_token1_value => 'OKL_K_PARTY_ROLES_H');
592: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
593: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
594: OKL_API.set_message(p_app_name => G_APP_NAME,
595: p_msg_name => G_CREATE_VER_ERROR,
596: p_token1 => G_COL_NAME_TOKEN,
597: p_token1_value => 'OKL_K_PARTY_ROLES_H');
590: p_token1 => G_COL_NAME_TOKEN,
591: p_token1_value => 'OKL_K_PARTY_ROLES_H');
592: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
593: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
594: OKL_API.set_message(p_app_name => G_APP_NAME,
595: p_msg_name => G_CREATE_VER_ERROR,
596: p_token1 => G_COL_NAME_TOKEN,
597: p_token1_value => 'OKL_K_PARTY_ROLES_H');
598: RAISE OKL_API.G_EXCEPTION_ERROR;
594: OKL_API.set_message(p_app_name => G_APP_NAME,
595: p_msg_name => G_CREATE_VER_ERROR,
596: p_token1 => G_COL_NAME_TOKEN,
597: p_token1_value => 'OKL_K_PARTY_ROLES_H');
598: RAISE OKL_API.G_EXCEPTION_ERROR;
599: END IF;
600: --------------
601: --End Bug# 4558486
602: --------------
613: p_khr_id => p_chr_id,
614: p_major_version => p_major_version);
615:
616: --- If any errors happen abort API
617: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
618: OKL_API.set_message(p_app_name => G_APP_NAME,
619: p_msg_name => G_CREATE_VER_ERROR,
620: p_token1 => G_COL_NAME_TOKEN,
621: p_token1_value => 'OKL_STREAMS_H');
614: p_major_version => p_major_version);
615:
616: --- If any errors happen abort API
617: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
618: OKL_API.set_message(p_app_name => G_APP_NAME,
619: p_msg_name => G_CREATE_VER_ERROR,
620: p_token1 => G_COL_NAME_TOKEN,
621: p_token1_value => 'OKL_STREAMS_H');
622: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
618: OKL_API.set_message(p_app_name => G_APP_NAME,
619: p_msg_name => G_CREATE_VER_ERROR,
620: p_token1 => G_COL_NAME_TOKEN,
621: p_token1_value => 'OKL_STREAMS_H');
622: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
623: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
624: OKL_API.set_message(p_app_name => G_APP_NAME,
625: p_msg_name => G_CREATE_VER_ERROR,
626: p_token1 => G_COL_NAME_TOKEN,
619: p_msg_name => G_CREATE_VER_ERROR,
620: p_token1 => G_COL_NAME_TOKEN,
621: p_token1_value => 'OKL_STREAMS_H');
622: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
623: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
624: OKL_API.set_message(p_app_name => G_APP_NAME,
625: p_msg_name => G_CREATE_VER_ERROR,
626: p_token1 => G_COL_NAME_TOKEN,
627: p_token1_value => 'OKL_STREAMS_H');
620: p_token1 => G_COL_NAME_TOKEN,
621: p_token1_value => 'OKL_STREAMS_H');
622: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
623: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
624: OKL_API.set_message(p_app_name => G_APP_NAME,
625: p_msg_name => G_CREATE_VER_ERROR,
626: p_token1 => G_COL_NAME_TOKEN,
627: p_token1_value => 'OKL_STREAMS_H');
628: RAISE OKL_API.G_EXCEPTION_ERROR;
624: OKL_API.set_message(p_app_name => G_APP_NAME,
625: p_msg_name => G_CREATE_VER_ERROR,
626: p_token1 => G_COL_NAME_TOKEN,
627: p_token1_value => 'OKL_STREAMS_H');
628: RAISE OKL_API.G_EXCEPTION_ERROR;
629: END IF;
630: --------------
631: --End Bug# 3379716:
632: ---------------
639: x_msg_data => x_msg_data,
640: p_chr_id => p_chr_id,
641: p_major_version => p_major_version);
642: --- If any errors happen abort API
643: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
644: OKL_API.set_message(p_app_name => G_APP_NAME,
645: p_msg_name => G_CREATE_VER_ERROR,
646: p_token1 => G_COL_NAME_TOKEN,
647: p_token1_value => 'OKL_CONTRACT_ASSET_H');
640: p_chr_id => p_chr_id,
641: p_major_version => p_major_version);
642: --- If any errors happen abort API
643: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
644: OKL_API.set_message(p_app_name => G_APP_NAME,
645: p_msg_name => G_CREATE_VER_ERROR,
646: p_token1 => G_COL_NAME_TOKEN,
647: p_token1_value => 'OKL_CONTRACT_ASSET_H');
648: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
644: OKL_API.set_message(p_app_name => G_APP_NAME,
645: p_msg_name => G_CREATE_VER_ERROR,
646: p_token1 => G_COL_NAME_TOKEN,
647: p_token1_value => 'OKL_CONTRACT_ASSET_H');
648: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
649: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
650: OKL_API.set_message(p_app_name => G_APP_NAME,
651: p_msg_name => G_CREATE_VER_ERROR,
652: p_token1 => G_COL_NAME_TOKEN,
645: p_msg_name => G_CREATE_VER_ERROR,
646: p_token1 => G_COL_NAME_TOKEN,
647: p_token1_value => 'OKL_CONTRACT_ASSET_H');
648: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
649: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
650: OKL_API.set_message(p_app_name => G_APP_NAME,
651: p_msg_name => G_CREATE_VER_ERROR,
652: p_token1 => G_COL_NAME_TOKEN,
653: p_token1_value => 'OKL_CONTRACT_ASSET_H');
646: p_token1 => G_COL_NAME_TOKEN,
647: p_token1_value => 'OKL_CONTRACT_ASSET_H');
648: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
649: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
650: OKL_API.set_message(p_app_name => G_APP_NAME,
651: p_msg_name => G_CREATE_VER_ERROR,
652: p_token1 => G_COL_NAME_TOKEN,
653: p_token1_value => 'OKL_CONTRACT_ASSET_H');
654: RAISE OKL_API.G_EXCEPTION_ERROR;
650: OKL_API.set_message(p_app_name => G_APP_NAME,
651: p_msg_name => G_CREATE_VER_ERROR,
652: p_token1 => G_COL_NAME_TOKEN,
653: p_token1_value => 'OKL_CONTRACT_ASSET_H');
654: RAISE OKL_API.G_EXCEPTION_ERROR;
655: END IF;
656: -- Versioning the Install Base information
657: Create_ib_version(p_api_version => p_api_version,
658: p_init_msg_list => p_init_msg_list,
661: x_msg_data => x_msg_data,
662: p_chr_id => p_chr_id,
663: p_major_version => p_major_version);
664: --- If any errors happen abort API
665: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
666: OKL_API.set_message(p_app_name => G_APP_NAME,
667: p_msg_name => G_CREATE_VER_ERROR,
668: p_token1 => G_COL_NAME_TOKEN,
669: p_token1_value => 'OKL_CONTRACT_IB_H');
662: p_chr_id => p_chr_id,
663: p_major_version => p_major_version);
664: --- If any errors happen abort API
665: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
666: OKL_API.set_message(p_app_name => G_APP_NAME,
667: p_msg_name => G_CREATE_VER_ERROR,
668: p_token1 => G_COL_NAME_TOKEN,
669: p_token1_value => 'OKL_CONTRACT_IB_H');
670: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
666: OKL_API.set_message(p_app_name => G_APP_NAME,
667: p_msg_name => G_CREATE_VER_ERROR,
668: p_token1 => G_COL_NAME_TOKEN,
669: p_token1_value => 'OKL_CONTRACT_IB_H');
670: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
671: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
672: OKL_API.set_message(p_app_name => G_APP_NAME,
673: p_msg_name => G_CREATE_VER_ERROR,
674: p_token1 => G_COL_NAME_TOKEN,
667: p_msg_name => G_CREATE_VER_ERROR,
668: p_token1 => G_COL_NAME_TOKEN,
669: p_token1_value => 'OKL_CONTRACT_IB_H');
670: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
671: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
672: OKL_API.set_message(p_app_name => G_APP_NAME,
673: p_msg_name => G_CREATE_VER_ERROR,
674: p_token1 => G_COL_NAME_TOKEN,
675: p_token1_value => 'OKL_CONTRACT_IB_H');
668: p_token1 => G_COL_NAME_TOKEN,
669: p_token1_value => 'OKL_CONTRACT_IB_H');
670: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
671: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
672: OKL_API.set_message(p_app_name => G_APP_NAME,
673: p_msg_name => G_CREATE_VER_ERROR,
674: p_token1 => G_COL_NAME_TOKEN,
675: p_token1_value => 'OKL_CONTRACT_IB_H');
676: RAISE OKL_API.G_EXCEPTION_ERROR;
672: OKL_API.set_message(p_app_name => G_APP_NAME,
673: p_msg_name => G_CREATE_VER_ERROR,
674: p_token1 => G_COL_NAME_TOKEN,
675: p_token1_value => 'OKL_CONTRACT_IB_H');
676: RAISE OKL_API.G_EXCEPTION_ERROR;
677: END IF;
678: OKL_API.END_ACTIVITY (x_msg_count,
679: x_msg_data );
680: EXCEPTION
674: p_token1 => G_COL_NAME_TOKEN,
675: p_token1_value => 'OKL_CONTRACT_IB_H');
676: RAISE OKL_API.G_EXCEPTION_ERROR;
677: END IF;
678: OKL_API.END_ACTIVITY (x_msg_count,
679: x_msg_data );
680: EXCEPTION
681: WHEN OKL_API.G_EXCEPTION_ERROR THEN
682: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
677: END IF;
678: OKL_API.END_ACTIVITY (x_msg_count,
679: x_msg_data );
680: EXCEPTION
681: WHEN OKL_API.G_EXCEPTION_ERROR THEN
682: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
683: l_api_name,
684: G_PKG_NAME,
685: 'OKL_API.G_RET_STS_ERROR',
678: OKL_API.END_ACTIVITY (x_msg_count,
679: x_msg_data );
680: EXCEPTION
681: WHEN OKL_API.G_EXCEPTION_ERROR THEN
682: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
683: l_api_name,
684: G_PKG_NAME,
685: 'OKL_API.G_RET_STS_ERROR',
686: x_msg_count,
681: WHEN OKL_API.G_EXCEPTION_ERROR THEN
682: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
683: l_api_name,
684: G_PKG_NAME,
685: 'OKL_API.G_RET_STS_ERROR',
686: x_msg_count,
687: x_msg_data,
688: '_PVT');
689: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
685: 'OKL_API.G_RET_STS_ERROR',
686: x_msg_count,
687: x_msg_data,
688: '_PVT');
689: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
690: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
691: l_api_name,
692: G_PKG_NAME,
693: 'OKL_API.G_RET_STS_UNEXP_ERROR',
686: x_msg_count,
687: x_msg_data,
688: '_PVT');
689: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
690: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
691: l_api_name,
692: G_PKG_NAME,
693: 'OKL_API.G_RET_STS_UNEXP_ERROR',
694: x_msg_count,
689: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
690: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
691: l_api_name,
692: G_PKG_NAME,
693: 'OKL_API.G_RET_STS_UNEXP_ERROR',
694: x_msg_count,
695: x_msg_data,
696: '_PVT');
697: WHEN OTHERS THEN
694: x_msg_count,
695: x_msg_data,
696: '_PVT');
697: WHEN OTHERS THEN
698: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
699: l_api_name,
700: G_PKG_NAME,
701: 'OTHERS',
702: x_msg_count,
712: -- Version : 1.0
713: -- End of comments
714: PROCEDURE restore_version_extra(
715: p_api_version IN NUMBER,
716: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
717: x_return_status OUT NOCOPY VARCHAR2,
718: x_msg_count OUT NOCOPY NUMBER,
719: x_msg_data OUT NOCOPY VARCHAR2,
720: p_chr_id IN NUMBER,
721: p_major_version IN NUMBER) IS
722: l_api_version CONSTANT NUMBER := 1;
723: l_api_name CONSTANT VARCHAR2(30) := 'OKL_RESTORE_VERSION';
724: BEGIN
725: x_return_status := OKL_API.G_RET_STS_SUCCESS;
726: -- Call start_activity to create savepoint, check compatibility
727: -- and initialize message list
728: x_return_status := OKL_API.START_ACTIVITY (
729: l_api_name
724: BEGIN
725: x_return_status := OKL_API.G_RET_STS_SUCCESS;
726: -- Call start_activity to create savepoint, check compatibility
727: -- and initialize message list
728: x_return_status := OKL_API.START_ACTIVITY (
729: l_api_name
730: ,p_init_msg_list
731: ,'_PVT'
732: ,x_return_status);
730: ,p_init_msg_list
731: ,'_PVT'
732: ,x_return_status);
733: -- Check if activity started successfully
734: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
735: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
736: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
737: RAISE OKL_API.G_EXCEPTION_ERROR;
738: END IF;
731: ,'_PVT'
732: ,x_return_status);
733: -- Check if activity started successfully
734: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
735: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
736: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
737: RAISE OKL_API.G_EXCEPTION_ERROR;
738: END IF;
739: --version contract header
732: ,x_return_status);
733: -- Check if activity started successfully
734: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
735: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
736: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
737: RAISE OKL_API.G_EXCEPTION_ERROR;
738: END IF;
739: --version contract header
740: x_return_status:=OKL_KHR_PVT.Restore_Version(p_chr_id,
733: -- Check if activity started successfully
734: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
735: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
736: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
737: RAISE OKL_API.G_EXCEPTION_ERROR;
738: END IF;
739: --version contract header
740: x_return_status:=OKL_KHR_PVT.Restore_Version(p_chr_id,
741: p_major_version);
739: --version contract header
740: x_return_status:=OKL_KHR_PVT.Restore_Version(p_chr_id,
741: p_major_version);
742: --- If any errors happen abort API
743: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
744: OKL_API.set_message(p_app_name => G_APP_NAME,
745: p_msg_name => G_RESTORE_VER_ERROR,
746: p_token1 => G_COL_NAME_TOKEN,
747: p_token1_value => 'OKL_K_HEADERS_H');
740: x_return_status:=OKL_KHR_PVT.Restore_Version(p_chr_id,
741: p_major_version);
742: --- If any errors happen abort API
743: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
744: OKL_API.set_message(p_app_name => G_APP_NAME,
745: p_msg_name => G_RESTORE_VER_ERROR,
746: p_token1 => G_COL_NAME_TOKEN,
747: p_token1_value => 'OKL_K_HEADERS_H');
748: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
744: OKL_API.set_message(p_app_name => G_APP_NAME,
745: p_msg_name => G_RESTORE_VER_ERROR,
746: p_token1 => G_COL_NAME_TOKEN,
747: p_token1_value => 'OKL_K_HEADERS_H');
748: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
749: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
750: OKL_API.set_message(p_app_name => G_APP_NAME,
751: p_msg_name => G_RESTORE_VER_ERROR,
752: p_token1 => G_COL_NAME_TOKEN,
745: p_msg_name => G_RESTORE_VER_ERROR,
746: p_token1 => G_COL_NAME_TOKEN,
747: p_token1_value => 'OKL_K_HEADERS_H');
748: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
749: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
750: OKL_API.set_message(p_app_name => G_APP_NAME,
751: p_msg_name => G_RESTORE_VER_ERROR,
752: p_token1 => G_COL_NAME_TOKEN,
753: p_token1_value => 'OKL_K_HEADERS_H');
746: p_token1 => G_COL_NAME_TOKEN,
747: p_token1_value => 'OKL_K_HEADERS_H');
748: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
749: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
750: OKL_API.set_message(p_app_name => G_APP_NAME,
751: p_msg_name => G_RESTORE_VER_ERROR,
752: p_token1 => G_COL_NAME_TOKEN,
753: p_token1_value => 'OKL_K_HEADERS_H');
754: RAISE OKL_API.G_EXCEPTION_ERROR;
750: OKL_API.set_message(p_app_name => G_APP_NAME,
751: p_msg_name => G_RESTORE_VER_ERROR,
752: p_token1 => G_COL_NAME_TOKEN,
753: p_token1_value => 'OKL_K_HEADERS_H');
754: RAISE OKL_API.G_EXCEPTION_ERROR;
755: END IF;
756: --version contract lines
757: x_return_status:=OKL_KLE_PVT.Restore_Version(p_chr_id,
758: p_major_version);
756: --version contract lines
757: x_return_status:=OKL_KLE_PVT.Restore_Version(p_chr_id,
758: p_major_version);
759: --- If any errors happen abort API
760: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
761: OKL_API.set_message(p_app_name => G_APP_NAME,
762: p_msg_name => G_RESTORE_VER_ERROR,
763: p_token1 => G_COL_NAME_TOKEN,
764: p_token1_value => 'OKL_K_LINES_H');
757: x_return_status:=OKL_KLE_PVT.Restore_Version(p_chr_id,
758: p_major_version);
759: --- If any errors happen abort API
760: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
761: OKL_API.set_message(p_app_name => G_APP_NAME,
762: p_msg_name => G_RESTORE_VER_ERROR,
763: p_token1 => G_COL_NAME_TOKEN,
764: p_token1_value => 'OKL_K_LINES_H');
765: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
761: OKL_API.set_message(p_app_name => G_APP_NAME,
762: p_msg_name => G_RESTORE_VER_ERROR,
763: p_token1 => G_COL_NAME_TOKEN,
764: p_token1_value => 'OKL_K_LINES_H');
765: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
766: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
767: OKL_API.set_message(p_app_name => G_APP_NAME,
768: p_msg_name => G_RESTORE_VER_ERROR,
769: p_token1 => G_COL_NAME_TOKEN,
762: p_msg_name => G_RESTORE_VER_ERROR,
763: p_token1 => G_COL_NAME_TOKEN,
764: p_token1_value => 'OKL_K_LINES_H');
765: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
766: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
767: OKL_API.set_message(p_app_name => G_APP_NAME,
768: p_msg_name => G_RESTORE_VER_ERROR,
769: p_token1 => G_COL_NAME_TOKEN,
770: p_token1_value => 'OKL_K_LINES_H');
763: p_token1 => G_COL_NAME_TOKEN,
764: p_token1_value => 'OKL_K_LINES_H');
765: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
766: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
767: OKL_API.set_message(p_app_name => G_APP_NAME,
768: p_msg_name => G_RESTORE_VER_ERROR,
769: p_token1 => G_COL_NAME_TOKEN,
770: p_token1_value => 'OKL_K_LINES_H');
771: RAISE OKL_API.G_EXCEPTION_ERROR;
767: OKL_API.set_message(p_app_name => G_APP_NAME,
768: p_msg_name => G_RESTORE_VER_ERROR,
769: p_token1 => G_COL_NAME_TOKEN,
770: p_token1_value => 'OKL_K_LINES_H');
771: RAISE OKL_API.G_EXCEPTION_ERROR;
772: END IF;
773: x_return_status:=OKL_SID_PVT.Restore_Version(p_chr_id,
774: p_major_version);
775: --- If any errors happen abort API
772: END IF;
773: x_return_status:=OKL_SID_PVT.Restore_Version(p_chr_id,
774: p_major_version);
775: --- If any errors happen abort API
776: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
777: OKL_API.set_message(p_app_name => G_APP_NAME,
778: p_msg_name => G_RESTORE_VER_ERROR,
779: p_token1 => G_COL_NAME_TOKEN,
780: p_token1_value => 'OKL_SUPP_INVOICE_DTLS_H');
773: x_return_status:=OKL_SID_PVT.Restore_Version(p_chr_id,
774: p_major_version);
775: --- If any errors happen abort API
776: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
777: OKL_API.set_message(p_app_name => G_APP_NAME,
778: p_msg_name => G_RESTORE_VER_ERROR,
779: p_token1 => G_COL_NAME_TOKEN,
780: p_token1_value => 'OKL_SUPP_INVOICE_DTLS_H');
781: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
777: OKL_API.set_message(p_app_name => G_APP_NAME,
778: p_msg_name => G_RESTORE_VER_ERROR,
779: p_token1 => G_COL_NAME_TOKEN,
780: p_token1_value => 'OKL_SUPP_INVOICE_DTLS_H');
781: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
782: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
783: OKL_API.set_message(p_app_name => G_APP_NAME,
784: p_msg_name => G_RESTORE_VER_ERROR,
785: p_token1 => G_COL_NAME_TOKEN,
778: p_msg_name => G_RESTORE_VER_ERROR,
779: p_token1 => G_COL_NAME_TOKEN,
780: p_token1_value => 'OKL_SUPP_INVOICE_DTLS_H');
781: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
782: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
783: OKL_API.set_message(p_app_name => G_APP_NAME,
784: p_msg_name => G_RESTORE_VER_ERROR,
785: p_token1 => G_COL_NAME_TOKEN,
786: p_token1_value => 'OKL_SUPP_INVOICE_DTLS_H');
779: p_token1 => G_COL_NAME_TOKEN,
780: p_token1_value => 'OKL_SUPP_INVOICE_DTLS_H');
781: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
782: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
783: OKL_API.set_message(p_app_name => G_APP_NAME,
784: p_msg_name => G_RESTORE_VER_ERROR,
785: p_token1 => G_COL_NAME_TOKEN,
786: p_token1_value => 'OKL_SUPP_INVOICE_DTLS_H');
787: RAISE OKL_API.G_EXCEPTION_ERROR;
783: OKL_API.set_message(p_app_name => G_APP_NAME,
784: p_msg_name => G_RESTORE_VER_ERROR,
785: p_token1 => G_COL_NAME_TOKEN,
786: p_token1_value => 'OKL_SUPP_INVOICE_DTLS_H');
787: RAISE OKL_API.G_EXCEPTION_ERROR;
788: END IF;
789: -------------
790: --version party payment hdr,fmiao
791: -------------
791: -------------
792: x_return_status:=OKL_LDB_PVT.Restore_Version(p_chr_id,
793: p_major_version);
794: --- If any errors happen abort API
795: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
796: OKL_API.set_message(p_app_name => G_APP_NAME,
797: p_msg_name => G_RESTORE_VER_ERROR,
798: p_token1 => G_COL_NAME_TOKEN,
799: p_token1_value => 'OKL_PARTY_PAYMENT_HDR_H');
792: x_return_status:=OKL_LDB_PVT.Restore_Version(p_chr_id,
793: p_major_version);
794: --- If any errors happen abort API
795: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
796: OKL_API.set_message(p_app_name => G_APP_NAME,
797: p_msg_name => G_RESTORE_VER_ERROR,
798: p_token1 => G_COL_NAME_TOKEN,
799: p_token1_value => 'OKL_PARTY_PAYMENT_HDR_H');
800: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
796: OKL_API.set_message(p_app_name => G_APP_NAME,
797: p_msg_name => G_RESTORE_VER_ERROR,
798: p_token1 => G_COL_NAME_TOKEN,
799: p_token1_value => 'OKL_PARTY_PAYMENT_HDR_H');
800: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
801: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
802: OKL_API.set_message(p_app_name => G_APP_NAME,
803: p_msg_name => G_RESTORE_VER_ERROR,
804: p_token1 => G_COL_NAME_TOKEN,
797: p_msg_name => G_RESTORE_VER_ERROR,
798: p_token1 => G_COL_NAME_TOKEN,
799: p_token1_value => 'OKL_PARTY_PAYMENT_HDR_H');
800: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
801: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
802: OKL_API.set_message(p_app_name => G_APP_NAME,
803: p_msg_name => G_RESTORE_VER_ERROR,
804: p_token1 => G_COL_NAME_TOKEN,
805: p_token1_value => 'OKL_PARTY_PAYMENT_HDR_H');
798: p_token1 => G_COL_NAME_TOKEN,
799: p_token1_value => 'OKL_PARTY_PAYMENT_HDR_H');
800: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
801: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
802: OKL_API.set_message(p_app_name => G_APP_NAME,
803: p_msg_name => G_RESTORE_VER_ERROR,
804: p_token1 => G_COL_NAME_TOKEN,
805: p_token1_value => 'OKL_PARTY_PAYMENT_HDR_H');
806: RAISE OKL_API.G_EXCEPTION_ERROR;
802: OKL_API.set_message(p_app_name => G_APP_NAME,
803: p_msg_name => G_RESTORE_VER_ERROR,
804: p_token1 => G_COL_NAME_TOKEN,
805: p_token1_value => 'OKL_PARTY_PAYMENT_HDR_H');
806: RAISE OKL_API.G_EXCEPTION_ERROR;
807: END IF;
808: -------------
809: --Bug# 3143522
810: -------------
810: -------------
811: x_return_status:=OKL_PYD_PVT.Restore_Version(p_chr_id,
812: p_major_version);
813: --- If any errors happen abort API
814: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
815: OKL_API.set_message(p_app_name => G_APP_NAME,
816: p_msg_name => G_RESTORE_VER_ERROR,
817: p_token1 => G_COL_NAME_TOKEN,
818: p_token1_value => 'OKL_PARTY_PAYMENT_DTLS_H');
811: x_return_status:=OKL_PYD_PVT.Restore_Version(p_chr_id,
812: p_major_version);
813: --- If any errors happen abort API
814: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
815: OKL_API.set_message(p_app_name => G_APP_NAME,
816: p_msg_name => G_RESTORE_VER_ERROR,
817: p_token1 => G_COL_NAME_TOKEN,
818: p_token1_value => 'OKL_PARTY_PAYMENT_DTLS_H');
819: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
815: OKL_API.set_message(p_app_name => G_APP_NAME,
816: p_msg_name => G_RESTORE_VER_ERROR,
817: p_token1 => G_COL_NAME_TOKEN,
818: p_token1_value => 'OKL_PARTY_PAYMENT_DTLS_H');
819: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
820: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
821: OKL_API.set_message(p_app_name => G_APP_NAME,
822: p_msg_name => G_RESTORE_VER_ERROR,
823: p_token1 => G_COL_NAME_TOKEN,
816: p_msg_name => G_RESTORE_VER_ERROR,
817: p_token1 => G_COL_NAME_TOKEN,
818: p_token1_value => 'OKL_PARTY_PAYMENT_DTLS_H');
819: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
820: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
821: OKL_API.set_message(p_app_name => G_APP_NAME,
822: p_msg_name => G_RESTORE_VER_ERROR,
823: p_token1 => G_COL_NAME_TOKEN,
824: p_token1_value => 'OKL_PARTY_PAYMENT_DTLS_H');
817: p_token1 => G_COL_NAME_TOKEN,
818: p_token1_value => 'OKL_PARTY_PAYMENT_DTLS_H');
819: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
820: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
821: OKL_API.set_message(p_app_name => G_APP_NAME,
822: p_msg_name => G_RESTORE_VER_ERROR,
823: p_token1 => G_COL_NAME_TOKEN,
824: p_token1_value => 'OKL_PARTY_PAYMENT_DTLS_H');
825: RAISE OKL_API.G_EXCEPTION_ERROR;
821: OKL_API.set_message(p_app_name => G_APP_NAME,
822: p_msg_name => G_RESTORE_VER_ERROR,
823: p_token1 => G_COL_NAME_TOKEN,
824: p_token1_value => 'OKL_PARTY_PAYMENT_DTLS_H');
825: RAISE OKL_API.G_EXCEPTION_ERROR;
826: END IF;
827: -------------
828: --End Bug# 3143522
829: -------------
834: --Version Okl_K_Party_Roles
835: x_return_status:=OKL_KPL_PVT.Restore_Version(p_chr_id,
836: p_major_version);
837: --- If any errors happen abort API
838: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
839: OKL_API.set_message(p_app_name => G_APP_NAME,
840: p_msg_name => G_RESTORE_VER_ERROR,
841: p_token1 => G_COL_NAME_TOKEN,
842: p_token1_value => 'OKL_K_PARTY_ROLES_H');
835: x_return_status:=OKL_KPL_PVT.Restore_Version(p_chr_id,
836: p_major_version);
837: --- If any errors happen abort API
838: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
839: OKL_API.set_message(p_app_name => G_APP_NAME,
840: p_msg_name => G_RESTORE_VER_ERROR,
841: p_token1 => G_COL_NAME_TOKEN,
842: p_token1_value => 'OKL_K_PARTY_ROLES_H');
843: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
839: OKL_API.set_message(p_app_name => G_APP_NAME,
840: p_msg_name => G_RESTORE_VER_ERROR,
841: p_token1 => G_COL_NAME_TOKEN,
842: p_token1_value => 'OKL_K_PARTY_ROLES_H');
843: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
844: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
845: OKL_API.set_message(p_app_name => G_APP_NAME,
846: p_msg_name => G_RESTORE_VER_ERROR,
847: p_token1 => G_COL_NAME_TOKEN,
840: p_msg_name => G_RESTORE_VER_ERROR,
841: p_token1 => G_COL_NAME_TOKEN,
842: p_token1_value => 'OKL_K_PARTY_ROLES_H');
843: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
844: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
845: OKL_API.set_message(p_app_name => G_APP_NAME,
846: p_msg_name => G_RESTORE_VER_ERROR,
847: p_token1 => G_COL_NAME_TOKEN,
848: p_token1_value => 'OKL_K_PARTY_ROLES_H');
841: p_token1 => G_COL_NAME_TOKEN,
842: p_token1_value => 'OKL_K_PARTY_ROLES_H');
843: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
844: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
845: OKL_API.set_message(p_app_name => G_APP_NAME,
846: p_msg_name => G_RESTORE_VER_ERROR,
847: p_token1 => G_COL_NAME_TOKEN,
848: p_token1_value => 'OKL_K_PARTY_ROLES_H');
849: RAISE OKL_API.G_EXCEPTION_ERROR;
845: OKL_API.set_message(p_app_name => G_APP_NAME,
846: p_msg_name => G_RESTORE_VER_ERROR,
847: p_token1 => G_COL_NAME_TOKEN,
848: p_token1_value => 'OKL_K_PARTY_ROLES_H');
849: RAISE OKL_API.G_EXCEPTION_ERROR;
850: END IF;
851: -------------
852: --End Bug# 4558486
853: -------------
855:
856: -- More thought for Restore of OKL_CONTRACT_ASSET_H and
857: -- OKL_CONTRACT_IB_H tables is to be give so untill then we
858: -- not code for restore of these tables
859: OKL_API.END_ACTIVITY (x_msg_count,
860: x_msg_data );
861:
862: EXCEPTION
863: WHEN OKL_API.G_EXCEPTION_ERROR THEN
859: OKL_API.END_ACTIVITY (x_msg_count,
860: x_msg_data );
861:
862: EXCEPTION
863: WHEN OKL_API.G_EXCEPTION_ERROR THEN
864: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
865: l_api_name,
866: G_PKG_NAME,
867: 'OKL_API.G_RET_STS_ERROR',
860: x_msg_data );
861:
862: EXCEPTION
863: WHEN OKL_API.G_EXCEPTION_ERROR THEN
864: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
865: l_api_name,
866: G_PKG_NAME,
867: 'OKL_API.G_RET_STS_ERROR',
868: x_msg_count,
863: WHEN OKL_API.G_EXCEPTION_ERROR THEN
864: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
865: l_api_name,
866: G_PKG_NAME,
867: 'OKL_API.G_RET_STS_ERROR',
868: x_msg_count,
869: x_msg_data,
870: '_PVT');
871: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
867: 'OKL_API.G_RET_STS_ERROR',
868: x_msg_count,
869: x_msg_data,
870: '_PVT');
871: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
872: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
873: l_api_name,
874: G_PKG_NAME,
875: 'OKL_API.G_RET_STS_UNEXP_ERROR',
868: x_msg_count,
869: x_msg_data,
870: '_PVT');
871: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
872: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
873: l_api_name,
874: G_PKG_NAME,
875: 'OKL_API.G_RET_STS_UNEXP_ERROR',
876: x_msg_count,
871: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
872: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
873: l_api_name,
874: G_PKG_NAME,
875: 'OKL_API.G_RET_STS_UNEXP_ERROR',
876: x_msg_count,
877: x_msg_data,
878: '_PVT');
879: WHEN OTHERS THEN
876: x_msg_count,
877: x_msg_data,
878: '_PVT');
879: WHEN OTHERS THEN
880: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
881: l_api_name,
882: G_PKG_NAME,
883: 'OTHERS',
884: x_msg_count,
894: -- Version : 1.0
895: -- End of comments
896: PROCEDURE delete_base(
897: p_api_version IN NUMBER,
898: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
899: x_return_status OUT NOCOPY VARCHAR2,
900: x_msg_count OUT NOCOPY NUMBER,
901: x_msg_data OUT NOCOPY VARCHAR2,
902: p_chr_id IN NUMBER) IS
902: p_chr_id IN NUMBER) IS
903: l_api_version CONSTANT NUMBER := 1;
904: l_api_name CONSTANT VARCHAR2(30) := 'OKL_DELETE_BASE';
905: BEGIN
906: x_return_status := OKL_API.G_RET_STS_SUCCESS;
907: -- Call start_activity to create savepoint, check compatibility
908: -- and initialize message list
909: x_return_status := OKL_API.START_ACTIVITY (
910: l_api_name
905: BEGIN
906: x_return_status := OKL_API.G_RET_STS_SUCCESS;
907: -- Call start_activity to create savepoint, check compatibility
908: -- and initialize message list
909: x_return_status := OKL_API.START_ACTIVITY (
910: l_api_name
911: ,p_init_msg_list
912: ,'_PVT'
913: ,x_return_status);
911: ,p_init_msg_list
912: ,'_PVT'
913: ,x_return_status);
914: -- Check if activity started successfully
915: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
916: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
917: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
918: RAISE OKL_API.G_EXCEPTION_ERROR;
919: END IF;
912: ,'_PVT'
913: ,x_return_status);
914: -- Check if activity started successfully
915: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
916: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
917: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
918: RAISE OKL_API.G_EXCEPTION_ERROR;
919: END IF;
920: -- Deleting the Header
913: ,x_return_status);
914: -- Check if activity started successfully
915: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
916: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
917: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
918: RAISE OKL_API.G_EXCEPTION_ERROR;
919: END IF;
920: -- Deleting the Header
921: DELETE FROM OKL_K_HEADERS
914: -- Check if activity started successfully
915: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
916: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
917: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
918: RAISE OKL_API.G_EXCEPTION_ERROR;
919: END IF;
920: -- Deleting the Header
921: DELETE FROM OKL_K_HEADERS
922: WHERE id = p_chr_id;
933: WHERE DNZ_CHR_ID = p_chr_id;
934: -- Deleting the IB VERSION
935: DELETE FROM OKL_CONTRACT_IB_H
936: WHERE DNZ_CHR_ID = p_chr_id;
937: OKL_API.END_ACTIVITY (x_msg_count,
938: x_msg_data );
939: EXCEPTION
940: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
941: OKL_API.set_message(p_app_name => G_APP_NAME,
936: WHERE DNZ_CHR_ID = p_chr_id;
937: OKL_API.END_ACTIVITY (x_msg_count,
938: x_msg_data );
939: EXCEPTION
940: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
941: OKL_API.set_message(p_app_name => G_APP_NAME,
942: p_msg_name => G_DELETE_BASE_ERROR);
943: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
944: l_api_name,
937: OKL_API.END_ACTIVITY (x_msg_count,
938: x_msg_data );
939: EXCEPTION
940: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
941: OKL_API.set_message(p_app_name => G_APP_NAME,
942: p_msg_name => G_DELETE_BASE_ERROR);
943: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
944: l_api_name,
945: G_PKG_NAME,
939: EXCEPTION
940: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
941: OKL_API.set_message(p_app_name => G_APP_NAME,
942: p_msg_name => G_DELETE_BASE_ERROR);
943: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
944: l_api_name,
945: G_PKG_NAME,
946: 'OKL_API.G_RET_STS_UNEXP_ERROR',
947: x_msg_count,
942: p_msg_name => G_DELETE_BASE_ERROR);
943: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
944: l_api_name,
945: G_PKG_NAME,
946: 'OKL_API.G_RET_STS_UNEXP_ERROR',
947: x_msg_count,
948: x_msg_data,
949: '_PVT');
950: WHEN OTHERS THEN
947: x_msg_count,
948: x_msg_data,
949: '_PVT');
950: WHEN OTHERS THEN
951: OKL_API.set_message(p_app_name => G_APP_NAME,
952: p_msg_name => G_DELETE_BASE_ERROR);
953: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
954: l_api_name,
955: G_PKG_NAME,
949: '_PVT');
950: WHEN OTHERS THEN
951: OKL_API.set_message(p_app_name => G_APP_NAME,
952: p_msg_name => G_DELETE_BASE_ERROR);
953: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
954: l_api_name,
955: G_PKG_NAME,
956: 'OTHERS',
957: x_msg_count,
967: -- Version : 1.0
968: -- End of comments
969: PROCEDURE delete_version (
970: p_api_version IN NUMBER,
971: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
972: x_return_status OUT NOCOPY VARCHAR2,
973: x_msg_count OUT NOCOPY NUMBER,
974: x_msg_data OUT NOCOPY VARCHAR2,
975: p_chr_id IN NUMBER,
980: l_minor_version NUMBER := p_minor_version;
981: l_api_version CONSTANT NUMBER := 1;
982: l_api_name CONSTANT VARCHAR2(30) := 'OKL_DELETE_VERSION';
983: BEGIN
984: x_return_status := OKL_API.G_RET_STS_SUCCESS;
985: -- Call start_activity to create savepoint, check compatibility
986: -- and initialize message list
987: x_return_status := OKL_API.START_ACTIVITY (
988: l_api_name
983: BEGIN
984: x_return_status := OKL_API.G_RET_STS_SUCCESS;
985: -- Call start_activity to create savepoint, check compatibility
986: -- and initialize message list
987: x_return_status := OKL_API.START_ACTIVITY (
988: l_api_name
989: ,p_init_msg_list
990: ,'_PVT'
991: ,x_return_status);
989: ,p_init_msg_list
990: ,'_PVT'
991: ,x_return_status);
992: -- Check if activity started successfully
993: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
994: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
995: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
996: RAISE OKL_API.G_EXCEPTION_ERROR;
997: END IF;
990: ,'_PVT'
991: ,x_return_status);
992: -- Check if activity started successfully
993: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
994: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
995: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
996: RAISE OKL_API.G_EXCEPTION_ERROR;
997: END IF;
998: -- Deleting the Header
991: ,x_return_status);
992: -- Check if activity started successfully
993: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
994: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
995: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
996: RAISE OKL_API.G_EXCEPTION_ERROR;
997: END IF;
998: -- Deleting the Header
999: DELETE FROM OKL_K_HEADERS_H
992: -- Check if activity started successfully
993: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
994: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
995: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
996: RAISE OKL_API.G_EXCEPTION_ERROR;
997: END IF;
998: -- Deleting the Header
999: DELETE FROM OKL_K_HEADERS_H
1000: WHERE id= p_chr_id
1034: AND p_called_from = 'ERASE_SAVED_VERSION') OR
1035: (p_called_from = 'RESTORE_VERSION'
1036: AND (major_version >= l_major_version OR
1037: major_version = -1)));
1038: OKL_API.END_ACTIVITY (x_msg_count,
1039: x_msg_data );
1040: EXCEPTION
1041: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1042: OKL_API.set_message(p_app_name => G_APP_NAME,
1037: major_version = -1)));
1038: OKL_API.END_ACTIVITY (x_msg_count,
1039: x_msg_data );
1040: EXCEPTION
1041: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1042: OKL_API.set_message(p_app_name => G_APP_NAME,
1043: p_msg_name => G_DELETE_VER_ERROR);
1044: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
1045: l_api_name,
1038: OKL_API.END_ACTIVITY (x_msg_count,
1039: x_msg_data );
1040: EXCEPTION
1041: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1042: OKL_API.set_message(p_app_name => G_APP_NAME,
1043: p_msg_name => G_DELETE_VER_ERROR);
1044: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
1045: l_api_name,
1046: G_PKG_NAME,
1040: EXCEPTION
1041: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1042: OKL_API.set_message(p_app_name => G_APP_NAME,
1043: p_msg_name => G_DELETE_VER_ERROR);
1044: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
1045: l_api_name,
1046: G_PKG_NAME,
1047: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1048: x_msg_count,
1043: p_msg_name => G_DELETE_VER_ERROR);
1044: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
1045: l_api_name,
1046: G_PKG_NAME,
1047: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1048: x_msg_count,
1049: x_msg_data,
1050: '_PVT');
1051: WHEN OTHERS THEN
1048: x_msg_count,
1049: x_msg_data,
1050: '_PVT');
1051: WHEN OTHERS THEN
1052: OKL_API.set_message(p_app_name => G_APP_NAME,
1053: p_msg_name => G_DELETE_VER_ERROR);
1054: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
1055: l_api_name,
1056: G_PKG_NAME,
1050: '_PVT');
1051: WHEN OTHERS THEN
1052: OKL_API.set_message(p_app_name => G_APP_NAME,
1053: p_msg_name => G_DELETE_VER_ERROR);
1054: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
1055: l_api_name,
1056: G_PKG_NAME,
1057: 'OTHERS',
1058: x_msg_count,
1070: -- Version : 1.0
1071: -- End of comments
1072: PROCEDURE version_contract(
1073: p_api_version IN NUMBER,
1074: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
1075: x_return_status OUT NOCOPY VARCHAR2,
1076: x_msg_count OUT NOCOPY NUMBER,
1077: x_msg_data OUT NOCOPY VARCHAR2,
1078: p_cvmv_rec IN cvmv_rec_type,
1076: x_msg_count OUT NOCOPY NUMBER,
1077: x_msg_data OUT NOCOPY VARCHAR2,
1078: p_cvmv_rec IN cvmv_rec_type,
1079: x_cvmv_rec OUT NOCOPY cvmv_rec_type,
1080: p_commit IN VARCHAR2 DEFAULT OKL_API.G_FALSE) IS
1081: l_api_version CONSTANT NUMBER := 1;
1082: l_api_name CONSTANT VARCHAR2(30) := 'VERSION_CONTRACT';
1083: l_chr_id NUMBER;
1084: l_major_version NUMBER;
1090: okc_statuses_b st
1091: WHERE chr.id = p_chr_id
1092: and st.code = chr.sts_code;
1093: BEGIN
1094: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1095: x_return_status := OKL_API.START_ACTIVITY(l_api_name,
1096: G_PKG_NAME,
1097: p_init_msg_list,
1098: l_api_version,
1091: WHERE chr.id = p_chr_id
1092: and st.code = chr.sts_code;
1093: BEGIN
1094: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1095: x_return_status := OKL_API.START_ACTIVITY(l_api_name,
1096: G_PKG_NAME,
1097: p_init_msg_list,
1098: l_api_version,
1099: p_api_version,
1098: l_api_version,
1099: p_api_version,
1100: '_PVT',
1101: x_return_status);
1102: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1103: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1104: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1105: RAISE OKL_API.G_EXCEPTION_ERROR;
1106: END IF;
1099: p_api_version,
1100: '_PVT',
1101: x_return_status);
1102: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1103: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1104: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1105: RAISE OKL_API.G_EXCEPTION_ERROR;
1106: END IF;
1107: -- Get the sts code since we can version only active contract
1100: '_PVT',
1101: x_return_status);
1102: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1103: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1104: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1105: RAISE OKL_API.G_EXCEPTION_ERROR;
1106: END IF;
1107: -- Get the sts code since we can version only active contract
1108: OPEN c_get_sts_code(p_cvmv_rec.chr_id);
1101: x_return_status);
1102: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1103: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1104: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1105: RAISE OKL_API.G_EXCEPTION_ERROR;
1106: END IF;
1107: -- Get the sts code since we can version only active contract
1108: OPEN c_get_sts_code(p_cvmv_rec.chr_id);
1109: IF c_get_sts_code%NOTFOUND THEN
1106: END IF;
1107: -- Get the sts code since we can version only active contract
1108: OPEN c_get_sts_code(p_cvmv_rec.chr_id);
1109: IF c_get_sts_code%NOTFOUND THEN
1110: OKL_API.set_message(p_app_name => G_APP_NAME,
1111: p_msg_name => G_NO_MATCHING_RECORD,
1112: p_token1 => G_COL_NAME_TOKEN,
1113: p_token1_value => 'OKC_K_HEADERS_V.STS_CODE');
1114: RAISE OKL_API.G_EXCEPTION_ERROR;
1110: OKL_API.set_message(p_app_name => G_APP_NAME,
1111: p_msg_name => G_NO_MATCHING_RECORD,
1112: p_token1 => G_COL_NAME_TOKEN,
1113: p_token1_value => 'OKC_K_HEADERS_V.STS_CODE');
1114: RAISE OKL_API.G_EXCEPTION_ERROR;
1115: END IF;
1116: FETCH c_get_sts_code INTO lv_sts_code;
1117: CLOSE c_get_sts_code;
1118: IF lv_sts_code = 'ACTIVE' THEN
1123: x_return_status => x_return_status,
1124: x_msg_count => x_msg_count,
1125: x_msg_data => x_msg_data,
1126: p_cvmv_rec => p_cvmv_rec,
1127: p_commit => OKL_API.G_FALSE,
1128: x_cvmv_rec => x_cvmv_rec);
1129: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1130: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1131: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1125: x_msg_data => x_msg_data,
1126: p_cvmv_rec => p_cvmv_rec,
1127: p_commit => OKL_API.G_FALSE,
1128: x_cvmv_rec => x_cvmv_rec);
1129: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1130: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1131: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1132: RAISE OKL_API.G_EXCEPTION_ERROR;
1133: END IF;
1126: p_cvmv_rec => p_cvmv_rec,
1127: p_commit => OKL_API.G_FALSE,
1128: x_cvmv_rec => x_cvmv_rec);
1129: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1130: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1131: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1132: RAISE OKL_API.G_EXCEPTION_ERROR;
1133: END IF;
1134: -- Create the version of the OKL part
1127: p_commit => OKL_API.G_FALSE,
1128: x_cvmv_rec => x_cvmv_rec);
1129: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1130: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1131: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1132: RAISE OKL_API.G_EXCEPTION_ERROR;
1133: END IF;
1134: -- Create the version of the OKL part
1135: l_chr_id :=x_cvmv_rec.chr_id;
1128: x_cvmv_rec => x_cvmv_rec);
1129: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1130: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1131: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1132: RAISE OKL_API.G_EXCEPTION_ERROR;
1133: END IF;
1134: -- Create the version of the OKL part
1135: l_chr_id :=x_cvmv_rec.chr_id;
1136: l_major_version :=x_cvmv_rec.major_version;
1134: -- Create the version of the OKL part
1135: l_chr_id :=x_cvmv_rec.chr_id;
1136: l_major_version :=x_cvmv_rec.major_version;
1137: version_contract_extra(p_api_version => p_api_version,
1138: p_init_msg_list => OKL_API.G_FALSE,
1139: x_return_status => x_return_status,
1140: x_msg_count => x_msg_count,
1141: x_msg_data => x_msg_data,
1142: p_chr_id => l_chr_id,
1141: x_msg_data => x_msg_data,
1142: p_chr_id => l_chr_id,
1143: p_major_version => l_major_version);
1144:
1145: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1146: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1147: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1148: RAISE OKL_API.G_EXCEPTION_ERROR;
1149: END IF;
1142: p_chr_id => l_chr_id,
1143: p_major_version => l_major_version);
1144:
1145: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1146: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1147: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1148: RAISE OKL_API.G_EXCEPTION_ERROR;
1149: END IF;
1150: ELSE
1143: p_major_version => l_major_version);
1144:
1145: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1146: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1147: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1148: RAISE OKL_API.G_EXCEPTION_ERROR;
1149: END IF;
1150: ELSE
1151: OKL_API.set_message(p_app_name => G_APP_NAME,
1144:
1145: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1146: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1147: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1148: RAISE OKL_API.G_EXCEPTION_ERROR;
1149: END IF;
1150: ELSE
1151: OKL_API.set_message(p_app_name => G_APP_NAME,
1152: p_msg_name => G_STATUS,
1147: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1148: RAISE OKL_API.G_EXCEPTION_ERROR;
1149: END IF;
1150: ELSE
1151: OKL_API.set_message(p_app_name => G_APP_NAME,
1152: p_msg_name => G_STATUS,
1153: p_token1 => 'STATUS',
1154: p_token1_value => lv_sts_code);
1155: RAISE OKL_API.G_EXCEPTION_ERROR;
1151: OKL_API.set_message(p_app_name => G_APP_NAME,
1152: p_msg_name => G_STATUS,
1153: p_token1 => 'STATUS',
1154: p_token1_value => lv_sts_code);
1155: RAISE OKL_API.G_EXCEPTION_ERROR;
1156: END IF;
1157: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1158: -- IF (p_commit = OKL_API.G_TRUE) THEN
1159: -- COMMIT;
1153: p_token1 => 'STATUS',
1154: p_token1_value => lv_sts_code);
1155: RAISE OKL_API.G_EXCEPTION_ERROR;
1156: END IF;
1157: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1158: -- IF (p_commit = OKL_API.G_TRUE) THEN
1159: -- COMMIT;
1160: -- END IF;
1161: EXCEPTION
1154: p_token1_value => lv_sts_code);
1155: RAISE OKL_API.G_EXCEPTION_ERROR;
1156: END IF;
1157: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1158: -- IF (p_commit = OKL_API.G_TRUE) THEN
1159: -- COMMIT;
1160: -- END IF;
1161: EXCEPTION
1162: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1158: -- IF (p_commit = OKL_API.G_TRUE) THEN
1159: -- COMMIT;
1160: -- END IF;
1161: EXCEPTION
1162: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1163: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1164: l_api_name,
1165: G_PKG_NAME,
1166: 'OKL_API.G_RET_STS_ERROR',
1159: -- COMMIT;
1160: -- END IF;
1161: EXCEPTION
1162: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1163: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1164: l_api_name,
1165: G_PKG_NAME,
1166: 'OKL_API.G_RET_STS_ERROR',
1167: x_msg_count,
1162: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1163: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1164: l_api_name,
1165: G_PKG_NAME,
1166: 'OKL_API.G_RET_STS_ERROR',
1167: x_msg_count,
1168: x_msg_data,
1169: '_PVT');
1170: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1166: 'OKL_API.G_RET_STS_ERROR',
1167: x_msg_count,
1168: x_msg_data,
1169: '_PVT');
1170: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1171: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
1172: l_api_name,
1173: G_PKG_NAME,
1174: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1167: x_msg_count,
1168: x_msg_data,
1169: '_PVT');
1170: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1171: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
1172: l_api_name,
1173: G_PKG_NAME,
1174: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1175: x_msg_count,
1170: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1171: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
1172: l_api_name,
1173: G_PKG_NAME,
1174: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1175: x_msg_count,
1176: x_msg_data,
1177: '_PVT');
1178: WHEN OTHERS THEN
1175: x_msg_count,
1176: x_msg_data,
1177: '_PVT');
1178: WHEN OTHERS THEN
1179: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
1180: l_api_name,
1181: G_PKG_NAME,
1182: 'OTHERS',
1183: x_msg_count,
1195: -- Version : 1.0
1196: -- End of comments
1197: PROCEDURE save_version(
1198: p_api_version IN NUMBER,
1199: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
1200: x_return_status OUT NOCOPY VARCHAR2,
1201: x_msg_count OUT NOCOPY NUMBER,
1202: x_msg_data OUT NOCOPY VARCHAR2,
1203: p_chr_id IN NUMBER,
1200: x_return_status OUT NOCOPY VARCHAR2,
1201: x_msg_count OUT NOCOPY NUMBER,
1202: x_msg_data OUT NOCOPY VARCHAR2,
1203: p_chr_id IN NUMBER,
1204: p_commit IN VARCHAR2 DEFAULT OKL_API.G_FALSE) IS
1205: l_api_version CONSTANT NUMBER := 1;
1206: l_api_name CONSTANT VARCHAR2(30) := 'SAVE_VERSION';
1207: l_major_version CONSTANT NUMBER := -1;
1208: l_chr_id NUMBER := p_chr_id;
1206: l_api_name CONSTANT VARCHAR2(30) := 'SAVE_VERSION';
1207: l_major_version CONSTANT NUMBER := -1;
1208: l_chr_id NUMBER := p_chr_id;
1209: BEGIN
1210: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1211: x_return_status := OKL_API.START_ACTIVITY(l_api_name,
1212: G_PKG_NAME,
1213: p_init_msg_list,
1214: l_api_version,
1207: l_major_version CONSTANT NUMBER := -1;
1208: l_chr_id NUMBER := p_chr_id;
1209: BEGIN
1210: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1211: x_return_status := OKL_API.START_ACTIVITY(l_api_name,
1212: G_PKG_NAME,
1213: p_init_msg_list,
1214: l_api_version,
1215: p_api_version,
1214: l_api_version,
1215: p_api_version,
1216: '_PVT',
1217: x_return_status);
1218: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1219: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1220: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1221: RAISE OKL_API.G_EXCEPTION_ERROR;
1222: END IF;
1215: p_api_version,
1216: '_PVT',
1217: x_return_status);
1218: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1219: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1220: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1221: RAISE OKL_API.G_EXCEPTION_ERROR;
1222: END IF;
1223: delete_version(p_api_version => l_api_version,
1216: '_PVT',
1217: x_return_status);
1218: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1219: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1220: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1221: RAISE OKL_API.G_EXCEPTION_ERROR;
1222: END IF;
1223: delete_version(p_api_version => l_api_version,
1224: p_init_msg_list => p_init_msg_list,
1217: x_return_status);
1218: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1219: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1220: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1221: RAISE OKL_API.G_EXCEPTION_ERROR;
1222: END IF;
1223: delete_version(p_api_version => l_api_version,
1224: p_init_msg_list => p_init_msg_list,
1225: x_return_status => x_return_status,
1229: p_major_version => -1,
1230: p_minor_version => null,
1231: p_called_from => 'ERASE_SAVED_VERSION');
1232:
1233: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1234: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1235: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1236: RAISE OKL_API.G_EXCEPTION_ERROR;
1237: END IF;
1230: p_minor_version => null,
1231: p_called_from => 'ERASE_SAVED_VERSION');
1232:
1233: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1234: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1235: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1236: RAISE OKL_API.G_EXCEPTION_ERROR;
1237: END IF;
1238: OKC_VERSION_PUB.save_version(
1231: p_called_from => 'ERASE_SAVED_VERSION');
1232:
1233: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1234: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1235: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1236: RAISE OKL_API.G_EXCEPTION_ERROR;
1237: END IF;
1238: OKC_VERSION_PUB.save_version(
1239: p_api_version => p_api_version,
1232:
1233: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1234: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1235: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1236: RAISE OKL_API.G_EXCEPTION_ERROR;
1237: END IF;
1238: OKC_VERSION_PUB.save_version(
1239: p_api_version => p_api_version,
1240: p_init_msg_list => p_init_msg_list,
1241: x_return_status => x_return_status,
1242: x_msg_count => x_msg_count,
1243: x_msg_data => x_msg_data,
1244: p_chr_id => p_chr_id,
1245: p_commit => OKL_API.G_FALSE);
1246: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1247: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1248: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1249: RAISE OKL_API.G_EXCEPTION_ERROR;
1242: x_msg_count => x_msg_count,
1243: x_msg_data => x_msg_data,
1244: p_chr_id => p_chr_id,
1245: p_commit => OKL_API.G_FALSE);
1246: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1247: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1248: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1249: RAISE OKL_API.G_EXCEPTION_ERROR;
1250: END IF;
1243: x_msg_data => x_msg_data,
1244: p_chr_id => p_chr_id,
1245: p_commit => OKL_API.G_FALSE);
1246: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1247: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1248: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1249: RAISE OKL_API.G_EXCEPTION_ERROR;
1250: END IF;
1251: version_contract_extra(p_api_version => p_api_version,
1244: p_chr_id => p_chr_id,
1245: p_commit => OKL_API.G_FALSE);
1246: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1247: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1248: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1249: RAISE OKL_API.G_EXCEPTION_ERROR;
1250: END IF;
1251: version_contract_extra(p_api_version => p_api_version,
1252: p_init_msg_list => OKL_API.G_FALSE,
1245: p_commit => OKL_API.G_FALSE);
1246: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1247: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1248: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1249: RAISE OKL_API.G_EXCEPTION_ERROR;
1250: END IF;
1251: version_contract_extra(p_api_version => p_api_version,
1252: p_init_msg_list => OKL_API.G_FALSE,
1253: x_return_status => x_return_status,
1248: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1249: RAISE OKL_API.G_EXCEPTION_ERROR;
1250: END IF;
1251: version_contract_extra(p_api_version => p_api_version,
1252: p_init_msg_list => OKL_API.G_FALSE,
1253: x_return_status => x_return_status,
1254: x_msg_count => x_msg_count,
1255: x_msg_data => x_msg_data,
1256: p_chr_id => l_chr_id,
1254: x_msg_count => x_msg_count,
1255: x_msg_data => x_msg_data,
1256: p_chr_id => l_chr_id,
1257: p_major_version => l_major_version);
1258: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1259: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1260: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1261: RAISE OKL_API.G_EXCEPTION_ERROR;
1262: END IF;
1255: x_msg_data => x_msg_data,
1256: p_chr_id => l_chr_id,
1257: p_major_version => l_major_version);
1258: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1259: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1260: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1261: RAISE OKL_API.G_EXCEPTION_ERROR;
1262: END IF;
1263: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1256: p_chr_id => l_chr_id,
1257: p_major_version => l_major_version);
1258: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1259: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1260: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1261: RAISE OKL_API.G_EXCEPTION_ERROR;
1262: END IF;
1263: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1264: -- IF (p_commit = OKL_API.G_TRUE) THEN
1257: p_major_version => l_major_version);
1258: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1259: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1260: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1261: RAISE OKL_API.G_EXCEPTION_ERROR;
1262: END IF;
1263: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1264: -- IF (p_commit = OKL_API.G_TRUE) THEN
1265: -- COMMIT;
1259: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1260: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1261: RAISE OKL_API.G_EXCEPTION_ERROR;
1262: END IF;
1263: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1264: -- IF (p_commit = OKL_API.G_TRUE) THEN
1265: -- COMMIT;
1266: -- END IF;
1267: EXCEPTION
1260: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1261: RAISE OKL_API.G_EXCEPTION_ERROR;
1262: END IF;
1263: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1264: -- IF (p_commit = OKL_API.G_TRUE) THEN
1265: -- COMMIT;
1266: -- END IF;
1267: EXCEPTION
1268: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1264: -- IF (p_commit = OKL_API.G_TRUE) THEN
1265: -- COMMIT;
1266: -- END IF;
1267: EXCEPTION
1268: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1269: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1270: l_api_name,
1271: G_PKG_NAME,
1272: 'OKL_API.G_RET_STS_ERROR',
1265: -- COMMIT;
1266: -- END IF;
1267: EXCEPTION
1268: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1269: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1270: l_api_name,
1271: G_PKG_NAME,
1272: 'OKL_API.G_RET_STS_ERROR',
1273: x_msg_count,
1268: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1269: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1270: l_api_name,
1271: G_PKG_NAME,
1272: 'OKL_API.G_RET_STS_ERROR',
1273: x_msg_count,
1274: x_msg_data,
1275: '_PVT');
1276: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1272: 'OKL_API.G_RET_STS_ERROR',
1273: x_msg_count,
1274: x_msg_data,
1275: '_PVT');
1276: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1277: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
1278: l_api_name,
1279: G_PKG_NAME,
1280: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1273: x_msg_count,
1274: x_msg_data,
1275: '_PVT');
1276: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1277: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
1278: l_api_name,
1279: G_PKG_NAME,
1280: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1281: x_msg_count,
1276: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1277: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
1278: l_api_name,
1279: G_PKG_NAME,
1280: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1281: x_msg_count,
1282: x_msg_data,
1283: '_PVT');
1284: WHEN OTHERS THEN
1281: x_msg_count,
1282: x_msg_data,
1283: '_PVT');
1284: WHEN OTHERS THEN
1285: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
1286: l_api_name,
1287: G_PKG_NAME,
1288: 'OTHERS',
1289: x_msg_count,
1301: -- Version : 1.0
1302: -- End of comments
1303: PROCEDURE erase_saved_version(
1304: p_api_version IN NUMBER,
1305: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
1306: x_return_status OUT NOCOPY VARCHAR2,
1307: x_msg_count OUT NOCOPY NUMBER,
1308: x_msg_data OUT NOCOPY VARCHAR2,
1309: p_chr_id IN NUMBER,
1306: x_return_status OUT NOCOPY VARCHAR2,
1307: x_msg_count OUT NOCOPY NUMBER,
1308: x_msg_data OUT NOCOPY VARCHAR2,
1309: p_chr_id IN NUMBER,
1310: p_commit IN VARCHAR2 DEFAULT OKL_API.G_FALSE) IS
1311: l_api_version CONSTANT NUMBER := 1;
1312: l_api_name CONSTANT VARCHAR2(30) := 'ERASE_SAVED_VERSION';
1313: BEGIN
1314: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1310: p_commit IN VARCHAR2 DEFAULT OKL_API.G_FALSE) IS
1311: l_api_version CONSTANT NUMBER := 1;
1312: l_api_name CONSTANT VARCHAR2(30) := 'ERASE_SAVED_VERSION';
1313: BEGIN
1314: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1315: x_return_status := OKL_API.START_ACTIVITY(l_api_name,
1316: G_PKG_NAME,
1317: p_init_msg_list,
1318: l_api_version,
1311: l_api_version CONSTANT NUMBER := 1;
1312: l_api_name CONSTANT VARCHAR2(30) := 'ERASE_SAVED_VERSION';
1313: BEGIN
1314: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1315: x_return_status := OKL_API.START_ACTIVITY(l_api_name,
1316: G_PKG_NAME,
1317: p_init_msg_list,
1318: l_api_version,
1319: p_api_version,
1318: l_api_version,
1319: p_api_version,
1320: '_PVT',
1321: x_return_status);
1322: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1323: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1324: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1325: RAISE OKL_API.G_EXCEPTION_ERROR;
1326: END IF;
1319: p_api_version,
1320: '_PVT',
1321: x_return_status);
1322: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1323: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1324: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1325: RAISE OKL_API.G_EXCEPTION_ERROR;
1326: END IF;
1327: delete_version(p_api_version => l_api_version,
1320: '_PVT',
1321: x_return_status);
1322: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1323: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1324: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1325: RAISE OKL_API.G_EXCEPTION_ERROR;
1326: END IF;
1327: delete_version(p_api_version => l_api_version,
1328: p_init_msg_list => p_init_msg_list,
1321: x_return_status);
1322: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1323: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1324: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1325: RAISE OKL_API.G_EXCEPTION_ERROR;
1326: END IF;
1327: delete_version(p_api_version => l_api_version,
1328: p_init_msg_list => p_init_msg_list,
1329: x_return_status => x_return_status,
1332: p_chr_id => p_chr_id,
1333: p_major_version => -1,
1334: p_minor_version => null,
1335: p_called_from => 'ERASE_SAVED_VERSION');
1336: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1337: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1338: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1339: RAISE OKL_API.G_EXCEPTION_ERROR;
1340: END IF;
1333: p_major_version => -1,
1334: p_minor_version => null,
1335: p_called_from => 'ERASE_SAVED_VERSION');
1336: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1337: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1338: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1339: RAISE OKL_API.G_EXCEPTION_ERROR;
1340: END IF;
1341: OKC_VERSION_PUB.erase_saved_version(
1334: p_minor_version => null,
1335: p_called_from => 'ERASE_SAVED_VERSION');
1336: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1337: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1338: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1339: RAISE OKL_API.G_EXCEPTION_ERROR;
1340: END IF;
1341: OKC_VERSION_PUB.erase_saved_version(
1342: p_chr_id => p_chr_id,
1335: p_called_from => 'ERASE_SAVED_VERSION');
1336: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1337: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1338: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1339: RAISE OKL_API.G_EXCEPTION_ERROR;
1340: END IF;
1341: OKC_VERSION_PUB.erase_saved_version(
1342: p_chr_id => p_chr_id,
1343: p_api_version => p_api_version,
1343: p_api_version => p_api_version,
1344: p_init_msg_list => p_init_msg_list,
1345: x_return_status => x_return_status,
1346: x_msg_count => x_msg_count,
1347: p_commit => OKL_API.G_FALSE,
1348: x_msg_data => x_msg_data);
1349: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1350: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1351: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1345: x_return_status => x_return_status,
1346: x_msg_count => x_msg_count,
1347: p_commit => OKL_API.G_FALSE,
1348: x_msg_data => x_msg_data);
1349: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1350: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1351: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1352: RAISE OKL_API.G_EXCEPTION_ERROR;
1353: END IF;
1346: x_msg_count => x_msg_count,
1347: p_commit => OKL_API.G_FALSE,
1348: x_msg_data => x_msg_data);
1349: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1350: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1351: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1352: RAISE OKL_API.G_EXCEPTION_ERROR;
1353: END IF;
1354: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1347: p_commit => OKL_API.G_FALSE,
1348: x_msg_data => x_msg_data);
1349: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1350: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1351: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1352: RAISE OKL_API.G_EXCEPTION_ERROR;
1353: END IF;
1354: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1355: -- IF (p_commit = OKL_API.G_TRUE) THEN
1348: x_msg_data => x_msg_data);
1349: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1350: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1351: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1352: RAISE OKL_API.G_EXCEPTION_ERROR;
1353: END IF;
1354: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1355: -- IF (p_commit = OKL_API.G_TRUE) THEN
1356: -- COMMIT;
1350: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1351: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1352: RAISE OKL_API.G_EXCEPTION_ERROR;
1353: END IF;
1354: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1355: -- IF (p_commit = OKL_API.G_TRUE) THEN
1356: -- COMMIT;
1357: -- END IF;
1358: EXCEPTION
1351: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1352: RAISE OKL_API.G_EXCEPTION_ERROR;
1353: END IF;
1354: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1355: -- IF (p_commit = OKL_API.G_TRUE) THEN
1356: -- COMMIT;
1357: -- END IF;
1358: EXCEPTION
1359: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1355: -- IF (p_commit = OKL_API.G_TRUE) THEN
1356: -- COMMIT;
1357: -- END IF;
1358: EXCEPTION
1359: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1360: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1361: l_api_name,
1362: G_PKG_NAME,
1363: 'OKL_API.G_RET_STS_ERROR',
1356: -- COMMIT;
1357: -- END IF;
1358: EXCEPTION
1359: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1360: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1361: l_api_name,
1362: G_PKG_NAME,
1363: 'OKL_API.G_RET_STS_ERROR',
1364: x_msg_count,
1359: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1360: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1361: l_api_name,
1362: G_PKG_NAME,
1363: 'OKL_API.G_RET_STS_ERROR',
1364: x_msg_count,
1365: x_msg_data,
1366: '_PVT');
1367: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1363: 'OKL_API.G_RET_STS_ERROR',
1364: x_msg_count,
1365: x_msg_data,
1366: '_PVT');
1367: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1368: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
1369: l_api_name,
1370: G_PKG_NAME,
1371: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1364: x_msg_count,
1365: x_msg_data,
1366: '_PVT');
1367: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1368: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
1369: l_api_name,
1370: G_PKG_NAME,
1371: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1372: x_msg_count,
1367: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1368: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
1369: l_api_name,
1370: G_PKG_NAME,
1371: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1372: x_msg_count,
1373: x_msg_data,
1374: '_PVT');
1375: WHEN OTHERS THEN
1372: x_msg_count,
1373: x_msg_data,
1374: '_PVT');
1375: WHEN OTHERS THEN
1376: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
1377: l_api_name,
1378: G_PKG_NAME,
1379: 'OTHERS',
1380: x_msg_count,
1392: -- Version : 1.0
1393: -- End of comments
1394: PROCEDURE restore_version(
1395: p_api_version IN NUMBER,
1396: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
1397: x_return_status OUT NOCOPY VARCHAR2,
1398: x_msg_count OUT NOCOPY NUMBER,
1399: x_msg_data OUT NOCOPY VARCHAR2,
1400: p_chr_id IN NUMBER,
1397: x_return_status OUT NOCOPY VARCHAR2,
1398: x_msg_count OUT NOCOPY NUMBER,
1399: x_msg_data OUT NOCOPY VARCHAR2,
1400: p_chr_id IN NUMBER,
1401: p_commit IN VARCHAR2 DEFAULT OKL_API.G_FALSE) IS
1402: l_api_version CONSTANT NUMBER := 1;
1403: l_api_name CONSTANT VARCHAR2(30) := 'RESTORE_VERSION';
1404: l_chr_id NUMBER;
1405: l_major_version NUMBER;
1411: FROM okc_k_vers_numbers_h
1412: WHERE chr_id= p_chr_id
1413: AND MAJOR_VERSION = -1;
1414: BEGIN
1415: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1416: x_return_status := OKL_API.START_ACTIVITY(l_api_name,
1417: G_PKG_NAME,
1418: p_init_msg_list,
1419: l_api_version,
1412: WHERE chr_id= p_chr_id
1413: AND MAJOR_VERSION = -1;
1414: BEGIN
1415: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1416: x_return_status := OKL_API.START_ACTIVITY(l_api_name,
1417: G_PKG_NAME,
1418: p_init_msg_list,
1419: l_api_version,
1420: p_api_version,
1419: l_api_version,
1420: p_api_version,
1421: '_PVT',
1422: x_return_status);
1423: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1424: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1425: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1426: RAISE OKL_API.G_EXCEPTION_ERROR;
1427: END IF;
1420: p_api_version,
1421: '_PVT',
1422: x_return_status);
1423: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1424: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1425: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1426: RAISE OKL_API.G_EXCEPTION_ERROR;
1427: END IF;
1428: OPEN v_csr;
1421: '_PVT',
1422: x_return_status);
1423: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1424: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1425: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1426: RAISE OKL_API.G_EXCEPTION_ERROR;
1427: END IF;
1428: OPEN v_csr;
1429: FETCH v_csr into l_major_version,
1422: x_return_status);
1423: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1424: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1425: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1426: RAISE OKL_API.G_EXCEPTION_ERROR;
1427: END IF;
1428: OPEN v_csr;
1429: FETCH v_csr into l_major_version,
1430: l_minor_version;
1434: x_return_status => x_return_status,
1435: x_msg_count => x_msg_count,
1436: x_msg_data => x_msg_data,
1437: p_chr_id => p_chr_id);
1438: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1439: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1440: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1441: RAISE OKL_API.G_EXCEPTION_ERROR;
1442: END IF;
1435: x_msg_count => x_msg_count,
1436: x_msg_data => x_msg_data,
1437: p_chr_id => p_chr_id);
1438: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1439: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1440: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1441: RAISE OKL_API.G_EXCEPTION_ERROR;
1442: END IF;
1443:
1436: x_msg_data => x_msg_data,
1437: p_chr_id => p_chr_id);
1438: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1439: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1440: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1441: RAISE OKL_API.G_EXCEPTION_ERROR;
1442: END IF;
1443:
1444: OKC_VERSION_PUB.restore_version(
1437: p_chr_id => p_chr_id);
1438: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1439: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1440: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1441: RAISE OKL_API.G_EXCEPTION_ERROR;
1442: END IF;
1443:
1444: OKC_VERSION_PUB.restore_version(
1445: p_api_version => p_api_version,
1447: x_return_status => x_return_status,
1448: x_msg_count => x_msg_count,
1449: x_msg_data => x_msg_data,
1450: p_chr_id => p_chr_id,
1451: p_commit => OKL_API.G_FALSE);
1452: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1453: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1454: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1455: RAISE OKL_API.G_EXCEPTION_ERROR;
1448: x_msg_count => x_msg_count,
1449: x_msg_data => x_msg_data,
1450: p_chr_id => p_chr_id,
1451: p_commit => OKL_API.G_FALSE);
1452: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1453: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1454: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1455: RAISE OKL_API.G_EXCEPTION_ERROR;
1456: END IF;
1449: x_msg_data => x_msg_data,
1450: p_chr_id => p_chr_id,
1451: p_commit => OKL_API.G_FALSE);
1452: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1453: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1454: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1455: RAISE OKL_API.G_EXCEPTION_ERROR;
1456: END IF;
1457: l_chr_id := p_chr_id;
1450: p_chr_id => p_chr_id,
1451: p_commit => OKL_API.G_FALSE);
1452: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1453: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1454: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1455: RAISE OKL_API.G_EXCEPTION_ERROR;
1456: END IF;
1457: l_chr_id := p_chr_id;
1458: l_minus_version := -1;
1451: p_commit => OKL_API.G_FALSE);
1452: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1453: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1454: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1455: RAISE OKL_API.G_EXCEPTION_ERROR;
1456: END IF;
1457: l_chr_id := p_chr_id;
1458: l_minus_version := -1;
1459: restore_version_extra(p_api_version => p_api_version,
1456: END IF;
1457: l_chr_id := p_chr_id;
1458: l_minus_version := -1;
1459: restore_version_extra(p_api_version => p_api_version,
1460: p_init_msg_list => OKL_API.G_FALSE,
1461: x_return_status => x_return_status,
1462: x_msg_count => x_msg_count,
1463: x_msg_data => x_msg_data,
1464: p_chr_id => l_chr_id,
1462: x_msg_count => x_msg_count,
1463: x_msg_data => x_msg_data,
1464: p_chr_id => l_chr_id,
1465: p_major_version => l_minus_version);
1466: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1467: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1468: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1469: RAISE OKL_API.G_EXCEPTION_ERROR;
1470: END IF;
1463: x_msg_data => x_msg_data,
1464: p_chr_id => l_chr_id,
1465: p_major_version => l_minus_version);
1466: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1467: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1468: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1469: RAISE OKL_API.G_EXCEPTION_ERROR;
1470: END IF;
1471: delete_version(p_api_version => p_api_version,
1464: p_chr_id => l_chr_id,
1465: p_major_version => l_minus_version);
1466: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1467: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1468: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1469: RAISE OKL_API.G_EXCEPTION_ERROR;
1470: END IF;
1471: delete_version(p_api_version => p_api_version,
1472: p_init_msg_list => p_init_msg_list,
1465: p_major_version => l_minus_version);
1466: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1467: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1468: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1469: RAISE OKL_API.G_EXCEPTION_ERROR;
1470: END IF;
1471: delete_version(p_api_version => p_api_version,
1472: p_init_msg_list => p_init_msg_list,
1473: x_return_status => x_return_status,
1476: p_chr_id => p_chr_id,
1477: p_major_version => l_major_version,
1478: p_minor_version => l_minor_version,
1479: p_called_from => 'RESTORE_VERSION');
1480: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1481: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1482: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1483: RAISE OKL_API.G_EXCEPTION_ERROR;
1484: END IF;
1477: p_major_version => l_major_version,
1478: p_minor_version => l_minor_version,
1479: p_called_from => 'RESTORE_VERSION');
1480: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1481: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1482: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1483: RAISE OKL_API.G_EXCEPTION_ERROR;
1484: END IF;
1485: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1478: p_minor_version => l_minor_version,
1479: p_called_from => 'RESTORE_VERSION');
1480: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1481: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1482: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1483: RAISE OKL_API.G_EXCEPTION_ERROR;
1484: END IF;
1485: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1486: -- IF (p_commit = OKL_API.G_TRUE) THEN
1479: p_called_from => 'RESTORE_VERSION');
1480: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1481: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1482: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1483: RAISE OKL_API.G_EXCEPTION_ERROR;
1484: END IF;
1485: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1486: -- IF (p_commit = OKL_API.G_TRUE) THEN
1487: -- COMMIT;
1481: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1482: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1483: RAISE OKL_API.G_EXCEPTION_ERROR;
1484: END IF;
1485: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1486: -- IF (p_commit = OKL_API.G_TRUE) THEN
1487: -- COMMIT;
1488: -- END IF;
1489: EXCEPTION
1482: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1483: RAISE OKL_API.G_EXCEPTION_ERROR;
1484: END IF;
1485: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1486: -- IF (p_commit = OKL_API.G_TRUE) THEN
1487: -- COMMIT;
1488: -- END IF;
1489: EXCEPTION
1490: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1486: -- IF (p_commit = OKL_API.G_TRUE) THEN
1487: -- COMMIT;
1488: -- END IF;
1489: EXCEPTION
1490: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1491: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1492: l_api_name,
1493: G_PKG_NAME,
1494: 'OKL_API.G_RET_STS_ERROR',
1487: -- COMMIT;
1488: -- END IF;
1489: EXCEPTION
1490: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1491: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1492: l_api_name,
1493: G_PKG_NAME,
1494: 'OKL_API.G_RET_STS_ERROR',
1495: x_msg_count,
1490: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1491: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1492: l_api_name,
1493: G_PKG_NAME,
1494: 'OKL_API.G_RET_STS_ERROR',
1495: x_msg_count,
1496: x_msg_data,
1497: '_PVT');
1498: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1494: 'OKL_API.G_RET_STS_ERROR',
1495: x_msg_count,
1496: x_msg_data,
1497: '_PVT');
1498: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1499: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
1500: l_api_name,
1501: G_PKG_NAME,
1502: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1495: x_msg_count,
1496: x_msg_data,
1497: '_PVT');
1498: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1499: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
1500: l_api_name,
1501: G_PKG_NAME,
1502: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1503: x_msg_count,
1498: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1499: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
1500: l_api_name,
1501: G_PKG_NAME,
1502: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1503: x_msg_count,
1504: x_msg_data,
1505: '_PVT');
1506: WHEN OTHERS THEN
1503: x_msg_count,
1504: x_msg_data,
1505: '_PVT');
1506: WHEN OTHERS THEN
1507: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
1508: l_api_name,
1509: G_PKG_NAME,
1510: 'OTHERS',
1511: x_msg_count,