[Home] [Help]
1: PACKAGE BODY OKC_OC_INT_PUB AS
2: /* $Header: OKCPORDB.pls 120.1 2005/12/13 03:07:29 npalepu noship $ */
3: l_debug VARCHAR2(1) := NVL(FND_PROFILE.VALUE('AFLOG_ENABLED'),'N');
4:
5: -------------------------------------------------------------------------------
13: G_EXCEPTION_HALT_VALIDATION EXCEPTION;
14: G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKC_CONTRACTS_UNEXP_ERROR';
15: G_SQLCODE_TOKEN CONSTANT VARCHAR2(200) := 'SQLCODE';
16: G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'SQLERRM';
17: G_PKG_NAME CONSTANT VARCHAR2(200) := 'OKC_OC_INT_PUB';
18: G_APP_NAME CONSTANT VARCHAR2(3) := OKC_API.G_APP_NAME;
19: G_FND_APP CONSTANT VARCHAR2(200) := OKC_API.G_FND_APP;
20: G_FORM_UNABLE_TO_RESERVE_REC CONSTANT VARCHAR2(200) := OKC_API.G_FORM_UNABLE_TO_RESERVE_REC;
21: G_API_TYPE VARCHAR2(30) := '_PROCESS';
50: BEGIN
51: --
52: -- call full version of create_quote_from_k
53: --
54: OKC_OC_INT_PUB.create_quote_from_k(p_api_version => l_api_version
55: ,p_init_msg_list => OKC_API.G_TRUE
56: ,p_commit => OKC_API.G_TRUE
57: ,x_return_status => x_return_status
58: ,x_msg_count => x_msg_count
102: l_trace_mode:=OKC_API.G_TRUE;
103: ELSE
104: l_trace_mode:=p_trace_mode;
105: END IF;
106: OKC_OC_INT_PUB.create_quote_from_k(p_api_version => l_api_version
107: ,p_init_msg_list => OKC_API.G_TRUE
108: ,p_commit => OKC_API.G_TRUE
109: ,x_return_status => lx_return_status
110: ,x_msg_count => lx_msg_count
304: l_trace_mode:=OKC_API.G_TRUE;
305: ELSE
306: l_trace_mode:=p_trace_mode;
307: END IF;
308: OKC_OC_INT_PUB.update_quote_from_k(p_api_version => l_api_version
309: ,p_init_msg_list => OKC_API.G_FALSE
310: ,p_commit => OKC_API.G_FALSE
311: --
312: ,p_quote_id => p_quote_number
521: l_trace_mode:=OKC_API.G_TRUE;
522: ELSE
523: l_trace_mode:=p_trace_mode;
524: END IF;
525: OKC_OC_INT_PUB.create_order_from_k(p_api_version => l_api_version
526: ,p_init_msg_list => OKC_API.G_TRUE
527: ,p_commit => OKC_API.G_TRUE
528: ,x_return_status => lx_return_status
529: ,x_msg_count => lx_msg_count
726: l_trace_mode:=OKC_API.G_TRUE;
727: ELSE
728: l_trace_mode:=p_trace_mode;
729: END IF;
730: OKC_OC_INT_PUB.create_k_from_quote(p_api_version => l_api_version
731: ,p_init_msg_list => OKC_API.G_TRUE
732: ,p_commit => OKC_API.G_TRUE
733: ,p_quote_id => p_quote_id
734: ,p_template_id => p_template_id
945: ,p_commit IN VARCHAR2
946: ,p_sales_contract_id IN OKC_K_HEADERS_B.ID%TYPE
947: ,p_service_contract_id IN OKC_K_HEADERS_B.ID%TYPE
948: ,p_quote_id IN OKX_QUOTE_HEADERS_V.ID1%TYPE
949: ,p_quote_line_tab IN OKC_OC_INT_PUB.OKC_QUOTE_LINE_TAB
950: ,p_order_id IN OKX_ORDER_HEADERS_V.ID1%TYPE
951: ,p_order_line_tab IN OKC_OC_INT_PUB.OKC_ORDER_LINE_TAB
952: ,p_trace_mode IN VARCHAR2
953: ,x_return_status OUT NOCOPY VARCHAR2
947: ,p_service_contract_id IN OKC_K_HEADERS_B.ID%TYPE
948: ,p_quote_id IN OKX_QUOTE_HEADERS_V.ID1%TYPE
949: ,p_quote_line_tab IN OKC_OC_INT_PUB.OKC_QUOTE_LINE_TAB
950: ,p_order_id IN OKX_ORDER_HEADERS_V.ID1%TYPE
951: ,p_order_line_tab IN OKC_OC_INT_PUB.OKC_ORDER_LINE_TAB
952: ,p_trace_mode IN VARCHAR2
953: ,x_return_status OUT NOCOPY VARCHAR2
954: ,x_msg_count OUT NOCOPY NUMBER
955: ,x_msg_data OUT NOCOPY VARCHAR2) IS
1784: RAISE OKC_API.G_EXCEPTION_ERROR;
1785: END IF;
1786:
1787: -- call the another routine
1788: OKC_OC_INT_PUB.get_k_number (
1789: p_api_version => 1
1790: ,p_init_msg_list => OKC_API.g_false
1791: ,p_commit => OKC_API.g_false
1792: ,p_contract_id => p_contract_id
1804: RAISE OKC_API.G_EXCEPTION_ERROR;
1805: END IF;
1806:
1807: -- call another main routine
1808: OKC_OC_INT_PUB.notify_k_adm(
1809: p_api_version =>1,
1810: p_init_msg_list => OKC_API.g_false,
1811: p_commit => OKC_API.g_false,
1812: p_application_name=> OKC_API.g_app_name,
2158: ,x_msg_count OUT NOCOPY NUMBER
2159: ,x_msg_data OUT NOCOPY VARCHAR2) IS
2160:
2161: l_request_id NUMBER := 0;
2162: l_proc varchar2(72) := ' OKC_OC_INT_PUB.'||'submit_request';
2163:
2164: BEGIN
2165:
2166: --
2239: ,G_SQLERRM_TOKEN
2240: ,SQLERRM);
2241: END submit_request;
2242:
2243: END OKC_OC_INT_PUB;