51: p_kpl_rec IN party_rec_type,
52: x_kpl_rec OUT NOCOPY party_rec_type
53: ) AS
54:
55: l_return_status VARCHAR2(1) default OKL_API.G_RET_STS_SUCCESS;
56: l_api_name CONSTANT varchar2(30) := 'create_party';
57: l_api_version CONSTANT NUMBER := 1.0;
58:
59: lp_cplv_rec OKL_OKC_MIGRATION_PVT.cplv_rec_type;
61: lp_kplv_rec okl_k_party_roles_pvt.kplv_rec_type;
62: lx_kplv_rec okl_k_party_roles_pvt.kplv_rec_type;
63:
64: Begin
65: x_return_status := OKL_API.G_RET_STS_SUCCESS;
66: -- Call start_activity to create savepoint, check compatibility
67: -- and initialize message list
68: x_return_status := OKL_API.START_ACTIVITY (
69: l_api_name
64: Begin
65: x_return_status := OKL_API.G_RET_STS_SUCCESS;
66: -- Call start_activity to create savepoint, check compatibility
67: -- and initialize message list
68: x_return_status := OKL_API.START_ACTIVITY (
69: l_api_name
70: ,p_init_msg_list
71: ,'_PVT'
72: ,x_return_status);
70: ,p_init_msg_list
71: ,'_PVT'
72: ,x_return_status);
73: -- Check if activity started successfully
74: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
75: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
76: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
77: RAISE OKL_API.G_EXCEPTION_ERROR;
78: END IF;
71: ,'_PVT'
72: ,x_return_status);
73: -- Check if activity started successfully
74: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
75: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
76: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
77: RAISE OKL_API.G_EXCEPTION_ERROR;
78: END IF;
79:
72: ,x_return_status);
73: -- Check if activity started successfully
74: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
75: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
76: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
77: RAISE OKL_API.G_EXCEPTION_ERROR;
78: END IF;
79:
80: lp_cplv_rec.id := p_kpl_rec.id;
73: -- Check if activity started successfully
74: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
75: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
76: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
77: RAISE OKL_API.G_EXCEPTION_ERROR;
78: END IF;
79:
80: lp_cplv_rec.id := p_kpl_rec.id;
81: lp_cplv_rec.object1_id1 := p_kpl_rec.object1_id1;
118: x_kplv_rec => lx_kplv_rec);
119:
120: x_kpl_rec.id := lx_cplv_rec.id;
121:
122: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
123: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
124: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
125: RAISE OKL_API.G_EXCEPTION_ERROR;
126: END IF;
119:
120: x_kpl_rec.id := lx_cplv_rec.id;
121:
122: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
123: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
124: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
125: RAISE OKL_API.G_EXCEPTION_ERROR;
126: END IF;
127:
120: x_kpl_rec.id := lx_cplv_rec.id;
121:
122: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
123: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
124: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
125: RAISE OKL_API.G_EXCEPTION_ERROR;
126: END IF;
127:
128: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
121:
122: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
123: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
124: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
125: RAISE OKL_API.G_EXCEPTION_ERROR;
126: END IF;
127:
128: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
129:
124: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
125: RAISE OKL_API.G_EXCEPTION_ERROR;
126: END IF;
127:
128: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
129:
130: EXCEPTION
131: WHEN OKL_API.G_EXCEPTION_ERROR THEN
132: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
127:
128: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
129:
130: EXCEPTION
131: WHEN OKL_API.G_EXCEPTION_ERROR THEN
132: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
133: l_api_name,
134: G_PKG_NAME,
135: 'OKL_API.G_RET_STS_ERROR',
128: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
129:
130: EXCEPTION
131: WHEN OKL_API.G_EXCEPTION_ERROR THEN
132: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
133: l_api_name,
134: G_PKG_NAME,
135: 'OKL_API.G_RET_STS_ERROR',
136: x_msg_count,
131: WHEN OKL_API.G_EXCEPTION_ERROR THEN
132: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
133: l_api_name,
134: G_PKG_NAME,
135: 'OKL_API.G_RET_STS_ERROR',
136: x_msg_count,
137: x_msg_data,
138: '_PVT');
139: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
135: 'OKL_API.G_RET_STS_ERROR',
136: x_msg_count,
137: x_msg_data,
138: '_PVT');
139: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
140: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
141: l_api_name,
142: G_PKG_NAME,
143: 'OKL_API.G_RET_STS_UNEXP_ERROR',
136: x_msg_count,
137: x_msg_data,
138: '_PVT');
139: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
140: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
141: l_api_name,
142: G_PKG_NAME,
143: 'OKL_API.G_RET_STS_UNEXP_ERROR',
144: x_msg_count,
139: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
140: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
141: l_api_name,
142: G_PKG_NAME,
143: 'OKL_API.G_RET_STS_UNEXP_ERROR',
144: x_msg_count,
145: x_msg_data,
146: '_PVT');
147: WHEN OTHERS THEN
144: x_msg_count,
145: x_msg_data,
146: '_PVT');
147: WHEN OTHERS THEN
148: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
149: l_api_name,
150: G_PKG_NAME,
151: 'OTHERS',
152: x_msg_count,
754: END IF;
755:
756: EXCEPTION
757: WHEN OTHERS THEN
758: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
759: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
760: END raise_business_event;
761:
762:
755:
756: EXCEPTION
757: WHEN OTHERS THEN
758: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
759: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
760: END raise_business_event;
761:
762:
763: BEGIN
1091: END IF;
1092:
1093: raise_business_event(p_chr_id => x_chr_id
1094: ,x_return_status => x_return_status);
1095: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1096: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1097: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1098: RAISE OKL_API.G_EXCEPTION_ERROR;
1099: END IF;
1092:
1093: raise_business_event(p_chr_id => x_chr_id
1094: ,x_return_status => x_return_status);
1095: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1096: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1097: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1098: RAISE OKL_API.G_EXCEPTION_ERROR;
1099: END IF;
1100:
1093: raise_business_event(p_chr_id => x_chr_id
1094: ,x_return_status => x_return_status);
1095: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1096: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1097: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1098: RAISE OKL_API.G_EXCEPTION_ERROR;
1099: END IF;
1100:
1101: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count,
1094: ,x_return_status => x_return_status);
1095: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1096: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1097: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1098: RAISE OKL_API.G_EXCEPTION_ERROR;
1099: END IF;
1100:
1101: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count,
1102: x_msg_data => x_msg_data);
1161: BEGIN
1162: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
1163: -- Raise the event if it is a new Contract
1164: l_check := Okl_Lla_Util_Pvt.check_new_contract(p_chr_id);
1165: IF (l_check= OKL_API.G_TRUE) THEN
1166: wf_event.AddParameterToList(G_WF_ITM_CONTRACT_ID,p_chr_id,l_parameter_list);
1167:
1168: OKL_WF_PVT.raise_event (p_api_version => p_api_version,
1169: p_init_msg_list => p_init_msg_list,
1176: END IF;
1177:
1178: EXCEPTION
1179: WHEN OTHERS THEN
1180: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1181: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1182: END raise_business_event;
1183:
1184: BEGIN
1177:
1178: EXCEPTION
1179: WHEN OTHERS THEN
1180: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1181: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1182: END raise_business_event;
1183:
1184: BEGIN
1185: IF okl_context.get_okc_org_id IS NULL THEN
1233: RAISE OKC_API.G_EXCEPTION_ERROR;
1234: END IF;
1235: raise_business_event(p_chr_id => p_durv_rec.chr_id
1236: ,x_return_status => x_return_status);
1237: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1238: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1239: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1240: RAISE OKL_API.G_EXCEPTION_ERROR;
1241: END IF;
1234: END IF;
1235: raise_business_event(p_chr_id => p_durv_rec.chr_id
1236: ,x_return_status => x_return_status);
1237: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1238: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1239: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1240: RAISE OKL_API.G_EXCEPTION_ERROR;
1241: END IF;
1242: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
1235: raise_business_event(p_chr_id => p_durv_rec.chr_id
1236: ,x_return_status => x_return_status);
1237: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1238: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1239: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1240: RAISE OKL_API.G_EXCEPTION_ERROR;
1241: END IF;
1242: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
1243:
1236: ,x_return_status => x_return_status);
1237: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1238: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1239: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1240: RAISE OKL_API.G_EXCEPTION_ERROR;
1241: END IF;
1242: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
1243:
1244: EXCEPTION