[Home] [Help]
10: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
11: G_MODULE CONSTANT VARCHAR2(250) := 'oks.plsql.'||g_pkg_name||'.';
12: G_APPLICATION_ID CONSTANT NUMBER :=515; -- OKS Application
13:
14: G_FALSE CONSTANT VARCHAR2(1) := FND_API.G_FALSE;
15: G_TRUE CONSTANT VARCHAR2(1) := FND_API.G_TRUE;
16:
17: G_RET_STS_SUCCESS CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
18: G_RET_STS_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_ERROR;
11: G_MODULE CONSTANT VARCHAR2(250) := 'oks.plsql.'||g_pkg_name||'.';
12: G_APPLICATION_ID CONSTANT NUMBER :=515; -- OKS Application
13:
14: G_FALSE CONSTANT VARCHAR2(1) := FND_API.G_FALSE;
15: G_TRUE CONSTANT VARCHAR2(1) := FND_API.G_TRUE;
16:
17: G_RET_STS_SUCCESS CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
18: G_RET_STS_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_ERROR;
19: G_RET_STS_UNEXP_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
13:
14: G_FALSE CONSTANT VARCHAR2(1) := FND_API.G_FALSE;
15: G_TRUE CONSTANT VARCHAR2(1) := FND_API.G_TRUE;
16:
17: G_RET_STS_SUCCESS CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
18: G_RET_STS_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_ERROR;
19: G_RET_STS_UNEXP_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
20: G_RET_STS_WARNING CONSTANT VARCHAR2(1) := 'W';
21: G_RET_STS_ALREADY_PUBLISHED CONSTANT VARCHAR2(1) := 'P';
14: G_FALSE CONSTANT VARCHAR2(1) := FND_API.G_FALSE;
15: G_TRUE CONSTANT VARCHAR2(1) := FND_API.G_TRUE;
16:
17: G_RET_STS_SUCCESS CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
18: G_RET_STS_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_ERROR;
19: G_RET_STS_UNEXP_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
20: G_RET_STS_WARNING CONSTANT VARCHAR2(1) := 'W';
21: G_RET_STS_ALREADY_PUBLISHED CONSTANT VARCHAR2(1) := 'P';
22: G_RET_STS_ACTION_NOT_ALWD CONSTANT VARCHAR2(1) := 'C';
15: G_TRUE CONSTANT VARCHAR2(1) := FND_API.G_TRUE;
16:
17: G_RET_STS_SUCCESS CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
18: G_RET_STS_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_ERROR;
19: G_RET_STS_UNEXP_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
20: G_RET_STS_WARNING CONSTANT VARCHAR2(1) := 'W';
21: G_RET_STS_ALREADY_PUBLISHED CONSTANT VARCHAR2(1) := 'P';
22: G_RET_STS_ACTION_NOT_ALWD CONSTANT VARCHAR2(1) := 'C';
23:
457: ' Document Type: '||p_document_type);
458: END IF;
459:
460: -- Initialize message list if p_init_msg_list is set to TRUE.
461: IF FND_API.to_Boolean( p_init_msg_list ) THEN
462: FND_MSG_PUB.initialize;
463: END IF;
464:
465: -- Initialize API return status to success
469: IF p_contract_id IS NULL THEN
470: FND_MESSAGE.SET_NAME(G_APP_NAME,'OKS_INVD_CONTRACT_ID');
471: FND_MESSAGE.SET_TOKEN('HDR_ID','null');
472: FND_MSG_PUB.add;
473: RAISE FND_API.G_EXC_ERROR;
474: END IF;
475: okc_context.set_okc_org_context(p_chr_id => p_contract_id);
476:
477: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
507: ' x_attachment_name ='||x_email_attr_rec.attachment_name||
508: ' x_contract_update_status ='||x_email_attr_rec.contract_status);
509: END IF;
510: IF x_return_status <> G_RET_STS_SUCCESS THEN
511: RAISE FND_API.G_EXC_ERROR;
512: END IF;
513:
514: IF NVL(x_email_attr_rec.email_body_id,x_email_attr_rec.attachment_id) IS NOT NULL THEN
515: x_template_defined_yn := 'Y';
548: ' x_fnd_iso_language ='||l_iso_language||
549: ' x_fnd_iso_territory ='||l_iso_territory);
550: END IF;
551: IF x_return_status <> G_RET_STS_SUCCESS THEN
552: RAISE FND_API.G_EXC_ERROR;
553: END IF;
554: IF l_language IS NULL THEN
555: OPEN l_install_lang_csr;
556: FETCH l_install_lang_csr INTO l_language;
633: 'Leaving '||G_PKG_NAME ||'.'||l_api_name);
634: END IF;
635:
636: EXCEPTION
637: WHEN FND_API.G_EXC_ERROR THEN
638: x_return_status := G_RET_STS_ERROR;
639: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
640: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
641: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,
677: ELSE
678: FND_MESSAGE.SET_NAME(G_APP_NAME,'OKS_INVD_CONTRACT_ID');
679: FND_MESSAGE.SET_TOKEN('HDR_ID',p_contract_id);
680: FND_MSG_PUB.add;
681: RAISE FND_API.G_EXC_ERROR;
682: END IF;
683: ELSE
684: l_item_key := p_item_key;
685: END IF;
713: END IF;
714:
715: RETURN l_irr_flag;
716: EXCEPTION
717: WHEN FND_API.G_EXC_ERROR THEN
718: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
719: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
720: 'Leaving with Exception '||G_PKG_NAME ||'.'||l_api_name);
721: END IF;
869: 'Entered '||G_PKG_NAME ||'.'||l_api_name||'with Contract Id '||p_contract_id);
870: END IF;
871:
872: -- Standard call to check for call compatibility.
873: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
874: x_return_status := G_RET_STS_ERROR;
875: RAISE FND_API.G_EXC_ERROR;
876: END IF;
877:
871:
872: -- Standard call to check for call compatibility.
873: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
874: x_return_status := G_RET_STS_ERROR;
875: RAISE FND_API.G_EXC_ERROR;
876: END IF;
877:
878: -- Initialize message list if p_init_msg_list is set to TRUE.
879: IF FND_API.to_Boolean( p_init_msg_list ) THEN
875: RAISE FND_API.G_EXC_ERROR;
876: END IF;
877:
878: -- Initialize message list if p_init_msg_list is set to TRUE.
879: IF FND_API.to_Boolean( p_init_msg_list ) THEN
880: FND_MSG_PUB.initialize;
881: END IF;
882:
883: -- Initialize API return status to success
880: FND_MSG_PUB.initialize;
881: END IF;
882:
883: -- Initialize API return status to success
884: x_return_status := FND_API.G_RET_STS_SUCCESS;
885:
886: IF p_contract_id IS NULL THEN
887: FND_MESSAGE.SET_NAME(G_APP_NAME,'OKS_INVD_CONTRACT_ID');
888: FND_MESSAGE.SET_TOKEN('HDR_ID',p_contract_id);
886: IF p_contract_id IS NULL THEN
887: FND_MESSAGE.SET_NAME(G_APP_NAME,'OKS_INVD_CONTRACT_ID');
888: FND_MESSAGE.SET_TOKEN('HDR_ID',p_contract_id);
889: FND_MSG_PUB.add;
890: RAISE FND_API.G_EXC_ERROR;
891: END IF;
892:
893: IF p_item_key IS NULL THEN
894: l_item_key := get_wf_item_key(p_contract_id => p_contract_id);
894: l_item_key := get_wf_item_key(p_contract_id => p_contract_id);
895: IF l_item_key IS NULL THEN
896: FND_MESSAGE.set_name(G_APP_NAME,'OKS_INVALID_WF_ITEM_KEY');
897: FND_MSG_PUB.add;
898: RAISE FND_API.G_EXC_ERROR;
899: END IF;
900: ELSE
901: l_item_key := p_item_key;
902: END IF;
938: 'Leaving '||G_PKG_NAME ||'.'||l_api_name);
939: END IF;
940:
941: EXCEPTION
942: WHEN FND_API.G_EXC_ERROR THEN
943: x_return_status := G_RET_STS_ERROR;
944: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
945: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
946: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,
986: ' p_process_status ='||p_process_status||' p_activity_name ='||p_activity_name);
987: END IF;
988:
989: -- Standard call to check for call compatibility.
990: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
991: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
992: END IF;
993:
994: -- Initialize message list if p_init_msg_list is set to TRUE.
987: END IF;
988:
989: -- Standard call to check for call compatibility.
990: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
991: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
992: END IF;
993:
994: -- Initialize message list if p_init_msg_list is set to TRUE.
995: IF FND_API.to_Boolean( p_init_msg_list ) THEN
991: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
992: END IF;
993:
994: -- Initialize message list if p_init_msg_list is set to TRUE.
995: IF FND_API.to_Boolean( p_init_msg_list ) THEN
996: FND_MSG_PUB.initialize;
997: END IF;
998:
999: -- Initialize API return status to success
996: FND_MSG_PUB.initialize;
997: END IF;
998:
999: -- Initialize API return status to success
1000: x_return_status := FND_API.G_RET_STS_SUCCESS;
1001:
1002: IF p_item_key IS NULL THEN
1003: l_item_key := get_wf_item_key(p_contract_id);
1004: IF l_item_key IS NULL THEN
1003: l_item_key := get_wf_item_key(p_contract_id);
1004: IF l_item_key IS NULL THEN
1005: FND_MESSAGE.set_name(G_APP_NAME,'OKS_INVALID_WF_ITEM_KEY');
1006: FND_MSG_PUB.add;
1007: RAISE FND_API.G_EXC_ERROR;
1008: END IF;
1009: ELSE
1010: l_item_key := p_item_key;
1011: END IF; -- p_item_key IS NULL
1067: 'Leaving '||G_PKG_NAME ||'.'||l_api_name);
1068: END IF;
1069:
1070: EXCEPTION
1071: WHEN FND_API.G_EXC_ERROR THEN
1072: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
1073: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1074: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
1075: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from G_EXC_ERROR');
1076: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,get_fnd_message);
1077: END IF;
1078: x_return_status := G_RET_STS_ERROR ;
1079:
1080: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1081: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
1082: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1083: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
1084: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from G_EXC_UNEXPECTED_ERROR');
1124:
1125: IF l_negotiation_status IS NULL THEN
1126: fnd_message.set_name(G_APP_NAME,'OKS_INVALID_NEG_STATUS');
1127: fnd_msg_pub.add;
1128: RAISE FND_API.G_EXC_ERROR;
1129: END IF;
1130:
1131: -- end debug log
1132: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1135: END IF;
1136:
1137: RETURN l_negotiation_status;
1138: EXCEPTION
1139: WHEN FND_API.G_EXC_ERROR THEN
1140: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1141: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
1142: 'Leaving with Exception '||G_PKG_NAME ||'.'||l_api_name||' from G_EXC_ERROR');
1143: END IF;
1285:
1286: IF l_contact_id IS NULL THEN
1287: fnd_message.set_name(G_APP_NAME,'OKS_NO_QTO_CONTACT');
1288: fnd_msg_pub.add;
1289: RAISE FND_API.G_EXC_ERROR;
1290: END IF;
1291:
1292: OPEN l_emailAddress_csr (l_contact_id) ;
1293: FETCH l_emailAddress_csr INTO l_qto_email;
1295:
1296: IF l_qto_email IS NULL THEN
1297: fnd_message.set_name(G_APP_NAME,'OKS_NO_QTO_EMAIL');
1298: fnd_msg_pub.add;
1299: RAISE FND_API.G_EXC_ERROR;
1300: END IF;
1301:
1302: -- end debug log
1303: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1306: END IF;
1307:
1308: RETURN l_qto_email;
1309: EXCEPTION
1310: WHEN FND_API.G_EXC_ERROR THEN
1311: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1312: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
1313: 'Leaving with Exception '||G_PKG_NAME ||'.'||l_api_name||' from G_EXC_ERROR');
1314: END IF;
1448: ' Subject ' ||p_notif_attr.SUBJECT);
1449: END IF;
1450:
1451: -- Initialize message list if p_init_msg_list is set to TRUE.
1452: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1453: FND_MSG_PUB.initialize;
1454: END IF;
1455:
1456: -- Initialize API return status to success
1463: IF l_rownotfound THEN
1464: FND_MESSAGE.SET_NAME(G_APP_NAME,'OKS_INVD_CONTRACT_ID');
1465: FND_MESSAGE.SET_TOKEN('HDR_ID',p_notif_attr.CONTRACT_ID);
1466: FND_MSG_PUB.add;
1467: RAISE FND_API.G_EXC_ERROR;
1468: END IF;
1469:
1470: IF l_kdetails_rec.contract_number_modifier IS NULL THEN
1471: l_concat_k_number := l_kdetails_rec.contract_number;
1535: ' x_user_id ='||l_salesrep_id||
1536: ' x_user_name ='||l_salesrep_name);
1537: END IF;
1538: IF x_return_status <> G_RET_STS_SUCCESS THEN
1539: RAISE FND_API.G_EXC_ERROR;
1540: END IF;
1541: wf_engine.SetItemAttrText
1542: (
1543: itemtype => G_ITEM_TYPE,
1729: FND_MESSAGE.SET_TOKEN('CUST_NAME',l_party_name);
1730: l_notif_subject := FND_MESSAGE.GET;
1731:
1732: ELSE
1733: RAISE FND_API.G_EXC_ERROR;
1734: END IF;
1735:
1736: wf_engine.SetItemAttrText
1737: (
1895: 'Leaving '||G_PKG_NAME ||'.'||l_api_name);
1896: END IF;
1897:
1898: EXCEPTION
1899: WHEN FND_API.G_EXC_ERROR THEN
1900: x_return_status := G_RET_STS_ERROR;
1901: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
1902: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1903: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,
2025: ' Contract status: ' ||p_email_attr.contract_status);
2026: END IF;
2027:
2028: -- Initialize message list if p_init_msg_list is set to TRUE.
2029: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2030: FND_MSG_PUB.initialize;
2031: END IF;
2032:
2033: -- Initialize API return status to success
2036: IF p_email_attr.CONTRACT_ID IS NULL THEN
2037: FND_MESSAGE.SET_NAME(G_APP_NAME,'OKS_INVD_CONTRACT_ID');
2038: FND_MESSAGE.SET_TOKEN('HDR_ID','null');
2039: FND_MSG_PUB.add;
2040: RAISE FND_API.G_EXC_ERROR;
2041: END IF;
2042:
2043: IF p_email_attr.TO_EMAIL IS NULL THEN
2044: l_qto_email := get_qto_email(p_contract_id => p_email_attr.CONTRACT_ID);
2045: IF l_qto_email IS NULL THEN
2046: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2047: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name,'Quote To email not found');
2048: END IF;
2049: RAISE FND_API.G_EXC_ERROR;
2050: END IF;
2051: ELSE
2052: l_qto_email := p_email_attr.TO_EMAIL;
2053: END IF;
2079: ' x_user_id ='||l_salesrep_id||
2080: ' x_user_name ='||l_salesrep_name);
2081: END IF;
2082: IF x_return_status <> G_RET_STS_SUCCESS THEN
2083: RAISE FND_API.G_EXC_ERROR;
2084: END IF;
2085:
2086: OPEN l_email_csr(l_salesrep_id);
2087: FETCH l_email_csr INTO l_sender_email;
2092: -- Sender email is not found
2093: FND_MESSAGE.SET_NAME(G_APP_NAME,'OKS_EMAIL_NOT_FOUND');
2094: FND_MESSAGE.SET_TOKEN('USER_NAME',l_salesrep_name);
2095: FND_MSG_PUB.add;
2096: RAISE FND_API.G_EXC_ERROR;
2097: END IF;
2098: ELSE
2099: l_sender_email := p_email_attr.SENDER_EMAIL;
2100: END IF;
2111: l_item_key := get_wf_item_key(p_contract_id => p_email_attr.CONTRACT_ID);
2112: IF l_item_key IS NULL THEN
2113: FND_MESSAGE.set_name(G_APP_NAME,'OKS_INVALID_WF_ITEM_KEY');
2114: FND_MSG_PUB.add;
2115: RAISE FND_API.G_EXC_ERROR;
2116: END IF;
2117: ELSE
2118: l_item_key := p_email_attr.ITEM_KEY;
2119: END IF;
2158: ' x_attachment_name ='||l_attachment_name||
2159: ' x_contract_update_status ='||l_contract_status);
2160: END IF;
2161: IF x_return_status <> G_RET_STS_SUCCESS THEN
2162: RAISE FND_API.G_EXC_ERROR;
2163: END IF;
2164:
2165: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2166: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.before',
2193: ' x_fnd_iso_language ='||l_iso_language||
2194: ' x_fnd_iso_territory ='||l_iso_territory);
2195: END IF;
2196: IF x_return_status <> G_RET_STS_SUCCESS THEN
2197: RAISE FND_API.G_EXC_ERROR;
2198: END IF;
2199: IF l_language IS NULL THEN
2200: OPEN l_install_lang_csr;
2201: FETCH l_install_lang_csr INTO l_language;
2328: l_email_subject := p_email_attr.EMAIL_SUBJECT;
2329: END IF;
2330:
2331: ELSE
2332: RAISE FND_API.G_EXC_ERROR;
2333: END IF;
2334:
2335: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2336: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT,G_MODULE||l_api_name,
2430: 'Leaving '||G_PKG_NAME ||'.'||l_api_name);
2431: END IF;
2432:
2433: EXCEPTION
2434: WHEN FND_API.G_EXC_ERROR THEN
2435: x_return_status := G_RET_STS_ERROR;
2436: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
2437: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2438: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,
2508: END IF;
2509:
2510: DBMS_TRANSACTION.SAVEPOINT(l_api_name);
2511: -- Standard call to check for call compatibility.
2512: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
2513: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2514: END IF;
2515:
2516: -- Initialize message list if p_init_msg_list is set to TRUE.
2509:
2510: DBMS_TRANSACTION.SAVEPOINT(l_api_name);
2511: -- Standard call to check for call compatibility.
2512: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
2513: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2514: END IF;
2515:
2516: -- Initialize message list if p_init_msg_list is set to TRUE.
2517: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2513: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2514: END IF;
2515:
2516: -- Initialize message list if p_init_msg_list is set to TRUE.
2517: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2518: FND_MSG_PUB.initialize;
2519: END IF;
2520:
2521: -- Initialize API return status to success
2518: FND_MSG_PUB.initialize;
2519: END IF;
2520:
2521: -- Initialize API return status to success
2522: x_return_status := FND_API.G_RET_STS_SUCCESS;
2523:
2524: IF p_item_key IS NULL THEN
2525: l_item_key := get_wf_item_key(p_contract_id);
2526: IF l_item_key IS NULL THEN
2525: l_item_key := get_wf_item_key(p_contract_id);
2526: IF l_item_key IS NULL THEN
2527: FND_MESSAGE.set_name(G_APP_NAME,'OKS_INVALID_WF_ITEM_KEY');
2528: FND_MSG_PUB.add;
2529: RAISE FND_API.G_EXC_ERROR;
2530: END IF;
2531: ELSE
2532: l_item_key := p_item_key;
2533: END IF; -- p_item_key IS NULL
2561: 'OKS_WF_K_PROCESS_PVT.is_template_defined(x_return_status= '||
2562: x_return_status||' x_msg_count ='||x_msg_count||')');
2563: END IF;
2564: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2565: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2566: ELSIF x_return_status = G_RET_STS_ERROR THEN
2567: RAISE FND_API.G_EXC_ERROR;
2568: END IF;
2569:
2563: END IF;
2564: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2565: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2566: ELSIF x_return_status = G_RET_STS_ERROR THEN
2567: RAISE FND_API.G_EXC_ERROR;
2568: END IF;
2569:
2570: wf_engine.SetItemAttrText
2571: (
2600: 'OKS_AUTO_REMINDER.log_interaction(x_return_status= '||
2601: x_return_status||' x_msg_count ='||x_msg_count||')');
2602: END IF;
2603: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2604: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2605: ELSIF x_return_status = G_RET_STS_ERROR THEN
2606: RAISE FND_API.G_EXC_ERROR;
2607: END IF;
2608: IF NVL(l_send_email_yn,'N') = 'Y' THEN
2602: END IF;
2603: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2604: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2605: ELSIF x_return_status = G_RET_STS_ERROR THEN
2606: RAISE FND_API.G_EXC_ERROR;
2607: END IF;
2608: IF NVL(l_send_email_yn,'N') = 'Y' THEN
2609: l_email_attr_rec.CONTRACT_ID := p_contract_id;
2610: l_email_attr_rec.ITEM_KEY := l_item_key;
2632: 'OKS_WF_K_PROCESS_PVT.set_email_attributes(x_return_status= '||
2633: x_return_status||' x_msg_count ='||x_msg_count||')');
2634: END IF;
2635: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2636: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2637: ELSIF x_return_status = G_RET_STS_ERROR THEN
2638: RAISE FND_API.G_EXC_ERROR;
2639: END IF;
2640: END IF;
2634: END IF;
2635: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2636: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2637: ELSIF x_return_status = G_RET_STS_ERROR THEN
2638: RAISE FND_API.G_EXC_ERROR;
2639: END IF;
2640: END IF;
2641:
2642: /*Added for ER 13869562 spingali*/
2709: 'OKS_WF_K_PROCESS_PVT.set_notification_attributes(x_return_status= '||
2710: x_return_status||' x_msg_count ='||x_msg_count||')');
2711: END IF;
2712: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2713: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2714: ELSIF x_return_status = G_RET_STS_ERROR THEN
2715: RAISE FND_API.G_EXC_ERROR;
2716: END IF;
2717:
2711: END IF;
2712: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2713: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2714: ELSIF x_return_status = G_RET_STS_ERROR THEN
2715: RAISE FND_API.G_EXC_ERROR;
2716: END IF;
2717:
2718: -- valid activity , complete the wf activity
2719: complete_activity
2731: );
2732:
2733: -- If any errors happen abort API
2734: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2735: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2736: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
2737: RAISE FND_API.G_EXC_ERROR;
2738: END IF;
2739: ELSE
2733: -- If any errors happen abort API
2734: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2735: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2736: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
2737: RAISE FND_API.G_EXC_ERROR;
2738: END IF;
2739: ELSE
2740: -- invalid activity
2741: fnd_message.set_name(G_APP_NAME,'OKS_INVALID_CUST_ACPT_ACTION');
2740: -- invalid activity
2741: fnd_message.set_name(G_APP_NAME,'OKS_INVALID_CUST_ACPT_ACTION');
2742: fnd_message.set_token('K_NUMBER',get_concat_k_number(p_contract_id));
2743: fnd_msg_pub.add;
2744: RAISE FND_API.G_EXC_ERROR;
2745: END IF;
2746:
2747: IF FND_API.to_boolean( p_commit ) THEN
2748: COMMIT;
2743: fnd_msg_pub.add;
2744: RAISE FND_API.G_EXC_ERROR;
2745: END IF;
2746:
2747: IF FND_API.to_boolean( p_commit ) THEN
2748: COMMIT;
2749: END IF;
2750:
2751: -- Standard call to get message count and if count is 1, get message info.
2756: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
2757: 'Leaving '||G_PKG_NAME ||'.'||l_api_name);
2758: END IF;
2759: EXCEPTION
2760: WHEN FND_API.G_EXC_ERROR THEN
2761: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
2762: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
2763: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2764: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
2765: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from G_EXC_ERROR');
2766: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,get_fnd_message);
2767: END IF;
2768: x_return_status := G_RET_STS_ERROR;
2769: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2770: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
2771: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
2772: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2773: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
2860: END IF;
2861:
2862: DBMS_TRANSACTION.SAVEPOINT(l_api_name);
2863: -- Standard call to check for call compatibility.
2864: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
2865: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2866: END IF;
2867:
2868: -- Initialize message list if p_init_msg_list is set to TRUE.
2861:
2862: DBMS_TRANSACTION.SAVEPOINT(l_api_name);
2863: -- Standard call to check for call compatibility.
2864: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
2865: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2866: END IF;
2867:
2868: -- Initialize message list if p_init_msg_list is set to TRUE.
2869: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2865: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2866: END IF;
2867:
2868: -- Initialize message list if p_init_msg_list is set to TRUE.
2869: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2870: FND_MSG_PUB.initialize;
2871: END IF;
2872:
2873: -- Initialize API return status to success
2870: FND_MSG_PUB.initialize;
2871: END IF;
2872:
2873: -- Initialize API return status to success
2874: x_return_status := FND_API.G_RET_STS_SUCCESS;
2875:
2876: IF p_item_key IS NULL THEN
2877: l_item_key := get_wf_item_key(p_contract_id);
2878: IF l_item_key IS NULL THEN
2877: l_item_key := get_wf_item_key(p_contract_id);
2878: IF l_item_key IS NULL THEN
2879: FND_MESSAGE.set_name(G_APP_NAME,'OKS_INVALID_WF_ITEM_KEY');
2880: FND_MSG_PUB.add;
2881: RAISE FND_API.G_EXC_ERROR;
2882: END IF;
2883: ELSE
2884: l_item_key := p_item_key;
2885: END IF; -- p_item_key IS NULL
2913: 'OKS_WF_K_PROCESS_PVT.is_template_defined(x_return_status= '||
2914: x_return_status||' x_msg_count ='||x_msg_count||')');
2915: END IF;
2916: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2917: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2918: ELSIF x_return_status = G_RET_STS_ERROR THEN
2919: RAISE FND_API.G_EXC_ERROR;
2920: END IF;
2921:
2915: END IF;
2916: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2917: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2918: ELSIF x_return_status = G_RET_STS_ERROR THEN
2919: RAISE FND_API.G_EXC_ERROR;
2920: END IF;
2921:
2922: wf_engine.SetItemAttrText
2923: (
2954: 'OKS_AUTO_REMINDER.log_interaction(x_return_status= '||
2955: x_return_status||' x_msg_count ='||x_msg_count||')');
2956: END IF;
2957: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2958: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2959: ELSIF x_return_status = G_RET_STS_ERROR THEN
2960: RAISE FND_API.G_EXC_ERROR;
2961: END IF;
2962: IF NVL(l_send_email_yn,'N') = 'Y' THEN
2956: END IF;
2957: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2958: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2959: ELSIF x_return_status = G_RET_STS_ERROR THEN
2960: RAISE FND_API.G_EXC_ERROR;
2961: END IF;
2962: IF NVL(l_send_email_yn,'N') = 'Y' THEN
2963:
2964: l_email_attr_rec.CONTRACT_ID := p_contract_id;
2987: 'OKS_WF_K_PROCESS_PVT.set_email_attributes(x_return_status= '||
2988: x_return_status||' x_msg_count ='||x_msg_count||')');
2989: END IF;
2990: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2991: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2992: ELSIF x_return_status = G_RET_STS_ERROR THEN
2993: RAISE FND_API.G_EXC_ERROR;
2994: END IF;
2995: END IF;
2989: END IF;
2990: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2991: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2992: ELSIF x_return_status = G_RET_STS_ERROR THEN
2993: RAISE FND_API.G_EXC_ERROR;
2994: END IF;
2995: END IF;
2996:
2997: /*Added for ER 13869562 spingali*/
3062: 'OKS_WF_K_PROCESS_PVT.set_notification_attributes(x_return_status= '||
3063: x_return_status||' x_msg_count ='||x_msg_count||')');
3064: END IF;
3065: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
3066: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3067: ELSIF x_return_status = G_RET_STS_ERROR THEN
3068: RAISE FND_API.G_EXC_ERROR;
3069: END IF;
3070:
3064: END IF;
3065: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
3066: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3067: ELSIF x_return_status = G_RET_STS_ERROR THEN
3068: RAISE FND_API.G_EXC_ERROR;
3069: END IF;
3070:
3071: OPEN c_old_sts(p_contract_id);
3072: FETCH c_old_sts INTO l_old_sts;
3103: 'OKS_CHANGE_STATUS_PVT.UPDATE_HEADER_STATUS(x_return_status= '||x_return_status||
3104: ' x_msg_count ='||x_msg_count||')');
3105: END IF;
3106: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
3107: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3108: ELSIF x_return_status = G_RET_STS_ERROR THEN
3109: RAISE FND_API.G_EXC_ERROR;
3110: END IF;
3111: ELSE
3105: END IF;
3106: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
3107: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3108: ELSIF x_return_status = G_RET_STS_ERROR THEN
3109: RAISE FND_API.G_EXC_ERROR;
3110: END IF;
3111: ELSE
3112: FND_MESSAGE.set_name('OKS','OKS_CANT_CANCEL_K'); -- set the message here
3113: FND_MESSAGE.set_token('K_NUMBER',get_concat_k_number(p_contract_id));
3111: ELSE
3112: FND_MESSAGE.set_name('OKS','OKS_CANT_CANCEL_K'); -- set the message here
3113: FND_MESSAGE.set_token('K_NUMBER',get_concat_k_number(p_contract_id));
3114: fnd_msg_pub.add;
3115: RAISE FND_API.G_EXC_ERROR;
3116: END IF;
3117: ELSE
3118: -- invalid activity
3119: fnd_message.set_name(G_APP_NAME,'OKS_INVALID_CUST_DCLN_ACTION');
3118: -- invalid activity
3119: fnd_message.set_name(G_APP_NAME,'OKS_INVALID_CUST_DCLN_ACTION');
3120: fnd_message.set_token('K_NUMBER',get_concat_k_number(p_contract_id));
3121: fnd_msg_pub.add;
3122: RAISE FND_API.G_EXC_ERROR;
3123: END IF;
3124:
3125: IF FND_API.to_boolean( p_commit ) THEN
3126: COMMIT;
3121: fnd_msg_pub.add;
3122: RAISE FND_API.G_EXC_ERROR;
3123: END IF;
3124:
3125: IF FND_API.to_boolean( p_commit ) THEN
3126: COMMIT;
3127: END IF;
3128:
3129: -- Standard call to get message count and if count is 1, get message info.
3135: 'Leaving '||G_PKG_NAME ||'.'||l_api_name);
3136: END IF;
3137:
3138: EXCEPTION
3139: WHEN FND_API.G_EXC_ERROR THEN
3140: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
3141: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
3142: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3143: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
3144: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from G_EXC_ERROR');
3145: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,get_fnd_message);
3146: END IF;
3147: x_return_status := G_RET_STS_ERROR;
3148: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3149: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
3150: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
3151: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3152: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
3220: END IF;
3221:
3222: DBMS_TRANSACTION.SAVEPOINT(l_api_name);
3223: -- Standard call to check for call compatibility.
3224: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
3225: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3226: END IF;
3227:
3228: -- Initialize message list if p_init_msg_list is set to TRUE.
3221:
3222: DBMS_TRANSACTION.SAVEPOINT(l_api_name);
3223: -- Standard call to check for call compatibility.
3224: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
3225: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3226: END IF;
3227:
3228: -- Initialize message list if p_init_msg_list is set to TRUE.
3229: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3225: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3226: END IF;
3227:
3228: -- Initialize message list if p_init_msg_list is set to TRUE.
3229: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3230: FND_MSG_PUB.initialize;
3231: END IF;
3232:
3233: -- Initialize API return status to success
3230: FND_MSG_PUB.initialize;
3231: END IF;
3232:
3233: -- Initialize API return status to success
3234: x_return_status := FND_API.G_RET_STS_SUCCESS;
3235:
3236: IF p_item_key IS NULL THEN
3237: l_item_key := get_wf_item_key(p_contract_id);
3238: IF l_item_key IS NULL THEN
3237: l_item_key := get_wf_item_key(p_contract_id);
3238: IF l_item_key IS NULL THEN
3239: FND_MESSAGE.set_name(G_APP_NAME,'OKS_INVALID_WF_ITEM_KEY');
3240: FND_MSG_PUB.add;
3241: RAISE FND_API.G_EXC_ERROR;
3242: END IF;
3243: ELSE
3244: l_item_key := p_item_key;
3245: END IF; -- p_item_key IS NULL
3273: l_salesrep_email||' x_salesrep_username= '||l_salesrep_username||
3274: 'x_return_status= '||x_return_status||' x_msg_count ='||x_msg_count||')');
3275: END IF;
3276: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
3277: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3278: ELSIF x_return_status = G_RET_STS_ERROR THEN
3279: RAISE FND_API.G_EXC_ERROR;
3280: END IF;
3281:
3275: END IF;
3276: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
3277: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3278: ELSIF x_return_status = G_RET_STS_ERROR THEN
3279: RAISE FND_API.G_EXC_ERROR;
3280: END IF;
3281:
3282: IF p_cc_email IS NOT NULL THEN
3283: -- Create a adhoc user and role for wf to send the email
3362: FND_MESSAGE.SET_NAME(G_APP_NAME,'OKS_CREATE_ADHOC_USER_FAILED');
3363: FND_MESSAGE.set_token('USER_NAME',l_user_tbl(k));
3364: FND_MESSAGE.set_token('SQL_ERROR',SQLERRM);
3365: FND_MSG_PUB.add;
3366: RAISE FND_API.G_EXC_ERROR;
3367: END;
3368:
3369:
3370: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3408: FND_MESSAGE.SET_NAME(G_APP_NAME,'OKS_CREATE_ADHOC_ROLE_FAILED');
3409: FND_MESSAGE.set_token('ROLE_NAME',l_role_name);
3410: FND_MESSAGE.set_token('SQL_ERROR',SQLERRM);
3411: FND_MSG_PUB.add;
3412: RAISE FND_API.G_EXC_ERROR;
3413: END;
3414:
3415: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3416: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.after',
3450: x_return_status||' x_msg_count ='||x_msg_count||')');
3451: END IF;
3452:
3453: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
3454: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3455: ELSIF x_return_status = G_RET_STS_ERROR THEN
3456: RAISE FND_API.G_EXC_ERROR;
3457: END IF;
3458:
3452:
3453: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
3454: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3455: ELSIF x_return_status = G_RET_STS_ERROR THEN
3456: RAISE FND_API.G_EXC_ERROR;
3457: END IF;
3458:
3459: -- log interaction history
3460: fnd_message.set_name(G_APP_NAME,'OKS_IH_SUBJECT_CUST_ASS');
3496: 'OKS_AUTO_REMINDER.log_interaction(x_return_status= '||x_return_status||
3497: ' x_msg_count ='||x_msg_count||')');
3498: END IF;
3499: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
3500: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3501: ELSIF x_return_status = G_RET_STS_ERROR THEN
3502: RAISE FND_API.G_EXC_ERROR;
3503: END IF;
3504:
3498: END IF;
3499: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
3500: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3501: ELSIF x_return_status = G_RET_STS_ERROR THEN
3502: RAISE FND_API.G_EXC_ERROR;
3503: END IF;
3504:
3505: -- valid activity , complete the wf activity
3506: complete_activity
3505: -- valid activity , complete the wf activity
3506: complete_activity
3507: (
3508: p_api_version => 1,
3509: p_init_msg_list => FND_API.G_FALSE,
3510: p_contract_id => p_contract_id,
3511: p_item_key => l_item_key,
3512: p_resultout => 'REQUEST_ASSISTANCE',
3513: p_process_status => G_NEG_STS_ASSIST_REQD,
3517: x_msg_count => x_msg_count
3518: );
3519: -- If any errors happen abort API
3520: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
3521: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3522: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
3523: RAISE FND_API.G_EXC_ERROR;
3524: END IF;
3525:
3519: -- If any errors happen abort API
3520: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
3521: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3522: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
3523: RAISE FND_API.G_EXC_ERROR;
3524: END IF;
3525:
3526: ELSE
3527: -- invalid activity
3527: -- invalid activity
3528: FND_MESSAGE.set_name(G_APP_NAME,'OKS_INVALID_REQ_ASST_ACTION');
3529: fnd_message.set_token('K_NUMBER',get_concat_k_number(p_contract_id));
3530: FND_MSG_PUB.add;
3531: RAISE FND_API.G_EXC_ERROR;
3532: END IF;
3533:
3534: IF FND_API.to_boolean( p_commit ) THEN
3535: COMMIT;
3530: FND_MSG_PUB.add;
3531: RAISE FND_API.G_EXC_ERROR;
3532: END IF;
3533:
3534: IF FND_API.to_boolean( p_commit ) THEN
3535: COMMIT;
3536: END IF;
3537:
3538: -- Standard call to get message count and if count is 1, get message info.
3544: 'Leaving '||G_PKG_NAME ||'.'||l_api_name);
3545: END IF;
3546:
3547: EXCEPTION
3548: WHEN FND_API.G_EXC_ERROR THEN
3549: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
3550: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
3551: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3552: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
3553: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from G_EXC_ERROR');
3554: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,get_fnd_message);
3555: END IF;
3556: x_return_status := G_RET_STS_ERROR;
3557: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3558: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
3559: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
3560: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3561: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
3622: END IF;
3623:
3624: DBMS_TRANSACTION.SAVEPOINT(l_api_name);
3625: -- Standard call to check for call compatibility.
3626: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
3627: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3628: END IF;
3629:
3630: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3623:
3624: DBMS_TRANSACTION.SAVEPOINT(l_api_name);
3625: -- Standard call to check for call compatibility.
3626: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
3627: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3628: END IF;
3629:
3630: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3631: FND_MSG_PUB.initialize;
3626: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
3627: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3628: END IF;
3629:
3630: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3631: FND_MSG_PUB.initialize;
3632: END IF;
3633:
3634: -- Initialize API return status to success
3631: FND_MSG_PUB.initialize;
3632: END IF;
3633:
3634: -- Initialize API return status to success
3635: x_return_status := FND_API.G_RET_STS_SUCCESS;
3636:
3637: IF p_negotiation_status IS NOT NULL THEN
3638: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3639: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
3660: WHERE chr_id = p_chr_id;
3661: */
3662: END IF;
3663:
3664: IF FND_API.to_boolean( p_commit ) THEN
3665: COMMIT;
3666: END IF;
3667:
3668: -- Standard call to get message count and if count is 1, get message info.
3673: 'Leaving '||G_PKG_NAME ||'.'||l_api_name);
3674: END IF;
3675:
3676: EXCEPTION
3677: WHEN FND_API.G_EXC_ERROR THEN
3678: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
3679: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
3680: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3681: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
3682: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from G_EXC_ERROR');
3683: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,get_fnd_message);
3684: END IF;
3685: x_return_status := G_RET_STS_ERROR;
3686: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3687: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
3688: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
3689: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3690: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
3802: 'OKS_WF_K_PROCESS_PVT.set_notification_attributes(x_return_status= '||
3803: l_return_status||' x_msg_count ='||l_msg_count||')');
3804: END IF;
3805: IF l_return_status <> G_RET_STS_SUCCESS THEN
3806: RAISE FND_API.G_EXC_ERROR;
3807: END IF;
3808:
3809: -- check if a template is defined to send a Activation
3810: -- confirmation message only in activation flow
3833: 'OKS_WF_K_PROCESS_PVT.is_template_defined(x_return_status= '||
3834: l_return_status||' x_msg_count ='||l_msg_count||')');
3835: END IF;
3836: IF l_return_status <> G_RET_STS_SUCCESS THEN
3837: RAISE FND_API.G_EXC_ERROR;
3838: END IF;
3839:
3840: wf_engine.SetItemAttrText
3841: (
3871: RETURN;
3872: END IF; -- (funcmode = 'TIMEOUT')
3873:
3874: EXCEPTION
3875: WHEN FND_API.G_EXC_ERROR THEN
3876: l_msg_data := get_fnd_message;
3877: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3878: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,
3879: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||'.FND_API.G_EXC_ERROR'
3875: WHEN FND_API.G_EXC_ERROR THEN
3876: l_msg_data := get_fnd_message;
3877: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3878: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,
3879: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||'.FND_API.G_EXC_ERROR'
3880: ||' Itemtype: '||NVL(itemtype,'NULL')||' Itemkey: '||NVL(itemkey,'NULL'));
3881: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,l_msg_data);
3882: END IF;
3883: wf_core.CONTEXT
4004: IF p_contract_id IS NULL THEN
4005: FND_MESSAGE.SET_NAME(G_APP_NAME,'OKS_INVD_CONTRACT_ID');
4006: FND_MESSAGE.SET_TOKEN('HDR_ID',p_contract_id);
4007: FND_MSG_PUB.add;
4008: RAISE FND_API.G_EXC_ERROR;
4009: END IF;
4010:
4011: l_notif_attr_rec.CONTRACT_ID := p_contract_id;
4012: l_notif_attr_rec.ITEM_KEY := get_wf_item_key(p_contract_id);
4047: 'OKS_WF_K_PROCESS_PVT.set_notification_attributes(x_return_status= '||
4048: x_return_status||' x_msg_count ='||x_msg_count||')');
4049: END IF;
4050: IF x_return_status <> G_RET_STS_SUCCESS THEN
4051: RAISE FND_API.G_EXC_ERROR;
4052: END IF;
4053: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4054: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
4055: 'Leaving '||G_PKG_NAME ||'.'||l_api_name);
4055: 'Leaving '||G_PKG_NAME ||'.'||l_api_name);
4056: END IF;
4057:
4058: EXCEPTION
4059: WHEN FND_API.G_EXC_ERROR THEN
4060: x_return_status := G_RET_STS_ERROR;
4061: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
4062: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4063: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,
4171: 'OKS_WF_K_PROCESS_PVT.set_email_attributes(x_return_status= '||
4172: l_return_status||' x_msg_count ='||l_msg_count||')');
4173: END IF;
4174: IF l_return_status <> G_RET_STS_SUCCESS THEN
4175: RAISE FND_API.G_EXC_ERROR;
4176: END IF;
4177: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4178: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
4179: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from funcmode=RUN');
4199: RETURN;
4200: END IF; -- (funcmode = 'TIMEOUT')
4201:
4202: EXCEPTION
4203: WHEN FND_API.G_EXC_ERROR THEN
4204: l_msg_data := get_fnd_message;
4205: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4206: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,
4207: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||'.FND_API.G_EXC_ERROR'
4203: WHEN FND_API.G_EXC_ERROR THEN
4204: l_msg_data := get_fnd_message;
4205: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4206: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,
4207: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||'.FND_API.G_EXC_ERROR'
4208: ||' Itemtype: '||NVL(itemtype,'NULL')||' Itemkey: '||NVL(itemkey,'NULL'));
4209: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,l_msg_data);
4210: END IF;
4211: wf_core.CONTEXT
4442: END IF;
4443:
4444: DBMS_TRANSACTION.SAVEPOINT(l_api_name);
4445: -- Initialize message list if p_init_msg_list is set to TRUE.
4446: IF FND_API.to_Boolean( p_init_msg_list ) THEN
4447: FND_MSG_PUB.initialize;
4448: END IF;
4449:
4450: -- Initialize API return status to success
4453: IF p_wf_attributes.contract_id IS NULL THEN
4454: FND_MESSAGE.SET_NAME(G_APP_NAME,'OKS_INVD_CONTRACT_ID');
4455: FND_MESSAGE.SET_TOKEN('HDR_ID','NULL');
4456: FND_MSG_PUB.add;
4457: RAISE FND_API.G_EXC_ERROR;
4458: END IF;
4459:
4460: IF p_wf_attributes.item_key IS NOT NULL THEN
4461: l_item_key := p_wf_attributes.item_key;
4659: IF p_wf_attributes.negotiation_status = G_NEG_STS_PRE_DRAFT THEN
4660: WF_ENGINE.threshold := l_save_threshold;
4661: END IF;
4662:
4663: IF FND_API.to_boolean( p_commit ) THEN
4664: COMMIT;
4665: END IF;
4666:
4667: /*start bug8705707*/
4678: END IF;
4679: FND_MESSAGE.SET_NAME(G_APP_NAME,'OKS_NO_WF_PROCESS');
4680: FND_MESSAGE.SET_TOKEN('CONTRACT_NUMBER',l_contract_number);
4681: FND_MSG_PUB.add;
4682: RAISE FND_API.G_EXC_ERROR;
4683: ELSE
4684: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4685: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
4686: 'Workflow process created successfully for the contract ' ||
4697: 'Leaving '||G_PKG_NAME ||'.'||l_api_name);
4698: END IF;
4699:
4700: EXCEPTION
4701: WHEN FND_API.G_EXC_ERROR THEN
4702: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
4703: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
4704: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4705: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
4770: '(p_contract_id=>'||p_contract_id||'p_item_key=>'||p_item_key||')');
4771: END IF;
4772:
4773: DBMS_TRANSACTION.SAVEPOINT(l_api_name);
4774: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
4775: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4776: END IF;
4777: -- Initialize message list if p_init_msg_list is set to TRUE.
4778: IF FND_API.to_Boolean( p_init_msg_list ) THEN
4771: END IF;
4772:
4773: DBMS_TRANSACTION.SAVEPOINT(l_api_name);
4774: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
4775: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4776: END IF;
4777: -- Initialize message list if p_init_msg_list is set to TRUE.
4778: IF FND_API.to_Boolean( p_init_msg_list ) THEN
4779: FND_MSG_PUB.initialize;
4774: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
4775: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4776: END IF;
4777: -- Initialize message list if p_init_msg_list is set to TRUE.
4778: IF FND_API.to_Boolean( p_init_msg_list ) THEN
4779: FND_MSG_PUB.initialize;
4780: END IF;
4781:
4782: -- Initialize API return status to success
4785: IF p_contract_id IS NULL THEN
4786: FND_MESSAGE.SET_NAME(G_APP_NAME,'OKS_INVD_CONTRACT_ID');
4787: FND_MESSAGE.SET_TOKEN('HDR_ID',p_contract_id);
4788: FND_MSG_PUB.add;
4789: RAISE FND_API.G_EXC_ERROR;
4790: END IF;
4791:
4792: IF p_item_key IS NULL THEN
4793: l_item_key := get_wf_item_key(p_contract_id => p_contract_id);
4793: l_item_key := get_wf_item_key(p_contract_id => p_contract_id);
4794: IF l_item_key IS NULL THEN
4795: FND_MESSAGE.set_name(G_APP_NAME,'OKS_INVALID_WF_ITEM_KEY');
4796: FND_MSG_PUB.add;
4797: RAISE FND_API.G_EXC_ERROR;
4798: END IF;
4799: ELSE
4800: l_item_key := p_item_key;
4801: END IF;
4828: 'OKS_WF_K_PROCESS_PVT.complete_activity(x_return_status= '||x_return_status||
4829: ' x_msg_count ='||x_msg_count||')');
4830: END IF;
4831: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
4832: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4833: ELSIF x_return_status = G_RET_STS_ERROR THEN
4834: RAISE FND_API.G_EXC_ERROR;
4835: END IF;
4836: ELSE
4830: END IF;
4831: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
4832: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4833: ELSIF x_return_status = G_RET_STS_ERROR THEN
4834: RAISE FND_API.G_EXC_ERROR;
4835: END IF;
4836: ELSE
4837: FND_MESSAGE.set_name(G_APP_NAME,'OKS_INVALID_RE_PUBLISH_ACTION');
4838: FND_MESSAGE.set_token('K_NUMBER',get_concat_k_number(p_contract_id));
4836: ELSE
4837: FND_MESSAGE.set_name(G_APP_NAME,'OKS_INVALID_RE_PUBLISH_ACTION');
4838: FND_MESSAGE.set_token('K_NUMBER',get_concat_k_number(p_contract_id));
4839: FND_MSG_PUB.add;
4840: RAISE FND_API.G_EXC_ERROR;
4841: END IF;
4842:
4843: IF FND_API.to_boolean( p_commit ) THEN
4844: COMMIT;
4839: FND_MSG_PUB.add;
4840: RAISE FND_API.G_EXC_ERROR;
4841: END IF;
4842:
4843: IF FND_API.to_boolean( p_commit ) THEN
4844: COMMIT;
4845: END IF;
4846:
4847: -- Standard call to get message count and if count is 1, get message info.
4852: 'Leaving '||G_PKG_NAME ||'.'||l_api_name);
4853: END IF;
4854:
4855: EXCEPTION
4856: WHEN FND_API.G_EXC_ERROR THEN
4857: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
4858: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
4859: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4860: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
4861: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from G_EXC_ERROR');
4862: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,get_fnd_message);
4863: END IF;
4864: x_return_status := G_RET_STS_ERROR;
4865: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4866: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
4867: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
4868: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4869: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
4932: '(p_contract_id=>'||p_contract_id||'p_item_key=>'||p_item_key||')');
4933: END IF;
4934:
4935: DBMS_TRANSACTION.SAVEPOINT(l_api_name);
4936: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
4937: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4938: END IF;
4939: -- Initialize message list if p_init_msg_list is set to TRUE.
4940: IF FND_API.to_Boolean( p_init_msg_list ) THEN
4933: END IF;
4934:
4935: DBMS_TRANSACTION.SAVEPOINT(l_api_name);
4936: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
4937: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4938: END IF;
4939: -- Initialize message list if p_init_msg_list is set to TRUE.
4940: IF FND_API.to_Boolean( p_init_msg_list ) THEN
4941: FND_MSG_PUB.initialize;
4936: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
4937: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4938: END IF;
4939: -- Initialize message list if p_init_msg_list is set to TRUE.
4940: IF FND_API.to_Boolean( p_init_msg_list ) THEN
4941: FND_MSG_PUB.initialize;
4942: END IF;
4943:
4944: -- Initialize API return status to success
4947: IF p_contract_id IS NULL THEN
4948: FND_MESSAGE.SET_NAME(G_APP_NAME,'OKS_INVD_CONTRACT_ID');
4949: FND_MESSAGE.SET_TOKEN('HDR_ID',p_contract_id);
4950: FND_MSG_PUB.add;
4951: RAISE FND_API.G_EXC_ERROR;
4952: END IF;
4953:
4954: IF p_item_key IS NULL THEN
4955: l_item_key := get_wf_item_key(p_contract_id => p_contract_id);
4955: l_item_key := get_wf_item_key(p_contract_id => p_contract_id);
4956: IF l_item_key IS NULL THEN
4957: FND_MESSAGE.set_name(G_APP_NAME,'OKS_INVALID_WF_ITEM_KEY');
4958: FND_MSG_PUB.add;
4959: RAISE FND_API.G_EXC_ERROR;
4960: END IF;
4961: ELSE
4962: l_item_key := p_item_key;
4963: END IF;
4995: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
4996: 'Purging workflow... ');
4997: END IF;
4998:
4999: IF FND_API.to_boolean( p_commit ) THEN
5000: COMMIT;
5001: END IF;
5002:
5003: END IF; -- Added for Bug#14150408
5010: 'Leaving '||G_PKG_NAME ||'.'||l_api_name);
5011: END IF;
5012:
5013: EXCEPTION
5014: WHEN FND_API.G_EXC_ERROR THEN
5015: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
5016: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
5017: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5018: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
5019: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from G_EXC_ERROR');
5020: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,get_fnd_message);
5021: END IF;
5022: x_return_status := G_RET_STS_ERROR;
5023: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5024: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
5025: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
5026: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5027: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
5339: 'OKS_WF_K_PROCESS_PVT.set_notification_attributes(x_return_status= '||
5340: l_return_status||' x_msg_count ='||l_msg_count||')');
5341: END IF;
5342: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
5343: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5344: ELSIF l_return_status = G_RET_STS_ERROR THEN
5345: RAISE FND_API.G_EXC_ERROR;
5346: END IF;
5347: resultout := 'COMPLETE:RENEWAL';
5341: END IF;
5342: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
5343: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5344: ELSIF l_return_status = G_RET_STS_ERROR THEN
5345: RAISE FND_API.G_EXC_ERROR;
5346: END IF;
5347: resultout := 'COMPLETE:RENEWAL';
5348: END IF;
5349: END IF;
5489: x_msg_count => l_msg_count,
5490: x_msg_data => l_msg_data
5491: );
5492: IF l_return_status <> G_RET_STS_SUCCESS THEN
5493: RAISE FND_API.G_EXC_ERROR;
5494: END IF;
5495: resultout := 'COMPLETE:ONLINE';
5496: ELSIF l_process_type = G_RENEW_TYPE_EVERGREEN THEN
5497: resultout := 'COMPLETE:EVERGREEN';
5530: RETURN;
5531: END IF; -- (funcmode = 'TIMEOUT')
5532:
5533: EXCEPTION
5534: WHEN FND_API.G_EXC_ERROR THEN
5535: l_msg_data := get_fnd_message;
5536: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5537: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,
5538: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||'Error: Itemtype: '
5667: RETURN;
5668: END IF; -- (funcmode = 'TIMEOUT')
5669:
5670: EXCEPTION
5671: WHEN FND_API.G_EXC_ERROR THEN
5672: l_msg_data := get_fnd_message;
5673: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5674: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,
5675: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||'Error: Itemtype: '
5845: 'Entered '||G_PKG_NAME ||'.'||l_api_name||'with Contract Id '||p_contract_id);
5846: END IF;
5847:
5848: -- Standard call to check for call compatibility.
5849: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
5850: x_return_status := G_RET_STS_ERROR;
5851: RAISE FND_API.G_EXC_ERROR;
5852: END IF;
5853:
5847:
5848: -- Standard call to check for call compatibility.
5849: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
5850: x_return_status := G_RET_STS_ERROR;
5851: RAISE FND_API.G_EXC_ERROR;
5852: END IF;
5853:
5854: -- Initialize message list if p_init_msg_list is set to TRUE.
5855: IF FND_API.to_Boolean( p_init_msg_list ) THEN
5851: RAISE FND_API.G_EXC_ERROR;
5852: END IF;
5853:
5854: -- Initialize message list if p_init_msg_list is set to TRUE.
5855: IF FND_API.to_Boolean( p_init_msg_list ) THEN
5856: FND_MSG_PUB.initialize;
5857: END IF;
5858:
5859: -- Initialize API return status to success
5856: FND_MSG_PUB.initialize;
5857: END IF;
5858:
5859: -- Initialize API return status to success
5860: x_return_status := FND_API.G_RET_STS_SUCCESS;
5861:
5862: IF p_contract_id IS NULL THEN
5863: FND_MESSAGE.SET_NAME(G_APP_NAME,'OKS_INVD_CONTRACT_ID');
5864: FND_MESSAGE.SET_TOKEN('HDR_ID',p_contract_id);
5862: IF p_contract_id IS NULL THEN
5863: FND_MESSAGE.SET_NAME(G_APP_NAME,'OKS_INVD_CONTRACT_ID');
5864: FND_MESSAGE.SET_TOKEN('HDR_ID',p_contract_id);
5865: FND_MSG_PUB.add;
5866: RAISE FND_API.G_EXC_ERROR;
5867: END IF;
5868:
5869: IF p_item_key IS NULL THEN
5870: l_item_key := get_wf_item_key(p_contract_id => p_contract_id);
5870: l_item_key := get_wf_item_key(p_contract_id => p_contract_id);
5871: IF l_item_key IS NULL THEN
5872: FND_MESSAGE.set_name(G_APP_NAME,'OKS_INVALID_WF_ITEM_KEY');
5873: FND_MSG_PUB.add;
5874: RAISE FND_API.G_EXC_ERROR;
5875: END IF;
5876: ELSE
5877: l_item_key := p_item_key;
5878: END IF;
5899: ELSE
5900: FND_MESSAGE.set_name(G_APP_NAME,'OKS_SUBMIT_APRVL_NOT_ALWD');
5901: FND_MESSAGE.SET_TOKEN('K_NUMBER',get_concat_k_number(p_contract_id));
5902: FND_MSG_PUB.add;
5903: RAISE FND_API.G_EXC_ERROR;
5904: END IF;
5905: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5906: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
5907: 'Activity: '||x_activity_name||' Return status '||x_return_status);
5915: 'Leaving '||G_PKG_NAME ||'.'||l_api_name);
5916: END IF;
5917:
5918: EXCEPTION
5919: WHEN FND_API.G_EXC_ERROR THEN
5920: x_return_status := G_RET_STS_ERROR;
5921: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
5922: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5923: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,
6037: aname => 'SECURITY_GROUP_ID',
6038: avalue => p_security_group_id);
6039: end;
6040:
6041: IF FND_API.to_boolean( p_commit ) THEN
6042: COMMIT;
6043: END IF;
6044: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
6045: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
6108: ' p_validate_yn '||p_validate_yn||' p_qa_required_yn '||p_qa_required_yn);
6109: END IF;
6110:
6111: DBMS_TRANSACTION.SAVEPOINT(l_api_name);
6112: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
6113: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6114: END IF;
6115:
6116: -- Initialize message list if p_init_msg_list is set to TRUE.
6109: END IF;
6110:
6111: DBMS_TRANSACTION.SAVEPOINT(l_api_name);
6112: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
6113: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6114: END IF;
6115:
6116: -- Initialize message list if p_init_msg_list is set to TRUE.
6117: IF FND_API.to_Boolean( p_init_msg_list ) THEN
6113: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6114: END IF;
6115:
6116: -- Initialize message list if p_init_msg_list is set to TRUE.
6117: IF FND_API.to_Boolean( p_init_msg_list ) THEN
6118: FND_MSG_PUB.initialize;
6119: END IF;
6120:
6121: -- Initialize API return status to success
6124: IF p_contract_id IS NULL THEN
6125: FND_MESSAGE.SET_NAME(G_APP_NAME,'OKS_INVD_CONTRACT_ID');
6126: FND_MESSAGE.SET_TOKEN('HDR_ID',p_contract_id);
6127: FND_MSG_PUB.add;
6128: RAISE FND_API.G_EXC_ERROR;
6129: END IF;
6130:
6131: -- Check whether submit for approval actions is applicable for this contract
6132: -- If k is not in 'Entered' status, we should not allow submit for approval
6139: l_item_key := get_wf_item_key(p_contract_id => p_contract_id);
6140: IF l_item_key IS NULL THEN
6141: FND_MESSAGE.set_name(G_APP_NAME,'OKS_INVALID_WF_ITEM_KEY');
6142: FND_MSG_PUB.add;
6143: RAISE FND_API.G_EXC_ERROR;
6144: END IF;
6145: ELSE
6146: l_item_key := p_item_key;
6147: END IF;
6160: x_msg_count => x_msg_count,
6161: x_msg_data => x_msg_data
6162: );
6163: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
6164: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6165: ELSIF x_return_status = G_RET_STS_ERROR THEN
6166: RAISE FND_API.G_EXC_ERROR;
6167: ELSIF x_return_status = G_RET_STS_WARNING THEN
6168: Raise ActionNotAllowedException;
6162: );
6163: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
6164: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6165: ELSIF x_return_status = G_RET_STS_ERROR THEN
6166: RAISE FND_API.G_EXC_ERROR;
6167: ELSIF x_return_status = G_RET_STS_WARNING THEN
6168: Raise ActionNotAllowedException;
6169: END IF;
6170: ELSE
6176: );
6177: IF l_activity_name NOT IN (G_SALESREP_ACTION, G_CUST_ACTION) THEN
6178: FND_MESSAGE.set_name(G_APP_NAME,'OKS_SUBMIT_APPROVAL_NOT_ALLOWED');
6179: FND_MSG_PUB.add;
6180: RAISE FND_API.G_EXC_ERROR;
6181: ELSIF l_activity_name = G_CUST_ACTION THEN
6182:
6183: -- bug 5845505, send email only if template for the document type is setup
6184: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
6204: 'OKS_WF_K_PROCESS_PVT.is_template_defined(x_return_status= '||
6205: x_return_status||' x_msg_count ='||x_msg_count||')');
6206: END IF;
6207: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
6208: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6209: ELSIF x_return_status = G_RET_STS_ERROR THEN
6210: RAISE FND_API.G_EXC_ERROR;
6211: END IF;
6212:
6206: END IF;
6207: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
6208: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6209: ELSIF x_return_status = G_RET_STS_ERROR THEN
6210: RAISE FND_API.G_EXC_ERROR;
6211: END IF;
6212:
6213: wf_engine.SetItemAttrText
6214: (
6243: 'OKS_AUTO_REMINDER.log_interaction(x_return_status= '||
6244: x_return_status||' x_msg_count ='||x_msg_count||')');
6245: END IF;
6246: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
6247: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6248: ELSIF x_return_status = G_RET_STS_ERROR THEN
6249: RAISE FND_API.G_EXC_ERROR;
6250: END IF;
6251: IF NVL(l_send_email_yn,'N') = 'Y' THEN
6245: END IF;
6246: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
6247: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6248: ELSIF x_return_status = G_RET_STS_ERROR THEN
6249: RAISE FND_API.G_EXC_ERROR;
6250: END IF;
6251: IF NVL(l_send_email_yn,'N') = 'Y' THEN
6252:
6253: l_email_attr_rec.CONTRACT_ID := p_contract_id;
6276: 'OKS_WF_K_PROCESS_PVT.set_email_attributes(x_return_status= '||
6277: x_return_status||' x_msg_count ='||x_msg_count||')');
6278: END IF;
6279: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
6280: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6281: ELSIF x_return_status = G_RET_STS_ERROR THEN
6282: RAISE FND_API.G_EXC_ERROR;
6283: END IF;
6284: END IF;
6278: END IF;
6279: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
6280: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6281: ELSIF x_return_status = G_RET_STS_ERROR THEN
6282: RAISE FND_API.G_EXC_ERROR;
6283: END IF;
6284: END IF;
6285: END IF;
6286: END IF;
6312: x_negotiation_status := G_NEG_STS_PEND_IA;
6313: ELSIF l_irr_flag = G_IRR_FLAG_NOT_REQD THEN
6314: x_negotiation_status := G_NEG_STS_PEND_ACTIVATION;
6315: ELSE
6316: RAISE FND_API.G_EXC_ERROR;
6317: END IF;
6318:
6319: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
6320: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
6337: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
6338: ' Return status '||x_return_status||' x_msg_count '||x_msg_count);
6339: END IF;
6340: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
6341: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6342: ELSIF x_return_status = G_RET_STS_ERROR THEN
6343: RAISE FND_API.G_EXC_ERROR;
6344: END IF;
6345:
6339: END IF;
6340: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
6341: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6342: ELSIF x_return_status = G_RET_STS_ERROR THEN
6343: RAISE FND_API.G_EXC_ERROR;
6344: END IF;
6345:
6346: IF FND_API.to_boolean( p_commit ) THEN
6347: COMMIT;
6342: ELSIF x_return_status = G_RET_STS_ERROR THEN
6343: RAISE FND_API.G_EXC_ERROR;
6344: END IF;
6345:
6346: IF FND_API.to_boolean( p_commit ) THEN
6347: COMMIT;
6348: END IF;
6349: -- Standard call to get message count and if count is 1, get message info.
6350: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count=>x_msg_count, p_data=>x_msg_data);
6362: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,
6363: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||'.ActionNotAllowedException '||
6364: ' Contract is either waiting for customer acceptance or not in entered status');
6365: END IF;
6366: WHEN FND_API.G_EXC_ERROR THEN
6367: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
6368: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
6369: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6370: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
6371: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from G_EXC_ERROR');
6372: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,get_fnd_message);
6373: END IF;
6374: x_return_status := G_RET_STS_ERROR;
6375: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6376: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
6377: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
6378: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6379: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
6447: '(p_contract_id=>'||p_contract_id||'p_item_key=>'||p_item_key||')');
6448: END IF;
6449:
6450: DBMS_TRANSACTION.SAVEPOINT(l_api_name);
6451: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
6452: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6453: END IF;
6454: -- Initialize message list if p_init_msg_list is set to TRUE.
6455: IF FND_API.to_Boolean( p_init_msg_list ) THEN
6448: END IF;
6449:
6450: DBMS_TRANSACTION.SAVEPOINT(l_api_name);
6451: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
6452: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6453: END IF;
6454: -- Initialize message list if p_init_msg_list is set to TRUE.
6455: IF FND_API.to_Boolean( p_init_msg_list ) THEN
6456: FND_MSG_PUB.initialize;
6451: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
6452: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6453: END IF;
6454: -- Initialize message list if p_init_msg_list is set to TRUE.
6455: IF FND_API.to_Boolean( p_init_msg_list ) THEN
6456: FND_MSG_PUB.initialize;
6457: END IF;
6458:
6459: -- Initialize API return status to success
6462: IF p_contract_id IS NULL THEN
6463: FND_MESSAGE.SET_NAME(G_APP_NAME,'OKS_INVD_CONTRACT_ID');
6464: FND_MESSAGE.SET_TOKEN('HDR_ID',p_contract_id);
6465: FND_MSG_PUB.add;
6466: RAISE FND_API.G_EXC_ERROR;
6467: END IF;
6468:
6469: OPEN l_nego_sts_csr (p_contract_id);
6470: FETCH l_nego_sts_csr INTO l_negotiation_status;
6492: l_item_key := get_wf_item_key(p_contract_id => p_contract_id);
6493: IF l_item_key IS NULL THEN
6494: FND_MESSAGE.set_name(G_APP_NAME,'OKS_INVALID_WF_ITEM_KEY');
6495: FND_MSG_PUB.add;
6496: RAISE FND_API.G_EXC_ERROR;
6497: END IF;
6498: ELSE
6499: l_item_key := p_item_key;
6500: END IF;
6521: x_msg_data => x_msg_data,
6522: x_msg_count => x_msg_count
6523: );
6524: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
6525: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6526: ELSIF x_return_status = G_RET_STS_ERROR THEN
6527: RAISE FND_API.G_EXC_ERROR;
6528: END IF;
6529:
6523: );
6524: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
6525: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6526: ELSIF x_return_status = G_RET_STS_ERROR THEN
6527: RAISE FND_API.G_EXC_ERROR;
6528: END IF;
6529:
6530: -- Set this item attribute to 'Y' which indicates that this contract was
6531: -- published online manually. This is an important attribute since this is the only
6538: avalue => 'Y'
6539: );
6540: END IF;
6541:
6542: IF FND_API.to_boolean( p_commit ) THEN
6543: COMMIT;
6544: END IF;
6545:
6546: -- Standard call to get message count and if count is 1, get message info.
6568: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
6569: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from AlreadyPublishedException');
6570: END IF;
6571: x_return_status := G_RET_STS_ALREADY_PUBLISHED;
6572: WHEN FND_API.G_EXC_ERROR THEN
6573: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
6574: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
6575: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6576: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
6577: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from G_EXC_ERROR');
6578: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,get_fnd_message);
6579: END IF;
6580: x_return_status := G_RET_STS_ERROR;
6581: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6582: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
6583: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
6584: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6585: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
6701: FND_MSG_PUB.add;
6702: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
6703: FND_LOG.STRING(FND_LOG.LEVEL_ERROR ,G_MODULE||l_api_name,'Invalid QA checklist ');
6704: END IF;
6705: RAISE FND_API.G_EXC_ERROR;
6706: END IF;
6707: CLOSE l_qa_csr;
6708:
6709: -- Initializing the context to global
6736: 'OKC_QA_CHECK_PUB.execute_qa_check_list(x_return_status= '||l_return_status||
6737: ' x_msg_tbl.count ='||l_msg_tbl.count||')');
6738: END IF;
6739: IF l_return_status <> G_RET_STS_SUCCESS THEN
6740: RAISE FND_API.G_EXC_ERROR;
6741: END IF;
6742:
6743: -- Check if any of the QA checks have failed. If so populate error message
6744: -- into workflow item attributes and mark the negotiation status coz we want to
6790: IF l_qto_email IS NULL THEN
6791: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
6792: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name,'Quote To email not found');
6793: END IF;
6794: RAISE FND_API.G_EXC_ERROR;
6795: END IF;
6796: EXCEPTION
6797: WHEN FND_API.G_EXC_ERROR THEN
6798: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => l_msg_count, p_data => l_msg_data );
6793: END IF;
6794: RAISE FND_API.G_EXC_ERROR;
6795: END IF;
6796: EXCEPTION
6797: WHEN FND_API.G_EXC_ERROR THEN
6798: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => l_msg_count, p_data => l_msg_data );
6799: -- Set the message only when a vacant message item attribute is available
6800: IF (l_msg_ctr < 10) THEN
6801: wf_engine.SetItemAttrText
6850: 'OKS_WF_K_PROCESS_PVT.set_email_attributes(x_return_status= '||l_return_status||
6851: ' x_msg_count ='||l_msg_count||')');
6852: END IF;
6853: IF l_return_status <> G_RET_STS_SUCCESS THEN
6854: RAISE FND_API.G_EXC_ERROR;
6855: END IF;
6856: END IF;
6857: END IF;
6858:
6868: x_msg_count => l_msg_count,
6869: x_msg_data => l_msg_data
6870: );
6871: IF l_return_status <> G_RET_STS_SUCCESS THEN
6872: RAISE FND_API.G_EXC_ERROR;
6873: END IF;
6874:
6875: -- In case of errors, set wf attributes that'll be used by the notification
6876: -- which will be rendered by OAF embedded region.
6903: 'OKS_WF_K_PROCESS_PVT.set_notification_attributes(x_return_status= '||
6904: l_return_status||' x_msg_count ='||l_msg_count||')');
6905: END IF;
6906: IF l_return_status <> G_RET_STS_SUCCESS THEN
6907: RAISE FND_API.G_EXC_ERROR;
6908: END IF;
6909: resultout := 'COMPLETE:F';
6910: ELSE
6911: resultout := 'COMPLETE:T';
6935: END IF;
6936: RETURN;
6937: END IF; -- (funcmode = 'TIMEOUT')
6938: EXCEPTION
6939: WHEN FND_API.G_EXC_ERROR THEN
6940: resultout := 'COMPLETE:F';
6941: l_msg_data := get_fnd_message;
6942: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
6943: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,
7230: x_msg_count => l_msg_count,
7231: x_msg_data => l_msg_data
7232: );
7233: IF l_return_status <> G_RET_STS_SUCCESS THEN
7234: RAISE FND_API.G_EXC_ERROR;
7235: END IF;
7236: -- 3. Doesn't require explicit action from Salesrep
7237: ELSE
7238: resultout := 'COMPLETE:';
7267: RETURN;
7268: END IF; -- (funcmode = 'TIMEOUT')
7269:
7270: EXCEPTION
7271: WHEN FND_API.G_EXC_ERROR THEN
7272: l_msg_data := get_fnd_message;
7273: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7274: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,
7275: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||'Error: Itemtype: '
7358: l_irr_flag := get_irr_flag(p_contract_id => NULL,p_item_key => itemkey);
7359: IF l_irr_flag IS NOT NULL THEN
7360: resultout := 'COMPLETE:'||l_irr_flag;
7361: ELSE
7362: RAISE FND_API.G_EXC_ERROR;
7363: END IF;
7364:
7365: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7366: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
7391: RETURN;
7392: END IF; -- (funcmode = 'TIMEOUT')
7393:
7394: EXCEPTION
7395: WHEN FND_API.G_EXC_ERROR THEN
7396: l_msg_data := get_fnd_message;
7397: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7398: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,
7399: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||'Error: Itemtype: '
7504: l_negotiation_status := G_NEG_STS_PEND_IA;
7505: ELSIF l_irr_flag = G_IRR_FLAG_NOT_REQD THEN
7506: l_negotiation_status := G_NEG_STS_PEND_ACTIVATION;
7507: ELSE
7508: RAISE FND_API.G_EXC_ERROR;
7509: END IF;
7510: END IF;
7511:
7512: update_negotiation_status
7564: arg1 => itemtype,
7565: arg2 => itemkey,
7566: arg3 => l_msg_data
7567: );
7568: WHEN FND_API.G_EXC_ERROR THEN
7569: l_msg_data := get_fnd_message;
7570: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7571: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,
7572: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||'Error: Itemtype: '
7914: x_msg_count => l_msg_count,
7915: x_msg_data => l_msg_data
7916: );
7917: IF l_return_status <> G_RET_STS_SUCCESS THEN
7918: RAISE FND_API.G_EXC_ERROR;
7919: END IF;
7920:
7921: -- In case of errors, set wf attributes that'll be used by the notification
7922: -- and will be rendered by OAF embedded region.
7950: 'OKS_WF_K_PROCESS_PVT.set_notification_attributes(x_return_status= '||
7951: l_return_status||' x_msg_count ='||l_msg_count||')');
7952: END IF;
7953: IF l_return_status <> G_RET_STS_SUCCESS THEN
7954: RAISE FND_API.G_EXC_ERROR;
7955: END IF;
7956: resultout := 'COMPLETE:ERROR';
7957: ELSE
7958: resultout := 'NOTIFIED:';
7982: END IF;
7983: RETURN;
7984: END IF; -- (funcmode = 'TIMEOUT')
7985: EXCEPTION
7986: WHEN FND_API.G_EXC_ERROR THEN
7987: resultout := 'COMPLETE:ERROR';
7988: l_msg_data := get_fnd_message;
7989: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7990: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,
8081: END IF;
8082:
8083: DBMS_TRANSACTION.SAVEPOINT(l_api_name);
8084: -- Standard call to check for call compatibility.
8085: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
8086: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8087: END IF;
8088:
8089: -- Initialize message list if p_init_msg_list is set to TRUE.
8082:
8083: DBMS_TRANSACTION.SAVEPOINT(l_api_name);
8084: -- Standard call to check for call compatibility.
8085: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
8086: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8087: END IF;
8088:
8089: -- Initialize message list if p_init_msg_list is set to TRUE.
8090: IF FND_API.to_Boolean( p_init_msg_list ) THEN
8086: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8087: END IF;
8088:
8089: -- Initialize message list if p_init_msg_list is set to TRUE.
8090: IF FND_API.to_Boolean( p_init_msg_list ) THEN
8091: FND_MSG_PUB.initialize;
8092: END IF;
8093:
8094: -- Initialize API return status to success
8097: IF p_contract_id IS NULL THEN
8098: FND_MESSAGE.SET_NAME(G_APP_NAME,'OKS_INVD_CONTRACT_ID');
8099: FND_MESSAGE.SET_TOKEN('HDR_ID','NULL');
8100: FND_MSG_PUB.add;
8101: RAISE FND_API.G_EXC_ERROR;
8102: END IF;
8103:
8104: IF p_item_key IS NULL THEN
8105: l_item_key := get_wf_item_key(p_contract_id => p_contract_id);
8105: l_item_key := get_wf_item_key(p_contract_id => p_contract_id);
8106: IF l_item_key IS NULL THEN
8107: FND_MESSAGE.set_name(G_APP_NAME,'OKS_INVALID_WF_ITEM_KEY');
8108: FND_MSG_PUB.add;
8109: RAISE FND_API.G_EXC_ERROR;
8110: END IF;
8111: ELSE
8112: l_item_key := p_item_key;
8113: END IF;
8151: 'OKS_WF_K_PROCESS_PVT.set_email_attributes(x_return_status= '||
8152: x_return_status||' x_msg_count ='||x_msg_count||')');
8153: END IF;
8154: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
8155: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8156: ELSIF x_return_status = G_RET_STS_ERROR THEN
8157: RAISE FND_API.G_EXC_ERROR;
8158: END IF;
8159: END IF;
8153: END IF;
8154: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
8155: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8156: ELSIF x_return_status = G_RET_STS_ERROR THEN
8157: RAISE FND_API.G_EXC_ERROR;
8158: END IF;
8159: END IF;
8160:
8161: l_activity_name := get_notified_activity
8165: );
8166: IF l_activity_name NOT IN (G_SALESREP_ACTION, G_CUST_ACTION) THEN
8167: FND_MESSAGE.set_name(G_APP_NAME,'OKS_INV_SALESREP_ACPT_ACTION');
8168: FND_MSG_PUB.add;
8169: RAISE FND_API.G_EXC_ERROR;
8170: END IF;
8171:
8172: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
8173: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
8188: x_msg_data => x_msg_data,
8189: x_msg_count => x_msg_count
8190: );
8191: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
8192: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8193: ELSIF x_return_status = G_RET_STS_ERROR THEN
8194: RAISE FND_API.G_EXC_ERROR;
8195: END IF;
8196:
8190: );
8191: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
8192: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8193: ELSIF x_return_status = G_RET_STS_ERROR THEN
8194: RAISE FND_API.G_EXC_ERROR;
8195: END IF;
8196:
8197: IF FND_API.to_boolean( p_commit ) THEN
8198: COMMIT;
8193: ELSIF x_return_status = G_RET_STS_ERROR THEN
8194: RAISE FND_API.G_EXC_ERROR;
8195: END IF;
8196:
8197: IF FND_API.to_boolean( p_commit ) THEN
8198: COMMIT;
8199: END IF;
8200:
8201: -- Standard call to get message count and if count is 1, get message info.
8206: 'Leaving '||G_PKG_NAME ||'.'||l_api_name);
8207: END IF;
8208:
8209: EXCEPTION
8210: WHEN FND_API.G_EXC_ERROR THEN
8211: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
8212: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
8213: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8214: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
8215: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from G_EXC_ERROR');
8216: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,get_fnd_message);
8217: END IF;
8218: x_return_status := G_RET_STS_ERROR;
8219: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8220: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
8221: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
8222: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8223: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
8314: END IF;
8315:
8316: DBMS_TRANSACTION.SAVEPOINT(l_api_name);
8317: -- Standard call to check for call compatibility.
8318: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
8319: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8320: END IF;
8321:
8322: -- Initialize message list if p_init_msg_list is set to TRUE.
8315:
8316: DBMS_TRANSACTION.SAVEPOINT(l_api_name);
8317: -- Standard call to check for call compatibility.
8318: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
8319: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8320: END IF;
8321:
8322: -- Initialize message list if p_init_msg_list is set to TRUE.
8323: IF FND_API.to_Boolean( p_init_msg_list ) THEN
8319: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8320: END IF;
8321:
8322: -- Initialize message list if p_init_msg_list is set to TRUE.
8323: IF FND_API.to_Boolean( p_init_msg_list ) THEN
8324: FND_MSG_PUB.initialize;
8325: END IF;
8326:
8327: -- Initialize API return status to success
8324: FND_MSG_PUB.initialize;
8325: END IF;
8326:
8327: -- Initialize API return status to success
8328: x_return_status := FND_API.G_RET_STS_SUCCESS;
8329:
8330: IF p_contract_id IS NULL THEN
8331: FND_MESSAGE.SET_NAME(G_APP_NAME,'OKS_INVD_CONTRACT_ID');
8332: FND_MESSAGE.SET_TOKEN('HDR_ID','NULL');
8330: IF p_contract_id IS NULL THEN
8331: FND_MESSAGE.SET_NAME(G_APP_NAME,'OKS_INVD_CONTRACT_ID');
8332: FND_MESSAGE.SET_TOKEN('HDR_ID','NULL');
8333: FND_MSG_PUB.add;
8334: RAISE FND_API.G_EXC_ERROR;
8335: END IF;
8336:
8337: IF p_item_key IS NULL THEN
8338: l_item_key := get_wf_item_key(p_contract_id => p_contract_id);
8338: l_item_key := get_wf_item_key(p_contract_id => p_contract_id);
8339: IF l_item_key IS NULL THEN
8340: FND_MESSAGE.set_name(G_APP_NAME,'OKS_INVALID_WF_ITEM_KEY');
8341: FND_MSG_PUB.add;
8342: RAISE FND_API.G_EXC_ERROR;
8343: END IF;
8344: ELSE
8345: l_item_key := p_item_key;
8346: END IF;
8400: 'OKS_WF_K_PROCESS_PVT.is_template_defined(x_return_status= '||
8401: x_return_status||' x_msg_count ='||x_msg_count||')');
8402: END IF;
8403: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
8404: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8405: ELSIF x_return_status = G_RET_STS_ERROR THEN
8406: RAISE FND_API.G_EXC_ERROR;
8407: END IF;
8408:
8402: END IF;
8403: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
8404: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8405: ELSIF x_return_status = G_RET_STS_ERROR THEN
8406: RAISE FND_API.G_EXC_ERROR;
8407: END IF;
8408:
8409: wf_engine.SetItemAttrText
8410: (
8443: 'OKS_AUTO_REMINDER.log_interaction(x_return_status= '||
8444: x_return_status||' x_msg_count ='||x_msg_count||')');
8445: END IF;
8446: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
8447: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8448: ELSIF x_return_status = G_RET_STS_ERROR THEN
8449: RAISE FND_API.G_EXC_ERROR;
8450: END IF;
8451: IF NVL(l_send_email_yn,'N') = 'Y' THEN
8445: END IF;
8446: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
8447: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8448: ELSIF x_return_status = G_RET_STS_ERROR THEN
8449: RAISE FND_API.G_EXC_ERROR;
8450: END IF;
8451: IF NVL(l_send_email_yn,'N') = 'Y' THEN
8452: -- Log interaction and send cancellation confirmation email to customer
8453: l_email_attr_rec.CONTRACT_ID := p_contract_id;
8476: 'OKS_WF_K_PROCESS_PVT.set_email_attributes(x_return_status= '||
8477: x_return_status||' x_msg_count ='||x_msg_count||')');
8478: END IF;
8479: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
8480: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8481: ELSIF x_return_status = G_RET_STS_ERROR THEN
8482: RAISE FND_API.G_EXC_ERROR;
8483: END IF;
8484: END IF;
8478: END IF;
8479: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
8480: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8481: ELSIF x_return_status = G_RET_STS_ERROR THEN
8482: RAISE FND_API.G_EXC_ERROR;
8483: END IF;
8484: END IF;
8485: END IF;
8486: ELSE
8533: 'OKS_WF_K_PROCESS_PVT.complete_activity(x_return_status= '||
8534: x_return_status||' x_msg_count ='||x_msg_count||')');
8535: END IF;
8536: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
8537: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8538: ELSIF x_return_status = G_RET_STS_ERROR THEN
8539: RAISE FND_API.G_EXC_ERROR;
8540: END IF;
8541: END IF;
8535: END IF;
8536: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
8537: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8538: ELSIF x_return_status = G_RET_STS_ERROR THEN
8539: RAISE FND_API.G_EXC_ERROR;
8540: END IF;
8541: END IF;
8542:
8543: IF FND_API.to_boolean( p_commit ) THEN
8539: RAISE FND_API.G_EXC_ERROR;
8540: END IF;
8541: END IF;
8542:
8543: IF FND_API.to_boolean( p_commit ) THEN
8544: COMMIT;
8545: END IF;
8546:
8547: -- Standard call to get message count and if count is 1, get message info.
8552: 'Leaving '||G_PKG_NAME ||'.'||l_api_name);
8553: END IF;
8554:
8555: EXCEPTION
8556: WHEN FND_API.G_EXC_ERROR THEN
8557: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
8558: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8559: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
8560: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from G_EXC_ERROR');
8560: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from G_EXC_ERROR');
8561: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,get_fnd_message);
8562: END IF;
8563: x_return_status := G_RET_STS_ERROR;
8564: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8565: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
8566: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8567: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
8568: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from G_EXC_UNEXPECTED_ERROR');
8663: x_msg_count => l_msg_count,
8664: x_msg_data => l_msg_data
8665: );
8666: IF l_return_status <> G_RET_STS_SUCCESS THEN
8667: RAISE FND_API.G_EXC_ERROR;
8668: END IF;
8669:
8670: -- In case of errors, set wf attributes that'll be used by the notification
8671: -- and will be rendered by OAF embedded region.
8698: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.after',
8699: 'OKS_WF_K_PROCESS_PVT.set_notification_attributes(x_return_status= '||
8700: l_return_status||' x_msg_count ='||l_msg_count||')');
8701: END IF;
8702: RAISE FND_API.G_EXC_ERROR;
8703: END IF;
8704:
8705: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
8706: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.before',
8728: x_msg_count => l_msg_count,
8729: x_msg_data => l_msg_data
8730: );
8731: IF l_return_status <> G_RET_STS_SUCCESS THEN
8732: RAISE FND_API.G_EXC_ERROR;
8733: END IF;
8734:
8735: -- In case of errors, set wf attributes that'll be used by the notification
8736: -- and will be rendered by OAF embedded region.
8763: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.after',
8764: 'OKS_WF_K_PROCESS_PVT.set_notification_attributes(x_return_status= '||
8765: l_return_status||' x_msg_count ='||l_msg_count||')');
8766: END IF;
8767: RAISE FND_API.G_EXC_ERROR;
8768: END IF;
8769:
8770: resultout := 'COMPLETE:T';
8771: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
8792: END IF;
8793: RETURN;
8794: END IF; -- (funcmode = 'TIMEOUT')
8795: EXCEPTION
8796: WHEN FND_API.G_EXC_ERROR THEN
8797: resultout := 'COMPLETE:F';
8798: l_msg_data := get_fnd_message;
8799: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
8800: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,
8850: SELECT oksk.CHR_ID CHR_ID,
8851: nvl(oksk.RENEWAL_TYPE_USED, G_RENEW_TYPE_MANUAL) RENEWAL_TYPE_USED,
8852: nvl(oksk.APPROVAL_TYPE_USED, G_IRR_FLAG_REQD) APPROVAL_TYPE_USED,
8853: okck.CONTRACT_NUMBER CONTRACT_NUMBER,
8854: nvl(okck.CONTRACT_NUMBER_MODIFIER, FND_API.G_MISS_CHAR) CONTRACT_NUMBER_MODIFIER,
8855: nvl(oksk.RENEWAL_STATUS, G_NEG_STS_DRAFT) RENEWAL_STATUS
8856: FROM OKS_K_HEADERS_B oksk,
8857: OKC_K_HEADERS_ALL_B okck,
8858: OKC_STATUSES_B sts
8907:
8908: FOR i IN l_k_rec_tbl.FIRST..l_k_rec_tbl.LAST LOOP
8909: l_wf_attributes_tbl(i).CONTRACT_ID := l_k_rec_tbl(i).chr_id;
8910: l_wf_attributes_tbl(i).CONTRACT_NUMBER := l_k_rec_tbl(i).contract_number;
8911: IF (l_k_rec_tbl(i).contract_number_modifier = FND_API.G_MISS_CHAR) THEN
8912: l_wf_attributes_tbl(i).CONTRACT_MODIFIER := NULL;
8913: ELSE
8914: l_wf_attributes_tbl(i).CONTRACT_MODIFIER := l_k_rec_tbl(i).contract_number_modifier;
8915: END IF;
8922:
8923: --if any errors happen, this procedure will roll it back for all the records passed in
8924: launch_k_process_wf_blk(
8925: p_api_version => 1.0,
8926: p_init_msg_list => FND_API.G_TRUE,
8927: p_commit => FND_API.G_FALSE,
8928: p_wf_attributes_tbl => l_wf_attributes_tbl,
8929: p_update_item_key => 'Y',
8930: x_return_status => l_return_status,
8923: --if any errors happen, this procedure will roll it back for all the records passed in
8924: launch_k_process_wf_blk(
8925: p_api_version => 1.0,
8926: p_init_msg_list => FND_API.G_TRUE,
8927: p_commit => FND_API.G_FALSE,
8928: p_wf_attributes_tbl => l_wf_attributes_tbl,
8929: p_update_item_key => 'Y',
8930: x_return_status => l_return_status,
8931: x_msg_count => l_msg_count,
8932: x_msg_data => l_msg_data);
8933:
8934: --if unexpected error happens - we abort, for other errors we will
8935: --try the next batch
8936: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
8937: l_errcount := l_errcount + l_k_rec_tbl.COUNT;
8938: FOR j IN 1..l_msg_count LOOP
8939: FND_FILE.PUT_LINE(FND_FILE.LOG, FND_MSG_PUB.get(j, 'F'));
8940: END LOOP;
8937: l_errcount := l_errcount + l_k_rec_tbl.COUNT;
8938: FOR j IN 1..l_msg_count LOOP
8939: FND_FILE.PUT_LINE(FND_FILE.LOG, FND_MSG_PUB.get(j, 'F'));
8940: END LOOP;
8941: RAISE FND_API.g_exc_unexpected_error;
8942: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
8943: --just log the error and continue
8944: l_errcount := l_errcount + l_k_rec_tbl.COUNT;
8945: retcode := 1;
8938: FOR j IN 1..l_msg_count LOOP
8939: FND_FILE.PUT_LINE(FND_FILE.LOG, FND_MSG_PUB.get(j, 'F'));
8940: END LOOP;
8941: RAISE FND_API.g_exc_unexpected_error;
8942: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
8943: --just log the error and continue
8944: l_errcount := l_errcount + l_k_rec_tbl.COUNT;
8945: retcode := 1;
8946: FOR j IN 1..l_msg_count LOOP
9059: END IF;
9060:
9061: --standard api initilization and checks
9062: SAVEPOINT launch_k_process_wf_blk_PVT;
9063: IF NOT FND_API.compatible_api_call (l_api_version, p_api_version, l_api_name, G_PKG_NAME)THEN
9064: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9065: END IF;
9066: IF FND_API.to_boolean(p_init_msg_list ) THEN
9067: FND_MSG_PUB.initialize;
9060:
9061: --standard api initilization and checks
9062: SAVEPOINT launch_k_process_wf_blk_PVT;
9063: IF NOT FND_API.compatible_api_call (l_api_version, p_api_version, l_api_name, G_PKG_NAME)THEN
9064: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9065: END IF;
9066: IF FND_API.to_boolean(p_init_msg_list ) THEN
9067: FND_MSG_PUB.initialize;
9068: END IF;
9062: SAVEPOINT launch_k_process_wf_blk_PVT;
9063: IF NOT FND_API.compatible_api_call (l_api_version, p_api_version, l_api_name, G_PKG_NAME)THEN
9064: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9065: END IF;
9066: IF FND_API.to_boolean(p_init_msg_list ) THEN
9067: FND_MSG_PUB.initialize;
9068: END IF;
9069: x_return_status := FND_API.G_RET_STS_SUCCESS;
9070:
9065: END IF;
9066: IF FND_API.to_boolean(p_init_msg_list ) THEN
9067: FND_MSG_PUB.initialize;
9068: END IF;
9069: x_return_status := FND_API.G_RET_STS_SUCCESS;
9070:
9071: IF (p_wf_attributes_tbl.count = 0 ) THEN
9072: RETURN;
9073: END IF;
9238: END IF;
9239: END IF;
9240:
9241: --standard check of p_commit
9242: IF FND_API.to_boolean( p_commit ) THEN
9243: COMMIT;
9244: END IF;
9245: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
9246: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.end', 'x_return_status='|| x_return_status);
9247: END IF;
9248: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data );
9249:
9250: EXCEPTION
9251: WHEN FND_API.g_exc_error THEN
9252: ROLLBACK TO launch_k_process_wf_blk_PVT;
9253: x_return_status := FND_API.g_ret_sts_error ;
9254:
9255: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
9249:
9250: EXCEPTION
9251: WHEN FND_API.g_exc_error THEN
9252: ROLLBACK TO launch_k_process_wf_blk_PVT;
9253: x_return_status := FND_API.g_ret_sts_error ;
9254:
9255: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
9256: FND_LOG.string(FND_LOG.level_error, l_mod_name || '.end_error', 'x_return_status=' || x_return_status);
9257: END IF;
9256: FND_LOG.string(FND_LOG.level_error, l_mod_name || '.end_error', 'x_return_status=' || x_return_status);
9257: END IF;
9258: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data );
9259:
9260: WHEN FND_API.g_exc_unexpected_error THEN
9261: ROLLBACK TO launch_k_process_wf_blk_PVT;
9262: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
9263:
9264: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
9258: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data );
9259:
9260: WHEN FND_API.g_exc_unexpected_error THEN
9261: ROLLBACK TO launch_k_process_wf_blk_PVT;
9262: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
9263:
9264: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
9265: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_unexpected_error', 'x_return_status=' || x_return_status);
9266: END IF;
9275: IF (l_wf_err_name IS NOT NULL) THEN
9276: --workflow error
9277: WF_CORE.clear;
9278: --set the status to error, so that calling program can handle it
9279: x_return_status := FND_API.g_ret_sts_error ;
9280: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, l_wf_err_name||' '||l_wf_err_msg);
9281:
9282: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
9283: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_workflow_error', 'x_return_status=' || x_return_status);
9285: END IF;
9286:
9287: ELSE
9288: --other error
9289: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
9290:
9291: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
9292: --first log the sqlerrm
9293: l_error_text := substr (SQLERRM, 1, 240);