1: PACKAGE BODY OKS_Order_Contacts_PUB AS
2: /* $Header: OKSPCOCB.pls 120.0 2005/05/25 18:17:48 appldev noship $ */
3:
4: G_APP_NAME CONSTANT VARCHAR2(3) := OKC_API.G_APP_NAME;
5: G_PKG_NAME CONSTANT VARCHAR2(200) := 'OKS_ORDER_CONTACTS_PUB';
6: G_COCV_REC COCV_REC_TYPE;
7: procedure reset(p_cocv_rec IN cocv_rec_type) is
8: begin
22: -- Version : 1.0
23: -- End of comments
24:
25: procedure Insert_Order_Contact(p_api_version IN NUMBER,
26: p_init_msg_list IN VARCHAR2 default OKC_API.G_FALSE,
27: x_return_status OUT NOCOPY VARCHAR2,
28: x_msg_count OUT NOCOPY NUMBER,
29: x_msg_data OUT NOCOPY VARCHAR2,
30: p_cocv_rec IN cocv_rec_type,
30: p_cocv_rec IN cocv_rec_type,
31: x_cocv_rec OUT NOCOPY cocv_rec_type) is
32: l_api_name CONSTANT VARCHAR2(30) := 'Insert_Order_Contact';
33: l_api_version CONSTANT NUMBER := 1;
34: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
35: begin
36: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
37: p_init_msg_list,
38: '_PUB',
32: l_api_name CONSTANT VARCHAR2(30) := 'Insert_Order_Contact';
33: l_api_version CONSTANT NUMBER := 1;
34: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
35: begin
36: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
37: p_init_msg_list,
38: '_PUB',
39: x_return_status);
40: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
36: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
37: p_init_msg_list,
38: '_PUB',
39: x_return_status);
40: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
41: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
42: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
43: RAISE OKC_API.G_EXCEPTION_ERROR;
44: END IF;
37: p_init_msg_list,
38: '_PUB',
39: x_return_status);
40: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
41: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
42: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
43: RAISE OKC_API.G_EXCEPTION_ERROR;
44: END IF;
45: --
38: '_PUB',
39: x_return_status);
40: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
41: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
42: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
43: RAISE OKC_API.G_EXCEPTION_ERROR;
44: END IF;
45: --
46: -- Call Before Logic Hook
39: x_return_status);
40: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
41: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
42: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
43: RAISE OKC_API.G_EXCEPTION_ERROR;
44: END IF;
45: --
46: -- Call Before Logic Hook
47: --
46: -- Call Before Logic Hook
47: --
48: g_cocv_rec := p_cocv_rec;
49: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
50: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
51: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
52: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
53: raise OKC_API.G_EXCEPTION_ERROR;
54: END IF;
47: --
48: g_cocv_rec := p_cocv_rec;
49: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
50: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
51: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
52: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
53: raise OKC_API.G_EXCEPTION_ERROR;
54: END IF;
55: reset(p_cocv_rec);
48: g_cocv_rec := p_cocv_rec;
49: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
50: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
51: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
52: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
53: raise OKC_API.G_EXCEPTION_ERROR;
54: END IF;
55: reset(p_cocv_rec);
56: OKS_ORDER_CONTACTs_PVT.create_Order_Contact(p_api_version,
49: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
50: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
51: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
52: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
53: raise OKC_API.G_EXCEPTION_ERROR;
54: END IF;
55: reset(p_cocv_rec);
56: OKS_ORDER_CONTACTs_PVT.create_Order_Contact(p_api_version,
57: p_init_msg_list,
59: x_msg_count,
60: x_msg_data,
61: g_cocv_rec,
62: x_cocv_rec);
63: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
64: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
65: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
66: RAISE OKC_API.G_EXCEPTION_ERROR;
67: END IF;
60: x_msg_data,
61: g_cocv_rec,
62: x_cocv_rec);
63: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
64: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
65: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
66: RAISE OKC_API.G_EXCEPTION_ERROR;
67: END IF;
68: --
61: g_cocv_rec,
62: x_cocv_rec);
63: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
64: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
65: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
66: RAISE OKC_API.G_EXCEPTION_ERROR;
67: END IF;
68: --
69: -- Call After Logic Hook
62: x_cocv_rec);
63: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
64: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
65: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
66: RAISE OKC_API.G_EXCEPTION_ERROR;
67: END IF;
68: --
69: -- Call After Logic Hook
70: --
69: -- Call After Logic Hook
70: --
71: g_cocv_rec := x_cocv_rec;
72: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
73: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
74: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
75: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
76: raise OKC_API.G_EXCEPTION_ERROR;
77: END IF;
70: --
71: g_cocv_rec := x_cocv_rec;
72: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
73: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
74: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
75: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
76: raise OKC_API.G_EXCEPTION_ERROR;
77: END IF;
78: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
71: g_cocv_rec := x_cocv_rec;
72: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
73: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
74: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
75: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
76: raise OKC_API.G_EXCEPTION_ERROR;
77: END IF;
78: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
79: EXCEPTION
72: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
73: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
74: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
75: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
76: raise OKC_API.G_EXCEPTION_ERROR;
77: END IF;
78: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
79: EXCEPTION
80: WHEN OKC_API.G_EXCEPTION_ERROR THEN
74: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
75: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
76: raise OKC_API.G_EXCEPTION_ERROR;
77: END IF;
78: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
79: EXCEPTION
80: WHEN OKC_API.G_EXCEPTION_ERROR THEN
81: x_return_status := OKC_API.HANDLE_EXCEPTIONS
82: (substr(l_api_name,1,26),
76: raise OKC_API.G_EXCEPTION_ERROR;
77: END IF;
78: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
79: EXCEPTION
80: WHEN OKC_API.G_EXCEPTION_ERROR THEN
81: x_return_status := OKC_API.HANDLE_EXCEPTIONS
82: (substr(l_api_name,1,26),
83: G_PKG_NAME,
84: 'OKC_API.G_RET_STS_ERROR',
77: END IF;
78: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
79: EXCEPTION
80: WHEN OKC_API.G_EXCEPTION_ERROR THEN
81: x_return_status := OKC_API.HANDLE_EXCEPTIONS
82: (substr(l_api_name,1,26),
83: G_PKG_NAME,
84: 'OKC_API.G_RET_STS_ERROR',
85: x_msg_count,
80: WHEN OKC_API.G_EXCEPTION_ERROR THEN
81: x_return_status := OKC_API.HANDLE_EXCEPTIONS
82: (substr(l_api_name,1,26),
83: G_PKG_NAME,
84: 'OKC_API.G_RET_STS_ERROR',
85: x_msg_count,
86: x_msg_data,
87: '_PUB');
88: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
84: 'OKC_API.G_RET_STS_ERROR',
85: x_msg_count,
86: x_msg_data,
87: '_PUB');
88: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
89: x_return_status := OKC_API.HANDLE_EXCEPTIONS
90: (substr(l_api_name,1,26),
91: G_PKG_NAME,
92: 'OKC_API.G_RET_STS_UNEXP_ERROR',
85: x_msg_count,
86: x_msg_data,
87: '_PUB');
88: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
89: x_return_status := OKC_API.HANDLE_EXCEPTIONS
90: (substr(l_api_name,1,26),
91: G_PKG_NAME,
92: 'OKC_API.G_RET_STS_UNEXP_ERROR',
93: x_msg_count,
88: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
89: x_return_status := OKC_API.HANDLE_EXCEPTIONS
90: (substr(l_api_name,1,26),
91: G_PKG_NAME,
92: 'OKC_API.G_RET_STS_UNEXP_ERROR',
93: x_msg_count,
94: x_msg_data,
95: '_PUB');
96: WHEN OTHERS THEN
93: x_msg_count,
94: x_msg_data,
95: '_PUB');
96: WHEN OTHERS THEN
97: x_return_status := OKC_API.HANDLE_EXCEPTIONS
98: (substr(l_api_name,1,26),
99: G_PKG_NAME,
100: 'OTHERS',
101: x_msg_count,
112: -- Version : 1.0
113: -- End of comments
114:
115: procedure Insert_Order_Contact(p_api_version IN NUMBER,
116: p_init_msg_list IN VARCHAR2 default OKC_API.G_FALSE,
117: x_return_status OUT NOCOPY VARCHAR2,
118: x_msg_count OUT NOCOPY NUMBER,
119: x_msg_data OUT NOCOPY VARCHAR2,
120: p_cocv_tbl IN cocv_tbl_type,
119: x_msg_data OUT NOCOPY VARCHAR2,
120: p_cocv_tbl IN cocv_tbl_type,
121: x_cocv_tbl OUT NOCOPY cocv_tbl_type) is
122: i NUMBER;
123: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
124: begin
125: OKC_API.init_msg_list(p_init_msg_list);
126: x_return_status:= OKC_API.G_RET_STS_SUCCESS;
127: if (p_cocv_tbl.COUNT>0) then
121: x_cocv_tbl OUT NOCOPY cocv_tbl_type) is
122: i NUMBER;
123: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
124: begin
125: OKC_API.init_msg_list(p_init_msg_list);
126: x_return_status:= OKC_API.G_RET_STS_SUCCESS;
127: if (p_cocv_tbl.COUNT>0) then
128: i := p_cocv_tbl.FIRST;
129: LOOP
122: i NUMBER;
123: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
124: begin
125: OKC_API.init_msg_list(p_init_msg_list);
126: x_return_status:= OKC_API.G_RET_STS_SUCCESS;
127: if (p_cocv_tbl.COUNT>0) then
128: i := p_cocv_tbl.FIRST;
129: LOOP
130: Insert_Order_Contact(p_api_version=>p_api_version,
127: if (p_cocv_tbl.COUNT>0) then
128: i := p_cocv_tbl.FIRST;
129: LOOP
130: Insert_Order_Contact(p_api_version=>p_api_version,
131: p_init_msg_list=>OKC_API.G_FALSE,
132: x_return_status=>l_return_status,
133: x_msg_count=>x_msg_count,
134: x_msg_data=>x_msg_data,
135: p_cocv_rec=>p_cocv_tbl(i),
133: x_msg_count=>x_msg_count,
134: x_msg_data=>x_msg_data,
135: p_cocv_rec=>p_cocv_tbl(i),
136: x_cocv_rec=>x_cocv_tbl(i));
137: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
138: x_return_status := l_return_status;
139: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
140: elsif (l_return_status = OKC_API.G_RET_STS_ERROR) then
141: x_return_status := l_return_status;
135: p_cocv_rec=>p_cocv_tbl(i),
136: x_cocv_rec=>x_cocv_tbl(i));
137: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
138: x_return_status := l_return_status;
139: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
140: elsif (l_return_status = OKC_API.G_RET_STS_ERROR) then
141: x_return_status := l_return_status;
142: end if;
143: EXIT WHEN (i=p_cocv_tbl.LAST);
136: x_cocv_rec=>x_cocv_tbl(i));
137: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
138: x_return_status := l_return_status;
139: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
140: elsif (l_return_status = OKC_API.G_RET_STS_ERROR) then
141: x_return_status := l_return_status;
142: end if;
143: EXIT WHEN (i=p_cocv_tbl.LAST);
144: i := p_cocv_tbl.NEXT(i);
148: when others then NULL;
149: end Insert_Order_Contact;
150:
151: procedure update_Order_Contact(p_api_version IN NUMBER,
152: p_init_msg_list IN VARCHAR2 default OKC_API.G_FALSE,
153: x_return_status OUT NOCOPY VARCHAR2,
154: x_msg_count OUT NOCOPY NUMBER,
155: x_msg_data OUT NOCOPY VARCHAR2,
156: p_cocv_rec IN cocv_rec_type,
156: p_cocv_rec IN cocv_rec_type,
157: x_cocv_rec OUT NOCOPY cocv_rec_type) is
158: l_api_name CONSTANT VARCHAR2(30) := 'update_Order_Contact';
159: l_api_version CONSTANT NUMBER := 1;
160: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
161: begin
162: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
163: p_init_msg_list,
164: '_PUB',
158: l_api_name CONSTANT VARCHAR2(30) := 'update_Order_Contact';
159: l_api_version CONSTANT NUMBER := 1;
160: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
161: begin
162: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
163: p_init_msg_list,
164: '_PUB',
165: x_return_status);
166: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
162: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
163: p_init_msg_list,
164: '_PUB',
165: x_return_status);
166: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
167: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
168: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
169: RAISE OKC_API.G_EXCEPTION_ERROR;
170: END IF;
163: p_init_msg_list,
164: '_PUB',
165: x_return_status);
166: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
167: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
168: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
169: RAISE OKC_API.G_EXCEPTION_ERROR;
170: END IF;
171: --
164: '_PUB',
165: x_return_status);
166: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
167: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
168: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
169: RAISE OKC_API.G_EXCEPTION_ERROR;
170: END IF;
171: --
172: -- Call Before Logic Hook
165: x_return_status);
166: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
167: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
168: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
169: RAISE OKC_API.G_EXCEPTION_ERROR;
170: END IF;
171: --
172: -- Call Before Logic Hook
173: --
172: -- Call Before Logic Hook
173: --
174: g_cocv_rec := p_cocv_rec;
175: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
176: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
177: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
178: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
179: raise OKC_API.G_EXCEPTION_ERROR;
180: END IF;
173: --
174: g_cocv_rec := p_cocv_rec;
175: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
176: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
177: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
178: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
179: raise OKC_API.G_EXCEPTION_ERROR;
180: END IF;
181: reset(p_cocv_rec);
174: g_cocv_rec := p_cocv_rec;
175: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
176: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
177: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
178: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
179: raise OKC_API.G_EXCEPTION_ERROR;
180: END IF;
181: reset(p_cocv_rec);
182: OKS_ORDER_CONTACTs_PVT.update_Order_Contact(p_api_version,
175: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
176: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
177: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
178: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
179: raise OKC_API.G_EXCEPTION_ERROR;
180: END IF;
181: reset(p_cocv_rec);
182: OKS_ORDER_CONTACTs_PVT.update_Order_Contact(p_api_version,
183: p_init_msg_list,
185: x_msg_count,
186: x_msg_data,
187: g_cocv_rec,
188: x_cocv_rec);
189: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
190: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
191: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
192: RAISE OKC_API.G_EXCEPTION_ERROR;
193: END IF;
186: x_msg_data,
187: g_cocv_rec,
188: x_cocv_rec);
189: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
190: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
191: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
192: RAISE OKC_API.G_EXCEPTION_ERROR;
193: END IF;
194: --
187: g_cocv_rec,
188: x_cocv_rec);
189: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
190: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
191: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
192: RAISE OKC_API.G_EXCEPTION_ERROR;
193: END IF;
194: --
195: -- Call After Logic Hook
188: x_cocv_rec);
189: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
190: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
191: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
192: RAISE OKC_API.G_EXCEPTION_ERROR;
193: END IF;
194: --
195: -- Call After Logic Hook
196: --
195: -- Call After Logic Hook
196: --
197: g_cocv_rec := x_cocv_rec;
198: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
199: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
200: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
201: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
202: raise OKC_API.G_EXCEPTION_ERROR;
203: END IF;
196: --
197: g_cocv_rec := x_cocv_rec;
198: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
199: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
200: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
201: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
202: raise OKC_API.G_EXCEPTION_ERROR;
203: END IF;
204: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
197: g_cocv_rec := x_cocv_rec;
198: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
199: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
200: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
201: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
202: raise OKC_API.G_EXCEPTION_ERROR;
203: END IF;
204: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
205: EXCEPTION
198: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
199: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
200: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
201: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
202: raise OKC_API.G_EXCEPTION_ERROR;
203: END IF;
204: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
205: EXCEPTION
206: WHEN OKC_API.G_EXCEPTION_ERROR THEN
200: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
201: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
202: raise OKC_API.G_EXCEPTION_ERROR;
203: END IF;
204: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
205: EXCEPTION
206: WHEN OKC_API.G_EXCEPTION_ERROR THEN
207: x_return_status := OKC_API.HANDLE_EXCEPTIONS
208: (substr(l_api_name,1,26),
202: raise OKC_API.G_EXCEPTION_ERROR;
203: END IF;
204: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
205: EXCEPTION
206: WHEN OKC_API.G_EXCEPTION_ERROR THEN
207: x_return_status := OKC_API.HANDLE_EXCEPTIONS
208: (substr(l_api_name,1,26),
209: G_PKG_NAME,
210: 'OKC_API.G_RET_STS_ERROR',
203: END IF;
204: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
205: EXCEPTION
206: WHEN OKC_API.G_EXCEPTION_ERROR THEN
207: x_return_status := OKC_API.HANDLE_EXCEPTIONS
208: (substr(l_api_name,1,26),
209: G_PKG_NAME,
210: 'OKC_API.G_RET_STS_ERROR',
211: x_msg_count,
206: WHEN OKC_API.G_EXCEPTION_ERROR THEN
207: x_return_status := OKC_API.HANDLE_EXCEPTIONS
208: (substr(l_api_name,1,26),
209: G_PKG_NAME,
210: 'OKC_API.G_RET_STS_ERROR',
211: x_msg_count,
212: x_msg_data,
213: '_PUB');
214: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
210: 'OKC_API.G_RET_STS_ERROR',
211: x_msg_count,
212: x_msg_data,
213: '_PUB');
214: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
215: x_return_status := OKC_API.HANDLE_EXCEPTIONS
216: (substr(l_api_name,1,26),
217: G_PKG_NAME,
218: 'OKC_API.G_RET_STS_UNEXP_ERROR',
211: x_msg_count,
212: x_msg_data,
213: '_PUB');
214: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
215: x_return_status := OKC_API.HANDLE_EXCEPTIONS
216: (substr(l_api_name,1,26),
217: G_PKG_NAME,
218: 'OKC_API.G_RET_STS_UNEXP_ERROR',
219: x_msg_count,
214: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
215: x_return_status := OKC_API.HANDLE_EXCEPTIONS
216: (substr(l_api_name,1,26),
217: G_PKG_NAME,
218: 'OKC_API.G_RET_STS_UNEXP_ERROR',
219: x_msg_count,
220: x_msg_data,
221: '_PUB');
222: WHEN OTHERS THEN
219: x_msg_count,
220: x_msg_data,
221: '_PUB');
222: WHEN OTHERS THEN
223: x_return_status := OKC_API.HANDLE_EXCEPTIONS
224: (substr(l_api_name,1,26),
225: G_PKG_NAME,
226: 'OTHERS',
227: x_msg_count,
238: -- Version : 1.0
239: -- End of comments
240:
241: procedure update_Order_Contact(p_api_version IN NUMBER,
242: p_init_msg_list IN VARCHAR2 default OKC_API.G_FALSE,
243: x_return_status OUT NOCOPY VARCHAR2,
244: x_msg_count OUT NOCOPY NUMBER,
245: x_msg_data OUT NOCOPY VARCHAR2,
246: p_cocv_tbl IN cocv_tbl_type,
245: x_msg_data OUT NOCOPY VARCHAR2,
246: p_cocv_tbl IN cocv_tbl_type,
247: x_cocv_tbl OUT NOCOPY cocv_tbl_type) is
248: i NUMBER;
249: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
250: begin
251: OKC_API.init_msg_list(p_init_msg_list);
252: x_return_status:= OKC_API.G_RET_STS_SUCCESS;
253: if (p_cocv_tbl.COUNT>0) then
247: x_cocv_tbl OUT NOCOPY cocv_tbl_type) is
248: i NUMBER;
249: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
250: begin
251: OKC_API.init_msg_list(p_init_msg_list);
252: x_return_status:= OKC_API.G_RET_STS_SUCCESS;
253: if (p_cocv_tbl.COUNT>0) then
254: i := p_cocv_tbl.FIRST;
255: LOOP
248: i NUMBER;
249: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
250: begin
251: OKC_API.init_msg_list(p_init_msg_list);
252: x_return_status:= OKC_API.G_RET_STS_SUCCESS;
253: if (p_cocv_tbl.COUNT>0) then
254: i := p_cocv_tbl.FIRST;
255: LOOP
256: update_Order_Contact(p_api_version=>p_api_version,
253: if (p_cocv_tbl.COUNT>0) then
254: i := p_cocv_tbl.FIRST;
255: LOOP
256: update_Order_Contact(p_api_version=>p_api_version,
257: p_init_msg_list=>OKC_API.G_FALSE,
258: x_return_status=>l_return_status,
259: x_msg_count=>x_msg_count,
260: x_msg_data=>x_msg_data,
261: p_cocv_rec=>p_cocv_tbl(i),
259: x_msg_count=>x_msg_count,
260: x_msg_data=>x_msg_data,
261: p_cocv_rec=>p_cocv_tbl(i),
262: x_cocv_rec=>x_cocv_tbl(i));
263: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
264: x_return_status := l_return_status;
265: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
266: elsif (l_return_status = OKC_API.G_RET_STS_ERROR) then
267: x_return_status := l_return_status;
261: p_cocv_rec=>p_cocv_tbl(i),
262: x_cocv_rec=>x_cocv_tbl(i));
263: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
264: x_return_status := l_return_status;
265: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
266: elsif (l_return_status = OKC_API.G_RET_STS_ERROR) then
267: x_return_status := l_return_status;
268: end if;
269: EXIT WHEN (i=p_cocv_tbl.LAST);
262: x_cocv_rec=>x_cocv_tbl(i));
263: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
264: x_return_status := l_return_status;
265: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
266: elsif (l_return_status = OKC_API.G_RET_STS_ERROR) then
267: x_return_status := l_return_status;
268: end if;
269: EXIT WHEN (i=p_cocv_tbl.LAST);
270: i := p_cocv_tbl.NEXT(i);
283: -- Version : 1.0
284: -- End of comments
285:
286: procedure delete_Order_Contact(p_api_version IN NUMBER,
287: p_init_msg_list IN VARCHAR2 default OKC_API.G_FALSE,
288: x_return_status OUT NOCOPY VARCHAR2,
289: x_msg_count OUT NOCOPY NUMBER,
290: x_msg_data OUT NOCOPY VARCHAR2,
291: p_cocv_rec IN cocv_rec_type) is
290: x_msg_data OUT NOCOPY VARCHAR2,
291: p_cocv_rec IN cocv_rec_type) is
292: l_api_name CONSTANT VARCHAR2(30) := 'delete_Order_Contact';
293: l_api_version CONSTANT NUMBER := 1;
294: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
295: begin
296: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
297: p_init_msg_list,
298: '_PUB',
292: l_api_name CONSTANT VARCHAR2(30) := 'delete_Order_Contact';
293: l_api_version CONSTANT NUMBER := 1;
294: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
295: begin
296: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
297: p_init_msg_list,
298: '_PUB',
299: x_return_status);
300: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
296: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
297: p_init_msg_list,
298: '_PUB',
299: x_return_status);
300: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
301: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
302: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
303: RAISE OKC_API.G_EXCEPTION_ERROR;
304: END IF;
297: p_init_msg_list,
298: '_PUB',
299: x_return_status);
300: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
301: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
302: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
303: RAISE OKC_API.G_EXCEPTION_ERROR;
304: END IF;
305: --
298: '_PUB',
299: x_return_status);
300: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
301: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
302: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
303: RAISE OKC_API.G_EXCEPTION_ERROR;
304: END IF;
305: --
306: -- Call Before Logic Hook
299: x_return_status);
300: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
301: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
302: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
303: RAISE OKC_API.G_EXCEPTION_ERROR;
304: END IF;
305: --
306: -- Call Before Logic Hook
307: --
306: -- Call Before Logic Hook
307: --
308: g_cocv_rec := p_cocv_rec;
309: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
310: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
311: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
312: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
313: raise OKC_API.G_EXCEPTION_ERROR;
314: END IF;
307: --
308: g_cocv_rec := p_cocv_rec;
309: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
310: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
311: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
312: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
313: raise OKC_API.G_EXCEPTION_ERROR;
314: END IF;
315: reset(p_cocv_rec);
308: g_cocv_rec := p_cocv_rec;
309: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
310: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
311: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
312: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
313: raise OKC_API.G_EXCEPTION_ERROR;
314: END IF;
315: reset(p_cocv_rec);
316: OKS_ORDER_CONTACTs_PVT.delete_Order_Contact(p_api_version,
309: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
310: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
311: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
312: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
313: raise OKC_API.G_EXCEPTION_ERROR;
314: END IF;
315: reset(p_cocv_rec);
316: OKS_ORDER_CONTACTs_PVT.delete_Order_Contact(p_api_version,
317: p_init_msg_list,
318: x_return_status,
319: x_msg_count,
320: x_msg_data,
321: g_cocv_rec);
322: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
323: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
324: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
325: RAISE OKC_API.G_EXCEPTION_ERROR;
326: END IF;
319: x_msg_count,
320: x_msg_data,
321: g_cocv_rec);
322: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
323: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
324: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
325: RAISE OKC_API.G_EXCEPTION_ERROR;
326: END IF;
327: --
320: x_msg_data,
321: g_cocv_rec);
322: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
323: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
324: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
325: RAISE OKC_API.G_EXCEPTION_ERROR;
326: END IF;
327: --
328: -- Call After Logic Hook
321: g_cocv_rec);
322: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
323: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
324: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
325: RAISE OKC_API.G_EXCEPTION_ERROR;
326: END IF;
327: --
328: -- Call After Logic Hook
329: --
327: --
328: -- Call After Logic Hook
329: --
330: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
331: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
332: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
333: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
334: raise OKC_API.G_EXCEPTION_ERROR;
335: END IF;
328: -- Call After Logic Hook
329: --
330: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
331: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
332: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
333: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
334: raise OKC_API.G_EXCEPTION_ERROR;
335: END IF;
336: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
329: --
330: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
331: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
332: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
333: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
334: raise OKC_API.G_EXCEPTION_ERROR;
335: END IF;
336: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
337: EXCEPTION
330: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
331: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
332: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
333: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
334: raise OKC_API.G_EXCEPTION_ERROR;
335: END IF;
336: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
337: EXCEPTION
338: WHEN OKC_API.G_EXCEPTION_ERROR THEN
332: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
333: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
334: raise OKC_API.G_EXCEPTION_ERROR;
335: END IF;
336: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
337: EXCEPTION
338: WHEN OKC_API.G_EXCEPTION_ERROR THEN
339: x_return_status := OKC_API.HANDLE_EXCEPTIONS
340: (substr(l_api_name,1,26),
334: raise OKC_API.G_EXCEPTION_ERROR;
335: END IF;
336: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
337: EXCEPTION
338: WHEN OKC_API.G_EXCEPTION_ERROR THEN
339: x_return_status := OKC_API.HANDLE_EXCEPTIONS
340: (substr(l_api_name,1,26),
341: G_PKG_NAME,
342: 'OKC_API.G_RET_STS_ERROR',
335: END IF;
336: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
337: EXCEPTION
338: WHEN OKC_API.G_EXCEPTION_ERROR THEN
339: x_return_status := OKC_API.HANDLE_EXCEPTIONS
340: (substr(l_api_name,1,26),
341: G_PKG_NAME,
342: 'OKC_API.G_RET_STS_ERROR',
343: x_msg_count,
338: WHEN OKC_API.G_EXCEPTION_ERROR THEN
339: x_return_status := OKC_API.HANDLE_EXCEPTIONS
340: (substr(l_api_name,1,26),
341: G_PKG_NAME,
342: 'OKC_API.G_RET_STS_ERROR',
343: x_msg_count,
344: x_msg_data,
345: '_PUB');
346: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
342: 'OKC_API.G_RET_STS_ERROR',
343: x_msg_count,
344: x_msg_data,
345: '_PUB');
346: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
347: x_return_status := OKC_API.HANDLE_EXCEPTIONS
348: (substr(l_api_name,1,26),
349: G_PKG_NAME,
350: 'OKC_API.G_RET_STS_UNEXP_ERROR',
343: x_msg_count,
344: x_msg_data,
345: '_PUB');
346: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
347: x_return_status := OKC_API.HANDLE_EXCEPTIONS
348: (substr(l_api_name,1,26),
349: G_PKG_NAME,
350: 'OKC_API.G_RET_STS_UNEXP_ERROR',
351: x_msg_count,
346: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
347: x_return_status := OKC_API.HANDLE_EXCEPTIONS
348: (substr(l_api_name,1,26),
349: G_PKG_NAME,
350: 'OKC_API.G_RET_STS_UNEXP_ERROR',
351: x_msg_count,
352: x_msg_data,
353: '_PUB');
354: WHEN OTHERS THEN
351: x_msg_count,
352: x_msg_data,
353: '_PUB');
354: WHEN OTHERS THEN
355: x_return_status := OKC_API.HANDLE_EXCEPTIONS
356: (substr(l_api_name,1,26),
357: G_PKG_NAME,
358: 'OTHERS',
359: x_msg_count,
370: -- Version : 1.0
371: -- End of comments
372:
373: procedure delete_Order_Contact(p_api_version IN NUMBER,
374: p_init_msg_list IN VARCHAR2 default OKC_API.G_FALSE,
375: x_return_status OUT NOCOPY VARCHAR2,
376: x_msg_count OUT NOCOPY NUMBER,
377: x_msg_data OUT NOCOPY VARCHAR2,
378: p_cocv_tbl IN cocv_tbl_type) is
376: x_msg_count OUT NOCOPY NUMBER,
377: x_msg_data OUT NOCOPY VARCHAR2,
378: p_cocv_tbl IN cocv_tbl_type) is
379: i NUMBER;
380: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
381: begin
382: OKC_API.init_msg_list(p_init_msg_list);
383: x_return_status:= OKC_API.G_RET_STS_SUCCESS;
384: if (p_cocv_tbl.COUNT>0) then
378: p_cocv_tbl IN cocv_tbl_type) is
379: i NUMBER;
380: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
381: begin
382: OKC_API.init_msg_list(p_init_msg_list);
383: x_return_status:= OKC_API.G_RET_STS_SUCCESS;
384: if (p_cocv_tbl.COUNT>0) then
385: i := p_cocv_tbl.FIRST;
386: LOOP
379: i NUMBER;
380: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
381: begin
382: OKC_API.init_msg_list(p_init_msg_list);
383: x_return_status:= OKC_API.G_RET_STS_SUCCESS;
384: if (p_cocv_tbl.COUNT>0) then
385: i := p_cocv_tbl.FIRST;
386: LOOP
387: delete_Order_Contact(p_api_version=>p_api_version,
384: if (p_cocv_tbl.COUNT>0) then
385: i := p_cocv_tbl.FIRST;
386: LOOP
387: delete_Order_Contact(p_api_version=>p_api_version,
388: p_init_msg_list=>OKC_API.G_FALSE,
389: x_return_status=>l_return_status,
390: x_msg_count=>x_msg_count,
391: x_msg_data=>x_msg_data,
392: p_cocv_rec=>p_cocv_tbl(i));
389: x_return_status=>l_return_status,
390: x_msg_count=>x_msg_count,
391: x_msg_data=>x_msg_data,
392: p_cocv_rec=>p_cocv_tbl(i));
393: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
394: x_return_status := l_return_status;
395: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
396: elsif (l_return_status = OKC_API.G_RET_STS_ERROR) then
397: x_return_status := l_return_status;
391: x_msg_data=>x_msg_data,
392: p_cocv_rec=>p_cocv_tbl(i));
393: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
394: x_return_status := l_return_status;
395: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
396: elsif (l_return_status = OKC_API.G_RET_STS_ERROR) then
397: x_return_status := l_return_status;
398: end if;
399: EXIT WHEN (i=p_cocv_tbl.LAST);
392: p_cocv_rec=>p_cocv_tbl(i));
393: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
394: x_return_status := l_return_status;
395: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
396: elsif (l_return_status = OKC_API.G_RET_STS_ERROR) then
397: x_return_status := l_return_status;
398: end if;
399: EXIT WHEN (i=p_cocv_tbl.LAST);
400: i := p_cocv_tbl.NEXT(i);
413: -- Version : 1.0
414: -- End of comments
415:
416: procedure lock_Order_Contact(p_api_version IN NUMBER,
417: p_init_msg_list IN VARCHAR2 default OKC_API.G_FALSE,
418: x_return_status OUT NOCOPY VARCHAR2,
419: x_msg_count OUT NOCOPY NUMBER,
420: x_msg_data OUT NOCOPY VARCHAR2,
421: p_cocv_rec IN cocv_rec_type) is
420: x_msg_data OUT NOCOPY VARCHAR2,
421: p_cocv_rec IN cocv_rec_type) is
422: l_api_name CONSTANT VARCHAR2(30) := 'lock_Order_Contact';
423: l_api_version CONSTANT NUMBER := 1;
424: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
425: begin
426: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
427: p_init_msg_list,
428: '_PUB',
422: l_api_name CONSTANT VARCHAR2(30) := 'lock_Order_Contact';
423: l_api_version CONSTANT NUMBER := 1;
424: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
425: begin
426: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
427: p_init_msg_list,
428: '_PUB',
429: x_return_status);
430: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
426: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
427: p_init_msg_list,
428: '_PUB',
429: x_return_status);
430: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
431: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
432: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
433: RAISE OKC_API.G_EXCEPTION_ERROR;
434: END IF;
427: p_init_msg_list,
428: '_PUB',
429: x_return_status);
430: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
431: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
432: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
433: RAISE OKC_API.G_EXCEPTION_ERROR;
434: END IF;
435: --
428: '_PUB',
429: x_return_status);
430: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
431: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
432: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
433: RAISE OKC_API.G_EXCEPTION_ERROR;
434: END IF;
435: --
436: -- Call Before Logic Hook
429: x_return_status);
430: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
431: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
432: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
433: RAISE OKC_API.G_EXCEPTION_ERROR;
434: END IF;
435: --
436: -- Call Before Logic Hook
437: --
436: -- Call Before Logic Hook
437: --
438: g_cocv_rec := p_cocv_rec;
439: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
440: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
441: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
442: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
443: raise OKC_API.G_EXCEPTION_ERROR;
444: END IF;
437: --
438: g_cocv_rec := p_cocv_rec;
439: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
440: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
441: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
442: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
443: raise OKC_API.G_EXCEPTION_ERROR;
444: END IF;
445: reset(p_cocv_rec);
438: g_cocv_rec := p_cocv_rec;
439: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
440: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
441: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
442: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
443: raise OKC_API.G_EXCEPTION_ERROR;
444: END IF;
445: reset(p_cocv_rec);
446: OKS_ORDER_CONTACTs_PVT.lock_Order_Contact(p_api_version,
439: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
440: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
441: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
442: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
443: raise OKC_API.G_EXCEPTION_ERROR;
444: END IF;
445: reset(p_cocv_rec);
446: OKS_ORDER_CONTACTs_PVT.lock_Order_Contact(p_api_version,
447: p_init_msg_list,
448: x_return_status,
449: x_msg_count,
450: x_msg_data,
451: g_cocv_rec);
452: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
453: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
454: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
455: RAISE OKC_API.G_EXCEPTION_ERROR;
456: END IF;
449: x_msg_count,
450: x_msg_data,
451: g_cocv_rec);
452: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
453: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
454: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
455: RAISE OKC_API.G_EXCEPTION_ERROR;
456: END IF;
457: --
450: x_msg_data,
451: g_cocv_rec);
452: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
453: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
454: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
455: RAISE OKC_API.G_EXCEPTION_ERROR;
456: END IF;
457: --
458: -- Call After Logic Hook
451: g_cocv_rec);
452: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
453: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
454: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
455: RAISE OKC_API.G_EXCEPTION_ERROR;
456: END IF;
457: --
458: -- Call After Logic Hook
459: --
457: --
458: -- Call After Logic Hook
459: --
460: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
461: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
462: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
463: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
464: raise OKC_API.G_EXCEPTION_ERROR;
465: END IF;
458: -- Call After Logic Hook
459: --
460: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
461: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
462: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
463: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
464: raise OKC_API.G_EXCEPTION_ERROR;
465: END IF;
466: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
459: --
460: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
461: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
462: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
463: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
464: raise OKC_API.G_EXCEPTION_ERROR;
465: END IF;
466: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
467: EXCEPTION
460: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
461: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
462: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
463: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
464: raise OKC_API.G_EXCEPTION_ERROR;
465: END IF;
466: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
467: EXCEPTION
468: WHEN OKC_API.G_EXCEPTION_ERROR THEN
462: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
463: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
464: raise OKC_API.G_EXCEPTION_ERROR;
465: END IF;
466: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
467: EXCEPTION
468: WHEN OKC_API.G_EXCEPTION_ERROR THEN
469: x_return_status := OKC_API.HANDLE_EXCEPTIONS
470: (substr(l_api_name,1,26),
464: raise OKC_API.G_EXCEPTION_ERROR;
465: END IF;
466: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
467: EXCEPTION
468: WHEN OKC_API.G_EXCEPTION_ERROR THEN
469: x_return_status := OKC_API.HANDLE_EXCEPTIONS
470: (substr(l_api_name,1,26),
471: G_PKG_NAME,
472: 'OKC_API.G_RET_STS_ERROR',
465: END IF;
466: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
467: EXCEPTION
468: WHEN OKC_API.G_EXCEPTION_ERROR THEN
469: x_return_status := OKC_API.HANDLE_EXCEPTIONS
470: (substr(l_api_name,1,26),
471: G_PKG_NAME,
472: 'OKC_API.G_RET_STS_ERROR',
473: x_msg_count,
468: WHEN OKC_API.G_EXCEPTION_ERROR THEN
469: x_return_status := OKC_API.HANDLE_EXCEPTIONS
470: (substr(l_api_name,1,26),
471: G_PKG_NAME,
472: 'OKC_API.G_RET_STS_ERROR',
473: x_msg_count,
474: x_msg_data,
475: '_PUB');
476: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
472: 'OKC_API.G_RET_STS_ERROR',
473: x_msg_count,
474: x_msg_data,
475: '_PUB');
476: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
477: x_return_status := OKC_API.HANDLE_EXCEPTIONS
478: (substr(l_api_name,1,26),
479: G_PKG_NAME,
480: 'OKC_API.G_RET_STS_UNEXP_ERROR',
473: x_msg_count,
474: x_msg_data,
475: '_PUB');
476: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
477: x_return_status := OKC_API.HANDLE_EXCEPTIONS
478: (substr(l_api_name,1,26),
479: G_PKG_NAME,
480: 'OKC_API.G_RET_STS_UNEXP_ERROR',
481: x_msg_count,
476: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
477: x_return_status := OKC_API.HANDLE_EXCEPTIONS
478: (substr(l_api_name,1,26),
479: G_PKG_NAME,
480: 'OKC_API.G_RET_STS_UNEXP_ERROR',
481: x_msg_count,
482: x_msg_data,
483: '_PUB');
484: WHEN OTHERS THEN
481: x_msg_count,
482: x_msg_data,
483: '_PUB');
484: WHEN OTHERS THEN
485: x_return_status := OKC_API.HANDLE_EXCEPTIONS
486: (substr(l_api_name,1,26),
487: G_PKG_NAME,
488: 'OTHERS',
489: x_msg_count,
500: -- Version : 1.0
501: -- End of comments
502:
503: procedure lock_Order_Contact(p_api_version IN NUMBER,
504: p_init_msg_list IN VARCHAR2 default OKC_API.G_FALSE,
505: x_return_status OUT NOCOPY VARCHAR2,
506: x_msg_count OUT NOCOPY NUMBER,
507: x_msg_data OUT NOCOPY VARCHAR2,
508: p_cocv_tbl IN cocv_tbl_type) is
506: x_msg_count OUT NOCOPY NUMBER,
507: x_msg_data OUT NOCOPY VARCHAR2,
508: p_cocv_tbl IN cocv_tbl_type) is
509: i NUMBER;
510: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
511: begin
512: OKC_API.init_msg_list(p_init_msg_list);
513: x_return_status:= OKC_API.G_RET_STS_SUCCESS;
514: if (p_cocv_tbl.COUNT>0) then
508: p_cocv_tbl IN cocv_tbl_type) is
509: i NUMBER;
510: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
511: begin
512: OKC_API.init_msg_list(p_init_msg_list);
513: x_return_status:= OKC_API.G_RET_STS_SUCCESS;
514: if (p_cocv_tbl.COUNT>0) then
515: i := p_cocv_tbl.FIRST;
516: LOOP
509: i NUMBER;
510: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
511: begin
512: OKC_API.init_msg_list(p_init_msg_list);
513: x_return_status:= OKC_API.G_RET_STS_SUCCESS;
514: if (p_cocv_tbl.COUNT>0) then
515: i := p_cocv_tbl.FIRST;
516: LOOP
517: lock_Order_Contact(p_api_version=>p_api_version,
514: if (p_cocv_tbl.COUNT>0) then
515: i := p_cocv_tbl.FIRST;
516: LOOP
517: lock_Order_Contact(p_api_version=>p_api_version,
518: p_init_msg_list=>OKC_API.G_FALSE,
519: x_return_status=>l_return_status,
520: x_msg_count=>x_msg_count,
521: x_msg_data=>x_msg_data,
522: p_cocv_rec=>p_cocv_tbl(i));
519: x_return_status=>l_return_status,
520: x_msg_count=>x_msg_count,
521: x_msg_data=>x_msg_data,
522: p_cocv_rec=>p_cocv_tbl(i));
523: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
524: x_return_status := l_return_status;
525: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
526: elsif (l_return_status = OKC_API.G_RET_STS_ERROR) then
527: x_return_status := l_return_status;
521: x_msg_data=>x_msg_data,
522: p_cocv_rec=>p_cocv_tbl(i));
523: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
524: x_return_status := l_return_status;
525: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
526: elsif (l_return_status = OKC_API.G_RET_STS_ERROR) then
527: x_return_status := l_return_status;
528: end if;
529: EXIT WHEN (i=p_cocv_tbl.LAST);
522: p_cocv_rec=>p_cocv_tbl(i));
523: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
524: x_return_status := l_return_status;
525: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
526: elsif (l_return_status = OKC_API.G_RET_STS_ERROR) then
527: x_return_status := l_return_status;
528: end if;
529: EXIT WHEN (i=p_cocv_tbl.LAST);
530: i := p_cocv_tbl.NEXT(i);
543: -- Version : 1.0
544: -- End of comments
545:
546: procedure validate_Order_Contact(p_api_version IN NUMBER,
547: p_init_msg_list IN VARCHAR2 default OKC_API.G_FALSE,
548: x_return_status OUT NOCOPY VARCHAR2,
549: x_msg_count OUT NOCOPY NUMBER,
550: x_msg_data OUT NOCOPY VARCHAR2,
551: p_cocv_rec IN cocv_rec_type) is
550: x_msg_data OUT NOCOPY VARCHAR2,
551: p_cocv_rec IN cocv_rec_type) is
552: l_api_name CONSTANT VARCHAR2(30) := 'validate_Order_Contact';
553: l_api_version CONSTANT NUMBER := 1;
554: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
555: begin
556: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
557: p_init_msg_list,
558: '_PUB',
552: l_api_name CONSTANT VARCHAR2(30) := 'validate_Order_Contact';
553: l_api_version CONSTANT NUMBER := 1;
554: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
555: begin
556: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
557: p_init_msg_list,
558: '_PUB',
559: x_return_status);
560: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
556: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
557: p_init_msg_list,
558: '_PUB',
559: x_return_status);
560: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
561: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
562: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
563: RAISE OKC_API.G_EXCEPTION_ERROR;
564: END IF;
557: p_init_msg_list,
558: '_PUB',
559: x_return_status);
560: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
561: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
562: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
563: RAISE OKC_API.G_EXCEPTION_ERROR;
564: END IF;
565: --
558: '_PUB',
559: x_return_status);
560: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
561: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
562: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
563: RAISE OKC_API.G_EXCEPTION_ERROR;
564: END IF;
565: --
566: -- Call Before Logic Hook
559: x_return_status);
560: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
561: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
562: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
563: RAISE OKC_API.G_EXCEPTION_ERROR;
564: END IF;
565: --
566: -- Call Before Logic Hook
567: --
566: -- Call Before Logic Hook
567: --
568: g_cocv_rec := p_cocv_rec;
569: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
570: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
571: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
572: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
573: raise OKC_API.G_EXCEPTION_ERROR;
574: END IF;
567: --
568: g_cocv_rec := p_cocv_rec;
569: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
570: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
571: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
572: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
573: raise OKC_API.G_EXCEPTION_ERROR;
574: END IF;
575: reset(p_cocv_rec);
568: g_cocv_rec := p_cocv_rec;
569: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
570: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
571: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
572: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
573: raise OKC_API.G_EXCEPTION_ERROR;
574: END IF;
575: reset(p_cocv_rec);
576: OKS_ORDER_CONTACTs_PVT.validate_Order_Contact(p_api_version,
569: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
570: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
571: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
572: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
573: raise OKC_API.G_EXCEPTION_ERROR;
574: END IF;
575: reset(p_cocv_rec);
576: OKS_ORDER_CONTACTs_PVT.validate_Order_Contact(p_api_version,
577: p_init_msg_list,
578: x_return_status,
579: x_msg_count,
580: x_msg_data,
581: g_cocv_rec);
582: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
583: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
584: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
585: RAISE OKC_API.G_EXCEPTION_ERROR;
586: END IF;
579: x_msg_count,
580: x_msg_data,
581: g_cocv_rec);
582: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
583: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
584: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
585: RAISE OKC_API.G_EXCEPTION_ERROR;
586: END IF;
587: --
580: x_msg_data,
581: g_cocv_rec);
582: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
583: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
584: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
585: RAISE OKC_API.G_EXCEPTION_ERROR;
586: END IF;
587: --
588: -- Call After Logic Hook
581: g_cocv_rec);
582: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
583: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
584: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
585: RAISE OKC_API.G_EXCEPTION_ERROR;
586: END IF;
587: --
588: -- Call After Logic Hook
589: --
587: --
588: -- Call After Logic Hook
589: --
590: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
591: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
592: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
593: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
594: raise OKC_API.G_EXCEPTION_ERROR;
595: END IF;
588: -- Call After Logic Hook
589: --
590: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
591: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
592: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
593: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
594: raise OKC_API.G_EXCEPTION_ERROR;
595: END IF;
596: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
589: --
590: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
591: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
592: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
593: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
594: raise OKC_API.G_EXCEPTION_ERROR;
595: END IF;
596: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
597: EXCEPTION
590: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
591: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
592: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
593: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
594: raise OKC_API.G_EXCEPTION_ERROR;
595: END IF;
596: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
597: EXCEPTION
598: WHEN OKC_API.G_EXCEPTION_ERROR THEN
592: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
593: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
594: raise OKC_API.G_EXCEPTION_ERROR;
595: END IF;
596: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
597: EXCEPTION
598: WHEN OKC_API.G_EXCEPTION_ERROR THEN
599: x_return_status := OKC_API.HANDLE_EXCEPTIONS
600: (substr(l_api_name,1,26),
594: raise OKC_API.G_EXCEPTION_ERROR;
595: END IF;
596: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
597: EXCEPTION
598: WHEN OKC_API.G_EXCEPTION_ERROR THEN
599: x_return_status := OKC_API.HANDLE_EXCEPTIONS
600: (substr(l_api_name,1,26),
601: G_PKG_NAME,
602: 'OKC_API.G_RET_STS_ERROR',
595: END IF;
596: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
597: EXCEPTION
598: WHEN OKC_API.G_EXCEPTION_ERROR THEN
599: x_return_status := OKC_API.HANDLE_EXCEPTIONS
600: (substr(l_api_name,1,26),
601: G_PKG_NAME,
602: 'OKC_API.G_RET_STS_ERROR',
603: x_msg_count,
598: WHEN OKC_API.G_EXCEPTION_ERROR THEN
599: x_return_status := OKC_API.HANDLE_EXCEPTIONS
600: (substr(l_api_name,1,26),
601: G_PKG_NAME,
602: 'OKC_API.G_RET_STS_ERROR',
603: x_msg_count,
604: x_msg_data,
605: '_PUB');
606: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
602: 'OKC_API.G_RET_STS_ERROR',
603: x_msg_count,
604: x_msg_data,
605: '_PUB');
606: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
607: x_return_status := OKC_API.HANDLE_EXCEPTIONS
608: (substr(l_api_name,1,26),
609: G_PKG_NAME,
610: 'OKC_API.G_RET_STS_UNEXP_ERROR',
603: x_msg_count,
604: x_msg_data,
605: '_PUB');
606: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
607: x_return_status := OKC_API.HANDLE_EXCEPTIONS
608: (substr(l_api_name,1,26),
609: G_PKG_NAME,
610: 'OKC_API.G_RET_STS_UNEXP_ERROR',
611: x_msg_count,
606: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
607: x_return_status := OKC_API.HANDLE_EXCEPTIONS
608: (substr(l_api_name,1,26),
609: G_PKG_NAME,
610: 'OKC_API.G_RET_STS_UNEXP_ERROR',
611: x_msg_count,
612: x_msg_data,
613: '_PUB');
614: WHEN OTHERS THEN
611: x_msg_count,
612: x_msg_data,
613: '_PUB');
614: WHEN OTHERS THEN
615: x_return_status := OKC_API.HANDLE_EXCEPTIONS
616: (substr(l_api_name,1,26),
617: G_PKG_NAME,
618: 'OTHERS',
619: x_msg_count,
630: -- Version : 1.0
631: -- End of comments
632:
633: procedure validate_Order_Contact(p_api_version IN NUMBER,
634: p_init_msg_list IN VARCHAR2 default OKC_API.G_FALSE,
635: x_return_status OUT NOCOPY VARCHAR2,
636: x_msg_count OUT NOCOPY NUMBER,
637: x_msg_data OUT NOCOPY VARCHAR2,
638: p_cocv_tbl IN cocv_tbl_type) is
636: x_msg_count OUT NOCOPY NUMBER,
637: x_msg_data OUT NOCOPY VARCHAR2,
638: p_cocv_tbl IN cocv_tbl_type) is
639: i NUMBER;
640: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
641: begin
642: OKC_API.init_msg_list(p_init_msg_list);
643: x_return_status:= OKC_API.G_RET_STS_SUCCESS;
644: if (p_cocv_tbl.COUNT>0) then
638: p_cocv_tbl IN cocv_tbl_type) is
639: i NUMBER;
640: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
641: begin
642: OKC_API.init_msg_list(p_init_msg_list);
643: x_return_status:= OKC_API.G_RET_STS_SUCCESS;
644: if (p_cocv_tbl.COUNT>0) then
645: i := p_cocv_tbl.FIRST;
646: LOOP
639: i NUMBER;
640: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
641: begin
642: OKC_API.init_msg_list(p_init_msg_list);
643: x_return_status:= OKC_API.G_RET_STS_SUCCESS;
644: if (p_cocv_tbl.COUNT>0) then
645: i := p_cocv_tbl.FIRST;
646: LOOP
647: validate_Order_Contact(p_api_version=>p_api_version,
644: if (p_cocv_tbl.COUNT>0) then
645: i := p_cocv_tbl.FIRST;
646: LOOP
647: validate_Order_Contact(p_api_version=>p_api_version,
648: p_init_msg_list=>OKC_API.G_FALSE,
649: x_return_status=>l_return_status,
650: x_msg_count=>x_msg_count,
651: x_msg_data=>x_msg_data,
652: p_cocv_rec=>p_cocv_tbl(i));
649: x_return_status=>l_return_status,
650: x_msg_count=>x_msg_count,
651: x_msg_data=>x_msg_data,
652: p_cocv_rec=>p_cocv_tbl(i));
653: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
654: x_return_status := l_return_status;
655: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
656: elsif (l_return_status = OKC_API.G_RET_STS_ERROR) then
657: x_return_status := l_return_status;
651: x_msg_data=>x_msg_data,
652: p_cocv_rec=>p_cocv_tbl(i));
653: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
654: x_return_status := l_return_status;
655: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
656: elsif (l_return_status = OKC_API.G_RET_STS_ERROR) then
657: x_return_status := l_return_status;
658: end if;
659: EXIT WHEN (i=p_cocv_tbl.LAST);
652: p_cocv_rec=>p_cocv_tbl(i));
653: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
654: x_return_status := l_return_status;
655: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
656: elsif (l_return_status = OKC_API.G_RET_STS_ERROR) then
657: x_return_status := l_return_status;
658: end if;
659: EXIT WHEN (i=p_cocv_tbl.LAST);
660: i := p_cocv_tbl.NEXT(i);