[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,
2490: END IF;
2491:
2492: DBMS_TRANSACTION.SAVEPOINT(l_api_name);
2493: -- Standard call to check for call compatibility.
2494: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
2495: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2496: END IF;
2497:
2498: -- Initialize message list if p_init_msg_list is set to TRUE.
2491:
2492: DBMS_TRANSACTION.SAVEPOINT(l_api_name);
2493: -- Standard call to check for call compatibility.
2494: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
2495: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2496: END IF;
2497:
2498: -- Initialize message list if p_init_msg_list is set to TRUE.
2499: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2495: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2496: END IF;
2497:
2498: -- Initialize message list if p_init_msg_list is set to TRUE.
2499: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2500: FND_MSG_PUB.initialize;
2501: END IF;
2502:
2503: -- Initialize API return status to success
2500: FND_MSG_PUB.initialize;
2501: END IF;
2502:
2503: -- Initialize API return status to success
2504: x_return_status := FND_API.G_RET_STS_SUCCESS;
2505:
2506: IF p_item_key IS NULL THEN
2507: l_item_key := get_wf_item_key(p_contract_id);
2508: IF l_item_key IS NULL THEN
2507: l_item_key := get_wf_item_key(p_contract_id);
2508: IF l_item_key IS NULL THEN
2509: FND_MESSAGE.set_name(G_APP_NAME,'OKS_INVALID_WF_ITEM_KEY');
2510: FND_MSG_PUB.add;
2511: RAISE FND_API.G_EXC_ERROR;
2512: END IF;
2513: ELSE
2514: l_item_key := p_item_key;
2515: END IF; -- p_item_key IS NULL
2543: 'OKS_WF_K_PROCESS_PVT.is_template_defined(x_return_status= '||
2544: x_return_status||' x_msg_count ='||x_msg_count||')');
2545: END IF;
2546: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2547: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2548: ELSIF x_return_status = G_RET_STS_ERROR THEN
2549: RAISE FND_API.G_EXC_ERROR;
2550: END IF;
2551:
2545: END IF;
2546: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2547: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2548: ELSIF x_return_status = G_RET_STS_ERROR THEN
2549: RAISE FND_API.G_EXC_ERROR;
2550: END IF;
2551:
2552: wf_engine.SetItemAttrText
2553: (
2582: 'OKS_AUTO_REMINDER.log_interaction(x_return_status= '||
2583: x_return_status||' x_msg_count ='||x_msg_count||')');
2584: END IF;
2585: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2586: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2587: ELSIF x_return_status = G_RET_STS_ERROR THEN
2588: RAISE FND_API.G_EXC_ERROR;
2589: END IF;
2590: IF NVL(l_send_email_yn,'N') = 'Y' THEN
2584: END IF;
2585: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2586: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2587: ELSIF x_return_status = G_RET_STS_ERROR THEN
2588: RAISE FND_API.G_EXC_ERROR;
2589: END IF;
2590: IF NVL(l_send_email_yn,'N') = 'Y' THEN
2591: l_email_attr_rec.CONTRACT_ID := p_contract_id;
2592: l_email_attr_rec.ITEM_KEY := l_item_key;
2614: 'OKS_WF_K_PROCESS_PVT.set_email_attributes(x_return_status= '||
2615: x_return_status||' x_msg_count ='||x_msg_count||')');
2616: END IF;
2617: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2618: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2619: ELSIF x_return_status = G_RET_STS_ERROR THEN
2620: RAISE FND_API.G_EXC_ERROR;
2621: END IF;
2622: END IF;
2616: END IF;
2617: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2618: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2619: ELSIF x_return_status = G_RET_STS_ERROR THEN
2620: RAISE FND_API.G_EXC_ERROR;
2621: END IF;
2622: END IF;
2623:
2624: OPEN l_payment_csr(p_contract_id);
2653: 'OKS_WF_K_PROCESS_PVT.set_notification_attributes(x_return_status= '||
2654: x_return_status||' x_msg_count ='||x_msg_count||')');
2655: END IF;
2656: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2657: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2658: ELSIF x_return_status = G_RET_STS_ERROR THEN
2659: RAISE FND_API.G_EXC_ERROR;
2660: END IF;
2661:
2655: END IF;
2656: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2657: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2658: ELSIF x_return_status = G_RET_STS_ERROR THEN
2659: RAISE FND_API.G_EXC_ERROR;
2660: END IF;
2661:
2662: -- valid activity , complete the wf activity
2663: complete_activity
2675: );
2676:
2677: -- If any errors happen abort API
2678: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2679: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2680: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
2681: RAISE FND_API.G_EXC_ERROR;
2682: END IF;
2683: ELSE
2677: -- If any errors happen abort API
2678: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2679: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2680: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
2681: RAISE FND_API.G_EXC_ERROR;
2682: END IF;
2683: ELSE
2684: -- invalid activity
2685: fnd_message.set_name(G_APP_NAME,'OKS_INVALID_CUST_ACPT_ACTION');
2684: -- invalid activity
2685: fnd_message.set_name(G_APP_NAME,'OKS_INVALID_CUST_ACPT_ACTION');
2686: fnd_message.set_token('K_NUMBER',get_concat_k_number(p_contract_id));
2687: fnd_msg_pub.add;
2688: RAISE FND_API.G_EXC_ERROR;
2689: END IF;
2690:
2691: IF FND_API.to_boolean( p_commit ) THEN
2692: COMMIT;
2687: fnd_msg_pub.add;
2688: RAISE FND_API.G_EXC_ERROR;
2689: END IF;
2690:
2691: IF FND_API.to_boolean( p_commit ) THEN
2692: COMMIT;
2693: END IF;
2694:
2695: -- Standard call to get message count and if count is 1, get message info.
2700: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
2701: 'Leaving '||G_PKG_NAME ||'.'||l_api_name);
2702: END IF;
2703: EXCEPTION
2704: WHEN FND_API.G_EXC_ERROR THEN
2705: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
2706: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
2707: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2708: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
2709: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from G_EXC_ERROR');
2710: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,get_fnd_message);
2711: END IF;
2712: x_return_status := G_RET_STS_ERROR;
2713: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2714: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
2715: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
2716: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2717: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
2782: END IF;
2783:
2784: DBMS_TRANSACTION.SAVEPOINT(l_api_name);
2785: -- Standard call to check for call compatibility.
2786: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
2787: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2788: END IF;
2789:
2790: -- Initialize message list if p_init_msg_list is set to TRUE.
2783:
2784: DBMS_TRANSACTION.SAVEPOINT(l_api_name);
2785: -- Standard call to check for call compatibility.
2786: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
2787: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2788: END IF;
2789:
2790: -- Initialize message list if p_init_msg_list is set to TRUE.
2791: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2787: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2788: END IF;
2789:
2790: -- Initialize message list if p_init_msg_list is set to TRUE.
2791: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2792: FND_MSG_PUB.initialize;
2793: END IF;
2794:
2795: -- Initialize API return status to success
2792: FND_MSG_PUB.initialize;
2793: END IF;
2794:
2795: -- Initialize API return status to success
2796: x_return_status := FND_API.G_RET_STS_SUCCESS;
2797:
2798: IF p_item_key IS NULL THEN
2799: l_item_key := get_wf_item_key(p_contract_id);
2800: IF l_item_key IS NULL THEN
2799: l_item_key := get_wf_item_key(p_contract_id);
2800: IF l_item_key IS NULL THEN
2801: FND_MESSAGE.set_name(G_APP_NAME,'OKS_INVALID_WF_ITEM_KEY');
2802: FND_MSG_PUB.add;
2803: RAISE FND_API.G_EXC_ERROR;
2804: END IF;
2805: ELSE
2806: l_item_key := p_item_key;
2807: END IF; -- p_item_key IS NULL
2835: 'OKS_WF_K_PROCESS_PVT.is_template_defined(x_return_status= '||
2836: x_return_status||' x_msg_count ='||x_msg_count||')');
2837: END IF;
2838: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2839: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2840: ELSIF x_return_status = G_RET_STS_ERROR THEN
2841: RAISE FND_API.G_EXC_ERROR;
2842: END IF;
2843:
2837: END IF;
2838: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2839: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2840: ELSIF x_return_status = G_RET_STS_ERROR THEN
2841: RAISE FND_API.G_EXC_ERROR;
2842: END IF;
2843:
2844: wf_engine.SetItemAttrText
2845: (
2876: 'OKS_AUTO_REMINDER.log_interaction(x_return_status= '||
2877: x_return_status||' x_msg_count ='||x_msg_count||')');
2878: END IF;
2879: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2880: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2881: ELSIF x_return_status = G_RET_STS_ERROR THEN
2882: RAISE FND_API.G_EXC_ERROR;
2883: END IF;
2884: IF NVL(l_send_email_yn,'N') = 'Y' THEN
2878: END IF;
2879: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2880: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2881: ELSIF x_return_status = G_RET_STS_ERROR THEN
2882: RAISE FND_API.G_EXC_ERROR;
2883: END IF;
2884: IF NVL(l_send_email_yn,'N') = 'Y' THEN
2885:
2886: l_email_attr_rec.CONTRACT_ID := p_contract_id;
2909: 'OKS_WF_K_PROCESS_PVT.set_email_attributes(x_return_status= '||
2910: x_return_status||' x_msg_count ='||x_msg_count||')');
2911: END IF;
2912: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2913: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2914: ELSIF x_return_status = G_RET_STS_ERROR THEN
2915: RAISE FND_API.G_EXC_ERROR;
2916: END IF;
2917: END IF;
2911: END IF;
2912: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2913: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2914: ELSIF x_return_status = G_RET_STS_ERROR THEN
2915: RAISE FND_API.G_EXC_ERROR;
2916: END IF;
2917: END IF;
2918:
2919: l_notif_attr_rec.CONTRACT_ID := p_contract_id;
2946: 'OKS_WF_K_PROCESS_PVT.set_notification_attributes(x_return_status= '||
2947: x_return_status||' x_msg_count ='||x_msg_count||')');
2948: END IF;
2949: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2950: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2951: ELSIF x_return_status = G_RET_STS_ERROR THEN
2952: RAISE FND_API.G_EXC_ERROR;
2953: END IF;
2954:
2948: END IF;
2949: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
2950: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2951: ELSIF x_return_status = G_RET_STS_ERROR THEN
2952: RAISE FND_API.G_EXC_ERROR;
2953: END IF;
2954:
2955: OPEN c_old_sts(p_contract_id);
2956: FETCH c_old_sts INTO l_old_sts;
2987: 'OKS_CHANGE_STATUS_PVT.UPDATE_HEADER_STATUS(x_return_status= '||x_return_status||
2988: ' 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: ELSE
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: ELSE
2996: FND_MESSAGE.set_name('OKS','OKS_CANT_CANCEL_K'); -- set the message here
2997: FND_MESSAGE.set_token('K_NUMBER',get_concat_k_number(p_contract_id));
2995: ELSE
2996: FND_MESSAGE.set_name('OKS','OKS_CANT_CANCEL_K'); -- set the message here
2997: FND_MESSAGE.set_token('K_NUMBER',get_concat_k_number(p_contract_id));
2998: fnd_msg_pub.add;
2999: RAISE FND_API.G_EXC_ERROR;
3000: END IF;
3001: ELSE
3002: -- invalid activity
3003: fnd_message.set_name(G_APP_NAME,'OKS_INVALID_CUST_DCLN_ACTION');
3002: -- invalid activity
3003: fnd_message.set_name(G_APP_NAME,'OKS_INVALID_CUST_DCLN_ACTION');
3004: fnd_message.set_token('K_NUMBER',get_concat_k_number(p_contract_id));
3005: fnd_msg_pub.add;
3006: RAISE FND_API.G_EXC_ERROR;
3007: END IF;
3008:
3009: IF FND_API.to_boolean( p_commit ) THEN
3010: COMMIT;
3005: fnd_msg_pub.add;
3006: RAISE FND_API.G_EXC_ERROR;
3007: END IF;
3008:
3009: IF FND_API.to_boolean( p_commit ) THEN
3010: COMMIT;
3011: END IF;
3012:
3013: -- Standard call to get message count and if count is 1, get message info.
3019: 'Leaving '||G_PKG_NAME ||'.'||l_api_name);
3020: END IF;
3021:
3022: EXCEPTION
3023: WHEN FND_API.G_EXC_ERROR THEN
3024: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
3025: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
3026: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3027: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
3028: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from G_EXC_ERROR');
3029: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,get_fnd_message);
3030: END IF;
3031: x_return_status := G_RET_STS_ERROR;
3032: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3033: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
3034: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
3035: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3036: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
3104: END IF;
3105:
3106: DBMS_TRANSACTION.SAVEPOINT(l_api_name);
3107: -- Standard call to check for call compatibility.
3108: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
3109: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3110: END IF;
3111:
3112: -- Initialize message list if p_init_msg_list is set to TRUE.
3105:
3106: DBMS_TRANSACTION.SAVEPOINT(l_api_name);
3107: -- Standard call to check for call compatibility.
3108: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
3109: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3110: END IF;
3111:
3112: -- Initialize message list if p_init_msg_list is set to TRUE.
3113: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3109: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3110: END IF;
3111:
3112: -- Initialize message list if p_init_msg_list is set to TRUE.
3113: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3114: FND_MSG_PUB.initialize;
3115: END IF;
3116:
3117: -- Initialize API return status to success
3114: FND_MSG_PUB.initialize;
3115: END IF;
3116:
3117: -- Initialize API return status to success
3118: x_return_status := FND_API.G_RET_STS_SUCCESS;
3119:
3120: IF p_item_key IS NULL THEN
3121: l_item_key := get_wf_item_key(p_contract_id);
3122: IF l_item_key IS NULL THEN
3121: l_item_key := get_wf_item_key(p_contract_id);
3122: IF l_item_key IS NULL THEN
3123: FND_MESSAGE.set_name(G_APP_NAME,'OKS_INVALID_WF_ITEM_KEY');
3124: FND_MSG_PUB.add;
3125: RAISE FND_API.G_EXC_ERROR;
3126: END IF;
3127: ELSE
3128: l_item_key := p_item_key;
3129: END IF; -- p_item_key IS NULL
3157: l_salesrep_email||' x_salesrep_username= '||l_salesrep_username||
3158: 'x_return_status= '||x_return_status||' x_msg_count ='||x_msg_count||')');
3159: END IF;
3160: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
3161: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3162: ELSIF x_return_status = G_RET_STS_ERROR THEN
3163: RAISE FND_API.G_EXC_ERROR;
3164: END IF;
3165:
3159: END IF;
3160: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
3161: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3162: ELSIF x_return_status = G_RET_STS_ERROR THEN
3163: RAISE FND_API.G_EXC_ERROR;
3164: END IF;
3165:
3166: IF p_cc_email IS NOT NULL THEN
3167: -- Create a adhoc user and role for wf to send the email
3246: FND_MESSAGE.SET_NAME(G_APP_NAME,'OKS_CREATE_ADHOC_USER_FAILED');
3247: FND_MESSAGE.set_token('USER_NAME',l_user_tbl(k));
3248: FND_MESSAGE.set_token('SQL_ERROR',SQLERRM);
3249: FND_MSG_PUB.add;
3250: RAISE FND_API.G_EXC_ERROR;
3251: END;
3252:
3253:
3254: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3292: FND_MESSAGE.SET_NAME(G_APP_NAME,'OKS_CREATE_ADHOC_ROLE_FAILED');
3293: FND_MESSAGE.set_token('ROLE_NAME',l_role_name);
3294: FND_MESSAGE.set_token('SQL_ERROR',SQLERRM);
3295: FND_MSG_PUB.add;
3296: RAISE FND_API.G_EXC_ERROR;
3297: END;
3298:
3299: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3300: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.after',
3334: x_return_status||' x_msg_count ='||x_msg_count||')');
3335: END IF;
3336:
3337: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
3338: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3339: ELSIF x_return_status = G_RET_STS_ERROR THEN
3340: RAISE FND_API.G_EXC_ERROR;
3341: END IF;
3342:
3336:
3337: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
3338: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3339: ELSIF x_return_status = G_RET_STS_ERROR THEN
3340: RAISE FND_API.G_EXC_ERROR;
3341: END IF;
3342:
3343: -- log interaction history
3344: fnd_message.set_name(G_APP_NAME,'OKS_IH_SUBJECT_CUST_ASS');
3380: 'OKS_AUTO_REMINDER.log_interaction(x_return_status= '||x_return_status||
3381: ' x_msg_count ='||x_msg_count||')');
3382: END IF;
3383: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
3384: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3385: ELSIF x_return_status = G_RET_STS_ERROR THEN
3386: RAISE FND_API.G_EXC_ERROR;
3387: END IF;
3388:
3382: END IF;
3383: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
3384: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3385: ELSIF x_return_status = G_RET_STS_ERROR THEN
3386: RAISE FND_API.G_EXC_ERROR;
3387: END IF;
3388:
3389: -- valid activity , complete the wf activity
3390: complete_activity
3389: -- valid activity , complete the wf activity
3390: complete_activity
3391: (
3392: p_api_version => 1,
3393: p_init_msg_list => FND_API.G_FALSE,
3394: p_contract_id => p_contract_id,
3395: p_item_key => l_item_key,
3396: p_resultout => 'REQUEST_ASSISTANCE',
3397: p_process_status => G_NEG_STS_ASSIST_REQD,
3401: x_msg_count => x_msg_count
3402: );
3403: -- If any errors happen abort API
3404: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
3405: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3406: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
3407: RAISE FND_API.G_EXC_ERROR;
3408: END IF;
3409:
3403: -- If any errors happen abort API
3404: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
3405: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3406: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
3407: RAISE FND_API.G_EXC_ERROR;
3408: END IF;
3409:
3410: ELSE
3411: -- invalid activity
3411: -- invalid activity
3412: FND_MESSAGE.set_name(G_APP_NAME,'OKS_INVALID_REQ_ASST_ACTION');
3413: fnd_message.set_token('K_NUMBER',get_concat_k_number(p_contract_id));
3414: FND_MSG_PUB.add;
3415: RAISE FND_API.G_EXC_ERROR;
3416: END IF;
3417:
3418: IF FND_API.to_boolean( p_commit ) THEN
3419: COMMIT;
3414: FND_MSG_PUB.add;
3415: RAISE FND_API.G_EXC_ERROR;
3416: END IF;
3417:
3418: IF FND_API.to_boolean( p_commit ) THEN
3419: COMMIT;
3420: END IF;
3421:
3422: -- Standard call to get message count and if count is 1, get message info.
3428: 'Leaving '||G_PKG_NAME ||'.'||l_api_name);
3429: END IF;
3430:
3431: EXCEPTION
3432: WHEN FND_API.G_EXC_ERROR THEN
3433: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
3434: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
3435: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3436: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
3437: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from G_EXC_ERROR');
3438: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,get_fnd_message);
3439: END IF;
3440: x_return_status := G_RET_STS_ERROR;
3441: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3442: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
3443: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
3444: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3445: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
3506: END IF;
3507:
3508: DBMS_TRANSACTION.SAVEPOINT(l_api_name);
3509: -- Standard call to check for call compatibility.
3510: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
3511: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3512: END IF;
3513:
3514: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3507:
3508: DBMS_TRANSACTION.SAVEPOINT(l_api_name);
3509: -- Standard call to check for call compatibility.
3510: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
3511: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3512: END IF;
3513:
3514: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3515: FND_MSG_PUB.initialize;
3510: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
3511: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3512: END IF;
3513:
3514: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3515: FND_MSG_PUB.initialize;
3516: END IF;
3517:
3518: -- Initialize API return status to success
3515: FND_MSG_PUB.initialize;
3516: END IF;
3517:
3518: -- Initialize API return status to success
3519: x_return_status := FND_API.G_RET_STS_SUCCESS;
3520:
3521: IF p_negotiation_status IS NOT NULL THEN
3522: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3523: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
3542: WHERE chr_id = p_chr_id;
3543: */
3544: END IF;
3545:
3546: IF FND_API.to_boolean( p_commit ) THEN
3547: COMMIT;
3548: END IF;
3549:
3550: -- Standard call to get message count and if count is 1, get message info.
3555: 'Leaving '||G_PKG_NAME ||'.'||l_api_name);
3556: END IF;
3557:
3558: EXCEPTION
3559: WHEN FND_API.G_EXC_ERROR THEN
3560: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
3561: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
3562: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3563: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
3564: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from G_EXC_ERROR');
3565: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,get_fnd_message);
3566: END IF;
3567: x_return_status := G_RET_STS_ERROR;
3568: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3569: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
3570: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
3571: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3572: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
3684: 'OKS_WF_K_PROCESS_PVT.set_notification_attributes(x_return_status= '||
3685: l_return_status||' x_msg_count ='||l_msg_count||')');
3686: END IF;
3687: IF l_return_status <> G_RET_STS_SUCCESS THEN
3688: RAISE FND_API.G_EXC_ERROR;
3689: END IF;
3690:
3691: -- check if a template is defined to send a Activation
3692: -- confirmation message only in activation flow
3715: 'OKS_WF_K_PROCESS_PVT.is_template_defined(x_return_status= '||
3716: l_return_status||' x_msg_count ='||l_msg_count||')');
3717: END IF;
3718: IF l_return_status <> G_RET_STS_SUCCESS THEN
3719: RAISE FND_API.G_EXC_ERROR;
3720: END IF;
3721:
3722: wf_engine.SetItemAttrText
3723: (
3753: RETURN;
3754: END IF; -- (funcmode = 'TIMEOUT')
3755:
3756: EXCEPTION
3757: WHEN FND_API.G_EXC_ERROR THEN
3758: l_msg_data := get_fnd_message;
3759: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3760: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,
3761: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||'.FND_API.G_EXC_ERROR'
3757: WHEN FND_API.G_EXC_ERROR THEN
3758: l_msg_data := get_fnd_message;
3759: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3760: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,
3761: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||'.FND_API.G_EXC_ERROR'
3762: ||' Itemtype: '||NVL(itemtype,'NULL')||' Itemkey: '||NVL(itemkey,'NULL'));
3763: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,l_msg_data);
3764: END IF;
3765: wf_core.CONTEXT
3886: IF p_contract_id IS NULL THEN
3887: FND_MESSAGE.SET_NAME(G_APP_NAME,'OKS_INVD_CONTRACT_ID');
3888: FND_MESSAGE.SET_TOKEN('HDR_ID',p_contract_id);
3889: FND_MSG_PUB.add;
3890: RAISE FND_API.G_EXC_ERROR;
3891: END IF;
3892:
3893: l_notif_attr_rec.CONTRACT_ID := p_contract_id;
3894: l_notif_attr_rec.ITEM_KEY := get_wf_item_key(p_contract_id);
3929: 'OKS_WF_K_PROCESS_PVT.set_notification_attributes(x_return_status= '||
3930: x_return_status||' x_msg_count ='||x_msg_count||')');
3931: END IF;
3932: IF x_return_status <> G_RET_STS_SUCCESS THEN
3933: RAISE FND_API.G_EXC_ERROR;
3934: END IF;
3935: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3936: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
3937: 'Leaving '||G_PKG_NAME ||'.'||l_api_name);
3937: 'Leaving '||G_PKG_NAME ||'.'||l_api_name);
3938: END IF;
3939:
3940: EXCEPTION
3941: WHEN FND_API.G_EXC_ERROR THEN
3942: x_return_status := G_RET_STS_ERROR;
3943: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
3944: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3945: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,
4053: 'OKS_WF_K_PROCESS_PVT.set_email_attributes(x_return_status= '||
4054: l_return_status||' x_msg_count ='||l_msg_count||')');
4055: END IF;
4056: IF l_return_status <> G_RET_STS_SUCCESS THEN
4057: RAISE FND_API.G_EXC_ERROR;
4058: END IF;
4059: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4060: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
4061: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from funcmode=RUN');
4081: RETURN;
4082: END IF; -- (funcmode = 'TIMEOUT')
4083:
4084: EXCEPTION
4085: WHEN FND_API.G_EXC_ERROR THEN
4086: l_msg_data := get_fnd_message;
4087: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4088: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,
4089: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||'.FND_API.G_EXC_ERROR'
4085: WHEN FND_API.G_EXC_ERROR THEN
4086: l_msg_data := get_fnd_message;
4087: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4088: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,
4089: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||'.FND_API.G_EXC_ERROR'
4090: ||' Itemtype: '||NVL(itemtype,'NULL')||' Itemkey: '||NVL(itemkey,'NULL'));
4091: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,l_msg_data);
4092: END IF;
4093: wf_core.CONTEXT
4315: END IF;
4316:
4317: DBMS_TRANSACTION.SAVEPOINT(l_api_name);
4318: -- Initialize message list if p_init_msg_list is set to TRUE.
4319: IF FND_API.to_Boolean( p_init_msg_list ) THEN
4320: FND_MSG_PUB.initialize;
4321: END IF;
4322:
4323: -- Initialize API return status to success
4326: IF p_wf_attributes.contract_id IS NULL THEN
4327: FND_MESSAGE.SET_NAME(G_APP_NAME,'OKS_INVD_CONTRACT_ID');
4328: FND_MESSAGE.SET_TOKEN('HDR_ID','NULL');
4329: FND_MSG_PUB.add;
4330: RAISE FND_API.G_EXC_ERROR;
4331: END IF;
4332:
4333: IF p_wf_attributes.item_key IS NOT NULL THEN
4334: l_item_key := p_wf_attributes.item_key;
4532: IF p_wf_attributes.negotiation_status = G_NEG_STS_PRE_DRAFT THEN
4533: WF_ENGINE.threshold := l_save_threshold;
4534: END IF;
4535:
4536: IF FND_API.to_boolean( p_commit ) THEN
4537: COMMIT;
4538: END IF;
4539:
4540: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4542: 'Leaving '||G_PKG_NAME ||'.'||l_api_name);
4543: END IF;
4544:
4545: EXCEPTION
4546: WHEN FND_API.G_EXC_ERROR THEN
4547: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
4548: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
4549: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4550: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
4615: '(p_contract_id=>'||p_contract_id||'p_item_key=>'||p_item_key||')');
4616: END IF;
4617:
4618: DBMS_TRANSACTION.SAVEPOINT(l_api_name);
4619: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
4620: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4621: END IF;
4622: -- Initialize message list if p_init_msg_list is set to TRUE.
4623: IF FND_API.to_Boolean( p_init_msg_list ) THEN
4616: END IF;
4617:
4618: DBMS_TRANSACTION.SAVEPOINT(l_api_name);
4619: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
4620: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4621: END IF;
4622: -- Initialize message list if p_init_msg_list is set to TRUE.
4623: IF FND_API.to_Boolean( p_init_msg_list ) THEN
4624: FND_MSG_PUB.initialize;
4619: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
4620: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4621: END IF;
4622: -- Initialize message list if p_init_msg_list is set to TRUE.
4623: IF FND_API.to_Boolean( p_init_msg_list ) THEN
4624: FND_MSG_PUB.initialize;
4625: END IF;
4626:
4627: -- Initialize API return status to success
4630: IF p_contract_id IS NULL THEN
4631: FND_MESSAGE.SET_NAME(G_APP_NAME,'OKS_INVD_CONTRACT_ID');
4632: FND_MESSAGE.SET_TOKEN('HDR_ID',p_contract_id);
4633: FND_MSG_PUB.add;
4634: RAISE FND_API.G_EXC_ERROR;
4635: END IF;
4636:
4637: IF p_item_key IS NULL THEN
4638: l_item_key := get_wf_item_key(p_contract_id => p_contract_id);
4638: l_item_key := get_wf_item_key(p_contract_id => p_contract_id);
4639: IF l_item_key IS NULL THEN
4640: FND_MESSAGE.set_name(G_APP_NAME,'OKS_INVALID_WF_ITEM_KEY');
4641: FND_MSG_PUB.add;
4642: RAISE FND_API.G_EXC_ERROR;
4643: END IF;
4644: ELSE
4645: l_item_key := p_item_key;
4646: END IF;
4673: 'OKS_WF_K_PROCESS_PVT.complete_activity(x_return_status= '||x_return_status||
4674: ' x_msg_count ='||x_msg_count||')');
4675: END IF;
4676: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
4677: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4678: ELSIF x_return_status = G_RET_STS_ERROR THEN
4679: RAISE FND_API.G_EXC_ERROR;
4680: END IF;
4681: ELSE
4675: END IF;
4676: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
4677: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4678: ELSIF x_return_status = G_RET_STS_ERROR THEN
4679: RAISE FND_API.G_EXC_ERROR;
4680: END IF;
4681: ELSE
4682: FND_MESSAGE.set_name(G_APP_NAME,'OKS_INVALID_RE_PUBLISH_ACTION');
4683: FND_MESSAGE.set_token('K_NUMBER',get_concat_k_number(p_contract_id));
4681: ELSE
4682: FND_MESSAGE.set_name(G_APP_NAME,'OKS_INVALID_RE_PUBLISH_ACTION');
4683: FND_MESSAGE.set_token('K_NUMBER',get_concat_k_number(p_contract_id));
4684: FND_MSG_PUB.add;
4685: RAISE FND_API.G_EXC_ERROR;
4686: END IF;
4687:
4688: IF FND_API.to_boolean( p_commit ) THEN
4689: COMMIT;
4684: FND_MSG_PUB.add;
4685: RAISE FND_API.G_EXC_ERROR;
4686: END IF;
4687:
4688: IF FND_API.to_boolean( p_commit ) THEN
4689: COMMIT;
4690: END IF;
4691:
4692: -- Standard call to get message count and if count is 1, get message info.
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,
4706: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from G_EXC_ERROR');
4707: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,get_fnd_message);
4708: END IF;
4709: x_return_status := G_RET_STS_ERROR;
4710: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4711: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
4712: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
4713: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4714: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
4777: '(p_contract_id=>'||p_contract_id||'p_item_key=>'||p_item_key||')');
4778: END IF;
4779:
4780: DBMS_TRANSACTION.SAVEPOINT(l_api_name);
4781: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
4782: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4783: END IF;
4784: -- Initialize message list if p_init_msg_list is set to TRUE.
4785: IF FND_API.to_Boolean( p_init_msg_list ) THEN
4778: END IF;
4779:
4780: DBMS_TRANSACTION.SAVEPOINT(l_api_name);
4781: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
4782: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4783: END IF;
4784: -- Initialize message list if p_init_msg_list is set to TRUE.
4785: IF FND_API.to_Boolean( p_init_msg_list ) THEN
4786: FND_MSG_PUB.initialize;
4781: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
4782: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4783: END IF;
4784: -- Initialize message list if p_init_msg_list is set to TRUE.
4785: IF FND_API.to_Boolean( p_init_msg_list ) THEN
4786: FND_MSG_PUB.initialize;
4787: END IF;
4788:
4789: -- Initialize API return status to success
4792: IF p_contract_id IS NULL THEN
4793: FND_MESSAGE.SET_NAME(G_APP_NAME,'OKS_INVD_CONTRACT_ID');
4794: FND_MESSAGE.SET_TOKEN('HDR_ID',p_contract_id);
4795: FND_MSG_PUB.add;
4796: RAISE FND_API.G_EXC_ERROR;
4797: END IF;
4798:
4799: IF p_item_key IS NULL THEN
4800: l_item_key := get_wf_item_key(p_contract_id => p_contract_id);
4800: l_item_key := get_wf_item_key(p_contract_id => p_contract_id);
4801: IF l_item_key IS NULL THEN
4802: FND_MESSAGE.set_name(G_APP_NAME,'OKS_INVALID_WF_ITEM_KEY');
4803: FND_MSG_PUB.add;
4804: RAISE FND_API.G_EXC_ERROR;
4805: END IF;
4806: ELSE
4807: l_item_key := p_item_key;
4808: END IF;
4831: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
4832: 'Purging workflow... ');
4833: END IF;
4834:
4835: IF FND_API.to_boolean( p_commit ) THEN
4836: COMMIT;
4837: END IF;
4838:
4839: -- Standard call to get message count and if count is 1, get message info.
4844: 'Leaving '||G_PKG_NAME ||'.'||l_api_name);
4845: END IF;
4846:
4847: EXCEPTION
4848: WHEN FND_API.G_EXC_ERROR THEN
4849: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
4850: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
4851: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4852: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
4853: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from G_EXC_ERROR');
4854: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,get_fnd_message);
4855: END IF;
4856: x_return_status := G_RET_STS_ERROR;
4857: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4858: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
4859: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
4860: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4861: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
5173: 'OKS_WF_K_PROCESS_PVT.set_notification_attributes(x_return_status= '||
5174: l_return_status||' x_msg_count ='||l_msg_count||')');
5175: END IF;
5176: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
5177: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5178: ELSIF l_return_status = G_RET_STS_ERROR THEN
5179: RAISE FND_API.G_EXC_ERROR;
5180: END IF;
5181: resultout := 'COMPLETE:RENEWAL';
5175: END IF;
5176: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
5177: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5178: ELSIF l_return_status = G_RET_STS_ERROR THEN
5179: RAISE FND_API.G_EXC_ERROR;
5180: END IF;
5181: resultout := 'COMPLETE:RENEWAL';
5182: END IF;
5183: END IF;
5323: x_msg_count => l_msg_count,
5324: x_msg_data => l_msg_data
5325: );
5326: IF l_return_status <> G_RET_STS_SUCCESS THEN
5327: RAISE FND_API.G_EXC_ERROR;
5328: END IF;
5329: resultout := 'COMPLETE:ONLINE';
5330: ELSIF l_process_type = G_RENEW_TYPE_EVERGREEN THEN
5331: resultout := 'COMPLETE:EVERGREEN';
5364: RETURN;
5365: END IF; -- (funcmode = 'TIMEOUT')
5366:
5367: EXCEPTION
5368: WHEN FND_API.G_EXC_ERROR THEN
5369: l_msg_data := get_fnd_message;
5370: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5371: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,
5372: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||'Error: Itemtype: '
5541: 'Entered '||G_PKG_NAME ||'.'||l_api_name||'with Contract Id '||p_contract_id);
5542: END IF;
5543:
5544: -- Standard call to check for call compatibility.
5545: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
5546: x_return_status := G_RET_STS_ERROR;
5547: RAISE FND_API.G_EXC_ERROR;
5548: END IF;
5549:
5543:
5544: -- Standard call to check for call compatibility.
5545: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
5546: x_return_status := G_RET_STS_ERROR;
5547: RAISE FND_API.G_EXC_ERROR;
5548: END IF;
5549:
5550: -- Initialize message list if p_init_msg_list is set to TRUE.
5551: IF FND_API.to_Boolean( p_init_msg_list ) THEN
5547: RAISE FND_API.G_EXC_ERROR;
5548: END IF;
5549:
5550: -- Initialize message list if p_init_msg_list is set to TRUE.
5551: IF FND_API.to_Boolean( p_init_msg_list ) THEN
5552: FND_MSG_PUB.initialize;
5553: END IF;
5554:
5555: -- Initialize API return status to success
5552: FND_MSG_PUB.initialize;
5553: END IF;
5554:
5555: -- Initialize API return status to success
5556: x_return_status := FND_API.G_RET_STS_SUCCESS;
5557:
5558: IF p_contract_id IS NULL THEN
5559: FND_MESSAGE.SET_NAME(G_APP_NAME,'OKS_INVD_CONTRACT_ID');
5560: FND_MESSAGE.SET_TOKEN('HDR_ID',p_contract_id);
5558: IF p_contract_id IS NULL THEN
5559: FND_MESSAGE.SET_NAME(G_APP_NAME,'OKS_INVD_CONTRACT_ID');
5560: FND_MESSAGE.SET_TOKEN('HDR_ID',p_contract_id);
5561: FND_MSG_PUB.add;
5562: RAISE FND_API.G_EXC_ERROR;
5563: END IF;
5564:
5565: IF p_item_key IS NULL THEN
5566: l_item_key := get_wf_item_key(p_contract_id => p_contract_id);
5566: l_item_key := get_wf_item_key(p_contract_id => p_contract_id);
5567: IF l_item_key IS NULL THEN
5568: FND_MESSAGE.set_name(G_APP_NAME,'OKS_INVALID_WF_ITEM_KEY');
5569: FND_MSG_PUB.add;
5570: RAISE FND_API.G_EXC_ERROR;
5571: END IF;
5572: ELSE
5573: l_item_key := p_item_key;
5574: END IF;
5595: ELSE
5596: FND_MESSAGE.set_name(G_APP_NAME,'OKS_SUBMIT_APRVL_NOT_ALWD');
5597: FND_MESSAGE.SET_TOKEN('K_NUMBER',get_concat_k_number(p_contract_id));
5598: FND_MSG_PUB.add;
5599: RAISE FND_API.G_EXC_ERROR;
5600: END IF;
5601: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5602: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
5603: 'Activity: '||x_activity_name||' Return status '||x_return_status);
5611: 'Leaving '||G_PKG_NAME ||'.'||l_api_name);
5612: END IF;
5613:
5614: EXCEPTION
5615: WHEN FND_API.G_EXC_ERROR THEN
5616: x_return_status := G_RET_STS_ERROR;
5617: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
5618: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5619: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,
5733: aname => 'SECURITY_GROUP_ID',
5734: avalue => p_security_group_id);
5735: end;
5736:
5737: IF FND_API.to_boolean( p_commit ) THEN
5738: COMMIT;
5739: END IF;
5740: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5741: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
5804: ' p_validate_yn '||p_validate_yn||' p_qa_required_yn '||p_qa_required_yn);
5805: END IF;
5806:
5807: DBMS_TRANSACTION.SAVEPOINT(l_api_name);
5808: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
5809: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5810: END IF;
5811:
5812: -- Initialize message list if p_init_msg_list is set to TRUE.
5805: END IF;
5806:
5807: DBMS_TRANSACTION.SAVEPOINT(l_api_name);
5808: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
5809: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5810: END IF;
5811:
5812: -- Initialize message list if p_init_msg_list is set to TRUE.
5813: IF FND_API.to_Boolean( p_init_msg_list ) THEN
5809: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5810: END IF;
5811:
5812: -- Initialize message list if p_init_msg_list is set to TRUE.
5813: IF FND_API.to_Boolean( p_init_msg_list ) THEN
5814: FND_MSG_PUB.initialize;
5815: END IF;
5816:
5817: -- Initialize API return status to success
5820: IF p_contract_id IS NULL THEN
5821: FND_MESSAGE.SET_NAME(G_APP_NAME,'OKS_INVD_CONTRACT_ID');
5822: FND_MESSAGE.SET_TOKEN('HDR_ID',p_contract_id);
5823: FND_MSG_PUB.add;
5824: RAISE FND_API.G_EXC_ERROR;
5825: END IF;
5826:
5827: -- Check whether submit for approval actions is applicable for this contract
5828: -- If k is not in 'Entered' status, we should not allow submit for approval
5835: l_item_key := get_wf_item_key(p_contract_id => p_contract_id);
5836: IF l_item_key IS NULL THEN
5837: FND_MESSAGE.set_name(G_APP_NAME,'OKS_INVALID_WF_ITEM_KEY');
5838: FND_MSG_PUB.add;
5839: RAISE FND_API.G_EXC_ERROR;
5840: END IF;
5841: ELSE
5842: l_item_key := p_item_key;
5843: END IF;
5856: x_msg_count => x_msg_count,
5857: x_msg_data => x_msg_data
5858: );
5859: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
5860: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5861: ELSIF x_return_status = G_RET_STS_ERROR THEN
5862: RAISE FND_API.G_EXC_ERROR;
5863: ELSIF x_return_status = G_RET_STS_WARNING THEN
5864: Raise ActionNotAllowedException;
5858: );
5859: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
5860: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5861: ELSIF x_return_status = G_RET_STS_ERROR THEN
5862: RAISE FND_API.G_EXC_ERROR;
5863: ELSIF x_return_status = G_RET_STS_WARNING THEN
5864: Raise ActionNotAllowedException;
5865: END IF;
5866: ELSE
5872: );
5873: IF l_activity_name NOT IN (G_SALESREP_ACTION, G_CUST_ACTION) THEN
5874: FND_MESSAGE.set_name(G_APP_NAME,'OKS_SUBMIT_APPROVAL_NOT_ALLOWED');
5875: FND_MSG_PUB.add;
5876: RAISE FND_API.G_EXC_ERROR;
5877: ELSIF l_activity_name = G_CUST_ACTION THEN
5878:
5879: -- bug 5845505, send email only if template for the document type is setup
5880: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5900: 'OKS_WF_K_PROCESS_PVT.is_template_defined(x_return_status= '||
5901: x_return_status||' x_msg_count ='||x_msg_count||')');
5902: END IF;
5903: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
5904: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5905: ELSIF x_return_status = G_RET_STS_ERROR THEN
5906: RAISE FND_API.G_EXC_ERROR;
5907: END IF;
5908:
5902: END IF;
5903: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
5904: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5905: ELSIF x_return_status = G_RET_STS_ERROR THEN
5906: RAISE FND_API.G_EXC_ERROR;
5907: END IF;
5908:
5909: wf_engine.SetItemAttrText
5910: (
5939: 'OKS_AUTO_REMINDER.log_interaction(x_return_status= '||
5940: x_return_status||' x_msg_count ='||x_msg_count||')');
5941: END IF;
5942: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
5943: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5944: ELSIF x_return_status = G_RET_STS_ERROR THEN
5945: RAISE FND_API.G_EXC_ERROR;
5946: END IF;
5947: IF NVL(l_send_email_yn,'N') = 'Y' THEN
5941: END IF;
5942: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
5943: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5944: ELSIF x_return_status = G_RET_STS_ERROR THEN
5945: RAISE FND_API.G_EXC_ERROR;
5946: END IF;
5947: IF NVL(l_send_email_yn,'N') = 'Y' THEN
5948:
5949: l_email_attr_rec.CONTRACT_ID := p_contract_id;
5972: 'OKS_WF_K_PROCESS_PVT.set_email_attributes(x_return_status= '||
5973: x_return_status||' x_msg_count ='||x_msg_count||')');
5974: END IF;
5975: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
5976: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5977: ELSIF x_return_status = G_RET_STS_ERROR THEN
5978: RAISE FND_API.G_EXC_ERROR;
5979: END IF;
5980: END IF;
5974: END IF;
5975: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
5976: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5977: ELSIF x_return_status = G_RET_STS_ERROR THEN
5978: RAISE FND_API.G_EXC_ERROR;
5979: END IF;
5980: END IF;
5981: END IF;
5982: END IF;
6008: x_negotiation_status := G_NEG_STS_PEND_IA;
6009: ELSIF l_irr_flag = G_IRR_FLAG_NOT_REQD THEN
6010: x_negotiation_status := G_NEG_STS_PEND_ACTIVATION;
6011: ELSE
6012: RAISE FND_API.G_EXC_ERROR;
6013: END IF;
6014:
6015: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
6016: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
6033: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
6034: ' Return status '||x_return_status||' x_msg_count '||x_msg_count);
6035: END IF;
6036: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
6037: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6038: ELSIF x_return_status = G_RET_STS_ERROR THEN
6039: RAISE FND_API.G_EXC_ERROR;
6040: END IF;
6041:
6035: END IF;
6036: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
6037: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6038: ELSIF x_return_status = G_RET_STS_ERROR THEN
6039: RAISE FND_API.G_EXC_ERROR;
6040: END IF;
6041:
6042: IF FND_API.to_boolean( p_commit ) THEN
6043: COMMIT;
6038: ELSIF x_return_status = G_RET_STS_ERROR THEN
6039: RAISE FND_API.G_EXC_ERROR;
6040: END IF;
6041:
6042: IF FND_API.to_boolean( p_commit ) THEN
6043: COMMIT;
6044: END IF;
6045: -- Standard call to get message count and if count is 1, get message info.
6046: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count=>x_msg_count, p_data=>x_msg_data);
6058: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,
6059: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||'.ActionNotAllowedException '||
6060: ' Contract is either waiting for customer acceptance or not in entered status');
6061: END IF;
6062: WHEN FND_API.G_EXC_ERROR THEN
6063: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
6064: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
6065: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6066: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
6067: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from G_EXC_ERROR');
6068: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,get_fnd_message);
6069: END IF;
6070: x_return_status := G_RET_STS_ERROR;
6071: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6072: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
6073: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
6074: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6075: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
6143: '(p_contract_id=>'||p_contract_id||'p_item_key=>'||p_item_key||')');
6144: END IF;
6145:
6146: DBMS_TRANSACTION.SAVEPOINT(l_api_name);
6147: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
6148: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6149: END IF;
6150: -- Initialize message list if p_init_msg_list is set to TRUE.
6151: IF FND_API.to_Boolean( p_init_msg_list ) THEN
6144: END IF;
6145:
6146: DBMS_TRANSACTION.SAVEPOINT(l_api_name);
6147: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
6148: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6149: END IF;
6150: -- Initialize message list if p_init_msg_list is set to TRUE.
6151: IF FND_API.to_Boolean( p_init_msg_list ) THEN
6152: FND_MSG_PUB.initialize;
6147: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
6148: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6149: END IF;
6150: -- Initialize message list if p_init_msg_list is set to TRUE.
6151: IF FND_API.to_Boolean( p_init_msg_list ) THEN
6152: FND_MSG_PUB.initialize;
6153: END IF;
6154:
6155: -- Initialize API return status to success
6158: IF p_contract_id IS NULL THEN
6159: FND_MESSAGE.SET_NAME(G_APP_NAME,'OKS_INVD_CONTRACT_ID');
6160: FND_MESSAGE.SET_TOKEN('HDR_ID',p_contract_id);
6161: FND_MSG_PUB.add;
6162: RAISE FND_API.G_EXC_ERROR;
6163: END IF;
6164:
6165: OPEN l_nego_sts_csr (p_contract_id);
6166: FETCH l_nego_sts_csr INTO l_negotiation_status;
6188: l_item_key := get_wf_item_key(p_contract_id => p_contract_id);
6189: IF l_item_key IS NULL THEN
6190: FND_MESSAGE.set_name(G_APP_NAME,'OKS_INVALID_WF_ITEM_KEY');
6191: FND_MSG_PUB.add;
6192: RAISE FND_API.G_EXC_ERROR;
6193: END IF;
6194: ELSE
6195: l_item_key := p_item_key;
6196: END IF;
6217: x_msg_data => x_msg_data,
6218: x_msg_count => x_msg_count
6219: );
6220: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
6221: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6222: ELSIF x_return_status = G_RET_STS_ERROR THEN
6223: RAISE FND_API.G_EXC_ERROR;
6224: END IF;
6225:
6219: );
6220: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
6221: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6222: ELSIF x_return_status = G_RET_STS_ERROR THEN
6223: RAISE FND_API.G_EXC_ERROR;
6224: END IF;
6225:
6226: -- Set this item attribute to 'Y' which indicates that this contract was
6227: -- published online manually. This is an important attribute since this is the only
6234: avalue => 'Y'
6235: );
6236: END IF;
6237:
6238: IF FND_API.to_boolean( p_commit ) THEN
6239: COMMIT;
6240: END IF;
6241:
6242: -- Standard call to get message count and if count is 1, get message info.
6264: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
6265: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from AlreadyPublishedException');
6266: END IF;
6267: x_return_status := G_RET_STS_ALREADY_PUBLISHED;
6268: WHEN FND_API.G_EXC_ERROR THEN
6269: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
6270: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
6271: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6272: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
6273: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from G_EXC_ERROR');
6274: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,get_fnd_message);
6275: END IF;
6276: x_return_status := G_RET_STS_ERROR;
6277: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6278: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
6279: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
6280: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6281: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
6397: FND_MSG_PUB.add;
6398: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
6399: FND_LOG.STRING(FND_LOG.LEVEL_ERROR ,G_MODULE||l_api_name,'Invalid QA checklist ');
6400: END IF;
6401: RAISE FND_API.G_EXC_ERROR;
6402: END IF;
6403: CLOSE l_qa_csr;
6404:
6405: -- Initializing the context to global
6432: 'OKC_QA_CHECK_PUB.execute_qa_check_list(x_return_status= '||l_return_status||
6433: ' x_msg_tbl.count ='||l_msg_tbl.count||')');
6434: END IF;
6435: IF l_return_status <> G_RET_STS_SUCCESS THEN
6436: RAISE FND_API.G_EXC_ERROR;
6437: END IF;
6438:
6439: -- Check if any of the QA checks have failed. If so populate error message
6440: -- into workflow item attributes and mark the negotiation status coz we want to
6486: IF l_qto_email IS NULL THEN
6487: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
6488: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name,'Quote To email not found');
6489: END IF;
6490: RAISE FND_API.G_EXC_ERROR;
6491: END IF;
6492: EXCEPTION
6493: WHEN FND_API.G_EXC_ERROR THEN
6494: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => l_msg_count, p_data => l_msg_data );
6489: END IF;
6490: RAISE FND_API.G_EXC_ERROR;
6491: END IF;
6492: EXCEPTION
6493: WHEN FND_API.G_EXC_ERROR THEN
6494: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => l_msg_count, p_data => l_msg_data );
6495: -- Set the message only when a vacant message item attribute is available
6496: IF (l_msg_ctr < 10) THEN
6497: wf_engine.SetItemAttrText
6546: 'OKS_WF_K_PROCESS_PVT.set_email_attributes(x_return_status= '||l_return_status||
6547: ' x_msg_count ='||l_msg_count||')');
6548: END IF;
6549: IF l_return_status <> G_RET_STS_SUCCESS THEN
6550: RAISE FND_API.G_EXC_ERROR;
6551: END IF;
6552: END IF;
6553: END IF;
6554:
6564: x_msg_count => l_msg_count,
6565: x_msg_data => l_msg_data
6566: );
6567: IF l_return_status <> G_RET_STS_SUCCESS THEN
6568: RAISE FND_API.G_EXC_ERROR;
6569: END IF;
6570:
6571: -- In case of errors, set wf attributes that'll be used by the notification
6572: -- which will be rendered by OAF embedded region.
6599: 'OKS_WF_K_PROCESS_PVT.set_notification_attributes(x_return_status= '||
6600: l_return_status||' x_msg_count ='||l_msg_count||')');
6601: END IF;
6602: IF l_return_status <> G_RET_STS_SUCCESS THEN
6603: RAISE FND_API.G_EXC_ERROR;
6604: END IF;
6605: resultout := 'COMPLETE:F';
6606: ELSE
6607: resultout := 'COMPLETE:T';
6631: END IF;
6632: RETURN;
6633: END IF; -- (funcmode = 'TIMEOUT')
6634: EXCEPTION
6635: WHEN FND_API.G_EXC_ERROR THEN
6636: resultout := 'COMPLETE:F';
6637: l_msg_data := get_fnd_message;
6638: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
6639: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,
6926: x_msg_count => l_msg_count,
6927: x_msg_data => l_msg_data
6928: );
6929: IF l_return_status <> G_RET_STS_SUCCESS THEN
6930: RAISE FND_API.G_EXC_ERROR;
6931: END IF;
6932: -- 3. Doesn't require explicit action from Salesrep
6933: ELSE
6934: resultout := 'COMPLETE:';
6963: RETURN;
6964: END IF; -- (funcmode = 'TIMEOUT')
6965:
6966: EXCEPTION
6967: WHEN FND_API.G_EXC_ERROR THEN
6968: l_msg_data := get_fnd_message;
6969: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
6970: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,
6971: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||'Error: Itemtype: '
7054: l_irr_flag := get_irr_flag(p_contract_id => NULL,p_item_key => itemkey);
7055: IF l_irr_flag IS NOT NULL THEN
7056: resultout := 'COMPLETE:'||l_irr_flag;
7057: ELSE
7058: RAISE FND_API.G_EXC_ERROR;
7059: END IF;
7060:
7061: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7062: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
7087: RETURN;
7088: END IF; -- (funcmode = 'TIMEOUT')
7089:
7090: EXCEPTION
7091: WHEN FND_API.G_EXC_ERROR THEN
7092: l_msg_data := get_fnd_message;
7093: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7094: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,
7095: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||'Error: Itemtype: '
7200: l_negotiation_status := G_NEG_STS_PEND_IA;
7201: ELSIF l_irr_flag = G_IRR_FLAG_NOT_REQD THEN
7202: l_negotiation_status := G_NEG_STS_PEND_ACTIVATION;
7203: ELSE
7204: RAISE FND_API.G_EXC_ERROR;
7205: END IF;
7206: END IF;
7207:
7208: update_negotiation_status
7260: arg1 => itemtype,
7261: arg2 => itemkey,
7262: arg3 => l_msg_data
7263: );
7264: WHEN FND_API.G_EXC_ERROR THEN
7265: l_msg_data := get_fnd_message;
7266: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7267: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,
7268: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||'Error: Itemtype: '
7610: x_msg_count => l_msg_count,
7611: x_msg_data => l_msg_data
7612: );
7613: IF l_return_status <> G_RET_STS_SUCCESS THEN
7614: RAISE FND_API.G_EXC_ERROR;
7615: END IF;
7616:
7617: -- In case of errors, set wf attributes that'll be used by the notification
7618: -- and will be rendered by OAF embedded region.
7646: 'OKS_WF_K_PROCESS_PVT.set_notification_attributes(x_return_status= '||
7647: l_return_status||' x_msg_count ='||l_msg_count||')');
7648: END IF;
7649: IF l_return_status <> G_RET_STS_SUCCESS THEN
7650: RAISE FND_API.G_EXC_ERROR;
7651: END IF;
7652: resultout := 'COMPLETE:ERROR';
7653: ELSE
7654: resultout := 'NOTIFIED:';
7678: END IF;
7679: RETURN;
7680: END IF; -- (funcmode = 'TIMEOUT')
7681: EXCEPTION
7682: WHEN FND_API.G_EXC_ERROR THEN
7683: resultout := 'COMPLETE:ERROR';
7684: l_msg_data := get_fnd_message;
7685: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7686: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,
7777: END IF;
7778:
7779: DBMS_TRANSACTION.SAVEPOINT(l_api_name);
7780: -- Standard call to check for call compatibility.
7781: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
7782: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7783: END IF;
7784:
7785: -- Initialize message list if p_init_msg_list is set to TRUE.
7778:
7779: DBMS_TRANSACTION.SAVEPOINT(l_api_name);
7780: -- Standard call to check for call compatibility.
7781: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
7782: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7783: END IF;
7784:
7785: -- Initialize message list if p_init_msg_list is set to TRUE.
7786: IF FND_API.to_Boolean( p_init_msg_list ) THEN
7782: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7783: END IF;
7784:
7785: -- Initialize message list if p_init_msg_list is set to TRUE.
7786: IF FND_API.to_Boolean( p_init_msg_list ) THEN
7787: FND_MSG_PUB.initialize;
7788: END IF;
7789:
7790: -- Initialize API return status to success
7793: IF p_contract_id IS NULL THEN
7794: FND_MESSAGE.SET_NAME(G_APP_NAME,'OKS_INVD_CONTRACT_ID');
7795: FND_MESSAGE.SET_TOKEN('HDR_ID','NULL');
7796: FND_MSG_PUB.add;
7797: RAISE FND_API.G_EXC_ERROR;
7798: END IF;
7799:
7800: IF p_item_key IS NULL THEN
7801: l_item_key := get_wf_item_key(p_contract_id => p_contract_id);
7801: l_item_key := get_wf_item_key(p_contract_id => p_contract_id);
7802: IF l_item_key IS NULL THEN
7803: FND_MESSAGE.set_name(G_APP_NAME,'OKS_INVALID_WF_ITEM_KEY');
7804: FND_MSG_PUB.add;
7805: RAISE FND_API.G_EXC_ERROR;
7806: END IF;
7807: ELSE
7808: l_item_key := p_item_key;
7809: END IF;
7847: 'OKS_WF_K_PROCESS_PVT.set_email_attributes(x_return_status= '||
7848: x_return_status||' x_msg_count ='||x_msg_count||')');
7849: END IF;
7850: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
7851: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7852: ELSIF x_return_status = G_RET_STS_ERROR THEN
7853: RAISE FND_API.G_EXC_ERROR;
7854: END IF;
7855: END IF;
7849: END IF;
7850: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
7851: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7852: ELSIF x_return_status = G_RET_STS_ERROR THEN
7853: RAISE FND_API.G_EXC_ERROR;
7854: END IF;
7855: END IF;
7856:
7857: l_activity_name := get_notified_activity
7861: );
7862: IF l_activity_name NOT IN (G_SALESREP_ACTION, G_CUST_ACTION) THEN
7863: FND_MESSAGE.set_name(G_APP_NAME,'OKS_INV_SALESREP_ACPT_ACTION');
7864: FND_MSG_PUB.add;
7865: RAISE FND_API.G_EXC_ERROR;
7866: END IF;
7867:
7868: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7869: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
7884: x_msg_data => x_msg_data,
7885: x_msg_count => x_msg_count
7886: );
7887: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
7888: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7889: ELSIF x_return_status = G_RET_STS_ERROR THEN
7890: RAISE FND_API.G_EXC_ERROR;
7891: END IF;
7892:
7886: );
7887: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
7888: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7889: ELSIF x_return_status = G_RET_STS_ERROR THEN
7890: RAISE FND_API.G_EXC_ERROR;
7891: END IF;
7892:
7893: IF FND_API.to_boolean( p_commit ) THEN
7894: COMMIT;
7889: ELSIF x_return_status = G_RET_STS_ERROR THEN
7890: RAISE FND_API.G_EXC_ERROR;
7891: END IF;
7892:
7893: IF FND_API.to_boolean( p_commit ) THEN
7894: COMMIT;
7895: END IF;
7896:
7897: -- Standard call to get message count and if count is 1, get message info.
7902: 'Leaving '||G_PKG_NAME ||'.'||l_api_name);
7903: END IF;
7904:
7905: EXCEPTION
7906: WHEN FND_API.G_EXC_ERROR THEN
7907: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
7908: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
7909: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7910: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
7911: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from G_EXC_ERROR');
7912: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,get_fnd_message);
7913: END IF;
7914: x_return_status := G_RET_STS_ERROR;
7915: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7916: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
7917: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
7918: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7919: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
8010: END IF;
8011:
8012: DBMS_TRANSACTION.SAVEPOINT(l_api_name);
8013: -- Standard call to check for call compatibility.
8014: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
8015: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8016: END IF;
8017:
8018: -- Initialize message list if p_init_msg_list is set to TRUE.
8011:
8012: DBMS_TRANSACTION.SAVEPOINT(l_api_name);
8013: -- Standard call to check for call compatibility.
8014: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
8015: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8016: END IF;
8017:
8018: -- Initialize message list if p_init_msg_list is set to TRUE.
8019: IF FND_API.to_Boolean( p_init_msg_list ) THEN
8015: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8016: END IF;
8017:
8018: -- Initialize message list if p_init_msg_list is set to TRUE.
8019: IF FND_API.to_Boolean( p_init_msg_list ) THEN
8020: FND_MSG_PUB.initialize;
8021: END IF;
8022:
8023: -- Initialize API return status to success
8020: FND_MSG_PUB.initialize;
8021: END IF;
8022:
8023: -- Initialize API return status to success
8024: x_return_status := FND_API.G_RET_STS_SUCCESS;
8025:
8026: IF p_contract_id IS NULL THEN
8027: FND_MESSAGE.SET_NAME(G_APP_NAME,'OKS_INVD_CONTRACT_ID');
8028: FND_MESSAGE.SET_TOKEN('HDR_ID','NULL');
8026: IF p_contract_id IS NULL THEN
8027: FND_MESSAGE.SET_NAME(G_APP_NAME,'OKS_INVD_CONTRACT_ID');
8028: FND_MESSAGE.SET_TOKEN('HDR_ID','NULL');
8029: FND_MSG_PUB.add;
8030: RAISE FND_API.G_EXC_ERROR;
8031: END IF;
8032:
8033: IF p_item_key IS NULL THEN
8034: l_item_key := get_wf_item_key(p_contract_id => p_contract_id);
8034: l_item_key := get_wf_item_key(p_contract_id => p_contract_id);
8035: IF l_item_key IS NULL THEN
8036: FND_MESSAGE.set_name(G_APP_NAME,'OKS_INVALID_WF_ITEM_KEY');
8037: FND_MSG_PUB.add;
8038: RAISE FND_API.G_EXC_ERROR;
8039: END IF;
8040: ELSE
8041: l_item_key := p_item_key;
8042: END IF;
8096: 'OKS_WF_K_PROCESS_PVT.is_template_defined(x_return_status= '||
8097: x_return_status||' x_msg_count ='||x_msg_count||')');
8098: END IF;
8099: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
8100: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8101: ELSIF x_return_status = G_RET_STS_ERROR THEN
8102: RAISE FND_API.G_EXC_ERROR;
8103: END IF;
8104:
8098: END IF;
8099: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
8100: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8101: ELSIF x_return_status = G_RET_STS_ERROR THEN
8102: RAISE FND_API.G_EXC_ERROR;
8103: END IF;
8104:
8105: wf_engine.SetItemAttrText
8106: (
8139: 'OKS_AUTO_REMINDER.log_interaction(x_return_status= '||
8140: x_return_status||' x_msg_count ='||x_msg_count||')');
8141: END IF;
8142: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
8143: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8144: ELSIF x_return_status = G_RET_STS_ERROR THEN
8145: RAISE FND_API.G_EXC_ERROR;
8146: END IF;
8147: IF NVL(l_send_email_yn,'N') = 'Y' THEN
8141: END IF;
8142: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
8143: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8144: ELSIF x_return_status = G_RET_STS_ERROR THEN
8145: RAISE FND_API.G_EXC_ERROR;
8146: END IF;
8147: IF NVL(l_send_email_yn,'N') = 'Y' THEN
8148: -- Log interaction and send cancellation confirmation email to customer
8149: l_email_attr_rec.CONTRACT_ID := p_contract_id;
8172: 'OKS_WF_K_PROCESS_PVT.set_email_attributes(x_return_status= '||
8173: x_return_status||' x_msg_count ='||x_msg_count||')');
8174: END IF;
8175: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
8176: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8177: ELSIF x_return_status = G_RET_STS_ERROR THEN
8178: RAISE FND_API.G_EXC_ERROR;
8179: END IF;
8180: END IF;
8174: END IF;
8175: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
8176: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8177: ELSIF x_return_status = G_RET_STS_ERROR THEN
8178: RAISE FND_API.G_EXC_ERROR;
8179: END IF;
8180: END IF;
8181: END IF;
8182: ELSE
8229: 'OKS_WF_K_PROCESS_PVT.complete_activity(x_return_status= '||
8230: x_return_status||' x_msg_count ='||x_msg_count||')');
8231: END IF;
8232: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
8233: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8234: ELSIF x_return_status = G_RET_STS_ERROR THEN
8235: RAISE FND_API.G_EXC_ERROR;
8236: END IF;
8237: END IF;
8231: END IF;
8232: IF x_return_status = G_RET_STS_UNEXP_ERROR THEN
8233: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8234: ELSIF x_return_status = G_RET_STS_ERROR THEN
8235: RAISE FND_API.G_EXC_ERROR;
8236: END IF;
8237: END IF;
8238:
8239: IF FND_API.to_boolean( p_commit ) THEN
8235: RAISE FND_API.G_EXC_ERROR;
8236: END IF;
8237: END IF;
8238:
8239: IF FND_API.to_boolean( p_commit ) THEN
8240: COMMIT;
8241: END IF;
8242:
8243: -- Standard call to get message count and if count is 1, get message info.
8248: 'Leaving '||G_PKG_NAME ||'.'||l_api_name);
8249: END IF;
8250:
8251: EXCEPTION
8252: WHEN FND_API.G_EXC_ERROR THEN
8253: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
8254: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8255: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
8256: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from G_EXC_ERROR');
8256: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from G_EXC_ERROR');
8257: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,get_fnd_message);
8258: END IF;
8259: x_return_status := G_RET_STS_ERROR;
8260: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8261: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(l_api_name);
8262: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8263: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
8264: 'Leaving '||G_PKG_NAME ||'.'||l_api_name||' from G_EXC_UNEXPECTED_ERROR');
8359: x_msg_count => l_msg_count,
8360: x_msg_data => l_msg_data
8361: );
8362: IF l_return_status <> G_RET_STS_SUCCESS THEN
8363: RAISE FND_API.G_EXC_ERROR;
8364: END IF;
8365:
8366: -- In case of errors, set wf attributes that'll be used by the notification
8367: -- and will be rendered by OAF embedded region.
8394: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.after',
8395: 'OKS_WF_K_PROCESS_PVT.set_notification_attributes(x_return_status= '||
8396: l_return_status||' x_msg_count ='||l_msg_count||')');
8397: END IF;
8398: RAISE FND_API.G_EXC_ERROR;
8399: END IF;
8400:
8401: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
8402: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.before',
8424: x_msg_count => l_msg_count,
8425: x_msg_data => l_msg_data
8426: );
8427: IF l_return_status <> G_RET_STS_SUCCESS THEN
8428: RAISE FND_API.G_EXC_ERROR;
8429: END IF;
8430:
8431: -- In case of errors, set wf attributes that'll be used by the notification
8432: -- and will be rendered by OAF embedded region.
8459: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.after',
8460: 'OKS_WF_K_PROCESS_PVT.set_notification_attributes(x_return_status= '||
8461: l_return_status||' x_msg_count ='||l_msg_count||')');
8462: END IF;
8463: RAISE FND_API.G_EXC_ERROR;
8464: END IF;
8465:
8466: resultout := 'COMPLETE:T';
8467: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
8488: END IF;
8489: RETURN;
8490: END IF; -- (funcmode = 'TIMEOUT')
8491: EXCEPTION
8492: WHEN FND_API.G_EXC_ERROR THEN
8493: resultout := 'COMPLETE:F';
8494: l_msg_data := get_fnd_message;
8495: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
8496: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE||l_api_name,
8546: SELECT oksk.CHR_ID CHR_ID,
8547: nvl(oksk.RENEWAL_TYPE_USED, G_RENEW_TYPE_MANUAL) RENEWAL_TYPE_USED,
8548: nvl(oksk.APPROVAL_TYPE_USED, G_IRR_FLAG_REQD) APPROVAL_TYPE_USED,
8549: okck.CONTRACT_NUMBER CONTRACT_NUMBER,
8550: nvl(okck.CONTRACT_NUMBER_MODIFIER, FND_API.G_MISS_CHAR) CONTRACT_NUMBER_MODIFIER,
8551: nvl(oksk.RENEWAL_STATUS, G_NEG_STS_DRAFT) RENEWAL_STATUS
8552: FROM OKS_K_HEADERS_B oksk,
8553: OKC_K_HEADERS_ALL_B okck,
8554: OKC_STATUSES_B sts
8603:
8604: FOR i IN l_k_rec_tbl.FIRST..l_k_rec_tbl.LAST LOOP
8605: l_wf_attributes_tbl(i).CONTRACT_ID := l_k_rec_tbl(i).chr_id;
8606: l_wf_attributes_tbl(i).CONTRACT_NUMBER := l_k_rec_tbl(i).contract_number;
8607: IF (l_k_rec_tbl(i).contract_number_modifier = FND_API.G_MISS_CHAR) THEN
8608: l_wf_attributes_tbl(i).CONTRACT_MODIFIER := NULL;
8609: ELSE
8610: l_wf_attributes_tbl(i).CONTRACT_MODIFIER := l_k_rec_tbl(i).contract_number_modifier;
8611: END IF;
8618:
8619: --if any errors happen, this procedure will roll it back for all the records passed in
8620: launch_k_process_wf_blk(
8621: p_api_version => 1.0,
8622: p_init_msg_list => FND_API.G_TRUE,
8623: p_commit => FND_API.G_FALSE,
8624: p_wf_attributes_tbl => l_wf_attributes_tbl,
8625: p_update_item_key => 'Y',
8626: x_return_status => l_return_status,
8619: --if any errors happen, this procedure will roll it back for all the records passed in
8620: launch_k_process_wf_blk(
8621: p_api_version => 1.0,
8622: p_init_msg_list => FND_API.G_TRUE,
8623: p_commit => FND_API.G_FALSE,
8624: p_wf_attributes_tbl => l_wf_attributes_tbl,
8625: p_update_item_key => 'Y',
8626: x_return_status => l_return_status,
8627: x_msg_count => l_msg_count,
8628: x_msg_data => l_msg_data);
8629:
8630: --if unexpected error happens - we abort, for other errors we will
8631: --try the next batch
8632: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
8633: l_errcount := l_errcount + l_k_rec_tbl.COUNT;
8634: FOR j IN 1..l_msg_count LOOP
8635: FND_FILE.PUT_LINE(FND_FILE.LOG, FND_MSG_PUB.get(j, 'F'));
8636: END LOOP;
8633: l_errcount := l_errcount + l_k_rec_tbl.COUNT;
8634: FOR j IN 1..l_msg_count LOOP
8635: FND_FILE.PUT_LINE(FND_FILE.LOG, FND_MSG_PUB.get(j, 'F'));
8636: END LOOP;
8637: RAISE FND_API.g_exc_unexpected_error;
8638: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
8639: --just log the error and continue
8640: l_errcount := l_errcount + l_k_rec_tbl.COUNT;
8641: retcode := 1;
8634: FOR j IN 1..l_msg_count LOOP
8635: FND_FILE.PUT_LINE(FND_FILE.LOG, FND_MSG_PUB.get(j, 'F'));
8636: END LOOP;
8637: RAISE FND_API.g_exc_unexpected_error;
8638: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
8639: --just log the error and continue
8640: l_errcount := l_errcount + l_k_rec_tbl.COUNT;
8641: retcode := 1;
8642: FOR j IN 1..l_msg_count LOOP
8755: END IF;
8756:
8757: --standard api initilization and checks
8758: SAVEPOINT launch_k_process_wf_blk_PVT;
8759: IF NOT FND_API.compatible_api_call (l_api_version, p_api_version, l_api_name, G_PKG_NAME)THEN
8760: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8761: END IF;
8762: IF FND_API.to_boolean(p_init_msg_list ) THEN
8763: FND_MSG_PUB.initialize;
8756:
8757: --standard api initilization and checks
8758: SAVEPOINT launch_k_process_wf_blk_PVT;
8759: IF NOT FND_API.compatible_api_call (l_api_version, p_api_version, l_api_name, G_PKG_NAME)THEN
8760: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8761: END IF;
8762: IF FND_API.to_boolean(p_init_msg_list ) THEN
8763: FND_MSG_PUB.initialize;
8764: END IF;
8758: SAVEPOINT launch_k_process_wf_blk_PVT;
8759: IF NOT FND_API.compatible_api_call (l_api_version, p_api_version, l_api_name, G_PKG_NAME)THEN
8760: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8761: END IF;
8762: IF FND_API.to_boolean(p_init_msg_list ) THEN
8763: FND_MSG_PUB.initialize;
8764: END IF;
8765: x_return_status := FND_API.G_RET_STS_SUCCESS;
8766:
8761: END IF;
8762: IF FND_API.to_boolean(p_init_msg_list ) THEN
8763: FND_MSG_PUB.initialize;
8764: END IF;
8765: x_return_status := FND_API.G_RET_STS_SUCCESS;
8766:
8767: IF (p_wf_attributes_tbl.count = 0 ) THEN
8768: RETURN;
8769: END IF;
8934: END IF;
8935: END IF;
8936:
8937: --standard check of p_commit
8938: IF FND_API.to_boolean( p_commit ) THEN
8939: COMMIT;
8940: END IF;
8941: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
8942: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.end', 'x_return_status='|| x_return_status);
8943: END IF;
8944: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data );
8945:
8946: EXCEPTION
8947: WHEN FND_API.g_exc_error THEN
8948: ROLLBACK TO launch_k_process_wf_blk_PVT;
8949: x_return_status := FND_API.g_ret_sts_error ;
8950:
8951: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
8945:
8946: EXCEPTION
8947: WHEN FND_API.g_exc_error THEN
8948: ROLLBACK TO launch_k_process_wf_blk_PVT;
8949: x_return_status := FND_API.g_ret_sts_error ;
8950:
8951: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
8952: FND_LOG.string(FND_LOG.level_error, l_mod_name || '.end_error', 'x_return_status=' || x_return_status);
8953: END IF;
8952: FND_LOG.string(FND_LOG.level_error, l_mod_name || '.end_error', 'x_return_status=' || x_return_status);
8953: END IF;
8954: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data );
8955:
8956: WHEN FND_API.g_exc_unexpected_error THEN
8957: ROLLBACK TO launch_k_process_wf_blk_PVT;
8958: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
8959:
8960: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
8954: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data );
8955:
8956: WHEN FND_API.g_exc_unexpected_error THEN
8957: ROLLBACK TO launch_k_process_wf_blk_PVT;
8958: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
8959:
8960: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
8961: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_unexpected_error', 'x_return_status=' || x_return_status);
8962: END IF;
8971: IF (l_wf_err_name IS NOT NULL) THEN
8972: --workflow error
8973: WF_CORE.clear;
8974: --set the status to error, so that calling program can handle it
8975: x_return_status := FND_API.g_ret_sts_error ;
8976: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, l_wf_err_name||' '||l_wf_err_msg);
8977:
8978: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
8979: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_workflow_error', 'x_return_status=' || x_return_status);
8981: END IF;
8982:
8983: ELSE
8984: --other error
8985: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
8986:
8987: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
8988: --first log the sqlerrm
8989: l_error_text := substr (SQLERRM, 1, 240);