1: PACKAGE BODY OKC_SALES_CREDIT_PUB AS
2: /* $Header: OKCPSCRB.pls 120.0 2005/05/26 09:26:26 appldev noship $ */
3: l_debug VARCHAR2(1) := NVL(FND_PROFILE.VALUE('AFLOG_ENABLED'),'N');
4:
5: G_APP_NAME CONSTANT VARCHAR2(3) := OKC_API.G_APP_NAME;
6: G_PKG_NAME CONSTANT VARCHAR2(200) := 'OKC_SALES_CREDIT_PUB';
7: G_SCRV_REC SCRV_REC_TYPE;
8: procedure reset(p_scrv_rec IN scrv_rec_type) is
9: begin
34: p_scrv_rec IN scrv_rec_type,
35: x_scrv_rec OUT NOCOPY scrv_rec_type) is
36: l_api_name CONSTANT VARCHAR2(30) := 'Insert_Sales_Credit';
37: l_api_version CONSTANT NUMBER := 1;
38: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
39: begin
40: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
41: p_init_msg_list,
42: '_PUB',
36: l_api_name CONSTANT VARCHAR2(30) := 'Insert_Sales_Credit';
37: l_api_version CONSTANT NUMBER := 1;
38: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
39: begin
40: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
41: p_init_msg_list,
42: '_PUB',
43: x_return_status);
44: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
40: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
41: p_init_msg_list,
42: '_PUB',
43: x_return_status);
44: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
45: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
46: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
47: RAISE OKC_API.G_EXCEPTION_ERROR;
48: END IF;
41: p_init_msg_list,
42: '_PUB',
43: x_return_status);
44: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
45: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
46: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
47: RAISE OKC_API.G_EXCEPTION_ERROR;
48: END IF;
49: --
42: '_PUB',
43: x_return_status);
44: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
45: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
46: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
47: RAISE OKC_API.G_EXCEPTION_ERROR;
48: END IF;
49: --
50: -- Call Before Logic Hook
43: x_return_status);
44: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
45: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
46: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
47: RAISE OKC_API.G_EXCEPTION_ERROR;
48: END IF;
49: --
50: -- Call Before Logic Hook
51: --
50: -- Call Before Logic Hook
51: --
52: g_scrv_rec := p_scrv_rec;
53: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
54: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
55: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
56: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
57: raise OKC_API.G_EXCEPTION_ERROR;
58: END IF;
51: --
52: g_scrv_rec := p_scrv_rec;
53: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
54: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
55: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
56: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
57: raise OKC_API.G_EXCEPTION_ERROR;
58: END IF;
59: reset(p_scrv_rec);
52: g_scrv_rec := p_scrv_rec;
53: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
54: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
55: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
56: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
57: raise OKC_API.G_EXCEPTION_ERROR;
58: END IF;
59: reset(p_scrv_rec);
60: OKC_SALES_CREDIT_PVT.create_Sales_Credit(p_api_version,
53: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
54: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
55: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
56: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
57: raise OKC_API.G_EXCEPTION_ERROR;
58: END IF;
59: reset(p_scrv_rec);
60: OKC_SALES_CREDIT_PVT.create_Sales_Credit(p_api_version,
61: p_init_msg_list,
63: x_msg_count,
64: x_msg_data,
65: g_scrv_rec,
66: x_scrv_rec);
67: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
68: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
69: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
70: RAISE OKC_API.G_EXCEPTION_ERROR;
71: END IF;
64: x_msg_data,
65: g_scrv_rec,
66: x_scrv_rec);
67: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
68: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
69: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
70: RAISE OKC_API.G_EXCEPTION_ERROR;
71: END IF;
72: --
65: g_scrv_rec,
66: x_scrv_rec);
67: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
68: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
69: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
70: RAISE OKC_API.G_EXCEPTION_ERROR;
71: END IF;
72: --
73: -- Call After Logic Hook
66: x_scrv_rec);
67: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
68: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
69: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
70: RAISE OKC_API.G_EXCEPTION_ERROR;
71: END IF;
72: --
73: -- Call After Logic Hook
74: --
73: -- Call After Logic Hook
74: --
75: g_scrv_rec := x_scrv_rec;
76: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
77: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
78: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
79: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
80: raise OKC_API.G_EXCEPTION_ERROR;
81: END IF;
74: --
75: g_scrv_rec := x_scrv_rec;
76: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
77: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
78: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
79: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
80: raise OKC_API.G_EXCEPTION_ERROR;
81: END IF;
82: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
75: g_scrv_rec := x_scrv_rec;
76: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
77: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
78: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
79: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
80: raise OKC_API.G_EXCEPTION_ERROR;
81: END IF;
82: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
83: EXCEPTION
76: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
77: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
78: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
79: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
80: raise OKC_API.G_EXCEPTION_ERROR;
81: END IF;
82: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
83: EXCEPTION
84: WHEN OKC_API.G_EXCEPTION_ERROR THEN
78: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
79: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
80: raise OKC_API.G_EXCEPTION_ERROR;
81: END IF;
82: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
83: EXCEPTION
84: WHEN OKC_API.G_EXCEPTION_ERROR THEN
85: x_return_status := OKC_API.HANDLE_EXCEPTIONS
86: (substr(l_api_name,1,26),
80: raise OKC_API.G_EXCEPTION_ERROR;
81: END IF;
82: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
83: EXCEPTION
84: WHEN OKC_API.G_EXCEPTION_ERROR THEN
85: x_return_status := OKC_API.HANDLE_EXCEPTIONS
86: (substr(l_api_name,1,26),
87: G_PKG_NAME,
88: 'OKC_API.G_RET_STS_ERROR',
81: END IF;
82: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
83: EXCEPTION
84: WHEN OKC_API.G_EXCEPTION_ERROR THEN
85: x_return_status := OKC_API.HANDLE_EXCEPTIONS
86: (substr(l_api_name,1,26),
87: G_PKG_NAME,
88: 'OKC_API.G_RET_STS_ERROR',
89: x_msg_count,
84: WHEN OKC_API.G_EXCEPTION_ERROR THEN
85: x_return_status := OKC_API.HANDLE_EXCEPTIONS
86: (substr(l_api_name,1,26),
87: G_PKG_NAME,
88: 'OKC_API.G_RET_STS_ERROR',
89: x_msg_count,
90: x_msg_data,
91: '_PUB');
92: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
88: 'OKC_API.G_RET_STS_ERROR',
89: x_msg_count,
90: x_msg_data,
91: '_PUB');
92: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
93: x_return_status := OKC_API.HANDLE_EXCEPTIONS
94: (substr(l_api_name,1,26),
95: G_PKG_NAME,
96: 'OKC_API.G_RET_STS_UNEXP_ERROR',
89: x_msg_count,
90: x_msg_data,
91: '_PUB');
92: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
93: x_return_status := OKC_API.HANDLE_EXCEPTIONS
94: (substr(l_api_name,1,26),
95: G_PKG_NAME,
96: 'OKC_API.G_RET_STS_UNEXP_ERROR',
97: x_msg_count,
92: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
93: x_return_status := OKC_API.HANDLE_EXCEPTIONS
94: (substr(l_api_name,1,26),
95: G_PKG_NAME,
96: 'OKC_API.G_RET_STS_UNEXP_ERROR',
97: x_msg_count,
98: x_msg_data,
99: '_PUB');
100: WHEN OTHERS THEN
97: x_msg_count,
98: x_msg_data,
99: '_PUB');
100: WHEN OTHERS THEN
101: x_return_status := OKC_API.HANDLE_EXCEPTIONS
102: (substr(l_api_name,1,26),
103: G_PKG_NAME,
104: 'OTHERS',
105: x_msg_count,
123: x_msg_data OUT NOCOPY VARCHAR2,
124: p_scrv_tbl IN scrv_tbl_type,
125: x_scrv_tbl OUT NOCOPY scrv_tbl_type) is
126: i NUMBER;
127: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
128: begin
129: OKC_API.init_msg_list(p_init_msg_list);
130: x_return_status:= OKC_API.G_RET_STS_SUCCESS;
131: if (p_scrv_tbl.COUNT>0) then
125: x_scrv_tbl OUT NOCOPY scrv_tbl_type) is
126: i NUMBER;
127: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
128: begin
129: OKC_API.init_msg_list(p_init_msg_list);
130: x_return_status:= OKC_API.G_RET_STS_SUCCESS;
131: if (p_scrv_tbl.COUNT>0) then
132: i := p_scrv_tbl.FIRST;
133: LOOP
126: i NUMBER;
127: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
128: begin
129: OKC_API.init_msg_list(p_init_msg_list);
130: x_return_status:= OKC_API.G_RET_STS_SUCCESS;
131: if (p_scrv_tbl.COUNT>0) then
132: i := p_scrv_tbl.FIRST;
133: LOOP
134: Insert_Sales_Credit(p_api_version=>p_api_version,
131: if (p_scrv_tbl.COUNT>0) then
132: i := p_scrv_tbl.FIRST;
133: LOOP
134: Insert_Sales_Credit(p_api_version=>p_api_version,
135: p_init_msg_list=>OKC_API.G_FALSE,
136: x_return_status=>l_return_status,
137: x_msg_count=>x_msg_count,
138: x_msg_data=>x_msg_data,
139: p_scrv_rec=>p_scrv_tbl(i),
137: x_msg_count=>x_msg_count,
138: x_msg_data=>x_msg_data,
139: p_scrv_rec=>p_scrv_tbl(i),
140: x_scrv_rec=>x_scrv_tbl(i));
141: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
142: x_return_status := l_return_status;
143: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
144: elsif (l_return_status = OKC_API.G_RET_STS_ERROR) then
145: x_return_status := l_return_status;
139: p_scrv_rec=>p_scrv_tbl(i),
140: x_scrv_rec=>x_scrv_tbl(i));
141: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
142: x_return_status := l_return_status;
143: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
144: elsif (l_return_status = OKC_API.G_RET_STS_ERROR) then
145: x_return_status := l_return_status;
146: end if;
147: EXIT WHEN (i=p_scrv_tbl.LAST);
140: x_scrv_rec=>x_scrv_tbl(i));
141: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
142: x_return_status := l_return_status;
143: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
144: elsif (l_return_status = OKC_API.G_RET_STS_ERROR) then
145: x_return_status := l_return_status;
146: end if;
147: EXIT WHEN (i=p_scrv_tbl.LAST);
148: i := p_scrv_tbl.NEXT(i);
160: p_scrv_rec IN scrv_rec_type,
161: x_scrv_rec OUT NOCOPY scrv_rec_type) is
162: l_api_name CONSTANT VARCHAR2(30) := 'update_Sales_Credit';
163: l_api_version CONSTANT NUMBER := 1;
164: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
165: begin
166: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
167: p_init_msg_list,
168: '_PUB',
162: l_api_name CONSTANT VARCHAR2(30) := 'update_Sales_Credit';
163: l_api_version CONSTANT NUMBER := 1;
164: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
165: begin
166: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
167: p_init_msg_list,
168: '_PUB',
169: x_return_status);
170: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
166: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
167: p_init_msg_list,
168: '_PUB',
169: x_return_status);
170: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
171: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
172: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
173: RAISE OKC_API.G_EXCEPTION_ERROR;
174: END IF;
167: p_init_msg_list,
168: '_PUB',
169: x_return_status);
170: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
171: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
172: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
173: RAISE OKC_API.G_EXCEPTION_ERROR;
174: END IF;
175: --
168: '_PUB',
169: x_return_status);
170: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
171: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
172: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
173: RAISE OKC_API.G_EXCEPTION_ERROR;
174: END IF;
175: --
176: -- Call Before Logic Hook
169: x_return_status);
170: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
171: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
172: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
173: RAISE OKC_API.G_EXCEPTION_ERROR;
174: END IF;
175: --
176: -- Call Before Logic Hook
177: --
176: -- Call Before Logic Hook
177: --
178: g_scrv_rec := p_scrv_rec;
179: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
180: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
181: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
182: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
183: raise OKC_API.G_EXCEPTION_ERROR;
184: END IF;
177: --
178: g_scrv_rec := p_scrv_rec;
179: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
180: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
181: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
182: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
183: raise OKC_API.G_EXCEPTION_ERROR;
184: END IF;
185: reset(p_scrv_rec);
178: g_scrv_rec := p_scrv_rec;
179: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
180: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
181: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
182: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
183: raise OKC_API.G_EXCEPTION_ERROR;
184: END IF;
185: reset(p_scrv_rec);
186: OKC_SALES_CREDIT_PVT.update_Sales_Credit(p_api_version,
179: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
180: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
181: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
182: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
183: raise OKC_API.G_EXCEPTION_ERROR;
184: END IF;
185: reset(p_scrv_rec);
186: OKC_SALES_CREDIT_PVT.update_Sales_Credit(p_api_version,
187: p_init_msg_list,
189: x_msg_count,
190: x_msg_data,
191: g_scrv_rec,
192: x_scrv_rec);
193: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
194: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
195: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
196: RAISE OKC_API.G_EXCEPTION_ERROR;
197: END IF;
190: x_msg_data,
191: g_scrv_rec,
192: x_scrv_rec);
193: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
194: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
195: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
196: RAISE OKC_API.G_EXCEPTION_ERROR;
197: END IF;
198: --
191: g_scrv_rec,
192: x_scrv_rec);
193: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
194: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
195: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
196: RAISE OKC_API.G_EXCEPTION_ERROR;
197: END IF;
198: --
199: -- Call After Logic Hook
192: x_scrv_rec);
193: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
194: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
195: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
196: RAISE OKC_API.G_EXCEPTION_ERROR;
197: END IF;
198: --
199: -- Call After Logic Hook
200: --
199: -- Call After Logic Hook
200: --
201: g_scrv_rec := x_scrv_rec;
202: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
203: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
204: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
205: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
206: raise OKC_API.G_EXCEPTION_ERROR;
207: END IF;
200: --
201: g_scrv_rec := x_scrv_rec;
202: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
203: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
204: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
205: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
206: raise OKC_API.G_EXCEPTION_ERROR;
207: END IF;
208: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
201: g_scrv_rec := x_scrv_rec;
202: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
203: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
204: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
205: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
206: raise OKC_API.G_EXCEPTION_ERROR;
207: END IF;
208: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
209: EXCEPTION
202: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
203: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
204: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
205: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
206: raise OKC_API.G_EXCEPTION_ERROR;
207: END IF;
208: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
209: EXCEPTION
210: WHEN OKC_API.G_EXCEPTION_ERROR THEN
204: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
205: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
206: raise OKC_API.G_EXCEPTION_ERROR;
207: END IF;
208: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
209: EXCEPTION
210: WHEN OKC_API.G_EXCEPTION_ERROR THEN
211: x_return_status := OKC_API.HANDLE_EXCEPTIONS
212: (substr(l_api_name,1,26),
206: raise OKC_API.G_EXCEPTION_ERROR;
207: END IF;
208: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
209: EXCEPTION
210: WHEN OKC_API.G_EXCEPTION_ERROR THEN
211: x_return_status := OKC_API.HANDLE_EXCEPTIONS
212: (substr(l_api_name,1,26),
213: G_PKG_NAME,
214: 'OKC_API.G_RET_STS_ERROR',
207: END IF;
208: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
209: EXCEPTION
210: WHEN OKC_API.G_EXCEPTION_ERROR THEN
211: x_return_status := OKC_API.HANDLE_EXCEPTIONS
212: (substr(l_api_name,1,26),
213: G_PKG_NAME,
214: 'OKC_API.G_RET_STS_ERROR',
215: x_msg_count,
210: WHEN OKC_API.G_EXCEPTION_ERROR THEN
211: x_return_status := OKC_API.HANDLE_EXCEPTIONS
212: (substr(l_api_name,1,26),
213: G_PKG_NAME,
214: 'OKC_API.G_RET_STS_ERROR',
215: x_msg_count,
216: x_msg_data,
217: '_PUB');
218: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
214: 'OKC_API.G_RET_STS_ERROR',
215: x_msg_count,
216: x_msg_data,
217: '_PUB');
218: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
219: x_return_status := OKC_API.HANDLE_EXCEPTIONS
220: (substr(l_api_name,1,26),
221: G_PKG_NAME,
222: 'OKC_API.G_RET_STS_UNEXP_ERROR',
215: x_msg_count,
216: x_msg_data,
217: '_PUB');
218: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
219: x_return_status := OKC_API.HANDLE_EXCEPTIONS
220: (substr(l_api_name,1,26),
221: G_PKG_NAME,
222: 'OKC_API.G_RET_STS_UNEXP_ERROR',
223: x_msg_count,
218: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
219: x_return_status := OKC_API.HANDLE_EXCEPTIONS
220: (substr(l_api_name,1,26),
221: G_PKG_NAME,
222: 'OKC_API.G_RET_STS_UNEXP_ERROR',
223: x_msg_count,
224: x_msg_data,
225: '_PUB');
226: WHEN OTHERS THEN
223: x_msg_count,
224: x_msg_data,
225: '_PUB');
226: WHEN OTHERS THEN
227: x_return_status := OKC_API.HANDLE_EXCEPTIONS
228: (substr(l_api_name,1,26),
229: G_PKG_NAME,
230: 'OTHERS',
231: x_msg_count,
249: x_msg_data OUT NOCOPY VARCHAR2,
250: p_scrv_tbl IN scrv_tbl_type,
251: x_scrv_tbl OUT NOCOPY scrv_tbl_type) is
252: i NUMBER;
253: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
254: begin
255: OKC_API.init_msg_list(p_init_msg_list);
256: x_return_status:= OKC_API.G_RET_STS_SUCCESS;
257: if (p_scrv_tbl.COUNT>0) then
251: x_scrv_tbl OUT NOCOPY scrv_tbl_type) is
252: i NUMBER;
253: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
254: begin
255: OKC_API.init_msg_list(p_init_msg_list);
256: x_return_status:= OKC_API.G_RET_STS_SUCCESS;
257: if (p_scrv_tbl.COUNT>0) then
258: i := p_scrv_tbl.FIRST;
259: LOOP
252: i NUMBER;
253: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
254: begin
255: OKC_API.init_msg_list(p_init_msg_list);
256: x_return_status:= OKC_API.G_RET_STS_SUCCESS;
257: if (p_scrv_tbl.COUNT>0) then
258: i := p_scrv_tbl.FIRST;
259: LOOP
260: update_Sales_Credit(p_api_version=>p_api_version,
257: if (p_scrv_tbl.COUNT>0) then
258: i := p_scrv_tbl.FIRST;
259: LOOP
260: update_Sales_Credit(p_api_version=>p_api_version,
261: p_init_msg_list=>OKC_API.G_FALSE,
262: x_return_status=>l_return_status,
263: x_msg_count=>x_msg_count,
264: x_msg_data=>x_msg_data,
265: p_scrv_rec=>p_scrv_tbl(i),
263: x_msg_count=>x_msg_count,
264: x_msg_data=>x_msg_data,
265: p_scrv_rec=>p_scrv_tbl(i),
266: x_scrv_rec=>x_scrv_tbl(i));
267: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
268: x_return_status := l_return_status;
269: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
270: elsif (l_return_status = OKC_API.G_RET_STS_ERROR) then
271: x_return_status := l_return_status;
265: p_scrv_rec=>p_scrv_tbl(i),
266: x_scrv_rec=>x_scrv_tbl(i));
267: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
268: x_return_status := l_return_status;
269: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
270: elsif (l_return_status = OKC_API.G_RET_STS_ERROR) then
271: x_return_status := l_return_status;
272: end if;
273: EXIT WHEN (i=p_scrv_tbl.LAST);
266: x_scrv_rec=>x_scrv_tbl(i));
267: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
268: x_return_status := l_return_status;
269: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
270: elsif (l_return_status = OKC_API.G_RET_STS_ERROR) then
271: x_return_status := l_return_status;
272: end if;
273: EXIT WHEN (i=p_scrv_tbl.LAST);
274: i := p_scrv_tbl.NEXT(i);
294: x_msg_data OUT NOCOPY VARCHAR2,
295: p_scrv_rec IN scrv_rec_type) is
296: l_api_name CONSTANT VARCHAR2(30) := 'delete_Sales_Credit';
297: l_api_version CONSTANT NUMBER := 1;
298: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
299: begin
300: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
301: p_init_msg_list,
302: '_PUB',
296: l_api_name CONSTANT VARCHAR2(30) := 'delete_Sales_Credit';
297: l_api_version CONSTANT NUMBER := 1;
298: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
299: begin
300: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
301: p_init_msg_list,
302: '_PUB',
303: x_return_status);
304: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
300: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
301: p_init_msg_list,
302: '_PUB',
303: x_return_status);
304: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
305: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
306: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
307: RAISE OKC_API.G_EXCEPTION_ERROR;
308: END IF;
301: p_init_msg_list,
302: '_PUB',
303: x_return_status);
304: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
305: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
306: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
307: RAISE OKC_API.G_EXCEPTION_ERROR;
308: END IF;
309: --
302: '_PUB',
303: x_return_status);
304: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
305: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
306: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
307: RAISE OKC_API.G_EXCEPTION_ERROR;
308: END IF;
309: --
310: -- Call Before Logic Hook
303: x_return_status);
304: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
305: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
306: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
307: RAISE OKC_API.G_EXCEPTION_ERROR;
308: END IF;
309: --
310: -- Call Before Logic Hook
311: --
310: -- Call Before Logic Hook
311: --
312: g_scrv_rec := p_scrv_rec;
313: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
314: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
315: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
316: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
317: raise OKC_API.G_EXCEPTION_ERROR;
318: END IF;
311: --
312: g_scrv_rec := p_scrv_rec;
313: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
314: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
315: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
316: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
317: raise OKC_API.G_EXCEPTION_ERROR;
318: END IF;
319: reset(p_scrv_rec);
312: g_scrv_rec := p_scrv_rec;
313: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
314: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
315: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
316: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
317: raise OKC_API.G_EXCEPTION_ERROR;
318: END IF;
319: reset(p_scrv_rec);
320: OKC_SALES_CREDIT_PVT.delete_Sales_Credit(p_api_version,
313: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
314: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
315: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
316: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
317: raise OKC_API.G_EXCEPTION_ERROR;
318: END IF;
319: reset(p_scrv_rec);
320: OKC_SALES_CREDIT_PVT.delete_Sales_Credit(p_api_version,
321: p_init_msg_list,
322: x_return_status,
323: x_msg_count,
324: x_msg_data,
325: g_scrv_rec);
326: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
327: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
328: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
329: RAISE OKC_API.G_EXCEPTION_ERROR;
330: END IF;
323: x_msg_count,
324: x_msg_data,
325: g_scrv_rec);
326: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
327: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
328: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
329: RAISE OKC_API.G_EXCEPTION_ERROR;
330: END IF;
331: --
324: x_msg_data,
325: g_scrv_rec);
326: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
327: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
328: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
329: RAISE OKC_API.G_EXCEPTION_ERROR;
330: END IF;
331: --
332: -- Call After Logic Hook
325: g_scrv_rec);
326: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
327: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
328: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
329: RAISE OKC_API.G_EXCEPTION_ERROR;
330: END IF;
331: --
332: -- Call After Logic Hook
333: --
331: --
332: -- Call After Logic Hook
333: --
334: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
335: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
336: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
337: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
338: raise OKC_API.G_EXCEPTION_ERROR;
339: END IF;
332: -- Call After Logic Hook
333: --
334: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
335: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
336: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
337: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
338: raise OKC_API.G_EXCEPTION_ERROR;
339: END IF;
340: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
333: --
334: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
335: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
336: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
337: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
338: raise OKC_API.G_EXCEPTION_ERROR;
339: END IF;
340: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
341: EXCEPTION
334: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
335: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
336: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
337: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
338: raise OKC_API.G_EXCEPTION_ERROR;
339: END IF;
340: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
341: EXCEPTION
342: WHEN OKC_API.G_EXCEPTION_ERROR THEN
336: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
337: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
338: raise OKC_API.G_EXCEPTION_ERROR;
339: END IF;
340: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
341: EXCEPTION
342: WHEN OKC_API.G_EXCEPTION_ERROR THEN
343: x_return_status := OKC_API.HANDLE_EXCEPTIONS
344: (substr(l_api_name,1,26),
338: raise OKC_API.G_EXCEPTION_ERROR;
339: END IF;
340: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
341: EXCEPTION
342: WHEN OKC_API.G_EXCEPTION_ERROR THEN
343: x_return_status := OKC_API.HANDLE_EXCEPTIONS
344: (substr(l_api_name,1,26),
345: G_PKG_NAME,
346: 'OKC_API.G_RET_STS_ERROR',
339: END IF;
340: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
341: EXCEPTION
342: WHEN OKC_API.G_EXCEPTION_ERROR THEN
343: x_return_status := OKC_API.HANDLE_EXCEPTIONS
344: (substr(l_api_name,1,26),
345: G_PKG_NAME,
346: 'OKC_API.G_RET_STS_ERROR',
347: x_msg_count,
342: WHEN OKC_API.G_EXCEPTION_ERROR THEN
343: x_return_status := OKC_API.HANDLE_EXCEPTIONS
344: (substr(l_api_name,1,26),
345: G_PKG_NAME,
346: 'OKC_API.G_RET_STS_ERROR',
347: x_msg_count,
348: x_msg_data,
349: '_PUB');
350: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
346: 'OKC_API.G_RET_STS_ERROR',
347: x_msg_count,
348: x_msg_data,
349: '_PUB');
350: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
351: x_return_status := OKC_API.HANDLE_EXCEPTIONS
352: (substr(l_api_name,1,26),
353: G_PKG_NAME,
354: 'OKC_API.G_RET_STS_UNEXP_ERROR',
347: x_msg_count,
348: x_msg_data,
349: '_PUB');
350: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
351: x_return_status := OKC_API.HANDLE_EXCEPTIONS
352: (substr(l_api_name,1,26),
353: G_PKG_NAME,
354: 'OKC_API.G_RET_STS_UNEXP_ERROR',
355: x_msg_count,
350: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
351: x_return_status := OKC_API.HANDLE_EXCEPTIONS
352: (substr(l_api_name,1,26),
353: G_PKG_NAME,
354: 'OKC_API.G_RET_STS_UNEXP_ERROR',
355: x_msg_count,
356: x_msg_data,
357: '_PUB');
358: WHEN OTHERS THEN
355: x_msg_count,
356: x_msg_data,
357: '_PUB');
358: WHEN OTHERS THEN
359: x_return_status := OKC_API.HANDLE_EXCEPTIONS
360: (substr(l_api_name,1,26),
361: G_PKG_NAME,
362: 'OTHERS',
363: x_msg_count,
380: x_msg_count OUT NOCOPY NUMBER,
381: x_msg_data OUT NOCOPY VARCHAR2,
382: p_scrv_tbl IN scrv_tbl_type) is
383: i NUMBER;
384: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
385: begin
386: OKC_API.init_msg_list(p_init_msg_list);
387: x_return_status:= OKC_API.G_RET_STS_SUCCESS;
388: if (p_scrv_tbl.COUNT>0) then
382: p_scrv_tbl IN scrv_tbl_type) is
383: i NUMBER;
384: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
385: begin
386: OKC_API.init_msg_list(p_init_msg_list);
387: x_return_status:= OKC_API.G_RET_STS_SUCCESS;
388: if (p_scrv_tbl.COUNT>0) then
389: i := p_scrv_tbl.FIRST;
390: LOOP
383: i NUMBER;
384: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
385: begin
386: OKC_API.init_msg_list(p_init_msg_list);
387: x_return_status:= OKC_API.G_RET_STS_SUCCESS;
388: if (p_scrv_tbl.COUNT>0) then
389: i := p_scrv_tbl.FIRST;
390: LOOP
391: delete_Sales_Credit(p_api_version=>p_api_version,
388: if (p_scrv_tbl.COUNT>0) then
389: i := p_scrv_tbl.FIRST;
390: LOOP
391: delete_Sales_Credit(p_api_version=>p_api_version,
392: p_init_msg_list=>OKC_API.G_FALSE,
393: x_return_status=>l_return_status,
394: x_msg_count=>x_msg_count,
395: x_msg_data=>x_msg_data,
396: p_scrv_rec=>p_scrv_tbl(i));
393: x_return_status=>l_return_status,
394: x_msg_count=>x_msg_count,
395: x_msg_data=>x_msg_data,
396: p_scrv_rec=>p_scrv_tbl(i));
397: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
398: x_return_status := l_return_status;
399: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
400: elsif (l_return_status = OKC_API.G_RET_STS_ERROR) then
401: x_return_status := l_return_status;
395: x_msg_data=>x_msg_data,
396: p_scrv_rec=>p_scrv_tbl(i));
397: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
398: x_return_status := l_return_status;
399: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
400: elsif (l_return_status = OKC_API.G_RET_STS_ERROR) then
401: x_return_status := l_return_status;
402: end if;
403: EXIT WHEN (i=p_scrv_tbl.LAST);
396: p_scrv_rec=>p_scrv_tbl(i));
397: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
398: x_return_status := l_return_status;
399: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
400: elsif (l_return_status = OKC_API.G_RET_STS_ERROR) then
401: x_return_status := l_return_status;
402: end if;
403: EXIT WHEN (i=p_scrv_tbl.LAST);
404: i := p_scrv_tbl.NEXT(i);
424: x_msg_data OUT NOCOPY VARCHAR2,
425: p_scrv_rec IN scrv_rec_type) is
426: l_api_name CONSTANT VARCHAR2(30) := 'lock_Sales_Credit';
427: l_api_version CONSTANT NUMBER := 1;
428: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
429: begin
430: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
431: p_init_msg_list,
432: '_PUB',
426: l_api_name CONSTANT VARCHAR2(30) := 'lock_Sales_Credit';
427: l_api_version CONSTANT NUMBER := 1;
428: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
429: begin
430: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
431: p_init_msg_list,
432: '_PUB',
433: x_return_status);
434: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
430: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
431: p_init_msg_list,
432: '_PUB',
433: x_return_status);
434: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
435: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
436: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
437: RAISE OKC_API.G_EXCEPTION_ERROR;
438: END IF;
431: p_init_msg_list,
432: '_PUB',
433: x_return_status);
434: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
435: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
436: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
437: RAISE OKC_API.G_EXCEPTION_ERROR;
438: END IF;
439: --
432: '_PUB',
433: x_return_status);
434: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
435: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
436: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
437: RAISE OKC_API.G_EXCEPTION_ERROR;
438: END IF;
439: --
440: -- Call Before Logic Hook
433: x_return_status);
434: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
435: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
436: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
437: RAISE OKC_API.G_EXCEPTION_ERROR;
438: END IF;
439: --
440: -- Call Before Logic Hook
441: --
440: -- Call Before Logic Hook
441: --
442: g_scrv_rec := p_scrv_rec;
443: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
444: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
445: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
446: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
447: raise OKC_API.G_EXCEPTION_ERROR;
448: END IF;
441: --
442: g_scrv_rec := p_scrv_rec;
443: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
444: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
445: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
446: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
447: raise OKC_API.G_EXCEPTION_ERROR;
448: END IF;
449: reset(p_scrv_rec);
442: g_scrv_rec := p_scrv_rec;
443: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
444: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
445: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
446: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
447: raise OKC_API.G_EXCEPTION_ERROR;
448: END IF;
449: reset(p_scrv_rec);
450: OKC_SALES_CREDIT_PVT.lock_Sales_Credit(p_api_version,
443: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
444: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
445: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
446: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
447: raise OKC_API.G_EXCEPTION_ERROR;
448: END IF;
449: reset(p_scrv_rec);
450: OKC_SALES_CREDIT_PVT.lock_Sales_Credit(p_api_version,
451: p_init_msg_list,
452: x_return_status,
453: x_msg_count,
454: x_msg_data,
455: g_scrv_rec);
456: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
457: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
458: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
459: RAISE OKC_API.G_EXCEPTION_ERROR;
460: END IF;
453: x_msg_count,
454: x_msg_data,
455: g_scrv_rec);
456: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
457: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
458: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
459: RAISE OKC_API.G_EXCEPTION_ERROR;
460: END IF;
461: --
454: x_msg_data,
455: g_scrv_rec);
456: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
457: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
458: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
459: RAISE OKC_API.G_EXCEPTION_ERROR;
460: END IF;
461: --
462: -- Call After Logic Hook
455: g_scrv_rec);
456: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
457: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
458: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
459: RAISE OKC_API.G_EXCEPTION_ERROR;
460: END IF;
461: --
462: -- Call After Logic Hook
463: --
461: --
462: -- Call After Logic Hook
463: --
464: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
465: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
466: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
467: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
468: raise OKC_API.G_EXCEPTION_ERROR;
469: END IF;
462: -- Call After Logic Hook
463: --
464: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
465: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
466: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
467: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
468: raise OKC_API.G_EXCEPTION_ERROR;
469: END IF;
470: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
463: --
464: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
465: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
466: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
467: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
468: raise OKC_API.G_EXCEPTION_ERROR;
469: END IF;
470: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
471: EXCEPTION
464: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
465: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
466: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
467: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
468: raise OKC_API.G_EXCEPTION_ERROR;
469: END IF;
470: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
471: EXCEPTION
472: WHEN OKC_API.G_EXCEPTION_ERROR THEN
466: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
467: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
468: raise OKC_API.G_EXCEPTION_ERROR;
469: END IF;
470: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
471: EXCEPTION
472: WHEN OKC_API.G_EXCEPTION_ERROR THEN
473: x_return_status := OKC_API.HANDLE_EXCEPTIONS
474: (substr(l_api_name,1,26),
468: raise OKC_API.G_EXCEPTION_ERROR;
469: END IF;
470: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
471: EXCEPTION
472: WHEN OKC_API.G_EXCEPTION_ERROR THEN
473: x_return_status := OKC_API.HANDLE_EXCEPTIONS
474: (substr(l_api_name,1,26),
475: G_PKG_NAME,
476: 'OKC_API.G_RET_STS_ERROR',
469: END IF;
470: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
471: EXCEPTION
472: WHEN OKC_API.G_EXCEPTION_ERROR THEN
473: x_return_status := OKC_API.HANDLE_EXCEPTIONS
474: (substr(l_api_name,1,26),
475: G_PKG_NAME,
476: 'OKC_API.G_RET_STS_ERROR',
477: x_msg_count,
472: WHEN OKC_API.G_EXCEPTION_ERROR THEN
473: x_return_status := OKC_API.HANDLE_EXCEPTIONS
474: (substr(l_api_name,1,26),
475: G_PKG_NAME,
476: 'OKC_API.G_RET_STS_ERROR',
477: x_msg_count,
478: x_msg_data,
479: '_PUB');
480: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
476: 'OKC_API.G_RET_STS_ERROR',
477: x_msg_count,
478: x_msg_data,
479: '_PUB');
480: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
481: x_return_status := OKC_API.HANDLE_EXCEPTIONS
482: (substr(l_api_name,1,26),
483: G_PKG_NAME,
484: 'OKC_API.G_RET_STS_UNEXP_ERROR',
477: x_msg_count,
478: x_msg_data,
479: '_PUB');
480: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
481: x_return_status := OKC_API.HANDLE_EXCEPTIONS
482: (substr(l_api_name,1,26),
483: G_PKG_NAME,
484: 'OKC_API.G_RET_STS_UNEXP_ERROR',
485: x_msg_count,
480: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
481: x_return_status := OKC_API.HANDLE_EXCEPTIONS
482: (substr(l_api_name,1,26),
483: G_PKG_NAME,
484: 'OKC_API.G_RET_STS_UNEXP_ERROR',
485: x_msg_count,
486: x_msg_data,
487: '_PUB');
488: WHEN OTHERS THEN
485: x_msg_count,
486: x_msg_data,
487: '_PUB');
488: WHEN OTHERS THEN
489: x_return_status := OKC_API.HANDLE_EXCEPTIONS
490: (substr(l_api_name,1,26),
491: G_PKG_NAME,
492: 'OTHERS',
493: x_msg_count,
510: x_msg_count OUT NOCOPY NUMBER,
511: x_msg_data OUT NOCOPY VARCHAR2,
512: p_scrv_tbl IN scrv_tbl_type) is
513: i NUMBER;
514: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
515: begin
516: OKC_API.init_msg_list(p_init_msg_list);
517: x_return_status:= OKC_API.G_RET_STS_SUCCESS;
518: if (p_scrv_tbl.COUNT>0) then
512: p_scrv_tbl IN scrv_tbl_type) is
513: i NUMBER;
514: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
515: begin
516: OKC_API.init_msg_list(p_init_msg_list);
517: x_return_status:= OKC_API.G_RET_STS_SUCCESS;
518: if (p_scrv_tbl.COUNT>0) then
519: i := p_scrv_tbl.FIRST;
520: LOOP
513: i NUMBER;
514: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
515: begin
516: OKC_API.init_msg_list(p_init_msg_list);
517: x_return_status:= OKC_API.G_RET_STS_SUCCESS;
518: if (p_scrv_tbl.COUNT>0) then
519: i := p_scrv_tbl.FIRST;
520: LOOP
521: lock_Sales_Credit(p_api_version=>p_api_version,
518: if (p_scrv_tbl.COUNT>0) then
519: i := p_scrv_tbl.FIRST;
520: LOOP
521: lock_Sales_Credit(p_api_version=>p_api_version,
522: p_init_msg_list=>OKC_API.G_FALSE,
523: x_return_status=>l_return_status,
524: x_msg_count=>x_msg_count,
525: x_msg_data=>x_msg_data,
526: p_scrv_rec=>p_scrv_tbl(i));
523: x_return_status=>l_return_status,
524: x_msg_count=>x_msg_count,
525: x_msg_data=>x_msg_data,
526: p_scrv_rec=>p_scrv_tbl(i));
527: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
528: x_return_status := l_return_status;
529: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
530: elsif (l_return_status = OKC_API.G_RET_STS_ERROR) then
531: x_return_status := l_return_status;
525: x_msg_data=>x_msg_data,
526: p_scrv_rec=>p_scrv_tbl(i));
527: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
528: x_return_status := l_return_status;
529: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
530: elsif (l_return_status = OKC_API.G_RET_STS_ERROR) then
531: x_return_status := l_return_status;
532: end if;
533: EXIT WHEN (i=p_scrv_tbl.LAST);
526: p_scrv_rec=>p_scrv_tbl(i));
527: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
528: x_return_status := l_return_status;
529: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
530: elsif (l_return_status = OKC_API.G_RET_STS_ERROR) then
531: x_return_status := l_return_status;
532: end if;
533: EXIT WHEN (i=p_scrv_tbl.LAST);
534: i := p_scrv_tbl.NEXT(i);
554: x_msg_data OUT NOCOPY VARCHAR2,
555: p_scrv_rec IN scrv_rec_type) is
556: l_api_name CONSTANT VARCHAR2(30) := 'validate_Sales_Credit';
557: l_api_version CONSTANT NUMBER := 1;
558: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
559: begin
560: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
561: p_init_msg_list,
562: '_PUB',
556: l_api_name CONSTANT VARCHAR2(30) := 'validate_Sales_Credit';
557: l_api_version CONSTANT NUMBER := 1;
558: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
559: begin
560: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
561: p_init_msg_list,
562: '_PUB',
563: x_return_status);
564: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
560: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
561: p_init_msg_list,
562: '_PUB',
563: x_return_status);
564: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
565: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
566: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
567: RAISE OKC_API.G_EXCEPTION_ERROR;
568: END IF;
561: p_init_msg_list,
562: '_PUB',
563: x_return_status);
564: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
565: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
566: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
567: RAISE OKC_API.G_EXCEPTION_ERROR;
568: END IF;
569: --
562: '_PUB',
563: x_return_status);
564: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
565: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
566: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
567: RAISE OKC_API.G_EXCEPTION_ERROR;
568: END IF;
569: --
570: -- Call Before Logic Hook
563: x_return_status);
564: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
565: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
566: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
567: RAISE OKC_API.G_EXCEPTION_ERROR;
568: END IF;
569: --
570: -- Call Before Logic Hook
571: --
570: -- Call Before Logic Hook
571: --
572: g_scrv_rec := p_scrv_rec;
573: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
574: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
575: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
576: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
577: raise OKC_API.G_EXCEPTION_ERROR;
578: END IF;
571: --
572: g_scrv_rec := p_scrv_rec;
573: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
574: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
575: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
576: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
577: raise OKC_API.G_EXCEPTION_ERROR;
578: END IF;
579: reset(p_scrv_rec);
572: g_scrv_rec := p_scrv_rec;
573: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
574: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
575: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
576: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
577: raise OKC_API.G_EXCEPTION_ERROR;
578: END IF;
579: reset(p_scrv_rec);
580: OKC_SALES_CREDIT_PVT.validate_Sales_Credit(p_api_version,
573: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
574: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
575: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
576: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
577: raise OKC_API.G_EXCEPTION_ERROR;
578: END IF;
579: reset(p_scrv_rec);
580: OKC_SALES_CREDIT_PVT.validate_Sales_Credit(p_api_version,
581: p_init_msg_list,
582: x_return_status,
583: x_msg_count,
584: x_msg_data,
585: g_scrv_rec);
586: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
587: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
588: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
589: RAISE OKC_API.G_EXCEPTION_ERROR;
590: END IF;
583: x_msg_count,
584: x_msg_data,
585: g_scrv_rec);
586: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
587: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
588: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
589: RAISE OKC_API.G_EXCEPTION_ERROR;
590: END IF;
591: --
584: x_msg_data,
585: g_scrv_rec);
586: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
587: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
588: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
589: RAISE OKC_API.G_EXCEPTION_ERROR;
590: END IF;
591: --
592: -- Call After Logic Hook
585: g_scrv_rec);
586: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
587: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
588: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
589: RAISE OKC_API.G_EXCEPTION_ERROR;
590: END IF;
591: --
592: -- Call After Logic Hook
593: --
591: --
592: -- Call After Logic Hook
593: --
594: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
595: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
596: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
597: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
598: raise OKC_API.G_EXCEPTION_ERROR;
599: END IF;
592: -- Call After Logic Hook
593: --
594: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
595: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
596: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
597: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
598: raise OKC_API.G_EXCEPTION_ERROR;
599: END IF;
600: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
593: --
594: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
595: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
596: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
597: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
598: raise OKC_API.G_EXCEPTION_ERROR;
599: END IF;
600: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
601: EXCEPTION
594: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
595: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
596: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
597: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
598: raise OKC_API.G_EXCEPTION_ERROR;
599: END IF;
600: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
601: EXCEPTION
602: WHEN OKC_API.G_EXCEPTION_ERROR THEN
596: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
597: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
598: raise OKC_API.G_EXCEPTION_ERROR;
599: END IF;
600: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
601: EXCEPTION
602: WHEN OKC_API.G_EXCEPTION_ERROR THEN
603: x_return_status := OKC_API.HANDLE_EXCEPTIONS
604: (substr(l_api_name,1,26),
598: raise OKC_API.G_EXCEPTION_ERROR;
599: END IF;
600: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
601: EXCEPTION
602: WHEN OKC_API.G_EXCEPTION_ERROR THEN
603: x_return_status := OKC_API.HANDLE_EXCEPTIONS
604: (substr(l_api_name,1,26),
605: G_PKG_NAME,
606: 'OKC_API.G_RET_STS_ERROR',
599: END IF;
600: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
601: EXCEPTION
602: WHEN OKC_API.G_EXCEPTION_ERROR THEN
603: x_return_status := OKC_API.HANDLE_EXCEPTIONS
604: (substr(l_api_name,1,26),
605: G_PKG_NAME,
606: 'OKC_API.G_RET_STS_ERROR',
607: x_msg_count,
602: WHEN OKC_API.G_EXCEPTION_ERROR THEN
603: x_return_status := OKC_API.HANDLE_EXCEPTIONS
604: (substr(l_api_name,1,26),
605: G_PKG_NAME,
606: 'OKC_API.G_RET_STS_ERROR',
607: x_msg_count,
608: x_msg_data,
609: '_PUB');
610: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
606: 'OKC_API.G_RET_STS_ERROR',
607: x_msg_count,
608: x_msg_data,
609: '_PUB');
610: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
611: x_return_status := OKC_API.HANDLE_EXCEPTIONS
612: (substr(l_api_name,1,26),
613: G_PKG_NAME,
614: 'OKC_API.G_RET_STS_UNEXP_ERROR',
607: x_msg_count,
608: x_msg_data,
609: '_PUB');
610: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
611: x_return_status := OKC_API.HANDLE_EXCEPTIONS
612: (substr(l_api_name,1,26),
613: G_PKG_NAME,
614: 'OKC_API.G_RET_STS_UNEXP_ERROR',
615: x_msg_count,
610: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
611: x_return_status := OKC_API.HANDLE_EXCEPTIONS
612: (substr(l_api_name,1,26),
613: G_PKG_NAME,
614: 'OKC_API.G_RET_STS_UNEXP_ERROR',
615: x_msg_count,
616: x_msg_data,
617: '_PUB');
618: WHEN OTHERS THEN
615: x_msg_count,
616: x_msg_data,
617: '_PUB');
618: WHEN OTHERS THEN
619: x_return_status := OKC_API.HANDLE_EXCEPTIONS
620: (substr(l_api_name,1,26),
621: G_PKG_NAME,
622: 'OTHERS',
623: x_msg_count,
640: x_msg_count OUT NOCOPY NUMBER,
641: x_msg_data OUT NOCOPY VARCHAR2,
642: p_scrv_tbl IN scrv_tbl_type) is
643: i NUMBER;
644: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
645: begin
646: OKC_API.init_msg_list(p_init_msg_list);
647: x_return_status:= OKC_API.G_RET_STS_SUCCESS;
648: if (p_scrv_tbl.COUNT>0) then
642: p_scrv_tbl IN scrv_tbl_type) is
643: i NUMBER;
644: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
645: begin
646: OKC_API.init_msg_list(p_init_msg_list);
647: x_return_status:= OKC_API.G_RET_STS_SUCCESS;
648: if (p_scrv_tbl.COUNT>0) then
649: i := p_scrv_tbl.FIRST;
650: LOOP
643: i NUMBER;
644: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
645: begin
646: OKC_API.init_msg_list(p_init_msg_list);
647: x_return_status:= OKC_API.G_RET_STS_SUCCESS;
648: if (p_scrv_tbl.COUNT>0) then
649: i := p_scrv_tbl.FIRST;
650: LOOP
651: validate_Sales_Credit(p_api_version=>p_api_version,
648: if (p_scrv_tbl.COUNT>0) then
649: i := p_scrv_tbl.FIRST;
650: LOOP
651: validate_Sales_Credit(p_api_version=>p_api_version,
652: p_init_msg_list=>OKC_API.G_FALSE,
653: x_return_status=>l_return_status,
654: x_msg_count=>x_msg_count,
655: x_msg_data=>x_msg_data,
656: p_scrv_rec=>p_scrv_tbl(i));
653: x_return_status=>l_return_status,
654: x_msg_count=>x_msg_count,
655: x_msg_data=>x_msg_data,
656: p_scrv_rec=>p_scrv_tbl(i));
657: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
658: x_return_status := l_return_status;
659: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
660: elsif (l_return_status = OKC_API.G_RET_STS_ERROR) then
661: x_return_status := l_return_status;
655: x_msg_data=>x_msg_data,
656: p_scrv_rec=>p_scrv_tbl(i));
657: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
658: x_return_status := l_return_status;
659: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
660: elsif (l_return_status = OKC_API.G_RET_STS_ERROR) then
661: x_return_status := l_return_status;
662: end if;
663: EXIT WHEN (i=p_scrv_tbl.LAST);
656: p_scrv_rec=>p_scrv_tbl(i));
657: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
658: x_return_status := l_return_status;
659: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
660: elsif (l_return_status = OKC_API.G_RET_STS_ERROR) then
661: x_return_status := l_return_status;
662: end if;
663: EXIT WHEN (i=p_scrv_tbl.LAST);
664: i := p_scrv_tbl.NEXT(i);