8: function get_cimv_rec(p_cim_id in number,
9: x_cimv_rec out nocopy cimv_rec_type,
10: p_from_cle_id in number) return varchar2 is
11:
12: l_return_status varchar2(1) := oke_api.g_ret_sts_success;
13: l_no_data_found boolean := true;
14: l_line_number varchar2(150);
15:
16: cursor c_cimv_rec is
49:
50: l_no_data_found := c_cimv_rec%notfound;
51: close c_cimv_rec;
52: if l_no_data_found then
53: l_return_status := oke_api.g_ret_sts_error;
54: return(l_return_status);
55: else
56: return(l_return_status);
57: end if;
61:
62: select line_number into l_line_number
63: from oke_k_lines_v
64: where k_line_id=p_from_cle_id;
65: oke_api.set_message (
66: p_app_name =>'OKE',
67: p_msg_name =>'OKE_KCOPY_ITEMS',
68: p_token1 =>'LINE',
69: p_token1_value =>l_line_number);
68: p_token1 =>'LINE',
69: p_token1_value =>l_line_number);
70:
71: -- notify caller of an unexpected error
72: l_return_status := oke_api.g_ret_sts_unexp_error;
73: return(l_return_status);
74:
75: end get_cimv_rec;
76:
104:
105:
106: procedure copy_items(
107: p_api_version in number,
108: p_init_msg_list in varchar2 default oke_api.g_false,
109: x_return_status out nocopy varchar2,
110: x_msg_count out nocopy number,
111: x_msg_data out nocopy varchar2,
112: p_from_cle_id in number,
110: x_msg_count out nocopy number,
111: x_msg_data out nocopy varchar2,
112: p_from_cle_id in number,
113: p_copy_reference in varchar2 default 'COPY',
114: p_to_cle_id in number default oke_api.g_miss_num) is
115:
116: l_num number;
117:
118: l_cimv_rec cimv_rec_type;
117:
118: l_cimv_rec cimv_rec_type;
119: x_cimv_rec cimv_rec_type;
120:
121: l_return_status varchar2(1) := oke_api.g_ret_sts_success;
122: l_dnz_chr_id number := oke_api.g_miss_num;
123: l_price_level_ind varchar2(20);
124: l_item_name varchar2(2000);
125: l_item_desc varchar2(2000);
118: l_cimv_rec cimv_rec_type;
119: x_cimv_rec cimv_rec_type;
120:
121: l_return_status varchar2(1) := oke_api.g_ret_sts_success;
122: l_dnz_chr_id number := oke_api.g_miss_num;
123: l_price_level_ind varchar2(20);
124: l_item_name varchar2(2000);
125: l_item_desc varchar2(2000);
126: l_api_name constant varchar2(30) := 'COPY_ITEMS';
136: from okc_k_items
137: where cle_id = p_from_cle_id;
138:
139: begin
140: x_return_status := oke_api.g_ret_sts_success;
141: l_return_status := oke_api.start_activity(
142: p_api_name => l_api_name,
143: p_pkg_name => g_pkg_name,
144: p_init_msg_list => p_init_msg_list,
137: where cle_id = p_from_cle_id;
138:
139: begin
140: x_return_status := oke_api.g_ret_sts_success;
141: l_return_status := oke_api.start_activity(
142: p_api_name => l_api_name,
143: p_pkg_name => g_pkg_name,
144: p_init_msg_list => p_init_msg_list,
145: l_api_version => l_api_version,
147: p_api_type => g_api_type,
148: x_return_status => x_return_status);
149:
150: -- check if activity started successfully
151: if (l_return_status = oke_api.g_ret_sts_unexp_error) then
152: raise oke_api.g_exception_unexpected_error;
153: elsif (l_return_status = oke_api.g_ret_sts_error) then
154: raise oke_api.g_exception_error;
155: end if;
148: x_return_status => x_return_status);
149:
150: -- check if activity started successfully
151: if (l_return_status = oke_api.g_ret_sts_unexp_error) then
152: raise oke_api.g_exception_unexpected_error;
153: elsif (l_return_status = oke_api.g_ret_sts_error) then
154: raise oke_api.g_exception_error;
155: end if;
156:
149:
150: -- check if activity started successfully
151: if (l_return_status = oke_api.g_ret_sts_unexp_error) then
152: raise oke_api.g_exception_unexpected_error;
153: elsif (l_return_status = oke_api.g_ret_sts_error) then
154: raise oke_api.g_exception_error;
155: end if;
156:
157:
150: -- check if activity started successfully
151: if (l_return_status = oke_api.g_ret_sts_unexp_error) then
152: raise oke_api.g_exception_unexpected_error;
153: elsif (l_return_status = oke_api.g_ret_sts_error) then
154: raise oke_api.g_exception_error;
155: end if;
156:
157:
158:
168: exit when c_cimv%notfound;
169: l_return_status := get_cimv_rec( p_cim_id => l_num,
170: x_cimv_rec => l_cimv_rec,
171: p_from_cle_id => p_from_cle_id);
172: if l_return_status= oke_api.g_ret_sts_success then
173:
174: l_cimv_rec.cle_id := p_to_cle_id;
175: l_cimv_rec.dnz_chr_id := l_dnz_chr_id;
176: if p_copy_reference = 'REFERENCE' then
192: x_msg_data => x_msg_data,
193: p_cimv_rec => l_cimv_rec,
194: x_cimv_rec => x_cimv_rec);
195:
196: if (l_return_status <> oke_api.g_ret_sts_success) then
197: if (l_return_status = oke_api.g_ret_sts_unexp_error) then
198: x_return_status := l_return_status;
199: raise oke_api.g_exception_unexpected_error;
200: else
193: p_cimv_rec => l_cimv_rec,
194: x_cimv_rec => x_cimv_rec);
195:
196: if (l_return_status <> oke_api.g_ret_sts_success) then
197: if (l_return_status = oke_api.g_ret_sts_unexp_error) then
198: x_return_status := l_return_status;
199: raise oke_api.g_exception_unexpected_error;
200: else
201: x_return_status := l_return_status;
195:
196: if (l_return_status <> oke_api.g_ret_sts_success) then
197: if (l_return_status = oke_api.g_ret_sts_unexp_error) then
198: x_return_status := l_return_status;
199: raise oke_api.g_exception_unexpected_error;
200: else
201: x_return_status := l_return_status;
202: end if;
203: end if;
205:
206: end loop;
207: close c_cimv;
208:
209: oke_api.end_activity( x_msg_count => x_msg_count,
210: x_msg_data => x_msg_data);
211: exception
212: when oke_api.g_exception_error then
213: x_return_status := oke_api.handle_exceptions(
208:
209: oke_api.end_activity( x_msg_count => x_msg_count,
210: x_msg_data => x_msg_data);
211: exception
212: when oke_api.g_exception_error then
213: x_return_status := oke_api.handle_exceptions(
214: p_api_name => l_api_name,
215: p_pkg_name => g_pkg_name,
216: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
209: oke_api.end_activity( x_msg_count => x_msg_count,
210: x_msg_data => x_msg_data);
211: exception
212: when oke_api.g_exception_error then
213: x_return_status := oke_api.handle_exceptions(
214: p_api_name => l_api_name,
215: p_pkg_name => g_pkg_name,
216: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
217: x_msg_count => x_msg_count,
212: when oke_api.g_exception_error then
213: x_return_status := oke_api.handle_exceptions(
214: p_api_name => l_api_name,
215: p_pkg_name => g_pkg_name,
216: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
217: x_msg_count => x_msg_count,
218: x_msg_data => x_msg_data,
219: p_api_type => g_api_type);
220:
217: x_msg_count => x_msg_count,
218: x_msg_data => x_msg_data,
219: p_api_type => g_api_type);
220:
221: when oke_api.g_exception_unexpected_error then
222: x_return_status := oke_api.handle_exceptions(
223: p_api_name => l_api_name,
224: p_pkg_name => g_pkg_name,
225: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
218: x_msg_data => x_msg_data,
219: p_api_type => g_api_type);
220:
221: when oke_api.g_exception_unexpected_error then
222: x_return_status := oke_api.handle_exceptions(
223: p_api_name => l_api_name,
224: p_pkg_name => g_pkg_name,
225: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
226: x_msg_count => x_msg_count,
221: when oke_api.g_exception_unexpected_error then
222: x_return_status := oke_api.handle_exceptions(
223: p_api_name => l_api_name,
224: p_pkg_name => g_pkg_name,
225: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
226: x_msg_count => x_msg_count,
227: x_msg_data => x_msg_data,
228: p_api_type => g_api_type);
229:
227: x_msg_data => x_msg_data,
228: p_api_type => g_api_type);
229:
230: when others then
231: x_return_status := oke_api.handle_exceptions(
232: p_api_name => l_api_name,
233: p_pkg_name => g_pkg_name,
234: p_exc_name => 'OTHERS',
235: x_msg_count => x_msg_count,
544: x_chr_rec.default_task_id;
545:
546:
547: if oke_chr_pk_csr%notfound then
548: x_result := oke_api.g_ret_sts_error;
549: end if;
550:
551: close oke_chr_pk_csr;
552:
726: x_chrv_rec.last_update_login;
727:
728:
729: if okc_chrv_pk_csr%notfound then
730: x_result := oke_api.g_ret_sts_error;
731: end if;
732:
733: close okc_chrv_pk_csr;
734:
753: p_k_header_id in number -- original header id, must provide, cannot be null
754: ) is
755:
756: x_pty_id number; -- new party id returned from api call
757: l_return_status varchar2(1) := oke_api.g_ret_sts_success;
758: l_api_name constant varchar2(30) := 'COPY_PARTY_ROLES';
759: l_api_version constant number := 1.0;
760:
761:
780: i number;
781: sql_stmt varchar2(4000);
782:
783: begin
784: x_return_status := oke_api.g_ret_sts_success; -- call start_activity to create savepoint, check compatibility
785: -- and initialize message list
786: l_return_status := oke_api.start_activity(
787: p_api_name => l_api_name,
788: p_pkg_name => g_pkg_name,
782:
783: begin
784: x_return_status := oke_api.g_ret_sts_success; -- call start_activity to create savepoint, check compatibility
785: -- and initialize message list
786: l_return_status := oke_api.start_activity(
787: p_api_name => l_api_name,
788: p_pkg_name => g_pkg_name,
789: p_init_msg_list => p_init_msg_list,
790: l_api_version => l_api_version,
792: p_api_type => g_api_type,
793: x_return_status => x_return_status);
794:
795: -- check if activity started successfully
796: if (l_return_status = oke_api.g_ret_sts_unexp_error) then
797: raise oke_api.g_exception_unexpected_error;
798: elsif (l_return_status = oke_api.g_ret_sts_error) then
799: raise oke_api.g_exception_error;
800: end if;
793: x_return_status => x_return_status);
794:
795: -- check if activity started successfully
796: if (l_return_status = oke_api.g_ret_sts_unexp_error) then
797: raise oke_api.g_exception_unexpected_error;
798: elsif (l_return_status = oke_api.g_ret_sts_error) then
799: raise oke_api.g_exception_error;
800: end if;
801: -- bug 4388335
794:
795: -- check if activity started successfully
796: if (l_return_status = oke_api.g_ret_sts_unexp_error) then
797: raise oke_api.g_exception_unexpected_error;
798: elsif (l_return_status = oke_api.g_ret_sts_error) then
799: raise oke_api.g_exception_error;
800: end if;
801: -- bug 4388335
802: OKE_GLOBALS.Set_Globals
795: -- check if activity started successfully
796: if (l_return_status = oke_api.g_ret_sts_unexp_error) then
797: raise oke_api.g_exception_unexpected_error;
798: elsif (l_return_status = oke_api.g_ret_sts_error) then
799: raise oke_api.g_exception_error;
800: end if;
801: -- bug 4388335
802: OKE_GLOBALS.Set_Globals
803: ( p_k_header_id => n_k_header_id
824: p_chr_id => n_k_header_id,
825: p_rle_code => null,
826: x_cpl_id => x_pty_id);
827:
828: If l_return_status <> OKE_API.G_RET_STS_SUCCESS THEN
829: g_pty_not_copied := TRUE;
830: End If;
831:
832: ELSE
848: p_chr_id => n_k_header_id,
849: p_rle_code => null,
850: x_cpl_id => x_pty_id);
851:
852: If l_return_status <> OKE_API.G_RET_STS_SUCCESS THEN
853: g_pty_not_copied := TRUE;
854: End If;
855:
856: END LOOP;
870: p_chr_id => null,
871: p_rle_code => null,
872: x_cpl_id => x_pty_id);
873:
874: If l_return_status <> OKE_API.G_RET_STS_SUCCESS THEN
875: g_pty_not_copied := TRUE;
876: End If;
877:
878: END LOOP;
877:
878: END LOOP;
879: END IF;
880:
881: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
882: x_msg_data => x_msg_data);
883: EXCEPTION
884: when OKE_API.G_EXCEPTION_ERROR then
885: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
880:
881: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
882: x_msg_data => x_msg_data);
883: EXCEPTION
884: when OKE_API.G_EXCEPTION_ERROR then
885: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
886: p_api_name => l_api_name,
887: p_pkg_name => g_pkg_name,
888: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
881: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
882: x_msg_data => x_msg_data);
883: EXCEPTION
884: when OKE_API.G_EXCEPTION_ERROR then
885: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
886: p_api_name => l_api_name,
887: p_pkg_name => g_pkg_name,
888: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
889: x_msg_count => x_msg_count,
884: when OKE_API.G_EXCEPTION_ERROR then
885: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
886: p_api_name => l_api_name,
887: p_pkg_name => g_pkg_name,
888: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
889: x_msg_count => x_msg_count,
890: x_msg_data => x_msg_data,
891: p_api_type => g_api_type);
892:
889: x_msg_count => x_msg_count,
890: x_msg_data => x_msg_data,
891: p_api_type => g_api_type);
892:
893: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
894: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
895: p_api_name => l_api_name,
896: p_pkg_name => g_pkg_name,
897: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
890: x_msg_data => x_msg_data,
891: p_api_type => g_api_type);
892:
893: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
894: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
895: p_api_name => l_api_name,
896: p_pkg_name => g_pkg_name,
897: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
898: x_msg_count => x_msg_count,
893: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
894: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
895: p_api_name => l_api_name,
896: p_pkg_name => g_pkg_name,
897: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
898: x_msg_count => x_msg_count,
899: x_msg_data => x_msg_data,
900: p_api_type => g_api_type);
901:
899: x_msg_data => x_msg_data,
900: p_api_type => g_api_type);
901:
902: when OTHERS then
903: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
904: p_api_name => l_api_name,
905: p_pkg_name => g_pkg_name,
906: p_exc_name => 'OTHERS',
907: x_msg_count => x_msg_count,
926: ) IS
927:
928: l_cat_id NUMBER; -- Old ARTICLE ID
929: x_cat_id NUMBER; -- New ARTICLE ID
930: l_return_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
931: l_api_name CONSTANT VARCHAR2(30) := 'COPY_ARTICLES';
932: l_api_version CONSTANT NUMBER := 1.0;
933:
934:
963: l_sae_id NUMBER;
964: l_sav_release VARCHAR2(150);
965:
966: BEGIN
967: x_return_status := OKE_API.G_RET_STS_SUCCESS;
968: -- call START_ACTIVITY to create savepoint, check compatibility
969: -- and initialize message list
970: l_return_status := OKE_API.START_ACTIVITY(
971: p_api_name => l_api_name,
966: BEGIN
967: x_return_status := OKE_API.G_RET_STS_SUCCESS;
968: -- call START_ACTIVITY to create savepoint, check compatibility
969: -- and initialize message list
970: l_return_status := OKE_API.START_ACTIVITY(
971: p_api_name => l_api_name,
972: p_pkg_name => g_pkg_name,
973: p_init_msg_list => p_init_msg_list,
974: l_api_version => l_api_version,
976: p_api_type => g_api_type,
977: x_return_status => x_return_status);
978:
979: -- check if activity started successfully
980: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
981: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
982: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
983: raise OKE_API.G_EXCEPTION_ERROR;
984: End If;
977: x_return_status => x_return_status);
978:
979: -- check if activity started successfully
980: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
981: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
982: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
983: raise OKE_API.G_EXCEPTION_ERROR;
984: End If;
985:
978:
979: -- check if activity started successfully
980: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
981: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
982: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
983: raise OKE_API.G_EXCEPTION_ERROR;
984: End If;
985:
986:
979: -- check if activity started successfully
980: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
981: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
982: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
983: raise OKE_API.G_EXCEPTION_ERROR;
984: End If;
985:
986:
987: IF f_k_line_id is null THEN -- copy articles for contract header
1014: p_chr_id => n_k_header_id,
1015: p_sav_sav_release => l_sav_release,
1016: x_cat_id => x_cat_id);
1017:
1018: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
1019: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1020: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
1021: raise OKE_API.G_EXCEPTION_ERROR;
1022: End If;
1015: p_sav_sav_release => l_sav_release,
1016: x_cat_id => x_cat_id);
1017:
1018: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
1019: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1020: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
1021: raise OKE_API.G_EXCEPTION_ERROR;
1022: End If;
1023:
1016: x_cat_id => x_cat_id);
1017:
1018: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
1019: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1020: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
1021: raise OKE_API.G_EXCEPTION_ERROR;
1022: End If;
1023:
1024:
1017:
1018: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
1019: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1020: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
1021: raise OKE_API.G_EXCEPTION_ERROR;
1022: End If;
1023:
1024:
1025: END LOOP;
1055: p_chr_id => null,
1056: p_sav_sav_release => l_sav_release,
1057: x_cat_id => x_cat_id);
1058:
1059: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
1060: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1061: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
1062: raise OKE_API.G_EXCEPTION_ERROR;
1063: End If;
1056: p_sav_sav_release => l_sav_release,
1057: x_cat_id => x_cat_id);
1058:
1059: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
1060: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1061: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
1062: raise OKE_API.G_EXCEPTION_ERROR;
1063: End If;
1064:
1057: x_cat_id => x_cat_id);
1058:
1059: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
1060: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1061: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
1062: raise OKE_API.G_EXCEPTION_ERROR;
1063: End If;
1064:
1065: END LOOP;
1058:
1059: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
1060: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1061: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
1062: raise OKE_API.G_EXCEPTION_ERROR;
1063: End If;
1064:
1065: END LOOP;
1066: CLOSE cle_art_csr;
1065: END LOOP;
1066: CLOSE cle_art_csr;
1067: END IF;
1068:
1069: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
1070: x_msg_data => x_msg_data);
1071: EXCEPTION
1072: when OKE_API.G_EXCEPTION_ERROR then
1073: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1068:
1069: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
1070: x_msg_data => x_msg_data);
1071: EXCEPTION
1072: when OKE_API.G_EXCEPTION_ERROR then
1073: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1074: p_api_name => l_api_name,
1075: p_pkg_name => g_pkg_name,
1076: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
1069: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
1070: x_msg_data => x_msg_data);
1071: EXCEPTION
1072: when OKE_API.G_EXCEPTION_ERROR then
1073: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1074: p_api_name => l_api_name,
1075: p_pkg_name => g_pkg_name,
1076: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
1077: x_msg_count => x_msg_count,
1072: when OKE_API.G_EXCEPTION_ERROR then
1073: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1074: p_api_name => l_api_name,
1075: p_pkg_name => g_pkg_name,
1076: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
1077: x_msg_count => x_msg_count,
1078: x_msg_data => x_msg_data,
1079: p_api_type => g_api_type);
1080:
1077: x_msg_count => x_msg_count,
1078: x_msg_data => x_msg_data,
1079: p_api_type => g_api_type);
1080:
1081: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
1082: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1083: p_api_name => l_api_name,
1084: p_pkg_name => g_pkg_name,
1085: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
1078: x_msg_data => x_msg_data,
1079: p_api_type => g_api_type);
1080:
1081: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
1082: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1083: p_api_name => l_api_name,
1084: p_pkg_name => g_pkg_name,
1085: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
1086: x_msg_count => x_msg_count,
1081: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
1082: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1083: p_api_name => l_api_name,
1084: p_pkg_name => g_pkg_name,
1085: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
1086: x_msg_count => x_msg_count,
1087: x_msg_data => x_msg_data,
1088: p_api_type => g_api_type);
1089:
1087: x_msg_data => x_msg_data,
1088: p_api_type => g_api_type);
1089:
1090: when OTHERS then
1091: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1092: p_api_name => l_api_name,
1093: p_pkg_name => g_pkg_name,
1094: p_exc_name => 'OTHERS',
1095: x_msg_count => x_msg_count,
1159: x_clev_rec OKC_CLE_PVT.clev_rec_type;
1160:
1161: iter_from_line_id NUMBER;
1162: iter_to_line_id NUMBER;
1163: l_return_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
1164:
1165: -- DECLARE OKE cursor for sub-lines
1166:
1167: CURSOR sub_line_csr IS
1330: WHERE a.cle_id = f_k_line_id AND a.id=b.k_line_id;
1331:
1332:
1333: BEGIN
1334: x_return_status := OKE_API.G_RET_STS_SUCCESS; -- call START_ACTIVITY to create savepoint, check compatibility
1335: -- and initialize message list
1336: l_return_status := OKE_API.START_ACTIVITY(
1337: p_api_name => l_api_name,
1338: p_pkg_name => g_pkg_name,
1332:
1333: BEGIN
1334: x_return_status := OKE_API.G_RET_STS_SUCCESS; -- call START_ACTIVITY to create savepoint, check compatibility
1335: -- and initialize message list
1336: l_return_status := OKE_API.START_ACTIVITY(
1337: p_api_name => l_api_name,
1338: p_pkg_name => g_pkg_name,
1339: p_init_msg_list => p_init_msg_list,
1340: l_api_version => l_api_version,
1342: p_api_type => g_api_type,
1343: x_return_status => x_return_status);
1344:
1345: -- check if activity started successfully
1346: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
1347: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1348: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
1349: raise OKE_API.G_EXCEPTION_ERROR;
1350: End If;
1343: x_return_status => x_return_status);
1344:
1345: -- check if activity started successfully
1346: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
1347: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1348: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
1349: raise OKE_API.G_EXCEPTION_ERROR;
1350: End If;
1351:
1344:
1345: -- check if activity started successfully
1346: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
1347: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1348: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
1349: raise OKE_API.G_EXCEPTION_ERROR;
1350: End If;
1351:
1352: OPEN sub_line_csr;
1345: -- check if activity started successfully
1346: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
1347: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1348: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
1349: raise OKE_API.G_EXCEPTION_ERROR;
1350: End If;
1351:
1352: OPEN sub_line_csr;
1353:
1568: p_clev_rec => l_clev_rec,
1569: x_cle_rec => x_cle_rec,
1570: x_clev_rec => x_clev_rec);
1571:
1572: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
1573: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1574: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
1575: raise OKE_API.G_EXCEPTION_ERROR;
1576: End If;
1569: x_cle_rec => x_cle_rec,
1570: x_clev_rec => x_clev_rec);
1571:
1572: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
1573: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1574: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
1575: raise OKE_API.G_EXCEPTION_ERROR;
1576: End If;
1577:
1570: x_clev_rec => x_clev_rec);
1571:
1572: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
1573: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1574: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
1575: raise OKE_API.G_EXCEPTION_ERROR;
1576: End If;
1577:
1578:
1571:
1572: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
1573: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1574: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
1575: raise OKE_API.G_EXCEPTION_ERROR;
1576: End If;
1577:
1578:
1579:
1592: p_from_cle_id => iter_from_line_id,
1593: p_to_cle_id => iter_to_line_id
1594: );
1595:
1596: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
1597: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1598: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
1599: raise OKE_API.G_EXCEPTION_ERROR;
1600: End If;
1593: p_to_cle_id => iter_to_line_id
1594: );
1595:
1596: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
1597: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1598: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
1599: raise OKE_API.G_EXCEPTION_ERROR;
1600: End If;
1601: END IF;
1594: );
1595:
1596: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
1597: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1598: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
1599: raise OKE_API.G_EXCEPTION_ERROR;
1600: End If;
1601: END IF;
1602:
1595:
1596: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
1597: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1598: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
1599: raise OKE_API.G_EXCEPTION_ERROR;
1600: End If;
1601: END IF;
1602:
1603: -- copy user attributes (lines)
1628: iter_to_line_id ,
1629: start_date ,
1630: end_date );
1631:
1632: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
1633: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1634: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
1635: raise OKE_API.G_EXCEPTION_ERROR;
1636: End If;
1629: start_date ,
1630: end_date );
1631:
1632: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
1633: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1634: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
1635: raise OKE_API.G_EXCEPTION_ERROR;
1636: End If;
1637:
1630: end_date );
1631:
1632: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
1633: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1634: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
1635: raise OKE_API.G_EXCEPTION_ERROR;
1636: End If;
1637:
1638: END IF;
1631:
1632: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
1633: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1634: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
1635: raise OKE_API.G_EXCEPTION_ERROR;
1636: End If;
1637:
1638: END IF;
1639:
1648: null ,
1649: l_cle_rec.k_line_id ,
1650: x_cle_rec.k_line_id ,
1651: l_orig_header_id );
1652: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
1653: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1654: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
1655: raise OKE_API.G_EXCEPTION_ERROR;
1656: End If;
1649: l_cle_rec.k_line_id ,
1650: x_cle_rec.k_line_id ,
1651: l_orig_header_id );
1652: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
1653: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1654: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
1655: raise OKE_API.G_EXCEPTION_ERROR;
1656: End If;
1657:
1650: x_cle_rec.k_line_id ,
1651: l_orig_header_id );
1652: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
1653: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1654: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
1655: raise OKE_API.G_EXCEPTION_ERROR;
1656: End If;
1657:
1658: END IF;
1651: l_orig_header_id );
1652: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
1653: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1654: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
1655: raise OKE_API.G_EXCEPTION_ERROR;
1656: End If;
1657:
1658: END IF;
1659:
1666: null ,
1667: null ,
1668: l_cle_rec.k_line_id ,
1669: x_cle_rec.k_line_id );
1670: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
1671: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1672: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
1673: raise OKE_API.G_EXCEPTION_ERROR;
1674: End If;
1667: null ,
1668: l_cle_rec.k_line_id ,
1669: x_cle_rec.k_line_id );
1670: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
1671: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1672: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
1673: raise OKE_API.G_EXCEPTION_ERROR;
1674: End If;
1675:
1668: l_cle_rec.k_line_id ,
1669: x_cle_rec.k_line_id );
1670: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
1671: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1672: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
1673: raise OKE_API.G_EXCEPTION_ERROR;
1674: End If;
1675:
1676: END IF;
1669: x_cle_rec.k_line_id );
1670: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
1671: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1672: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
1673: raise OKE_API.G_EXCEPTION_ERROR;
1674: End If;
1675:
1676: END IF;
1677:
1692: p_from_cle_id => l_cle_rec.k_line_id,
1693: p_to_cle_id => x_cle_rec.k_line_id
1694: );
1695:
1696: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
1697: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1698: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
1699: raise OKE_API.G_EXCEPTION_ERROR;
1700: End If;
1693: p_to_cle_id => x_cle_rec.k_line_id
1694: );
1695:
1696: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
1697: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1698: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
1699: raise OKE_API.G_EXCEPTION_ERROR;
1700: End If;
1701:
1694: );
1695:
1696: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
1697: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1698: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
1699: raise OKE_API.G_EXCEPTION_ERROR;
1700: End If;
1701:
1702: END IF;
1695:
1696: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
1697: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1698: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
1699: raise OKE_API.G_EXCEPTION_ERROR;
1700: End If;
1701:
1702: END IF;
1703:
1716: p_from_del_id => null,
1717: p_to_del_id => null,
1718: default_flag => 'N'
1719: );
1720: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
1721: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1722: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
1723: raise OKE_API.G_EXCEPTION_ERROR;
1724: End If;
1717: p_to_del_id => null,
1718: default_flag => 'N'
1719: );
1720: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
1721: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1722: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
1723: raise OKE_API.G_EXCEPTION_ERROR;
1724: End If;
1725:
1718: default_flag => 'N'
1719: );
1720: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
1721: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1722: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
1723: raise OKE_API.G_EXCEPTION_ERROR;
1724: End If;
1725:
1726: END IF;
1719: );
1720: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
1721: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1722: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
1723: raise OKE_API.G_EXCEPTION_ERROR;
1724: End If;
1725:
1726: END IF;
1727:
1728:
1729: END LOOP;
1730: CLOSE sub_line_csr;
1731:
1732: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
1733: x_msg_data => x_msg_data);
1734: EXCEPTION
1735: when OKE_API.G_EXCEPTION_ERROR then
1736: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1731:
1732: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
1733: x_msg_data => x_msg_data);
1734: EXCEPTION
1735: when OKE_API.G_EXCEPTION_ERROR then
1736: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1737: p_api_name => l_api_name,
1738: p_pkg_name => g_pkg_name,
1739: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
1732: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
1733: x_msg_data => x_msg_data);
1734: EXCEPTION
1735: when OKE_API.G_EXCEPTION_ERROR then
1736: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1737: p_api_name => l_api_name,
1738: p_pkg_name => g_pkg_name,
1739: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
1740: x_msg_count => x_msg_count,
1735: when OKE_API.G_EXCEPTION_ERROR then
1736: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1737: p_api_name => l_api_name,
1738: p_pkg_name => g_pkg_name,
1739: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
1740: x_msg_count => x_msg_count,
1741: x_msg_data => x_msg_data,
1742: p_api_type => g_api_type);
1743:
1740: x_msg_count => x_msg_count,
1741: x_msg_data => x_msg_data,
1742: p_api_type => g_api_type);
1743:
1744: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
1745: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1746: p_api_name => l_api_name,
1747: p_pkg_name => g_pkg_name,
1748: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
1741: x_msg_data => x_msg_data,
1742: p_api_type => g_api_type);
1743:
1744: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
1745: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1746: p_api_name => l_api_name,
1747: p_pkg_name => g_pkg_name,
1748: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
1749: x_msg_count => x_msg_count,
1744: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
1745: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1746: p_api_name => l_api_name,
1747: p_pkg_name => g_pkg_name,
1748: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
1749: x_msg_count => x_msg_count,
1750: x_msg_data => x_msg_data,
1751: p_api_type => g_api_type);
1752:
1750: x_msg_data => x_msg_data,
1751: p_api_type => g_api_type);
1752:
1753: when OTHERS then
1754: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1755: p_api_name => l_api_name,
1756: p_pkg_name => g_pkg_name,
1757: p_exc_name => 'OTHERS',
1758: x_msg_count => x_msg_count,
1795: x_clev_rec OKC_CLE_PVT.clev_rec_type;
1796:
1797: iter_from_line_id NUMBER;
1798: iter_to_line_id NUMBER;
1799: l_return_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
1800:
1801: l_orig_header_id NUMBER;
1802:
1803:
1969: WHERE a.chr_id = f_k_header_id AND a.id=b.k_line_id;
1970:
1971:
1972: BEGIN
1973: x_return_status := OKE_API.G_RET_STS_SUCCESS; -- call START_ACTIVITY to create savepoint, check compatibility
1974: -- and initialize message list
1975: l_return_status := OKE_API.START_ACTIVITY(
1976: p_api_name => l_api_name,
1977: p_pkg_name => g_pkg_name,
1971:
1972: BEGIN
1973: x_return_status := OKE_API.G_RET_STS_SUCCESS; -- call START_ACTIVITY to create savepoint, check compatibility
1974: -- and initialize message list
1975: l_return_status := OKE_API.START_ACTIVITY(
1976: p_api_name => l_api_name,
1977: p_pkg_name => g_pkg_name,
1978: p_init_msg_list => p_init_msg_list,
1979: l_api_version => l_api_version,
1981: p_api_type => g_api_type,
1982: x_return_status => x_return_status);
1983:
1984: -- check if activity started successfully
1985: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
1986: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1987: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
1988: raise OKE_API.G_EXCEPTION_ERROR;
1989: End If;
1982: x_return_status => x_return_status);
1983:
1984: -- check if activity started successfully
1985: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
1986: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1987: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
1988: raise OKE_API.G_EXCEPTION_ERROR;
1989: End If;
1990:
1983:
1984: -- check if activity started successfully
1985: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
1986: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1987: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
1988: raise OKE_API.G_EXCEPTION_ERROR;
1989: End If;
1990:
1991:
1984: -- check if activity started successfully
1985: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
1986: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1987: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
1988: raise OKE_API.G_EXCEPTION_ERROR;
1989: End If;
1990:
1991:
1992: OPEN top_line_csr;
2200: p_clev_rec => l_clev_rec,
2201: x_cle_rec => x_cle_rec,
2202: x_clev_rec => x_clev_rec);
2203:
2204: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
2205: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2206: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
2207: raise OKE_API.G_EXCEPTION_ERROR;
2208: End If;
2201: x_cle_rec => x_cle_rec,
2202: x_clev_rec => x_clev_rec);
2203:
2204: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
2205: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2206: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
2207: raise OKE_API.G_EXCEPTION_ERROR;
2208: End If;
2209:
2202: x_clev_rec => x_clev_rec);
2203:
2204: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
2205: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2206: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
2207: raise OKE_API.G_EXCEPTION_ERROR;
2208: End If;
2209:
2210:
2203:
2204: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
2205: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2206: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
2207: raise OKE_API.G_EXCEPTION_ERROR;
2208: End If;
2209:
2210:
2211: iter_to_line_id := x_cle_rec.k_line_id;
2223: p_from_cle_id => iter_from_line_id,
2224: p_to_cle_id => iter_to_line_id
2225: );
2226:
2227: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
2228: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2229: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
2230: raise OKE_API.G_EXCEPTION_ERROR;
2231: End If;
2224: p_to_cle_id => iter_to_line_id
2225: );
2226:
2227: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
2228: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2229: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
2230: raise OKE_API.G_EXCEPTION_ERROR;
2231: End If;
2232: END IF;
2225: );
2226:
2227: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
2228: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2229: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
2230: raise OKE_API.G_EXCEPTION_ERROR;
2231: End If;
2232: END IF;
2233:
2226:
2227: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
2228: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2229: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
2230: raise OKE_API.G_EXCEPTION_ERROR;
2231: End If;
2232: END IF;
2233:
2234: -- copy user attributes (lines)
2259: iter_to_line_id ,
2260: start_date ,
2261: end_date );
2262:
2263: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
2264: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2265: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
2266: raise OKE_API.G_EXCEPTION_ERROR;
2267: End If;
2260: start_date ,
2261: end_date );
2262:
2263: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
2264: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2265: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
2266: raise OKE_API.G_EXCEPTION_ERROR;
2267: End If;
2268:
2261: end_date );
2262:
2263: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
2264: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2265: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
2266: raise OKE_API.G_EXCEPTION_ERROR;
2267: End If;
2268:
2269: END IF;
2262:
2263: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
2264: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2265: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
2266: raise OKE_API.G_EXCEPTION_ERROR;
2267: End If;
2268:
2269: END IF;
2270:
2281: l_cle_rec.k_line_id ,
2282: x_cle_rec.k_line_id ,
2283: l_orig_header_id );
2284:
2285: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
2286: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2287: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
2288: raise OKE_API.G_EXCEPTION_ERROR;
2289: End If;
2282: x_cle_rec.k_line_id ,
2283: l_orig_header_id );
2284:
2285: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
2286: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2287: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
2288: raise OKE_API.G_EXCEPTION_ERROR;
2289: End If;
2290:
2283: l_orig_header_id );
2284:
2285: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
2286: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2287: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
2288: raise OKE_API.G_EXCEPTION_ERROR;
2289: End If;
2290:
2291: END IF;
2284:
2285: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
2286: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2287: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
2288: raise OKE_API.G_EXCEPTION_ERROR;
2289: End If;
2290:
2291: END IF;
2292:
2300: null ,
2301: l_cle_rec.k_line_id ,
2302: x_cle_rec.k_line_id );
2303:
2304: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
2305: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2306: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
2307: raise OKE_API.G_EXCEPTION_ERROR;
2308: End If;
2301: l_cle_rec.k_line_id ,
2302: x_cle_rec.k_line_id );
2303:
2304: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
2305: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2306: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
2307: raise OKE_API.G_EXCEPTION_ERROR;
2308: End If;
2309:
2302: x_cle_rec.k_line_id );
2303:
2304: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
2305: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2306: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
2307: raise OKE_API.G_EXCEPTION_ERROR;
2308: End If;
2309:
2310: END IF;
2303:
2304: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
2305: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2306: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
2307: raise OKE_API.G_EXCEPTION_ERROR;
2308: End If;
2309:
2310: END IF;
2311:
2326: p_from_cle_id => l_cle_rec.k_line_id,
2327: p_to_cle_id => x_cle_rec.k_line_id
2328: );
2329:
2330: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
2331: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2332: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
2333: raise OKE_API.G_EXCEPTION_ERROR;
2334: End If;
2327: p_to_cle_id => x_cle_rec.k_line_id
2328: );
2329:
2330: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
2331: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2332: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
2333: raise OKE_API.G_EXCEPTION_ERROR;
2334: End If;
2335:
2328: );
2329:
2330: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
2331: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2332: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
2333: raise OKE_API.G_EXCEPTION_ERROR;
2334: End If;
2335:
2336: END IF;
2329:
2330: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
2331: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2332: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
2333: raise OKE_API.G_EXCEPTION_ERROR;
2334: End If;
2335:
2336: END IF;
2337:
2350: p_from_del_id => null,
2351: p_to_del_id => null,
2352: default_flag => 'N'
2353: );
2354: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
2355: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2356: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
2357: raise OKE_API.G_EXCEPTION_ERROR;
2358: End If;
2351: p_to_del_id => null,
2352: default_flag => 'N'
2353: );
2354: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
2355: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2356: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
2357: raise OKE_API.G_EXCEPTION_ERROR;
2358: End If;
2359:
2352: default_flag => 'N'
2353: );
2354: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
2355: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2356: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
2357: raise OKE_API.G_EXCEPTION_ERROR;
2358: End If;
2359:
2360: END IF;
2353: );
2354: If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
2355: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2356: Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
2357: raise OKE_API.G_EXCEPTION_ERROR;
2358: End If;
2359:
2360: END IF;
2361:
2362:
2363: END LOOP;
2364: CLOSE top_line_csr;
2365:
2366: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
2367: x_msg_data => x_msg_data);
2368:
2369: EXCEPTION
2370: when OKE_API.G_EXCEPTION_ERROR then
2366: OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
2367: x_msg_data => x_msg_data);
2368:
2369: EXCEPTION
2370: when OKE_API.G_EXCEPTION_ERROR then
2371: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
2372: p_api_name => l_api_name,
2373: p_pkg_name => g_pkg_name,
2374: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
2367: x_msg_data => x_msg_data);
2368:
2369: EXCEPTION
2370: when OKE_API.G_EXCEPTION_ERROR then
2371: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
2372: p_api_name => l_api_name,
2373: p_pkg_name => g_pkg_name,
2374: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
2375: x_msg_count => x_msg_count,
2370: when OKE_API.G_EXCEPTION_ERROR then
2371: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
2372: p_api_name => l_api_name,
2373: p_pkg_name => g_pkg_name,
2374: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
2375: x_msg_count => x_msg_count,
2376: x_msg_data => x_msg_data,
2377: p_api_type => g_api_type);
2378:
2375: x_msg_count => x_msg_count,
2376: x_msg_data => x_msg_data,
2377: p_api_type => g_api_type);
2378:
2379: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
2380: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
2381: p_api_name => l_api_name,
2382: p_pkg_name => g_pkg_name,
2383: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
2376: x_msg_data => x_msg_data,
2377: p_api_type => g_api_type);
2378:
2379: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
2380: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
2381: p_api_name => l_api_name,
2382: p_pkg_name => g_pkg_name,
2383: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
2384: x_msg_count => x_msg_count,
2379: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
2380: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
2381: p_api_name => l_api_name,
2382: p_pkg_name => g_pkg_name,
2383: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
2384: x_msg_count => x_msg_count,
2385: x_msg_data => x_msg_data,
2386: p_api_type => g_api_type);
2387:
2385: x_msg_data => x_msg_data,
2386: p_api_type => g_api_type);
2387:
2388: when OTHERS then
2389: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
2390: p_api_name => l_api_name,
2391: p_pkg_name => g_pkg_name,
2392: p_exc_name => 'OTHERS',
2393: x_msg_count => x_msg_count,
2461: PROCEDURE copy_contract - main program called by OKE Widzard UI
2462: ------------------------------------------------------------------------*/
2463: PROCEDURE copy_contract(
2464: p_api_version IN NUMBER,
2465: p_init_msg_list IN VARCHAR2 DEFAULT OKE_API.G_FALSE,
2466: x_return_status OUT NOCOPY VARCHAR2,
2467: x_msg_count OUT NOCOPY NUMBER,
2468: x_msg_data OUT NOCOPY VARCHAR2,
2469:
2497: l_chrv_rec OKC_CHR_PVT.chrv_rec_type;
2498: --OKC_CONTRACT_PUB.chrv_rec_type;
2499:
2500:
2501: l_return_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
2502: l_api_name CONSTANT VARCHAR2(30) := 'COPY_CONTRACT';
2503: l_api_version NUMBER := 1.0;
2504:
2505:
2574: BEGIN
2575: g_pty_not_copied := FALSE;
2576: -- call START_ACTIVITY to create savepoint, check compatibility
2577: -- and initialize message list
2578: l_return_status := OKE_API.START_ACTIVITY(
2579: p_api_name => l_api_name,
2580: p_pkg_name => g_pkg_name,
2581: p_init_msg_list => p_init_msg_list,
2582: l_api_version => l_api_version,
2584: p_api_type => g_api_type,
2585: x_return_status => l_return_status);
2586:
2587: -- check if activity started successfully
2588: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
2589: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2590: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
2591: raise OKE_API.G_EXCEPTION_ERROR;
2592: End If;
2585: x_return_status => l_return_status);
2586:
2587: -- check if activity started successfully
2588: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
2589: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2590: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
2591: raise OKE_API.G_EXCEPTION_ERROR;
2592: End If;
2593:
2586:
2587: -- check if activity started successfully
2588: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
2589: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2590: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
2591: raise OKE_API.G_EXCEPTION_ERROR;
2592: End If;
2593:
2594: -- initialize return status
2587: -- check if activity started successfully
2588: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
2589: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2590: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
2591: raise OKE_API.G_EXCEPTION_ERROR;
2592: End If;
2593:
2594: -- initialize return status
2595: x_return_status := OKE_API.G_RET_STS_SUCCESS;
2591: raise OKE_API.G_EXCEPTION_ERROR;
2592: End If;
2593:
2594: -- initialize return status
2595: x_return_status := OKE_API.G_RET_STS_SUCCESS;
2596:
2597: -- Get contract header value from oke side.
2598: get_oke_k_header_rec(p_source_k_header_id,
2599: l_chr_rec,
2597: -- Get contract header value from oke side.
2598: get_oke_k_header_rec(p_source_k_header_id,
2599: l_chr_rec,
2600: l_return_status);
2601: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
2602: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2603: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
2604: raise OKE_API.G_EXCEPTION_ERROR;
2605: End If;
2598: get_oke_k_header_rec(p_source_k_header_id,
2599: l_chr_rec,
2600: l_return_status);
2601: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
2602: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2603: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
2604: raise OKE_API.G_EXCEPTION_ERROR;
2605: End If;
2606:
2599: l_chr_rec,
2600: l_return_status);
2601: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
2602: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2603: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
2604: raise OKE_API.G_EXCEPTION_ERROR;
2605: End If;
2606:
2607:
2600: l_return_status);
2601: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
2602: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2603: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
2604: raise OKE_API.G_EXCEPTION_ERROR;
2605: End If;
2606:
2607:
2608: -- Get contract header value from okc side.
2608: -- Get contract header value from okc side.
2609: get_okc_k_header_rec(p_source_k_header_id,
2610: l_chrv_rec,
2611: l_return_status);
2612: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
2613: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2614: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
2615: raise OKE_API.G_EXCEPTION_ERROR;
2616: End If;
2609: get_okc_k_header_rec(p_source_k_header_id,
2610: l_chrv_rec,
2611: l_return_status);
2612: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
2613: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2614: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
2615: raise OKE_API.G_EXCEPTION_ERROR;
2616: End If;
2617:
2610: l_chrv_rec,
2611: l_return_status);
2612: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
2613: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2614: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
2615: raise OKE_API.G_EXCEPTION_ERROR;
2616: End If;
2617:
2618:
2611: l_return_status);
2612: If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
2613: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2614: Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
2615: raise OKE_API.G_EXCEPTION_ERROR;
2616: End If;
2617:
2618:
2619: l_chrv_rec.contract_number := p_dest_doc_number;
2695: p_chrv_rec => l_chrv_rec,
2696: x_chr_rec => x_chr_rec,
2697: x_chrv_rec => x_chrv_rec);
2698:
2699: If l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
2700: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2701: Elsif l_return_status = OKE_API.G_RET_STS_ERROR Then
2702: raise OKE_API.G_EXCEPTION_ERROR;
2703: End If;
2696: x_chr_rec => x_chr_rec,
2697: x_chrv_rec => x_chrv_rec);
2698:
2699: If l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
2700: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2701: Elsif l_return_status = OKE_API.G_RET_STS_ERROR Then
2702: raise OKE_API.G_EXCEPTION_ERROR;
2703: End If;
2704:
2697: x_chrv_rec => x_chrv_rec);
2698:
2699: If l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
2700: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2701: Elsif l_return_status = OKE_API.G_RET_STS_ERROR Then
2702: raise OKE_API.G_EXCEPTION_ERROR;
2703: End If;
2704:
2705: IF p_copy_admin_yn = 'Y' then
2698:
2699: If l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
2700: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2701: Elsif l_return_status = OKE_API.G_RET_STS_ERROR Then
2702: raise OKE_API.G_EXCEPTION_ERROR;
2703: End If;
2704:
2705: IF p_copy_admin_yn = 'Y' then
2706: open c_get_process;
2735: , p_cpsv_tbl => l_cpsv_tbl_in
2736: , x_cpsv_tbl => l_cpsv_tbl_out
2737: );
2738:
2739: If l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
2740: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2741: Elsif l_return_status = OKE_API.G_RET_STS_ERROR Then
2742: raise OKE_API.G_EXCEPTION_ERROR;
2743: End If;
2736: , x_cpsv_tbl => l_cpsv_tbl_out
2737: );
2738:
2739: If l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
2740: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2741: Elsif l_return_status = OKE_API.G_RET_STS_ERROR Then
2742: raise OKE_API.G_EXCEPTION_ERROR;
2743: End If;
2744: end if;
2737: );
2738:
2739: If l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
2740: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2741: Elsif l_return_status = OKE_API.G_RET_STS_ERROR Then
2742: raise OKE_API.G_EXCEPTION_ERROR;
2743: End If;
2744: end if;
2745: close c_get_process;
2738:
2739: If l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
2740: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2741: Elsif l_return_status = OKE_API.G_RET_STS_ERROR Then
2742: raise OKE_API.G_EXCEPTION_ERROR;
2743: End If;
2744: end if;
2745: close c_get_process;
2746:
2750: FETCH c_access INTO l_role,l_person,l_start_date,l_end_date;
2751: EXIT WHEN c_access%NOTFOUND;
2752:
2753: OKE_K_ACCESS_PVT.CREATE_CONTRACT_ACCESS
2754: ( P_COMMIT => OKE_API.G_FALSE,
2755: P_OBJECT_TYPE => 'OKE_K_HEADERS',
2756: P_OBJECT_ID => x_chr_rec.k_header_id,
2757: P_ROLE_ID => l_role,
2758: P_PERSON_ID => l_person,
2765: X_RETURN_STATUS => l_return_status,
2766: X_MSG_COUNT => x_msg_count,
2767: X_MSG_DATA => x_msg_data
2768: );
2769: If l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
2770: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2771: Elsif l_return_status = OKE_API.G_RET_STS_ERROR Then
2772: raise OKE_API.G_EXCEPTION_ERROR;
2773: End If;
2766: X_MSG_COUNT => x_msg_count,
2767: X_MSG_DATA => x_msg_data
2768: );
2769: If l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
2770: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2771: Elsif l_return_status = OKE_API.G_RET_STS_ERROR Then
2772: raise OKE_API.G_EXCEPTION_ERROR;
2773: End If;
2774:
2767: X_MSG_DATA => x_msg_data
2768: );
2769: If l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
2770: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2771: Elsif l_return_status = OKE_API.G_RET_STS_ERROR Then
2772: raise OKE_API.G_EXCEPTION_ERROR;
2773: End If;
2774:
2775: END LOOP;
2768: );
2769: If l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
2770: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2771: Elsif l_return_status = OKE_API.G_RET_STS_ERROR Then
2772: raise OKE_API.G_EXCEPTION_ERROR;
2773: End If;
2774:
2775: END LOOP;
2776: END IF;
2821: null ,
2822: null ,
2823: l_chr_rec.k_header_id );
2824:
2825: If l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
2826: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2827: Elsif l_return_status = OKE_API.G_RET_STS_ERROR Then
2828: raise OKE_API.G_EXCEPTION_ERROR;
2829: End If;
2822: null ,
2823: l_chr_rec.k_header_id );
2824:
2825: If l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
2826: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2827: Elsif l_return_status = OKE_API.G_RET_STS_ERROR Then
2828: raise OKE_API.G_EXCEPTION_ERROR;
2829: End If;
2830:
2823: l_chr_rec.k_header_id );
2824:
2825: If l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
2826: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2827: Elsif l_return_status = OKE_API.G_RET_STS_ERROR Then
2828: raise OKE_API.G_EXCEPTION_ERROR;
2829: End If;
2830:
2831: End If;
2824:
2825: If l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
2826: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2827: Elsif l_return_status = OKE_API.G_RET_STS_ERROR Then
2828: raise OKE_API.G_EXCEPTION_ERROR;
2829: End If;
2830:
2831: End If;
2832:
2840: x_chr_rec.k_header_id ,
2841: null ,
2842: null );
2843:
2844: If l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
2845: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2846: Elsif l_return_status = OKE_API.G_RET_STS_ERROR Then
2847: raise OKE_API.G_EXCEPTION_ERROR;
2848: End If;
2841: null ,
2842: null );
2843:
2844: If l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
2845: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2846: Elsif l_return_status = OKE_API.G_RET_STS_ERROR Then
2847: raise OKE_API.G_EXCEPTION_ERROR;
2848: End If;
2849:
2842: null );
2843:
2844: If l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
2845: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2846: Elsif l_return_status = OKE_API.G_RET_STS_ERROR Then
2847: raise OKE_API.G_EXCEPTION_ERROR;
2848: End If;
2849:
2850: End If;
2843:
2844: If l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
2845: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2846: Elsif l_return_status = OKE_API.G_RET_STS_ERROR Then
2847: raise OKE_API.G_EXCEPTION_ERROR;
2848: End If;
2849:
2850: End If;
2851:
2867: p_to_cle_id => NULL
2868: );
2869:
2870:
2871: If l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
2872: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2873: Elsif l_return_status = OKE_API.G_RET_STS_ERROR Then
2874: raise OKE_API.G_EXCEPTION_ERROR;
2875: End If;
2868: );
2869:
2870:
2871: If l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
2872: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2873: Elsif l_return_status = OKE_API.G_RET_STS_ERROR Then
2874: raise OKE_API.G_EXCEPTION_ERROR;
2875: End If;
2876: End If;
2869:
2870:
2871: If l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
2872: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2873: Elsif l_return_status = OKE_API.G_RET_STS_ERROR Then
2874: raise OKE_API.G_EXCEPTION_ERROR;
2875: End If;
2876: End If;
2877:
2870:
2871: If l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
2872: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2873: Elsif l_return_status = OKE_API.G_RET_STS_ERROR Then
2874: raise OKE_API.G_EXCEPTION_ERROR;
2875: End If;
2876: End If;
2877:
2878:
2893: p_to_del_id => null,
2894: default_flag => 'N'
2895: );
2896:
2897: If l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
2898: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2899: Elsif l_return_status = OKE_API.G_RET_STS_ERROR Then
2900: raise OKE_API.G_EXCEPTION_ERROR;
2901: End If;
2894: default_flag => 'N'
2895: );
2896:
2897: If l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
2898: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2899: Elsif l_return_status = OKE_API.G_RET_STS_ERROR Then
2900: raise OKE_API.G_EXCEPTION_ERROR;
2901: End If;
2902:
2895: );
2896:
2897: If l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
2898: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2899: Elsif l_return_status = OKE_API.G_RET_STS_ERROR Then
2900: raise OKE_API.G_EXCEPTION_ERROR;
2901: End If;
2902:
2903: End If;
2896:
2897: If l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
2898: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2899: Elsif l_return_status = OKE_API.G_RET_STS_ERROR Then
2900: raise OKE_API.G_EXCEPTION_ERROR;
2901: End If;
2902:
2903: End If;
2904:
2921:
2922: IF l_check = 'x' THEN
2923: l_check := 'Y';
2924: ELSE
2925: OKE_API.SET_MESSAGE (
2926: p_app_name =>'OKE',
2927: p_msg_name =>'OKE_KCOPY_ITEMS_NOCOPY');
2928: x_return_status := OKE_API.G_RET_STS_WARNING;
2929: l_check := 'N';
2924: ELSE
2925: OKE_API.SET_MESSAGE (
2926: p_app_name =>'OKE',
2927: p_msg_name =>'OKE_KCOPY_ITEMS_NOCOPY');
2928: x_return_status := OKE_API.G_RET_STS_WARNING;
2929: l_check := 'N';
2930: END IF;
2931:
2932:
2948: p_dest_start_date ,
2949: end_date => NULL);
2950: --p_dest_end_date );
2951:
2952: If l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
2953: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2954: Elsif l_return_status = OKE_API.G_RET_STS_ERROR Then
2955: raise OKE_API.G_EXCEPTION_ERROR;
2956: End If;
2949: end_date => NULL);
2950: --p_dest_end_date );
2951:
2952: If l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
2953: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2954: Elsif l_return_status = OKE_API.G_RET_STS_ERROR Then
2955: raise OKE_API.G_EXCEPTION_ERROR;
2956: End If;
2957:
2950: --p_dest_end_date );
2951:
2952: If l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
2953: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2954: Elsif l_return_status = OKE_API.G_RET_STS_ERROR Then
2955: raise OKE_API.G_EXCEPTION_ERROR;
2956: End If;
2957:
2958:
2951:
2952: If l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
2953: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
2954: Elsif l_return_status = OKE_API.G_RET_STS_ERROR Then
2955: raise OKE_API.G_EXCEPTION_ERROR;
2956: End If;
2957:
2958:
2959: END IF;
2961: -- recalculate totals now -- bug#4302591
2962: Calculate_Totals(x_chr_rec.k_header_id);
2963:
2964: IF g_pty_not_copied THEN
2965: OKE_API.SET_MESSAGE (
2966: p_app_name => 'OKE',
2967: p_msg_name => 'OKE_KCOPY_PARTIES_NOCOPY');
2968: x_return_status := OKE_API.G_RET_STS_WARNING;
2969: END IF;
2964: IF g_pty_not_copied THEN
2965: OKE_API.SET_MESSAGE (
2966: p_app_name => 'OKE',
2967: p_msg_name => 'OKE_KCOPY_PARTIES_NOCOPY');
2968: x_return_status := OKE_API.G_RET_STS_WARNING;
2969: END IF;
2970:
2971: IF x_return_status <> OKE_API.G_RET_STS_SUCCESS THEN
2972: FND_MSG_PUB.Count_And_Get(
2967: p_msg_name => 'OKE_KCOPY_PARTIES_NOCOPY');
2968: x_return_status := OKE_API.G_RET_STS_WARNING;
2969: END IF;
2970:
2971: IF x_return_status <> OKE_API.G_RET_STS_SUCCESS THEN
2972: FND_MSG_PUB.Count_And_Get(
2973: p_count => x_msg_count
2974: , p_data => x_msg_data
2975: );
2975: );
2976: END IF;
2977:
2978: EXCEPTION
2979: when OKE_API.G_EXCEPTION_ERROR then
2980: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
2981: p_api_name => l_api_name,
2982: p_pkg_name => g_pkg_name,
2983: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
2976: END IF;
2977:
2978: EXCEPTION
2979: when OKE_API.G_EXCEPTION_ERROR then
2980: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
2981: p_api_name => l_api_name,
2982: p_pkg_name => g_pkg_name,
2983: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
2984: x_msg_count => x_msg_count,
2979: when OKE_API.G_EXCEPTION_ERROR then
2980: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
2981: p_api_name => l_api_name,
2982: p_pkg_name => g_pkg_name,
2983: p_exc_name => 'OKE_API.G_RET_STS_ERROR',
2984: x_msg_count => x_msg_count,
2985: x_msg_data => x_msg_data,
2986: p_api_type => g_api_type);
2987:
2984: x_msg_count => x_msg_count,
2985: x_msg_data => x_msg_data,
2986: p_api_type => g_api_type);
2987:
2988: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
2989: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
2990: p_api_name => l_api_name,
2991: p_pkg_name => g_pkg_name,
2992: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
2985: x_msg_data => x_msg_data,
2986: p_api_type => g_api_type);
2987:
2988: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
2989: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
2990: p_api_name => l_api_name,
2991: p_pkg_name => g_pkg_name,
2992: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
2993: x_msg_count => x_msg_count,
2988: when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
2989: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
2990: p_api_name => l_api_name,
2991: p_pkg_name => g_pkg_name,
2992: p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
2993: x_msg_count => x_msg_count,
2994: x_msg_data => x_msg_data,
2995: p_api_type => g_api_type);
2996:
2994: x_msg_data => x_msg_data,
2995: p_api_type => g_api_type);
2996:
2997: when OTHERS then
2998: x_return_status := OKE_API.HANDLE_EXCEPTIONS(
2999: p_api_name => l_api_name,
3000: p_pkg_name => g_pkg_name,
3001: p_exc_name => 'OTHERS',
3002: x_msg_count => x_msg_count,