1: PACKAGE BODY oks_auto_reminder AS
2: /* $Header: OKSARNWB.pls 120.34 2010/08/26 12:51:04 vgujarat ship $ */
3: g_pkg_name CONSTANT VARCHAR2 (200)
4: := 'OKS_AUTO_REMINDER';
5: g_level_procedure CONSTANT NUMBER := fnd_log.level_procedure;
6: g_module CONSTANT VARCHAR2 (250)
7: := 'oks.plsql.' ||
8: g_pkg_name ||
9: '.';
414: l_row_notfound BOOLEAN := TRUE;
415: --
416: BEGIN
417: -- start debug log
418: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
419: THEN
420: fnd_log.STRING (fnd_log.level_procedure,
421: g_module ||
422: l_api_name,
416: BEGIN
417: -- start debug log
418: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
419: THEN
420: fnd_log.STRING (fnd_log.level_procedure,
421: g_module ||
422: l_api_name,
423: '100: Entered ' ||
424: g_pkg_name ||
586: END IF; -- person_party_id check
587: END IF; -- IF l_row_notfound
588:
589: -- end debug log
590: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
591: THEN
592: fnd_log.STRING (fnd_log.level_procedure,
593: g_module ||
594: l_api_name,
588:
589: -- end debug log
590: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
591: THEN
592: fnd_log.STRING (fnd_log.level_procedure,
593: g_module ||
594: l_api_name,
595: '1000: Leaving ' ||
596: g_pkg_name ||
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,
607: g_module ||
608: l_api_name,
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,
607: g_module ||
608: l_api_name,
609: '2000: Leaving ' ||
610: g_pkg_name ||
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,
622: g_module ||
623: l_api_name,
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,
622: g_module ||
623: l_api_name,
624: '3000: Leaving ' ||
625: g_pkg_name ||
630:
631: x_return_status := g_ret_sts_unexp_error;
632: WHEN OTHERS
633: THEN
634: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
635: THEN
636: fnd_log.STRING (fnd_log.level_procedure,
637: g_module ||
638: l_api_name,
632: WHEN OTHERS
633: THEN
634: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
635: THEN
636: fnd_log.STRING (fnd_log.level_procedure,
637: g_module ||
638: l_api_name,
639: '4000: Leaving ' ||
640: g_pkg_name ||
671: OPEN csr_k_ste_code;
672: FETCH csr_k_ste_code INTO l_ste_code;
673: CLOSE csr_k_ste_code;
674:
675: IF fnd_log.level_procedure >= fnd_log.g_current_runtime_level THEN
676: fnd_log.STRING (fnd_log.level_procedure,
677: g_module ||l_api_name,
678: 'l_ste_code : ' ||l_ste_code||
679: ' (p_chr_id=> ' ||p_chr_id ||
672: FETCH csr_k_ste_code INTO l_ste_code;
673: CLOSE csr_k_ste_code;
674:
675: IF fnd_log.level_procedure >= fnd_log.g_current_runtime_level THEN
676: fnd_log.STRING (fnd_log.level_procedure,
677: g_module ||l_api_name,
678: 'l_ste_code : ' ||l_ste_code||
679: ' (p_chr_id=> ' ||p_chr_id ||
680: ' p_status=>' ||p_status ||')'
756:
757: /*added for bug6651207*/
758: l_status_code := get_status(p_status);
759:
760: IF fnd_log.level_procedure >= fnd_log.g_current_runtime_level
761: THEN
762: fnd_log.STRING (fnd_log.level_procedure,
763: g_module ||
764: l_api_name,
758: l_status_code := get_status(p_status);
759:
760: IF fnd_log.level_procedure >= fnd_log.g_current_runtime_level
761: THEN
762: fnd_log.STRING (fnd_log.level_procedure,
763: g_module ||
764: l_api_name,
765: 'Entered ' ||
766: g_pkg_name ||
781: l_chrv_rec.sts_code := p_status;
782:
783:
784:
785: IF fnd_log.level_event >= fnd_log.g_current_runtime_level
786: THEN
787: fnd_log.STRING
788: (fnd_log.level_event,
789: g_module ||
783:
784:
785: IF fnd_log.level_event >= fnd_log.g_current_runtime_level
786: THEN
787: fnd_log.STRING
788: (fnd_log.level_event,
789: g_module ||
790: l_api_name ||
791: '.external_call.before',
784:
785: IF fnd_log.level_event >= fnd_log.g_current_runtime_level
786: THEN
787: fnd_log.STRING
788: (fnd_log.level_event,
789: g_module ||
790: l_api_name ||
791: '.external_call.before',
792: 'OKC_CONTRACT_PUB.update_contract_header(p_chr_id=' ||
847: x_chrv_rec => x_chrv_rec
848: );
849: END IF;
850:
851: IF fnd_log.level_event >= fnd_log.g_current_runtime_level
852: THEN
853: fnd_log.STRING
854: (fnd_log.level_event,
855: g_module ||
849: END IF;
850:
851: IF fnd_log.level_event >= fnd_log.g_current_runtime_level
852: THEN
853: fnd_log.STRING
854: (fnd_log.level_event,
855: g_module ||
856: l_api_name ||
857: '.external_call.after',
850:
851: IF fnd_log.level_event >= fnd_log.g_current_runtime_level
852: THEN
853: fnd_log.STRING
854: (fnd_log.level_event,
855: g_module ||
856: l_api_name ||
857: '.external_call.after',
858: 'OKC_CONTRACT_PUB.update_contract_header(x_return_status= ' ||
870: THEN
871: RAISE fnd_api.g_exc_error;
872: END IF;
873:
874: IF fnd_log.level_event >= fnd_log.g_current_runtime_level
875: THEN
876: fnd_log.STRING (fnd_log.level_event,
877: g_module ||
878: l_api_name ||
872: END IF;
873:
874: IF fnd_log.level_event >= fnd_log.g_current_runtime_level
875: THEN
876: fnd_log.STRING (fnd_log.level_event,
877: g_module ||
878: l_api_name ||
879: '.external_call.before',
880: 'OKC_CONTRACT_PUB.update_contract_line - Loop begin'
888: FOR l_lines_rec IN l_lines_entered_csr
889: LOOP
890: l_clev_rec.ID := l_lines_rec.ID;
891:
892: IF fnd_log.level_event >= fnd_log.g_current_runtime_level
893: THEN
894: fnd_log.STRING (fnd_log.level_event,
895: g_module ||
896: l_api_name,
890: l_clev_rec.ID := l_lines_rec.ID;
891:
892: IF fnd_log.level_event >= fnd_log.g_current_runtime_level
893: THEN
894: fnd_log.STRING (fnd_log.level_event,
895: g_module ||
896: l_api_name,
897: 'Updating line: ' ||
898: l_lines_rec.ID
909: p_clev_rec => l_clev_rec,
910: x_clev_rec => x_clev_rec
911: );
912:
913: IF fnd_log.level_event >= fnd_log.g_current_runtime_level
914: THEN
915: fnd_log.STRING (fnd_log.level_event,
916: g_module ||
917: l_api_name,
911: );
912:
913: IF fnd_log.level_event >= fnd_log.g_current_runtime_level
914: THEN
915: fnd_log.STRING (fnd_log.level_event,
916: g_module ||
917: l_api_name,
918: 'Result: ' ||
919: l_return_status
933: LOOP
934: l_clev_rec.ID := l_lines_rec.ID;
935:
936:
937: IF fnd_log.level_event >= fnd_log.g_current_runtime_level
938: THEN
939: fnd_log.STRING (fnd_log.level_event,
940: g_module ||
941: l_api_name,
935:
936:
937: IF fnd_log.level_event >= fnd_log.g_current_runtime_level
938: THEN
939: fnd_log.STRING (fnd_log.level_event,
940: g_module ||
941: l_api_name,
942: 'Updating line: ' ||
943: l_lines_rec.ID
974: p_clev_rec => l_clev_rec,
975: x_clev_rec => x_clev_rec
976: );
977: END IF;
978: IF fnd_log.level_event >= fnd_log.g_current_runtime_level
979: THEN
980: fnd_log.STRING (fnd_log.level_event,
981: g_module ||
982: l_api_name,
976: );
977: END IF;
978: IF fnd_log.level_event >= fnd_log.g_current_runtime_level
979: THEN
980: fnd_log.STRING (fnd_log.level_event,
981: g_module ||
982: l_api_name,
983: 'Result: ' ||
984: l_return_status
994: END IF;
995: END LOOP;
996: END IF; /*IF NVL(l_status_code,'X') = 'ENTERED' THEN*/
997:
998: IF fnd_log.level_event >= fnd_log.g_current_runtime_level
999: THEN
1000: fnd_log.STRING (fnd_log.level_event,
1001: g_module ||
1002: l_api_name ||
996: END IF; /*IF NVL(l_status_code,'X') = 'ENTERED' THEN*/
997:
998: IF fnd_log.level_event >= fnd_log.g_current_runtime_level
999: THEN
1000: fnd_log.STRING (fnd_log.level_event,
1001: g_module ||
1002: l_api_name ||
1003: '.external_call.after',
1004: 'OKC_CONTRACT_PUB.update_contract_line - loop end'
1011: p_count => l_msg_count,
1012: p_data => l_msg_data
1013: );
1014:
1015: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
1016: THEN
1017: fnd_log.STRING (fnd_log.level_procedure,
1018: g_module ||
1019: l_api_name,
1013: );
1014:
1015: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
1016: THEN
1017: fnd_log.STRING (fnd_log.level_procedure,
1018: g_module ||
1019: l_api_name,
1020: 'Leaving ' ||
1021: g_pkg_name ||
1022: '.' ||
1023: l_api_name ||
1024: ' from G_EXC_ERROR'
1025: );
1026: fnd_log.STRING (fnd_log.level_procedure,
1027: g_module ||
1028: l_api_name,
1029: l_msg_data
1030: );
1037: p_count => l_msg_count,
1038: p_data => l_msg_data
1039: );
1040:
1041: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
1042: THEN
1043: fnd_log.STRING (fnd_log.level_procedure,
1044: g_module ||
1045: l_api_name,
1039: );
1040:
1041: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
1042: THEN
1043: fnd_log.STRING (fnd_log.level_procedure,
1044: g_module ||
1045: l_api_name,
1046: 'Leaving ' ||
1047: g_pkg_name ||
1048: '.' ||
1049: l_api_name ||
1050: ' from G_EXC_UNEXPECTED_ERROR'
1051: );
1052: fnd_log.STRING (fnd_log.level_procedure,
1053: g_module ||
1054: l_api_name,
1055: l_msg_data
1056: );
1058:
1059: x_return_status := g_ret_sts_unexp_error;
1060: WHEN OTHERS
1061: THEN
1062: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
1063: THEN
1064: fnd_log.STRING (fnd_log.level_procedure,
1065: g_module ||
1066: l_api_name,
1060: WHEN OTHERS
1061: THEN
1062: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
1063: THEN
1064: fnd_log.STRING (fnd_log.level_procedure,
1065: g_module ||
1066: l_api_name,
1067: 'Leaving ' ||
1068: g_pkg_name ||
1698: l_interaction_body VARCHAR2 (2000);
1699: l_interaction_id NUMBER;
1700: l_kdetails_rec l_kdetails_csr%ROWTYPE;
1701: BEGIN
1702: IF fnd_log.level_procedure >= fnd_log.g_current_runtime_level
1703: THEN
1704: fnd_log.STRING (fnd_log.level_procedure,
1705: g_module ||
1706: l_api_name,
1700: l_kdetails_rec l_kdetails_csr%ROWTYPE;
1701: BEGIN
1702: IF fnd_log.level_procedure >= fnd_log.g_current_runtime_level
1703: THEN
1704: fnd_log.STRING (fnd_log.level_procedure,
1705: g_module ||
1706: l_api_name,
1707: 'Entered ' ||
1708: g_pkg_name ||
1755: fnd_msg_pub.ADD;
1756: RAISE fnd_api.g_exc_error;
1757: END IF;
1758:
1759: IF fnd_log.level_event >= fnd_log.g_current_runtime_level
1760: THEN
1761: fnd_log.STRING (fnd_log.level_event,
1762: g_module ||
1763: l_api_name ||
1757: END IF;
1758:
1759: IF fnd_log.level_event >= fnd_log.g_current_runtime_level
1760: THEN
1761: fnd_log.STRING (fnd_log.level_event,
1762: g_module ||
1763: l_api_name ||
1764: '.external_call.before',
1765: 'OKS_AUTO_REMINDER.get_qtoparty_id(p_chr_id= ' ||
1771: -- Get the party ID for logging interaction history
1772: oks_auto_reminder.get_qtoparty_id (p_chr_id => p_chr_id,
1773: x_party_id => l_party_id);
1774:
1775: IF fnd_log.level_event >= fnd_log.g_current_runtime_level
1776: THEN
1777: fnd_log.STRING (fnd_log.level_event,
1778: g_module ||
1779: l_api_name ||
1773: x_party_id => l_party_id);
1774:
1775: IF fnd_log.level_event >= fnd_log.g_current_runtime_level
1776: THEN
1777: fnd_log.STRING (fnd_log.level_event,
1778: g_module ||
1779: l_api_name ||
1780: '.external_call.after',
1781: 'OKS_AUTO_REMINDER.get_qtoparty_id(x_party_id= ' ||
1791: RAISE fnd_api.g_exc_error;
1792: END IF;
1793:
1794: -- Get Salesrep user name which will be used as performer
1795: IF fnd_log.level_event >= fnd_log.g_current_runtime_level
1796: THEN
1797: fnd_log.STRING (fnd_log.level_event,
1798: g_module ||
1799: l_api_name ||
1793:
1794: -- Get Salesrep user name which will be used as performer
1795: IF fnd_log.level_event >= fnd_log.g_current_runtime_level
1796: THEN
1797: fnd_log.STRING (fnd_log.level_event,
1798: g_module ||
1799: l_api_name ||
1800: '.external_call.before',
1801: 'OKS_RENEW_CONTRACT_PVT.GET_USER_NAME(p_chr_id=' ||
1815: x_user_id => l_salesrep_id,
1816: x_user_name => l_salesrep_name
1817: );
1818:
1819: IF fnd_log.level_event >= fnd_log.g_current_runtime_level
1820: THEN
1821: fnd_log.STRING
1822: (fnd_log.level_event,
1823: g_module ||
1817: );
1818:
1819: IF fnd_log.level_event >= fnd_log.g_current_runtime_level
1820: THEN
1821: fnd_log.STRING
1822: (fnd_log.level_event,
1823: g_module ||
1824: l_api_name ||
1825: '.external_call.after',
1818:
1819: IF fnd_log.level_event >= fnd_log.g_current_runtime_level
1820: THEN
1821: fnd_log.STRING
1822: (fnd_log.level_event,
1823: g_module ||
1824: l_api_name ||
1825: '.external_call.after',
1826: 'OKS_RENEW_CONTRACT_PVT.GET_USER_NAME(x_return_status= ' ||
1828: ' x_msg_count =' ||
1829: x_msg_count ||
1830: ')'
1831: );
1832: fnd_log.STRING (fnd_log.level_event,
1833: g_module ||
1834: l_api_name ||
1835: '.external_call.after',
1836: ' x_user_id =' ||
1902: ELSE
1903: l_interaction_body := p_msg_body;
1904: END IF;
1905:
1906: IF fnd_log.level_event >= fnd_log.g_current_runtime_level
1907: THEN
1908: fnd_log.STRING
1909: (fnd_log.level_event,
1910: g_module ||
1904: END IF;
1905:
1906: IF fnd_log.level_event >= fnd_log.g_current_runtime_level
1907: THEN
1908: fnd_log.STRING
1909: (fnd_log.level_event,
1910: g_module ||
1911: l_api_name ||
1912: '.external_call.before',
1905:
1906: IF fnd_log.level_event >= fnd_log.g_current_runtime_level
1907: THEN
1908: fnd_log.STRING
1909: (fnd_log.level_event,
1910: g_module ||
1911: l_api_name ||
1912: '.external_call.before',
1913: 'OKC_INTERACT_HISTORY_PUB.CREATE_INTERACT_HISTORY(p_chr_id=' ||
1950: p_notes => l_subject,
1951: p_notes_detail => l_interaction_body
1952: );
1953:
1954: IF fnd_log.level_event >= fnd_log.g_current_runtime_level
1955: THEN
1956: fnd_log.STRING
1957: (fnd_log.level_event,
1958: g_module ||
1952: );
1953:
1954: IF fnd_log.level_event >= fnd_log.g_current_runtime_level
1955: THEN
1956: fnd_log.STRING
1957: (fnd_log.level_event,
1958: g_module ||
1959: l_api_name ||
1960: '.external_call.after',
1953:
1954: IF fnd_log.level_event >= fnd_log.g_current_runtime_level
1955: THEN
1956: fnd_log.STRING
1957: (fnd_log.level_event,
1958: g_module ||
1959: l_api_name ||
1960: '.external_call.after',
1961: 'OKC_INTERACT_HISTORY_PUB.CREATE_INTERACT_HISTORY(x_return_status= ' ||
1982: p_count => x_msg_count,
1983: p_data => x_msg_data
1984: );
1985:
1986: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
1987: THEN
1988: fnd_log.STRING (fnd_log.level_procedure,
1989: g_module ||
1990: l_api_name,
1984: );
1985:
1986: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
1987: THEN
1988: fnd_log.STRING (fnd_log.level_procedure,
1989: g_module ||
1990: l_api_name,
1991: 'Leaving ' ||
1992: g_pkg_name ||
1993: '.' ||
1994: l_api_name ||
1995: ' from G_EXC_ERROR'
1996: );
1997: fnd_log.STRING (fnd_log.level_procedure,
1998: g_module ||
1999: l_api_name,
2000: x_msg_data
2001: );
2008: p_count => x_msg_count,
2009: p_data => x_msg_data
2010: );
2011:
2012: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
2013: THEN
2014: fnd_log.STRING (fnd_log.level_procedure,
2015: g_module ||
2016: l_api_name,
2010: );
2011:
2012: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
2013: THEN
2014: fnd_log.STRING (fnd_log.level_procedure,
2015: g_module ||
2016: l_api_name,
2017: 'Leaving ' ||
2018: g_pkg_name ||
2019: '.' ||
2020: l_api_name ||
2021: ' from G_EXC_UNEXPECTED_ERROR'
2022: );
2023: fnd_log.STRING (fnd_log.level_procedure,
2024: g_module ||
2025: l_api_name,
2026: x_msg_data
2027: );
2029:
2030: x_return_status := g_ret_sts_unexp_error;
2031: WHEN OTHERS
2032: THEN
2033: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
2034: THEN
2035: fnd_log.STRING (fnd_log.level_procedure,
2036: g_module ||
2037: l_api_name,
2031: WHEN OTHERS
2032: THEN
2033: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
2034: THEN
2035: fnd_log.STRING (fnd_log.level_procedure,
2036: g_module ||
2037: l_api_name,
2038: 'Leaving ' ||
2039: g_pkg_name ||
2266: -- Contract is eligibile for a reminder or cancellation notice
2267: x_is_eligible := 'Y';
2268: x_return_status := g_ret_sts_success;
2269:
2270: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2271: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
2272: 'Entered with p_chr_id '||p_chr_id);
2273: END IF;
2274: -- Initialize message stack
2267: x_is_eligible := 'Y';
2268: x_return_status := g_ret_sts_success;
2269:
2270: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2271: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
2272: 'Entered with p_chr_id '||p_chr_id);
2273: END IF;
2274: -- Initialize message stack
2275: FND_MSG_PUB.initialize;
2293: END IF;
2294:
2295: -- STEP 1: Check for active workflow processes
2296: IF x_is_eligible = 'Y' THEN
2297: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2298: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.before',
2299: 'okc_contract_pub.get_active_process(p_contract_number= '||
2300: l_k_details_rec.contract_number||
2301: ' p_contract_number_modifier ='||l_k_details_rec.contract_number_modifier||')');
2294:
2295: -- STEP 1: Check for active workflow processes
2296: IF x_is_eligible = 'Y' THEN
2297: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2298: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.before',
2299: 'okc_contract_pub.get_active_process(p_contract_number= '||
2300: l_k_details_rec.contract_number||
2301: ' p_contract_number_modifier ='||l_k_details_rec.contract_number_modifier||')');
2302: END IF;
2314: x_package_name => l_package_name,
2315: x_procedure_name => l_procedure_name,
2316: x_usage => l_usage
2317: );
2318: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2319: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.after',
2320: 'okc_contract_pub.get_active_process(x_return_status= '||x_return_status||
2321: ' x_msg_count ='||x_msg_count||')');
2322: END IF;
2315: x_procedure_name => l_procedure_name,
2316: x_usage => l_usage
2317: );
2318: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2319: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.after',
2320: 'okc_contract_pub.get_active_process(x_return_status= '||x_return_status||
2321: ' x_msg_count ='||x_msg_count||')');
2322: END IF;
2323:
2347: OPEN csr_k_hdr_details;
2348: FETCH csr_k_hdr_details INTO l_applies_to, l_item_key;
2349: CLOSE csr_k_hdr_details;
2350:
2351: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2352: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.before',
2353: 'OKS_WF_K_PROCESS_PVT.is_online_k_yn(p_contract_id= '||p_chr_id||
2354: ' p_item_key ='||l_item_key||')');
2355: END IF;
2348: FETCH csr_k_hdr_details INTO l_applies_to, l_item_key;
2349: CLOSE csr_k_hdr_details;
2350:
2351: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2352: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.before',
2353: 'OKS_WF_K_PROCESS_PVT.is_online_k_yn(p_contract_id= '||p_chr_id||
2354: ' p_item_key ='||l_item_key||')');
2355: END IF;
2356: -- check if the current contract is ONLINE or MANUAL
2364: x_return_status => x_return_status,
2365: x_msg_count => x_msg_count,
2366: x_msg_data => x_msg_data
2367: );
2368: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2369: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.after',
2370: 'OKS_WF_K_PROCESS_PVT.is_online_k_yn(x_return_status= '||x_return_status||
2371: ' x_msg_count ='||x_msg_count||'l_online_yn '||l_online_yn||')');
2372: END IF;
2365: x_msg_count => x_msg_count,
2366: x_msg_data => x_msg_data
2367: );
2368: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2369: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.after',
2370: 'OKS_WF_K_PROCESS_PVT.is_online_k_yn(x_return_status= '||x_return_status||
2371: ' x_msg_count ='||x_msg_count||'l_online_yn '||l_online_yn||')');
2372: END IF;
2373: --- If any errors happen treat it as online K
2382: l_process_code := 'M';
2383: END IF;
2384:
2385: BEGIN
2386: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2387: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.before',
2388: 'oks_renew_util_pub.get_template_set_id(p_contract_id= '||
2389: l_k_details_rec.ID||')');
2390: END IF;
2383: END IF;
2384:
2385: BEGIN
2386: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2387: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.before',
2388: 'oks_renew_util_pub.get_template_set_id(p_contract_id= '||
2389: l_k_details_rec.ID||')');
2390: END IF;
2391:
2390: END IF;
2391:
2392: l_template_set_id := oks_renew_util_pub.get_template_set_id(l_k_details_rec.ID);
2393:
2394: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2395: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.after',
2396: 'oks_renew_util_pub.get_template_set_id(x_template_set_id= '||
2397: l_template_set_id||')');
2398: END IF;
2391:
2392: l_template_set_id := oks_renew_util_pub.get_template_set_id(l_k_details_rec.ID);
2393:
2394: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2395: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.after',
2396: 'oks_renew_util_pub.get_template_set_id(x_template_set_id= '||
2397: l_template_set_id||')');
2398: END IF;
2399: IF l_template_set_id IS NULL THEN
2414: IF l_template_set_id IS NOT NULL AND x_is_eligible = 'Y' THEN
2415: l_duration := TRUNC (SYSDATE) - TRUNC (l_k_details_rec.start_date);
2416: l_period := oks_time_measures_pub.get_uom_code ('DAY', 1);
2417:
2418: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2419: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
2420: 'l_duration: ' ||l_duration||' l_period: '||l_period );
2421: END IF;
2422:
2415: l_duration := TRUNC (SYSDATE) - TRUNC (l_k_details_rec.start_date);
2416: l_period := oks_time_measures_pub.get_uom_code ('DAY', 1);
2417:
2418: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2419: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
2420: 'l_duration: ' ||l_duration||' l_period: '||l_period );
2421: END IF;
2422:
2423: -- If there is an error getting the duration skip this contract
2442: CLOSE l_reportmatch_csr;
2443: ELSE -- Straight match not found
2444: CLOSE l_reportmatch_csr;
2445:
2446: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2447: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
2448: 'Exact match not found; continue search by converting ');
2449: END IF;
2450: -- Now trying to convert and look for match
2443: ELSE -- Straight match not found
2444: CLOSE l_reportmatch_csr;
2445:
2446: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2447: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
2448: 'Exact match not found; continue search by converting ');
2449: END IF;
2450: -- Now trying to convert and look for match
2451: FOR l_reports_rec IN l_reports_csr (l_template_set_id,
2502: x_status := l_duration_rec.sts_code;
2503: END IF;
2504: CLOSE l_duration_csr;
2505: END IF; -- Get Duration Status check
2506: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2507: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
2508: 'x_cover_id: ' ||x_cover_id);
2509: END IF;
2510:
2503: END IF;
2504: CLOSE l_duration_csr;
2505: END IF; -- Get Duration Status check
2506: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2507: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
2508: 'x_cover_id: ' ||x_cover_id);
2509: END IF;
2510:
2511: IF NVL(x_quote_id, x_cover_id) IS NULL THEN
2518:
2519: -- STEP 4: Get Quote to contact email address
2520: IF NVL(x_quote_id, x_cover_id) IS NOT NULL AND x_is_eligible = 'Y' THEN
2521: BEGIN
2522: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2523: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.before',
2524: 'oks_auto_reminder.get_qto_email(p_chr_id= '||
2525: l_k_details_rec.ID||')');
2526: END IF;
2519: -- STEP 4: Get Quote to contact email address
2520: IF NVL(x_quote_id, x_cover_id) IS NOT NULL AND x_is_eligible = 'Y' THEN
2521: BEGIN
2522: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2523: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.before',
2524: 'oks_auto_reminder.get_qto_email(p_chr_id= '||
2525: l_k_details_rec.ID||')');
2526: END IF;
2527: oks_auto_reminder.get_qto_email
2528: (
2529: p_chr_id => l_k_details_rec.ID,
2530: x_qto_email => x_qto_email
2531: );
2532: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2533: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.after',
2534: 'oks_auto_reminder.get_qto_email(x_qto_email= '||
2535: x_qto_email||')');
2536: END IF;
2529: p_chr_id => l_k_details_rec.ID,
2530: x_qto_email => x_qto_email
2531: );
2532: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2533: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE||l_api_name||'.external_call.after',
2534: 'oks_auto_reminder.get_qto_email(x_qto_email= '||
2535: x_qto_email||')');
2536: END IF;
2537: IF x_qto_email IS NULL OR x_qto_email = okc_api.g_miss_char THEN
2548: END IF;
2549:
2550: -- STEP 5: Get Sender email address
2551: IF x_is_eligible = 'Y' THEN
2552: IF fnd_log.level_event >= fnd_log.g_current_runtime_level THEN
2553: fnd_log.STRING(fnd_log.level_event,g_module ||l_api_name ||
2554: '.external_call.before',
2555: 'OKS_RENEW_CONTRACT_PVT.GET_USER_NAME(p_chr_id=' ||
2556: l_k_details_rec.ID ||')');
2549:
2550: -- STEP 5: Get Sender email address
2551: IF x_is_eligible = 'Y' THEN
2552: IF fnd_log.level_event >= fnd_log.g_current_runtime_level THEN
2553: fnd_log.STRING(fnd_log.level_event,g_module ||l_api_name ||
2554: '.external_call.before',
2555: 'OKS_RENEW_CONTRACT_PVT.GET_USER_NAME(p_chr_id=' ||
2556: l_k_details_rec.ID ||')');
2557: END IF;
2566: p_hdesk_user_id => NULL,
2567: x_user_id => l_salesrep_id,
2568: x_user_name => l_salesrep_name
2569: );
2570: IF fnd_log.level_event >= fnd_log.g_current_runtime_level THEN
2571: fnd_log.STRING(fnd_log.level_event,g_module ||l_api_name ||
2572: '.external_call.after',
2573: 'OKS_RENEW_CONTRACT_PVT.GET_USER_NAME(x_return_status= ' ||
2574: x_return_status ||' x_msg_count ='||x_msg_count||')');
2567: x_user_id => l_salesrep_id,
2568: x_user_name => l_salesrep_name
2569: );
2570: IF fnd_log.level_event >= fnd_log.g_current_runtime_level THEN
2571: fnd_log.STRING(fnd_log.level_event,g_module ||l_api_name ||
2572: '.external_call.after',
2573: 'OKS_RENEW_CONTRACT_PVT.GET_USER_NAME(x_return_status= ' ||
2574: x_return_status ||' x_msg_count ='||x_msg_count||')');
2575: fnd_log.STRING (fnd_log.level_event,g_module ||l_api_name ||
2571: fnd_log.STRING(fnd_log.level_event,g_module ||l_api_name ||
2572: '.external_call.after',
2573: 'OKS_RENEW_CONTRACT_PVT.GET_USER_NAME(x_return_status= ' ||
2574: x_return_status ||' x_msg_count ='||x_msg_count||')');
2575: fnd_log.STRING (fnd_log.level_event,g_module ||l_api_name ||
2576: '.external_call.after',' x_user_id =' ||l_salesrep_id ||
2577: ' x_user_name =' ||l_salesrep_name);
2578: END IF;
2579:
2582: OPEN l_user_email_csr (l_salesrep_id);
2583: FETCH l_user_email_csr INTO x_sender;
2584: CLOSE l_user_email_csr;
2585: END IF;
2586: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2587: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
2588: 'x_sender: ' ||x_sender);
2589: END IF;
2590: IF x_sender IS NULL THEN
2583: FETCH l_user_email_csr INTO x_sender;
2584: CLOSE l_user_email_csr;
2585: END IF;
2586: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2587: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
2588: 'x_sender: ' ||x_sender);
2589: END IF;
2590: IF x_sender IS NULL THEN
2591: x_is_eligible := 'N';
2638: l_api_name CONSTANT VARCHAR2(30) := 'set_user_home_page';
2639: l_return_value BOOLEAN;
2640: BEGIN
2641:
2642: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2643: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
2644: 'Entered '||G_PKG_NAME ||'.'||l_api_name );
2645: END IF;
2646:
2639: l_return_value BOOLEAN;
2640: BEGIN
2641:
2642: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2643: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
2644: 'Entered '||G_PKG_NAME ||'.'||l_api_name );
2645: END IF;
2646:
2647: l_return_value := fnd_profile.SAVE (x_name => 'APPLICATIONS_HOME_PAGE',
2652:
2653: IF l_return_value THEN
2654: COMMIT;
2655: END IF;
2656: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2657: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
2658: 'Leaving '||G_PKG_NAME ||'.'||l_api_name);
2659: END IF;
2660: RETURN l_return_value;
2653: IF l_return_value THEN
2654: COMMIT;
2655: END IF;
2656: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2657: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,G_MODULE||l_api_name,
2658: 'Leaving '||G_PKG_NAME ||'.'||l_api_name);
2659: END IF;
2660: RETURN l_return_value;
2661: EXCEPTION
2659: END IF;
2660: RETURN l_return_value;
2661: EXCEPTION
2662: WHEN OTHERS THEN
2663: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2664: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
2665: 'Entered exception section'||G_PKG_NAME ||'.'||l_api_name );
2666: END IF;
2667: RETURN FALSE;
2660: RETURN l_return_value;
2661: EXCEPTION
2662: WHEN OTHERS THEN
2663: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2664: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
2665: 'Entered exception section'||G_PKG_NAME ||'.'||l_api_name );
2666: END IF;
2667: RETURN FALSE;
2668: END;
2846: l_result VARCHAR2(10);
2847: v_counter NUMBER := 1;
2848: BEGIN
2849: -- start debug log
2850: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
2851: THEN
2852: fnd_log.STRING (fnd_log.level_procedure,
2853: g_module ||
2854: l_api_name,
2848: BEGIN
2849: -- start debug log
2850: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
2851: THEN
2852: fnd_log.STRING (fnd_log.level_procedure,
2853: g_module ||
2854: l_api_name,
2855: '100: Entered ' ||
2856: g_pkg_name ||
2856: g_pkg_name ||
2857: '.' ||
2858: l_api_name
2859: );
2860: fnd_log.STRING (fnd_log.level_procedure,
2861: g_module ||
2862: l_api_name,
2863: '100: Parameter p_user_name : ' ||
2864: p_user_name
2862: l_api_name,
2863: '100: Parameter p_user_name : ' ||
2864: p_user_name
2865: );
2866: fnd_log.STRING (fnd_log.level_procedure,
2867: g_module ||
2868: l_api_name,
2869: '100: p_contract_id : ' ||
2870: p_contract_id
2898:
2899: CLOSE csr_person_party_id;
2900:
2901: -- debug log
2902: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
2903: THEN
2904: fnd_log.STRING (fnd_log.level_procedure,
2905: g_module ||
2906: l_api_name,
2900:
2901: -- debug log
2902: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
2903: THEN
2904: fnd_log.STRING (fnd_log.level_procedure,
2905: g_module ||
2906: l_api_name,
2907: '110: l_person_party_id : ' ||
2908: l_person_party_id
2906: l_api_name,
2907: '110: l_person_party_id : ' ||
2908: l_person_party_id
2909: );
2910: fnd_log.STRING (fnd_log.level_procedure,
2911: g_module ||
2912: l_api_name,
2913: '110: l_quote_to_contact_id : ' ||
2914: l_quote_to_contact_id
2934:
2935: CLOSE csr_qtc_person_party_id;
2936:
2937: -- debug log
2938: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
2939: THEN
2940: fnd_log.STRING
2941: (fnd_log.level_procedure,
2942: g_module ||
2936:
2937: -- debug log
2938: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
2939: THEN
2940: fnd_log.STRING
2941: (fnd_log.level_procedure,
2942: g_module ||
2943: l_api_name,
2944: '120: l_person_party_id for quote to contact: ' ||
2937: -- debug log
2938: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
2939: THEN
2940: fnd_log.STRING
2941: (fnd_log.level_procedure,
2942: g_module ||
2943: l_api_name,
2944: '120: l_person_party_id for quote to contact: ' ||
2945: l_person_party_id
2983:
2984: CLOSE csr_check_fnd_user_exists;
2985:
2986: -- debug log
2987: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
2988: THEN
2989: fnd_log.STRING (fnd_log.level_procedure,
2990: g_module ||
2991: l_api_name,
2985:
2986: -- debug log
2987: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
2988: THEN
2989: fnd_log.STRING (fnd_log.level_procedure,
2990: g_module ||
2991: l_api_name,
2992: '130: l_user_id : ' ||
2993: l_user_id
2991: l_api_name,
2992: '130: l_user_id : ' ||
2993: l_user_id
2994: );
2995: fnd_log.STRING (fnd_log.level_procedure,
2996: g_module ||
2997: l_api_name,
2998: '130: x_user_name : ' ||
2999: x_user_name
2997: l_api_name,
2998: '130: x_user_name : ' ||
2999: x_user_name
3000: );
3001: fnd_log.STRING (fnd_log.level_procedure,
3002: g_module ||
3003: l_api_name,
3004: '130: x_password : ' ||
3005: x_password
3093: RETURN;
3094: ELSE
3095: -- error in fnd_profile.save
3096: -- debug log
3097: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level
3098: )
3099: THEN
3100: fnd_log.STRING (fnd_log.level_procedure,
3101: g_module ||
3096: -- debug log
3097: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level
3098: )
3099: THEN
3100: fnd_log.STRING (fnd_log.level_procedure,
3101: g_module ||
3102: l_api_name,
3103: '135: error in fnd_profile.save : '
3104: );
3123: l_end_date,
3124: x_password;
3125:
3126: -- debug log
3127: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
3128: THEN
3129: fnd_log.STRING (fnd_log.level_procedure,
3130: g_module ||
3131: l_api_name,
3125:
3126: -- debug log
3127: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
3128: THEN
3129: fnd_log.STRING (fnd_log.level_procedure,
3130: g_module ||
3131: l_api_name,
3132: '140: l_fnd_person_party_id : ' ||
3133: l_fnd_person_party_id
3131: l_api_name,
3132: '140: l_fnd_person_party_id : ' ||
3133: l_fnd_person_party_id
3134: );
3135: fnd_log.STRING (fnd_log.level_procedure,
3136: g_module ||
3137: l_api_name,
3138: '140: l_start_date : ' ||
3139: l_start_date
3137: l_api_name,
3138: '140: l_start_date : ' ||
3139: l_start_date
3140: );
3141: fnd_log.STRING (fnd_log.level_procedure,
3142: g_module ||
3143: l_api_name,
3144: '140: l_end_date : ' ||
3145: l_end_date
3143: l_api_name,
3144: '140: l_end_date : ' ||
3145: l_end_date
3146: );
3147: fnd_log.STRING (fnd_log.level_procedure,
3148: g_module ||
3149: l_api_name,
3150: '140: x_password : ' ||
3151: x_password
3189: (fnd_file.LOG,
3190: 'Suggested username : '||l_suggested_user_name);
3191:
3192: -- debug log
3193: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
3194: THEN
3195: fnd_log.STRING (fnd_log.level_procedure,
3196: g_module ||
3197: l_api_name,
3191:
3192: -- debug log
3193: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
3194: THEN
3195: fnd_log.STRING (fnd_log.level_procedure,
3196: g_module ||
3197: l_api_name,
3198: '145: l_suggested_user_name from UMX_PUB.get_suggested_username : ' ||
3199: l_suggested_user_name
3205: l_suggested_user_name := UPPER(TRIM(p_user_name));
3206: END IF;
3207:
3208: -- debug log
3209: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
3210: THEN
3211: fnd_log.STRING (fnd_log.level_procedure,
3212: g_module ||
3213: l_api_name,
3207:
3208: -- debug log
3209: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
3210: THEN
3211: fnd_log.STRING (fnd_log.level_procedure,
3212: g_module ||
3213: l_api_name,
3214: '146: l_suggested_user_name : ' ||
3215: l_suggested_user_name
3224: fnd_user_pkg.testusername
3225: (x_user_name => l_suggested_user_name);
3226:
3227: -- debug log
3228: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
3229: THEN
3230: fnd_log.STRING (fnd_log.level_procedure,
3231: g_module ||
3232: l_api_name,
3226:
3227: -- debug log
3228: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
3229: THEN
3230: fnd_log.STRING (fnd_log.level_procedure,
3231: g_module ||
3232: l_api_name,
3233: '150: l_test_user : ' ||
3234: l_test_user
3339: l_user_id);
3340: END IF; -- l_test_user = 0 or 3
3341:
3342: -- debug log
3343: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
3344: THEN
3345: fnd_log.STRING (fnd_log.level_procedure,
3346: g_module ||
3347: l_api_name,
3341:
3342: -- debug log
3343: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
3344: THEN
3345: fnd_log.STRING (fnd_log.level_procedure,
3346: g_module ||
3347: l_api_name,
3348: '160: l_user_id : ' ||
3349: l_user_id
3347: l_api_name,
3348: '160: l_user_id : ' ||
3349: l_user_id
3350: );
3351: fnd_log.STRING (fnd_log.level_procedure,
3352: g_module ||
3353: l_api_name,
3354: '160: x_user_name : ' ||
3355: x_user_name
3353: l_api_name,
3354: '160: x_user_name : ' ||
3355: x_user_name
3356: );
3357: fnd_log.STRING (fnd_log.level_procedure,
3358: g_module ||
3359: l_api_name,
3360: '160: x_password : ' ||
3361: x_password
3385:
3386: CLOSE l_security_grp_csr;
3387:
3388: -- debug log
3389: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level
3390: )
3391: THEN
3392: fnd_log.STRING (fnd_log.level_procedure,
3393: g_module ||
3388: -- debug log
3389: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level
3390: )
3391: THEN
3392: fnd_log.STRING (fnd_log.level_procedure,
3393: g_module ||
3394: l_api_name,
3395: '170: l_responsibility_id : ' ||
3396: l_responsibility_id
3394: l_api_name,
3395: '170: l_responsibility_id : ' ||
3396: l_responsibility_id
3397: );
3398: fnd_log.STRING (fnd_log.level_procedure,
3399: g_module ||
3400: l_api_name,
3401: '170: l_security_grp_id : ' ||
3402: l_security_grp_id
3435: RETURN;
3436: ELSE
3437: -- error in fnd_profile.save
3438: -- debug log
3439: IF (fnd_log.level_procedure >=
3440: fnd_log.g_current_runtime_level
3441: )
3442: THEN
3443: fnd_log.STRING (fnd_log.level_procedure,
3436: ELSE
3437: -- error in fnd_profile.save
3438: -- debug log
3439: IF (fnd_log.level_procedure >=
3440: fnd_log.g_current_runtime_level
3441: )
3442: THEN
3443: fnd_log.STRING (fnd_log.level_procedure,
3444: g_module ||
3439: IF (fnd_log.level_procedure >=
3440: fnd_log.g_current_runtime_level
3441: )
3442: THEN
3443: fnd_log.STRING (fnd_log.level_procedure,
3444: g_module ||
3445: l_api_name,
3446: '180: error in fnd_profile.save : '
3447: );
3455: END IF;
3456: ELSE
3457: -- l_user_id is null, raise exception
3458: -- debug log
3459: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level
3460: )
3461: THEN
3462: fnd_log.STRING (fnd_log.level_procedure,
3463: g_module ||
3458: -- debug log
3459: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level
3460: )
3461: THEN
3462: fnd_log.STRING (fnd_log.level_procedure,
3463: g_module ||
3464: l_api_name,
3465: '190: l_user_id is null, raise exception '
3466: );
3612: );
3613:
3614:
3615: -- end debug log
3616: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
3617: THEN
3618: fnd_log.STRING (fnd_log.level_procedure,
3619: g_module ||
3620: l_api_name,
3614:
3615: -- end debug log
3616: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
3617: THEN
3618: fnd_log.STRING (fnd_log.level_procedure,
3619: g_module ||
3620: l_api_name,
3621: '1000: Leaving ' ||
3622: g_pkg_name ||
3626: END IF;
3627: EXCEPTION
3628: WHEN fnd_api.g_exc_error
3629: THEN
3630: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
3631: THEN
3632: fnd_log.STRING (fnd_log.level_procedure,
3633: g_module ||
3634: l_api_name,
3628: WHEN fnd_api.g_exc_error
3629: THEN
3630: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
3631: THEN
3632: fnd_log.STRING (fnd_log.level_procedure,
3633: g_module ||
3634: l_api_name,
3635: '2000: Leaving ' ||
3636: g_pkg_name ||
3647: p_data => x_msg_data
3648: );
3649: WHEN fnd_api.g_exc_unexpected_error
3650: THEN
3651: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
3652: THEN
3653: fnd_log.STRING (fnd_log.level_procedure,
3654: g_module ||
3655: l_api_name,
3649: WHEN fnd_api.g_exc_unexpected_error
3650: THEN
3651: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
3652: THEN
3653: fnd_log.STRING (fnd_log.level_procedure,
3654: g_module ||
3655: l_api_name,
3656: '3000: Leaving ' ||
3657: g_pkg_name ||
3669: p_data => x_msg_data
3670: );
3671: WHEN OTHERS
3672: THEN
3673: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
3674: THEN
3675: fnd_log.STRING (fnd_log.level_procedure,
3676: g_module ||
3677: l_api_name,
3671: WHEN OTHERS
3672: THEN
3673: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
3674: THEN
3675: fnd_log.STRING (fnd_log.level_procedure,
3676: g_module ||
3677: l_api_name,
3678: '4000: Leaving ' ||
3679: g_pkg_name ||