33: -- PROCEDURE insert_pending_int
34: ---------------------------------------------------------------------------
35: PROCEDURE insert_pending_int(
36: p_api_version IN NUMBER,
37: p_init_msg_list IN VARCHAR2 DEFAULT okl_api.G_FALSE,
38: p_contract_id IN NUMBER,
39: x_oinv_rec OUT NOCOPY oinv_rec_type,
40: x_return_status OUT NOCOPY VARCHAR2,
41: x_msg_count OUT NOCOPY NUMBER,
117:
118:
119: --dbms_output.put_line('case number - ' || l_oinv_rec.case_number);
120:
121: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
122: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
123: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
124: RAISE okl_api.G_EXCEPTION_ERROR;
125: END IF;
118:
119: --dbms_output.put_line('case number - ' || l_oinv_rec.case_number);
120:
121: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
122: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
123: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
124: RAISE okl_api.G_EXCEPTION_ERROR;
125: END IF;
126:
119: --dbms_output.put_line('case number - ' || l_oinv_rec.case_number);
120:
121: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
122: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
123: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
124: RAISE okl_api.G_EXCEPTION_ERROR;
125: END IF;
126:
127: FOR cur IN l_oin_csr(p_contract_id) LOOP
120:
121: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
122: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
123: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
124: RAISE okl_api.G_EXCEPTION_ERROR;
125: END IF;
126:
127: FOR cur IN l_oin_csr(p_contract_id) LOOP
128: l_oinv_rec.id := cur.id;
155: END IF;
156:
157: x_oinv_rec := lx_oinv_rec;
158:
159: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
160: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
161: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
162: RAISE okl_api.G_EXCEPTION_ERROR;
163: END IF;
156:
157: x_oinv_rec := lx_oinv_rec;
158:
159: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
160: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
161: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
162: RAISE okl_api.G_EXCEPTION_ERROR;
163: END IF;
164:
157: x_oinv_rec := lx_oinv_rec;
158:
159: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
160: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
161: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
162: RAISE okl_api.G_EXCEPTION_ERROR;
163: END IF;
164:
165: -- Processing ends
158:
159: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
160: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
161: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
162: RAISE okl_api.G_EXCEPTION_ERROR;
163: END IF;
164:
165: -- Processing ends
166:
163: END IF;
164:
165: -- Processing ends
166:
167: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
168: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
169: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
170: RAISE okl_api.G_EXCEPTION_ERROR;
171: END IF;
164:
165: -- Processing ends
166:
167: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
168: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
169: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
170: RAISE okl_api.G_EXCEPTION_ERROR;
171: END IF;
172:
165: -- Processing ends
166:
167: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
168: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
169: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
170: RAISE okl_api.G_EXCEPTION_ERROR;
171: END IF;
172:
173: x_return_status := l_return_status;
166:
167: IF (l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) THEN
168: RAISE okl_api.G_EXCEPTION_UNEXPECTED_ERROR;
169: ELSIF (l_return_status = okl_api.G_RET_STS_ERROR) THEN
170: RAISE okl_api.G_EXCEPTION_ERROR;
171: END IF;
172:
173: x_return_status := l_return_status;
174: okl_api.END_ACTIVITY(x_msg_count, x_msg_data);
170: RAISE okl_api.G_EXCEPTION_ERROR;
171: END IF;
172:
173: x_return_status := l_return_status;
174: okl_api.END_ACTIVITY(x_msg_count, x_msg_data);
175: EXCEPTION
176: WHEN OKC_API.G_EXCEPTION_ERROR THEN
177: x_return_status := OKC_API.HANDLE_EXCEPTIONS
178: (
209: -- PROCEDURE process_pending_int
210: ---------------------------------------------------------------------------
211: PROCEDURE process_pending_int(
212: p_api_version IN NUMBER,
213: p_init_msg_list IN VARCHAR2 DEFAULT okl_api.G_FALSE,
214: p_oinv_rec IN oinv_rec_type,
215: p_iohv_rec IN iohv_rec_type,
216: x_oinv_rec OUT NOCOPY oinv_rec_type,
217: x_return_status OUT NOCOPY VARCHAR2,
450: END IF;
451:
452: -- Processing ends
453: x_return_status := l_return_status;
454: okl_api.END_ACTIVITY(x_msg_count, x_msg_data);
455: EXCEPTION
456: WHEN OKC_API.G_EXCEPTION_ERROR THEN
457: x_return_status := OKC_API.HANDLE_EXCEPTIONS
458: (
489: -- PROCEDURE process_pending_asset
490: ---------------------------------------------------------------------------
491: PROCEDURE process_pending_asset(
492: p_api_version IN NUMBER,
493: p_init_msg_list IN VARCHAR2 DEFAULT okl_api.G_FALSE,
494: p_iohv_rec IN iohv_rec_type,
495: x_return_status OUT NOCOPY VARCHAR2,
496: x_msg_count OUT NOCOPY NUMBER,
497: x_msg_data OUT NOCOPY VARCHAR2) AS
599:
600: -- Processing ends
601: l_return_status := Okc_Api.G_RET_STS_SUCCESS;
602: x_return_status := l_return_status;
603: okl_api.END_ACTIVITY(x_msg_count, x_msg_data);
604: EXCEPTION
605: WHEN OKC_API.G_EXCEPTION_ERROR THEN
606: x_return_status := OKC_API.HANDLE_EXCEPTIONS
607: (
693: l_return_status := OKL_CONTRACT_INFO.get_syndicate_flag(
694: p_contract_id => l_oinv_rec.khr_id
695: ,x_syndicate_flag => l_syndicate_flag);
696:
697: IF NOT ((l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) OR
698: (l_return_status = okl_api.G_RET_STS_ERROR) OR
699: (l_syndicate_flag = 'Y')) THEN
700: l_cust_reported := l_cust_reported + 1;
701: --dbms_output.put_line('report - ' || l_oinv_rec.khr_id);
694: p_contract_id => l_oinv_rec.khr_id
695: ,x_syndicate_flag => l_syndicate_flag);
696:
697: IF NOT ((l_return_status = okl_api.G_RET_STS_UNEXP_ERROR) OR
698: (l_return_status = okl_api.G_RET_STS_ERROR) OR
699: (l_syndicate_flag = 'Y')) THEN
700: l_cust_reported := l_cust_reported + 1;
701: --dbms_output.put_line('report - ' || l_oinv_rec.khr_id);
702: iex_open_interface_pub.insert_pending(