[Home] [Help]
7:
8: -- Global Variables
9: G_INIT_NUMBER NUMBER := -9999;
10: G_PKG_NAME CONSTANT VARCHAR2(200) := 'OKL_SERVICE_INTEGRATION_PVT';
11: G_APP_NAME CONSTANT VARCHAR2(3) := OKL_API.G_APP_NAME;
12: G_API_TYPE CONSTANT VARCHAR2(4) := '_PVT';
13: G_LINK CONSTANT VARCHAR2(10) := 'LINKED';
14: G_DELINK CONSTANT VARCHAR2(10) := 'DELINKED';
15: G_IB_TXN_TYPE_NOT_FOUND Constant Varchar2(200) := 'OKL_LLA_IB_TXN_TYPE_NOT_FOUND';
59: x_msg_out VARCHAR2(2000);
60:
61: BEGIN
62:
63: okl_api.end_activity(
64: X_msg_count => x_msg_count,
65: X_msg_data => x_msg_data
66: );
67:
113: ) IS
114: l_parameter_list wf_parameter_list_t;
115: l_contract_process VARCHAR2(20);
116: BEGIN
117: x_return_status := OKL_API.G_RET_STS_SUCCESS;
118:
119: -- wrapper API to get contract process. this API determines in which status the
120: -- contract in question is.
121: l_contract_process := okl_lla_util_pvt.get_contract_process(p_chr_id => p_chr_id);
140: p_parameters => l_parameter_list);
141:
142: EXCEPTION
143: WHEN OTHERS THEN
144: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
145: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
146: END raise_business_event;
147:
148: /*
141:
142: EXCEPTION
143: WHEN OTHERS THEN
144: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
145: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
146: END raise_business_event;
147:
148: /*
149: * sjalasut: aug 18, 04 added procedure to call private wrapper that raises the business event. END
209:
210: --++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
211: create_service_line(
212: p_api_version => 1.0,
213: p_init_msg_list => OKL_API.G_FALSE,
214: x_return_status => x_return_status,
215: x_msg_count => x_msg_count,
216: x_msg_data => x_msg_data,
217: p_okl_chr_id => p_okl_chr_id,
220: p_supplier_id => p_supplier_id,
221: x_okl_service_line_id => l_okl_service_line_id
222: );
223:
224: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
225: RAISE OKC_API.G_EXCEPTION_ERROR;
226: END IF;
227:
228: link_service_line(
226: END IF;
227:
228: link_service_line(
229: p_api_version => 1.0,
230: p_init_msg_list => OKL_API.G_FALSE,
231: x_return_status => x_return_status,
232: x_msg_count => x_msg_count,
233: x_msg_data => x_msg_data,
234: p_okl_chr_id => p_okl_chr_id,
236: p_okl_service_line_id => l_okl_service_line_id,
237: p_oks_service_line_id => p_oks_service_line_id
238: );
239:
240: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
241: RAISE OKC_API.G_EXCEPTION_ERROR;
242: END IF;
243:
244: x_okl_service_line_id := l_okl_service_line_id;
248: /*
249: * sjalasut: aug 18, 04 added code to enable business event. BEGIN
250: * raise business event only if the context contract is a LEASE contract
251: */
252: IF(OKL_LLA_UTIL_PVT.is_lease_contract(p_okl_chr_id)= OKL_API.G_TRUE)THEN
253: raise_business_event(p_api_version => p_api_version,
254: p_init_msg_list => p_init_msg_list,
255: p_chr_id => p_okl_chr_id,
256: p_oks_chr_id => p_oks_chr_id,
260: x_return_status => x_return_status,
261: x_msg_count => x_msg_count,
262: x_msg_data => x_msg_data
263: );
264: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
265: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
266: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
267: RAISE OKL_API.G_EXCEPTION_ERROR;
268: END IF;
261: x_msg_count => x_msg_count,
262: x_msg_data => x_msg_data
263: );
264: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
265: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
266: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
267: RAISE OKL_API.G_EXCEPTION_ERROR;
268: END IF;
269: END IF;
262: x_msg_data => x_msg_data
263: );
264: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
265: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
266: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
267: RAISE OKL_API.G_EXCEPTION_ERROR;
268: END IF;
269: END IF;
270: /*
263: );
264: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
265: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
266: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
267: RAISE OKL_API.G_EXCEPTION_ERROR;
268: END IF;
269: END IF;
270: /*
271: * sjalasut: aug 18, 04 added code to enable business event. END
271: * sjalasut: aug 18, 04 added code to enable business event. END
272: */
273:
274:
275: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
276: x_msg_data => x_msg_data);
277:
278: EXCEPTION
279:
335: BEGIN
336: IF (G_DEBUG_ENABLED = 'Y') THEN
337: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
338: END IF;
339: x_return_status := OKL_API.G_RET_STS_SUCCESS;
340: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
341: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
342: END IF;
343:
361: IF bill_to_csr%ISOPEN THEN
362: CLOSE bill_to_csr;
363: END IF;
364:
365: x_return_status := OKL_API.G_RET_STS_ERROR;
366:
367: okl_api.set_message(
368: G_APP_NAME,
369: G_UNEXPECTED_ERROR,
363: END IF;
364:
365: x_return_status := OKL_API.G_RET_STS_ERROR;
366:
367: okl_api.set_message(
368: G_APP_NAME,
369: G_UNEXPECTED_ERROR,
370: 'OKL_SQLCODE',
371: SQLCODE,
374: );
375:
376: WHEN OTHERS THEN
377: x_return_status := OKC_API.G_RET_STS_ERROR;
378: okl_api.set_message(
379: G_APP_NAME,
380: G_UNEXPECTED_ERROR,
381: 'OKL_SQLCODE',
382: SQLCODE,
519: l_okl_currency := okl_curr_rec.currency_code;
520: END LOOP;
521:
522: IF (l_okl_currency <> l_oks_currency) THEN
523: okl_api.set_message(
524: G_APP_NAME,
525: G_LLA_CURR_MISMATCH
526: );
527: RAISE validation_failed;
532: l_okl_customer_id := okl_cust_rec.object1_id1;
533: END LOOP;
534:
535: IF (l_okl_customer_id <> l_oks_customer_id) THEN
536: okl_api.set_message(
537: G_APP_NAME,
538: G_LLA_CUST_MISMATCH
539: );
540: RAISE validation_failed;
557: l_okl_bill_to_id := okl_bill_rec.object1_id1;
558: END LOOP;
559: */
560: IF (l_okl_bill_to_id <> l_oks_bill_to_id) THEN
561: okl_api.set_message(
562: G_APP_NAME,
563: G_LLA_BILL_TO_MISMATCH
564: );
565: RAISE validation_failed;
576: FETCH okl_curr_csr INTO l_okl_contract_number,
577: l_okl_currency;
578: CLOSE okl_curr_csr;
579:
580: okl_api.set_message(
581: G_APP_NAME,
582: G_SERVICE_LINK_EXIST,
583: 'OKL_CONTRACT',
584: l_okl_contract_number
587: END LOOP;
588:
589: EXCEPTION
590: WHEN validation_failed THEN
591: x_return_status := OKL_API.G_RET_STS_ERROR;
592: END validate_integration;
593:
594: ------------------------------------------------------------------------------
595: -- PROCEDURE create_service_line
807: p_okl_chr_id => p_okl_chr_id,
808: p_oks_chr_id => p_oks_chr_id
809: );
810:
811: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
812: RAISE OKC_API.G_EXCEPTION_ERROR;
813: END IF;
814:
815: -- Get Line Style ID for SOLD_SERVICE
839:
840: l_srv_amount := l_srv_amount + srv_okl_rec.price_negotiated;
841:
842: IF (srv_okl_rec.okl_no_of_item <> srv_okl_rec.srv_no_of_item) THEN
843: okl_api.set_message(
844: G_APP_NAME,
845: G_OKL_ITEM_QTY_MISMATCH
846: );
847: RAISE OKC_API.G_EXCEPTION_ERROR;
860: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
861: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Amount: '||l_srv_amount);
862: END IF;
863: IF (l_srv_amount = 0 ) THEN
864: okl_api.set_message(
865: G_APP_NAME,
866: G_OKL_ITEM_MISMATCH
867: );
868: RAISE OKC_API.G_EXCEPTION_ERROR;
881: l_lease_sts_code;
882: CLOSE lease_con_csr;
883:
884: IF (l_lease_st_date > l_srv_end_date) THEN
885: okl_api.set_message(
886: G_APP_NAME,
887: G_OKL_LINK_CON_ERROR
888: );
889: RAISE OKC_API.G_EXCEPTION_ERROR;
889: RAISE OKC_API.G_EXCEPTION_ERROR;
890: END IF;
891:
892: IF (l_lease_end_date < l_srv_st_date) THEN
893: okl_api.set_message(
894: G_APP_NAME,
895: G_OKL_LINK_CON_ERROR
896: );
897: RAISE OKC_API.G_EXCEPTION_ERROR;
927: p_klev_rec.sty_id := G_STY_ID; -- Bug 4011710
928:
929: okl_contract_pub.create_contract_line(
930: p_api_version => 1.0,
931: p_init_msg_list => OKL_API.G_FALSE,
932: x_return_status => x_return_status,
933: x_msg_count => x_msg_count,
934: x_msg_data => x_msg_data,
935: p_clev_rec => p_clev_rec,
937: x_clev_rec => x_clev_rec,
938: x_klev_rec => x_klev_rec
939: );
940:
941: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
942: x_return_status := OKL_API.G_RET_STS_ERROR;
943: RAISE OKC_API.G_EXCEPTION_ERROR;
944: END IF;
945:
938: x_klev_rec => x_klev_rec
939: );
940:
941: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
942: x_return_status := OKL_API.G_RET_STS_ERROR;
943: RAISE OKC_API.G_EXCEPTION_ERROR;
944: END IF;
945:
946: x_cle_id := x_clev_rec.id;
972: END IF;
973:
974: OKL_OKC_MIGRATION_PVT.create_contract_item(
975: p_api_version => 1.0,
976: p_init_msg_list => OKL_API.G_FALSE,
977: x_return_status => x_return_status,
978: x_msg_count => x_msg_count,
979: x_msg_data => x_msg_data,
980: p_cimv_rec => p_cimv_rec,
979: x_msg_data => x_msg_data,
980: p_cimv_rec => p_cimv_rec,
981: x_cimv_rec => x_cimv_rec
982: );
983: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
984: x_return_status := OKL_API.G_RET_STS_ERROR;
985: RAISE OKC_API.G_EXCEPTION_ERROR;
986: END IF;
987:
980: p_cimv_rec => p_cimv_rec,
981: x_cimv_rec => x_cimv_rec
982: );
983: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
984: x_return_status := OKL_API.G_RET_STS_ERROR;
985: RAISE OKC_API.G_EXCEPTION_ERROR;
986: END IF;
987:
988: x_okl_service_line_id := x_cle_id;
1001: -- okc_k_party_roles_b and okl_k_party_roles
1002: /*
1003: OKL_OKC_MIGRATION_PVT.create_k_party_role(
1004: p_api_version => 1.0,
1005: p_init_msg_list => OKL_API.G_FALSE,
1006: x_return_status => x_return_status,
1007: x_msg_count => x_msg_count,
1008: x_msg_data => x_msg_data,
1009: p_cplv_rec => p_cplv_rec,
1012: */
1013:
1014: OKL_K_PARTY_ROLES_PVT.create_k_party_role(
1015: p_api_version => 1.0,
1016: p_init_msg_list => OKL_API.G_FALSE,
1017: x_return_status => x_return_status,
1018: x_msg_count => x_msg_count,
1019: x_msg_data => x_msg_data,
1020: p_cplv_rec => p_cplv_rec,
1022: p_kplv_rec => l_kplv_rec,
1023: x_kplv_rec => x_kplv_rec
1024: );
1025:
1026: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
1027: RAISE OKC_API.G_EXCEPTION_ERROR;
1028: END IF;
1029:
1030: /* Don't create covered asset line automatically
1055: p_klev_rec.capital_amount := l_srv_okl_tbl(i).price_negotiated;
1056:
1057: okl_contract_pub.create_contract_line(
1058: p_api_version => 1.0,
1059: p_init_msg_list => OKL_API.G_FALSE,
1060: x_return_status => x_return_status,
1061: x_msg_count => x_msg_count,
1062: x_msg_data => x_msg_data,
1063: p_clev_rec => p_clev_rec,
1065: x_clev_rec => x_clev_rec,
1066: x_klev_rec => x_klev_rec
1067: );
1068:
1069: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
1070: x_return_status := OKL_API.G_RET_STS_ERROR;
1071: RAISE OKC_API.G_EXCEPTION_ERROR;
1072: END IF;
1073:
1066: x_klev_rec => x_klev_rec
1067: );
1068:
1069: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
1070: x_return_status := OKL_API.G_RET_STS_ERROR;
1071: RAISE OKC_API.G_EXCEPTION_ERROR;
1072: END IF;
1073:
1074: -- Create item link for covered asset line
1082: p_cimv_rec.exception_yn := 'N';
1083:
1084: okl_okc_migration_pvt.create_contract_item(
1085: p_api_version => 1.0,
1086: p_init_msg_list => OKL_API.G_FALSE,
1087: x_return_status => x_return_status,
1088: x_msg_count => x_msg_count,
1089: x_msg_data => x_msg_data,
1090: p_cimv_rec => p_cimv_rec,
1089: x_msg_data => x_msg_data,
1090: p_cimv_rec => p_cimv_rec,
1091: x_cimv_rec => x_cimv_rec
1092: );
1093: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
1094: x_return_status := OKL_API.G_RET_STS_ERROR;
1095: RAISE OKC_API.G_EXCEPTION_ERROR;
1096: END IF;
1097:
1090: p_cimv_rec => p_cimv_rec,
1091: x_cimv_rec => x_cimv_rec
1092: );
1093: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
1094: x_return_status := OKL_API.G_RET_STS_ERROR;
1095: RAISE OKC_API.G_EXCEPTION_ERROR;
1096: END IF;
1097:
1098: END LOOP;
1099: */
1100:
1101: --++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
1102:
1103: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
1104: x_msg_data => x_msg_data);
1105:
1106: EXCEPTION
1107:
1199: -- Check for any existing link
1200: --
1201: check_service_link(
1202: p_api_version => 1.0,
1203: p_init_msg_list => OKL_API.G_FALSE,
1204: x_return_status => x_return_status,
1205: x_msg_count => x_msg_count,
1206: x_msg_data => x_msg_data,
1207: p_lease_contract_id => p_okl_chr_id,
1207: p_lease_contract_id => p_okl_chr_id,
1208: x_service_contract_id => l_service_contract_id
1209: );
1210:
1211: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
1212: raise OKC_API.G_EXCEPTION_ERROR;
1213: END IF;
1214:
1215: IF (l_service_contract_id IS NOT NULL
1215: IF (l_service_contract_id IS NOT NULL
1216: AND
1217: l_service_contract_id <> p_oks_chr_id
1218: ) THEN
1219: okl_api.set_message(
1220: G_APP_NAME,
1221: G_OKL_MULTI_LINK_ERROR
1222: );
1223: RAISE OKC_API.G_EXCEPTION_ERROR;
1235: -- Check for an existing service line link
1236: --
1237: check_service_line_link(
1238: p_api_version => 1.0,
1239: p_init_msg_list => OKL_API.G_FALSE,
1240: x_return_status => x_return_status,
1241: x_msg_count => x_msg_count,
1242: x_msg_data => x_msg_data,
1243: p_lease_contract_id => p_okl_chr_id,
1244: p_oks_service_line_id => p_oks_service_line_id,
1245: x_service_contract_id => l_service_contract_id
1246: );
1247:
1248: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
1249: raise OKC_API.G_EXCEPTION_ERROR;
1250: END IF;
1251:
1252: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1319: END IF;
1320:
1321: --++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
1322:
1323: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
1324: x_msg_data => x_msg_data);
1325:
1326: EXCEPTION
1327: when OKC_API.G_EXCEPTION_ERROR then
1476: IF (l_line_rel_id IS NOT NULL) THEN -- Link exists, delete it
1477: l_crjv_rec.id := l_line_rel_id;
1478: OKC_K_REL_OBJS_PUB.delete_row (
1479: p_api_version => p_api_version,
1480: p_init_msg_list => OKL_API.G_FALSE,
1481: x_return_status => x_return_status,
1482: x_msg_count => x_msg_count,
1483: x_msg_data => x_msg_data,
1484: p_crjv_rec => l_crjv_rec
1508: IF (l_header_rel_id IS NOT NULL) THEN
1509: l_crjv_rec.id := l_header_rel_id;
1510: OKC_K_REL_OBJS_PUB.delete_row (
1511: p_api_version => p_api_version,
1512: p_init_msg_list => OKL_API.G_FALSE,
1513: x_return_status => x_return_status,
1514: x_msg_count => x_msg_count,
1515: x_msg_data => x_msg_data,
1516: p_crjv_rec => l_crjv_rec
1532: -- delete service line
1533: --
1534: okl_contract_pub.delete_contract_line(
1535: p_api_version => p_api_version,
1536: p_init_msg_list => OKL_API.G_FALSE,
1537: x_return_status => x_return_status,
1538: x_msg_count => x_msg_count,
1539: x_msg_data => x_msg_data,
1540: p_clev_rec => p_clev_rec,
1565: FETCH get_service_header_id INTO l_serv_contract_hdr_id;
1566: CLOSE get_service_header_id;
1567: END IF;
1568:
1569: IF(OKL_LLA_UTIL_PVT.is_lease_contract(p_clev_rec.dnz_chr_id)= OKL_API.G_TRUE)THEN
1570: raise_business_event(p_api_version => p_api_version,
1571: p_init_msg_list => p_init_msg_list,
1572: p_chr_id => p_clev_rec.dnz_chr_id,
1573: p_oks_chr_id => l_serv_contract_hdr_id,
1577: x_return_status => x_return_status,
1578: x_msg_count => x_msg_count,
1579: x_msg_data => x_msg_data
1580: );
1581: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1582: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1583: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1584: RAISE OKL_API.G_EXCEPTION_ERROR;
1585: END IF;
1578: x_msg_count => x_msg_count,
1579: x_msg_data => x_msg_data
1580: );
1581: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1582: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1583: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1584: RAISE OKL_API.G_EXCEPTION_ERROR;
1585: END IF;
1586: END IF;
1579: x_msg_data => x_msg_data
1580: );
1581: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1582: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1583: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1584: RAISE OKL_API.G_EXCEPTION_ERROR;
1585: END IF;
1586: END IF;
1587: /*
1580: );
1581: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1582: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1583: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1584: RAISE OKL_API.G_EXCEPTION_ERROR;
1585: END IF;
1586: END IF;
1587: /*
1588: * sjalasut: aug 18, 04 added code to enable business event. END
1588: * sjalasut: aug 18, 04 added code to enable business event. END
1589: */
1590:
1591:
1592: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
1593: x_msg_data => x_msg_data);
1594:
1595: EXCEPTION
1596: when OKC_API.G_EXCEPTION_ERROR then
1683: -- delete existing service line and link
1684: --
1685: okl_service_integration_pvt.delete_service_line(
1686: p_api_version => p_api_version,
1687: p_init_msg_list => OKL_API.G_TRUE,
1688: x_return_status => x_return_status,
1689: x_msg_count => x_msg_count,
1690: x_msg_data => x_msg_data,
1691: p_clev_rec => p_clev_rec,
1702: -- create service line and link
1703: --
1704: okl_service_integration_pvt.create_link_service_line(
1705: p_api_version => p_api_version,
1706: p_init_msg_list => OKL_API.G_TRUE,
1707: x_return_status => x_return_status,
1708: x_msg_count => x_msg_count,
1709: x_msg_data => x_msg_data,
1710: p_okl_chr_id => p_okl_chr_id,
1721: END IF;
1722:
1723: --++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
1724:
1725: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
1726: x_msg_data => x_msg_data);
1727:
1728: EXCEPTION
1729: when OKC_API.G_EXCEPTION_ERROR then
1845: l_ret_val := line_link_rec.answer;
1846: END LOOP;
1847:
1848: IF (l_ret_val = 'Y') THEN
1849: okl_api.set_message(
1850: G_APP_NAME,
1851: G_LLA_SERV_LINE_LINK_ERROR
1852: );
1853: RAISE OKC_API.G_EXCEPTION_ERROR;
1857: END IF;
1858:
1859: --++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
1860:
1861: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
1862: x_msg_data => x_msg_data);
1863:
1864: EXCEPTION
1865: when OKC_API.G_EXCEPTION_ERROR then
1972: --l_crjv_rec.jtot_object1_code := p_jtf_code;
1973:
1974: OKC_K_REL_OBJS_PUB.DELETE_ROW(
1975: p_api_version => p_api_version,
1976: p_init_msg_list => OKL_API.G_FALSE,
1977: x_return_status => x_return_status,
1978: x_msg_count => x_msg_count,
1979: x_msg_data => x_msg_data,
1980: p_crjv_rec => l_crjv_rec
2013: END IF;
2014:
2015: --++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
2016:
2017: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
2018: x_msg_data => x_msg_data);
2019:
2020: EXCEPTION
2021: when OKC_API.G_EXCEPTION_ERROR then
2120: END IF;
2121:
2122: --++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
2123:
2124: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
2125: x_msg_data => x_msg_data);
2126:
2127: EXCEPTION
2128: when OKC_API.G_EXCEPTION_ERROR then
2213:
2214: --++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
2215: check_service_link (
2216: p_api_version => 1.0,
2217: p_init_msg_list => OKL_API.G_FALSE,
2218: x_return_status => x_return_status,
2219: x_msg_count => x_msg_count,
2220: x_msg_data => x_msg_data,
2221: p_lease_contract_id => p_lease_contract_id,
2243: END IF;
2244:
2245: --++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
2246:
2247: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
2248: x_msg_data => x_msg_data);
2249:
2250: EXCEPTION
2251: when OKC_API.G_EXCEPTION_ERROR then
2354: BEGIN
2355: IF (G_DEBUG_ENABLED = 'Y') THEN
2356: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
2357: END IF;
2358: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2359: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2360: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
2361: END IF;
2362:
2372: OPEN hz_loc_csr (p_instance_id);
2373: FETCH hz_loc_csr INTO l_hz_loc_id;
2374: IF hz_loc_csr%FOUND THEN
2375: -- Raise Error
2376: x_return_status := OKL_API.G_RET_STS_ERROR;
2377:
2378: FOR loc_addr_rec IN loc_detail_csr (l_hz_loc_id)
2379: LOOP
2380: okl_api.set_message(
2376: x_return_status := OKL_API.G_RET_STS_ERROR;
2377:
2378: FOR loc_addr_rec IN loc_detail_csr (l_hz_loc_id)
2379: LOOP
2380: okl_api.set_message(
2381: G_APP_NAME,
2382: G_LLA_SRV_PROD_INST,
2383: 'COV_PROD',
2384: p_cov_prod,
2394: OPEN hz_party_site_csr (p_instance_id);
2395: FETCH hz_party_site_csr INTO l_hz_loc_id;
2396: IF hz_party_site_csr%FOUND THEN
2397: -- Raise Error
2398: x_return_status := OKL_API.G_RET_STS_ERROR;
2399: FOR loc_addr_rec IN loc_detail_csr (l_hz_loc_id)
2400: LOOP
2401: okl_api.set_message(
2402: G_APP_NAME,
2397: -- Raise Error
2398: x_return_status := OKL_API.G_RET_STS_ERROR;
2399: FOR loc_addr_rec IN loc_detail_csr (l_hz_loc_id)
2400: LOOP
2401: okl_api.set_message(
2402: G_APP_NAME,
2403: G_LLA_SRV_PROD_INST,
2404: 'COV_PROD',
2405: p_cov_prod,
2412: END IF;
2413: CLOSE hz_party_site_csr;
2414: ELSE
2415: -- Invalid location type error
2416: x_return_status := OKL_API.G_RET_STS_ERROR;
2417: okl_api.set_message(
2418: G_APP_NAME,
2419: G_LLA_SRV_LOC_TYPE,
2420: 'COV_PROD',
2413: CLOSE hz_party_site_csr;
2414: ELSE
2415: -- Invalid location type error
2416: x_return_status := OKL_API.G_RET_STS_ERROR;
2417: okl_api.set_message(
2418: G_APP_NAME,
2419: G_LLA_SRV_LOC_TYPE,
2420: 'COV_PROD',
2421: p_cov_prod,
2425:
2426: RAISE instance_failed;
2427: END IF;
2428:
2429: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2430:
2431: EXCEPTION
2432:
2433: WHEN instance_failed THEN
2431: EXCEPTION
2432:
2433: WHEN instance_failed THEN
2434:
2435: x_return_status := OKL_API.G_RET_STS_ERROR;
2436:
2437: IF csi_csr%ISOPEN THEN
2438: CLOSE csi_csr;
2439: END IF;
2513: IF (G_DEBUG_ENABLED = 'Y') THEN
2514: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
2515: END IF;
2516:
2517: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2518: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2519: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
2520: END IF;
2521:
2549: -- update the link, i.e. delete and create the link
2550: l_crjv_rec.id := l_link_id;
2551: OKC_K_REL_OBJS_PUB.delete_row (
2552: p_api_version => 1.0,
2553: p_init_msg_list => OKL_API.G_FALSE,
2554: x_return_status => x_return_status,
2555: x_msg_count => x_msg_count,
2556: x_msg_data => x_msg_data,
2557: p_crjv_rec => l_crjv_rec
2670: l_instance_id;
2671: CLOSE cov_csr;
2672:
2673: IF (l_ok <> 'Y') THEN
2674: okl_api.set_message(
2675: G_APP_NAME,
2676: G_LLA_COV_ASSET_ERROR,
2677: 'ASSET_NUMBER',
2678: p_clev_tbl(i).name
2693: p_cov_prod => l_item_description,
2694: p_instance_id => l_instance_id
2695: );
2696:
2697: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
2698: RAISE OKC_API.G_EXCEPTION_ERROR;
2699: END IF;
2700: END IF;
2701:
2703:
2704: -- Create Covered Asset Line
2705: OKL_CONTRACT_LINE_ITEM_PUB.CREATE_CONTRACT_LINE_ITEM (
2706: p_api_version => p_api_version,
2707: p_init_msg_list => OKL_API.G_FALSE,
2708: x_return_status => x_return_status,
2709: x_msg_count => x_msg_count,
2710: x_msg_data => x_msg_data,
2711: p_clev_tbl => p_clev_tbl,
2746: END IF;
2747: END LOOP;
2748:
2749:
2750: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
2751: x_msg_data => x_msg_data);
2752:
2753: EXCEPTION
2754: when OKC_API.G_EXCEPTION_ERROR then
2856: FETCH cov_csr INTO l_ok;
2857: CLOSE cov_csr;
2858:
2859: IF (l_ok <> 'Y') THEN
2860: okl_api.set_message(
2861: G_APP_NAME,
2862: G_LLA_COV_ASSET_ERROR,
2863: 'ASSET_NUMBER',
2864: p_clev_tbl(i).name
2870:
2871: -- Create Covered Asset Line
2872: OKL_CONTRACT_LINE_ITEM_PUB.UPDATE_CONTRACT_LINE_ITEM (
2873: p_api_version => p_api_version,
2874: p_init_msg_list => OKL_API.G_FALSE,
2875: x_return_status => x_return_status,
2876: x_msg_count => x_msg_count,
2877: x_msg_data => x_msg_data,
2878: p_clev_tbl => p_clev_tbl,
2911: END IF;
2912: END IF;
2913: END LOOP;
2914:
2915: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
2916: x_msg_data => x_msg_data);
2917:
2918: EXCEPTION
2919: when OKC_API.G_EXCEPTION_ERROR then
2986:
2987: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2988: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_proc_name);
2989: END IF;
2990: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2991:
2992: OPEN arintf_csr(p_oks_chr_id);
2993: FETCH arintf_csr INTO l_arintf_rule_id;
2994: CLOSE arintf_csr;
3001: p_rulv_rec.rule_information11 := p_ar_intf_val;
3002:
3003: okc_rule_pub.update_rule(
3004: p_api_version => 1.0,
3005: p_init_msg_list => OKL_API.G_TRUE,
3006: x_return_status => x_return_status,
3007: x_msg_count => x_msg_count,
3008: x_msg_data => x_msg_data,
3009: p_rulv_rec => p_rulv_rec,
3009: p_rulv_rec => p_rulv_rec,
3010: x_rulv_rec => x_rulv_rec
3011: );
3012:
3013: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
3014: x_return_status := OKL_API.G_RET_STS_ERROR;
3015: END IF;
3016:
3017: END IF;
3010: x_rulv_rec => x_rulv_rec
3011: );
3012:
3013: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
3014: x_return_status := OKL_API.G_RET_STS_ERROR;
3015: END IF;
3016:
3017: END IF;
3018:
3020:
3021: EXCEPTION
3022:
3023: WHEN OTHERS THEN
3024: x_return_status := OKL_API.G_RET_STS_ERROR;
3025:
3026: END update_oks_ar_intf;
3027:
3028:
3168: END IF;
3169: --************************************************
3170: check_service_link(
3171: p_api_version => 1.0,
3172: p_init_msg_list => OKL_API.G_FALSE,
3173: x_return_status => x_return_status,
3174: x_msg_count => x_msg_count,
3175: x_msg_data => x_msg_data,
3176: p_lease_contract_id => p_okl_chr_id,
3176: p_lease_contract_id => p_okl_chr_id,
3177: x_service_contract_id => l_oks_chr_id
3178: );
3179:
3180: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
3181: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3182: END IF;
3183:
3184: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3206: p_cov_prod => l_item_desc,
3207: p_instance_id => inst_rec.instance_id
3208: );
3209:
3210: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
3211: raise OKC_API.G_EXCEPTION_ERROR;
3212: END IF;
3213:
3214: END LOOP;
3218: -- Fix Bug# 2872267
3219: --
3220: update_jtf_code(
3221: p_api_version => 1.0,
3222: p_init_msg_list => OKL_API.G_FALSE,
3223: x_return_status => x_return_status,
3224: x_msg_count => x_msg_count,
3225: x_msg_data => x_msg_data,
3226: p_okl_chr_id => p_okl_chr_id,
3227: p_oks_chr_id => l_oks_chr_id,
3228: p_jtf_code => 'OKL_SERVICE'
3229: );
3230:
3231: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
3232: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3233: END IF;
3234:
3235: --
3246: p_oks_chr_id => l_oks_chr_id,
3247: p_ar_intf_val => 'N'
3248: );
3249:
3250: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
3251: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3252: END IF;
3253: */
3254:
3253: */
3254:
3255: get_service_link_line (
3256: p_api_version => 1.0,
3257: p_init_msg_list => OKL_API.G_FALSE,
3258: x_return_status => x_return_status,
3259: x_msg_count => x_msg_count,
3260: x_msg_data => x_msg_data,
3261: p_lease_contract_id => p_okl_chr_id,
3262: x_link_line_tbl => l_link_line_tbl,
3263: x_service_contract_id => l_oks_chr_id
3264: );
3265:
3266: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
3267: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3268: END IF;
3269:
3270: --dbms_output.put_line('Line Link count: '||l_link_line_tbl.COUNT);
3273: -- Expire IB instance(s)
3274: --
3275: expire_lease_instance(
3276: p_api_version => 1.0,
3277: p_init_msg_list => OKL_API.G_FALSE,
3278: x_return_status => x_return_status,
3279: x_msg_count => x_msg_count,
3280: x_msg_data => x_msg_data,
3281: p_okl_chr_id => p_okl_chr_id
3280: x_msg_data => x_msg_data,
3281: p_okl_chr_id => p_okl_chr_id
3282: );
3283:
3284: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
3285: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3286: END IF;
3287:
3288: FOR i IN 1..l_link_line_tbl.COUNT
3336:
3337:
3338: okc_contract_item_pub.update_contract_item(
3339: p_api_version => 1.0,
3340: p_init_msg_list => OKL_API.G_FALSE,
3341: x_return_status => x_return_status,
3342: x_msg_count => x_msg_count,
3343: x_msg_data => x_msg_data,
3344: p_cimv_rec => l_cimv_rec,
3344: p_cimv_rec => l_cimv_rec,
3345: x_cimv_rec => x_cimv_rec
3346: );
3347:
3348: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
3349: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3350: END IF;
3351:
3352: END IF;
3356: END IF;
3357:
3358: --************************************************
3359:
3360: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
3361: x_msg_data => x_msg_data);
3362:
3363: EXCEPTION
3364: when OKC_API.G_EXCEPTION_ERROR then
3442: IF (G_DEBUG_ENABLED = 'Y') THEN
3443: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
3444: END IF;
3445:
3446: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3447:
3448: l_srv_qty := 0;
3449: l_lease_qty := 0;
3450: i := 0;
3481:
3482: -- Call linked asset line creation api
3483: okl_contract_line_item_pub.create_contract_line_item(
3484: p_api_version => 1.0,
3485: p_init_msg_list => OKL_API.G_FALSE,
3486: x_return_status => x_return_status,
3487: x_msg_count => x_msg_count,
3488: x_msg_data => x_msg_data,
3489: p_line_item_tbl => l_line_item_tbl,
3681: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'===>Before calling create_link_service_line');
3682: END IF;
3683: create_link_service_line(
3684: p_api_version => 1.0,
3685: p_init_msg_list => OKL_API.G_FALSE,
3686: x_return_status => x_return_status,
3687: x_msg_count => x_msg_count,
3688: x_msg_data => x_msg_data,
3689: p_okl_chr_id => p_okl_chr_id,
3706: -- Create LINK transaction
3707: --
3708: okl_transaction_pvt.create_service_transaction(
3709: p_api_version => 1.0,
3710: p_init_msg_list => OKL_API.G_FALSE,
3711: x_return_status => x_return_status,
3712: x_msg_count => x_msg_count,
3713: x_msg_data => x_msg_data,
3714: p_lease_id => p_okl_chr_id,
3767: -- l_service_item_qty;
3768: IF ( okl_asset_csr%NOTFOUND ) THEN
3769: -- bug 4889070 commented this quantity mismatch condn as it is included in the cursor
3770: -- OR l_lease_item_qty <> l_service_item_qty) THEN
3771: okl_api.set_message(
3772: G_APP_NAME,
3773: G_SRV_NO_ASSET_MATCH
3774: );
3775: x_return_status := OKL_API.G_RET_STS_ERROR;
3771: okl_api.set_message(
3772: G_APP_NAME,
3773: G_SRV_NO_ASSET_MATCH
3774: );
3775: x_return_status := OKL_API.G_RET_STS_ERROR;
3776: raise OKC_API.G_EXCEPTION_ERROR;
3777: END IF;
3778:
3779: CLOSE okl_asset_csr;
3799: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'===>Before calling okl_contract_line_item_pub.create_contract_line_item');
3800: END IF;
3801: okl_contract_line_item_pub.create_contract_line_item(
3802: p_api_version => 1.0,
3803: p_init_msg_list => OKL_API.G_FALSE,
3804: x_return_status => x_return_status,
3805: x_msg_count => x_msg_count,
3806: x_msg_data => x_msg_data,
3807: p_line_item_tbl => l_line_item_tbl,
3828: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'===>Before calling create_link_service_line');
3829: END IF;
3830: create_link_service_line(
3831: p_api_version => 1.0,
3832: p_init_msg_list => OKL_API.G_FALSE,
3833: x_return_status => x_return_status,
3834: x_msg_count => x_msg_count,
3835: x_msg_data => x_msg_data,
3836: p_okl_chr_id => p_okl_chr_id,
3853: -- Create LINK transaction
3854: --
3855: okl_transaction_pvt.create_service_transaction(
3856: p_api_version => 1.0,
3857: p_init_msg_list => OKL_API.G_FALSE,
3858: x_return_status => x_return_status,
3859: x_msg_count => x_msg_count,
3860: x_msg_data => x_msg_data,
3861: p_lease_id => p_okl_chr_id,
3915: IF ( okl_asset_csr%NOTFOUND) THEN
3916: -- bug 4889070 commented this quantity mismatch condn as it is included in the cursor
3917: -- OR l_lease_item_qty <> l_service_item_qty) THEN
3918:
3919: okl_api.set_message(
3920: G_APP_NAME,
3921: G_SRV_NO_ASSET_MATCH
3922: );
3923: x_return_status := OKL_API.G_RET_STS_ERROR;
3919: okl_api.set_message(
3920: G_APP_NAME,
3921: G_SRV_NO_ASSET_MATCH
3922: );
3923: x_return_status := OKL_API.G_RET_STS_ERROR;
3924: raise OKC_API.G_EXCEPTION_ERROR;
3925: END IF;
3926:
3927: CLOSE okl_asset_csr;
3947: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'===>Before calling okl_contract_line_item_pub.create_contract_line_item');
3948: END IF;
3949: okl_contract_line_item_pub.create_contract_line_item(
3950: p_api_version => 1.0,
3951: p_init_msg_list => OKL_API.G_FALSE,
3952: x_return_status => x_return_status,
3953: x_msg_count => x_msg_count,
3954: x_msg_data => x_msg_data,
3955: p_line_item_tbl => l_line_item_tbl,
3969: END LOOP; --oks_serv_csr 11.5.9
3970: END IF; -- l_oks_ver
3971: --++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
3972:
3973: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
3974: x_msg_data => x_msg_data);
3975:
3976: EXCEPTION
3977:
4119: -- Create DE-LINK transaction
4120: --
4121: okl_transaction_pvt.create_service_transaction(
4122: p_api_version => 1.0,
4123: p_init_msg_list => OKL_API.G_FALSE,
4124: x_return_status => x_return_status,
4125: x_msg_count => x_msg_count,
4126: x_msg_data => x_msg_data,
4127: p_lease_id => p_okl_chr_id,
4142: END IF;
4143:
4144: OKC_K_REL_OBJS_PUB.delete_row (
4145: p_api_version => p_api_version,
4146: p_init_msg_list => OKL_API.G_FALSE,
4147: x_return_status => x_return_status,
4148: x_msg_count => x_msg_count,
4149: x_msg_data => x_msg_data,
4150: p_crjv_tbl => l_crjv_tbl
4163: -- ABANDON the de-linked service line in OKL
4164: --
4165: okl_contract_pub.update_contract_line(
4166: p_api_version => p_api_version,
4167: p_init_msg_list => OKL_API.G_FALSE,
4168: x_return_status => x_return_status,
4169: x_msg_count => x_msg_count,
4170: x_msg_data => x_msg_data,
4171: p_clev_tbl => l_clev_tbl,
4189: END IF;
4190:
4191: --++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
4192:
4193: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
4194: x_msg_data => x_msg_data);
4195:
4196: EXCEPTION
4197:
4235: --End of Comments
4236: ------------------------------------------------------------------------------
4237: PROCEDURE get_trx_rec
4238: (p_api_version IN NUMBER,
4239: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
4240: x_return_status OUT NOCOPY VARCHAR2,
4241: x_msg_count OUT NOCOPY NUMBER,
4242: x_msg_data OUT NOCOPY VARCHAR2,
4243: p_cle_id IN NUMBER,
4243: p_cle_id IN NUMBER,
4244: p_transaction_type IN VARCHAR2,
4245: x_trx_rec OUT NOCOPY CSI_DATASTRUCTURES_PUB.transaction_rec) is
4246:
4247: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4248: l_api_name CONSTANT VARCHAR2(30) := 'GET_TRX_REC';
4249: l_api_version CONSTANT NUMBER := 1.0;
4250:
4251: --Following cursor assumes that a transaction type called
4260: Fetch okl_trx_type_csr
4261: into l_trx_type_id;
4262: If okl_trx_type_csr%NotFound Then
4263: --OKL LINE ACTIVATION not seeded as a source transaction in IB
4264: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
4265: p_msg_name => G_IB_TXN_TYPE_NOT_FOUND,
4266: p_token1 => G_TXN_TYPE_TOKEN,
4267: p_token1_value => p_transaction_type
4268: );
4265: p_msg_name => G_IB_TXN_TYPE_NOT_FOUND,
4266: p_token1 => G_TXN_TYPE_TOKEN,
4267: p_token1_value => p_transaction_type
4268: );
4269: Raise OKL_API.G_EXCEPTION_ERROR;
4270: End If;
4271: close okl_trx_type_csr;
4272: --Assign transaction Type id to seeded value in cs_lookups
4273: x_trx_rec.transaction_type_id := l_trx_type_id;
4276: x_trx_rec.transaction_date := sysdate;
4277: --confirm whether this has to be sysdate or creation date on line
4278: x_trx_rec.source_transaction_date := sysdate;
4279: Exception
4280: When OKL_API.G_EXCEPTION_ERROR Then
4281: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
4282: (
4283: l_api_name,
4284: G_PKG_NAME,
4277: --confirm whether this has to be sysdate or creation date on line
4278: x_trx_rec.source_transaction_date := sysdate;
4279: Exception
4280: When OKL_API.G_EXCEPTION_ERROR Then
4281: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
4282: (
4283: l_api_name,
4284: G_PKG_NAME,
4285: 'OKL_API.G_RET_STS_ERROR',
4281: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
4282: (
4283: l_api_name,
4284: G_PKG_NAME,
4285: 'OKL_API.G_RET_STS_ERROR',
4286: x_msg_count,
4287: x_msg_data,
4288: '_PVT'
4289: );
4286: x_msg_count,
4287: x_msg_data,
4288: '_PVT'
4289: );
4290: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4291: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
4292: (
4293: l_api_name,
4294: G_PKG_NAME,
4287: x_msg_data,
4288: '_PVT'
4289: );
4290: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4291: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
4292: (
4293: l_api_name,
4294: G_PKG_NAME,
4295: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4291: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
4292: (
4293: l_api_name,
4294: G_PKG_NAME,
4295: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4296: x_msg_count,
4297: x_msg_data,
4298: '_PVT'
4299: );
4297: x_msg_data,
4298: '_PVT'
4299: );
4300: WHEN OTHERS THEN
4301: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
4302: (
4303: l_api_name,
4304: G_PKG_NAME,
4305: 'OTHERS',
4454: p_commit => 'F',
4455: p_init_msg_list => p_init_msg_list,
4456: p_validation_level => fnd_api.g_valid_level_full,
4457: p_instance_rec => l_instance_rec,
4458: p_expire_children => OKL_API.G_FALSE,
4459: p_txn_rec => l_txn_rec,
4460: x_instance_id_lst => x_inst_tbl,
4461: x_return_status => x_return_status,
4462: x_msg_count => x_msg_count,
4497: END LOOP; -- link_asset_csr
4498:
4499: --++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
4500:
4501: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
4502: x_msg_data => x_msg_data);
4503:
4504: EXCEPTION
4505:
4623: END IF;
4624:
4625: --++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
4626:
4627: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
4628: x_msg_data => x_msg_data);
4629:
4630: EXCEPTION
4631: