20: p_cnlv_tbl IN cnlv_tbl_type,
21: x_cnhv_rec OUT NOCOPY cnhv_rec_type,
22: x_cnlv_tbl OUT NOCOPY cnlv_tbl_type) IS
23:
24: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
25: l_cnhv_rec cnhv_rec_type;
26: l_cnlv_tbl cnlv_tbl_type := p_cnlv_tbl;
27: i NUMBER;
28: begin
34: x_msg_count,
35: x_msg_data,
36: p_cnhv_rec,
37: x_cnhv_rec);
38: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
39: raise G_EXCEPTION_HALT_VALIDATION;
40: ELSE
41: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
42: l_return_status := x_return_status;
37: x_cnhv_rec);
38: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
39: raise G_EXCEPTION_HALT_VALIDATION;
40: ELSE
41: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
42: l_return_status := x_return_status;
43: END IF;
44: END IF;
45:
61: x_msg_count,
62: x_msg_data,
63: l_cnlv_tbl,
64: x_cnlv_tbl);
65: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
66: raise G_EXCEPTION_HALT_VALIDATION;
67: ELSE
68: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
69: l_return_status := x_return_status;
64: x_cnlv_tbl);
65: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
66: raise G_EXCEPTION_HALT_VALIDATION;
67: ELSE
68: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
69: l_return_status := x_return_status;
70: END IF;
71: END IF;
72:
74: WHEN G_EXCEPTION_HALT_VALIDATION THEN
75: Null;
76:
77: WHEN OTHERS THEN
78: OKC_API.set_message(p_app_name => g_app_name,
79: p_msg_name => g_unexpected_error,
80: p_token1 => g_sqlcode_token,
81: p_token1_value => sqlcode,
82: p_token2 => g_sqlerrm_token,
80: p_token1 => g_sqlcode_token,
81: p_token1_value => sqlcode,
82: p_token2 => g_sqlerrm_token,
83: p_token2_value => sqlerrm);
84: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
85: End create_cond_hdrs;
86:
87: --Object type procedure for update
88: PROCEDURE update_cond_hdrs(
94: p_cnhv_rec IN cnhv_rec_type,
95: p_cnlv_tbl IN cnlv_tbl_type,
96: x_cnhv_rec OUT NOCOPY cnhv_rec_type,
97: x_cnlv_tbl OUT NOCOPY cnlv_tbl_type) IS
98: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
99: begin
100: --Update the Master
101: update_cond_hdrs(
102: p_api_version,
105: x_msg_count,
106: x_msg_data,
107: p_cnhv_rec,
108: x_cnhv_rec);
109: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
110: raise G_EXCEPTION_HALT_VALIDATION;
111: ELSE
112: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
113: l_return_status := x_return_status;
108: x_cnhv_rec);
109: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
110: raise G_EXCEPTION_HALT_VALIDATION;
111: ELSE
112: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
113: l_return_status := x_return_status;
114: END IF;
115: END IF;
116:
122: x_msg_count,
123: x_msg_data,
124: p_cnlv_tbl,
125: x_cnlv_tbl);
126: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
127: raise G_EXCEPTION_HALT_VALIDATION;
128: ELSE
129: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
130: l_return_status := x_return_status;
125: x_cnlv_tbl);
126: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
127: raise G_EXCEPTION_HALT_VALIDATION;
128: ELSE
129: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
130: l_return_status := x_return_status;
131: END IF;
132: END IF;
133:
135: WHEN G_EXCEPTION_HALT_VALIDATION THEN
136: Null;
137:
138: WHEN OTHERS THEN
139: OKC_API.set_message(p_app_name => g_app_name,
140: p_msg_name => g_unexpected_error,
141: p_token1 => g_sqlcode_token,
142: p_token1_value => sqlcode,
143: p_token2 => g_sqlerrm_token,
141: p_token1 => g_sqlcode_token,
142: p_token1_value => sqlcode,
143: p_token2 => g_sqlerrm_token,
144: p_token2_value => sqlerrm);
145: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
146: end update_cond_hdrs;
147:
148: --Object type procedure for validate
149: PROCEDURE validate_cond_hdrs(
153: x_msg_count OUT NOCOPY NUMBER,
154: x_msg_data OUT NOCOPY VARCHAR2,
155: p_cnhv_rec IN cnhv_rec_type,
156: p_cnlv_tbl IN cnlv_tbl_type) IS
157: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
158: begin
159: --Validate the Master
160: validate_cond_hdrs(
161: p_api_version,
163: x_return_status,
164: x_msg_count,
165: x_msg_data,
166: p_cnhv_rec);
167: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
168: raise G_EXCEPTION_HALT_VALIDATION;
169: ELSE
170: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
171: l_return_status := x_return_status;
166: p_cnhv_rec);
167: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
168: raise G_EXCEPTION_HALT_VALIDATION;
169: ELSE
170: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
171: l_return_status := x_return_status;
172: END IF;
173: END IF;
174:
179: x_return_status,
180: x_msg_count,
181: x_msg_data,
182: p_cnlv_tbl);
183: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
184: raise G_EXCEPTION_HALT_VALIDATION;
185: ELSE
186: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
187: l_return_status := x_return_status;
182: p_cnlv_tbl);
183: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
184: raise G_EXCEPTION_HALT_VALIDATION;
185: ELSE
186: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
187: l_return_status := x_return_status;
188: END IF;
189: END IF;
190:
192: WHEN G_EXCEPTION_HALT_VALIDATION THEN
193: Null;
194:
195: WHEN OTHERS THEN
196: OKC_API.set_message(p_app_name => g_app_name,
197: p_msg_name => g_unexpected_error,
198: p_token1 => g_sqlcode_token,
199: p_token1_value => sqlcode,
200: p_token2 => g_sqlerrm_token,
198: p_token1 => g_sqlcode_token,
199: p_token1_value => sqlcode,
200: p_token2 => g_sqlerrm_token,
201: p_token2_value => sqlerrm);
202: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
203: End validate_cond_hdrs;
204:
205: -- Procedure for updating the minor version
206:
211: x_msg_count NUMBER ;
212: x_msg_data VARCHAR2(2000);
213: x_out_rec OKC_CVM_PVT.cvmv_rec_type;
214: l_cvmv_rec OKC_CVM_PVT.cvmv_rec_type;
215: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
216:
217: BEGIN
218: -- assign/populate contract header id
219: l_cvmv_rec.chr_id := p_chr_id;
226: x_msg_data => x_msg_data,
227: p_cvmv_rec => l_cvmv_rec,
228: x_cvmv_rec => x_out_rec);
229:
230: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
231: RAISE G_EXCEPTION_HALT_VALIDATION;
232: ELSE
233: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
234: l_return_status := x_return_status;
229:
230: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
231: RAISE G_EXCEPTION_HALT_VALIDATION;
232: ELSE
233: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
234: l_return_status := x_return_status;
235: END IF;
236: END IF;
237: EXCEPTION
237: EXCEPTION
238: WHEN G_EXCEPTION_HALT_VALIDATION THEN
239: NULL;
240: WHEN OTHERS THEN
241: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
242: p_msg_name => g_unexpected_error,
243: p_token1 => g_sqlcode_token,
244: p_token1_value => sqlcode,
245: p_token2 => g_sqlerrm_token,
243: p_token1 => g_sqlcode_token,
244: p_token1_value => sqlcode,
245: p_token2 => g_sqlerrm_token,
246: p_token2_value => sqlerrm);
247: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
248: END update_minor_version;
249:
250: --Procedures for Condition Header
251:
266: x_msg_data,
267: p_cnhv_rec,
268: x_cnhv_rec);
269:
270: IF (x_return_status = OKC_API.G_RET_STS_SUCCESS) THEN
271: Update_Minor_Version(p_cnhv_rec.dnz_chr_id);
272: END IF;
273:
274: End create_cond_hdrs;
343: x_msg_data,
344: p_cnhv_rec,
345: x_cnhv_rec);
346:
347: IF (x_return_status = OKC_API.G_RET_STS_SUCCESS) THEN
348: Update_Minor_Version(p_cnhv_rec.dnz_chr_id);
349: END IF;
350: End update_cond_hdrs;
351:
378: p_cnhv_rec IN cnhv_rec_type) IS
379:
380: l_dummy VARCHAR2(1) ;
381: l_row_found BOOLEAN := TRUE ;
382: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
383: i NUMBER := 0;
384: l_cnlv_tbl cnlv_tbl_type;
385: l_ocev_tbl ocev_tbl_type;
386: --Bug 3122962
408: l_row_found := tve_cur%FOUND;
409: CLOSE tve_cur;
410: IF (l_row_found) THEN
411: -- put error message
412: OKC_API.set_message(G_APP_NAME, 'OKC_TIMEVALUE_EXIST');
413: x_return_status := OKC_API.G_RET_STS_ERROR ;
414: raise G_EXCEPTION_HALT_VALIDATION;
415: ELSE
416: --populate the Foreign key of the outcomes
409: CLOSE tve_cur;
410: IF (l_row_found) THEN
411: -- put error message
412: OKC_API.set_message(G_APP_NAME, 'OKC_TIMEVALUE_EXIST');
413: x_return_status := OKC_API.G_RET_STS_ERROR ;
414: raise G_EXCEPTION_HALT_VALIDATION;
415: ELSE
416: --populate the Foreign key of the outcomes
417: For oce_rec in oce_cur loop
428: x_return_status,
429: x_msg_count,
430: x_msg_data,
431: l_ocev_tbl);
432: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
433: raise G_EXCEPTION_HALT_VALIDATION;
434: ELSE
435: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
436: l_return_status := x_return_status;
431: l_ocev_tbl);
432: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
433: raise G_EXCEPTION_HALT_VALIDATION;
434: ELSE
435: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
436: l_return_status := x_return_status;
437: END IF;
438: END IF;
439: END IF;
453: x_return_status,
454: x_msg_count,
455: x_msg_data,
456: l_cnlv_tbl);
457: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
458: raise G_EXCEPTION_HALT_VALIDATION;
459: ELSE
460: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
461: l_return_status := x_return_status;
456: l_cnlv_tbl);
457: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
458: raise G_EXCEPTION_HALT_VALIDATION;
459: ELSE
460: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
461: l_return_status := x_return_status;
462: END IF;
463: END IF;
464: END IF;
470: x_return_status,
471: x_msg_count,
472: x_msg_data,
473: p_cnhv_rec);
474: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
475: raise G_EXCEPTION_HALT_VALIDATION;
476: ELSE
477: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
478: l_return_status := x_return_status;
473: p_cnhv_rec);
474: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
475: raise G_EXCEPTION_HALT_VALIDATION;
476: ELSE
477: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
478: l_return_status := x_return_status;
479: END IF;
480: END IF;
481: END IF;
479: END IF;
480: END IF;
481: END IF;
482:
483: IF (x_return_status = OKC_API.G_RET_STS_SUCCESS) THEN
484: Update_Minor_Version(p_cnhv_rec.dnz_chr_id);
485: END IF;
486:
487: EXCEPTION
488: WHEN G_EXCEPTION_HALT_VALIDATION THEN
489: Null;
490:
491: WHEN OTHERS THEN
492: OKC_API.set_message(p_app_name => g_app_name,
493: p_msg_name => g_unexpected_error,
494: p_token1 => g_sqlcode_token,
495: p_token1_value => sqlcode,
496: p_token2 => g_sqlerrm_token,
494: p_token1 => g_sqlcode_token,
495: p_token1_value => sqlcode,
496: p_token2 => g_sqlerrm_token,
497: p_token2_value => sqlerrm);
498: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
499: End delete_cond_hdrs;
500:
501: PROCEDURE delete_cond_hdrs(
502: p_api_version IN NUMBER,
505: x_msg_count OUT NOCOPY NUMBER,
506: x_msg_data OUT NOCOPY VARCHAR2,
507: p_cnhv_tbl IN cnhv_tbl_type) IS
508: i NUMBER :=0;
509: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
510: begin
511: --Initialize the return status
512: x_return_status := OKC_API.G_RET_STS_SUCCESS;
513:
508: i NUMBER :=0;
509: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
510: begin
511: --Initialize the return status
512: x_return_status := OKC_API.G_RET_STS_SUCCESS;
513:
514: IF (p_cnhv_tbl.COUNT > 0) THEN
515: i := p_cnhv_tbl.FIRST;
516: LOOP
524: EXIT WHEN (i = p_cnhv_tbl.LAST);
525: i := p_cnhv_tbl.NEXT(i);
526: END LOOP;
527: END IF;
528: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
529: raise G_EXCEPTION_HALT_VALIDATION;
530: ELSE
531: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
532: l_return_status := x_return_status;
527: END IF;
528: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
529: raise G_EXCEPTION_HALT_VALIDATION;
530: ELSE
531: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
532: l_return_status := x_return_status;
533: END IF;
534: END IF;
535: EXCEPTION
536: WHEN G_EXCEPTION_HALT_VALIDATION THEN
537: Null;
538:
539: WHEN OTHERS THEN
540: OKC_API.set_message(p_app_name => g_app_name,
541: p_msg_name => g_unexpected_error,
542: p_token1 => g_sqlcode_token,
543: p_token1_value => sqlcode,
544: p_token2 => g_sqlerrm_token,
542: p_token1 => g_sqlcode_token,
543: p_token1_value => sqlcode,
544: p_token2 => g_sqlerrm_token,
545: p_token2_value => sqlerrm);
546: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
547: End delete_cond_hdrs;
548:
549: PROCEDURE validate_cond_hdrs(
550: p_api_version IN NUMBER,
600: x_msg_data,
601: p_cnlv_rec,
602: x_cnlv_rec);
603:
604: IF (x_return_status = OKC_API.G_RET_STS_SUCCESS) THEN
605: Update_Minor_Version(p_cnlv_rec.dnz_chr_id);
606: END IF;
607: End create_cond_lines;
608:
676: x_msg_data,
677: p_cnlv_rec,
678: x_cnlv_rec);
679:
680: IF (x_return_status = OKC_API.G_RET_STS_SUCCESS) THEN
681: Update_Minor_Version(p_cnlv_rec.dnz_chr_id);
682: END IF;
683: End update_cond_lines;
684:
708: x_msg_count OUT NOCOPY NUMBER,
709: x_msg_data OUT NOCOPY VARCHAR2,
710: p_cnlv_rec IN cnlv_rec_type) IS
711:
712: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
713: i NUMBER := 0;
714: l_fepv_tbl fepv_tbl_type;
715:
716: Cursor fep_cur is
732: x_return_status,
733: x_msg_count,
734: x_msg_data,
735: l_fepv_tbl);
736: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
737: raise G_EXCEPTION_HALT_VALIDATION;
738: ELSE
739: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
740: l_return_status := x_return_status;
735: l_fepv_tbl);
736: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
737: raise G_EXCEPTION_HALT_VALIDATION;
738: ELSE
739: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
740: l_return_status := x_return_status;
741: END IF;
742: END IF;
743: END IF;
749: x_return_status,
750: x_msg_count,
751: x_msg_data,
752: p_cnlv_rec);
753: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
754: raise G_EXCEPTION_HALT_VALIDATION;
755: ELSE
756: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
757: l_return_status := x_return_status;
752: p_cnlv_rec);
753: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
754: raise G_EXCEPTION_HALT_VALIDATION;
755: ELSE
756: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
757: l_return_status := x_return_status;
758: END IF;
759: END IF;
760:
757: l_return_status := x_return_status;
758: END IF;
759: END IF;
760:
761: IF (x_return_status = OKC_API.G_RET_STS_SUCCESS) THEN
762: Update_Minor_Version(p_cnlv_rec.dnz_chr_id);
763: END IF;
764: EXCEPTION
765: WHEN G_EXCEPTION_HALT_VALIDATION THEN
765: WHEN G_EXCEPTION_HALT_VALIDATION THEN
766: Null;
767:
768: WHEN OTHERS THEN
769: OKC_API.set_message(p_app_name => g_app_name,
770: p_msg_name => g_unexpected_error,
771: p_token1 => g_sqlcode_token,
772: p_token1_value => sqlcode,
773: p_token2 => g_sqlerrm_token,
771: p_token1 => g_sqlcode_token,
772: p_token1_value => sqlcode,
773: p_token2 => g_sqlerrm_token,
774: p_token2_value => sqlerrm);
775: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
776: End delete_cond_lines;
777:
778: PROCEDURE delete_cond_lines(
779: p_api_version IN NUMBER,
1246: x_msg_data,
1247: p_fepv_rec,
1248: x_fepv_rec);
1249:
1250: IF (x_return_status = OKC_API.G_RET_STS_SUCCESS) THEN
1251: Update_Minor_Version(p_fepv_rec.dnz_chr_id);
1252: END IF;
1253: End create_func_exprs;
1254:
1322: x_msg_data,
1323: p_fepv_rec,
1324: x_fepv_rec);
1325:
1326: IF (x_return_status = OKC_API.G_RET_STS_SUCCESS) THEN
1327: Update_Minor_Version(p_fepv_rec.dnz_chr_id);
1328: END IF;
1329: End update_func_exprs;
1330:
1362: x_msg_count,
1363: x_msg_data,
1364: p_fepv_rec);
1365:
1366: IF (x_return_status = OKC_API.G_RET_STS_SUCCESS) THEN
1367: Update_Minor_Version(p_fepv_rec.dnz_chr_id);
1368: END IF;
1369: End delete_func_exprs;
1370: