17: END api_copy;
18:
19: PROCEDURE insert_row(
20: p_api_version IN NUMBER,
21: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
22: x_return_status OUT NOCOPY VARCHAR2,
23: x_msg_count OUT NOCOPY NUMBER,
24: x_msg_data OUT NOCOPY VARCHAR2,
25: p_scpv_rec IN scpv_rec_type,
26: x_scpv_rec OUT NOCOPY scpv_rec_type) IS
27:
28: l_api_name CONSTANT VARCHAR2(30) := 'insert_row';
29: l_api_version CONSTANT NUMBER := 1.0;
30: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
31:
32: Begin
33: l_return_status := OKC_API.START_ACTIVITY
34: (
29: l_api_version CONSTANT NUMBER := 1.0;
30: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
31:
32: Begin
33: l_return_status := OKC_API.START_ACTIVITY
34: (
35: l_api_name
36: ,p_init_msg_list
37: ,'_PUB'
37: ,'_PUB'
38: ,x_return_status
39: );
40:
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: ,x_return_status
39: );
40:
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: );
40:
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:
40:
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:
48: OKC_UTIL.call_user_hook
52: p_procedure_name => l_api_name,
53: p_before_after => 'B'
54: );
55:
56: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) Then
57: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
58: ElsIf (x_return_status = OKC_API.G_RET_STS_ERROR) Then
59: raise OKC_API.G_EXCEPTION_ERROR;
60: End If;
53: p_before_after => 'B'
54: );
55:
56: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) Then
57: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
58: ElsIf (x_return_status = OKC_API.G_RET_STS_ERROR) Then
59: raise OKC_API.G_EXCEPTION_ERROR;
60: End If;
61:
54: );
55:
56: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) Then
57: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
58: ElsIf (x_return_status = OKC_API.G_RET_STS_ERROR) Then
59: raise OKC_API.G_EXCEPTION_ERROR;
60: End If;
61:
62: OKS_SUBSCR_PTRNS_PVT.insert_row(
55:
56: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) Then
57: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
58: ElsIf (x_return_status = OKC_API.G_RET_STS_ERROR) Then
59: raise OKC_API.G_EXCEPTION_ERROR;
60: End If;
61:
62: OKS_SUBSCR_PTRNS_PVT.insert_row(
63: p_api_version => p_api_version,
67: x_msg_data => x_msg_data,
68: p_scpv_rec => p_scpv_rec,
69: x_scpv_rec => x_scpv_rec);
70:
71: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
72: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
73: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
74: raise OKC_API.G_EXCEPTION_ERROR;
75: End If;
68: p_scpv_rec => p_scpv_rec,
69: x_scpv_rec => x_scpv_rec);
70:
71: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
72: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
73: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
74: raise OKC_API.G_EXCEPTION_ERROR;
75: End If;
76:
69: x_scpv_rec => x_scpv_rec);
70:
71: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
72: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
73: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
74: raise OKC_API.G_EXCEPTION_ERROR;
75: End If;
76:
77:
70:
71: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
72: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
73: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
74: raise OKC_API.G_EXCEPTION_ERROR;
75: End If;
76:
77:
78: OKC_UTIL.call_user_hook
82: p_procedure_name => l_api_name,
83: p_before_after => 'A'
84: );
85:
86: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
87: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
88: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
89: raise OKC_API.G_EXCEPTION_ERROR;
90: End If;
83: p_before_after => 'A'
84: );
85:
86: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
87: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
88: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
89: raise OKC_API.G_EXCEPTION_ERROR;
90: End If;
91:
84: );
85:
86: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
87: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
88: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
89: raise OKC_API.G_EXCEPTION_ERROR;
90: End If;
91:
92: OKC_API.END_ACTIVITY
85:
86: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
87: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
88: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
89: raise OKC_API.G_EXCEPTION_ERROR;
90: End If;
91:
92: OKC_API.END_ACTIVITY
93: (
88: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
89: raise OKC_API.G_EXCEPTION_ERROR;
90: End If;
91:
92: OKC_API.END_ACTIVITY
93: (
94: x_msg_count => x_msg_count,
95: x_msg_data => x_msg_data
96: );
95: x_msg_data => x_msg_data
96: );
97:
98: Exception
99: When OKC_API.G_EXCEPTION_ERROR THEN
100: x_return_status := OKC_API.HANDLE_EXCEPTIONS
101: (
102: l_api_name,
103: G_PKG_NAME,
96: );
97:
98: Exception
99: When OKC_API.G_EXCEPTION_ERROR THEN
100: x_return_status := OKC_API.HANDLE_EXCEPTIONS
101: (
102: l_api_name,
103: G_PKG_NAME,
104: 'OKC_API.G_RET_STS_ERROR',
100: x_return_status := OKC_API.HANDLE_EXCEPTIONS
101: (
102: l_api_name,
103: G_PKG_NAME,
104: 'OKC_API.G_RET_STS_ERROR',
105: x_msg_count,
106: x_msg_data,
107: '_PUB'
108: );
106: x_msg_data,
107: '_PUB'
108: );
109:
110: When OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
111: x_return_status := OKC_API.HANDLE_EXCEPTIONS
112: (
113: l_api_name,
114: G_PKG_NAME,
107: '_PUB'
108: );
109:
110: When OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
111: x_return_status := OKC_API.HANDLE_EXCEPTIONS
112: (
113: l_api_name,
114: G_PKG_NAME,
115: 'OKC_API.G_RET_STS_UNEXP_ERROR',
111: x_return_status := OKC_API.HANDLE_EXCEPTIONS
112: (
113: l_api_name,
114: G_PKG_NAME,
115: 'OKC_API.G_RET_STS_UNEXP_ERROR',
116: x_msg_count,
117: x_msg_data,
118: '_PUB'
119: );
118: '_PUB'
119: );
120:
121: When OTHERS THEN
122: x_return_status := OKC_API.HANDLE_EXCEPTIONS
123: (
124: l_api_name,
125: G_PKG_NAME,
126: 'OTHERS',
131: End insert_row;
132:
133: PROCEDURE insert_row(
134: p_api_version IN NUMBER,
135: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
136: x_return_status OUT NOCOPY VARCHAR2,
137: x_msg_count OUT NOCOPY NUMBER,
138: x_msg_data OUT NOCOPY VARCHAR2,
139: p_scpv_tbl IN scpv_tbl_type,
137: x_msg_count OUT NOCOPY NUMBER,
138: x_msg_data OUT NOCOPY VARCHAR2,
139: p_scpv_tbl IN scpv_tbl_type,
140: x_scpv_tbl OUT NOCOPY scpv_tbl_type,
141: px_error_tbl IN OUT NOCOPY OKC_API.ERROR_TBL_TYPE) IS
142:
143: l_api_name CONSTANT VARCHAR2(30) := 'insert_row';
144: l_api_version CONSTANT NUMBER := 1.0;
145: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
141: px_error_tbl IN OUT NOCOPY OKC_API.ERROR_TBL_TYPE) IS
142:
143: l_api_name CONSTANT VARCHAR2(30) := 'insert_row';
144: l_api_version CONSTANT NUMBER := 1.0;
145: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
146: Begin
147: l_return_status := OKC_API.START_ACTIVITY
148: (
149: l_api_name
143: l_api_name CONSTANT VARCHAR2(30) := 'insert_row';
144: l_api_version CONSTANT NUMBER := 1.0;
145: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
146: Begin
147: l_return_status := OKC_API.START_ACTIVITY
148: (
149: l_api_name
150: ,p_init_msg_list
151: ,'_PUB'
151: ,'_PUB'
152: ,x_return_status
153: );
154:
155: If l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
156: Raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
157: ElsIf l_return_status = OKC_API.G_RET_STS_ERROR Then
158: Raise OKC_API.G_EXCEPTION_ERROR;
159: End If;
152: ,x_return_status
153: );
154:
155: If l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
156: Raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
157: ElsIf l_return_status = OKC_API.G_RET_STS_ERROR Then
158: Raise OKC_API.G_EXCEPTION_ERROR;
159: End If;
160:
153: );
154:
155: If l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
156: Raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
157: ElsIf l_return_status = OKC_API.G_RET_STS_ERROR Then
158: Raise OKC_API.G_EXCEPTION_ERROR;
159: End If;
160:
161:
154:
155: If l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
156: Raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
157: ElsIf l_return_status = OKC_API.G_RET_STS_ERROR Then
158: Raise OKC_API.G_EXCEPTION_ERROR;
159: End If;
160:
161:
162: OKC_UTIL.call_user_hook
166: p_procedure_name => l_api_name,
167: p_before_after => 'B'
168: );
169:
170: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) Then
171: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
172: ElsIf (x_return_status = OKC_API.G_RET_STS_ERROR) Then
173: raise OKC_API.G_EXCEPTION_ERROR;
174: End If;
167: p_before_after => 'B'
168: );
169:
170: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) Then
171: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
172: ElsIf (x_return_status = OKC_API.G_RET_STS_ERROR) Then
173: raise OKC_API.G_EXCEPTION_ERROR;
174: End If;
175: OKS_SUBSCR_PTRNS_PVT.insert_row(
168: );
169:
170: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) Then
171: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
172: ElsIf (x_return_status = OKC_API.G_RET_STS_ERROR) Then
173: raise OKC_API.G_EXCEPTION_ERROR;
174: End If;
175: OKS_SUBSCR_PTRNS_PVT.insert_row(
176: p_api_version => p_api_version,
169:
170: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) Then
171: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
172: ElsIf (x_return_status = OKC_API.G_RET_STS_ERROR) Then
173: raise OKC_API.G_EXCEPTION_ERROR;
174: End If;
175: OKS_SUBSCR_PTRNS_PVT.insert_row(
176: p_api_version => p_api_version,
177: p_init_msg_list => p_init_msg_list,
181: p_scpv_tbl => p_scpv_tbl,
182: x_scpv_tbl => x_scpv_tbl,
183: px_error_tbl => px_error_tbl);
184:
185: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
186: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
187: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
188: raise OKC_API.G_EXCEPTION_ERROR;
189: End If;
182: x_scpv_tbl => x_scpv_tbl,
183: px_error_tbl => px_error_tbl);
184:
185: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
186: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
187: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
188: raise OKC_API.G_EXCEPTION_ERROR;
189: End If;
190:
183: px_error_tbl => px_error_tbl);
184:
185: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
186: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
187: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
188: raise OKC_API.G_EXCEPTION_ERROR;
189: End If;
190:
191:
184:
185: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
186: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
187: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
188: raise OKC_API.G_EXCEPTION_ERROR;
189: End If;
190:
191:
192: OKC_UTIL.call_user_hook
196: p_procedure_name => l_api_name,
197: p_before_after => 'A'
198: );
199:
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: p_before_after => 'A'
198: );
199:
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:
198: );
199:
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:
206: OKC_API.END_ACTIVITY
199:
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:
206: OKC_API.END_ACTIVITY
207: (
202: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
203: raise OKC_API.G_EXCEPTION_ERROR;
204: End If;
205:
206: OKC_API.END_ACTIVITY
207: (
208: x_msg_count => x_msg_count,
209: x_msg_data => x_msg_data
210: );
209: x_msg_data => x_msg_data
210: );
211:
212: Exception
213: When OKC_API.G_EXCEPTION_ERROR THEN
214: x_return_status := OKC_API.HANDLE_EXCEPTIONS
215: (
216: l_api_name,
217: G_PKG_NAME,
210: );
211:
212: Exception
213: When OKC_API.G_EXCEPTION_ERROR THEN
214: x_return_status := OKC_API.HANDLE_EXCEPTIONS
215: (
216: l_api_name,
217: G_PKG_NAME,
218: 'OKC_API.G_RET_STS_ERROR',
214: x_return_status := OKC_API.HANDLE_EXCEPTIONS
215: (
216: l_api_name,
217: G_PKG_NAME,
218: 'OKC_API.G_RET_STS_ERROR',
219: x_msg_count,
220: x_msg_data,
221: '_PUB'
222: );
220: x_msg_data,
221: '_PUB'
222: );
223:
224: When OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
225: x_return_status := OKC_API.HANDLE_EXCEPTIONS
226: (
227: l_api_name,
228: G_PKG_NAME,
221: '_PUB'
222: );
223:
224: When OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
225: x_return_status := OKC_API.HANDLE_EXCEPTIONS
226: (
227: l_api_name,
228: G_PKG_NAME,
229: 'OKC_API.G_RET_STS_UNEXP_ERROR',
225: x_return_status := OKC_API.HANDLE_EXCEPTIONS
226: (
227: l_api_name,
228: G_PKG_NAME,
229: 'OKC_API.G_RET_STS_UNEXP_ERROR',
230: x_msg_count,
231: x_msg_data,
232: '_PUB'
233: );
232: '_PUB'
233: );
234:
235: When OTHERS THEN
236: x_return_status := OKC_API.HANDLE_EXCEPTIONS
237: (
238: l_api_name,
239: G_PKG_NAME,
240: 'OTHERS',
246: End insert_row;
247:
248: PROCEDURE insert_row(
249: p_api_version IN NUMBER,
250: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
251: x_return_status OUT NOCOPY VARCHAR2,
252: x_msg_count OUT NOCOPY NUMBER,
253: x_msg_data OUT NOCOPY VARCHAR2,
254: p_scpv_tbl IN scpv_tbl_type,
254: p_scpv_tbl IN scpv_tbl_type,
255: x_scpv_tbl OUT NOCOPY scpv_tbl_type) IS
256:
257: l_api_name CONSTANT VARCHAR2(30) := 'insert_row';
258: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
259: l_ptr BINARY_INTEGER;
260:
261: Begin
262:
259: l_ptr BINARY_INTEGER;
260:
261: Begin
262:
263: x_return_status := OKC_API.G_RET_STS_SUCCESS;
264:
265: If p_scpv_tbl.COUNT > 0 Then
266:
267: l_ptr := p_scpv_tbl.FIRST;
277: ,p_scpv_tbl(l_ptr)
278: ,x_scpv_tbl(l_ptr)
279: );
280:
281: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
282: If l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
283: x_return_status := l_return_status;
284: Raise G_EXCEPTION_HALT_VALIDATION;
285: Else
278: ,x_scpv_tbl(l_ptr)
279: );
280:
281: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
282: If l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
283: x_return_status := l_return_status;
284: Raise G_EXCEPTION_HALT_VALIDATION;
285: Else
286: x_return_status := l_return_status;
297: Exception
298: When G_EXCEPTION_HALT_VALIDATION Then
299: Null;
300: When OTHERS Then
301: OKC_API.set_message(p_app_name => g_app_name,
302: p_msg_name => g_unexpected_error,
303: p_token1 => g_sqlcode_token,
304: p_token1_value => sqlcode,
305: p_token2 => g_sqlerrm_token,
304: p_token1_value => sqlcode,
305: p_token2 => g_sqlerrm_token,
306: p_token2_value => sqlerrm
307: );
308: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
309:
310: End insert_row;
311:
312: PROCEDURE lock_row(
310: End insert_row;
311:
312: PROCEDURE lock_row(
313: p_api_version IN NUMBER,
314: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
315: x_return_status OUT NOCOPY VARCHAR2,
316: x_msg_count OUT NOCOPY NUMBER,
317: x_msg_data OUT NOCOPY VARCHAR2,
318: p_scpv_rec IN scpv_rec_type) IS
318: p_scpv_rec IN scpv_rec_type) IS
319:
320: l_api_name CONSTANT VARCHAR2(30) := 'lock_row';
321: l_api_version CONSTANT NUMBER := 1.0;
322: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
323:
324:
325: Begin
326:
323:
324:
325: Begin
326:
327: l_return_status := OKC_API.START_ACTIVITY
328: (
329: l_api_name
330: ,p_init_msg_list
331: ,'_PUB'
331: ,'_PUB'
332: ,x_return_status
333: );
334:
335: If l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
336: Raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
337: ElsIf l_return_status = OKC_API.G_RET_STS_ERROR Then
338: Raise OKC_API.G_EXCEPTION_ERROR;
339: End If;
332: ,x_return_status
333: );
334:
335: If l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
336: Raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
337: ElsIf l_return_status = OKC_API.G_RET_STS_ERROR Then
338: Raise OKC_API.G_EXCEPTION_ERROR;
339: End If;
340: OKS_SUBSCR_PTRNS_PVT.lock_row(
333: );
334:
335: If l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
336: Raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
337: ElsIf l_return_status = OKC_API.G_RET_STS_ERROR Then
338: Raise OKC_API.G_EXCEPTION_ERROR;
339: End If;
340: OKS_SUBSCR_PTRNS_PVT.lock_row(
341: p_api_version ,
334:
335: If l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
336: Raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
337: ElsIf l_return_status = OKC_API.G_RET_STS_ERROR Then
338: Raise OKC_API.G_EXCEPTION_ERROR;
339: End If;
340: OKS_SUBSCR_PTRNS_PVT.lock_row(
341: p_api_version ,
342: p_init_msg_list,
345: x_msg_data ,
346: p_scpv_rec);
347:
348:
349: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
350: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
351: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
352: raise OKC_API.G_EXCEPTION_ERROR;
353: End If;
346: p_scpv_rec);
347:
348:
349: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
350: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
351: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
352: raise OKC_API.G_EXCEPTION_ERROR;
353: End If;
354:
347:
348:
349: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
350: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
351: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
352: raise OKC_API.G_EXCEPTION_ERROR;
353: End If;
354:
355: OKC_API.END_ACTIVITY
348:
349: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
350: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
351: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
352: raise OKC_API.G_EXCEPTION_ERROR;
353: End If;
354:
355: OKC_API.END_ACTIVITY
356: (
351: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
352: raise OKC_API.G_EXCEPTION_ERROR;
353: End If;
354:
355: OKC_API.END_ACTIVITY
356: (
357: x_msg_count => x_msg_count,
358: x_msg_data => x_msg_data
359: );
358: x_msg_data => x_msg_data
359: );
360:
361: Exception
362: When OKC_API.G_EXCEPTION_ERROR THEN
363: x_return_status := OKC_API.HANDLE_EXCEPTIONS
364: (
365: l_api_name,
366: G_PKG_NAME,
359: );
360:
361: Exception
362: When OKC_API.G_EXCEPTION_ERROR THEN
363: x_return_status := OKC_API.HANDLE_EXCEPTIONS
364: (
365: l_api_name,
366: G_PKG_NAME,
367: 'OKC_API.G_RET_STS_ERROR',
363: x_return_status := OKC_API.HANDLE_EXCEPTIONS
364: (
365: l_api_name,
366: G_PKG_NAME,
367: 'OKC_API.G_RET_STS_ERROR',
368: x_msg_count,
369: x_msg_data,
370: '_PUB'
371: );
369: x_msg_data,
370: '_PUB'
371: );
372:
373: When OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
374: x_return_status := OKC_API.HANDLE_EXCEPTIONS
375: (
376: l_api_name,
377: G_PKG_NAME,
370: '_PUB'
371: );
372:
373: When OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
374: x_return_status := OKC_API.HANDLE_EXCEPTIONS
375: (
376: l_api_name,
377: G_PKG_NAME,
378: 'OKC_API.G_RET_STS_UNEXP_ERROR',
374: x_return_status := OKC_API.HANDLE_EXCEPTIONS
375: (
376: l_api_name,
377: G_PKG_NAME,
378: 'OKC_API.G_RET_STS_UNEXP_ERROR',
379: x_msg_count,
380: x_msg_data,
381: '_PUB'
382: );
381: '_PUB'
382: );
383:
384: When OTHERS THEN
385: x_return_status := OKC_API.HANDLE_EXCEPTIONS
386: (
387: l_api_name,
388: G_PKG_NAME,
389: 'OTHERS',
395: End lock_row;
396:
397: PROCEDURE lock_row(
398: p_api_version IN NUMBER,
399: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
400: x_return_status OUT NOCOPY VARCHAR2,
401: x_msg_count OUT NOCOPY NUMBER,
402: x_msg_data OUT NOCOPY VARCHAR2,
403: p_scpv_tbl IN scpv_tbl_type,
400: x_return_status OUT NOCOPY VARCHAR2,
401: x_msg_count OUT NOCOPY NUMBER,
402: x_msg_data OUT NOCOPY VARCHAR2,
403: p_scpv_tbl IN scpv_tbl_type,
404: px_error_tbl IN OUT NOCOPY OKC_API.ERROR_TBL_TYPE) IS
405:
406: l_api_name CONSTANT VARCHAR2(30) := 'lock_row';
407: l_api_version CONSTANT NUMBER := 1.0;
408: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
404: px_error_tbl IN OUT NOCOPY OKC_API.ERROR_TBL_TYPE) IS
405:
406: l_api_name CONSTANT VARCHAR2(30) := 'lock_row';
407: l_api_version CONSTANT NUMBER := 1.0;
408: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
409:
410: Begin
411: l_return_status := OKC_API.START_ACTIVITY
412: (
407: l_api_version CONSTANT NUMBER := 1.0;
408: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
409:
410: Begin
411: l_return_status := OKC_API.START_ACTIVITY
412: (
413: l_api_name
414: ,p_init_msg_list
415: ,'_PUB'
415: ,'_PUB'
416: ,x_return_status
417: );
418:
419: If l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
420: Raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
421: ElsIf l_return_status = OKC_API.G_RET_STS_ERROR Then
422: Raise OKC_API.G_EXCEPTION_ERROR;
423: End If;
416: ,x_return_status
417: );
418:
419: If l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
420: Raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
421: ElsIf l_return_status = OKC_API.G_RET_STS_ERROR Then
422: Raise OKC_API.G_EXCEPTION_ERROR;
423: End If;
424: OKS_SUBSCR_PTRNS_PVT.lock_row(
417: );
418:
419: If l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
420: Raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
421: ElsIf l_return_status = OKC_API.G_RET_STS_ERROR Then
422: Raise OKC_API.G_EXCEPTION_ERROR;
423: End If;
424: OKS_SUBSCR_PTRNS_PVT.lock_row(
425: p_api_version ,
418:
419: If l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
420: Raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
421: ElsIf l_return_status = OKC_API.G_RET_STS_ERROR Then
422: Raise OKC_API.G_EXCEPTION_ERROR;
423: End If;
424: OKS_SUBSCR_PTRNS_PVT.lock_row(
425: p_api_version ,
426: p_init_msg_list,
430: p_scpv_tbl,
431: px_error_tbl);
432:
433:
434: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
435: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
436: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
437: raise OKC_API.G_EXCEPTION_ERROR;
438: End If;
431: px_error_tbl);
432:
433:
434: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
435: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
436: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
437: raise OKC_API.G_EXCEPTION_ERROR;
438: End If;
439:
432:
433:
434: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
435: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
436: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
437: raise OKC_API.G_EXCEPTION_ERROR;
438: End If;
439:
440: OKC_API.END_ACTIVITY
433:
434: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
435: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
436: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
437: raise OKC_API.G_EXCEPTION_ERROR;
438: End If;
439:
440: OKC_API.END_ACTIVITY
441: (
436: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
437: raise OKC_API.G_EXCEPTION_ERROR;
438: End If;
439:
440: OKC_API.END_ACTIVITY
441: (
442: x_msg_count => x_msg_count,
443: x_msg_data => x_msg_data
444: );
443: x_msg_data => x_msg_data
444: );
445:
446: Exception
447: When OKC_API.G_EXCEPTION_ERROR THEN
448: x_return_status := OKC_API.HANDLE_EXCEPTIONS
449: (
450: l_api_name,
451: G_PKG_NAME,
444: );
445:
446: Exception
447: When OKC_API.G_EXCEPTION_ERROR THEN
448: x_return_status := OKC_API.HANDLE_EXCEPTIONS
449: (
450: l_api_name,
451: G_PKG_NAME,
452: 'OKC_API.G_RET_STS_ERROR',
448: x_return_status := OKC_API.HANDLE_EXCEPTIONS
449: (
450: l_api_name,
451: G_PKG_NAME,
452: 'OKC_API.G_RET_STS_ERROR',
453: x_msg_count,
454: x_msg_data,
455: '_PUB'
456: );
454: x_msg_data,
455: '_PUB'
456: );
457:
458: When OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
459: x_return_status := OKC_API.HANDLE_EXCEPTIONS
460: (
461: l_api_name,
462: G_PKG_NAME,
455: '_PUB'
456: );
457:
458: When OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
459: x_return_status := OKC_API.HANDLE_EXCEPTIONS
460: (
461: l_api_name,
462: G_PKG_NAME,
463: 'OKC_API.G_RET_STS_UNEXP_ERROR',
459: x_return_status := OKC_API.HANDLE_EXCEPTIONS
460: (
461: l_api_name,
462: G_PKG_NAME,
463: 'OKC_API.G_RET_STS_UNEXP_ERROR',
464: x_msg_count,
465: x_msg_data,
466: '_PUB'
467: );
466: '_PUB'
467: );
468:
469: When OTHERS THEN
470: x_return_status := OKC_API.HANDLE_EXCEPTIONS
471: (
472: l_api_name,
473: G_PKG_NAME,
474: 'OTHERS',
480: End lock_row;
481:
482: PROCEDURE lock_row(
483: p_api_version IN NUMBER,
484: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
485: x_return_status OUT NOCOPY VARCHAR2,
486: x_msg_count OUT NOCOPY NUMBER,
487: x_msg_data OUT NOCOPY VARCHAR2,
488: p_scpv_tbl IN scpv_tbl_type) IS
487: x_msg_data OUT NOCOPY VARCHAR2,
488: p_scpv_tbl IN scpv_tbl_type) IS
489:
490: l_api_name CONSTANT VARCHAR2(30) := 'lock_row';
491: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
492: l_ptr BINARY_INTEGER;
493:
494: Begin
495:
492: l_ptr BINARY_INTEGER;
493:
494: Begin
495:
496: x_return_status := OKC_API.G_RET_STS_SUCCESS;
497:
498: If p_scpv_tbl.COUNT > 0 Then
499:
500: l_ptr := p_scpv_tbl.FIRST;
507: x_msg_count ,
508: x_msg_data ,
509: p_scpv_tbl(l_ptr) );
510:
511: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
512: If l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
513: x_return_status := l_return_status;
514: Raise G_EXCEPTION_HALT_VALIDATION;
515: Else
508: x_msg_data ,
509: p_scpv_tbl(l_ptr) );
510:
511: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
512: If l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
513: x_return_status := l_return_status;
514: Raise G_EXCEPTION_HALT_VALIDATION;
515: Else
516: x_return_status := l_return_status;
524:
525: End If;
526:
527: Exception
528: When OKC_API.G_EXCEPTION_ERROR THEN
529: x_return_status := OKC_API.HANDLE_EXCEPTIONS
530: (
531: l_api_name,
532: G_PKG_NAME,
525: End If;
526:
527: Exception
528: When OKC_API.G_EXCEPTION_ERROR THEN
529: x_return_status := OKC_API.HANDLE_EXCEPTIONS
530: (
531: l_api_name,
532: G_PKG_NAME,
533: 'OKC_API.G_RET_STS_ERROR',
529: x_return_status := OKC_API.HANDLE_EXCEPTIONS
530: (
531: l_api_name,
532: G_PKG_NAME,
533: 'OKC_API.G_RET_STS_ERROR',
534: x_msg_count,
535: x_msg_data,
536: '_PUB'
537: );
535: x_msg_data,
536: '_PUB'
537: );
538:
539: When OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
540: x_return_status := OKC_API.HANDLE_EXCEPTIONS
541: (
542: l_api_name,
543: G_PKG_NAME,
536: '_PUB'
537: );
538:
539: When OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
540: x_return_status := OKC_API.HANDLE_EXCEPTIONS
541: (
542: l_api_name,
543: G_PKG_NAME,
544: 'OKC_API.G_RET_STS_UNEXP_ERROR',
540: x_return_status := OKC_API.HANDLE_EXCEPTIONS
541: (
542: l_api_name,
543: G_PKG_NAME,
544: 'OKC_API.G_RET_STS_UNEXP_ERROR',
545: x_msg_count,
546: x_msg_data,
547: '_PUB'
548: );
547: '_PUB'
548: );
549:
550: When OTHERS THEN
551: x_return_status := OKC_API.HANDLE_EXCEPTIONS
552: (
553: l_api_name,
554: G_PKG_NAME,
555: 'OTHERS',
561: End lock_row;
562:
563: PROCEDURE update_row(
564: p_api_version IN NUMBER,
565: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
566: x_return_status OUT NOCOPY VARCHAR2,
567: x_msg_count OUT NOCOPY NUMBER,
568: x_msg_data OUT NOCOPY VARCHAR2,
569: p_scpv_rec IN scpv_rec_type,
570: x_scpv_rec OUT NOCOPY scpv_rec_type) IS
571:
572: l_api_name CONSTANT VARCHAR2(30) := 'update_row';
573: l_api_version CONSTANT NUMBER := 1.0;
574: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
575:
576: Begin
577: l_return_status := OKC_API.START_ACTIVITY
578: (
573: l_api_version CONSTANT NUMBER := 1.0;
574: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
575:
576: Begin
577: l_return_status := OKC_API.START_ACTIVITY
578: (
579: l_api_name
580: ,p_init_msg_list
581: ,'_PUB'
581: ,'_PUB'
582: ,x_return_status
583: );
584:
585: If l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
586: Raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
587: ElsIf l_return_status = OKC_API.G_RET_STS_ERROR Then
588: Raise OKC_API.G_EXCEPTION_ERROR;
589: End If;
582: ,x_return_status
583: );
584:
585: If l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
586: Raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
587: ElsIf l_return_status = OKC_API.G_RET_STS_ERROR Then
588: Raise OKC_API.G_EXCEPTION_ERROR;
589: End If;
590:
583: );
584:
585: If l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
586: Raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
587: ElsIf l_return_status = OKC_API.G_RET_STS_ERROR Then
588: Raise OKC_API.G_EXCEPTION_ERROR;
589: End If;
590:
591:
584:
585: If l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
586: Raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
587: ElsIf l_return_status = OKC_API.G_RET_STS_ERROR Then
588: Raise OKC_API.G_EXCEPTION_ERROR;
589: End If;
590:
591:
592: OKC_UTIL.call_user_hook
596: p_procedure_name => l_api_name,
597: p_before_after => 'B'
598: );
599:
600: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) Then
601: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
602: ElsIf (x_return_status = OKC_API.G_RET_STS_ERROR) Then
603: raise OKC_API.G_EXCEPTION_ERROR;
604: End If;
597: p_before_after => 'B'
598: );
599:
600: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) Then
601: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
602: ElsIf (x_return_status = OKC_API.G_RET_STS_ERROR) Then
603: raise OKC_API.G_EXCEPTION_ERROR;
604: End If;
605:
598: );
599:
600: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) Then
601: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
602: ElsIf (x_return_status = OKC_API.G_RET_STS_ERROR) Then
603: raise OKC_API.G_EXCEPTION_ERROR;
604: End If;
605:
606: OKS_SUBSCR_PTRNS_PVT.update_row(
599:
600: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) Then
601: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
602: ElsIf (x_return_status = OKC_API.G_RET_STS_ERROR) Then
603: raise OKC_API.G_EXCEPTION_ERROR;
604: End If;
605:
606: OKS_SUBSCR_PTRNS_PVT.update_row(
607: p_api_version => p_api_version,
611: x_msg_data => x_msg_data,
612: p_scpv_rec => p_scpv_rec,
613: x_scpv_rec => x_scpv_rec);
614:
615: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
616: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
617: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
618: raise OKC_API.G_EXCEPTION_ERROR;
619: End If;
612: p_scpv_rec => p_scpv_rec,
613: x_scpv_rec => x_scpv_rec);
614:
615: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
616: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
617: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
618: raise OKC_API.G_EXCEPTION_ERROR;
619: End If;
620:
613: x_scpv_rec => x_scpv_rec);
614:
615: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
616: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
617: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
618: raise OKC_API.G_EXCEPTION_ERROR;
619: End If;
620:
621:
614:
615: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
616: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
617: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
618: raise OKC_API.G_EXCEPTION_ERROR;
619: End If;
620:
621:
622: OKC_UTIL.call_user_hook
626: p_procedure_name => l_api_name,
627: p_before_after => 'A'
628: );
629:
630: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
631: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
632: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
633: raise OKC_API.G_EXCEPTION_ERROR;
634: End If;
627: p_before_after => 'A'
628: );
629:
630: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
631: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
632: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
633: raise OKC_API.G_EXCEPTION_ERROR;
634: End If;
635:
628: );
629:
630: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
631: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
632: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
633: raise OKC_API.G_EXCEPTION_ERROR;
634: End If;
635:
636: OKC_API.END_ACTIVITY
629:
630: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
631: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
632: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
633: raise OKC_API.G_EXCEPTION_ERROR;
634: End If;
635:
636: OKC_API.END_ACTIVITY
637: (
632: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
633: raise OKC_API.G_EXCEPTION_ERROR;
634: End If;
635:
636: OKC_API.END_ACTIVITY
637: (
638: x_msg_count => x_msg_count,
639: x_msg_data => x_msg_data
640: );
639: x_msg_data => x_msg_data
640: );
641:
642: Exception
643: When OKC_API.G_EXCEPTION_ERROR THEN
644: x_return_status := OKC_API.HANDLE_EXCEPTIONS
645: (
646: l_api_name,
647: G_PKG_NAME,
640: );
641:
642: Exception
643: When OKC_API.G_EXCEPTION_ERROR THEN
644: x_return_status := OKC_API.HANDLE_EXCEPTIONS
645: (
646: l_api_name,
647: G_PKG_NAME,
648: 'OKC_API.G_RET_STS_ERROR',
644: x_return_status := OKC_API.HANDLE_EXCEPTIONS
645: (
646: l_api_name,
647: G_PKG_NAME,
648: 'OKC_API.G_RET_STS_ERROR',
649: x_msg_count,
650: x_msg_data,
651: '_PUB'
652: );
650: x_msg_data,
651: '_PUB'
652: );
653:
654: When OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
655: x_return_status := OKC_API.HANDLE_EXCEPTIONS
656: (
657: l_api_name,
658: G_PKG_NAME,
651: '_PUB'
652: );
653:
654: When OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
655: x_return_status := OKC_API.HANDLE_EXCEPTIONS
656: (
657: l_api_name,
658: G_PKG_NAME,
659: 'OKC_API.G_RET_STS_UNEXP_ERROR',
655: x_return_status := OKC_API.HANDLE_EXCEPTIONS
656: (
657: l_api_name,
658: G_PKG_NAME,
659: 'OKC_API.G_RET_STS_UNEXP_ERROR',
660: x_msg_count,
661: x_msg_data,
662: '_PUB'
663: );
662: '_PUB'
663: );
664:
665: When OTHERS THEN
666: x_return_status := OKC_API.HANDLE_EXCEPTIONS
667: (
668: l_api_name,
669: G_PKG_NAME,
670: 'OTHERS',
676: End update_row;
677:
678: PROCEDURE update_row(
679: p_api_version IN NUMBER,
680: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
681: x_return_status OUT NOCOPY VARCHAR2,
682: x_msg_count OUT NOCOPY NUMBER,
683: x_msg_data OUT NOCOPY VARCHAR2,
684: p_scpv_tbl IN scpv_tbl_type,
682: x_msg_count OUT NOCOPY NUMBER,
683: x_msg_data OUT NOCOPY VARCHAR2,
684: p_scpv_tbl IN scpv_tbl_type,
685: x_scpv_tbl OUT NOCOPY scpv_tbl_type,
686: px_error_tbl IN OUT NOCOPY OKC_API.ERROR_TBL_TYPE) IS
687:
688: l_api_name CONSTANT VARCHAR2(30) := 'update_row';
689: l_api_version CONSTANT NUMBER := 1.0;
690: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
686: px_error_tbl IN OUT NOCOPY OKC_API.ERROR_TBL_TYPE) IS
687:
688: l_api_name CONSTANT VARCHAR2(30) := 'update_row';
689: l_api_version CONSTANT NUMBER := 1.0;
690: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
691:
692: Begin
693: l_return_status := OKC_API.START_ACTIVITY
694: (
689: l_api_version CONSTANT NUMBER := 1.0;
690: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
691:
692: Begin
693: l_return_status := OKC_API.START_ACTIVITY
694: (
695: l_api_name
696: ,p_init_msg_list
697: ,'_PUB'
697: ,'_PUB'
698: ,x_return_status
699: );
700:
701: If l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
702: Raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
703: ElsIf l_return_status = OKC_API.G_RET_STS_ERROR Then
704: Raise OKC_API.G_EXCEPTION_ERROR;
705: End If;
698: ,x_return_status
699: );
700:
701: If l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
702: Raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
703: ElsIf l_return_status = OKC_API.G_RET_STS_ERROR Then
704: Raise OKC_API.G_EXCEPTION_ERROR;
705: End If;
706:
699: );
700:
701: If l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
702: Raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
703: ElsIf l_return_status = OKC_API.G_RET_STS_ERROR Then
704: Raise OKC_API.G_EXCEPTION_ERROR;
705: End If;
706:
707:
700:
701: If l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
702: Raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
703: ElsIf l_return_status = OKC_API.G_RET_STS_ERROR Then
704: Raise OKC_API.G_EXCEPTION_ERROR;
705: End If;
706:
707:
708: OKC_UTIL.call_user_hook
712: p_procedure_name => l_api_name,
713: p_before_after => 'B'
714: );
715:
716: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) Then
717: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
718: ElsIf (x_return_status = OKC_API.G_RET_STS_ERROR) Then
719: raise OKC_API.G_EXCEPTION_ERROR;
720: End If;
713: p_before_after => 'B'
714: );
715:
716: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) Then
717: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
718: ElsIf (x_return_status = OKC_API.G_RET_STS_ERROR) Then
719: raise OKC_API.G_EXCEPTION_ERROR;
720: End If;
721:
714: );
715:
716: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) Then
717: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
718: ElsIf (x_return_status = OKC_API.G_RET_STS_ERROR) Then
719: raise OKC_API.G_EXCEPTION_ERROR;
720: End If;
721:
722: OKS_SUBSCR_PTRNS_PVT.update_row(
715:
716: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) Then
717: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
718: ElsIf (x_return_status = OKC_API.G_RET_STS_ERROR) Then
719: raise OKC_API.G_EXCEPTION_ERROR;
720: End If;
721:
722: OKS_SUBSCR_PTRNS_PVT.update_row(
723: p_api_version => p_api_version,
728: p_scpv_tbl => p_scpv_tbl,
729: x_scpv_tbl => x_scpv_tbl,
730: px_error_tbl => px_error_tbl);
731:
732: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
733: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
734: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
735: raise OKC_API.G_EXCEPTION_ERROR;
736: End If;
729: x_scpv_tbl => x_scpv_tbl,
730: px_error_tbl => px_error_tbl);
731:
732: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
733: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
734: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
735: raise OKC_API.G_EXCEPTION_ERROR;
736: End If;
737:
730: px_error_tbl => px_error_tbl);
731:
732: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
733: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
734: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
735: raise OKC_API.G_EXCEPTION_ERROR;
736: End If;
737:
738:
731:
732: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
733: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
734: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
735: raise OKC_API.G_EXCEPTION_ERROR;
736: End If;
737:
738:
739: OKC_UTIL.call_user_hook
743: p_procedure_name => l_api_name,
744: p_before_after => 'A'
745: );
746:
747: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
748: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
749: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
750: raise OKC_API.G_EXCEPTION_ERROR;
751: End If;
744: p_before_after => 'A'
745: );
746:
747: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
748: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
749: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
750: raise OKC_API.G_EXCEPTION_ERROR;
751: End If;
752:
745: );
746:
747: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
748: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
749: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
750: raise OKC_API.G_EXCEPTION_ERROR;
751: End If;
752:
753: OKC_API.END_ACTIVITY
746:
747: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
748: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
749: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
750: raise OKC_API.G_EXCEPTION_ERROR;
751: End If;
752:
753: OKC_API.END_ACTIVITY
754: (
749: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
750: raise OKC_API.G_EXCEPTION_ERROR;
751: End If;
752:
753: OKC_API.END_ACTIVITY
754: (
755: x_msg_count => x_msg_count,
756: x_msg_data => x_msg_data
757: );
756: x_msg_data => x_msg_data
757: );
758:
759: Exception
760: When OKC_API.G_EXCEPTION_ERROR THEN
761: x_return_status := OKC_API.HANDLE_EXCEPTIONS
762: (
763: l_api_name,
764: G_PKG_NAME,
757: );
758:
759: Exception
760: When OKC_API.G_EXCEPTION_ERROR THEN
761: x_return_status := OKC_API.HANDLE_EXCEPTIONS
762: (
763: l_api_name,
764: G_PKG_NAME,
765: 'OKC_API.G_RET_STS_ERROR',
761: x_return_status := OKC_API.HANDLE_EXCEPTIONS
762: (
763: l_api_name,
764: G_PKG_NAME,
765: 'OKC_API.G_RET_STS_ERROR',
766: x_msg_count,
767: x_msg_data,
768: '_PUB'
769: );
767: x_msg_data,
768: '_PUB'
769: );
770:
771: When OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
772: x_return_status := OKC_API.HANDLE_EXCEPTIONS
773: (
774: l_api_name,
775: G_PKG_NAME,
768: '_PUB'
769: );
770:
771: When OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
772: x_return_status := OKC_API.HANDLE_EXCEPTIONS
773: (
774: l_api_name,
775: G_PKG_NAME,
776: 'OKC_API.G_RET_STS_UNEXP_ERROR',
772: x_return_status := OKC_API.HANDLE_EXCEPTIONS
773: (
774: l_api_name,
775: G_PKG_NAME,
776: 'OKC_API.G_RET_STS_UNEXP_ERROR',
777: x_msg_count,
778: x_msg_data,
779: '_PUB'
780: );
779: '_PUB'
780: );
781:
782: When OTHERS THEN
783: x_return_status := OKC_API.HANDLE_EXCEPTIONS
784: (
785: l_api_name,
786: G_PKG_NAME,
787: 'OTHERS',
794: End update_row;
795:
796: PROCEDURE update_row(
797: p_api_version IN NUMBER,
798: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
799: x_return_status OUT NOCOPY VARCHAR2,
800: x_msg_count OUT NOCOPY NUMBER,
801: x_msg_data OUT NOCOPY VARCHAR2,
802: p_scpv_tbl IN scpv_tbl_type,
802: p_scpv_tbl IN scpv_tbl_type,
803: x_scpv_tbl OUT NOCOPY scpv_tbl_type) IS
804:
805: l_api_name CONSTANT VARCHAR2(30) := 'update_row';
806: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
807: l_ptr BINARY_INTEGER;
808:
809: Begin
810:
807: l_ptr BINARY_INTEGER;
808:
809: Begin
810:
811: x_return_status := OKC_API.G_RET_STS_SUCCESS;
812:
813: If p_scpv_tbl.COUNT > 0 Then
814:
815: l_ptr := p_scpv_tbl.FIRST;
823: x_msg_data ,
824: p_scpv_tbl(l_ptr) ,
825: x_scpv_tbl(l_ptr));
826:
827: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
828: If l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
829: x_return_status := l_return_status;
830: Raise G_EXCEPTION_HALT_VALIDATION;
831: Else
824: p_scpv_tbl(l_ptr) ,
825: x_scpv_tbl(l_ptr));
826:
827: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
828: If l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
829: x_return_status := l_return_status;
830: Raise G_EXCEPTION_HALT_VALIDATION;
831: Else
832: x_return_status := l_return_status;
840:
841: End If;
842:
843: Exception
844: When OKC_API.G_EXCEPTION_ERROR THEN
845: x_return_status := OKC_API.HANDLE_EXCEPTIONS
846: (
847: l_api_name,
848: G_PKG_NAME,
841: End If;
842:
843: Exception
844: When OKC_API.G_EXCEPTION_ERROR THEN
845: x_return_status := OKC_API.HANDLE_EXCEPTIONS
846: (
847: l_api_name,
848: G_PKG_NAME,
849: 'OKC_API.G_RET_STS_ERROR',
845: x_return_status := OKC_API.HANDLE_EXCEPTIONS
846: (
847: l_api_name,
848: G_PKG_NAME,
849: 'OKC_API.G_RET_STS_ERROR',
850: x_msg_count,
851: x_msg_data,
852: '_PUB'
853: );
851: x_msg_data,
852: '_PUB'
853: );
854:
855: When OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
856: x_return_status := OKC_API.HANDLE_EXCEPTIONS
857: (
858: l_api_name,
859: G_PKG_NAME,
852: '_PUB'
853: );
854:
855: When OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
856: x_return_status := OKC_API.HANDLE_EXCEPTIONS
857: (
858: l_api_name,
859: G_PKG_NAME,
860: 'OKC_API.G_RET_STS_UNEXP_ERROR',
856: x_return_status := OKC_API.HANDLE_EXCEPTIONS
857: (
858: l_api_name,
859: G_PKG_NAME,
860: 'OKC_API.G_RET_STS_UNEXP_ERROR',
861: x_msg_count,
862: x_msg_data,
863: '_PUB'
864: );
863: '_PUB'
864: );
865:
866: When OTHERS THEN
867: x_return_status := OKC_API.HANDLE_EXCEPTIONS
868: (
869: l_api_name,
870: G_PKG_NAME,
871: 'OTHERS',
877: End update_row;
878:
879: PROCEDURE delete_row(
880: p_api_version IN NUMBER,
881: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
882: x_return_status OUT NOCOPY VARCHAR2,
883: x_msg_count OUT NOCOPY NUMBER,
884: x_msg_data OUT NOCOPY VARCHAR2,
885: p_scpv_rec IN scpv_rec_type) IS
885: p_scpv_rec IN scpv_rec_type) IS
886:
887: l_api_name CONSTANT VARCHAR2(30) := 'delete_row';
888: l_api_version CONSTANT NUMBER := 1.0;
889: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
890:
891: Begin
892: l_return_status := OKC_API.START_ACTIVITY
893: (
888: l_api_version CONSTANT NUMBER := 1.0;
889: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
890:
891: Begin
892: l_return_status := OKC_API.START_ACTIVITY
893: (
894: l_api_name
895: ,p_init_msg_list
896: ,'_PUB'
896: ,'_PUB'
897: ,x_return_status
898: );
899:
900: If l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
901: Raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
902: ElsIf l_return_status = OKC_API.G_RET_STS_ERROR Then
903: Raise OKC_API.G_EXCEPTION_ERROR;
904: End If;
897: ,x_return_status
898: );
899:
900: If l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
901: Raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
902: ElsIf l_return_status = OKC_API.G_RET_STS_ERROR Then
903: Raise OKC_API.G_EXCEPTION_ERROR;
904: End If;
905:
898: );
899:
900: If l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
901: Raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
902: ElsIf l_return_status = OKC_API.G_RET_STS_ERROR Then
903: Raise OKC_API.G_EXCEPTION_ERROR;
904: End If;
905:
906:
899:
900: If l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
901: Raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
902: ElsIf l_return_status = OKC_API.G_RET_STS_ERROR Then
903: Raise OKC_API.G_EXCEPTION_ERROR;
904: End If;
905:
906:
907: OKC_UTIL.call_user_hook
911: p_procedure_name => l_api_name,
912: p_before_after => 'B'
913: );
914:
915: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) Then
916: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
917: ElsIf (x_return_status = OKC_API.G_RET_STS_ERROR) Then
918: raise OKC_API.G_EXCEPTION_ERROR;
919: End If;
912: p_before_after => 'B'
913: );
914:
915: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) Then
916: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
917: ElsIf (x_return_status = OKC_API.G_RET_STS_ERROR) Then
918: raise OKC_API.G_EXCEPTION_ERROR;
919: End If;
920:
913: );
914:
915: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) Then
916: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
917: ElsIf (x_return_status = OKC_API.G_RET_STS_ERROR) Then
918: raise OKC_API.G_EXCEPTION_ERROR;
919: End If;
920:
921: OKS_SUBSCR_PTRNS_PVT.delete_row(
914:
915: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) Then
916: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
917: ElsIf (x_return_status = OKC_API.G_RET_STS_ERROR) Then
918: raise OKC_API.G_EXCEPTION_ERROR;
919: End If;
920:
921: OKS_SUBSCR_PTRNS_PVT.delete_row(
922: p_api_version => p_api_version,
925: x_msg_count => x_msg_count,
926: x_msg_data => x_msg_data,
927: p_scpv_rec => p_scpv_rec);
928:
929: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
930: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
931: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
932: raise OKC_API.G_EXCEPTION_ERROR;
933: End If;
926: x_msg_data => x_msg_data,
927: p_scpv_rec => p_scpv_rec);
928:
929: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
930: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
931: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
932: raise OKC_API.G_EXCEPTION_ERROR;
933: End If;
934:
927: p_scpv_rec => p_scpv_rec);
928:
929: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
930: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
931: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
932: raise OKC_API.G_EXCEPTION_ERROR;
933: End If;
934:
935:
928:
929: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
930: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
931: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
932: raise OKC_API.G_EXCEPTION_ERROR;
933: End If;
934:
935:
936: OKC_UTIL.call_user_hook
940: p_procedure_name => l_api_name,
941: p_before_after => 'A'
942: );
943:
944: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
945: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
946: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
947: raise OKC_API.G_EXCEPTION_ERROR;
948: End If;
941: p_before_after => 'A'
942: );
943:
944: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
945: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
946: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
947: raise OKC_API.G_EXCEPTION_ERROR;
948: End If;
949:
942: );
943:
944: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
945: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
946: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
947: raise OKC_API.G_EXCEPTION_ERROR;
948: End If;
949:
950: OKC_API.END_ACTIVITY
943:
944: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
945: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
946: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
947: raise OKC_API.G_EXCEPTION_ERROR;
948: End If;
949:
950: OKC_API.END_ACTIVITY
951: (
946: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
947: raise OKC_API.G_EXCEPTION_ERROR;
948: End If;
949:
950: OKC_API.END_ACTIVITY
951: (
952: x_msg_count => x_msg_count,
953: x_msg_data => x_msg_data
954: );
953: x_msg_data => x_msg_data
954: );
955:
956: Exception
957: When OKC_API.G_EXCEPTION_ERROR THEN
958: x_return_status := OKC_API.HANDLE_EXCEPTIONS
959: (
960: l_api_name,
961: G_PKG_NAME,
954: );
955:
956: Exception
957: When OKC_API.G_EXCEPTION_ERROR THEN
958: x_return_status := OKC_API.HANDLE_EXCEPTIONS
959: (
960: l_api_name,
961: G_PKG_NAME,
962: 'OKC_API.G_RET_STS_ERROR',
958: x_return_status := OKC_API.HANDLE_EXCEPTIONS
959: (
960: l_api_name,
961: G_PKG_NAME,
962: 'OKC_API.G_RET_STS_ERROR',
963: x_msg_count,
964: x_msg_data,
965: '_PUB'
966: );
964: x_msg_data,
965: '_PUB'
966: );
967:
968: When OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
969: x_return_status := OKC_API.HANDLE_EXCEPTIONS
970: (
971: l_api_name,
972: G_PKG_NAME,
965: '_PUB'
966: );
967:
968: When OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
969: x_return_status := OKC_API.HANDLE_EXCEPTIONS
970: (
971: l_api_name,
972: G_PKG_NAME,
973: 'OKC_API.G_RET_STS_UNEXP_ERROR',
969: x_return_status := OKC_API.HANDLE_EXCEPTIONS
970: (
971: l_api_name,
972: G_PKG_NAME,
973: 'OKC_API.G_RET_STS_UNEXP_ERROR',
974: x_msg_count,
975: x_msg_data,
976: '_PUB'
977: );
976: '_PUB'
977: );
978:
979: When OTHERS THEN
980: x_return_status := OKC_API.HANDLE_EXCEPTIONS
981: (
982: l_api_name,
983: G_PKG_NAME,
984: 'OTHERS',
989: End delete_row;
990:
991: PROCEDURE delete_row(
992: p_api_version IN NUMBER,
993: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
994: x_return_status OUT NOCOPY VARCHAR2,
995: x_msg_count OUT NOCOPY NUMBER,
996: x_msg_data OUT NOCOPY VARCHAR2,
997: p_scpv_tbl IN scpv_tbl_type,
994: x_return_status OUT NOCOPY VARCHAR2,
995: x_msg_count OUT NOCOPY NUMBER,
996: x_msg_data OUT NOCOPY VARCHAR2,
997: p_scpv_tbl IN scpv_tbl_type,
998: px_error_tbl IN OUT NOCOPY OKC_API.ERROR_TBL_TYPE) IS
999:
1000: l_api_name CONSTANT VARCHAR2(30) := 'delete_row';
1001: l_api_version CONSTANT NUMBER := 1.0;
1002: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
998: px_error_tbl IN OUT NOCOPY OKC_API.ERROR_TBL_TYPE) IS
999:
1000: l_api_name CONSTANT VARCHAR2(30) := 'delete_row';
1001: l_api_version CONSTANT NUMBER := 1.0;
1002: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1003:
1004: Begin
1005: l_return_status := OKC_API.START_ACTIVITY
1006: (
1001: l_api_version CONSTANT NUMBER := 1.0;
1002: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1003:
1004: Begin
1005: l_return_status := OKC_API.START_ACTIVITY
1006: (
1007: l_api_name
1008: ,p_init_msg_list
1009: ,'_PUB'
1009: ,'_PUB'
1010: ,x_return_status
1011: );
1012:
1013: If l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1014: Raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1015: ElsIf l_return_status = OKC_API.G_RET_STS_ERROR Then
1016: Raise OKC_API.G_EXCEPTION_ERROR;
1017: End If;
1010: ,x_return_status
1011: );
1012:
1013: If l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1014: Raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1015: ElsIf l_return_status = OKC_API.G_RET_STS_ERROR Then
1016: Raise OKC_API.G_EXCEPTION_ERROR;
1017: End If;
1018:
1011: );
1012:
1013: If l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1014: Raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1015: ElsIf l_return_status = OKC_API.G_RET_STS_ERROR Then
1016: Raise OKC_API.G_EXCEPTION_ERROR;
1017: End If;
1018:
1019:
1012:
1013: If l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1014: Raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1015: ElsIf l_return_status = OKC_API.G_RET_STS_ERROR Then
1016: Raise OKC_API.G_EXCEPTION_ERROR;
1017: End If;
1018:
1019:
1020: OKC_UTIL.call_user_hook
1024: p_procedure_name => l_api_name,
1025: p_before_after => 'B'
1026: );
1027:
1028: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) Then
1029: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1030: ElsIf (x_return_status = OKC_API.G_RET_STS_ERROR) Then
1031: raise OKC_API.G_EXCEPTION_ERROR;
1032: End If;
1025: p_before_after => 'B'
1026: );
1027:
1028: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) Then
1029: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1030: ElsIf (x_return_status = OKC_API.G_RET_STS_ERROR) Then
1031: raise OKC_API.G_EXCEPTION_ERROR;
1032: End If;
1033:
1026: );
1027:
1028: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) Then
1029: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1030: ElsIf (x_return_status = OKC_API.G_RET_STS_ERROR) Then
1031: raise OKC_API.G_EXCEPTION_ERROR;
1032: End If;
1033:
1034: OKS_SUBSCR_PTRNS_PVT.delete_row(
1027:
1028: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) Then
1029: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1030: ElsIf (x_return_status = OKC_API.G_RET_STS_ERROR) Then
1031: raise OKC_API.G_EXCEPTION_ERROR;
1032: End If;
1033:
1034: OKS_SUBSCR_PTRNS_PVT.delete_row(
1035: p_api_version => p_api_version,
1039: x_msg_data => x_msg_data,
1040: p_scpv_tbl => p_scpv_tbl,
1041: px_error_tbl => px_error_tbl);
1042:
1043: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1044: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1045: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1046: raise OKC_API.G_EXCEPTION_ERROR;
1047: End If;
1040: p_scpv_tbl => p_scpv_tbl,
1041: px_error_tbl => px_error_tbl);
1042:
1043: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1044: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1045: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1046: raise OKC_API.G_EXCEPTION_ERROR;
1047: End If;
1048:
1041: px_error_tbl => px_error_tbl);
1042:
1043: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1044: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1045: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1046: raise OKC_API.G_EXCEPTION_ERROR;
1047: End If;
1048:
1049:
1042:
1043: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1044: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1045: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1046: raise OKC_API.G_EXCEPTION_ERROR;
1047: End If;
1048:
1049:
1050: OKC_UTIL.call_user_hook
1054: p_procedure_name => l_api_name,
1055: p_before_after => 'A'
1056: );
1057:
1058: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1059: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1060: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1061: raise OKC_API.G_EXCEPTION_ERROR;
1062: End If;
1055: p_before_after => 'A'
1056: );
1057:
1058: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1059: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1060: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1061: raise OKC_API.G_EXCEPTION_ERROR;
1062: End If;
1063:
1056: );
1057:
1058: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1059: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1060: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1061: raise OKC_API.G_EXCEPTION_ERROR;
1062: End If;
1063:
1064: OKC_API.END_ACTIVITY
1057:
1058: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1059: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1060: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1061: raise OKC_API.G_EXCEPTION_ERROR;
1062: End If;
1063:
1064: OKC_API.END_ACTIVITY
1065: (
1060: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1061: raise OKC_API.G_EXCEPTION_ERROR;
1062: End If;
1063:
1064: OKC_API.END_ACTIVITY
1065: (
1066: x_msg_count => x_msg_count,
1067: x_msg_data => x_msg_data
1068: );
1067: x_msg_data => x_msg_data
1068: );
1069:
1070: Exception
1071: When OKC_API.G_EXCEPTION_ERROR THEN
1072: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1073: (
1074: l_api_name,
1075: G_PKG_NAME,
1068: );
1069:
1070: Exception
1071: When OKC_API.G_EXCEPTION_ERROR THEN
1072: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1073: (
1074: l_api_name,
1075: G_PKG_NAME,
1076: 'OKC_API.G_RET_STS_ERROR',
1072: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1073: (
1074: l_api_name,
1075: G_PKG_NAME,
1076: 'OKC_API.G_RET_STS_ERROR',
1077: x_msg_count,
1078: x_msg_data,
1079: '_PUB'
1080: );
1078: x_msg_data,
1079: '_PUB'
1080: );
1081:
1082: When OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1083: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1084: (
1085: l_api_name,
1086: G_PKG_NAME,
1079: '_PUB'
1080: );
1081:
1082: When OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1083: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1084: (
1085: l_api_name,
1086: G_PKG_NAME,
1087: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1083: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1084: (
1085: l_api_name,
1086: G_PKG_NAME,
1087: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1088: x_msg_count,
1089: x_msg_data,
1090: '_PUB'
1091: );
1090: '_PUB'
1091: );
1092:
1093: When OTHERS THEN
1094: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1095: (
1096: l_api_name,
1097: G_PKG_NAME,
1098: 'OTHERS',
1104: End delete_row;
1105:
1106: PROCEDURE delete_row(
1107: p_api_version IN NUMBER,
1108: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
1109: x_return_status OUT NOCOPY VARCHAR2,
1110: x_msg_count OUT NOCOPY NUMBER,
1111: x_msg_data OUT NOCOPY VARCHAR2,
1112: p_scpv_tbl IN scpv_tbl_type) IS
1112: p_scpv_tbl IN scpv_tbl_type) IS
1113:
1114:
1115: l_api_name CONSTANT VARCHAR2(30) := 'delete_row';
1116: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1117: l_ptr BINARY_INTEGER;
1118:
1119: Begin
1120:
1117: l_ptr BINARY_INTEGER;
1118:
1119: Begin
1120:
1121: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1122:
1123: If p_scpv_tbl.COUNT > 0 Then
1124:
1125: l_ptr := p_scpv_tbl.FIRST;
1132: x_msg_count ,
1133: x_msg_data ,
1134: p_scpv_tbl(l_ptr));
1135:
1136: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
1137: If l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1138: x_return_status := l_return_status;
1139: Raise G_EXCEPTION_HALT_VALIDATION;
1140: Else
1133: x_msg_data ,
1134: p_scpv_tbl(l_ptr));
1135:
1136: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
1137: If l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1138: x_return_status := l_return_status;
1139: Raise G_EXCEPTION_HALT_VALIDATION;
1140: Else
1141: x_return_status := l_return_status;
1149:
1150: End If;
1151:
1152: Exception
1153: When OKC_API.G_EXCEPTION_ERROR THEN
1154: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1155: (
1156: l_api_name,
1157: G_PKG_NAME,
1150: End If;
1151:
1152: Exception
1153: When OKC_API.G_EXCEPTION_ERROR THEN
1154: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1155: (
1156: l_api_name,
1157: G_PKG_NAME,
1158: 'OKC_API.G_RET_STS_ERROR',
1154: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1155: (
1156: l_api_name,
1157: G_PKG_NAME,
1158: 'OKC_API.G_RET_STS_ERROR',
1159: x_msg_count,
1160: x_msg_data,
1161: '_PUB'
1162: );
1160: x_msg_data,
1161: '_PUB'
1162: );
1163:
1164: When OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1165: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1166: (
1167: l_api_name,
1168: G_PKG_NAME,
1161: '_PUB'
1162: );
1163:
1164: When OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1165: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1166: (
1167: l_api_name,
1168: G_PKG_NAME,
1169: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1165: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1166: (
1167: l_api_name,
1168: G_PKG_NAME,
1169: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1170: x_msg_count,
1171: x_msg_data,
1172: '_PUB'
1173: );
1172: '_PUB'
1173: );
1174:
1175: When OTHERS THEN
1176: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1177: (
1178: l_api_name,
1179: G_PKG_NAME,
1180: 'OTHERS',
1186: End delete_row;
1187:
1188: PROCEDURE validate_row(
1189: p_api_version IN NUMBER,
1190: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
1191: x_return_status OUT NOCOPY VARCHAR2,
1192: x_msg_count OUT NOCOPY NUMBER,
1193: x_msg_data OUT NOCOPY VARCHAR2,
1194: p_scpv_rec IN scpv_rec_type) IS
1194: p_scpv_rec IN scpv_rec_type) IS
1195:
1196: l_api_name CONSTANT VARCHAR2(30) := 'validate_row';
1197: l_api_version CONSTANT NUMBER := 1.0;
1198: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1199:
1200: Begin
1201:
1202: l_return_status := OKC_API.START_ACTIVITY
1198: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1199:
1200: Begin
1201:
1202: l_return_status := OKC_API.START_ACTIVITY
1203: (
1204: l_api_name
1205: ,p_init_msg_list
1206: ,'_PUB'
1206: ,'_PUB'
1207: ,x_return_status
1208: );
1209:
1210: If l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1211: Raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1212: ElsIf l_return_status = OKC_API.G_RET_STS_ERROR Then
1213: Raise OKC_API.G_EXCEPTION_ERROR;
1214: End If;
1207: ,x_return_status
1208: );
1209:
1210: If l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1211: Raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1212: ElsIf l_return_status = OKC_API.G_RET_STS_ERROR Then
1213: Raise OKC_API.G_EXCEPTION_ERROR;
1214: End If;
1215:
1208: );
1209:
1210: If l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1211: Raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1212: ElsIf l_return_status = OKC_API.G_RET_STS_ERROR Then
1213: Raise OKC_API.G_EXCEPTION_ERROR;
1214: End If;
1215:
1216:
1209:
1210: If l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1211: Raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1212: ElsIf l_return_status = OKC_API.G_RET_STS_ERROR Then
1213: Raise OKC_API.G_EXCEPTION_ERROR;
1214: End If;
1215:
1216:
1217:
1222: p_procedure_name => l_api_name,
1223: p_before_after => 'B'
1224: );
1225:
1226: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) Then
1227: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1228: ElsIf (x_return_status = OKC_API.G_RET_STS_ERROR) Then
1229: raise OKC_API.G_EXCEPTION_ERROR;
1230: End If;
1223: p_before_after => 'B'
1224: );
1225:
1226: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) Then
1227: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1228: ElsIf (x_return_status = OKC_API.G_RET_STS_ERROR) Then
1229: raise OKC_API.G_EXCEPTION_ERROR;
1230: End If;
1231:
1224: );
1225:
1226: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) Then
1227: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1228: ElsIf (x_return_status = OKC_API.G_RET_STS_ERROR) Then
1229: raise OKC_API.G_EXCEPTION_ERROR;
1230: End If;
1231:
1232: OKS_SUBSCR_PTRNS_PVT.validate_row(
1225:
1226: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) Then
1227: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1228: ElsIf (x_return_status = OKC_API.G_RET_STS_ERROR) Then
1229: raise OKC_API.G_EXCEPTION_ERROR;
1230: End If;
1231:
1232: OKS_SUBSCR_PTRNS_PVT.validate_row(
1233: p_api_version,
1237: x_msg_data,
1238: p_scpv_rec);
1239:
1240:
1241: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1242: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1243: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1244: raise OKC_API.G_EXCEPTION_ERROR;
1245: End If;
1238: p_scpv_rec);
1239:
1240:
1241: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1242: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1243: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1244: raise OKC_API.G_EXCEPTION_ERROR;
1245: End If;
1246:
1239:
1240:
1241: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1242: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1243: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1244: raise OKC_API.G_EXCEPTION_ERROR;
1245: End If;
1246:
1247: OKC_UTIL.call_user_hook
1240:
1241: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1242: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1243: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1244: raise OKC_API.G_EXCEPTION_ERROR;
1245: End If;
1246:
1247: OKC_UTIL.call_user_hook
1248: (
1251: p_procedure_name => l_api_name,
1252: p_before_after => 'A'
1253: );
1254:
1255: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1256: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1257: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1258: raise OKC_API.G_EXCEPTION_ERROR;
1259: End If;
1252: p_before_after => 'A'
1253: );
1254:
1255: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1256: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1257: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1258: raise OKC_API.G_EXCEPTION_ERROR;
1259: End If;
1260:
1253: );
1254:
1255: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1256: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1257: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1258: raise OKC_API.G_EXCEPTION_ERROR;
1259: End If;
1260:
1261: OKC_API.END_ACTIVITY
1254:
1255: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1256: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1257: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1258: raise OKC_API.G_EXCEPTION_ERROR;
1259: End If;
1260:
1261: OKC_API.END_ACTIVITY
1262: (
1257: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1258: raise OKC_API.G_EXCEPTION_ERROR;
1259: End If;
1260:
1261: OKC_API.END_ACTIVITY
1262: (
1263: x_msg_count => x_msg_count,
1264: x_msg_data => x_msg_data
1265: );
1265: );
1266:
1267:
1268: Exception
1269: When OKC_API.G_EXCEPTION_ERROR THEN
1270: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1271: (
1272: l_api_name,
1273: G_PKG_NAME,
1266:
1267:
1268: Exception
1269: When OKC_API.G_EXCEPTION_ERROR THEN
1270: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1271: (
1272: l_api_name,
1273: G_PKG_NAME,
1274: 'OKC_API.G_RET_STS_ERROR',
1270: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1271: (
1272: l_api_name,
1273: G_PKG_NAME,
1274: 'OKC_API.G_RET_STS_ERROR',
1275: x_msg_count,
1276: x_msg_data,
1277: '_PUB'
1278: );
1276: x_msg_data,
1277: '_PUB'
1278: );
1279:
1280: When OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1281: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1282: (
1283: l_api_name,
1284: G_PKG_NAME,
1277: '_PUB'
1278: );
1279:
1280: When OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1281: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1282: (
1283: l_api_name,
1284: G_PKG_NAME,
1285: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1281: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1282: (
1283: l_api_name,
1284: G_PKG_NAME,
1285: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1286: x_msg_count,
1287: x_msg_data,
1288: '_PUB'
1289: );
1288: '_PUB'
1289: );
1290:
1291: When OTHERS THEN
1292: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1293: (
1294: l_api_name,
1295: G_PKG_NAME,
1296: 'OTHERS',
1302: End validate_row;
1303:
1304: PROCEDURE validate_row(
1305: p_api_version IN NUMBER,
1306: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
1307: x_return_status OUT NOCOPY VARCHAR2,
1308: x_msg_count OUT NOCOPY NUMBER,
1309: x_msg_data OUT NOCOPY VARCHAR2,
1310: p_scpv_tbl IN scpv_tbl_type,
1307: x_return_status OUT NOCOPY VARCHAR2,
1308: x_msg_count OUT NOCOPY NUMBER,
1309: x_msg_data OUT NOCOPY VARCHAR2,
1310: p_scpv_tbl IN scpv_tbl_type,
1311: px_error_tbl IN OUT NOCOPY OKC_API.ERROR_TBL_TYPE) IS
1312:
1313: l_api_name CONSTANT VARCHAR2(30) := 'validate_row';
1314: l_api_version CONSTANT NUMBER := 1.0;
1315: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1311: px_error_tbl IN OUT NOCOPY OKC_API.ERROR_TBL_TYPE) IS
1312:
1313: l_api_name CONSTANT VARCHAR2(30) := 'validate_row';
1314: l_api_version CONSTANT NUMBER := 1.0;
1315: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1316:
1317: Begin
1318:
1319: l_return_status := OKC_API.START_ACTIVITY
1315: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1316:
1317: Begin
1318:
1319: l_return_status := OKC_API.START_ACTIVITY
1320: (
1321: l_api_name
1322: ,p_init_msg_list
1323: ,'_PUB'
1323: ,'_PUB'
1324: ,x_return_status
1325: );
1326:
1327: If l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1328: Raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1329: ElsIf l_return_status = OKC_API.G_RET_STS_ERROR Then
1330: Raise OKC_API.G_EXCEPTION_ERROR;
1331: End If;
1324: ,x_return_status
1325: );
1326:
1327: If l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1328: Raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1329: ElsIf l_return_status = OKC_API.G_RET_STS_ERROR Then
1330: Raise OKC_API.G_EXCEPTION_ERROR;
1331: End If;
1332:
1325: );
1326:
1327: If l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1328: Raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1329: ElsIf l_return_status = OKC_API.G_RET_STS_ERROR Then
1330: Raise OKC_API.G_EXCEPTION_ERROR;
1331: End If;
1332:
1333:
1326:
1327: If l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1328: Raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1329: ElsIf l_return_status = OKC_API.G_RET_STS_ERROR Then
1330: Raise OKC_API.G_EXCEPTION_ERROR;
1331: End If;
1332:
1333:
1334:
1339: p_procedure_name => l_api_name,
1340: p_before_after => 'B'
1341: );
1342:
1343: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) Then
1344: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1345: ElsIf (x_return_status = OKC_API.G_RET_STS_ERROR) Then
1346: raise OKC_API.G_EXCEPTION_ERROR;
1347: End If;
1340: p_before_after => 'B'
1341: );
1342:
1343: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) Then
1344: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1345: ElsIf (x_return_status = OKC_API.G_RET_STS_ERROR) Then
1346: raise OKC_API.G_EXCEPTION_ERROR;
1347: End If;
1348:
1341: );
1342:
1343: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) Then
1344: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1345: ElsIf (x_return_status = OKC_API.G_RET_STS_ERROR) Then
1346: raise OKC_API.G_EXCEPTION_ERROR;
1347: End If;
1348:
1349: OKS_SUBSCR_PTRNS_PVT.validate_row(
1342:
1343: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) Then
1344: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1345: ElsIf (x_return_status = OKC_API.G_RET_STS_ERROR) Then
1346: raise OKC_API.G_EXCEPTION_ERROR;
1347: End If;
1348:
1349: OKS_SUBSCR_PTRNS_PVT.validate_row(
1350: p_api_version,
1354: x_msg_data,
1355: p_scpv_tbl,
1356: px_error_tbl);
1357:
1358: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1359: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1360: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1361: raise OKC_API.G_EXCEPTION_ERROR;
1362: End If;
1355: p_scpv_tbl,
1356: px_error_tbl);
1357:
1358: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1359: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1360: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1361: raise OKC_API.G_EXCEPTION_ERROR;
1362: End If;
1363:
1356: px_error_tbl);
1357:
1358: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1359: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1360: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1361: raise OKC_API.G_EXCEPTION_ERROR;
1362: End If;
1363:
1364: OKC_UTIL.call_user_hook
1357:
1358: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1359: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1360: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1361: raise OKC_API.G_EXCEPTION_ERROR;
1362: End If;
1363:
1364: OKC_UTIL.call_user_hook
1365: (
1368: p_procedure_name => l_api_name,
1369: p_before_after => 'A'
1370: );
1371:
1372: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1373: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1374: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1375: raise OKC_API.G_EXCEPTION_ERROR;
1376: End If;
1369: p_before_after => 'A'
1370: );
1371:
1372: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1373: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1374: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1375: raise OKC_API.G_EXCEPTION_ERROR;
1376: End If;
1377:
1370: );
1371:
1372: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1373: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1374: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1375: raise OKC_API.G_EXCEPTION_ERROR;
1376: End If;
1377:
1378: OKC_API.END_ACTIVITY
1371:
1372: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1373: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1374: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1375: raise OKC_API.G_EXCEPTION_ERROR;
1376: End If;
1377:
1378: OKC_API.END_ACTIVITY
1379: (
1374: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1375: raise OKC_API.G_EXCEPTION_ERROR;
1376: End If;
1377:
1378: OKC_API.END_ACTIVITY
1379: (
1380: x_msg_count => x_msg_count,
1381: x_msg_data => x_msg_data
1382: );
1382: );
1383:
1384:
1385: Exception
1386: When OKC_API.G_EXCEPTION_ERROR THEN
1387: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1388: (
1389: l_api_name,
1390: G_PKG_NAME,
1383:
1384:
1385: Exception
1386: When OKC_API.G_EXCEPTION_ERROR THEN
1387: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1388: (
1389: l_api_name,
1390: G_PKG_NAME,
1391: 'OKC_API.G_RET_STS_ERROR',
1387: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1388: (
1389: l_api_name,
1390: G_PKG_NAME,
1391: 'OKC_API.G_RET_STS_ERROR',
1392: x_msg_count,
1393: x_msg_data,
1394: '_PUB'
1395: );
1393: x_msg_data,
1394: '_PUB'
1395: );
1396:
1397: When OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1398: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1399: (
1400: l_api_name,
1401: G_PKG_NAME,
1394: '_PUB'
1395: );
1396:
1397: When OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1398: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1399: (
1400: l_api_name,
1401: G_PKG_NAME,
1402: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1398: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1399: (
1400: l_api_name,
1401: G_PKG_NAME,
1402: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1403: x_msg_count,
1404: x_msg_data,
1405: '_PUB'
1406: );
1405: '_PUB'
1406: );
1407:
1408: When OTHERS THEN
1409: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1410: (
1411: l_api_name,
1412: G_PKG_NAME,
1413: 'OTHERS',
1419: End validate_row;
1420:
1421: PROCEDURE validate_row(
1422: p_api_version IN NUMBER,
1423: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
1424: x_return_status OUT NOCOPY VARCHAR2,
1425: x_msg_count OUT NOCOPY NUMBER,
1426: x_msg_data OUT NOCOPY VARCHAR2,
1427: p_scpv_tbl IN scpv_tbl_type) IS
1426: x_msg_data OUT NOCOPY VARCHAR2,
1427: p_scpv_tbl IN scpv_tbl_type) IS
1428:
1429: l_api_name CONSTANT VARCHAR2(30) := 'validate_row';
1430: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1431: l_ptr BINARY_INTEGER;
1432:
1433: Begin
1434:
1431: l_ptr BINARY_INTEGER;
1432:
1433: Begin
1434:
1435: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1436:
1437: If p_scpv_tbl.COUNT > 0 Then
1438:
1439: l_ptr := p_scpv_tbl.FIRST;
1446: x_msg_count,
1447: x_msg_data,
1448: p_scpv_tbl(l_ptr));
1449:
1450: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
1451: If l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1452: x_return_status := l_return_status;
1453: Raise G_EXCEPTION_HALT_VALIDATION;
1454: Else
1447: x_msg_data,
1448: p_scpv_tbl(l_ptr));
1449:
1450: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
1451: If l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1452: x_return_status := l_return_status;
1453: Raise G_EXCEPTION_HALT_VALIDATION;
1454: Else
1455: x_return_status := l_return_status;
1463:
1464: End If;
1465:
1466: Exception
1467: When OKC_API.G_EXCEPTION_ERROR THEN
1468: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1469: (
1470: l_api_name,
1471: G_PKG_NAME,
1464: End If;
1465:
1466: Exception
1467: When OKC_API.G_EXCEPTION_ERROR THEN
1468: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1469: (
1470: l_api_name,
1471: G_PKG_NAME,
1472: 'OKC_API.G_RET_STS_ERROR',
1468: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1469: (
1470: l_api_name,
1471: G_PKG_NAME,
1472: 'OKC_API.G_RET_STS_ERROR',
1473: x_msg_count,
1474: x_msg_data,
1475: '_PUB'
1476: );
1474: x_msg_data,
1475: '_PUB'
1476: );
1477:
1478: When OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1479: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1480: (
1481: l_api_name,
1482: G_PKG_NAME,
1475: '_PUB'
1476: );
1477:
1478: When OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1479: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1480: (
1481: l_api_name,
1482: G_PKG_NAME,
1483: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1479: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1480: (
1481: l_api_name,
1482: G_PKG_NAME,
1483: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1484: x_msg_count,
1485: x_msg_data,
1486: '_PUB'
1487: );
1486: '_PUB'
1487: );
1488:
1489: When OTHERS THEN
1490: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1491: (
1492: l_api_name,
1493: G_PKG_NAME,
1494: 'OTHERS',