91: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_LINE_STYLES';
92: l_return_status VARCHAR2(1);
93: l_lsev_rec lsev_rec_type := p_lsev_rec;
94: BEGIN
95: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
96: p_init_msg_list,
97: '_PUB',
98: x_return_status);
99: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
95: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
96: p_init_msg_list,
97: '_PUB',
98: x_return_status);
99: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
100: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
101: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
102: raise OKC_API.G_EXCEPTION_ERROR;
103: END IF;
96: p_init_msg_list,
97: '_PUB',
98: x_return_status);
99: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
100: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
101: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
102: raise OKC_API.G_EXCEPTION_ERROR;
103: END IF;
104: -- Call user hook for BEFORE
97: '_PUB',
98: x_return_status);
99: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
100: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
101: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
102: raise OKC_API.G_EXCEPTION_ERROR;
103: END IF;
104: -- Call user hook for BEFORE
105: g_lsev_rec := l_lsev_rec;
98: x_return_status);
99: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
100: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
101: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
102: raise OKC_API.G_EXCEPTION_ERROR;
103: END IF;
104: -- Call user hook for BEFORE
105: g_lsev_rec := l_lsev_rec;
106: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
103: END IF;
104: -- Call user hook for BEFORE
105: g_lsev_rec := l_lsev_rec;
106: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
107: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
108: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
109: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
110: raise OKC_API.G_EXCEPTION_ERROR;
111: END IF;
104: -- Call user hook for BEFORE
105: g_lsev_rec := l_lsev_rec;
106: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
107: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
108: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
109: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
110: raise OKC_API.G_EXCEPTION_ERROR;
111: END IF;
112: l_lsev_rec := migrate_lsev(l_lsev_rec, g_lsev_rec);
105: g_lsev_rec := l_lsev_rec;
106: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
107: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
108: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
109: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
110: raise OKC_API.G_EXCEPTION_ERROR;
111: END IF;
112: l_lsev_rec := migrate_lsev(l_lsev_rec, g_lsev_rec);
113: OKC_LINE_STYLES_PVT.CREATE_LINE_STYLES(
106: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
107: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
108: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
109: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
110: raise OKC_API.G_EXCEPTION_ERROR;
111: END IF;
112: l_lsev_rec := migrate_lsev(l_lsev_rec, g_lsev_rec);
113: OKC_LINE_STYLES_PVT.CREATE_LINE_STYLES(
114: p_api_version,
117: x_msg_count,
118: x_msg_data,
119: p_lsev_rec,
120: x_lsev_rec);
121: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
122: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
123: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
124: raise OKC_API.G_EXCEPTION_ERROR;
125: END IF;
118: x_msg_data,
119: p_lsev_rec,
120: x_lsev_rec);
121: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
122: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
123: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
124: raise OKC_API.G_EXCEPTION_ERROR;
125: END IF;
126:
119: p_lsev_rec,
120: x_lsev_rec);
121: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
122: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
123: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
124: raise OKC_API.G_EXCEPTION_ERROR;
125: END IF;
126:
127: -- Call user hook for AFTER
120: x_lsev_rec);
121: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
122: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
123: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
124: raise OKC_API.G_EXCEPTION_ERROR;
125: END IF;
126:
127: -- Call user hook for AFTER
128: g_lsev_rec := x_lsev_rec;
126:
127: -- Call user hook for AFTER
128: g_lsev_rec := x_lsev_rec;
129: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
130: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
131: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
132: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
133: raise OKC_API.G_EXCEPTION_ERROR;
134: END IF;
127: -- Call user hook for AFTER
128: g_lsev_rec := x_lsev_rec;
129: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
130: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
131: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
132: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
133: raise OKC_API.G_EXCEPTION_ERROR;
134: END IF;
135: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
128: g_lsev_rec := x_lsev_rec;
129: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
130: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
131: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
132: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
133: raise OKC_API.G_EXCEPTION_ERROR;
134: END IF;
135: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
136: EXCEPTION
129: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
130: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
131: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
132: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
133: raise OKC_API.G_EXCEPTION_ERROR;
134: END IF;
135: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
136: EXCEPTION
137: WHEN OKC_API.G_EXCEPTION_ERROR THEN
131: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
132: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
133: raise OKC_API.G_EXCEPTION_ERROR;
134: END IF;
135: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
136: EXCEPTION
137: WHEN OKC_API.G_EXCEPTION_ERROR THEN
138: x_return_status := OKC_API.HANDLE_EXCEPTIONS
139: (l_api_name,
133: raise OKC_API.G_EXCEPTION_ERROR;
134: END IF;
135: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
136: EXCEPTION
137: WHEN OKC_API.G_EXCEPTION_ERROR THEN
138: x_return_status := OKC_API.HANDLE_EXCEPTIONS
139: (l_api_name,
140: G_PKG_NAME,
141: 'OKC_API.G_RET_STS_ERROR',
134: END IF;
135: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
136: EXCEPTION
137: WHEN OKC_API.G_EXCEPTION_ERROR THEN
138: x_return_status := OKC_API.HANDLE_EXCEPTIONS
139: (l_api_name,
140: G_PKG_NAME,
141: 'OKC_API.G_RET_STS_ERROR',
142: x_msg_count,
137: WHEN OKC_API.G_EXCEPTION_ERROR THEN
138: x_return_status := OKC_API.HANDLE_EXCEPTIONS
139: (l_api_name,
140: G_PKG_NAME,
141: 'OKC_API.G_RET_STS_ERROR',
142: x_msg_count,
143: x_msg_data,
144: '_PUB');
145: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
141: 'OKC_API.G_RET_STS_ERROR',
142: x_msg_count,
143: x_msg_data,
144: '_PUB');
145: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
146: x_return_status := OKC_API.HANDLE_EXCEPTIONS
147: (l_api_name,
148: G_PKG_NAME,
149: 'OKC_API.G_RET_STS_UNEXP_ERROR',
142: x_msg_count,
143: x_msg_data,
144: '_PUB');
145: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
146: x_return_status := OKC_API.HANDLE_EXCEPTIONS
147: (l_api_name,
148: G_PKG_NAME,
149: 'OKC_API.G_RET_STS_UNEXP_ERROR',
150: x_msg_count,
145: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
146: x_return_status := OKC_API.HANDLE_EXCEPTIONS
147: (l_api_name,
148: G_PKG_NAME,
149: 'OKC_API.G_RET_STS_UNEXP_ERROR',
150: x_msg_count,
151: x_msg_data,
152: '_PUB');
153: WHEN OTHERS THEN
150: x_msg_count,
151: x_msg_data,
152: '_PUB');
153: WHEN OTHERS THEN
154: x_return_status := OKC_API.HANDLE_EXCEPTIONS
155: (l_api_name,
156: G_PKG_NAME,
157: 'OTHERS',
158: x_msg_count,
168: x_msg_data OUT NOCOPY VARCHAR2,
169: p_lsev_tbl IN lsev_tbl_type,
170: x_lsev_tbl OUT NOCOPY lsev_tbl_type) IS
171: i NUMBER := 0;
172: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
173: BEGIN
174: x_return_status := OKC_API.G_RET_STS_SUCCESS;
175: IF p_lsev_tbl.COUNT > 0 THEN
176: i := p_lsev_tbl.FIRST;
170: x_lsev_tbl OUT NOCOPY lsev_tbl_type) IS
171: i NUMBER := 0;
172: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
173: BEGIN
174: x_return_status := OKC_API.G_RET_STS_SUCCESS;
175: IF p_lsev_tbl.COUNT > 0 THEN
176: i := p_lsev_tbl.FIRST;
177: LOOP
178: CREATE_LINE_STYLES(
182: x_msg_count,
183: x_msg_data,
184: p_lsev_tbl(i),
185: x_lsev_tbl(i));
186: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
187: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
188: x_return_status := l_return_status;
189: raise G_EXCEPTION_HALT_VALIDATION;
190: ELSE
183: x_msg_data,
184: p_lsev_tbl(i),
185: x_lsev_tbl(i));
186: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
187: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
188: x_return_status := l_return_status;
189: raise G_EXCEPTION_HALT_VALIDATION;
190: ELSE
191: x_return_status := l_return_status;
198: EXCEPTION
199: WHEN G_EXCEPTION_HALT_VALIDATION THEN
200: NULL;
201: WHEN OTHERS THEN
202: OKC_API.set_message(p_app_name => g_app_name,
203: p_msg_name => g_unexpected_error,
204: p_token1 => g_sqlcode_token,
205: p_token1_value => sqlcode,
206: p_token2 => g_sqlerrm_token,
204: p_token1 => g_sqlcode_token,
205: p_token1_value => sqlcode,
206: p_token2 => g_sqlerrm_token,
207: p_token2_value => sqlerrm);
208: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
209: END CREATE_LINE_STYLES;
210:
211: PROCEDURE UPDATE_LINE_STYLES(
212: p_api_version IN NUMBER,
219: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_LINE_STYLES';
220: l_return_status VARCHAR2(1);
221: l_lsev_rec lsev_rec_type := p_lsev_rec;
222: BEGIN
223: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
224: p_init_msg_list,
225: '_PUB',
226: x_return_status);
227: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
223: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
224: p_init_msg_list,
225: '_PUB',
226: x_return_status);
227: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
228: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
229: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
230: raise OKC_API.G_EXCEPTION_ERROR;
231: END IF;
224: p_init_msg_list,
225: '_PUB',
226: x_return_status);
227: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
228: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
229: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
230: raise OKC_API.G_EXCEPTION_ERROR;
231: END IF;
232: -- Call user hook for BEFORE
225: '_PUB',
226: x_return_status);
227: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
228: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
229: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
230: raise OKC_API.G_EXCEPTION_ERROR;
231: END IF;
232: -- Call user hook for BEFORE
233: g_lsev_rec := l_lsev_rec;
226: x_return_status);
227: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
228: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
229: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
230: raise OKC_API.G_EXCEPTION_ERROR;
231: END IF;
232: -- Call user hook for BEFORE
233: g_lsev_rec := l_lsev_rec;
234: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
231: END IF;
232: -- Call user hook for BEFORE
233: g_lsev_rec := l_lsev_rec;
234: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
235: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
236: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
237: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
238: raise OKC_API.G_EXCEPTION_ERROR;
239: END IF;
232: -- Call user hook for BEFORE
233: g_lsev_rec := l_lsev_rec;
234: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
235: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
236: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
237: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
238: raise OKC_API.G_EXCEPTION_ERROR;
239: END IF;
240: l_lsev_rec := migrate_lsev(l_lsev_rec, g_lsev_rec);
233: g_lsev_rec := l_lsev_rec;
234: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
235: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
236: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
237: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
238: raise OKC_API.G_EXCEPTION_ERROR;
239: END IF;
240: l_lsev_rec := migrate_lsev(l_lsev_rec, g_lsev_rec);
241: OKC_LINE_STYLES_PVT.UPDATE_LINE_STYLES(
234: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
235: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
236: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
237: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
238: raise OKC_API.G_EXCEPTION_ERROR;
239: END IF;
240: l_lsev_rec := migrate_lsev(l_lsev_rec, g_lsev_rec);
241: OKC_LINE_STYLES_PVT.UPDATE_LINE_STYLES(
242: p_api_version,
245: x_msg_count,
246: x_msg_data,
247: p_lsev_rec,
248: x_lsev_rec);
249: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
250: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
251: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
252: raise OKC_API.G_EXCEPTION_ERROR;
253: END IF;
246: x_msg_data,
247: p_lsev_rec,
248: x_lsev_rec);
249: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
250: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
251: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
252: raise OKC_API.G_EXCEPTION_ERROR;
253: END IF;
254:
247: p_lsev_rec,
248: x_lsev_rec);
249: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
250: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
251: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
252: raise OKC_API.G_EXCEPTION_ERROR;
253: END IF;
254:
255: -- Call user hook for AFTER
248: x_lsev_rec);
249: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
250: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
251: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
252: raise OKC_API.G_EXCEPTION_ERROR;
253: END IF;
254:
255: -- Call user hook for AFTER
256: g_lsev_rec := x_lsev_rec;
254:
255: -- Call user hook for AFTER
256: g_lsev_rec := x_lsev_rec;
257: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
258: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
259: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
260: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
261: raise OKC_API.G_EXCEPTION_ERROR;
262: END IF;
255: -- Call user hook for AFTER
256: g_lsev_rec := x_lsev_rec;
257: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
258: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
259: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
260: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
261: raise OKC_API.G_EXCEPTION_ERROR;
262: END IF;
263: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
256: g_lsev_rec := x_lsev_rec;
257: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
258: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
259: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
260: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
261: raise OKC_API.G_EXCEPTION_ERROR;
262: END IF;
263: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
264: EXCEPTION
257: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
258: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
259: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
260: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
261: raise OKC_API.G_EXCEPTION_ERROR;
262: END IF;
263: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
264: EXCEPTION
265: WHEN OKC_API.G_EXCEPTION_ERROR THEN
259: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
260: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
261: raise OKC_API.G_EXCEPTION_ERROR;
262: END IF;
263: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
264: EXCEPTION
265: WHEN OKC_API.G_EXCEPTION_ERROR THEN
266: x_return_status := OKC_API.HANDLE_EXCEPTIONS
267: (l_api_name,
261: raise OKC_API.G_EXCEPTION_ERROR;
262: END IF;
263: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
264: EXCEPTION
265: WHEN OKC_API.G_EXCEPTION_ERROR THEN
266: x_return_status := OKC_API.HANDLE_EXCEPTIONS
267: (l_api_name,
268: G_PKG_NAME,
269: 'OKC_API.G_RET_STS_ERROR',
262: END IF;
263: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
264: EXCEPTION
265: WHEN OKC_API.G_EXCEPTION_ERROR THEN
266: x_return_status := OKC_API.HANDLE_EXCEPTIONS
267: (l_api_name,
268: G_PKG_NAME,
269: 'OKC_API.G_RET_STS_ERROR',
270: x_msg_count,
265: WHEN OKC_API.G_EXCEPTION_ERROR THEN
266: x_return_status := OKC_API.HANDLE_EXCEPTIONS
267: (l_api_name,
268: G_PKG_NAME,
269: 'OKC_API.G_RET_STS_ERROR',
270: x_msg_count,
271: x_msg_data,
272: '_PUB');
273: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
269: 'OKC_API.G_RET_STS_ERROR',
270: x_msg_count,
271: x_msg_data,
272: '_PUB');
273: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
274: x_return_status := OKC_API.HANDLE_EXCEPTIONS
275: (l_api_name,
276: G_PKG_NAME,
277: 'OKC_API.G_RET_STS_UNEXP_ERROR',
270: x_msg_count,
271: x_msg_data,
272: '_PUB');
273: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
274: x_return_status := OKC_API.HANDLE_EXCEPTIONS
275: (l_api_name,
276: G_PKG_NAME,
277: 'OKC_API.G_RET_STS_UNEXP_ERROR',
278: x_msg_count,
273: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
274: x_return_status := OKC_API.HANDLE_EXCEPTIONS
275: (l_api_name,
276: G_PKG_NAME,
277: 'OKC_API.G_RET_STS_UNEXP_ERROR',
278: x_msg_count,
279: x_msg_data,
280: '_PUB');
281: WHEN OTHERS THEN
278: x_msg_count,
279: x_msg_data,
280: '_PUB');
281: WHEN OTHERS THEN
282: x_return_status := OKC_API.HANDLE_EXCEPTIONS
283: (l_api_name,
284: G_PKG_NAME,
285: 'OTHERS',
286: x_msg_count,
296: x_msg_data OUT NOCOPY VARCHAR2,
297: p_lsev_tbl IN lsev_tbl_type,
298: x_lsev_tbl OUT NOCOPY lsev_tbl_type) IS
299: i NUMBER := 0;
300: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
301: BEGIN
302: x_return_status := OKC_API.G_RET_STS_SUCCESS;
303: IF p_lsev_tbl.COUNT > 0 THEN
304: i := p_lsev_tbl.FIRST;
298: x_lsev_tbl OUT NOCOPY lsev_tbl_type) IS
299: i NUMBER := 0;
300: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
301: BEGIN
302: x_return_status := OKC_API.G_RET_STS_SUCCESS;
303: IF p_lsev_tbl.COUNT > 0 THEN
304: i := p_lsev_tbl.FIRST;
305: LOOP
306: UPDATE_LINE_STYLES(
310: x_msg_count,
311: x_msg_data,
312: p_lsev_tbl(i),
313: x_lsev_tbl(i));
314: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
315: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
316: x_return_status := l_return_status;
317: raise G_EXCEPTION_HALT_VALIDATION;
318: ELSE
311: x_msg_data,
312: p_lsev_tbl(i),
313: x_lsev_tbl(i));
314: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
315: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
316: x_return_status := l_return_status;
317: raise G_EXCEPTION_HALT_VALIDATION;
318: ELSE
319: x_return_status := l_return_status;
326: EXCEPTION
327: WHEN G_EXCEPTION_HALT_VALIDATION THEN
328: NULL;
329: WHEN OTHERS THEN
330: OKC_API.set_message(p_app_name => g_app_name,
331: p_msg_name => g_unexpected_error,
332: p_token1 => g_sqlcode_token,
333: p_token1_value => sqlcode,
334: p_token2 => g_sqlerrm_token,
332: p_token1 => g_sqlcode_token,
333: p_token1_value => sqlcode,
334: p_token2 => g_sqlerrm_token,
335: p_token2_value => sqlerrm);
336: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
337: END UPDATE_LINE_STYLES;
338:
339: PROCEDURE DELETE_LINE_STYLES(
340: p_api_version IN NUMBER,
346: l_api_name CONSTANT VARCHAR2(30) := 'DELETE_LINE_STYLES';
347: l_return_status VARCHAR2(1);
348: l_lsev_rec lsev_rec_type := p_lsev_rec;
349: BEGIN
350: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
351: p_init_msg_list,
352: '_PUB',
353: x_return_status);
354: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
350: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
351: p_init_msg_list,
352: '_PUB',
353: x_return_status);
354: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
355: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
356: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
357: raise OKC_API.G_EXCEPTION_ERROR;
358: END IF;
351: p_init_msg_list,
352: '_PUB',
353: x_return_status);
354: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
355: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
356: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
357: raise OKC_API.G_EXCEPTION_ERROR;
358: END IF;
359: -- Call user hook for BEFORE
352: '_PUB',
353: x_return_status);
354: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
355: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
356: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
357: raise OKC_API.G_EXCEPTION_ERROR;
358: END IF;
359: -- Call user hook for BEFORE
360: g_lsev_rec := l_lsev_rec;
353: x_return_status);
354: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
355: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
356: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
357: raise OKC_API.G_EXCEPTION_ERROR;
358: END IF;
359: -- Call user hook for BEFORE
360: g_lsev_rec := l_lsev_rec;
361: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
358: END IF;
359: -- Call user hook for BEFORE
360: g_lsev_rec := l_lsev_rec;
361: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
362: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
363: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
364: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
365: raise OKC_API.G_EXCEPTION_ERROR;
366: END IF;
359: -- Call user hook for BEFORE
360: g_lsev_rec := l_lsev_rec;
361: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
362: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
363: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
364: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
365: raise OKC_API.G_EXCEPTION_ERROR;
366: END IF;
367: OKC_LINE_STYLES_PVT.DELETE_LINE_STYLES(
360: g_lsev_rec := l_lsev_rec;
361: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
362: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
363: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
364: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
365: raise OKC_API.G_EXCEPTION_ERROR;
366: END IF;
367: OKC_LINE_STYLES_PVT.DELETE_LINE_STYLES(
368: p_api_version,
361: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
362: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
363: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
364: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
365: raise OKC_API.G_EXCEPTION_ERROR;
366: END IF;
367: OKC_LINE_STYLES_PVT.DELETE_LINE_STYLES(
368: p_api_version,
369: p_init_msg_list,
370: x_return_status,
371: x_msg_count,
372: x_msg_data,
373: p_lsev_rec);
374: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
375: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
376: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
377: raise OKC_API.G_EXCEPTION_ERROR;
378: END IF;
371: x_msg_count,
372: x_msg_data,
373: p_lsev_rec);
374: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
375: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
376: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
377: raise OKC_API.G_EXCEPTION_ERROR;
378: END IF;
379:
372: x_msg_data,
373: p_lsev_rec);
374: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
375: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
376: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
377: raise OKC_API.G_EXCEPTION_ERROR;
378: END IF;
379:
380: -- Call user hook for AFTER
373: p_lsev_rec);
374: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
375: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
376: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
377: raise OKC_API.G_EXCEPTION_ERROR;
378: END IF;
379:
380: -- Call user hook for AFTER
381: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
378: END IF;
379:
380: -- Call user hook for AFTER
381: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
382: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
383: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
384: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
385: raise OKC_API.G_EXCEPTION_ERROR;
386: END IF;
379:
380: -- Call user hook for AFTER
381: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
382: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
383: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
384: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
385: raise OKC_API.G_EXCEPTION_ERROR;
386: END IF;
387: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
380: -- Call user hook for AFTER
381: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
382: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
383: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
384: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
385: raise OKC_API.G_EXCEPTION_ERROR;
386: END IF;
387: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
388: EXCEPTION
381: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
382: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
383: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
384: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
385: raise OKC_API.G_EXCEPTION_ERROR;
386: END IF;
387: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
388: EXCEPTION
389: WHEN OKC_API.G_EXCEPTION_ERROR THEN
383: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
384: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
385: raise OKC_API.G_EXCEPTION_ERROR;
386: END IF;
387: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
388: EXCEPTION
389: WHEN OKC_API.G_EXCEPTION_ERROR THEN
390: x_return_status := OKC_API.HANDLE_EXCEPTIONS
391: (l_api_name,
385: raise OKC_API.G_EXCEPTION_ERROR;
386: END IF;
387: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
388: EXCEPTION
389: WHEN OKC_API.G_EXCEPTION_ERROR THEN
390: x_return_status := OKC_API.HANDLE_EXCEPTIONS
391: (l_api_name,
392: G_PKG_NAME,
393: 'OKC_API.G_RET_STS_ERROR',
386: END IF;
387: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
388: EXCEPTION
389: WHEN OKC_API.G_EXCEPTION_ERROR THEN
390: x_return_status := OKC_API.HANDLE_EXCEPTIONS
391: (l_api_name,
392: G_PKG_NAME,
393: 'OKC_API.G_RET_STS_ERROR',
394: x_msg_count,
389: WHEN OKC_API.G_EXCEPTION_ERROR THEN
390: x_return_status := OKC_API.HANDLE_EXCEPTIONS
391: (l_api_name,
392: G_PKG_NAME,
393: 'OKC_API.G_RET_STS_ERROR',
394: x_msg_count,
395: x_msg_data,
396: '_PUB');
397: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
393: 'OKC_API.G_RET_STS_ERROR',
394: x_msg_count,
395: x_msg_data,
396: '_PUB');
397: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
398: x_return_status := OKC_API.HANDLE_EXCEPTIONS
399: (l_api_name,
400: G_PKG_NAME,
401: 'OKC_API.G_RET_STS_UNEXP_ERROR',
394: x_msg_count,
395: x_msg_data,
396: '_PUB');
397: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
398: x_return_status := OKC_API.HANDLE_EXCEPTIONS
399: (l_api_name,
400: G_PKG_NAME,
401: 'OKC_API.G_RET_STS_UNEXP_ERROR',
402: x_msg_count,
397: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
398: x_return_status := OKC_API.HANDLE_EXCEPTIONS
399: (l_api_name,
400: G_PKG_NAME,
401: 'OKC_API.G_RET_STS_UNEXP_ERROR',
402: x_msg_count,
403: x_msg_data,
404: '_PUB');
405: WHEN OTHERS THEN
402: x_msg_count,
403: x_msg_data,
404: '_PUB');
405: WHEN OTHERS THEN
406: x_return_status := OKC_API.HANDLE_EXCEPTIONS
407: (l_api_name,
408: G_PKG_NAME,
409: 'OTHERS',
410: x_msg_count,
419: x_msg_count OUT NOCOPY NUMBER,
420: x_msg_data OUT NOCOPY VARCHAR2,
421: p_lsev_tbl IN lsev_tbl_type) IS
422: i NUMBER := 0;
423: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
424: BEGIN
425: x_return_status := OKC_API.G_RET_STS_SUCCESS;
426: IF p_lsev_tbl.COUNT > 0 THEN
427: i := p_lsev_tbl.FIRST;
421: p_lsev_tbl IN lsev_tbl_type) IS
422: i NUMBER := 0;
423: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
424: BEGIN
425: x_return_status := OKC_API.G_RET_STS_SUCCESS;
426: IF p_lsev_tbl.COUNT > 0 THEN
427: i := p_lsev_tbl.FIRST;
428: LOOP
429: DELETE_LINE_STYLES(
432: l_return_status,
433: x_msg_count,
434: x_msg_data,
435: p_lsev_tbl(i));
436: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
437: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
438: x_return_status := l_return_status;
439: raise G_EXCEPTION_HALT_VALIDATION;
440: ELSE
433: x_msg_count,
434: x_msg_data,
435: p_lsev_tbl(i));
436: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
437: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
438: x_return_status := l_return_status;
439: raise G_EXCEPTION_HALT_VALIDATION;
440: ELSE
441: x_return_status := l_return_status;
448: EXCEPTION
449: WHEN G_EXCEPTION_HALT_VALIDATION THEN
450: NULL;
451: WHEN OTHERS THEN
452: OKC_API.set_message(p_app_name => g_app_name,
453: p_msg_name => g_unexpected_error,
454: p_token1 => g_sqlcode_token,
455: p_token1_value => sqlcode,
456: p_token2 => g_sqlerrm_token,
454: p_token1 => g_sqlcode_token,
455: p_token1_value => sqlcode,
456: p_token2 => g_sqlerrm_token,
457: p_token2_value => sqlerrm);
458: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
459: END DELETE_LINE_STYLES;
460:
461: PROCEDURE LOCK_LINE_STYLES(
462: p_api_version IN NUMBER,
482: x_msg_count OUT NOCOPY NUMBER,
483: x_msg_data OUT NOCOPY VARCHAR2,
484: p_lsev_tbl IN lsev_tbl_type) IS
485: i NUMBER := 0;
486: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
487: BEGIN
488: x_return_status := OKC_API.G_RET_STS_SUCCESS;
489: IF p_lsev_tbl.COUNT > 0 THEN
490: i := p_lsev_tbl.FIRST;
484: p_lsev_tbl IN lsev_tbl_type) IS
485: i NUMBER := 0;
486: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
487: BEGIN
488: x_return_status := OKC_API.G_RET_STS_SUCCESS;
489: IF p_lsev_tbl.COUNT > 0 THEN
490: i := p_lsev_tbl.FIRST;
491: LOOP
492: LOCK_LINE_STYLES(
495: l_return_status,
496: x_msg_count,
497: x_msg_data,
498: p_lsev_tbl(i));
499: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
500: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
501: x_return_status := l_return_status;
502: raise G_EXCEPTION_HALT_VALIDATION;
503: ELSE
496: x_msg_count,
497: x_msg_data,
498: p_lsev_tbl(i));
499: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
500: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
501: x_return_status := l_return_status;
502: raise G_EXCEPTION_HALT_VALIDATION;
503: ELSE
504: x_return_status := l_return_status;
511: EXCEPTION
512: WHEN G_EXCEPTION_HALT_VALIDATION THEN
513: NULL;
514: WHEN OTHERS THEN
515: OKC_API.set_message(p_app_name => g_app_name,
516: p_msg_name => g_unexpected_error,
517: p_token1 => g_sqlcode_token,
518: p_token1_value => sqlcode,
519: p_token2 => g_sqlerrm_token,
517: p_token1 => g_sqlcode_token,
518: p_token1_value => sqlcode,
519: p_token2 => g_sqlerrm_token,
520: p_token2_value => sqlerrm);
521: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
522: END LOCK_LINE_STYLES;
523:
524: PROCEDURE VALID_LINE_STYLES(
525: p_api_version IN NUMBER,
545: x_msg_count OUT NOCOPY NUMBER,
546: x_msg_data OUT NOCOPY VARCHAR2,
547: p_lsev_tbl IN lsev_tbl_type) IS
548: i NUMBER := 0;
549: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
550: BEGIN
551: x_return_status := OKC_API.G_RET_STS_SUCCESS;
552: IF p_lsev_tbl.COUNT > 0 THEN
553: i := p_lsev_tbl.FIRST;
547: p_lsev_tbl IN lsev_tbl_type) IS
548: i NUMBER := 0;
549: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
550: BEGIN
551: x_return_status := OKC_API.G_RET_STS_SUCCESS;
552: IF p_lsev_tbl.COUNT > 0 THEN
553: i := p_lsev_tbl.FIRST;
554: LOOP
555: VALID_LINE_STYLES(
558: l_return_status,
559: x_msg_count,
560: x_msg_data,
561: p_lsev_tbl(i));
562: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
563: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
564: x_return_status := l_return_status;
565: raise G_EXCEPTION_HALT_VALIDATION;
566: ELSE
559: x_msg_count,
560: x_msg_data,
561: p_lsev_tbl(i));
562: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
563: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
564: x_return_status := l_return_status;
565: raise G_EXCEPTION_HALT_VALIDATION;
566: ELSE
567: x_return_status := l_return_status;
574: EXCEPTION
575: WHEN G_EXCEPTION_HALT_VALIDATION THEN
576: NULL;
577: WHEN OTHERS THEN
578: OKC_API.set_message(p_app_name => g_app_name,
579: p_msg_name => g_unexpected_error,
580: p_token1 => g_sqlcode_token,
581: p_token1_value => sqlcode,
582: p_token2 => g_sqlerrm_token,
580: p_token1 => g_sqlcode_token,
581: p_token1_value => sqlcode,
582: p_token2 => g_sqlerrm_token,
583: p_token2_value => sqlerrm);
584: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
585: END VALID_LINE_STYLES;
586:
587:
588:
588:
589: FUNCTION USED_IN_K_LINES(
590: p_lsev_tbl IN lsev_tbl_type) RETURN VARCHAR2 IS
591: i NUMBER := 0;
592: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
593: x_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
594: BEGIN
595: x_return_status := OKC_API.G_RET_STS_SUCCESS;
596: IF p_lsev_tbl.COUNT > 0 THEN
589: FUNCTION USED_IN_K_LINES(
590: p_lsev_tbl IN lsev_tbl_type) RETURN VARCHAR2 IS
591: i NUMBER := 0;
592: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
593: x_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
594: BEGIN
595: x_return_status := OKC_API.G_RET_STS_SUCCESS;
596: IF p_lsev_tbl.COUNT > 0 THEN
597: i := p_lsev_tbl.FIRST;
591: i NUMBER := 0;
592: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
593: x_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
594: BEGIN
595: x_return_status := OKC_API.G_RET_STS_SUCCESS;
596: IF p_lsev_tbl.COUNT > 0 THEN
597: i := p_lsev_tbl.FIRST;
598: LOOP
599: l_return_status:=OKC_LINE_STYLES_PVT.USED_IN_K_LINES(p_lsev_tbl(i).id);
596: IF p_lsev_tbl.COUNT > 0 THEN
597: i := p_lsev_tbl.FIRST;
598: LOOP
599: l_return_status:=OKC_LINE_STYLES_PVT.USED_IN_K_LINES(p_lsev_tbl(i).id);
600: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
601: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
602: x_return_status := l_return_status;
603: raise G_EXCEPTION_HALT_PROCESSING;
604: ELSE
597: i := p_lsev_tbl.FIRST;
598: LOOP
599: l_return_status:=OKC_LINE_STYLES_PVT.USED_IN_K_LINES(p_lsev_tbl(i).id);
600: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
601: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
602: x_return_status := l_return_status;
603: raise G_EXCEPTION_HALT_PROCESSING;
604: ELSE
605: x_return_status := l_return_status;
613: EXCEPTION
614: WHEN G_EXCEPTION_HALT_PROCESSING THEN
615: return x_return_status;
616: WHEN OTHERS THEN
617: OKC_API.set_message(p_app_name => g_app_name,
618: p_msg_name => g_unexpected_error,
619: p_token1 => g_sqlcode_token,
620: p_token1_value => sqlcode,
621: p_token2 => g_sqlerrm_token,
619: p_token1 => g_sqlcode_token,
620: p_token1_value => sqlcode,
621: p_token2 => g_sqlerrm_token,
622: p_token2_value => sqlerrm);
623: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
624: return x_return_status;
625: End USED_IN_K_LINES;
626:
627:
628:
629: FUNCTION USED_IN_SETUPS(
630: p_lsev_tbl IN lsev_tbl_type) RETURN VARCHAR2 IS
631: i NUMBER := 0;
632: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
633: x_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
634: BEGIN
635: x_return_status := OKC_API.G_RET_STS_SUCCESS;
636: IF p_lsev_tbl.COUNT > 0 THEN
629: FUNCTION USED_IN_SETUPS(
630: p_lsev_tbl IN lsev_tbl_type) RETURN VARCHAR2 IS
631: i NUMBER := 0;
632: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
633: x_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
634: BEGIN
635: x_return_status := OKC_API.G_RET_STS_SUCCESS;
636: IF p_lsev_tbl.COUNT > 0 THEN
637: i := p_lsev_tbl.FIRST;
631: i NUMBER := 0;
632: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
633: x_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
634: BEGIN
635: x_return_status := OKC_API.G_RET_STS_SUCCESS;
636: IF p_lsev_tbl.COUNT > 0 THEN
637: i := p_lsev_tbl.FIRST;
638: LOOP
639: l_return_status:=OKC_LINE_STYLES_PVT.USED_IN_SETUPS(p_lsev_tbl(i).id);
636: IF p_lsev_tbl.COUNT > 0 THEN
637: i := p_lsev_tbl.FIRST;
638: LOOP
639: l_return_status:=OKC_LINE_STYLES_PVT.USED_IN_SETUPS(p_lsev_tbl(i).id);
640: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
641: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
642: x_return_status := l_return_status;
643: raise G_EXCEPTION_HALT_PROCESSING;
644: ELSE
637: i := p_lsev_tbl.FIRST;
638: LOOP
639: l_return_status:=OKC_LINE_STYLES_PVT.USED_IN_SETUPS(p_lsev_tbl(i).id);
640: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
641: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
642: x_return_status := l_return_status;
643: raise G_EXCEPTION_HALT_PROCESSING;
644: ELSE
645: x_return_status := l_return_status;
653: EXCEPTION
654: WHEN G_EXCEPTION_HALT_PROCESSING THEN
655: return x_return_status;
656: WHEN OTHERS THEN
657: OKC_API.set_message(p_app_name => g_app_name,
658: p_msg_name => g_unexpected_error,
659: p_token1 => g_sqlcode_token,
660: p_token1_value => sqlcode,
661: p_token2 => g_sqlerrm_token,
659: p_token1 => g_sqlcode_token,
660: p_token1_value => sqlcode,
661: p_token2 => g_sqlerrm_token,
662: p_token2_value => sqlerrm);
663: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
664: return x_return_status;
665: End USED_IN_SETUPS;
666:
667:
667:
668: FUNCTION USED_IN_SRC_OPS(
669: p_lsev_tbl IN lsev_tbl_type) RETURN VARCHAR2 IS
670: i NUMBER := 0;
671: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
672: x_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
673: BEGIN
674: x_return_status := OKC_API.G_RET_STS_SUCCESS;
675: IF p_lsev_tbl.COUNT > 0 THEN
668: FUNCTION USED_IN_SRC_OPS(
669: p_lsev_tbl IN lsev_tbl_type) RETURN VARCHAR2 IS
670: i NUMBER := 0;
671: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
672: x_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
673: BEGIN
674: x_return_status := OKC_API.G_RET_STS_SUCCESS;
675: IF p_lsev_tbl.COUNT > 0 THEN
676: i := p_lsev_tbl.FIRST;
670: i NUMBER := 0;
671: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
672: x_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
673: BEGIN
674: x_return_status := OKC_API.G_RET_STS_SUCCESS;
675: IF p_lsev_tbl.COUNT > 0 THEN
676: i := p_lsev_tbl.FIRST;
677: LOOP
678: l_return_status:=OKC_LINE_STYLES_PVT.USED_IN_SRC_OPS(p_lsev_tbl(i).id);
675: IF p_lsev_tbl.COUNT > 0 THEN
676: i := p_lsev_tbl.FIRST;
677: LOOP
678: l_return_status:=OKC_LINE_STYLES_PVT.USED_IN_SRC_OPS(p_lsev_tbl(i).id);
679: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
680: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
681: x_return_status := l_return_status;
682: raise G_EXCEPTION_HALT_PROCESSING;
683: ELSE
676: i := p_lsev_tbl.FIRST;
677: LOOP
678: l_return_status:=OKC_LINE_STYLES_PVT.USED_IN_SRC_OPS(p_lsev_tbl(i).id);
679: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
680: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
681: x_return_status := l_return_status;
682: raise G_EXCEPTION_HALT_PROCESSING;
683: ELSE
684: x_return_status := l_return_status;
692: EXCEPTION
693: WHEN G_EXCEPTION_HALT_PROCESSING THEN
694: return x_return_status;
695: WHEN OTHERS THEN
696: OKC_API.set_message(p_app_name => g_app_name,
697: p_msg_name => g_unexpected_error,
698: p_token1 => g_sqlcode_token,
699: p_token1_value => sqlcode,
700: p_token2 => g_sqlerrm_token,
698: p_token1 => g_sqlcode_token,
699: p_token1_value => sqlcode,
700: p_token2 => g_sqlerrm_token,
701: p_token2_value => sqlerrm);
702: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
703: return x_return_status;
704: End USED_IN_SRC_OPS;
705:
706:
763: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_LINE_STYLE_SOURCES';
764: l_return_status VARCHAR2(1);
765: l_lssv_rec lssv_rec_type := p_lssv_rec;
766: BEGIN
767: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
768: p_init_msg_list,
769: '_PUB',
770: x_return_status);
771: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
767: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
768: p_init_msg_list,
769: '_PUB',
770: x_return_status);
771: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
772: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
773: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
774: raise OKC_API.G_EXCEPTION_ERROR;
775: END IF;
768: p_init_msg_list,
769: '_PUB',
770: x_return_status);
771: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
772: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
773: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
774: raise OKC_API.G_EXCEPTION_ERROR;
775: END IF;
776: -- Call user hook for BEFORE
769: '_PUB',
770: x_return_status);
771: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
772: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
773: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
774: raise OKC_API.G_EXCEPTION_ERROR;
775: END IF;
776: -- Call user hook for BEFORE
777: g_lssv_rec := l_lssv_rec;
770: x_return_status);
771: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
772: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
773: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
774: raise OKC_API.G_EXCEPTION_ERROR;
775: END IF;
776: -- Call user hook for BEFORE
777: g_lssv_rec := l_lssv_rec;
778: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
775: END IF;
776: -- Call user hook for BEFORE
777: g_lssv_rec := l_lssv_rec;
778: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
779: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
780: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
781: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
782: raise OKC_API.G_EXCEPTION_ERROR;
783: END IF;
776: -- Call user hook for BEFORE
777: g_lssv_rec := l_lssv_rec;
778: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
779: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
780: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
781: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
782: raise OKC_API.G_EXCEPTION_ERROR;
783: END IF;
784: l_lssv_rec := migrate_lssv(l_lssv_rec, g_lssv_rec);
777: g_lssv_rec := l_lssv_rec;
778: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
779: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
780: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
781: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
782: raise OKC_API.G_EXCEPTION_ERROR;
783: END IF;
784: l_lssv_rec := migrate_lssv(l_lssv_rec, g_lssv_rec);
785: OKC_LINE_STYLES_PVT.CREATE_LINE_STYLE_SOURCES(
778: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
779: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
780: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
781: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
782: raise OKC_API.G_EXCEPTION_ERROR;
783: END IF;
784: l_lssv_rec := migrate_lssv(l_lssv_rec, g_lssv_rec);
785: OKC_LINE_STYLES_PVT.CREATE_LINE_STYLE_SOURCES(
786: p_api_version,
789: x_msg_count,
790: x_msg_data,
791: p_lssv_rec,
792: x_lssv_rec);
793: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
794: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
795: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
796: raise OKC_API.G_EXCEPTION_ERROR;
797: END IF;
790: x_msg_data,
791: p_lssv_rec,
792: x_lssv_rec);
793: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
794: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
795: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
796: raise OKC_API.G_EXCEPTION_ERROR;
797: END IF;
798:
791: p_lssv_rec,
792: x_lssv_rec);
793: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
794: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
795: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
796: raise OKC_API.G_EXCEPTION_ERROR;
797: END IF;
798:
799: -- Call user hook for AFTER
792: x_lssv_rec);
793: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
794: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
795: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
796: raise OKC_API.G_EXCEPTION_ERROR;
797: END IF;
798:
799: -- Call user hook for AFTER
800: g_lssv_rec := x_lssv_rec;
798:
799: -- Call user hook for AFTER
800: g_lssv_rec := x_lssv_rec;
801: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
802: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
803: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
804: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
805: raise OKC_API.G_EXCEPTION_ERROR;
806: END IF;
799: -- Call user hook for AFTER
800: g_lssv_rec := x_lssv_rec;
801: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
802: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
803: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
804: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
805: raise OKC_API.G_EXCEPTION_ERROR;
806: END IF;
807: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
800: g_lssv_rec := x_lssv_rec;
801: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
802: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
803: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
804: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
805: raise OKC_API.G_EXCEPTION_ERROR;
806: END IF;
807: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
808: EXCEPTION
801: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
802: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
803: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
804: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
805: raise OKC_API.G_EXCEPTION_ERROR;
806: END IF;
807: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
808: EXCEPTION
809: WHEN OKC_API.G_EXCEPTION_ERROR THEN
803: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
804: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
805: raise OKC_API.G_EXCEPTION_ERROR;
806: END IF;
807: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
808: EXCEPTION
809: WHEN OKC_API.G_EXCEPTION_ERROR THEN
810: x_return_status := OKC_API.HANDLE_EXCEPTIONS
811: (l_api_name,
805: raise OKC_API.G_EXCEPTION_ERROR;
806: END IF;
807: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
808: EXCEPTION
809: WHEN OKC_API.G_EXCEPTION_ERROR THEN
810: x_return_status := OKC_API.HANDLE_EXCEPTIONS
811: (l_api_name,
812: G_PKG_NAME,
813: 'OKC_API.G_RET_STS_ERROR',
806: END IF;
807: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
808: EXCEPTION
809: WHEN OKC_API.G_EXCEPTION_ERROR THEN
810: x_return_status := OKC_API.HANDLE_EXCEPTIONS
811: (l_api_name,
812: G_PKG_NAME,
813: 'OKC_API.G_RET_STS_ERROR',
814: x_msg_count,
809: WHEN OKC_API.G_EXCEPTION_ERROR THEN
810: x_return_status := OKC_API.HANDLE_EXCEPTIONS
811: (l_api_name,
812: G_PKG_NAME,
813: 'OKC_API.G_RET_STS_ERROR',
814: x_msg_count,
815: x_msg_data,
816: '_PUB');
817: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
813: 'OKC_API.G_RET_STS_ERROR',
814: x_msg_count,
815: x_msg_data,
816: '_PUB');
817: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
818: x_return_status := OKC_API.HANDLE_EXCEPTIONS
819: (l_api_name,
820: G_PKG_NAME,
821: 'OKC_API.G_RET_STS_UNEXP_ERROR',
814: x_msg_count,
815: x_msg_data,
816: '_PUB');
817: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
818: x_return_status := OKC_API.HANDLE_EXCEPTIONS
819: (l_api_name,
820: G_PKG_NAME,
821: 'OKC_API.G_RET_STS_UNEXP_ERROR',
822: x_msg_count,
817: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
818: x_return_status := OKC_API.HANDLE_EXCEPTIONS
819: (l_api_name,
820: G_PKG_NAME,
821: 'OKC_API.G_RET_STS_UNEXP_ERROR',
822: x_msg_count,
823: x_msg_data,
824: '_PUB');
825: WHEN OTHERS THEN
822: x_msg_count,
823: x_msg_data,
824: '_PUB');
825: WHEN OTHERS THEN
826: x_return_status := OKC_API.HANDLE_EXCEPTIONS
827: (l_api_name,
828: G_PKG_NAME,
829: 'OTHERS',
830: x_msg_count,
840: x_msg_data OUT NOCOPY VARCHAR2,
841: p_lssv_tbl IN lssv_tbl_type,
842: x_lssv_tbl OUT NOCOPY lssv_tbl_type) IS
843: i NUMBER := 0;
844: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
845: BEGIN
846: x_return_status := OKC_API.G_RET_STS_SUCCESS;
847: IF p_lssv_tbl.COUNT > 0 THEN
848: i := p_lssv_tbl.FIRST;
842: x_lssv_tbl OUT NOCOPY lssv_tbl_type) IS
843: i NUMBER := 0;
844: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
845: BEGIN
846: x_return_status := OKC_API.G_RET_STS_SUCCESS;
847: IF p_lssv_tbl.COUNT > 0 THEN
848: i := p_lssv_tbl.FIRST;
849: LOOP
850: CREATE_LINE_STYLE_SOURCES(
854: x_msg_count,
855: x_msg_data,
856: p_lssv_tbl(i),
857: x_lssv_tbl(i));
858: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
859: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
860: x_return_status := l_return_status;
861: raise G_EXCEPTION_HALT_VALIDATION;
862: ELSE
855: x_msg_data,
856: p_lssv_tbl(i),
857: x_lssv_tbl(i));
858: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
859: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
860: x_return_status := l_return_status;
861: raise G_EXCEPTION_HALT_VALIDATION;
862: ELSE
863: x_return_status := l_return_status;
870: EXCEPTION
871: WHEN G_EXCEPTION_HALT_VALIDATION THEN
872: NULL;
873: WHEN OTHERS THEN
874: OKC_API.set_message(p_app_name => g_app_name,
875: p_msg_name => g_unexpected_error,
876: p_token1 => g_sqlcode_token,
877: p_token1_value => sqlcode,
878: p_token2 => g_sqlerrm_token,
876: p_token1 => g_sqlcode_token,
877: p_token1_value => sqlcode,
878: p_token2 => g_sqlerrm_token,
879: p_token2_value => sqlerrm);
880: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
881: END CREATE_LINE_STYLE_SOURCES;
882:
883: PROCEDURE UPDATE_LINE_STYLE_SOURCES(
884: p_api_version IN NUMBER,
891: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_LINE_STYLE_SOURCES';
892: l_return_status VARCHAR2(1);
893: l_lssv_rec lssv_rec_type := p_lssv_rec;
894: BEGIN
895: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
896: p_init_msg_list,
897: '_PUB',
898: x_return_status);
899: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
895: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
896: p_init_msg_list,
897: '_PUB',
898: x_return_status);
899: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
900: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
901: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
902: raise OKC_API.G_EXCEPTION_ERROR;
903: END IF;
896: p_init_msg_list,
897: '_PUB',
898: x_return_status);
899: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
900: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
901: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
902: raise OKC_API.G_EXCEPTION_ERROR;
903: END IF;
904: -- Call user hook for BEFORE
897: '_PUB',
898: x_return_status);
899: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
900: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
901: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
902: raise OKC_API.G_EXCEPTION_ERROR;
903: END IF;
904: -- Call user hook for BEFORE
905: g_lssv_rec := l_lssv_rec;
898: x_return_status);
899: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
900: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
901: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
902: raise OKC_API.G_EXCEPTION_ERROR;
903: END IF;
904: -- Call user hook for BEFORE
905: g_lssv_rec := l_lssv_rec;
906: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
903: END IF;
904: -- Call user hook for BEFORE
905: g_lssv_rec := l_lssv_rec;
906: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
907: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
908: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
909: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
910: raise OKC_API.G_EXCEPTION_ERROR;
911: END IF;
904: -- Call user hook for BEFORE
905: g_lssv_rec := l_lssv_rec;
906: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
907: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
908: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
909: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
910: raise OKC_API.G_EXCEPTION_ERROR;
911: END IF;
912: l_lssv_rec := migrate_lssv(l_lssv_rec, g_lssv_rec);
905: g_lssv_rec := l_lssv_rec;
906: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
907: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
908: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
909: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
910: raise OKC_API.G_EXCEPTION_ERROR;
911: END IF;
912: l_lssv_rec := migrate_lssv(l_lssv_rec, g_lssv_rec);
913: OKC_LINE_STYLES_PVT.UPDATE_LINE_STYLE_SOURCES(
906: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
907: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
908: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
909: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
910: raise OKC_API.G_EXCEPTION_ERROR;
911: END IF;
912: l_lssv_rec := migrate_lssv(l_lssv_rec, g_lssv_rec);
913: OKC_LINE_STYLES_PVT.UPDATE_LINE_STYLE_SOURCES(
914: p_api_version,
917: x_msg_count,
918: x_msg_data,
919: p_lssv_rec,
920: x_lssv_rec);
921: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
922: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
923: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
924: raise OKC_API.G_EXCEPTION_ERROR;
925: END IF;
918: x_msg_data,
919: p_lssv_rec,
920: x_lssv_rec);
921: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
922: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
923: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
924: raise OKC_API.G_EXCEPTION_ERROR;
925: END IF;
926:
919: p_lssv_rec,
920: x_lssv_rec);
921: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
922: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
923: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
924: raise OKC_API.G_EXCEPTION_ERROR;
925: END IF;
926:
927: -- Call user hook for AFTER
920: x_lssv_rec);
921: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
922: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
923: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
924: raise OKC_API.G_EXCEPTION_ERROR;
925: END IF;
926:
927: -- Call user hook for AFTER
928: g_lssv_rec := x_lssv_rec;
926:
927: -- Call user hook for AFTER
928: g_lssv_rec := x_lssv_rec;
929: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
930: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
931: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
932: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
933: raise OKC_API.G_EXCEPTION_ERROR;
934: END IF;
927: -- Call user hook for AFTER
928: g_lssv_rec := x_lssv_rec;
929: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
930: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
931: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
932: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
933: raise OKC_API.G_EXCEPTION_ERROR;
934: END IF;
935: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
928: g_lssv_rec := x_lssv_rec;
929: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
930: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
931: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
932: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
933: raise OKC_API.G_EXCEPTION_ERROR;
934: END IF;
935: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
936: EXCEPTION
929: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
930: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
931: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
932: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
933: raise OKC_API.G_EXCEPTION_ERROR;
934: END IF;
935: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
936: EXCEPTION
937: WHEN OKC_API.G_EXCEPTION_ERROR THEN
931: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
932: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
933: raise OKC_API.G_EXCEPTION_ERROR;
934: END IF;
935: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
936: EXCEPTION
937: WHEN OKC_API.G_EXCEPTION_ERROR THEN
938: x_return_status := OKC_API.HANDLE_EXCEPTIONS
939: (l_api_name,
933: raise OKC_API.G_EXCEPTION_ERROR;
934: END IF;
935: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
936: EXCEPTION
937: WHEN OKC_API.G_EXCEPTION_ERROR THEN
938: x_return_status := OKC_API.HANDLE_EXCEPTIONS
939: (l_api_name,
940: G_PKG_NAME,
941: 'OKC_API.G_RET_STS_ERROR',
934: END IF;
935: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
936: EXCEPTION
937: WHEN OKC_API.G_EXCEPTION_ERROR THEN
938: x_return_status := OKC_API.HANDLE_EXCEPTIONS
939: (l_api_name,
940: G_PKG_NAME,
941: 'OKC_API.G_RET_STS_ERROR',
942: x_msg_count,
937: WHEN OKC_API.G_EXCEPTION_ERROR THEN
938: x_return_status := OKC_API.HANDLE_EXCEPTIONS
939: (l_api_name,
940: G_PKG_NAME,
941: 'OKC_API.G_RET_STS_ERROR',
942: x_msg_count,
943: x_msg_data,
944: '_PUB');
945: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
941: 'OKC_API.G_RET_STS_ERROR',
942: x_msg_count,
943: x_msg_data,
944: '_PUB');
945: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
946: x_return_status := OKC_API.HANDLE_EXCEPTIONS
947: (l_api_name,
948: G_PKG_NAME,
949: 'OKC_API.G_RET_STS_UNEXP_ERROR',
942: x_msg_count,
943: x_msg_data,
944: '_PUB');
945: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
946: x_return_status := OKC_API.HANDLE_EXCEPTIONS
947: (l_api_name,
948: G_PKG_NAME,
949: 'OKC_API.G_RET_STS_UNEXP_ERROR',
950: x_msg_count,
945: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
946: x_return_status := OKC_API.HANDLE_EXCEPTIONS
947: (l_api_name,
948: G_PKG_NAME,
949: 'OKC_API.G_RET_STS_UNEXP_ERROR',
950: x_msg_count,
951: x_msg_data,
952: '_PUB');
953: WHEN OTHERS THEN
950: x_msg_count,
951: x_msg_data,
952: '_PUB');
953: WHEN OTHERS THEN
954: x_return_status := OKC_API.HANDLE_EXCEPTIONS
955: (l_api_name,
956: G_PKG_NAME,
957: 'OTHERS',
958: x_msg_count,
968: x_msg_data OUT NOCOPY VARCHAR2,
969: p_lssv_tbl IN lssv_tbl_type,
970: x_lssv_tbl OUT NOCOPY lssv_tbl_type) IS
971: i NUMBER := 0;
972: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
973: BEGIN
974: x_return_status := OKC_API.G_RET_STS_SUCCESS;
975: IF p_lssv_tbl.COUNT > 0 THEN
976: i := p_lssv_tbl.FIRST;
970: x_lssv_tbl OUT NOCOPY lssv_tbl_type) IS
971: i NUMBER := 0;
972: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
973: BEGIN
974: x_return_status := OKC_API.G_RET_STS_SUCCESS;
975: IF p_lssv_tbl.COUNT > 0 THEN
976: i := p_lssv_tbl.FIRST;
977: LOOP
978: UPDATE_LINE_STYLE_SOURCES(
982: x_msg_count,
983: x_msg_data,
984: p_lssv_tbl(i),
985: x_lssv_tbl(i));
986: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
987: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
988: x_return_status := l_return_status;
989: raise G_EXCEPTION_HALT_VALIDATION;
990: ELSE
983: x_msg_data,
984: p_lssv_tbl(i),
985: x_lssv_tbl(i));
986: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
987: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
988: x_return_status := l_return_status;
989: raise G_EXCEPTION_HALT_VALIDATION;
990: ELSE
991: x_return_status := l_return_status;
998: EXCEPTION
999: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1000: NULL;
1001: WHEN OTHERS THEN
1002: OKC_API.set_message(p_app_name => g_app_name,
1003: p_msg_name => g_unexpected_error,
1004: p_token1 => g_sqlcode_token,
1005: p_token1_value => sqlcode,
1006: p_token2 => g_sqlerrm_token,
1004: p_token1 => g_sqlcode_token,
1005: p_token1_value => sqlcode,
1006: p_token2 => g_sqlerrm_token,
1007: p_token2_value => sqlerrm);
1008: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1009: END UPDATE_LINE_STYLE_SOURCES;
1010:
1011: PROCEDURE DELETE_LINE_STYLE_SOURCES(
1012: p_api_version IN NUMBER,
1018: l_api_name CONSTANT VARCHAR2(30) := 'DELETE_LINE_STYLE_SOURCES';
1019: l_return_status VARCHAR2(1);
1020: l_lssv_rec lssv_rec_type := p_lssv_rec;
1021: BEGIN
1022: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1023: p_init_msg_list,
1024: '_PUB',
1025: x_return_status);
1026: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1022: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1023: p_init_msg_list,
1024: '_PUB',
1025: x_return_status);
1026: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1027: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1028: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1029: raise OKC_API.G_EXCEPTION_ERROR;
1030: END IF;
1023: p_init_msg_list,
1024: '_PUB',
1025: x_return_status);
1026: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1027: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1028: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1029: raise OKC_API.G_EXCEPTION_ERROR;
1030: END IF;
1031: -- Call user hook for BEFORE
1024: '_PUB',
1025: x_return_status);
1026: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1027: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1028: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1029: raise OKC_API.G_EXCEPTION_ERROR;
1030: END IF;
1031: -- Call user hook for BEFORE
1032: g_lssv_rec := l_lssv_rec;
1025: x_return_status);
1026: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1027: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1028: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1029: raise OKC_API.G_EXCEPTION_ERROR;
1030: END IF;
1031: -- Call user hook for BEFORE
1032: g_lssv_rec := l_lssv_rec;
1033: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
1030: END IF;
1031: -- Call user hook for BEFORE
1032: g_lssv_rec := l_lssv_rec;
1033: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
1034: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1035: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1036: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1037: raise OKC_API.G_EXCEPTION_ERROR;
1038: END IF;
1031: -- Call user hook for BEFORE
1032: g_lssv_rec := l_lssv_rec;
1033: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
1034: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1035: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1036: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1037: raise OKC_API.G_EXCEPTION_ERROR;
1038: END IF;
1039: OKC_LINE_STYLES_PVT.DELETE_LINE_STYLE_SOURCES(
1032: g_lssv_rec := l_lssv_rec;
1033: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
1034: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1035: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1036: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1037: raise OKC_API.G_EXCEPTION_ERROR;
1038: END IF;
1039: OKC_LINE_STYLES_PVT.DELETE_LINE_STYLE_SOURCES(
1040: p_api_version,
1033: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
1034: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1035: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1036: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1037: raise OKC_API.G_EXCEPTION_ERROR;
1038: END IF;
1039: OKC_LINE_STYLES_PVT.DELETE_LINE_STYLE_SOURCES(
1040: p_api_version,
1041: p_init_msg_list,
1042: x_return_status,
1043: x_msg_count,
1044: x_msg_data,
1045: p_lssv_rec);
1046: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1047: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1048: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1049: raise OKC_API.G_EXCEPTION_ERROR;
1050: END IF;
1043: x_msg_count,
1044: x_msg_data,
1045: p_lssv_rec);
1046: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1047: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1048: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1049: raise OKC_API.G_EXCEPTION_ERROR;
1050: END IF;
1051:
1044: x_msg_data,
1045: p_lssv_rec);
1046: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1047: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1048: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1049: raise OKC_API.G_EXCEPTION_ERROR;
1050: END IF;
1051:
1052: -- Call user hook for AFTER
1045: p_lssv_rec);
1046: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1047: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1048: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1049: raise OKC_API.G_EXCEPTION_ERROR;
1050: END IF;
1051:
1052: -- Call user hook for AFTER
1053: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
1050: END IF;
1051:
1052: -- Call user hook for AFTER
1053: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
1054: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1055: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1056: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1057: raise OKC_API.G_EXCEPTION_ERROR;
1058: END IF;
1051:
1052: -- Call user hook for AFTER
1053: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
1054: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1055: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1056: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1057: raise OKC_API.G_EXCEPTION_ERROR;
1058: END IF;
1059: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1052: -- Call user hook for AFTER
1053: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
1054: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1055: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1056: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1057: raise OKC_API.G_EXCEPTION_ERROR;
1058: END IF;
1059: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1060: EXCEPTION
1053: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
1054: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1055: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1056: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1057: raise OKC_API.G_EXCEPTION_ERROR;
1058: END IF;
1059: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1060: EXCEPTION
1061: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1055: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1056: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1057: raise OKC_API.G_EXCEPTION_ERROR;
1058: END IF;
1059: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1060: EXCEPTION
1061: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1062: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1063: (l_api_name,
1057: raise OKC_API.G_EXCEPTION_ERROR;
1058: END IF;
1059: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1060: EXCEPTION
1061: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1062: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1063: (l_api_name,
1064: G_PKG_NAME,
1065: 'OKC_API.G_RET_STS_ERROR',
1058: END IF;
1059: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1060: EXCEPTION
1061: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1062: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1063: (l_api_name,
1064: G_PKG_NAME,
1065: 'OKC_API.G_RET_STS_ERROR',
1066: x_msg_count,
1061: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1062: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1063: (l_api_name,
1064: G_PKG_NAME,
1065: 'OKC_API.G_RET_STS_ERROR',
1066: x_msg_count,
1067: x_msg_data,
1068: '_PUB');
1069: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1065: 'OKC_API.G_RET_STS_ERROR',
1066: x_msg_count,
1067: x_msg_data,
1068: '_PUB');
1069: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1070: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1071: (l_api_name,
1072: G_PKG_NAME,
1073: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1066: x_msg_count,
1067: x_msg_data,
1068: '_PUB');
1069: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1070: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1071: (l_api_name,
1072: G_PKG_NAME,
1073: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1074: x_msg_count,
1069: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1070: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1071: (l_api_name,
1072: G_PKG_NAME,
1073: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1074: x_msg_count,
1075: x_msg_data,
1076: '_PUB');
1077: WHEN OTHERS THEN
1074: x_msg_count,
1075: x_msg_data,
1076: '_PUB');
1077: WHEN OTHERS THEN
1078: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1079: (l_api_name,
1080: G_PKG_NAME,
1081: 'OTHERS',
1082: x_msg_count,
1091: x_msg_count OUT NOCOPY NUMBER,
1092: x_msg_data OUT NOCOPY VARCHAR2,
1093: p_lssv_tbl IN lssv_tbl_type) IS
1094: i NUMBER := 0;
1095: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1096: BEGIN
1097: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1098: IF p_lssv_tbl.COUNT > 0 THEN
1099: i := p_lssv_tbl.FIRST;
1093: p_lssv_tbl IN lssv_tbl_type) IS
1094: i NUMBER := 0;
1095: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1096: BEGIN
1097: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1098: IF p_lssv_tbl.COUNT > 0 THEN
1099: i := p_lssv_tbl.FIRST;
1100: LOOP
1101: DELETE_LINE_STYLE_SOURCES(
1104: l_return_status,
1105: x_msg_count,
1106: x_msg_data,
1107: p_lssv_tbl(i));
1108: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1109: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1110: x_return_status := l_return_status;
1111: raise G_EXCEPTION_HALT_VALIDATION;
1112: ELSE
1105: x_msg_count,
1106: x_msg_data,
1107: p_lssv_tbl(i));
1108: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1109: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1110: x_return_status := l_return_status;
1111: raise G_EXCEPTION_HALT_VALIDATION;
1112: ELSE
1113: x_return_status := l_return_status;
1120: EXCEPTION
1121: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1122: NULL;
1123: WHEN OTHERS THEN
1124: OKC_API.set_message(p_app_name => g_app_name,
1125: p_msg_name => g_unexpected_error,
1126: p_token1 => g_sqlcode_token,
1127: p_token1_value => sqlcode,
1128: p_token2 => g_sqlerrm_token,
1126: p_token1 => g_sqlcode_token,
1127: p_token1_value => sqlcode,
1128: p_token2 => g_sqlerrm_token,
1129: p_token2_value => sqlerrm);
1130: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1131: END DELETE_LINE_STYLE_SOURCES;
1132:
1133: PROCEDURE LOCK_LINE_STYLE_SOURCES(
1134: p_api_version IN NUMBER,
1154: x_msg_count OUT NOCOPY NUMBER,
1155: x_msg_data OUT NOCOPY VARCHAR2,
1156: p_lssv_tbl IN lssv_tbl_type) IS
1157: i NUMBER := 0;
1158: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1159: BEGIN
1160: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1161: IF p_lssv_tbl.COUNT > 0 THEN
1162: i := p_lssv_tbl.FIRST;
1156: p_lssv_tbl IN lssv_tbl_type) IS
1157: i NUMBER := 0;
1158: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1159: BEGIN
1160: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1161: IF p_lssv_tbl.COUNT > 0 THEN
1162: i := p_lssv_tbl.FIRST;
1163: LOOP
1164: LOCK_LINE_STYLE_SOURCES(
1167: l_return_status,
1168: x_msg_count,
1169: x_msg_data,
1170: p_lssv_tbl(i));
1171: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1172: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1173: x_return_status := l_return_status;
1174: raise G_EXCEPTION_HALT_VALIDATION;
1175: ELSE
1168: x_msg_count,
1169: x_msg_data,
1170: p_lssv_tbl(i));
1171: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1172: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1173: x_return_status := l_return_status;
1174: raise G_EXCEPTION_HALT_VALIDATION;
1175: ELSE
1176: x_return_status := l_return_status;
1183: EXCEPTION
1184: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1185: NULL;
1186: WHEN OTHERS THEN
1187: OKC_API.set_message(p_app_name => g_app_name,
1188: p_msg_name => g_unexpected_error,
1189: p_token1 => g_sqlcode_token,
1190: p_token1_value => sqlcode,
1191: p_token2 => g_sqlerrm_token,
1189: p_token1 => g_sqlcode_token,
1190: p_token1_value => sqlcode,
1191: p_token2 => g_sqlerrm_token,
1192: p_token2_value => sqlerrm);
1193: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1194: END LOCK_LINE_STYLE_SOURCES;
1195:
1196: PROCEDURE VALID_LINE_STYLE_SOURCES(
1197: p_api_version IN NUMBER,
1217: x_msg_count OUT NOCOPY NUMBER,
1218: x_msg_data OUT NOCOPY VARCHAR2,
1219: p_lssv_tbl IN lssv_tbl_type) IS
1220: i NUMBER := 0;
1221: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1222: BEGIN
1223: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1224: IF p_lssv_tbl.COUNT > 0 THEN
1225: i := p_lssv_tbl.FIRST;
1219: p_lssv_tbl IN lssv_tbl_type) IS
1220: i NUMBER := 0;
1221: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1222: BEGIN
1223: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1224: IF p_lssv_tbl.COUNT > 0 THEN
1225: i := p_lssv_tbl.FIRST;
1226: LOOP
1227: VALID_LINE_STYLE_SOURCES(
1230: l_return_status,
1231: x_msg_count,
1232: x_msg_data,
1233: p_lssv_tbl(i));
1234: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1235: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1236: x_return_status := l_return_status;
1237: raise G_EXCEPTION_HALT_VALIDATION;
1238: ELSE
1231: x_msg_count,
1232: x_msg_data,
1233: p_lssv_tbl(i));
1234: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1235: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1236: x_return_status := l_return_status;
1237: raise G_EXCEPTION_HALT_VALIDATION;
1238: ELSE
1239: x_return_status := l_return_status;
1246: EXCEPTION
1247: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1248: NULL;
1249: WHEN OTHERS THEN
1250: OKC_API.set_message(p_app_name => g_app_name,
1251: p_msg_name => g_unexpected_error,
1252: p_token1 => g_sqlcode_token,
1253: p_token1_value => sqlcode,
1254: p_token2 => g_sqlerrm_token,
1252: p_token1 => g_sqlcode_token,
1253: p_token1_value => sqlcode,
1254: p_token2 => g_sqlerrm_token,
1255: p_token2_value => sqlerrm);
1256: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1257: END VALID_LINE_STYLE_SOURCES;
1258:
1259: --------------------------------------------------------------------------
1260: ---The following procedures cater to handling of OKC_VAL_LINE_OPERTION
1287: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_VAL_LINE_OPERATION';
1288: l_return_status VARCHAR2(1);
1289: l_vlov_rec vlov_rec_type := p_vlov_rec;
1290: BEGIN
1291: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1292: p_init_msg_list,
1293: '_PUB',
1294: x_return_status);
1295: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1291: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1292: p_init_msg_list,
1293: '_PUB',
1294: x_return_status);
1295: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1296: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1297: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1298: raise OKC_API.G_EXCEPTION_ERROR;
1299: END IF;
1292: p_init_msg_list,
1293: '_PUB',
1294: x_return_status);
1295: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1296: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1297: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1298: raise OKC_API.G_EXCEPTION_ERROR;
1299: END IF;
1300: -- Call user hook for BEFORE
1293: '_PUB',
1294: x_return_status);
1295: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1296: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1297: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1298: raise OKC_API.G_EXCEPTION_ERROR;
1299: END IF;
1300: -- Call user hook for BEFORE
1301: g_vlov_rec := l_vlov_rec;
1294: x_return_status);
1295: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1296: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1297: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1298: raise OKC_API.G_EXCEPTION_ERROR;
1299: END IF;
1300: -- Call user hook for BEFORE
1301: g_vlov_rec := l_vlov_rec;
1302: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
1299: END IF;
1300: -- Call user hook for BEFORE
1301: g_vlov_rec := l_vlov_rec;
1302: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
1303: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1304: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1305: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1306: raise OKC_API.G_EXCEPTION_ERROR;
1307: END IF;
1300: -- Call user hook for BEFORE
1301: g_vlov_rec := l_vlov_rec;
1302: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
1303: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1304: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1305: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1306: raise OKC_API.G_EXCEPTION_ERROR;
1307: END IF;
1308: l_vlov_rec := migrate_vlov(l_vlov_rec, g_vlov_rec);
1301: g_vlov_rec := l_vlov_rec;
1302: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
1303: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1304: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1305: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1306: raise OKC_API.G_EXCEPTION_ERROR;
1307: END IF;
1308: l_vlov_rec := migrate_vlov(l_vlov_rec, g_vlov_rec);
1309: OKC_LINE_STYLES_PVT.CREATE_VAL_LINE_OPERATION(
1302: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
1303: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1304: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1305: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1306: raise OKC_API.G_EXCEPTION_ERROR;
1307: END IF;
1308: l_vlov_rec := migrate_vlov(l_vlov_rec, g_vlov_rec);
1309: OKC_LINE_STYLES_PVT.CREATE_VAL_LINE_OPERATION(
1310: p_api_version,
1313: x_msg_count,
1314: x_msg_data,
1315: p_vlov_rec,
1316: x_vlov_rec);
1317: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1318: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1319: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1320: raise OKC_API.G_EXCEPTION_ERROR;
1321: END IF;
1314: x_msg_data,
1315: p_vlov_rec,
1316: x_vlov_rec);
1317: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1318: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1319: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1320: raise OKC_API.G_EXCEPTION_ERROR;
1321: END IF;
1322:
1315: p_vlov_rec,
1316: x_vlov_rec);
1317: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1318: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1319: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1320: raise OKC_API.G_EXCEPTION_ERROR;
1321: END IF;
1322:
1323: -- Call user hook for AFTER
1316: x_vlov_rec);
1317: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1318: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1319: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1320: raise OKC_API.G_EXCEPTION_ERROR;
1321: END IF;
1322:
1323: -- Call user hook for AFTER
1324: g_vlov_rec := x_vlov_rec;
1322:
1323: -- Call user hook for AFTER
1324: g_vlov_rec := x_vlov_rec;
1325: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
1326: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1327: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1328: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1329: raise OKC_API.G_EXCEPTION_ERROR;
1330: END IF;
1323: -- Call user hook for AFTER
1324: g_vlov_rec := x_vlov_rec;
1325: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
1326: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1327: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1328: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1329: raise OKC_API.G_EXCEPTION_ERROR;
1330: END IF;
1331: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1324: g_vlov_rec := x_vlov_rec;
1325: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
1326: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1327: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1328: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1329: raise OKC_API.G_EXCEPTION_ERROR;
1330: END IF;
1331: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1332: EXCEPTION
1325: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
1326: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1327: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1328: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1329: raise OKC_API.G_EXCEPTION_ERROR;
1330: END IF;
1331: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1332: EXCEPTION
1333: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1327: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1328: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1329: raise OKC_API.G_EXCEPTION_ERROR;
1330: END IF;
1331: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1332: EXCEPTION
1333: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1334: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1335: (l_api_name,
1329: raise OKC_API.G_EXCEPTION_ERROR;
1330: END IF;
1331: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1332: EXCEPTION
1333: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1334: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1335: (l_api_name,
1336: G_PKG_NAME,
1337: 'OKC_API.G_RET_STS_ERROR',
1330: END IF;
1331: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1332: EXCEPTION
1333: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1334: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1335: (l_api_name,
1336: G_PKG_NAME,
1337: 'OKC_API.G_RET_STS_ERROR',
1338: x_msg_count,
1333: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1334: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1335: (l_api_name,
1336: G_PKG_NAME,
1337: 'OKC_API.G_RET_STS_ERROR',
1338: x_msg_count,
1339: x_msg_data,
1340: '_PUB');
1341: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1337: 'OKC_API.G_RET_STS_ERROR',
1338: x_msg_count,
1339: x_msg_data,
1340: '_PUB');
1341: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1342: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1343: (l_api_name,
1344: G_PKG_NAME,
1345: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1338: x_msg_count,
1339: x_msg_data,
1340: '_PUB');
1341: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1342: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1343: (l_api_name,
1344: G_PKG_NAME,
1345: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1346: x_msg_count,
1341: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1342: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1343: (l_api_name,
1344: G_PKG_NAME,
1345: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1346: x_msg_count,
1347: x_msg_data,
1348: '_PUB');
1349: WHEN OTHERS THEN
1346: x_msg_count,
1347: x_msg_data,
1348: '_PUB');
1349: WHEN OTHERS THEN
1350: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1351: (l_api_name,
1352: G_PKG_NAME,
1353: 'OTHERS',
1354: x_msg_count,
1364: x_msg_data OUT NOCOPY VARCHAR2,
1365: p_vlov_tbl IN vlov_tbl_type,
1366: x_vlov_tbl OUT NOCOPY vlov_tbl_type) IS
1367: i NUMBER := 0;
1368: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1369: BEGIN
1370: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1371: IF p_vlov_tbl.COUNT > 0 THEN
1372: i := p_vlov_tbl.FIRST;
1366: x_vlov_tbl OUT NOCOPY vlov_tbl_type) IS
1367: i NUMBER := 0;
1368: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1369: BEGIN
1370: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1371: IF p_vlov_tbl.COUNT > 0 THEN
1372: i := p_vlov_tbl.FIRST;
1373: LOOP
1374: CREATE_VAL_LINE_OPERATION(
1378: x_msg_count,
1379: x_msg_data,
1380: p_vlov_tbl(i),
1381: x_vlov_tbl(i));
1382: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1383: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1384: x_return_status := l_return_status;
1385: raise G_EXCEPTION_HALT_VALIDATION;
1386: ELSE
1379: x_msg_data,
1380: p_vlov_tbl(i),
1381: x_vlov_tbl(i));
1382: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1383: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1384: x_return_status := l_return_status;
1385: raise G_EXCEPTION_HALT_VALIDATION;
1386: ELSE
1387: x_return_status := l_return_status;
1394: EXCEPTION
1395: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1396: NULL;
1397: WHEN OTHERS THEN
1398: OKC_API.set_message(p_app_name => g_app_name,
1399: p_msg_name => g_unexpected_error,
1400: p_token1 => g_sqlcode_token,
1401: p_token1_value => sqlcode,
1402: p_token2 => g_sqlerrm_token,
1400: p_token1 => g_sqlcode_token,
1401: p_token1_value => sqlcode,
1402: p_token2 => g_sqlerrm_token,
1403: p_token2_value => sqlerrm);
1404: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1405: END CREATE_VAL_LINE_OPERATION;
1406:
1407: PROCEDURE UPDATE_VAL_LINE_OPERATION(
1408: p_api_version IN NUMBER,
1415: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_VAL_LINE_OPERATION';
1416: l_return_status VARCHAR2(1);
1417: l_vlov_rec vlov_rec_type := p_vlov_rec;
1418: BEGIN
1419: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1420: p_init_msg_list,
1421: '_PUB',
1422: x_return_status);
1423: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1419: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1420: p_init_msg_list,
1421: '_PUB',
1422: x_return_status);
1423: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1424: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1425: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1426: raise OKC_API.G_EXCEPTION_ERROR;
1427: END IF;
1420: p_init_msg_list,
1421: '_PUB',
1422: x_return_status);
1423: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1424: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1425: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1426: raise OKC_API.G_EXCEPTION_ERROR;
1427: END IF;
1428: -- Call user hook for BEFORE
1421: '_PUB',
1422: x_return_status);
1423: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1424: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1425: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1426: raise OKC_API.G_EXCEPTION_ERROR;
1427: END IF;
1428: -- Call user hook for BEFORE
1429: g_vlov_rec := l_vlov_rec;
1422: x_return_status);
1423: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1424: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1425: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1426: raise OKC_API.G_EXCEPTION_ERROR;
1427: END IF;
1428: -- Call user hook for BEFORE
1429: g_vlov_rec := l_vlov_rec;
1430: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
1427: END IF;
1428: -- Call user hook for BEFORE
1429: g_vlov_rec := l_vlov_rec;
1430: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
1431: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1432: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1433: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1434: raise OKC_API.G_EXCEPTION_ERROR;
1435: END IF;
1428: -- Call user hook for BEFORE
1429: g_vlov_rec := l_vlov_rec;
1430: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
1431: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1432: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1433: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1434: raise OKC_API.G_EXCEPTION_ERROR;
1435: END IF;
1436: l_vlov_rec := migrate_vlov(l_vlov_rec, g_vlov_rec);
1429: g_vlov_rec := l_vlov_rec;
1430: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
1431: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1432: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1433: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1434: raise OKC_API.G_EXCEPTION_ERROR;
1435: END IF;
1436: l_vlov_rec := migrate_vlov(l_vlov_rec, g_vlov_rec);
1437: OKC_LINE_STYLES_PVT.UPDATE_VAL_LINE_OPERATION(
1430: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
1431: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1432: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1433: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1434: raise OKC_API.G_EXCEPTION_ERROR;
1435: END IF;
1436: l_vlov_rec := migrate_vlov(l_vlov_rec, g_vlov_rec);
1437: OKC_LINE_STYLES_PVT.UPDATE_VAL_LINE_OPERATION(
1438: p_api_version,
1441: x_msg_count,
1442: x_msg_data,
1443: p_vlov_rec,
1444: x_vlov_rec);
1445: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1446: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1447: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1448: raise OKC_API.G_EXCEPTION_ERROR;
1449: END IF;
1442: x_msg_data,
1443: p_vlov_rec,
1444: x_vlov_rec);
1445: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1446: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1447: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1448: raise OKC_API.G_EXCEPTION_ERROR;
1449: END IF;
1450:
1443: p_vlov_rec,
1444: x_vlov_rec);
1445: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1446: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1447: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1448: raise OKC_API.G_EXCEPTION_ERROR;
1449: END IF;
1450:
1451: -- Call user hook for AFTER
1444: x_vlov_rec);
1445: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1446: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1447: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1448: raise OKC_API.G_EXCEPTION_ERROR;
1449: END IF;
1450:
1451: -- Call user hook for AFTER
1452: g_vlov_rec := x_vlov_rec;
1450:
1451: -- Call user hook for AFTER
1452: g_vlov_rec := x_vlov_rec;
1453: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
1454: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1455: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1456: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1457: raise OKC_API.G_EXCEPTION_ERROR;
1458: END IF;
1451: -- Call user hook for AFTER
1452: g_vlov_rec := x_vlov_rec;
1453: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
1454: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1455: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1456: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1457: raise OKC_API.G_EXCEPTION_ERROR;
1458: END IF;
1459: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1452: g_vlov_rec := x_vlov_rec;
1453: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
1454: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1455: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1456: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1457: raise OKC_API.G_EXCEPTION_ERROR;
1458: END IF;
1459: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1460: EXCEPTION
1453: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
1454: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1455: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1456: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1457: raise OKC_API.G_EXCEPTION_ERROR;
1458: END IF;
1459: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1460: EXCEPTION
1461: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1455: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1456: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1457: raise OKC_API.G_EXCEPTION_ERROR;
1458: END IF;
1459: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1460: EXCEPTION
1461: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1462: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1463: (l_api_name,
1457: raise OKC_API.G_EXCEPTION_ERROR;
1458: END IF;
1459: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1460: EXCEPTION
1461: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1462: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1463: (l_api_name,
1464: G_PKG_NAME,
1465: 'OKC_API.G_RET_STS_ERROR',
1458: END IF;
1459: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1460: EXCEPTION
1461: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1462: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1463: (l_api_name,
1464: G_PKG_NAME,
1465: 'OKC_API.G_RET_STS_ERROR',
1466: x_msg_count,
1461: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1462: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1463: (l_api_name,
1464: G_PKG_NAME,
1465: 'OKC_API.G_RET_STS_ERROR',
1466: x_msg_count,
1467: x_msg_data,
1468: '_PUB');
1469: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1465: 'OKC_API.G_RET_STS_ERROR',
1466: x_msg_count,
1467: x_msg_data,
1468: '_PUB');
1469: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1470: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1471: (l_api_name,
1472: G_PKG_NAME,
1473: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1466: x_msg_count,
1467: x_msg_data,
1468: '_PUB');
1469: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1470: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1471: (l_api_name,
1472: G_PKG_NAME,
1473: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1474: x_msg_count,
1469: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1470: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1471: (l_api_name,
1472: G_PKG_NAME,
1473: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1474: x_msg_count,
1475: x_msg_data,
1476: '_PUB');
1477: WHEN OTHERS THEN
1474: x_msg_count,
1475: x_msg_data,
1476: '_PUB');
1477: WHEN OTHERS THEN
1478: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1479: (l_api_name,
1480: G_PKG_NAME,
1481: 'OTHERS',
1482: x_msg_count,
1492: x_msg_data OUT NOCOPY VARCHAR2,
1493: p_vlov_tbl IN vlov_tbl_type,
1494: x_vlov_tbl OUT NOCOPY vlov_tbl_type) IS
1495: i NUMBER := 0;
1496: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1497: BEGIN
1498: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1499: IF p_vlov_tbl.COUNT > 0 THEN
1500: i := p_vlov_tbl.FIRST;
1494: x_vlov_tbl OUT NOCOPY vlov_tbl_type) IS
1495: i NUMBER := 0;
1496: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1497: BEGIN
1498: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1499: IF p_vlov_tbl.COUNT > 0 THEN
1500: i := p_vlov_tbl.FIRST;
1501: LOOP
1502: UPDATE_VAL_LINE_OPERATION(
1506: x_msg_count,
1507: x_msg_data,
1508: p_vlov_tbl(i),
1509: x_vlov_tbl(i));
1510: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1511: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1512: x_return_status := l_return_status;
1513: raise G_EXCEPTION_HALT_VALIDATION;
1514: ELSE
1507: x_msg_data,
1508: p_vlov_tbl(i),
1509: x_vlov_tbl(i));
1510: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1511: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1512: x_return_status := l_return_status;
1513: raise G_EXCEPTION_HALT_VALIDATION;
1514: ELSE
1515: x_return_status := l_return_status;
1522: EXCEPTION
1523: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1524: NULL;
1525: WHEN OTHERS THEN
1526: OKC_API.set_message(p_app_name => g_app_name,
1527: p_msg_name => g_unexpected_error,
1528: p_token1 => g_sqlcode_token,
1529: p_token1_value => sqlcode,
1530: p_token2 => g_sqlerrm_token,
1528: p_token1 => g_sqlcode_token,
1529: p_token1_value => sqlcode,
1530: p_token2 => g_sqlerrm_token,
1531: p_token2_value => sqlerrm);
1532: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1533: END UPDATE_VAL_LINE_OPERATION;
1534:
1535: PROCEDURE DELETE_VAL_LINE_OPERATION(
1536: p_api_version IN NUMBER,
1542: l_api_name CONSTANT VARCHAR2(30) := 'DELETE_VAL_LINE_OPERATION';
1543: l_return_status VARCHAR2(1);
1544: l_vlov_rec vlov_rec_type := p_vlov_rec;
1545: BEGIN
1546: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1547: p_init_msg_list,
1548: '_PUB',
1549: x_return_status);
1550: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1546: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1547: p_init_msg_list,
1548: '_PUB',
1549: x_return_status);
1550: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1551: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1552: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1553: raise OKC_API.G_EXCEPTION_ERROR;
1554: END IF;
1547: p_init_msg_list,
1548: '_PUB',
1549: x_return_status);
1550: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1551: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1552: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1553: raise OKC_API.G_EXCEPTION_ERROR;
1554: END IF;
1555: -- Call user hook for BEFORE
1548: '_PUB',
1549: x_return_status);
1550: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1551: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1552: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1553: raise OKC_API.G_EXCEPTION_ERROR;
1554: END IF;
1555: -- Call user hook for BEFORE
1556: g_vlov_rec := l_vlov_rec;
1549: x_return_status);
1550: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1551: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1552: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1553: raise OKC_API.G_EXCEPTION_ERROR;
1554: END IF;
1555: -- Call user hook for BEFORE
1556: g_vlov_rec := l_vlov_rec;
1557: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
1554: END IF;
1555: -- Call user hook for BEFORE
1556: g_vlov_rec := l_vlov_rec;
1557: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
1558: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1559: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1560: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1561: raise OKC_API.G_EXCEPTION_ERROR;
1562: END IF;
1555: -- Call user hook for BEFORE
1556: g_vlov_rec := l_vlov_rec;
1557: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
1558: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1559: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1560: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1561: raise OKC_API.G_EXCEPTION_ERROR;
1562: END IF;
1563: OKC_LINE_STYLES_PVT.DELETE_VAL_LINE_OPERATION(
1556: g_vlov_rec := l_vlov_rec;
1557: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
1558: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1559: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1560: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1561: raise OKC_API.G_EXCEPTION_ERROR;
1562: END IF;
1563: OKC_LINE_STYLES_PVT.DELETE_VAL_LINE_OPERATION(
1564: p_api_version,
1557: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
1558: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1559: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1560: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1561: raise OKC_API.G_EXCEPTION_ERROR;
1562: END IF;
1563: OKC_LINE_STYLES_PVT.DELETE_VAL_LINE_OPERATION(
1564: p_api_version,
1565: p_init_msg_list,
1566: x_return_status,
1567: x_msg_count,
1568: x_msg_data,
1569: p_vlov_rec);
1570: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1571: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1572: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1573: raise OKC_API.G_EXCEPTION_ERROR;
1574: END IF;
1567: x_msg_count,
1568: x_msg_data,
1569: p_vlov_rec);
1570: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1571: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1572: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1573: raise OKC_API.G_EXCEPTION_ERROR;
1574: END IF;
1575:
1568: x_msg_data,
1569: p_vlov_rec);
1570: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1571: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1572: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1573: raise OKC_API.G_EXCEPTION_ERROR;
1574: END IF;
1575:
1576: -- Call user hook for AFTER
1569: p_vlov_rec);
1570: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1571: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1572: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1573: raise OKC_API.G_EXCEPTION_ERROR;
1574: END IF;
1575:
1576: -- Call user hook for AFTER
1577: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
1574: END IF;
1575:
1576: -- Call user hook for AFTER
1577: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
1578: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1579: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1580: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1581: raise OKC_API.G_EXCEPTION_ERROR;
1582: END IF;
1575:
1576: -- Call user hook for AFTER
1577: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
1578: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1579: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1580: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1581: raise OKC_API.G_EXCEPTION_ERROR;
1582: END IF;
1583: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1576: -- Call user hook for AFTER
1577: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
1578: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1579: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1580: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1581: raise OKC_API.G_EXCEPTION_ERROR;
1582: END IF;
1583: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1584: EXCEPTION
1577: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
1578: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1579: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1580: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1581: raise OKC_API.G_EXCEPTION_ERROR;
1582: END IF;
1583: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1584: EXCEPTION
1585: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1579: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1580: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1581: raise OKC_API.G_EXCEPTION_ERROR;
1582: END IF;
1583: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1584: EXCEPTION
1585: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1586: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1587: (l_api_name,
1581: raise OKC_API.G_EXCEPTION_ERROR;
1582: END IF;
1583: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1584: EXCEPTION
1585: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1586: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1587: (l_api_name,
1588: G_PKG_NAME,
1589: 'OKC_API.G_RET_STS_ERROR',
1582: END IF;
1583: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1584: EXCEPTION
1585: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1586: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1587: (l_api_name,
1588: G_PKG_NAME,
1589: 'OKC_API.G_RET_STS_ERROR',
1590: x_msg_count,
1585: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1586: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1587: (l_api_name,
1588: G_PKG_NAME,
1589: 'OKC_API.G_RET_STS_ERROR',
1590: x_msg_count,
1591: x_msg_data,
1592: '_PUB');
1593: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1589: 'OKC_API.G_RET_STS_ERROR',
1590: x_msg_count,
1591: x_msg_data,
1592: '_PUB');
1593: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1594: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1595: (l_api_name,
1596: G_PKG_NAME,
1597: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1590: x_msg_count,
1591: x_msg_data,
1592: '_PUB');
1593: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1594: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1595: (l_api_name,
1596: G_PKG_NAME,
1597: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1598: x_msg_count,
1593: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1594: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1595: (l_api_name,
1596: G_PKG_NAME,
1597: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1598: x_msg_count,
1599: x_msg_data,
1600: '_PUB');
1601: WHEN OTHERS THEN
1598: x_msg_count,
1599: x_msg_data,
1600: '_PUB');
1601: WHEN OTHERS THEN
1602: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1603: (l_api_name,
1604: G_PKG_NAME,
1605: 'OTHERS',
1606: x_msg_count,
1615: x_msg_count OUT NOCOPY NUMBER,
1616: x_msg_data OUT NOCOPY VARCHAR2,
1617: p_vlov_tbl IN vlov_tbl_type) IS
1618: i NUMBER := 0;
1619: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1620: BEGIN
1621: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1622: IF p_vlov_tbl.COUNT > 0 THEN
1623: i := p_vlov_tbl.FIRST;
1617: p_vlov_tbl IN vlov_tbl_type) IS
1618: i NUMBER := 0;
1619: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1620: BEGIN
1621: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1622: IF p_vlov_tbl.COUNT > 0 THEN
1623: i := p_vlov_tbl.FIRST;
1624: LOOP
1625: DELETE_VAL_LINE_OPERATION(
1628: l_return_status,
1629: x_msg_count,
1630: x_msg_data,
1631: p_vlov_tbl(i));
1632: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1633: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1634: x_return_status := l_return_status;
1635: raise G_EXCEPTION_HALT_VALIDATION;
1636: ELSE
1629: x_msg_count,
1630: x_msg_data,
1631: p_vlov_tbl(i));
1632: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1633: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1634: x_return_status := l_return_status;
1635: raise G_EXCEPTION_HALT_VALIDATION;
1636: ELSE
1637: x_return_status := l_return_status;
1644: EXCEPTION
1645: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1646: NULL;
1647: WHEN OTHERS THEN
1648: OKC_API.set_message(p_app_name => g_app_name,
1649: p_msg_name => g_unexpected_error,
1650: p_token1 => g_sqlcode_token,
1651: p_token1_value => sqlcode,
1652: p_token2 => g_sqlerrm_token,
1650: p_token1 => g_sqlcode_token,
1651: p_token1_value => sqlcode,
1652: p_token2 => g_sqlerrm_token,
1653: p_token2_value => sqlerrm);
1654: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1655: END DELETE_VAL_LINE_OPERATION;
1656:
1657: PROCEDURE LOCK_VAL_LINE_OPERATION(
1658: p_api_version IN NUMBER,
1678: x_msg_count OUT NOCOPY NUMBER,
1679: x_msg_data OUT NOCOPY VARCHAR2,
1680: p_vlov_tbl IN vlov_tbl_type) IS
1681: i NUMBER := 0;
1682: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1683: BEGIN
1684: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1685: IF p_vlov_tbl.COUNT > 0 THEN
1686: i := p_vlov_tbl.FIRST;
1680: p_vlov_tbl IN vlov_tbl_type) IS
1681: i NUMBER := 0;
1682: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1683: BEGIN
1684: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1685: IF p_vlov_tbl.COUNT > 0 THEN
1686: i := p_vlov_tbl.FIRST;
1687: LOOP
1688: LOCK_VAL_LINE_OPERATION(
1691: l_return_status,
1692: x_msg_count,
1693: x_msg_data,
1694: p_vlov_tbl(i));
1695: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1696: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1697: x_return_status := l_return_status;
1698: raise G_EXCEPTION_HALT_VALIDATION;
1699: ELSE
1692: x_msg_count,
1693: x_msg_data,
1694: p_vlov_tbl(i));
1695: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1696: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1697: x_return_status := l_return_status;
1698: raise G_EXCEPTION_HALT_VALIDATION;
1699: ELSE
1700: x_return_status := l_return_status;
1707: EXCEPTION
1708: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1709: NULL;
1710: WHEN OTHERS THEN
1711: OKC_API.set_message(p_app_name => g_app_name,
1712: p_msg_name => g_unexpected_error,
1713: p_token1 => g_sqlcode_token,
1714: p_token1_value => sqlcode,
1715: p_token2 => g_sqlerrm_token,
1713: p_token1 => g_sqlcode_token,
1714: p_token1_value => sqlcode,
1715: p_token2 => g_sqlerrm_token,
1716: p_token2_value => sqlerrm);
1717: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1718: END LOCK_VAL_LINE_OPERATION;
1719:
1720: PROCEDURE VALIDATE_VAL_LINE_OPERATION(
1721: p_api_version IN NUMBER,
1741: x_msg_count OUT NOCOPY NUMBER,
1742: x_msg_data OUT NOCOPY VARCHAR2,
1743: p_vlov_tbl IN vlov_tbl_type) IS
1744: i NUMBER := 0;
1745: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1746: BEGIN
1747: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1748: IF p_vlov_tbl.COUNT > 0 THEN
1749: i := p_vlov_tbl.FIRST;
1743: p_vlov_tbl IN vlov_tbl_type) IS
1744: i NUMBER := 0;
1745: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1746: BEGIN
1747: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1748: IF p_vlov_tbl.COUNT > 0 THEN
1749: i := p_vlov_tbl.FIRST;
1750: LOOP
1751: VALIDATE_VAL_LINE_OPERATION(
1754: l_return_status,
1755: x_msg_count,
1756: x_msg_data,
1757: p_vlov_tbl(i));
1758: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1759: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1760: x_return_status := l_return_status;
1761: raise G_EXCEPTION_HALT_VALIDATION;
1762: ELSE
1755: x_msg_count,
1756: x_msg_data,
1757: p_vlov_tbl(i));
1758: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1759: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1760: x_return_status := l_return_status;
1761: raise G_EXCEPTION_HALT_VALIDATION;
1762: ELSE
1763: x_return_status := l_return_status;
1770: EXCEPTION
1771: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1772: NULL;
1773: WHEN OTHERS THEN
1774: OKC_API.set_message(p_app_name => g_app_name,
1775: p_msg_name => g_unexpected_error,
1776: p_token1 => g_sqlcode_token,
1777: p_token1_value => sqlcode,
1778: p_token2 => g_sqlerrm_token,
1776: p_token1 => g_sqlcode_token,
1777: p_token1_value => sqlcode,
1778: p_token2 => g_sqlerrm_token,
1779: p_token2_value => sqlerrm);
1780: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1781: END VALIDATE_VAL_LINE_OPERATION;
1782:
1783: END OKC_LINE_STYLES_PUB;