24: --
25: -- Bypass check for templates
26: --
27: IF ( X_Template_Flag = 'Y' ) THEN
28: X_Return_Status := OKE_API.G_RET_STS_SUCCESS;
29: RETURN;
30: END IF;
31:
32: --
47: -- Make sure number adheres to Numbering Type
48: --
49: IF ( l_num_type = 'NUMERIC' AND
50: OKE_NUMBER_SEQUENCES_PKG.Value_Is_Numeric(X_K_Number) = 'N' ) THEN
51: OKE_API.Set_Message( p_msg_name => 'OKE_NUMSEQ_INVALID_NUMERIC' );
52: X_Return_Status := OKE_API.G_RET_STS_ERROR;
53: RETURN;
54: END IF;
55:
48: --
49: IF ( l_num_type = 'NUMERIC' AND
50: OKE_NUMBER_SEQUENCES_PKG.Value_Is_Numeric(X_K_Number) = 'N' ) THEN
51: OKE_API.Set_Message( p_msg_name => 'OKE_NUMSEQ_INVALID_NUMERIC' );
52: X_Return_Status := OKE_API.G_RET_STS_ERROR;
53: RETURN;
54: END IF;
55:
56: ELSE
61: ( X_K_Type_Code , X_Buy_Or_Sell );
62:
63: END IF;
64:
65: X_Return_Status := OKE_API.G_RET_STS_SUCCESS;
66:
67: EXCEPTION
68: WHEN OTHERS THEN
69: FND_MSG_PUB.Add_Exc_Msg
69: FND_MSG_PUB.Add_Exc_Msg
70: ( p_pkg_name => g_pkg_name
71: , p_procedure_name => 'ASSIGN_DOC_NUMER'
72: );
73: X_Return_Status := OKE_API.G_RET_STS_UNEXP_ERROR;
74: END Assign_Doc_Number;
75:
76:
77:
76:
77:
78: PROCEDURE create_contract_header(
79: p_api_version IN NUMBER,
80: p_init_msg_list IN VARCHAR2 DEFAULT OKE_API.G_FALSE,
81: x_return_status OUT NOCOPY VARCHAR2,
82: x_msg_count OUT NOCOPY NUMBER,
83: x_msg_data OUT NOCOPY VARCHAR2,
84: p_chr_rec IN oke_chr_pvt.chr_rec_type,
89: l_chr_rec oke_chr_pvt.chr_rec_type;
90: l_chrv_rec okc_contract_pub.chrv_rec_type;
91: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_CONTRACT_HEADER';
92: l_api_version CONSTANT NUMBER := 1.0;
93: l_return_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
94:
95:
96:
97:
98: BEGIN
99:
100: -- call START_ACTIVITY to create savepoint, check compatibility
101: -- and initialize message list
102: l_return_status := OKE_API.START_ACTIVITY(
103: p_api_name => l_api_name,
104: p_pkg_name => g_pkg_name,
105: p_init_msg_list => p_init_msg_list,
106: l_api_version => l_api_version,
108: p_api_type => g_api_type,
109: x_return_status => x_return_status);
110:
111: -- check if activity started successfully
112: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
113: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
114: Elsif (l_return_status = OKC_API.G_RET_STS_ERROR) then
115: raise OKE_API.G_EXCEPTION_ERROR;
116:
109: x_return_status => x_return_status);
110:
111: -- check if activity started successfully
112: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
113: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
114: Elsif (l_return_status = OKC_API.G_RET_STS_ERROR) then
115: raise OKE_API.G_EXCEPTION_ERROR;
116:
117: End If;
111: -- check if activity started successfully
112: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
113: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
114: Elsif (l_return_status = OKC_API.G_RET_STS_ERROR) then
115: raise OKE_API.G_EXCEPTION_ERROR;
116:
117: End If;
118:
119: l_chr_rec := p_chr_rec;
130: , X_K_Number => l_chrv_rec.contract_number
131: , X_Return_Status => X_Return_Status
132: );
133:
134: IF X_Return_Status = OKE_API.G_RET_STS_UNEXP_ERROR Then
135: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
136: ELSIF X_Return_Status = OKE_API.G_RET_STS_ERROR Then
137: raise OKE_API.G_EXCEPTION_ERROR;
138: End If;
131: , X_Return_Status => X_Return_Status
132: );
133:
134: IF X_Return_Status = OKE_API.G_RET_STS_UNEXP_ERROR Then
135: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
136: ELSIF X_Return_Status = OKE_API.G_RET_STS_ERROR Then
137: raise OKE_API.G_EXCEPTION_ERROR;
138: End If;
139:
132: );
133:
134: IF X_Return_Status = OKE_API.G_RET_STS_UNEXP_ERROR Then
135: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
136: ELSIF X_Return_Status = OKE_API.G_RET_STS_ERROR Then
137: raise OKE_API.G_EXCEPTION_ERROR;
138: End If;
139:
140: --
133:
134: IF X_Return_Status = OKE_API.G_RET_STS_UNEXP_ERROR Then
135: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
136: ELSIF X_Return_Status = OKE_API.G_RET_STS_ERROR Then
137: raise OKE_API.G_EXCEPTION_ERROR;
138: End If;
139:
140: --
141: -- get default contract number modifier
140: --
141: -- get default contract number modifier
142: --
143:
144: If l_chrv_rec.contract_number_modifier is null or l_chrv_rec.contract_number_modifier = OKE_API.G_MISS_CHAR then
145: IF l_chr_rec.boa_id is null or l_chr_rec.boa_id = OKE_API.G_MISS_NUM THEN
146: l_chrv_rec.contract_number_modifier
147: := l_chr_rec.k_type_code || '.'|| l_chrv_rec.buy_or_sell || '.';
148: ELSE
141: -- get default contract number modifier
142: --
143:
144: If l_chrv_rec.contract_number_modifier is null or l_chrv_rec.contract_number_modifier = OKE_API.G_MISS_CHAR then
145: IF l_chr_rec.boa_id is null or l_chr_rec.boa_id = OKE_API.G_MISS_NUM THEN
146: l_chrv_rec.contract_number_modifier
147: := l_chr_rec.k_type_code || '.'|| l_chrv_rec.buy_or_sell || '.';
148: ELSE
149: l_chrv_rec.contract_number_modifier
192: p_chr_rec => l_chr_rec,
193: x_chr_rec => x_chr_rec);
194:
195:
196: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
197: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
198: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
199: raise OKE_API.G_EXCEPTION_ERROR;
200: End If;
193: x_chr_rec => x_chr_rec);
194:
195:
196: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
197: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
198: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
199: raise OKE_API.G_EXCEPTION_ERROR;
200: End If;
201:
194:
195:
196: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
197: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
198: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
199: raise OKE_API.G_EXCEPTION_ERROR;
200: End If;
201:
202: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
195:
196: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
197: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
198: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
199: raise OKE_API.G_EXCEPTION_ERROR;
200: End If;
201:
202: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
203: x_msg_data => x_msg_data);
198: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
199: raise OKE_API.G_EXCEPTION_ERROR;
200: End If;
201:
202: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
203: x_msg_data => x_msg_data);
204: EXCEPTION
205: when OKE_API.G_EXCEPTION_ERROR then
206: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
201:
202: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
203: x_msg_data => x_msg_data);
204: EXCEPTION
205: when OKE_API.G_EXCEPTION_ERROR then
206: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
207: p_api_name => l_api_name,
208: p_pkg_name => g_pkg_name,
209: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
202: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
203: x_msg_data => x_msg_data);
204: EXCEPTION
205: when OKE_API.G_EXCEPTION_ERROR then
206: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
207: p_api_name => l_api_name,
208: p_pkg_name => g_pkg_name,
209: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
210: x_msg_count => x_msg_count,
205: when OKE_API.G_EXCEPTION_ERROR then
206: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
207: p_api_name => l_api_name,
208: p_pkg_name => g_pkg_name,
209: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
210: x_msg_count => x_msg_count,
211: x_msg_data => x_msg_data,
212: p_api_type => g_api_type);
213:
210: x_msg_count => x_msg_count,
211: x_msg_data => x_msg_data,
212: p_api_type => g_api_type);
213:
214: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
215: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
216: p_api_name => l_api_name,
217: p_pkg_name => g_pkg_name,
218: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
211: x_msg_data => x_msg_data,
212: p_api_type => g_api_type);
213:
214: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
215: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
216: p_api_name => l_api_name,
217: p_pkg_name => g_pkg_name,
218: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
219: x_msg_count => x_msg_count,
214: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
215: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
216: p_api_name => l_api_name,
217: p_pkg_name => g_pkg_name,
218: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
219: x_msg_count => x_msg_count,
220: x_msg_data => x_msg_data,
221: p_api_type => g_api_type);
222:
220: x_msg_data => x_msg_data,
221: p_api_type => g_api_type);
222:
223: when OKC_API.G_EXCEPTION_ERROR then
224: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
225: p_api_name => l_api_name,
226: p_pkg_name => g_pkg_name,
227: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
228: x_msg_count => x_msg_count,
223: when OKC_API.G_EXCEPTION_ERROR then
224: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
225: p_api_name => l_api_name,
226: p_pkg_name => g_pkg_name,
227: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
228: x_msg_count => x_msg_count,
229: x_msg_data => x_msg_data,
230: p_api_type => g_api_type);
231:
229: x_msg_data => x_msg_data,
230: p_api_type => g_api_type);
231:
232: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
233: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
234: p_api_name => l_api_name,
235: p_pkg_name => g_pkg_name,
236: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
237: x_msg_count => x_msg_count,
232: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
233: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
234: p_api_name => l_api_name,
235: p_pkg_name => g_pkg_name,
236: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
237: x_msg_count => x_msg_count,
238: x_msg_data => x_msg_data,
239: p_api_type => g_api_type);
240:
238: x_msg_data => x_msg_data,
239: p_api_type => g_api_type);
240:
241: when OTHERS then
242: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
243: p_api_name => l_api_name,
244: p_pkg_name => g_pkg_name,
245: p_exc_name => 'OTHERS',
246: x_msg_count => x_msg_count,
250: END create_contract_header;
251:
252: PROCEDURE create_contract_header(
253: p_api_version IN NUMBER,
254: p_init_msg_list IN VARCHAR2 DEFAULT OKE_API.G_FALSE,
255: x_return_status OUT NOCOPY VARCHAR2,
256: x_msg_count OUT NOCOPY NUMBER,
257: x_msg_data OUT NOCOPY VARCHAR2,
258: p_chr_tbl IN oke_chr_pvt.chr_tbl_type,
261: x_chrv_tbl OUT NOCOPY okc_contract_pub.chrv_tbl_type) IS
262:
263: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_CONTRACT_HEADER';
264: l_api_version CONSTANT NUMBER := 1.0;
265: l_return_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
266: l_overall_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
267: i NUMBER;
268: l_chr_tbl OKE_CHR_PVT.chr_tbl_type := p_chr_tbl;
269: BEGIN
262:
263: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_CONTRACT_HEADER';
264: l_api_version CONSTANT NUMBER := 1.0;
265: l_return_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
266: l_overall_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
267: i NUMBER;
268: l_chr_tbl OKE_CHR_PVT.chr_tbl_type := p_chr_tbl;
269: BEGIN
270: -- call START_ACTIVITY to create savepoint, check compatibility
268: l_chr_tbl OKE_CHR_PVT.chr_tbl_type := p_chr_tbl;
269: BEGIN
270: -- call START_ACTIVITY to create savepoint, check compatibility
271: -- and initialize message list
272: l_return_status := OKE_API.START_ACTIVITY(
273: p_api_name => l_api_name,
274: p_pkg_name => g_pkg_name,
275: p_init_msg_list => p_init_msg_list,
276: l_api_version => l_api_version,
278: p_api_type => g_api_type,
279: x_return_status => x_return_status);
280:
281: -- check if activity started successfully
282: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
283: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
284: Elsif (l_return_status = OKC_API.G_RET_STS_ERROR) then
285: raise OKE_API.G_EXCEPTION_ERROR;
286:
279: x_return_status => x_return_status);
280:
281: -- check if activity started successfully
282: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
283: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
284: Elsif (l_return_status = OKC_API.G_RET_STS_ERROR) then
285: raise OKE_API.G_EXCEPTION_ERROR;
286:
287: End If;
281: -- check if activity started successfully
282: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
283: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
284: Elsif (l_return_status = OKC_API.G_RET_STS_ERROR) then
285: raise OKE_API.G_EXCEPTION_ERROR;
286:
287: End If;
288:
289: If (p_chrv_tbl.COUNT > 0) Then
300: p_chrv_rec => p_chrv_tbl(i),
301: x_chr_rec => x_chr_tbl(i),
302: x_chrv_rec => x_chrv_tbl(i));
303:
304: If x_return_status <> OKE_API.G_RET_STS_SUCCESS Then
305: If l_overall_status <> OKE_API.G_RET_STS_UNEXP_ERROR Then
306: l_overall_status := x_return_status;
307: End If;
308: End If;
301: x_chr_rec => x_chr_tbl(i),
302: x_chrv_rec => x_chrv_tbl(i));
303:
304: If x_return_status <> OKE_API.G_RET_STS_SUCCESS Then
305: If l_overall_status <> OKE_API.G_RET_STS_UNEXP_ERROR Then
306: l_overall_status := x_return_status;
307: End If;
308: End If;
309:
314: -- return overall status
315: x_return_status := l_overall_status;
316: End If;
317:
318: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
319: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
320: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
321: raise OKE_API.G_EXCEPTION_ERROR;
322: End If;
315: x_return_status := l_overall_status;
316: End If;
317:
318: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
319: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
320: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
321: raise OKE_API.G_EXCEPTION_ERROR;
322: End If;
323:
316: End If;
317:
318: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
319: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
320: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
321: raise OKE_API.G_EXCEPTION_ERROR;
322: End If;
323:
324: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
317:
318: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
319: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
320: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
321: raise OKE_API.G_EXCEPTION_ERROR;
322: End If;
323:
324: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
325: x_msg_data => x_msg_data);
320: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
321: raise OKE_API.G_EXCEPTION_ERROR;
322: End If;
323:
324: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
325: x_msg_data => x_msg_data);
326: EXCEPTION
327: when OKE_API.G_EXCEPTION_ERROR then
328: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
323:
324: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
325: x_msg_data => x_msg_data);
326: EXCEPTION
327: when OKE_API.G_EXCEPTION_ERROR then
328: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
329: p_api_name => l_api_name,
330: p_pkg_name => g_pkg_name,
331: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
324: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
325: x_msg_data => x_msg_data);
326: EXCEPTION
327: when OKE_API.G_EXCEPTION_ERROR then
328: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
329: p_api_name => l_api_name,
330: p_pkg_name => g_pkg_name,
331: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
332: x_msg_count => x_msg_count,
327: when OKE_API.G_EXCEPTION_ERROR then
328: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
329: p_api_name => l_api_name,
330: p_pkg_name => g_pkg_name,
331: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
332: x_msg_count => x_msg_count,
333: x_msg_data => x_msg_data,
334: p_api_type => g_api_type);
335:
332: x_msg_count => x_msg_count,
333: x_msg_data => x_msg_data,
334: p_api_type => g_api_type);
335:
336: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
337: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
338: p_api_name => l_api_name,
339: p_pkg_name => g_pkg_name,
340: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
333: x_msg_data => x_msg_data,
334: p_api_type => g_api_type);
335:
336: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
337: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
338: p_api_name => l_api_name,
339: p_pkg_name => g_pkg_name,
340: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
341: x_msg_count => x_msg_count,
336: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
337: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
338: p_api_name => l_api_name,
339: p_pkg_name => g_pkg_name,
340: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
341: x_msg_count => x_msg_count,
342: x_msg_data => x_msg_data,
343: p_api_type => g_api_type);
344:
342: x_msg_data => x_msg_data,
343: p_api_type => g_api_type);
344:
345: when OTHERS then
346: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
347: p_api_name => l_api_name,
348: p_pkg_name => g_pkg_name,
349: p_exc_name => 'OTHERS',
350: x_msg_count => x_msg_count,
354: END create_contract_header;
355:
356: PROCEDURE update_contract_header(
357: p_api_version IN NUMBER,
358: p_init_msg_list IN VARCHAR2 DEFAULT OKE_API.G_FALSE,
359: x_return_status OUT NOCOPY VARCHAR2,
360: x_msg_count OUT NOCOPY NUMBER,
361: x_msg_data OUT NOCOPY VARCHAR2,
362: p_restricted_update IN VARCHAR2 DEFAULT OKE_API.G_TRUE,
358: p_init_msg_list IN VARCHAR2 DEFAULT OKE_API.G_FALSE,
359: x_return_status OUT NOCOPY VARCHAR2,
360: x_msg_count OUT NOCOPY NUMBER,
361: x_msg_data OUT NOCOPY VARCHAR2,
362: p_restricted_update IN VARCHAR2 DEFAULT OKE_API.G_TRUE,
363: p_chr_rec IN oke_chr_pvt.chr_rec_type,
364: p_chrv_rec IN okc_contract_pub.chrv_rec_type,
365: x_chr_rec OUT NOCOPY oke_chr_pvt.chr_rec_type,
366: x_chrv_rec OUT NOCOPY okc_contract_pub.chrv_rec_type) IS
366: x_chrv_rec OUT NOCOPY okc_contract_pub.chrv_rec_type) IS
367:
368: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_CONTRACT_HEADER';
369: l_api_version CONSTANT NUMBER := 1.0;
370: l_return_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
371: BEGIN
372: -- call START_ACTIVITY to create savepoint, check compatibility
373: -- and initialize message list
374:
371: BEGIN
372: -- call START_ACTIVITY to create savepoint, check compatibility
373: -- and initialize message list
374:
375: l_return_status := OKE_API.START_ACTIVITY(
376: p_api_name => l_api_name,
377: p_pkg_name => g_pkg_name,
378: p_init_msg_list => p_init_msg_list,
379: l_api_version => l_api_version,
381: p_api_type => g_api_type,
382: x_return_status => x_return_status);
383:
384: -- check if activity started successfully
385: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
386: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
387: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
388: raise OKE_API.G_EXCEPTION_ERROR;
389: End If;
382: x_return_status => x_return_status);
383:
384: -- check if activity started successfully
385: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
386: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
387: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
388: raise OKE_API.G_EXCEPTION_ERROR;
389: End If;
390:
383:
384: -- check if activity started successfully
385: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
386: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
387: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
388: raise OKE_API.G_EXCEPTION_ERROR;
389: End If;
390:
391:
384: -- check if activity started successfully
385: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
386: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
387: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
388: raise OKE_API.G_EXCEPTION_ERROR;
389: End If;
390:
391:
392: -- call procedure in complex API
417: x_msg_data => x_msg_data,
418: p_chr_rec => p_chr_rec,
419: x_chr_rec => x_chr_rec);
420:
421: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
422: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
423: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
424: raise OKE_API.G_EXCEPTION_ERROR;
425: End If;
418: p_chr_rec => p_chr_rec,
419: x_chr_rec => x_chr_rec);
420:
421: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
422: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
423: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
424: raise OKE_API.G_EXCEPTION_ERROR;
425: End If;
426:
419: x_chr_rec => x_chr_rec);
420:
421: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
422: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
423: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
424: raise OKE_API.G_EXCEPTION_ERROR;
425: End If;
426:
427: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
420:
421: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
422: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
423: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
424: raise OKE_API.G_EXCEPTION_ERROR;
425: End If;
426:
427: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
428: x_msg_data => x_msg_data);
423: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
424: raise OKE_API.G_EXCEPTION_ERROR;
425: End If;
426:
427: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
428: x_msg_data => x_msg_data);
429: EXCEPTION
430: when OKE_API.G_EXCEPTION_ERROR then
431: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
426:
427: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
428: x_msg_data => x_msg_data);
429: EXCEPTION
430: when OKE_API.G_EXCEPTION_ERROR then
431: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
432: p_api_name => l_api_name,
433: p_pkg_name => g_pkg_name,
434: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
427: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
428: x_msg_data => x_msg_data);
429: EXCEPTION
430: when OKE_API.G_EXCEPTION_ERROR then
431: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
432: p_api_name => l_api_name,
433: p_pkg_name => g_pkg_name,
434: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
435: x_msg_count => x_msg_count,
430: when OKE_API.G_EXCEPTION_ERROR then
431: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
432: p_api_name => l_api_name,
433: p_pkg_name => g_pkg_name,
434: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
435: x_msg_count => x_msg_count,
436: x_msg_data => x_msg_data,
437: p_api_type => g_api_type);
438:
435: x_msg_count => x_msg_count,
436: x_msg_data => x_msg_data,
437: p_api_type => g_api_type);
438:
439: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
440: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
441: p_api_name => l_api_name,
442: p_pkg_name => g_pkg_name,
443: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
436: x_msg_data => x_msg_data,
437: p_api_type => g_api_type);
438:
439: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
440: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
441: p_api_name => l_api_name,
442: p_pkg_name => g_pkg_name,
443: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
444: x_msg_count => x_msg_count,
439: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
440: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
441: p_api_name => l_api_name,
442: p_pkg_name => g_pkg_name,
443: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
444: x_msg_count => x_msg_count,
445: x_msg_data => x_msg_data,
446: p_api_type => g_api_type);
447:
445: x_msg_data => x_msg_data,
446: p_api_type => g_api_type);
447:
448: when OKC_API.G_EXCEPTION_ERROR then
449: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
450: p_api_name => l_api_name,
451: p_pkg_name => g_pkg_name,
452: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
453: x_msg_count => x_msg_count,
448: when OKC_API.G_EXCEPTION_ERROR then
449: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
450: p_api_name => l_api_name,
451: p_pkg_name => g_pkg_name,
452: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
453: x_msg_count => x_msg_count,
454: x_msg_data => x_msg_data,
455: p_api_type => g_api_type);
456:
454: x_msg_data => x_msg_data,
455: p_api_type => g_api_type);
456:
457: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
458: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
459: p_api_name => l_api_name,
460: p_pkg_name => g_pkg_name,
461: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
462: x_msg_count => x_msg_count,
457: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
458: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
459: p_api_name => l_api_name,
460: p_pkg_name => g_pkg_name,
461: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
462: x_msg_count => x_msg_count,
463: x_msg_data => x_msg_data,
464: p_api_type => g_api_type);
465:
463: x_msg_data => x_msg_data,
464: p_api_type => g_api_type);
465:
466: when OTHERS then
467: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
468: p_api_name => l_api_name,
469: p_pkg_name => g_pkg_name,
470: p_exc_name => 'OTHERS',
471: x_msg_count => x_msg_count,
475: END update_contract_header;
476:
477: PROCEDURE update_contract_header(
478: p_api_version IN NUMBER,
479: p_init_msg_list IN VARCHAR2 DEFAULT OKE_API.G_FALSE,
480: x_return_status OUT NOCOPY VARCHAR2,
481: x_msg_count OUT NOCOPY NUMBER,
482: x_msg_data OUT NOCOPY VARCHAR2,
483: p_restricted_update IN VARCHAR2 DEFAULT OKE_API.G_TRUE,
479: p_init_msg_list IN VARCHAR2 DEFAULT OKE_API.G_FALSE,
480: x_return_status OUT NOCOPY VARCHAR2,
481: x_msg_count OUT NOCOPY NUMBER,
482: x_msg_data OUT NOCOPY VARCHAR2,
483: p_restricted_update IN VARCHAR2 DEFAULT OKE_API.G_TRUE,
484: p_chr_tbl IN oke_chr_pvt.chr_tbl_type,
485: p_chrv_tbl IN okc_contract_pub.chrv_tbl_type,
486: x_chr_tbl OUT NOCOPY oke_chr_pvt.chr_tbl_type,
487: x_chrv_tbl OUT NOCOPY okc_contract_pub.chrv_tbl_type) IS
487: x_chrv_tbl OUT NOCOPY okc_contract_pub.chrv_tbl_type) IS
488:
489: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_CONTRACT_HEADER';
490: l_api_version CONSTANT NUMBER := 1.0;
491: l_return_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
492: l_overall_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
493: i NUMBER;
494: BEGIN
495: -- call START_ACTIVITY to create savepoint, check compatibility
488:
489: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_CONTRACT_HEADER';
490: l_api_version CONSTANT NUMBER := 1.0;
491: l_return_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
492: l_overall_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
493: i NUMBER;
494: BEGIN
495: -- call START_ACTIVITY to create savepoint, check compatibility
496: -- and initialize message list
494: BEGIN
495: -- call START_ACTIVITY to create savepoint, check compatibility
496: -- and initialize message list
497:
498: l_return_status := OKE_API.START_ACTIVITY(
499: p_api_name => l_api_name,
500: p_pkg_name => g_pkg_name,
501: p_init_msg_list => p_init_msg_list,
502: l_api_version => l_api_version,
504: p_api_type => g_api_type,
505: x_return_status => x_return_status);
506:
507: -- check if activity started successfully
508: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
509: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
510: Elsif (l_return_status = OKC_API.G_RET_STS_ERROR) then
511: raise OKE_API.G_EXCEPTION_ERROR;
512:
505: x_return_status => x_return_status);
506:
507: -- check if activity started successfully
508: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
509: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
510: Elsif (l_return_status = OKC_API.G_RET_STS_ERROR) then
511: raise OKE_API.G_EXCEPTION_ERROR;
512:
513: End If;
507: -- check if activity started successfully
508: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
509: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
510: Elsif (l_return_status = OKC_API.G_RET_STS_ERROR) then
511: raise OKE_API.G_EXCEPTION_ERROR;
512:
513: End If;
514:
515: If (p_chrv_tbl.COUNT > 0) Then
528: x_chr_rec => x_chr_tbl(i),
529: x_chrv_rec => x_chrv_tbl(i));
530:
531:
532: If x_return_status <> OKE_API.G_RET_STS_SUCCESS Then
533: If l_overall_status <> OKE_API.G_RET_STS_UNEXP_ERROR Then
534: l_overall_status := x_return_status;
535: End If;
536: End If;
529: x_chrv_rec => x_chrv_tbl(i));
530:
531:
532: If x_return_status <> OKE_API.G_RET_STS_SUCCESS Then
533: If l_overall_status <> OKE_API.G_RET_STS_UNEXP_ERROR Then
534: l_overall_status := x_return_status;
535: End If;
536: End If;
537:
542: -- return overall status
543: x_return_status := l_overall_status;
544: End If;
545:
546: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
547: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
548: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
549: raise OKE_API.G_EXCEPTION_ERROR;
550: End If;
543: x_return_status := l_overall_status;
544: End If;
545:
546: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
547: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
548: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
549: raise OKE_API.G_EXCEPTION_ERROR;
550: End If;
551:
544: End If;
545:
546: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
547: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
548: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
549: raise OKE_API.G_EXCEPTION_ERROR;
550: End If;
551:
552: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
545:
546: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
547: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
548: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
549: raise OKE_API.G_EXCEPTION_ERROR;
550: End If;
551:
552: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
553: x_msg_data => x_msg_data);
548: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
549: raise OKE_API.G_EXCEPTION_ERROR;
550: End If;
551:
552: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
553: x_msg_data => x_msg_data);
554: EXCEPTION
555: when OKE_API.G_EXCEPTION_ERROR then
556: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
551:
552: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
553: x_msg_data => x_msg_data);
554: EXCEPTION
555: when OKE_API.G_EXCEPTION_ERROR then
556: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
557: p_api_name => l_api_name,
558: p_pkg_name => g_pkg_name,
559: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
552: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
553: x_msg_data => x_msg_data);
554: EXCEPTION
555: when OKE_API.G_EXCEPTION_ERROR then
556: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
557: p_api_name => l_api_name,
558: p_pkg_name => g_pkg_name,
559: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
560: x_msg_count => x_msg_count,
555: when OKE_API.G_EXCEPTION_ERROR then
556: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
557: p_api_name => l_api_name,
558: p_pkg_name => g_pkg_name,
559: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
560: x_msg_count => x_msg_count,
561: x_msg_data => x_msg_data,
562: p_api_type => g_api_type);
563:
560: x_msg_count => x_msg_count,
561: x_msg_data => x_msg_data,
562: p_api_type => g_api_type);
563:
564: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
565: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
566: p_api_name => l_api_name,
567: p_pkg_name => g_pkg_name,
568: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
561: x_msg_data => x_msg_data,
562: p_api_type => g_api_type);
563:
564: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
565: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
566: p_api_name => l_api_name,
567: p_pkg_name => g_pkg_name,
568: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
569: x_msg_count => x_msg_count,
564: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
565: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
566: p_api_name => l_api_name,
567: p_pkg_name => g_pkg_name,
568: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
569: x_msg_count => x_msg_count,
570: x_msg_data => x_msg_data,
571: p_api_type => g_api_type);
572:
570: x_msg_data => x_msg_data,
571: p_api_type => g_api_type);
572:
573: when OTHERS then
574: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
575: p_api_name => l_api_name,
576: p_pkg_name => g_pkg_name,
577: p_exc_name => 'OTHERS',
578: x_msg_count => x_msg_count,
582: END update_contract_header;
583:
584: PROCEDURE delete_contract_header(
585: p_api_version IN NUMBER,
586: p_init_msg_list IN VARCHAR2 DEFAULT OKE_API.G_FALSE,
587: x_return_status OUT NOCOPY VARCHAR2,
588: x_msg_count OUT NOCOPY NUMBER,
589: x_msg_data OUT NOCOPY VARCHAR2,
590: p_chr_rec IN oke_chr_pvt.chr_rec_type,
593: l_chr_rec oke_chr_pvt.chr_rec_type;
594: l_chrv_rec okc_contract_pub.chrv_rec_type;
595: l_api_name CONSTANT VARCHAR2(30) := 'DELETE_CONTRACT_HEADER';
596: l_api_version CONSTANT NUMBER := 1.0;
597: l_return_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
598: BEGIN
599: -- call START_ACTIVITY to create savepoint, check compatibility
600: -- and initialize message list
601: l_return_status := OKE_API.START_ACTIVITY(
597: l_return_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
598: BEGIN
599: -- call START_ACTIVITY to create savepoint, check compatibility
600: -- and initialize message list
601: l_return_status := OKE_API.START_ACTIVITY(
602: p_api_name => l_api_name,
603: p_pkg_name => g_pkg_name,
604: p_init_msg_list => p_init_msg_list,
605: l_api_version => l_api_version,
607: p_api_type => g_api_type,
608: x_return_status => x_return_status);
609:
610: -- check if activity started successfully
611: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
612: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
613: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
614: raise OKE_API.G_EXCEPTION_ERROR;
615: End If;
608: x_return_status => x_return_status);
609:
610: -- check if activity started successfully
611: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
612: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
613: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
614: raise OKE_API.G_EXCEPTION_ERROR;
615: End If;
616:
609:
610: -- check if activity started successfully
611: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
612: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
613: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
614: raise OKE_API.G_EXCEPTION_ERROR;
615: End If;
616:
617: l_chr_rec := p_chr_rec;
610: -- check if activity started successfully
611: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
612: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
613: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
614: raise OKE_API.G_EXCEPTION_ERROR;
615: End If;
616:
617: l_chr_rec := p_chr_rec;
618: l_chrv_rec := p_chrv_rec;
626: x_msg_count => x_msg_count,
627: x_msg_data => x_msg_data,
628: p_chr_rec => l_chr_rec);
629:
630: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
631: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
632: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
633: raise OKE_API.G_EXCEPTION_ERROR;
634: End If;
627: x_msg_data => x_msg_data,
628: p_chr_rec => l_chr_rec);
629:
630: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
631: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
632: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
633: raise OKE_API.G_EXCEPTION_ERROR;
634: End If;
635:
628: p_chr_rec => l_chr_rec);
629:
630: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
631: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
632: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
633: raise OKE_API.G_EXCEPTION_ERROR;
634: End If;
635:
636: -- call procedure in complex API
629:
630: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
631: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
632: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
633: raise OKE_API.G_EXCEPTION_ERROR;
634: End If;
635:
636: -- call procedure in complex API
637: OKC_CONTRACT_PUB.delete_contract_header(
648: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
649: raise OKC_API.G_EXCEPTION_ERROR;
650: End If;
651:
652: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
653: x_msg_data => x_msg_data);
654: EXCEPTION
655: when OKE_API.G_EXCEPTION_ERROR then
656: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
651:
652: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
653: x_msg_data => x_msg_data);
654: EXCEPTION
655: when OKE_API.G_EXCEPTION_ERROR then
656: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
657: p_api_name => l_api_name,
658: p_pkg_name => g_pkg_name,
659: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
652: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
653: x_msg_data => x_msg_data);
654: EXCEPTION
655: when OKE_API.G_EXCEPTION_ERROR then
656: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
657: p_api_name => l_api_name,
658: p_pkg_name => g_pkg_name,
659: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
660: x_msg_count => x_msg_count,
655: when OKE_API.G_EXCEPTION_ERROR then
656: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
657: p_api_name => l_api_name,
658: p_pkg_name => g_pkg_name,
659: p_exc_name => 'OKE_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 OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
665: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
666: p_api_name => l_api_name,
667: p_pkg_name => g_pkg_name,
668: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
661: x_msg_data => x_msg_data,
662: p_api_type => g_api_type);
663:
664: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
665: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
666: p_api_name => l_api_name,
667: p_pkg_name => g_pkg_name,
668: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
669: x_msg_count => x_msg_count,
664: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
665: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
666: p_api_name => l_api_name,
667: p_pkg_name => g_pkg_name,
668: p_exc_name => 'OKE_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 OKC_API.G_EXCEPTION_ERROR then
674: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
675: p_api_name => l_api_name,
676: p_pkg_name => g_pkg_name,
677: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
678: x_msg_count => x_msg_count,
673: when OKC_API.G_EXCEPTION_ERROR then
674: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
675: p_api_name => l_api_name,
676: p_pkg_name => g_pkg_name,
677: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
678: x_msg_count => x_msg_count,
679: x_msg_data => x_msg_data,
680: p_api_type => g_api_type);
681:
679: x_msg_data => x_msg_data,
680: p_api_type => g_api_type);
681:
682: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
683: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
684: p_api_name => l_api_name,
685: p_pkg_name => g_pkg_name,
686: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
687: x_msg_count => x_msg_count,
682: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
683: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
684: p_api_name => l_api_name,
685: p_pkg_name => g_pkg_name,
686: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
687: x_msg_count => x_msg_count,
688: x_msg_data => x_msg_data,
689: p_api_type => g_api_type);
690:
688: x_msg_data => x_msg_data,
689: p_api_type => g_api_type);
690:
691: when OTHERS then
692: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
693: p_api_name => l_api_name,
694: p_pkg_name => g_pkg_name,
695: p_exc_name => 'OTHERS',
696: x_msg_count => x_msg_count,
700: END delete_contract_header;
701:
702: PROCEDURE delete_contract_header(
703: p_api_version IN NUMBER,
704: p_init_msg_list IN VARCHAR2 DEFAULT OKE_API.G_FALSE,
705: x_return_status OUT NOCOPY VARCHAR2,
706: x_msg_count OUT NOCOPY NUMBER,
707: x_msg_data OUT NOCOPY VARCHAR2,
708: p_chr_tbl IN oke_chr_pvt.chr_tbl_type,
709: p_chrv_tbl IN okc_contract_pub.chrv_tbl_type) IS
710:
711: l_api_name CONSTANT VARCHAR2(30) := 'DELETE_CONTRACT_HEADER';
712: l_api_version CONSTANT NUMBER := 1.0;
713: l_return_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
714: l_overall_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
715: i NUMBER;
716: BEGIN
717: -- call START_ACTIVITY to create savepoint, check compatibility
710:
711: l_api_name CONSTANT VARCHAR2(30) := 'DELETE_CONTRACT_HEADER';
712: l_api_version CONSTANT NUMBER := 1.0;
713: l_return_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
714: l_overall_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
715: i NUMBER;
716: BEGIN
717: -- call START_ACTIVITY to create savepoint, check compatibility
718: -- and initialize message list
715: i NUMBER;
716: BEGIN
717: -- call START_ACTIVITY to create savepoint, check compatibility
718: -- and initialize message list
719: l_return_status := OKE_API.START_ACTIVITY(
720: p_api_name => l_api_name,
721: p_pkg_name => g_pkg_name,
722: p_init_msg_list => p_init_msg_list,
723: l_api_version => l_api_version,
725: p_api_type => g_api_type,
726: x_return_status => x_return_status);
727:
728: -- check if activity started successfully
729: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
730: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
731: Elsif (l_return_status = OKC_API.G_RET_STS_ERROR) then
732: raise OKE_API.G_EXCEPTION_ERROR;
733:
726: x_return_status => x_return_status);
727:
728: -- check if activity started successfully
729: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
730: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
731: Elsif (l_return_status = OKC_API.G_RET_STS_ERROR) then
732: raise OKE_API.G_EXCEPTION_ERROR;
733:
734: End If;
728: -- check if activity started successfully
729: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
730: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
731: Elsif (l_return_status = OKC_API.G_RET_STS_ERROR) then
732: raise OKE_API.G_EXCEPTION_ERROR;
733:
734: End If;
735:
736: If (p_chrv_tbl.COUNT > 0) Then
747: x_msg_count => x_msg_count,
748: x_msg_data => x_msg_data,
749: p_chr_rec => p_chr_tbl(i));
750:
751: If x_return_status <> OKE_API.G_RET_STS_SUCCESS Then
752: If l_overall_status <> OKE_API.G_RET_STS_UNEXP_ERROR Then
753: l_overall_status := x_return_status;
754: End If;
755: End If;
748: x_msg_data => x_msg_data,
749: p_chr_rec => p_chr_tbl(i));
750:
751: If x_return_status <> OKE_API.G_RET_STS_SUCCESS Then
752: If l_overall_status <> OKE_API.G_RET_STS_UNEXP_ERROR Then
753: l_overall_status := x_return_status;
754: End If;
755: End If;
756:
777: -- return overall status
778: x_return_status := l_overall_status;
779: End If;
780:
781: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
782: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
783: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
784: raise OKE_API.G_EXCEPTION_ERROR;
785: End If;
778: x_return_status := l_overall_status;
779: End If;
780:
781: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
782: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
783: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
784: raise OKE_API.G_EXCEPTION_ERROR;
785: End If;
786:
779: End If;
780:
781: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
782: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
783: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
784: raise OKE_API.G_EXCEPTION_ERROR;
785: End If;
786:
787: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
780:
781: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
782: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
783: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
784: raise OKE_API.G_EXCEPTION_ERROR;
785: End If;
786:
787: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
788: x_msg_data => x_msg_data);
783: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
784: raise OKE_API.G_EXCEPTION_ERROR;
785: End If;
786:
787: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
788: x_msg_data => x_msg_data);
789: EXCEPTION
790: when OKE_API.G_EXCEPTION_ERROR then
791: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
786:
787: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
788: x_msg_data => x_msg_data);
789: EXCEPTION
790: when OKE_API.G_EXCEPTION_ERROR then
791: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
792: p_api_name => l_api_name,
793: p_pkg_name => g_pkg_name,
794: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
787: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
788: x_msg_data => x_msg_data);
789: EXCEPTION
790: when OKE_API.G_EXCEPTION_ERROR then
791: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
792: p_api_name => l_api_name,
793: p_pkg_name => g_pkg_name,
794: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
795: x_msg_count => x_msg_count,
790: when OKE_API.G_EXCEPTION_ERROR then
791: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
792: p_api_name => l_api_name,
793: p_pkg_name => g_pkg_name,
794: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
795: x_msg_count => x_msg_count,
796: x_msg_data => x_msg_data,
797: p_api_type => g_api_type);
798:
795: x_msg_count => x_msg_count,
796: x_msg_data => x_msg_data,
797: p_api_type => g_api_type);
798:
799: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
800: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
801: p_api_name => l_api_name,
802: p_pkg_name => g_pkg_name,
803: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
796: x_msg_data => x_msg_data,
797: p_api_type => g_api_type);
798:
799: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
800: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
801: p_api_name => l_api_name,
802: p_pkg_name => g_pkg_name,
803: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
804: x_msg_count => x_msg_count,
799: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
800: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
801: p_api_name => l_api_name,
802: p_pkg_name => g_pkg_name,
803: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
804: x_msg_count => x_msg_count,
805: x_msg_data => x_msg_data,
806: p_api_type => g_api_type);
807:
805: x_msg_data => x_msg_data,
806: p_api_type => g_api_type);
807:
808: when OKC_API.G_EXCEPTION_ERROR then
809: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
810: p_api_name => l_api_name,
811: p_pkg_name => g_pkg_name,
812: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
813: x_msg_count => x_msg_count,
808: when OKC_API.G_EXCEPTION_ERROR then
809: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
810: p_api_name => l_api_name,
811: p_pkg_name => g_pkg_name,
812: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
813: x_msg_count => x_msg_count,
814: x_msg_data => x_msg_data,
815: p_api_type => g_api_type);
816:
814: x_msg_data => x_msg_data,
815: p_api_type => g_api_type);
816:
817: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
818: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
819: p_api_name => l_api_name,
820: p_pkg_name => g_pkg_name,
821: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
822: x_msg_count => x_msg_count,
817: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
818: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
819: p_api_name => l_api_name,
820: p_pkg_name => g_pkg_name,
821: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
822: x_msg_count => x_msg_count,
823: x_msg_data => x_msg_data,
824: p_api_type => g_api_type);
825:
823: x_msg_data => x_msg_data,
824: p_api_type => g_api_type);
825:
826: when OTHERS then
827: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
828: p_api_name => l_api_name,
829: p_pkg_name => g_pkg_name,
830: p_exc_name => 'OTHERS',
831: x_msg_count => x_msg_count,
835: END delete_contract_header;
836:
837: PROCEDURE validate_contract_header(
838: p_api_version IN NUMBER,
839: p_init_msg_list IN VARCHAR2 DEFAULT OKE_API.G_FALSE,
840: x_return_status OUT NOCOPY VARCHAR2,
841: x_msg_count OUT NOCOPY NUMBER,
842: x_msg_data OUT NOCOPY VARCHAR2,
843: p_chr_rec IN oke_chr_pvt.chr_rec_type,
846: l_chr_rec oke_chr_pvt.chr_rec_type;
847: l_chrv_rec okc_contract_pub.chrv_rec_type;
848: l_api_name CONSTANT VARCHAR2(30) := 'VALIDATE_CONTRACT_HEADER';
849: l_api_version CONSTANT NUMBER := 1.0;
850: l_return_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
851:
852: BEGIN
853: -- call START_ACTIVITY to create savepoint, check compatibility
854: -- and initialize message list
851:
852: BEGIN
853: -- call START_ACTIVITY to create savepoint, check compatibility
854: -- and initialize message list
855: l_return_status := OKE_API.START_ACTIVITY(
856: p_api_name => l_api_name,
857: p_pkg_name => g_pkg_name,
858: p_init_msg_list => p_init_msg_list,
859: l_api_version => l_api_version,
861: p_api_type => g_api_type,
862: x_return_status => x_return_status);
863:
864: -- check if activity started successfully
865: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
866: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
867: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
868: raise OKE_API.G_EXCEPTION_ERROR;
869: End If;
862: x_return_status => x_return_status);
863:
864: -- check if activity started successfully
865: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
866: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
867: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
868: raise OKE_API.G_EXCEPTION_ERROR;
869: End If;
870:
863:
864: -- check if activity started successfully
865: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
866: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
867: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
868: raise OKE_API.G_EXCEPTION_ERROR;
869: End If;
870:
871: -- call BEFORE user hook
864: -- check if activity started successfully
865: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
866: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
867: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
868: raise OKE_API.G_EXCEPTION_ERROR;
869: End If;
870:
871: -- call BEFORE user hook
872: l_chr_rec := p_chr_rec;
907: raise OKC_API.G_EXCEPTION_ERROR;
908: End If;
909:
910: -- end activity
911: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
912: x_msg_data => x_msg_data);
913: EXCEPTION
914: when OKE_API.G_EXCEPTION_ERROR then
915: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
910: -- end activity
911: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
912: x_msg_data => x_msg_data);
913: EXCEPTION
914: when OKE_API.G_EXCEPTION_ERROR then
915: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
916: p_api_name => l_api_name,
917: p_pkg_name => g_pkg_name,
918: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
911: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
912: x_msg_data => x_msg_data);
913: EXCEPTION
914: when OKE_API.G_EXCEPTION_ERROR then
915: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
916: p_api_name => l_api_name,
917: p_pkg_name => g_pkg_name,
918: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
919: x_msg_count => x_msg_count,
914: when OKE_API.G_EXCEPTION_ERROR then
915: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
916: p_api_name => l_api_name,
917: p_pkg_name => g_pkg_name,
918: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
919: x_msg_count => x_msg_count,
920: x_msg_data => x_msg_data,
921: p_api_type => g_api_type);
922:
919: x_msg_count => x_msg_count,
920: x_msg_data => x_msg_data,
921: p_api_type => g_api_type);
922:
923: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
924: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
925: p_api_name => l_api_name,
926: p_pkg_name => g_pkg_name,
927: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
920: x_msg_data => x_msg_data,
921: p_api_type => g_api_type);
922:
923: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
924: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
925: p_api_name => l_api_name,
926: p_pkg_name => g_pkg_name,
927: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
928: x_msg_count => x_msg_count,
923: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
924: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
925: p_api_name => l_api_name,
926: p_pkg_name => g_pkg_name,
927: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
928: x_msg_count => x_msg_count,
929: x_msg_data => x_msg_data,
930: p_api_type => g_api_type);
931:
929: x_msg_data => x_msg_data,
930: p_api_type => g_api_type);
931:
932: when OKC_API.G_EXCEPTION_ERROR then
933: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
934: p_api_name => l_api_name,
935: p_pkg_name => g_pkg_name,
936: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
937: x_msg_count => x_msg_count,
932: when OKC_API.G_EXCEPTION_ERROR then
933: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
934: p_api_name => l_api_name,
935: p_pkg_name => g_pkg_name,
936: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
937: x_msg_count => x_msg_count,
938: x_msg_data => x_msg_data,
939: p_api_type => g_api_type);
940:
938: x_msg_data => x_msg_data,
939: p_api_type => g_api_type);
940:
941: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
942: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
943: p_api_name => l_api_name,
944: p_pkg_name => g_pkg_name,
945: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
946: x_msg_count => x_msg_count,
941: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
942: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
943: p_api_name => l_api_name,
944: p_pkg_name => g_pkg_name,
945: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
946: x_msg_count => x_msg_count,
947: x_msg_data => x_msg_data,
948: p_api_type => g_api_type);
949:
947: x_msg_data => x_msg_data,
948: p_api_type => g_api_type);
949:
950: when OTHERS then
951: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
952: p_api_name => l_api_name,
953: p_pkg_name => g_pkg_name,
954: p_exc_name => 'OTHERS',
955: x_msg_count => x_msg_count,
959: END validate_contract_header;
960:
961: PROCEDURE validate_contract_header(
962: p_api_version IN NUMBER,
963: p_init_msg_list IN VARCHAR2 DEFAULT OKE_API.G_FALSE,
964: x_return_status OUT NOCOPY VARCHAR2,
965: x_msg_count OUT NOCOPY NUMBER,
966: x_msg_data OUT NOCOPY VARCHAR2,
967: p_chr_tbl IN oke_chr_pvt.chr_tbl_type,
969:
970: l_api_name CONSTANT VARCHAR2(30) := 'VALIDATE_CONTRACT_HEADER';
971:
972: l_api_version CONSTANT NUMBER := 1.0;
973: l_return_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
974: l_overall_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
975: i NUMBER;
976: l_chr_tbl oke_chr_pvt.chr_tbl_type := p_chr_tbl;
977: BEGIN
970: l_api_name CONSTANT VARCHAR2(30) := 'VALIDATE_CONTRACT_HEADER';
971:
972: l_api_version CONSTANT NUMBER := 1.0;
973: l_return_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
974: l_overall_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
975: i NUMBER;
976: l_chr_tbl oke_chr_pvt.chr_tbl_type := p_chr_tbl;
977: BEGIN
978: -- call START_ACTIVITY to create savepoint, check compatibility
976: l_chr_tbl oke_chr_pvt.chr_tbl_type := p_chr_tbl;
977: BEGIN
978: -- call START_ACTIVITY to create savepoint, check compatibility
979: -- and initialize message list
980: l_return_status := OKE_API.START_ACTIVITY(
981: p_api_name => l_api_name,
982: p_pkg_name => g_pkg_name,
983: p_init_msg_list => p_init_msg_list,
984: l_api_version => l_api_version,
986: p_api_type => g_api_type,
987: x_return_status => x_return_status);
988:
989: -- check if activity started successfully
990: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
991: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
992: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
993: raise OKE_API.G_EXCEPTION_ERROR;
994: End If;
987: x_return_status => x_return_status);
988:
989: -- check if activity started successfully
990: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
991: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
992: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
993: raise OKE_API.G_EXCEPTION_ERROR;
994: End If;
995:
988:
989: -- check if activity started successfully
990: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
991: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
992: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
993: raise OKE_API.G_EXCEPTION_ERROR;
994: End If;
995:
996: If (p_chrv_tbl.COUNT > 0) Then
989: -- check if activity started successfully
990: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
991: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
992: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
993: raise OKE_API.G_EXCEPTION_ERROR;
994: End If;
995:
996: If (p_chrv_tbl.COUNT > 0) Then
997: i := p_chrv_tbl.FIRST;
1022: x_msg_count => x_msg_count,
1023: x_msg_data => x_msg_data,
1024: p_chr_rec => l_chr_tbl(i));
1025:
1026: If x_return_status <> OKE_API.G_RET_STS_SUCCESS Then
1027: If l_overall_status <> OKE_API.G_RET_STS_UNEXP_ERROR Then
1028: l_overall_status := x_return_status;
1029: End If;
1030: End If;
1023: x_msg_data => x_msg_data,
1024: p_chr_rec => l_chr_tbl(i));
1025:
1026: If x_return_status <> OKE_API.G_RET_STS_SUCCESS Then
1027: If l_overall_status <> OKE_API.G_RET_STS_UNEXP_ERROR Then
1028: l_overall_status := x_return_status;
1029: End If;
1030: End If;
1031:
1036: -- return overall status
1037: x_return_status := l_overall_status;
1038: End If;
1039:
1040: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
1041: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1042: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
1043: raise OKE_API.G_EXCEPTION_ERROR;
1044: End If;
1037: x_return_status := l_overall_status;
1038: End If;
1039:
1040: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
1041: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1042: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
1043: raise OKE_API.G_EXCEPTION_ERROR;
1044: End If;
1045:
1038: End If;
1039:
1040: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
1041: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1042: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
1043: raise OKE_API.G_EXCEPTION_ERROR;
1044: End If;
1045:
1046: -- end activity
1039:
1040: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
1041: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1042: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
1043: raise OKE_API.G_EXCEPTION_ERROR;
1044: End If;
1045:
1046: -- end activity
1047: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
1043: raise OKE_API.G_EXCEPTION_ERROR;
1044: End If;
1045:
1046: -- end activity
1047: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
1048: x_msg_data => x_msg_data);
1049: EXCEPTION
1050: when OKE_API.G_EXCEPTION_ERROR then
1051: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1046: -- end activity
1047: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
1048: x_msg_data => x_msg_data);
1049: EXCEPTION
1050: when OKE_API.G_EXCEPTION_ERROR then
1051: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1052: p_api_name => l_api_name,
1053: p_pkg_name => g_pkg_name,
1054: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
1047: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
1048: x_msg_data => x_msg_data);
1049: EXCEPTION
1050: when OKE_API.G_EXCEPTION_ERROR then
1051: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1052: p_api_name => l_api_name,
1053: p_pkg_name => g_pkg_name,
1054: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
1055: x_msg_count => x_msg_count,
1050: when OKE_API.G_EXCEPTION_ERROR then
1051: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1052: p_api_name => l_api_name,
1053: p_pkg_name => g_pkg_name,
1054: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
1055: x_msg_count => x_msg_count,
1056: x_msg_data => x_msg_data,
1057: p_api_type => g_api_type);
1058:
1055: x_msg_count => x_msg_count,
1056: x_msg_data => x_msg_data,
1057: p_api_type => g_api_type);
1058:
1059: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
1060: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1061: p_api_name => l_api_name,
1062: p_pkg_name => g_pkg_name,
1063: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
1056: x_msg_data => x_msg_data,
1057: p_api_type => g_api_type);
1058:
1059: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
1060: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1061: p_api_name => l_api_name,
1062: p_pkg_name => g_pkg_name,
1063: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
1064: x_msg_count => x_msg_count,
1059: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
1060: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1061: p_api_name => l_api_name,
1062: p_pkg_name => g_pkg_name,
1063: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
1064: x_msg_count => x_msg_count,
1065: x_msg_data => x_msg_data,
1066: p_api_type => g_api_type);
1067:
1065: x_msg_data => x_msg_data,
1066: p_api_type => g_api_type);
1067:
1068: when OKC_API.G_EXCEPTION_ERROR then
1069: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1070: p_api_name => l_api_name,
1071: p_pkg_name => g_pkg_name,
1072: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
1073: x_msg_count => x_msg_count,
1068: when OKC_API.G_EXCEPTION_ERROR then
1069: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1070: p_api_name => l_api_name,
1071: p_pkg_name => g_pkg_name,
1072: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
1073: x_msg_count => x_msg_count,
1074: x_msg_data => x_msg_data,
1075: p_api_type => g_api_type);
1076:
1074: x_msg_data => x_msg_data,
1075: p_api_type => g_api_type);
1076:
1077: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
1078: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1079: p_api_name => l_api_name,
1080: p_pkg_name => g_pkg_name,
1081: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
1082: x_msg_count => x_msg_count,
1077: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
1078: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1079: p_api_name => l_api_name,
1080: p_pkg_name => g_pkg_name,
1081: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
1082: x_msg_count => x_msg_count,
1083: x_msg_data => x_msg_data,
1084: p_api_type => g_api_type);
1085:
1083: x_msg_data => x_msg_data,
1084: p_api_type => g_api_type);
1085:
1086: when OTHERS then
1087: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1088: p_api_name => l_api_name,
1089: p_pkg_name => g_pkg_name,
1090: p_exc_name => 'OTHERS',
1091: x_msg_count => x_msg_count,
1095: END validate_contract_header;
1096:
1097: PROCEDURE create_contract_line(
1098: p_api_version IN NUMBER,
1099: p_init_msg_list IN VARCHAR2 DEFAULT OKE_API.G_FALSE,
1100: x_return_status OUT NOCOPY VARCHAR2,
1101: x_msg_count OUT NOCOPY NUMBER,
1102: x_msg_data OUT NOCOPY VARCHAR2,
1103: p_restricted_update IN VARCHAR2 DEFAULT OKE_API.G_TRUE,
1099: p_init_msg_list IN VARCHAR2 DEFAULT OKE_API.G_FALSE,
1100: x_return_status OUT NOCOPY VARCHAR2,
1101: x_msg_count OUT NOCOPY NUMBER,
1102: x_msg_data OUT NOCOPY VARCHAR2,
1103: p_restricted_update IN VARCHAR2 DEFAULT OKE_API.G_TRUE,
1104: p_cle_rec IN oke_cle_pvt.cle_rec_type,
1105: p_clev_rec IN okc_contract_pub.clev_rec_type,
1106: x_cle_rec OUT NOCOPY oke_cle_pvt.cle_rec_type,
1107: x_clev_rec OUT NOCOPY okc_contract_pub.clev_rec_type) IS
1109: l_cle_rec oke_cle_pvt.cle_rec_type;
1110: l_clev_rec okc_contract_pub.clev_rec_type;
1111: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_CONTRACT_LINE';
1112: l_api_version CONSTANT NUMBER := 1.0;
1113: l_return_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
1114: --bug 9354391 changed length of line_number to 150 as per table
1115: l_line_number VARCHAR2(150);
1116:
1117: l_sts_code OKC_ASSENTS.STS_CODE%TYPE;
1132:
1133: BEGIN
1134: -- call START_ACTIVITY to create savepoint, check compatibility
1135: -- and initialize message list
1136: l_return_status := OKE_API.START_ACTIVITY(
1137: p_api_name => l_api_name,
1138: p_pkg_name => g_pkg_name,
1139: p_init_msg_list => p_init_msg_list,
1140: l_api_version => l_api_version,
1142: p_api_type => g_api_type,
1143: x_return_status => x_return_status);
1144:
1145: -- check if activity started successfully
1146: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
1147: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1148: Elsif (l_return_status = OKC_API.G_RET_STS_ERROR) then
1149: raise OKE_API.G_EXCEPTION_ERROR;
1150:
1143: x_return_status => x_return_status);
1144:
1145: -- check if activity started successfully
1146: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
1147: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1148: Elsif (l_return_status = OKC_API.G_RET_STS_ERROR) then
1149: raise OKE_API.G_EXCEPTION_ERROR;
1150:
1151: End If;
1145: -- check if activity started successfully
1146: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
1147: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1148: Elsif (l_return_status = OKC_API.G_RET_STS_ERROR) then
1149: raise OKE_API.G_EXCEPTION_ERROR;
1150:
1151: End If;
1152:
1153: l_cle_rec := p_cle_rec;
1229: x_msg_data => x_msg_data,
1230: p_cle_rec => l_cle_rec,
1231: x_cle_rec => x_cle_rec);
1232:
1233: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
1234: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1235: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
1236: raise OKE_API.G_EXCEPTION_ERROR;
1237: End If;
1230: p_cle_rec => l_cle_rec,
1231: x_cle_rec => x_cle_rec);
1232:
1233: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
1234: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1235: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
1236: raise OKE_API.G_EXCEPTION_ERROR;
1237: End If;
1238:
1231: x_cle_rec => x_cle_rec);
1232:
1233: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
1234: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1235: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
1236: raise OKE_API.G_EXCEPTION_ERROR;
1237: End If;
1238:
1239:
1232:
1233: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
1234: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1235: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
1236: raise OKE_API.G_EXCEPTION_ERROR;
1237: End If;
1238:
1239:
1240: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
1236: raise OKE_API.G_EXCEPTION_ERROR;
1237: End If;
1238:
1239:
1240: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
1241: x_msg_data => x_msg_data);
1242: EXCEPTION
1243: when OKE_API.G_EXCEPTION_ERROR then
1244: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1239:
1240: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
1241: x_msg_data => x_msg_data);
1242: EXCEPTION
1243: when OKE_API.G_EXCEPTION_ERROR then
1244: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1245: p_api_name => l_api_name,
1246: p_pkg_name => g_pkg_name,
1247: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
1240: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
1241: x_msg_data => x_msg_data);
1242: EXCEPTION
1243: when OKE_API.G_EXCEPTION_ERROR then
1244: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1245: p_api_name => l_api_name,
1246: p_pkg_name => g_pkg_name,
1247: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
1248: x_msg_count => x_msg_count,
1243: when OKE_API.G_EXCEPTION_ERROR then
1244: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1245: p_api_name => l_api_name,
1246: p_pkg_name => g_pkg_name,
1247: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
1248: x_msg_count => x_msg_count,
1249: x_msg_data => x_msg_data,
1250: p_api_type => g_api_type);
1251:
1248: x_msg_count => x_msg_count,
1249: x_msg_data => x_msg_data,
1250: p_api_type => g_api_type);
1251:
1252: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
1253: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1254: p_api_name => l_api_name,
1255: p_pkg_name => g_pkg_name,
1256: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
1249: x_msg_data => x_msg_data,
1250: p_api_type => g_api_type);
1251:
1252: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
1253: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1254: p_api_name => l_api_name,
1255: p_pkg_name => g_pkg_name,
1256: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
1257: x_msg_count => x_msg_count,
1252: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
1253: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1254: p_api_name => l_api_name,
1255: p_pkg_name => g_pkg_name,
1256: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
1257: x_msg_count => x_msg_count,
1258: x_msg_data => x_msg_data,
1259: p_api_type => g_api_type);
1260:
1258: x_msg_data => x_msg_data,
1259: p_api_type => g_api_type);
1260:
1261: when OKC_API.G_EXCEPTION_ERROR then
1262: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1263: p_api_name => l_api_name,
1264: p_pkg_name => g_pkg_name,
1265: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
1266: x_msg_count => x_msg_count,
1261: when OKC_API.G_EXCEPTION_ERROR then
1262: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1263: p_api_name => l_api_name,
1264: p_pkg_name => g_pkg_name,
1265: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
1266: x_msg_count => x_msg_count,
1267: x_msg_data => x_msg_data,
1268: p_api_type => g_api_type);
1269:
1267: x_msg_data => x_msg_data,
1268: p_api_type => g_api_type);
1269:
1270: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
1271: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1272: p_api_name => l_api_name,
1273: p_pkg_name => g_pkg_name,
1274: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
1275: x_msg_count => x_msg_count,
1270: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
1271: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1272: p_api_name => l_api_name,
1273: p_pkg_name => g_pkg_name,
1274: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
1275: x_msg_count => x_msg_count,
1276: x_msg_data => x_msg_data,
1277: p_api_type => g_api_type);
1278:
1276: x_msg_data => x_msg_data,
1277: p_api_type => g_api_type);
1278:
1279: when OTHERS then
1280: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1281: p_api_name => l_api_name,
1282: p_pkg_name => g_pkg_name,
1283: p_exc_name => 'OTHERS',
1284: x_msg_count => x_msg_count,
1288: END create_contract_line;
1289:
1290: PROCEDURE create_contract_line(
1291: p_api_version IN NUMBER,
1292: p_init_msg_list IN VARCHAR2 DEFAULT OKE_API.G_FALSE,
1293: x_return_status OUT NOCOPY VARCHAR2,
1294: x_msg_count OUT NOCOPY NUMBER,
1295: x_msg_data OUT NOCOPY VARCHAR2,
1296: p_restricted_update IN VARCHAR2 DEFAULT OKE_API.G_TRUE,
1292: p_init_msg_list IN VARCHAR2 DEFAULT OKE_API.G_FALSE,
1293: x_return_status OUT NOCOPY VARCHAR2,
1294: x_msg_count OUT NOCOPY NUMBER,
1295: x_msg_data OUT NOCOPY VARCHAR2,
1296: p_restricted_update IN VARCHAR2 DEFAULT OKE_API.G_TRUE,
1297: p_cle_tbl IN oke_cle_pvt.cle_tbl_type,
1298: p_clev_tbl IN okc_contract_pub.clev_tbl_type,
1299: x_cle_tbl OUT NOCOPY oke_cle_pvt.cle_tbl_type,
1300: x_clev_tbl OUT NOCOPY okc_contract_pub.clev_tbl_type) IS
1300: x_clev_tbl OUT NOCOPY okc_contract_pub.clev_tbl_type) IS
1301:
1302: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_CONTRACT_LINE';
1303: l_api_version CONSTANT NUMBER := 1.0;
1304: l_return_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
1305: l_overall_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
1306: i NUMBER;
1307: l_cle_tbl oke_cle_pvt.cle_tbl_type;
1308: BEGIN
1301:
1302: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_CONTRACT_LINE';
1303: l_api_version CONSTANT NUMBER := 1.0;
1304: l_return_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
1305: l_overall_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
1306: i NUMBER;
1307: l_cle_tbl oke_cle_pvt.cle_tbl_type;
1308: BEGIN
1309:
1308: BEGIN
1309:
1310: -- call START_ACTIVITY to create savepoint, check compatibility
1311: -- and initialize message list
1312: l_return_status := OKE_API.START_ACTIVITY(
1313: p_api_name => l_api_name,
1314: p_pkg_name => g_pkg_name,
1315: p_init_msg_list => p_init_msg_list,
1316: l_api_version => l_api_version,
1318: p_api_type => g_api_type,
1319: x_return_status => x_return_status);
1320:
1321: -- check if activity started successfully
1322: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
1323: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1324: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
1325: raise OKE_API.G_EXCEPTION_ERROR;
1326:
1319: x_return_status => x_return_status);
1320:
1321: -- check if activity started successfully
1322: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
1323: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1324: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
1325: raise OKE_API.G_EXCEPTION_ERROR;
1326:
1327: End If;
1320:
1321: -- check if activity started successfully
1322: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
1323: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1324: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
1325: raise OKE_API.G_EXCEPTION_ERROR;
1326:
1327: End If;
1328:
1321: -- check if activity started successfully
1322: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
1323: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1324: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
1325: raise OKE_API.G_EXCEPTION_ERROR;
1326:
1327: End If;
1328:
1329: If (p_clev_tbl.COUNT > 0) Then
1342: x_cle_rec => x_cle_tbl(i),
1343: x_clev_rec => x_clev_tbl(i));
1344:
1345: -- store the highest degree of error
1346: If x_return_status <> OKE_API.G_RET_STS_SUCCESS Then
1347: If l_overall_status <> OKE_API.G_RET_STS_UNEXP_ERROR Then
1348: l_overall_status := x_return_status;
1349: End If;
1350: End If;
1343: x_clev_rec => x_clev_tbl(i));
1344:
1345: -- store the highest degree of error
1346: If x_return_status <> OKE_API.G_RET_STS_SUCCESS Then
1347: If l_overall_status <> OKE_API.G_RET_STS_UNEXP_ERROR Then
1348: l_overall_status := x_return_status;
1349: End If;
1350: End If;
1351:
1356: -- return overall status
1357: x_return_status := l_overall_status;
1358: End If;
1359:
1360: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
1361: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1362: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
1363: raise OKE_API.G_EXCEPTION_ERROR;
1364: End If;
1357: x_return_status := l_overall_status;
1358: End If;
1359:
1360: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
1361: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1362: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
1363: raise OKE_API.G_EXCEPTION_ERROR;
1364: End If;
1365:
1358: End If;
1359:
1360: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
1361: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1362: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
1363: raise OKE_API.G_EXCEPTION_ERROR;
1364: End If;
1365:
1366: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
1359:
1360: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
1361: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1362: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
1363: raise OKE_API.G_EXCEPTION_ERROR;
1364: End If;
1365:
1366: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
1367: x_msg_data => x_msg_data);
1362: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
1363: raise OKE_API.G_EXCEPTION_ERROR;
1364: End If;
1365:
1366: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
1367: x_msg_data => x_msg_data);
1368: EXCEPTION
1369: when OKE_API.G_EXCEPTION_ERROR then
1370: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1365:
1366: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
1367: x_msg_data => x_msg_data);
1368: EXCEPTION
1369: when OKE_API.G_EXCEPTION_ERROR then
1370: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1371: p_api_name => l_api_name,
1372: p_pkg_name => g_pkg_name,
1373: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
1366: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
1367: x_msg_data => x_msg_data);
1368: EXCEPTION
1369: when OKE_API.G_EXCEPTION_ERROR then
1370: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1371: p_api_name => l_api_name,
1372: p_pkg_name => g_pkg_name,
1373: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
1374: x_msg_count => x_msg_count,
1369: when OKE_API.G_EXCEPTION_ERROR then
1370: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1371: p_api_name => l_api_name,
1372: p_pkg_name => g_pkg_name,
1373: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
1374: x_msg_count => x_msg_count,
1375: x_msg_data => x_msg_data,
1376: p_api_type => g_api_type);
1377:
1374: x_msg_count => x_msg_count,
1375: x_msg_data => x_msg_data,
1376: p_api_type => g_api_type);
1377:
1378: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
1379: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1380: p_api_name => l_api_name,
1381: p_pkg_name => g_pkg_name,
1382: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
1375: x_msg_data => x_msg_data,
1376: p_api_type => g_api_type);
1377:
1378: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
1379: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1380: p_api_name => l_api_name,
1381: p_pkg_name => g_pkg_name,
1382: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
1383: x_msg_count => x_msg_count,
1378: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
1379: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1380: p_api_name => l_api_name,
1381: p_pkg_name => g_pkg_name,
1382: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
1383: x_msg_count => x_msg_count,
1384: x_msg_data => x_msg_data,
1385: p_api_type => g_api_type);
1386:
1384: x_msg_data => x_msg_data,
1385: p_api_type => g_api_type);
1386:
1387: when OTHERS then
1388: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1389: p_api_name => l_api_name,
1390: p_pkg_name => g_pkg_name,
1391: p_exc_name => 'OTHERS',
1392: x_msg_count => x_msg_count,
1396: END create_contract_line;
1397:
1398: PROCEDURE update_contract_line(
1399: p_api_version IN NUMBER,
1400: p_init_msg_list IN VARCHAR2 DEFAULT OKE_API.G_FALSE,
1401: x_return_status OUT NOCOPY VARCHAR2,
1402: x_msg_count OUT NOCOPY NUMBER,
1403: x_msg_data OUT NOCOPY VARCHAR2,
1404: p_restricted_update IN VARCHAR2 DEFAULT OKE_API.G_TRUE,
1400: p_init_msg_list IN VARCHAR2 DEFAULT OKE_API.G_FALSE,
1401: x_return_status OUT NOCOPY VARCHAR2,
1402: x_msg_count OUT NOCOPY NUMBER,
1403: x_msg_data OUT NOCOPY VARCHAR2,
1404: p_restricted_update IN VARCHAR2 DEFAULT OKE_API.G_TRUE,
1405: p_cle_rec IN oke_cle_pvt.cle_rec_type,
1406: p_clev_rec IN okc_contract_pub.clev_rec_type,
1407: x_cle_rec OUT NOCOPY oke_cle_pvt.cle_rec_type,
1408: x_clev_rec OUT NOCOPY okc_contract_pub.clev_rec_type) IS
1408: x_clev_rec OUT NOCOPY okc_contract_pub.clev_rec_type) IS
1409:
1410: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_CONTRACT_LINE';
1411: l_api_version CONSTANT NUMBER := 1.0;
1412: l_return_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
1413: BEGIN
1414: -- call START_ACTIVITY to create savepoint, check compatibility
1415: -- and initialize message list
1416:
1414: -- call START_ACTIVITY to create savepoint, check compatibility
1415: -- and initialize message list
1416:
1417:
1418: l_return_status := OKE_API.START_ACTIVITY(
1419: p_api_name => l_api_name,
1420: p_pkg_name => g_pkg_name,
1421: p_init_msg_list => p_init_msg_list,
1422: l_api_version => l_api_version,
1424: p_api_type => g_api_type,
1425: x_return_status => x_return_status);
1426:
1427: -- check if activity started successfully
1428: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
1429: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1430: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
1431: raise OKE_API.G_EXCEPTION_ERROR;
1432: End If;
1425: x_return_status => x_return_status);
1426:
1427: -- check if activity started successfully
1428: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
1429: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1430: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
1431: raise OKE_API.G_EXCEPTION_ERROR;
1432: End If;
1433:
1426:
1427: -- check if activity started successfully
1428: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
1429: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1430: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
1431: raise OKE_API.G_EXCEPTION_ERROR;
1432: End If;
1433:
1434: -- call procedure in complex API
1427: -- check if activity started successfully
1428: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
1429: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1430: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
1431: raise OKE_API.G_EXCEPTION_ERROR;
1432: End If;
1433:
1434: -- call procedure in complex API
1435: OKC_CONTRACT_PUB.update_contract_line(
1459: x_msg_data => x_msg_data,
1460: p_cle_rec => p_cle_rec,
1461: x_cle_rec => x_cle_rec);
1462:
1463: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
1464: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1465: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
1466: raise OKE_API.G_EXCEPTION_ERROR;
1467: End If;
1460: p_cle_rec => p_cle_rec,
1461: x_cle_rec => x_cle_rec);
1462:
1463: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
1464: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1465: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
1466: raise OKE_API.G_EXCEPTION_ERROR;
1467: End If;
1468:
1461: x_cle_rec => x_cle_rec);
1462:
1463: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
1464: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1465: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
1466: raise OKE_API.G_EXCEPTION_ERROR;
1467: End If;
1468:
1469: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
1462:
1463: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
1464: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1465: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
1466: raise OKE_API.G_EXCEPTION_ERROR;
1467: End If;
1468:
1469: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
1470: x_msg_data => x_msg_data);
1465: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
1466: raise OKE_API.G_EXCEPTION_ERROR;
1467: End If;
1468:
1469: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
1470: x_msg_data => x_msg_data);
1471: EXCEPTION
1472: when OKE_API.G_EXCEPTION_ERROR then
1473: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1468:
1469: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
1470: x_msg_data => x_msg_data);
1471: EXCEPTION
1472: when OKE_API.G_EXCEPTION_ERROR then
1473: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1474: p_api_name => l_api_name,
1475: p_pkg_name => g_pkg_name,
1476: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
1469: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
1470: x_msg_data => x_msg_data);
1471: EXCEPTION
1472: when OKE_API.G_EXCEPTION_ERROR then
1473: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1474: p_api_name => l_api_name,
1475: p_pkg_name => g_pkg_name,
1476: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
1477: x_msg_count => x_msg_count,
1472: when OKE_API.G_EXCEPTION_ERROR then
1473: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1474: p_api_name => l_api_name,
1475: p_pkg_name => g_pkg_name,
1476: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
1477: x_msg_count => x_msg_count,
1478: x_msg_data => x_msg_data,
1479: p_api_type => g_api_type);
1480:
1477: x_msg_count => x_msg_count,
1478: x_msg_data => x_msg_data,
1479: p_api_type => g_api_type);
1480:
1481: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
1482: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1483: p_api_name => l_api_name,
1484: p_pkg_name => g_pkg_name,
1485: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
1478: x_msg_data => x_msg_data,
1479: p_api_type => g_api_type);
1480:
1481: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
1482: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1483: p_api_name => l_api_name,
1484: p_pkg_name => g_pkg_name,
1485: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
1486: x_msg_count => x_msg_count,
1481: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
1482: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1483: p_api_name => l_api_name,
1484: p_pkg_name => g_pkg_name,
1485: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
1486: x_msg_count => x_msg_count,
1487: x_msg_data => x_msg_data,
1488: p_api_type => g_api_type);
1489:
1487: x_msg_data => x_msg_data,
1488: p_api_type => g_api_type);
1489:
1490: when OKC_API.G_EXCEPTION_ERROR then
1491: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1492: p_api_name => l_api_name,
1493: p_pkg_name => g_pkg_name,
1494: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
1495: x_msg_count => x_msg_count,
1490: when OKC_API.G_EXCEPTION_ERROR then
1491: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1492: p_api_name => l_api_name,
1493: p_pkg_name => g_pkg_name,
1494: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
1495: x_msg_count => x_msg_count,
1496: x_msg_data => x_msg_data,
1497: p_api_type => g_api_type);
1498:
1496: x_msg_data => x_msg_data,
1497: p_api_type => g_api_type);
1498:
1499: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
1500: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1501: p_api_name => l_api_name,
1502: p_pkg_name => g_pkg_name,
1503: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
1504: x_msg_count => x_msg_count,
1499: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
1500: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1501: p_api_name => l_api_name,
1502: p_pkg_name => g_pkg_name,
1503: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
1504: x_msg_count => x_msg_count,
1505: x_msg_data => x_msg_data,
1506: p_api_type => g_api_type);
1507:
1505: x_msg_data => x_msg_data,
1506: p_api_type => g_api_type);
1507:
1508: when OTHERS then
1509: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1510: p_api_name => l_api_name,
1511: p_pkg_name => g_pkg_name,
1512: p_exc_name => 'OTHERS',
1513: x_msg_count => x_msg_count,
1517: END update_contract_line;
1518:
1519: PROCEDURE update_contract_line(
1520: p_api_version IN NUMBER,
1521: p_init_msg_list IN VARCHAR2 DEFAULT OKE_API.G_FALSE,
1522: x_return_status OUT NOCOPY VARCHAR2,
1523: x_msg_count OUT NOCOPY NUMBER,
1524: x_msg_data OUT NOCOPY VARCHAR2,
1525: p_restricted_update IN VARCHAR2 DEFAULT OKE_API.G_TRUE,
1521: p_init_msg_list IN VARCHAR2 DEFAULT OKE_API.G_FALSE,
1522: x_return_status OUT NOCOPY VARCHAR2,
1523: x_msg_count OUT NOCOPY NUMBER,
1524: x_msg_data OUT NOCOPY VARCHAR2,
1525: p_restricted_update IN VARCHAR2 DEFAULT OKE_API.G_TRUE,
1526: p_cle_tbl IN oke_cle_pvt.cle_tbl_type,
1527: p_clev_tbl IN okc_contract_pub.clev_tbl_type,
1528: x_cle_tbl OUT NOCOPY oke_cle_pvt.cle_tbl_type,
1529: x_clev_tbl OUT NOCOPY okc_contract_pub.clev_tbl_type) IS
1529: x_clev_tbl OUT NOCOPY okc_contract_pub.clev_tbl_type) IS
1530:
1531: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_CONTRACT_HEADER';
1532: l_api_version CONSTANT NUMBER := 1.0;
1533: l_return_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
1534: l_overall_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
1535: i NUMBER;
1536: BEGIN
1537: -- call START_ACTIVITY to create savepoint, check compatibility
1530:
1531: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_CONTRACT_HEADER';
1532: l_api_version CONSTANT NUMBER := 1.0;
1533: l_return_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
1534: l_overall_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
1535: i NUMBER;
1536: BEGIN
1537: -- call START_ACTIVITY to create savepoint, check compatibility
1538: -- and initialize message list
1536: BEGIN
1537: -- call START_ACTIVITY to create savepoint, check compatibility
1538: -- and initialize message list
1539:
1540: l_return_status := OKE_API.START_ACTIVITY(
1541: p_api_name => l_api_name,
1542: p_pkg_name => g_pkg_name,
1543: p_init_msg_list => p_init_msg_list,
1544: l_api_version => l_api_version,
1546: p_api_type => g_api_type,
1547: x_return_status => x_return_status);
1548:
1549: -- check if activity started successfully
1550: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
1551: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1552: Elsif (l_return_status = OKC_API.G_RET_STS_ERROR) then
1553: raise OKE_API.G_EXCEPTION_ERROR;
1554:
1547: x_return_status => x_return_status);
1548:
1549: -- check if activity started successfully
1550: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
1551: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1552: Elsif (l_return_status = OKC_API.G_RET_STS_ERROR) then
1553: raise OKE_API.G_EXCEPTION_ERROR;
1554:
1555: End If;
1549: -- check if activity started successfully
1550: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
1551: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1552: Elsif (l_return_status = OKC_API.G_RET_STS_ERROR) then
1553: raise OKE_API.G_EXCEPTION_ERROR;
1554:
1555: End If;
1556:
1557: If (p_clev_tbl.COUNT > 0) Then
1570: x_cle_rec => x_cle_tbl(i),
1571: x_clev_rec => x_clev_tbl(i));
1572:
1573: -- store the highest degree of error
1574: If x_return_status <> OKE_API.G_RET_STS_SUCCESS Then
1575: If l_overall_status <> OKE_API.G_RET_STS_UNEXP_ERROR Then
1576: l_overall_status := x_return_status;
1577: End If;
1578: End If;
1571: x_clev_rec => x_clev_tbl(i));
1572:
1573: -- store the highest degree of error
1574: If x_return_status <> OKE_API.G_RET_STS_SUCCESS Then
1575: If l_overall_status <> OKE_API.G_RET_STS_UNEXP_ERROR Then
1576: l_overall_status := x_return_status;
1577: End If;
1578: End If;
1579:
1584: -- return overall status
1585: x_return_status := l_overall_status;
1586: End If;
1587:
1588: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
1589: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1590: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
1591: raise OKE_API.G_EXCEPTION_ERROR;
1592: End If;
1585: x_return_status := l_overall_status;
1586: End If;
1587:
1588: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
1589: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1590: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
1591: raise OKE_API.G_EXCEPTION_ERROR;
1592: End If;
1593:
1586: End If;
1587:
1588: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
1589: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1590: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
1591: raise OKE_API.G_EXCEPTION_ERROR;
1592: End If;
1593:
1594: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
1587:
1588: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
1589: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1590: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
1591: raise OKE_API.G_EXCEPTION_ERROR;
1592: End If;
1593:
1594: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
1595: x_msg_data => x_msg_data);
1590: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
1591: raise OKE_API.G_EXCEPTION_ERROR;
1592: End If;
1593:
1594: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
1595: x_msg_data => x_msg_data);
1596: EXCEPTION
1597: when OKE_API.G_EXCEPTION_ERROR then
1598: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1593:
1594: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
1595: x_msg_data => x_msg_data);
1596: EXCEPTION
1597: when OKE_API.G_EXCEPTION_ERROR then
1598: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1599: p_api_name => l_api_name,
1600: p_pkg_name => g_pkg_name,
1601: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
1594: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
1595: x_msg_data => x_msg_data);
1596: EXCEPTION
1597: when OKE_API.G_EXCEPTION_ERROR then
1598: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1599: p_api_name => l_api_name,
1600: p_pkg_name => g_pkg_name,
1601: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
1602: x_msg_count => x_msg_count,
1597: when OKE_API.G_EXCEPTION_ERROR then
1598: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1599: p_api_name => l_api_name,
1600: p_pkg_name => g_pkg_name,
1601: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
1602: x_msg_count => x_msg_count,
1603: x_msg_data => x_msg_data,
1604: p_api_type => g_api_type);
1605:
1602: x_msg_count => x_msg_count,
1603: x_msg_data => x_msg_data,
1604: p_api_type => g_api_type);
1605:
1606: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
1607: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1608: p_api_name => l_api_name,
1609: p_pkg_name => g_pkg_name,
1610: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
1603: x_msg_data => x_msg_data,
1604: p_api_type => g_api_type);
1605:
1606: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
1607: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1608: p_api_name => l_api_name,
1609: p_pkg_name => g_pkg_name,
1610: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
1611: x_msg_count => x_msg_count,
1606: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
1607: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1608: p_api_name => l_api_name,
1609: p_pkg_name => g_pkg_name,
1610: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
1611: x_msg_count => x_msg_count,
1612: x_msg_data => x_msg_data,
1613: p_api_type => g_api_type);
1614:
1612: x_msg_data => x_msg_data,
1613: p_api_type => g_api_type);
1614:
1615: when OTHERS then
1616: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1617: p_api_name => l_api_name,
1618: p_pkg_name => g_pkg_name,
1619: p_exc_name => 'OTHERS',
1620: x_msg_count => x_msg_count,
1625:
1626: PROCEDURE delete_contract_line(
1627:
1628: p_api_version IN NUMBER,
1629: p_init_msg_list IN VARCHAR2 DEFAULT OKE_API.G_FALSE,
1630: x_return_status OUT NOCOPY VARCHAR2,
1631: x_msg_count OUT NOCOPY NUMBER,
1632: x_msg_data OUT NOCOPY VARCHAR2,
1633: p_cle_rec IN oke_cle_pvt.cle_rec_type,
1636: l_cle_rec oke_cle_pvt.cle_rec_type;
1637: l_clev_rec okc_contract_pub.clev_rec_type;
1638: l_api_name CONSTANT VARCHAR2(30) := 'DELETE_CONTRACT_LINE';
1639: l_api_version CONSTANT NUMBER := 1.0;
1640: l_return_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
1641: BEGIN
1642: -- call START_ACTIVITY to create savepoint, check compatibility
1643: -- and initialize message list
1644: l_return_status := OKE_API.START_ACTIVITY(
1640: l_return_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
1641: BEGIN
1642: -- call START_ACTIVITY to create savepoint, check compatibility
1643: -- and initialize message list
1644: l_return_status := OKE_API.START_ACTIVITY(
1645: p_api_name => l_api_name,
1646: p_pkg_name => g_pkg_name,
1647: p_init_msg_list => p_init_msg_list,
1648: l_api_version => l_api_version,
1650: p_api_type => g_api_type,
1651: x_return_status => x_return_status);
1652:
1653: -- check if activity started successfully
1654: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
1655: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1656: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
1657: raise OKE_API.G_EXCEPTION_ERROR;
1658: End If;
1651: x_return_status => x_return_status);
1652:
1653: -- check if activity started successfully
1654: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
1655: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1656: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
1657: raise OKE_API.G_EXCEPTION_ERROR;
1658: End If;
1659:
1652:
1653: -- check if activity started successfully
1654: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
1655: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1656: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
1657: raise OKE_API.G_EXCEPTION_ERROR;
1658: End If;
1659:
1660: l_cle_rec := p_cle_rec;
1653: -- check if activity started successfully
1654: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
1655: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1656: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
1657: raise OKE_API.G_EXCEPTION_ERROR;
1658: End If;
1659:
1660: l_cle_rec := p_cle_rec;
1661: l_clev_rec := p_clev_rec;
1669: x_msg_count => x_msg_count,
1670: x_msg_data => x_msg_data,
1671: p_cle_rec => l_cle_rec);
1672:
1673: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
1674: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1675: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
1676: raise OKE_API.G_EXCEPTION_ERROR;
1677: End If;
1670: x_msg_data => x_msg_data,
1671: p_cle_rec => l_cle_rec);
1672:
1673: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
1674: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1675: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
1676: raise OKE_API.G_EXCEPTION_ERROR;
1677: End If;
1678:
1671: p_cle_rec => l_cle_rec);
1672:
1673: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
1674: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1675: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
1676: raise OKE_API.G_EXCEPTION_ERROR;
1677: End If;
1678:
1679: -- call procedure in complex API
1672:
1673: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
1674: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1675: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
1676: raise OKE_API.G_EXCEPTION_ERROR;
1677: End If;
1678:
1679: -- call procedure in complex API
1680: OKC_CONTRACT_PUB.delete_contract_line(
1691: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1692: raise OKC_API.G_EXCEPTION_ERROR;
1693: End If;
1694:
1695: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
1696: x_msg_data => x_msg_data);
1697: EXCEPTION
1698: when OKE_API.G_EXCEPTION_ERROR then
1699: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1694:
1695: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
1696: x_msg_data => x_msg_data);
1697: EXCEPTION
1698: when OKE_API.G_EXCEPTION_ERROR then
1699: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1700: p_api_name => l_api_name,
1701: p_pkg_name => g_pkg_name,
1702: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
1695: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
1696: x_msg_data => x_msg_data);
1697: EXCEPTION
1698: when OKE_API.G_EXCEPTION_ERROR then
1699: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1700: p_api_name => l_api_name,
1701: p_pkg_name => g_pkg_name,
1702: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
1703: x_msg_count => x_msg_count,
1698: when OKE_API.G_EXCEPTION_ERROR then
1699: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1700: p_api_name => l_api_name,
1701: p_pkg_name => g_pkg_name,
1702: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
1703: x_msg_count => x_msg_count,
1704: x_msg_data => x_msg_data,
1705: p_api_type => g_api_type);
1706:
1703: x_msg_count => x_msg_count,
1704: x_msg_data => x_msg_data,
1705: p_api_type => g_api_type);
1706:
1707: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
1708: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1709: p_api_name => l_api_name,
1710: p_pkg_name => g_pkg_name,
1711: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
1704: x_msg_data => x_msg_data,
1705: p_api_type => g_api_type);
1706:
1707: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
1708: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1709: p_api_name => l_api_name,
1710: p_pkg_name => g_pkg_name,
1711: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
1712: x_msg_count => x_msg_count,
1707: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
1708: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1709: p_api_name => l_api_name,
1710: p_pkg_name => g_pkg_name,
1711: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
1712: x_msg_count => x_msg_count,
1713: x_msg_data => x_msg_data,
1714: p_api_type => g_api_type);
1715:
1713: x_msg_data => x_msg_data,
1714: p_api_type => g_api_type);
1715:
1716: when OKC_API.G_EXCEPTION_ERROR then
1717: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1718: p_api_name => l_api_name,
1719: p_pkg_name => g_pkg_name,
1720: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
1721: x_msg_count => x_msg_count,
1716: when OKC_API.G_EXCEPTION_ERROR then
1717: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1718: p_api_name => l_api_name,
1719: p_pkg_name => g_pkg_name,
1720: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
1721: x_msg_count => x_msg_count,
1722: x_msg_data => x_msg_data,
1723: p_api_type => g_api_type);
1724:
1722: x_msg_data => x_msg_data,
1723: p_api_type => g_api_type);
1724:
1725: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
1726: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1727: p_api_name => l_api_name,
1728: p_pkg_name => g_pkg_name,
1729: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
1730: x_msg_count => x_msg_count,
1725: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
1726: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1727: p_api_name => l_api_name,
1728: p_pkg_name => g_pkg_name,
1729: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
1730: x_msg_count => x_msg_count,
1731: x_msg_data => x_msg_data,
1732: p_api_type => g_api_type);
1733:
1731: x_msg_data => x_msg_data,
1732: p_api_type => g_api_type);
1733:
1734: when OTHERS then
1735: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1736: p_api_name => l_api_name,
1737: p_pkg_name => g_pkg_name,
1738: p_exc_name => 'OTHERS',
1739: x_msg_count => x_msg_count,
1743: END delete_contract_line;
1744:
1745: PROCEDURE delete_contract_line(
1746: p_api_version IN NUMBER,
1747: p_init_msg_list IN VARCHAR2 DEFAULT OKE_API.G_FALSE,
1748: x_return_status OUT NOCOPY VARCHAR2,
1749: x_msg_count OUT NOCOPY NUMBER,
1750: x_msg_data OUT NOCOPY VARCHAR2,
1751: p_cle_tbl IN oke_cle_pvt.cle_tbl_type,
1752: p_clev_tbl IN okc_contract_pub.clev_tbl_type) IS
1753:
1754: l_api_name CONSTANT VARCHAR2(30) := 'DELETE_CONTRACT_HEADER';
1755: l_api_version CONSTANT NUMBER := 1.0;
1756: l_return_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
1757: l_overall_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
1758: i NUMBER;
1759: BEGIN
1760: -- call START_ACTIVITY to create savepoint, check compatibility
1753:
1754: l_api_name CONSTANT VARCHAR2(30) := 'DELETE_CONTRACT_HEADER';
1755: l_api_version CONSTANT NUMBER := 1.0;
1756: l_return_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
1757: l_overall_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
1758: i NUMBER;
1759: BEGIN
1760: -- call START_ACTIVITY to create savepoint, check compatibility
1761: -- and initialize message list
1758: i NUMBER;
1759: BEGIN
1760: -- call START_ACTIVITY to create savepoint, check compatibility
1761: -- and initialize message list
1762: l_return_status := OKE_API.START_ACTIVITY(
1763: p_api_name => l_api_name,
1764: p_pkg_name => g_pkg_name,
1765: p_init_msg_list => p_init_msg_list,
1766: l_api_version => l_api_version,
1768: p_api_type => g_api_type,
1769: x_return_status => x_return_status);
1770:
1771: -- check if activity started successfully
1772: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
1773: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1774: Elsif (l_return_status = OKC_API.G_RET_STS_ERROR) then
1775: raise OKE_API.G_EXCEPTION_ERROR;
1776:
1769: x_return_status => x_return_status);
1770:
1771: -- check if activity started successfully
1772: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
1773: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1774: Elsif (l_return_status = OKC_API.G_RET_STS_ERROR) then
1775: raise OKE_API.G_EXCEPTION_ERROR;
1776:
1777: End If;
1771: -- check if activity started successfully
1772: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
1773: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1774: Elsif (l_return_status = OKC_API.G_RET_STS_ERROR) then
1775: raise OKE_API.G_EXCEPTION_ERROR;
1776:
1777: End If;
1778:
1779: If (p_clev_tbl.COUNT > 0) Then
1790: x_msg_count => x_msg_count,
1791: x_msg_data => x_msg_data,
1792: p_cle_rec => p_cle_tbl(i));
1793:
1794: If x_return_status <> OKE_API.G_RET_STS_SUCCESS Then
1795: If l_overall_status <> OKE_API.G_RET_STS_UNEXP_ERROR Then
1796: l_overall_status := x_return_status;
1797: End If;
1798: End If;
1791: x_msg_data => x_msg_data,
1792: p_cle_rec => p_cle_tbl(i));
1793:
1794: If x_return_status <> OKE_API.G_RET_STS_SUCCESS Then
1795: If l_overall_status <> OKE_API.G_RET_STS_UNEXP_ERROR Then
1796: l_overall_status := x_return_status;
1797: End If;
1798: End If;
1799:
1820: -- return overall status
1821: x_return_status := l_overall_status;
1822: End If;
1823:
1824: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
1825: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1826: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
1827: raise OKE_API.G_EXCEPTION_ERROR;
1828: End If;
1821: x_return_status := l_overall_status;
1822: End If;
1823:
1824: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
1825: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1826: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
1827: raise OKE_API.G_EXCEPTION_ERROR;
1828: End If;
1829:
1822: End If;
1823:
1824: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
1825: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1826: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
1827: raise OKE_API.G_EXCEPTION_ERROR;
1828: End If;
1829:
1830: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
1823:
1824: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
1825: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1826: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
1827: raise OKE_API.G_EXCEPTION_ERROR;
1828: End If;
1829:
1830: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
1831: x_msg_data => x_msg_data);
1826: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
1827: raise OKE_API.G_EXCEPTION_ERROR;
1828: End If;
1829:
1830: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
1831: x_msg_data => x_msg_data);
1832: EXCEPTION
1833: when OKE_API.G_EXCEPTION_ERROR then
1834: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1829:
1830: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
1831: x_msg_data => x_msg_data);
1832: EXCEPTION
1833: when OKE_API.G_EXCEPTION_ERROR then
1834: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1835: p_api_name => l_api_name,
1836: p_pkg_name => g_pkg_name,
1837: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
1830: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
1831: x_msg_data => x_msg_data);
1832: EXCEPTION
1833: when OKE_API.G_EXCEPTION_ERROR then
1834: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1835: p_api_name => l_api_name,
1836: p_pkg_name => g_pkg_name,
1837: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
1838: x_msg_count => x_msg_count,
1833: when OKE_API.G_EXCEPTION_ERROR then
1834: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1835: p_api_name => l_api_name,
1836: p_pkg_name => g_pkg_name,
1837: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
1838: x_msg_count => x_msg_count,
1839: x_msg_data => x_msg_data,
1840: p_api_type => g_api_type);
1841:
1838: x_msg_count => x_msg_count,
1839: x_msg_data => x_msg_data,
1840: p_api_type => g_api_type);
1841:
1842: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
1843: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1844: p_api_name => l_api_name,
1845: p_pkg_name => g_pkg_name,
1846: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
1839: x_msg_data => x_msg_data,
1840: p_api_type => g_api_type);
1841:
1842: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
1843: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1844: p_api_name => l_api_name,
1845: p_pkg_name => g_pkg_name,
1846: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
1847: x_msg_count => x_msg_count,
1842: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
1843: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1844: p_api_name => l_api_name,
1845: p_pkg_name => g_pkg_name,
1846: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
1847: x_msg_count => x_msg_count,
1848: x_msg_data => x_msg_data,
1849: p_api_type => g_api_type);
1850:
1848: x_msg_data => x_msg_data,
1849: p_api_type => g_api_type);
1850:
1851: when OKC_API.G_EXCEPTION_ERROR then
1852: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1853: p_api_name => l_api_name,
1854: p_pkg_name => g_pkg_name,
1855: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
1856: x_msg_count => x_msg_count,
1851: when OKC_API.G_EXCEPTION_ERROR then
1852: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1853: p_api_name => l_api_name,
1854: p_pkg_name => g_pkg_name,
1855: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
1856: x_msg_count => x_msg_count,
1857: x_msg_data => x_msg_data,
1858: p_api_type => g_api_type);
1859:
1857: x_msg_data => x_msg_data,
1858: p_api_type => g_api_type);
1859:
1860: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
1861: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1862: p_api_name => l_api_name,
1863: p_pkg_name => g_pkg_name,
1864: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
1865: x_msg_count => x_msg_count,
1860: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
1861: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1862: p_api_name => l_api_name,
1863: p_pkg_name => g_pkg_name,
1864: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
1865: x_msg_count => x_msg_count,
1866: x_msg_data => x_msg_data,
1867: p_api_type => g_api_type);
1868:
1866: x_msg_data => x_msg_data,
1867: p_api_type => g_api_type);
1868:
1869: when OTHERS then
1870: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1871: p_api_name => l_api_name,
1872: p_pkg_name => g_pkg_name,
1873: p_exc_name => 'OTHERS',
1874: x_msg_count => x_msg_count,
1878: END delete_contract_line;
1879:
1880: PROCEDURE delete_contract_line(
1881: p_api_version IN NUMBER,
1882: p_init_msg_list IN VARCHAR2 DEFAULT OKE_API.G_FALSE,
1883: x_return_status OUT NOCOPY VARCHAR2,
1884: x_msg_count OUT NOCOPY NUMBER,
1885: x_msg_data OUT NOCOPY VARCHAR2,
1886: p_line_id IN NUMBER) IS
1904: x_msg_data => x_msg_data,
1905: p_line_id => p_line_id);
1906:
1907: EXCEPTION
1908: when OKE_API.G_EXCEPTION_ERROR then
1909: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1910: p_api_name => l_api_name,
1911: p_pkg_name => g_pkg_name,
1912: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
1905: p_line_id => p_line_id);
1906:
1907: EXCEPTION
1908: when OKE_API.G_EXCEPTION_ERROR then
1909: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1910: p_api_name => l_api_name,
1911: p_pkg_name => g_pkg_name,
1912: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
1913: x_msg_count => x_msg_count,
1908: when OKE_API.G_EXCEPTION_ERROR then
1909: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1910: p_api_name => l_api_name,
1911: p_pkg_name => g_pkg_name,
1912: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
1913: x_msg_count => x_msg_count,
1914: x_msg_data => x_msg_data,
1915: p_api_type => g_api_type);
1916:
1913: x_msg_count => x_msg_count,
1914: x_msg_data => x_msg_data,
1915: p_api_type => g_api_type);
1916:
1917: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
1918: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1919: p_api_name => l_api_name,
1920: p_pkg_name => g_pkg_name,
1921: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
1914: x_msg_data => x_msg_data,
1915: p_api_type => g_api_type);
1916:
1917: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
1918: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1919: p_api_name => l_api_name,
1920: p_pkg_name => g_pkg_name,
1921: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
1922: x_msg_count => x_msg_count,
1917: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
1918: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1919: p_api_name => l_api_name,
1920: p_pkg_name => g_pkg_name,
1921: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
1922: x_msg_count => x_msg_count,
1923: x_msg_data => x_msg_data,
1924: p_api_type => g_api_type);
1925:
1923: x_msg_data => x_msg_data,
1924: p_api_type => g_api_type);
1925:
1926: when OKC_API.G_EXCEPTION_ERROR then
1927: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1928: p_api_name => l_api_name,
1929: p_pkg_name => g_pkg_name,
1930: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
1931: x_msg_count => x_msg_count,
1926: when OKC_API.G_EXCEPTION_ERROR then
1927: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1928: p_api_name => l_api_name,
1929: p_pkg_name => g_pkg_name,
1930: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
1931: x_msg_count => x_msg_count,
1932: x_msg_data => x_msg_data,
1933: p_api_type => g_api_type);
1934:
1932: x_msg_data => x_msg_data,
1933: p_api_type => g_api_type);
1934:
1935: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
1936: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1937: p_api_name => l_api_name,
1938: p_pkg_name => g_pkg_name,
1939: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
1940: x_msg_count => x_msg_count,
1935: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
1936: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1937: p_api_name => l_api_name,
1938: p_pkg_name => g_pkg_name,
1939: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
1940: x_msg_count => x_msg_count,
1941: x_msg_data => x_msg_data,
1942: p_api_type => g_api_type);
1943:
1941: x_msg_data => x_msg_data,
1942: p_api_type => g_api_type);
1943:
1944: when OTHERS then
1945: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1946: p_api_name => l_api_name,
1947: p_pkg_name => g_pkg_name,
1948: p_exc_name => 'OTHERS',
1949: x_msg_count => x_msg_count,
1954:
1955: PROCEDURE validate_contract_line(
1956:
1957: p_api_version IN NUMBER,
1958: p_init_msg_list IN VARCHAR2 DEFAULT OKE_API.G_FALSE,
1959: x_return_status OUT NOCOPY VARCHAR2,
1960: x_msg_count OUT NOCOPY NUMBER,
1961: x_msg_data OUT NOCOPY VARCHAR2,
1962: p_cle_rec IN oke_cle_pvt.cle_rec_type,
1965: l_cle_rec oke_cle_pvt.cle_rec_type;
1966: l_clev_rec okc_contract_pub.clev_rec_type;
1967: l_api_name CONSTANT VARCHAR2(30) := 'VALIDATE_CONTRACT_LINE';
1968: l_api_version CONSTANT NUMBER := 1.0;
1969: l_return_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
1970:
1971: BEGIN
1972: -- call START_ACTIVITY to create savepoint, check compatibility
1973: -- and initialize message list
1970:
1971: BEGIN
1972: -- call START_ACTIVITY to create savepoint, check compatibility
1973: -- and initialize message list
1974: l_return_status := OKE_API.START_ACTIVITY(
1975: p_api_name => l_api_name,
1976: p_pkg_name => g_pkg_name,
1977: p_init_msg_list => p_init_msg_list,
1978: l_api_version => l_api_version,
1980: p_api_type => g_api_type,
1981: x_return_status => x_return_status);
1982:
1983: -- check if activity started successfully
1984: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
1985: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1986: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
1987: raise OKE_API.G_EXCEPTION_ERROR;
1988: End If;
1981: x_return_status => x_return_status);
1982:
1983: -- check if activity started successfully
1984: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
1985: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1986: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
1987: raise OKE_API.G_EXCEPTION_ERROR;
1988: End If;
1989:
1982:
1983: -- check if activity started successfully
1984: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
1985: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1986: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
1987: raise OKE_API.G_EXCEPTION_ERROR;
1988: End If;
1989:
1990: -- call BEFORE user hook
1983: -- check if activity started successfully
1984: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
1985: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1986: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
1987: raise OKE_API.G_EXCEPTION_ERROR;
1988: End If;
1989:
1990: -- call BEFORE user hook
1991: l_cle_rec := p_cle_rec;
2019: x_msg_count => x_msg_count,
2020: x_msg_data => x_msg_data,
2021: p_cle_rec => l_cle_rec);
2022:
2023: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
2024: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2025: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
2026: raise OKE_API.G_EXCEPTION_ERROR;
2027: End If;
2020: x_msg_data => x_msg_data,
2021: p_cle_rec => l_cle_rec);
2022:
2023: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
2024: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2025: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
2026: raise OKE_API.G_EXCEPTION_ERROR;
2027: End If;
2028:
2021: p_cle_rec => l_cle_rec);
2022:
2023: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
2024: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2025: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
2026: raise OKE_API.G_EXCEPTION_ERROR;
2027: End If;
2028:
2029: -- end activity
2022:
2023: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
2024: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2025: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
2026: raise OKE_API.G_EXCEPTION_ERROR;
2027: End If;
2028:
2029: -- end activity
2030: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
2026: raise OKE_API.G_EXCEPTION_ERROR;
2027: End If;
2028:
2029: -- end activity
2030: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
2031: x_msg_data => x_msg_data);
2032: EXCEPTION
2033: when OKE_API.G_EXCEPTION_ERROR then
2034: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
2029: -- end activity
2030: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
2031: x_msg_data => x_msg_data);
2032: EXCEPTION
2033: when OKE_API.G_EXCEPTION_ERROR then
2034: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
2035: p_api_name => l_api_name,
2036: p_pkg_name => g_pkg_name,
2037: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
2030: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
2031: x_msg_data => x_msg_data);
2032: EXCEPTION
2033: when OKE_API.G_EXCEPTION_ERROR then
2034: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
2035: p_api_name => l_api_name,
2036: p_pkg_name => g_pkg_name,
2037: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
2038: x_msg_count => x_msg_count,
2033: when OKE_API.G_EXCEPTION_ERROR then
2034: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
2035: p_api_name => l_api_name,
2036: p_pkg_name => g_pkg_name,
2037: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
2038: x_msg_count => x_msg_count,
2039: x_msg_data => x_msg_data,
2040: p_api_type => g_api_type);
2041:
2038: x_msg_count => x_msg_count,
2039: x_msg_data => x_msg_data,
2040: p_api_type => g_api_type);
2041:
2042: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
2043: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
2044: p_api_name => l_api_name,
2045: p_pkg_name => g_pkg_name,
2046: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
2039: x_msg_data => x_msg_data,
2040: p_api_type => g_api_type);
2041:
2042: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
2043: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
2044: p_api_name => l_api_name,
2045: p_pkg_name => g_pkg_name,
2046: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
2047: x_msg_count => x_msg_count,
2042: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
2043: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
2044: p_api_name => l_api_name,
2045: p_pkg_name => g_pkg_name,
2046: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
2047: x_msg_count => x_msg_count,
2048: x_msg_data => x_msg_data,
2049: p_api_type => g_api_type);
2050:
2048: x_msg_data => x_msg_data,
2049: p_api_type => g_api_type);
2050:
2051: when OKC_API.G_EXCEPTION_ERROR then
2052: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
2053: p_api_name => l_api_name,
2054: p_pkg_name => g_pkg_name,
2055: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
2056: x_msg_count => x_msg_count,
2051: when OKC_API.G_EXCEPTION_ERROR then
2052: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
2053: p_api_name => l_api_name,
2054: p_pkg_name => g_pkg_name,
2055: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
2056: x_msg_count => x_msg_count,
2057: x_msg_data => x_msg_data,
2058: p_api_type => g_api_type);
2059:
2057: x_msg_data => x_msg_data,
2058: p_api_type => g_api_type);
2059:
2060: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
2061: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
2062: p_api_name => l_api_name,
2063: p_pkg_name => g_pkg_name,
2064: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
2065: x_msg_count => x_msg_count,
2060: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
2061: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
2062: p_api_name => l_api_name,
2063: p_pkg_name => g_pkg_name,
2064: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
2065: x_msg_count => x_msg_count,
2066: x_msg_data => x_msg_data,
2067: p_api_type => g_api_type);
2068:
2066: x_msg_data => x_msg_data,
2067: p_api_type => g_api_type);
2068:
2069: when OTHERS then
2070: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
2071: p_api_name => l_api_name,
2072: p_pkg_name => g_pkg_name,
2073: p_exc_name => 'OTHERS',
2074: x_msg_count => x_msg_count,
2078: END validate_contract_line;
2079:
2080: PROCEDURE validate_contract_line(
2081: p_api_version IN NUMBER,
2082: p_init_msg_list IN VARCHAR2 DEFAULT OKE_API.G_FALSE,
2083: x_return_status OUT NOCOPY VARCHAR2,
2084: x_msg_count OUT NOCOPY NUMBER,
2085: x_msg_data OUT NOCOPY VARCHAR2,
2086: p_cle_tbl IN oke_cle_pvt.cle_tbl_type,
2088:
2089: l_api_name CONSTANT VARCHAR2(30) := 'VALIDATE_CONTRACT_LINE';
2090:
2091: l_api_version CONSTANT NUMBER := 1.0;
2092: l_return_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
2093: l_overall_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
2094: i NUMBER;
2095: l_cle_tbl oke_cle_pvt.cle_tbl_type := p_cle_tbl;
2096: BEGIN
2089: l_api_name CONSTANT VARCHAR2(30) := 'VALIDATE_CONTRACT_LINE';
2090:
2091: l_api_version CONSTANT NUMBER := 1.0;
2092: l_return_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
2093: l_overall_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
2094: i NUMBER;
2095: l_cle_tbl oke_cle_pvt.cle_tbl_type := p_cle_tbl;
2096: BEGIN
2097: -- call START_ACTIVITY to create savepoint, check compatibility
2095: l_cle_tbl oke_cle_pvt.cle_tbl_type := p_cle_tbl;
2096: BEGIN
2097: -- call START_ACTIVITY to create savepoint, check compatibility
2098: -- and initialize message list
2099: l_return_status := OKE_API.START_ACTIVITY(
2100: p_api_name => l_api_name,
2101: p_pkg_name => g_pkg_name,
2102: p_init_msg_list => p_init_msg_list,
2103: l_api_version => l_api_version,
2105: p_api_type => g_api_type,
2106: x_return_status => x_return_status);
2107:
2108: -- check if activity started successfully
2109: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
2110: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2111: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
2112: raise OKE_API.G_EXCEPTION_ERROR;
2113: End If;
2106: x_return_status => x_return_status);
2107:
2108: -- check if activity started successfully
2109: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
2110: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2111: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
2112: raise OKE_API.G_EXCEPTION_ERROR;
2113: End If;
2114:
2107:
2108: -- check if activity started successfully
2109: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
2110: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2111: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
2112: raise OKE_API.G_EXCEPTION_ERROR;
2113: End If;
2114:
2115: If (p_clev_tbl.COUNT > 0) Then
2108: -- check if activity started successfully
2109: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
2110: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2111: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
2112: raise OKE_API.G_EXCEPTION_ERROR;
2113: End If;
2114:
2115: If (p_clev_tbl.COUNT > 0) Then
2116: i := p_clev_tbl.FIRST;
2141: x_msg_count => x_msg_count,
2142: x_msg_data => x_msg_data,
2143: p_cle_rec => p_cle_tbl(i));
2144:
2145: If x_return_status <> OKE_API.G_RET_STS_SUCCESS Then
2146: If l_overall_status <> OKE_API.G_RET_STS_UNEXP_ERROR Then
2147: l_overall_status := x_return_status;
2148: End If;
2149: End If;
2142: x_msg_data => x_msg_data,
2143: p_cle_rec => p_cle_tbl(i));
2144:
2145: If x_return_status <> OKE_API.G_RET_STS_SUCCESS Then
2146: If l_overall_status <> OKE_API.G_RET_STS_UNEXP_ERROR Then
2147: l_overall_status := x_return_status;
2148: End If;
2149: End If;
2150:
2155: -- return overall status
2156: x_return_status := l_overall_status;
2157: End If;
2158:
2159: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
2160: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2161: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
2162: raise OKE_API.G_EXCEPTION_ERROR;
2163: End If;
2156: x_return_status := l_overall_status;
2157: End If;
2158:
2159: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
2160: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2161: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
2162: raise OKE_API.G_EXCEPTION_ERROR;
2163: End If;
2164:
2157: End If;
2158:
2159: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
2160: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2161: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
2162: raise OKE_API.G_EXCEPTION_ERROR;
2163: End If;
2164:
2165: -- end activity
2158:
2159: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
2160: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2161: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
2162: raise OKE_API.G_EXCEPTION_ERROR;
2163: End If;
2164:
2165: -- end activity
2166: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
2162: raise OKE_API.G_EXCEPTION_ERROR;
2163: End If;
2164:
2165: -- end activity
2166: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
2167: x_msg_data => x_msg_data);
2168: EXCEPTION
2169: when OKE_API.G_EXCEPTION_ERROR then
2170: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
2165: -- end activity
2166: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
2167: x_msg_data => x_msg_data);
2168: EXCEPTION
2169: when OKE_API.G_EXCEPTION_ERROR then
2170: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
2171: p_api_name => l_api_name,
2172: p_pkg_name => g_pkg_name,
2173: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
2166: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
2167: x_msg_data => x_msg_data);
2168: EXCEPTION
2169: when OKE_API.G_EXCEPTION_ERROR then
2170: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
2171: p_api_name => l_api_name,
2172: p_pkg_name => g_pkg_name,
2173: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
2174: x_msg_count => x_msg_count,
2169: when OKE_API.G_EXCEPTION_ERROR then
2170: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
2171: p_api_name => l_api_name,
2172: p_pkg_name => g_pkg_name,
2173: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
2174: x_msg_count => x_msg_count,
2175: x_msg_data => x_msg_data,
2176: p_api_type => g_api_type);
2177:
2174: x_msg_count => x_msg_count,
2175: x_msg_data => x_msg_data,
2176: p_api_type => g_api_type);
2177:
2178: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
2179: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
2180: p_api_name => l_api_name,
2181: p_pkg_name => g_pkg_name,
2182: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
2175: x_msg_data => x_msg_data,
2176: p_api_type => g_api_type);
2177:
2178: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
2179: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
2180: p_api_name => l_api_name,
2181: p_pkg_name => g_pkg_name,
2182: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
2183: x_msg_count => x_msg_count,
2178: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
2179: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
2180: p_api_name => l_api_name,
2181: p_pkg_name => g_pkg_name,
2182: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
2183: x_msg_count => x_msg_count,
2184: x_msg_data => x_msg_data,
2185: p_api_type => g_api_type);
2186:
2184: x_msg_data => x_msg_data,
2185: p_api_type => g_api_type);
2186:
2187: when OKC_API.G_EXCEPTION_ERROR then
2188: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
2189: p_api_name => l_api_name,
2190: p_pkg_name => g_pkg_name,
2191: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
2192: x_msg_count => x_msg_count,
2187: when OKC_API.G_EXCEPTION_ERROR then
2188: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
2189: p_api_name => l_api_name,
2190: p_pkg_name => g_pkg_name,
2191: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
2192: x_msg_count => x_msg_count,
2193: x_msg_data => x_msg_data,
2194: p_api_type => g_api_type);
2195:
2193: x_msg_data => x_msg_data,
2194: p_api_type => g_api_type);
2195:
2196: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
2197: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
2198: p_api_name => l_api_name,
2199: p_pkg_name => g_pkg_name,
2200: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
2201: x_msg_count => x_msg_count,
2196: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
2197: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
2198: p_api_name => l_api_name,
2199: p_pkg_name => g_pkg_name,
2200: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
2201: x_msg_count => x_msg_count,
2202: x_msg_data => x_msg_data,
2203: p_api_type => g_api_type);
2204:
2202: x_msg_data => x_msg_data,
2203: p_api_type => g_api_type);
2204:
2205: when OTHERS then
2206: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
2207: p_api_name => l_api_name,
2208: p_pkg_name => g_pkg_name,
2209: p_exc_name => 'OTHERS',
2210: x_msg_count => x_msg_count,
2217: -- deliverable section
2218: -----------------------------------------------------------------------------
2219: PROCEDURE create_deliverable(
2220: p_api_version IN NUMBER,
2221: p_init_msg_list IN VARCHAR2 DEFAULT OKE_API.G_FALSE,
2222: x_return_status OUT NOCOPY VARCHAR2,
2223: x_msg_count OUT NOCOPY NUMBER,
2224: x_msg_data OUT NOCOPY VARCHAR2,
2225: p_del_rec IN oke_deliverable_pvt.del_rec_type,
2229: l_del_rec oke_deliverable_pvt.del_rec_type;
2230:
2231: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_DELIVERABLE';
2232: l_api_version CONSTANT NUMBER := 1.0;
2233: l_return_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
2234: --bug 9354391 changed length of line_number to 150 as per table
2235: l_line_number VARCHAR2(150);
2236: BEGIN
2237: -- call START_ACTIVITY to create savepoint, check compatibility
2235: l_line_number VARCHAR2(150);
2236: BEGIN
2237: -- call START_ACTIVITY to create savepoint, check compatibility
2238: -- and initialize message list
2239: l_return_status := OKE_API.START_ACTIVITY(
2240: p_api_name => l_api_name,
2241: p_pkg_name => g_pkg_name,
2242: p_init_msg_list => p_init_msg_list,
2243: l_api_version => l_api_version,
2245: p_api_type => g_api_type,
2246: x_return_status => x_return_status);
2247:
2248: -- check if activity started successfully
2249: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
2250: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2251: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
2252: raise OKE_API.G_EXCEPTION_ERROR;
2253:
2246: x_return_status => x_return_status);
2247:
2248: -- check if activity started successfully
2249: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
2250: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2251: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
2252: raise OKE_API.G_EXCEPTION_ERROR;
2253:
2254: End If;
2247:
2248: -- check if activity started successfully
2249: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
2250: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2251: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
2252: raise OKE_API.G_EXCEPTION_ERROR;
2253:
2254: End If;
2255:
2248: -- check if activity started successfully
2249: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
2250: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2251: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
2252: raise OKE_API.G_EXCEPTION_ERROR;
2253:
2254: End If;
2255:
2256: l_del_rec := p_del_rec;
2264: x_msg_data => x_msg_data,
2265: p_del_rec => l_del_rec,
2266: x_del_rec => x_del_rec);
2267:
2268: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
2269: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2270: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
2271: raise OKE_API.G_EXCEPTION_ERROR;
2272: End If;
2265: p_del_rec => l_del_rec,
2266: x_del_rec => x_del_rec);
2267:
2268: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
2269: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2270: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
2271: raise OKE_API.G_EXCEPTION_ERROR;
2272: End If;
2273:
2266: x_del_rec => x_del_rec);
2267:
2268: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
2269: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2270: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
2271: raise OKE_API.G_EXCEPTION_ERROR;
2272: End If;
2273:
2274: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
2267:
2268: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
2269: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2270: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
2271: raise OKE_API.G_EXCEPTION_ERROR;
2272: End If;
2273:
2274: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
2275: x_msg_data => x_msg_data);
2270: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
2271: raise OKE_API.G_EXCEPTION_ERROR;
2272: End If;
2273:
2274: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
2275: x_msg_data => x_msg_data);
2276: EXCEPTION
2277: when OKE_API.G_EXCEPTION_ERROR then
2278: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
2273:
2274: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
2275: x_msg_data => x_msg_data);
2276: EXCEPTION
2277: when OKE_API.G_EXCEPTION_ERROR then
2278: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
2279: p_api_name => l_api_name,
2280: p_pkg_name => g_pkg_name,
2281: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
2274: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
2275: x_msg_data => x_msg_data);
2276: EXCEPTION
2277: when OKE_API.G_EXCEPTION_ERROR then
2278: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
2279: p_api_name => l_api_name,
2280: p_pkg_name => g_pkg_name,
2281: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
2282: x_msg_count => x_msg_count,
2277: when OKE_API.G_EXCEPTION_ERROR then
2278: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
2279: p_api_name => l_api_name,
2280: p_pkg_name => g_pkg_name,
2281: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
2282: x_msg_count => x_msg_count,
2283: x_msg_data => x_msg_data,
2284: p_api_type => g_api_type);
2285:
2282: x_msg_count => x_msg_count,
2283: x_msg_data => x_msg_data,
2284: p_api_type => g_api_type);
2285:
2286: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
2287: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
2288: p_api_name => l_api_name,
2289: p_pkg_name => g_pkg_name,
2290: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
2283: x_msg_data => x_msg_data,
2284: p_api_type => g_api_type);
2285:
2286: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
2287: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
2288: p_api_name => l_api_name,
2289: p_pkg_name => g_pkg_name,
2290: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
2291: x_msg_count => x_msg_count,
2286: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
2287: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
2288: p_api_name => l_api_name,
2289: p_pkg_name => g_pkg_name,
2290: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
2291: x_msg_count => x_msg_count,
2292: x_msg_data => x_msg_data,
2293: p_api_type => g_api_type);
2294:
2292: x_msg_data => x_msg_data,
2293: p_api_type => g_api_type);
2294:
2295: when OTHERS then
2296: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
2297: p_api_name => l_api_name,
2298: p_pkg_name => g_pkg_name,
2299: p_exc_name => 'OTHERS',
2300: x_msg_count => x_msg_count,
2304: END create_deliverable;
2305:
2306: PROCEDURE create_deliverable(
2307: p_api_version IN NUMBER,
2308: p_init_msg_list IN VARCHAR2 DEFAULT OKE_API.G_FALSE,
2309: x_return_status OUT NOCOPY VARCHAR2,
2310: x_msg_count OUT NOCOPY NUMBER,
2311: x_msg_data OUT NOCOPY VARCHAR2,
2312: p_del_tbl IN oke_deliverable_pvt.del_tbl_type,
2313: x_del_tbl OUT NOCOPY oke_deliverable_pvt.del_tbl_type) IS
2314:
2315: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_DELIVERABLE';
2316: l_api_version CONSTANT NUMBER := 1.0;
2317: l_return_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
2318: l_overall_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
2319: i NUMBER;
2320: l_del_tbl oke_deliverable_pvt.del_tbl_type;
2321: BEGIN
2314:
2315: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_DELIVERABLE';
2316: l_api_version CONSTANT NUMBER := 1.0;
2317: l_return_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
2318: l_overall_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
2319: i NUMBER;
2320: l_del_tbl oke_deliverable_pvt.del_tbl_type;
2321: BEGIN
2322: -- call START_ACTIVITY to create savepoint, check compatibility
2320: l_del_tbl oke_deliverable_pvt.del_tbl_type;
2321: BEGIN
2322: -- call START_ACTIVITY to create savepoint, check compatibility
2323: -- and initialize message list
2324: l_return_status := OKE_API.START_ACTIVITY(
2325: p_api_name => l_api_name,
2326: p_pkg_name => g_pkg_name,
2327: p_init_msg_list => p_init_msg_list,
2328: l_api_version => l_api_version,
2330: p_api_type => g_api_type,
2331: x_return_status => x_return_status);
2332:
2333: -- check if activity started successfully
2334: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
2335: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2336: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
2337: raise OKE_API.G_EXCEPTION_ERROR;
2338:
2331: x_return_status => x_return_status);
2332:
2333: -- check if activity started successfully
2334: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
2335: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2336: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
2337: raise OKE_API.G_EXCEPTION_ERROR;
2338:
2339: End If;
2332:
2333: -- check if activity started successfully
2334: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
2335: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2336: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
2337: raise OKE_API.G_EXCEPTION_ERROR;
2338:
2339: End If;
2340:
2333: -- check if activity started successfully
2334: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
2335: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2336: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
2337: raise OKE_API.G_EXCEPTION_ERROR;
2338:
2339: End If;
2340:
2341: If (p_del_tbl.COUNT > 0) Then
2351: p_del_rec => p_del_tbl(i),
2352: x_del_rec => x_del_tbl(i));
2353:
2354: -- store the highest degree of error
2355: If x_return_status <> OKE_API.G_RET_STS_SUCCESS Then
2356: If l_overall_status <> OKE_API.G_RET_STS_UNEXP_ERROR Then
2357: l_overall_status := x_return_status;
2358: End If;
2359: End If;
2352: x_del_rec => x_del_tbl(i));
2353:
2354: -- store the highest degree of error
2355: If x_return_status <> OKE_API.G_RET_STS_SUCCESS Then
2356: If l_overall_status <> OKE_API.G_RET_STS_UNEXP_ERROR Then
2357: l_overall_status := x_return_status;
2358: End If;
2359: End If;
2360:
2365: -- return overall status
2366: x_return_status := l_overall_status;
2367: End If;
2368:
2369: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
2370: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2371: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
2372: raise OKE_API.G_EXCEPTION_ERROR;
2373: End If;
2366: x_return_status := l_overall_status;
2367: End If;
2368:
2369: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
2370: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2371: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
2372: raise OKE_API.G_EXCEPTION_ERROR;
2373: End If;
2374:
2367: End If;
2368:
2369: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
2370: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2371: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
2372: raise OKE_API.G_EXCEPTION_ERROR;
2373: End If;
2374:
2375: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
2368:
2369: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
2370: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2371: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
2372: raise OKE_API.G_EXCEPTION_ERROR;
2373: End If;
2374:
2375: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
2376: x_msg_data => x_msg_data);
2371: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
2372: raise OKE_API.G_EXCEPTION_ERROR;
2373: End If;
2374:
2375: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
2376: x_msg_data => x_msg_data);
2377: EXCEPTION
2378: when OKE_API.G_EXCEPTION_ERROR then
2379: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
2374:
2375: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
2376: x_msg_data => x_msg_data);
2377: EXCEPTION
2378: when OKE_API.G_EXCEPTION_ERROR then
2379: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
2380: p_api_name => l_api_name,
2381: p_pkg_name => g_pkg_name,
2382: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
2375: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
2376: x_msg_data => x_msg_data);
2377: EXCEPTION
2378: when OKE_API.G_EXCEPTION_ERROR then
2379: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
2380: p_api_name => l_api_name,
2381: p_pkg_name => g_pkg_name,
2382: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
2383: x_msg_count => x_msg_count,
2378: when OKE_API.G_EXCEPTION_ERROR then
2379: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
2380: p_api_name => l_api_name,
2381: p_pkg_name => g_pkg_name,
2382: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
2383: x_msg_count => x_msg_count,
2384: x_msg_data => x_msg_data,
2385: p_api_type => g_api_type);
2386:
2383: x_msg_count => x_msg_count,
2384: x_msg_data => x_msg_data,
2385: p_api_type => g_api_type);
2386:
2387: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
2388: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
2389: p_api_name => l_api_name,
2390: p_pkg_name => g_pkg_name,
2391: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
2384: x_msg_data => x_msg_data,
2385: p_api_type => g_api_type);
2386:
2387: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
2388: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
2389: p_api_name => l_api_name,
2390: p_pkg_name => g_pkg_name,
2391: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
2392: x_msg_count => x_msg_count,
2387: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
2388: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
2389: p_api_name => l_api_name,
2390: p_pkg_name => g_pkg_name,
2391: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
2392: x_msg_count => x_msg_count,
2393: x_msg_data => x_msg_data,
2394: p_api_type => g_api_type);
2395:
2393: x_msg_data => x_msg_data,
2394: p_api_type => g_api_type);
2395:
2396: when OTHERS then
2397: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
2398: p_api_name => l_api_name,
2399: p_pkg_name => g_pkg_name,
2400: p_exc_name => 'OTHERS',
2401: x_msg_count => x_msg_count,
2406:
2407: PROCEDURE update_deliverable(
2408:
2409: p_api_version IN NUMBER,
2410: p_init_msg_list IN VARCHAR2 DEFAULT OKE_API.G_FALSE,
2411: x_return_status OUT NOCOPY VARCHAR2,
2412: x_msg_count OUT NOCOPY NUMBER,
2413: x_msg_data OUT NOCOPY VARCHAR2,
2414: p_del_rec IN oke_deliverable_pvt.del_rec_type,
2415: x_del_rec OUT NOCOPY oke_deliverable_pvt.del_rec_type) IS
2416:
2417: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_DELIVERABLE';
2418: l_api_version CONSTANT NUMBER := 1.0;
2419: l_return_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
2420: BEGIN
2421: -- call START_ACTIVITY to create savepoint, check compatibility
2422: -- and initialize message list
2423:
2420: BEGIN
2421: -- call START_ACTIVITY to create savepoint, check compatibility
2422: -- and initialize message list
2423:
2424: l_return_status := OKE_API.START_ACTIVITY(
2425: p_api_name => l_api_name,
2426: p_pkg_name => g_pkg_name,
2427: p_init_msg_list => p_init_msg_list,
2428: l_api_version => l_api_version,
2430: p_api_type => g_api_type,
2431: x_return_status => x_return_status);
2432:
2433: -- check if activity started successfully
2434: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
2435: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2436: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
2437: raise OKE_API.G_EXCEPTION_ERROR;
2438: End If;
2431: x_return_status => x_return_status);
2432:
2433: -- check if activity started successfully
2434: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
2435: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2436: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
2437: raise OKE_API.G_EXCEPTION_ERROR;
2438: End If;
2439:
2432:
2433: -- check if activity started successfully
2434: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
2435: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2436: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
2437: raise OKE_API.G_EXCEPTION_ERROR;
2438: End If;
2439:
2440: -- call complex api
2433: -- check if activity started successfully
2434: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
2435: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2436: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
2437: raise OKE_API.G_EXCEPTION_ERROR;
2438: End If;
2439:
2440: -- call complex api
2441:
2447: x_msg_data => x_msg_data,
2448: p_del_rec => p_del_rec,
2449: x_del_rec => x_del_rec);
2450:
2451: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
2452: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2453: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
2454: raise OKE_API.G_EXCEPTION_ERROR;
2455: End If;
2448: p_del_rec => p_del_rec,
2449: x_del_rec => x_del_rec);
2450:
2451: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
2452: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2453: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
2454: raise OKE_API.G_EXCEPTION_ERROR;
2455: End If;
2456:
2449: x_del_rec => x_del_rec);
2450:
2451: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
2452: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2453: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
2454: raise OKE_API.G_EXCEPTION_ERROR;
2455: End If;
2456:
2457: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
2450:
2451: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
2452: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2453: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
2454: raise OKE_API.G_EXCEPTION_ERROR;
2455: End If;
2456:
2457: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
2458: x_msg_data => x_msg_data);
2453: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
2454: raise OKE_API.G_EXCEPTION_ERROR;
2455: End If;
2456:
2457: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
2458: x_msg_data => x_msg_data);
2459: EXCEPTION
2460: when OKE_API.G_EXCEPTION_ERROR then
2461: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
2456:
2457: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
2458: x_msg_data => x_msg_data);
2459: EXCEPTION
2460: when OKE_API.G_EXCEPTION_ERROR then
2461: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
2462: p_api_name => l_api_name,
2463: p_pkg_name => g_pkg_name,
2464: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
2457: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
2458: x_msg_data => x_msg_data);
2459: EXCEPTION
2460: when OKE_API.G_EXCEPTION_ERROR then
2461: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
2462: p_api_name => l_api_name,
2463: p_pkg_name => g_pkg_name,
2464: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
2465: x_msg_count => x_msg_count,
2460: when OKE_API.G_EXCEPTION_ERROR then
2461: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
2462: p_api_name => l_api_name,
2463: p_pkg_name => g_pkg_name,
2464: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
2465: x_msg_count => x_msg_count,
2466: x_msg_data => x_msg_data,
2467: p_api_type => g_api_type);
2468:
2465: x_msg_count => x_msg_count,
2466: x_msg_data => x_msg_data,
2467: p_api_type => g_api_type);
2468:
2469: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
2470: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
2471: p_api_name => l_api_name,
2472: p_pkg_name => g_pkg_name,
2473: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
2466: x_msg_data => x_msg_data,
2467: p_api_type => g_api_type);
2468:
2469: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
2470: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
2471: p_api_name => l_api_name,
2472: p_pkg_name => g_pkg_name,
2473: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
2474: x_msg_count => x_msg_count,
2469: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
2470: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
2471: p_api_name => l_api_name,
2472: p_pkg_name => g_pkg_name,
2473: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
2474: x_msg_count => x_msg_count,
2475: x_msg_data => x_msg_data,
2476: p_api_type => g_api_type);
2477:
2475: x_msg_data => x_msg_data,
2476: p_api_type => g_api_type);
2477:
2478: when OTHERS then
2479: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
2480: p_api_name => l_api_name,
2481: p_pkg_name => g_pkg_name,
2482: p_exc_name => 'OTHERS',
2483: x_msg_count => x_msg_count,
2487: END update_deliverable;
2488:
2489: PROCEDURE update_deliverable(
2490: p_api_version IN NUMBER,
2491: p_init_msg_list IN VARCHAR2 DEFAULT OKE_API.G_FALSE,
2492: x_return_status OUT NOCOPY VARCHAR2,
2493: x_msg_count OUT NOCOPY NUMBER,
2494: x_msg_data OUT NOCOPY VARCHAR2,
2495: p_del_tbl IN oke_deliverable_pvt.del_tbl_type,
2496: x_del_tbl OUT NOCOPY oke_deliverable_pvt.del_tbl_type) IS
2497:
2498: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_CONTRACT_HEADER';
2499: l_api_version CONSTANT NUMBER := 1.0;
2500: l_return_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
2501: l_overall_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
2502: i NUMBER;
2503: BEGIN
2504: -- call START_ACTIVITY to create savepoint, check compatibility
2497:
2498: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_CONTRACT_HEADER';
2499: l_api_version CONSTANT NUMBER := 1.0;
2500: l_return_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
2501: l_overall_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
2502: i NUMBER;
2503: BEGIN
2504: -- call START_ACTIVITY to create savepoint, check compatibility
2505: -- and initialize message list
2503: BEGIN
2504: -- call START_ACTIVITY to create savepoint, check compatibility
2505: -- and initialize message list
2506:
2507: l_return_status := OKE_API.START_ACTIVITY(
2508: p_api_name => l_api_name,
2509: p_pkg_name => g_pkg_name,
2510: p_init_msg_list => p_init_msg_list,
2511: l_api_version => l_api_version,
2513: p_api_type => g_api_type,
2514: x_return_status => x_return_status);
2515:
2516: -- check if activity started successfully
2517: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
2518: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2519: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
2520: raise OKE_API.G_EXCEPTION_ERROR;
2521:
2514: x_return_status => x_return_status);
2515:
2516: -- check if activity started successfully
2517: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
2518: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2519: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
2520: raise OKE_API.G_EXCEPTION_ERROR;
2521:
2522: End If;
2515:
2516: -- check if activity started successfully
2517: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
2518: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2519: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
2520: raise OKE_API.G_EXCEPTION_ERROR;
2521:
2522: End If;
2523:
2516: -- check if activity started successfully
2517: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
2518: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2519: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
2520: raise OKE_API.G_EXCEPTION_ERROR;
2521:
2522: End If;
2523:
2524: If (p_del_tbl.COUNT > 0) Then
2534: p_del_rec => p_del_tbl(i),
2535: x_del_rec => x_del_tbl(i));
2536:
2537: -- store the highest degree of error
2538: If x_return_status <> OKE_API.G_RET_STS_SUCCESS Then
2539: If l_overall_status <> OKE_API.G_RET_STS_UNEXP_ERROR Then
2540: l_overall_status := x_return_status;
2541: End If;
2542: End If;
2535: x_del_rec => x_del_tbl(i));
2536:
2537: -- store the highest degree of error
2538: If x_return_status <> OKE_API.G_RET_STS_SUCCESS Then
2539: If l_overall_status <> OKE_API.G_RET_STS_UNEXP_ERROR Then
2540: l_overall_status := x_return_status;
2541: End If;
2542: End If;
2543:
2548: -- return overall status
2549: x_return_status := l_overall_status;
2550: End If;
2551:
2552: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
2553: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2554: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
2555: raise OKE_API.G_EXCEPTION_ERROR;
2556: End If;
2549: x_return_status := l_overall_status;
2550: End If;
2551:
2552: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
2553: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2554: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
2555: raise OKE_API.G_EXCEPTION_ERROR;
2556: End If;
2557:
2550: End If;
2551:
2552: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
2553: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2554: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
2555: raise OKE_API.G_EXCEPTION_ERROR;
2556: End If;
2557:
2558: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
2551:
2552: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
2553: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2554: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
2555: raise OKE_API.G_EXCEPTION_ERROR;
2556: End If;
2557:
2558: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
2559: x_msg_data => x_msg_data);
2554: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
2555: raise OKE_API.G_EXCEPTION_ERROR;
2556: End If;
2557:
2558: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
2559: x_msg_data => x_msg_data);
2560: EXCEPTION
2561: when OKE_API.G_EXCEPTION_ERROR then
2562: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
2557:
2558: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
2559: x_msg_data => x_msg_data);
2560: EXCEPTION
2561: when OKE_API.G_EXCEPTION_ERROR then
2562: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
2563: p_api_name => l_api_name,
2564: p_pkg_name => g_pkg_name,
2565: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
2558: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
2559: x_msg_data => x_msg_data);
2560: EXCEPTION
2561: when OKE_API.G_EXCEPTION_ERROR then
2562: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
2563: p_api_name => l_api_name,
2564: p_pkg_name => g_pkg_name,
2565: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
2566: x_msg_count => x_msg_count,
2561: when OKE_API.G_EXCEPTION_ERROR then
2562: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
2563: p_api_name => l_api_name,
2564: p_pkg_name => g_pkg_name,
2565: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
2566: x_msg_count => x_msg_count,
2567: x_msg_data => x_msg_data,
2568: p_api_type => g_api_type);
2569:
2566: x_msg_count => x_msg_count,
2567: x_msg_data => x_msg_data,
2568: p_api_type => g_api_type);
2569:
2570: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
2571: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
2572: p_api_name => l_api_name,
2573: p_pkg_name => g_pkg_name,
2574: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
2567: x_msg_data => x_msg_data,
2568: p_api_type => g_api_type);
2569:
2570: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
2571: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
2572: p_api_name => l_api_name,
2573: p_pkg_name => g_pkg_name,
2574: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
2575: x_msg_count => x_msg_count,
2570: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
2571: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
2572: p_api_name => l_api_name,
2573: p_pkg_name => g_pkg_name,
2574: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
2575: x_msg_count => x_msg_count,
2576: x_msg_data => x_msg_data,
2577: p_api_type => g_api_type);
2578:
2576: x_msg_data => x_msg_data,
2577: p_api_type => g_api_type);
2578:
2579: when OTHERS then
2580: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
2581: p_api_name => l_api_name,
2582: p_pkg_name => g_pkg_name,
2583: p_exc_name => 'OTHERS',
2584: x_msg_count => x_msg_count,
2589:
2590: PROCEDURE delete_deliverable(
2591:
2592: p_api_version IN NUMBER,
2593: p_init_msg_list IN VARCHAR2 DEFAULT OKE_API.G_FALSE,
2594: x_return_status OUT NOCOPY VARCHAR2,
2595: x_msg_count OUT NOCOPY NUMBER,
2596: x_msg_data OUT NOCOPY VARCHAR2,
2597: p_del_rec IN oke_deliverable_pvt.del_rec_type) IS
2598:
2599: l_del_rec oke_deliverable_pvt.del_rec_type;
2600: l_api_name CONSTANT VARCHAR2(30) := 'DELETE_DELIVERABLE';
2601: l_api_version CONSTANT NUMBER := 1.0;
2602: l_return_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
2603: BEGIN
2604: -- call START_ACTIVITY to create savepoint, check compatibility
2605: -- and initialize message list
2606: l_return_status := OKE_API.START_ACTIVITY(
2602: l_return_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
2603: BEGIN
2604: -- call START_ACTIVITY to create savepoint, check compatibility
2605: -- and initialize message list
2606: l_return_status := OKE_API.START_ACTIVITY(
2607: p_api_name => l_api_name,
2608: p_pkg_name => g_pkg_name,
2609: p_init_msg_list => p_init_msg_list,
2610: l_api_version => l_api_version,
2612: p_api_type => g_api_type,
2613: x_return_status => x_return_status);
2614:
2615: -- check if activity started successfully
2616: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
2617: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2618: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
2619: raise OKE_API.G_EXCEPTION_ERROR;
2620: End If;
2613: x_return_status => x_return_status);
2614:
2615: -- check if activity started successfully
2616: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
2617: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2618: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
2619: raise OKE_API.G_EXCEPTION_ERROR;
2620: End If;
2621:
2614:
2615: -- check if activity started successfully
2616: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
2617: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2618: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
2619: raise OKE_API.G_EXCEPTION_ERROR;
2620: End If;
2621:
2622: l_del_rec := p_del_rec;
2615: -- check if activity started successfully
2616: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
2617: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2618: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
2619: raise OKE_API.G_EXCEPTION_ERROR;
2620: End If;
2621:
2622: l_del_rec := p_del_rec;
2623:
2630: x_msg_data => x_msg_data,
2631: p_del_rec => l_del_rec);
2632:
2633: -- check return status
2634: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
2635: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2636: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
2637: raise OKE_API.G_EXCEPTION_ERROR;
2638: End If;
2631: p_del_rec => l_del_rec);
2632:
2633: -- check return status
2634: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
2635: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2636: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
2637: raise OKE_API.G_EXCEPTION_ERROR;
2638: End If;
2639:
2632:
2633: -- check return status
2634: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
2635: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2636: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
2637: raise OKE_API.G_EXCEPTION_ERROR;
2638: End If;
2639:
2640: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
2633: -- check return status
2634: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
2635: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2636: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
2637: raise OKE_API.G_EXCEPTION_ERROR;
2638: End If;
2639:
2640: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
2641: x_msg_data => x_msg_data);
2636: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
2637: raise OKE_API.G_EXCEPTION_ERROR;
2638: End If;
2639:
2640: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
2641: x_msg_data => x_msg_data);
2642: EXCEPTION
2643: when OKE_API.G_EXCEPTION_ERROR then
2644: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
2639:
2640: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
2641: x_msg_data => x_msg_data);
2642: EXCEPTION
2643: when OKE_API.G_EXCEPTION_ERROR then
2644: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
2645: p_api_name => l_api_name,
2646: p_pkg_name => g_pkg_name,
2647: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
2640: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
2641: x_msg_data => x_msg_data);
2642: EXCEPTION
2643: when OKE_API.G_EXCEPTION_ERROR then
2644: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
2645: p_api_name => l_api_name,
2646: p_pkg_name => g_pkg_name,
2647: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
2648: x_msg_count => x_msg_count,
2643: when OKE_API.G_EXCEPTION_ERROR then
2644: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
2645: p_api_name => l_api_name,
2646: p_pkg_name => g_pkg_name,
2647: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
2648: x_msg_count => x_msg_count,
2649: x_msg_data => x_msg_data,
2650: p_api_type => g_api_type);
2651:
2648: x_msg_count => x_msg_count,
2649: x_msg_data => x_msg_data,
2650: p_api_type => g_api_type);
2651:
2652: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
2653: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
2654: p_api_name => l_api_name,
2655: p_pkg_name => g_pkg_name,
2656: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
2649: x_msg_data => x_msg_data,
2650: p_api_type => g_api_type);
2651:
2652: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
2653: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
2654: p_api_name => l_api_name,
2655: p_pkg_name => g_pkg_name,
2656: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
2657: x_msg_count => x_msg_count,
2652: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
2653: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
2654: p_api_name => l_api_name,
2655: p_pkg_name => g_pkg_name,
2656: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
2657: x_msg_count => x_msg_count,
2658: x_msg_data => x_msg_data,
2659: p_api_type => g_api_type);
2660:
2658: x_msg_data => x_msg_data,
2659: p_api_type => g_api_type);
2660:
2661: when OTHERS then
2662: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
2663: p_api_name => l_api_name,
2664: p_pkg_name => g_pkg_name,
2665: p_exc_name => 'OTHERS',
2666: x_msg_count => x_msg_count,
2670: END delete_deliverable;
2671:
2672: PROCEDURE delete_deliverable(
2673: p_api_version IN NUMBER,
2674: p_init_msg_list IN VARCHAR2 DEFAULT OKE_API.G_FALSE,
2675: x_return_status OUT NOCOPY VARCHAR2,
2676: x_msg_count OUT NOCOPY NUMBER,
2677: x_msg_data OUT NOCOPY VARCHAR2,
2678: p_del_tbl IN oke_deliverable_pvt.del_tbl_type) IS
2678: p_del_tbl IN oke_deliverable_pvt.del_tbl_type) IS
2679:
2680: l_api_name CONSTANT VARCHAR2(30) := 'DELETE_CONTRACT_HEADER';
2681: l_api_version CONSTANT NUMBER := 1.0;
2682: l_return_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
2683: l_overall_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
2684: i NUMBER;
2685: BEGIN
2686: -- call START_ACTIVITY to create savepoint, check compatibility
2679:
2680: l_api_name CONSTANT VARCHAR2(30) := 'DELETE_CONTRACT_HEADER';
2681: l_api_version CONSTANT NUMBER := 1.0;
2682: l_return_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
2683: l_overall_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
2684: i NUMBER;
2685: BEGIN
2686: -- call START_ACTIVITY to create savepoint, check compatibility
2687: -- and initialize message list
2684: i NUMBER;
2685: BEGIN
2686: -- call START_ACTIVITY to create savepoint, check compatibility
2687: -- and initialize message list
2688: l_return_status := OKE_API.START_ACTIVITY(
2689: p_api_name => l_api_name,
2690: p_pkg_name => g_pkg_name,
2691: p_init_msg_list => p_init_msg_list,
2692: l_api_version => l_api_version,
2694: p_api_type => g_api_type,
2695: x_return_status => x_return_status);
2696:
2697: -- check if activity started successfully
2698: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
2699: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2700: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
2701: raise OKE_API.G_EXCEPTION_ERROR;
2702:
2695: x_return_status => x_return_status);
2696:
2697: -- check if activity started successfully
2698: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
2699: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2700: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
2701: raise OKE_API.G_EXCEPTION_ERROR;
2702:
2703: End If;
2696:
2697: -- check if activity started successfully
2698: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
2699: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2700: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
2701: raise OKE_API.G_EXCEPTION_ERROR;
2702:
2703: End If;
2704:
2697: -- check if activity started successfully
2698: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
2699: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2700: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
2701: raise OKE_API.G_EXCEPTION_ERROR;
2702:
2703: End If;
2704:
2705: If (p_del_tbl.COUNT > 0) Then
2729: -- return overall status
2730: x_return_status := l_overall_status;
2731: End If;
2732:
2733: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
2734: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2735: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
2736: raise OKE_API.G_EXCEPTION_ERROR;
2737: End If;
2730: x_return_status := l_overall_status;
2731: End If;
2732:
2733: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
2734: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2735: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
2736: raise OKE_API.G_EXCEPTION_ERROR;
2737: End If;
2738:
2731: End If;
2732:
2733: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
2734: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2735: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
2736: raise OKE_API.G_EXCEPTION_ERROR;
2737: End If;
2738:
2739: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
2732:
2733: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
2734: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2735: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
2736: raise OKE_API.G_EXCEPTION_ERROR;
2737: End If;
2738:
2739: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
2740: x_msg_data => x_msg_data);
2735: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
2736: raise OKE_API.G_EXCEPTION_ERROR;
2737: End If;
2738:
2739: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
2740: x_msg_data => x_msg_data);
2741: EXCEPTION
2742: when OKE_API.G_EXCEPTION_ERROR then
2743: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
2738:
2739: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
2740: x_msg_data => x_msg_data);
2741: EXCEPTION
2742: when OKE_API.G_EXCEPTION_ERROR then
2743: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
2744: p_api_name => l_api_name,
2745: p_pkg_name => g_pkg_name,
2746: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
2739: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
2740: x_msg_data => x_msg_data);
2741: EXCEPTION
2742: when OKE_API.G_EXCEPTION_ERROR then
2743: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
2744: p_api_name => l_api_name,
2745: p_pkg_name => g_pkg_name,
2746: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
2747: x_msg_count => x_msg_count,
2742: when OKE_API.G_EXCEPTION_ERROR then
2743: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
2744: p_api_name => l_api_name,
2745: p_pkg_name => g_pkg_name,
2746: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
2747: x_msg_count => x_msg_count,
2748: x_msg_data => x_msg_data,
2749: p_api_type => g_api_type);
2750:
2747: x_msg_count => x_msg_count,
2748: x_msg_data => x_msg_data,
2749: p_api_type => g_api_type);
2750:
2751: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
2752: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
2753: p_api_name => l_api_name,
2754: p_pkg_name => g_pkg_name,
2755: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
2748: x_msg_data => x_msg_data,
2749: p_api_type => g_api_type);
2750:
2751: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
2752: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
2753: p_api_name => l_api_name,
2754: p_pkg_name => g_pkg_name,
2755: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
2756: x_msg_count => x_msg_count,
2751: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
2752: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
2753: p_api_name => l_api_name,
2754: p_pkg_name => g_pkg_name,
2755: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
2756: x_msg_count => x_msg_count,
2757: x_msg_data => x_msg_data,
2758: p_api_type => g_api_type);
2759:
2757: x_msg_data => x_msg_data,
2758: p_api_type => g_api_type);
2759:
2760: when OTHERS then
2761: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
2762: p_api_name => l_api_name,
2763: p_pkg_name => g_pkg_name,
2764: p_exc_name => 'OTHERS',
2765: x_msg_count => x_msg_count,
2769: END delete_deliverable;
2770:
2771: PROCEDURE delete_deliverable(
2772: p_api_version IN NUMBER,
2773: p_init_msg_list IN VARCHAR2 DEFAULT OKE_API.G_FALSE,
2774: x_return_status OUT NOCOPY VARCHAR2,
2775: x_msg_count OUT NOCOPY NUMBER,
2776: x_msg_data OUT NOCOPY VARCHAR2,
2777: p_deliverable_id IN NUMBER) IS
2788: p_deliverable_id => p_deliverable_id);
2789:
2790: EXCEPTION
2791: when OTHERS then
2792: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
2793:
2794: p_api_name => l_api_name,
2795: p_pkg_name => g_pkg_name,
2796: p_exc_name => 'OTHERS',
2802:
2803: PROCEDURE validate_deliverable(
2804:
2805: p_api_version IN NUMBER,
2806: p_init_msg_list IN VARCHAR2 DEFAULT OKE_API.G_FALSE,
2807: x_return_status OUT NOCOPY VARCHAR2,
2808: x_msg_count OUT NOCOPY NUMBER,
2809: x_msg_data OUT NOCOPY VARCHAR2,
2810: p_del_rec IN oke_deliverable_pvt.del_rec_type) IS
2812: l_del_rec oke_deliverable_pvt.del_rec_type;
2813:
2814: l_api_name CONSTANT VARCHAR2(30) := 'VALIDATE_DELIVERABLE';
2815: l_api_version CONSTANT NUMBER := 1.0;
2816: l_return_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
2817:
2818: BEGIN
2819: -- call START_ACTIVITY to create savepoint, check compatibility
2820: -- and initialize message list
2817:
2818: BEGIN
2819: -- call START_ACTIVITY to create savepoint, check compatibility
2820: -- and initialize message list
2821: l_return_status := OKE_API.START_ACTIVITY(
2822: p_api_name => l_api_name,
2823: p_pkg_name => g_pkg_name,
2824: p_init_msg_list => p_init_msg_list,
2825: l_api_version => l_api_version,
2827: p_api_type => g_api_type,
2828: x_return_status => x_return_status);
2829:
2830: -- check if activity started successfully
2831: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
2832: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2833: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
2834: raise OKE_API.G_EXCEPTION_ERROR;
2835: End If;
2828: x_return_status => x_return_status);
2829:
2830: -- check if activity started successfully
2831: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
2832: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2833: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
2834: raise OKE_API.G_EXCEPTION_ERROR;
2835: End If;
2836:
2829:
2830: -- check if activity started successfully
2831: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
2832: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2833: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
2834: raise OKE_API.G_EXCEPTION_ERROR;
2835: End If;
2836:
2837: l_del_rec := p_del_rec;
2830: -- check if activity started successfully
2831: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
2832: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2833: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
2834: raise OKE_API.G_EXCEPTION_ERROR;
2835: End If;
2836:
2837: l_del_rec := p_del_rec;
2838:
2844: x_msg_count => x_msg_count,
2845: x_msg_data => x_msg_data,
2846: p_del_rec => l_del_rec);
2847:
2848: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
2849: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2850: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
2851: raise OKE_API.G_EXCEPTION_ERROR;
2852: End If;
2845: x_msg_data => x_msg_data,
2846: p_del_rec => l_del_rec);
2847:
2848: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
2849: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2850: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
2851: raise OKE_API.G_EXCEPTION_ERROR;
2852: End If;
2853:
2846: p_del_rec => l_del_rec);
2847:
2848: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
2849: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2850: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
2851: raise OKE_API.G_EXCEPTION_ERROR;
2852: End If;
2853:
2854: -- end activity
2847:
2848: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
2849: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2850: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
2851: raise OKE_API.G_EXCEPTION_ERROR;
2852: End If;
2853:
2854: -- end activity
2855: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
2851: raise OKE_API.G_EXCEPTION_ERROR;
2852: End If;
2853:
2854: -- end activity
2855: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
2856: x_msg_data => x_msg_data);
2857: EXCEPTION
2858: when OKE_API.G_EXCEPTION_ERROR then
2859: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
2854: -- end activity
2855: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
2856: x_msg_data => x_msg_data);
2857: EXCEPTION
2858: when OKE_API.G_EXCEPTION_ERROR then
2859: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
2860: p_api_name => l_api_name,
2861: p_pkg_name => g_pkg_name,
2862: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
2855: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
2856: x_msg_data => x_msg_data);
2857: EXCEPTION
2858: when OKE_API.G_EXCEPTION_ERROR then
2859: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
2860: p_api_name => l_api_name,
2861: p_pkg_name => g_pkg_name,
2862: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
2863: x_msg_count => x_msg_count,
2858: when OKE_API.G_EXCEPTION_ERROR then
2859: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
2860: p_api_name => l_api_name,
2861: p_pkg_name => g_pkg_name,
2862: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
2863: x_msg_count => x_msg_count,
2864: x_msg_data => x_msg_data,
2865: p_api_type => g_api_type);
2866:
2863: x_msg_count => x_msg_count,
2864: x_msg_data => x_msg_data,
2865: p_api_type => g_api_type);
2866:
2867: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
2868: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
2869: p_api_name => l_api_name,
2870: p_pkg_name => g_pkg_name,
2871: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
2864: x_msg_data => x_msg_data,
2865: p_api_type => g_api_type);
2866:
2867: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
2868: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
2869: p_api_name => l_api_name,
2870: p_pkg_name => g_pkg_name,
2871: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
2872: x_msg_count => x_msg_count,
2867: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
2868: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
2869: p_api_name => l_api_name,
2870: p_pkg_name => g_pkg_name,
2871: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
2872: x_msg_count => x_msg_count,
2873: x_msg_data => x_msg_data,
2874: p_api_type => g_api_type);
2875:
2873: x_msg_data => x_msg_data,
2874: p_api_type => g_api_type);
2875:
2876: when OTHERS then
2877: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
2878: p_api_name => l_api_name,
2879: p_pkg_name => g_pkg_name,
2880: p_exc_name => 'OTHERS',
2881: x_msg_count => x_msg_count,
2885: END validate_deliverable;
2886:
2887: PROCEDURE validate_deliverable(
2888: p_api_version IN NUMBER,
2889: p_init_msg_list IN VARCHAR2 DEFAULT OKE_API.G_FALSE,
2890: x_return_status OUT NOCOPY VARCHAR2,
2891: x_msg_count OUT NOCOPY NUMBER,
2892: x_msg_data OUT NOCOPY VARCHAR2,
2893: p_del_tbl IN oke_deliverable_pvt.del_tbl_type) IS
2894:
2895: l_api_name CONSTANT VARCHAR2(30) := 'VALIDATE_DELIVERABLE';
2896:
2897: l_api_version CONSTANT NUMBER := 1.0;
2898: l_return_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
2899: l_overall_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
2900: i NUMBER;
2901: l_del_tbl oke_deliverable_pvt.del_tbl_type := p_del_tbl;
2902: BEGIN
2895: l_api_name CONSTANT VARCHAR2(30) := 'VALIDATE_DELIVERABLE';
2896:
2897: l_api_version CONSTANT NUMBER := 1.0;
2898: l_return_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
2899: l_overall_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
2900: i NUMBER;
2901: l_del_tbl oke_deliverable_pvt.del_tbl_type := p_del_tbl;
2902: BEGIN
2903: -- call START_ACTIVITY to create savepoint, check compatibility
2901: l_del_tbl oke_deliverable_pvt.del_tbl_type := p_del_tbl;
2902: BEGIN
2903: -- call START_ACTIVITY to create savepoint, check compatibility
2904: -- and initialize message list
2905: l_return_status := OKE_API.START_ACTIVITY(
2906: p_api_name => l_api_name,
2907: p_pkg_name => g_pkg_name,
2908: p_init_msg_list => p_init_msg_list,
2909: l_api_version => l_api_version,
2911: p_api_type => g_api_type,
2912: x_return_status => x_return_status);
2913:
2914: -- check if activity started successfully
2915: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
2916: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2917: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
2918: raise OKE_API.G_EXCEPTION_ERROR;
2919: End If;
2912: x_return_status => x_return_status);
2913:
2914: -- check if activity started successfully
2915: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
2916: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2917: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
2918: raise OKE_API.G_EXCEPTION_ERROR;
2919: End If;
2920:
2913:
2914: -- check if activity started successfully
2915: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
2916: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2917: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
2918: raise OKE_API.G_EXCEPTION_ERROR;
2919: End If;
2920:
2921: If (p_del_tbl.COUNT > 0) Then
2914: -- check if activity started successfully
2915: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
2916: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2917: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
2918: raise OKE_API.G_EXCEPTION_ERROR;
2919: End If;
2920:
2921: If (p_del_tbl.COUNT > 0) Then
2922: i := p_del_tbl.FIRST;
2930: x_msg_count => x_msg_count,
2931: x_msg_data => x_msg_data,
2932: p_del_rec => p_del_tbl(i));
2933:
2934: If x_return_status <> OKE_API.G_RET_STS_SUCCESS Then
2935: If l_overall_status <> OKE_API.G_RET_STS_UNEXP_ERROR Then
2936: l_overall_status := x_return_status;
2937: End If;
2938: End If;
2931: x_msg_data => x_msg_data,
2932: p_del_rec => p_del_tbl(i));
2933:
2934: If x_return_status <> OKE_API.G_RET_STS_SUCCESS Then
2935: If l_overall_status <> OKE_API.G_RET_STS_UNEXP_ERROR Then
2936: l_overall_status := x_return_status;
2937: End If;
2938: End If;
2939:
2944: -- return overall status
2945: x_return_status := l_overall_status;
2946: End If;
2947:
2948: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
2949: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2950: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
2951: raise OKE_API.G_EXCEPTION_ERROR;
2952: End If;
2945: x_return_status := l_overall_status;
2946: End If;
2947:
2948: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
2949: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2950: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
2951: raise OKE_API.G_EXCEPTION_ERROR;
2952: End If;
2953:
2946: End If;
2947:
2948: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
2949: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2950: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
2951: raise OKE_API.G_EXCEPTION_ERROR;
2952: End If;
2953:
2954: -- end activity
2947:
2948: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
2949: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2950: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
2951: raise OKE_API.G_EXCEPTION_ERROR;
2952: End If;
2953:
2954: -- end activity
2955: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
2951: raise OKE_API.G_EXCEPTION_ERROR;
2952: End If;
2953:
2954: -- end activity
2955: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
2956: x_msg_data => x_msg_data);
2957: EXCEPTION
2958: when OKE_API.G_EXCEPTION_ERROR then
2959: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
2954: -- end activity
2955: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
2956: x_msg_data => x_msg_data);
2957: EXCEPTION
2958: when OKE_API.G_EXCEPTION_ERROR then
2959: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
2960: p_api_name => l_api_name,
2961: p_pkg_name => g_pkg_name,
2962: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
2955: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
2956: x_msg_data => x_msg_data);
2957: EXCEPTION
2958: when OKE_API.G_EXCEPTION_ERROR then
2959: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
2960: p_api_name => l_api_name,
2961: p_pkg_name => g_pkg_name,
2962: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
2963: x_msg_count => x_msg_count,
2958: when OKE_API.G_EXCEPTION_ERROR then
2959: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
2960: p_api_name => l_api_name,
2961: p_pkg_name => g_pkg_name,
2962: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
2963: x_msg_count => x_msg_count,
2964: x_msg_data => x_msg_data,
2965: p_api_type => g_api_type);
2966:
2963: x_msg_count => x_msg_count,
2964: x_msg_data => x_msg_data,
2965: p_api_type => g_api_type);
2966:
2967: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
2968: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
2969: p_api_name => l_api_name,
2970: p_pkg_name => g_pkg_name,
2971: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
2964: x_msg_data => x_msg_data,
2965: p_api_type => g_api_type);
2966:
2967: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
2968: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
2969: p_api_name => l_api_name,
2970: p_pkg_name => g_pkg_name,
2971: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
2972: x_msg_count => x_msg_count,
2967: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
2968: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
2969: p_api_name => l_api_name,
2970: p_pkg_name => g_pkg_name,
2971: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
2972: x_msg_count => x_msg_count,
2973: x_msg_data => x_msg_data,
2974: p_api_type => g_api_type);
2975:
2973: x_msg_data => x_msg_data,
2974: p_api_type => g_api_type);
2975:
2976: when OTHERS then
2977: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
2978: p_api_name => l_api_name,
2979: p_pkg_name => g_pkg_name,
2980: p_exc_name => 'OTHERS',
2981: x_msg_count => x_msg_count,
2985: END validate_deliverable;
2986:
2987: PROCEDURE lock_deliverable(
2988: p_api_version IN NUMBER,
2989: p_init_msg_list IN VARCHAR2 DEFAULT OKE_API.G_FALSE,
2990: x_return_status OUT NOCOPY VARCHAR2,
2991: x_msg_count OUT NOCOPY NUMBER,
2992: x_msg_data OUT NOCOPY VARCHAR2,
2993: p_del_rec IN oke_deliverable_pvt.del_rec_type) IS
2994:
2995: l_del_rec oke_deliverable_pvt.del_rec_type;
2996: l_api_name CONSTANT VARCHAR2(30) := 'LOCK_DELIVERABLE';
2997: l_api_version CONSTANT NUMBER := 1.0;
2998: l_return_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
2999: BEGIN
3000: -- call START_ACTIVITY to create savepoint, check compatibility
3001: -- and initialize message list
3002: l_return_status := OKE_API.START_ACTIVITY(
2998: l_return_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
2999: BEGIN
3000: -- call START_ACTIVITY to create savepoint, check compatibility
3001: -- and initialize message list
3002: l_return_status := OKE_API.START_ACTIVITY(
3003: p_api_name => l_api_name,
3004: p_pkg_name => g_pkg_name,
3005: p_init_msg_list => p_init_msg_list,
3006: l_api_version => l_api_version,
3008: p_api_type => g_api_type,
3009: x_return_status => x_return_status);
3010:
3011: -- check if activity started successfully
3012: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
3013: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
3014: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
3015: raise OKE_API.G_EXCEPTION_ERROR;
3016: End If;
3009: x_return_status => x_return_status);
3010:
3011: -- check if activity started successfully
3012: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
3013: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
3014: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
3015: raise OKE_API.G_EXCEPTION_ERROR;
3016: End If;
3017:
3010:
3011: -- check if activity started successfully
3012: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
3013: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
3014: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
3015: raise OKE_API.G_EXCEPTION_ERROR;
3016: End If;
3017:
3018: -- call BEFORE user hook
3011: -- check if activity started successfully
3012: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
3013: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
3014: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
3015: raise OKE_API.G_EXCEPTION_ERROR;
3016: End If;
3017:
3018: -- call BEFORE user hook
3019: l_del_rec := p_del_rec;
3027: x_msg_data => x_msg_data,
3028: p_del_rec => l_del_rec);
3029:
3030: -- check return status
3031: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
3032: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
3033: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
3034: raise OKE_API.G_EXCEPTION_ERROR;
3035: End If;
3028: p_del_rec => l_del_rec);
3029:
3030: -- check return status
3031: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
3032: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
3033: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
3034: raise OKE_API.G_EXCEPTION_ERROR;
3035: End If;
3036:
3029:
3030: -- check return status
3031: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
3032: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
3033: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
3034: raise OKE_API.G_EXCEPTION_ERROR;
3035: End If;
3036:
3037: -- end activity
3030: -- check return status
3031: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
3032: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
3033: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
3034: raise OKE_API.G_EXCEPTION_ERROR;
3035: End If;
3036:
3037: -- end activity
3038: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
3034: raise OKE_API.G_EXCEPTION_ERROR;
3035: End If;
3036:
3037: -- end activity
3038: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
3039: x_msg_data => x_msg_data);
3040: EXCEPTION
3041: when OKE_API.G_EXCEPTION_ERROR then
3042: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
3037: -- end activity
3038: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
3039: x_msg_data => x_msg_data);
3040: EXCEPTION
3041: when OKE_API.G_EXCEPTION_ERROR then
3042: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
3043: p_api_name => l_api_name,
3044: p_pkg_name => g_pkg_name,
3045: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
3038: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
3039: x_msg_data => x_msg_data);
3040: EXCEPTION
3041: when OKE_API.G_EXCEPTION_ERROR then
3042: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
3043: p_api_name => l_api_name,
3044: p_pkg_name => g_pkg_name,
3045: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
3046: x_msg_count => x_msg_count,
3041: when OKE_API.G_EXCEPTION_ERROR then
3042: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
3043: p_api_name => l_api_name,
3044: p_pkg_name => g_pkg_name,
3045: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
3046: x_msg_count => x_msg_count,
3047: x_msg_data => x_msg_data,
3048: p_api_type => g_api_type);
3049:
3046: x_msg_count => x_msg_count,
3047: x_msg_data => x_msg_data,
3048: p_api_type => g_api_type);
3049:
3050: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
3051: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
3052: p_api_name => l_api_name,
3053: p_pkg_name => g_pkg_name,
3054: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
3047: x_msg_data => x_msg_data,
3048: p_api_type => g_api_type);
3049:
3050: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
3051: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
3052: p_api_name => l_api_name,
3053: p_pkg_name => g_pkg_name,
3054: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
3055: x_msg_count => x_msg_count,
3050: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
3051: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
3052: p_api_name => l_api_name,
3053: p_pkg_name => g_pkg_name,
3054: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
3055: x_msg_count => x_msg_count,
3056: x_msg_data => x_msg_data,
3057: p_api_type => g_api_type);
3058:
3056: x_msg_data => x_msg_data,
3057: p_api_type => g_api_type);
3058:
3059: when OTHERS then
3060: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
3061: p_api_name => l_api_name,
3062: p_pkg_name => g_pkg_name,
3063: p_exc_name => 'OTHERS',
3064: x_msg_count => x_msg_count,
3068: END lock_deliverable;
3069:
3070: PROCEDURE lock_deliverable(
3071: p_api_version IN NUMBER,
3072: p_init_msg_list IN VARCHAR2 DEFAULT OKE_API.G_FALSE,
3073: x_return_status OUT NOCOPY VARCHAR2,
3074: x_msg_count OUT NOCOPY NUMBER,
3075: x_msg_data OUT NOCOPY VARCHAR2,
3076: p_del_tbl IN oke_deliverable_pvt.del_tbl_type) IS
3076: p_del_tbl IN oke_deliverable_pvt.del_tbl_type) IS
3077:
3078: l_api_name CONSTANT VARCHAR2(30) := 'LOCK_DELIVERABLE';
3079: l_api_version CONSTANT NUMBER := 1.0;
3080: l_return_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
3081: l_overall_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
3082: i NUMBER;
3083: BEGIN
3084: -- call START_ACTIVITY to create savepoint, check compatibility
3077:
3078: l_api_name CONSTANT VARCHAR2(30) := 'LOCK_DELIVERABLE';
3079: l_api_version CONSTANT NUMBER := 1.0;
3080: l_return_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
3081: l_overall_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
3082: i NUMBER;
3083: BEGIN
3084: -- call START_ACTIVITY to create savepoint, check compatibility
3085: -- and initialize message list
3082: i NUMBER;
3083: BEGIN
3084: -- call START_ACTIVITY to create savepoint, check compatibility
3085: -- and initialize message list
3086: l_return_status := OKE_API.START_ACTIVITY(
3087: p_api_name => l_api_name,
3088: p_pkg_name => g_pkg_name,
3089: p_init_msg_list => p_init_msg_list,
3090: l_api_version => l_api_version,
3092: p_api_type => g_api_type,
3093: x_return_status => x_return_status);
3094:
3095: -- check if activity started successfully
3096: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
3097: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
3098: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
3099: raise OKE_API.G_EXCEPTION_ERROR;
3100: End If;
3093: x_return_status => x_return_status);
3094:
3095: -- check if activity started successfully
3096: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
3097: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
3098: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
3099: raise OKE_API.G_EXCEPTION_ERROR;
3100: End If;
3101:
3094:
3095: -- check if activity started successfully
3096: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
3097: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
3098: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
3099: raise OKE_API.G_EXCEPTION_ERROR;
3100: End If;
3101:
3102: If (p_del_tbl.COUNT > 0) Then
3095: -- check if activity started successfully
3096: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
3097: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
3098: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
3099: raise OKE_API.G_EXCEPTION_ERROR;
3100: End If;
3101:
3102: If (p_del_tbl.COUNT > 0) Then
3103: i := p_del_tbl.FIRST;
3111: x_msg_data => x_msg_data,
3112: p_del_rec => p_del_tbl(i));
3113:
3114: -- store the highest degree of error
3115: If x_return_status <> OKE_API.G_RET_STS_SUCCESS Then
3116: If l_overall_status <> OKE_API.G_RET_STS_UNEXP_ERROR Then
3117: l_overall_status := x_return_status;
3118: End If;
3119: End If;
3112: p_del_rec => p_del_tbl(i));
3113:
3114: -- store the highest degree of error
3115: If x_return_status <> OKE_API.G_RET_STS_SUCCESS Then
3116: If l_overall_status <> OKE_API.G_RET_STS_UNEXP_ERROR Then
3117: l_overall_status := x_return_status;
3118: End If;
3119: End If;
3120: EXIT WHEN (i = p_del_tbl.LAST);
3123: -- return overall status
3124: x_return_status := l_overall_status;
3125: End If;
3126:
3127: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
3128: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
3129: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
3130: raise OKE_API.G_EXCEPTION_ERROR;
3131: End If;
3124: x_return_status := l_overall_status;
3125: End If;
3126:
3127: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
3128: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
3129: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
3130: raise OKE_API.G_EXCEPTION_ERROR;
3131: End If;
3132:
3125: End If;
3126:
3127: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
3128: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
3129: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
3130: raise OKE_API.G_EXCEPTION_ERROR;
3131: End If;
3132:
3133: -- end activity
3126:
3127: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
3128: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
3129: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
3130: raise OKE_API.G_EXCEPTION_ERROR;
3131: End If;
3132:
3133: -- end activity
3134: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
3130: raise OKE_API.G_EXCEPTION_ERROR;
3131: End If;
3132:
3133: -- end activity
3134: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
3135: x_msg_data => x_msg_data);
3136: EXCEPTION
3137: when OKE_API.G_EXCEPTION_ERROR then
3138: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
3133: -- end activity
3134: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
3135: x_msg_data => x_msg_data);
3136: EXCEPTION
3137: when OKE_API.G_EXCEPTION_ERROR then
3138: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
3139: p_api_name => l_api_name,
3140: p_pkg_name => g_pkg_name,
3141: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
3134: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
3135: x_msg_data => x_msg_data);
3136: EXCEPTION
3137: when OKE_API.G_EXCEPTION_ERROR then
3138: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
3139: p_api_name => l_api_name,
3140: p_pkg_name => g_pkg_name,
3141: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
3142: x_msg_count => x_msg_count,
3137: when OKE_API.G_EXCEPTION_ERROR then
3138: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
3139: p_api_name => l_api_name,
3140: p_pkg_name => g_pkg_name,
3141: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
3142: x_msg_count => x_msg_count,
3143: x_msg_data => x_msg_data,
3144: p_api_type => g_api_type);
3145:
3142: x_msg_count => x_msg_count,
3143: x_msg_data => x_msg_data,
3144: p_api_type => g_api_type);
3145:
3146: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
3147: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
3148: p_api_name => l_api_name,
3149: p_pkg_name => g_pkg_name,
3150: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
3143: x_msg_data => x_msg_data,
3144: p_api_type => g_api_type);
3145:
3146: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
3147: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
3148: p_api_name => l_api_name,
3149: p_pkg_name => g_pkg_name,
3150: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
3151: x_msg_count => x_msg_count,
3146: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
3147: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
3148: p_api_name => l_api_name,
3149: p_pkg_name => g_pkg_name,
3150: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
3151: x_msg_count => x_msg_count,
3152: x_msg_data => x_msg_data,
3153: p_api_type => g_api_type);
3154:
3152: x_msg_data => x_msg_data,
3153: p_api_type => g_api_type);
3154:
3155: when OTHERS then
3156: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
3157: p_api_name => l_api_name,
3158: p_pkg_name => g_pkg_name,
3159: p_exc_name => 'OTHERS',
3160: x_msg_count => x_msg_count,
3164: END lock_deliverable;
3165:
3166: PROCEDURE default_deliverable (
3167: p_api_version IN NUMBER,
3168: p_init_msg_list IN VARCHAR2 DEFAULT OKE_API.G_FALSE,
3169: x_return_status OUT NOCOPY VARCHAR2,
3170: x_msg_count OUT NOCOPY NUMBER,
3171: x_msg_data OUT NOCOPY VARCHAR2,
3172: p_header_id IN NUMBER,
3176: l_api_version CONSTANT NUMBER := 1;
3177: l_del_tbl oke_deliverable_pvt.del_tbl_type;
3178: l_api_name CONSTANT VARCHAR2(30) := 'DEFAULT_DELIVERABLE';
3179:
3180: l_return_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
3181: l_buy_or_sell VARCHAR2(1);
3182: l_direction VARCHAR2(3);
3183: l_org_id Number;
3184:
3628: BEGIN
3629: -- call START_ACTIVITY to create savepoint, check compatibility
3630: -- and initialize message list
3631:
3632: l_return_status := OKE_API.START_ACTIVITY(
3633: p_api_name => l_api_name,
3634: p_pkg_name => g_pkg_name,
3635: p_init_msg_list => p_init_msg_list,
3636: l_api_version => l_api_version,
3638: p_api_type => g_api_type,
3639: x_return_status => x_return_status);
3640:
3641: -- check if activity started successfully
3642: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
3643: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
3644: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
3645: raise OKE_API.G_EXCEPTION_ERROR;
3646: End If;
3639: x_return_status => x_return_status);
3640:
3641: -- check if activity started successfully
3642: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
3643: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
3644: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
3645: raise OKE_API.G_EXCEPTION_ERROR;
3646: End If;
3647:
3640:
3641: -- check if activity started successfully
3642: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
3643: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
3644: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
3645: raise OKE_API.G_EXCEPTION_ERROR;
3646: End If;
3647:
3648: i := 1;
3641: -- check if activity started successfully
3642: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
3643: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
3644: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
3645: raise OKE_API.G_EXCEPTION_ERROR;
3646: End If;
3647:
3648: i := 1;
3649:
3694: -- default inventory org id if ship_to/ship_from org exists, bug # 1743406
3695: --
3696:
3697: if l_direction = 'IN' then
3698: if l_del_tbl(i).ship_to_org_id is not null and l_del_tbl(i).ship_to_org_id <> oke_api.g_miss_num then
3699: l_del_tbl(i).inventory_org_id := l_del_tbl(i).ship_to_org_id;
3700: else
3701: l_del_tbl(i).inventory_org_id := l_inventory_org_id;
3702: end if;
3700: else
3701: l_del_tbl(i).inventory_org_id := l_inventory_org_id;
3702: end if;
3703: else
3704: if l_del_tbl(i).ship_from_org_id is not null and l_del_tbl(i).ship_from_org_id <> oke_api.g_miss_num then
3705: l_del_tbl(i).inventory_org_id := l_del_tbl(i).ship_from_org_id;
3706: else
3707: l_del_tbl(i).inventory_org_id := l_inventory_org_id;
3708: end if;
3785: --
3786: -- default inventory org id if ship_to/ship_from org exists, bug # 1743406
3787: --
3788: if l_direction = 'IN' then
3789: if l_del_tbl(i).ship_to_org_id is not null and l_del_tbl(i).ship_to_org_id <> oke_api.g_miss_num then
3790: l_del_tbl(i).inventory_org_id := l_del_tbl(i).ship_to_org_id;
3791: else
3792: l_del_tbl(i).inventory_org_id := l_inventory_org_id;
3793: end if;
3791: else
3792: l_del_tbl(i).inventory_org_id := l_inventory_org_id;
3793: end if;
3794: else
3795: if l_del_tbl(i).ship_from_org_id is not null and l_del_tbl(i).ship_from_org_id <> oke_api.g_miss_num then
3796:
3797: l_del_tbl(i).inventory_org_id := l_del_tbl(i).ship_from_org_id;
3798: else
3799:
3864: x_msg_data => x_msg_data,
3865: p_del_tbl => l_del_tbl,
3866: x_del_tbl => x_del_tbl);
3867:
3868: If (x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
3869: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
3870: Elsif (x_return_status = OKE_API.G_RET_STS_ERROR) then
3871: raise OKE_API.G_EXCEPTION_ERROR;
3872: End If;
3865: p_del_tbl => l_del_tbl,
3866: x_del_tbl => x_del_tbl);
3867:
3868: If (x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
3869: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
3870: Elsif (x_return_status = OKE_API.G_RET_STS_ERROR) then
3871: raise OKE_API.G_EXCEPTION_ERROR;
3872: End If;
3873:
3866: x_del_tbl => x_del_tbl);
3867:
3868: If (x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
3869: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
3870: Elsif (x_return_status = OKE_API.G_RET_STS_ERROR) then
3871: raise OKE_API.G_EXCEPTION_ERROR;
3872: End If;
3873:
3874: -- copy related entities to the deliverable
3867:
3868: If (x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
3869: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
3870: Elsif (x_return_status = OKE_API.G_RET_STS_ERROR) then
3871: raise OKE_API.G_EXCEPTION_ERROR;
3872: End If;
3873:
3874: -- copy related entities to the deliverable
3875: commit;
3875: commit;
3876:
3877: end if;
3878: -- end activity
3879: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
3880: x_msg_data => x_msg_data);
3881: EXCEPTION
3882: when OKE_API.G_EXCEPTION_ERROR then
3883: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
3878: -- end activity
3879: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
3880: x_msg_data => x_msg_data);
3881: EXCEPTION
3882: when OKE_API.G_EXCEPTION_ERROR then
3883: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
3884: p_api_name => l_api_name,
3885: p_pkg_name => g_pkg_name,
3886: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
3879: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
3880: x_msg_data => x_msg_data);
3881: EXCEPTION
3882: when OKE_API.G_EXCEPTION_ERROR then
3883: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
3884: p_api_name => l_api_name,
3885: p_pkg_name => g_pkg_name,
3886: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
3887: x_msg_count => x_msg_count,
3882: when OKE_API.G_EXCEPTION_ERROR then
3883: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
3884: p_api_name => l_api_name,
3885: p_pkg_name => g_pkg_name,
3886: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
3887: x_msg_count => x_msg_count,
3888: x_msg_data => x_msg_data,
3889: p_api_type => g_api_type);
3890:
3887: x_msg_count => x_msg_count,
3888: x_msg_data => x_msg_data,
3889: p_api_type => g_api_type);
3890:
3891: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
3892: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
3893: p_api_name => l_api_name,
3894: p_pkg_name => g_pkg_name,
3895: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
3888: x_msg_data => x_msg_data,
3889: p_api_type => g_api_type);
3890:
3891: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
3892: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
3893: p_api_name => l_api_name,
3894: p_pkg_name => g_pkg_name,
3895: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
3896: x_msg_count => x_msg_count,
3891: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
3892: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
3893: p_api_name => l_api_name,
3894: p_pkg_name => g_pkg_name,
3895: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
3896: x_msg_count => x_msg_count,
3897: x_msg_data => x_msg_data,
3898: p_api_type => g_api_type);
3899:
3897: x_msg_data => x_msg_data,
3898: p_api_type => g_api_type);
3899:
3900: when OTHERS then
3901: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
3902: p_api_name => l_api_name,
3903: p_pkg_name => g_pkg_name,
3904: p_exc_name => 'OTHERS',
3905: x_msg_count => x_msg_count,
3908: end default_deliverable;
3909:
3910: PROCEDURE Check_Delete_Contract(
3911: p_api_version IN NUMBER,
3912: p_init_msg_list IN VARCHAR2 DEFAULT OKE_API.G_FALSE,
3913: x_return_status OUT NOCOPY VARCHAR2,
3914: x_msg_count OUT NOCOPY NUMBER,
3915: x_msg_data OUT NOCOPY VARCHAR2,
3916: p_chr_id IN NUMBER,
3917: x_return_code OUT NOCOPY VARCHAR2) IS
3918:
3919: l_api_name CONSTANT VARCHAR2(30) := 'CHECK_DELETE_CONTRACT';
3920: l_api_version CONSTANT NUMBER := 1.0;
3921: l_return_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
3922: l_check VARCHAR2(1);
3923:
3924:
3925: CURSOR check_opns IS
3973:
3974: BEGIN
3975: -- call START_ACTIVITY to create savepoint, check compatibility
3976: -- and initialize message list
3977: l_return_status := OKE_API.START_ACTIVITY(
3978: p_api_name => l_api_name,
3979: p_pkg_name => g_pkg_name,
3980: p_init_msg_list => p_init_msg_list,
3981: l_api_version => l_api_version,
3983: p_api_type => g_api_type,
3984: x_return_status => x_return_status);
3985:
3986: -- check if activity started successfully
3987: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
3988: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
3989: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
3990: raise OKE_API.G_EXCEPTION_ERROR;
3991: End If;
3984: x_return_status => x_return_status);
3985:
3986: -- check if activity started successfully
3987: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
3988: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
3989: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
3990: raise OKE_API.G_EXCEPTION_ERROR;
3991: End If;
3992: l_check := '?';
3985:
3986: -- check if activity started successfully
3987: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
3988: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
3989: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
3990: raise OKE_API.G_EXCEPTION_ERROR;
3991: End If;
3992: l_check := '?';
3993: OPEN check_sts;
3986: -- check if activity started successfully
3987: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
3988: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
3989: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
3990: raise OKE_API.G_EXCEPTION_ERROR;
3991: End If;
3992: l_check := '?';
3993: OPEN check_sts;
3994: FETCH check_sts INTO l_check;
3994: FETCH check_sts INTO l_check;
3995: CLOSE check_sts;
3996:
3997: IF l_check = 'x' THEN
3998: X_Return_Status := OKE_API.G_RET_STS_ERROR;
3999: x_return_code := 'STS';
4000: raise OKE_API.G_EXCEPTION_ERROR;
4001: END IF;
4002:
3996:
3997: IF l_check = 'x' THEN
3998: X_Return_Status := OKE_API.G_RET_STS_ERROR;
3999: x_return_code := 'STS';
4000: raise OKE_API.G_EXCEPTION_ERROR;
4001: END IF;
4002:
4003: l_check := '?';
4004: OPEN check_opns;
4005: FETCH check_opns INTO l_check;
4006: CLOSE check_opns;
4007:
4008: IF l_check = '?' THEN
4009: X_Return_Status := OKE_API.G_RET_STS_ERROR;
4010: x_return_code := 'OPN';
4011: raise OKE_API.G_EXCEPTION_ERROR;
4012: END IF;
4013:
4007:
4008: IF l_check = '?' THEN
4009: X_Return_Status := OKE_API.G_RET_STS_ERROR;
4010: x_return_code := 'OPN';
4011: raise OKE_API.G_EXCEPTION_ERROR;
4012: END IF;
4013:
4014: l_check := '?';
4015: OPEN check_boa;
4016: FETCH check_boa INTO l_check;
4017: CLOSE check_boa;
4018:
4019: IF l_check = 'x' THEN
4020: X_Return_Status := OKE_API.G_RET_STS_ERROR;
4021: x_return_code := 'BOA';
4022: raise OKE_API.G_EXCEPTION_ERROR;
4023: END IF;
4024:
4018:
4019: IF l_check = 'x' THEN
4020: X_Return_Status := OKE_API.G_RET_STS_ERROR;
4021: x_return_code := 'BOA';
4022: raise OKE_API.G_EXCEPTION_ERROR;
4023: END IF;
4024:
4025: l_check := '?';
4026: OPEN check_po;
4027: FETCH check_po INTO l_check;
4028: CLOSE check_po;
4029:
4030: IF l_check = 'x' THEN
4031: X_Return_Status := OKE_API.G_RET_STS_ERROR;
4032: x_return_code := 'PO';
4033: raise OKE_API.G_EXCEPTION_ERROR;
4034: END IF;
4035:
4029:
4030: IF l_check = 'x' THEN
4031: X_Return_Status := OKE_API.G_RET_STS_ERROR;
4032: x_return_code := 'PO';
4033: raise OKE_API.G_EXCEPTION_ERROR;
4034: END IF;
4035:
4036: l_check := '?';
4037: OPEN check_mps;
4038: FETCH check_mps INTO l_check;
4039: CLOSE check_mps;
4040:
4041: IF l_check = 'x' THEN
4042: X_Return_Status := OKE_API.G_RET_STS_ERROR;
4043: x_return_code := 'PLAN';
4044: raise OKE_API.G_EXCEPTION_ERROR;
4045: END IF;
4046:
4040:
4041: IF l_check = 'x' THEN
4042: X_Return_Status := OKE_API.G_RET_STS_ERROR;
4043: x_return_code := 'PLAN';
4044: raise OKE_API.G_EXCEPTION_ERROR;
4045: END IF;
4046:
4047: l_check := '?';
4048: OPEN check_wsh;
4048: OPEN check_wsh;
4049: FETCH check_wsh INTO l_check;
4050: CLOSE check_wsh;
4051: IF l_check = 'x' THEN
4052: X_Return_Status := OKE_API.G_RET_STS_ERROR;
4053: x_return_code := 'SHIP';
4054: raise OKE_API.G_EXCEPTION_ERROR;
4055: END IF;
4056:
4050: CLOSE check_wsh;
4051: IF l_check = 'x' THEN
4052: X_Return_Status := OKE_API.G_RET_STS_ERROR;
4053: x_return_code := 'SHIP';
4054: raise OKE_API.G_EXCEPTION_ERROR;
4055: END IF;
4056:
4057: l_check := '?';
4058: OPEN check_funding;
4059: FETCH check_funding INTO l_check;
4060: CLOSE check_funding;
4061:
4062: IF l_check = 'x' THEN
4063: X_Return_Status := OKE_API.G_RET_STS_ERROR;
4064: x_return_code := 'FUND';
4065: raise OKE_API.G_EXCEPTION_ERROR;
4066: END IF;
4067:
4061:
4062: IF l_check = 'x' THEN
4063: X_Return_Status := OKE_API.G_RET_STS_ERROR;
4064: x_return_code := 'FUND';
4065: raise OKE_API.G_EXCEPTION_ERROR;
4066: END IF;
4067:
4068: If OKC_CONTRACT_PVT.Is_Process_Active(p_chr_id)='Y' then
4069: X_Return_Status := OKE_API.G_RET_STS_ERROR;
4065: raise OKE_API.G_EXCEPTION_ERROR;
4066: END IF;
4067:
4068: If OKC_CONTRACT_PVT.Is_Process_Active(p_chr_id)='Y' then
4069: X_Return_Status := OKE_API.G_RET_STS_ERROR;
4070: x_return_code := 'WFA';
4071: raise OKE_API.G_EXCEPTION_ERROR;
4072: end if;
4073: x_return_status := l_return_status;
4067:
4068: If OKC_CONTRACT_PVT.Is_Process_Active(p_chr_id)='Y' then
4069: X_Return_Status := OKE_API.G_RET_STS_ERROR;
4070: x_return_code := 'WFA';
4071: raise OKE_API.G_EXCEPTION_ERROR;
4072: end if;
4073: x_return_status := l_return_status;
4074:
4075: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
4071: raise OKE_API.G_EXCEPTION_ERROR;
4072: end if;
4073: x_return_status := l_return_status;
4074:
4075: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
4076: x_msg_data => x_msg_data);
4077: EXCEPTION
4078: when OKE_API.G_EXCEPTION_ERROR then
4079: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
4074:
4075: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
4076: x_msg_data => x_msg_data);
4077: EXCEPTION
4078: when OKE_API.G_EXCEPTION_ERROR then
4079: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
4080: p_api_name => l_api_name,
4081: p_pkg_name => g_pkg_name,
4082: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
4075: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
4076: x_msg_data => x_msg_data);
4077: EXCEPTION
4078: when OKE_API.G_EXCEPTION_ERROR then
4079: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
4080: p_api_name => l_api_name,
4081: p_pkg_name => g_pkg_name,
4082: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
4083: x_msg_count => x_msg_count,
4078: when OKE_API.G_EXCEPTION_ERROR then
4079: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
4080: p_api_name => l_api_name,
4081: p_pkg_name => g_pkg_name,
4082: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
4083: x_msg_count => x_msg_count,
4084: x_msg_data => x_msg_data,
4085: p_api_type => g_api_type);
4086:
4083: x_msg_count => x_msg_count,
4084: x_msg_data => x_msg_data,
4085: p_api_type => g_api_type);
4086:
4087: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
4088: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
4089: p_api_name => l_api_name,
4090: p_pkg_name => g_pkg_name,
4091: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
4084: x_msg_data => x_msg_data,
4085: p_api_type => g_api_type);
4086:
4087: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
4088: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
4089: p_api_name => l_api_name,
4090: p_pkg_name => g_pkg_name,
4091: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
4092: x_msg_count => x_msg_count,
4087: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
4088: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
4089: p_api_name => l_api_name,
4090: p_pkg_name => g_pkg_name,
4091: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
4092: x_msg_count => x_msg_count,
4093: x_msg_data => x_msg_data,
4094: p_api_type => g_api_type);
4095:
4093: x_msg_data => x_msg_data,
4094: p_api_type => g_api_type);
4095:
4096: when OTHERS then
4097: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
4098: p_api_name => l_api_name,
4099: p_pkg_name => g_pkg_name,
4100: p_exc_name => 'OTHERS',
4101: x_msg_count => x_msg_count,
4109:
4110:
4111: PROCEDURE delete_contract (
4112: p_api_version IN NUMBER,
4113: p_init_msg_list IN VARCHAR2 DEFAULT OKE_API.G_FALSE,
4114: x_return_status OUT NOCOPY VARCHAR2,
4115: x_msg_count OUT NOCOPY NUMBER,
4116: x_msg_data OUT NOCOPY VARCHAR2,
4117: p_chr_id IN NUMBER,
4119:
4120:
4121: l_api_name CONSTANT VARCHAR2(30) := 'DELETE_CONTRACT';
4122: l_api_version CONSTANT NUMBER := 1.0;
4123: l_return_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
4124: l_status VARCHAR2(1);
4125: l_check VARCHAR2(1);
4126: i number;
4127:
4210:
4211: BEGIN
4212: -- call START_ACTIVITY to create savepoint, check compatibility
4213: -- and initialize message list
4214: l_return_status := OKE_API.START_ACTIVITY(
4215: p_api_name => l_api_name,
4216: p_pkg_name => g_pkg_name,
4217: p_init_msg_list => p_init_msg_list,
4218: l_api_version => l_api_version,
4220: p_api_type => g_api_type,
4221: x_return_status => x_return_status);
4222:
4223: -- check if activity started successfully
4224: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
4225: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4226: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
4227: raise OKE_API.G_EXCEPTION_ERROR;
4228: End If;
4221: x_return_status => x_return_status);
4222:
4223: -- check if activity started successfully
4224: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
4225: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4226: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
4227: raise OKE_API.G_EXCEPTION_ERROR;
4228: End If;
4229:
4222:
4223: -- check if activity started successfully
4224: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
4225: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4226: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
4227: raise OKE_API.G_EXCEPTION_ERROR;
4228: End If;
4229:
4230: IF p_pre_deletion_check_yn = 'Y' THEN
4223: -- check if activity started successfully
4224: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
4225: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4226: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
4227: raise OKE_API.G_EXCEPTION_ERROR;
4228: End If;
4229:
4230: IF p_pre_deletion_check_yn = 'Y' THEN
4231: Check_Delete_Contract(
4236: x_msg_data => x_msg_data,
4237: p_chr_id => p_chr_id,
4238: x_return_code => l_return_code );
4239:
4240: If (l_check = OKE_API.G_RET_STS_UNEXP_ERROR) then
4241: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4242: Elsif (l_check = OKE_API.G_RET_STS_ERROR) then
4243: raise OKE_API.G_EXCEPTION_ERROR;
4244: End If;
4237: p_chr_id => p_chr_id,
4238: x_return_code => l_return_code );
4239:
4240: If (l_check = OKE_API.G_RET_STS_UNEXP_ERROR) then
4241: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4242: Elsif (l_check = OKE_API.G_RET_STS_ERROR) then
4243: raise OKE_API.G_EXCEPTION_ERROR;
4244: End If;
4245:
4238: x_return_code => l_return_code );
4239:
4240: If (l_check = OKE_API.G_RET_STS_UNEXP_ERROR) then
4241: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4242: Elsif (l_check = OKE_API.G_RET_STS_ERROR) then
4243: raise OKE_API.G_EXCEPTION_ERROR;
4244: End If;
4245:
4246: END IF;
4239:
4240: If (l_check = OKE_API.G_RET_STS_UNEXP_ERROR) then
4241: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4242: Elsif (l_check = OKE_API.G_RET_STS_ERROR) then
4243: raise OKE_API.G_EXCEPTION_ERROR;
4244: End If;
4245:
4246: END IF;
4247:
4253: i:= i+1;
4254: end loop;
4255: OKE_STANDARD_NOTES_PUB.delete_standard_note(
4256: p_api_version => l_api_version,
4257: p_init_msg_list => OKE_API.G_FALSE,
4258: x_return_status => l_status,
4259: x_msg_count => x_msg_count,
4260: x_msg_data => x_msg_data,
4261: p_note_tbl => l_note_tbl);
4259: x_msg_count => x_msg_count,
4260: x_msg_data => x_msg_data,
4261: p_note_tbl => l_note_tbl);
4262:
4263: If (l_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
4264: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4265: Elsif (l_status = OKE_API.G_RET_STS_ERROR) then
4266: raise OKE_API.G_EXCEPTION_ERROR;
4267: End If;
4260: x_msg_data => x_msg_data,
4261: p_note_tbl => l_note_tbl);
4262:
4263: If (l_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
4264: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4265: Elsif (l_status = OKE_API.G_RET_STS_ERROR) then
4266: raise OKE_API.G_EXCEPTION_ERROR;
4267: End If;
4268:
4261: p_note_tbl => l_note_tbl);
4262:
4263: If (l_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
4264: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4265: Elsif (l_status = OKE_API.G_RET_STS_ERROR) then
4266: raise OKE_API.G_EXCEPTION_ERROR;
4267: End If;
4268:
4269:
4262:
4263: If (l_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
4264: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4265: Elsif (l_status = OKE_API.G_RET_STS_ERROR) then
4266: raise OKE_API.G_EXCEPTION_ERROR;
4267: End If;
4268:
4269:
4270:
4278: end loop;
4279:
4280: OKE_K_PRINT_FORMS_PUB.delete_print_form(
4281: p_api_version => l_api_version,
4282: p_init_msg_list => OKE_API.G_FALSE,
4283: x_return_status => l_status,
4284: x_msg_count => x_msg_count,
4285: x_msg_data => x_msg_data,
4286: p_form_tbl => l_form_tbl);
4284: x_msg_count => x_msg_count,
4285: x_msg_data => x_msg_data,
4286: p_form_tbl => l_form_tbl);
4287:
4288: If (l_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
4289: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4290: Elsif (l_status = OKE_API.G_RET_STS_ERROR) then
4291: raise OKE_API.G_EXCEPTION_ERROR;
4292: End If;
4285: x_msg_data => x_msg_data,
4286: p_form_tbl => l_form_tbl);
4287:
4288: If (l_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
4289: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4290: Elsif (l_status = OKE_API.G_RET_STS_ERROR) then
4291: raise OKE_API.G_EXCEPTION_ERROR;
4292: End If;
4293:
4286: p_form_tbl => l_form_tbl);
4287:
4288: If (l_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
4289: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4290: Elsif (l_status = OKE_API.G_RET_STS_ERROR) then
4291: raise OKE_API.G_EXCEPTION_ERROR;
4292: End If;
4293:
4294:
4287:
4288: If (l_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
4289: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4290: Elsif (l_status = OKE_API.G_RET_STS_ERROR) then
4291: raise OKE_API.G_EXCEPTION_ERROR;
4292: End If;
4293:
4294:
4295:
4304: x_doc_id => l_doc_id,
4305: x_doc_type => l_doc_type);
4306:
4307:
4308: If (l_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
4309: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4310: Elsif (l_status = OKE_API.G_RET_STS_ERROR) then
4311: raise OKE_API.G_EXCEPTION_ERROR;
4312: End If;
4305: x_doc_type => l_doc_type);
4306:
4307:
4308: If (l_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
4309: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4310: Elsif (l_status = OKE_API.G_RET_STS_ERROR) then
4311: raise OKE_API.G_EXCEPTION_ERROR;
4312: End If;
4313:
4306:
4307:
4308: If (l_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
4309: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4310: Elsif (l_status = OKE_API.G_RET_STS_ERROR) then
4311: raise OKE_API.G_EXCEPTION_ERROR;
4312: End If;
4313:
4314:
4307:
4308: If (l_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
4309: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4310: Elsif (l_status = OKE_API.G_RET_STS_ERROR) then
4311: raise OKE_API.G_EXCEPTION_ERROR;
4312: End If;
4313:
4314:
4315: OKC_TERMS_UTIL_GRP.delete_doc(
4326:
4327:
4328:
4329:
4330: If (l_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
4331: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4332: Elsif (l_status = OKE_API.G_RET_STS_ERROR) then
4333: raise OKE_API.G_EXCEPTION_ERROR;
4334: End If;
4327:
4328:
4329:
4330: If (l_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
4331: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4332: Elsif (l_status = OKE_API.G_RET_STS_ERROR) then
4333: raise OKE_API.G_EXCEPTION_ERROR;
4334: End If;
4335:
4328:
4329:
4330: If (l_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
4331: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4332: Elsif (l_status = OKE_API.G_RET_STS_ERROR) then
4333: raise OKE_API.G_EXCEPTION_ERROR;
4334: End If;
4335:
4336:
4329:
4330: If (l_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
4331: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4332: Elsif (l_status = OKE_API.G_RET_STS_ERROR) then
4333: raise OKE_API.G_EXCEPTION_ERROR;
4334: End If;
4335:
4336:
4337:
4348: end loop;
4349:
4350: OKE_TERMS_PUB.delete_term(
4351: p_api_version => l_api_version,
4352: p_init_msg_list => OKE_API.G_FALSE,
4353: x_return_status => l_status,
4354: x_msg_count => x_msg_count,
4355: x_msg_data => x_msg_data,
4356: p_term_tbl => l_term_tbl);
4354: x_msg_count => x_msg_count,
4355: x_msg_data => x_msg_data,
4356: p_term_tbl => l_term_tbl);
4357:
4358: If (l_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
4359: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4360: Elsif (l_status = OKE_API.G_RET_STS_ERROR) then
4361: raise OKE_API.G_EXCEPTION_ERROR;
4362: End If;
4355: x_msg_data => x_msg_data,
4356: p_term_tbl => l_term_tbl);
4357:
4358: If (l_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
4359: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4360: Elsif (l_status = OKE_API.G_RET_STS_ERROR) then
4361: raise OKE_API.G_EXCEPTION_ERROR;
4362: End If;
4363:
4356: p_term_tbl => l_term_tbl);
4357:
4358: If (l_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
4359: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4360: Elsif (l_status = OKE_API.G_RET_STS_ERROR) then
4361: raise OKE_API.G_EXCEPTION_ERROR;
4362: End If;
4363:
4364:
4357:
4358: If (l_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
4359: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4360: Elsif (l_status = OKE_API.G_RET_STS_ERROR) then
4361: raise OKE_API.G_EXCEPTION_ERROR;
4362: End If;
4363:
4364:
4365:
4378: x_msg_count => x_msg_count,
4379: x_msg_data => x_msg_data,
4380: p_ctcv_tbl => l_contact_tbl);
4381:
4382: If (l_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
4383: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4384: Elsif (l_status = OKE_API.G_RET_STS_ERROR) then
4385: raise OKE_API.G_EXCEPTION_ERROR;
4386: End If;
4379: x_msg_data => x_msg_data,
4380: p_ctcv_tbl => l_contact_tbl);
4381:
4382: If (l_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
4383: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4384: Elsif (l_status = OKE_API.G_RET_STS_ERROR) then
4385: raise OKE_API.G_EXCEPTION_ERROR;
4386: End If;
4387:
4380: p_ctcv_tbl => l_contact_tbl);
4381:
4382: If (l_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
4383: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4384: Elsif (l_status = OKE_API.G_RET_STS_ERROR) then
4385: raise OKE_API.G_EXCEPTION_ERROR;
4386: End If;
4387:
4388:
4381:
4382: If (l_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
4383: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4384: Elsif (l_status = OKE_API.G_RET_STS_ERROR) then
4385: raise OKE_API.G_EXCEPTION_ERROR;
4386: End If;
4387:
4388:
4389:
4402: x_msg_count => x_msg_count,
4403: x_msg_data => x_msg_data,
4404: p_cplv_tbl => l_party_tbl);
4405:
4406: If (l_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
4407: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4408: Elsif (l_status = OKE_API.G_RET_STS_ERROR) then
4409: raise OKE_API.G_EXCEPTION_ERROR;
4410: End If;
4403: x_msg_data => x_msg_data,
4404: p_cplv_tbl => l_party_tbl);
4405:
4406: If (l_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
4407: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4408: Elsif (l_status = OKE_API.G_RET_STS_ERROR) then
4409: raise OKE_API.G_EXCEPTION_ERROR;
4410: End If;
4411:
4404: p_cplv_tbl => l_party_tbl);
4405:
4406: If (l_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
4407: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4408: Elsif (l_status = OKE_API.G_RET_STS_ERROR) then
4409: raise OKE_API.G_EXCEPTION_ERROR;
4410: End If;
4411:
4412:
4405:
4406: If (l_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
4407: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4408: Elsif (l_status = OKE_API.G_RET_STS_ERROR) then
4409: raise OKE_API.G_EXCEPTION_ERROR;
4410: End If;
4411:
4412:
4413:
4415: OKE_CONTRACT_PVT.delete_minor_entities (
4416: p_header_id => p_chr_id,
4417: x_return_status => l_status);
4418:
4419: If (l_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
4420: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4421: Elsif (l_status = OKE_API.G_RET_STS_ERROR) then
4422: raise OKE_API.G_EXCEPTION_ERROR;
4423: End If;
4416: p_header_id => p_chr_id,
4417: x_return_status => l_status);
4418:
4419: If (l_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
4420: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4421: Elsif (l_status = OKE_API.G_RET_STS_ERROR) then
4422: raise OKE_API.G_EXCEPTION_ERROR;
4423: End If;
4424:
4417: x_return_status => l_status);
4418:
4419: If (l_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
4420: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4421: Elsif (l_status = OKE_API.G_RET_STS_ERROR) then
4422: raise OKE_API.G_EXCEPTION_ERROR;
4423: End If;
4424:
4425:
4418:
4419: If (l_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
4420: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4421: Elsif (l_status = OKE_API.G_RET_STS_ERROR) then
4422: raise OKE_API.G_EXCEPTION_ERROR;
4423: End If;
4424:
4425:
4426:
4430:
4431: loop
4432: OKE_FUNDING_PUB.delete_allocation (
4433: p_api_version => l_api_version,
4434: p_init_msg_list => OKE_API.G_FALSE,
4435: p_commit => OKE_API.G_FALSE,
4436: x_return_status => l_status,
4437: x_msg_count => x_msg_count,
4438: x_msg_data => x_msg_data,
4431: loop
4432: OKE_FUNDING_PUB.delete_allocation (
4433: p_api_version => l_api_version,
4434: p_init_msg_list => OKE_API.G_FALSE,
4435: p_commit => OKE_API.G_FALSE,
4436: x_return_status => l_status,
4437: x_msg_count => x_msg_count,
4438: x_msg_data => x_msg_data,
4439: p_fund_allocation_id => c.fund_allocation_id );
4437: x_msg_count => x_msg_count,
4438: x_msg_data => x_msg_data,
4439: p_fund_allocation_id => c.fund_allocation_id );
4440:
4441: If (l_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
4442: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4443: Elsif (l_status = OKE_API.G_RET_STS_ERROR) then
4444: raise OKE_API.G_EXCEPTION_ERROR;
4445: End If;
4438: x_msg_data => x_msg_data,
4439: p_fund_allocation_id => c.fund_allocation_id );
4440:
4441: If (l_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
4442: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4443: Elsif (l_status = OKE_API.G_RET_STS_ERROR) then
4444: raise OKE_API.G_EXCEPTION_ERROR;
4445: End If;
4446:
4439: p_fund_allocation_id => c.fund_allocation_id );
4440:
4441: If (l_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
4442: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4443: Elsif (l_status = OKE_API.G_RET_STS_ERROR) then
4444: raise OKE_API.G_EXCEPTION_ERROR;
4445: End If;
4446:
4447:
4440:
4441: If (l_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
4442: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4443: Elsif (l_status = OKE_API.G_RET_STS_ERROR) then
4444: raise OKE_API.G_EXCEPTION_ERROR;
4445: End If;
4446:
4447:
4448: end loop;
4451: for c in c_fund
4452: loop
4453: OKE_FUNDING_PUB.delete_funding(
4454: p_api_version => l_api_version,
4455: p_init_msg_list => OKE_API.G_FALSE,
4456: p_commit => OKE_API.G_FALSE,
4457: x_return_status => l_status,
4458: x_msg_count => x_msg_count,
4459: x_msg_data => x_msg_data,
4452: loop
4453: OKE_FUNDING_PUB.delete_funding(
4454: p_api_version => l_api_version,
4455: p_init_msg_list => OKE_API.G_FALSE,
4456: p_commit => OKE_API.G_FALSE,
4457: x_return_status => l_status,
4458: x_msg_count => x_msg_count,
4459: x_msg_data => x_msg_data,
4460: p_funding_source_id => c.funding_source_id);
4461:
4462:
4463:
4464:
4465: If (l_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
4466: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4467: Elsif (l_status = OKE_API.G_RET_STS_ERROR) then
4468: raise OKE_API.G_EXCEPTION_ERROR;
4469: End If;
4462:
4463:
4464:
4465: If (l_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
4466: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4467: Elsif (l_status = OKE_API.G_RET_STS_ERROR) then
4468: raise OKE_API.G_EXCEPTION_ERROR;
4469: End If;
4470:
4463:
4464:
4465: If (l_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
4466: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4467: Elsif (l_status = OKE_API.G_RET_STS_ERROR) then
4468: raise OKE_API.G_EXCEPTION_ERROR;
4469: End If;
4470:
4471:
4464:
4465: If (l_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
4466: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4467: Elsif (l_status = OKE_API.G_RET_STS_ERROR) then
4468: raise OKE_API.G_EXCEPTION_ERROR;
4469: End If;
4470:
4471:
4472: end loop;
4480: end loop;
4481:
4482: OKE_DELIVERABLE_PVT.delete_row(
4483: p_api_version => l_api_version,
4484: p_init_msg_list => OKE_API.G_FALSE,
4485: x_return_status => l_status,
4486: x_msg_count => x_msg_count,
4487: x_msg_data => x_msg_data,
4488: p_del_tbl => l_deliverable_tbl);
4486: x_msg_count => x_msg_count,
4487: x_msg_data => x_msg_data,
4488: p_del_tbl => l_deliverable_tbl);
4489:
4490: If (l_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
4491: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4492: Elsif (l_status = OKE_API.G_RET_STS_ERROR) then
4493: raise OKE_API.G_EXCEPTION_ERROR;
4494: End If;
4487: x_msg_data => x_msg_data,
4488: p_del_tbl => l_deliverable_tbl);
4489:
4490: If (l_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
4491: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4492: Elsif (l_status = OKE_API.G_RET_STS_ERROR) then
4493: raise OKE_API.G_EXCEPTION_ERROR;
4494: End If;
4495:
4488: p_del_tbl => l_deliverable_tbl);
4489:
4490: If (l_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
4491: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4492: Elsif (l_status = OKE_API.G_RET_STS_ERROR) then
4493: raise OKE_API.G_EXCEPTION_ERROR;
4494: End If;
4495:
4496:
4489:
4490: If (l_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
4491: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4492: Elsif (l_status = OKE_API.G_RET_STS_ERROR) then
4493: raise OKE_API.G_EXCEPTION_ERROR;
4494: End If;
4495:
4496:
4497:
4509: x_msg_count => x_msg_count,
4510: x_msg_data => x_msg_data,
4511: p_cimv_tbl => l_item_tbl);
4512:
4513: If (l_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
4514: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4515: Elsif (l_status = OKE_API.G_RET_STS_ERROR) then
4516: raise OKE_API.G_EXCEPTION_ERROR;
4517: End If;
4510: x_msg_data => x_msg_data,
4511: p_cimv_tbl => l_item_tbl);
4512:
4513: If (l_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
4514: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4515: Elsif (l_status = OKE_API.G_RET_STS_ERROR) then
4516: raise OKE_API.G_EXCEPTION_ERROR;
4517: End If;
4518:
4511: p_cimv_tbl => l_item_tbl);
4512:
4513: If (l_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
4514: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4515: Elsif (l_status = OKE_API.G_RET_STS_ERROR) then
4516: raise OKE_API.G_EXCEPTION_ERROR;
4517: End If;
4518:
4519:
4512:
4513: If (l_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
4514: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4515: Elsif (l_status = OKE_API.G_RET_STS_ERROR) then
4516: raise OKE_API.G_EXCEPTION_ERROR;
4517: End If;
4518:
4519:
4520:
4530:
4531:
4532: OKE_CLE_PVT.delete_row(
4533: p_api_version => l_api_version,
4534: p_init_msg_list => OKE_API.G_FALSE,
4535: x_return_status => l_status,
4536: x_msg_count => x_msg_count,
4537: x_msg_data => x_msg_data,
4538: p_cle_tbl => l_cle_tbl);
4537: x_msg_data => x_msg_data,
4538: p_cle_tbl => l_cle_tbl);
4539:
4540:
4541: If (l_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
4542: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4543: Elsif (l_status = OKE_API.G_RET_STS_ERROR) then
4544: raise OKE_API.G_EXCEPTION_ERROR;
4545: End If;
4538: p_cle_tbl => l_cle_tbl);
4539:
4540:
4541: If (l_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
4542: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4543: Elsif (l_status = OKE_API.G_RET_STS_ERROR) then
4544: raise OKE_API.G_EXCEPTION_ERROR;
4545: End If;
4546:
4539:
4540:
4541: If (l_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
4542: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4543: Elsif (l_status = OKE_API.G_RET_STS_ERROR) then
4544: raise OKE_API.G_EXCEPTION_ERROR;
4545: End If;
4546:
4547:
4540:
4541: If (l_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
4542: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4543: Elsif (l_status = OKE_API.G_RET_STS_ERROR) then
4544: raise OKE_API.G_EXCEPTION_ERROR;
4545: End If;
4546:
4547:
4548:
4553: x_msg_count => x_msg_count,
4554: x_msg_data => x_msg_data,
4555: p_clev_tbl => l_clev_tbl);
4556:
4557: If (l_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
4558: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4559: Elsif (l_status = OKE_API.G_RET_STS_ERROR) then
4560: raise OKE_API.G_EXCEPTION_ERROR;
4561: End If;
4554: x_msg_data => x_msg_data,
4555: p_clev_tbl => l_clev_tbl);
4556:
4557: If (l_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
4558: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4559: Elsif (l_status = OKE_API.G_RET_STS_ERROR) then
4560: raise OKE_API.G_EXCEPTION_ERROR;
4561: End If;
4562:
4555: p_clev_tbl => l_clev_tbl);
4556:
4557: If (l_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
4558: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4559: Elsif (l_status = OKE_API.G_RET_STS_ERROR) then
4560: raise OKE_API.G_EXCEPTION_ERROR;
4561: End If;
4562:
4563:
4556:
4557: If (l_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
4558: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4559: Elsif (l_status = OKE_API.G_RET_STS_ERROR) then
4560: raise OKE_API.G_EXCEPTION_ERROR;
4561: End If;
4562:
4563:
4564:
4567:
4568:
4569: OKE_CHR_PVT.delete_row(
4570: p_api_version => l_api_version,
4571: p_init_msg_list => OKE_API.G_FALSE,
4572: x_return_status => l_status,
4573: x_msg_count => x_msg_count,
4574: x_msg_data => x_msg_data,
4575: p_chr_rec => l_chr_rec);
4573: x_msg_count => x_msg_count,
4574: x_msg_data => x_msg_data,
4575: p_chr_rec => l_chr_rec);
4576:
4577: If (l_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
4578: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4579: Elsif (l_status = OKE_API.G_RET_STS_ERROR) then
4580: raise OKE_API.G_EXCEPTION_ERROR;
4581: End If;
4574: x_msg_data => x_msg_data,
4575: p_chr_rec => l_chr_rec);
4576:
4577: If (l_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
4578: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4579: Elsif (l_status = OKE_API.G_RET_STS_ERROR) then
4580: raise OKE_API.G_EXCEPTION_ERROR;
4581: End If;
4582:
4575: p_chr_rec => l_chr_rec);
4576:
4577: If (l_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
4578: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4579: Elsif (l_status = OKE_API.G_RET_STS_ERROR) then
4580: raise OKE_API.G_EXCEPTION_ERROR;
4581: End If;
4582:
4583:
4576:
4577: If (l_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
4578: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4579: Elsif (l_status = OKE_API.G_RET_STS_ERROR) then
4580: raise OKE_API.G_EXCEPTION_ERROR;
4581: End If;
4582:
4583:
4584:
4590: x_msg_data => x_msg_data);
4591:
4592:
4593:
4594: If (l_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
4595: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4596: Elsif (l_status = OKE_API.G_RET_STS_ERROR) then
4597: raise OKE_API.G_EXCEPTION_ERROR;
4598: End If;
4591:
4592:
4593:
4594: If (l_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
4595: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4596: Elsif (l_status = OKE_API.G_RET_STS_ERROR) then
4597: raise OKE_API.G_EXCEPTION_ERROR;
4598: End If;
4599:
4592:
4593:
4594: If (l_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
4595: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4596: Elsif (l_status = OKE_API.G_RET_STS_ERROR) then
4597: raise OKE_API.G_EXCEPTION_ERROR;
4598: End If;
4599:
4600:
4593:
4594: If (l_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
4595: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4596: Elsif (l_status = OKE_API.G_RET_STS_ERROR) then
4597: raise OKE_API.G_EXCEPTION_ERROR;
4598: End If;
4599:
4600:
4601: OKC_CONTRACT_PVT.delete_contract_header(
4607: p_chrv_rec => l_chrv_rec);
4608:
4609:
4610:
4611: If (l_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
4612: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4613: Elsif (l_status = OKE_API.G_RET_STS_ERROR) then
4614: raise OKE_API.G_EXCEPTION_ERROR;
4615: End If;
4608:
4609:
4610:
4611: If (l_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
4612: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4613: Elsif (l_status = OKE_API.G_RET_STS_ERROR) then
4614: raise OKE_API.G_EXCEPTION_ERROR;
4615: End If;
4616:
4609:
4610:
4611: If (l_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
4612: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4613: Elsif (l_status = OKE_API.G_RET_STS_ERROR) then
4614: raise OKE_API.G_EXCEPTION_ERROR;
4615: End If;
4616:
4617:
4610:
4611: If (l_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
4612: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
4613: Elsif (l_status = OKE_API.G_RET_STS_ERROR) then
4614: raise OKE_API.G_EXCEPTION_ERROR;
4615: End If;
4616:
4617:
4618:
4617:
4618:
4619:
4620: -- end activity
4621: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
4622: x_msg_data => x_msg_data);
4623: EXCEPTION
4624: when OKE_API.G_EXCEPTION_ERROR then
4625: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
4620: -- end activity
4621: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
4622: x_msg_data => x_msg_data);
4623: EXCEPTION
4624: when OKE_API.G_EXCEPTION_ERROR then
4625: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
4626: p_api_name => l_api_name,
4627: p_pkg_name => g_pkg_name,
4628: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
4621: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
4622: x_msg_data => x_msg_data);
4623: EXCEPTION
4624: when OKE_API.G_EXCEPTION_ERROR then
4625: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
4626: p_api_name => l_api_name,
4627: p_pkg_name => g_pkg_name,
4628: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
4629: x_msg_count => x_msg_count,
4624: when OKE_API.G_EXCEPTION_ERROR then
4625: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
4626: p_api_name => l_api_name,
4627: p_pkg_name => g_pkg_name,
4628: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
4629: x_msg_count => x_msg_count,
4630: x_msg_data => x_msg_data,
4631: p_api_type => g_api_type);
4632:
4629: x_msg_count => x_msg_count,
4630: x_msg_data => x_msg_data,
4631: p_api_type => g_api_type);
4632:
4633: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
4634: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
4635: p_api_name => l_api_name,
4636: p_pkg_name => g_pkg_name,
4637: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
4630: x_msg_data => x_msg_data,
4631: p_api_type => g_api_type);
4632:
4633: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
4634: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
4635: p_api_name => l_api_name,
4636: p_pkg_name => g_pkg_name,
4637: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
4638: x_msg_count => x_msg_count,
4633: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
4634: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
4635: p_api_name => l_api_name,
4636: p_pkg_name => g_pkg_name,
4637: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
4638: x_msg_count => x_msg_count,
4639: x_msg_data => x_msg_data,
4640: p_api_type => g_api_type);
4641:
4639: x_msg_data => x_msg_data,
4640: p_api_type => g_api_type);
4641:
4642: when OTHERS then
4643: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
4644: p_api_name => l_api_name,
4645: p_pkg_name => g_pkg_name,
4646: p_exc_name => 'OTHERS',
4647: x_msg_count => x_msg_count,