1: package body OKC_CONTRACT_ITEM_PUB as
2: /* $Header: OKCPCIMB.pls 120.0 2005/05/26 09:28:05 appldev noship $ */
3: l_debug VARCHAR2(1) := NVL(FND_PROFILE.VALUE('AFLOG_ENABLED'),'N');
4:
5: G_APP_NAME CONSTANT VARCHAR2(3) := OKC_API.G_APP_NAME;
6: G_PKG_NAME CONSTANT VARCHAR2(200) := 'OKC_CONTRACT_ITEM_PUB';
7:
8: procedure reset(p_cimv_rec IN cimv_rec_type) is
9: begin
33: p_cimv_rec IN cimv_rec_type,
34: x_cimv_rec OUT NOCOPY cimv_rec_type) is
35: l_api_name CONSTANT VARCHAR2(30) := 'create_contract_item';
36: l_api_version CONSTANT NUMBER := 1;
37: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
38: begin
39: l_return_status := OKC_API.START_ACTIVITY(substr(l_api_name,1,26),
40: G_PKG_NAME,
41: p_init_msg_list,
35: l_api_name CONSTANT VARCHAR2(30) := 'create_contract_item';
36: l_api_version CONSTANT NUMBER := 1;
37: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
38: begin
39: l_return_status := OKC_API.START_ACTIVITY(substr(l_api_name,1,26),
40: G_PKG_NAME,
41: p_init_msg_list,
42: l_api_version,
43: p_api_version,
42: l_api_version,
43: p_api_version,
44: '_PUB',
45: x_return_status);
46: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
47: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
48: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
49: RAISE OKC_API.G_EXCEPTION_ERROR;
50: END IF;
43: p_api_version,
44: '_PUB',
45: x_return_status);
46: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
47: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
48: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
49: RAISE OKC_API.G_EXCEPTION_ERROR;
50: END IF;
51: --
44: '_PUB',
45: x_return_status);
46: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
47: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
48: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
49: RAISE OKC_API.G_EXCEPTION_ERROR;
50: END IF;
51: --
52: -- Call Before Logic Hook
45: x_return_status);
46: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
47: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
48: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
49: RAISE OKC_API.G_EXCEPTION_ERROR;
50: END IF;
51: --
52: -- Call Before Logic Hook
53: --
52: -- Call Before Logic Hook
53: --
54: g_cimv_rec := p_cimv_rec;
55: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
56: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
57: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
58: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
59: raise OKC_API.G_EXCEPTION_ERROR;
60: END IF;
53: --
54: g_cimv_rec := p_cimv_rec;
55: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
56: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
57: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
58: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
59: raise OKC_API.G_EXCEPTION_ERROR;
60: END IF;
61: reset(p_cimv_rec);
54: g_cimv_rec := p_cimv_rec;
55: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
56: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
57: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
58: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
59: raise OKC_API.G_EXCEPTION_ERROR;
60: END IF;
61: reset(p_cimv_rec);
62: OKC_CONTRACT_ITEM_PVT.create_contract_item(p_api_version,
55: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
56: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
57: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
58: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
59: raise OKC_API.G_EXCEPTION_ERROR;
60: END IF;
61: reset(p_cimv_rec);
62: OKC_CONTRACT_ITEM_PVT.create_contract_item(p_api_version,
63: p_init_msg_list,
65: x_msg_count,
66: x_msg_data,
67: g_cimv_rec,
68: x_cimv_rec);
69: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
70: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
71: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
72: RAISE OKC_API.G_EXCEPTION_ERROR;
73: END IF;
66: x_msg_data,
67: g_cimv_rec,
68: x_cimv_rec);
69: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
70: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
71: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
72: RAISE OKC_API.G_EXCEPTION_ERROR;
73: END IF;
74: --
67: g_cimv_rec,
68: x_cimv_rec);
69: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
70: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
71: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
72: RAISE OKC_API.G_EXCEPTION_ERROR;
73: END IF;
74: --
75: -- Call After Logic Hook
68: x_cimv_rec);
69: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
70: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
71: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
72: RAISE OKC_API.G_EXCEPTION_ERROR;
73: END IF;
74: --
75: -- Call After Logic Hook
76: --
75: -- Call After Logic Hook
76: --
77: g_cimv_rec := x_cimv_rec;
78: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
79: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
80: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
81: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
82: raise OKC_API.G_EXCEPTION_ERROR;
83: END IF;
76: --
77: g_cimv_rec := x_cimv_rec;
78: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
79: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
80: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
81: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
82: raise OKC_API.G_EXCEPTION_ERROR;
83: END IF;
84: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
77: g_cimv_rec := x_cimv_rec;
78: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
79: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
80: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
81: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
82: raise OKC_API.G_EXCEPTION_ERROR;
83: END IF;
84: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
85: EXCEPTION
78: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
79: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
80: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
81: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
82: raise OKC_API.G_EXCEPTION_ERROR;
83: END IF;
84: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
85: EXCEPTION
86: WHEN OKC_API.G_EXCEPTION_ERROR THEN
80: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
81: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
82: raise OKC_API.G_EXCEPTION_ERROR;
83: END IF;
84: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
85: EXCEPTION
86: WHEN OKC_API.G_EXCEPTION_ERROR THEN
87: x_return_status := OKC_API.HANDLE_EXCEPTIONS
88: (substr(l_api_name,1,26),
82: raise OKC_API.G_EXCEPTION_ERROR;
83: END IF;
84: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
85: EXCEPTION
86: WHEN OKC_API.G_EXCEPTION_ERROR THEN
87: x_return_status := OKC_API.HANDLE_EXCEPTIONS
88: (substr(l_api_name,1,26),
89: G_PKG_NAME,
90: 'OKC_API.G_RET_STS_ERROR',
83: END IF;
84: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
85: EXCEPTION
86: WHEN OKC_API.G_EXCEPTION_ERROR THEN
87: x_return_status := OKC_API.HANDLE_EXCEPTIONS
88: (substr(l_api_name,1,26),
89: G_PKG_NAME,
90: 'OKC_API.G_RET_STS_ERROR',
91: x_msg_count,
86: WHEN OKC_API.G_EXCEPTION_ERROR THEN
87: x_return_status := OKC_API.HANDLE_EXCEPTIONS
88: (substr(l_api_name,1,26),
89: G_PKG_NAME,
90: 'OKC_API.G_RET_STS_ERROR',
91: x_msg_count,
92: x_msg_data,
93: '_PUB');
94: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
90: 'OKC_API.G_RET_STS_ERROR',
91: x_msg_count,
92: x_msg_data,
93: '_PUB');
94: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
95: x_return_status := OKC_API.HANDLE_EXCEPTIONS
96: (substr(l_api_name,1,26),
97: G_PKG_NAME,
98: 'OKC_API.G_RET_STS_UNEXP_ERROR',
91: x_msg_count,
92: x_msg_data,
93: '_PUB');
94: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
95: x_return_status := OKC_API.HANDLE_EXCEPTIONS
96: (substr(l_api_name,1,26),
97: G_PKG_NAME,
98: 'OKC_API.G_RET_STS_UNEXP_ERROR',
99: x_msg_count,
94: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
95: x_return_status := OKC_API.HANDLE_EXCEPTIONS
96: (substr(l_api_name,1,26),
97: G_PKG_NAME,
98: 'OKC_API.G_RET_STS_UNEXP_ERROR',
99: x_msg_count,
100: x_msg_data,
101: '_PUB');
102: WHEN OTHERS THEN
99: x_msg_count,
100: x_msg_data,
101: '_PUB');
102: WHEN OTHERS THEN
103: x_return_status := OKC_API.HANDLE_EXCEPTIONS
104: (substr(l_api_name,1,26),
105: G_PKG_NAME,
106: 'OTHERS',
107: x_msg_count,
125: x_msg_data OUT NOCOPY VARCHAR2,
126: p_cimv_tbl IN cimv_tbl_type,
127: x_cimv_tbl OUT NOCOPY cimv_tbl_type) is
128: i NUMBER;
129: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
130: begin
131: OKC_API.init_msg_list(p_init_msg_list);
132: x_return_status:= OKC_API.G_RET_STS_SUCCESS;
133: if (p_cimv_tbl.COUNT>0) then
127: x_cimv_tbl OUT NOCOPY cimv_tbl_type) is
128: i NUMBER;
129: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
130: begin
131: OKC_API.init_msg_list(p_init_msg_list);
132: x_return_status:= OKC_API.G_RET_STS_SUCCESS;
133: if (p_cimv_tbl.COUNT>0) then
134: i := p_cimv_tbl.FIRST;
135: LOOP
128: i NUMBER;
129: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
130: begin
131: OKC_API.init_msg_list(p_init_msg_list);
132: x_return_status:= OKC_API.G_RET_STS_SUCCESS;
133: if (p_cimv_tbl.COUNT>0) then
134: i := p_cimv_tbl.FIRST;
135: LOOP
136: create_contract_item(p_api_version=>p_api_version,
133: if (p_cimv_tbl.COUNT>0) then
134: i := p_cimv_tbl.FIRST;
135: LOOP
136: create_contract_item(p_api_version=>p_api_version,
137: p_init_msg_list=>OKC_API.G_FALSE,
138: x_return_status=>l_return_status,
139: x_msg_count=>x_msg_count,
140: x_msg_data=>x_msg_data,
141: p_cimv_rec=>p_cimv_tbl(i),
139: x_msg_count=>x_msg_count,
140: x_msg_data=>x_msg_data,
141: p_cimv_rec=>p_cimv_tbl(i),
142: x_cimv_rec=>x_cimv_tbl(i));
143: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
144: x_return_status := l_return_status;
145: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
146: elsif (l_return_status = OKC_API.G_RET_STS_ERROR) then
147: x_return_status := l_return_status;
141: p_cimv_rec=>p_cimv_tbl(i),
142: x_cimv_rec=>x_cimv_tbl(i));
143: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
144: x_return_status := l_return_status;
145: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
146: elsif (l_return_status = OKC_API.G_RET_STS_ERROR) then
147: x_return_status := l_return_status;
148: end if;
149: EXIT WHEN (i=p_cimv_tbl.LAST);
142: x_cimv_rec=>x_cimv_tbl(i));
143: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
144: x_return_status := l_return_status;
145: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
146: elsif (l_return_status = OKC_API.G_RET_STS_ERROR) then
147: x_return_status := l_return_status;
148: end if;
149: EXIT WHEN (i=p_cimv_tbl.LAST);
150: i := p_cimv_tbl.NEXT(i);
162: p_cimv_rec IN cimv_rec_type,
163: x_cimv_rec OUT NOCOPY cimv_rec_type) is
164: l_api_name CONSTANT VARCHAR2(30) := 'update_contract_item';
165: l_api_version CONSTANT NUMBER := 1;
166: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
167: begin
168: l_return_status := OKC_API.START_ACTIVITY(substr(l_api_name,1,26),
169: G_PKG_NAME,
170: p_init_msg_list,
164: l_api_name CONSTANT VARCHAR2(30) := 'update_contract_item';
165: l_api_version CONSTANT NUMBER := 1;
166: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
167: begin
168: l_return_status := OKC_API.START_ACTIVITY(substr(l_api_name,1,26),
169: G_PKG_NAME,
170: p_init_msg_list,
171: l_api_version,
172: p_api_version,
171: l_api_version,
172: p_api_version,
173: '_PUB',
174: x_return_status);
175: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
176: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
177: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
178: RAISE OKC_API.G_EXCEPTION_ERROR;
179: END IF;
172: p_api_version,
173: '_PUB',
174: x_return_status);
175: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
176: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
177: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
178: RAISE OKC_API.G_EXCEPTION_ERROR;
179: END IF;
180: --
173: '_PUB',
174: x_return_status);
175: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
176: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
177: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
178: RAISE OKC_API.G_EXCEPTION_ERROR;
179: END IF;
180: --
181: -- Call Before Logic Hook
174: x_return_status);
175: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
176: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
177: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
178: RAISE OKC_API.G_EXCEPTION_ERROR;
179: END IF;
180: --
181: -- Call Before Logic Hook
182: --
181: -- Call Before Logic Hook
182: --
183: g_cimv_rec := p_cimv_rec;
184: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
185: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
186: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
187: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
188: raise OKC_API.G_EXCEPTION_ERROR;
189: END IF;
182: --
183: g_cimv_rec := p_cimv_rec;
184: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
185: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
186: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
187: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
188: raise OKC_API.G_EXCEPTION_ERROR;
189: END IF;
190: reset(p_cimv_rec);
183: g_cimv_rec := p_cimv_rec;
184: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
185: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
186: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
187: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
188: raise OKC_API.G_EXCEPTION_ERROR;
189: END IF;
190: reset(p_cimv_rec);
191: OKC_CONTRACT_ITEM_PVT.update_contract_item(p_api_version,
184: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
185: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
186: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
187: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
188: raise OKC_API.G_EXCEPTION_ERROR;
189: END IF;
190: reset(p_cimv_rec);
191: OKC_CONTRACT_ITEM_PVT.update_contract_item(p_api_version,
192: p_init_msg_list,
194: x_msg_count,
195: x_msg_data,
196: g_cimv_rec,
197: x_cimv_rec);
198: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
199: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
200: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
201: RAISE OKC_API.G_EXCEPTION_ERROR;
202: END IF;
195: x_msg_data,
196: g_cimv_rec,
197: x_cimv_rec);
198: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
199: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
200: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
201: RAISE OKC_API.G_EXCEPTION_ERROR;
202: END IF;
203: --
196: g_cimv_rec,
197: x_cimv_rec);
198: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
199: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
200: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
201: RAISE OKC_API.G_EXCEPTION_ERROR;
202: END IF;
203: --
204: -- Call After Logic Hook
197: x_cimv_rec);
198: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
199: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
200: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
201: RAISE OKC_API.G_EXCEPTION_ERROR;
202: END IF;
203: --
204: -- Call After Logic Hook
205: --
204: -- Call After Logic Hook
205: --
206: g_cimv_rec := x_cimv_rec;
207: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
208: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
209: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
210: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
211: raise OKC_API.G_EXCEPTION_ERROR;
212: END IF;
205: --
206: g_cimv_rec := x_cimv_rec;
207: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
208: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
209: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
210: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
211: raise OKC_API.G_EXCEPTION_ERROR;
212: END IF;
213: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
206: g_cimv_rec := x_cimv_rec;
207: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
208: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
209: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
210: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
211: raise OKC_API.G_EXCEPTION_ERROR;
212: END IF;
213: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
214: EXCEPTION
207: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
208: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
209: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
210: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
211: raise OKC_API.G_EXCEPTION_ERROR;
212: END IF;
213: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
214: EXCEPTION
215: WHEN OKC_API.G_EXCEPTION_ERROR THEN
209: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
210: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
211: raise OKC_API.G_EXCEPTION_ERROR;
212: END IF;
213: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
214: EXCEPTION
215: WHEN OKC_API.G_EXCEPTION_ERROR THEN
216: x_return_status := OKC_API.HANDLE_EXCEPTIONS
217: (substr(l_api_name,1,26),
211: raise OKC_API.G_EXCEPTION_ERROR;
212: END IF;
213: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
214: EXCEPTION
215: WHEN OKC_API.G_EXCEPTION_ERROR THEN
216: x_return_status := OKC_API.HANDLE_EXCEPTIONS
217: (substr(l_api_name,1,26),
218: G_PKG_NAME,
219: 'OKC_API.G_RET_STS_ERROR',
212: END IF;
213: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
214: EXCEPTION
215: WHEN OKC_API.G_EXCEPTION_ERROR THEN
216: x_return_status := OKC_API.HANDLE_EXCEPTIONS
217: (substr(l_api_name,1,26),
218: G_PKG_NAME,
219: 'OKC_API.G_RET_STS_ERROR',
220: x_msg_count,
215: WHEN OKC_API.G_EXCEPTION_ERROR THEN
216: x_return_status := OKC_API.HANDLE_EXCEPTIONS
217: (substr(l_api_name,1,26),
218: G_PKG_NAME,
219: 'OKC_API.G_RET_STS_ERROR',
220: x_msg_count,
221: x_msg_data,
222: '_PUB');
223: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
219: 'OKC_API.G_RET_STS_ERROR',
220: x_msg_count,
221: x_msg_data,
222: '_PUB');
223: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
224: x_return_status := OKC_API.HANDLE_EXCEPTIONS
225: (substr(l_api_name,1,26),
226: G_PKG_NAME,
227: 'OKC_API.G_RET_STS_UNEXP_ERROR',
220: x_msg_count,
221: x_msg_data,
222: '_PUB');
223: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
224: x_return_status := OKC_API.HANDLE_EXCEPTIONS
225: (substr(l_api_name,1,26),
226: G_PKG_NAME,
227: 'OKC_API.G_RET_STS_UNEXP_ERROR',
228: x_msg_count,
223: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
224: x_return_status := OKC_API.HANDLE_EXCEPTIONS
225: (substr(l_api_name,1,26),
226: G_PKG_NAME,
227: 'OKC_API.G_RET_STS_UNEXP_ERROR',
228: x_msg_count,
229: x_msg_data,
230: '_PUB');
231: WHEN OTHERS THEN
228: x_msg_count,
229: x_msg_data,
230: '_PUB');
231: WHEN OTHERS THEN
232: x_return_status := OKC_API.HANDLE_EXCEPTIONS
233: (substr(l_api_name,1,26),
234: G_PKG_NAME,
235: 'OTHERS',
236: x_msg_count,
254: x_msg_data OUT NOCOPY VARCHAR2,
255: p_cimv_tbl IN cimv_tbl_type,
256: x_cimv_tbl OUT NOCOPY cimv_tbl_type) is
257: i NUMBER;
258: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
259: begin
260: OKC_API.init_msg_list(p_init_msg_list);
261: x_return_status:= OKC_API.G_RET_STS_SUCCESS;
262: if (p_cimv_tbl.COUNT>0) then
256: x_cimv_tbl OUT NOCOPY cimv_tbl_type) is
257: i NUMBER;
258: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
259: begin
260: OKC_API.init_msg_list(p_init_msg_list);
261: x_return_status:= OKC_API.G_RET_STS_SUCCESS;
262: if (p_cimv_tbl.COUNT>0) then
263: i := p_cimv_tbl.FIRST;
264: LOOP
257: i NUMBER;
258: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
259: begin
260: OKC_API.init_msg_list(p_init_msg_list);
261: x_return_status:= OKC_API.G_RET_STS_SUCCESS;
262: if (p_cimv_tbl.COUNT>0) then
263: i := p_cimv_tbl.FIRST;
264: LOOP
265: update_contract_item(p_api_version=>p_api_version,
262: if (p_cimv_tbl.COUNT>0) then
263: i := p_cimv_tbl.FIRST;
264: LOOP
265: update_contract_item(p_api_version=>p_api_version,
266: p_init_msg_list=>OKC_API.G_FALSE,
267: x_return_status=>l_return_status,
268: x_msg_count=>x_msg_count,
269: x_msg_data=>x_msg_data,
270: p_cimv_rec=>p_cimv_tbl(i),
268: x_msg_count=>x_msg_count,
269: x_msg_data=>x_msg_data,
270: p_cimv_rec=>p_cimv_tbl(i),
271: x_cimv_rec=>x_cimv_tbl(i));
272: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
273: x_return_status := l_return_status;
274: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
275: elsif (l_return_status = OKC_API.G_RET_STS_ERROR) then
276: x_return_status := l_return_status;
270: p_cimv_rec=>p_cimv_tbl(i),
271: x_cimv_rec=>x_cimv_tbl(i));
272: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
273: x_return_status := l_return_status;
274: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
275: elsif (l_return_status = OKC_API.G_RET_STS_ERROR) then
276: x_return_status := l_return_status;
277: end if;
278: EXIT WHEN (i=p_cimv_tbl.LAST);
271: x_cimv_rec=>x_cimv_tbl(i));
272: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
273: x_return_status := l_return_status;
274: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
275: elsif (l_return_status = OKC_API.G_RET_STS_ERROR) then
276: x_return_status := l_return_status;
277: end if;
278: EXIT WHEN (i=p_cimv_tbl.LAST);
279: i := p_cimv_tbl.NEXT(i);
299: x_msg_data OUT NOCOPY VARCHAR2,
300: p_cimv_rec IN cimv_rec_type) is
301: l_api_name CONSTANT VARCHAR2(30) := 'delete_contract_item';
302: l_api_version CONSTANT NUMBER := 1;
303: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
304: begin
305: l_return_status := OKC_API.START_ACTIVITY(substr(l_api_name,1,26),
306: G_PKG_NAME,
307: p_init_msg_list,
301: l_api_name CONSTANT VARCHAR2(30) := 'delete_contract_item';
302: l_api_version CONSTANT NUMBER := 1;
303: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
304: begin
305: l_return_status := OKC_API.START_ACTIVITY(substr(l_api_name,1,26),
306: G_PKG_NAME,
307: p_init_msg_list,
308: l_api_version,
309: p_api_version,
308: l_api_version,
309: p_api_version,
310: '_PUB',
311: x_return_status);
312: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
313: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
314: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
315: RAISE OKC_API.G_EXCEPTION_ERROR;
316: END IF;
309: p_api_version,
310: '_PUB',
311: x_return_status);
312: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
313: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
314: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
315: RAISE OKC_API.G_EXCEPTION_ERROR;
316: END IF;
317: --
310: '_PUB',
311: x_return_status);
312: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
313: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
314: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
315: RAISE OKC_API.G_EXCEPTION_ERROR;
316: END IF;
317: --
318: -- Call Before Logic Hook
311: x_return_status);
312: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
313: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
314: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
315: RAISE OKC_API.G_EXCEPTION_ERROR;
316: END IF;
317: --
318: -- Call Before Logic Hook
319: --
318: -- Call Before Logic Hook
319: --
320: g_cimv_rec := p_cimv_rec;
321: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
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: --
320: g_cimv_rec := p_cimv_rec;
321: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
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: reset(p_cimv_rec);
320: g_cimv_rec := p_cimv_rec;
321: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
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: reset(p_cimv_rec);
328: OKC_CONTRACT_ITEM_PVT.delete_contract_item(p_api_version,
321: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
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: reset(p_cimv_rec);
328: OKC_CONTRACT_ITEM_PVT.delete_contract_item(p_api_version,
329: p_init_msg_list,
330: x_return_status,
331: x_msg_count,
332: x_msg_data,
333: g_cimv_rec);
334: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
335: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
336: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
337: RAISE OKC_API.G_EXCEPTION_ERROR;
338: END IF;
331: x_msg_count,
332: x_msg_data,
333: g_cimv_rec);
334: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
335: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
336: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
337: RAISE OKC_API.G_EXCEPTION_ERROR;
338: END IF;
339: --
332: x_msg_data,
333: g_cimv_rec);
334: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
335: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
336: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
337: RAISE OKC_API.G_EXCEPTION_ERROR;
338: END IF;
339: --
340: -- Call After Logic Hook
333: g_cimv_rec);
334: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
335: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
336: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
337: RAISE OKC_API.G_EXCEPTION_ERROR;
338: END IF;
339: --
340: -- Call After Logic Hook
341: --
339: --
340: -- Call After Logic Hook
341: --
342: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
343: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
344: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
345: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
346: raise OKC_API.G_EXCEPTION_ERROR;
347: END IF;
340: -- Call After Logic Hook
341: --
342: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
343: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
344: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
345: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
346: raise OKC_API.G_EXCEPTION_ERROR;
347: END IF;
348: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
341: --
342: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
343: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
344: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
345: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
346: raise OKC_API.G_EXCEPTION_ERROR;
347: END IF;
348: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
349: EXCEPTION
342: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
343: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
344: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
345: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
346: raise OKC_API.G_EXCEPTION_ERROR;
347: END IF;
348: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
349: EXCEPTION
350: WHEN OKC_API.G_EXCEPTION_ERROR THEN
344: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
345: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
346: raise OKC_API.G_EXCEPTION_ERROR;
347: END IF;
348: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
349: EXCEPTION
350: WHEN OKC_API.G_EXCEPTION_ERROR THEN
351: x_return_status := OKC_API.HANDLE_EXCEPTIONS
352: (substr(l_api_name,1,26),
346: raise OKC_API.G_EXCEPTION_ERROR;
347: END IF;
348: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
349: EXCEPTION
350: WHEN OKC_API.G_EXCEPTION_ERROR THEN
351: x_return_status := OKC_API.HANDLE_EXCEPTIONS
352: (substr(l_api_name,1,26),
353: G_PKG_NAME,
354: 'OKC_API.G_RET_STS_ERROR',
347: END IF;
348: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
349: EXCEPTION
350: WHEN OKC_API.G_EXCEPTION_ERROR THEN
351: x_return_status := OKC_API.HANDLE_EXCEPTIONS
352: (substr(l_api_name,1,26),
353: G_PKG_NAME,
354: 'OKC_API.G_RET_STS_ERROR',
355: x_msg_count,
350: WHEN OKC_API.G_EXCEPTION_ERROR THEN
351: x_return_status := OKC_API.HANDLE_EXCEPTIONS
352: (substr(l_api_name,1,26),
353: G_PKG_NAME,
354: 'OKC_API.G_RET_STS_ERROR',
355: x_msg_count,
356: x_msg_data,
357: '_PUB');
358: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
354: 'OKC_API.G_RET_STS_ERROR',
355: x_msg_count,
356: x_msg_data,
357: '_PUB');
358: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
359: x_return_status := OKC_API.HANDLE_EXCEPTIONS
360: (substr(l_api_name,1,26),
361: G_PKG_NAME,
362: 'OKC_API.G_RET_STS_UNEXP_ERROR',
355: x_msg_count,
356: x_msg_data,
357: '_PUB');
358: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
359: x_return_status := OKC_API.HANDLE_EXCEPTIONS
360: (substr(l_api_name,1,26),
361: G_PKG_NAME,
362: 'OKC_API.G_RET_STS_UNEXP_ERROR',
363: x_msg_count,
358: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
359: x_return_status := OKC_API.HANDLE_EXCEPTIONS
360: (substr(l_api_name,1,26),
361: G_PKG_NAME,
362: 'OKC_API.G_RET_STS_UNEXP_ERROR',
363: x_msg_count,
364: x_msg_data,
365: '_PUB');
366: WHEN OTHERS THEN
363: x_msg_count,
364: x_msg_data,
365: '_PUB');
366: WHEN OTHERS THEN
367: x_return_status := OKC_API.HANDLE_EXCEPTIONS
368: (substr(l_api_name,1,26),
369: G_PKG_NAME,
370: 'OTHERS',
371: x_msg_count,
388: x_msg_count OUT NOCOPY NUMBER,
389: x_msg_data OUT NOCOPY VARCHAR2,
390: p_cimv_tbl IN cimv_tbl_type) is
391: i NUMBER;
392: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
393: begin
394: OKC_API.init_msg_list(p_init_msg_list);
395: x_return_status:= OKC_API.G_RET_STS_SUCCESS;
396: if (p_cimv_tbl.COUNT>0) then
390: p_cimv_tbl IN cimv_tbl_type) is
391: i NUMBER;
392: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
393: begin
394: OKC_API.init_msg_list(p_init_msg_list);
395: x_return_status:= OKC_API.G_RET_STS_SUCCESS;
396: if (p_cimv_tbl.COUNT>0) then
397: i := p_cimv_tbl.FIRST;
398: LOOP
391: i NUMBER;
392: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
393: begin
394: OKC_API.init_msg_list(p_init_msg_list);
395: x_return_status:= OKC_API.G_RET_STS_SUCCESS;
396: if (p_cimv_tbl.COUNT>0) then
397: i := p_cimv_tbl.FIRST;
398: LOOP
399: delete_contract_item(p_api_version=>p_api_version,
396: if (p_cimv_tbl.COUNT>0) then
397: i := p_cimv_tbl.FIRST;
398: LOOP
399: delete_contract_item(p_api_version=>p_api_version,
400: p_init_msg_list=>OKC_API.G_FALSE,
401: x_return_status=>l_return_status,
402: x_msg_count=>x_msg_count,
403: x_msg_data=>x_msg_data,
404: p_cimv_rec=>p_cimv_tbl(i));
401: x_return_status=>l_return_status,
402: x_msg_count=>x_msg_count,
403: x_msg_data=>x_msg_data,
404: p_cimv_rec=>p_cimv_tbl(i));
405: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
406: x_return_status := l_return_status;
407: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
408: elsif (l_return_status = OKC_API.G_RET_STS_ERROR) then
409: x_return_status := l_return_status;
403: x_msg_data=>x_msg_data,
404: p_cimv_rec=>p_cimv_tbl(i));
405: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
406: x_return_status := l_return_status;
407: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
408: elsif (l_return_status = OKC_API.G_RET_STS_ERROR) then
409: x_return_status := l_return_status;
410: end if;
411: EXIT WHEN (i=p_cimv_tbl.LAST);
404: p_cimv_rec=>p_cimv_tbl(i));
405: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
406: x_return_status := l_return_status;
407: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
408: elsif (l_return_status = OKC_API.G_RET_STS_ERROR) then
409: x_return_status := l_return_status;
410: end if;
411: EXIT WHEN (i=p_cimv_tbl.LAST);
412: i := p_cimv_tbl.NEXT(i);
432: x_msg_data OUT NOCOPY VARCHAR2,
433: p_cimv_rec IN cimv_rec_type) is
434: l_api_name CONSTANT VARCHAR2(30) := 'lock_contract_item';
435: l_api_version CONSTANT NUMBER := 1;
436: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
437: begin
438: l_return_status := OKC_API.START_ACTIVITY(substr(l_api_name,1,26),
439: G_PKG_NAME,
440: p_init_msg_list,
434: l_api_name CONSTANT VARCHAR2(30) := 'lock_contract_item';
435: l_api_version CONSTANT NUMBER := 1;
436: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
437: begin
438: l_return_status := OKC_API.START_ACTIVITY(substr(l_api_name,1,26),
439: G_PKG_NAME,
440: p_init_msg_list,
441: l_api_version,
442: p_api_version,
441: l_api_version,
442: p_api_version,
443: '_PUB',
444: x_return_status);
445: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
446: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
447: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
448: RAISE OKC_API.G_EXCEPTION_ERROR;
449: END IF;
442: p_api_version,
443: '_PUB',
444: x_return_status);
445: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
446: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
447: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
448: RAISE OKC_API.G_EXCEPTION_ERROR;
449: END IF;
450: --
443: '_PUB',
444: x_return_status);
445: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
446: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
447: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
448: RAISE OKC_API.G_EXCEPTION_ERROR;
449: END IF;
450: --
451: -- Call Before Logic Hook
444: x_return_status);
445: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
446: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
447: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
448: RAISE OKC_API.G_EXCEPTION_ERROR;
449: END IF;
450: --
451: -- Call Before Logic Hook
452: --
451: -- Call Before Logic Hook
452: --
453: g_cimv_rec := p_cimv_rec;
454: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
455: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
456: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
457: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
458: raise OKC_API.G_EXCEPTION_ERROR;
459: END IF;
452: --
453: g_cimv_rec := p_cimv_rec;
454: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
455: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
456: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
457: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
458: raise OKC_API.G_EXCEPTION_ERROR;
459: END IF;
460: reset(p_cimv_rec);
453: g_cimv_rec := p_cimv_rec;
454: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
455: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
456: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
457: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
458: raise OKC_API.G_EXCEPTION_ERROR;
459: END IF;
460: reset(p_cimv_rec);
461: OKC_CONTRACT_ITEM_PVT.lock_contract_item(p_api_version,
454: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
455: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
456: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
457: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
458: raise OKC_API.G_EXCEPTION_ERROR;
459: END IF;
460: reset(p_cimv_rec);
461: OKC_CONTRACT_ITEM_PVT.lock_contract_item(p_api_version,
462: p_init_msg_list,
463: x_return_status,
464: x_msg_count,
465: x_msg_data,
466: g_cimv_rec);
467: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
468: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
469: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
470: RAISE OKC_API.G_EXCEPTION_ERROR;
471: END IF;
464: x_msg_count,
465: x_msg_data,
466: g_cimv_rec);
467: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
468: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
469: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
470: RAISE OKC_API.G_EXCEPTION_ERROR;
471: END IF;
472: --
465: x_msg_data,
466: g_cimv_rec);
467: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
468: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
469: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
470: RAISE OKC_API.G_EXCEPTION_ERROR;
471: END IF;
472: --
473: -- Call After Logic Hook
466: g_cimv_rec);
467: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
468: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
469: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
470: RAISE OKC_API.G_EXCEPTION_ERROR;
471: END IF;
472: --
473: -- Call After Logic Hook
474: --
472: --
473: -- Call After Logic Hook
474: --
475: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
476: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
477: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
478: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
479: raise OKC_API.G_EXCEPTION_ERROR;
480: END IF;
473: -- Call After Logic Hook
474: --
475: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
476: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
477: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
478: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
479: raise OKC_API.G_EXCEPTION_ERROR;
480: END IF;
481: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
474: --
475: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
476: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
477: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
478: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
479: raise OKC_API.G_EXCEPTION_ERROR;
480: END IF;
481: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
482: EXCEPTION
475: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
476: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
477: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
478: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
479: raise OKC_API.G_EXCEPTION_ERROR;
480: END IF;
481: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
482: EXCEPTION
483: WHEN OKC_API.G_EXCEPTION_ERROR THEN
477: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
478: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
479: raise OKC_API.G_EXCEPTION_ERROR;
480: END IF;
481: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
482: EXCEPTION
483: WHEN OKC_API.G_EXCEPTION_ERROR THEN
484: x_return_status := OKC_API.HANDLE_EXCEPTIONS
485: (substr(l_api_name,1,26),
479: raise OKC_API.G_EXCEPTION_ERROR;
480: END IF;
481: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
482: EXCEPTION
483: WHEN OKC_API.G_EXCEPTION_ERROR THEN
484: x_return_status := OKC_API.HANDLE_EXCEPTIONS
485: (substr(l_api_name,1,26),
486: G_PKG_NAME,
487: 'OKC_API.G_RET_STS_ERROR',
480: END IF;
481: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
482: EXCEPTION
483: WHEN OKC_API.G_EXCEPTION_ERROR THEN
484: x_return_status := OKC_API.HANDLE_EXCEPTIONS
485: (substr(l_api_name,1,26),
486: G_PKG_NAME,
487: 'OKC_API.G_RET_STS_ERROR',
488: x_msg_count,
483: WHEN OKC_API.G_EXCEPTION_ERROR THEN
484: x_return_status := OKC_API.HANDLE_EXCEPTIONS
485: (substr(l_api_name,1,26),
486: G_PKG_NAME,
487: 'OKC_API.G_RET_STS_ERROR',
488: x_msg_count,
489: x_msg_data,
490: '_PUB');
491: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
487: 'OKC_API.G_RET_STS_ERROR',
488: x_msg_count,
489: x_msg_data,
490: '_PUB');
491: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
492: x_return_status := OKC_API.HANDLE_EXCEPTIONS
493: (substr(l_api_name,1,26),
494: G_PKG_NAME,
495: 'OKC_API.G_RET_STS_UNEXP_ERROR',
488: x_msg_count,
489: x_msg_data,
490: '_PUB');
491: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
492: x_return_status := OKC_API.HANDLE_EXCEPTIONS
493: (substr(l_api_name,1,26),
494: G_PKG_NAME,
495: 'OKC_API.G_RET_STS_UNEXP_ERROR',
496: x_msg_count,
491: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
492: x_return_status := OKC_API.HANDLE_EXCEPTIONS
493: (substr(l_api_name,1,26),
494: G_PKG_NAME,
495: 'OKC_API.G_RET_STS_UNEXP_ERROR',
496: x_msg_count,
497: x_msg_data,
498: '_PUB');
499: WHEN OTHERS THEN
496: x_msg_count,
497: x_msg_data,
498: '_PUB');
499: WHEN OTHERS THEN
500: x_return_status := OKC_API.HANDLE_EXCEPTIONS
501: (substr(l_api_name,1,26),
502: G_PKG_NAME,
503: 'OTHERS',
504: x_msg_count,
521: x_msg_count OUT NOCOPY NUMBER,
522: x_msg_data OUT NOCOPY VARCHAR2,
523: p_cimv_tbl IN cimv_tbl_type) is
524: i NUMBER;
525: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
526: begin
527: OKC_API.init_msg_list(p_init_msg_list);
528: x_return_status:= OKC_API.G_RET_STS_SUCCESS;
529: if (p_cimv_tbl.COUNT>0) then
523: p_cimv_tbl IN cimv_tbl_type) is
524: i NUMBER;
525: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
526: begin
527: OKC_API.init_msg_list(p_init_msg_list);
528: x_return_status:= OKC_API.G_RET_STS_SUCCESS;
529: if (p_cimv_tbl.COUNT>0) then
530: i := p_cimv_tbl.FIRST;
531: LOOP
524: i NUMBER;
525: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
526: begin
527: OKC_API.init_msg_list(p_init_msg_list);
528: x_return_status:= OKC_API.G_RET_STS_SUCCESS;
529: if (p_cimv_tbl.COUNT>0) then
530: i := p_cimv_tbl.FIRST;
531: LOOP
532: lock_contract_item(p_api_version=>p_api_version,
529: if (p_cimv_tbl.COUNT>0) then
530: i := p_cimv_tbl.FIRST;
531: LOOP
532: lock_contract_item(p_api_version=>p_api_version,
533: p_init_msg_list=>OKC_API.G_FALSE,
534: x_return_status=>l_return_status,
535: x_msg_count=>x_msg_count,
536: x_msg_data=>x_msg_data,
537: p_cimv_rec=>p_cimv_tbl(i));
534: x_return_status=>l_return_status,
535: x_msg_count=>x_msg_count,
536: x_msg_data=>x_msg_data,
537: p_cimv_rec=>p_cimv_tbl(i));
538: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
539: x_return_status := l_return_status;
540: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
541: elsif (l_return_status = OKC_API.G_RET_STS_ERROR) then
542: x_return_status := l_return_status;
536: x_msg_data=>x_msg_data,
537: p_cimv_rec=>p_cimv_tbl(i));
538: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
539: x_return_status := l_return_status;
540: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
541: elsif (l_return_status = OKC_API.G_RET_STS_ERROR) then
542: x_return_status := l_return_status;
543: end if;
544: EXIT WHEN (i=p_cimv_tbl.LAST);
537: p_cimv_rec=>p_cimv_tbl(i));
538: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
539: x_return_status := l_return_status;
540: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
541: elsif (l_return_status = OKC_API.G_RET_STS_ERROR) then
542: x_return_status := l_return_status;
543: end if;
544: EXIT WHEN (i=p_cimv_tbl.LAST);
545: i := p_cimv_tbl.NEXT(i);
565: x_msg_data OUT NOCOPY VARCHAR2,
566: p_cimv_rec IN cimv_rec_type) is
567: l_api_name CONSTANT VARCHAR2(30) := 'validate_contract_item';
568: l_api_version CONSTANT NUMBER := 1;
569: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
570: begin
571: l_return_status := OKC_API.START_ACTIVITY(substr(l_api_name,1,26),
572: G_PKG_NAME,
573: p_init_msg_list,
567: l_api_name CONSTANT VARCHAR2(30) := 'validate_contract_item';
568: l_api_version CONSTANT NUMBER := 1;
569: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
570: begin
571: l_return_status := OKC_API.START_ACTIVITY(substr(l_api_name,1,26),
572: G_PKG_NAME,
573: p_init_msg_list,
574: l_api_version,
575: p_api_version,
574: l_api_version,
575: p_api_version,
576: '_PUB',
577: x_return_status);
578: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
579: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
580: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
581: RAISE OKC_API.G_EXCEPTION_ERROR;
582: END IF;
575: p_api_version,
576: '_PUB',
577: x_return_status);
578: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
579: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
580: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
581: RAISE OKC_API.G_EXCEPTION_ERROR;
582: END IF;
583: --
576: '_PUB',
577: x_return_status);
578: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
579: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
580: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
581: RAISE OKC_API.G_EXCEPTION_ERROR;
582: END IF;
583: --
584: -- Call Before Logic Hook
577: x_return_status);
578: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
579: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
580: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
581: RAISE OKC_API.G_EXCEPTION_ERROR;
582: END IF;
583: --
584: -- Call Before Logic Hook
585: --
584: -- Call Before Logic Hook
585: --
586: g_cimv_rec := p_cimv_rec;
587: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
588: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
589: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
590: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
591: raise OKC_API.G_EXCEPTION_ERROR;
592: END IF;
585: --
586: g_cimv_rec := p_cimv_rec;
587: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
588: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
589: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
590: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
591: raise OKC_API.G_EXCEPTION_ERROR;
592: END IF;
593: reset(p_cimv_rec);
586: g_cimv_rec := p_cimv_rec;
587: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
588: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
589: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
590: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
591: raise OKC_API.G_EXCEPTION_ERROR;
592: END IF;
593: reset(p_cimv_rec);
594: OKC_CONTRACT_ITEM_PVT.validate_contract_item(p_api_version,
587: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
588: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
589: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
590: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
591: raise OKC_API.G_EXCEPTION_ERROR;
592: END IF;
593: reset(p_cimv_rec);
594: OKC_CONTRACT_ITEM_PVT.validate_contract_item(p_api_version,
595: p_init_msg_list,
596: x_return_status,
597: x_msg_count,
598: x_msg_data,
599: g_cimv_rec);
600: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
601: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
602: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
603: RAISE OKC_API.G_EXCEPTION_ERROR;
604: END IF;
597: x_msg_count,
598: x_msg_data,
599: g_cimv_rec);
600: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
601: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
602: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
603: RAISE OKC_API.G_EXCEPTION_ERROR;
604: END IF;
605: --
598: x_msg_data,
599: g_cimv_rec);
600: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
601: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
602: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
603: RAISE OKC_API.G_EXCEPTION_ERROR;
604: END IF;
605: --
606: -- Call After Logic Hook
599: g_cimv_rec);
600: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
601: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
602: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
603: RAISE OKC_API.G_EXCEPTION_ERROR;
604: END IF;
605: --
606: -- Call After Logic Hook
607: --
605: --
606: -- Call After Logic Hook
607: --
608: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
609: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
610: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
611: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
612: raise OKC_API.G_EXCEPTION_ERROR;
613: END IF;
606: -- Call After Logic Hook
607: --
608: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
609: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
610: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
611: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
612: raise OKC_API.G_EXCEPTION_ERROR;
613: END IF;
614: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
607: --
608: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
609: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
610: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
611: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
612: raise OKC_API.G_EXCEPTION_ERROR;
613: END IF;
614: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
615: EXCEPTION
608: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
609: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
610: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
611: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
612: raise OKC_API.G_EXCEPTION_ERROR;
613: END IF;
614: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
615: EXCEPTION
616: WHEN OKC_API.G_EXCEPTION_ERROR THEN
610: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
611: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
612: raise OKC_API.G_EXCEPTION_ERROR;
613: END IF;
614: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
615: EXCEPTION
616: WHEN OKC_API.G_EXCEPTION_ERROR THEN
617: x_return_status := OKC_API.HANDLE_EXCEPTIONS
618: (substr(l_api_name,1,26),
612: raise OKC_API.G_EXCEPTION_ERROR;
613: END IF;
614: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
615: EXCEPTION
616: WHEN OKC_API.G_EXCEPTION_ERROR THEN
617: x_return_status := OKC_API.HANDLE_EXCEPTIONS
618: (substr(l_api_name,1,26),
619: G_PKG_NAME,
620: 'OKC_API.G_RET_STS_ERROR',
613: END IF;
614: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
615: EXCEPTION
616: WHEN OKC_API.G_EXCEPTION_ERROR THEN
617: x_return_status := OKC_API.HANDLE_EXCEPTIONS
618: (substr(l_api_name,1,26),
619: G_PKG_NAME,
620: 'OKC_API.G_RET_STS_ERROR',
621: x_msg_count,
616: WHEN OKC_API.G_EXCEPTION_ERROR THEN
617: x_return_status := OKC_API.HANDLE_EXCEPTIONS
618: (substr(l_api_name,1,26),
619: G_PKG_NAME,
620: 'OKC_API.G_RET_STS_ERROR',
621: x_msg_count,
622: x_msg_data,
623: '_PUB');
624: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
620: 'OKC_API.G_RET_STS_ERROR',
621: x_msg_count,
622: x_msg_data,
623: '_PUB');
624: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
625: x_return_status := OKC_API.HANDLE_EXCEPTIONS
626: (substr(l_api_name,1,26),
627: G_PKG_NAME,
628: 'OKC_API.G_RET_STS_UNEXP_ERROR',
621: x_msg_count,
622: x_msg_data,
623: '_PUB');
624: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
625: x_return_status := OKC_API.HANDLE_EXCEPTIONS
626: (substr(l_api_name,1,26),
627: G_PKG_NAME,
628: 'OKC_API.G_RET_STS_UNEXP_ERROR',
629: x_msg_count,
624: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
625: x_return_status := OKC_API.HANDLE_EXCEPTIONS
626: (substr(l_api_name,1,26),
627: G_PKG_NAME,
628: 'OKC_API.G_RET_STS_UNEXP_ERROR',
629: x_msg_count,
630: x_msg_data,
631: '_PUB');
632: WHEN OTHERS THEN
629: x_msg_count,
630: x_msg_data,
631: '_PUB');
632: WHEN OTHERS THEN
633: x_return_status := OKC_API.HANDLE_EXCEPTIONS
634: (substr(l_api_name,1,26),
635: G_PKG_NAME,
636: 'OTHERS',
637: x_msg_count,
654: x_msg_count OUT NOCOPY NUMBER,
655: x_msg_data OUT NOCOPY VARCHAR2,
656: p_cimv_tbl IN cimv_tbl_type) is
657: i NUMBER;
658: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
659: begin
660: OKC_API.init_msg_list(p_init_msg_list);
661: x_return_status:= OKC_API.G_RET_STS_SUCCESS;
662: if (p_cimv_tbl.COUNT>0) then
656: p_cimv_tbl IN cimv_tbl_type) is
657: i NUMBER;
658: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
659: begin
660: OKC_API.init_msg_list(p_init_msg_list);
661: x_return_status:= OKC_API.G_RET_STS_SUCCESS;
662: if (p_cimv_tbl.COUNT>0) then
663: i := p_cimv_tbl.FIRST;
664: LOOP
657: i NUMBER;
658: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
659: begin
660: OKC_API.init_msg_list(p_init_msg_list);
661: x_return_status:= OKC_API.G_RET_STS_SUCCESS;
662: if (p_cimv_tbl.COUNT>0) then
663: i := p_cimv_tbl.FIRST;
664: LOOP
665: validate_contract_item(p_api_version=>p_api_version,
662: if (p_cimv_tbl.COUNT>0) then
663: i := p_cimv_tbl.FIRST;
664: LOOP
665: validate_contract_item(p_api_version=>p_api_version,
666: p_init_msg_list=>OKC_API.G_FALSE,
667: x_return_status=>l_return_status,
668: x_msg_count=>x_msg_count,
669: x_msg_data=>x_msg_data,
670: p_cimv_rec=>p_cimv_tbl(i));
667: x_return_status=>l_return_status,
668: x_msg_count=>x_msg_count,
669: x_msg_data=>x_msg_data,
670: p_cimv_rec=>p_cimv_tbl(i));
671: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
672: x_return_status := l_return_status;
673: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
674: elsif (l_return_status = OKC_API.G_RET_STS_ERROR) then
675: x_return_status := l_return_status;
669: x_msg_data=>x_msg_data,
670: p_cimv_rec=>p_cimv_tbl(i));
671: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
672: x_return_status := l_return_status;
673: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
674: elsif (l_return_status = OKC_API.G_RET_STS_ERROR) then
675: x_return_status := l_return_status;
676: end if;
677: EXIT WHEN (i=p_cimv_tbl.LAST);
670: p_cimv_rec=>p_cimv_tbl(i));
671: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
672: x_return_status := l_return_status;
673: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
674: elsif (l_return_status = OKC_API.G_RET_STS_ERROR) then
675: x_return_status := l_return_status;
676: end if;
677: EXIT WHEN (i=p_cimv_tbl.LAST);
678: i := p_cimv_tbl.NEXT(i);