2: /* $Header: OKLCVIBB.pls 115.0 2002/02/05 15:12:47 pkm ship $ */
3:
4: PROCEDURE Create_version_ib(
5: p_api_version IN NUMBER,
6: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
7: x_return_status OUT NOCOPY VARCHAR2,
8: x_msg_count OUT NOCOPY NUMBER,
9: x_msg_data OUT NOCOPY VARCHAR2,
10: p_vibv_rec IN vibv_rec_type,
10: p_vibv_rec IN vibv_rec_type,
11: x_vibv_rec OUT NOCOPY vibv_rec_type)
12: IS
13: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_VERSION_IB';
14: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
15: BEGIN
16: -- Call start_activity to create savepoint, check compatibility
17: -- and initialize message list
18: l_return_status := OKC_API.START_ACTIVITY (l_api_name
14: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
15: BEGIN
16: -- Call start_activity to create savepoint, check compatibility
17: -- and initialize message list
18: l_return_status := OKC_API.START_ACTIVITY (l_api_name
19: ,p_init_msg_list
20: ,'_PVT'
21: ,x_return_status);
22: -- Check if activity started successfully
19: ,p_init_msg_list
20: ,'_PVT'
21: ,x_return_status);
22: -- Check if activity started successfully
23: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
24: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
25: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
26: RAISE OKC_API.G_EXCEPTION_ERROR;
27: END IF;
20: ,'_PVT'
21: ,x_return_status);
22: -- Check if activity started successfully
23: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
24: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
25: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
26: RAISE OKC_API.G_EXCEPTION_ERROR;
27: END IF;
28: -- evaluate conditions, build outcomes for true conditions and
21: ,x_return_status);
22: -- Check if activity started successfully
23: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
24: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
25: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
26: RAISE OKC_API.G_EXCEPTION_ERROR;
27: END IF;
28: -- evaluate conditions, build outcomes for true conditions and
29: -- put them on outcome queue
22: -- Check if activity started successfully
23: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
24: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
25: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
26: RAISE OKC_API.G_EXCEPTION_ERROR;
27: END IF;
28: -- evaluate conditions, build outcomes for true conditions and
29: -- put them on outcome queue
30: OKL_VIB_PVT.insert_row(p_api_version,
33: x_msg_count,
34: x_msg_data,
35: p_vibv_rec,
36: x_vibv_rec);
37: OKC_API.END_ACTIVITY (x_msg_count
38: ,x_msg_data );
39: EXCEPTION
40: WHEN OKC_API.G_EXCEPTION_ERROR THEN
41: x_return_status := OKC_API.HANDLE_EXCEPTIONS
36: x_vibv_rec);
37: OKC_API.END_ACTIVITY (x_msg_count
38: ,x_msg_data );
39: EXCEPTION
40: WHEN OKC_API.G_EXCEPTION_ERROR THEN
41: x_return_status := OKC_API.HANDLE_EXCEPTIONS
42: (l_api_name,
43: G_PKG_NAME,
44: 'OKC_API.G_RET_STS_ERROR',
37: OKC_API.END_ACTIVITY (x_msg_count
38: ,x_msg_data );
39: EXCEPTION
40: WHEN OKC_API.G_EXCEPTION_ERROR THEN
41: x_return_status := OKC_API.HANDLE_EXCEPTIONS
42: (l_api_name,
43: G_PKG_NAME,
44: 'OKC_API.G_RET_STS_ERROR',
45: x_msg_count,
40: WHEN OKC_API.G_EXCEPTION_ERROR THEN
41: x_return_status := OKC_API.HANDLE_EXCEPTIONS
42: (l_api_name,
43: G_PKG_NAME,
44: 'OKC_API.G_RET_STS_ERROR',
45: x_msg_count,
46: x_msg_data,
47: '_PVT');
48: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
44: 'OKC_API.G_RET_STS_ERROR',
45: x_msg_count,
46: x_msg_data,
47: '_PVT');
48: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
49: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
50: (l_api_name,
51: G_PKG_NAME,
52: 'OKC_API.G_RET_STS_UNEXP_ERROR',
45: x_msg_count,
46: x_msg_data,
47: '_PVT');
48: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
49: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
50: (l_api_name,
51: G_PKG_NAME,
52: 'OKC_API.G_RET_STS_UNEXP_ERROR',
53: x_msg_count,
48: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
49: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
50: (l_api_name,
51: G_PKG_NAME,
52: 'OKC_API.G_RET_STS_UNEXP_ERROR',
53: x_msg_count,
54: x_msg_data,
55: '_PVT');
56: WHEN OTHERS THEN x_return_status :=OKC_API.HANDLE_EXCEPTIONS
52: 'OKC_API.G_RET_STS_UNEXP_ERROR',
53: x_msg_count,
54: x_msg_data,
55: '_PVT');
56: WHEN OTHERS THEN x_return_status :=OKC_API.HANDLE_EXCEPTIONS
57: (l_api_name,
58: G_PKG_NAME,
59: 'OTHERS',
60: x_msg_count,
63: END Create_version_ib;
64:
65: PROCEDURE Create_version_ib(
66: p_api_version IN NUMBER,
67: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
68: x_return_status OUT NOCOPY VARCHAR2,
69: x_msg_count OUT NOCOPY NUMBER,
70: x_msg_data OUT NOCOPY VARCHAR2,
71: p_vibv_tbl IN vibv_tbl_type,
71: p_vibv_tbl IN vibv_tbl_type,
72: x_vibv_tbl OUT NOCOPY vibv_tbl_type)
73: IS
74: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_VERSION_IB';
75: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
76: BEGIN
77: -- Call start_activity to create savepoint, check compatibility
78: -- and initialize message list
79: l_return_status := OKC_API.START_ACTIVITY (l_api_name
75: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
76: BEGIN
77: -- Call start_activity to create savepoint, check compatibility
78: -- and initialize message list
79: l_return_status := OKC_API.START_ACTIVITY (l_api_name
80: ,p_init_msg_list
81: ,'_PVT'
82: , x_return_status);
83: -- Check if activity started successfully
80: ,p_init_msg_list
81: ,'_PVT'
82: , x_return_status);
83: -- Check if activity started successfully
84: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
85: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
86: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
87: RAISE OKC_API.G_EXCEPTION_ERROR;
88: END IF;
81: ,'_PVT'
82: , x_return_status);
83: -- Check if activity started successfully
84: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
85: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
86: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
87: RAISE OKC_API.G_EXCEPTION_ERROR;
88: END IF;
89: -- evaluate conditions, build outcomes for true conditions and
82: , x_return_status);
83: -- Check if activity started successfully
84: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
85: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
86: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
87: RAISE OKC_API.G_EXCEPTION_ERROR;
88: END IF;
89: -- evaluate conditions, build outcomes for true conditions and
90: -- put them on outcome queue
83: -- Check if activity started successfully
84: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
85: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
86: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
87: RAISE OKC_API.G_EXCEPTION_ERROR;
88: END IF;
89: -- evaluate conditions, build outcomes for true conditions and
90: -- put them on outcome queue
91: OKL_VIB_PVT.insert_row(p_api_version,
95: x_msg_data,
96: p_vibv_tbl,
97: x_vibv_tbl);
98:
99: OKC_API.END_ACTIVITY (x_msg_count
100: ,x_msg_data );
101:
102: EXCEPTION
103: WHEN OKC_API.G_EXCEPTION_ERROR THEN
99: OKC_API.END_ACTIVITY (x_msg_count
100: ,x_msg_data );
101:
102: EXCEPTION
103: WHEN OKC_API.G_EXCEPTION_ERROR THEN
104: x_return_status := OKC_API.HANDLE_EXCEPTIONS
105: (l_api_name,
106: G_PKG_NAME,
107: 'OKC_API.G_RET_STS_ERROR',
100: ,x_msg_data );
101:
102: EXCEPTION
103: WHEN OKC_API.G_EXCEPTION_ERROR THEN
104: x_return_status := OKC_API.HANDLE_EXCEPTIONS
105: (l_api_name,
106: G_PKG_NAME,
107: 'OKC_API.G_RET_STS_ERROR',
108: x_msg_count,
103: WHEN OKC_API.G_EXCEPTION_ERROR THEN
104: x_return_status := OKC_API.HANDLE_EXCEPTIONS
105: (l_api_name,
106: G_PKG_NAME,
107: 'OKC_API.G_RET_STS_ERROR',
108: x_msg_count,
109: x_msg_data,
110: '_PVT');
111: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
107: 'OKC_API.G_RET_STS_ERROR',
108: x_msg_count,
109: x_msg_data,
110: '_PVT');
111: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
112: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
113: (l_api_name,
114: G_PKG_NAME,
115: 'OKC_API.G_RET_STS_UNEXP_ERROR',
108: x_msg_count,
109: x_msg_data,
110: '_PVT');
111: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
112: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
113: (l_api_name,
114: G_PKG_NAME,
115: 'OKC_API.G_RET_STS_UNEXP_ERROR',
116: x_msg_count,
111: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
112: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
113: (l_api_name,
114: G_PKG_NAME,
115: 'OKC_API.G_RET_STS_UNEXP_ERROR',
116: x_msg_count,
117: x_msg_data,
118: '_PVT');
119: WHEN OTHERS THEN x_return_status :=OKC_API.HANDLE_EXCEPTIONS
115: 'OKC_API.G_RET_STS_UNEXP_ERROR',
116: x_msg_count,
117: x_msg_data,
118: '_PVT');
119: WHEN OTHERS THEN x_return_status :=OKC_API.HANDLE_EXCEPTIONS
120: ( l_api_name,
121: G_PKG_NAME,
122: 'OTHERS',
123: x_msg_count,
126: END Create_version_ib;
127:
128: PROCEDURE lock_version_ib(
129: p_api_version IN NUMBER,
130: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
131: x_return_status OUT NOCOPY VARCHAR2,
132: x_msg_count OUT NOCOPY NUMBER,
133: x_msg_data OUT NOCOPY VARCHAR2,
134: p_vibv_rec IN vibv_rec_type)
133: x_msg_data OUT NOCOPY VARCHAR2,
134: p_vibv_rec IN vibv_rec_type)
135: IS
136: l_api_name CONSTANT VARCHAR2(30) := 'LOCK_VERSION_IB';
137: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
138: BEGIN
139: -- Call start_activity to create savepoint, check compatibility
140: -- and initialize message list
141: l_return_status := OKC_API.START_ACTIVITY (l_api_name
137: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
138: BEGIN
139: -- Call start_activity to create savepoint, check compatibility
140: -- and initialize message list
141: l_return_status := OKC_API.START_ACTIVITY (l_api_name
142: ,p_init_msg_list
143: ,'_PVT'
144: ,x_return_status);
145: -- Check if activity started successfully
142: ,p_init_msg_list
143: ,'_PVT'
144: ,x_return_status);
145: -- Check if activity started successfully
146: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
147: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
148: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
149: RAISE OKC_API.G_EXCEPTION_ERROR;
150: END IF;
143: ,'_PVT'
144: ,x_return_status);
145: -- Check if activity started successfully
146: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
147: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
148: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
149: RAISE OKC_API.G_EXCEPTION_ERROR;
150: END IF;
151: -- evaluate conditions, build outcomes for true conditions and
144: ,x_return_status);
145: -- Check if activity started successfully
146: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
147: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
148: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
149: RAISE OKC_API.G_EXCEPTION_ERROR;
150: END IF;
151: -- evaluate conditions, build outcomes for true conditions and
152: -- put them on outcome queue
145: -- Check if activity started successfully
146: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
147: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
148: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
149: RAISE OKC_API.G_EXCEPTION_ERROR;
150: END IF;
151: -- evaluate conditions, build outcomes for true conditions and
152: -- put them on outcome queue
153: OKL_VIB_PVT.lock_row(p_api_version,
155: x_return_status,
156: x_msg_count,
157: x_msg_data,
158: p_vibv_rec);
159: OKC_API.END_ACTIVITY (x_msg_count
160: ,x_msg_data );
161: EXCEPTION
162: WHEN OKC_API.G_EXCEPTION_ERROR THEN
163: x_return_status := OKC_API.HANDLE_EXCEPTIONS
158: p_vibv_rec);
159: OKC_API.END_ACTIVITY (x_msg_count
160: ,x_msg_data );
161: EXCEPTION
162: WHEN OKC_API.G_EXCEPTION_ERROR THEN
163: x_return_status := OKC_API.HANDLE_EXCEPTIONS
164: (l_api_name,
165: G_PKG_NAME,
166: 'OKC_API.G_RET_STS_ERROR',
159: OKC_API.END_ACTIVITY (x_msg_count
160: ,x_msg_data );
161: EXCEPTION
162: WHEN OKC_API.G_EXCEPTION_ERROR THEN
163: x_return_status := OKC_API.HANDLE_EXCEPTIONS
164: (l_api_name,
165: G_PKG_NAME,
166: 'OKC_API.G_RET_STS_ERROR',
167: x_msg_count,
162: WHEN OKC_API.G_EXCEPTION_ERROR THEN
163: x_return_status := OKC_API.HANDLE_EXCEPTIONS
164: (l_api_name,
165: G_PKG_NAME,
166: 'OKC_API.G_RET_STS_ERROR',
167: x_msg_count,
168: x_msg_data,
169: '_PVT');
170: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
166: 'OKC_API.G_RET_STS_ERROR',
167: x_msg_count,
168: x_msg_data,
169: '_PVT');
170: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
171: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
172: (l_api_name,
173: G_PKG_NAME,
174: 'OKC_API.G_RET_STS_UNEXP_ERROR',
167: x_msg_count,
168: x_msg_data,
169: '_PVT');
170: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
171: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
172: (l_api_name,
173: G_PKG_NAME,
174: 'OKC_API.G_RET_STS_UNEXP_ERROR',
175: x_msg_count,
170: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
171: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
172: (l_api_name,
173: G_PKG_NAME,
174: 'OKC_API.G_RET_STS_UNEXP_ERROR',
175: x_msg_count,
176: x_msg_data,
177: '_PVT');
178: WHEN OTHERS THEN x_return_status :=OKC_API.HANDLE_EXCEPTIONS
174: 'OKC_API.G_RET_STS_UNEXP_ERROR',
175: x_msg_count,
176: x_msg_data,
177: '_PVT');
178: WHEN OTHERS THEN x_return_status :=OKC_API.HANDLE_EXCEPTIONS
179: (l_api_name,
180: G_PKG_NAME,
181: 'OTHERS',
182: x_msg_count,
185: END lock_version_ib;
186:
187: PROCEDURE lock_version_ib(
188: p_api_version IN NUMBER,
189: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
190: x_return_status OUT NOCOPY VARCHAR2,
191: x_msg_count OUT NOCOPY NUMBER,
192: x_msg_data OUT NOCOPY VARCHAR2,
193: p_vibv_tbl IN vibv_tbl_type)
192: x_msg_data OUT NOCOPY VARCHAR2,
193: p_vibv_tbl IN vibv_tbl_type)
194: IS
195: l_api_name CONSTANT VARCHAR2(30) := 'LOCK_VERSION_IB';
196: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
197: BEGIN
198: -- Call start_activity to create savepoint, check compatibility
199: -- and initialize message list
200: l_return_status := OKC_API.START_ACTIVITY (l_api_name
196: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
197: BEGIN
198: -- Call start_activity to create savepoint, check compatibility
199: -- and initialize message list
200: l_return_status := OKC_API.START_ACTIVITY (l_api_name
201: ,p_init_msg_list
202: ,'_PVT'
203: ,x_return_status);
204: -- Check if activity started successfully
201: ,p_init_msg_list
202: ,'_PVT'
203: ,x_return_status);
204: -- Check if activity started successfully
205: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
206: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
207: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
208: RAISE OKC_API.G_EXCEPTION_ERROR;
209: END IF;
202: ,'_PVT'
203: ,x_return_status);
204: -- Check if activity started successfully
205: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
206: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
207: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
208: RAISE OKC_API.G_EXCEPTION_ERROR;
209: END IF;
210: -- evaluate conditions, build outcomes for true conditions and
203: ,x_return_status);
204: -- Check if activity started successfully
205: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
206: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
207: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
208: RAISE OKC_API.G_EXCEPTION_ERROR;
209: END IF;
210: -- evaluate conditions, build outcomes for true conditions and
211: -- put them on outcome queue
204: -- Check if activity started successfully
205: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
206: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
207: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
208: RAISE OKC_API.G_EXCEPTION_ERROR;
209: END IF;
210: -- evaluate conditions, build outcomes for true conditions and
211: -- put them on outcome queue
212: OKL_VIB_PVT.lock_row(p_api_version,
214: x_return_status,
215: x_msg_count,
216: x_msg_data,
217: p_vibv_tbl);
218: OKC_API.END_ACTIVITY (x_msg_count
219: ,x_msg_data );
220: EXCEPTION
221: WHEN OKC_API.G_EXCEPTION_ERROR THEN
222: x_return_status := OKC_API.HANDLE_EXCEPTIONS
217: p_vibv_tbl);
218: OKC_API.END_ACTIVITY (x_msg_count
219: ,x_msg_data );
220: EXCEPTION
221: WHEN OKC_API.G_EXCEPTION_ERROR THEN
222: x_return_status := OKC_API.HANDLE_EXCEPTIONS
223: (l_api_name,
224: G_PKG_NAME,
225: 'OKC_API.G_RET_STS_ERROR',
218: OKC_API.END_ACTIVITY (x_msg_count
219: ,x_msg_data );
220: EXCEPTION
221: WHEN OKC_API.G_EXCEPTION_ERROR THEN
222: x_return_status := OKC_API.HANDLE_EXCEPTIONS
223: (l_api_name,
224: G_PKG_NAME,
225: 'OKC_API.G_RET_STS_ERROR',
226: x_msg_count,
221: WHEN OKC_API.G_EXCEPTION_ERROR THEN
222: x_return_status := OKC_API.HANDLE_EXCEPTIONS
223: (l_api_name,
224: G_PKG_NAME,
225: 'OKC_API.G_RET_STS_ERROR',
226: x_msg_count,
227: x_msg_data,
228: '_PVT');
229: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
225: 'OKC_API.G_RET_STS_ERROR',
226: x_msg_count,
227: x_msg_data,
228: '_PVT');
229: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
230: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
231: (l_api_name,
232: G_PKG_NAME,
233: 'OKC_API.G_RET_STS_UNEXP_ERROR',
226: x_msg_count,
227: x_msg_data,
228: '_PVT');
229: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
230: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
231: (l_api_name,
232: G_PKG_NAME,
233: 'OKC_API.G_RET_STS_UNEXP_ERROR',
234: x_msg_count,
229: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
230: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
231: (l_api_name,
232: G_PKG_NAME,
233: 'OKC_API.G_RET_STS_UNEXP_ERROR',
234: x_msg_count,
235: x_msg_data,
236: '_PVT');
237: WHEN OTHERS THEN x_return_status :=OKC_API.HANDLE_EXCEPTIONS
233: 'OKC_API.G_RET_STS_UNEXP_ERROR',
234: x_msg_count,
235: x_msg_data,
236: '_PVT');
237: WHEN OTHERS THEN x_return_status :=OKC_API.HANDLE_EXCEPTIONS
238: (l_api_name,
239: G_PKG_NAME,
240: 'OTHERS',
241: x_msg_count,
244: END lock_version_ib;
245:
246: PROCEDURE update_version_ib(
247: p_api_version IN NUMBER,
248: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
249: x_return_status OUT NOCOPY VARCHAR2,
250: x_msg_count OUT NOCOPY NUMBER,
251: x_msg_data OUT NOCOPY VARCHAR2,
252: p_vibv_rec IN vibv_rec_type,
252: p_vibv_rec IN vibv_rec_type,
253: x_vibv_rec OUT NOCOPY vibv_rec_type)
254: IS
255: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_VERSION_IB';
256: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
257: BEGIN
258: -- Call start_activity to create savepoint, check compatibility
259: -- and initialize message list
260: l_return_status := OKC_API.START_ACTIVITY (l_api_name
256: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
257: BEGIN
258: -- Call start_activity to create savepoint, check compatibility
259: -- and initialize message list
260: l_return_status := OKC_API.START_ACTIVITY (l_api_name
261: ,p_init_msg_list
262: ,'_PVT'
263: ,x_return_status);
264: -- Check if activity started successfully
261: ,p_init_msg_list
262: ,'_PVT'
263: ,x_return_status);
264: -- Check if activity started successfully
265: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
266: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
267: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
268: RAISE OKC_API.G_EXCEPTION_ERROR;
269: END IF;
262: ,'_PVT'
263: ,x_return_status);
264: -- Check if activity started successfully
265: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
266: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
267: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
268: RAISE OKC_API.G_EXCEPTION_ERROR;
269: END IF;
270: -- evaluate conditions, build outcomes for true conditions and
263: ,x_return_status);
264: -- Check if activity started successfully
265: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
266: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
267: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
268: RAISE OKC_API.G_EXCEPTION_ERROR;
269: END IF;
270: -- evaluate conditions, build outcomes for true conditions and
271: -- put them on outcome queue
264: -- Check if activity started successfully
265: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
266: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
267: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
268: RAISE OKC_API.G_EXCEPTION_ERROR;
269: END IF;
270: -- evaluate conditions, build outcomes for true conditions and
271: -- put them on outcome queue
272: OKL_VIB_PVT.update_row(p_api_version,
275: x_msg_count,
276: x_msg_data,
277: p_vibv_rec,
278: x_vibv_rec);
279: OKC_API.END_ACTIVITY (x_msg_count
280: ,x_msg_data );
281: EXCEPTION
282: WHEN OKC_API.G_EXCEPTION_ERROR THEN
283: x_return_status := OKC_API.HANDLE_EXCEPTIONS
278: x_vibv_rec);
279: OKC_API.END_ACTIVITY (x_msg_count
280: ,x_msg_data );
281: EXCEPTION
282: WHEN OKC_API.G_EXCEPTION_ERROR THEN
283: x_return_status := OKC_API.HANDLE_EXCEPTIONS
284: (l_api_name,
285: G_PKG_NAME,
286: 'OKC_API.G_RET_STS_ERROR',
279: OKC_API.END_ACTIVITY (x_msg_count
280: ,x_msg_data );
281: EXCEPTION
282: WHEN OKC_API.G_EXCEPTION_ERROR THEN
283: x_return_status := OKC_API.HANDLE_EXCEPTIONS
284: (l_api_name,
285: G_PKG_NAME,
286: 'OKC_API.G_RET_STS_ERROR',
287: x_msg_count,
282: WHEN OKC_API.G_EXCEPTION_ERROR THEN
283: x_return_status := OKC_API.HANDLE_EXCEPTIONS
284: (l_api_name,
285: G_PKG_NAME,
286: 'OKC_API.G_RET_STS_ERROR',
287: x_msg_count,
288: x_msg_data,
289: '_PVT');
290: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
286: 'OKC_API.G_RET_STS_ERROR',
287: x_msg_count,
288: x_msg_data,
289: '_PVT');
290: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
291: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
292: (l_api_name,
293: G_PKG_NAME,
294: 'OKC_API.G_RET_STS_UNEXP_ERROR',
287: x_msg_count,
288: x_msg_data,
289: '_PVT');
290: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
291: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
292: (l_api_name,
293: G_PKG_NAME,
294: 'OKC_API.G_RET_STS_UNEXP_ERROR',
295: x_msg_count,
290: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
291: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
292: (l_api_name,
293: G_PKG_NAME,
294: 'OKC_API.G_RET_STS_UNEXP_ERROR',
295: x_msg_count,
296: x_msg_data,
297: '_PVT');
298: WHEN OTHERS THEN x_return_status :=OKC_API.HANDLE_EXCEPTIONS
294: 'OKC_API.G_RET_STS_UNEXP_ERROR',
295: x_msg_count,
296: x_msg_data,
297: '_PVT');
298: WHEN OTHERS THEN x_return_status :=OKC_API.HANDLE_EXCEPTIONS
299: (l_api_name,
300: G_PKG_NAME,
301: 'OTHERS',
302: x_msg_count,
305: END update_version_ib;
306:
307: PROCEDURE update_version_ib(
308: p_api_version IN NUMBER,
309: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
310: x_return_status OUT NOCOPY VARCHAR2,
311: x_msg_count OUT NOCOPY NUMBER,
312: x_msg_data OUT NOCOPY VARCHAR2,
313: p_vibv_tbl IN vibv_tbl_type,
313: p_vibv_tbl IN vibv_tbl_type,
314: x_vibv_tbl OUT NOCOPY vibv_tbl_type)
315: IS
316: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_VERSION_IB';
317: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
318: BEGIN
319: -- Call start_activity to create savepoint, check compatibility
320: -- and initialize message list
321: l_return_status := OKC_API.START_ACTIVITY (l_api_name
317: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
318: BEGIN
319: -- Call start_activity to create savepoint, check compatibility
320: -- and initialize message list
321: l_return_status := OKC_API.START_ACTIVITY (l_api_name
322: ,p_init_msg_list
323: ,'_PVT'
324: ,x_return_status);
325: -- Check if activity started successfully
322: ,p_init_msg_list
323: ,'_PVT'
324: ,x_return_status);
325: -- Check if activity started successfully
326: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
327: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
328: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
329: RAISE OKC_API.G_EXCEPTION_ERROR;
330: END IF;
323: ,'_PVT'
324: ,x_return_status);
325: -- Check if activity started successfully
326: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
327: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
328: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
329: RAISE OKC_API.G_EXCEPTION_ERROR;
330: END IF;
331: -- evaluate conditions, build outcomes for true conditions and
324: ,x_return_status);
325: -- Check if activity started successfully
326: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
327: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
328: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
329: RAISE OKC_API.G_EXCEPTION_ERROR;
330: END IF;
331: -- evaluate conditions, build outcomes for true conditions and
332: -- put them on outcome queue
325: -- Check if activity started successfully
326: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
327: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
328: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
329: RAISE OKC_API.G_EXCEPTION_ERROR;
330: END IF;
331: -- evaluate conditions, build outcomes for true conditions and
332: -- put them on outcome queue
333: OKL_VIB_PVT.update_row(p_api_version,
336: x_msg_count,
337: x_msg_data,
338: p_vibv_tbl,
339: x_vibv_tbl);
340: OKC_API.END_ACTIVITY (x_msg_count
341: ,x_msg_data );
342: EXCEPTION
343: WHEN OKC_API.G_EXCEPTION_ERROR THEN
344: x_return_status := OKC_API.HANDLE_EXCEPTIONS
339: x_vibv_tbl);
340: OKC_API.END_ACTIVITY (x_msg_count
341: ,x_msg_data );
342: EXCEPTION
343: WHEN OKC_API.G_EXCEPTION_ERROR THEN
344: x_return_status := OKC_API.HANDLE_EXCEPTIONS
345: (l_api_name,
346: G_PKG_NAME,
347: 'OKC_API.G_RET_STS_ERROR',
340: OKC_API.END_ACTIVITY (x_msg_count
341: ,x_msg_data );
342: EXCEPTION
343: WHEN OKC_API.G_EXCEPTION_ERROR THEN
344: x_return_status := OKC_API.HANDLE_EXCEPTIONS
345: (l_api_name,
346: G_PKG_NAME,
347: 'OKC_API.G_RET_STS_ERROR',
348: x_msg_count,
343: WHEN OKC_API.G_EXCEPTION_ERROR THEN
344: x_return_status := OKC_API.HANDLE_EXCEPTIONS
345: (l_api_name,
346: G_PKG_NAME,
347: 'OKC_API.G_RET_STS_ERROR',
348: x_msg_count,
349: x_msg_data,
350: '_PVT');
351: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
347: 'OKC_API.G_RET_STS_ERROR',
348: x_msg_count,
349: x_msg_data,
350: '_PVT');
351: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
352: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
353: (l_api_name,
354: G_PKG_NAME,
355: 'OKC_API.G_RET_STS_UNEXP_ERROR',
348: x_msg_count,
349: x_msg_data,
350: '_PVT');
351: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
352: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
353: (l_api_name,
354: G_PKG_NAME,
355: 'OKC_API.G_RET_STS_UNEXP_ERROR',
356: x_msg_count,
351: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
352: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
353: (l_api_name,
354: G_PKG_NAME,
355: 'OKC_API.G_RET_STS_UNEXP_ERROR',
356: x_msg_count,
357: x_msg_data,
358: '_PVT');
359: WHEN OTHERS THEN x_return_status :=OKC_API.HANDLE_EXCEPTIONS
355: 'OKC_API.G_RET_STS_UNEXP_ERROR',
356: x_msg_count,
357: x_msg_data,
358: '_PVT');
359: WHEN OTHERS THEN x_return_status :=OKC_API.HANDLE_EXCEPTIONS
360: (l_api_name,
361: G_PKG_NAME,
362: 'OTHERS',
363: x_msg_count,
366: END update_version_ib;
367:
368: PROCEDURE delete_version_ib(
369: p_api_version IN NUMBER,
370: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
371: x_return_status OUT NOCOPY VARCHAR2,
372: x_msg_count OUT NOCOPY NUMBER,
373: x_msg_data OUT NOCOPY VARCHAR2,
374: p_vibv_rec IN vibv_rec_type)
373: x_msg_data OUT NOCOPY VARCHAR2,
374: p_vibv_rec IN vibv_rec_type)
375: IS
376: l_api_name CONSTANT VARCHAR2(30) := 'DELETE_VERSION_IB';
377: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
378: BEGIN
379: -- Call start_activity to create savepoint, check compatibility
380: -- and initialize message list
381: l_return_status := OKC_API.START_ACTIVITY (l_api_name
377: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
378: BEGIN
379: -- Call start_activity to create savepoint, check compatibility
380: -- and initialize message list
381: l_return_status := OKC_API.START_ACTIVITY (l_api_name
382: ,p_init_msg_list
383: ,'_PVT'
384: ,x_return_status);
385: -- Check if activity started successfully
382: ,p_init_msg_list
383: ,'_PVT'
384: ,x_return_status);
385: -- Check if activity started successfully
386: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
387: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
388: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
389: RAISE OKC_API.G_EXCEPTION_ERROR;
390: END IF;
383: ,'_PVT'
384: ,x_return_status);
385: -- Check if activity started successfully
386: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
387: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
388: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
389: RAISE OKC_API.G_EXCEPTION_ERROR;
390: END IF;
391: -- evaluate conditions, build outcomes for true conditions and
384: ,x_return_status);
385: -- Check if activity started successfully
386: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
387: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
388: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
389: RAISE OKC_API.G_EXCEPTION_ERROR;
390: END IF;
391: -- evaluate conditions, build outcomes for true conditions and
392: -- put them on outcome queue
385: -- Check if activity started successfully
386: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
387: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
388: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
389: RAISE OKC_API.G_EXCEPTION_ERROR;
390: END IF;
391: -- evaluate conditions, build outcomes for true conditions and
392: -- put them on outcome queue
393: OKL_VIB_PVT.delete_row(p_api_version,
395: x_return_status,
396: x_msg_count,
397: x_msg_data,
398: p_vibv_rec);
399: OKC_API.END_ACTIVITY (x_msg_count
400: ,x_msg_data );
401: EXCEPTION
402: WHEN OKC_API.G_EXCEPTION_ERROR THEN
403: x_return_status := OKC_API.HANDLE_EXCEPTIONS
398: p_vibv_rec);
399: OKC_API.END_ACTIVITY (x_msg_count
400: ,x_msg_data );
401: EXCEPTION
402: WHEN OKC_API.G_EXCEPTION_ERROR THEN
403: x_return_status := OKC_API.HANDLE_EXCEPTIONS
404: (l_api_name,
405: G_PKG_NAME,
406: 'OKC_API.G_RET_STS_ERROR',
399: OKC_API.END_ACTIVITY (x_msg_count
400: ,x_msg_data );
401: EXCEPTION
402: WHEN OKC_API.G_EXCEPTION_ERROR THEN
403: x_return_status := OKC_API.HANDLE_EXCEPTIONS
404: (l_api_name,
405: G_PKG_NAME,
406: 'OKC_API.G_RET_STS_ERROR',
407: x_msg_count,
402: WHEN OKC_API.G_EXCEPTION_ERROR THEN
403: x_return_status := OKC_API.HANDLE_EXCEPTIONS
404: (l_api_name,
405: G_PKG_NAME,
406: 'OKC_API.G_RET_STS_ERROR',
407: x_msg_count,
408: x_msg_data,
409: '_PVT');
410: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
406: 'OKC_API.G_RET_STS_ERROR',
407: x_msg_count,
408: x_msg_data,
409: '_PVT');
410: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
411: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
412: (l_api_name,
413: G_PKG_NAME,
414: 'OKC_API.G_RET_STS_UNEXP_ERROR',
407: x_msg_count,
408: x_msg_data,
409: '_PVT');
410: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
411: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
412: (l_api_name,
413: G_PKG_NAME,
414: 'OKC_API.G_RET_STS_UNEXP_ERROR',
415: x_msg_count,
410: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
411: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
412: (l_api_name,
413: G_PKG_NAME,
414: 'OKC_API.G_RET_STS_UNEXP_ERROR',
415: x_msg_count,
416: x_msg_data,
417: '_PVT');
418: WHEN OTHERS THEN x_return_status :=OKC_API.HANDLE_EXCEPTIONS
414: 'OKC_API.G_RET_STS_UNEXP_ERROR',
415: x_msg_count,
416: x_msg_data,
417: '_PVT');
418: WHEN OTHERS THEN x_return_status :=OKC_API.HANDLE_EXCEPTIONS
419: (l_api_name,
420: G_PKG_NAME,
421: 'OTHERS',
422: x_msg_count,
425: END delete_version_ib;
426:
427: PROCEDURE delete_version_ib(
428: p_api_version IN NUMBER,
429: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
430: x_return_status OUT NOCOPY VARCHAR2,
431: x_msg_count OUT NOCOPY NUMBER,
432: x_msg_data OUT NOCOPY VARCHAR2,
433: p_vibv_tbl IN vibv_tbl_type)
432: x_msg_data OUT NOCOPY VARCHAR2,
433: p_vibv_tbl IN vibv_tbl_type)
434: IS
435: l_api_name CONSTANT VARCHAR2(30) := 'DELETE_VERSION_IB';
436: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
437: BEGIN
438: -- Call start_activity to create savepoint, check compatibility
439: -- and initialize message list
440: l_return_status := OKC_API.START_ACTIVITY (l_api_name
436: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
437: BEGIN
438: -- Call start_activity to create savepoint, check compatibility
439: -- and initialize message list
440: l_return_status := OKC_API.START_ACTIVITY (l_api_name
441: ,p_init_msg_list
442: ,'_PVT'
443: ,x_return_status);
444: -- Check if activity started successfully
441: ,p_init_msg_list
442: ,'_PVT'
443: ,x_return_status);
444: -- Check if activity started successfully
445: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
446: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
447: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
448: RAISE OKC_API.G_EXCEPTION_ERROR;
449: END IF;
442: ,'_PVT'
443: ,x_return_status);
444: -- Check if activity started successfully
445: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
446: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
447: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
448: RAISE OKC_API.G_EXCEPTION_ERROR;
449: END IF;
450: -- evaluate conditions, build outcomes for true conditions and
443: ,x_return_status);
444: -- Check if activity started successfully
445: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
446: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
447: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
448: RAISE OKC_API.G_EXCEPTION_ERROR;
449: END IF;
450: -- evaluate conditions, build outcomes for true conditions and
451: -- put them on outcome queue
444: -- Check if activity started successfully
445: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
446: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
447: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
448: RAISE OKC_API.G_EXCEPTION_ERROR;
449: END IF;
450: -- evaluate conditions, build outcomes for true conditions and
451: -- put them on outcome queue
452: OKL_VIB_PVT.delete_row(p_api_version,
454: x_return_status,
455: x_msg_count,
456: x_msg_data,
457: p_vibv_tbl);
458: OKC_API.END_ACTIVITY (x_msg_count
459: ,x_msg_data );
460: EXCEPTION
461: WHEN OKC_API.G_EXCEPTION_ERROR THEN
462: x_return_status := OKC_API.HANDLE_EXCEPTIONS
457: p_vibv_tbl);
458: OKC_API.END_ACTIVITY (x_msg_count
459: ,x_msg_data );
460: EXCEPTION
461: WHEN OKC_API.G_EXCEPTION_ERROR THEN
462: x_return_status := OKC_API.HANDLE_EXCEPTIONS
463: (l_api_name,
464: G_PKG_NAME,
465: 'OKC_API.G_RET_STS_ERROR',
458: OKC_API.END_ACTIVITY (x_msg_count
459: ,x_msg_data );
460: EXCEPTION
461: WHEN OKC_API.G_EXCEPTION_ERROR THEN
462: x_return_status := OKC_API.HANDLE_EXCEPTIONS
463: (l_api_name,
464: G_PKG_NAME,
465: 'OKC_API.G_RET_STS_ERROR',
466: x_msg_count,
461: WHEN OKC_API.G_EXCEPTION_ERROR THEN
462: x_return_status := OKC_API.HANDLE_EXCEPTIONS
463: (l_api_name,
464: G_PKG_NAME,
465: 'OKC_API.G_RET_STS_ERROR',
466: x_msg_count,
467: x_msg_data,
468: '_PVT');
469: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
465: 'OKC_API.G_RET_STS_ERROR',
466: x_msg_count,
467: x_msg_data,
468: '_PVT');
469: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
470: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
471: (l_api_name,
472: G_PKG_NAME,
473: 'OKC_API.G_RET_STS_UNEXP_ERROR',
466: x_msg_count,
467: x_msg_data,
468: '_PVT');
469: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
470: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
471: (l_api_name,
472: G_PKG_NAME,
473: 'OKC_API.G_RET_STS_UNEXP_ERROR',
474: x_msg_count,
469: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
470: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
471: (l_api_name,
472: G_PKG_NAME,
473: 'OKC_API.G_RET_STS_UNEXP_ERROR',
474: x_msg_count,
475: x_msg_data,
476: '_PVT');
477: WHEN OTHERS THEN x_return_status :=OKC_API.HANDLE_EXCEPTIONS
473: 'OKC_API.G_RET_STS_UNEXP_ERROR',
474: x_msg_count,
475: x_msg_data,
476: '_PVT');
477: WHEN OTHERS THEN x_return_status :=OKC_API.HANDLE_EXCEPTIONS
478: (l_api_name,
479: G_PKG_NAME,
480: 'OTHERS',
481: x_msg_count,
484: END delete_version_ib;
485:
486: PROCEDURE validate_version_ib(
487: p_api_version IN NUMBER,
488: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
489: x_return_status OUT NOCOPY VARCHAR2,
490: x_msg_count OUT NOCOPY NUMBER,
491: x_msg_data OUT NOCOPY VARCHAR2,
492: p_vibv_rec IN vibv_rec_type)
491: x_msg_data OUT NOCOPY VARCHAR2,
492: p_vibv_rec IN vibv_rec_type)
493: IS
494: l_api_name CONSTANT VARCHAR2(30) := 'VALIDATE_VERSION_IB';
495: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
496: BEGIN
497: -- Call start_activity to create savepoint, check compatibility
498: -- and initialize message list
499: l_return_status := OKC_API.START_ACTIVITY (l_api_name
495: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
496: BEGIN
497: -- Call start_activity to create savepoint, check compatibility
498: -- and initialize message list
499: l_return_status := OKC_API.START_ACTIVITY (l_api_name
500: ,p_init_msg_list
501: ,'_PVT'
502: ,x_return_status);
503: -- Check if activity started successfully
500: ,p_init_msg_list
501: ,'_PVT'
502: ,x_return_status);
503: -- Check if activity started successfully
504: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
505: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
506: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
507: RAISE OKC_API.G_EXCEPTION_ERROR;
508: END IF;
501: ,'_PVT'
502: ,x_return_status);
503: -- Check if activity started successfully
504: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
505: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
506: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
507: RAISE OKC_API.G_EXCEPTION_ERROR;
508: END IF;
509: -- evaluate conditions, build outcomes for true conditions and
502: ,x_return_status);
503: -- Check if activity started successfully
504: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
505: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
506: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
507: RAISE OKC_API.G_EXCEPTION_ERROR;
508: END IF;
509: -- evaluate conditions, build outcomes for true conditions and
510: -- put them on outcome queue
503: -- Check if activity started successfully
504: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
505: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
506: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
507: RAISE OKC_API.G_EXCEPTION_ERROR;
508: END IF;
509: -- evaluate conditions, build outcomes for true conditions and
510: -- put them on outcome queue
511: OKL_VIB_PVT.validate_row(p_api_version,
513: x_return_status,
514: x_msg_count,
515: x_msg_data,
516: p_vibv_rec);
517: OKC_API.END_ACTIVITY (x_msg_count
518: ,x_msg_data );
519: EXCEPTION
520: WHEN OKC_API.G_EXCEPTION_ERROR THEN
521: x_return_status := OKC_API.HANDLE_EXCEPTIONS
516: p_vibv_rec);
517: OKC_API.END_ACTIVITY (x_msg_count
518: ,x_msg_data );
519: EXCEPTION
520: WHEN OKC_API.G_EXCEPTION_ERROR THEN
521: x_return_status := OKC_API.HANDLE_EXCEPTIONS
522: (l_api_name,
523: G_PKG_NAME,
524: 'OKC_API.G_RET_STS_ERROR',
517: OKC_API.END_ACTIVITY (x_msg_count
518: ,x_msg_data );
519: EXCEPTION
520: WHEN OKC_API.G_EXCEPTION_ERROR THEN
521: x_return_status := OKC_API.HANDLE_EXCEPTIONS
522: (l_api_name,
523: G_PKG_NAME,
524: 'OKC_API.G_RET_STS_ERROR',
525: x_msg_count,
520: WHEN OKC_API.G_EXCEPTION_ERROR THEN
521: x_return_status := OKC_API.HANDLE_EXCEPTIONS
522: (l_api_name,
523: G_PKG_NAME,
524: 'OKC_API.G_RET_STS_ERROR',
525: x_msg_count,
526: x_msg_data,
527: '_PVT');
528: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
524: 'OKC_API.G_RET_STS_ERROR',
525: x_msg_count,
526: x_msg_data,
527: '_PVT');
528: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
529: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
530: (l_api_name,
531: G_PKG_NAME,
532: 'OKC_API.G_RET_STS_UNEXP_ERROR',
525: x_msg_count,
526: x_msg_data,
527: '_PVT');
528: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
529: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
530: (l_api_name,
531: G_PKG_NAME,
532: 'OKC_API.G_RET_STS_UNEXP_ERROR',
533: x_msg_count,
528: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
529: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
530: (l_api_name,
531: G_PKG_NAME,
532: 'OKC_API.G_RET_STS_UNEXP_ERROR',
533: x_msg_count,
534: x_msg_data,
535: '_PVT');
536: WHEN OTHERS THEN x_return_status :=OKC_API.HANDLE_EXCEPTIONS
532: 'OKC_API.G_RET_STS_UNEXP_ERROR',
533: x_msg_count,
534: x_msg_data,
535: '_PVT');
536: WHEN OTHERS THEN x_return_status :=OKC_API.HANDLE_EXCEPTIONS
537: (l_api_name,
538: G_PKG_NAME,
539: 'OTHERS',
540: x_msg_count,
543: END validate_version_ib;
544:
545: PROCEDURE validate_version_ib(
546: p_api_version IN NUMBER,
547: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
548: x_return_status OUT NOCOPY VARCHAR2,
549: x_msg_count OUT NOCOPY NUMBER,
550: x_msg_data OUT NOCOPY VARCHAR2,
551: p_vibv_tbl IN vibv_tbl_type)
550: x_msg_data OUT NOCOPY VARCHAR2,
551: p_vibv_tbl IN vibv_tbl_type)
552: IS
553: l_api_name CONSTANT VARCHAR2(30) := 'VALIDATE_VERSION_IB';
554: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
555: BEGIN
556: -- Call start_activity to create savepoint, check compatibility
557: -- and initialize message list
558: l_return_status := OKC_API.START_ACTIVITY (l_api_name
554: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
555: BEGIN
556: -- Call start_activity to create savepoint, check compatibility
557: -- and initialize message list
558: l_return_status := OKC_API.START_ACTIVITY (l_api_name
559: ,p_init_msg_list
560: ,'_PVT'
561: ,x_return_status);
562: -- Check if activity started successfully
559: ,p_init_msg_list
560: ,'_PVT'
561: ,x_return_status);
562: -- Check if activity started successfully
563: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
564: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
565: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
566: RAISE OKC_API.G_EXCEPTION_ERROR;
567: END IF;
560: ,'_PVT'
561: ,x_return_status);
562: -- Check if activity started successfully
563: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
564: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
565: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
566: RAISE OKC_API.G_EXCEPTION_ERROR;
567: END IF;
568: -- evaluate conditions, build outcomes for true conditions and
561: ,x_return_status);
562: -- Check if activity started successfully
563: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
564: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
565: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
566: RAISE OKC_API.G_EXCEPTION_ERROR;
567: END IF;
568: -- evaluate conditions, build outcomes for true conditions and
569: -- put them on outcome queue
562: -- Check if activity started successfully
563: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
564: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
565: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
566: RAISE OKC_API.G_EXCEPTION_ERROR;
567: END IF;
568: -- evaluate conditions, build outcomes for true conditions and
569: -- put them on outcome queue
570: OKL_VIB_PVT.validate_row(p_api_version,
572: x_return_status,
573: x_msg_count,
574: x_msg_data,
575: p_vibv_tbl);
576: OKC_API.END_ACTIVITY (x_msg_count
577: ,x_msg_data );
578: EXCEPTION
579: WHEN OKC_API.G_EXCEPTION_ERROR THEN
580: x_return_status := OKC_API.HANDLE_EXCEPTIONS
575: p_vibv_tbl);
576: OKC_API.END_ACTIVITY (x_msg_count
577: ,x_msg_data );
578: EXCEPTION
579: WHEN OKC_API.G_EXCEPTION_ERROR THEN
580: x_return_status := OKC_API.HANDLE_EXCEPTIONS
581: (l_api_name,
582: G_PKG_NAME,
583: 'OKC_API.G_RET_STS_ERROR',
576: OKC_API.END_ACTIVITY (x_msg_count
577: ,x_msg_data );
578: EXCEPTION
579: WHEN OKC_API.G_EXCEPTION_ERROR THEN
580: x_return_status := OKC_API.HANDLE_EXCEPTIONS
581: (l_api_name,
582: G_PKG_NAME,
583: 'OKC_API.G_RET_STS_ERROR',
584: x_msg_count,
579: WHEN OKC_API.G_EXCEPTION_ERROR THEN
580: x_return_status := OKC_API.HANDLE_EXCEPTIONS
581: (l_api_name,
582: G_PKG_NAME,
583: 'OKC_API.G_RET_STS_ERROR',
584: x_msg_count,
585: x_msg_data,
586: '_PVT');
587: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
583: 'OKC_API.G_RET_STS_ERROR',
584: x_msg_count,
585: x_msg_data,
586: '_PVT');
587: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
588: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
589: (l_api_name,
590: G_PKG_NAME,
591: 'OKC_API.G_RET_STS_UNEXP_ERROR',
584: x_msg_count,
585: x_msg_data,
586: '_PVT');
587: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
588: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
589: (l_api_name,
590: G_PKG_NAME,
591: 'OKC_API.G_RET_STS_UNEXP_ERROR',
592: x_msg_count,
587: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
588: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
589: (l_api_name,
590: G_PKG_NAME,
591: 'OKC_API.G_RET_STS_UNEXP_ERROR',
592: x_msg_count,
593: x_msg_data,
594: '_PVT');
595: WHEN OTHERS THEN x_return_status :=OKC_API.HANDLE_EXCEPTIONS
591: 'OKC_API.G_RET_STS_UNEXP_ERROR',
592: x_msg_count,
593: x_msg_data,
594: '_PVT');
595: WHEN OTHERS THEN x_return_status :=OKC_API.HANDLE_EXCEPTIONS
596: (l_api_name,
597: G_PKG_NAME,
598: 'OTHERS',
599: x_msg_count,