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