1: PACKAGE BODY OKL_VP_JTF_PARTY_NAME_PUB AS
2: /* $Header: OKLPCTSB.pls 120.1 2005/09/08 12:49:29 sjalasut noship $ */
3: G_APP_NAME CONSTANT VARCHAR2(3) := OKC_API.G_APP_NAME;
4: G_PKG_NAME CONSTANT VARCHAR2(200) := 'OKL_JTF_CONTACT_EXTRACT_PUB';
5: ----------------------------------------------------------------------------
6: --Start of Comments
7: --Procedure : Get Party
9: -- attached to a contract
10: --End of Comments
11: -----------------------------------------------------------------------------
12: PROCEDURE Get_Party (p_api_version IN NUMBER,
13: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
14: x_return_status OUT NOCOPY VARCHAR2,
15: x_msg_count OUT NOCOPY NUMBER,
16: x_msg_data OUT NOCOPY VARCHAR2,
17: p_chr_id IN VARCHAR2,
20: p_intent IN VARCHAR2 DEFAULT 'S',
21: x_party_tab OUT NOCOPY party_tab_type) IS
22: l_api_name CONSTANT VARCHAR2(30) := 'get_party';
23: l_api_version CONSTANT NUMBER := 1;
24: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
25: BEGIN
26: l_return_status := OKC_API.START_ACTIVITY(SUBSTR(l_api_name,1,26),
27: G_PKG_NAME,
28: p_init_msg_list,
22: l_api_name CONSTANT VARCHAR2(30) := 'get_party';
23: l_api_version CONSTANT NUMBER := 1;
24: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
25: BEGIN
26: l_return_status := OKC_API.START_ACTIVITY(SUBSTR(l_api_name,1,26),
27: G_PKG_NAME,
28: p_init_msg_list,
29: l_api_version,
30: p_api_version,
29: l_api_version,
30: p_api_version,
31: '_PUB',
32: x_return_status);
33: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
34: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
35: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
36: RAISE OKC_API.G_EXCEPTION_ERROR;
37: END IF;
30: p_api_version,
31: '_PUB',
32: x_return_status);
33: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
34: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
35: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
36: RAISE OKC_API.G_EXCEPTION_ERROR;
37: END IF;
38: --
31: '_PUB',
32: x_return_status);
33: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
34: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
35: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
36: RAISE OKC_API.G_EXCEPTION_ERROR;
37: END IF;
38: --
39: -- Call Before Logic Hook
32: x_return_status);
33: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
34: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
35: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
36: RAISE OKC_API.G_EXCEPTION_ERROR;
37: END IF;
38: --
39: -- Call Before Logic Hook
40: --
38: --
39: -- Call Before Logic Hook
40: --
41: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
42: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
43: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
44: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
45: RAISE OKC_API.G_EXCEPTION_ERROR;
46: END IF;
39: -- Call Before Logic Hook
40: --
41: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
42: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
43: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
44: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
45: RAISE OKC_API.G_EXCEPTION_ERROR;
46: END IF;
47: Okl_Vp_Jtf_Party_Name_Pvt.Get_Party (p_api_version,
40: --
41: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
42: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
43: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
44: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
45: RAISE OKC_API.G_EXCEPTION_ERROR;
46: END IF;
47: Okl_Vp_Jtf_Party_Name_Pvt.Get_Party (p_api_version,
48: p_init_msg_list,
41: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
42: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
43: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
44: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
45: RAISE OKC_API.G_EXCEPTION_ERROR;
46: END IF;
47: Okl_Vp_Jtf_Party_Name_Pvt.Get_Party (p_api_version,
48: p_init_msg_list,
49: x_return_status,
53: p_cle_id,
54: p_role_code,
55: p_intent,
56: x_party_tab => x_party_tab);
57: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
58: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
59: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
60: RAISE OKC_API.G_EXCEPTION_ERROR;
61: END IF;
54: p_role_code,
55: p_intent,
56: x_party_tab => x_party_tab);
57: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
58: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
59: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
60: RAISE OKC_API.G_EXCEPTION_ERROR;
61: END IF;
62: --
55: p_intent,
56: x_party_tab => x_party_tab);
57: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
58: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
59: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
60: RAISE OKC_API.G_EXCEPTION_ERROR;
61: END IF;
62: --
63: -- Call After Logic Hook
56: x_party_tab => x_party_tab);
57: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
58: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
59: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
60: RAISE OKC_API.G_EXCEPTION_ERROR;
61: END IF;
62: --
63: -- Call After Logic Hook
64: --
62: --
63: -- Call After Logic Hook
64: --
65: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
66: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
67: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
68: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
69: RAISE OKC_API.G_EXCEPTION_ERROR;
70: END IF;
63: -- Call After Logic Hook
64: --
65: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
66: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
67: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
68: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
69: RAISE OKC_API.G_EXCEPTION_ERROR;
70: END IF;
71: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
64: --
65: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
66: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
67: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
68: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
69: RAISE OKC_API.G_EXCEPTION_ERROR;
70: END IF;
71: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
72: EXCEPTION
65: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
66: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
67: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
68: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
69: RAISE OKC_API.G_EXCEPTION_ERROR;
70: END IF;
71: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
72: EXCEPTION
73: WHEN OKC_API.G_EXCEPTION_ERROR THEN
67: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
68: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
69: RAISE OKC_API.G_EXCEPTION_ERROR;
70: END IF;
71: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
72: EXCEPTION
73: WHEN OKC_API.G_EXCEPTION_ERROR THEN
74: x_return_status := OKC_API.HANDLE_EXCEPTIONS
75: (SUBSTR(l_api_name,1,26),
69: RAISE OKC_API.G_EXCEPTION_ERROR;
70: END IF;
71: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
72: EXCEPTION
73: WHEN OKC_API.G_EXCEPTION_ERROR THEN
74: x_return_status := OKC_API.HANDLE_EXCEPTIONS
75: (SUBSTR(l_api_name,1,26),
76: G_PKG_NAME,
77: 'OKC_API.G_RET_STS_ERROR',
70: END IF;
71: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
72: EXCEPTION
73: WHEN OKC_API.G_EXCEPTION_ERROR THEN
74: x_return_status := OKC_API.HANDLE_EXCEPTIONS
75: (SUBSTR(l_api_name,1,26),
76: G_PKG_NAME,
77: 'OKC_API.G_RET_STS_ERROR',
78: x_msg_count,
73: WHEN OKC_API.G_EXCEPTION_ERROR THEN
74: x_return_status := OKC_API.HANDLE_EXCEPTIONS
75: (SUBSTR(l_api_name,1,26),
76: G_PKG_NAME,
77: 'OKC_API.G_RET_STS_ERROR',
78: x_msg_count,
79: x_msg_data,
80: '_PUB');
81: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
77: 'OKC_API.G_RET_STS_ERROR',
78: x_msg_count,
79: x_msg_data,
80: '_PUB');
81: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
82: x_return_status := OKC_API.HANDLE_EXCEPTIONS
83: (SUBSTR(l_api_name,1,26),
84: G_PKG_NAME,
85: 'OKC_API.G_RET_STS_UNEXP_ERROR',
78: x_msg_count,
79: x_msg_data,
80: '_PUB');
81: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
82: x_return_status := OKC_API.HANDLE_EXCEPTIONS
83: (SUBSTR(l_api_name,1,26),
84: G_PKG_NAME,
85: 'OKC_API.G_RET_STS_UNEXP_ERROR',
86: x_msg_count,
81: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
82: x_return_status := OKC_API.HANDLE_EXCEPTIONS
83: (SUBSTR(l_api_name,1,26),
84: G_PKG_NAME,
85: 'OKC_API.G_RET_STS_UNEXP_ERROR',
86: x_msg_count,
87: x_msg_data,
88: '_PUB');
89: WHEN OTHERS THEN
86: x_msg_count,
87: x_msg_data,
88: '_PUB');
89: WHEN OTHERS THEN
90: x_return_status := OKC_API.HANDLE_EXCEPTIONS
91: (SUBSTR(l_api_name,1,26),
92: G_PKG_NAME,
93: 'OTHERS',
94: x_msg_count,
102: -- object1_id1 and object2_id2
103: --End of comments
104: -----------------------------------------------------------------------------
105: PROCEDURE Get_Party (p_api_version IN NUMBER,
106: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
107: x_return_status OUT NOCOPY VARCHAR2,
108: x_msg_count OUT NOCOPY NUMBER,
109: x_msg_data OUT NOCOPY VARCHAR2,
110: p_role_code IN VARCHAR2,
116: x_name OUT NOCOPY VARCHAR2,
117: x_description OUT NOCOPY VARCHAR2) IS
118: l_api_name CONSTANT VARCHAR2(30) := 'get_party';
119: l_api_version CONSTANT NUMBER := 1;
120: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
121: BEGIN
122: l_return_status := OKC_API.START_ACTIVITY(SUBSTR(l_api_name,1,26),
123: G_PKG_NAME,
124: p_init_msg_list,
118: l_api_name CONSTANT VARCHAR2(30) := 'get_party';
119: l_api_version CONSTANT NUMBER := 1;
120: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
121: BEGIN
122: l_return_status := OKC_API.START_ACTIVITY(SUBSTR(l_api_name,1,26),
123: G_PKG_NAME,
124: p_init_msg_list,
125: l_api_version,
126: p_api_version,
125: l_api_version,
126: p_api_version,
127: '_PUB',
128: x_return_status);
129: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
130: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
131: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
132: RAISE OKC_API.G_EXCEPTION_ERROR;
133: END IF;
126: p_api_version,
127: '_PUB',
128: x_return_status);
129: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
130: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
131: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
132: RAISE OKC_API.G_EXCEPTION_ERROR;
133: END IF;
134: --
127: '_PUB',
128: x_return_status);
129: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
130: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
131: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
132: RAISE OKC_API.G_EXCEPTION_ERROR;
133: END IF;
134: --
135: -- Call Before Logic Hook
128: x_return_status);
129: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
130: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
131: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
132: RAISE OKC_API.G_EXCEPTION_ERROR;
133: END IF;
134: --
135: -- Call Before Logic Hook
136: --
134: --
135: -- Call Before Logic Hook
136: --
137: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
138: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
139: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
140: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
141: RAISE OKC_API.G_EXCEPTION_ERROR;
142: END IF;
135: -- Call Before Logic Hook
136: --
137: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
138: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
139: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
140: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
141: RAISE OKC_API.G_EXCEPTION_ERROR;
142: END IF;
143: Okl_Vp_Jtf_Party_Name_Pvt.Get_Party (p_api_version,
136: --
137: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
138: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
139: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
140: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
141: RAISE OKC_API.G_EXCEPTION_ERROR;
142: END IF;
143: Okl_Vp_Jtf_Party_Name_Pvt.Get_Party (p_api_version,
144: p_init_msg_list,
137: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
138: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
139: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
140: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
141: RAISE OKC_API.G_EXCEPTION_ERROR;
142: END IF;
143: Okl_Vp_Jtf_Party_Name_Pvt.Get_Party (p_api_version,
144: p_init_msg_list,
145: x_return_status,
152: x_id1,
153: x_id2,
154: x_name,
155: x_description);
156: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
157: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
158: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
159: RAISE OKC_API.G_EXCEPTION_ERROR;
160: END IF;
153: x_id2,
154: x_name,
155: x_description);
156: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
157: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
158: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
159: RAISE OKC_API.G_EXCEPTION_ERROR;
160: END IF;
161: --
154: x_name,
155: x_description);
156: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
157: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
158: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
159: RAISE OKC_API.G_EXCEPTION_ERROR;
160: END IF;
161: --
162: -- Call After Logic Hook
155: x_description);
156: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
157: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
158: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
159: RAISE OKC_API.G_EXCEPTION_ERROR;
160: END IF;
161: --
162: -- Call After Logic Hook
163: --
161: --
162: -- Call After Logic Hook
163: --
164: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
165: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
166: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
167: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
168: RAISE OKC_API.G_EXCEPTION_ERROR;
169: END IF;
162: -- Call After Logic Hook
163: --
164: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
165: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
166: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
167: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
168: RAISE OKC_API.G_EXCEPTION_ERROR;
169: END IF;
170: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
163: --
164: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
165: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
166: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
167: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
168: RAISE OKC_API.G_EXCEPTION_ERROR;
169: END IF;
170: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
171: EXCEPTION
164: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
165: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
166: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
167: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
168: RAISE OKC_API.G_EXCEPTION_ERROR;
169: END IF;
170: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
171: EXCEPTION
172: WHEN OKC_API.G_EXCEPTION_ERROR THEN
166: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
167: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
168: RAISE OKC_API.G_EXCEPTION_ERROR;
169: END IF;
170: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
171: EXCEPTION
172: WHEN OKC_API.G_EXCEPTION_ERROR THEN
173: x_return_status := OKC_API.HANDLE_EXCEPTIONS
174: (SUBSTR(l_api_name,1,26),
168: RAISE OKC_API.G_EXCEPTION_ERROR;
169: END IF;
170: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
171: EXCEPTION
172: WHEN OKC_API.G_EXCEPTION_ERROR THEN
173: x_return_status := OKC_API.HANDLE_EXCEPTIONS
174: (SUBSTR(l_api_name,1,26),
175: G_PKG_NAME,
176: 'OKC_API.G_RET_STS_ERROR',
169: END IF;
170: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
171: EXCEPTION
172: WHEN OKC_API.G_EXCEPTION_ERROR THEN
173: x_return_status := OKC_API.HANDLE_EXCEPTIONS
174: (SUBSTR(l_api_name,1,26),
175: G_PKG_NAME,
176: 'OKC_API.G_RET_STS_ERROR',
177: x_msg_count,
172: WHEN OKC_API.G_EXCEPTION_ERROR THEN
173: x_return_status := OKC_API.HANDLE_EXCEPTIONS
174: (SUBSTR(l_api_name,1,26),
175: G_PKG_NAME,
176: 'OKC_API.G_RET_STS_ERROR',
177: x_msg_count,
178: x_msg_data,
179: '_PUB');
180: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
176: 'OKC_API.G_RET_STS_ERROR',
177: x_msg_count,
178: x_msg_data,
179: '_PUB');
180: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
181: x_return_status := OKC_API.HANDLE_EXCEPTIONS
182: (SUBSTR(l_api_name,1,26),
183: G_PKG_NAME,
184: 'OKC_API.G_RET_STS_UNEXP_ERROR',
177: x_msg_count,
178: x_msg_data,
179: '_PUB');
180: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
181: x_return_status := OKC_API.HANDLE_EXCEPTIONS
182: (SUBSTR(l_api_name,1,26),
183: G_PKG_NAME,
184: 'OKC_API.G_RET_STS_UNEXP_ERROR',
185: x_msg_count,
180: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
181: x_return_status := OKC_API.HANDLE_EXCEPTIONS
182: (SUBSTR(l_api_name,1,26),
183: G_PKG_NAME,
184: 'OKC_API.G_RET_STS_UNEXP_ERROR',
185: x_msg_count,
186: x_msg_data,
187: '_PUB');
188: WHEN OTHERS THEN
185: x_msg_count,
186: x_msg_data,
187: '_PUB');
188: WHEN OTHERS THEN
189: x_return_status := OKC_API.HANDLE_EXCEPTIONS
190: (SUBSTR(l_api_name,1,26),
191: G_PKG_NAME,
192: 'OTHERS',
193: x_msg_count,
203: -- Version : 1.0
204: -- End of comments
205: ----------------------------------------------------------------------------------
206: PROCEDURE get_contact(p_api_version IN NUMBER,
207: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
208: x_return_status OUT NOCOPY VARCHAR2,
209: x_msg_count OUT NOCOPY NUMBER,
210: x_msg_data OUT NOCOPY VARCHAR2,
211: p_rle_code IN VARCHAR2,
218: x_name OUT NOCOPY VARCHAR2,
219: x_description OUT NOCOPY VARCHAR2) IS
220: l_api_name CONSTANT VARCHAR2(30) := 'get_contact';
221: l_api_version CONSTANT NUMBER := 1;
222: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
223: BEGIN
224: l_return_status := OKC_API.START_ACTIVITY(SUBSTR(l_api_name,1,26),
225: G_PKG_NAME,
226: p_init_msg_list,
220: l_api_name CONSTANT VARCHAR2(30) := 'get_contact';
221: l_api_version CONSTANT NUMBER := 1;
222: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
223: BEGIN
224: l_return_status := OKC_API.START_ACTIVITY(SUBSTR(l_api_name,1,26),
225: G_PKG_NAME,
226: p_init_msg_list,
227: l_api_version,
228: p_api_version,
227: l_api_version,
228: p_api_version,
229: '_PUB',
230: x_return_status);
231: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
232: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
233: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
234: RAISE OKC_API.G_EXCEPTION_ERROR;
235: END IF;
228: p_api_version,
229: '_PUB',
230: x_return_status);
231: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
232: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
233: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
234: RAISE OKC_API.G_EXCEPTION_ERROR;
235: END IF;
236: --
229: '_PUB',
230: x_return_status);
231: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
232: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
233: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
234: RAISE OKC_API.G_EXCEPTION_ERROR;
235: END IF;
236: --
237: -- Call Before Logic Hook
230: x_return_status);
231: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
232: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
233: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
234: RAISE OKC_API.G_EXCEPTION_ERROR;
235: END IF;
236: --
237: -- Call Before Logic Hook
238: --
236: --
237: -- Call Before Logic Hook
238: --
239: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
240: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
241: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
242: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
243: RAISE OKC_API.G_EXCEPTION_ERROR;
244: END IF;
237: -- Call Before Logic Hook
238: --
239: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
240: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
241: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
242: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
243: RAISE OKC_API.G_EXCEPTION_ERROR;
244: END IF;
245: Okl_Vp_Jtf_Party_Name_Pvt.get_contact(p_api_version,
238: --
239: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
240: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
241: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
242: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
243: RAISE OKC_API.G_EXCEPTION_ERROR;
244: END IF;
245: Okl_Vp_Jtf_Party_Name_Pvt.get_contact(p_api_version,
246: p_init_msg_list,
239: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
240: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
241: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
242: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
243: RAISE OKC_API.G_EXCEPTION_ERROR;
244: END IF;
245: Okl_Vp_Jtf_Party_Name_Pvt.get_contact(p_api_version,
246: p_init_msg_list,
247: x_return_status,
255: x_id1,
256: x_id2,
257: x_name,
258: x_description);
259: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
260: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
261: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
262: RAISE OKC_API.G_EXCEPTION_ERROR;
263: END IF;
256: x_id2,
257: x_name,
258: x_description);
259: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
260: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
261: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
262: RAISE OKC_API.G_EXCEPTION_ERROR;
263: END IF;
264: --
257: x_name,
258: x_description);
259: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
260: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
261: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
262: RAISE OKC_API.G_EXCEPTION_ERROR;
263: END IF;
264: --
265: -- Call After Logic Hook
258: x_description);
259: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
260: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
261: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
262: RAISE OKC_API.G_EXCEPTION_ERROR;
263: END IF;
264: --
265: -- Call After Logic Hook
266: --
264: --
265: -- Call After Logic Hook
266: --
267: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
268: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
269: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
270: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
271: RAISE OKC_API.G_EXCEPTION_ERROR;
272: END IF;
265: -- Call After Logic Hook
266: --
267: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
268: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
269: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
270: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
271: RAISE OKC_API.G_EXCEPTION_ERROR;
272: END IF;
273: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
266: --
267: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
268: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
269: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
270: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
271: RAISE OKC_API.G_EXCEPTION_ERROR;
272: END IF;
273: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
274: EXCEPTION
267: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
268: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
269: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
270: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
271: RAISE OKC_API.G_EXCEPTION_ERROR;
272: END IF;
273: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
274: EXCEPTION
275: WHEN OKC_API.G_EXCEPTION_ERROR THEN
269: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
270: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
271: RAISE OKC_API.G_EXCEPTION_ERROR;
272: END IF;
273: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
274: EXCEPTION
275: WHEN OKC_API.G_EXCEPTION_ERROR THEN
276: x_return_status := OKC_API.HANDLE_EXCEPTIONS
277: (SUBSTR(l_api_name,1,26),
271: RAISE OKC_API.G_EXCEPTION_ERROR;
272: END IF;
273: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
274: EXCEPTION
275: WHEN OKC_API.G_EXCEPTION_ERROR THEN
276: x_return_status := OKC_API.HANDLE_EXCEPTIONS
277: (SUBSTR(l_api_name,1,26),
278: G_PKG_NAME,
279: 'OKC_API.G_RET_STS_ERROR',
272: END IF;
273: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
274: EXCEPTION
275: WHEN OKC_API.G_EXCEPTION_ERROR THEN
276: x_return_status := OKC_API.HANDLE_EXCEPTIONS
277: (SUBSTR(l_api_name,1,26),
278: G_PKG_NAME,
279: 'OKC_API.G_RET_STS_ERROR',
280: x_msg_count,
275: WHEN OKC_API.G_EXCEPTION_ERROR THEN
276: x_return_status := OKC_API.HANDLE_EXCEPTIONS
277: (SUBSTR(l_api_name,1,26),
278: G_PKG_NAME,
279: 'OKC_API.G_RET_STS_ERROR',
280: x_msg_count,
281: x_msg_data,
282: '_PUB');
283: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
279: 'OKC_API.G_RET_STS_ERROR',
280: x_msg_count,
281: x_msg_data,
282: '_PUB');
283: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
284: x_return_status := OKC_API.HANDLE_EXCEPTIONS
285: (SUBSTR(l_api_name,1,26),
286: G_PKG_NAME,
287: 'OKC_API.G_RET_STS_UNEXP_ERROR',
280: x_msg_count,
281: x_msg_data,
282: '_PUB');
283: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
284: x_return_status := OKC_API.HANDLE_EXCEPTIONS
285: (SUBSTR(l_api_name,1,26),
286: G_PKG_NAME,
287: 'OKC_API.G_RET_STS_UNEXP_ERROR',
288: x_msg_count,
283: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
284: x_return_status := OKC_API.HANDLE_EXCEPTIONS
285: (SUBSTR(l_api_name,1,26),
286: G_PKG_NAME,
287: 'OKC_API.G_RET_STS_UNEXP_ERROR',
288: x_msg_count,
289: x_msg_data,
290: '_PUB');
291: WHEN OTHERS THEN
288: x_msg_count,
289: x_msg_data,
290: '_PUB');
291: WHEN OTHERS THEN
292: x_return_status := OKC_API.HANDLE_EXCEPTIONS
293: (SUBSTR(l_api_name,1,26),
294: G_PKG_NAME,
295: 'OTHERS',
296: x_msg_count,