DBA Data[Home] [Help]

APPS.OKL_TXL_ITM_INSTS_PVT dependencies on OKL_API

Line 49: x_return_status := OKL_API.G_RET_STS_SUCCESS;

45: ) IS
46: l_parameter_list wf_parameter_list_t;
47: l_contract_process VARCHAR2(20);
48: BEGIN
49: x_return_status := OKL_API.G_RET_STS_SUCCESS;
50:
51: -- wrapper API to get contract process. this API determines in which status the
52: -- contract in question is.
53: l_contract_process := okl_lla_util_pvt.get_contract_process(p_chr_id => p_chr_id);

Line 68: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;

64: p_event_name => p_event_name,
65: p_parameters => l_parameter_list);
66: EXCEPTION
67: WHEN OTHERS THEN
68: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
69: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
70: END raise_business_event;
71:
72: /*

Line 69: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;

65: p_parameters => l_parameter_list);
66: EXCEPTION
67: WHEN OTHERS THEN
68: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
69: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
70: END raise_business_event;
71:
72: /*
73: * sjalasut: aug 18, 04 added procedure to call private wrapper that raises the business event. END

Line 135: IF(OKL_LLA_UTIL_PVT.is_lease_contract(l_chr_id)= OKL_API.G_TRUE AND

131: OPEN get_chr_id(p_iivv_rec.DNZ_CLE_ID);
132: FETCH get_chr_id INTO l_chr_id;
133: CLOSE get_chr_id;
134: --vthiruva..09-Dec-2004..added condition to check thats serial number is not null
135: IF(OKL_LLA_UTIL_PVT.is_lease_contract(l_chr_id)= OKL_API.G_TRUE AND
136: p_iivv_rec.serial_number IS NOT NULL AND p_iivv_rec.serial_number <> OKL_API.G_MISS_CHAR)THEN
137: raise_business_event(p_api_version => p_api_version,
138: p_init_msg_list => p_init_msg_list,
139: p_chr_id => l_chr_id,

Line 136: p_iivv_rec.serial_number IS NOT NULL AND p_iivv_rec.serial_number <> OKL_API.G_MISS_CHAR)THEN

132: FETCH get_chr_id INTO l_chr_id;
133: CLOSE get_chr_id;
134: --vthiruva..09-Dec-2004..added condition to check thats serial number is not null
135: IF(OKL_LLA_UTIL_PVT.is_lease_contract(l_chr_id)= OKL_API.G_TRUE AND
136: p_iivv_rec.serial_number IS NOT NULL AND p_iivv_rec.serial_number <> OKL_API.G_MISS_CHAR)THEN
137: raise_business_event(p_api_version => p_api_version,
138: p_init_msg_list => p_init_msg_list,
139: p_chr_id => l_chr_id,
140: p_asset_id => p_iivv_rec.DNZ_CLE_ID,

Line 147: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN

143: x_return_status => x_return_status,
144: x_msg_count => x_msg_count,
145: x_msg_data => x_msg_data
146: );
147: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
148: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
149: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
150: RAISE OKL_API.G_EXCEPTION_ERROR;
151: END IF;

Line 148: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;

144: x_msg_count => x_msg_count,
145: x_msg_data => x_msg_data
146: );
147: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
148: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
149: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
150: RAISE OKL_API.G_EXCEPTION_ERROR;
151: END IF;
152: END IF;

Line 149: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN

145: x_msg_data => x_msg_data
146: );
147: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
148: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
149: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
150: RAISE OKL_API.G_EXCEPTION_ERROR;
151: END IF;
152: END IF;
153: /*

Line 150: RAISE OKL_API.G_EXCEPTION_ERROR;

146: );
147: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
148: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
149: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
150: RAISE OKL_API.G_EXCEPTION_ERROR;
151: END IF;
152: END IF;
153: /*
154: * sjalasut: oct 14, 04 added code to enable business event. END

Line 440: (ln_chr_id <> OKL_API.G_MISS_NUM) THEN

436: CLOSE get_chr_id;
437: -- We need to change the status of the header whenever there is updating happening
438: -- after the contract status is approved
439: IF (ln_chr_id is NOT NULL) AND
440: (ln_chr_id <> OKL_API.G_MISS_NUM) THEN
441: --cascade edit status on to lines
442: okl_contract_status_pub.cascade_lease_status_edit
443: (p_api_version => p_api_version,
444: p_init_msg_list => p_init_msg_list,

Line 449: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN

445: x_return_status => x_return_status,
446: x_msg_count => x_msg_count,
447: x_msg_data => x_msg_data,
448: p_chr_id => ln_chr_id);
449: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
450: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
451: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
452: RAISE OKC_API.G_EXCEPTION_ERROR;
453: END IF;

Line 451: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN

447: x_msg_data => x_msg_data,
448: p_chr_id => ln_chr_id);
449: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
450: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
451: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
452: RAISE OKC_API.G_EXCEPTION_ERROR;
453: END IF;
454: END IF;
455: --vthiruva..09-Dec-2004..Added code to enable Business Events..START

Line 456: IF(OKL_LLA_UTIL_PVT.is_lease_contract(ln_chr_id)= OKL_API.G_TRUE)THEN

452: RAISE OKC_API.G_EXCEPTION_ERROR;
453: END IF;
454: END IF;
455: --vthiruva..09-Dec-2004..Added code to enable Business Events..START
456: IF(OKL_LLA_UTIL_PVT.is_lease_contract(ln_chr_id)= OKL_API.G_TRUE)THEN
457: IF(l_old_serial_num IS NULL AND
458: (p_iivv_rec.serial_number IS NOT NULL AND
459: p_iivv_rec.serial_number <> OKL_API.G_MISS_CHAR)) THEN
460: raise_business_event(p_api_version => p_api_version,

Line 459: p_iivv_rec.serial_number <> OKL_API.G_MISS_CHAR)) THEN

455: --vthiruva..09-Dec-2004..Added code to enable Business Events..START
456: IF(OKL_LLA_UTIL_PVT.is_lease_contract(ln_chr_id)= OKL_API.G_TRUE)THEN
457: IF(l_old_serial_num IS NULL AND
458: (p_iivv_rec.serial_number IS NOT NULL AND
459: p_iivv_rec.serial_number <> OKL_API.G_MISS_CHAR)) THEN
460: raise_business_event(p_api_version => p_api_version,
461: p_init_msg_list => p_init_msg_list,
462: p_chr_id => ln_chr_id,
463: p_asset_id => p_iivv_rec.dnz_cle_id,

Line 470: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN

466: x_return_status => x_return_status,
467: x_msg_count => x_msg_count,
468: x_msg_data => x_msg_data
469: );
470: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
471: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
472: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
473: RAISE OKL_API.G_EXCEPTION_ERROR;
474: END IF;

Line 471: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;

467: x_msg_count => x_msg_count,
468: x_msg_data => x_msg_data
469: );
470: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
471: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
472: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
473: RAISE OKL_API.G_EXCEPTION_ERROR;
474: END IF;
475: ELSIF(l_old_serial_num IS NOT NULL AND

Line 472: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN

468: x_msg_data => x_msg_data
469: );
470: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
471: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
472: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
473: RAISE OKL_API.G_EXCEPTION_ERROR;
474: END IF;
475: ELSIF(l_old_serial_num IS NOT NULL AND
476: (p_iivv_rec.serial_number IS NULL OR

Line 473: RAISE OKL_API.G_EXCEPTION_ERROR;

469: );
470: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
471: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
472: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
473: RAISE OKL_API.G_EXCEPTION_ERROR;
474: END IF;
475: ELSIF(l_old_serial_num IS NOT NULL AND
476: (p_iivv_rec.serial_number IS NULL OR
477: p_iivv_rec.serial_number = OKL_API.G_MISS_CHAR)) THEN

Line 477: p_iivv_rec.serial_number = OKL_API.G_MISS_CHAR)) THEN

473: RAISE OKL_API.G_EXCEPTION_ERROR;
474: END IF;
475: ELSIF(l_old_serial_num IS NOT NULL AND
476: (p_iivv_rec.serial_number IS NULL OR
477: p_iivv_rec.serial_number = OKL_API.G_MISS_CHAR)) THEN
478: raise_business_event(p_api_version => p_api_version,
479: p_init_msg_list => p_init_msg_list,
480: p_chr_id => ln_chr_id,
481: p_asset_id => l_asset_id,

Line 488: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN

484: x_return_status => x_return_status,
485: x_msg_count => x_msg_count,
486: x_msg_data => x_msg_data
487: );
488: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
489: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
490: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
491: RAISE OKL_API.G_EXCEPTION_ERROR;
492: END IF;

Line 489: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;

485: x_msg_count => x_msg_count,
486: x_msg_data => x_msg_data
487: );
488: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
489: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
490: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
491: RAISE OKL_API.G_EXCEPTION_ERROR;
492: END IF;
493: END IF;

Line 490: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN

486: x_msg_data => x_msg_data
487: );
488: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
489: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
490: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
491: RAISE OKL_API.G_EXCEPTION_ERROR;
492: END IF;
493: END IF;
494: END IF;

Line 491: RAISE OKL_API.G_EXCEPTION_ERROR;

487: );
488: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
489: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
490: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
491: RAISE OKL_API.G_EXCEPTION_ERROR;
492: END IF;
493: END IF;
494: END IF;
495: --vthiruva..09-Dec-2004..Added code to enable Business Events..END

Line 663: IF(OKL_LLA_UTIL_PVT.is_lease_contract(l_chr_id)= OKL_API.G_TRUE)THEN

659: /*
660: * sjalasut: oct 14, 04 added code to enable business event. BEGIN
661: * raise business event only if the contract is a LEASE contract
662: */
663: IF(OKL_LLA_UTIL_PVT.is_lease_contract(l_chr_id)= OKL_API.G_TRUE)THEN
664: raise_business_event(p_api_version => p_api_version,
665: p_init_msg_list => p_init_msg_list,
666: p_chr_id => l_chr_id,
667: p_asset_id => l_cle_id,

Line 674: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN

670: x_return_status => x_return_status,
671: x_msg_count => x_msg_count,
672: x_msg_data => x_msg_data
673: );
674: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
675: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
676: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
677: RAISE OKL_API.G_EXCEPTION_ERROR;
678: END IF;

Line 675: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;

671: x_msg_count => x_msg_count,
672: x_msg_data => x_msg_data
673: );
674: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
675: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
676: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
677: RAISE OKL_API.G_EXCEPTION_ERROR;
678: END IF;
679: END IF;

Line 676: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN

672: x_msg_data => x_msg_data
673: );
674: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
675: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
676: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
677: RAISE OKL_API.G_EXCEPTION_ERROR;
678: END IF;
679: END IF;
680: /*

Line 677: RAISE OKL_API.G_EXCEPTION_ERROR;

673: );
674: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
675: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
676: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
677: RAISE OKL_API.G_EXCEPTION_ERROR;
678: END IF;
679: END IF;
680: /*
681: * sjalasut: oct 14, 04 added code to enable business event. END

Line 694: (ln_chr_id <> OKL_API.G_MISS_NUM) THEN

690: CLOSE get_chr_id;
691: -- We need to change the status of the header whenever there is updating happening
692: -- after the contract status is approved
693: IF (ln_chr_id is NOT NULL) AND
694: (ln_chr_id <> OKL_API.G_MISS_NUM) THEN
695: --cascade edit status on to lines
696: okl_contract_status_pub.cascade_lease_status_edit
697: (p_api_version => p_api_version,
698: p_init_msg_list => p_init_msg_list,

Line 703: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN

699: x_return_status => x_return_status,
700: x_msg_count => x_msg_count,
701: x_msg_data => x_msg_data,
702: p_chr_id => ln_chr_id);
703: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
704: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
705: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
706: RAISE OKC_API.G_EXCEPTION_ERROR;
707: END IF;

Line 705: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN

701: x_msg_data => x_msg_data,
702: p_chr_id => ln_chr_id);
703: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
704: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
705: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
706: RAISE OKC_API.G_EXCEPTION_ERROR;
707: END IF;
708: END IF;
709: END IF;

Line 1134: x_return_status := OKL_API.G_RET_STS_SUCCESS;

1130: END get_rec;
1131:
1132: BEGIN
1133:
1134: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1135:
1136: -- Call start_activity to create savepoint, check compatibility
1137: -- and initialize message list
1138: l_return_status := OKC_API.START_ACTIVITY (l_api_name

Line 1155: OKL_API.set_message(

1151: FETCH chr_csr INTO l_chr_valid;
1152: CLOSE chr_csr;
1153:
1154: IF (l_chr_valid <> 'Y') THEN
1155: OKL_API.set_message(
1156: p_app_name => G_APP_NAME,
1157: p_msg_name => 'OKL_INVALID_VALUE',
1158: p_token1 => 'COL_NAME',
1159: p_token1_value => 'p_chr_id'

Line 1172: OKL_API.set_message(

1168: OPEN ff1_csr (p_chr_id,
1169: p_asset_line_id);
1170: FETCH ff1_csr INTO l_asset_line_id;
1171: IF ff1_csr%NOTFOUND THEN
1172: OKL_API.set_message(
1173: p_app_name => G_APP_NAME,
1174: p_msg_name => 'OKL_INVALID_VALUE',
1175: p_token1 => 'COL_NAME',
1176: p_token1_value => 'p_asset_line_id'

Line 1202: OKL_API.set_message(

1198:
1199: IF (l_serial_control <> 1) THEN -- seriallized
1200: IF (p_asset_line_id IS NOT NULL) THEN
1201: --dbms_output.put_line('Item: '||l_item_desc);
1202: OKL_API.set_message(
1203: p_app_name => G_APP_NAME,
1204: p_msg_name => 'OKL_LLA_SRL_CNTRL',
1205: p_token1 => 'ITEM_DESC',
1206: p_token1_value => l_item_desc