13: G_API_TYPE CONSTANT VARCHAR2(4) := '_PUB';
14:
15: PROCEDURE create_contract_line_item(
16: p_api_version IN NUMBER,
17: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
18: x_return_status OUT NOCOPY VARCHAR2,
19: x_msg_count OUT NOCOPY NUMBER,
20: x_msg_data OUT NOCOPY VARCHAR2,
21: p_clev_rec IN clev_rec_type,
30: l_cimv_rec cimv_rec_type := p_cimv_rec;
31:
32: l_api_name CONSTANT VARCHAR2(30) := 'create_contract_line_item';
33: l_api_version CONSTANT NUMBER := 1.0;
34: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
35: BEGIN
36: /*
37: -- call START_ACTIVITY to create savepoint, check compatibility
38: -- and initialize message list
35: BEGIN
36: /*
37: -- call START_ACTIVITY to create savepoint, check compatibility
38: -- and initialize message list
39: x_return_status := OKC_API.START_ACTIVITY(
40: p_api_name => l_api_name,
41: p_pkg_name => g_pkg_name,
42: p_init_msg_list => p_init_msg_list,
43: l_api_version => l_api_version,
45: p_api_type => g_api_type,
46: x_return_status => x_return_status);
47:
48: -- check if activity started successfully
49: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
50: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
51: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
52: raise OKC_API.G_EXCEPTION_ERROR;
53: End If;
46: x_return_status => x_return_status);
47:
48: -- check if activity started successfully
49: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
50: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
51: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
52: raise OKC_API.G_EXCEPTION_ERROR;
53: End If;
54: */
47:
48: -- check if activity started successfully
49: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
50: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
51: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
52: raise OKC_API.G_EXCEPTION_ERROR;
53: End If;
54: */
55: okl_contract_line_item_pvt.create_contract_line_item(
48: -- check if activity started successfully
49: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
50: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
51: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
52: raise OKC_API.G_EXCEPTION_ERROR;
53: End If;
54: */
55: okl_contract_line_item_pvt.create_contract_line_item(
56: p_api_version => p_api_version,
64: x_clev_rec => x_clev_rec,
65: x_klev_rec => x_klev_rec,
66: x_cimv_rec => x_cimv_rec);
67:
68: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
69: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
70: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
71: raise OKC_API.G_EXCEPTION_ERROR;
72: END IF;
65: x_klev_rec => x_klev_rec,
66: x_cimv_rec => x_cimv_rec);
67:
68: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
69: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
70: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
71: raise OKC_API.G_EXCEPTION_ERROR;
72: END IF;
73: /*
66: x_cimv_rec => x_cimv_rec);
67:
68: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
69: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
70: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
71: raise OKC_API.G_EXCEPTION_ERROR;
72: END IF;
73: /*
74: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
67:
68: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
69: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
70: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
71: raise OKC_API.G_EXCEPTION_ERROR;
72: END IF;
73: /*
74: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
75: */
70: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
71: raise OKC_API.G_EXCEPTION_ERROR;
72: END IF;
73: /*
74: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
75: */
76: EXCEPTION
77: when OKC_API.G_EXCEPTION_ERROR then
78: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
73: /*
74: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
75: */
76: EXCEPTION
77: when OKC_API.G_EXCEPTION_ERROR then
78: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
79: p_api_name => l_api_name,
80: p_pkg_name => g_pkg_name,
81: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
74: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
75: */
76: EXCEPTION
77: when OKC_API.G_EXCEPTION_ERROR then
78: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
79: p_api_name => l_api_name,
80: p_pkg_name => g_pkg_name,
81: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
82: x_msg_count => x_msg_count,
77: when OKC_API.G_EXCEPTION_ERROR then
78: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
79: p_api_name => l_api_name,
80: p_pkg_name => g_pkg_name,
81: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
82: x_msg_count => x_msg_count,
83: x_msg_data => x_msg_data,
84: p_api_type => g_api_type);
85:
82: x_msg_count => x_msg_count,
83: x_msg_data => x_msg_data,
84: p_api_type => g_api_type);
85:
86: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
87: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
88: p_api_name => l_api_name,
89: p_pkg_name => g_pkg_name,
90: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
83: x_msg_data => x_msg_data,
84: p_api_type => g_api_type);
85:
86: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
87: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
88: p_api_name => l_api_name,
89: p_pkg_name => g_pkg_name,
90: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
91: x_msg_count => x_msg_count,
86: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
87: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
88: p_api_name => l_api_name,
89: p_pkg_name => g_pkg_name,
90: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
91: x_msg_count => x_msg_count,
92: x_msg_data => x_msg_data,
93: p_api_type => g_api_type);
94:
92: x_msg_data => x_msg_data,
93: p_api_type => g_api_type);
94:
95: when OTHERS then
96: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
97: p_api_name => l_api_name,
98: p_pkg_name => g_pkg_name,
99: p_exc_name => 'OTHERS',
100: x_msg_count => x_msg_count,
104:
105:
106: PROCEDURE create_contract_line_item(
107: p_api_version IN NUMBER,
108: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
109: x_return_status OUT NOCOPY VARCHAR2,
110: x_msg_count OUT NOCOPY NUMBER,
111: x_msg_data OUT NOCOPY VARCHAR2,
112: p_line_item_tbl IN line_item_tbl_type,
114: ) IS
115:
116: l_api_name CONSTANT VARCHAR2(30) := 'create_contract_line_item';
117: l_api_version CONSTANT NUMBER := 1.0;
118: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
119:
120: BEGIN
121:
122: -- call START_ACTIVITY to create savepoint, check compatibility
120: BEGIN
121:
122: -- call START_ACTIVITY to create savepoint, check compatibility
123: -- and initialize message list
124: x_return_status := OKC_API.START_ACTIVITY(
125: p_api_name => l_api_name,
126: p_pkg_name => g_pkg_name,
127: p_init_msg_list => p_init_msg_list,
128: l_api_version => l_api_version,
130: p_api_type => g_api_type,
131: x_return_status => x_return_status);
132:
133: -- check if activity started successfully
134: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
135: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
136: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
137: raise OKC_API.G_EXCEPTION_ERROR;
138: End If;
131: x_return_status => x_return_status);
132:
133: -- check if activity started successfully
134: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
135: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
136: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
137: raise OKC_API.G_EXCEPTION_ERROR;
138: End If;
139:
132:
133: -- check if activity started successfully
134: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
135: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
136: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
137: raise OKC_API.G_EXCEPTION_ERROR;
138: End If;
139:
140: okl_contract_line_item_pvt.create_contract_line_item(
133: -- check if activity started successfully
134: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
135: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
136: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
137: raise OKC_API.G_EXCEPTION_ERROR;
138: End If;
139:
140: okl_contract_line_item_pvt.create_contract_line_item(
141: p_api_version => p_api_version,
145: x_msg_data => x_msg_data,
146: p_line_item_tbl => p_line_item_tbl,
147: x_line_item_tbl => x_line_item_tbl);
148:
149: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
150: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
151: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
152: raise OKC_API.G_EXCEPTION_ERROR;
153: END IF;
146: p_line_item_tbl => p_line_item_tbl,
147: x_line_item_tbl => x_line_item_tbl);
148:
149: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
150: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
151: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
152: raise OKC_API.G_EXCEPTION_ERROR;
153: END IF;
154:
147: x_line_item_tbl => x_line_item_tbl);
148:
149: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
150: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
151: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
152: raise OKC_API.G_EXCEPTION_ERROR;
153: END IF;
154:
155: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
148:
149: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
150: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
151: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
152: raise OKC_API.G_EXCEPTION_ERROR;
153: END IF;
154:
155: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
156:
151: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
152: raise OKC_API.G_EXCEPTION_ERROR;
153: END IF;
154:
155: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
156:
157: EXCEPTION
158: when OKC_API.G_EXCEPTION_ERROR then
159: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
154:
155: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
156:
157: EXCEPTION
158: when OKC_API.G_EXCEPTION_ERROR then
159: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
160: p_api_name => l_api_name,
161: p_pkg_name => g_pkg_name,
162: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
155: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
156:
157: EXCEPTION
158: when OKC_API.G_EXCEPTION_ERROR then
159: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
160: p_api_name => l_api_name,
161: p_pkg_name => g_pkg_name,
162: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
163: x_msg_count => x_msg_count,
158: when OKC_API.G_EXCEPTION_ERROR then
159: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
160: p_api_name => l_api_name,
161: p_pkg_name => g_pkg_name,
162: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
163: x_msg_count => x_msg_count,
164: x_msg_data => x_msg_data,
165: p_api_type => g_api_type);
166:
163: x_msg_count => x_msg_count,
164: x_msg_data => x_msg_data,
165: p_api_type => g_api_type);
166:
167: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
168: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
169: p_api_name => l_api_name,
170: p_pkg_name => g_pkg_name,
171: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
164: x_msg_data => x_msg_data,
165: p_api_type => g_api_type);
166:
167: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
168: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
169: p_api_name => l_api_name,
170: p_pkg_name => g_pkg_name,
171: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
172: x_msg_count => x_msg_count,
167: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
168: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
169: p_api_name => l_api_name,
170: p_pkg_name => g_pkg_name,
171: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
172: x_msg_count => x_msg_count,
173: x_msg_data => x_msg_data,
174: p_api_type => g_api_type);
175:
173: x_msg_data => x_msg_data,
174: p_api_type => g_api_type);
175:
176: when OTHERS then
177: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
178: p_api_name => l_api_name,
179: p_pkg_name => g_pkg_name,
180: p_exc_name => 'OTHERS',
181: x_msg_count => x_msg_count,
184: END create_contract_line_item;
185:
186: PROCEDURE update_contract_line_item(
187: p_api_version IN NUMBER,
188: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
189: x_return_status OUT NOCOPY VARCHAR2,
190: x_msg_count OUT NOCOPY NUMBER,
191: x_msg_data OUT NOCOPY VARCHAR2,
192: p_line_item_tbl IN line_item_tbl_type,
194: ) IS
195:
196: l_api_name CONSTANT VARCHAR2(30) := 'update_contract_line_item';
197: l_api_version CONSTANT NUMBER := 1.0;
198: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
199:
200:
201: BEGIN
202:
201: BEGIN
202:
203: -- call START_ACTIVITY to create savepoint, check compatibility
204: -- and initialize message list
205: x_return_status := OKC_API.START_ACTIVITY(
206: p_api_name => l_api_name,
207: p_pkg_name => g_pkg_name,
208: p_init_msg_list => p_init_msg_list,
209: l_api_version => l_api_version,
211: p_api_type => g_api_type,
212: x_return_status => x_return_status);
213:
214: -- check if activity started successfully
215: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
216: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
217: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
218: raise OKC_API.G_EXCEPTION_ERROR;
219: End If;
212: x_return_status => x_return_status);
213:
214: -- check if activity started successfully
215: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
216: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
217: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
218: raise OKC_API.G_EXCEPTION_ERROR;
219: End If;
220:
213:
214: -- check if activity started successfully
215: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
216: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
217: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
218: raise OKC_API.G_EXCEPTION_ERROR;
219: End If;
220:
221: okl_contract_line_item_pvt.update_contract_line_item(
214: -- check if activity started successfully
215: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
216: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
217: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
218: raise OKC_API.G_EXCEPTION_ERROR;
219: End If;
220:
221: okl_contract_line_item_pvt.update_contract_line_item(
222: p_api_version => p_api_version,
226: x_msg_data => x_msg_data,
227: p_line_item_tbl => p_line_item_tbl,
228: x_line_item_tbl => x_line_item_tbl);
229:
230: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
231: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
232: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
233: raise OKC_API.G_EXCEPTION_ERROR;
234: END IF;
227: p_line_item_tbl => p_line_item_tbl,
228: x_line_item_tbl => x_line_item_tbl);
229:
230: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
231: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
232: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
233: raise OKC_API.G_EXCEPTION_ERROR;
234: END IF;
235:
228: x_line_item_tbl => x_line_item_tbl);
229:
230: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
231: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
232: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
233: raise OKC_API.G_EXCEPTION_ERROR;
234: END IF;
235:
236: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
229:
230: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
231: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
232: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
233: raise OKC_API.G_EXCEPTION_ERROR;
234: END IF;
235:
236: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
237:
232: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
233: raise OKC_API.G_EXCEPTION_ERROR;
234: END IF;
235:
236: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
237:
238: EXCEPTION
239: when OKC_API.G_EXCEPTION_ERROR then
240: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
235:
236: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
237:
238: EXCEPTION
239: when OKC_API.G_EXCEPTION_ERROR then
240: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
241: p_api_name => l_api_name,
242: p_pkg_name => g_pkg_name,
243: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
236: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
237:
238: EXCEPTION
239: when OKC_API.G_EXCEPTION_ERROR then
240: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
241: p_api_name => l_api_name,
242: p_pkg_name => g_pkg_name,
243: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
244: x_msg_count => x_msg_count,
239: when OKC_API.G_EXCEPTION_ERROR then
240: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
241: p_api_name => l_api_name,
242: p_pkg_name => g_pkg_name,
243: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
244: x_msg_count => x_msg_count,
245: x_msg_data => x_msg_data,
246: p_api_type => g_api_type);
247:
244: x_msg_count => x_msg_count,
245: x_msg_data => x_msg_data,
246: p_api_type => g_api_type);
247:
248: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
249: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
250: p_api_name => l_api_name,
251: p_pkg_name => g_pkg_name,
252: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
245: x_msg_data => x_msg_data,
246: p_api_type => g_api_type);
247:
248: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
249: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
250: p_api_name => l_api_name,
251: p_pkg_name => g_pkg_name,
252: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
253: x_msg_count => x_msg_count,
248: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
249: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
250: p_api_name => l_api_name,
251: p_pkg_name => g_pkg_name,
252: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
253: x_msg_count => x_msg_count,
254: x_msg_data => x_msg_data,
255: p_api_type => g_api_type);
256:
254: x_msg_data => x_msg_data,
255: p_api_type => g_api_type);
256:
257: when OTHERS then
258: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
259: p_api_name => l_api_name,
260: p_pkg_name => g_pkg_name,
261: p_exc_name => 'OTHERS',
262: x_msg_count => x_msg_count,
266:
267:
268: PROCEDURE delete_contract_line_item(
269: p_api_version IN NUMBER,
270: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
271: x_return_status OUT NOCOPY VARCHAR2,
272: x_msg_count OUT NOCOPY NUMBER,
273: x_msg_data OUT NOCOPY VARCHAR2,
274: p_line_item_tbl IN line_item_tbl_type
275: ) IS
276:
277: l_api_name CONSTANT VARCHAR2(30) := 'delete_contract_line_item';
278: l_api_version CONSTANT NUMBER := 1.0;
279: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
280: BEGIN
281:
282: -- call START_ACTIVITY to create savepoint, check compatibility
283: -- and initialize message list
280: BEGIN
281:
282: -- call START_ACTIVITY to create savepoint, check compatibility
283: -- and initialize message list
284: x_return_status := OKC_API.START_ACTIVITY(
285: p_api_name => l_api_name,
286: p_pkg_name => g_pkg_name,
287: p_init_msg_list => p_init_msg_list,
288: l_api_version => l_api_version,
290: p_api_type => g_api_type,
291: x_return_status => x_return_status);
292:
293: -- check if activity started successfully
294: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
295: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
296: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
297: raise OKC_API.G_EXCEPTION_ERROR;
298: End If;
291: x_return_status => x_return_status);
292:
293: -- check if activity started successfully
294: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
295: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
296: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
297: raise OKC_API.G_EXCEPTION_ERROR;
298: End If;
299:
292:
293: -- check if activity started successfully
294: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
295: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
296: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
297: raise OKC_API.G_EXCEPTION_ERROR;
298: End If;
299:
300: --
293: -- check if activity started successfully
294: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
295: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
296: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
297: raise OKC_API.G_EXCEPTION_ERROR;
298: End If;
299:
300: --
301: -- call procedure in complex API
308: x_msg_data => x_msg_data,
309: p_line_item_tbl => p_line_item_tbl);
310:
311: -- check return status
312: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
313: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
314: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
315: raise OKC_API.G_EXCEPTION_ERROR;
316: End If;
309: p_line_item_tbl => p_line_item_tbl);
310:
311: -- check return status
312: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
313: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
314: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
315: raise OKC_API.G_EXCEPTION_ERROR;
316: End If;
317:
310:
311: -- check return status
312: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
313: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
314: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
315: raise OKC_API.G_EXCEPTION_ERROR;
316: End If;
317:
318: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
311: -- check return status
312: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
313: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
314: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
315: raise OKC_API.G_EXCEPTION_ERROR;
316: End If;
317:
318: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
319:
314: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
315: raise OKC_API.G_EXCEPTION_ERROR;
316: End If;
317:
318: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
319:
320: EXCEPTION
321: when OKC_API.G_EXCEPTION_ERROR then
322: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
317:
318: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
319:
320: EXCEPTION
321: when OKC_API.G_EXCEPTION_ERROR then
322: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
323: p_api_name => l_api_name,
324: p_pkg_name => g_pkg_name,
325: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
318: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
319:
320: EXCEPTION
321: when OKC_API.G_EXCEPTION_ERROR then
322: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
323: p_api_name => l_api_name,
324: p_pkg_name => g_pkg_name,
325: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
326: x_msg_count => x_msg_count,
321: when OKC_API.G_EXCEPTION_ERROR then
322: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
323: p_api_name => l_api_name,
324: p_pkg_name => g_pkg_name,
325: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
326: x_msg_count => x_msg_count,
327: x_msg_data => x_msg_data,
328: p_api_type => g_api_type);
329:
326: x_msg_count => x_msg_count,
327: x_msg_data => x_msg_data,
328: p_api_type => g_api_type);
329:
330: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
331: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
332: p_api_name => l_api_name,
333: p_pkg_name => g_pkg_name,
334: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
327: x_msg_data => x_msg_data,
328: p_api_type => g_api_type);
329:
330: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
331: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
332: p_api_name => l_api_name,
333: p_pkg_name => g_pkg_name,
334: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
335: x_msg_count => x_msg_count,
330: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
331: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
332: p_api_name => l_api_name,
333: p_pkg_name => g_pkg_name,
334: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
335: x_msg_count => x_msg_count,
336: x_msg_data => x_msg_data,
337: p_api_type => g_api_type);
338:
336: x_msg_data => x_msg_data,
337: p_api_type => g_api_type);
338:
339: when OTHERS then
340: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
341: p_api_name => l_api_name,
342: p_pkg_name => g_pkg_name,
343: p_exc_name => 'OTHERS',
344: x_msg_count => x_msg_count,
356: -- Version : 1.0
357: -- End of comments
358: PROCEDURE create_contract_line_item(
359: p_api_version IN NUMBER,
360: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
361: x_return_status OUT NOCOPY VARCHAR2,
362: x_msg_count OUT NOCOPY NUMBER,
363: x_msg_data OUT NOCOPY VARCHAR2,
364: p_clev_tbl IN clev_tbl_type,
369: x_cimv_tbl OUT NOCOPY cimv_tbl_type) IS
370:
371: l_api_name CONSTANT VARCHAR2(30) := 'create_contract_line_item';
372: l_api_version CONSTANT NUMBER := 1.0;
373: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
374: i NUMBER;
375:
376: l_klev_tbl klev_tbl_type := p_klev_tbl;
377: l_cimv_tbl cimv_tbl_type := p_cimv_tbl;
378: BEGIN
379: /*
380: -- call START_ACTIVITY to create savepoint, check compatibility
381: -- and initialize message list
382: x_return_status := OKC_API.START_ACTIVITY(
383: p_api_name => l_api_name,
384: p_pkg_name => g_pkg_name,
385: p_init_msg_list => p_init_msg_list,
386: l_api_version => l_api_version,
388: p_api_type => g_api_type,
389: x_return_status => x_return_status);
390:
391: -- check if activity started successfully
392: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
393: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
394: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
395: raise OKC_API.G_EXCEPTION_ERROR;
396: End If;
389: x_return_status => x_return_status);
390:
391: -- check if activity started successfully
392: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
393: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
394: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
395: raise OKC_API.G_EXCEPTION_ERROR;
396: End If;
397:
390:
391: -- check if activity started successfully
392: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
393: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
394: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
395: raise OKC_API.G_EXCEPTION_ERROR;
396: End If;
397:
398: */
391: -- check if activity started successfully
392: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
393: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
394: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
395: raise OKC_API.G_EXCEPTION_ERROR;
396: End If;
397:
398: */
399: If (p_clev_tbl.COUNT > 0) Then
412: x_clev_rec => x_clev_tbl(i),
413: x_klev_rec => x_klev_tbl(i),
414: x_cimv_rec => x_cimv_tbl(i));
415:
416: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
417: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
418: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
419: raise OKC_API.G_EXCEPTION_ERROR;
420: End If;
413: x_klev_rec => x_klev_tbl(i),
414: x_cimv_rec => x_cimv_tbl(i));
415:
416: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
417: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
418: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
419: raise OKC_API.G_EXCEPTION_ERROR;
420: End If;
421:
414: x_cimv_rec => x_cimv_tbl(i));
415:
416: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
417: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
418: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
419: raise OKC_API.G_EXCEPTION_ERROR;
420: End If;
421:
422: EXIT WHEN (i = p_clev_tbl.LAST);
415:
416: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
417: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
418: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
419: raise OKC_API.G_EXCEPTION_ERROR;
420: End If;
421:
422: EXIT WHEN (i = p_clev_tbl.LAST);
423: i := p_clev_tbl.NEXT(i);
425:
426: End If;
427:
428: /*
429: OKC_API.END_ACTIVITY( x_msg_count => x_msg_count,
430: x_msg_data => x_msg_data);
431: */
432: EXCEPTION
433: when OKC_API.G_EXCEPTION_ERROR then
429: OKC_API.END_ACTIVITY( x_msg_count => x_msg_count,
430: x_msg_data => x_msg_data);
431: */
432: EXCEPTION
433: when OKC_API.G_EXCEPTION_ERROR then
434: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
435: p_api_name => l_api_name,
436: p_pkg_name => g_pkg_name,
437: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
430: x_msg_data => x_msg_data);
431: */
432: EXCEPTION
433: when OKC_API.G_EXCEPTION_ERROR then
434: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
435: p_api_name => l_api_name,
436: p_pkg_name => g_pkg_name,
437: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
438: x_msg_count => x_msg_count,
433: when OKC_API.G_EXCEPTION_ERROR then
434: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
435: p_api_name => l_api_name,
436: p_pkg_name => g_pkg_name,
437: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
438: x_msg_count => x_msg_count,
439: x_msg_data => x_msg_data,
440: p_api_type => g_api_type);
441:
438: x_msg_count => x_msg_count,
439: x_msg_data => x_msg_data,
440: p_api_type => g_api_type);
441:
442: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
443: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
444: p_api_name => l_api_name,
445: p_pkg_name => g_pkg_name,
446: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
439: x_msg_data => x_msg_data,
440: p_api_type => g_api_type);
441:
442: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
443: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
444: p_api_name => l_api_name,
445: p_pkg_name => g_pkg_name,
446: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
447: x_msg_count => x_msg_count,
442: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
443: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
444: p_api_name => l_api_name,
445: p_pkg_name => g_pkg_name,
446: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
447: x_msg_count => x_msg_count,
448: x_msg_data => x_msg_data,
449: p_api_type => g_api_type);
450:
448: x_msg_data => x_msg_data,
449: p_api_type => g_api_type);
450:
451: when OTHERS then
452: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
453: p_api_name => l_api_name,
454: p_pkg_name => g_pkg_name,
455: p_exc_name => 'OTHERS',
456: x_msg_count => x_msg_count,
469: -- Version : 1.0
470: -- End of comments
471: PROCEDURE update_contract_line_item(
472: p_api_version IN NUMBER,
473: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
474: x_return_status OUT NOCOPY VARCHAR2,
475: x_msg_count OUT NOCOPY NUMBER,
476: x_msg_data OUT NOCOPY VARCHAR2,
477: p_clev_rec IN clev_rec_type,
486: l_cimv_rec cimv_rec_type := p_cimv_rec;
487:
488: l_api_name CONSTANT VARCHAR2(30) := 'update_contract_line_item';
489: l_api_version CONSTANT NUMBER := 1.0;
490: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
491:
492: BEGIN
493: /*
494: -- call START_ACTIVITY to create savepoint, check compatibility
492: BEGIN
493: /*
494: -- call START_ACTIVITY to create savepoint, check compatibility
495: -- and initialize message list
496: x_return_status := OKC_API.START_ACTIVITY(
497: p_api_name => l_api_name,
498: p_pkg_name => g_pkg_name,
499: p_init_msg_list => p_init_msg_list,
500: l_api_version => l_api_version,
502: p_api_type => g_api_type,
503: x_return_status => x_return_status);
504:
505: -- check if activity started successfully
506: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
507: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
508: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
509: raise OKC_API.G_EXCEPTION_ERROR;
510: End If;
503: x_return_status => x_return_status);
504:
505: -- check if activity started successfully
506: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
507: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
508: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
509: raise OKC_API.G_EXCEPTION_ERROR;
510: End If;
511: */
504:
505: -- check if activity started successfully
506: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
507: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
508: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
509: raise OKC_API.G_EXCEPTION_ERROR;
510: End If;
511: */
512: okl_contract_line_item_pvt.update_contract_line_item(
505: -- check if activity started successfully
506: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
507: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
508: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
509: raise OKC_API.G_EXCEPTION_ERROR;
510: End If;
511: */
512: okl_contract_line_item_pvt.update_contract_line_item(
513: p_api_version => p_api_version,
522: x_klev_rec => x_klev_rec,
523: x_cimv_rec => x_cimv_rec
524: );
525:
526: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
527: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
528: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
529: raise OKC_API.G_EXCEPTION_ERROR;
530: END IF;
523: x_cimv_rec => x_cimv_rec
524: );
525:
526: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
527: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
528: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
529: raise OKC_API.G_EXCEPTION_ERROR;
530: END IF;
531:
524: );
525:
526: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
527: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
528: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
529: raise OKC_API.G_EXCEPTION_ERROR;
530: END IF;
531:
532: /*
525:
526: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
527: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
528: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
529: raise OKC_API.G_EXCEPTION_ERROR;
530: END IF;
531:
532: /*
533: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
529: raise OKC_API.G_EXCEPTION_ERROR;
530: END IF;
531:
532: /*
533: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
534: */
535:
536: EXCEPTION
537: when OKC_API.G_EXCEPTION_ERROR then
533: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
534: */
535:
536: EXCEPTION
537: when OKC_API.G_EXCEPTION_ERROR then
538: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
539: p_api_name => l_api_name,
540: p_pkg_name => g_pkg_name,
541: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
534: */
535:
536: EXCEPTION
537: when OKC_API.G_EXCEPTION_ERROR then
538: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
539: p_api_name => l_api_name,
540: p_pkg_name => g_pkg_name,
541: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
542: x_msg_count => x_msg_count,
537: when OKC_API.G_EXCEPTION_ERROR then
538: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
539: p_api_name => l_api_name,
540: p_pkg_name => g_pkg_name,
541: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
542: x_msg_count => x_msg_count,
543: x_msg_data => x_msg_data,
544: p_api_type => g_api_type);
545:
542: x_msg_count => x_msg_count,
543: x_msg_data => x_msg_data,
544: p_api_type => g_api_type);
545:
546: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
547: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
548: p_api_name => l_api_name,
549: p_pkg_name => g_pkg_name,
550: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
543: x_msg_data => x_msg_data,
544: p_api_type => g_api_type);
545:
546: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
547: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
548: p_api_name => l_api_name,
549: p_pkg_name => g_pkg_name,
550: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
551: x_msg_count => x_msg_count,
546: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
547: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
548: p_api_name => l_api_name,
549: p_pkg_name => g_pkg_name,
550: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
551: x_msg_count => x_msg_count,
552: x_msg_data => x_msg_data,
553: p_api_type => g_api_type);
554:
552: x_msg_data => x_msg_data,
553: p_api_type => g_api_type);
554:
555: when OTHERS then
556: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
557: p_api_name => l_api_name,
558: p_pkg_name => g_pkg_name,
559: p_exc_name => 'OTHERS',
560: x_msg_count => x_msg_count,
572: -- Version : 1.0
573: -- End of comments
574: PROCEDURE update_contract_line_item(
575: p_api_version IN NUMBER,
576: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
577: x_return_status OUT NOCOPY VARCHAR2,
578: x_msg_count OUT NOCOPY NUMBER,
579: x_msg_data OUT NOCOPY VARCHAR2,
580: p_clev_tbl IN clev_tbl_type,
585: x_cimv_tbl OUT NOCOPY cimv_tbl_type) IS
586:
587: l_api_name CONSTANT VARCHAR2(30) := 'update_contract_line_item';
588: l_api_version CONSTANT NUMBER := 1.0;
589: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
590: l_overall_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
591: i NUMBER;
592: l_klev_tbl klev_tbl_type := p_klev_tbl;
593: l_cimv_tbl cimv_tbl_type := p_cimv_tbl;
586:
587: l_api_name CONSTANT VARCHAR2(30) := 'update_contract_line_item';
588: l_api_version CONSTANT NUMBER := 1.0;
589: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
590: l_overall_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
591: i NUMBER;
592: l_klev_tbl klev_tbl_type := p_klev_tbl;
593: l_cimv_tbl cimv_tbl_type := p_cimv_tbl;
594: BEGIN
594: BEGIN
595: /*
596: -- call START_ACTIVITY to create savepoint, check compatibility
597: -- and initialize message list
598: x_return_status := OKC_API.START_ACTIVITY(
599: p_api_name => l_api_name,
600: p_pkg_name => g_pkg_name,
601: p_init_msg_list => p_init_msg_list,
602: l_api_version => l_api_version,
604: p_api_type => g_api_type,
605: x_return_status => x_return_status);
606:
607: -- check if activity started successfully
608: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
609: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
610: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
611: raise OKC_API.G_EXCEPTION_ERROR;
612: End If;
605: x_return_status => x_return_status);
606:
607: -- check if activity started successfully
608: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
609: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
610: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
611: raise OKC_API.G_EXCEPTION_ERROR;
612: End If;
613:
606:
607: -- check if activity started successfully
608: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
609: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
610: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
611: raise OKC_API.G_EXCEPTION_ERROR;
612: End If;
613:
614: */
607: -- check if activity started successfully
608: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
609: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
610: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
611: raise OKC_API.G_EXCEPTION_ERROR;
612: End If;
613:
614: */
615: If (p_clev_tbl.COUNT > 0) Then
628: x_clev_rec => x_clev_tbl(i),
629: x_klev_rec => x_klev_tbl(i),
630: x_cimv_rec => x_cimv_tbl(i));
631:
632: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
633: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
634: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
635: raise OKC_API.G_EXCEPTION_ERROR;
636: End If;
629: x_klev_rec => x_klev_tbl(i),
630: x_cimv_rec => x_cimv_tbl(i));
631:
632: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
633: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
634: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
635: raise OKC_API.G_EXCEPTION_ERROR;
636: End If;
637:
630: x_cimv_rec => x_cimv_tbl(i));
631:
632: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
633: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
634: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
635: raise OKC_API.G_EXCEPTION_ERROR;
636: End If;
637:
638: EXIT WHEN (i = p_clev_tbl.LAST);
631:
632: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
633: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
634: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
635: raise OKC_API.G_EXCEPTION_ERROR;
636: End If;
637:
638: EXIT WHEN (i = p_clev_tbl.LAST);
639: i := p_clev_tbl.NEXT(i);
640: END LOOP;
641:
642: End If;
643:
644: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
645: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
646: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
647: raise OKC_API.G_EXCEPTION_ERROR;
648: End If;
641:
642: End If;
643:
644: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
645: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
646: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
647: raise OKC_API.G_EXCEPTION_ERROR;
648: End If;
649:
642: End If;
643:
644: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
645: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
646: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
647: raise OKC_API.G_EXCEPTION_ERROR;
648: End If;
649:
650: /*
643:
644: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
645: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
646: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
647: raise OKC_API.G_EXCEPTION_ERROR;
648: End If;
649:
650: /*
651: OKC_API.END_ACTIVITY( x_msg_count => x_msg_count,
647: raise OKC_API.G_EXCEPTION_ERROR;
648: End If;
649:
650: /*
651: OKC_API.END_ACTIVITY( x_msg_count => x_msg_count,
652: x_msg_data => x_msg_data);
653: */
654: EXCEPTION
655: when OKC_API.G_EXCEPTION_ERROR then
651: OKC_API.END_ACTIVITY( x_msg_count => x_msg_count,
652: x_msg_data => x_msg_data);
653: */
654: EXCEPTION
655: when OKC_API.G_EXCEPTION_ERROR then
656: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
657: p_api_name => l_api_name,
658: p_pkg_name => g_pkg_name,
659: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
652: x_msg_data => x_msg_data);
653: */
654: EXCEPTION
655: when OKC_API.G_EXCEPTION_ERROR then
656: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
657: p_api_name => l_api_name,
658: p_pkg_name => g_pkg_name,
659: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
660: x_msg_count => x_msg_count,
655: when OKC_API.G_EXCEPTION_ERROR then
656: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
657: p_api_name => l_api_name,
658: p_pkg_name => g_pkg_name,
659: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
660: x_msg_count => x_msg_count,
661: x_msg_data => x_msg_data,
662: p_api_type => g_api_type);
663:
660: x_msg_count => x_msg_count,
661: x_msg_data => x_msg_data,
662: p_api_type => g_api_type);
663:
664: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
665: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
666: p_api_name => l_api_name,
667: p_pkg_name => g_pkg_name,
668: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
661: x_msg_data => x_msg_data,
662: p_api_type => g_api_type);
663:
664: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
665: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
666: p_api_name => l_api_name,
667: p_pkg_name => g_pkg_name,
668: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
669: x_msg_count => x_msg_count,
664: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
665: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
666: p_api_name => l_api_name,
667: p_pkg_name => g_pkg_name,
668: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
669: x_msg_count => x_msg_count,
670: x_msg_data => x_msg_data,
671: p_api_type => g_api_type);
672:
670: x_msg_data => x_msg_data,
671: p_api_type => g_api_type);
672:
673: when OTHERS then
674: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
675: p_api_name => l_api_name,
676: p_pkg_name => g_pkg_name,
677: p_exc_name => 'OTHERS',
678: x_msg_count => x_msg_count,
683:
684:
685: PROCEDURE delete_contract_line_item(
686: p_api_version IN NUMBER,
687: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
688: x_return_status OUT NOCOPY VARCHAR2,
689: x_msg_count OUT NOCOPY NUMBER,
690: x_msg_data OUT NOCOPY VARCHAR2,
691: p_clev_rec IN clev_rec_type,
697: l_cimv_rec cimv_rec_type;
698:
699: l_api_name CONSTANT VARCHAR2(30) := 'delete_contract_line_item';
700: l_api_version CONSTANT NUMBER := 1.0;
701: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
702: BEGIN
703: /*
704: -- call START_ACTIVITY to create savepoint, check compatibility
705: -- and initialize message list
702: BEGIN
703: /*
704: -- call START_ACTIVITY to create savepoint, check compatibility
705: -- and initialize message list
706: x_return_status := OKC_API.START_ACTIVITY(
707: p_api_name => l_api_name,
708: p_pkg_name => g_pkg_name,
709: p_init_msg_list => p_init_msg_list,
710: l_api_version => l_api_version,
712: p_api_type => g_api_type,
713: x_return_status => x_return_status);
714:
715: -- check if activity started successfully
716: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
717: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
718: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
719: raise OKC_API.G_EXCEPTION_ERROR;
720: End If;
713: x_return_status => x_return_status);
714:
715: -- check if activity started successfully
716: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
717: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
718: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
719: raise OKC_API.G_EXCEPTION_ERROR;
720: End If;
721: */
714:
715: -- check if activity started successfully
716: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
717: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
718: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
719: raise OKC_API.G_EXCEPTION_ERROR;
720: End If;
721: */
722: okl_contract_line_item_pvt.delete_contract_line_item(
715: -- check if activity started successfully
716: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
717: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
718: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
719: raise OKC_API.G_EXCEPTION_ERROR;
720: End If;
721: */
722: okl_contract_line_item_pvt.delete_contract_line_item(
723: p_api_version => p_api_version,
729: p_klev_rec => l_klev_rec,
730: p_cimv_rec => l_cimv_rec
731: );
732:
733: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
734: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
735: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
736: raise OKC_API.G_EXCEPTION_ERROR;
737: END IF;
730: p_cimv_rec => l_cimv_rec
731: );
732:
733: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
734: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
735: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
736: raise OKC_API.G_EXCEPTION_ERROR;
737: END IF;
738: /*
731: );
732:
733: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
734: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
735: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
736: raise OKC_API.G_EXCEPTION_ERROR;
737: END IF;
738: /*
739: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
732:
733: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
734: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
735: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
736: raise OKC_API.G_EXCEPTION_ERROR;
737: END IF;
738: /*
739: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
740: */
735: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
736: raise OKC_API.G_EXCEPTION_ERROR;
737: END IF;
738: /*
739: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
740: */
741:
742: EXCEPTION
743: when OKC_API.G_EXCEPTION_ERROR then
739: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
740: */
741:
742: EXCEPTION
743: when OKC_API.G_EXCEPTION_ERROR then
744: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
745: p_api_name => l_api_name,
746: p_pkg_name => g_pkg_name,
747: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
740: */
741:
742: EXCEPTION
743: when OKC_API.G_EXCEPTION_ERROR then
744: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
745: p_api_name => l_api_name,
746: p_pkg_name => g_pkg_name,
747: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
748: x_msg_count => x_msg_count,
743: when OKC_API.G_EXCEPTION_ERROR then
744: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
745: p_api_name => l_api_name,
746: p_pkg_name => g_pkg_name,
747: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
748: x_msg_count => x_msg_count,
749: x_msg_data => x_msg_data,
750: p_api_type => g_api_type);
751:
748: x_msg_count => x_msg_count,
749: x_msg_data => x_msg_data,
750: p_api_type => g_api_type);
751:
752: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
753: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
754: p_api_name => l_api_name,
755: p_pkg_name => g_pkg_name,
756: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
749: x_msg_data => x_msg_data,
750: p_api_type => g_api_type);
751:
752: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
753: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
754: p_api_name => l_api_name,
755: p_pkg_name => g_pkg_name,
756: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
757: x_msg_count => x_msg_count,
752: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
753: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
754: p_api_name => l_api_name,
755: p_pkg_name => g_pkg_name,
756: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
757: x_msg_count => x_msg_count,
758: x_msg_data => x_msg_data,
759: p_api_type => g_api_type);
760:
758: x_msg_data => x_msg_data,
759: p_api_type => g_api_type);
760:
761: when OTHERS then
762: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
763: p_api_name => l_api_name,
764: p_pkg_name => g_pkg_name,
765: p_exc_name => 'OTHERS',
766: x_msg_count => x_msg_count,
777: -- Version : 1.0
778: -- End of comments
779: PROCEDURE delete_contract_line_item(
780: p_api_version IN NUMBER,
781: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
782: x_return_status OUT NOCOPY VARCHAR2,
783: x_msg_count OUT NOCOPY NUMBER,
784: x_msg_data OUT NOCOPY VARCHAR2,
785: p_clev_tbl IN clev_tbl_type,
787: p_cimv_tbl IN cimv_tbl_type) IS
788:
789: l_api_name CONSTANT VARCHAR2(30) := 'delete_contract_line_item';
790: l_api_version CONSTANT NUMBER := 1.0;
791: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
792: l_overall_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
793: i NUMBER;
794: l_klev_tbl klev_tbl_type := p_klev_tbl;
795: l_cimv_tbl cimv_tbl_type := p_cimv_tbl;
788:
789: l_api_name CONSTANT VARCHAR2(30) := 'delete_contract_line_item';
790: l_api_version CONSTANT NUMBER := 1.0;
791: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
792: l_overall_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
793: i NUMBER;
794: l_klev_tbl klev_tbl_type := p_klev_tbl;
795: l_cimv_tbl cimv_tbl_type := p_cimv_tbl;
796:
797: BEGIN
798: /*
799: -- call START_ACTIVITY to create savepoint, check compatibility
800: -- and initialize message list
801: x_return_status := OKC_API.START_ACTIVITY(
802: p_api_name => l_api_name,
803: p_pkg_name => g_pkg_name,
804: p_init_msg_list => p_init_msg_list,
805: l_api_version => l_api_version,
807: p_api_type => g_api_type,
808: x_return_status => x_return_status);
809:
810: -- check if activity started successfully
811: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
812: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
813: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
814: raise OKC_API.G_EXCEPTION_ERROR;
815: End If;
808: x_return_status => x_return_status);
809:
810: -- check if activity started successfully
811: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
812: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
813: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
814: raise OKC_API.G_EXCEPTION_ERROR;
815: End If;
816: */
809:
810: -- check if activity started successfully
811: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
812: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
813: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
814: raise OKC_API.G_EXCEPTION_ERROR;
815: End If;
816: */
817:
810: -- check if activity started successfully
811: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
812: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
813: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
814: raise OKC_API.G_EXCEPTION_ERROR;
815: End If;
816: */
817:
818: If (p_clev_tbl.COUNT > 0) Then
828: p_clev_rec => p_clev_tbl(i),
829: p_klev_rec => l_klev_tbl(i),
830: p_cimv_rec => l_cimv_tbl(i));
831:
832: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
833: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
834: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
835: raise OKC_API.G_EXCEPTION_ERROR;
836: End If;
829: p_klev_rec => l_klev_tbl(i),
830: p_cimv_rec => l_cimv_tbl(i));
831:
832: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
833: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
834: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
835: raise OKC_API.G_EXCEPTION_ERROR;
836: End If;
837:
830: p_cimv_rec => l_cimv_tbl(i));
831:
832: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
833: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
834: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
835: raise OKC_API.G_EXCEPTION_ERROR;
836: End If;
837:
838: EXIT WHEN (i = p_clev_tbl.LAST);
831:
832: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
833: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
834: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
835: raise OKC_API.G_EXCEPTION_ERROR;
836: End If;
837:
838: EXIT WHEN (i = p_clev_tbl.LAST);
839: i := p_clev_tbl.NEXT(i);
840: END LOOP;
841:
842: End If;
843:
844: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
845: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
846: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
847: raise OKC_API.G_EXCEPTION_ERROR;
848: End If;
841:
842: End If;
843:
844: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
845: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
846: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
847: raise OKC_API.G_EXCEPTION_ERROR;
848: End If;
849:
842: End If;
843:
844: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
845: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
846: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
847: raise OKC_API.G_EXCEPTION_ERROR;
848: End If;
849:
850: /*
843:
844: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
845: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
846: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
847: raise OKC_API.G_EXCEPTION_ERROR;
848: End If;
849:
850: /*
851: OKC_API.END_ACTIVITY( x_msg_count => x_msg_count,
847: raise OKC_API.G_EXCEPTION_ERROR;
848: End If;
849:
850: /*
851: OKC_API.END_ACTIVITY( x_msg_count => x_msg_count,
852: x_msg_data => x_msg_data);
853: */
854: EXCEPTION
855: when OKC_API.G_EXCEPTION_ERROR then
851: OKC_API.END_ACTIVITY( x_msg_count => x_msg_count,
852: x_msg_data => x_msg_data);
853: */
854: EXCEPTION
855: when OKC_API.G_EXCEPTION_ERROR then
856: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
857: p_api_name => l_api_name,
858: p_pkg_name => g_pkg_name,
859: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
852: x_msg_data => x_msg_data);
853: */
854: EXCEPTION
855: when OKC_API.G_EXCEPTION_ERROR then
856: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
857: p_api_name => l_api_name,
858: p_pkg_name => g_pkg_name,
859: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
860: x_msg_count => x_msg_count,
855: when OKC_API.G_EXCEPTION_ERROR then
856: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
857: p_api_name => l_api_name,
858: p_pkg_name => g_pkg_name,
859: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
860: x_msg_count => x_msg_count,
861: x_msg_data => x_msg_data,
862: p_api_type => g_api_type);
863:
860: x_msg_count => x_msg_count,
861: x_msg_data => x_msg_data,
862: p_api_type => g_api_type);
863:
864: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
865: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
866: p_api_name => l_api_name,
867: p_pkg_name => g_pkg_name,
868: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
861: x_msg_data => x_msg_data,
862: p_api_type => g_api_type);
863:
864: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
865: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
866: p_api_name => l_api_name,
867: p_pkg_name => g_pkg_name,
868: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
869: x_msg_count => x_msg_count,
864: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
865: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
866: p_api_name => l_api_name,
867: p_pkg_name => g_pkg_name,
868: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
869: x_msg_count => x_msg_count,
870: x_msg_data => x_msg_data,
871: p_api_type => g_api_type);
872:
870: x_msg_data => x_msg_data,
871: p_api_type => g_api_type);
872:
873: when OTHERS then
874: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
875: p_api_name => l_api_name,
876: p_pkg_name => g_pkg_name,
877: p_exc_name => 'OTHERS',
878: x_msg_count => x_msg_count,