29: x_samv_tbl OUT NOCOPY samv_tbl_type) IS
30: l_savv_tbl savv_tbl_type := p_savv_tbl;
31: l_saiv_tbl saiv_tbl_type := p_saiv_tbl;
32: l_samv_tbl samv_tbl_type := p_samv_tbl;
33: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
34: i NUMBER := 0;
35: BEGIN
36: create_std_article(
37: p_api_version,
40: x_msg_count,
41: x_msg_data,
42: p_saev_rec,
43: x_saev_rec);
44: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
45: raise G_EXCEPTION_HALT_VALIDATION;
46: ELSE
47: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
48: l_return_status := x_return_status;
43: x_saev_rec);
44: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
45: raise G_EXCEPTION_HALT_VALIDATION;
46: ELSE
47: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
48: l_return_status := x_return_status;
49: END IF;
50: END IF;
51:
87: x_msg_count,
88: x_msg_data,
89: l_savv_tbl,
90: x_savv_tbl);
91: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
92: raise G_EXCEPTION_HALT_VALIDATION;
93: ELSE
94: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
95: l_return_status := x_return_status;
90: x_savv_tbl);
91: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
92: raise G_EXCEPTION_HALT_VALIDATION;
93: ELSE
94: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
95: l_return_status := x_return_status;
96: END IF;
97: END IF;
98:
104: x_msg_data,
105: l_saiv_tbl,
106: x_saiv_tbl);
107:
108: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
109: raise G_EXCEPTION_HALT_VALIDATION;
110: ELSE
111: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
112: l_return_status := x_return_status;
107:
108: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
109: raise G_EXCEPTION_HALT_VALIDATION;
110: ELSE
111: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
112: l_return_status := x_return_status;
113: END IF;
114: END IF;
115:
120: x_msg_count,
121: x_msg_data,
122: l_samv_tbl,
123: x_samv_tbl);
124: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
125: raise G_EXCEPTION_HALT_VALIDATION;
126: ELSE
127: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
128: l_return_status := x_return_status;
123: x_samv_tbl);
124: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
125: raise G_EXCEPTION_HALT_VALIDATION;
126: ELSE
127: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
128: l_return_status := x_return_status;
129: END IF;
130: END IF;
131:
134: EXCEPTION
135: WHEN G_EXCEPTION_HALT_VALIDATION THEN
136: NULL;
137: WHEN OTHERS THEN
138: OKC_API.set_message(p_app_name => g_app_name,
139: p_msg_name => g_unexpected_error,
140: p_token1 => g_sqlcode_token,
141: p_token1_value => sqlcode,
142: p_token2 => g_sqlerrm_token,
140: p_token1 => g_sqlcode_token,
141: p_token1_value => sqlcode,
142: p_token2 => g_sqlerrm_token,
143: p_token2_value => sqlerrm);
144: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
145: END Create_std_article;
146:
147:
148:
159: x_saev_rec OUT NOCOPY saev_rec_type,
160: x_savv_tbl OUT NOCOPY savv_tbl_type,
161: x_saiv_tbl OUT NOCOPY saiv_tbl_type,
162: x_samv_tbl OUT NOCOPY samv_tbl_type) IS
163: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
164: BEGIN
165: Update_std_article(
166: p_api_version,
167: p_init_msg_list,
169: x_msg_count,
170: x_msg_data,
171: p_saev_rec,
172: x_saev_rec);
173: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
174: raise G_EXCEPTION_HALT_VALIDATION;
175: ELSE
176: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
177: l_return_status := x_return_status;
172: x_saev_rec);
173: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
174: raise G_EXCEPTION_HALT_VALIDATION;
175: ELSE
176: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
177: l_return_status := x_return_status;
178: END IF;
179: END IF;
180:
187: x_msg_count,
188: x_msg_data,
189: p_savv_tbl,
190: x_savv_tbl);
191: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
192: raise G_EXCEPTION_HALT_VALIDATION;
193: ELSE
194: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
195: l_return_status := x_return_status;
190: x_savv_tbl);
191: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
192: raise G_EXCEPTION_HALT_VALIDATION;
193: ELSE
194: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
195: l_return_status := x_return_status;
196: END IF;
197: END IF;
198:
203: x_msg_count,
204: x_msg_data,
205: p_saiv_tbl,
206: x_saiv_tbl);
207: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
208: raise G_EXCEPTION_HALT_VALIDATION;
209: ELSE
210: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
211: l_return_status := x_return_status;
206: x_saiv_tbl);
207: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
208: raise G_EXCEPTION_HALT_VALIDATION;
209: ELSE
210: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
211: l_return_status := x_return_status;
212: END IF;
213: END IF;
214:
219: x_msg_count,
220: x_msg_data,
221: p_samv_tbl,
222: x_samv_tbl);
223: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
224: raise G_EXCEPTION_HALT_VALIDATION;
225: ELSE
226: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
227: l_return_status := x_return_status;
222: x_samv_tbl);
223: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
224: raise G_EXCEPTION_HALT_VALIDATION;
225: ELSE
226: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
227: l_return_status := x_return_status;
228: END IF;
229: END IF;
230:
233: EXCEPTION
234: WHEN G_EXCEPTION_HALT_VALIDATION THEN
235: NULL;
236: WHEN OTHERS THEN
237: OKC_API.set_message(p_app_name => g_app_name,
238: p_msg_name => g_unexpected_error,
239: p_token1 => g_sqlcode_token,
240: p_token1_value => sqlcode,
241: p_token2 => g_sqlerrm_token,
239: p_token1 => g_sqlcode_token,
240: p_token1_value => sqlcode,
241: p_token2 => g_sqlerrm_token,
242: p_token2_value => sqlerrm);
243: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
244: END Update_std_article;
245:
246:
247:
254: p_saev_rec IN saev_rec_type,
255: p_savv_tbl IN savv_tbl_type,
256: p_saiv_tbl IN saiv_tbl_type,
257: p_samv_tbl IN samv_tbl_type) IS
258: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
259: BEGIN
260: Validate_std_article(
261: p_api_version,
262: p_init_msg_list,
263: x_return_status,
264: x_msg_count,
265: x_msg_data,
266: p_saev_rec);
267: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
268: raise G_EXCEPTION_HALT_VALIDATION;
269: ELSE
270: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
271: l_return_status := x_return_status;
266: p_saev_rec);
267: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
268: raise G_EXCEPTION_HALT_VALIDATION;
269: ELSE
270: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
271: l_return_status := x_return_status;
272: END IF;
273: END IF;
274:
280: x_return_status,
281: x_msg_count,
282: x_msg_data,
283: p_savv_tbl);
284: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
285: raise G_EXCEPTION_HALT_VALIDATION;
286: ELSE
287: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
288: l_return_status := x_return_status;
283: p_savv_tbl);
284: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
285: raise G_EXCEPTION_HALT_VALIDATION;
286: ELSE
287: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
288: l_return_status := x_return_status;
289: END IF;
290: END IF;
291:
295: x_return_status,
296: x_msg_count,
297: x_msg_data,
298: p_saiv_tbl);
299: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
300: raise G_EXCEPTION_HALT_VALIDATION;
301: ELSE
302: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
303: l_return_status := x_return_status;
298: p_saiv_tbl);
299: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
300: raise G_EXCEPTION_HALT_VALIDATION;
301: ELSE
302: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
303: l_return_status := x_return_status;
304: END IF;
305: END IF;
306:
310: x_return_status,
311: x_msg_count,
312: x_msg_data,
313: p_samv_tbl);
314: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
315: raise G_EXCEPTION_HALT_VALIDATION;
316: ELSE
317: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
318: l_return_status := x_return_status;
313: p_samv_tbl);
314: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
315: raise G_EXCEPTION_HALT_VALIDATION;
316: ELSE
317: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
318: l_return_status := x_return_status;
319: END IF;
320: END IF;
321:
324: EXCEPTION
325: WHEN G_EXCEPTION_HALT_VALIDATION THEN
326: NULL;
327: WHEN OTHERS THEN
328: OKC_API.set_message(p_app_name => g_app_name,
329: p_msg_name => g_unexpected_error,
330: p_token1 => g_sqlcode_token,
331: p_token1_value => sqlcode,
332: p_token2 => g_sqlerrm_token,
330: p_token1 => g_sqlcode_token,
331: p_token1_value => sqlcode,
332: p_token2 => g_sqlerrm_token,
333: p_token2_value => sqlerrm);
334: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
335:
336: END Validate_std_article;
337:
338: PROCEDURE Create_std_article(
459: select '1' from OKC_STD_ART_INCMPTS where sae_id=id;
460: l_count varchar2(1):='0';
461:
462: BEGIN
463: x_return_status := OKC_API.G_RET_STS_SUCCESS;
464:
465: IF p_saev_rec.id IS NOT NULL THEN
466: OPEN l_ver(p_saev_rec.id);
467: FETCH l_ver into l_count;
494: p_saev_rec);
495:
496: EXCEPTION
497: WHEN G_EXCEPTION_HALT_VALIDATION THEN
498: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
499: p_msg_name => G_CHILD_DELETE);
500: x_return_status := OKC_API.G_RET_STS_ERROR;
501: WHEN OTHERS THEN
502: OKC_API.set_message(p_app_name => g_app_name,
496: EXCEPTION
497: WHEN G_EXCEPTION_HALT_VALIDATION THEN
498: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
499: p_msg_name => G_CHILD_DELETE);
500: x_return_status := OKC_API.G_RET_STS_ERROR;
501: WHEN OTHERS THEN
502: OKC_API.set_message(p_app_name => g_app_name,
503: p_msg_name => g_unexpected_error,
504: p_token1 => g_sqlcode_token,
498: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
499: p_msg_name => G_CHILD_DELETE);
500: x_return_status := OKC_API.G_RET_STS_ERROR;
501: WHEN OTHERS THEN
502: OKC_API.set_message(p_app_name => g_app_name,
503: p_msg_name => g_unexpected_error,
504: p_token1 => g_sqlcode_token,
505: p_token1_value => sqlcode,
506: p_token2 => g_sqlerrm_token,
504: p_token1 => g_sqlcode_token,
505: p_token1_value => sqlcode,
506: p_token2 => g_sqlerrm_token,
507: p_token2_value => sqlerrm);
508: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
509: END delete_std_article;
510:
511:
512: PROCEDURE delete_std_article(
516: x_msg_count OUT NOCOPY NUMBER,
517: x_msg_data OUT NOCOPY VARCHAR2,
518: p_saev_tbl IN saev_tbl_type) IS
519: i number :=0;
520: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
521: BEGIN
522: x_return_status := OKC_API.G_RET_STS_SUCCESS;
523: IF (p_saev_tbl.COUNT > 0) THEN
524: i := p_saev_tbl.FIRST;
518: p_saev_tbl IN saev_tbl_type) IS
519: i number :=0;
520: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
521: BEGIN
522: x_return_status := OKC_API.G_RET_STS_SUCCESS;
523: IF (p_saev_tbl.COUNT > 0) THEN
524: i := p_saev_tbl.FIRST;
525: LOOP
526: delete_std_article(
529: l_return_status,
530: x_msg_count,
531: x_msg_data,
532: p_saev_tbl(i));
533: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
534: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
535: x_return_status := l_return_status;
536: raise G_EXCEPTION_HALT_VALIDATION;
537: ELSE
530: x_msg_count,
531: x_msg_data,
532: p_saev_tbl(i));
533: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
534: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
535: x_return_status := l_return_status;
536: raise G_EXCEPTION_HALT_VALIDATION;
537: ELSE
538: x_return_status := l_return_status;
545: EXCEPTION
546: WHEN G_EXCEPTION_HALT_VALIDATION THEN
547: NULL;
548: WHEN OTHERS THEN
549: OKC_API.set_message(p_app_name => g_app_name,
550: p_msg_name => g_unexpected_error,
551: p_token1 => g_sqlcode_token,
552: p_token1_value => sqlcode,
553: p_token2 => g_sqlerrm_token,
551: p_token1 => g_sqlcode_token,
552: p_token1_value => sqlcode,
553: p_token2 => g_sqlerrm_token,
554: p_token2_value => sqlerrm);
555: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
556:
557: END delete_std_article;
558:
559: PROCEDURE validate_std_article(
599: p_saev_rec IN saev_rec_type) IS
600:
601: l_api_version CONSTANT NUMBER := 1;
602: l_api_name CONSTANT VARCHAR2(30) := 'V_Validate_Name';
603: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
604: l_saev_rec saev_rec_type := p_saev_rec;
605: BEGIN
606: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
607: G_PKG_NAME,
602: l_api_name CONSTANT VARCHAR2(30) := 'V_Validate_Name';
603: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
604: l_saev_rec saev_rec_type := p_saev_rec;
605: BEGIN
606: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
607: G_PKG_NAME,
608: p_init_msg_list,
609: l_api_version,
610: p_api_version,
609: l_api_version,
610: p_api_version,
611: '_PVT',
612: x_return_status);
613: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
614: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
615: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
616: RAISE OKC_API.G_EXCEPTION_ERROR;
617: END IF;
610: p_api_version,
611: '_PVT',
612: x_return_status);
613: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
614: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
615: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
616: RAISE OKC_API.G_EXCEPTION_ERROR;
617: END IF;
618: /*
611: '_PVT',
612: x_return_status);
613: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
614: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
615: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
616: RAISE OKC_API.G_EXCEPTION_ERROR;
617: END IF;
618: /*
619: OKC_UTIL.ADD_VIEW('OKC_STD_ARTICLES_V',x_return_status);
612: x_return_status);
613: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
614: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
615: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
616: RAISE OKC_API.G_EXCEPTION_ERROR;
617: END IF;
618: /*
619: OKC_UTIL.ADD_VIEW('OKC_STD_ARTICLES_V',x_return_status);
620: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
616: RAISE OKC_API.G_EXCEPTION_ERROR;
617: END IF;
618: /*
619: OKC_UTIL.ADD_VIEW('OKC_STD_ARTICLES_V',x_return_status);
620: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
621: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN -- need to leave
622: l_return_status := x_return_status;
623: RAISE G_EXCEPTION_HALT_VALIDATION;
624: ELSE
617: END IF;
618: /*
619: OKC_UTIL.ADD_VIEW('OKC_STD_ARTICLES_V',x_return_status);
620: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
621: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN -- need to leave
622: l_return_status := x_return_status;
623: RAISE G_EXCEPTION_HALT_VALIDATION;
624: ELSE
625: l_return_status := x_return_status; -- record that there was an error
628: */
629: --- Validate name
630: OKC_SAE_PVT.validate_name(p_saev_rec,l_return_status);
631: --- If any errors happen abort API
632: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
633: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
634: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
635: RAISE OKC_API.G_EXCEPTION_ERROR;
636: END IF;
629: --- Validate name
630: OKC_SAE_PVT.validate_name(p_saev_rec,l_return_status);
631: --- If any errors happen abort API
632: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
633: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
634: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
635: RAISE OKC_API.G_EXCEPTION_ERROR;
636: END IF;
637: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
630: OKC_SAE_PVT.validate_name(p_saev_rec,l_return_status);
631: --- If any errors happen abort API
632: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
633: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
634: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
635: RAISE OKC_API.G_EXCEPTION_ERROR;
636: END IF;
637: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
638: EXCEPTION
631: --- If any errors happen abort API
632: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
633: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
634: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
635: RAISE OKC_API.G_EXCEPTION_ERROR;
636: END IF;
637: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
638: EXCEPTION
639:
633: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
634: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
635: RAISE OKC_API.G_EXCEPTION_ERROR;
636: END IF;
637: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
638: EXCEPTION
639:
640: WHEN G_EXCEPTION_HALT_VALIDATION THEN
641: null;
639:
640: WHEN G_EXCEPTION_HALT_VALIDATION THEN
641: null;
642:
643: WHEN OKC_API.G_EXCEPTION_ERROR THEN
644: x_return_status := OKC_API.HANDLE_EXCEPTIONS
645: (
646: l_api_name,
647: G_PKG_NAME,
640: WHEN G_EXCEPTION_HALT_VALIDATION THEN
641: null;
642:
643: WHEN OKC_API.G_EXCEPTION_ERROR THEN
644: x_return_status := OKC_API.HANDLE_EXCEPTIONS
645: (
646: l_api_name,
647: G_PKG_NAME,
648: 'OKC_API.G_RET_STS_ERROR',
644: x_return_status := OKC_API.HANDLE_EXCEPTIONS
645: (
646: l_api_name,
647: G_PKG_NAME,
648: 'OKC_API.G_RET_STS_ERROR',
649: x_msg_count,
650: x_msg_data,
651: '_PVT'
652: );
649: x_msg_count,
650: x_msg_data,
651: '_PVT'
652: );
653: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
654: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
655: (
656: l_api_name,
657: G_PKG_NAME,
650: x_msg_data,
651: '_PVT'
652: );
653: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
654: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
655: (
656: l_api_name,
657: G_PKG_NAME,
658: 'OKC_API.G_RET_STS_UNEXP_ERROR',
654: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
655: (
656: l_api_name,
657: G_PKG_NAME,
658: 'OKC_API.G_RET_STS_UNEXP_ERROR',
659: x_msg_count,
660: x_msg_data,
661: '_PVT'
662: );
660: x_msg_data,
661: '_PVT'
662: );
663: WHEN OTHERS THEN
664: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
665: (
666: l_api_name,
667: G_PKG_NAME,
668: 'OTHERS',
864: p_savv_rec IN savv_rec_type) IS
865:
866: l_api_version CONSTANT NUMBER := 1;
867: l_api_name CONSTANT VARCHAR2(30) := 'V_Validate_Sav_Release';
868: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
869: l_savv_rec savv_rec_type := p_savv_rec;
870: BEGIN
871: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
872: G_PKG_NAME,
867: l_api_name CONSTANT VARCHAR2(30) := 'V_Validate_Sav_Release';
868: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
869: l_savv_rec savv_rec_type := p_savv_rec;
870: BEGIN
871: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
872: G_PKG_NAME,
873: p_init_msg_list,
874: l_api_version,
875: p_api_version,
874: l_api_version,
875: p_api_version,
876: '_PVT',
877: x_return_status);
878: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
879: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
880: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
881: RAISE OKC_API.G_EXCEPTION_ERROR;
882: END IF;
875: p_api_version,
876: '_PVT',
877: x_return_status);
878: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
879: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
880: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
881: RAISE OKC_API.G_EXCEPTION_ERROR;
882: END IF;
883:
876: '_PVT',
877: x_return_status);
878: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
879: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
880: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
881: RAISE OKC_API.G_EXCEPTION_ERROR;
882: END IF;
883:
884: /*
877: x_return_status);
878: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
879: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
880: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
881: RAISE OKC_API.G_EXCEPTION_ERROR;
882: END IF;
883:
884: /*
885: OKC_UTIL.ADD_VIEW('OKC_STD_ART_VERSIONS_V',x_return_status);
882: END IF;
883:
884: /*
885: OKC_UTIL.ADD_VIEW('OKC_STD_ART_VERSIONS_V',x_return_status);
886: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
887: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN -- need to leave
888: l_return_status := x_return_status;
889: RAISE G_EXCEPTION_HALT_VALIDATION;
890: ELSE
883:
884: /*
885: OKC_UTIL.ADD_VIEW('OKC_STD_ART_VERSIONS_V',x_return_status);
886: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
887: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN -- need to leave
888: l_return_status := x_return_status;
889: RAISE G_EXCEPTION_HALT_VALIDATION;
890: ELSE
891: l_return_status := x_return_status; -- record that there was an error
895:
896: --- Validate sav_release
897: OKC_SAV_PVT.validate_sav_release(p_savv_rec,l_return_status);
898: --- If any errors happen abort API
899: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
900: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
901: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
902: RAISE OKC_API.G_EXCEPTION_ERROR;
903: END IF;
896: --- Validate sav_release
897: OKC_SAV_PVT.validate_sav_release(p_savv_rec,l_return_status);
898: --- If any errors happen abort API
899: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
900: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
901: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
902: RAISE OKC_API.G_EXCEPTION_ERROR;
903: END IF;
904:
897: OKC_SAV_PVT.validate_sav_release(p_savv_rec,l_return_status);
898: --- If any errors happen abort API
899: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
900: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
901: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
902: RAISE OKC_API.G_EXCEPTION_ERROR;
903: END IF;
904:
905: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
898: --- If any errors happen abort API
899: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
900: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
901: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
902: RAISE OKC_API.G_EXCEPTION_ERROR;
903: END IF;
904:
905: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
906: EXCEPTION
901: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
902: RAISE OKC_API.G_EXCEPTION_ERROR;
903: END IF;
904:
905: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
906: EXCEPTION
907: WHEN G_EXCEPTION_HALT_VALIDATION THEN
908: null;
909:
906: EXCEPTION
907: WHEN G_EXCEPTION_HALT_VALIDATION THEN
908: null;
909:
910: WHEN OKC_API.G_EXCEPTION_ERROR THEN
911: x_return_status := OKC_API.HANDLE_EXCEPTIONS
912: (
913: l_api_name,
914: G_PKG_NAME,
907: WHEN G_EXCEPTION_HALT_VALIDATION THEN
908: null;
909:
910: WHEN OKC_API.G_EXCEPTION_ERROR THEN
911: x_return_status := OKC_API.HANDLE_EXCEPTIONS
912: (
913: l_api_name,
914: G_PKG_NAME,
915: 'OKC_API.G_RET_STS_ERROR',
911: x_return_status := OKC_API.HANDLE_EXCEPTIONS
912: (
913: l_api_name,
914: G_PKG_NAME,
915: 'OKC_API.G_RET_STS_ERROR',
916: x_msg_count,
917: x_msg_data,
918: '_PVT'
919: );
916: x_msg_count,
917: x_msg_data,
918: '_PVT'
919: );
920: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
921: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
922: (
923: l_api_name,
924: G_PKG_NAME,
917: x_msg_data,
918: '_PVT'
919: );
920: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
921: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
922: (
923: l_api_name,
924: G_PKG_NAME,
925: 'OKC_API.G_RET_STS_UNEXP_ERROR',
921: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
922: (
923: l_api_name,
924: G_PKG_NAME,
925: 'OKC_API.G_RET_STS_UNEXP_ERROR',
926: x_msg_count,
927: x_msg_data,
928: '_PVT'
929: );
927: x_msg_data,
928: '_PVT'
929: );
930: WHEN OTHERS THEN
931: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
932: (
933: l_api_name,
934: G_PKG_NAME,
935: 'OTHERS',
948: p_savv_rec IN savv_rec_type) IS
949:
950: l_api_version CONSTANT NUMBER := 1;
951: l_api_name CONSTANT VARCHAR2(30) := 'V_Validate_Date_Active';
952: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
953: l_savv_rec savv_rec_type := p_savv_rec;
954: BEGIN
955: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
956: G_PKG_NAME,
951: l_api_name CONSTANT VARCHAR2(30) := 'V_Validate_Date_Active';
952: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
953: l_savv_rec savv_rec_type := p_savv_rec;
954: BEGIN
955: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
956: G_PKG_NAME,
957: p_init_msg_list,
958: l_api_version,
959: p_api_version,
958: l_api_version,
959: p_api_version,
960: '_PVT',
961: x_return_status);
962: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
963: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
964: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
965: RAISE OKC_API.G_EXCEPTION_ERROR;
966: END IF;
959: p_api_version,
960: '_PVT',
961: x_return_status);
962: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
963: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
964: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
965: RAISE OKC_API.G_EXCEPTION_ERROR;
966: END IF;
967:
960: '_PVT',
961: x_return_status);
962: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
963: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
964: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
965: RAISE OKC_API.G_EXCEPTION_ERROR;
966: END IF;
967:
968: --- Validate date_active
961: x_return_status);
962: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
963: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
964: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
965: RAISE OKC_API.G_EXCEPTION_ERROR;
966: END IF;
967:
968: --- Validate date_active
969: OKC_SAV_PVT.validate_date_active(p_savv_rec,l_return_status);
967:
968: --- Validate date_active
969: OKC_SAV_PVT.validate_date_active(p_savv_rec,l_return_status);
970: --- If any errors happen abort API
971: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
972: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
973: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
974: RAISE OKC_API.G_EXCEPTION_ERROR;
975: END IF;
968: --- Validate date_active
969: OKC_SAV_PVT.validate_date_active(p_savv_rec,l_return_status);
970: --- If any errors happen abort API
971: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
972: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
973: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
974: RAISE OKC_API.G_EXCEPTION_ERROR;
975: END IF;
976: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
969: OKC_SAV_PVT.validate_date_active(p_savv_rec,l_return_status);
970: --- If any errors happen abort API
971: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
972: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
973: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
974: RAISE OKC_API.G_EXCEPTION_ERROR;
975: END IF;
976: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
977: EXCEPTION
970: --- If any errors happen abort API
971: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
972: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
973: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
974: RAISE OKC_API.G_EXCEPTION_ERROR;
975: END IF;
976: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
977: EXCEPTION
978:
972: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
973: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
974: RAISE OKC_API.G_EXCEPTION_ERROR;
975: END IF;
976: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
977: EXCEPTION
978:
979: WHEN OKC_API.G_EXCEPTION_ERROR THEN
980: x_return_status := OKC_API.HANDLE_EXCEPTIONS
975: END IF;
976: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
977: EXCEPTION
978:
979: WHEN OKC_API.G_EXCEPTION_ERROR THEN
980: x_return_status := OKC_API.HANDLE_EXCEPTIONS
981: (
982: l_api_name,
983: G_PKG_NAME,
976: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
977: EXCEPTION
978:
979: WHEN OKC_API.G_EXCEPTION_ERROR THEN
980: x_return_status := OKC_API.HANDLE_EXCEPTIONS
981: (
982: l_api_name,
983: G_PKG_NAME,
984: 'OKC_API.G_RET_STS_ERROR',
980: x_return_status := OKC_API.HANDLE_EXCEPTIONS
981: (
982: l_api_name,
983: G_PKG_NAME,
984: 'OKC_API.G_RET_STS_ERROR',
985: x_msg_count,
986: x_msg_data,
987: '_PVT'
988: );
985: x_msg_count,
986: x_msg_data,
987: '_PVT'
988: );
989: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
990: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
991: (
992: l_api_name,
993: G_PKG_NAME,
986: x_msg_data,
987: '_PVT'
988: );
989: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
990: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
991: (
992: l_api_name,
993: G_PKG_NAME,
994: 'OKC_API.G_RET_STS_UNEXP_ERROR',
990: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
991: (
992: l_api_name,
993: G_PKG_NAME,
994: 'OKC_API.G_RET_STS_UNEXP_ERROR',
995: x_msg_count,
996: x_msg_data,
997: '_PVT'
998: );
996: x_msg_data,
997: '_PVT'
998: );
999: WHEN OTHERS THEN
1000: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1001: (
1002: l_api_name,
1003: G_PKG_NAME,
1004: 'OTHERS',
1039: p_savv_rec IN savv_rec_type) IS
1040:
1041: l_api_version CONSTANT NUMBER := 1;
1042: l_api_name CONSTANT VARCHAR2(30) := 'V_Validate_Updatable';
1043: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1044: l_savv_rec savv_rec_type := p_savv_rec;
1045: BEGIN
1046: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1047: G_PKG_NAME,
1042: l_api_name CONSTANT VARCHAR2(30) := 'V_Validate_Updatable';
1043: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1044: l_savv_rec savv_rec_type := p_savv_rec;
1045: BEGIN
1046: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1047: G_PKG_NAME,
1048: p_init_msg_list,
1049: l_api_version,
1050: p_api_version,
1049: l_api_version,
1050: p_api_version,
1051: '_PVT',
1052: x_return_status);
1053: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1054: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1055: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1056: RAISE OKC_API.G_EXCEPTION_ERROR;
1057: END IF;
1050: p_api_version,
1051: '_PVT',
1052: x_return_status);
1053: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1054: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1055: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1056: RAISE OKC_API.G_EXCEPTION_ERROR;
1057: END IF;
1058:
1051: '_PVT',
1052: x_return_status);
1053: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1054: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1055: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1056: RAISE OKC_API.G_EXCEPTION_ERROR;
1057: END IF;
1058:
1059: --- Validate that the date_active and text are updatable
1052: x_return_status);
1053: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1054: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1055: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1056: RAISE OKC_API.G_EXCEPTION_ERROR;
1057: END IF;
1058:
1059: --- Validate that the date_active and text are updatable
1060: OKC_SAV_PVT.validate_updatable(p_savv_rec,l_return_status);
1058:
1059: --- Validate that the date_active and text are updatable
1060: OKC_SAV_PVT.validate_updatable(p_savv_rec,l_return_status);
1061: --- If any errors happen abort API
1062: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1063: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1064: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1065: RAISE OKC_API.G_EXCEPTION_ERROR;
1066: END IF;
1059: --- Validate that the date_active and text are updatable
1060: OKC_SAV_PVT.validate_updatable(p_savv_rec,l_return_status);
1061: --- If any errors happen abort API
1062: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1063: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1064: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1065: RAISE OKC_API.G_EXCEPTION_ERROR;
1066: END IF;
1067: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1060: OKC_SAV_PVT.validate_updatable(p_savv_rec,l_return_status);
1061: --- If any errors happen abort API
1062: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1063: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1064: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1065: RAISE OKC_API.G_EXCEPTION_ERROR;
1066: END IF;
1067: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1068: EXCEPTION
1061: --- If any errors happen abort API
1062: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1063: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1064: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1065: RAISE OKC_API.G_EXCEPTION_ERROR;
1066: END IF;
1067: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1068: EXCEPTION
1069: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1063: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1064: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1065: RAISE OKC_API.G_EXCEPTION_ERROR;
1066: END IF;
1067: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1068: EXCEPTION
1069: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1070: null;
1071:
1069: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1070: null;
1071:
1072:
1073: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1074: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1075: (
1076: l_api_name,
1077: G_PKG_NAME,
1070: null;
1071:
1072:
1073: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1074: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1075: (
1076: l_api_name,
1077: G_PKG_NAME,
1078: 'OKC_API.G_RET_STS_ERROR',
1074: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1075: (
1076: l_api_name,
1077: G_PKG_NAME,
1078: 'OKC_API.G_RET_STS_ERROR',
1079: x_msg_count,
1080: x_msg_data,
1081: '_PVT'
1082: );
1079: x_msg_count,
1080: x_msg_data,
1081: '_PVT'
1082: );
1083: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1084: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1085: (
1086: l_api_name,
1087: G_PKG_NAME,
1080: x_msg_data,
1081: '_PVT'
1082: );
1083: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1084: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1085: (
1086: l_api_name,
1087: G_PKG_NAME,
1088: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1084: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1085: (
1086: l_api_name,
1087: G_PKG_NAME,
1088: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1089: x_msg_count,
1090: x_msg_data,
1091: '_PVT'
1092: );
1090: x_msg_data,
1091: '_PVT'
1092: );
1093: WHEN OTHERS THEN
1094: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1095: (
1096: l_api_name,
1097: G_PKG_NAME,
1098: 'OTHERS',
1115: p_savv_rec IN savv_rec_type) IS
1116:
1117: l_api_version CONSTANT NUMBER := 1;
1118: l_api_name CONSTANT VARCHAR2(30) := 'V_Validate_Short_Description';
1119: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1120: l_savv_rec savv_rec_type := p_savv_rec;
1121: BEGIN
1122: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1123: G_PKG_NAME,
1118: l_api_name CONSTANT VARCHAR2(30) := 'V_Validate_Short_Description';
1119: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1120: l_savv_rec savv_rec_type := p_savv_rec;
1121: BEGIN
1122: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1123: G_PKG_NAME,
1124: p_init_msg_list,
1125: l_api_version,
1126: p_api_version,
1125: l_api_version,
1126: p_api_version,
1127: '_PVT',
1128: x_return_status);
1129: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1130: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1131: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1132: RAISE OKC_API.G_EXCEPTION_ERROR;
1133: END IF;
1126: p_api_version,
1127: '_PVT',
1128: x_return_status);
1129: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1130: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1131: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1132: RAISE OKC_API.G_EXCEPTION_ERROR;
1133: END IF;
1134:
1127: '_PVT',
1128: x_return_status);
1129: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1130: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1131: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1132: RAISE OKC_API.G_EXCEPTION_ERROR;
1133: END IF;
1134:
1135: OKC_UTIL.ADD_VIEW('OKC_STD_ART_VERSIONS_V',x_return_status);
1128: x_return_status);
1129: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1130: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1131: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1132: RAISE OKC_API.G_EXCEPTION_ERROR;
1133: END IF;
1134:
1135: OKC_UTIL.ADD_VIEW('OKC_STD_ART_VERSIONS_V',x_return_status);
1136: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1132: RAISE OKC_API.G_EXCEPTION_ERROR;
1133: END IF;
1134:
1135: OKC_UTIL.ADD_VIEW('OKC_STD_ART_VERSIONS_V',x_return_status);
1136: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1137: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN -- need to leave
1138: l_return_status := x_return_status;
1139: RAISE G_EXCEPTION_HALT_VALIDATION;
1140: ELSE
1133: END IF;
1134:
1135: OKC_UTIL.ADD_VIEW('OKC_STD_ART_VERSIONS_V',x_return_status);
1136: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1137: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN -- need to leave
1138: l_return_status := x_return_status;
1139: RAISE G_EXCEPTION_HALT_VALIDATION;
1140: ELSE
1141: l_return_status := x_return_status; -- record that there was an error
1144:
1145: --- Validate short_description
1146: OKC_SAV_PVT.validate_short_description(p_savv_rec,l_return_status);
1147: --- If any errors happen abort API
1148: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1149: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1150: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1151: RAISE OKC_API.G_EXCEPTION_ERROR;
1152: END IF;
1145: --- Validate short_description
1146: OKC_SAV_PVT.validate_short_description(p_savv_rec,l_return_status);
1147: --- If any errors happen abort API
1148: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1149: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1150: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1151: RAISE OKC_API.G_EXCEPTION_ERROR;
1152: END IF;
1153:
1146: OKC_SAV_PVT.validate_short_description(p_savv_rec,l_return_status);
1147: --- If any errors happen abort API
1148: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1149: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1150: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1151: RAISE OKC_API.G_EXCEPTION_ERROR;
1152: END IF;
1153:
1154: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1147: --- If any errors happen abort API
1148: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1149: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1150: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1151: RAISE OKC_API.G_EXCEPTION_ERROR;
1152: END IF;
1153:
1154: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1155: EXCEPTION
1150: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1151: RAISE OKC_API.G_EXCEPTION_ERROR;
1152: END IF;
1153:
1154: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1155: EXCEPTION
1156: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1157: null;
1158:
1155: EXCEPTION
1156: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1157: null;
1158:
1159: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1160: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1161: (
1162: l_api_name,
1163: G_PKG_NAME,
1156: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1157: null;
1158:
1159: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1160: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1161: (
1162: l_api_name,
1163: G_PKG_NAME,
1164: 'OKC_API.G_RET_STS_ERROR',
1160: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1161: (
1162: l_api_name,
1163: G_PKG_NAME,
1164: 'OKC_API.G_RET_STS_ERROR',
1165: x_msg_count,
1166: x_msg_data,
1167: '_PVT'
1168: );
1165: x_msg_count,
1166: x_msg_data,
1167: '_PVT'
1168: );
1169: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1170: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1171: (
1172: l_api_name,
1173: G_PKG_NAME,
1166: x_msg_data,
1167: '_PVT'
1168: );
1169: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1170: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1171: (
1172: l_api_name,
1173: G_PKG_NAME,
1174: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1170: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1171: (
1172: l_api_name,
1173: G_PKG_NAME,
1174: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1175: x_msg_count,
1176: x_msg_data,
1177: '_PVT'
1178: );
1176: x_msg_data,
1177: '_PVT'
1178: );
1179: WHEN OTHERS THEN
1180: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1181: (
1182: l_api_name,
1183: G_PKG_NAME,
1184: 'OTHERS',
1219:
1220: l_saiv_rec saiv_rec_type;
1221:
1222: BEGIN
1223: x_return_status:= OKC_API.G_RET_STS_SUCCESS;
1224:
1225: l_saiv_rec:=p_saiv_rec;
1226: l_saiv_rec.sae_id:=p_saiv_rec.sae_id_for;
1227: l_saiv_rec.sae_id_for:=p_saiv_rec.sae_id;
1226: l_saiv_rec.sae_id:=p_saiv_rec.sae_id_for;
1227: l_saiv_rec.sae_id_for:=p_saiv_rec.sae_id;
1228:
1229: OKC_SAI_PVT.validate_unique(l_saiv_rec,x_return_status);
1230: IF (x_return_status = OKC_API.G_RET_STS_SUCCESS) THEN
1231: OKC_SAI_PVT.insert_row(p_api_version,
1232: p_init_msg_list,
1233: x_return_status,
1234: x_msg_count,
1238:
1239: END IF;
1240: EXCEPTION
1241: WHEN OTHERS THEN
1242: OKC_API.set_message(p_app_name => g_app_name,
1243: p_msg_name => g_unexpected_error,
1244: p_token1 => g_sqlcode_token,
1245: p_token1_value => sqlcode,
1246: p_token2 => g_sqlerrm_token,
1244: p_token1 => g_sqlcode_token,
1245: p_token1_value => sqlcode,
1246: p_token2 => g_sqlerrm_token,
1247: p_token2_value => sqlerrm);
1248: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1249:
1250: END Create_std_art_incmpt;
1251:
1252: PROCEDURE lock_std_art_incmpt(
1307: END IF;
1308:
1309: EXCEPTION
1310: WHEN OTHERS THEN
1311: OKC_API.set_message(p_app_name => g_app_name,
1312: p_msg_name => g_unexpected_error,
1313: p_token1 => g_sqlcode_token,
1314: p_token1_value => sqlcode,
1315: p_token2 => g_sqlerrm_token,
1313: p_token1 => g_sqlcode_token,
1314: p_token1_value => sqlcode,
1315: p_token2 => g_sqlerrm_token,
1316: p_token2_value => sqlerrm);
1317: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1318: END lock_std_art_incmpt;
1319:
1320: PROCEDURE update_std_art_incmpt(
1321: p_api_version IN NUMBER,
1345: x_saiv_rec OUT NOCOPY saiv_rec_type) IS
1346:
1347: l_api_version CONSTANT NUMBER := 1;
1348: l_api_name CONSTANT VARCHAR2(30) := 'V_Validate_Std_Art_Incmpt';
1349: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1350: l_saiv_rec saiv_rec_type;
1351: CURSOR l_sai_csr IS
1352: SELECT '1'
1353: FROM okc_std_art_incmpts sai
1384: END IF;
1385:
1386: EXCEPTION
1387: WHEN OTHERS THEN
1388: OKC_API.set_message(p_app_name => g_app_name,
1389: p_msg_name => g_unexpected_error,
1390: p_token1 => g_sqlcode_token,
1391: p_token1_value => sqlcode,
1392: p_token2 => g_sqlerrm_token,
1390: p_token1 => g_sqlcode_token,
1391: p_token1_value => sqlcode,
1392: p_token2 => g_sqlerrm_token,
1393: p_token2_value => sqlerrm);
1394: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1395:
1396: END update_std_art_incmpt;
1397:
1398: PROCEDURE delete_std_art_incmpt(
1452: END IF;
1453:
1454: EXCEPTION
1455: WHEN OTHERS THEN
1456: OKC_API.set_message(p_app_name => g_app_name,
1457: p_msg_name => g_unexpected_error,
1458: p_token1 => g_sqlcode_token,
1459: p_token1_value => sqlcode,
1460: p_token2 => g_sqlerrm_token,
1458: p_token1 => g_sqlcode_token,
1459: p_token1_value => sqlcode,
1460: p_token2 => g_sqlerrm_token,
1461: p_token2_value => sqlerrm);
1462: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1463:
1464: END delete_std_art_incmpt;
1465:
1466:
1490: p_saiv_rec IN saiv_rec_type) IS
1491:
1492: l_api_version CONSTANT NUMBER := 1;
1493: l_api_name CONSTANT VARCHAR2(30) := 'V_Validate_Std_Art_Incmpt';
1494: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1495: l_saiv_rec saiv_rec_type;
1496: CURSOR l_sai_csr IS
1497: SELECT '1'
1498: FROM okc_std_art_incmpts sai
1526: END IF;
1527:
1528: EXCEPTION
1529: WHEN OTHERS THEN
1530: OKC_API.set_message(p_app_name => g_app_name,
1531: p_msg_name => g_unexpected_error,
1532: p_token1 => g_sqlcode_token,
1533: p_token1_value => sqlcode,
1534: p_token2 => g_sqlerrm_token,
1532: p_token1 => g_sqlcode_token,
1533: p_token1_value => sqlcode,
1534: p_token2 => g_sqlerrm_token,
1535: p_token2_value => sqlerrm);
1536: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1537:
1538: END validate_std_art_incmpt;
1539:
1540: PROCEDURE validate_unique(
1546: p_saiv_rec IN saiv_rec_type) IS
1547:
1548: l_api_version CONSTANT NUMBER := 1;
1549: l_api_name CONSTANT VARCHAR2(30) := 'V_Validate_Unique';
1550: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1551: l_saiv_rec saiv_rec_type := p_saiv_rec;
1552:
1553:
1554: BEGIN
1551: l_saiv_rec saiv_rec_type := p_saiv_rec;
1552:
1553:
1554: BEGIN
1555: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1556: G_PKG_NAME,
1557: p_init_msg_list,
1558: l_api_version,
1559: p_api_version,
1558: l_api_version,
1559: p_api_version,
1560: '_PVT',
1561: x_return_status);
1562: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1563: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1564: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1565: RAISE OKC_API.G_EXCEPTION_ERROR;
1566: END IF;
1559: p_api_version,
1560: '_PVT',
1561: x_return_status);
1562: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1563: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1564: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1565: RAISE OKC_API.G_EXCEPTION_ERROR;
1566: END IF;
1567:
1560: '_PVT',
1561: x_return_status);
1562: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1563: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1564: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1565: RAISE OKC_API.G_EXCEPTION_ERROR;
1566: END IF;
1567:
1568: --check if the record exists
1561: x_return_status);
1562: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1563: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1564: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1565: RAISE OKC_API.G_EXCEPTION_ERROR;
1566: END IF;
1567:
1568: --check if the record exists
1569: OKC_SAI_PVT.validate_unique(p_saiv_rec,l_return_status);
1568: --check if the record exists
1569: OKC_SAI_PVT.validate_unique(p_saiv_rec,l_return_status);
1570:
1571: --- If any errors happen abort API
1572: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1573: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1574: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1575: RAISE OKC_API.G_EXCEPTION_ERROR;
1576: END IF;
1569: OKC_SAI_PVT.validate_unique(p_saiv_rec,l_return_status);
1570:
1571: --- If any errors happen abort API
1572: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1573: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1574: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1575: RAISE OKC_API.G_EXCEPTION_ERROR;
1576: END IF;
1577:
1570:
1571: --- If any errors happen abort API
1572: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1573: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1574: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1575: RAISE OKC_API.G_EXCEPTION_ERROR;
1576: END IF;
1577:
1578: l_saiv_rec:=p_saiv_rec;
1571: --- If any errors happen abort API
1572: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1573: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1574: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1575: RAISE OKC_API.G_EXCEPTION_ERROR;
1576: END IF;
1577:
1578: l_saiv_rec:=p_saiv_rec;
1579: l_saiv_rec.sae_id:=p_saiv_rec.sae_id_for;
1581: -- validate opposite combination as the record might exist the opposite combination way
1582:
1583: OKC_SAI_PVT.validate_unique(l_saiv_rec,l_return_status);
1584: --- If any errors happen abort API
1585: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1586: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1587: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1588: RAISE OKC_API.G_EXCEPTION_ERROR;
1589: END IF;
1582:
1583: OKC_SAI_PVT.validate_unique(l_saiv_rec,l_return_status);
1584: --- If any errors happen abort API
1585: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1586: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1587: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1588: RAISE OKC_API.G_EXCEPTION_ERROR;
1589: END IF;
1590:
1583: OKC_SAI_PVT.validate_unique(l_saiv_rec,l_return_status);
1584: --- If any errors happen abort API
1585: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1586: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1587: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1588: RAISE OKC_API.G_EXCEPTION_ERROR;
1589: END IF;
1590:
1591: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1584: --- If any errors happen abort API
1585: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1586: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1587: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1588: RAISE OKC_API.G_EXCEPTION_ERROR;
1589: END IF;
1590:
1591: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1592: EXCEPTION
1587: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1588: RAISE OKC_API.G_EXCEPTION_ERROR;
1589: END IF;
1590:
1591: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1592: EXCEPTION
1593:
1594: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1595: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1590:
1591: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1592: EXCEPTION
1593:
1594: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1595: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1596: (
1597: l_api_name,
1598: G_PKG_NAME,
1591: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1592: EXCEPTION
1593:
1594: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1595: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1596: (
1597: l_api_name,
1598: G_PKG_NAME,
1599: 'OKC_API.G_RET_STS_ERROR',
1595: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1596: (
1597: l_api_name,
1598: G_PKG_NAME,
1599: 'OKC_API.G_RET_STS_ERROR',
1600: x_msg_count,
1601: x_msg_data,
1602: '_PVT'
1603: );
1600: x_msg_count,
1601: x_msg_data,
1602: '_PVT'
1603: );
1604: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1605: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1606: (
1607: l_api_name,
1608: G_PKG_NAME,
1601: x_msg_data,
1602: '_PVT'
1603: );
1604: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1605: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1606: (
1607: l_api_name,
1608: G_PKG_NAME,
1609: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1605: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1606: (
1607: l_api_name,
1608: G_PKG_NAME,
1609: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1610: x_msg_count,
1611: x_msg_data,
1612: '_PVT'
1613: );
1611: x_msg_data,
1612: '_PVT'
1613: );
1614: WHEN OTHERS THEN
1615: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1616: (
1617: l_api_name,
1618: G_PKG_NAME,
1619: 'OTHERS',
1805: p_sacv_rec IN sacv_rec_type) IS
1806:
1807: l_api_version CONSTANT NUMBER := 1;
1808: l_api_name CONSTANT VARCHAR2(30) := 'V_Validate_Price_Type';
1809: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1810: l_sacv_rec sacv_rec_type := p_sacv_rec;
1811: BEGIN
1812: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1813: G_PKG_NAME,
1808: l_api_name CONSTANT VARCHAR2(30) := 'V_Validate_Price_Type';
1809: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1810: l_sacv_rec sacv_rec_type := p_sacv_rec;
1811: BEGIN
1812: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1813: G_PKG_NAME,
1814: p_init_msg_list,
1815: l_api_version,
1816: p_api_version,
1815: l_api_version,
1816: p_api_version,
1817: '_PVT',
1818: x_return_status);
1819: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1820: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1821: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1822: RAISE OKC_API.G_EXCEPTION_ERROR;
1823: END IF;
1816: p_api_version,
1817: '_PVT',
1818: x_return_status);
1819: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1820: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1821: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1822: RAISE OKC_API.G_EXCEPTION_ERROR;
1823: END IF;
1824:
1817: '_PVT',
1818: x_return_status);
1819: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1820: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1821: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1822: RAISE OKC_API.G_EXCEPTION_ERROR;
1823: END IF;
1824:
1825: /*
1818: x_return_status);
1819: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1820: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1821: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1822: RAISE OKC_API.G_EXCEPTION_ERROR;
1823: END IF;
1824:
1825: /*
1826: OKC_UTIL.ADD_VIEW('OKC_STD_ART_CLASSINGS_V',x_return_status);
1823: END IF;
1824:
1825: /*
1826: OKC_UTIL.ADD_VIEW('OKC_STD_ART_CLASSINGS_V',x_return_status);
1827: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1828: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN -- need to leave
1829: l_return_status := x_return_status;
1830: RAISE G_EXCEPTION_HALT_VALIDATION;
1831: ELSE
1824:
1825: /*
1826: OKC_UTIL.ADD_VIEW('OKC_STD_ART_CLASSINGS_V',x_return_status);
1827: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1828: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN -- need to leave
1829: l_return_status := x_return_status;
1830: RAISE G_EXCEPTION_HALT_VALIDATION;
1831: ELSE
1832: l_return_status := x_return_status; -- record that there was an error
1836:
1837: --- Validate price_type
1838: OKC_SAC_PVT.validate_price_type(p_sacv_rec,l_return_status);
1839: --- If any errors happen abort API
1840: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1841: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1842: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1843: RAISE OKC_API.G_EXCEPTION_ERROR;
1844: END IF;
1837: --- Validate price_type
1838: OKC_SAC_PVT.validate_price_type(p_sacv_rec,l_return_status);
1839: --- If any errors happen abort API
1840: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1841: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1842: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1843: RAISE OKC_API.G_EXCEPTION_ERROR;
1844: END IF;
1845: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1838: OKC_SAC_PVT.validate_price_type(p_sacv_rec,l_return_status);
1839: --- If any errors happen abort API
1840: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1841: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1842: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1843: RAISE OKC_API.G_EXCEPTION_ERROR;
1844: END IF;
1845: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1846: EXCEPTION
1839: --- If any errors happen abort API
1840: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1841: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1842: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1843: RAISE OKC_API.G_EXCEPTION_ERROR;
1844: END IF;
1845: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1846: EXCEPTION
1847: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1841: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1842: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1843: RAISE OKC_API.G_EXCEPTION_ERROR;
1844: END IF;
1845: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1846: EXCEPTION
1847: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1848: null;
1849:
1846: EXCEPTION
1847: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1848: null;
1849:
1850: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1851: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1852: (
1853: l_api_name,
1854: G_PKG_NAME,
1847: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1848: null;
1849:
1850: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1851: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1852: (
1853: l_api_name,
1854: G_PKG_NAME,
1855: 'OKC_API.G_RET_STS_ERROR',
1851: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1852: (
1853: l_api_name,
1854: G_PKG_NAME,
1855: 'OKC_API.G_RET_STS_ERROR',
1856: x_msg_count,
1857: x_msg_data,
1858: '_PVT'
1859: );
1856: x_msg_count,
1857: x_msg_data,
1858: '_PVT'
1859: );
1860: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1861: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1862: (
1863: l_api_name,
1864: G_PKG_NAME,
1857: x_msg_data,
1858: '_PVT'
1859: );
1860: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1861: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1862: (
1863: l_api_name,
1864: G_PKG_NAME,
1865: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1861: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1862: (
1863: l_api_name,
1864: G_PKG_NAME,
1865: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1866: x_msg_count,
1867: x_msg_data,
1868: '_PVT'
1869: );
1867: x_msg_data,
1868: '_PVT'
1869: );
1870: WHEN OTHERS THEN
1871: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1872: (
1873: l_api_name,
1874: G_PKG_NAME,
1875: 'OTHERS',
1888: p_sacv_rec IN sacv_rec_type) IS
1889:
1890: l_api_version CONSTANT NUMBER := 1;
1891: l_api_name CONSTANT VARCHAR2(30) := 'V_Validate_SCS_Code';
1892: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1893: l_sacv_rec sacv_rec_type := p_sacv_rec;
1894: BEGIN
1895: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1896: G_PKG_NAME,
1891: l_api_name CONSTANT VARCHAR2(30) := 'V_Validate_SCS_Code';
1892: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1893: l_sacv_rec sacv_rec_type := p_sacv_rec;
1894: BEGIN
1895: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1896: G_PKG_NAME,
1897: p_init_msg_list,
1898: l_api_version,
1899: p_api_version,
1898: l_api_version,
1899: p_api_version,
1900: '_PVT',
1901: x_return_status);
1902: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1903: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1904: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1905: RAISE OKC_API.G_EXCEPTION_ERROR;
1906: END IF;
1899: p_api_version,
1900: '_PVT',
1901: x_return_status);
1902: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1903: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1904: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1905: RAISE OKC_API.G_EXCEPTION_ERROR;
1906: END IF;
1907:
1900: '_PVT',
1901: x_return_status);
1902: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1903: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1904: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1905: RAISE OKC_API.G_EXCEPTION_ERROR;
1906: END IF;
1907:
1908: /*
1901: x_return_status);
1902: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1903: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1904: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1905: RAISE OKC_API.G_EXCEPTION_ERROR;
1906: END IF;
1907:
1908: /*
1909: OKC_UTIL.ADD_VIEW('OKC_STD_ART_CLASSINGS_V',x_return_status);
1906: END IF;
1907:
1908: /*
1909: OKC_UTIL.ADD_VIEW('OKC_STD_ART_CLASSINGS_V',x_return_status);
1910: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1911: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN -- need to leave
1912: l_return_status := x_return_status;
1913: RAISE G_EXCEPTION_HALT_VALIDATION;
1914: ELSE
1907:
1908: /*
1909: OKC_UTIL.ADD_VIEW('OKC_STD_ART_CLASSINGS_V',x_return_status);
1910: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1911: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN -- need to leave
1912: l_return_status := x_return_status;
1913: RAISE G_EXCEPTION_HALT_VALIDATION;
1914: ELSE
1915: l_return_status := x_return_status; -- record that there was an error
1919:
1920: --- Validate scs_code
1921: OKC_SAC_PVT.validate_scs_code(p_sacv_rec,l_return_status);
1922: --- If any errors happen abort API
1923: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1924: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1925: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1926: RAISE OKC_API.G_EXCEPTION_ERROR;
1927: END IF;
1920: --- Validate scs_code
1921: OKC_SAC_PVT.validate_scs_code(p_sacv_rec,l_return_status);
1922: --- If any errors happen abort API
1923: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1924: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1925: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1926: RAISE OKC_API.G_EXCEPTION_ERROR;
1927: END IF;
1928: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1921: OKC_SAC_PVT.validate_scs_code(p_sacv_rec,l_return_status);
1922: --- If any errors happen abort API
1923: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1924: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1925: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1926: RAISE OKC_API.G_EXCEPTION_ERROR;
1927: END IF;
1928: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1929: EXCEPTION
1922: --- If any errors happen abort API
1923: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1924: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1925: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1926: RAISE OKC_API.G_EXCEPTION_ERROR;
1927: END IF;
1928: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1929: EXCEPTION
1930: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1924: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1925: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1926: RAISE OKC_API.G_EXCEPTION_ERROR;
1927: END IF;
1928: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1929: EXCEPTION
1930: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1931: null;
1932:
1929: EXCEPTION
1930: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1931: null;
1932:
1933: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1934: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1935: (
1936: l_api_name,
1937: G_PKG_NAME,
1930: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1931: null;
1932:
1933: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1934: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1935: (
1936: l_api_name,
1937: G_PKG_NAME,
1938: 'OKC_API.G_RET_STS_ERROR',
1934: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1935: (
1936: l_api_name,
1937: G_PKG_NAME,
1938: 'OKC_API.G_RET_STS_ERROR',
1939: x_msg_count,
1940: x_msg_data,
1941: '_PVT'
1942: );
1939: x_msg_count,
1940: x_msg_data,
1941: '_PVT'
1942: );
1943: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1944: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1945: (
1946: l_api_name,
1947: G_PKG_NAME,
1940: x_msg_data,
1941: '_PVT'
1942: );
1943: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1944: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1945: (
1946: l_api_name,
1947: G_PKG_NAME,
1948: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1944: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1945: (
1946: l_api_name,
1947: G_PKG_NAME,
1948: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1949: x_msg_count,
1950: x_msg_data,
1951: '_PVT'
1952: );
1950: x_msg_data,
1951: '_PVT'
1952: );
1953: WHEN OTHERS THEN
1954: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1955: (
1956: l_api_name,
1957: G_PKG_NAME,
1958: 'OTHERS',
2144: p_samv_rec IN samv_rec_type) IS
2145:
2146: l_api_version CONSTANT NUMBER := 1;
2147: l_api_name CONSTANT VARCHAR2(30) := 'V_Validate_Unique';
2148: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2149: l_samv_rec samv_rec_type := p_samv_rec;
2150: BEGIN
2151: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2152: G_PKG_NAME,
2147: l_api_name CONSTANT VARCHAR2(30) := 'V_Validate_Unique';
2148: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2149: l_samv_rec samv_rec_type := p_samv_rec;
2150: BEGIN
2151: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2152: G_PKG_NAME,
2153: p_init_msg_list,
2154: l_api_version,
2155: p_api_version,
2154: l_api_version,
2155: p_api_version,
2156: '_PVT',
2157: x_return_status);
2158: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2159: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2160: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2161: RAISE OKC_API.G_EXCEPTION_ERROR;
2162: END IF;
2155: p_api_version,
2156: '_PVT',
2157: x_return_status);
2158: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2159: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2160: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2161: RAISE OKC_API.G_EXCEPTION_ERROR;
2162: END IF;
2163:
2156: '_PVT',
2157: x_return_status);
2158: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2159: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2160: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2161: RAISE OKC_API.G_EXCEPTION_ERROR;
2162: END IF;
2163:
2164: --- Validate unique
2157: x_return_status);
2158: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2159: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2160: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2161: RAISE OKC_API.G_EXCEPTION_ERROR;
2162: END IF;
2163:
2164: --- Validate unique
2165: OKC_SAM_PVT.validate_unique(p_samv_rec,l_return_status);
2163:
2164: --- Validate unique
2165: OKC_SAM_PVT.validate_unique(p_samv_rec,l_return_status);
2166: --- If any errors happen abort API
2167: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2168: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2169: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2170: RAISE OKC_API.G_EXCEPTION_ERROR;
2171: END IF;
2164: --- Validate unique
2165: OKC_SAM_PVT.validate_unique(p_samv_rec,l_return_status);
2166: --- If any errors happen abort API
2167: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2168: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2169: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2170: RAISE OKC_API.G_EXCEPTION_ERROR;
2171: END IF;
2172: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2165: OKC_SAM_PVT.validate_unique(p_samv_rec,l_return_status);
2166: --- If any errors happen abort API
2167: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2168: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2169: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2170: RAISE OKC_API.G_EXCEPTION_ERROR;
2171: END IF;
2172: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2173: EXCEPTION
2166: --- If any errors happen abort API
2167: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2168: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2169: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2170: RAISE OKC_API.G_EXCEPTION_ERROR;
2171: END IF;
2172: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2173: EXCEPTION
2174:
2168: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2169: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2170: RAISE OKC_API.G_EXCEPTION_ERROR;
2171: END IF;
2172: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2173: EXCEPTION
2174:
2175: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2176: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2171: END IF;
2172: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2173: EXCEPTION
2174:
2175: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2176: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2177: (
2178: l_api_name,
2179: G_PKG_NAME,
2172: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2173: EXCEPTION
2174:
2175: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2176: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2177: (
2178: l_api_name,
2179: G_PKG_NAME,
2180: 'OKC_API.G_RET_STS_ERROR',
2176: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2177: (
2178: l_api_name,
2179: G_PKG_NAME,
2180: 'OKC_API.G_RET_STS_ERROR',
2181: x_msg_count,
2182: x_msg_data,
2183: '_PVT'
2184: );
2181: x_msg_count,
2182: x_msg_data,
2183: '_PVT'
2184: );
2185: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2186: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2187: (
2188: l_api_name,
2189: G_PKG_NAME,
2182: x_msg_data,
2183: '_PVT'
2184: );
2185: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2186: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2187: (
2188: l_api_name,
2189: G_PKG_NAME,
2190: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2186: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2187: (
2188: l_api_name,
2189: G_PKG_NAME,
2190: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2191: x_msg_count,
2192: x_msg_data,
2193: '_PVT'
2194: );
2192: x_msg_data,
2193: '_PVT'
2194: );
2195: WHEN OTHERS THEN
2196: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2197: (
2198: l_api_name,
2199: G_PKG_NAME,
2200: 'OTHERS',