[Home] [Help]
PACKAGE BODY: APPS.OKC_K_REL_OBJS_PUB
Source
1 PACKAGE BODY OKC_K_REL_OBJS_PUB AS
2 /* $Header: OKCPCRJB.pls 120.0 2005/05/25 19:31:41 appldev noship $ */
3 l_debug VARCHAR2(1) := NVL(FND_PROFILE.VALUE('AFLOG_ENABLED'),'N');
4
5 -- Start of comments
6 --
7 -- Procedure Name : create_k_rel_obj
8 -- Description :
9 -- Business Rules :
10 -- Parameters :
11 -- Version : 1.0
12 -- End of comments
13 PROCEDURE create_k_rel_obj
14 (-- create all the records required for a relationship between contract and quote, order etc.
15 p_api_version IN NUMBER
16 ,p_init_msg_list IN VARCHAR2
17 ,x_return_status OUT NOCOPY VARCHAR2
18 ,x_msg_count OUT NOCOPY NUMBER
19 ,x_msg_data OUT NOCOPY VARCHAR2
20 ,p_crj_rel_hdr_full_rec IN crj_rel_hdr_full_rec_type
21 ,p_crj_rel_line_tbl IN crj_rel_line_tbl_type
22 ,x_crj_rel_hdr_full_rec OUT NOCOPY crj_rel_hdr_full_rec_type
23 ,x_crj_rel_line_tbl OUT NOCOPY crj_rel_line_tbl_type
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);
33 i number;
34 j number;
35 l_char varchar2(500);
36
37 BEGIN
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'
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
55 ) THEN
56 RAISE OKC_API.G_EXCEPTION_ERROR;
57 END IF;
58
59 /*
60 Call Before Logic Hook
61
62 g_p_crj_rel_hdr_full_rec := p_crj_rel_hdr_full_rec;
63 okc_util.call_user_hook
64 (
65 x_return_status
66 ,g_pkg_name
67 ,l_api_name
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
77 ) THEN
78 raise OKC_API.G_EXCEPTION_ERROR;
79 END IF;
80 reset(p_crj_rel_hdr_full_rec);
81 */
82 /*
83 format parms for create rel. between headers
84 */
85 l_crjv_tbl(1).jtot_object1_code := p_crj_rel_hdr_full_rec.jtot_object1_code;
86 l_crjv_tbl(1).rty_code := p_crj_rel_hdr_full_rec.rty_code;
87 l_crjv_tbl(1).chr_id := p_crj_rel_hdr_full_rec.chr_id;
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)
115 ) LOOP
116 /*
117 format parms for create rel. between lines
118 */
119 l_crjv_tbl(i+j).jtot_object1_code := p_crj_rel_hdr_full_rec.line_jtot_object1_code;
120 l_crjv_tbl(i+j).rty_code := p_crj_rel_hdr_full_rec.rty_code;
121 l_crjv_tbl(i+j).chr_id := p_crj_rel_hdr_full_rec.chr_id;
122
123 l_crjv_tbl(i+j).cle_id := p_crj_rel_line_tbl(i).cle_id;
124 l_crjv_tbl(i+j).object1_id1 := p_crj_rel_line_tbl(i).object1_id1;
125 l_crjv_tbl(i+j).object1_id2 := p_crj_rel_line_tbl(i).object1_id2;
126 i := i + 1;
127 END LOOP;
128
129 /*
130 create relationship records
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
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)
145 ,x_crjv_rec => l_x_crjv_tbl(i)
146 );
147 IF j = 0 THEN
148 x_crj_rel_line_tbl(i).cle_id:= l_x_crjv_tbl(i).cle_id;
149 x_crj_rel_line_tbl(i).object1_id1:=l_x_crjv_tbl(i).object1_id1;
150 x_crj_rel_line_tbl(i).object1_id2:=l_x_crjv_tbl(i).object1_id2;
151 ELSE
152 IF i > 1 THEN
153 x_crj_rel_line_tbl(i).cle_id:= l_x_crjv_tbl(i).cle_id;
154 x_crj_rel_line_tbl(i).object1_id1:=l_x_crjv_tbl(i).object1_id1;
155 x_crj_rel_line_tbl(i).object1_id2:=l_x_crjv_tbl(i).object1_id2;
156 ELSE
157 x_crj_rel_hdr_full_rec.chr_id:= l_x_crjv_tbl(i).chr_id;
158 x_crj_rel_hdr_full_rec.object1_id1:=l_x_crjv_tbl(i).object1_id1;
159 x_crj_rel_hdr_full_rec.object1_id2:=l_x_crjv_tbl(i).object1_id2;
160 END IF;
161 END IF;
162 i:= i + 1;
163 END LOOP;
164
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
174 ,p_crjv_tbl => l_crjv_tbl
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
184 ) THEN
185 raise OKC_API.G_EXCEPTION_ERROR;
186 END IF;
187
188 /*
189 Call After Logic Hook
190
191 g_p_crj_rel_hdr_full_rec := x_crj_rel_hdr_full_rec;
192 okc_util.call_user_hook
193 (
194 x_return_status
195 ,g_pkg_name
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
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
211 (
212 x_msg_count
213 ,x_msg_data
214 );
215 IF (l_debug = 'Y') THEN
216 okc_util.print_trace(2, '<END - OKC_K_REL_OBJS_PUB.CREATE_K_REL_OBJ -');
217 END IF;
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'
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
234 ,'OKC_API.G_RET_STS_UNEXP_ERROR'
235 ,x_msg_count
236 ,x_msg_data
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'
246 ,x_msg_count
247 ,x_msg_data
248 ,'_PUB'
249 );
250 end create_k_rel_obj;
251
252 ---------------------------------------------------------------------------
253 -- Start of comments
254 --
255 -- Procedure Name : create_quote_renews_contract
256 -- Description :
257 -- Business Rules :
258 -- Parameters :
259 -- Version : 1.0
260 -- End of comments
261 PROCEDURE create_quote_renews_contract
262 (-- create records required for a renews relationship between contract and quote
263 p_api_version IN NUMBER
264 ,p_init_msg_list IN VARCHAR2
265 ,x_return_status OUT NOCOPY VARCHAR2
266 ,x_msg_count OUT NOCOPY NUMBER
267 ,x_msg_data OUT NOCOPY VARCHAR2
268 ,p_crj_rel_hdr_rec IN crj_rel_hdr_rec_type
269 ,p_crj_rel_line_tbl IN crj_rel_line_tbl_type
270 ,x_crj_rel_hdr_rec OUT NOCOPY crj_rel_hdr_rec_type
271 ,x_crj_rel_line_tbl OUT NOCOPY crj_rel_line_tbl_type
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;
281 l_obj_type_code jtf_objects_b.OBJECT_CODE%type;
282 l_error_message varchar2(1000);
283 i number;
284
285 l_hdr_object_type varchar2(30) := 'OKX_QUOTEHEAD';
286 l_lne_object_type varchar2(30) := 'OKX_QUOTELINE';
287 l_relationship varchar2(30) := 'QUOTERENEWSCONTRACT';
288
289 G_UNEXPECTED_ERROR CONSTANT varchar2(200) := 'OKC_UNEXPECTED_ERROR';
290 G_SQLCODE_TOKEN CONSTANT varchar2(200) := 'ERROR_CODE';
291 G_SQLERRM_TOKEN CONSTANT varchar2(200) := 'ERROR_MESSAGE';
292 G_EXCEPTION_HALT_VALIDATION exception;
293
294 BEGIN
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'
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
312 ) THEN
313 RAISE OKC_API.G_EXCEPTION_ERROR;
314 END IF;
315 /*
316 Call Before Logic Hook
317
318 g_p_crj_rel_hdr_rec := p_crj_rel_hdr_rec;
319 okc_util.call_user_hook
320 (
321 x_return_status
322 ,g_pkg_name
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
332 ) THEN
333 raise OKC_API.G_EXCEPTION_ERROR;
334 END IF;
335 reset(p_crj_rel_hdr_rec);
336 */
337 /*
338 format parms
339 */
340 l_crj_rel_hdr_full_rec.jtot_object1_code := l_hdr_object_type;
341 l_crj_rel_hdr_full_rec.line_jtot_object1_code:= l_lne_object_type;
342 l_crj_rel_hdr_full_rec.rty_code := l_relationship;
343 l_crj_rel_hdr_full_rec.chr_id := p_crj_rel_hdr_rec.chr_id;
344 l_crj_rel_hdr_full_rec.object1_id1 := p_crj_rel_hdr_rec.object1_id1;
345 l_crj_rel_hdr_full_rec.object1_id2 := p_crj_rel_hdr_rec.object1_id2;
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
355 ,p_crj_rel_line_tbl => p_crj_rel_line_tbl
356 ,x_crj_rel_hdr_full_rec => l_x_crj_rel_hdr_full_rec
357 ,x_crj_rel_line_tbl => l_x_crj_rel_line_tbl
358 );
359 x_crj_rel_hdr_rec.chr_id:=l_x_crj_rel_hdr_full_rec.chr_id;
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
369 ) THEN
370 raise OKC_API.G_EXCEPTION_ERROR;
371 END IF;
372
373 /*
374 Call After Logic Hook
375
376 g_p_crj_rel_hdr_rec := x_crj_rel_hdr_rec;
377 okc_util.call_user_hook
378 (
379 x_return_status
380 ,g_pkg_name
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
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
396 (
397 x_msg_count
398 ,x_msg_data
399 );
400 IF (l_debug = 'Y') THEN
401 okc_util.print_trace(1, '<END - OKC_K_REL_OBJS_PUB.CREATE_QUOTE_RENEWS_CONTRACT -');
402 END IF;
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'
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
419 ,'OKC_API.G_RET_STS_UNEXP_ERROR'
420 ,x_msg_count
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
439 ,sqlcode
440 ,g_sqlerrm_token
441 ,sqlerrm
442 ,'@'
443 ,l_api_name
444 );
445 end create_quote_renews_contract;
446
447 ---------------------------------------------------------------------------
448 -- Start of comments
449 --
450 -- Procedure Name : create_order_renews_contract
451 -- Description :
452 -- Business Rules :
453 -- Parameters :
454 -- Version : 1.0
455 -- End of comments
456 PROCEDURE create_order_renews_contract
457 (-- create records required for a renews relationship between contract and order
458 p_api_version IN NUMBER
459 ,p_init_msg_list IN VARCHAR2
460 ,x_return_status OUT NOCOPY VARCHAR2
461 ,x_msg_count OUT NOCOPY NUMBER
462 ,x_msg_data OUT NOCOPY VARCHAR2
463 ,p_crj_rel_hdr_rec IN crj_rel_hdr_rec_type
464 ,p_crj_rel_line_tbl IN crj_rel_line_tbl_type
465 ,x_crj_rel_hdr_rec OUT NOCOPY crj_rel_hdr_rec_type
466 ,x_crj_rel_line_tbl OUT NOCOPY crj_rel_line_tbl_type
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;
476 l_obj_type_code jtf_objects_b.OBJECT_CODE%type;
477 l_error_message varchar2(1000);
478 i number;
479
480 l_hdr_object_type varchar2(30) := 'OKX_ORDERHEAD';
481 l_lne_object_type varchar2(30) := 'OKX_ORDERLINE';
482 l_relationship varchar2(30) := 'ORDERRENEWSCONTRACT';
483
484 G_UNEXPECTED_ERROR CONSTANT varchar2(200) := 'OKC_UNEXPECTED_ERROR';
485 G_SQLCODE_TOKEN CONSTANT varchar2(200) := 'ERROR_CODE';
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'
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
503 ) THEN
504 RAISE OKC_API.G_EXCEPTION_ERROR;
505 END IF;
506 /*
507 Call Before Logic Hook
508
509 g_p_crj_rel_hdr_rec := p_crj_rel_hdr_rec;
510 okc_util.call_user_hook
511 (
512 x_return_status
513 ,g_pkg_name
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
523 ) THEN
524 raise OKC_API.G_EXCEPTION_ERROR;
525 END IF;
526 reset(p_crj_rel_hdr_rec);
527 */
528 /*
529 format parms
530 */
531 l_crj_rel_hdr_full_rec.jtot_object1_code := l_hdr_object_type;
532 l_crj_rel_hdr_full_rec.line_jtot_object1_code := l_lne_object_type;
533 l_crj_rel_hdr_full_rec.rty_code := l_relationship;
534 l_crj_rel_hdr_full_rec.chr_id := p_crj_rel_hdr_rec.chr_id;
535 l_crj_rel_hdr_full_rec.object1_id1 := p_crj_rel_hdr_rec.object1_id1;
536 l_crj_rel_hdr_full_rec.object1_id2 := p_crj_rel_hdr_rec.object1_id2;
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
546 ,p_crj_rel_line_tbl => p_crj_rel_line_tbl
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
556 ) THEN
557 raise OKC_API.G_EXCEPTION_ERROR;
558 END IF;
559
560 /*
561 Call After Logic Hook
562
563 g_p_crj_rel_hdr_rec := x_crj_rel_hdr_rec;
564 okc_util.call_user_hook
565 (
566 x_return_status
567 ,g_pkg_name
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
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
583 (
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
593 ,'OKC_API.G_RET_STS_ERROR'
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
603 ,'OKC_API.G_RET_STS_UNEXP_ERROR'
604 ,x_msg_count
605 ,x_msg_data
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
624 ,sqlcode
625 ,g_sqlerrm_token
626 ,sqlerrm
627 ,'@'
628 ,l_api_name
629 );
630 end create_order_renews_contract;
631
632 ---------------------------------------------------------------------------
633 -- Start of comments
634 --
635 -- Procedure Name : create_order_ships_contract
636 -- Description :
637 -- Business Rules :
638 -- Parameters :
639 -- Version : 1.0
640 -- End of comments
641 PROCEDURE create_order_ships_contract
642 (-- create records required for a ships relationship between contract and order
643 p_api_version IN NUMBER
644 ,p_init_msg_list IN VARCHAR2
645 ,x_return_status OUT NOCOPY VARCHAR2
646 ,x_msg_count OUT NOCOPY NUMBER
647 ,x_msg_data OUT NOCOPY VARCHAR2
648 ,p_crj_rel_hdr_rec IN crj_rel_hdr_rec_type
649 ,p_crj_rel_line_tbl IN crj_rel_line_tbl_type
650 ,x_crj_rel_hdr_rec OUT NOCOPY crj_rel_hdr_rec_type
651 ,x_crj_rel_line_tbl OUT NOCOPY crj_rel_line_tbl_type
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;
661 l_obj_type_code jtf_objects_b.OBJECT_CODE%type;
662 l_error_message varchar2(1000);
663 i number;
664
665 l_hdr_object_type varchar2(30) := 'OKX_ORDERHEAD';
666 l_lne_object_type varchar2(30) := 'OKX_ORDERLINE';
667 l_relationship varchar2(30) := 'ORDERSHIPSCONTRACT';
668
669 G_UNEXPECTED_ERROR CONSTANT varchar2(200) := 'OKC_UNEXPECTED_ERROR';
670 G_SQLCODE_TOKEN CONSTANT varchar2(200) := 'ERROR_CODE';
671 G_SQLERRM_TOKEN CONSTANT varchar2(200) := 'ERROR_MESSAGE';
672 G_EXCEPTION_HALT_VALIDATION exception;
673
674 BEGIN
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'
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
692 ) THEN
693 RAISE OKC_API.G_EXCEPTION_ERROR;
694 END IF;
695 /*
696 Call Before Logic Hook
697
698 g_p_crj_rel_hdr_rec := p_crj_rel_hdr_rec;
699 okc_util.call_user_hook
700 (
701 x_return_status
702 ,g_pkg_name
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
712 ) THEN
713 raise OKC_API.G_EXCEPTION_ERROR;
714 END IF;
715 reset(p_crj_rel_hdr_rec);
716 */
717 /*
718 format parms
719 */
720 l_crj_rel_hdr_full_rec.jtot_object1_code := l_hdr_object_type;
721 l_crj_rel_hdr_full_rec.line_jtot_object1_code := l_lne_object_type;
722 l_crj_rel_hdr_full_rec.rty_code := l_relationship;
723 l_crj_rel_hdr_full_rec.chr_id := p_crj_rel_hdr_rec.chr_id;
724 l_crj_rel_hdr_full_rec.object1_id1 := p_crj_rel_hdr_rec.object1_id1;
725 l_crj_rel_hdr_full_rec.object1_id2 := p_crj_rel_hdr_rec.object1_id2;
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
735 ,p_crj_rel_line_tbl => p_crj_rel_line_tbl
736 ,x_crj_rel_hdr_full_rec => l_x_crj_rel_hdr_full_rec
737 ,x_crj_rel_line_tbl => l_x_crj_rel_line_tbl
738 );
739 x_crj_rel_hdr_rec.chr_id:=l_x_crj_rel_hdr_full_rec.chr_id;
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
749 ) THEN
750 raise OKC_API.G_EXCEPTION_ERROR;
751 END IF;
752
753 /*
754 Call After Logic Hook
755
756 g_p_crj_rel_hdr_rec := x_crj_rel_hdr_rec;
757 okc_util.call_user_hook
758 (
759 x_return_status
760 ,g_pkg_name
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
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
776 (
777 x_msg_count
778 ,x_msg_data
779 );
780 IF (l_debug = 'Y') THEN
781 okc_util.print_trace(1, '<END - OKC_K_REL_OBJS_PUB.CREATE_ORDER_SHIPS_CONTRACT -');
782 END IF;
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'
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
799 ,'OKC_API.G_RET_STS_UNEXP_ERROR'
800 ,x_msg_count
801 ,x_msg_data
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
820 ,sqlcode
821 ,g_sqlerrm_token
822 ,sqlerrm
823 ,'@'
824 ,l_api_name
825 );
826 end create_order_ships_contract;
827
828
829 ---------------------------------------------------------------------------
830 -- Start of comments
831 --
832 -- Procedure Name : create_core_orders_service
833 -- Description :
834 -- Business Rules :
835 -- Parameters :
836 -- Version : 1.0
837 -- End of comments
838 PROCEDURE create_core_orders_service
839 (-- create records required for a relationship between a service contract and a sales contract
840 p_api_version IN NUMBER
841 ,p_init_msg_list IN VARCHAR2
842 ,x_return_status OUT NOCOPY VARCHAR2
843 ,x_msg_count OUT NOCOPY NUMBER
844 ,x_msg_data OUT NOCOPY VARCHAR2
845 ,p_rel_type IN VARCHAR2
846 ,p_crj_rel_hdr_rec IN crj_rel_hdr_rec_type
847 ,p_crj_rel_line_tbl IN crj_rel_line_tbl_type
848 ,x_crj_rel_hdr_rec OUT NOCOPY crj_rel_hdr_rec_type
849 ,x_crj_rel_line_tbl OUT NOCOPY crj_rel_line_tbl_type
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;
859 l_obj_type_code jtf_objects_b.OBJECT_CODE%type;
860 l_error_message varchar2(1000);
861 i number;
862
863 l_hdr_object_type varchar2(30) := 'OKX_KHEAD';
864 l_lne_object_type varchar2(30) := 'OKX_KLINE';
865 l_relationship varchar2(30) := 'COREORDERSSERVICECONTRACT';
866
867 G_UNEXPECTED_ERROR CONSTANT varchar2(200) := 'OKC_UNEXPECTED_ERROR';
868 G_SQLCODE_TOKEN CONSTANT varchar2(200) := 'ERROR_CODE';
869 G_SQLERRM_TOKEN CONSTANT varchar2(200) := 'ERROR_MESSAGE';
870 G_EXCEPTION_HALT_VALIDATION exception;
871
872 BEGIN
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'
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
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
896 l_relationship := p_rel_type;
897 END IF;
898
899 /*
900 Call Before Logic Hook
901
902 g_p_crj_rel_hdr_rec := p_crj_rel_hdr_rec;
903 okc_util.call_user_hook
904 (
905 x_return_status
906 ,g_pkg_name
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
916 ) THEN
917 raise OKC_API.G_EXCEPTION_ERROR;
918 END IF;
919 reset(p_crj_rel_hdr_rec);
920 */
921 /*
922 format parms
923 */
924 l_crj_rel_hdr_full_rec.jtot_object1_code := l_hdr_object_type;
925 l_crj_rel_hdr_full_rec.line_jtot_object1_code := l_lne_object_type;
926 l_crj_rel_hdr_full_rec.rty_code := l_relationship;
927 l_crj_rel_hdr_full_rec.chr_id := p_crj_rel_hdr_rec.chr_id;
928 l_crj_rel_hdr_full_rec.object1_id1 := p_crj_rel_hdr_rec.object1_id1;
929 l_crj_rel_hdr_full_rec.object1_id2 := p_crj_rel_hdr_rec.object1_id2;
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
939 ,p_crj_rel_line_tbl => p_crj_rel_line_tbl
940 ,x_crj_rel_hdr_full_rec => l_x_crj_rel_hdr_full_rec
941 ,x_crj_rel_line_tbl => l_x_crj_rel_line_tbl
942 );
943 x_crj_rel_hdr_rec.chr_id:=l_x_crj_rel_hdr_full_rec.chr_id;
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
953 ) THEN
954 raise OKC_API.G_EXCEPTION_ERROR;
955 END IF;
956
957 /*
958 Call After Logic Hook
959
960 g_p_crj_rel_hdr_rec := x_crj_rel_hdr_rec;
961 okc_util.call_user_hook
962 (
963 x_return_status
964 ,g_pkg_name
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
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
980 (
981 x_msg_count
982 ,x_msg_data
983 );
984 IF (l_debug = 'Y') THEN
985 okc_util.print_trace(1, '<END - OKC_K_REL_OBJS_PUB.CREATE_CORE_ORDERS_SERVICE -');
986 END IF;
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'
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
1003 ,'OKC_API.G_RET_STS_UNEXP_ERROR'
1004 ,x_msg_count
1005 ,x_msg_data
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
1024 ,sqlcode
1025 ,g_sqlerrm_token
1026 ,sqlerrm
1027 ,'@'
1028 ,l_api_name
1029 );
1030 end create_core_orders_service;
1031
1032
1033 ---------------------------------------------------------------------------
1034 -- Start of comments
1035 --
1036 -- Procedure Name : create_k_terms_for_quote
1037 -- Description :
1038 -- Business Rules :
1039 -- Parameters :
1040 -- Version : 1.0
1041 -- End of comments
1042 --
1043 PROCEDURE create_k_terms_for_quote
1044 (-- create records required for specified relationship between contract and quote
1045 p_api_version IN NUMBER
1046 ,p_init_msg_list IN VARCHAR2
1047 ,x_return_status OUT NOCOPY VARCHAR2
1048 ,x_msg_count OUT NOCOPY NUMBER
1049 ,x_msg_data OUT NOCOPY VARCHAR2
1050 ,p_crj_rel_hdr_rec IN crj_rel_hdr_rec_type
1051 ,p_crj_rel_line_tbl IN crj_rel_line_tbl_type
1052 ,x_crj_rel_hdr_rec OUT NOCOPY crj_rel_hdr_rec_type
1053 ,x_crj_rel_line_tbl OUT NOCOPY crj_rel_line_tbl_type
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;
1063 l_obj_type_code jtf_objects_b.OBJECT_CODE%type;
1064 l_error_message varchar2(1000);
1065 i number;
1066
1067 l_relationship varchar2(30) := 'CONTRACTISTERMSFORQUOTE';
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
1077 ,p_crj_rel_line_tbl => p_crj_rel_line_tbl
1078 ,p_rel_type => l_relationship
1079 ,x_crj_rel_hdr_rec => x_crj_rel_hdr_rec
1080 ,x_crj_rel_line_tbl => x_crj_rel_line_tbl
1081 );
1082
1083 END create_k_terms_for_quote;
1084
1085 ---------------------------------------------------------------------------
1086 -- Start of comments
1087 --
1088 -- Procedure Name : create_k_quote_rel
1089 -- Description :
1090 -- Business Rules :
1091 -- Parameters :
1092 -- Version : 1.0
1093 -- End of comments
1094 PROCEDURE create_k_quote_rel
1095 (-- create records required for specified relationship between contract and quote
1096 p_api_version IN NUMBER
1097 ,p_init_msg_list IN VARCHAR2
1098 ,x_return_status OUT NOCOPY VARCHAR2
1099 ,x_msg_count OUT NOCOPY NUMBER
1100 ,x_msg_data OUT NOCOPY VARCHAR2
1101 ,p_crj_rel_hdr_rec IN crj_rel_hdr_rec_type
1102 ,p_crj_rel_line_tbl IN crj_rel_line_tbl_type
1103 ,p_rel_type IN OKC_K_REL_OBJS.RTY_CODE%TYPE
1104 ,x_crj_rel_hdr_rec OUT NOCOPY crj_rel_hdr_rec_type
1105 ,x_crj_rel_line_tbl OUT NOCOPY crj_rel_line_tbl_type
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;
1115 l_obj_type_code jtf_objects_b.OBJECT_CODE%type;
1116 l_error_message varchar2(1000);
1117 i number;
1118
1119 l_hdr_object_type varchar2(30) := 'OKX_QUOTEHEAD';
1120 l_lne_object_type varchar2(30) := 'OKX_QUOTELINE';
1121 -- l_relationship varchar2(30) := 'CONTRACTISTERMSFORQUOTE';
1122
1123 G_UNEXPECTED_ERROR CONSTANT varchar2(200) := 'OKC_UNEXPECTED_ERROR';
1124 G_SQLCODE_TOKEN CONSTANT varchar2(200) := 'ERROR_CODE';
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'
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
1142 ) THEN
1143 RAISE OKC_API.G_EXCEPTION_ERROR;
1144 END IF;
1145 /*
1146 format parms
1147 */
1148 l_crj_rel_hdr_full_rec.jtot_object1_code := l_hdr_object_type;
1149 l_crj_rel_hdr_full_rec.line_jtot_object1_code := l_lne_object_type;
1150 l_crj_rel_hdr_full_rec.rty_code := p_rel_type; -- l_relationship;
1151 l_crj_rel_hdr_full_rec.chr_id := p_crj_rel_hdr_rec.chr_id;
1152 l_crj_rel_hdr_full_rec.object1_id1 := p_crj_rel_hdr_rec.object1_id1;
1153 l_crj_rel_hdr_full_rec.object1_id2 := p_crj_rel_hdr_rec.object1_id2;
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
1163 ,p_crj_rel_line_tbl => p_crj_rel_line_tbl
1164 ,x_crj_rel_hdr_full_rec => l_x_crj_rel_hdr_full_rec
1165 ,x_crj_rel_line_tbl => l_x_crj_rel_line_tbl
1166 );
1167
1168 x_crj_rel_hdr_rec.chr_id := l_x_crj_rel_hdr_full_rec.chr_id;
1169 x_crj_rel_hdr_rec.object1_id1 := l_x_crj_rel_hdr_full_rec.object1_id1;
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
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 );
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'
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
1204 ,'OKC_API.G_RET_STS_UNEXP_ERROR'
1205 ,x_msg_count
1206 ,x_msg_data
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
1225 ,sqlcode
1226 ,g_sqlerrm_token
1227 ,sqlerrm
1228 ,'@'
1229 ,l_api_name
1230 );
1231
1232 end create_k_quote_rel;
1233
1234
1235 ---------------------------------------------------------------------------
1236 -- Start of comments
1237 --
1238 -- Procedure Name : create_contract_neg_quote
1239 -- Description :
1240 -- Business Rules :
1241 -- Parameters :
1242 -- Version : 1.0
1243 -- End of comments
1244 PROCEDURE create_contract_neg_quote
1245 (-- create records required for a negotiates relationship between contract and quote
1246 p_api_version IN NUMBER
1247 ,p_init_msg_list IN VARCHAR2
1248 ,x_return_status OUT NOCOPY VARCHAR2
1249 ,x_msg_count OUT NOCOPY NUMBER
1250 ,x_msg_data OUT NOCOPY VARCHAR2
1251 ,p_crj_rel_hdr_rec IN crj_rel_hdr_rec_type
1252 ,p_crj_rel_line_tbl IN crj_rel_line_tbl_type
1253 ,x_crj_rel_hdr_rec OUT NOCOPY crj_rel_hdr_rec_type
1254 ,x_crj_rel_line_tbl OUT NOCOPY crj_rel_line_tbl_type
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;
1264 l_obj_type_code jtf_objects_b.OBJECT_CODE%type;
1265 l_error_message varchar2(1000);
1266 i number;
1267
1268 l_hdr_object_type varchar2(30) := 'OKX_QUOTEHEAD';
1269 l_lne_object_type varchar2(30) := 'OKX_QUOTELINE';
1270 l_relationship varchar2(30) := 'CONTRACTNEGOTIATESQUOTE';
1271
1272 G_UNEXPECTED_ERROR CONSTANT varchar2(200) := 'OKC_UNEXPECTED_ERROR';
1273 G_SQLCODE_TOKEN CONSTANT varchar2(200) := 'ERROR_CODE';
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'
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
1291 ) THEN
1292 RAISE OKC_API.G_EXCEPTION_ERROR;
1293 END IF;
1294 /*
1295 Call Before Logic Hook
1296
1297 g_p_crj_rel_hdr_rec := p_crj_rel_hdr_rec;
1298 okc_util.call_user_hook
1299 (
1300 x_return_status
1301 ,g_pkg_name
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
1311 ) THEN
1312 raise OKC_API.G_EXCEPTION_ERROR;
1313 END IF;
1314 reset(p_crj_rel_hdr_rec);
1315 */
1316 /*
1317 format parms
1318 */
1319 l_crj_rel_hdr_full_rec.jtot_object1_code := l_hdr_object_type;
1320 l_crj_rel_hdr_full_rec.line_jtot_object1_code := l_lne_object_type;
1321 l_crj_rel_hdr_full_rec.rty_code := l_relationship;
1322 l_crj_rel_hdr_full_rec.chr_id := p_crj_rel_hdr_rec.chr_id;
1323 l_crj_rel_hdr_full_rec.object1_id1 := p_crj_rel_hdr_rec.object1_id1;
1324 l_crj_rel_hdr_full_rec.object1_id2 := p_crj_rel_hdr_rec.object1_id2;
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
1334 ,p_crj_rel_line_tbl => p_crj_rel_line_tbl
1335 ,x_crj_rel_hdr_full_rec => l_x_crj_rel_hdr_full_rec
1336 ,x_crj_rel_line_tbl => l_x_crj_rel_line_tbl
1337 );
1338 x_crj_rel_hdr_rec.chr_id:=l_x_crj_rel_hdr_full_rec.chr_id;
1339 x_crj_rel_hdr_rec.object1_id1:=l_x_crj_rel_hdr_full_rec.object1_id1;
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
1349 ) THEN
1350 raise OKC_API.G_EXCEPTION_ERROR;
1351 END IF;
1352
1353 /*
1354 Call After Logic Hook
1355
1356 g_p_crj_rel_hdr_rec := x_crj_rel_hdr_rec;
1357 okc_util.call_user_hook
1358 (
1359 x_return_status
1360 ,g_pkg_name
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
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
1376 (
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
1386 ,'OKC_API.G_RET_STS_ERROR'
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
1396 ,'OKC_API.G_RET_STS_UNEXP_ERROR'
1397 ,x_msg_count
1398 ,x_msg_data
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
1417 ,sqlcode
1418 ,g_sqlerrm_token
1419 ,sqlerrm
1420 ,'@'
1421 ,l_api_name
1422 );
1423 end create_contract_neg_quote;
1424
1425 ---------------------------------------------------------------------------
1426 -- Start of comments
1427 --
1428 -- Procedure Name : create_quote_subject_contract
1429 -- Description :
1430 -- Business Rules :
1431 -- Parameters :
1432 -- Version : 1.0
1433 -- End of comments
1434 PROCEDURE create_quote_subject_contract
1435 (-- create records required for a quote subject to contract
1436 p_api_version IN NUMBER
1437 ,p_init_msg_list IN VARCHAR2
1438 ,x_return_status OUT NOCOPY VARCHAR2
1439 ,x_msg_count OUT NOCOPY NUMBER
1440 ,x_msg_data OUT NOCOPY VARCHAR2
1441 ,p_crj_rel_hdr_rec IN crj_rel_hdr_rec_type
1442 ,p_crj_rel_line_tbl IN crj_rel_line_tbl_type
1443 ,x_crj_rel_hdr_rec OUT NOCOPY crj_rel_hdr_rec_type
1444 ,x_crj_rel_line_tbl OUT NOCOPY crj_rel_line_tbl_type
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;
1454 l_obj_type_code jtf_objects_b.OBJECT_CODE%type;
1455 l_error_message varchar2(1000);
1456 i number;
1457
1458 l_hdr_object_type varchar2(30) := 'OKX_QUOTEHEAD';
1459 l_lne_object_type varchar2(30) := 'OKX_QUOTELINE';
1460 l_relationship varchar2(30) := 'QUOTESUBJECTCONTRACT';
1461
1462 G_UNEXPECTED_ERROR CONSTANT varchar2(200) := 'OKC_UNEXPECTED_ERROR';
1463 G_SQLCODE_TOKEN CONSTANT varchar2(200) := 'ERROR_CODE';
1464 G_SQLERRM_TOKEN CONSTANT varchar2(200) := 'ERROR_MESSAGE';
1465 G_EXCEPTION_HALT_VALIDATION exception;
1466
1467 BEGIN
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'
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
1485 ) THEN
1486 RAISE OKC_API.G_EXCEPTION_ERROR;
1487 END IF;
1488 /*
1489 Call Before Logic Hook
1490
1491 g_p_crj_rel_hdr_rec := p_crj_rel_hdr_rec;
1492 okc_util.call_user_hook
1493 (
1494 x_return_status
1495 ,g_pkg_name
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
1505 ) THEN
1506 raise OKC_API.G_EXCEPTION_ERROR;
1507 END IF;
1508 reset(p_crj_rel_hdr_rec);
1509 */
1510 /*
1511 format parms
1512 */
1513 l_crj_rel_hdr_full_rec.jtot_object1_code := l_hdr_object_type;
1514 l_crj_rel_hdr_full_rec.line_jtot_object1_code := l_lne_object_type;
1515 l_crj_rel_hdr_full_rec.rty_code := l_relationship;
1516 l_crj_rel_hdr_full_rec.chr_id := p_crj_rel_hdr_rec.chr_id;
1517 l_crj_rel_hdr_full_rec.object1_id1 := p_crj_rel_hdr_rec.object1_id1;
1518 l_crj_rel_hdr_full_rec.object1_id2 := p_crj_rel_hdr_rec.object1_id2;
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
1528 ,p_crj_rel_line_tbl => p_crj_rel_line_tbl
1529 ,x_crj_rel_hdr_full_rec => l_x_crj_rel_hdr_full_rec
1530 ,x_crj_rel_line_tbl => l_x_crj_rel_line_tbl
1531 );
1532 x_crj_rel_hdr_rec.chr_id:=l_x_crj_rel_hdr_full_rec.chr_id;
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
1542 ) THEN
1543 raise OKC_API.G_EXCEPTION_ERROR;
1544 END IF;
1545
1546 /*
1547 Call After Logic Hook
1548
1549 g_p_crj_rel_hdr_rec := x_crj_rel_hdr_rec;
1550 okc_util.call_user_hook
1551 (
1552 x_return_status
1553 ,g_pkg_name
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
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
1569 (
1570 x_msg_count
1571 ,x_msg_data
1572 );
1573 IF (l_debug = 'Y') THEN
1574 okc_util.print_trace(1, '<END - OKC_K_REL_OBJS_PUB.CREATE_QUOTE_SUBJECT_CONTRACT -');
1575 END IF;
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'
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
1592 ,'OKC_API.G_RET_STS_UNEXP_ERROR'
1593 ,x_msg_count
1594 ,x_msg_data
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
1613 ,sqlcode
1614 ,g_sqlerrm_token
1615 ,sqlerrm
1616 ,'@'
1617 ,l_api_name
1618 );
1619 end create_quote_subject_contract;
1620
1621 ---------------------------------------------------------------------------
1622 -- Start of comments
1623 --
1624 -- Procedure Name : create_order_subject_contract
1625 -- Description :
1626 -- Business Rules :
1627 -- Parameters :
1628 -- Version : 1.0
1629 -- End of comments
1630 PROCEDURE create_order_subject_contract
1631 (-- create records required for an order subject to contract
1632 p_api_version IN NUMBER
1633 ,p_init_msg_list IN VARCHAR2
1634 ,x_return_status OUT NOCOPY VARCHAR2
1635 ,x_msg_count OUT NOCOPY NUMBER
1636 ,x_msg_data OUT NOCOPY VARCHAR2
1637 ,p_crj_rel_hdr_rec IN crj_rel_hdr_rec_type
1638 ,p_crj_rel_line_tbl IN crj_rel_line_tbl_type
1639 ,x_crj_rel_hdr_rec OUT NOCOPY crj_rel_hdr_rec_type
1640 ,x_crj_rel_line_tbl OUT NOCOPY crj_rel_line_tbl_type
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;
1650 l_obj_type_code jtf_objects_b.OBJECT_CODE%type;
1651 l_error_message varchar2(1000);
1652 i number;
1653
1654 l_hdr_object_type varchar2(30) := 'OKX_ORDERHEAD';
1655 l_lne_object_type varchar2(30) := 'OKX_ORDERLINE';
1656 l_relationship varchar2(30) := 'ORDERSUBJECTCONTRACT';
1657
1658 G_UNEXPECTED_ERROR CONSTANT varchar2(200) := 'OKC_UNEXPECTED_ERROR';
1659 G_SQLCODE_TOKEN CONSTANT varchar2(200) := 'ERROR_CODE';
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'
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
1677 ) THEN
1678 RAISE OKC_API.G_EXCEPTION_ERROR;
1679 END IF;
1680 /*
1681 Call Before Logic Hook
1682
1683 g_p_crj_rel_hdr_rec := p_crj_rel_hdr_rec;
1684 okc_util.call_user_hook
1685 (
1686 x_return_status
1687 ,g_pkg_name
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
1697 ) THEN
1698 raise OKC_API.G_EXCEPTION_ERROR;
1699 END IF;
1700 reset(p_crj_rel_hdr_rec);
1701 */
1702 /*
1703 format parms
1704 */
1705 l_crj_rel_hdr_full_rec.jtot_object1_code := l_hdr_object_type;
1706 l_crj_rel_hdr_full_rec.line_jtot_object1_code := l_lne_object_type;
1707 l_crj_rel_hdr_full_rec.rty_code := l_relationship;
1708 l_crj_rel_hdr_full_rec.chr_id := p_crj_rel_hdr_rec.chr_id;
1709 l_crj_rel_hdr_full_rec.object1_id1 := p_crj_rel_hdr_rec.object1_id1;
1710 l_crj_rel_hdr_full_rec.object1_id2 := p_crj_rel_hdr_rec.object1_id2;
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
1720 ,p_crj_rel_line_tbl => p_crj_rel_line_tbl
1721 ,x_crj_rel_hdr_full_rec => l_x_crj_rel_hdr_full_rec
1722 ,x_crj_rel_line_tbl => l_x_crj_rel_line_tbl
1723 );
1724 x_crj_rel_hdr_rec.chr_id:=l_x_crj_rel_hdr_full_rec.chr_id;
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
1734 ) THEN
1735 raise OKC_API.G_EXCEPTION_ERROR;
1736 END IF;
1737
1738 /*
1739 Call After Logic Hook
1740
1741 g_p_crj_rel_hdr_rec := x_crj_rel_hdr_rec;
1742 okc_util.call_user_hook
1743 (
1744 x_return_status
1745 ,g_pkg_name
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
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
1761 (
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
1771 ,'OKC_API.G_RET_STS_ERROR'
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
1781 ,'OKC_API.G_RET_STS_UNEXP_ERROR'
1782 ,x_msg_count
1783 ,x_msg_data
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
1802 ,sqlcode
1803 ,g_sqlerrm_token
1804 ,sqlerrm
1805 ,'@'
1806 ,l_api_name
1807 );
1808 end create_order_subject_contract;
1809
1810
1811 ---------------------------------------------------------------------------
1812 -- Start of comments
1813 --
1814 -- Procedure Name : create_contract_serv_order
1815 -- Description :
1816 -- Business Rules :
1817 -- Parameters :
1818 -- Version : 1.0
1819 -- End of comments
1820 PROCEDURE create_contract_serv_order
1821 (-- create records required for an order subject to contract
1822 p_api_version IN NUMBER
1823 ,p_init_msg_list IN VARCHAR2
1824 ,x_return_status OUT NOCOPY VARCHAR2
1825 ,x_msg_count OUT NOCOPY NUMBER
1826 ,x_msg_data OUT NOCOPY VARCHAR2
1827 ,p_crj_rel_hdr_rec IN crj_rel_hdr_rec_type
1828 ,p_crj_rel_line_tbl IN crj_rel_line_tbl_type
1829 ,x_crj_rel_hdr_rec OUT NOCOPY crj_rel_hdr_rec_type
1830 ,x_crj_rel_line_tbl OUT NOCOPY crj_rel_line_tbl_type
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;
1840 l_obj_type_code jtf_objects_b.OBJECT_CODE%type;
1841 l_error_message varchar2(1000);
1842 i number;
1843
1844 l_hdr_object_type varchar2(30) := 'OKX_ORDERHEAD';
1845 l_lne_object_type varchar2(30) := 'OKX_ORDERLINE';
1846 l_relationship varchar2(30) := 'CONTRACTSERVICESORDER';
1847
1848 G_UNEXPECTED_ERROR CONSTANT varchar2(200) := 'OKC_UNEXPECTED_ERROR';
1849 G_SQLCODE_TOKEN CONSTANT varchar2(200) := 'ERROR_CODE';
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'
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
1867 ) THEN
1868 RAISE OKC_API.G_EXCEPTION_ERROR;
1869 END IF;
1870 /*
1871 Call Before Logic Hook
1872
1873 g_p_crj_rel_hdr_rec := p_crj_rel_hdr_rec;
1874 okc_util.call_user_hook
1875 (
1876 x_return_status
1877 ,g_pkg_name
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
1887 ) THEN
1888 raise OKC_API.G_EXCEPTION_ERROR;
1889 END IF;
1890 reset(p_crj_rel_hdr_rec);
1891 */
1892 /*
1893 format parms
1894 */
1895 l_crj_rel_hdr_full_rec.jtot_object1_code := l_hdr_object_type;
1896 l_crj_rel_hdr_full_rec.line_jtot_object1_code := l_lne_object_type;
1897 l_crj_rel_hdr_full_rec.rty_code := l_relationship;
1898 l_crj_rel_hdr_full_rec.chr_id := p_crj_rel_hdr_rec.chr_id;
1899 l_crj_rel_hdr_full_rec.object1_id1 := p_crj_rel_hdr_rec.object1_id1;
1900 l_crj_rel_hdr_full_rec.object1_id2 := p_crj_rel_hdr_rec.object1_id2;
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
1910 ,p_crj_rel_line_tbl => p_crj_rel_line_tbl
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
1920 ) THEN
1921 raise OKC_API.G_EXCEPTION_ERROR;
1922 END IF;
1923
1924 /*
1925 Call After Logic Hook
1926
1927 g_p_crj_rel_hdr_rec := x_crj_rel_hdr_rec;
1928 okc_util.call_user_hook
1929 (
1930 x_return_status
1931 ,g_pkg_name
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
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
1947 (
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
1957 ,'OKC_API.G_RET_STS_ERROR'
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
1967 ,'OKC_API.G_RET_STS_UNEXP_ERROR'
1968 ,x_msg_count
1969 ,x_msg_data
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
1988 ,sqlcode
1989 ,g_sqlerrm_token
1990 ,sqlerrm
1991 ,'@'
1992 ,l_api_name
1993 );
1994 end create_contract_serv_order;
1995
1996 /* end added code
1997 */
1998
1999 -------------------------------------
2000 -- create_row for:OKC_K_REL_OBJS_V --
2001 -------------------------------------
2002 PROCEDURE create_row(
2003 p_api_version IN NUMBER,
2004 p_init_msg_list IN VARCHAR2 ,
2005 x_return_status OUT NOCOPY VARCHAR2,
2006 x_msg_count OUT NOCOPY NUMBER,
2007 x_msg_data OUT NOCOPY VARCHAR2,
2008 p_crjv_rec IN crjv_rec_type,
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;
2018 l_x_crjv_rec crjv_rec_type;
2019
2020 -----------------------------------------
2021 -- Set_Attributes for:OKC_K_REL_OBJS_V --
2022 -----------------------------------------
2023 BEGIN
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,
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
2042 --------------------------------------------
2043 /*
2044 create_row
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
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);
2063 IF (l_debug = 'Y') THEN
2064 okc_util.print_trace(3, '<END - OKC_K_REL_OBJS_PUB.CREATE_ROW -');
2065 END IF;
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',
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,
2082 'OKC_API.G_RET_STS_UNEXP_ERROR',
2083 x_msg_count,
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',
2093 x_msg_count,
2094 x_msg_data,
2095 '_PUB'
2096 );
2097 END create_row;
2098 ----------------------------------------
2099 -- PL/SQL TBL create_row for:CRJV_TBL --
2100 ----------------------------------------
2101 PROCEDURE create_row(
2102 p_api_version IN NUMBER,
2103 p_init_msg_list IN VARCHAR2 ,
2104 x_return_status OUT NOCOPY VARCHAR2,
2105 x_msg_count OUT NOCOPY NUMBER,
2106 x_msg_data OUT NOCOPY VARCHAR2,
2107 p_crjv_tbl IN crjv_tbl_type,
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
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,
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 */
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
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);
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',
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,
2168 'OKC_API.G_RET_STS_UNEXP_ERROR',
2169 x_msg_count,
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',
2179 x_msg_count,
2180 x_msg_data,
2181 '_PUB'
2182 );
2183 END create_row;
2184
2185 -----------------------------------
2186 -- lock_row for:OKC_K_REL_OBJS_V --
2187 -----------------------------------
2188 PROCEDURE lock_row(
2189 p_api_version IN NUMBER,
2190 p_init_msg_list IN VARCHAR2 ,
2191 x_return_status OUT NOCOPY VARCHAR2,
2192 x_msg_count OUT NOCOPY NUMBER,
2193 x_msg_data OUT NOCOPY VARCHAR2,
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,
2203 p_init_msg_list,
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;
2213
2214 /* lock_row
2215 */
2216 OKC_CRJ_PVT.lock_row
2217 (
2218 p_api_version => p_api_version
2219 ,p_init_msg_list => p_init_msg_list
2220 ,x_return_status => x_return_status
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;
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',
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,
2247 'OKC_API.G_RET_STS_UNEXP_ERROR',
2248 x_msg_count,
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',
2258 x_msg_count,
2259 x_msg_data,
2260 '_PUB'
2261 );
2262 END lock_row;
2263 --------------------------------------
2264 -- PL/SQL TBL lock_row for:CRJV_TBL --
2265 --------------------------------------
2266 PROCEDURE lock_row(
2267 p_api_version IN NUMBER,
2268 p_init_msg_list IN VARCHAR2 ,
2269 x_return_status OUT NOCOPY VARCHAR2,
2270 x_msg_count OUT NOCOPY NUMBER,
2271 x_msg_data OUT NOCOPY VARCHAR2,
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,
2281 p_init_msg_list,
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;
2291 /* lock_rows
2292 */
2293 OKC_CRJ_PVT.lock_row
2294 (
2295 p_api_version => p_api_version
2296 ,p_init_msg_list => p_init_msg_list
2297 ,x_return_status => x_return_status
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;
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',
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,
2324 'OKC_API.G_RET_STS_UNEXP_ERROR',
2325 x_msg_count,
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',
2335 x_msg_count,
2336 x_msg_data,
2337 '_PUB'
2338 );
2339 END lock_row;
2340
2341 -------------------------------------
2342 -- update_row for:OKC_K_REL_OBJS_V --
2343 -------------------------------------
2344 PROCEDURE update_row(
2345 p_api_version IN NUMBER,
2346 p_init_msg_list IN VARCHAR2 ,
2347 x_return_status OUT NOCOPY VARCHAR2,
2348 x_msg_count OUT NOCOPY NUMBER,
2349 x_msg_data OUT NOCOPY VARCHAR2,
2350 p_crjv_rec IN crjv_rec_type,
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;
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,
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 */
2375 OKC_CRJ_PVT.update_row
2376 (
2377 p_api_version => p_api_version
2378 ,p_init_msg_list => p_init_msg_list
2379 ,x_return_status => x_return_status
2380 ,x_msg_count => x_msg_count
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;
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',
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,
2407 'OKC_API.G_RET_STS_UNEXP_ERROR',
2408 x_msg_count,
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',
2418 x_msg_count,
2419 x_msg_data,
2420 '_PUB'
2421 );
2422 END update_row;
2423 ----------------------------------------
2424 -- PL/SQL TBL update_row for:CRJV_TBL --
2425 ----------------------------------------
2426 PROCEDURE update_row(
2427 p_api_version IN NUMBER,
2428 p_init_msg_list IN VARCHAR2 ,
2429 x_return_status OUT NOCOPY VARCHAR2,
2430 x_msg_count OUT NOCOPY NUMBER,
2431 x_msg_data OUT NOCOPY VARCHAR2,
2432 p_crjv_tbl IN crjv_tbl_type,
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,
2442 p_init_msg_list,
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;
2452 /* update_rows
2453 */
2454 OKC_CRJ_PVT.update_row
2455 (
2456 p_api_version => p_api_version
2457 ,p_init_msg_list => p_init_msg_list
2458 ,x_return_status => x_return_status
2459 ,x_msg_count => x_msg_count
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;
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',
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,
2486 'OKC_API.G_RET_STS_UNEXP_ERROR',
2487 x_msg_count,
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',
2497 x_msg_count,
2498 x_msg_data,
2499 '_PUB'
2500 );
2501 END update_row;
2502
2503 -------------------------------------
2504 -- delete_row for:OKC_K_REL_OBJS_V --
2505 -------------------------------------
2506 PROCEDURE delete_row(
2507 p_api_version IN NUMBER,
2508 p_init_msg_list IN VARCHAR2 ,
2509 x_return_status OUT NOCOPY VARCHAR2,
2510 x_msg_count OUT NOCOPY NUMBER,
2511 x_msg_data OUT NOCOPY VARCHAR2,
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,
2521 G_PKG_NAME,
2522 p_init_msg_list,
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;
2532 /* delete_row
2533 */
2534 OKC_CRJ_PVT.delete_row
2535 (
2536 p_api_version => p_api_version
2537 ,p_init_msg_list => p_init_msg_list
2538 ,x_return_status => x_return_status
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;
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',
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,
2565 'OKC_API.G_RET_STS_UNEXP_ERROR',
2566 x_msg_count,
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',
2576 x_msg_count,
2577 x_msg_data,
2578 '_PUB'
2579 );
2580 END delete_row;
2581 ----------------------------------------
2582 -- PL/SQL TBL delete_row for:CRJV_TBL --
2583 ----------------------------------------
2584 PROCEDURE delete_row(
2585 p_api_version IN NUMBER,
2586 p_init_msg_list IN VARCHAR2 ,
2587 x_return_status OUT NOCOPY VARCHAR2,
2588 x_msg_count OUT NOCOPY NUMBER,
2589 x_msg_data OUT NOCOPY VARCHAR2,
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,
2599 p_init_msg_list,
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;
2609 /* delete_rows
2610 */
2611 OKC_CRJ_PVT.delete_row
2612 (
2613 p_api_version => p_api_version
2614 ,p_init_msg_list => p_init_msg_list
2615 ,x_return_status => x_return_status
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;
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',
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,
2642 'OKC_API.G_RET_STS_UNEXP_ERROR',
2643 x_msg_count,
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',
2653 x_msg_count,
2654 x_msg_data,
2655 '_PUB'
2656 );
2657 END delete_row;
2658
2659 ---------------------------------------------------------------------------
2660 -- PROCEDURE validate_row
2661 ---------------------------------------------------------------------------
2662 ---------------------------------------
2663 -- validate_row for:OKC_K_REL_OBJS_V --
2664 ---------------------------------------
2665 PROCEDURE validate_row(
2666 p_api_version IN NUMBER,
2667 p_init_msg_list IN VARCHAR2 ,
2668 x_return_status OUT NOCOPY VARCHAR2,
2669 x_msg_count OUT NOCOPY NUMBER,
2670 x_msg_data OUT NOCOPY VARCHAR2,
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,
2680 G_PKG_NAME,
2681 p_init_msg_list,
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;
2691 /* validate_row
2692 */
2693 OKC_CRJ_PVT.validate_row
2694 (
2695 p_api_version => p_api_version
2696 ,p_init_msg_list => p_init_msg_list
2697 ,x_return_status => x_return_status
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;
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',
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,
2724 'OKC_API.G_RET_STS_UNEXP_ERROR',
2725 x_msg_count,
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',
2735 x_msg_count,
2736 x_msg_data,
2737 '_PVT'
2738 );
2739 END validate_row;
2740 ------------------------------------------
2741 -- PL/SQL TBL validate_row for:CRJV_TBL --
2742 ------------------------------------------
2743 PROCEDURE validate_row(
2744 p_api_version IN NUMBER,
2745 p_init_msg_list IN VARCHAR2 ,
2746 x_return_status OUT NOCOPY VARCHAR2,
2747 x_msg_count OUT NOCOPY NUMBER,
2748 x_msg_data OUT NOCOPY VARCHAR2,
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,
2758 p_init_msg_list,
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;
2768 /* validate_rows
2769 */
2770 OKC_CRJ_PVT.validate_row
2771 (
2772 p_api_version => p_api_version
2773 ,p_init_msg_list => p_init_msg_list
2774 ,x_return_status => x_return_status
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;
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',
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,
2801 'OKC_API.G_RET_STS_UNEXP_ERROR',
2802 x_msg_count,
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',
2812 x_msg_count,
2813 x_msg_data,
2814 '_PVT'
2815 );
2816 END validate_row;
2817
2818 ---------------------------------------------------------------------------
2819 -- Start of comments
2820 --
2821 -- Procedure Name : quote_is_renewal
2822 -- Description :
2823 -- Business Rules :
2824 -- Parameters :
2825 -- Version : 1.0
2826 -- End of comments
2827 PROCEDURE quote_is_renewal
2828 (
2829 p_api_version IN NUMBER
2830 ,p_init_msg_list IN VARCHAR2
2831 ,x_return_status OUT NOCOPY VARCHAR2
2832 ,x_msg_count OUT NOCOPY NUMBER
2833 ,x_msg_data OUT NOCOPY VARCHAR2
2834 ,p_crjv_rec IN crjv_rec_type
2835 ,x_true_false out nocopy varchar2
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';
2845 G_SQLCODE_TOKEN CONSTANT varchar2(200) := 'ERROR_CODE';
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'
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
2863 ) THEN
2864 RAISE OKC_API.G_EXCEPTION_ERROR;
2865 END IF;
2866
2867 /*
2868 Call Before Logic Hook
2869
2870 g_p_crj_rel_rec := p_...;
2871 okc_util.call_user_hook
2872 (
2873 x_return_status
2874 ,g_pkg_name
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
2884 ) THEN
2885 raise OKC_API.G_EXCEPTION_ERROR;
2886 END IF;
2887 reset(p_...);
2888 */
2889 /* is quote for renewal?
2890 */
2891 OKC_CRJ_PVT.quote_is_renewal
2892 (
2893 p_api_version => p_api_version
2894 ,p_init_msg_list => p_init_msg_list
2895 ,x_return_status => x_return_status
2896 ,x_msg_count => x_msg_count
2897 ,x_msg_data => x_msg_data
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;
2907 end if;
2908 /*
2909 Call After Logic Hook
2910
2911 g_p_crj_rel_rec := x_...;
2912 okc_util.call_user_hook
2913 (
2914 x_return_status
2915 ,g_pkg_name
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
2925 ) THEN
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 );
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'
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
2951 ,'OKC_API.G_RET_STS_UNEXP_ERROR'
2952 ,x_msg_count
2953 ,x_msg_data
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
2972 ,sqlcode
2973 ,g_sqlerrm_token
2974 ,sqlerrm
2975 ,'@'
2976 ,l_api_name
2977 );
2978 end quote_is_renewal;
2979
2980 ---------------------------------------------------------------------------
2981 -- Start of comments
2982 --
2983 -- Procedure Name : order_is_renewal
2984 -- Description :
2985 -- Business Rules :
2986 -- Parameters :
2987 -- Version : 1.0
2988 -- End of comments
2989 PROCEDURE order_is_renewal
2990 (
2991 p_api_version IN NUMBER
2992 ,p_init_msg_list IN VARCHAR2
2993 ,x_return_status OUT NOCOPY VARCHAR2
2994 ,x_msg_count OUT NOCOPY NUMBER
2995 ,x_msg_data OUT NOCOPY VARCHAR2
2996 ,p_crjv_rec IN crjv_rec_type
2997 ,x_true_false out nocopy varchar2
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';
3007 G_SQLCODE_TOKEN CONSTANT varchar2(200) := 'ERROR_CODE';
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'
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
3025 ) THEN
3026 RAISE OKC_API.G_EXCEPTION_ERROR;
3027 END IF;
3028
3029 /*
3030 Call Before Logic Hook
3031
3032 g_p_crj_rel_rec := p_...;
3033 okc_util.call_user_hook
3034 (
3035 x_return_status
3036 ,g_pkg_name
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
3046 ) THEN
3047 raise OKC_API.G_EXCEPTION_ERROR;
3048 END IF;
3049 reset(p_...);
3050 */
3051 /* is order for renewal?
3052 */
3053 OKC_CRJ_PVT.order_is_renewal
3054 (
3055 p_api_version => p_api_version
3056 ,p_init_msg_list => p_init_msg_list
3057 ,x_return_status => x_return_status
3058 ,x_msg_count => x_msg_count
3059 ,x_msg_data => x_msg_data
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;
3069 end if;
3070 /*
3071 Call After Logic Hook
3072
3073 g_p_crj_rel_rec := x_...;
3074 okc_util.call_user_hook
3075 (
3076 x_return_status
3077 ,g_pkg_name
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
3087 ) THEN
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 );
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'
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
3113 ,'OKC_API.G_RET_STS_UNEXP_ERROR'
3114 ,x_msg_count
3115 ,x_msg_data
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
3134 ,sqlcode
3135 ,g_sqlerrm_token
3136 ,sqlerrm
3137 ,'@'
3138 ,l_api_name
3139 );
3140 end order_is_renewal;
3141
3142 ---------------------------------------------------------------------------
3143 -- Start of comments
3144 --
3145 -- Procedure Name : quote_is_subject
3146 -- Description :
3147 -- Business Rules :
3148 -- Parameters :
3149 -- Version : 1.0
3150 -- End of comments
3151 PROCEDURE quote_is_subject
3152 (
3153 p_api_version IN NUMBER
3154 ,p_init_msg_list IN VARCHAR2
3155 ,x_return_status OUT NOCOPY VARCHAR2
3156 ,x_msg_count OUT NOCOPY NUMBER
3157 ,x_msg_data OUT NOCOPY VARCHAR2
3158 ,p_crjv_rec IN crjv_rec_type
3159 ,x_true_false out nocopy varchar2
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';
3169 G_SQLCODE_TOKEN CONSTANT varchar2(200) := 'ERROR_CODE';
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'
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
3187 ) THEN
3188 RAISE OKC_API.G_EXCEPTION_ERROR;
3189 END IF;
3190
3191 /*
3192 Call Before Logic Hook
3193
3194 g_p_crj_rel_rec := p_...;
3195 okc_util.call_user_hook
3196 (
3197 x_return_status
3198 ,g_pkg_name
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
3208 ) THEN
3209 raise OKC_API.G_EXCEPTION_ERROR;
3210 END IF;
3211 reset(p_...);
3212 */
3213 /* is quote subject?
3214 */
3215 OKC_CRJ_PVT.quote_is_subject
3216 (
3217 p_api_version => p_api_version
3218 ,p_init_msg_list => p_init_msg_list
3219 ,x_return_status => x_return_status
3220 ,x_msg_count => x_msg_count
3221 ,x_msg_data => x_msg_data
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;
3231 end if;
3232 /*
3233 Call After Logic Hook
3234
3235 g_p_crj_rel_rec := x_...;
3236 okc_util.call_user_hook
3237 (
3238 x_return_status
3239 ,g_pkg_name
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
3249 ) THEN
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 );
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'
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
3275 ,'OKC_API.G_RET_STS_UNEXP_ERROR'
3276 ,x_msg_count
3277 ,x_msg_data
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
3296 ,sqlcode
3297 ,g_sqlerrm_token
3298 ,sqlerrm
3299 ,'@'
3300 ,l_api_name
3301 );
3302 end quote_is_subject;
3303
3304 ---------------------------------------------------------------------------
3305 -- Start of comments
3306 --
3307 -- Procedure Name : order_is_subject
3308 -- Description :
3309 -- Business Rules :
3310 -- Parameters :
3311 -- Version : 1.0
3312 -- End of comments
3313 PROCEDURE order_is_subject
3314 (
3315 p_api_version IN NUMBER
3316 ,p_init_msg_list IN VARCHAR2
3317 ,x_return_status OUT NOCOPY VARCHAR2
3318 ,x_msg_count OUT NOCOPY NUMBER
3319 ,x_msg_data OUT NOCOPY VARCHAR2
3320 ,p_crjv_rec IN crjv_rec_type
3321 ,x_true_false out nocopy varchar2
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';
3331 G_SQLCODE_TOKEN CONSTANT varchar2(200) := 'ERROR_CODE';
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'
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
3349 ) THEN
3350 RAISE OKC_API.G_EXCEPTION_ERROR;
3351 END IF;
3352
3353 /*
3354 Call Before Logic Hook
3355
3356 g_p_crj_rel_rec := p_...;
3357 okc_util.call_user_hook
3358 (
3359 x_return_status
3360 ,g_pkg_name
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
3370 ) THEN
3371 raise OKC_API.G_EXCEPTION_ERROR;
3372 END IF;
3373 reset(p_...);
3374 */
3375 /* is order subject?
3376 */
3377 OKC_CRJ_PVT.order_is_subject
3378 (
3379 p_api_version => p_api_version
3380 ,p_init_msg_list => p_init_msg_list
3381 ,x_return_status => x_return_status
3382 ,x_msg_count => x_msg_count
3383 ,x_msg_data => x_msg_data
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;
3393 end if;
3394 /*
3395 Call After Logic Hook
3396
3397 g_p_crj_rel_rec := x_...;
3398 okc_util.call_user_hook
3399 (
3400 x_return_status
3401 ,g_pkg_name
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
3411 ) THEN
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 );
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'
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
3437 ,'OKC_API.G_RET_STS_UNEXP_ERROR'
3438 ,x_msg_count
3439 ,x_msg_data
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
3458 ,sqlcode
3459 ,g_sqlerrm_token
3460 ,sqlerrm
3461 ,'@'
3462 ,l_api_name
3463 );
3464 end order_is_subject;
3465
3466 ---------------------------------------------------------------------------
3467 -- Start of comments
3468 --
3469 -- Procedure Name : quote_contract_is_ordered
3470 -- Description :
3471 -- Business Rules :
3472 -- Parameters :
3473 -- Version : 1.0
3474 -- End of comments
3475 PROCEDURE quote_contract_is_ordered
3476 (--
3477 p_api_version IN NUMBER
3478 ,p_init_msg_list IN VARCHAR2
3479 ,x_return_status OUT NOCOPY VARCHAR2
3480 ,x_msg_count OUT NOCOPY NUMBER
3481 ,x_msg_data OUT NOCOPY VARCHAR2
3482 ,p_crjv_rec IN crjv_rec_type
3483 ,x_true_false out nocopy varchar2
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';
3493 G_SQLCODE_TOKEN CONSTANT varchar2(200) := 'ERROR_CODE';
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'
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
3511 ) THEN
3512 RAISE OKC_API.G_EXCEPTION_ERROR;
3513 END IF;
3514
3515 /*
3516 Call Before Logic Hook
3517
3518 g_p_crj_rel_rec := p_crjv_rec;
3519 okc_util.call_user_hook
3520 (
3521 x_return_status
3522 ,g_pkg_name
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
3532 ) THEN
3533 raise OKC_API.G_EXCEPTION_ERROR;
3534 END IF;
3535 reset(p_crjv_rec;
3536 */
3537 /* is quote contract ordered?
3538 */
3539 OKC_CRJ_PVT.quote_contract_is_ordered
3540 (
3541 p_api_version => p_api_version
3542 ,p_init_msg_list => p_init_msg_list
3543 ,x_return_status => x_return_status
3544 ,x_msg_count => x_msg_count
3545 ,x_msg_data => x_msg_data
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;
3555 end if;
3556 /*
3557 Call After Logic Hook
3558
3559 g_p_crj_rel_rec := x_...;
3560 okc_util.call_user_hook
3561 (
3562 x_return_status
3563 ,g_pkg_name
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
3573 ) THEN
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 );
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'
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
3599 ,'OKC_API.G_RET_STS_UNEXP_ERROR'
3600 ,x_msg_count
3601 ,x_msg_data
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
3620 ,sqlcode
3621 ,g_sqlerrm_token
3622 ,sqlerrm
3623 ,'@'
3624 ,l_api_name
3625 );
3626 end quote_contract_is_ordered;
3627
3628 END OKC_K_REL_OBJS_PUB;