6: l_api_version NUMBER := 1;
7: l_init_msg_list VARCHAR2(1) := 'T';
8: l_msg_count NUMBER;
9: l_msg_data VARCHAR2(2000);
10: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
11:
12: -- Start of comments
13: -- BUG#4122038 HKAMDAR 10-FEB-2005 Part 1
14: -- Procedure Name : is_rule_allowed
53: -- SELECT ID
54: -- FROM OKC_ARTICLE_TRANS_V
55: -- WHERE dnz_chr_id = p_id;
56: --Begin
57: -- l_return_status := OKC_API.G_RET_STS_SUCCESS;
58: --
59: -- FOR rec IN l_atn_csr(p_chr_id)
60: -- LOOP
61: -- l_atnv_tbl_in(1).ID := rec.id;
67: -- x_msg_data => l_msg_data,
68: -- p_atnv_tbl => l_atnv_tbl_in);
69: --
70: -- If (l_return_status <> 'S') Then
71: -- OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
72: -- p_msg_name => G_CANNOT_DELETE,
73: -- p_token1 => G_TABLE_NAME_TOKEN,
74: -- p_token1_value => 'Article Translations',
75: -- p_token2 => G_SQLCODE_TOKEN,
83: -- EXCEPTION
84: -- -- other appropriate handlers
85: -- When others then
86: -- -- store SQL error message on message stack
87: -- OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
88: -- p_msg_name => G_UNEXPECTED_ERROR,
89: -- p_token1 => G_SQLCODE_TOKEN,
90: -- p_token1_value => sqlcode,
91: -- p_token2 => G_SQLERRM_TOKEN,
91: -- p_token2 => G_SQLERRM_TOKEN,
92: -- p_token2_value => sqlerrm);
93: --
94: -- -- notify UNEXPECTED error
95: -- l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
96: -- return l_return_status;
97: --END DELETE_ARTICLE_TRANS;
98:
99: --Function DELETE_CONDITION_HEADERS
107: FROM OKC_CONDITION_HEADERS_V
108: WHERE dnz_chr_id = p_id;
109:
110: Begin
111: l_return_status := OKC_API.G_RET_STS_SUCCESS;
112:
113: FOR rec IN l_cnhv_csr(p_chr_id)
114: LOOP
115: l_cnhv_tbl_in(1).ID := rec.id;
122: x_msg_data => l_msg_data,
123: p_cnhv_tbl => l_cnhv_tbl_in);
124:
125: If (l_return_status <> 'S') Then
126: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
127: p_msg_name => G_CANNOT_DELETE,
128: p_token1 => G_TABLE_NAME_TOKEN,
129: p_token1_value => 'Condition Headers',
130: p_token2 => G_SQLCODE_TOKEN,
138: EXCEPTION
139: -- other appropriate handlers
140: When others then
141: -- store SQL error message on message stack
142: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
143: p_msg_name => G_UNEXPECTED_ERROR,
144: p_token1 => G_SQLCODE_TOKEN,
145: p_token1_value => sqlcode,
146: p_token2 => G_SQLERRM_TOKEN,
146: p_token2 => G_SQLERRM_TOKEN,
147: p_token2_value => sqlerrm);
148:
149: -- notify UNEXPECTED error
150: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
151: return l_return_status;
152: END DELETE_CONDITION_HEADERS;
153:
154: --Function DELETE_CONDITION_LINES
162: FROM OKC_CONDITION_LINES_V
163: WHERE dnz_chr_id= p_id;
164:
165: Begin
166: l_return_status := OKC_API.G_RET_STS_SUCCESS;
167:
168: FOR rec IN l_cnlb_csr(p_chr_id)
169: LOOP
170: l_cnlv_tbl_in(1).ID := rec.id;
177: x_msg_data => l_msg_data,
178: p_cnlv_tbl => l_cnlv_tbl_in);
179:
180: If (l_return_status <> 'S') Then
181: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
182: p_msg_name => G_CANNOT_DELETE,
183: p_token1 => G_TABLE_NAME_TOKEN,
184: p_token1_value => 'Condition Lines',
185: p_token2 => G_SQLCODE_TOKEN,
193: EXCEPTION
194: -- other appropriate handlers
195: When others then
196: -- store SQL error message on message stack
197: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
198: p_msg_name => G_UNEXPECTED_ERROR,
199: p_token1 => G_SQLCODE_TOKEN,
200: p_token1_value => sqlcode,
201: p_token2 => G_SQLERRM_TOKEN,
201: p_token2 => G_SQLERRM_TOKEN,
202: p_token2_value => sqlerrm);
203:
204: -- notify UNEXPECTED error
205: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
206: return l_return_status;
207: END DELETE_CONDITION_LINES;
208:
209: ----
217: FROM OKC_PRICE_ADJUSTMENTS_V
218: WHERE chr_id= p_id;
219:
220: Begin
221: l_return_status := OKC_API.G_RET_STS_SUCCESS;
222:
223: FOR rec IN l_patb_csr(p_chr_id)
224: LOOP
225: l_patv_tbl_in(1).ID := rec.id;
236: x_msg_data => l_msg_data,
237: p_patv_tbl => l_patv_tbl_in);
238:
239: If (l_return_status <> 'S') Then
240: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
241: p_msg_name => G_CANNOT_DELETE,
242: p_token1 => G_TABLE_NAME_TOKEN,
243: p_token1_value => 'Condition Lines',
244: p_token2 => G_SQLCODE_TOKEN,
252: EXCEPTION
253: -- other appropriate handlers
254: When others then
255: -- store SQL error message on message stack
256: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
257: p_msg_name => G_UNEXPECTED_ERROR,
258: p_token1 => G_SQLCODE_TOKEN,
259: p_token1_value => sqlcode,
260: p_token2 => G_SQLERRM_TOKEN,
260: p_token2 => G_SQLERRM_TOKEN,
261: p_token2_value => sqlerrm);
262:
263: -- notify UNEXPECTED error
264: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
265: return l_return_status;
266: END DELETE_PRICE_ADJUSTMENTS;
267:
268: ----
284: );
285:
286:
287: Begin
288: l_return_status := OKC_API.G_RET_STS_SUCCESS;
289:
290: FOR rec IN l_pacb_csr(p_chr_id)
291: LOOP
292: l_pacv_tbl_in(1).ID := rec.id;
299: x_msg_data => l_msg_data,
300: p_pacv_tbl => l_pacv_tbl_in);
301:
302: If (l_return_status <> 'S') Then
303: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
304: p_msg_name => G_CANNOT_DELETE,
305: p_token1 => G_TABLE_NAME_TOKEN,
306: p_token1_value => 'Condition Lines',
307: p_token2 => G_SQLCODE_TOKEN,
315: EXCEPTION
316: -- other appropriate handlers
317: When others then
318: -- store SQL error message on message stack
319: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
320: p_msg_name => G_UNEXPECTED_ERROR,
321: p_token1 => G_SQLCODE_TOKEN,
322: p_token1_value => sqlcode,
323: p_token2 => G_SQLERRM_TOKEN,
323: p_token2 => G_SQLERRM_TOKEN,
324: p_token2_value => sqlerrm);
325:
326: -- notify UNEXPECTED error
327: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
328: return l_return_status;
329: END DELETE_PRICE_ADJ_ASSOCS;
330:
331: ------
342: WHERE chr_id = p_id
343: );
344:
345: Begin
346: l_return_status := OKC_API.G_RET_STS_SUCCESS;
347:
348: FOR rec IN l_paab_csr(p_chr_id)
349: LOOP
350: l_paav_tbl_in(1).ID := rec.id;
357: x_msg_data => l_msg_data,
358: p_paav_tbl => l_paav_tbl_in);
359:
360: If (l_return_status <> 'S') Then
361: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
362: p_msg_name => G_CANNOT_DELETE,
363: p_token1 => G_TABLE_NAME_TOKEN,
364: p_token1_value => 'Condition Lines',
365: p_token2 => G_SQLCODE_TOKEN,
373: EXCEPTION
374: -- other appropriate handlers
375: When others then
376: -- store SQL error message on message stack
377: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
378: p_msg_name => G_UNEXPECTED_ERROR,
379: p_token1 => G_SQLCODE_TOKEN,
380: p_token1_value => sqlcode,
381: p_token2 => G_SQLERRM_TOKEN,
381: p_token2 => G_SQLERRM_TOKEN,
382: p_token2_value => sqlerrm);
383:
384: -- notify UNEXPECTED error
385: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
386: return l_return_status;
387: END DELETE_PRICE_ADJ_ATTRIBS;
388:
389: ---This code is commented out for Bug.1850500
399: FROM OKC_PRICE_ATT_VALUES_V
400: WHERE chr_id= p_id;
401:
402: Begin
403: l_return_status := OKC_API.G_RET_STS_SUCCESS;
404:
405: FOR rec IN l_pavb_csr(p_chr_id)
406: LOOP
407: l_pavv_tbl_in(1).ID := rec.id;
414: x_msg_data => l_msg_data,
415: p_pavv_tbl => l_pavv_tbl_in);
416:
417: If (l_return_status <> 'S') Then
418: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
419: p_msg_name => G_CANNOT_DELETE,
420: p_token1 => G_TABLE_NAME_TOKEN,
421: p_token1_value => 'Condition Lines',
422: p_token2 => G_SQLCODE_TOKEN,
430: EXCEPTION
431: -- other appropriate handlers
432: When others then
433: -- store SQL error message on message stack
434: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
435: p_msg_name => G_UNEXPECTED_ERROR,
436: p_token1 => G_SQLCODE_TOKEN,
437: p_token1_value => sqlcode,
438: p_token2 => G_SQLERRM_TOKEN,
438: p_token2 => G_SQLERRM_TOKEN,
439: p_token2_value => sqlerrm);
440:
441: -- notify UNEXPECTED error
442: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
443: return l_return_status;
444: END DELETE_PRICE_ATT_VALUES;
445:
446:
461: FROM OKC_CONTACTS_V
462: WHERE dnz_chr_id = p_id;
463:
464: Begin
465: l_return_status := OKC_API.G_RET_STS_SUCCESS;
466:
467: FOR rec IN l_ctc_csr(p_chr_id)
468: LOOP
469:
477: x_msg_data => l_msg_data,
478: p_ctcv_tbl => l_ctcv_tbl_in);
479:
480: If (l_return_status <> 'S') Then
481: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
482: p_msg_name => G_CANNOT_DELETE,
483: p_token1 => G_TABLE_NAME_TOKEN,
484: p_token1_value => 'Contacts',
485: p_token2 => G_SQLCODE_TOKEN,
493: EXCEPTION
494: -- other appropriate handlers
495: When others then
496: -- store SQL error message on message stack
497: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
498: p_msg_name => G_UNEXPECTED_ERROR,
499: p_token1 => G_SQLCODE_TOKEN,
500: p_token1_value => sqlcode,
501: p_token2 => G_SQLERRM_TOKEN,
501: p_token2 => G_SQLERRM_TOKEN,
502: p_token2_value => sqlerrm);
503:
504: -- notify UNEXPECTED error
505: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
506: return l_return_status;
507: END DELETE_CONTACTS;
508:
509: /*
521: WHERE dnz_chr_id = p_id;
522:
523: Begin
524:
525: l_return_status := OKC_API.G_RET_STS_SUCCESS;
526:
527: FOR rec IN l_ctiv_csr(p_chr_id)
528: LOOP
529: l_ctiv_tbl_in(1).RUL_ID := rec.rul_id;
537: x_msg_data => l_msg_data,
538: p_ctiv_tbl => l_ctiv_tbl_in);
539:
540: If (l_return_status <> 'S') Then
541: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
542: p_msg_name => G_CANNOT_DELETE,
543: p_token1 => G_TABLE_NAME_TOKEN,
544: p_token1_value => 'Cover Times',
545: p_token2 => G_SQLCODE_TOKEN,
553: EXCEPTION
554: -- other appropriate handlers
555: When others then
556: -- store SQL error message on message stack
557: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
558: p_msg_name => G_UNEXPECTED_ERROR,
559: p_token1 => G_SQLCODE_TOKEN,
560: p_token1_value => sqlcode,
561: p_token2 => G_SQLERRM_TOKEN,
561: p_token2 => G_SQLERRM_TOKEN,
562: p_token2_value => sqlerrm);
563:
564: -- notify UNEXPECTED error
565: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
566: return l_return_status;
567: END DELETE_COVER_TIMES;
568: */
569:
578: FROM OKC_FUNCTION_EXPR_PARAMS_V
579: WHERE dnz_chr_id = p_id;
580:
581: Begin
582: l_return_status := OKC_API.G_RET_STS_SUCCESS;
583:
584: FOR rec IN l_fepv_csr(p_chr_id)
585: LOOP
586:
594: x_msg_data => l_msg_data,
595: p_fepv_tbl => l_fepv_tbl_in);
596:
597: If (l_return_status <> 'S') Then
598: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
599: p_msg_name => G_CANNOT_DELETE,
600: p_token1 => G_TABLE_NAME_TOKEN,
601: p_token1_value => 'Function Exp. Parameters',
602: p_token2 => G_SQLCODE_TOKEN,
610: EXCEPTION
611: -- other appropriate handlers
612: When others then
613: -- store SQL error message on message stack
614: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
615: p_msg_name => G_UNEXPECTED_ERROR,
616: p_token1 => G_SQLCODE_TOKEN,
617: p_token1_value => sqlcode,
618: p_token2 => G_SQLERRM_TOKEN,
618: p_token2 => G_SQLERRM_TOKEN,
619: p_token2_value => sqlerrm);
620:
621: -- notify UNEXPECTED error
622: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
623: return l_return_status;
624: END DELETE_FUNCTION_EXPR_PARAMS;
625:
626:
636: WHERE dnz_chr_id = p_id;
637:
638: Begin
639:
640: l_return_status := OKC_API.G_RET_STS_SUCCESS;
641:
642: FOR rec IN l_gvev_csr(p_chr_id)
643: LOOP
644:
653: p_gvev_tbl => l_gvev_tbl_in
654: );
655:
656: If (l_return_status <> 'S') Then
657: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
658: p_msg_name => G_CANNOT_DELETE,
659: p_token1 => G_TABLE_NAME_TOKEN,
660: p_token1_value => 'Governances',
661: p_token2 => G_SQLCODE_TOKEN,
669: EXCEPTION
670: -- other appropriate handlers
671: When others then
672: -- store SQL error message on message stack
673: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
674: p_msg_name => G_UNEXPECTED_ERROR,
675: p_token1 => G_SQLCODE_TOKEN,
676: p_token1_value => sqlcode,
677: p_token2 => G_SQLERRM_TOKEN,
677: p_token2 => G_SQLERRM_TOKEN,
678: p_token2_value => sqlerrm);
679:
680: -- notify UNEXPECTED error
681: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
682: return l_return_status;
683: END DELETE_GOVERNANCES;
684:
685: --Function DELETE_K_ACCESSES
694: WHERE chr_id = p_id;
695:
696: Begin
697:
698: l_return_status := OKC_API.G_RET_STS_SUCCESS;
699:
700: FOR rec IN l_cacv_csr(p_chr_id)
701: LOOP
702: l_cacv_tbl_in(1).ID := rec.id;
710: p_cacv_tbl => l_cacv_tbl_in
711: );
712:
713: If (l_return_status <> 'S') Then
714: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
715: p_msg_name => G_CANNOT_DELETE,
716: p_token1 => G_TABLE_NAME_TOKEN,
717: p_token1_value => 'Contract Accesses',
718: p_token2 => G_SQLCODE_TOKEN,
726: EXCEPTION
727: -- other appropriate handlers
728: When others then
729: -- store SQL error message on message stack
730: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
731: p_msg_name => G_UNEXPECTED_ERROR,
732: p_token1 => G_SQLCODE_TOKEN,
733: p_token1_value => sqlcode,
734: p_token2 => G_SQLERRM_TOKEN,
734: p_token2 => G_SQLERRM_TOKEN,
735: p_token2_value => sqlerrm);
736:
737: -- notify UNEXPECTED error
738: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
739: return l_return_status;
740: END DELETE_K_ACCESSES;
741:
742: --Function DELETE_K_ARTICLES
750: -- WHERE dnz_chr_id = p_id;
751: --
752: --Begin
753: --
754: -- l_return_status := OKC_API.G_RET_STS_SUCCESS;
755: --
756: -- FOR rec IN l_catv_csr(p_chr_id)
757: -- LOOP
758: -- l_catv_tbl_in(1).ID := rec.id;
766: -- p_catv_tbl => l_catv_tbl_in
767: -- );
768: --
769: -- If (l_return_status <> 'S') Then
770: -- OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
771: -- p_msg_name => G_CANNOT_DELETE,
772: -- p_token1 => G_TABLE_NAME_TOKEN,
773: -- p_token1_value => 'Contract Articles',
774: -- p_token2 => G_SQLCODE_TOKEN,
782: -- EXCEPTION
783: -- -- other appropriate handlers
784: -- When others then
785: -- -- store SQL error message on message stack
786: -- OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
787: -- p_msg_name => G_UNEXPECTED_ERROR,
788: -- p_token1 => G_SQLCODE_TOKEN,
789: -- p_token1_value => sqlcode,
790: -- p_token2 => G_SQLERRM_TOKEN,
790: -- p_token2 => G_SQLERRM_TOKEN,
791: -- p_token2_value => sqlerrm);
792: --
793: -- -- notify UNEXPECTED error
794: -- l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
795: -- return l_return_status;
796: --END DELETE_K_ARTICLES;
797:
798: --Function DELETE_K_GRPINGS
805: SELECT ID
806: FROM OKC_K_GRPINGS_V
807: WHERE INCLUDED_CHR_ID = p_id;
808: Begin
809: l_return_status := OKC_API.G_RET_STS_SUCCESS;
810:
811: FOR rec IN l_cgcv_csr(p_chr_id)
812: LOOP
813: l_cgcv_tbl_in(1).ID := rec.id;
821: p_cgcv_tbl => l_cgcv_tbl_in
822: );
823:
824: If (l_return_status <> 'S') Then
825: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
826: p_msg_name => G_CANNOT_DELETE,
827: p_token1 => G_TABLE_NAME_TOKEN,
828: p_token1_value => 'Contract Grouping',
829: p_token2 => G_SQLCODE_TOKEN,
837: EXCEPTION
838: -- other appropriate handlers
839: When others then
840: -- store SQL error message on message stack
841: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
842: p_msg_name => G_UNEXPECTED_ERROR,
843: p_token1 => G_SQLCODE_TOKEN,
844: p_token1_value => sqlcode,
845: p_token2 => G_SQLERRM_TOKEN,
845: p_token2 => G_SQLERRM_TOKEN,
846: p_token2_value => sqlerrm);
847:
848: -- notify UNEXPECTED error
849: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
850: return l_return_status;
851: END DELETE_K_GRPINGS;
852:
853: --Function DELETE_K_HEADERS
857: l_chrv_rec OKC_CONTRACT_PUB.chrv_rec_type;
858: l_clean_relink_flag VARCHAR2(10) := 'CLEAN';
859: Begin
860:
861: l_return_status := OKC_API.G_RET_STS_SUCCESS;
862:
863: l_chrv_rec.ID := p_chr_id;
864:
865: -- clean renewal links
872: p_target_chr_id => p_chr_id,
873: clean_relink_flag => l_clean_relink_flag);
874:
875: If (l_return_status <> 'S') Then
876: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
877: p_msg_name => G_CANNOT_DELETE,
878: p_token1 => G_TABLE_NAME_TOKEN,
879: p_token1_value => 'Contract Header',
880: p_token2 => G_SQLCODE_TOKEN,
893: p_chr_id => p_chr_id
894: );
895:
896: If (l_return_status <> 'S') Then
897: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
898: p_msg_name => G_CANNOT_DELETE,
899: p_token1 => G_TABLE_NAME_TOKEN,
900: p_token1_value => 'Contract Header',
901: p_token2 => G_SQLCODE_TOKEN,
913: p_chrv_rec => l_chrv_rec
914: );
915:
916: If (l_return_status <> 'S') Then
917: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
918: p_msg_name => G_CANNOT_DELETE,
919: p_token1 => G_TABLE_NAME_TOKEN,
920: p_token1_value => 'Contract Header',
921: p_token2 => G_SQLCODE_TOKEN,
927: EXCEPTION
928: -- other appropriate handlers
929: When others then
930: -- store SQL error message on message stack
931: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
932: p_msg_name => G_UNEXPECTED_ERROR,
933: p_token1 => G_SQLCODE_TOKEN,
934: p_token1_value => sqlcode,
935: p_token2 => G_SQLERRM_TOKEN,
935: p_token2 => G_SQLERRM_TOKEN,
936: p_token2_value => sqlerrm);
937:
938: -- notify UNEXPECTED error
939: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
940: return l_return_status;
941: END DELETE_K_HEADERS;
942:
943: --Function DELETE_K_ITEMS
952: WHERE dnz_chr_id = p_id;
953:
954: Begin
955:
956: l_return_status := OKC_API.G_RET_STS_SUCCESS;
957:
958: FOR rec IN l_cimv_csr(p_chr_id)
959: LOOP
960: l_cimv_tbl_in(1).ID := rec.id;
968: p_cimv_tbl => l_cimv_tbl_in
969: );
970:
971: If (l_return_status <> 'S') Then
972: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
973: p_msg_name => G_CANNOT_DELETE,
974: p_token1 => G_TABLE_NAME_TOKEN,
975: p_token1_value => 'Contract Items',
976: p_token2 => G_SQLCODE_TOKEN,
984: EXCEPTION
985: -- other appropriate handlers
986: When others then
987: -- store SQL error message on message stack
988: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
989: p_msg_name => G_UNEXPECTED_ERROR,
990: p_token1 => G_SQLCODE_TOKEN,
991: p_token1_value => sqlcode,
992: p_token2 => G_SQLERRM_TOKEN,
992: p_token2 => G_SQLERRM_TOKEN,
993: p_token2_value => sqlerrm);
994:
995: -- notify UNEXPECTED error
996: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
997: return l_return_status;
998: END DELETE_K_ITEMS;
999:
1000: --Function DELETE_K_LINES
1012:
1013:
1014: begin
1015:
1016: l_return_status := OKC_API.G_RET_STS_SUCCESS;
1017: --Fix for Bug 5282502
1018: delete from okc_ancestrys
1019: where cle_id in (
1020: select Ks.cle_id
1035: x_msg_data => l_msg_data,
1036: p_clev_tbl => l_clev_tbl_in);
1037:
1038: If (l_return_status <> 'S') Then
1039: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
1040: p_msg_name => G_CANNOT_DELETE,
1041: p_token1 => G_TABLE_NAME_TOKEN,
1042: p_token1_value => 'Contract Lines',
1043: p_token2 => G_SQLCODE_TOKEN,
1052: EXCEPTION
1053: -- other appropriate handlers
1054: When others then
1055: -- store SQL error message on message stack
1056: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
1057: p_msg_name => G_UNEXPECTED_ERROR,
1058: p_token1 => G_SQLCODE_TOKEN,
1059: p_token1_value => sqlcode,
1060: p_token2 => G_SQLERRM_TOKEN,
1060: p_token2 => G_SQLERRM_TOKEN,
1061: p_token2_value => sqlerrm);
1062:
1063: -- notify UNEXPECTED error
1064: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1065: return l_return_status;
1066: END DELETE_K_LINES;
1067:
1068: --Function DELETE_K_PARTY_ROLES
1077: WHERE dnz_chr_id = p_id;
1078:
1079: Begin
1080:
1081: l_return_status := OKC_API.G_RET_STS_SUCCESS;
1082:
1083: FOR rec IN l_cplv_csr(p_chr_id)
1084: LOOP
1085: l_cplv_tbl_in(1).ID := rec.id;
1093: p_cplv_tbl => l_cplv_tbl_in
1094: );
1095:
1096: If (l_return_status <> 'S') Then
1097: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
1098: p_msg_name => G_CANNOT_DELETE,
1099: p_token1 => G_TABLE_NAME_TOKEN,
1100: p_token1_value => 'Contract Party Roles',
1101: p_token2 => G_SQLCODE_TOKEN,
1109: EXCEPTION
1110: -- other appropriate handlers
1111: When others then
1112: -- store SQL error message on message stack
1113: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
1114: p_msg_name => G_UNEXPECTED_ERROR,
1115: p_token1 => G_SQLCODE_TOKEN,
1116: p_token1_value => sqlcode,
1117: p_token2 => G_SQLERRM_TOKEN,
1117: p_token2 => G_SQLERRM_TOKEN,
1118: p_token2_value => sqlerrm);
1119:
1120: -- notify UNEXPECTED error
1121: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1122: return l_return_status;
1123: END DELETE_K_PARTY_ROLES;
1124:
1125:
1135: WHERE chr_id = p_id;
1136:
1137: Begin
1138:
1139: l_return_status := OKC_API.G_RET_STS_SUCCESS;
1140:
1141: FOR rec IN l_cpsv_csr(p_chr_id)
1142: LOOP
1143: l_cpsv_tbl_in(1).ID := rec.id;
1151: p_cpsv_tbl => l_cpsv_tbl_in
1152: );
1153:
1154: If (l_return_status <> 'S') Then
1155: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
1156: p_msg_name => G_CANNOT_DELETE,
1157: p_token1 => G_TABLE_NAME_TOKEN,
1158: p_token1_value => 'Contract Processes',
1159: p_token2 => G_SQLCODE_TOKEN,
1167: EXCEPTION
1168: -- other appropriate handlers
1169: When others then
1170: -- store SQL error message on message stack
1171: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
1172: p_msg_name => G_UNEXPECTED_ERROR,
1173: p_token1 => G_SQLCODE_TOKEN,
1174: p_token1_value => sqlcode,
1175: p_token2 => G_SQLERRM_TOKEN,
1175: p_token2 => G_SQLERRM_TOKEN,
1176: p_token2_value => sqlerrm);
1177:
1178: -- notify UNEXPECTED error
1179: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1180: return l_return_status;
1181: END DELETE_K_PROCESSES;
1182:
1183:
1193: WHERE dnz_chr_id = p_id;
1194:
1195: Begin
1196:
1197: l_return_status := OKC_API.G_RET_STS_SUCCESS;
1198:
1199: FOR rec IN l_oatv_csr(p_chr_id)
1200: LOOP
1201: l_oatv_tbl_in(1).ID := rec.id;
1209: p_oatv_tbl => l_oatv_tbl_in
1210: );
1211:
1212: If (l_return_status <> 'S') Then
1213: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
1214: p_msg_name => G_CANNOT_DELETE,
1215: p_token1 => G_TABLE_NAME_TOKEN,
1216: p_token1_value => 'Outcome Arguments',
1217: p_token2 => G_SQLCODE_TOKEN,
1225: EXCEPTION
1226: -- other appropriate handlers
1227: When others then
1228: -- store SQL error message on message stack
1229: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
1230: p_msg_name => G_UNEXPECTED_ERROR,
1231: p_token1 => G_SQLCODE_TOKEN,
1232: p_token1_value => sqlcode,
1233: p_token2 => G_SQLERRM_TOKEN,
1233: p_token2 => G_SQLERRM_TOKEN,
1234: p_token2_value => sqlerrm);
1235:
1236: -- notify UNEXPECTED error
1237: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1238: return l_return_status;
1239: END DELETE_OUTCOME_ARGUMENTS;
1240:
1241: --Function DELETE_OUTCOMES
1250: WHERE dnz_chr_id = p_id;
1251:
1252: Begin
1253:
1254: l_return_status := OKC_API.G_RET_STS_SUCCESS;
1255:
1256: FOR rec IN l_ocev_csr(p_chr_id)
1257: LOOP
1258: l_ocev_tbl_in(1).ID := rec.id;
1266: p_ocev_tbl => l_ocev_tbl_in
1267: );
1268:
1269: If (l_return_status <> 'S') Then
1270: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
1271: p_msg_name => G_CANNOT_DELETE,
1272: p_token1 => G_TABLE_NAME_TOKEN,
1273: p_token1_value => 'Outcomes',
1274: p_token2 => G_SQLCODE_TOKEN,
1282: EXCEPTION
1283: -- other appropriate handlers
1284: When others then
1285: -- store SQL error message on message stack
1286: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
1287: p_msg_name => G_UNEXPECTED_ERROR,
1288: p_token1 => G_SQLCODE_TOKEN,
1289: p_token1_value => sqlcode,
1290: p_token2 => G_SQLERRM_TOKEN,
1290: p_token2 => G_SQLERRM_TOKEN,
1291: p_token2_value => sqlerrm);
1292:
1293: -- notify UNEXPECTED error
1294: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1295: return l_return_status;
1296: END DELETE_OUTCOMES;
1297:
1298: /*
1310: WHERE dnz_chr_id = p_id;
1311:
1312: Begin
1313:
1314: l_return_status := OKC_API.G_RET_STS_SUCCESS;
1315:
1316: FOR rec IN l_rilv_csr(p_chr_id)
1317: LOOP
1318: l_rilv_tbl_in(1).TVE_ID := rec.TVE_ID;
1327: p_rilv_tbl => l_rilv_tbl_in
1328: );
1329:
1330: If (l_return_status <> 'S') Then
1331: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
1332: p_msg_name => G_CANNOT_DELETE,
1333: p_token1 => G_TABLE_NAME_TOKEN,
1334: p_token1_value => 'Reaction Intervals',
1335: p_token2 => G_SQLCODE_TOKEN,
1343: EXCEPTION
1344: -- other appropriate handlers
1345: When others then
1346: -- store SQL error message on message stack
1347: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
1348: p_msg_name => G_UNEXPECTED_ERROR,
1349: p_token1 => G_SQLCODE_TOKEN,
1350: p_token1_value => sqlcode,
1351: p_token2 => G_SQLERRM_TOKEN,
1351: p_token2 => G_SQLERRM_TOKEN,
1352: p_token2_value => sqlerrm);
1353:
1354: -- notify UNEXPECTED error
1355: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1356: return l_return_status;
1357: END DELETE_REACT_INTERVALS;
1358: */
1359:
1369: WHERE dnz_chr_id = p_id;
1370:
1371: Begin
1372:
1373: l_return_status := OKC_API.G_RET_STS_SUCCESS;
1374:
1375: FOR rec IN l_rmpv_csr(p_chr_id)
1376: LOOP
1377: l_rmpv_tbl_in(1).ID := rec.id;
1385: p_rmpv_tbl => l_rmpv_tbl_in
1386: );
1387:
1388: If (l_return_status <> 'S') Then
1389: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
1390: p_msg_name => G_CANNOT_DELETE,
1391: p_token1 => G_TABLE_NAME_TOKEN,
1392: p_token1_value => 'Rule Group Party Roles',
1393: p_token2 => G_SQLCODE_TOKEN,
1401: EXCEPTION
1402: -- other appropriate handlers
1403: When others then
1404: -- store SQL error message on message stack
1405: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
1406: p_msg_name => G_UNEXPECTED_ERROR,
1407: p_token1 => G_SQLCODE_TOKEN,
1408: p_token1_value => sqlcode,
1409: p_token2 => G_SQLERRM_TOKEN,
1409: p_token2 => G_SQLERRM_TOKEN,
1410: p_token2_value => sqlerrm);
1411:
1412: -- notify UNEXPECTED error
1413: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1414: return l_return_status;
1415: END DELETE_RG_PARTY_ROLES;
1416:
1417: --Function DELETE_RULE_GROUPS
1426: WHERE dnz_chr_id = p_id;
1427:
1428: Begin
1429:
1430: l_return_status := OKC_API.G_RET_STS_SUCCESS;
1431:
1432: FOR rec IN l_rgpv_csr(p_chr_id)
1433: LOOP
1434: l_rgpv_tbl_in(1).ID := rec.id;
1442: p_rgpv_tbl => l_rgpv_tbl_in
1443: );
1444:
1445: If (l_return_status <> 'S') Then
1446: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
1447: p_msg_name => G_CANNOT_DELETE,
1448: p_token1 => G_TABLE_NAME_TOKEN,
1449: p_token1_value => 'Rule Groups',
1450: p_token2 => G_SQLCODE_TOKEN,
1458: EXCEPTION
1459: -- other appropriate handlers
1460: When others then
1461: -- store SQL error message on message stack
1462: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
1463: p_msg_name => G_UNEXPECTED_ERROR,
1464: p_token1 => G_SQLCODE_TOKEN,
1465: p_token1_value => sqlcode,
1466: p_token2 => G_SQLERRM_TOKEN,
1466: p_token2 => G_SQLERRM_TOKEN,
1467: p_token2_value => sqlerrm);
1468:
1469: -- notify UNEXPECTED error
1470: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1471: return l_return_status;
1472: END DELETE_RULE_GROUPS;
1473:
1474: --Function DELETE_RULES
1483: WHERE dnz_chr_id = p_id;
1484:
1485: Begin
1486:
1487: l_return_status := OKC_API.G_RET_STS_SUCCESS;
1488:
1489: FOR rec IN l_rulv_csr(p_chr_id)
1490: LOOP
1491: l_rulv_tbl_in(1).ID := rec.id;
1499: p_rulv_tbl => l_rulv_tbl_in
1500: );
1501:
1502: If (l_return_status <> 'S') Then
1503: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
1504: p_msg_name => G_CANNOT_DELETE,
1505: p_token1 => G_TABLE_NAME_TOKEN,
1506: p_token1_value => 'Rules',
1507: p_token2 => G_SQLCODE_TOKEN,
1515: EXCEPTION
1516: -- other appropriate handlers
1517: When others then
1518: -- store SQL error message on message stack
1519: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
1520: p_msg_name => G_UNEXPECTED_ERROR,
1521: p_token1 => G_SQLCODE_TOKEN,
1522: p_token1_value => sqlcode,
1523: p_token2 => G_SQLERRM_TOKEN,
1523: p_token2 => G_SQLERRM_TOKEN,
1524: p_token2_value => sqlerrm);
1525:
1526: -- notify UNEXPECTED error
1527: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1528: return l_return_status;
1529: END DELETE_RULES;
1530:
1531: /*
1543: WHERE dnz_chr_id = p_id;
1544:
1545: Begin
1546:
1547: l_return_status := OKC_API.G_RET_STS_SUCCESS;
1548:
1549: FOR rec IN l_tavv_csr(p_chr_id)
1550: LOOP
1551: l_tavv_tbl_in(1).ID := rec.id;
1559: p_tavv_tbl => l_tavv_tbl_in
1560: );
1561:
1562: If (l_return_status <> 'S') Then
1563: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
1564: p_msg_name => G_CANNOT_DELETE,
1565: p_token1 => G_TABLE_NAME_TOKEN,
1566: p_token1_value => 'Timevalues',
1567: p_token2 => G_SQLCODE_TOKEN,
1575: EXCEPTION
1576: -- other appropriate handlers
1577: When others then
1578: -- store SQL error message on message stack
1579: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
1580: p_msg_name => G_UNEXPECTED_ERROR,
1581: p_token1 => G_SQLCODE_TOKEN,
1582: p_token1_value => sqlcode,
1583: p_token2 => G_SQLERRM_TOKEN,
1583: p_token2 => G_SQLERRM_TOKEN,
1584: p_token2_value => sqlerrm);
1585:
1586: -- notify UNEXPECTED error
1587: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1588: return l_return_status;
1589: END DELETE_TIMEVALUES;
1590: */
1591:
1609: -- BUG#4122038 HKAMDAR End Part 2
1610:
1611: BEGIN
1612:
1613: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1614: G_PKG_NAME,
1615: p_init_msg_list,
1616: l_api_version,
1617: p_api_version,
1616: l_api_version,
1617: p_api_version,
1618: '_PVT',
1619: x_return_status);
1620: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1621: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1622: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1623: RAISE OKC_API.G_EXCEPTION_ERROR;
1624: END IF;
1617: p_api_version,
1618: '_PVT',
1619: x_return_status);
1620: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1621: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1622: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1623: RAISE OKC_API.G_EXCEPTION_ERROR;
1624: END IF;
1625: l_delete_allowed := OKC_ASSENT_PUB.HEADER_OPERATION_ALLOWED(p_header_id => p_chrv_rec.id,
1618: '_PVT',
1619: x_return_status);
1620: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1621: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1622: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1623: RAISE OKC_API.G_EXCEPTION_ERROR;
1624: END IF;
1625: l_delete_allowed := OKC_ASSENT_PUB.HEADER_OPERATION_ALLOWED(p_header_id => p_chrv_rec.id,
1626: p_opn_code => 'DELETE');
1619: x_return_status);
1620: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1621: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1622: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1623: RAISE OKC_API.G_EXCEPTION_ERROR;
1624: END IF;
1625: l_delete_allowed := OKC_ASSENT_PUB.HEADER_OPERATION_ALLOWED(p_header_id => p_chrv_rec.id,
1626: p_opn_code => 'DELETE');
1627:
1632:
1633: --delete Contacts
1634: l_return_status := Delete_contacts(p_chrv_rec.ID);
1635: --- If any errors happen abort API
1636: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1637: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1638: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1639: RAISE OKC_API.G_EXCEPTION_ERROR;
1640: END IF;
1633: --delete Contacts
1634: l_return_status := Delete_contacts(p_chrv_rec.ID);
1635: --- If any errors happen abort API
1636: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1637: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1638: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1639: RAISE OKC_API.G_EXCEPTION_ERROR;
1640: END IF;
1641:
1634: l_return_status := Delete_contacts(p_chrv_rec.ID);
1635: --- If any errors happen abort API
1636: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1637: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1638: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1639: RAISE OKC_API.G_EXCEPTION_ERROR;
1640: END IF;
1641:
1642: --delete price att values
1635: --- If any errors happen abort API
1636: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1637: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1638: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1639: RAISE OKC_API.G_EXCEPTION_ERROR;
1640: END IF;
1641:
1642: --delete price att values
1643: l_return_status := Delete_Price_Att_Values(p_chrv_rec.ID);
1641:
1642: --delete price att values
1643: l_return_status := Delete_Price_Att_Values(p_chrv_rec.ID);
1644: --- If any errors happen abort API
1645: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1646: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1647: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1648: RAISE OKC_API.G_EXCEPTION_ERROR;
1649: END IF;
1642: --delete price att values
1643: l_return_status := Delete_Price_Att_Values(p_chrv_rec.ID);
1644: --- If any errors happen abort API
1645: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1646: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1647: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1648: RAISE OKC_API.G_EXCEPTION_ERROR;
1649: END IF;
1650:
1643: l_return_status := Delete_Price_Att_Values(p_chrv_rec.ID);
1644: --- If any errors happen abort API
1645: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1646: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1647: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1648: RAISE OKC_API.G_EXCEPTION_ERROR;
1649: END IF;
1650:
1651: /****For Bug.1850500.*********************************************
1644: --- If any errors happen abort API
1645: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1646: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1647: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1648: RAISE OKC_API.G_EXCEPTION_ERROR;
1649: END IF;
1650:
1651: /****For Bug.1850500.*********************************************
1652: --delete price adjustment attributes
1651: /****For Bug.1850500.*********************************************
1652: --delete price adjustment attributes
1653: l_return_status := Delete_Price_Adj_Attribs(p_chrv_rec.ID);
1654: --- If any errors happen abort API
1655: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1656: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1657: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1658: RAISE OKC_API.G_EXCEPTION_ERROR;
1659: END IF;
1652: --delete price adjustment attributes
1653: l_return_status := Delete_Price_Adj_Attribs(p_chrv_rec.ID);
1654: --- If any errors happen abort API
1655: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1656: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1657: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1658: RAISE OKC_API.G_EXCEPTION_ERROR;
1659: END IF;
1660: *****************************************************************/
1653: l_return_status := Delete_Price_Adj_Attribs(p_chrv_rec.ID);
1654: --- If any errors happen abort API
1655: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1656: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1657: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1658: RAISE OKC_API.G_EXCEPTION_ERROR;
1659: END IF;
1660: *****************************************************************/
1661: /****For Bug.1850500.*********************************************
1654: --- If any errors happen abort API
1655: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1656: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1657: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1658: RAISE OKC_API.G_EXCEPTION_ERROR;
1659: END IF;
1660: *****************************************************************/
1661: /****For Bug.1850500.*********************************************
1662: --delete price adjustment associations
1661: /****For Bug.1850500.*********************************************
1662: --delete price adjustment associations
1663: l_return_status := Delete_Price_Adj_Assocs(p_chrv_rec.ID);
1664: --- If any errors happen abort API
1665: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1666: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1667: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1668: RAISE OKC_API.G_EXCEPTION_ERROR;
1669: END IF;
1662: --delete price adjustment associations
1663: l_return_status := Delete_Price_Adj_Assocs(p_chrv_rec.ID);
1664: --- If any errors happen abort API
1665: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1666: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1667: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1668: RAISE OKC_API.G_EXCEPTION_ERROR;
1669: END IF;
1670: *****************************************************************/
1663: l_return_status := Delete_Price_Adj_Assocs(p_chrv_rec.ID);
1664: --- If any errors happen abort API
1665: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1666: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1667: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1668: RAISE OKC_API.G_EXCEPTION_ERROR;
1669: END IF;
1670: *****************************************************************/
1671:
1664: --- If any errors happen abort API
1665: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1666: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1667: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1668: RAISE OKC_API.G_EXCEPTION_ERROR;
1669: END IF;
1670: *****************************************************************/
1671:
1672: /****For Bug.1850500.*********************************************
1672: /****For Bug.1850500.*********************************************
1673: --delete Price adjustments
1674: l_return_status := Delete_Price_Adjustments(p_chrv_rec.ID);
1675: --- If any errors happen abort API
1676: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1677: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1678: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1679: RAISE OKC_API.G_EXCEPTION_ERROR;
1680: END IF;
1673: --delete Price adjustments
1674: l_return_status := Delete_Price_Adjustments(p_chrv_rec.ID);
1675: --- If any errors happen abort API
1676: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1677: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1678: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1679: RAISE OKC_API.G_EXCEPTION_ERROR;
1680: END IF;
1681: *****************************************************************/
1674: l_return_status := Delete_Price_Adjustments(p_chrv_rec.ID);
1675: --- If any errors happen abort API
1676: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1677: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1678: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1679: RAISE OKC_API.G_EXCEPTION_ERROR;
1680: END IF;
1681: *****************************************************************/
1682: --delete contract party roles
1675: --- If any errors happen abort API
1676: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1677: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1678: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1679: RAISE OKC_API.G_EXCEPTION_ERROR;
1680: END IF;
1681: *****************************************************************/
1682: --delete contract party roles
1683: l_return_status := Delete_k_party_roles(p_chrv_rec.ID);
1682: --delete contract party roles
1683: l_return_status := Delete_k_party_roles(p_chrv_rec.ID);
1684:
1685: --- If any errors happen abort API
1686: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1687: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1688: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1689: RAISE OKC_API.G_EXCEPTION_ERROR;
1690: END IF;
1683: l_return_status := Delete_k_party_roles(p_chrv_rec.ID);
1684:
1685: --- If any errors happen abort API
1686: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1687: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1688: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1689: RAISE OKC_API.G_EXCEPTION_ERROR;
1690: END IF;
1691:
1684:
1685: --- If any errors happen abort API
1686: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1687: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1688: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1689: RAISE OKC_API.G_EXCEPTION_ERROR;
1690: END IF;
1691:
1692: --delete cover times
1685: --- If any errors happen abort API
1686: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1687: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1688: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1689: RAISE OKC_API.G_EXCEPTION_ERROR;
1690: END IF;
1691:
1692: --delete cover times
1693: --Cover times are deleted when rules/rule-groups deleted
1697:
1698: --delete outcome arguments
1699: l_return_status := Delete_outcome_arguments(p_chrv_rec.ID);
1700: --- If any errors happen abort API
1701: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1702: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1703: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1704: RAISE OKC_API.G_EXCEPTION_ERROR;
1705: END IF;
1698: --delete outcome arguments
1699: l_return_status := Delete_outcome_arguments(p_chrv_rec.ID);
1700: --- If any errors happen abort API
1701: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1702: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1703: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1704: RAISE OKC_API.G_EXCEPTION_ERROR;
1705: END IF;
1706:
1699: l_return_status := Delete_outcome_arguments(p_chrv_rec.ID);
1700: --- If any errors happen abort API
1701: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1702: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1703: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1704: RAISE OKC_API.G_EXCEPTION_ERROR;
1705: END IF;
1706:
1707: --delete outcomes
1700: --- If any errors happen abort API
1701: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1702: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1703: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1704: RAISE OKC_API.G_EXCEPTION_ERROR;
1705: END IF;
1706:
1707: --delete outcomes
1708: l_return_status := Delete_outcomes(p_chrv_rec.ID);
1706:
1707: --delete outcomes
1708: l_return_status := Delete_outcomes(p_chrv_rec.ID);
1709: --- If any errors happen abort API
1710: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1711: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1712: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1713: RAISE OKC_API.G_EXCEPTION_ERROR;
1714: END IF;
1707: --delete outcomes
1708: l_return_status := Delete_outcomes(p_chrv_rec.ID);
1709: --- If any errors happen abort API
1710: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1711: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1712: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1713: RAISE OKC_API.G_EXCEPTION_ERROR;
1714: END IF;
1715: /*
1708: l_return_status := Delete_outcomes(p_chrv_rec.ID);
1709: --- If any errors happen abort API
1710: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1711: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1712: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1713: RAISE OKC_API.G_EXCEPTION_ERROR;
1714: END IF;
1715: /*
1716: -- --delete Article trans
1709: --- If any errors happen abort API
1710: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1711: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1712: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1713: RAISE OKC_API.G_EXCEPTION_ERROR;
1714: END IF;
1715: /*
1716: -- --delete Article trans
1717: -- l_return_status := Delete_article_trans(p_chrv_rec.ID);
1716: -- --delete Article trans
1717: -- l_return_status := Delete_article_trans(p_chrv_rec.ID);
1718: --
1719: -- --- If any errors happen abort API
1720: -- IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1721: -- RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1722: -- ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1723: -- RAISE OKC_API.G_EXCEPTION_ERROR;
1724: -- END IF;
1717: -- l_return_status := Delete_article_trans(p_chrv_rec.ID);
1718: --
1719: -- --- If any errors happen abort API
1720: -- IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1721: -- RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1722: -- ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1723: -- RAISE OKC_API.G_EXCEPTION_ERROR;
1724: -- END IF;
1725: */
1718: --
1719: -- --- If any errors happen abort API
1720: -- IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1721: -- RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1722: -- ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1723: -- RAISE OKC_API.G_EXCEPTION_ERROR;
1724: -- END IF;
1725: */
1726:
1719: -- --- If any errors happen abort API
1720: -- IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1721: -- RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1722: -- ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1723: -- RAISE OKC_API.G_EXCEPTION_ERROR;
1724: -- END IF;
1725: */
1726:
1727: -- BUG#4122038 HKAMDAR 10-FEB-2005 Part 3
1734: --delete Rules
1735: l_return_status := Delete_rules(p_chrv_rec.ID);
1736:
1737: --- If any errors happen abort API
1738: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1739: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1740: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1741: RAISE OKC_API.G_EXCEPTION_ERROR;
1742: END IF;
1735: l_return_status := Delete_rules(p_chrv_rec.ID);
1736:
1737: --- If any errors happen abort API
1738: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1739: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1740: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1741: RAISE OKC_API.G_EXCEPTION_ERROR;
1742: END IF;
1743:
1736:
1737: --- If any errors happen abort API
1738: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1739: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1740: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1741: RAISE OKC_API.G_EXCEPTION_ERROR;
1742: END IF;
1743:
1744: --delete RuleGroup party roles
1737: --- If any errors happen abort API
1738: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1739: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1740: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1741: RAISE OKC_API.G_EXCEPTION_ERROR;
1742: END IF;
1743:
1744: --delete RuleGroup party roles
1745: l_return_status := Delete_rg_party_roles(p_chrv_rec.ID);
1744: --delete RuleGroup party roles
1745: l_return_status := Delete_rg_party_roles(p_chrv_rec.ID);
1746:
1747: --- If any errors happen abort API
1748: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1749: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1750: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1751: RAISE OKC_API.G_EXCEPTION_ERROR;
1752: END IF;
1745: l_return_status := Delete_rg_party_roles(p_chrv_rec.ID);
1746:
1747: --- If any errors happen abort API
1748: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1749: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1750: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1751: RAISE OKC_API.G_EXCEPTION_ERROR;
1752: END IF;
1753:
1746:
1747: --- If any errors happen abort API
1748: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1749: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1750: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1751: RAISE OKC_API.G_EXCEPTION_ERROR;
1752: END IF;
1753:
1754: /*
1747: --- If any errors happen abort API
1748: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1749: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1750: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1751: RAISE OKC_API.G_EXCEPTION_ERROR;
1752: END IF;
1753:
1754: /*
1755: -- --delete contract articles
1755: -- --delete contract articles
1756: -- l_return_status := Delete_k_articles(p_chrv_rec.ID);
1757: --
1758: -- --- If any errors happen abort API
1759: -- IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1760: -- RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1761: -- ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1762: -- RAISE OKC_API.G_EXCEPTION_ERROR;
1763: -- END IF;
1756: -- l_return_status := Delete_k_articles(p_chrv_rec.ID);
1757: --
1758: -- --- If any errors happen abort API
1759: -- IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1760: -- RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1761: -- ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1762: -- RAISE OKC_API.G_EXCEPTION_ERROR;
1763: -- END IF;
1764: */
1757: --
1758: -- --- If any errors happen abort API
1759: -- IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1760: -- RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1761: -- ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1762: -- RAISE OKC_API.G_EXCEPTION_ERROR;
1763: -- END IF;
1764: */
1765: --delete Rule Groups
1758: -- --- If any errors happen abort API
1759: -- IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1760: -- RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1761: -- ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1762: -- RAISE OKC_API.G_EXCEPTION_ERROR;
1763: -- END IF;
1764: */
1765: --delete Rule Groups
1766: l_return_status := Delete_rule_groups(p_chrv_rec.ID);
1765: --delete Rule Groups
1766: l_return_status := Delete_rule_groups(p_chrv_rec.ID);
1767:
1768: -- If any errors happen abort API
1769: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1770: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1771: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1772: RAISE OKC_API.G_EXCEPTION_ERROR;
1773: END IF;
1766: l_return_status := Delete_rule_groups(p_chrv_rec.ID);
1767:
1768: -- If any errors happen abort API
1769: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1770: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1771: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1772: RAISE OKC_API.G_EXCEPTION_ERROR;
1773: END IF;
1774:
1767:
1768: -- If any errors happen abort API
1769: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1770: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1771: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1772: RAISE OKC_API.G_EXCEPTION_ERROR;
1773: END IF;
1774:
1775: END IF; -- BUG#4122038 HKAMDAR 10-FEB-2005 Part 4
1768: -- If any errors happen abort API
1769: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1770: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1771: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1772: RAISE OKC_API.G_EXCEPTION_ERROR;
1773: END IF;
1774:
1775: END IF; -- BUG#4122038 HKAMDAR 10-FEB-2005 Part 4
1776:
1777: --delete contract accesses
1778: l_return_status := Delete_k_accesses(p_chrv_rec.ID);
1779:
1780: --- If any errors happen abort API
1781: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1782: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1783: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1784: RAISE OKC_API.G_EXCEPTION_ERROR;
1785: END IF;
1778: l_return_status := Delete_k_accesses(p_chrv_rec.ID);
1779:
1780: --- If any errors happen abort API
1781: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1782: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1783: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1784: RAISE OKC_API.G_EXCEPTION_ERROR;
1785: END IF;
1786:
1779:
1780: --- If any errors happen abort API
1781: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1782: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1783: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1784: RAISE OKC_API.G_EXCEPTION_ERROR;
1785: END IF;
1786:
1787: --delete contract processes
1780: --- If any errors happen abort API
1781: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1782: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1783: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1784: RAISE OKC_API.G_EXCEPTION_ERROR;
1785: END IF;
1786:
1787: --delete contract processes
1788: l_return_status := Delete_k_processes(p_chrv_rec.ID);
1786:
1787: --delete contract processes
1788: l_return_status := Delete_k_processes(p_chrv_rec.ID);
1789: --- If any errors happen abort API
1790: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1791: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1792: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1793: RAISE OKC_API.G_EXCEPTION_ERROR;
1794: END IF;
1787: --delete contract processes
1788: l_return_status := Delete_k_processes(p_chrv_rec.ID);
1789: --- If any errors happen abort API
1790: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1791: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1792: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1793: RAISE OKC_API.G_EXCEPTION_ERROR;
1794: END IF;
1795:
1788: l_return_status := Delete_k_processes(p_chrv_rec.ID);
1789: --- If any errors happen abort API
1790: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1791: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1792: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1793: RAISE OKC_API.G_EXCEPTION_ERROR;
1794: END IF;
1795:
1796: --delete function_expr_params
1789: --- If any errors happen abort API
1790: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1791: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1792: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1793: RAISE OKC_API.G_EXCEPTION_ERROR;
1794: END IF;
1795:
1796: --delete function_expr_params
1797: l_return_status := Delete_function_expr_params(p_chrv_rec.ID);
1795:
1796: --delete function_expr_params
1797: l_return_status := Delete_function_expr_params(p_chrv_rec.ID);
1798: --- If any errors happen abort API
1799: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1800: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1801: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1802: RAISE OKC_API.G_EXCEPTION_ERROR;
1803: END IF;
1796: --delete function_expr_params
1797: l_return_status := Delete_function_expr_params(p_chrv_rec.ID);
1798: --- If any errors happen abort API
1799: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1800: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1801: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1802: RAISE OKC_API.G_EXCEPTION_ERROR;
1803: END IF;
1804:
1797: l_return_status := Delete_function_expr_params(p_chrv_rec.ID);
1798: --- If any errors happen abort API
1799: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1800: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1801: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1802: RAISE OKC_API.G_EXCEPTION_ERROR;
1803: END IF;
1804:
1805: --delete condition lines
1798: --- If any errors happen abort API
1799: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1800: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1801: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1802: RAISE OKC_API.G_EXCEPTION_ERROR;
1803: END IF;
1804:
1805: --delete condition lines
1806: l_return_status := Delete_condition_lines(p_chrv_rec.ID);
1804:
1805: --delete condition lines
1806: l_return_status := Delete_condition_lines(p_chrv_rec.ID);
1807: --- If any errors happen abort API
1808: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1809: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1810: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1811: RAISE OKC_API.G_EXCEPTION_ERROR;
1812: END IF;
1805: --delete condition lines
1806: l_return_status := Delete_condition_lines(p_chrv_rec.ID);
1807: --- If any errors happen abort API
1808: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1809: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1810: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1811: RAISE OKC_API.G_EXCEPTION_ERROR;
1812: END IF;
1813:
1806: l_return_status := Delete_condition_lines(p_chrv_rec.ID);
1807: --- If any errors happen abort API
1808: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1809: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1810: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1811: RAISE OKC_API.G_EXCEPTION_ERROR;
1812: END IF;
1813:
1814: --delete condition headers
1807: --- If any errors happen abort API
1808: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1809: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1810: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1811: RAISE OKC_API.G_EXCEPTION_ERROR;
1812: END IF;
1813:
1814: --delete condition headers
1815: l_return_status := Delete_condition_headers(p_chrv_rec.ID);
1813:
1814: --delete condition headers
1815: l_return_status := Delete_condition_headers(p_chrv_rec.ID);
1816: --- If any errors happen abort API
1817: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1818: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1819: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1820: RAISE OKC_API.G_EXCEPTION_ERROR;
1821: END IF;
1814: --delete condition headers
1815: l_return_status := Delete_condition_headers(p_chrv_rec.ID);
1816: --- If any errors happen abort API
1817: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1818: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1819: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1820: RAISE OKC_API.G_EXCEPTION_ERROR;
1821: END IF;
1822:
1815: l_return_status := Delete_condition_headers(p_chrv_rec.ID);
1816: --- If any errors happen abort API
1817: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1818: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1819: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1820: RAISE OKC_API.G_EXCEPTION_ERROR;
1821: END IF;
1822:
1823: --delete governances
1816: --- If any errors happen abort API
1817: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1818: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1819: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1820: RAISE OKC_API.G_EXCEPTION_ERROR;
1821: END IF;
1822:
1823: --delete governances
1824: l_return_status := Delete_governances(p_chrv_rec.ID);
1822:
1823: --delete governances
1824: l_return_status := Delete_governances(p_chrv_rec.ID);
1825: --- If any errors happen abort API
1826: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1827: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1828: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1829: RAISE OKC_API.G_EXCEPTION_ERROR;
1830: END IF;
1823: --delete governances
1824: l_return_status := Delete_governances(p_chrv_rec.ID);
1825: --- If any errors happen abort API
1826: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1827: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1828: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1829: RAISE OKC_API.G_EXCEPTION_ERROR;
1830: END IF;
1831:
1824: l_return_status := Delete_governances(p_chrv_rec.ID);
1825: --- If any errors happen abort API
1826: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1827: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1828: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1829: RAISE OKC_API.G_EXCEPTION_ERROR;
1830: END IF;
1831:
1832: --delete contract items
1825: --- If any errors happen abort API
1826: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1827: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1828: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1829: RAISE OKC_API.G_EXCEPTION_ERROR;
1830: END IF;
1831:
1832: --delete contract items
1833: l_return_status := Delete_k_items(p_chrv_rec.ID);
1831:
1832: --delete contract items
1833: l_return_status := Delete_k_items(p_chrv_rec.ID);
1834: --- If any errors happen abort API
1835: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1836: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1837: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1838: RAISE OKC_API.G_EXCEPTION_ERROR;
1839: END IF;
1832: --delete contract items
1833: l_return_status := Delete_k_items(p_chrv_rec.ID);
1834: --- If any errors happen abort API
1835: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1836: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1837: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1838: RAISE OKC_API.G_EXCEPTION_ERROR;
1839: END IF;
1840:
1833: l_return_status := Delete_k_items(p_chrv_rec.ID);
1834: --- If any errors happen abort API
1835: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1836: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1837: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1838: RAISE OKC_API.G_EXCEPTION_ERROR;
1839: END IF;
1840:
1841: --delete contract lines
1834: --- If any errors happen abort API
1835: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1836: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1837: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1838: RAISE OKC_API.G_EXCEPTION_ERROR;
1839: END IF;
1840:
1841: --delete contract lines
1842: l_return_status := Delete_k_lines(p_chrv_rec.ID);
1840:
1841: --delete contract lines
1842: l_return_status := Delete_k_lines(p_chrv_rec.ID);
1843: --- If any errors happen abort API
1844: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1845: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1846: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1847: RAISE OKC_API.G_EXCEPTION_ERROR;
1848: END IF;
1841: --delete contract lines
1842: l_return_status := Delete_k_lines(p_chrv_rec.ID);
1843: --- If any errors happen abort API
1844: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1845: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1846: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1847: RAISE OKC_API.G_EXCEPTION_ERROR;
1848: END IF;
1849:
1842: l_return_status := Delete_k_lines(p_chrv_rec.ID);
1843: --- If any errors happen abort API
1844: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1845: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1846: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1847: RAISE OKC_API.G_EXCEPTION_ERROR;
1848: END IF;
1849:
1850: --delete contract groupings
1843: --- If any errors happen abort API
1844: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1845: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1846: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1847: RAISE OKC_API.G_EXCEPTION_ERROR;
1848: END IF;
1849:
1850: --delete contract groupings
1851: l_return_status := Delete_k_Grpings(p_chrv_rec.ID);
1849:
1850: --delete contract groupings
1851: l_return_status := Delete_k_Grpings(p_chrv_rec.ID);
1852: --- If any errors happen abort API
1853: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1854: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1855: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1856: RAISE OKC_API.G_EXCEPTION_ERROR;
1857: END IF;
1850: --delete contract groupings
1851: l_return_status := Delete_k_Grpings(p_chrv_rec.ID);
1852: --- If any errors happen abort API
1853: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1854: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1855: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1856: RAISE OKC_API.G_EXCEPTION_ERROR;
1857: END IF;
1858:
1851: l_return_status := Delete_k_Grpings(p_chrv_rec.ID);
1852: --- If any errors happen abort API
1853: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1854: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1855: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1856: RAISE OKC_API.G_EXCEPTION_ERROR;
1857: END IF;
1858:
1859: okc_terms_util_grp.get_contract_document_type_id(
1852: --- If any errors happen abort API
1853: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1854: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1855: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1856: RAISE OKC_API.G_EXCEPTION_ERROR;
1857: END IF;
1858:
1859: okc_terms_util_grp.get_contract_document_type_id(
1860: p_api_version => 1,
1865: p_chr_id => p_chrv_rec.ID,
1866: x_doc_type => l_doc_type,
1867: x_doc_id => l_doc_id);
1868:
1869: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1870: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1871: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1872: RAISE OKC_API.G_EXCEPTION_ERROR;
1873: END IF;
1866: x_doc_type => l_doc_type,
1867: x_doc_id => l_doc_id);
1868:
1869: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1870: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1871: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1872: RAISE OKC_API.G_EXCEPTION_ERROR;
1873: END IF;
1874:
1867: x_doc_id => l_doc_id);
1868:
1869: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1870: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1871: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1872: RAISE OKC_API.G_EXCEPTION_ERROR;
1873: END IF;
1874:
1875: --Delete VERSION TERMS and Condition and Deliverables
1868:
1869: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1870: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1871: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1872: RAISE OKC_API.G_EXCEPTION_ERROR;
1873: END IF;
1874:
1875: --Delete VERSION TERMS and Condition and Deliverables
1876:
1889: p_doc_id => l_doc_id);
1890:
1891: --- If any errors happen abort API
1892:
1893: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1894: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1895: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1896: RAISE OKC_API.G_EXCEPTION_ERROR;
1897: END IF;
1890:
1891: --- If any errors happen abort API
1892:
1893: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1894: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1895: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1896: RAISE OKC_API.G_EXCEPTION_ERROR;
1897: END IF;
1898:
1891: --- If any errors happen abort API
1892:
1893: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1894: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1895: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1896: RAISE OKC_API.G_EXCEPTION_ERROR;
1897: END IF;
1898:
1899: --delete contract header
1892:
1893: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1894: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1895: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1896: RAISE OKC_API.G_EXCEPTION_ERROR;
1897: END IF;
1898:
1899: --delete contract header
1900: l_return_status := Delete_k_headers(p_chrv_rec.ID);
1898:
1899: --delete contract header
1900: l_return_status := Delete_k_headers(p_chrv_rec.ID);
1901: --- If any errors happen abort API
1902: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1903: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1904: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1905: RAISE OKC_API.G_EXCEPTION_ERROR;
1906: END IF;
1899: --delete contract header
1900: l_return_status := Delete_k_headers(p_chrv_rec.ID);
1901: --- If any errors happen abort API
1902: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1903: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1904: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1905: RAISE OKC_API.G_EXCEPTION_ERROR;
1906: END IF;
1907:
1900: l_return_status := Delete_k_headers(p_chrv_rec.ID);
1901: --- If any errors happen abort API
1902: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1903: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1904: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1905: RAISE OKC_API.G_EXCEPTION_ERROR;
1906: END IF;
1907:
1908: ---------
1901: --- If any errors happen abort API
1902: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1903: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1904: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1905: RAISE OKC_API.G_EXCEPTION_ERROR;
1906: END IF;
1907:
1908: ---------
1909:
1906: END IF;
1907:
1908: ---------
1909:
1910: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1911: x_return_status := l_return_status;
1912: COMMIT WORK;
1913: EXCEPTION
1914: WHEN DELETE_NOT_ALLOWED Then
1911: x_return_status := l_return_status;
1912: COMMIT WORK;
1913: EXCEPTION
1914: WHEN DELETE_NOT_ALLOWED Then
1915: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
1916: p_msg_name => 'OKC_NO_DELETE_WRONG_STATUS');
1917: x_return_status := OKC_API.G_RET_STS_ERROR;
1918:
1919: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1913: EXCEPTION
1914: WHEN DELETE_NOT_ALLOWED Then
1915: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
1916: p_msg_name => 'OKC_NO_DELETE_WRONG_STATUS');
1917: x_return_status := OKC_API.G_RET_STS_ERROR;
1918:
1919: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1920: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1921: (
1915: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
1916: p_msg_name => 'OKC_NO_DELETE_WRONG_STATUS');
1917: x_return_status := OKC_API.G_RET_STS_ERROR;
1918:
1919: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1920: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1921: (
1922: l_api_name,
1923: G_PKG_NAME,
1916: p_msg_name => 'OKC_NO_DELETE_WRONG_STATUS');
1917: x_return_status := OKC_API.G_RET_STS_ERROR;
1918:
1919: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1920: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1921: (
1922: l_api_name,
1923: G_PKG_NAME,
1924: 'OKC_API.G_RET_STS_ERROR',
1920: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1921: (
1922: l_api_name,
1923: G_PKG_NAME,
1924: 'OKC_API.G_RET_STS_ERROR',
1925: x_msg_count,
1926: x_msg_data,
1927: '_PVT'
1928: );
1925: x_msg_count,
1926: x_msg_data,
1927: '_PVT'
1928: );
1929: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1930: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1931: (
1932: l_api_name,
1933: G_PKG_NAME,
1926: x_msg_data,
1927: '_PVT'
1928: );
1929: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1930: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1931: (
1932: l_api_name,
1933: G_PKG_NAME,
1934: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1930: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1931: (
1932: l_api_name,
1933: G_PKG_NAME,
1934: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1935: x_msg_count,
1936: x_msg_data,
1937: '_PVT'
1938: );
1936: x_msg_data,
1937: '_PVT'
1938: );
1939: WHEN OTHERS THEN
1940: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1941: (
1942: l_api_name,
1943: G_PKG_NAME,
1944: 'OTHERS',