7: := 'oks.plsql.' ||
8: g_pkg_name ||
9: '.';
10: g_application_id CONSTANT NUMBER := 515; -- OKS Application
11: g_false CONSTANT VARCHAR2 (1) := fnd_api.g_false;
12: g_true CONSTANT VARCHAR2 (1) := fnd_api.g_true;
13: g_ret_sts_success CONSTANT VARCHAR2 (1)
14: := fnd_api.g_ret_sts_success;
15: g_ret_sts_error CONSTANT VARCHAR2 (1)
8: g_pkg_name ||
9: '.';
10: g_application_id CONSTANT NUMBER := 515; -- OKS Application
11: g_false CONSTANT VARCHAR2 (1) := fnd_api.g_false;
12: g_true CONSTANT VARCHAR2 (1) := fnd_api.g_true;
13: g_ret_sts_success CONSTANT VARCHAR2 (1)
14: := fnd_api.g_ret_sts_success;
15: g_ret_sts_error CONSTANT VARCHAR2 (1)
16: := fnd_api.g_ret_sts_error;
10: g_application_id CONSTANT NUMBER := 515; -- OKS Application
11: g_false CONSTANT VARCHAR2 (1) := fnd_api.g_false;
12: g_true CONSTANT VARCHAR2 (1) := fnd_api.g_true;
13: g_ret_sts_success CONSTANT VARCHAR2 (1)
14: := fnd_api.g_ret_sts_success;
15: g_ret_sts_error CONSTANT VARCHAR2 (1)
16: := fnd_api.g_ret_sts_error;
17: g_ret_sts_unexp_error CONSTANT VARCHAR2 (1)
18: := fnd_api.g_ret_sts_unexp_error;
12: g_true CONSTANT VARCHAR2 (1) := fnd_api.g_true;
13: g_ret_sts_success CONSTANT VARCHAR2 (1)
14: := fnd_api.g_ret_sts_success;
15: g_ret_sts_error CONSTANT VARCHAR2 (1)
16: := fnd_api.g_ret_sts_error;
17: g_ret_sts_unexp_error CONSTANT VARCHAR2 (1)
18: := fnd_api.g_ret_sts_unexp_error;
19:
20: FUNCTION get_org_context
14: := fnd_api.g_ret_sts_success;
15: g_ret_sts_error CONSTANT VARCHAR2 (1)
16: := fnd_api.g_ret_sts_error;
17: g_ret_sts_unexp_error CONSTANT VARCHAR2 (1)
18: := fnd_api.g_ret_sts_unexp_error;
19:
20: FUNCTION get_org_context
21: RETURN NUMBER
22: IS
311: Note : Call FND_CRYPTO for generating the password (track bug 4358822)
312: FND_USER_RESP_GROUPS_API.insert_assignment with responsibility as 'OKS_ERN_WEB'
313: ELSE -- l_test_user <> 0 ,3
314: -- error, raise exception
315: RAISE FND_API.G_EXC_ERROR;
316: END IF;
317:
318: */
319: PROCEDURE create_user (
427: );
428: END IF;
429:
430: -- Initialize API return status to success
431: x_return_status := fnd_api.g_ret_sts_success;
432:
433: OPEN csr_qtc_person_party_id;
434:
435: FETCH csr_qtc_person_party_id
547: ELSE
548: -- error in fnd_profile.save
549: fnd_message.set_name ('OKS', 'OKS_SSO_FND_PROFILE_ERROR');
550: x_err_msg (l_count).description := fnd_message.get;
551: RAISE fnd_api.g_exc_error;
552: END IF;
553: ELSE
554: -- l_user_id is null, raise exception
555: fnd_message.set_name ('OKS', 'OKS_SSO_USER_ID_NULL');
553: ELSE
554: -- l_user_id is null, raise exception
555: fnd_message.set_name ('OKS', 'OKS_SSO_USER_ID_NULL');
556: x_err_msg (l_count).description := fnd_message.get;
557: RAISE fnd_api.g_exc_error;
558: END IF; -- l_user_id is not null
559: ELSE -- l_test_user <> 0 ,3
560: -- error, raise exception
561: fnd_message.set_name ('OKS', 'OKS_SSO_TEST_USER_ERROR');
560: -- error, raise exception
561: fnd_message.set_name ('OKS', 'OKS_SSO_TEST_USER_ERROR');
562: fnd_message.set_token ('RETURN_VAL', l_test_user);
563: x_err_msg (l_count).description := fnd_message.get;
564: RAISE fnd_api.g_exc_error;
565: END IF; -- l_test_user check
566: ELSE -- l_row_notfound is false i.e record exists in fnd_user
567: x_password := '******';
568: IF l_fnd_person_party_id IS NULL
578: THEN
579: -- fnd_user.person_party_id does NOT match oks_person_party_id
580: fnd_message.set_name ('OKS', 'OKS_SSO_PERSON_PARTY_ERROR');
581: x_err_msg (l_count).description := fnd_message.get;
582: RAISE fnd_api.g_exc_error;
583: ELSE
584: -- l_fnd_person_party_id = l_qtc_person_party_id
585: RETURN;
586: END IF; -- person_party_id check
598: l_api_name
599: );
600: END IF;
601: EXCEPTION
602: WHEN fnd_api.g_exc_error
603: THEN
604: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
605: THEN
606: fnd_log.STRING (fnd_log.level_procedure,
613: );
614: END IF;
615:
616: x_return_status := g_ret_sts_error;
617: WHEN fnd_api.g_exc_unexpected_error
618: THEN
619: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
620: THEN
621: fnd_log.STRING (fnd_log.level_procedure,
806: END IF;
807:
808: IF l_return_status = g_ret_sts_unexp_error
809: THEN
810: RAISE fnd_api.g_exc_unexpected_error;
811: ELSIF l_return_status = g_ret_sts_error
812: THEN
813: RAISE fnd_api.g_exc_error;
814: END IF;
809: THEN
810: RAISE fnd_api.g_exc_unexpected_error;
811: ELSIF l_return_status = g_ret_sts_error
812: THEN
813: RAISE fnd_api.g_exc_error;
814: END IF;
815:
816: IF fnd_log.level_event >= fnd_log.g_current_runtime_level
817: THEN
865: END IF;
866:
867: IF l_return_status = g_ret_sts_unexp_error
868: THEN
869: RAISE fnd_api.g_exc_unexpected_error;
870: ELSIF l_return_status = g_ret_sts_error
871: THEN
872: RAISE fnd_api.g_exc_error;
873: END IF;
868: THEN
869: RAISE fnd_api.g_exc_unexpected_error;
870: ELSIF l_return_status = g_ret_sts_error
871: THEN
872: RAISE fnd_api.g_exc_error;
873: END IF;
874: END LOOP;
875: ELSE
876: FOR l_lines_rec IN l_lines_csr
909: END IF;
910:
911: IF l_return_status = g_ret_sts_unexp_error
912: THEN
913: RAISE fnd_api.g_exc_unexpected_error;
914: ELSIF l_return_status = g_ret_sts_error
915: THEN
916: RAISE fnd_api.g_exc_error;
917: END IF;
912: THEN
913: RAISE fnd_api.g_exc_unexpected_error;
914: ELSIF l_return_status = g_ret_sts_error
915: THEN
916: RAISE fnd_api.g_exc_error;
917: END IF;
918: END LOOP;
919: END IF; /*IF NVL(l_status_code,'X') = 'ENTERED' THEN*/
920:
927: 'OKC_CONTRACT_PUB.update_contract_line - loop end'
928: );
929: END IF;
930: EXCEPTION
931: WHEN fnd_api.g_exc_error
932: THEN
933: fnd_msg_pub.count_and_get (p_encoded => 'F',
934: p_count => l_msg_count,
935: p_data => l_msg_data
953: );
954: END IF;
955:
956: x_return_status := g_ret_sts_error;
957: WHEN fnd_api.g_exc_unexpected_error
958: THEN
959: fnd_msg_pub.count_and_get (p_encoded => 'F',
960: p_count => l_msg_count,
961: p_data => l_msg_data
1652: );
1653: END IF;
1654:
1655: -- Initialize message list if p_init_msg_list is set to TRUE.
1656: IF fnd_api.to_boolean (p_init_msg_list)
1657: THEN
1658: fnd_msg_pub.initialize;
1659: END IF;
1660:
1675: THEN
1676: fnd_message.set_name (g_app_name, 'OKS_INVD_CONTRACT_ID');
1677: fnd_message.set_token ('HDR_ID', p_chr_id);
1678: fnd_msg_pub.ADD;
1679: RAISE fnd_api.g_exc_error;
1680: END IF;
1681:
1682: IF fnd_log.level_event >= fnd_log.g_current_runtime_level
1683: THEN
1710: IF l_party_id IS NULL
1711: THEN
1712: fnd_message.set_name (g_app_name, 'OKS_NO_QTO_CONTACT');
1713: fnd_msg_pub.ADD;
1714: RAISE fnd_api.g_exc_error;
1715: END IF;
1716:
1717: -- Get Salesrep user name which will be used as performer
1718: IF fnd_log.level_event >= fnd_log.g_current_runtime_level
1764: END IF;
1765:
1766: IF x_return_status = g_ret_sts_unexp_error
1767: THEN
1768: RAISE fnd_api.g_exc_unexpected_error;
1769: ELSIF x_return_status = g_ret_sts_error
1770: THEN
1771: RAISE fnd_api.g_exc_error;
1772: END IF;
1767: THEN
1768: RAISE fnd_api.g_exc_unexpected_error;
1769: ELSIF x_return_status = g_ret_sts_error
1770: THEN
1771: RAISE fnd_api.g_exc_error;
1772: END IF;
1773:
1774: OPEN l_userres_csr (l_salesrep_id);
1775:
1784: OR l_salesrep_resource_id IS NULL
1785: THEN
1786: fnd_message.set_name (g_app_name, 'OKS_INTERACTION_FAILED');
1787: fnd_msg_pub.ADD;
1788: RAISE fnd_api.g_exc_error;
1789: END IF;
1790:
1791: IF p_subject IS NULL
1792: THEN
1812: IF l_qto_email = okc_api.g_miss_char
1813: THEN
1814: fnd_message.set_name (g_app_name, 'OKS_NO_QTO_EMAIL');
1815: fnd_msg_pub.ADD;
1816: RAISE fnd_api.g_exc_error;
1817: END IF;
1818:
1819: fnd_message.set_token ('TOKEN3', l_qto_email);
1820: ELSE
1892: END IF;
1893:
1894: IF x_return_status = g_ret_sts_unexp_error
1895: THEN
1896: RAISE fnd_api.g_exc_unexpected_error;
1897: ELSIF x_return_status = g_ret_sts_error
1898: THEN
1899: RAISE fnd_api.g_exc_error;
1900: END IF;
1895: THEN
1896: RAISE fnd_api.g_exc_unexpected_error;
1897: ELSIF x_return_status = g_ret_sts_error
1898: THEN
1899: RAISE fnd_api.g_exc_error;
1900: END IF;
1901: EXCEPTION
1902: WHEN fnd_api.g_exc_error
1903: THEN
1898: THEN
1899: RAISE fnd_api.g_exc_error;
1900: END IF;
1901: EXCEPTION
1902: WHEN fnd_api.g_exc_error
1903: THEN
1904: fnd_msg_pub.count_and_get (p_encoded => 'F',
1905: p_count => x_msg_count,
1906: p_data => x_msg_data
1924: );
1925: END IF;
1926:
1927: x_return_status := g_ret_sts_error;
1928: WHEN fnd_api.g_exc_unexpected_error
1929: THEN
1930: fnd_msg_pub.count_and_get (p_encoded => 'F',
1931: p_count => x_msg_count,
1932: p_data => x_msg_data
2258: -- check if the current contract is ONLINE or MANUAL
2259: OKS_WF_K_PROCESS_PVT.is_online_k_yn
2260: (
2261: p_api_version => 1.0,
2262: p_init_msg_list => FND_API.G_FALSE,
2263: p_contract_id => p_chr_id ,
2264: p_item_key => l_item_key ,
2265: x_online_yn => l_online_yn ,
2266: x_return_status => x_return_status,
2518: x_msg_data := get_fnd_message;
2519: END IF;
2520:
2521: EXCEPTION
2522: WHEN FND_API.G_EXC_ERROR THEN
2523: x_is_eligible := 'N';
2524: x_msg_data := get_fnd_message;
2525: WHEN OTHERS THEN
2526: x_is_eligible := 'N';
2567: FND_USER_RESP_GROUPS_API.insert_assignment with responsibility as 'OKS_ERN_WEB'
2568:
2569: ELSE -- l_test_user <> 0 ,3
2570: -- error, raise exception
2571: RAISE FND_API.G_EXC_ERROR;
2572: END IF;
2573:
2574:
2575: CASE B: Record Found in fnd_user
2741: (fnd_file.LOG,
2742: '---------------------------------------------------------- ');
2743: fnd_file.put_line (fnd_file.LOG, ' ');
2744: -- Initialize API return status to success
2745: x_return_status := fnd_api.g_ret_sts_success;
2746:
2747: -- Get the Person Party Id and quote_to_contact_id from oks_k_headers_b
2748: OPEN csr_person_party_id;
2749:
2959:
2960: -- log file
2961: fnd_file.put_line (fnd_file.LOG, 'error in fnd_profile.save ');
2962: fnd_file.put_line (fnd_file.LOG, SQLERRM);
2963: RAISE fnd_api.g_exc_error;
2964: END IF; -- l_return_value
2965: END IF; -- assignment_exists
2966: END IF; -- x_user_name IS NOT NULL THEN
2967:
3267: -- log file
3268: fnd_file.put_line (fnd_file.LOG,
3269: 'error in fnd_profile.save ');
3270: fnd_file.put_line (fnd_file.LOG, SQLERRM);
3271: RAISE fnd_api.g_exc_error;
3272: END IF;
3273: ELSE
3274: -- l_user_id is null, raise exception
3275: -- debug log
3286: -- log file
3287: fnd_file.put_line (fnd_file.LOG,
3288: 'l_user_id is null, raise exception ');
3289: fnd_file.put_line (fnd_file.LOG, SQLERRM);
3290: RAISE fnd_api.g_exc_error;
3291: END IF; -- l_user_id is not null
3292: ELSE -- l_test_user <> 0 ,3
3293: -- error, raise exception
3294: fnd_message.set_name ('OKS', 'OKS_SSO_TEST_USER_ERROR');
3297: -- log file
3298: fnd_file.put_line (fnd_file.LOG, 'OKS_SSO_TEST_USER_ERROR');
3299: fnd_file.put_line (fnd_file.LOG, 'l_test_user: ' ||
3300: l_test_user);
3301: RAISE fnd_api.g_exc_error;
3302: END IF; -- l_test_user check
3303: ELSE -- csr_chk_qtc_fnd_user%FOUND
3304: -- check if the above fnd_user is valid
3305: IF SYSDATE BETWEEN l_start_date AND NVL (l_end_date, SYSDATE +
3373: fnd_msg_pub.ADD;
3374:
3375: -- log file
3376: fnd_file.put_line (fnd_file.LOG, 'OKS_SSO_PERSON_PARTY_ERROR');
3377: RAISE fnd_api.g_exc_error;
3378: END IF; -- person_party_id check
3379:
3380: x_user_name := UPPER (TRIM (p_user_name));
3381: x_password := '******'; -- bug 5357772
3389: fnd_message.set_token ('USER_NAME', UPPER (TRIM (p_user_name)));
3390: fnd_msg_pub.ADD;
3391: -- log file
3392: fnd_file.put_line (fnd_file.LOG, 'OKS_SSO_USER_EXPIRED ');
3393: RAISE fnd_api.g_exc_error;
3394: END IF;
3395: END IF;
3396:
3397: CLOSE csr_chk_qtc_fnd_user;
3425: l_api_name
3426: );
3427: END IF;
3428: EXCEPTION
3429: WHEN fnd_api.g_exc_error
3430: THEN
3431: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
3432: THEN
3433: fnd_log.STRING (fnd_log.level_procedure,
3446: fnd_msg_pub.count_and_get (p_encoded => 'F',
3447: p_count => x_msg_count,
3448: p_data => x_msg_data
3449: );
3450: WHEN fnd_api.g_exc_unexpected_error
3451: THEN
3452: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
3453: THEN
3454: fnd_log.STRING (fnd_log.level_procedure,