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