[Home] [Help]
24: ) IS
25:
26: l_api_version CONSTANT NUMBER := 1;
27: l_api_name CONSTANT VARCHAR2(30) := 'create_k_rel_obj';
28: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
29: l_crjv_tbl crjv_tbl_type;
30: l_x_crjv_tbl crjv_tbl_type;
31: l_obj_type_code jtf_objects_b.OBJECT_CODE%type;
32: l_error_message varchar2(1000);
38: IF (l_debug = 'Y') THEN
39: okc_util.print_trace(2, ' ');
40: okc_util.print_trace(2, '>START - OKC_K_REL_OBJS_PUB.CREATE_K_REL_OBJ -');
41: END IF;
42: l_return_status := OKC_API.START_ACTIVITY
43: (
44: l_api_name
45: ,p_init_msg_list
46: ,'_PUB'
46: ,'_PUB'
47: ,x_return_status
48: );
49: IF (-- unexpected error
50: l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
51: ) THEN
52: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
53: ELSIF (-- standard error
54: l_return_status = OKC_API.G_RET_STS_ERROR
48: );
49: IF (-- unexpected error
50: l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
51: ) THEN
52: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
53: ELSIF (-- standard error
54: l_return_status = OKC_API.G_RET_STS_ERROR
55: ) THEN
56: RAISE OKC_API.G_EXCEPTION_ERROR;
50: l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
51: ) THEN
52: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
53: ELSIF (-- standard error
54: l_return_status = OKC_API.G_RET_STS_ERROR
55: ) THEN
56: RAISE OKC_API.G_EXCEPTION_ERROR;
57: END IF;
58:
52: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
53: ELSIF (-- standard error
54: l_return_status = OKC_API.G_RET_STS_ERROR
55: ) THEN
56: RAISE OKC_API.G_EXCEPTION_ERROR;
57: END IF;
58:
59: /*
60: Call Before Logic Hook
68: ,'B'
69: );
70:
71: IF (-- unexpected error
72: x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
73: ) THEN
74: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
75: ELSIF (-- standard error
76: x_return_status = OKC_API.G_RET_STS_ERROR
70:
71: IF (-- unexpected error
72: x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
73: ) THEN
74: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
75: ELSIF (-- standard error
76: x_return_status = OKC_API.G_RET_STS_ERROR
77: ) THEN
78: raise OKC_API.G_EXCEPTION_ERROR;
72: x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
73: ) THEN
74: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
75: ELSIF (-- standard error
76: x_return_status = OKC_API.G_RET_STS_ERROR
77: ) THEN
78: raise OKC_API.G_EXCEPTION_ERROR;
79: END IF;
80: reset(p_crj_rel_hdr_full_rec);
74: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
75: ELSIF (-- standard error
76: x_return_status = OKC_API.G_RET_STS_ERROR
77: ) THEN
78: raise OKC_API.G_EXCEPTION_ERROR;
79: END IF;
80: reset(p_crj_rel_hdr_full_rec);
81: */
82: /*
88: l_crjv_tbl(1).cle_id := null;
89: l_crjv_tbl(1).object1_id1 := p_crj_rel_hdr_full_rec.object1_id1;
90: l_crjv_tbl(1).object1_id2 := p_crj_rel_hdr_full_rec.object1_id2;
91:
92: l_return_status := OKC_API.G_RET_STS_SUCCESS;
93: okc_crj_pvt.valid_rec_unique
94: (
95: l_crjv_tbl(1)
96: ,l_api_name
97: ,l_return_status
98: );
99:
100: IF (-- not unique header record, but lines to process
101: l_return_status <> OKC_API.G_RET_STS_SUCCESS
102: and p_crj_rel_line_tbl.EXISTS(1)
103: ) THEN
104: -- header rel. already exists, ignore and continue with lines only
105: j := 0;
106: x_crj_rel_hdr_full_rec:=p_crj_rel_hdr_full_rec;
107: ELSE -- ok
108: j := 1;
109: END IF;
110: l_return_status := OKC_API.G_RET_STS_SUCCESS;
111:
112: i := 1;
113: WHILE (-- line data exists
114: p_crj_rel_line_tbl.EXISTS(i)
131: */
132: i := 1;
133: WHILE(-- line data exists
134: l_crjv_tbl.EXISTS(i)
135: and x_return_status = OKC_API.G_RET_STS_SUCCESS
136: ) LOOP
137: OKC_K_REL_OBJS_PUB.create_row
138: (
139: p_api_version => l_api_version
136: ) LOOP
137: OKC_K_REL_OBJS_PUB.create_row
138: (
139: p_api_version => l_api_version
140: ,p_init_msg_list => OKC_API.G_FALSE
141: ,x_return_status => x_return_status
142: ,x_msg_count => x_msg_count
143: ,x_msg_data => x_msg_data
144: ,p_crjv_rec => l_crjv_tbl(i)
165: /* loop in pvt insert does not check every record for status so do rows individually as above
166: OKC_K_REL_OBJS_PUB.create_row
167: (
168: p_api_version => l_api_version
169: ,p_init_msg_list => OKC_API.G_FALSE
170: -- ,x_return_status => l_return_status
171: ,x_return_status => x_return_status
172: ,x_msg_count => x_msg_count
173: ,x_msg_data => x_msg_data
175: ,x_crjv_tbl => l_x_crjv_tbl
176: );
177: */
178: IF (-- unexpected error
179: x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
180: ) THEN
181: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
182: ELSIF (-- standard error
183: x_return_status = OKC_API.G_RET_STS_ERROR
177: */
178: IF (-- unexpected error
179: x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
180: ) THEN
181: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
182: ELSIF (-- standard error
183: x_return_status = OKC_API.G_RET_STS_ERROR
184: ) THEN
185: raise OKC_API.G_EXCEPTION_ERROR;
179: x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
180: ) THEN
181: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
182: ELSIF (-- standard error
183: x_return_status = OKC_API.G_RET_STS_ERROR
184: ) THEN
185: raise OKC_API.G_EXCEPTION_ERROR;
186: END IF;
187:
181: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
182: ELSIF (-- standard error
183: x_return_status = OKC_API.G_RET_STS_ERROR
184: ) THEN
185: raise OKC_API.G_EXCEPTION_ERROR;
186: END IF;
187:
188: /*
189: Call After Logic Hook
196: ,l_api_name
197: ,'A'
198: );
199: IF (-- unexpected error
200: x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
201: ) THEN
202: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
203: ELSIF (-- standard error
204: x_return_status = OKC_API.G_RET_STS_ERROR
198: );
199: IF (-- unexpected error
200: x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
201: ) THEN
202: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
203: ELSIF (-- standard error
204: x_return_status = OKC_API.G_RET_STS_ERROR
205: ) THEN
206: raise OKC_API.G_EXCEPTION_ERROR;
200: x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
201: ) THEN
202: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
203: ELSIF (-- standard error
204: x_return_status = OKC_API.G_RET_STS_ERROR
205: ) THEN
206: raise OKC_API.G_EXCEPTION_ERROR;
207: END IF;
208: reset(x_crj_rel_hdr_full_rec);
202: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
203: ELSIF (-- standard error
204: x_return_status = OKC_API.G_RET_STS_ERROR
205: ) THEN
206: raise OKC_API.G_EXCEPTION_ERROR;
207: END IF;
208: reset(x_crj_rel_hdr_full_rec);
209: */
210: OKC_API.END_ACTIVITY
206: raise OKC_API.G_EXCEPTION_ERROR;
207: END IF;
208: reset(x_crj_rel_hdr_full_rec);
209: */
210: OKC_API.END_ACTIVITY
211: (
212: x_msg_count
213: ,x_msg_data
214: );
215: IF (l_debug = 'Y') THEN
216: okc_util.print_trace(2, '
218: EXCEPTION
219: WHEN OKC_API.G_EXCEPTION_ERROR THEN
220: x_return_status := OKC_API.HANDLE_EXCEPTIONS
221: (
222: l_api_name
223: ,G_PKG_NAME
216: okc_util.print_trace(2, '
218: EXCEPTION
219: WHEN OKC_API.G_EXCEPTION_ERROR THEN
220: x_return_status := OKC_API.HANDLE_EXCEPTIONS
221: (
222: l_api_name
223: ,G_PKG_NAME
224: ,'OKC_API.G_RET_STS_ERROR'
220: x_return_status := OKC_API.HANDLE_EXCEPTIONS
221: (
222: l_api_name
223: ,G_PKG_NAME
224: ,'OKC_API.G_RET_STS_ERROR'
225: ,x_msg_count
226: ,x_msg_data
227: ,'_PUB'
228: );
225: ,x_msg_count
226: ,x_msg_data
227: ,'_PUB'
228: );
229: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
230: x_return_status := OKC_API.HANDLE_EXCEPTIONS
231: (
232: l_api_name
233: ,G_PKG_NAME
226: ,x_msg_data
227: ,'_PUB'
228: );
229: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
230: x_return_status := OKC_API.HANDLE_EXCEPTIONS
231: (
232: l_api_name
233: ,G_PKG_NAME
234: ,'OKC_API.G_RET_STS_UNEXP_ERROR'
230: x_return_status := OKC_API.HANDLE_EXCEPTIONS
231: (
232: l_api_name
233: ,G_PKG_NAME
234: ,'OKC_API.G_RET_STS_UNEXP_ERROR'
235: ,x_msg_count
236: ,x_msg_data
237: ,'_PUB'
238: );
237: ,'_PUB'
238: );
239:
240: WHEN OTHERS THEN
241: x_return_status := OKC_API.HANDLE_EXCEPTIONS
242: (
243: l_api_name
244: ,G_PKG_NAME
245: ,'OTHERS'
272: ) IS
273:
274: l_api_version CONSTANT NUMBER := 1;
275: l_api_name CONSTANT VARCHAR2(30) := 'create_quote_renews_k';
276: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
277: l_crj_rel_hdr_full_rec crj_rel_hdr_full_rec_type;
278: l_crj_rel_line_tbl crj_rel_line_tbl_type;
279: l_x_crj_rel_hdr_full_rec crj_rel_hdr_full_rec_type;
280: l_x_crj_rel_line_tbl crj_rel_line_tbl_type;
295: IF (l_debug = 'Y') THEN
296: okc_util.print_trace(1, ' ');
297: okc_util.print_trace(1, '>START - OKC_K_REL_OBJS_PUB.CREATE_QUOTE_RENEWS_CONTRACT -');
298: END IF;
299: l_return_status := OKC_API.START_ACTIVITY
300: (
301: substr(l_api_name,1,26)
302: ,p_init_msg_list
303: ,'_PUB'
303: ,'_PUB'
304: ,x_return_status
305: );
306: IF (-- unexpected error
307: l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
308: ) THEN
309: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
310: ELSIF (-- standard error
311: l_return_status = OKC_API.G_RET_STS_ERROR
305: );
306: IF (-- unexpected error
307: l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
308: ) THEN
309: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
310: ELSIF (-- standard error
311: l_return_status = OKC_API.G_RET_STS_ERROR
312: ) THEN
313: RAISE OKC_API.G_EXCEPTION_ERROR;
307: l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
308: ) THEN
309: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
310: ELSIF (-- standard error
311: l_return_status = OKC_API.G_RET_STS_ERROR
312: ) THEN
313: RAISE OKC_API.G_EXCEPTION_ERROR;
314: END IF;
315: /*
309: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
310: ELSIF (-- standard error
311: l_return_status = OKC_API.G_RET_STS_ERROR
312: ) THEN
313: RAISE OKC_API.G_EXCEPTION_ERROR;
314: END IF;
315: /*
316: Call Before Logic Hook
317:
323: ,l_api_name
324: ,'B'
325: );
326: IF (-- unexpected error
327: x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
328: ) THEN
329: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
330: ELSIF (-- standard error
331: x_return_status = OKC_API.G_RET_STS_ERROR
325: );
326: IF (-- unexpected error
327: x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
328: ) THEN
329: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
330: ELSIF (-- standard error
331: x_return_status = OKC_API.G_RET_STS_ERROR
332: ) THEN
333: raise OKC_API.G_EXCEPTION_ERROR;
327: x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
328: ) THEN
329: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
330: ELSIF (-- standard error
331: x_return_status = OKC_API.G_RET_STS_ERROR
332: ) THEN
333: raise OKC_API.G_EXCEPTION_ERROR;
334: END IF;
335: reset(p_crj_rel_hdr_rec);
329: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
330: ELSIF (-- standard error
331: x_return_status = OKC_API.G_RET_STS_ERROR
332: ) THEN
333: raise OKC_API.G_EXCEPTION_ERROR;
334: END IF;
335: reset(p_crj_rel_hdr_rec);
336: */
337: /*
346:
347: OKC_K_REL_OBJS_PUB.create_k_rel_obj
348: (
349: p_api_version => 1
350: ,p_init_msg_list => OKC_API.G_FALSE
351: ,x_return_status => x_return_status
352: ,x_msg_count => x_msg_count
353: ,x_msg_data => x_msg_data
354: ,p_crj_rel_hdr_full_rec => l_crj_rel_hdr_full_rec
360: x_crj_rel_hdr_rec.object1_id1:=l_x_crj_rel_hdr_full_rec.object1_id1;
361: x_crj_rel_hdr_rec.object1_id2:=l_x_crj_rel_hdr_full_rec.object1_id2;
362: x_crj_rel_line_tbl :=l_x_crj_rel_line_tbl;
363: IF (-- unexpected error
364: x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
365: ) THEN
366: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
367: ELSIF (-- standard error
368: x_return_status = OKC_API.G_RET_STS_ERROR
362: x_crj_rel_line_tbl :=l_x_crj_rel_line_tbl;
363: IF (-- unexpected error
364: x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
365: ) THEN
366: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
367: ELSIF (-- standard error
368: x_return_status = OKC_API.G_RET_STS_ERROR
369: ) THEN
370: raise OKC_API.G_EXCEPTION_ERROR;
364: x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
365: ) THEN
366: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
367: ELSIF (-- standard error
368: x_return_status = OKC_API.G_RET_STS_ERROR
369: ) THEN
370: raise OKC_API.G_EXCEPTION_ERROR;
371: END IF;
372:
366: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
367: ELSIF (-- standard error
368: x_return_status = OKC_API.G_RET_STS_ERROR
369: ) THEN
370: raise OKC_API.G_EXCEPTION_ERROR;
371: END IF;
372:
373: /*
374: Call After Logic Hook
381: ,l_api_name
382: ,'A'
383: );
384: IF (-- unexpected error
385: x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
386: ) THEN
387: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
388: ELSIF (-- standard error
389: x_return_status = OKC_API.G_RET_STS_ERROR
383: );
384: IF (-- unexpected error
385: x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
386: ) THEN
387: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
388: ELSIF (-- standard error
389: x_return_status = OKC_API.G_RET_STS_ERROR
390: ) THEN
391: raise OKC_API.G_EXCEPTION_ERROR;
385: x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
386: ) THEN
387: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
388: ELSIF (-- standard error
389: x_return_status = OKC_API.G_RET_STS_ERROR
390: ) THEN
391: raise OKC_API.G_EXCEPTION_ERROR;
392: END IF;
393: reset(x_crj_rel_hdr_rec);
387: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
388: ELSIF (-- standard error
389: x_return_status = OKC_API.G_RET_STS_ERROR
390: ) THEN
391: raise OKC_API.G_EXCEPTION_ERROR;
392: END IF;
393: reset(x_crj_rel_hdr_rec);
394: */
395: OKC_API.END_ACTIVITY
391: raise OKC_API.G_EXCEPTION_ERROR;
392: END IF;
393: reset(x_crj_rel_hdr_rec);
394: */
395: OKC_API.END_ACTIVITY
396: (
397: x_msg_count
398: ,x_msg_data
399: );
400: IF (l_debug = 'Y') THEN
401: okc_util.print_trace(1, '
403: EXCEPTION
404: WHEN OKC_API.G_EXCEPTION_ERROR THEN
405: x_return_status := OKC_API.HANDLE_EXCEPTIONS
406: (
407: substr(l_api_name,1,26)
408: ,G_PKG_NAME
401: okc_util.print_trace(1, '
403: EXCEPTION
404: WHEN OKC_API.G_EXCEPTION_ERROR THEN
405: x_return_status := OKC_API.HANDLE_EXCEPTIONS
406: (
407: substr(l_api_name,1,26)
408: ,G_PKG_NAME
409: ,'OKC_API.G_RET_STS_ERROR'
405: x_return_status := OKC_API.HANDLE_EXCEPTIONS
406: (
407: substr(l_api_name,1,26)
408: ,G_PKG_NAME
409: ,'OKC_API.G_RET_STS_ERROR'
410: ,x_msg_count
411: ,x_msg_data
412: ,'_PUB'
413: );
410: ,x_msg_count
411: ,x_msg_data
412: ,'_PUB'
413: );
414: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
415: x_return_status := OKC_API.HANDLE_EXCEPTIONS
416: (
417: l_api_name
418: ,G_PKG_NAME
411: ,x_msg_data
412: ,'_PUB'
413: );
414: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
415: x_return_status := OKC_API.HANDLE_EXCEPTIONS
416: (
417: l_api_name
418: ,G_PKG_NAME
419: ,'OKC_API.G_RET_STS_UNEXP_ERROR'
415: x_return_status := OKC_API.HANDLE_EXCEPTIONS
416: (
417: l_api_name
418: ,G_PKG_NAME
419: ,'OKC_API.G_RET_STS_UNEXP_ERROR'
420: ,x_msg_count
421: ,x_msg_data
422: ,'_PUB'
423: );
421: ,x_msg_data
422: ,'_PUB'
423: );
424: WHEN OTHERS THEN
425: x_return_status := OKC_API.HANDLE_EXCEPTIONS
426: (
427: l_api_name
428: ,G_PKG_NAME
429: ,'OTHERS'
430: ,x_msg_count
431: ,x_msg_data
432: ,'_PUB'
433: );
434: OKC_API.set_message
435: (
436: G_APP_NAME
437: ,G_UNEXPECTED_ERROR
438: ,g_sqlcode_token
467: ) IS
468:
469: l_api_version CONSTANT NUMBER := 1;
470: l_api_name CONSTANT VARCHAR2(30) := 'create_order_renews_k';
471: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
472: l_crj_rel_hdr_full_rec crj_rel_hdr_full_rec_type;
473: l_crj_rel_line_tbl crj_rel_line_tbl_type;
474: l_x_crj_rel_hdr_full_rec crj_rel_hdr_full_rec_type;
475: l_x_crj_rel_line_tbl crj_rel_line_tbl_type;
486: G_SQLERRM_TOKEN CONSTANT varchar2(200) := 'ERROR_MESSAGE';
487: G_EXCEPTION_HALT_VALIDATION exception;
488:
489: BEGIN
490: l_return_status := OKC_API.START_ACTIVITY
491: (
492: substr(l_api_name,1,26)
493: ,p_init_msg_list
494: ,'_PUB'
494: ,'_PUB'
495: ,x_return_status
496: );
497: IF (-- unexpected error
498: l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
499: ) THEN
500: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
501: ELSIF (-- standard error
502: l_return_status = OKC_API.G_RET_STS_ERROR
496: );
497: IF (-- unexpected error
498: l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
499: ) THEN
500: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
501: ELSIF (-- standard error
502: l_return_status = OKC_API.G_RET_STS_ERROR
503: ) THEN
504: RAISE OKC_API.G_EXCEPTION_ERROR;
498: l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
499: ) THEN
500: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
501: ELSIF (-- standard error
502: l_return_status = OKC_API.G_RET_STS_ERROR
503: ) THEN
504: RAISE OKC_API.G_EXCEPTION_ERROR;
505: END IF;
506: /*
500: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
501: ELSIF (-- standard error
502: l_return_status = OKC_API.G_RET_STS_ERROR
503: ) THEN
504: RAISE OKC_API.G_EXCEPTION_ERROR;
505: END IF;
506: /*
507: Call Before Logic Hook
508:
514: ,l_api_name
515: ,'B'
516: );
517: IF (-- unexpected error
518: x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
519: ) THEN
520: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
521: ELSIF (-- standard error
522: x_return_status = OKC_API.G_RET_STS_ERROR
516: );
517: IF (-- unexpected error
518: x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
519: ) THEN
520: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
521: ELSIF (-- standard error
522: x_return_status = OKC_API.G_RET_STS_ERROR
523: ) THEN
524: raise OKC_API.G_EXCEPTION_ERROR;
518: x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
519: ) THEN
520: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
521: ELSIF (-- standard error
522: x_return_status = OKC_API.G_RET_STS_ERROR
523: ) THEN
524: raise OKC_API.G_EXCEPTION_ERROR;
525: END IF;
526: reset(p_crj_rel_hdr_rec);
520: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
521: ELSIF (-- standard error
522: x_return_status = OKC_API.G_RET_STS_ERROR
523: ) THEN
524: raise OKC_API.G_EXCEPTION_ERROR;
525: END IF;
526: reset(p_crj_rel_hdr_rec);
527: */
528: /*
537:
538: OKC_K_REL_OBJS_PUB.create_k_rel_obj
539: (
540: p_api_version => 1
541: ,p_init_msg_list => OKC_API.G_FALSE
542: ,x_return_status => x_return_status
543: ,x_msg_count => x_msg_count
544: ,x_msg_data => x_msg_data
545: ,p_crj_rel_hdr_full_rec => l_crj_rel_hdr_full_rec
547: ,x_crj_rel_hdr_full_rec => l_x_crj_rel_hdr_full_rec
548: ,x_crj_rel_line_tbl => l_x_crj_rel_line_tbl
549: );
550: IF (-- unexpected error
551: x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
552: ) THEN
553: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
554: ELSIF (-- standard error
555: x_return_status = OKC_API.G_RET_STS_ERROR
549: );
550: IF (-- unexpected error
551: x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
552: ) THEN
553: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
554: ELSIF (-- standard error
555: x_return_status = OKC_API.G_RET_STS_ERROR
556: ) THEN
557: raise OKC_API.G_EXCEPTION_ERROR;
551: x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
552: ) THEN
553: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
554: ELSIF (-- standard error
555: x_return_status = OKC_API.G_RET_STS_ERROR
556: ) THEN
557: raise OKC_API.G_EXCEPTION_ERROR;
558: END IF;
559:
553: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
554: ELSIF (-- standard error
555: x_return_status = OKC_API.G_RET_STS_ERROR
556: ) THEN
557: raise OKC_API.G_EXCEPTION_ERROR;
558: END IF;
559:
560: /*
561: Call After Logic Hook
568: ,l_api_name
569: ,'A'
570: );
571: IF (-- unexpected error
572: x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
573: ) THEN
574: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
575: ELSIF (-- standard error
576: x_return_status = OKC_API.G_RET_STS_ERROR
570: );
571: IF (-- unexpected error
572: x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
573: ) THEN
574: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
575: ELSIF (-- standard error
576: x_return_status = OKC_API.G_RET_STS_ERROR
577: ) THEN
578: raise OKC_API.G_EXCEPTION_ERROR;
572: x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
573: ) THEN
574: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
575: ELSIF (-- standard error
576: x_return_status = OKC_API.G_RET_STS_ERROR
577: ) THEN
578: raise OKC_API.G_EXCEPTION_ERROR;
579: END IF;
580: reset(x_crj_rel_hdr_rec);
574: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
575: ELSIF (-- standard error
576: x_return_status = OKC_API.G_RET_STS_ERROR
577: ) THEN
578: raise OKC_API.G_EXCEPTION_ERROR;
579: END IF;
580: reset(x_crj_rel_hdr_rec);
581: */
582: OKC_API.END_ACTIVITY
578: raise OKC_API.G_EXCEPTION_ERROR;
579: END IF;
580: reset(x_crj_rel_hdr_rec);
581: */
582: OKC_API.END_ACTIVITY
583: (
584: x_msg_count
585: ,x_msg_data
586: );
584: x_msg_count
585: ,x_msg_data
586: );
587: EXCEPTION
588: WHEN OKC_API.G_EXCEPTION_ERROR THEN
589: x_return_status := OKC_API.HANDLE_EXCEPTIONS
590: (
591: l_api_name
592: ,G_PKG_NAME
585: ,x_msg_data
586: );
587: EXCEPTION
588: WHEN OKC_API.G_EXCEPTION_ERROR THEN
589: x_return_status := OKC_API.HANDLE_EXCEPTIONS
590: (
591: l_api_name
592: ,G_PKG_NAME
593: ,'OKC_API.G_RET_STS_ERROR'
589: x_return_status := OKC_API.HANDLE_EXCEPTIONS
590: (
591: l_api_name
592: ,G_PKG_NAME
593: ,'OKC_API.G_RET_STS_ERROR'
594: ,x_msg_count
595: ,x_msg_data
596: ,'_PUB'
597: );
594: ,x_msg_count
595: ,x_msg_data
596: ,'_PUB'
597: );
598: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
599: x_return_status := OKC_API.HANDLE_EXCEPTIONS
600: (
601: l_api_name
602: ,G_PKG_NAME
595: ,x_msg_data
596: ,'_PUB'
597: );
598: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
599: x_return_status := OKC_API.HANDLE_EXCEPTIONS
600: (
601: l_api_name
602: ,G_PKG_NAME
603: ,'OKC_API.G_RET_STS_UNEXP_ERROR'
599: x_return_status := OKC_API.HANDLE_EXCEPTIONS
600: (
601: l_api_name
602: ,G_PKG_NAME
603: ,'OKC_API.G_RET_STS_UNEXP_ERROR'
604: ,x_msg_count
605: ,x_msg_data
606: ,'_PUB'
607: );
606: ,'_PUB'
607: );
608:
609: WHEN OTHERS THEN
610: x_return_status := OKC_API.HANDLE_EXCEPTIONS
611: (
612: l_api_name
613: ,G_PKG_NAME
614: ,'OTHERS'
615: ,x_msg_count
616: ,x_msg_data
617: ,'_PUB'
618: );
619: OKC_API.set_message
620: (
621: G_APP_NAME
622: ,G_UNEXPECTED_ERROR
623: ,g_sqlcode_token
652: ) IS
653:
654: l_api_version CONSTANT NUMBER := 1;
655: l_api_name CONSTANT VARCHAR2(30) := 'create_order_ships_k';
656: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
657: l_crj_rel_hdr_full_rec crj_rel_hdr_full_rec_type;
658: l_crj_rel_line_tbl crj_rel_line_tbl_type;
659: l_x_crj_rel_hdr_full_rec crj_rel_hdr_full_rec_type;
660: l_x_crj_rel_line_tbl crj_rel_line_tbl_type;
675: IF (l_debug = 'Y') THEN
676: okc_util.print_trace(1, ' ');
677: okc_util.print_trace(1, '>START - OKC_K_REL_OBJS_PUB.CREATE_ORDER_SHIPS_CONTRACT -');
678: END IF;
679: l_return_status := OKC_API.START_ACTIVITY
680: (
681: substr(l_api_name,1,26)
682: ,p_init_msg_list
683: ,'_PUB'
683: ,'_PUB'
684: ,x_return_status
685: );
686: IF (-- unexpected error
687: l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
688: ) THEN
689: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
690: ELSIF (-- standard error
691: l_return_status = OKC_API.G_RET_STS_ERROR
685: );
686: IF (-- unexpected error
687: l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
688: ) THEN
689: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
690: ELSIF (-- standard error
691: l_return_status = OKC_API.G_RET_STS_ERROR
692: ) THEN
693: RAISE OKC_API.G_EXCEPTION_ERROR;
687: l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
688: ) THEN
689: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
690: ELSIF (-- standard error
691: l_return_status = OKC_API.G_RET_STS_ERROR
692: ) THEN
693: RAISE OKC_API.G_EXCEPTION_ERROR;
694: END IF;
695: /*
689: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
690: ELSIF (-- standard error
691: l_return_status = OKC_API.G_RET_STS_ERROR
692: ) THEN
693: RAISE OKC_API.G_EXCEPTION_ERROR;
694: END IF;
695: /*
696: Call Before Logic Hook
697:
703: ,l_api_name
704: ,'B'
705: );
706: IF (-- unexpected error
707: x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
708: ) THEN
709: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
710: ELSIF (-- standard error
711: x_return_status = OKC_API.G_RET_STS_ERROR
705: );
706: IF (-- unexpected error
707: x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
708: ) THEN
709: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
710: ELSIF (-- standard error
711: x_return_status = OKC_API.G_RET_STS_ERROR
712: ) THEN
713: raise OKC_API.G_EXCEPTION_ERROR;
707: x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
708: ) THEN
709: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
710: ELSIF (-- standard error
711: x_return_status = OKC_API.G_RET_STS_ERROR
712: ) THEN
713: raise OKC_API.G_EXCEPTION_ERROR;
714: END IF;
715: reset(p_crj_rel_hdr_rec);
709: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
710: ELSIF (-- standard error
711: x_return_status = OKC_API.G_RET_STS_ERROR
712: ) THEN
713: raise OKC_API.G_EXCEPTION_ERROR;
714: END IF;
715: reset(p_crj_rel_hdr_rec);
716: */
717: /*
726:
727: OKC_K_REL_OBJS_PUB.create_k_rel_obj
728: (
729: p_api_version => 1
730: ,p_init_msg_list => OKC_API.G_FALSE
731: ,x_return_status => x_return_status
732: ,x_msg_count => x_msg_count
733: ,x_msg_data => x_msg_data
734: ,p_crj_rel_hdr_full_rec => l_crj_rel_hdr_full_rec
740: x_crj_rel_hdr_rec.object1_id1:=l_x_crj_rel_hdr_full_rec.object1_id1;
741: x_crj_rel_hdr_rec.object1_id2:=l_x_crj_rel_hdr_full_rec.object1_id2;
742: x_crj_rel_line_tbl :=l_x_crj_rel_line_tbl;
743: IF (-- unexpected error
744: x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
745: ) THEN
746: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
747: ELSIF (-- standard error
748: x_return_status = OKC_API.G_RET_STS_ERROR
742: x_crj_rel_line_tbl :=l_x_crj_rel_line_tbl;
743: IF (-- unexpected error
744: x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
745: ) THEN
746: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
747: ELSIF (-- standard error
748: x_return_status = OKC_API.G_RET_STS_ERROR
749: ) THEN
750: raise OKC_API.G_EXCEPTION_ERROR;
744: x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
745: ) THEN
746: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
747: ELSIF (-- standard error
748: x_return_status = OKC_API.G_RET_STS_ERROR
749: ) THEN
750: raise OKC_API.G_EXCEPTION_ERROR;
751: END IF;
752:
746: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
747: ELSIF (-- standard error
748: x_return_status = OKC_API.G_RET_STS_ERROR
749: ) THEN
750: raise OKC_API.G_EXCEPTION_ERROR;
751: END IF;
752:
753: /*
754: Call After Logic Hook
761: ,l_api_name
762: ,'A'
763: );
764: IF (-- unexpected error
765: x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
766: ) THEN
767: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
768: ELSIF (-- standard error
769: x_return_status = OKC_API.G_RET_STS_ERROR
763: );
764: IF (-- unexpected error
765: x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
766: ) THEN
767: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
768: ELSIF (-- standard error
769: x_return_status = OKC_API.G_RET_STS_ERROR
770: ) THEN
771: raise OKC_API.G_EXCEPTION_ERROR;
765: x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
766: ) THEN
767: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
768: ELSIF (-- standard error
769: x_return_status = OKC_API.G_RET_STS_ERROR
770: ) THEN
771: raise OKC_API.G_EXCEPTION_ERROR;
772: END IF;
773: reset(x_crj_rel_hdr_rec);
767: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
768: ELSIF (-- standard error
769: x_return_status = OKC_API.G_RET_STS_ERROR
770: ) THEN
771: raise OKC_API.G_EXCEPTION_ERROR;
772: END IF;
773: reset(x_crj_rel_hdr_rec);
774: */
775: OKC_API.END_ACTIVITY
771: raise OKC_API.G_EXCEPTION_ERROR;
772: END IF;
773: reset(x_crj_rel_hdr_rec);
774: */
775: OKC_API.END_ACTIVITY
776: (
777: x_msg_count
778: ,x_msg_data
779: );
780: IF (l_debug = 'Y') THEN
781: okc_util.print_trace(1, '
783: EXCEPTION
784: WHEN OKC_API.G_EXCEPTION_ERROR THEN
785: x_return_status := OKC_API.HANDLE_EXCEPTIONS
786: (
787: l_api_name
788: ,G_PKG_NAME
781: okc_util.print_trace(1, '
783: EXCEPTION
784: WHEN OKC_API.G_EXCEPTION_ERROR THEN
785: x_return_status := OKC_API.HANDLE_EXCEPTIONS
786: (
787: l_api_name
788: ,G_PKG_NAME
789: ,'OKC_API.G_RET_STS_ERROR'
785: x_return_status := OKC_API.HANDLE_EXCEPTIONS
786: (
787: l_api_name
788: ,G_PKG_NAME
789: ,'OKC_API.G_RET_STS_ERROR'
790: ,x_msg_count
791: ,x_msg_data
792: ,'_PUB'
793: );
790: ,x_msg_count
791: ,x_msg_data
792: ,'_PUB'
793: );
794: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
795: x_return_status := OKC_API.HANDLE_EXCEPTIONS
796: (
797: l_api_name
798: ,G_PKG_NAME
791: ,x_msg_data
792: ,'_PUB'
793: );
794: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
795: x_return_status := OKC_API.HANDLE_EXCEPTIONS
796: (
797: l_api_name
798: ,G_PKG_NAME
799: ,'OKC_API.G_RET_STS_UNEXP_ERROR'
795: x_return_status := OKC_API.HANDLE_EXCEPTIONS
796: (
797: l_api_name
798: ,G_PKG_NAME
799: ,'OKC_API.G_RET_STS_UNEXP_ERROR'
800: ,x_msg_count
801: ,x_msg_data
802: ,'_PUB'
803: );
802: ,'_PUB'
803: );
804:
805: WHEN OTHERS THEN
806: x_return_status := OKC_API.HANDLE_EXCEPTIONS
807: (
808: l_api_name
809: ,G_PKG_NAME
810: ,'OTHERS'
811: ,x_msg_count
812: ,x_msg_data
813: ,'_PUB'
814: );
815: OKC_API.set_message
816: (
817: G_APP_NAME
818: ,G_UNEXPECTED_ERROR
819: ,g_sqlcode_token
850: ) IS
851:
852: l_api_version CONSTANT NUMBER := 1;
853: l_api_name CONSTANT VARCHAR2(30) := 'create_core_orders_service_k';
854: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
855: l_crj_rel_hdr_full_rec crj_rel_hdr_full_rec_type;
856: l_crj_rel_line_tbl crj_rel_line_tbl_type;
857: l_x_crj_rel_hdr_full_rec crj_rel_hdr_full_rec_type;
858: l_x_crj_rel_line_tbl crj_rel_line_tbl_type;
873: IF (l_debug = 'Y') THEN
874: okc_util.print_trace(1, ' ');
875: okc_util.print_trace(1, '>START - OKC_K_REL_OBJS_PUB.CREATE_CORE_ORDERS_SERVICE -');
876: END IF;
877: l_return_status := OKC_API.START_ACTIVITY
878: (
879: substr(l_api_name,1,26)
880: ,p_init_msg_list
881: ,'_PUB'
881: ,'_PUB'
882: ,x_return_status
883: );
884: IF (-- unexpected error
885: l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
886: ) THEN
887: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
888: ELSIF (-- standard error
889: l_return_status = OKC_API.G_RET_STS_ERROR
883: );
884: IF (-- unexpected error
885: l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
886: ) THEN
887: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
888: ELSIF (-- standard error
889: l_return_status = OKC_API.G_RET_STS_ERROR
890: ) THEN
891: RAISE OKC_API.G_EXCEPTION_ERROR;
885: l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
886: ) THEN
887: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
888: ELSIF (-- standard error
889: l_return_status = OKC_API.G_RET_STS_ERROR
890: ) THEN
891: RAISE OKC_API.G_EXCEPTION_ERROR;
892: END IF;
893:
887: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
888: ELSIF (-- standard error
889: l_return_status = OKC_API.G_RET_STS_ERROR
890: ) THEN
891: RAISE OKC_API.G_EXCEPTION_ERROR;
892: END IF;
893:
894:
895: IF p_rel_type IS NOT NULL THEN -- added new parameter to remove hardcoding of relationship
907: ,l_api_name
908: ,'B'
909: );
910: IF (-- unexpected error
911: x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
912: ) THEN
913: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
914: ELSIF (-- standard error
915: x_return_status = OKC_API.G_RET_STS_ERROR
909: );
910: IF (-- unexpected error
911: x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
912: ) THEN
913: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
914: ELSIF (-- standard error
915: x_return_status = OKC_API.G_RET_STS_ERROR
916: ) THEN
917: raise OKC_API.G_EXCEPTION_ERROR;
911: x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
912: ) THEN
913: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
914: ELSIF (-- standard error
915: x_return_status = OKC_API.G_RET_STS_ERROR
916: ) THEN
917: raise OKC_API.G_EXCEPTION_ERROR;
918: END IF;
919: reset(p_crj_rel_hdr_rec);
913: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
914: ELSIF (-- standard error
915: x_return_status = OKC_API.G_RET_STS_ERROR
916: ) THEN
917: raise OKC_API.G_EXCEPTION_ERROR;
918: END IF;
919: reset(p_crj_rel_hdr_rec);
920: */
921: /*
930:
931: OKC_K_REL_OBJS_PUB.create_k_rel_obj
932: (
933: p_api_version => 1
934: ,p_init_msg_list => OKC_API.G_FALSE
935: ,x_return_status => x_return_status
936: ,x_msg_count => x_msg_count
937: ,x_msg_data => x_msg_data
938: ,p_crj_rel_hdr_full_rec => l_crj_rel_hdr_full_rec
944: x_crj_rel_hdr_rec.object1_id1:=l_x_crj_rel_hdr_full_rec.object1_id1;
945: x_crj_rel_hdr_rec.object1_id2:=l_x_crj_rel_hdr_full_rec.object1_id2;
946: x_crj_rel_line_tbl :=l_x_crj_rel_line_tbl;
947: IF (-- unexpected error
948: x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
949: ) THEN
950: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
951: ELSIF (-- standard error
952: x_return_status = OKC_API.G_RET_STS_ERROR
946: x_crj_rel_line_tbl :=l_x_crj_rel_line_tbl;
947: IF (-- unexpected error
948: x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
949: ) THEN
950: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
951: ELSIF (-- standard error
952: x_return_status = OKC_API.G_RET_STS_ERROR
953: ) THEN
954: raise OKC_API.G_EXCEPTION_ERROR;
948: x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
949: ) THEN
950: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
951: ELSIF (-- standard error
952: x_return_status = OKC_API.G_RET_STS_ERROR
953: ) THEN
954: raise OKC_API.G_EXCEPTION_ERROR;
955: END IF;
956:
950: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
951: ELSIF (-- standard error
952: x_return_status = OKC_API.G_RET_STS_ERROR
953: ) THEN
954: raise OKC_API.G_EXCEPTION_ERROR;
955: END IF;
956:
957: /*
958: Call After Logic Hook
965: ,l_api_name
966: ,'A'
967: );
968: IF (-- unexpected error
969: x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
970: ) THEN
971: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
972: ELSIF (-- standard error
973: x_return_status = OKC_API.G_RET_STS_ERROR
967: );
968: IF (-- unexpected error
969: x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
970: ) THEN
971: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
972: ELSIF (-- standard error
973: x_return_status = OKC_API.G_RET_STS_ERROR
974: ) THEN
975: raise OKC_API.G_EXCEPTION_ERROR;
969: x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
970: ) THEN
971: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
972: ELSIF (-- standard error
973: x_return_status = OKC_API.G_RET_STS_ERROR
974: ) THEN
975: raise OKC_API.G_EXCEPTION_ERROR;
976: END IF;
977: reset(x_crj_rel_hdr_rec);
971: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
972: ELSIF (-- standard error
973: x_return_status = OKC_API.G_RET_STS_ERROR
974: ) THEN
975: raise OKC_API.G_EXCEPTION_ERROR;
976: END IF;
977: reset(x_crj_rel_hdr_rec);
978: */
979: OKC_API.END_ACTIVITY
975: raise OKC_API.G_EXCEPTION_ERROR;
976: END IF;
977: reset(x_crj_rel_hdr_rec);
978: */
979: OKC_API.END_ACTIVITY
980: (
981: x_msg_count
982: ,x_msg_data
983: );
984: IF (l_debug = 'Y') THEN
985: okc_util.print_trace(1, '
987: EXCEPTION
988: WHEN OKC_API.G_EXCEPTION_ERROR THEN
989: x_return_status := OKC_API.HANDLE_EXCEPTIONS
990: (
991: l_api_name
992: ,G_PKG_NAME
985: okc_util.print_trace(1, '
987: EXCEPTION
988: WHEN OKC_API.G_EXCEPTION_ERROR THEN
989: x_return_status := OKC_API.HANDLE_EXCEPTIONS
990: (
991: l_api_name
992: ,G_PKG_NAME
993: ,'OKC_API.G_RET_STS_ERROR'
989: x_return_status := OKC_API.HANDLE_EXCEPTIONS
990: (
991: l_api_name
992: ,G_PKG_NAME
993: ,'OKC_API.G_RET_STS_ERROR'
994: ,x_msg_count
995: ,x_msg_data
996: ,'_PUB'
997: );
994: ,x_msg_count
995: ,x_msg_data
996: ,'_PUB'
997: );
998: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
999: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1000: (
1001: l_api_name
1002: ,G_PKG_NAME
995: ,x_msg_data
996: ,'_PUB'
997: );
998: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
999: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1000: (
1001: l_api_name
1002: ,G_PKG_NAME
1003: ,'OKC_API.G_RET_STS_UNEXP_ERROR'
999: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1000: (
1001: l_api_name
1002: ,G_PKG_NAME
1003: ,'OKC_API.G_RET_STS_UNEXP_ERROR'
1004: ,x_msg_count
1005: ,x_msg_data
1006: ,'_PUB'
1007: );
1006: ,'_PUB'
1007: );
1008:
1009: WHEN OTHERS THEN
1010: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1011: (
1012: l_api_name
1013: ,G_PKG_NAME
1014: ,'OTHERS'
1015: ,x_msg_count
1016: ,x_msg_data
1017: ,'_PUB'
1018: );
1019: OKC_API.set_message
1020: (
1021: G_APP_NAME
1022: ,G_UNEXPECTED_ERROR
1023: ,g_sqlcode_token
1054: ) IS
1055:
1056: l_api_version CONSTANT NUMBER := 1;
1057: l_api_name CONSTANT VARCHAR2(30) := 'create_k_neg_quote';
1058: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1059: l_crj_rel_hdr_full_rec crj_rel_hdr_full_rec_type;
1060: l_crj_rel_line_tbl crj_rel_line_tbl_type;
1061: l_x_crj_rel_hdr_full_rec crj_rel_hdr_full_rec_type;
1062: l_x_crj_rel_line_tbl crj_rel_line_tbl_type;
1068:
1069: BEGIN
1070:
1071: create_k_quote_rel(p_api_version => 1
1072: ,p_init_msg_list => okc_api.g_false
1073: ,x_return_status => x_return_status
1074: ,x_msg_count => x_msg_count
1075: ,x_msg_data => x_msg_data
1076: ,p_crj_rel_hdr_rec => p_crj_rel_hdr_rec
1106: ) IS
1107:
1108: l_api_version CONSTANT NUMBER := 1;
1109: l_api_name CONSTANT VARCHAR2(30) := 'create_k_quote_rel';
1110: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1111: l_crj_rel_hdr_full_rec crj_rel_hdr_full_rec_type;
1112: l_x_crj_rel_hdr_full_rec crj_rel_hdr_full_rec_type;
1113: l_crj_rel_line_tbl crj_rel_line_tbl_type;
1114: l_x_crj_rel_line_tbl crj_rel_line_tbl_type;
1125: G_SQLERRM_TOKEN CONSTANT varchar2(200) := 'ERROR_MESSAGE';
1126: G_EXCEPTION_HALT_VALIDATION exception;
1127:
1128: BEGIN
1129: l_return_status := OKC_API.START_ACTIVITY
1130: (
1131: substr(l_api_name,1,26)
1132: ,p_init_msg_list
1133: ,'_PUB'
1133: ,'_PUB'
1134: ,x_return_status
1135: );
1136: IF (-- unexpected error
1137: l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
1138: ) THEN
1139: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1140: ELSIF (-- standard error
1141: l_return_status = OKC_API.G_RET_STS_ERROR
1135: );
1136: IF (-- unexpected error
1137: l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
1138: ) THEN
1139: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1140: ELSIF (-- standard error
1141: l_return_status = OKC_API.G_RET_STS_ERROR
1142: ) THEN
1143: RAISE OKC_API.G_EXCEPTION_ERROR;
1137: l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
1138: ) THEN
1139: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1140: ELSIF (-- standard error
1141: l_return_status = OKC_API.G_RET_STS_ERROR
1142: ) THEN
1143: RAISE OKC_API.G_EXCEPTION_ERROR;
1144: END IF;
1145: /*
1139: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1140: ELSIF (-- standard error
1141: l_return_status = OKC_API.G_RET_STS_ERROR
1142: ) THEN
1143: RAISE OKC_API.G_EXCEPTION_ERROR;
1144: END IF;
1145: /*
1146: format parms
1147: */
1154:
1155: OKC_K_REL_OBJS_PUB.create_k_rel_obj
1156: (
1157: p_api_version => 1
1158: ,p_init_msg_list => OKC_API.G_FALSE
1159: ,x_return_status => x_return_status
1160: ,x_msg_count => x_msg_count
1161: ,x_msg_data => x_msg_data
1162: ,p_crj_rel_hdr_full_rec => l_crj_rel_hdr_full_rec
1170: x_crj_rel_hdr_rec.object1_id2 := l_x_crj_rel_hdr_full_rec.object1_id2;
1171: x_crj_rel_line_tbl := l_x_crj_rel_line_tbl;
1172:
1173: IF (-- unexpected error
1174: x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
1175: ) THEN
1176: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1177: ELSIF (-- standard error
1178: x_return_status = OKC_API.G_RET_STS_ERROR
1172:
1173: IF (-- unexpected error
1174: x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
1175: ) THEN
1176: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1177: ELSIF (-- standard error
1178: x_return_status = OKC_API.G_RET_STS_ERROR
1179: ) THEN
1180: raise OKC_API.G_EXCEPTION_ERROR;
1174: x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
1175: ) THEN
1176: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1177: ELSIF (-- standard error
1178: x_return_status = OKC_API.G_RET_STS_ERROR
1179: ) THEN
1180: raise OKC_API.G_EXCEPTION_ERROR;
1181: END IF;
1182:
1176: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1177: ELSIF (-- standard error
1178: x_return_status = OKC_API.G_RET_STS_ERROR
1179: ) THEN
1180: raise OKC_API.G_EXCEPTION_ERROR;
1181: END IF;
1182:
1183: OKC_API.END_ACTIVITY
1184: (
1179: ) THEN
1180: raise OKC_API.G_EXCEPTION_ERROR;
1181: END IF;
1182:
1183: OKC_API.END_ACTIVITY
1184: (
1185: x_msg_count
1186: ,x_msg_data
1187: );
1185: x_msg_count
1186: ,x_msg_data
1187: );
1188: EXCEPTION
1189: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1190: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1191: (
1192: l_api_name
1193: ,G_PKG_NAME
1186: ,x_msg_data
1187: );
1188: EXCEPTION
1189: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1190: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1191: (
1192: l_api_name
1193: ,G_PKG_NAME
1194: ,'OKC_API.G_RET_STS_ERROR'
1190: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1191: (
1192: l_api_name
1193: ,G_PKG_NAME
1194: ,'OKC_API.G_RET_STS_ERROR'
1195: ,x_msg_count
1196: ,x_msg_data
1197: ,'_PUB'
1198: );
1195: ,x_msg_count
1196: ,x_msg_data
1197: ,'_PUB'
1198: );
1199: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1200: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1201: (
1202: l_api_name
1203: ,G_PKG_NAME
1196: ,x_msg_data
1197: ,'_PUB'
1198: );
1199: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1200: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1201: (
1202: l_api_name
1203: ,G_PKG_NAME
1204: ,'OKC_API.G_RET_STS_UNEXP_ERROR'
1200: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1201: (
1202: l_api_name
1203: ,G_PKG_NAME
1204: ,'OKC_API.G_RET_STS_UNEXP_ERROR'
1205: ,x_msg_count
1206: ,x_msg_data
1207: ,'_PUB'
1208: );
1207: ,'_PUB'
1208: );
1209:
1210: WHEN OTHERS THEN
1211: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1212: (
1213: l_api_name
1214: ,G_PKG_NAME
1215: ,'OTHERS'
1216: ,x_msg_count
1217: ,x_msg_data
1218: ,'_PUB'
1219: );
1220: OKC_API.set_message
1221: (
1222: G_APP_NAME
1223: ,G_UNEXPECTED_ERROR
1224: ,g_sqlcode_token
1255: ) IS
1256:
1257: l_api_version CONSTANT NUMBER := 1;
1258: l_api_name CONSTANT VARCHAR2(30) := 'create_k_neg_quote';
1259: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1260: l_crj_rel_hdr_full_rec crj_rel_hdr_full_rec_type;
1261: l_crj_rel_line_tbl crj_rel_line_tbl_type;
1262: l_x_crj_rel_hdr_full_rec crj_rel_hdr_full_rec_type;
1263: l_x_crj_rel_line_tbl crj_rel_line_tbl_type;
1274: G_SQLERRM_TOKEN CONSTANT varchar2(200) := 'ERROR_MESSAGE';
1275: G_EXCEPTION_HALT_VALIDATION exception;
1276:
1277: BEGIN
1278: l_return_status := OKC_API.START_ACTIVITY
1279: (
1280: substr(l_api_name,1,26)
1281: ,p_init_msg_list
1282: ,'_PUB'
1282: ,'_PUB'
1283: ,x_return_status
1284: );
1285: IF (-- unexpected error
1286: l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
1287: ) THEN
1288: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1289: ELSIF (-- standard error
1290: l_return_status = OKC_API.G_RET_STS_ERROR
1284: );
1285: IF (-- unexpected error
1286: l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
1287: ) THEN
1288: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1289: ELSIF (-- standard error
1290: l_return_status = OKC_API.G_RET_STS_ERROR
1291: ) THEN
1292: RAISE OKC_API.G_EXCEPTION_ERROR;
1286: l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
1287: ) THEN
1288: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1289: ELSIF (-- standard error
1290: l_return_status = OKC_API.G_RET_STS_ERROR
1291: ) THEN
1292: RAISE OKC_API.G_EXCEPTION_ERROR;
1293: END IF;
1294: /*
1288: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1289: ELSIF (-- standard error
1290: l_return_status = OKC_API.G_RET_STS_ERROR
1291: ) THEN
1292: RAISE OKC_API.G_EXCEPTION_ERROR;
1293: END IF;
1294: /*
1295: Call Before Logic Hook
1296:
1302: ,l_api_name
1303: ,'B'
1304: );
1305: IF (-- unexpected error
1306: x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
1307: ) THEN
1308: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1309: ELSIF (-- standard error
1310: x_return_status = OKC_API.G_RET_STS_ERROR
1304: );
1305: IF (-- unexpected error
1306: x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
1307: ) THEN
1308: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1309: ELSIF (-- standard error
1310: x_return_status = OKC_API.G_RET_STS_ERROR
1311: ) THEN
1312: raise OKC_API.G_EXCEPTION_ERROR;
1306: x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
1307: ) THEN
1308: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1309: ELSIF (-- standard error
1310: x_return_status = OKC_API.G_RET_STS_ERROR
1311: ) THEN
1312: raise OKC_API.G_EXCEPTION_ERROR;
1313: END IF;
1314: reset(p_crj_rel_hdr_rec);
1308: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1309: ELSIF (-- standard error
1310: x_return_status = OKC_API.G_RET_STS_ERROR
1311: ) THEN
1312: raise OKC_API.G_EXCEPTION_ERROR;
1313: END IF;
1314: reset(p_crj_rel_hdr_rec);
1315: */
1316: /*
1325:
1326: OKC_K_REL_OBJS_PUB.create_k_rel_obj
1327: (
1328: p_api_version => 1
1329: ,p_init_msg_list => OKC_API.G_FALSE
1330: ,x_return_status => x_return_status
1331: ,x_msg_count => x_msg_count
1332: ,x_msg_data => x_msg_data
1333: ,p_crj_rel_hdr_full_rec => l_crj_rel_hdr_full_rec
1340: x_crj_rel_hdr_rec.object1_id2:=l_x_crj_rel_hdr_full_rec.object1_id2;
1341: x_crj_rel_line_tbl :=l_x_crj_rel_line_tbl;
1342:
1343: IF (-- unexpected error
1344: x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
1345: ) THEN
1346: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1347: ELSIF (-- standard error
1348: x_return_status = OKC_API.G_RET_STS_ERROR
1342:
1343: IF (-- unexpected error
1344: x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
1345: ) THEN
1346: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1347: ELSIF (-- standard error
1348: x_return_status = OKC_API.G_RET_STS_ERROR
1349: ) THEN
1350: raise OKC_API.G_EXCEPTION_ERROR;
1344: x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
1345: ) THEN
1346: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1347: ELSIF (-- standard error
1348: x_return_status = OKC_API.G_RET_STS_ERROR
1349: ) THEN
1350: raise OKC_API.G_EXCEPTION_ERROR;
1351: END IF;
1352:
1346: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1347: ELSIF (-- standard error
1348: x_return_status = OKC_API.G_RET_STS_ERROR
1349: ) THEN
1350: raise OKC_API.G_EXCEPTION_ERROR;
1351: END IF;
1352:
1353: /*
1354: Call After Logic Hook
1361: ,l_api_name
1362: ,'A'
1363: );
1364: IF (-- unexpected error
1365: x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
1366: ) THEN
1367: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1368: ELSIF (-- standard error
1369: x_return_status = OKC_API.G_RET_STS_ERROR
1363: );
1364: IF (-- unexpected error
1365: x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
1366: ) THEN
1367: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1368: ELSIF (-- standard error
1369: x_return_status = OKC_API.G_RET_STS_ERROR
1370: ) THEN
1371: raise OKC_API.G_EXCEPTION_ERROR;
1365: x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
1366: ) THEN
1367: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1368: ELSIF (-- standard error
1369: x_return_status = OKC_API.G_RET_STS_ERROR
1370: ) THEN
1371: raise OKC_API.G_EXCEPTION_ERROR;
1372: END IF;
1373: reset(x_crj_rel_hdr_rec);
1367: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1368: ELSIF (-- standard error
1369: x_return_status = OKC_API.G_RET_STS_ERROR
1370: ) THEN
1371: raise OKC_API.G_EXCEPTION_ERROR;
1372: END IF;
1373: reset(x_crj_rel_hdr_rec);
1374: */
1375: OKC_API.END_ACTIVITY
1371: raise OKC_API.G_EXCEPTION_ERROR;
1372: END IF;
1373: reset(x_crj_rel_hdr_rec);
1374: */
1375: OKC_API.END_ACTIVITY
1376: (
1377: x_msg_count
1378: ,x_msg_data
1379: );
1377: x_msg_count
1378: ,x_msg_data
1379: );
1380: EXCEPTION
1381: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1382: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1383: (
1384: l_api_name
1385: ,G_PKG_NAME
1378: ,x_msg_data
1379: );
1380: EXCEPTION
1381: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1382: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1383: (
1384: l_api_name
1385: ,G_PKG_NAME
1386: ,'OKC_API.G_RET_STS_ERROR'
1382: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1383: (
1384: l_api_name
1385: ,G_PKG_NAME
1386: ,'OKC_API.G_RET_STS_ERROR'
1387: ,x_msg_count
1388: ,x_msg_data
1389: ,'_PUB'
1390: );
1387: ,x_msg_count
1388: ,x_msg_data
1389: ,'_PUB'
1390: );
1391: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1392: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1393: (
1394: l_api_name
1395: ,G_PKG_NAME
1388: ,x_msg_data
1389: ,'_PUB'
1390: );
1391: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1392: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1393: (
1394: l_api_name
1395: ,G_PKG_NAME
1396: ,'OKC_API.G_RET_STS_UNEXP_ERROR'
1392: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1393: (
1394: l_api_name
1395: ,G_PKG_NAME
1396: ,'OKC_API.G_RET_STS_UNEXP_ERROR'
1397: ,x_msg_count
1398: ,x_msg_data
1399: ,'_PUB'
1400: );
1399: ,'_PUB'
1400: );
1401:
1402: WHEN OTHERS THEN
1403: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1404: (
1405: l_api_name
1406: ,G_PKG_NAME
1407: ,'OTHERS'
1408: ,x_msg_count
1409: ,x_msg_data
1410: ,'_PUB'
1411: );
1412: OKC_API.set_message
1413: (
1414: G_APP_NAME
1415: ,G_UNEXPECTED_ERROR
1416: ,g_sqlcode_token
1445: ) IS
1446:
1447: l_api_version CONSTANT NUMBER := 1;
1448: l_api_name CONSTANT VARCHAR2(30) := 'create_quote_subject_k';
1449: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1450: l_crj_rel_hdr_full_rec crj_rel_hdr_full_rec_type;
1451: l_crj_rel_line_tbl crj_rel_line_tbl_type;
1452: l_x_crj_rel_hdr_full_rec crj_rel_hdr_full_rec_type;
1453: l_x_crj_rel_line_tbl crj_rel_line_tbl_type;
1468: IF (l_debug = 'Y') THEN
1469: okc_util.print_trace(1, ' ');
1470: okc_util.print_trace(1, '>START - OKC_K_REL_OBJS_PUB.CREATE_QUOTE_SUBJECT_CONTRACT -');
1471: END IF;
1472: l_return_status := OKC_API.START_ACTIVITY
1473: (
1474: substr(l_api_name,1,26)
1475: ,p_init_msg_list
1476: ,'_PUB'
1476: ,'_PUB'
1477: ,x_return_status
1478: );
1479: IF (-- unexpected error
1480: l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
1481: ) THEN
1482: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1483: ELSIF (-- standard error
1484: l_return_status = OKC_API.G_RET_STS_ERROR
1478: );
1479: IF (-- unexpected error
1480: l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
1481: ) THEN
1482: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1483: ELSIF (-- standard error
1484: l_return_status = OKC_API.G_RET_STS_ERROR
1485: ) THEN
1486: RAISE OKC_API.G_EXCEPTION_ERROR;
1480: l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
1481: ) THEN
1482: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1483: ELSIF (-- standard error
1484: l_return_status = OKC_API.G_RET_STS_ERROR
1485: ) THEN
1486: RAISE OKC_API.G_EXCEPTION_ERROR;
1487: END IF;
1488: /*
1482: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1483: ELSIF (-- standard error
1484: l_return_status = OKC_API.G_RET_STS_ERROR
1485: ) THEN
1486: RAISE OKC_API.G_EXCEPTION_ERROR;
1487: END IF;
1488: /*
1489: Call Before Logic Hook
1490:
1496: ,l_api_name
1497: ,'B'
1498: );
1499: IF (-- unexpected error
1500: x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
1501: ) THEN
1502: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1503: ELSIF (-- standard error
1504: x_return_status = OKC_API.G_RET_STS_ERROR
1498: );
1499: IF (-- unexpected error
1500: x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
1501: ) THEN
1502: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1503: ELSIF (-- standard error
1504: x_return_status = OKC_API.G_RET_STS_ERROR
1505: ) THEN
1506: raise OKC_API.G_EXCEPTION_ERROR;
1500: x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
1501: ) THEN
1502: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1503: ELSIF (-- standard error
1504: x_return_status = OKC_API.G_RET_STS_ERROR
1505: ) THEN
1506: raise OKC_API.G_EXCEPTION_ERROR;
1507: END IF;
1508: reset(p_crj_rel_hdr_rec);
1502: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1503: ELSIF (-- standard error
1504: x_return_status = OKC_API.G_RET_STS_ERROR
1505: ) THEN
1506: raise OKC_API.G_EXCEPTION_ERROR;
1507: END IF;
1508: reset(p_crj_rel_hdr_rec);
1509: */
1510: /*
1519:
1520: OKC_K_REL_OBJS_PUB.create_k_rel_obj
1521: (
1522: p_api_version => 1
1523: ,p_init_msg_list => OKC_API.G_FALSE
1524: ,x_return_status => x_return_status
1525: ,x_msg_count => x_msg_count
1526: ,x_msg_data => x_msg_data
1527: ,p_crj_rel_hdr_full_rec => l_crj_rel_hdr_full_rec
1533: x_crj_rel_hdr_rec.object1_id1:=l_x_crj_rel_hdr_full_rec.object1_id1;
1534: x_crj_rel_hdr_rec.object1_id2:=l_x_crj_rel_hdr_full_rec.object1_id2;
1535: x_crj_rel_line_tbl :=l_x_crj_rel_line_tbl;
1536: IF (-- unexpected error
1537: x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
1538: ) THEN
1539: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1540: ELSIF (-- standard error
1541: x_return_status = OKC_API.G_RET_STS_ERROR
1535: x_crj_rel_line_tbl :=l_x_crj_rel_line_tbl;
1536: IF (-- unexpected error
1537: x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
1538: ) THEN
1539: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1540: ELSIF (-- standard error
1541: x_return_status = OKC_API.G_RET_STS_ERROR
1542: ) THEN
1543: raise OKC_API.G_EXCEPTION_ERROR;
1537: x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
1538: ) THEN
1539: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1540: ELSIF (-- standard error
1541: x_return_status = OKC_API.G_RET_STS_ERROR
1542: ) THEN
1543: raise OKC_API.G_EXCEPTION_ERROR;
1544: END IF;
1545:
1539: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1540: ELSIF (-- standard error
1541: x_return_status = OKC_API.G_RET_STS_ERROR
1542: ) THEN
1543: raise OKC_API.G_EXCEPTION_ERROR;
1544: END IF;
1545:
1546: /*
1547: Call After Logic Hook
1554: ,l_api_name
1555: ,'A'
1556: );
1557: IF (-- unexpected error
1558: x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
1559: ) THEN
1560: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1561: ELSIF (-- standard error
1562: x_return_status = OKC_API.G_RET_STS_ERROR
1556: );
1557: IF (-- unexpected error
1558: x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
1559: ) THEN
1560: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1561: ELSIF (-- standard error
1562: x_return_status = OKC_API.G_RET_STS_ERROR
1563: ) THEN
1564: raise OKC_API.G_EXCEPTION_ERROR;
1558: x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
1559: ) THEN
1560: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1561: ELSIF (-- standard error
1562: x_return_status = OKC_API.G_RET_STS_ERROR
1563: ) THEN
1564: raise OKC_API.G_EXCEPTION_ERROR;
1565: END IF;
1566: reset(x_crj_rel_hdr_rec);
1560: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1561: ELSIF (-- standard error
1562: x_return_status = OKC_API.G_RET_STS_ERROR
1563: ) THEN
1564: raise OKC_API.G_EXCEPTION_ERROR;
1565: END IF;
1566: reset(x_crj_rel_hdr_rec);
1567: */
1568: OKC_API.END_ACTIVITY
1564: raise OKC_API.G_EXCEPTION_ERROR;
1565: END IF;
1566: reset(x_crj_rel_hdr_rec);
1567: */
1568: OKC_API.END_ACTIVITY
1569: (
1570: x_msg_count
1571: ,x_msg_data
1572: );
1573: IF (l_debug = 'Y') THEN
1574: okc_util.print_trace(1, '
1576: EXCEPTION
1577: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1578: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1579: (
1580: l_api_name
1581: ,G_PKG_NAME
1574: okc_util.print_trace(1, '
1576: EXCEPTION
1577: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1578: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1579: (
1580: l_api_name
1581: ,G_PKG_NAME
1582: ,'OKC_API.G_RET_STS_ERROR'
1578: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1579: (
1580: l_api_name
1581: ,G_PKG_NAME
1582: ,'OKC_API.G_RET_STS_ERROR'
1583: ,x_msg_count
1584: ,x_msg_data
1585: ,'_PUB'
1586: );
1583: ,x_msg_count
1584: ,x_msg_data
1585: ,'_PUB'
1586: );
1587: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1588: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1589: (
1590: l_api_name
1591: ,G_PKG_NAME
1584: ,x_msg_data
1585: ,'_PUB'
1586: );
1587: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1588: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1589: (
1590: l_api_name
1591: ,G_PKG_NAME
1592: ,'OKC_API.G_RET_STS_UNEXP_ERROR'
1588: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1589: (
1590: l_api_name
1591: ,G_PKG_NAME
1592: ,'OKC_API.G_RET_STS_UNEXP_ERROR'
1593: ,x_msg_count
1594: ,x_msg_data
1595: ,'_PUB'
1596: );
1595: ,'_PUB'
1596: );
1597:
1598: WHEN OTHERS THEN
1599: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1600: (
1601: l_api_name
1602: ,G_PKG_NAME
1603: ,'OTHERS'
1604: ,x_msg_count
1605: ,x_msg_data
1606: ,'_PUB'
1607: );
1608: OKC_API.set_message
1609: (
1610: G_APP_NAME
1611: ,G_UNEXPECTED_ERROR
1612: ,g_sqlcode_token
1641: ) IS
1642:
1643: l_api_version CONSTANT NUMBER := 1;
1644: l_api_name CONSTANT VARCHAR2(30) := 'create_order_subject_k';
1645: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1646: l_crj_rel_hdr_full_rec crj_rel_hdr_full_rec_type;
1647: l_crj_rel_line_tbl crj_rel_line_tbl_type;
1648: l_x_crj_rel_hdr_full_rec crj_rel_hdr_full_rec_type;
1649: l_x_crj_rel_line_tbl crj_rel_line_tbl_type;
1660: G_SQLERRM_TOKEN CONSTANT varchar2(200) := 'ERROR_MESSAGE';
1661: G_EXCEPTION_HALT_VALIDATION exception;
1662:
1663: BEGIN
1664: l_return_status := OKC_API.START_ACTIVITY
1665: (
1666: substr(l_api_name,1,26)
1667: ,p_init_msg_list
1668: ,'_PUB'
1668: ,'_PUB'
1669: ,x_return_status
1670: );
1671: IF (-- unexpected error
1672: l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
1673: ) THEN
1674: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1675: ELSIF (-- standard error
1676: l_return_status = OKC_API.G_RET_STS_ERROR
1670: );
1671: IF (-- unexpected error
1672: l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
1673: ) THEN
1674: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1675: ELSIF (-- standard error
1676: l_return_status = OKC_API.G_RET_STS_ERROR
1677: ) THEN
1678: RAISE OKC_API.G_EXCEPTION_ERROR;
1672: l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
1673: ) THEN
1674: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1675: ELSIF (-- standard error
1676: l_return_status = OKC_API.G_RET_STS_ERROR
1677: ) THEN
1678: RAISE OKC_API.G_EXCEPTION_ERROR;
1679: END IF;
1680: /*
1674: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1675: ELSIF (-- standard error
1676: l_return_status = OKC_API.G_RET_STS_ERROR
1677: ) THEN
1678: RAISE OKC_API.G_EXCEPTION_ERROR;
1679: END IF;
1680: /*
1681: Call Before Logic Hook
1682:
1688: ,l_api_name
1689: ,'B'
1690: );
1691: IF (-- unexpected error
1692: x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
1693: ) THEN
1694: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1695: ELSIF (-- standard error
1696: x_return_status = OKC_API.G_RET_STS_ERROR
1690: );
1691: IF (-- unexpected error
1692: x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
1693: ) THEN
1694: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1695: ELSIF (-- standard error
1696: x_return_status = OKC_API.G_RET_STS_ERROR
1697: ) THEN
1698: raise OKC_API.G_EXCEPTION_ERROR;
1692: x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
1693: ) THEN
1694: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1695: ELSIF (-- standard error
1696: x_return_status = OKC_API.G_RET_STS_ERROR
1697: ) THEN
1698: raise OKC_API.G_EXCEPTION_ERROR;
1699: END IF;
1700: reset(p_crj_rel_hdr_rec);
1694: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1695: ELSIF (-- standard error
1696: x_return_status = OKC_API.G_RET_STS_ERROR
1697: ) THEN
1698: raise OKC_API.G_EXCEPTION_ERROR;
1699: END IF;
1700: reset(p_crj_rel_hdr_rec);
1701: */
1702: /*
1711:
1712: OKC_K_REL_OBJS_PUB.create_k_rel_obj
1713: (
1714: p_api_version => 1
1715: ,p_init_msg_list => OKC_API.G_FALSE
1716: ,x_return_status => x_return_status
1717: ,x_msg_count => x_msg_count
1718: ,x_msg_data => x_msg_data
1719: ,p_crj_rel_hdr_full_rec => l_crj_rel_hdr_full_rec
1725: x_crj_rel_hdr_rec.object1_id1:=l_x_crj_rel_hdr_full_rec.object1_id1;
1726: x_crj_rel_hdr_rec.object1_id2:=l_x_crj_rel_hdr_full_rec.object1_id2;
1727: x_crj_rel_line_tbl :=l_x_crj_rel_line_tbl;
1728: IF (-- unexpected error
1729: x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
1730: ) THEN
1731: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1732: ELSIF (-- standard error
1733: x_return_status = OKC_API.G_RET_STS_ERROR
1727: x_crj_rel_line_tbl :=l_x_crj_rel_line_tbl;
1728: IF (-- unexpected error
1729: x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
1730: ) THEN
1731: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1732: ELSIF (-- standard error
1733: x_return_status = OKC_API.G_RET_STS_ERROR
1734: ) THEN
1735: raise OKC_API.G_EXCEPTION_ERROR;
1729: x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
1730: ) THEN
1731: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1732: ELSIF (-- standard error
1733: x_return_status = OKC_API.G_RET_STS_ERROR
1734: ) THEN
1735: raise OKC_API.G_EXCEPTION_ERROR;
1736: END IF;
1737:
1731: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1732: ELSIF (-- standard error
1733: x_return_status = OKC_API.G_RET_STS_ERROR
1734: ) THEN
1735: raise OKC_API.G_EXCEPTION_ERROR;
1736: END IF;
1737:
1738: /*
1739: Call After Logic Hook
1746: ,l_api_name
1747: ,'A'
1748: );
1749: IF (-- unexpected error
1750: x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
1751: ) THEN
1752: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1753: ELSIF (-- standard error
1754: x_return_status = OKC_API.G_RET_STS_ERROR
1748: );
1749: IF (-- unexpected error
1750: x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
1751: ) THEN
1752: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1753: ELSIF (-- standard error
1754: x_return_status = OKC_API.G_RET_STS_ERROR
1755: ) THEN
1756: raise OKC_API.G_EXCEPTION_ERROR;
1750: x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
1751: ) THEN
1752: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1753: ELSIF (-- standard error
1754: x_return_status = OKC_API.G_RET_STS_ERROR
1755: ) THEN
1756: raise OKC_API.G_EXCEPTION_ERROR;
1757: END IF;
1758: reset(x_crj_rel_hdr_rec);
1752: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1753: ELSIF (-- standard error
1754: x_return_status = OKC_API.G_RET_STS_ERROR
1755: ) THEN
1756: raise OKC_API.G_EXCEPTION_ERROR;
1757: END IF;
1758: reset(x_crj_rel_hdr_rec);
1759: */
1760: OKC_API.END_ACTIVITY
1756: raise OKC_API.G_EXCEPTION_ERROR;
1757: END IF;
1758: reset(x_crj_rel_hdr_rec);
1759: */
1760: OKC_API.END_ACTIVITY
1761: (
1762: x_msg_count
1763: ,x_msg_data
1764: );
1762: x_msg_count
1763: ,x_msg_data
1764: );
1765: EXCEPTION
1766: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1767: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1768: (
1769: l_api_name
1770: ,G_PKG_NAME
1763: ,x_msg_data
1764: );
1765: EXCEPTION
1766: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1767: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1768: (
1769: l_api_name
1770: ,G_PKG_NAME
1771: ,'OKC_API.G_RET_STS_ERROR'
1767: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1768: (
1769: l_api_name
1770: ,G_PKG_NAME
1771: ,'OKC_API.G_RET_STS_ERROR'
1772: ,x_msg_count
1773: ,x_msg_data
1774: ,'_PUB'
1775: );
1772: ,x_msg_count
1773: ,x_msg_data
1774: ,'_PUB'
1775: );
1776: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1777: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1778: (
1779: l_api_name
1780: ,G_PKG_NAME
1773: ,x_msg_data
1774: ,'_PUB'
1775: );
1776: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1777: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1778: (
1779: l_api_name
1780: ,G_PKG_NAME
1781: ,'OKC_API.G_RET_STS_UNEXP_ERROR'
1777: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1778: (
1779: l_api_name
1780: ,G_PKG_NAME
1781: ,'OKC_API.G_RET_STS_UNEXP_ERROR'
1782: ,x_msg_count
1783: ,x_msg_data
1784: ,'_PUB'
1785: );
1784: ,'_PUB'
1785: );
1786:
1787: WHEN OTHERS THEN
1788: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1789: (
1790: l_api_name
1791: ,G_PKG_NAME
1792: ,'OTHERS'
1793: ,x_msg_count
1794: ,x_msg_data
1795: ,'_PUB'
1796: );
1797: OKC_API.set_message
1798: (
1799: G_APP_NAME
1800: ,G_UNEXPECTED_ERROR
1801: ,g_sqlcode_token
1831: ) IS
1832:
1833: l_api_version CONSTANT NUMBER := 1;
1834: l_api_name CONSTANT VARCHAR2(30) := 'create_k_serv_order';
1835: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1836: l_crj_rel_hdr_full_rec crj_rel_hdr_full_rec_type;
1837: l_crj_rel_line_tbl crj_rel_line_tbl_type;
1838: l_x_crj_rel_hdr_full_rec crj_rel_hdr_full_rec_type;
1839: l_x_crj_rel_line_tbl crj_rel_line_tbl_type;
1850: G_SQLERRM_TOKEN CONSTANT varchar2(200) := 'ERROR_MESSAGE';
1851: G_EXCEPTION_HALT_VALIDATION exception;
1852:
1853: BEGIN
1854: l_return_status := OKC_API.START_ACTIVITY
1855: (
1856: substr(l_api_name,1,26)
1857: ,p_init_msg_list
1858: ,'_PUB'
1858: ,'_PUB'
1859: ,x_return_status
1860: );
1861: IF (-- unexpected error
1862: l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
1863: ) THEN
1864: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1865: ELSIF (-- standard error
1866: l_return_status = OKC_API.G_RET_STS_ERROR
1860: );
1861: IF (-- unexpected error
1862: l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
1863: ) THEN
1864: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1865: ELSIF (-- standard error
1866: l_return_status = OKC_API.G_RET_STS_ERROR
1867: ) THEN
1868: RAISE OKC_API.G_EXCEPTION_ERROR;
1862: l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
1863: ) THEN
1864: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1865: ELSIF (-- standard error
1866: l_return_status = OKC_API.G_RET_STS_ERROR
1867: ) THEN
1868: RAISE OKC_API.G_EXCEPTION_ERROR;
1869: END IF;
1870: /*
1864: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1865: ELSIF (-- standard error
1866: l_return_status = OKC_API.G_RET_STS_ERROR
1867: ) THEN
1868: RAISE OKC_API.G_EXCEPTION_ERROR;
1869: END IF;
1870: /*
1871: Call Before Logic Hook
1872:
1878: ,l_api_name
1879: ,'B'
1880: );
1881: IF (-- unexpected error
1882: x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
1883: ) THEN
1884: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1885: ELSIF (-- standard error
1886: x_return_status = OKC_API.G_RET_STS_ERROR
1880: );
1881: IF (-- unexpected error
1882: x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
1883: ) THEN
1884: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1885: ELSIF (-- standard error
1886: x_return_status = OKC_API.G_RET_STS_ERROR
1887: ) THEN
1888: raise OKC_API.G_EXCEPTION_ERROR;
1882: x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
1883: ) THEN
1884: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1885: ELSIF (-- standard error
1886: x_return_status = OKC_API.G_RET_STS_ERROR
1887: ) THEN
1888: raise OKC_API.G_EXCEPTION_ERROR;
1889: END IF;
1890: reset(p_crj_rel_hdr_rec);
1884: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1885: ELSIF (-- standard error
1886: x_return_status = OKC_API.G_RET_STS_ERROR
1887: ) THEN
1888: raise OKC_API.G_EXCEPTION_ERROR;
1889: END IF;
1890: reset(p_crj_rel_hdr_rec);
1891: */
1892: /*
1901:
1902: OKC_K_REL_OBJS_PUB.create_k_rel_obj
1903: (
1904: p_api_version => 1
1905: ,p_init_msg_list => OKC_API.G_FALSE
1906: ,x_return_status => x_return_status
1907: ,x_msg_count => x_msg_count
1908: ,x_msg_data => x_msg_data
1909: ,p_crj_rel_hdr_full_rec => l_crj_rel_hdr_full_rec
1911: ,x_crj_rel_hdr_full_rec => l_x_crj_rel_hdr_full_rec
1912: ,x_crj_rel_line_tbl => l_x_crj_rel_line_tbl
1913: );
1914: IF (-- unexpected error
1915: x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
1916: ) THEN
1917: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1918: ELSIF (-- standard error
1919: x_return_status = OKC_API.G_RET_STS_ERROR
1913: );
1914: IF (-- unexpected error
1915: x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
1916: ) THEN
1917: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1918: ELSIF (-- standard error
1919: x_return_status = OKC_API.G_RET_STS_ERROR
1920: ) THEN
1921: raise OKC_API.G_EXCEPTION_ERROR;
1915: x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
1916: ) THEN
1917: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1918: ELSIF (-- standard error
1919: x_return_status = OKC_API.G_RET_STS_ERROR
1920: ) THEN
1921: raise OKC_API.G_EXCEPTION_ERROR;
1922: END IF;
1923:
1917: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1918: ELSIF (-- standard error
1919: x_return_status = OKC_API.G_RET_STS_ERROR
1920: ) THEN
1921: raise OKC_API.G_EXCEPTION_ERROR;
1922: END IF;
1923:
1924: /*
1925: Call After Logic Hook
1932: ,l_api_name
1933: ,'A'
1934: );
1935: IF (-- unexpected error
1936: x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
1937: ) THEN
1938: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1939: ELSIF (-- standard error
1940: x_return_status = OKC_API.G_RET_STS_ERROR
1934: );
1935: IF (-- unexpected error
1936: x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
1937: ) THEN
1938: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1939: ELSIF (-- standard error
1940: x_return_status = OKC_API.G_RET_STS_ERROR
1941: ) THEN
1942: raise OKC_API.G_EXCEPTION_ERROR;
1936: x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
1937: ) THEN
1938: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1939: ELSIF (-- standard error
1940: x_return_status = OKC_API.G_RET_STS_ERROR
1941: ) THEN
1942: raise OKC_API.G_EXCEPTION_ERROR;
1943: END IF;
1944: reset(x_crj_rel_hdr_rec);
1938: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1939: ELSIF (-- standard error
1940: x_return_status = OKC_API.G_RET_STS_ERROR
1941: ) THEN
1942: raise OKC_API.G_EXCEPTION_ERROR;
1943: END IF;
1944: reset(x_crj_rel_hdr_rec);
1945: */
1946: OKC_API.END_ACTIVITY
1942: raise OKC_API.G_EXCEPTION_ERROR;
1943: END IF;
1944: reset(x_crj_rel_hdr_rec);
1945: */
1946: OKC_API.END_ACTIVITY
1947: (
1948: x_msg_count
1949: ,x_msg_data
1950: );
1948: x_msg_count
1949: ,x_msg_data
1950: );
1951: EXCEPTION
1952: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1953: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1954: (
1955: l_api_name
1956: ,G_PKG_NAME
1949: ,x_msg_data
1950: );
1951: EXCEPTION
1952: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1953: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1954: (
1955: l_api_name
1956: ,G_PKG_NAME
1957: ,'OKC_API.G_RET_STS_ERROR'
1953: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1954: (
1955: l_api_name
1956: ,G_PKG_NAME
1957: ,'OKC_API.G_RET_STS_ERROR'
1958: ,x_msg_count
1959: ,x_msg_data
1960: ,'_PUB'
1961: );
1958: ,x_msg_count
1959: ,x_msg_data
1960: ,'_PUB'
1961: );
1962: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1963: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1964: (
1965: l_api_name
1966: ,G_PKG_NAME
1959: ,x_msg_data
1960: ,'_PUB'
1961: );
1962: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1963: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1964: (
1965: l_api_name
1966: ,G_PKG_NAME
1967: ,'OKC_API.G_RET_STS_UNEXP_ERROR'
1963: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1964: (
1965: l_api_name
1966: ,G_PKG_NAME
1967: ,'OKC_API.G_RET_STS_UNEXP_ERROR'
1968: ,x_msg_count
1969: ,x_msg_data
1970: ,'_PUB'
1971: );
1970: ,'_PUB'
1971: );
1972:
1973: WHEN OTHERS THEN
1974: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1975: (
1976: l_api_name
1977: ,G_PKG_NAME
1978: ,'OTHERS'
1979: ,x_msg_count
1980: ,x_msg_data
1981: ,'_PUB'
1982: );
1983: OKC_API.set_message
1984: (
1985: G_APP_NAME
1986: ,G_UNEXPECTED_ERROR
1987: ,g_sqlcode_token
2009: x_crjv_rec OUT NOCOPY crjv_rec_type) IS
2010:
2011: l_api_version CONSTANT NUMBER := 1;
2012: l_api_name CONSTANT VARCHAR2(30) := 'V_create_row';
2013: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2014: l_crjv_rec crjv_rec_type := p_crjv_rec;
2015: l_def_crjv_rec crjv_rec_type;
2016: l_crj_rec crj_rec_type;
2017: lx_crj_rec crj_rec_type;
2024: IF (l_debug = 'Y') THEN
2025: okc_util.print_trace(3, ' ');
2026: okc_util.print_trace(3, '>START - OKC_K_REL_OBJS_PUB.CREATE_ROW -');
2027: END IF;
2028: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2029: G_PKG_NAME,
2030: p_init_msg_list,
2031: l_api_version,
2032: p_api_version,
2031: l_api_version,
2032: p_api_version,
2033: '_PUB',
2034: x_return_status);
2035: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2036: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2037: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2038: RAISE OKC_API.G_EXCEPTION_ERROR;
2039: END IF;
2032: p_api_version,
2033: '_PUB',
2034: x_return_status);
2035: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2036: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2037: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2038: RAISE OKC_API.G_EXCEPTION_ERROR;
2039: END IF;
2040: --------------------------------------------
2033: '_PUB',
2034: x_return_status);
2035: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2036: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2037: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2038: RAISE OKC_API.G_EXCEPTION_ERROR;
2039: END IF;
2040: --------------------------------------------
2041: -- Call the create_row for each child record
2034: x_return_status);
2035: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2036: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2037: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2038: RAISE OKC_API.G_EXCEPTION_ERROR;
2039: END IF;
2040: --------------------------------------------
2041: -- Call the create_row for each child record
2042: --------------------------------------------
2045: */
2046: OKC_CRJ_PVT.insert_row
2047: (
2048: p_api_version => 1
2049: ,p_init_msg_list => OKC_API.G_FALSE
2050: ,x_return_status => x_return_status
2051: ,x_msg_count => x_msg_count
2052: ,x_msg_data => x_msg_data
2053: ,p_crjv_rec => p_crjv_rec
2053: ,p_crjv_rec => p_crjv_rec
2054: ,x_crjv_rec => x_crjv_rec
2055: )
2056: ;
2057: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2058: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2059: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2060: RAISE OKC_API.G_EXCEPTION_ERROR;
2061: END IF;
2054: ,x_crjv_rec => x_crjv_rec
2055: )
2056: ;
2057: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2058: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2059: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2060: RAISE OKC_API.G_EXCEPTION_ERROR;
2061: END IF;
2062: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2055: )
2056: ;
2057: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2058: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2059: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2060: RAISE OKC_API.G_EXCEPTION_ERROR;
2061: END IF;
2062: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2063: IF (l_debug = 'Y') THEN
2056: ;
2057: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2058: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2059: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2060: RAISE OKC_API.G_EXCEPTION_ERROR;
2061: END IF;
2062: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2063: IF (l_debug = 'Y') THEN
2064: okc_util.print_trace(3, '
2058: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2059: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2060: RAISE OKC_API.G_EXCEPTION_ERROR;
2061: END IF;
2062: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2063: IF (l_debug = 'Y') THEN
2064: okc_util.print_trace(3, '
2066: EXCEPTION
2063: IF (l_debug = 'Y') THEN
2064: okc_util.print_trace(3, '
2066: EXCEPTION
2067: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2068: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2069: (
2070: l_api_name,
2071: G_PKG_NAME,
2064: okc_util.print_trace(3, '
2066: EXCEPTION
2067: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2068: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2069: (
2070: l_api_name,
2071: G_PKG_NAME,
2072: 'OKC_API.G_RET_STS_ERROR',
2068: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2069: (
2070: l_api_name,
2071: G_PKG_NAME,
2072: 'OKC_API.G_RET_STS_ERROR',
2073: x_msg_count,
2074: x_msg_data,
2075: '_PUB'
2076: );
2073: x_msg_count,
2074: x_msg_data,
2075: '_PUB'
2076: );
2077: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2078: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2079: (
2080: l_api_name,
2081: G_PKG_NAME,
2074: x_msg_data,
2075: '_PUB'
2076: );
2077: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2078: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2079: (
2080: l_api_name,
2081: G_PKG_NAME,
2082: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2078: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2079: (
2080: l_api_name,
2081: G_PKG_NAME,
2082: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2083: x_msg_count,
2084: x_msg_data,
2085: '_PUB'
2086: );
2084: x_msg_data,
2085: '_PUB'
2086: );
2087: WHEN OTHERS THEN
2088: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2089: (
2090: l_api_name,
2091: G_PKG_NAME,
2092: 'OTHERS',
2108: x_crjv_tbl OUT NOCOPY crjv_tbl_type) IS
2109:
2110: l_api_version CONSTANT NUMBER := 1;
2111: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_create_row';
2112: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2113: l_x_crjv_rec crjv_rec_type;
2114: l_x_crjv_tbl crjv_tbl_type;
2115: i NUMBER := 0;
2116: BEGIN
2115: i NUMBER := 0;
2116: BEGIN
2117: /* start added code
2118: */
2119: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2120: G_PKG_NAME,
2121: p_init_msg_list,
2122: l_api_version,
2123: p_api_version,
2122: l_api_version,
2123: p_api_version,
2124: '_PUB',
2125: x_return_status);
2126: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2127: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2128: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2129: RAISE OKC_API.G_EXCEPTION_ERROR;
2130: END IF;
2123: p_api_version,
2124: '_PUB',
2125: x_return_status);
2126: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2127: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2128: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2129: RAISE OKC_API.G_EXCEPTION_ERROR;
2130: END IF;
2131: /* create_row
2124: '_PUB',
2125: x_return_status);
2126: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2127: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2128: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2129: RAISE OKC_API.G_EXCEPTION_ERROR;
2130: END IF;
2131: /* create_row
2132: */
2125: x_return_status);
2126: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2127: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2128: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2129: RAISE OKC_API.G_EXCEPTION_ERROR;
2130: END IF;
2131: /* create_row
2132: */
2133: OKC_CRJ_PVT.insert_row
2132: */
2133: OKC_CRJ_PVT.insert_row
2134: (
2135: p_api_version => 1
2136: ,p_init_msg_list => OKC_API.G_FALSE
2137: ,x_return_status => x_return_status
2138: ,x_msg_count => x_msg_count
2139: ,x_msg_data => x_msg_data
2140: ,p_crjv_tbl => p_crjv_tbl
2140: ,p_crjv_tbl => p_crjv_tbl
2141: ,x_crjv_tbl => x_crjv_tbl
2142: )
2143: ;
2144: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2145: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2146: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2147: RAISE OKC_API.G_EXCEPTION_ERROR;
2148: END IF;
2141: ,x_crjv_tbl => x_crjv_tbl
2142: )
2143: ;
2144: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2145: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2146: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2147: RAISE OKC_API.G_EXCEPTION_ERROR;
2148: END IF;
2149: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2142: )
2143: ;
2144: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2145: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2146: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2147: RAISE OKC_API.G_EXCEPTION_ERROR;
2148: END IF;
2149: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2150: /* end added code
2143: ;
2144: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2145: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2146: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2147: RAISE OKC_API.G_EXCEPTION_ERROR;
2148: END IF;
2149: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2150: /* end added code
2151: */
2145: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2146: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2147: RAISE OKC_API.G_EXCEPTION_ERROR;
2148: END IF;
2149: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2150: /* end added code
2151: */
2152: EXCEPTION
2153: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2149: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2150: /* end added code
2151: */
2152: EXCEPTION
2153: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2154: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2155: (
2156: l_api_name,
2157: G_PKG_NAME,
2150: /* end added code
2151: */
2152: EXCEPTION
2153: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2154: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2155: (
2156: l_api_name,
2157: G_PKG_NAME,
2158: 'OKC_API.G_RET_STS_ERROR',
2154: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2155: (
2156: l_api_name,
2157: G_PKG_NAME,
2158: 'OKC_API.G_RET_STS_ERROR',
2159: x_msg_count,
2160: x_msg_data,
2161: '_PUB'
2162: );
2159: x_msg_count,
2160: x_msg_data,
2161: '_PUB'
2162: );
2163: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2164: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2165: (
2166: l_api_name,
2167: G_PKG_NAME,
2160: x_msg_data,
2161: '_PUB'
2162: );
2163: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2164: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2165: (
2166: l_api_name,
2167: G_PKG_NAME,
2168: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2164: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2165: (
2166: l_api_name,
2167: G_PKG_NAME,
2168: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2169: x_msg_count,
2170: x_msg_data,
2171: '_PUB'
2172: );
2170: x_msg_data,
2171: '_PUB'
2172: );
2173: WHEN OTHERS THEN
2174: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2175: (
2176: l_api_name,
2177: G_PKG_NAME,
2178: 'OTHERS',
2194: p_crjv_rec IN crjv_rec_type) IS
2195:
2196: l_api_version CONSTANT NUMBER := 1;
2197: l_api_name CONSTANT VARCHAR2(30) := 'V_lock_row';
2198: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2199: l_crj_rec crj_rec_type;
2200: BEGIN
2201: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2202: G_PKG_NAME,
2197: l_api_name CONSTANT VARCHAR2(30) := 'V_lock_row';
2198: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2199: l_crj_rec crj_rec_type;
2200: BEGIN
2201: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2202: G_PKG_NAME,
2203: p_init_msg_list,
2204: l_api_version,
2205: p_api_version,
2204: l_api_version,
2205: p_api_version,
2206: '_PUB',
2207: x_return_status);
2208: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2209: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2210: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2211: RAISE OKC_API.G_EXCEPTION_ERROR;
2212: END IF;
2205: p_api_version,
2206: '_PUB',
2207: x_return_status);
2208: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2209: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2210: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2211: RAISE OKC_API.G_EXCEPTION_ERROR;
2212: END IF;
2213:
2206: '_PUB',
2207: x_return_status);
2208: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2209: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2210: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2211: RAISE OKC_API.G_EXCEPTION_ERROR;
2212: END IF;
2213:
2214: /* lock_row
2207: x_return_status);
2208: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2209: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2210: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2211: RAISE OKC_API.G_EXCEPTION_ERROR;
2212: END IF;
2213:
2214: /* lock_row
2215: */
2221: ,x_msg_count => x_msg_count
2222: ,x_msg_data => x_msg_data
2223: ,p_crjv_rec => p_crjv_rec
2224: );
2225: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2226: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2227: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2228: RAISE OKC_API.G_EXCEPTION_ERROR;
2229: END IF;
2222: ,x_msg_data => x_msg_data
2223: ,p_crjv_rec => p_crjv_rec
2224: );
2225: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2226: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2227: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2228: RAISE OKC_API.G_EXCEPTION_ERROR;
2229: END IF;
2230: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2223: ,p_crjv_rec => p_crjv_rec
2224: );
2225: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2226: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2227: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2228: RAISE OKC_API.G_EXCEPTION_ERROR;
2229: END IF;
2230: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2231: EXCEPTION
2224: );
2225: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2226: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2227: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2228: RAISE OKC_API.G_EXCEPTION_ERROR;
2229: END IF;
2230: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2231: EXCEPTION
2232: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2226: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2227: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2228: RAISE OKC_API.G_EXCEPTION_ERROR;
2229: END IF;
2230: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2231: EXCEPTION
2232: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2233: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2234: (
2228: RAISE OKC_API.G_EXCEPTION_ERROR;
2229: END IF;
2230: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2231: EXCEPTION
2232: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2233: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2234: (
2235: l_api_name,
2236: G_PKG_NAME,
2229: END IF;
2230: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2231: EXCEPTION
2232: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2233: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2234: (
2235: l_api_name,
2236: G_PKG_NAME,
2237: 'OKC_API.G_RET_STS_ERROR',
2233: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2234: (
2235: l_api_name,
2236: G_PKG_NAME,
2237: 'OKC_API.G_RET_STS_ERROR',
2238: x_msg_count,
2239: x_msg_data,
2240: '_PUB'
2241: );
2238: x_msg_count,
2239: x_msg_data,
2240: '_PUB'
2241: );
2242: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2243: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2244: (
2245: l_api_name,
2246: G_PKG_NAME,
2239: x_msg_data,
2240: '_PUB'
2241: );
2242: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2243: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2244: (
2245: l_api_name,
2246: G_PKG_NAME,
2247: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2243: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2244: (
2245: l_api_name,
2246: G_PKG_NAME,
2247: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2248: x_msg_count,
2249: x_msg_data,
2250: '_PUB'
2251: );
2249: x_msg_data,
2250: '_PUB'
2251: );
2252: WHEN OTHERS THEN
2253: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2254: (
2255: l_api_name,
2256: G_PKG_NAME,
2257: 'OTHERS',
2272: p_crjv_tbl IN crjv_tbl_type) IS
2273:
2274: l_api_version CONSTANT NUMBER := 1;
2275: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_lock_row';
2276: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2277: i NUMBER := 0;
2278: BEGIN
2279: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2280: G_PKG_NAME,
2275: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_lock_row';
2276: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2277: i NUMBER := 0;
2278: BEGIN
2279: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2280: G_PKG_NAME,
2281: p_init_msg_list,
2282: l_api_version,
2283: p_api_version,
2282: l_api_version,
2283: p_api_version,
2284: '_PUB',
2285: x_return_status);
2286: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2287: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2288: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2289: RAISE OKC_API.G_EXCEPTION_ERROR;
2290: END IF;
2283: p_api_version,
2284: '_PUB',
2285: x_return_status);
2286: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2287: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2288: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2289: RAISE OKC_API.G_EXCEPTION_ERROR;
2290: END IF;
2291: /* lock_rows
2284: '_PUB',
2285: x_return_status);
2286: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2287: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2288: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2289: RAISE OKC_API.G_EXCEPTION_ERROR;
2290: END IF;
2291: /* lock_rows
2292: */
2285: x_return_status);
2286: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2287: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2288: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2289: RAISE OKC_API.G_EXCEPTION_ERROR;
2290: END IF;
2291: /* lock_rows
2292: */
2293: OKC_CRJ_PVT.lock_row
2298: ,x_msg_count => x_msg_count
2299: ,x_msg_data => x_msg_data
2300: ,p_crjv_tbl => p_crjv_tbl
2301: );
2302: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2303: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2304: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2305: RAISE OKC_API.G_EXCEPTION_ERROR;
2306: END IF;
2299: ,x_msg_data => x_msg_data
2300: ,p_crjv_tbl => p_crjv_tbl
2301: );
2302: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2303: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2304: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2305: RAISE OKC_API.G_EXCEPTION_ERROR;
2306: END IF;
2307: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2300: ,p_crjv_tbl => p_crjv_tbl
2301: );
2302: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2303: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2304: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2305: RAISE OKC_API.G_EXCEPTION_ERROR;
2306: END IF;
2307: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2308: EXCEPTION
2301: );
2302: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2303: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2304: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2305: RAISE OKC_API.G_EXCEPTION_ERROR;
2306: END IF;
2307: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2308: EXCEPTION
2309: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2303: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2304: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2305: RAISE OKC_API.G_EXCEPTION_ERROR;
2306: END IF;
2307: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2308: EXCEPTION
2309: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2310: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2311: (
2305: RAISE OKC_API.G_EXCEPTION_ERROR;
2306: END IF;
2307: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2308: EXCEPTION
2309: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2310: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2311: (
2312: l_api_name,
2313: G_PKG_NAME,
2306: END IF;
2307: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2308: EXCEPTION
2309: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2310: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2311: (
2312: l_api_name,
2313: G_PKG_NAME,
2314: 'OKC_API.G_RET_STS_ERROR',
2310: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2311: (
2312: l_api_name,
2313: G_PKG_NAME,
2314: 'OKC_API.G_RET_STS_ERROR',
2315: x_msg_count,
2316: x_msg_data,
2317: '_PUB'
2318: );
2315: x_msg_count,
2316: x_msg_data,
2317: '_PUB'
2318: );
2319: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2320: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2321: (
2322: l_api_name,
2323: G_PKG_NAME,
2316: x_msg_data,
2317: '_PUB'
2318: );
2319: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2320: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2321: (
2322: l_api_name,
2323: G_PKG_NAME,
2324: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2320: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2321: (
2322: l_api_name,
2323: G_PKG_NAME,
2324: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2325: x_msg_count,
2326: x_msg_data,
2327: '_PUB'
2328: );
2326: x_msg_data,
2327: '_PUB'
2328: );
2329: WHEN OTHERS THEN
2330: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2331: (
2332: l_api_name,
2333: G_PKG_NAME,
2334: 'OTHERS',
2351: x_crjv_rec OUT NOCOPY crjv_rec_type) IS
2352:
2353: l_api_version CONSTANT NUMBER := 1;
2354: l_api_name CONSTANT VARCHAR2(30) := 'V_update_row';
2355: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2356: l_crjv_rec crjv_rec_type := p_crjv_rec;
2357: l_def_crjv_rec crjv_rec_type;
2358: l_crj_rec crj_rec_type;
2359: lx_crj_rec crj_rec_type;
2357: l_def_crjv_rec crjv_rec_type;
2358: l_crj_rec crj_rec_type;
2359: lx_crj_rec crj_rec_type;
2360: BEGIN
2361: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2362: G_PKG_NAME,
2363: p_init_msg_list,
2364: l_api_version,
2365: p_api_version,
2364: l_api_version,
2365: p_api_version,
2366: '_PUB',
2367: x_return_status);
2368: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2369: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2370: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2371: RAISE OKC_API.G_EXCEPTION_ERROR;
2372: END IF;
2365: p_api_version,
2366: '_PUB',
2367: x_return_status);
2368: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2369: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2370: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2371: RAISE OKC_API.G_EXCEPTION_ERROR;
2372: END IF;
2373: /* update_row
2366: '_PUB',
2367: x_return_status);
2368: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2369: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2370: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2371: RAISE OKC_API.G_EXCEPTION_ERROR;
2372: END IF;
2373: /* update_row
2374: */
2367: x_return_status);
2368: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2369: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2370: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2371: RAISE OKC_API.G_EXCEPTION_ERROR;
2372: END IF;
2373: /* update_row
2374: */
2375: OKC_CRJ_PVT.update_row
2381: ,x_msg_data => x_msg_data
2382: ,p_crjv_rec => p_crjv_rec
2383: ,x_crjv_rec => x_crjv_rec
2384: );
2385: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2386: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2387: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2388: RAISE OKC_API.G_EXCEPTION_ERROR;
2389: end if;
2382: ,p_crjv_rec => p_crjv_rec
2383: ,x_crjv_rec => x_crjv_rec
2384: );
2385: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2386: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2387: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2388: RAISE OKC_API.G_EXCEPTION_ERROR;
2389: end if;
2390: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2383: ,x_crjv_rec => x_crjv_rec
2384: );
2385: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2386: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2387: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2388: RAISE OKC_API.G_EXCEPTION_ERROR;
2389: end if;
2390: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2391: EXCEPTION
2384: );
2385: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2386: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2387: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2388: RAISE OKC_API.G_EXCEPTION_ERROR;
2389: end if;
2390: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2391: EXCEPTION
2392: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2386: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2387: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2388: RAISE OKC_API.G_EXCEPTION_ERROR;
2389: end if;
2390: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2391: EXCEPTION
2392: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2393: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2394: (
2388: RAISE OKC_API.G_EXCEPTION_ERROR;
2389: end if;
2390: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2391: EXCEPTION
2392: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2393: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2394: (
2395: l_api_name,
2396: G_PKG_NAME,
2389: end if;
2390: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2391: EXCEPTION
2392: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2393: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2394: (
2395: l_api_name,
2396: G_PKG_NAME,
2397: 'OKC_API.G_RET_STS_ERROR',
2393: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2394: (
2395: l_api_name,
2396: G_PKG_NAME,
2397: 'OKC_API.G_RET_STS_ERROR',
2398: x_msg_count,
2399: x_msg_data,
2400: '_PUB'
2401: );
2398: x_msg_count,
2399: x_msg_data,
2400: '_PUB'
2401: );
2402: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2403: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2404: (
2405: l_api_name,
2406: G_PKG_NAME,
2399: x_msg_data,
2400: '_PUB'
2401: );
2402: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2403: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2404: (
2405: l_api_name,
2406: G_PKG_NAME,
2407: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2403: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2404: (
2405: l_api_name,
2406: G_PKG_NAME,
2407: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2408: x_msg_count,
2409: x_msg_data,
2410: '_PUB'
2411: );
2409: x_msg_data,
2410: '_PUB'
2411: );
2412: WHEN OTHERS THEN
2413: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2414: (
2415: l_api_name,
2416: G_PKG_NAME,
2417: 'OTHERS',
2433: x_crjv_tbl OUT NOCOPY crjv_tbl_type) IS
2434:
2435: l_api_version CONSTANT NUMBER := 1;
2436: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_update_row';
2437: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2438: i NUMBER := 0;
2439: BEGIN
2440: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2441: G_PKG_NAME,
2436: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_update_row';
2437: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2438: i NUMBER := 0;
2439: BEGIN
2440: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2441: G_PKG_NAME,
2442: p_init_msg_list,
2443: l_api_version,
2444: p_api_version,
2443: l_api_version,
2444: p_api_version,
2445: '_PUB',
2446: x_return_status);
2447: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2448: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2449: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2450: RAISE OKC_API.G_EXCEPTION_ERROR;
2451: END IF;
2444: p_api_version,
2445: '_PUB',
2446: x_return_status);
2447: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2448: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2449: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2450: RAISE OKC_API.G_EXCEPTION_ERROR;
2451: END IF;
2452: /* update_rows
2445: '_PUB',
2446: x_return_status);
2447: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2448: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2449: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2450: RAISE OKC_API.G_EXCEPTION_ERROR;
2451: END IF;
2452: /* update_rows
2453: */
2446: x_return_status);
2447: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2448: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2449: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2450: RAISE OKC_API.G_EXCEPTION_ERROR;
2451: END IF;
2452: /* update_rows
2453: */
2454: OKC_CRJ_PVT.update_row
2460: ,x_msg_data => x_msg_data
2461: ,p_crjv_tbl => p_crjv_tbl
2462: ,x_crjv_tbl => x_crjv_tbl
2463: );
2464: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2465: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2466: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2467: RAISE OKC_API.G_EXCEPTION_ERROR;
2468: END IF;
2461: ,p_crjv_tbl => p_crjv_tbl
2462: ,x_crjv_tbl => x_crjv_tbl
2463: );
2464: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2465: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2466: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2467: RAISE OKC_API.G_EXCEPTION_ERROR;
2468: END IF;
2469: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2462: ,x_crjv_tbl => x_crjv_tbl
2463: );
2464: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2465: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2466: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2467: RAISE OKC_API.G_EXCEPTION_ERROR;
2468: END IF;
2469: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2470: EXCEPTION
2463: );
2464: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2465: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2466: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2467: RAISE OKC_API.G_EXCEPTION_ERROR;
2468: END IF;
2469: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2470: EXCEPTION
2471: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2465: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2466: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2467: RAISE OKC_API.G_EXCEPTION_ERROR;
2468: END IF;
2469: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2470: EXCEPTION
2471: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2472: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2473: (
2467: RAISE OKC_API.G_EXCEPTION_ERROR;
2468: END IF;
2469: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2470: EXCEPTION
2471: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2472: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2473: (
2474: l_api_name,
2475: G_PKG_NAME,
2468: END IF;
2469: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2470: EXCEPTION
2471: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2472: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2473: (
2474: l_api_name,
2475: G_PKG_NAME,
2476: 'OKC_API.G_RET_STS_ERROR',
2472: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2473: (
2474: l_api_name,
2475: G_PKG_NAME,
2476: 'OKC_API.G_RET_STS_ERROR',
2477: x_msg_count,
2478: x_msg_data,
2479: '_PUB'
2480: );
2477: x_msg_count,
2478: x_msg_data,
2479: '_PUB'
2480: );
2481: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2482: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2483: (
2484: l_api_name,
2485: G_PKG_NAME,
2478: x_msg_data,
2479: '_PUB'
2480: );
2481: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2482: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2483: (
2484: l_api_name,
2485: G_PKG_NAME,
2486: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2482: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2483: (
2484: l_api_name,
2485: G_PKG_NAME,
2486: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2487: x_msg_count,
2488: x_msg_data,
2489: '_PUB'
2490: );
2488: x_msg_data,
2489: '_PUB'
2490: );
2491: WHEN OTHERS THEN
2492: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2493: (
2494: l_api_name,
2495: G_PKG_NAME,
2496: 'OTHERS',
2512: p_crjv_rec IN crjv_rec_type) IS
2513:
2514: l_api_version CONSTANT NUMBER := 1;
2515: l_api_name CONSTANT VARCHAR2(30) := 'V_delete_row';
2516: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2517: l_crjv_rec crjv_rec_type := p_crjv_rec;
2518: l_crj_rec crj_rec_type;
2519: BEGIN
2520: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2516: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2517: l_crjv_rec crjv_rec_type := p_crjv_rec;
2518: l_crj_rec crj_rec_type;
2519: BEGIN
2520: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2521: G_PKG_NAME,
2522: p_init_msg_list,
2523: l_api_version,
2524: p_api_version,
2523: l_api_version,
2524: p_api_version,
2525: '_PUB',
2526: x_return_status);
2527: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2528: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2529: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2530: RAISE OKC_API.G_EXCEPTION_ERROR;
2531: END IF;
2524: p_api_version,
2525: '_PUB',
2526: x_return_status);
2527: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2528: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2529: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2530: RAISE OKC_API.G_EXCEPTION_ERROR;
2531: END IF;
2532: /* delete_row
2525: '_PUB',
2526: x_return_status);
2527: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2528: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2529: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2530: RAISE OKC_API.G_EXCEPTION_ERROR;
2531: END IF;
2532: /* delete_row
2533: */
2526: x_return_status);
2527: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2528: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2529: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2530: RAISE OKC_API.G_EXCEPTION_ERROR;
2531: END IF;
2532: /* delete_row
2533: */
2534: OKC_CRJ_PVT.delete_row
2539: ,x_msg_count => x_msg_count
2540: ,x_msg_data => x_msg_data
2541: ,p_crjv_rec => p_crjv_rec
2542: );
2543: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2544: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2545: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2546: RAISE OKC_API.G_EXCEPTION_ERROR;
2547: END IF;
2540: ,x_msg_data => x_msg_data
2541: ,p_crjv_rec => p_crjv_rec
2542: );
2543: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2544: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2545: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2546: RAISE OKC_API.G_EXCEPTION_ERROR;
2547: END IF;
2548: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2541: ,p_crjv_rec => p_crjv_rec
2542: );
2543: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2544: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2545: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2546: RAISE OKC_API.G_EXCEPTION_ERROR;
2547: END IF;
2548: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2549: EXCEPTION
2542: );
2543: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2544: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2545: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2546: RAISE OKC_API.G_EXCEPTION_ERROR;
2547: END IF;
2548: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2549: EXCEPTION
2550: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2544: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2545: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2546: RAISE OKC_API.G_EXCEPTION_ERROR;
2547: END IF;
2548: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2549: EXCEPTION
2550: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2551: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2552: (
2546: RAISE OKC_API.G_EXCEPTION_ERROR;
2547: END IF;
2548: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2549: EXCEPTION
2550: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2551: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2552: (
2553: l_api_name,
2554: G_PKG_NAME,
2547: END IF;
2548: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2549: EXCEPTION
2550: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2551: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2552: (
2553: l_api_name,
2554: G_PKG_NAME,
2555: 'OKC_API.G_RET_STS_ERROR',
2551: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2552: (
2553: l_api_name,
2554: G_PKG_NAME,
2555: 'OKC_API.G_RET_STS_ERROR',
2556: x_msg_count,
2557: x_msg_data,
2558: '_PUB'
2559: );
2556: x_msg_count,
2557: x_msg_data,
2558: '_PUB'
2559: );
2560: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2561: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2562: (
2563: l_api_name,
2564: G_PKG_NAME,
2557: x_msg_data,
2558: '_PUB'
2559: );
2560: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2561: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2562: (
2563: l_api_name,
2564: G_PKG_NAME,
2565: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2561: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2562: (
2563: l_api_name,
2564: G_PKG_NAME,
2565: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2566: x_msg_count,
2567: x_msg_data,
2568: '_PUB'
2569: );
2567: x_msg_data,
2568: '_PUB'
2569: );
2570: WHEN OTHERS THEN
2571: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2572: (
2573: l_api_name,
2574: G_PKG_NAME,
2575: 'OTHERS',
2590: p_crjv_tbl IN crjv_tbl_type) IS
2591:
2592: l_api_version CONSTANT NUMBER := 1;
2593: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_delete_row';
2594: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2595: i NUMBER := 0;
2596: BEGIN
2597: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2598: G_PKG_NAME,
2593: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_delete_row';
2594: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2595: i NUMBER := 0;
2596: BEGIN
2597: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2598: G_PKG_NAME,
2599: p_init_msg_list,
2600: l_api_version,
2601: p_api_version,
2600: l_api_version,
2601: p_api_version,
2602: '_PUB',
2603: x_return_status);
2604: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2605: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2606: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2607: RAISE OKC_API.G_EXCEPTION_ERROR;
2608: END IF;
2601: p_api_version,
2602: '_PUB',
2603: x_return_status);
2604: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2605: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2606: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2607: RAISE OKC_API.G_EXCEPTION_ERROR;
2608: END IF;
2609: /* delete_rows
2602: '_PUB',
2603: x_return_status);
2604: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2605: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2606: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2607: RAISE OKC_API.G_EXCEPTION_ERROR;
2608: END IF;
2609: /* delete_rows
2610: */
2603: x_return_status);
2604: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2605: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2606: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2607: RAISE OKC_API.G_EXCEPTION_ERROR;
2608: END IF;
2609: /* delete_rows
2610: */
2611: OKC_CRJ_PVT.delete_row
2616: ,x_msg_count => x_msg_count
2617: ,x_msg_data => x_msg_data
2618: ,p_crjv_tbl => p_crjv_tbl
2619: );
2620: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2621: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2622: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2623: RAISE OKC_API.G_EXCEPTION_ERROR;
2624: END IF;
2617: ,x_msg_data => x_msg_data
2618: ,p_crjv_tbl => p_crjv_tbl
2619: );
2620: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2621: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2622: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2623: RAISE OKC_API.G_EXCEPTION_ERROR;
2624: END IF;
2625: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2618: ,p_crjv_tbl => p_crjv_tbl
2619: );
2620: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2621: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2622: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2623: RAISE OKC_API.G_EXCEPTION_ERROR;
2624: END IF;
2625: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2626: EXCEPTION
2619: );
2620: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2621: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2622: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2623: RAISE OKC_API.G_EXCEPTION_ERROR;
2624: END IF;
2625: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2626: EXCEPTION
2627: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2621: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2622: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2623: RAISE OKC_API.G_EXCEPTION_ERROR;
2624: END IF;
2625: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2626: EXCEPTION
2627: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2628: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2629: (
2623: RAISE OKC_API.G_EXCEPTION_ERROR;
2624: END IF;
2625: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2626: EXCEPTION
2627: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2628: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2629: (
2630: l_api_name,
2631: G_PKG_NAME,
2624: END IF;
2625: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2626: EXCEPTION
2627: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2628: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2629: (
2630: l_api_name,
2631: G_PKG_NAME,
2632: 'OKC_API.G_RET_STS_ERROR',
2628: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2629: (
2630: l_api_name,
2631: G_PKG_NAME,
2632: 'OKC_API.G_RET_STS_ERROR',
2633: x_msg_count,
2634: x_msg_data,
2635: '_PUB'
2636: );
2633: x_msg_count,
2634: x_msg_data,
2635: '_PUB'
2636: );
2637: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2638: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2639: (
2640: l_api_name,
2641: G_PKG_NAME,
2634: x_msg_data,
2635: '_PUB'
2636: );
2637: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2638: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2639: (
2640: l_api_name,
2641: G_PKG_NAME,
2642: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2638: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2639: (
2640: l_api_name,
2641: G_PKG_NAME,
2642: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2643: x_msg_count,
2644: x_msg_data,
2645: '_PUB'
2646: );
2644: x_msg_data,
2645: '_PUB'
2646: );
2647: WHEN OTHERS THEN
2648: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2649: (
2650: l_api_name,
2651: G_PKG_NAME,
2652: 'OTHERS',
2671: p_crjv_rec IN crjv_rec_type) IS
2672:
2673: l_api_version CONSTANT NUMBER := 1;
2674: l_api_name CONSTANT VARCHAR2(30) := 'V_validate_row';
2675: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2676: l_crjv_rec crjv_rec_type := p_crjv_rec;
2677: l_crj_rec crj_rec_type;
2678: BEGIN
2679: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2675: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2676: l_crjv_rec crjv_rec_type := p_crjv_rec;
2677: l_crj_rec crj_rec_type;
2678: BEGIN
2679: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2680: G_PKG_NAME,
2681: p_init_msg_list,
2682: l_api_version,
2683: p_api_version,
2682: l_api_version,
2683: p_api_version,
2684: '_PUB',
2685: x_return_status);
2686: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2687: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2688: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2689: RAISE OKC_API.G_EXCEPTION_ERROR;
2690: END IF;
2683: p_api_version,
2684: '_PUB',
2685: x_return_status);
2686: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2687: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2688: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2689: RAISE OKC_API.G_EXCEPTION_ERROR;
2690: END IF;
2691: /* validate_row
2684: '_PUB',
2685: x_return_status);
2686: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2687: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2688: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2689: RAISE OKC_API.G_EXCEPTION_ERROR;
2690: END IF;
2691: /* validate_row
2692: */
2685: x_return_status);
2686: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2687: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2688: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2689: RAISE OKC_API.G_EXCEPTION_ERROR;
2690: END IF;
2691: /* validate_row
2692: */
2693: OKC_CRJ_PVT.validate_row
2698: ,x_msg_count => x_msg_count
2699: ,x_msg_data => x_msg_data
2700: ,p_crjv_rec => p_crjv_rec
2701: );
2702: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2703: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2704: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2705: RAISE OKC_API.G_EXCEPTION_ERROR;
2706: END IF;
2699: ,x_msg_data => x_msg_data
2700: ,p_crjv_rec => p_crjv_rec
2701: );
2702: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2703: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2704: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2705: RAISE OKC_API.G_EXCEPTION_ERROR;
2706: END IF;
2707: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2700: ,p_crjv_rec => p_crjv_rec
2701: );
2702: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2703: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2704: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2705: RAISE OKC_API.G_EXCEPTION_ERROR;
2706: END IF;
2707: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2708: EXCEPTION
2701: );
2702: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2703: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2704: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2705: RAISE OKC_API.G_EXCEPTION_ERROR;
2706: END IF;
2707: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2708: EXCEPTION
2709: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2703: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2704: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2705: RAISE OKC_API.G_EXCEPTION_ERROR;
2706: END IF;
2707: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2708: EXCEPTION
2709: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2710: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2711: (
2705: RAISE OKC_API.G_EXCEPTION_ERROR;
2706: END IF;
2707: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2708: EXCEPTION
2709: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2710: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2711: (
2712: l_api_name,
2713: G_PKG_NAME,
2706: END IF;
2707: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2708: EXCEPTION
2709: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2710: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2711: (
2712: l_api_name,
2713: G_PKG_NAME,
2714: 'OKC_API.G_RET_STS_ERROR',
2710: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2711: (
2712: l_api_name,
2713: G_PKG_NAME,
2714: 'OKC_API.G_RET_STS_ERROR',
2715: x_msg_count,
2716: x_msg_data,
2717: '_PVT'
2718: );
2715: x_msg_count,
2716: x_msg_data,
2717: '_PVT'
2718: );
2719: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2720: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2721: (
2722: l_api_name,
2723: G_PKG_NAME,
2716: x_msg_data,
2717: '_PVT'
2718: );
2719: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2720: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2721: (
2722: l_api_name,
2723: G_PKG_NAME,
2724: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2720: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2721: (
2722: l_api_name,
2723: G_PKG_NAME,
2724: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2725: x_msg_count,
2726: x_msg_data,
2727: '_PVT'
2728: );
2726: x_msg_data,
2727: '_PVT'
2728: );
2729: WHEN OTHERS THEN
2730: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2731: (
2732: l_api_name,
2733: G_PKG_NAME,
2734: 'OTHERS',
2749: p_crjv_tbl IN crjv_tbl_type) IS
2750:
2751: l_api_version CONSTANT NUMBER := 1;
2752: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_validate_row';
2753: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2754: i NUMBER := 0;
2755: BEGIN
2756: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2757: G_PKG_NAME,
2752: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_validate_row';
2753: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2754: i NUMBER := 0;
2755: BEGIN
2756: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2757: G_PKG_NAME,
2758: p_init_msg_list,
2759: l_api_version,
2760: p_api_version,
2759: l_api_version,
2760: p_api_version,
2761: '_PUB',
2762: x_return_status);
2763: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2764: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2765: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2766: RAISE OKC_API.G_EXCEPTION_ERROR;
2767: END IF;
2760: p_api_version,
2761: '_PUB',
2762: x_return_status);
2763: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2764: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2765: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2766: RAISE OKC_API.G_EXCEPTION_ERROR;
2767: END IF;
2768: /* validate_rows
2761: '_PUB',
2762: x_return_status);
2763: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2764: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2765: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2766: RAISE OKC_API.G_EXCEPTION_ERROR;
2767: END IF;
2768: /* validate_rows
2769: */
2762: x_return_status);
2763: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2764: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2765: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2766: RAISE OKC_API.G_EXCEPTION_ERROR;
2767: END IF;
2768: /* validate_rows
2769: */
2770: OKC_CRJ_PVT.validate_row
2775: ,x_msg_count => x_msg_count
2776: ,x_msg_data => x_msg_data
2777: ,p_crjv_tbl => p_crjv_tbl
2778: );
2779: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2780: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2781: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2782: RAISE OKC_API.G_EXCEPTION_ERROR;
2783: END IF;
2776: ,x_msg_data => x_msg_data
2777: ,p_crjv_tbl => p_crjv_tbl
2778: );
2779: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2780: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2781: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2782: RAISE OKC_API.G_EXCEPTION_ERROR;
2783: END IF;
2784: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2777: ,p_crjv_tbl => p_crjv_tbl
2778: );
2779: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2780: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2781: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2782: RAISE OKC_API.G_EXCEPTION_ERROR;
2783: END IF;
2784: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2785: EXCEPTION
2778: );
2779: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2780: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2781: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2782: RAISE OKC_API.G_EXCEPTION_ERROR;
2783: END IF;
2784: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2785: EXCEPTION
2786: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2780: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2781: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2782: RAISE OKC_API.G_EXCEPTION_ERROR;
2783: END IF;
2784: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2785: EXCEPTION
2786: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2787: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2788: (
2782: RAISE OKC_API.G_EXCEPTION_ERROR;
2783: END IF;
2784: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2785: EXCEPTION
2786: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2787: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2788: (
2789: l_api_name,
2790: G_PKG_NAME,
2783: END IF;
2784: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2785: EXCEPTION
2786: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2787: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2788: (
2789: l_api_name,
2790: G_PKG_NAME,
2791: 'OKC_API.G_RET_STS_ERROR',
2787: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2788: (
2789: l_api_name,
2790: G_PKG_NAME,
2791: 'OKC_API.G_RET_STS_ERROR',
2792: x_msg_count,
2793: x_msg_data,
2794: '_PVT'
2795: );
2792: x_msg_count,
2793: x_msg_data,
2794: '_PVT'
2795: );
2796: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2797: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2798: (
2799: l_api_name,
2800: G_PKG_NAME,
2793: x_msg_data,
2794: '_PVT'
2795: );
2796: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2797: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2798: (
2799: l_api_name,
2800: G_PKG_NAME,
2801: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2797: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2798: (
2799: l_api_name,
2800: G_PKG_NAME,
2801: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2802: x_msg_count,
2803: x_msg_data,
2804: '_PVT'
2805: );
2803: x_msg_data,
2804: '_PVT'
2805: );
2806: WHEN OTHERS THEN
2807: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2808: (
2809: l_api_name,
2810: G_PKG_NAME,
2811: 'OTHERS',
2836: ) is
2837:
2838: l_api_version CONSTANT NUMBER := 1;
2839: l_api_name CONSTANT VARCHAR2(30) := 'quote_is_renewal';
2840: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2841: l_true_false boolean := false;
2842: i number;
2843:
2844: G_UNEXPECTED_ERROR CONSTANT varchar2(200) := 'OKC_UNEXPECTED_ERROR';
2846: G_SQLERRM_TOKEN CONSTANT varchar2(200) := 'ERROR_MESSAGE';
2847: G_EXCEPTION_HALT_VALIDATION exception;
2848:
2849: BEGIN
2850: l_return_status := OKC_API.START_ACTIVITY
2851: (
2852: substr(l_api_name,1,26)
2853: ,p_init_msg_list
2854: ,'_PUB'
2854: ,'_PUB'
2855: ,x_return_status
2856: );
2857: IF (-- unexpected error
2858: l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
2859: ) THEN
2860: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2861: ELSIF (-- standard error
2862: l_return_status = OKC_API.G_RET_STS_ERROR
2856: );
2857: IF (-- unexpected error
2858: l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
2859: ) THEN
2860: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2861: ELSIF (-- standard error
2862: l_return_status = OKC_API.G_RET_STS_ERROR
2863: ) THEN
2864: RAISE OKC_API.G_EXCEPTION_ERROR;
2858: l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
2859: ) THEN
2860: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2861: ELSIF (-- standard error
2862: l_return_status = OKC_API.G_RET_STS_ERROR
2863: ) THEN
2864: RAISE OKC_API.G_EXCEPTION_ERROR;
2865: END IF;
2866:
2860: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2861: ELSIF (-- standard error
2862: l_return_status = OKC_API.G_RET_STS_ERROR
2863: ) THEN
2864: RAISE OKC_API.G_EXCEPTION_ERROR;
2865: END IF;
2866:
2867: /*
2868: Call Before Logic Hook
2875: ,l_api_name
2876: ,'B'
2877: );
2878: IF (-- unexpected error
2879: x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
2880: ) THEN
2881: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2882: ELSIF (-- standard error
2883: x_return_status = OKC_API.G_RET_STS_ERROR
2877: );
2878: IF (-- unexpected error
2879: x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
2880: ) THEN
2881: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2882: ELSIF (-- standard error
2883: x_return_status = OKC_API.G_RET_STS_ERROR
2884: ) THEN
2885: raise OKC_API.G_EXCEPTION_ERROR;
2879: x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
2880: ) THEN
2881: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2882: ELSIF (-- standard error
2883: x_return_status = OKC_API.G_RET_STS_ERROR
2884: ) THEN
2885: raise OKC_API.G_EXCEPTION_ERROR;
2886: END IF;
2887: reset(p_...);
2881: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2882: ELSIF (-- standard error
2883: x_return_status = OKC_API.G_RET_STS_ERROR
2884: ) THEN
2885: raise OKC_API.G_EXCEPTION_ERROR;
2886: END IF;
2887: reset(p_...);
2888: */
2889: /* is quote for renewal?
2898: ,p_crjv_rec => p_crjv_rec
2899: ,x_true_false => l_true_false
2900: );
2901:
2902: x_true_false := okc_api.g_false;
2903: if (
2904: l_true_false
2905: ) then
2906: x_true_false := okc_api.g_true;
2902: x_true_false := okc_api.g_false;
2903: if (
2904: l_true_false
2905: ) then
2906: x_true_false := okc_api.g_true;
2907: end if;
2908: /*
2909: Call After Logic Hook
2910:
2916: ,l_api_name
2917: ,'A'
2918: );
2919: IF (-- unexpected error
2920: x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
2921: ) THEN
2922: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2923: ELSIF (-- standard error
2924: x_return_status = OKC_API.G_RET_STS_ERROR
2918: );
2919: IF (-- unexpected error
2920: x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
2921: ) THEN
2922: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2923: ELSIF (-- standard error
2924: x_return_status = OKC_API.G_RET_STS_ERROR
2925: ) THEN
2926: raise OKC_API.G_EXCEPTION_ERROR;
2920: x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
2921: ) THEN
2922: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2923: ELSIF (-- standard error
2924: x_return_status = OKC_API.G_RET_STS_ERROR
2925: ) THEN
2926: raise OKC_API.G_EXCEPTION_ERROR;
2927: END IF;
2928: reset(x_...);
2922: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2923: ELSIF (-- standard error
2924: x_return_status = OKC_API.G_RET_STS_ERROR
2925: ) THEN
2926: raise OKC_API.G_EXCEPTION_ERROR;
2927: END IF;
2928: reset(x_...);
2929: */
2930: OKC_API.END_ACTIVITY
2926: raise OKC_API.G_EXCEPTION_ERROR;
2927: END IF;
2928: reset(x_...);
2929: */
2930: OKC_API.END_ACTIVITY
2931: (
2932: x_msg_count
2933: ,x_msg_data
2934: );
2932: x_msg_count
2933: ,x_msg_data
2934: );
2935: EXCEPTION
2936: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2937: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2938: (
2939: l_api_name
2940: ,G_PKG_NAME
2933: ,x_msg_data
2934: );
2935: EXCEPTION
2936: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2937: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2938: (
2939: l_api_name
2940: ,G_PKG_NAME
2941: ,'OKC_API.G_RET_STS_ERROR'
2937: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2938: (
2939: l_api_name
2940: ,G_PKG_NAME
2941: ,'OKC_API.G_RET_STS_ERROR'
2942: ,x_msg_count
2943: ,x_msg_data
2944: ,'_PUB'
2945: );
2942: ,x_msg_count
2943: ,x_msg_data
2944: ,'_PUB'
2945: );
2946: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2947: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2948: (
2949: l_api_name
2950: ,G_PKG_NAME
2943: ,x_msg_data
2944: ,'_PUB'
2945: );
2946: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2947: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2948: (
2949: l_api_name
2950: ,G_PKG_NAME
2951: ,'OKC_API.G_RET_STS_UNEXP_ERROR'
2947: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2948: (
2949: l_api_name
2950: ,G_PKG_NAME
2951: ,'OKC_API.G_RET_STS_UNEXP_ERROR'
2952: ,x_msg_count
2953: ,x_msg_data
2954: ,'_PUB'
2955: );
2954: ,'_PUB'
2955: );
2956:
2957: WHEN OTHERS THEN
2958: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2959: (
2960: l_api_name
2961: ,G_PKG_NAME
2962: ,'OTHERS'
2963: ,x_msg_count
2964: ,x_msg_data
2965: ,'_PUB'
2966: );
2967: OKC_API.set_message
2968: (
2969: G_APP_NAME
2970: ,g_unexpected_error
2971: ,g_sqlcode_token
2998: ) is
2999:
3000: l_api_version CONSTANT NUMBER := 1;
3001: l_api_name CONSTANT VARCHAR2(30) := 'order_is_renewal';
3002: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3003: l_true_false boolean := false;
3004: i number;
3005:
3006: G_UNEXPECTED_ERROR CONSTANT varchar2(200) := 'OKC_UNEXPECTED_ERROR';
3008: G_SQLERRM_TOKEN CONSTANT varchar2(200) := 'ERROR_MESSAGE';
3009: G_EXCEPTION_HALT_VALIDATION exception;
3010:
3011: BEGIN
3012: l_return_status := OKC_API.START_ACTIVITY
3013: (
3014: substr(l_api_name,1,26)
3015: ,p_init_msg_list
3016: ,'_PUB'
3016: ,'_PUB'
3017: ,x_return_status
3018: );
3019: IF (-- unexpected error
3020: l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
3021: ) THEN
3022: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3023: ELSIF (-- standard error
3024: l_return_status = OKC_API.G_RET_STS_ERROR
3018: );
3019: IF (-- unexpected error
3020: l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
3021: ) THEN
3022: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3023: ELSIF (-- standard error
3024: l_return_status = OKC_API.G_RET_STS_ERROR
3025: ) THEN
3026: RAISE OKC_API.G_EXCEPTION_ERROR;
3020: l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
3021: ) THEN
3022: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3023: ELSIF (-- standard error
3024: l_return_status = OKC_API.G_RET_STS_ERROR
3025: ) THEN
3026: RAISE OKC_API.G_EXCEPTION_ERROR;
3027: END IF;
3028:
3022: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3023: ELSIF (-- standard error
3024: l_return_status = OKC_API.G_RET_STS_ERROR
3025: ) THEN
3026: RAISE OKC_API.G_EXCEPTION_ERROR;
3027: END IF;
3028:
3029: /*
3030: Call Before Logic Hook
3037: ,l_api_name
3038: ,'B'
3039: );
3040: IF (-- unexpected error
3041: x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
3042: ) THEN
3043: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3044: ELSIF (-- standard error
3045: x_return_status = OKC_API.G_RET_STS_ERROR
3039: );
3040: IF (-- unexpected error
3041: x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
3042: ) THEN
3043: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3044: ELSIF (-- standard error
3045: x_return_status = OKC_API.G_RET_STS_ERROR
3046: ) THEN
3047: raise OKC_API.G_EXCEPTION_ERROR;
3041: x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
3042: ) THEN
3043: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3044: ELSIF (-- standard error
3045: x_return_status = OKC_API.G_RET_STS_ERROR
3046: ) THEN
3047: raise OKC_API.G_EXCEPTION_ERROR;
3048: END IF;
3049: reset(p_...);
3043: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3044: ELSIF (-- standard error
3045: x_return_status = OKC_API.G_RET_STS_ERROR
3046: ) THEN
3047: raise OKC_API.G_EXCEPTION_ERROR;
3048: END IF;
3049: reset(p_...);
3050: */
3051: /* is order for renewal?
3060: ,p_crjv_rec => p_crjv_rec
3061: ,x_true_false => l_true_false
3062: );
3063:
3064: x_true_false := okc_api.g_false;
3065: if (
3066: l_true_false
3067: ) then
3068: x_true_false := okc_api.g_true;
3064: x_true_false := okc_api.g_false;
3065: if (
3066: l_true_false
3067: ) then
3068: x_true_false := okc_api.g_true;
3069: end if;
3070: /*
3071: Call After Logic Hook
3072:
3078: ,l_api_name
3079: ,'A'
3080: );
3081: IF (-- unexpected error
3082: x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
3083: ) THEN
3084: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3085: ELSIF (-- standard error
3086: x_return_status = OKC_API.G_RET_STS_ERROR
3080: );
3081: IF (-- unexpected error
3082: x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
3083: ) THEN
3084: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3085: ELSIF (-- standard error
3086: x_return_status = OKC_API.G_RET_STS_ERROR
3087: ) THEN
3088: raise OKC_API.G_EXCEPTION_ERROR;
3082: x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
3083: ) THEN
3084: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3085: ELSIF (-- standard error
3086: x_return_status = OKC_API.G_RET_STS_ERROR
3087: ) THEN
3088: raise OKC_API.G_EXCEPTION_ERROR;
3089: END IF;
3090: reset(x_...);
3084: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3085: ELSIF (-- standard error
3086: x_return_status = OKC_API.G_RET_STS_ERROR
3087: ) THEN
3088: raise OKC_API.G_EXCEPTION_ERROR;
3089: END IF;
3090: reset(x_...);
3091: */
3092: OKC_API.END_ACTIVITY
3088: raise OKC_API.G_EXCEPTION_ERROR;
3089: END IF;
3090: reset(x_...);
3091: */
3092: OKC_API.END_ACTIVITY
3093: (
3094: x_msg_count
3095: ,x_msg_data
3096: );
3094: x_msg_count
3095: ,x_msg_data
3096: );
3097: EXCEPTION
3098: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3099: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3100: (
3101: l_api_name
3102: ,G_PKG_NAME
3095: ,x_msg_data
3096: );
3097: EXCEPTION
3098: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3099: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3100: (
3101: l_api_name
3102: ,G_PKG_NAME
3103: ,'OKC_API.G_RET_STS_ERROR'
3099: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3100: (
3101: l_api_name
3102: ,G_PKG_NAME
3103: ,'OKC_API.G_RET_STS_ERROR'
3104: ,x_msg_count
3105: ,x_msg_data
3106: ,'_PUB'
3107: );
3104: ,x_msg_count
3105: ,x_msg_data
3106: ,'_PUB'
3107: );
3108: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3109: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3110: (
3111: l_api_name
3112: ,G_PKG_NAME
3105: ,x_msg_data
3106: ,'_PUB'
3107: );
3108: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3109: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3110: (
3111: l_api_name
3112: ,G_PKG_NAME
3113: ,'OKC_API.G_RET_STS_UNEXP_ERROR'
3109: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3110: (
3111: l_api_name
3112: ,G_PKG_NAME
3113: ,'OKC_API.G_RET_STS_UNEXP_ERROR'
3114: ,x_msg_count
3115: ,x_msg_data
3116: ,'_PUB'
3117: );
3116: ,'_PUB'
3117: );
3118:
3119: WHEN OTHERS THEN
3120: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3121: (
3122: l_api_name
3123: ,G_PKG_NAME
3124: ,'OTHERS'
3125: ,x_msg_count
3126: ,x_msg_data
3127: ,'_PUB'
3128: );
3129: OKC_API.set_message
3130: (
3131: G_APP_NAME
3132: ,g_unexpected_error
3133: ,g_sqlcode_token
3160: ) is
3161:
3162: l_api_version CONSTANT NUMBER := 1;
3163: l_api_name CONSTANT VARCHAR2(30) := 'quote_is_subject';
3164: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3165: l_true_false boolean := false;
3166: i number;
3167:
3168: G_UNEXPECTED_ERROR CONSTANT varchar2(200) := 'OKC_UNEXPECTED_ERROR';
3170: G_SQLERRM_TOKEN CONSTANT varchar2(200) := 'ERROR_MESSAGE';
3171: G_EXCEPTION_HALT_VALIDATION exception;
3172:
3173: BEGIN
3174: l_return_status := OKC_API.START_ACTIVITY
3175: (
3176: substr(l_api_name,1,26)
3177: ,p_init_msg_list
3178: ,'_PUB'
3178: ,'_PUB'
3179: ,x_return_status
3180: );
3181: IF (-- unexpected error
3182: l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
3183: ) THEN
3184: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3185: ELSIF (-- standard error
3186: l_return_status = OKC_API.G_RET_STS_ERROR
3180: );
3181: IF (-- unexpected error
3182: l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
3183: ) THEN
3184: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3185: ELSIF (-- standard error
3186: l_return_status = OKC_API.G_RET_STS_ERROR
3187: ) THEN
3188: RAISE OKC_API.G_EXCEPTION_ERROR;
3182: l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
3183: ) THEN
3184: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3185: ELSIF (-- standard error
3186: l_return_status = OKC_API.G_RET_STS_ERROR
3187: ) THEN
3188: RAISE OKC_API.G_EXCEPTION_ERROR;
3189: END IF;
3190:
3184: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3185: ELSIF (-- standard error
3186: l_return_status = OKC_API.G_RET_STS_ERROR
3187: ) THEN
3188: RAISE OKC_API.G_EXCEPTION_ERROR;
3189: END IF;
3190:
3191: /*
3192: Call Before Logic Hook
3199: ,l_api_name
3200: ,'B'
3201: );
3202: IF (-- unexpected error
3203: x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
3204: ) THEN
3205: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3206: ELSIF (-- standard error
3207: x_return_status = OKC_API.G_RET_STS_ERROR
3201: );
3202: IF (-- unexpected error
3203: x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
3204: ) THEN
3205: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3206: ELSIF (-- standard error
3207: x_return_status = OKC_API.G_RET_STS_ERROR
3208: ) THEN
3209: raise OKC_API.G_EXCEPTION_ERROR;
3203: x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
3204: ) THEN
3205: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3206: ELSIF (-- standard error
3207: x_return_status = OKC_API.G_RET_STS_ERROR
3208: ) THEN
3209: raise OKC_API.G_EXCEPTION_ERROR;
3210: END IF;
3211: reset(p_...);
3205: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3206: ELSIF (-- standard error
3207: x_return_status = OKC_API.G_RET_STS_ERROR
3208: ) THEN
3209: raise OKC_API.G_EXCEPTION_ERROR;
3210: END IF;
3211: reset(p_...);
3212: */
3213: /* is quote subject?
3222: ,p_crjv_rec => p_crjv_rec
3223: ,x_true_false => l_true_false
3224: );
3225:
3226: x_true_false := okc_api.g_false;
3227: if (
3228: l_true_false
3229: ) then
3230: x_true_false := okc_api.g_true;
3226: x_true_false := okc_api.g_false;
3227: if (
3228: l_true_false
3229: ) then
3230: x_true_false := okc_api.g_true;
3231: end if;
3232: /*
3233: Call After Logic Hook
3234:
3240: ,l_api_name
3241: ,'A'
3242: );
3243: IF (-- unexpected error
3244: x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
3245: ) THEN
3246: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3247: ELSIF (-- standard error
3248: x_return_status = OKC_API.G_RET_STS_ERROR
3242: );
3243: IF (-- unexpected error
3244: x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
3245: ) THEN
3246: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3247: ELSIF (-- standard error
3248: x_return_status = OKC_API.G_RET_STS_ERROR
3249: ) THEN
3250: raise OKC_API.G_EXCEPTION_ERROR;
3244: x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
3245: ) THEN
3246: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3247: ELSIF (-- standard error
3248: x_return_status = OKC_API.G_RET_STS_ERROR
3249: ) THEN
3250: raise OKC_API.G_EXCEPTION_ERROR;
3251: END IF;
3252: reset(x_...);
3246: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3247: ELSIF (-- standard error
3248: x_return_status = OKC_API.G_RET_STS_ERROR
3249: ) THEN
3250: raise OKC_API.G_EXCEPTION_ERROR;
3251: END IF;
3252: reset(x_...);
3253: */
3254: OKC_API.END_ACTIVITY
3250: raise OKC_API.G_EXCEPTION_ERROR;
3251: END IF;
3252: reset(x_...);
3253: */
3254: OKC_API.END_ACTIVITY
3255: (
3256: x_msg_count
3257: ,x_msg_data
3258: );
3256: x_msg_count
3257: ,x_msg_data
3258: );
3259: EXCEPTION
3260: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3261: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3262: (
3263: l_api_name
3264: ,G_PKG_NAME
3257: ,x_msg_data
3258: );
3259: EXCEPTION
3260: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3261: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3262: (
3263: l_api_name
3264: ,G_PKG_NAME
3265: ,'OKC_API.G_RET_STS_ERROR'
3261: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3262: (
3263: l_api_name
3264: ,G_PKG_NAME
3265: ,'OKC_API.G_RET_STS_ERROR'
3266: ,x_msg_count
3267: ,x_msg_data
3268: ,'_PUB'
3269: );
3266: ,x_msg_count
3267: ,x_msg_data
3268: ,'_PUB'
3269: );
3270: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3271: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3272: (
3273: l_api_name
3274: ,G_PKG_NAME
3267: ,x_msg_data
3268: ,'_PUB'
3269: );
3270: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3271: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3272: (
3273: l_api_name
3274: ,G_PKG_NAME
3275: ,'OKC_API.G_RET_STS_UNEXP_ERROR'
3271: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3272: (
3273: l_api_name
3274: ,G_PKG_NAME
3275: ,'OKC_API.G_RET_STS_UNEXP_ERROR'
3276: ,x_msg_count
3277: ,x_msg_data
3278: ,'_PUB'
3279: );
3278: ,'_PUB'
3279: );
3280:
3281: WHEN OTHERS THEN
3282: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3283: (
3284: l_api_name
3285: ,G_PKG_NAME
3286: ,'OTHERS'
3287: ,x_msg_count
3288: ,x_msg_data
3289: ,'_PUB'
3290: );
3291: OKC_API.set_message
3292: (
3293: G_APP_NAME
3294: ,g_unexpected_error
3295: ,g_sqlcode_token
3322: ) is
3323:
3324: l_api_version CONSTANT NUMBER := 1;
3325: l_api_name CONSTANT VARCHAR2(30) := 'order_is_subject';
3326: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3327: l_true_false boolean := false;
3328: i number;
3329:
3330: G_UNEXPECTED_ERROR CONSTANT varchar2(200) := 'OKC_UNEXPECTED_ERROR';
3332: G_SQLERRM_TOKEN CONSTANT varchar2(200) := 'ERROR_MESSAGE';
3333: G_EXCEPTION_HALT_VALIDATION exception;
3334:
3335: BEGIN
3336: l_return_status := OKC_API.START_ACTIVITY
3337: (
3338: substr(l_api_name,1,26)
3339: ,p_init_msg_list
3340: ,'_PUB'
3340: ,'_PUB'
3341: ,x_return_status
3342: );
3343: IF (-- unexpected error
3344: l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
3345: ) THEN
3346: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3347: ELSIF (-- standard error
3348: l_return_status = OKC_API.G_RET_STS_ERROR
3342: );
3343: IF (-- unexpected error
3344: l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
3345: ) THEN
3346: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3347: ELSIF (-- standard error
3348: l_return_status = OKC_API.G_RET_STS_ERROR
3349: ) THEN
3350: RAISE OKC_API.G_EXCEPTION_ERROR;
3344: l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
3345: ) THEN
3346: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3347: ELSIF (-- standard error
3348: l_return_status = OKC_API.G_RET_STS_ERROR
3349: ) THEN
3350: RAISE OKC_API.G_EXCEPTION_ERROR;
3351: END IF;
3352:
3346: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3347: ELSIF (-- standard error
3348: l_return_status = OKC_API.G_RET_STS_ERROR
3349: ) THEN
3350: RAISE OKC_API.G_EXCEPTION_ERROR;
3351: END IF;
3352:
3353: /*
3354: Call Before Logic Hook
3361: ,l_api_name
3362: ,'B'
3363: );
3364: IF (-- unexpected error
3365: x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
3366: ) THEN
3367: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3368: ELSIF (-- standard error
3369: x_return_status = OKC_API.G_RET_STS_ERROR
3363: );
3364: IF (-- unexpected error
3365: x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
3366: ) THEN
3367: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3368: ELSIF (-- standard error
3369: x_return_status = OKC_API.G_RET_STS_ERROR
3370: ) THEN
3371: raise OKC_API.G_EXCEPTION_ERROR;
3365: x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
3366: ) THEN
3367: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3368: ELSIF (-- standard error
3369: x_return_status = OKC_API.G_RET_STS_ERROR
3370: ) THEN
3371: raise OKC_API.G_EXCEPTION_ERROR;
3372: END IF;
3373: reset(p_...);
3367: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3368: ELSIF (-- standard error
3369: x_return_status = OKC_API.G_RET_STS_ERROR
3370: ) THEN
3371: raise OKC_API.G_EXCEPTION_ERROR;
3372: END IF;
3373: reset(p_...);
3374: */
3375: /* is order subject?
3384: ,p_crjv_rec => p_crjv_rec
3385: ,x_true_false => l_true_false
3386: );
3387:
3388: x_true_false := okc_api.g_false;
3389: if (
3390: l_true_false
3391: ) then
3392: x_true_false := okc_api.g_true;
3388: x_true_false := okc_api.g_false;
3389: if (
3390: l_true_false
3391: ) then
3392: x_true_false := okc_api.g_true;
3393: end if;
3394: /*
3395: Call After Logic Hook
3396:
3402: ,l_api_name
3403: ,'A'
3404: );
3405: IF (-- unexpected error
3406: x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
3407: ) THEN
3408: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3409: ELSIF (-- standard error
3410: x_return_status = OKC_API.G_RET_STS_ERROR
3404: );
3405: IF (-- unexpected error
3406: x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
3407: ) THEN
3408: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3409: ELSIF (-- standard error
3410: x_return_status = OKC_API.G_RET_STS_ERROR
3411: ) THEN
3412: raise OKC_API.G_EXCEPTION_ERROR;
3406: x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
3407: ) THEN
3408: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3409: ELSIF (-- standard error
3410: x_return_status = OKC_API.G_RET_STS_ERROR
3411: ) THEN
3412: raise OKC_API.G_EXCEPTION_ERROR;
3413: END IF;
3414: reset(x_...);
3408: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3409: ELSIF (-- standard error
3410: x_return_status = OKC_API.G_RET_STS_ERROR
3411: ) THEN
3412: raise OKC_API.G_EXCEPTION_ERROR;
3413: END IF;
3414: reset(x_...);
3415: */
3416: OKC_API.END_ACTIVITY
3412: raise OKC_API.G_EXCEPTION_ERROR;
3413: END IF;
3414: reset(x_...);
3415: */
3416: OKC_API.END_ACTIVITY
3417: (
3418: x_msg_count
3419: ,x_msg_data
3420: );
3418: x_msg_count
3419: ,x_msg_data
3420: );
3421: EXCEPTION
3422: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3423: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3424: (
3425: l_api_name
3426: ,G_PKG_NAME
3419: ,x_msg_data
3420: );
3421: EXCEPTION
3422: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3423: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3424: (
3425: l_api_name
3426: ,G_PKG_NAME
3427: ,'OKC_API.G_RET_STS_ERROR'
3423: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3424: (
3425: l_api_name
3426: ,G_PKG_NAME
3427: ,'OKC_API.G_RET_STS_ERROR'
3428: ,x_msg_count
3429: ,x_msg_data
3430: ,'_PUB'
3431: );
3428: ,x_msg_count
3429: ,x_msg_data
3430: ,'_PUB'
3431: );
3432: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3433: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3434: (
3435: l_api_name
3436: ,G_PKG_NAME
3429: ,x_msg_data
3430: ,'_PUB'
3431: );
3432: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3433: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3434: (
3435: l_api_name
3436: ,G_PKG_NAME
3437: ,'OKC_API.G_RET_STS_UNEXP_ERROR'
3433: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3434: (
3435: l_api_name
3436: ,G_PKG_NAME
3437: ,'OKC_API.G_RET_STS_UNEXP_ERROR'
3438: ,x_msg_count
3439: ,x_msg_data
3440: ,'_PUB'
3441: );
3440: ,'_PUB'
3441: );
3442:
3443: WHEN OTHERS THEN
3444: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3445: (
3446: l_api_name
3447: ,G_PKG_NAME
3448: ,'OTHERS'
3449: ,x_msg_count
3450: ,x_msg_data
3451: ,'_PUB'
3452: );
3453: OKC_API.set_message
3454: (
3455: G_APP_NAME
3456: ,g_unexpected_error
3457: ,g_sqlcode_token
3484: ) IS
3485:
3486: l_api_version CONSTANT NUMBER := 1;
3487: l_api_name CONSTANT VARCHAR2(30) := 'quote_k_is_ordered';
3488: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3489: l_true_false boolean := false;
3490: i number;
3491:
3492: G_UNEXPECTED_ERROR CONSTANT varchar2(200) := 'OKC_UNEXPECTED_ERROR';
3494: G_SQLERRM_TOKEN CONSTANT varchar2(200) := 'ERROR_MESSAGE';
3495: G_EXCEPTION_HALT_VALIDATION exception;
3496:
3497: BEGIN
3498: l_return_status := OKC_API.START_ACTIVITY
3499: (
3500: substr(l_api_name,1,26)
3501: ,p_init_msg_list
3502: ,'_PUB'
3502: ,'_PUB'
3503: ,x_return_status
3504: );
3505: IF (-- unexpected error
3506: l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
3507: ) THEN
3508: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3509: ELSIF (-- standard error
3510: l_return_status = OKC_API.G_RET_STS_ERROR
3504: );
3505: IF (-- unexpected error
3506: l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
3507: ) THEN
3508: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3509: ELSIF (-- standard error
3510: l_return_status = OKC_API.G_RET_STS_ERROR
3511: ) THEN
3512: RAISE OKC_API.G_EXCEPTION_ERROR;
3506: l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
3507: ) THEN
3508: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3509: ELSIF (-- standard error
3510: l_return_status = OKC_API.G_RET_STS_ERROR
3511: ) THEN
3512: RAISE OKC_API.G_EXCEPTION_ERROR;
3513: END IF;
3514:
3508: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3509: ELSIF (-- standard error
3510: l_return_status = OKC_API.G_RET_STS_ERROR
3511: ) THEN
3512: RAISE OKC_API.G_EXCEPTION_ERROR;
3513: END IF;
3514:
3515: /*
3516: Call Before Logic Hook
3523: ,l_api_name
3524: ,'B'
3525: );
3526: IF (-- unexpected error
3527: x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
3528: ) THEN
3529: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3530: ELSIF (-- standard error
3531: x_return_status = OKC_API.G_RET_STS_ERROR
3525: );
3526: IF (-- unexpected error
3527: x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
3528: ) THEN
3529: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3530: ELSIF (-- standard error
3531: x_return_status = OKC_API.G_RET_STS_ERROR
3532: ) THEN
3533: raise OKC_API.G_EXCEPTION_ERROR;
3527: x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
3528: ) THEN
3529: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3530: ELSIF (-- standard error
3531: x_return_status = OKC_API.G_RET_STS_ERROR
3532: ) THEN
3533: raise OKC_API.G_EXCEPTION_ERROR;
3534: END IF;
3535: reset(p_crjv_rec;
3529: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3530: ELSIF (-- standard error
3531: x_return_status = OKC_API.G_RET_STS_ERROR
3532: ) THEN
3533: raise OKC_API.G_EXCEPTION_ERROR;
3534: END IF;
3535: reset(p_crjv_rec;
3536: */
3537: /* is quote contract ordered?
3546: ,p_crjv_rec => p_crjv_rec
3547: ,x_true_false => l_true_false
3548: );
3549:
3550: x_true_false := okc_api.g_false;
3551: if (
3552: l_true_false
3553: ) then
3554: x_true_false := okc_api.g_true;
3550: x_true_false := okc_api.g_false;
3551: if (
3552: l_true_false
3553: ) then
3554: x_true_false := okc_api.g_true;
3555: end if;
3556: /*
3557: Call After Logic Hook
3558:
3564: ,l_api_name
3565: ,'A'
3566: );
3567: IF (-- unexpected error
3568: x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
3569: ) THEN
3570: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3571: ELSIF (-- standard error
3572: x_return_status = OKC_API.G_RET_STS_ERROR
3566: );
3567: IF (-- unexpected error
3568: x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
3569: ) THEN
3570: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3571: ELSIF (-- standard error
3572: x_return_status = OKC_API.G_RET_STS_ERROR
3573: ) THEN
3574: raise OKC_API.G_EXCEPTION_ERROR;
3568: x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR
3569: ) THEN
3570: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3571: ELSIF (-- standard error
3572: x_return_status = OKC_API.G_RET_STS_ERROR
3573: ) THEN
3574: raise OKC_API.G_EXCEPTION_ERROR;
3575: END IF;
3576: reset(x_...);
3570: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3571: ELSIF (-- standard error
3572: x_return_status = OKC_API.G_RET_STS_ERROR
3573: ) THEN
3574: raise OKC_API.G_EXCEPTION_ERROR;
3575: END IF;
3576: reset(x_...);
3577: */
3578: OKC_API.END_ACTIVITY
3574: raise OKC_API.G_EXCEPTION_ERROR;
3575: END IF;
3576: reset(x_...);
3577: */
3578: OKC_API.END_ACTIVITY
3579: (
3580: x_msg_count
3581: ,x_msg_data
3582: );
3580: x_msg_count
3581: ,x_msg_data
3582: );
3583: EXCEPTION
3584: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3585: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3586: (
3587: l_api_name
3588: ,G_PKG_NAME
3581: ,x_msg_data
3582: );
3583: EXCEPTION
3584: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3585: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3586: (
3587: l_api_name
3588: ,G_PKG_NAME
3589: ,'OKC_API.G_RET_STS_ERROR'
3585: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3586: (
3587: l_api_name
3588: ,G_PKG_NAME
3589: ,'OKC_API.G_RET_STS_ERROR'
3590: ,x_msg_count
3591: ,x_msg_data
3592: ,'_PUB'
3593: );
3590: ,x_msg_count
3591: ,x_msg_data
3592: ,'_PUB'
3593: );
3594: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3595: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3596: (
3597: l_api_name
3598: ,G_PKG_NAME
3591: ,x_msg_data
3592: ,'_PUB'
3593: );
3594: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3595: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3596: (
3597: l_api_name
3598: ,G_PKG_NAME
3599: ,'OKC_API.G_RET_STS_UNEXP_ERROR'
3595: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3596: (
3597: l_api_name
3598: ,G_PKG_NAME
3599: ,'OKC_API.G_RET_STS_UNEXP_ERROR'
3600: ,x_msg_count
3601: ,x_msg_data
3602: ,'_PUB'
3603: );
3602: ,'_PUB'
3603: );
3604:
3605: WHEN OTHERS THEN
3606: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3607: (
3608: l_api_name
3609: ,G_PKG_NAME
3610: ,'OTHERS'
3611: ,x_msg_count
3612: ,x_msg_data
3613: ,'_PUB'
3614: );
3615: OKC_API.set_message
3616: (
3617: G_APP_NAME
3618: ,g_unexpected_error
3619: ,g_sqlcode_token