3:
4: PROCEDURE insert_bill_Tran_Line_Pub
5: (
6: p_api_version IN NUMBER,
7: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
8: x_return_status OUT NOCOPY VARCHAR2,
9: x_msg_count OUT NOCOPY NUMBER,
10: x_msg_data OUT NOCOPY VARCHAR2,
11: p_btlv_rec IN btlv_rec_type,
15: Is
16:
17: l_api_name CONSTANT VARCHAR2(30) := 'insert_bill_Tran_Line_Pub';
18: l_api_version CONSTANT NUMBER := 1.0;
19: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
20: l_btlv_rec btlv_rec_type;
21:
22: Begin
23:
20: l_btlv_rec btlv_rec_type;
21:
22: Begin
23:
24: l_return_status := OKC_API.START_ACTIVITY
25: (
26: l_api_name
27: ,p_init_msg_list
28: ,'_PUB'
28: ,'_PUB'
29: ,x_return_status
30: );
31:
32: If l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
33: Raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
34: ElsIf l_return_status = OKC_API.G_RET_STS_ERROR Then
35: Raise OKC_API.G_EXCEPTION_ERROR;
36: End If;
29: ,x_return_status
30: );
31:
32: If l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
33: Raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
34: ElsIf l_return_status = OKC_API.G_RET_STS_ERROR Then
35: Raise OKC_API.G_EXCEPTION_ERROR;
36: End If;
37:
30: );
31:
32: If l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
33: Raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
34: ElsIf l_return_status = OKC_API.G_RET_STS_ERROR Then
35: Raise OKC_API.G_EXCEPTION_ERROR;
36: End If;
37:
38: g_btlv_rec := p_btlv_rec;
31:
32: If l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
33: Raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
34: ElsIf l_return_status = OKC_API.G_RET_STS_ERROR Then
35: Raise OKC_API.G_EXCEPTION_ERROR;
36: End If;
37:
38: g_btlv_rec := p_btlv_rec;
39:
44: p_procedure_name => l_api_name,
45: p_before_after => 'B'
46: );
47:
48: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) Then
49: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
50: ElsIf (x_return_status = OKC_API.G_RET_STS_ERROR) Then
51: raise OKC_API.G_EXCEPTION_ERROR;
52: End If;
45: p_before_after => 'B'
46: );
47:
48: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) Then
49: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
50: ElsIf (x_return_status = OKC_API.G_RET_STS_ERROR) Then
51: raise OKC_API.G_EXCEPTION_ERROR;
52: End If;
53:
46: );
47:
48: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) Then
49: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
50: ElsIf (x_return_status = OKC_API.G_RET_STS_ERROR) Then
51: raise OKC_API.G_EXCEPTION_ERROR;
52: End If;
53:
54: --Restore ID/OBJECT VERSION NUMBER
47:
48: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) Then
49: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
50: ElsIf (x_return_status = OKC_API.G_RET_STS_ERROR) Then
51: raise OKC_API.G_EXCEPTION_ERROR;
52: End If;
53:
54: --Restore ID/OBJECT VERSION NUMBER
55:
67: l_btlv_rec ,
68: x_btlv_rec
69: );
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: x_btlv_rec
69: );
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: );
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: g_btlv_rec := x_btlv_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: g_btlv_rec := x_btlv_rec;
78:
83: p_procedure_name => l_api_name,
84: p_before_after => 'A'
85: );
86:
87: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
88: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
89: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
90: raise OKC_API.G_EXCEPTION_ERROR;
91: End If;
84: p_before_after => 'A'
85: );
86:
87: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
88: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
89: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
90: raise OKC_API.G_EXCEPTION_ERROR;
91: End If;
92:
85: );
86:
87: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
88: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
89: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
90: raise OKC_API.G_EXCEPTION_ERROR;
91: End If;
92:
93: OKC_API.END_ACTIVITY
86:
87: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
88: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
89: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
90: raise OKC_API.G_EXCEPTION_ERROR;
91: End If;
92:
93: OKC_API.END_ACTIVITY
94: (
89: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
90: raise OKC_API.G_EXCEPTION_ERROR;
91: End If;
92:
93: OKC_API.END_ACTIVITY
94: (
95: x_msg_count => x_msg_count,
96: x_msg_data => x_msg_data
97: );
96: x_msg_data => x_msg_data
97: );
98:
99: Exception
100: When OKC_API.G_EXCEPTION_ERROR THEN
101: x_return_status := OKC_API.HANDLE_EXCEPTIONS
102: (
103: l_api_name,
104: G_PKG_NAME,
97: );
98:
99: Exception
100: When OKC_API.G_EXCEPTION_ERROR THEN
101: x_return_status := OKC_API.HANDLE_EXCEPTIONS
102: (
103: l_api_name,
104: G_PKG_NAME,
105: 'OKC_API.G_RET_STS_ERROR',
101: x_return_status := OKC_API.HANDLE_EXCEPTIONS
102: (
103: l_api_name,
104: G_PKG_NAME,
105: 'OKC_API.G_RET_STS_ERROR',
106: x_msg_count,
107: x_msg_data,
108: '_PUB'
109: );
107: x_msg_data,
108: '_PUB'
109: );
110:
111: When OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
112: x_return_status := OKC_API.HANDLE_EXCEPTIONS
113: (
114: l_api_name,
115: G_PKG_NAME,
108: '_PUB'
109: );
110:
111: When OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
112: x_return_status := OKC_API.HANDLE_EXCEPTIONS
113: (
114: l_api_name,
115: G_PKG_NAME,
116: 'OKC_API.G_RET_STS_UNEXP_ERROR',
112: x_return_status := OKC_API.HANDLE_EXCEPTIONS
113: (
114: l_api_name,
115: G_PKG_NAME,
116: 'OKC_API.G_RET_STS_UNEXP_ERROR',
117: x_msg_count,
118: x_msg_data,
119: '_PUB'
120: );
119: '_PUB'
120: );
121:
122: When OTHERS THEN
123: x_return_status := OKC_API.HANDLE_EXCEPTIONS
124: (
125: l_api_name,
126: G_PKG_NAME,
127: 'OTHERS',
134:
135:
136: PROCEDURE insert_bill_Tran_Line_Pub(
137: p_api_version IN NUMBER,
138: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
139: x_return_status OUT NOCOPY VARCHAR2,
140: x_msg_count OUT NOCOPY NUMBER,
141: x_msg_data OUT NOCOPY VARCHAR2,
142: p_btlv_tbl IN btlv_tbl_type,
142: p_btlv_tbl IN btlv_tbl_type,
143: x_btlv_tbl OUT NOCOPY btlv_tbl_type)
144: Is
145: l_api_name CONSTANT VARCHAR2(30) := 'insert_bill_Tran_Line_Pub';
146: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
147: l_ptr BINARY_INTEGER;
148:
149: Begin
150:
147: l_ptr BINARY_INTEGER;
148:
149: Begin
150:
151: x_return_status := OKC_API.G_RET_STS_SUCCESS;
152:
153: If p_btlv_tbl.COUNT > 0 Then
154:
155: l_ptr := p_btlv_tbl.FIRST;
165: ,p_btlv_tbl(l_ptr)
166: ,x_btlv_tbl(l_ptr)
167: );
168:
169: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
170: If l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
171: x_return_status := l_return_status;
172: Raise G_EXCEPTION_HALT_VALIDATION;
173: Else
166: ,x_btlv_tbl(l_ptr)
167: );
168:
169: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
170: If l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
171: x_return_status := l_return_status;
172: Raise G_EXCEPTION_HALT_VALIDATION;
173: Else
174: x_return_status := l_return_status;
185: Exception
186: When G_EXCEPTION_HALT_VALIDATION Then
187: Null;
188: When OTHERS Then
189: OKC_API.set_message(p_app_name => g_app_name,
190: p_msg_name => g_unexpected_error,
191: p_token1 => g_sqlcode_token,
192: p_token1_value => sqlcode,
193: p_token2 => g_sqlerrm_token,
192: p_token1_value => sqlcode,
193: p_token2 => g_sqlerrm_token,
194: p_token2_value => sqlerrm
195: );
196: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
197: End;
198:
199:
200: PROCEDURE lock_bill_Tran_Line_Pub(
198:
199:
200: PROCEDURE lock_bill_Tran_Line_Pub(
201: p_api_version IN NUMBER,
202: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
203: x_return_status OUT NOCOPY VARCHAR2,
204: x_msg_count OUT NOCOPY NUMBER,
205: x_msg_data OUT NOCOPY VARCHAR2,
206: p_btlv_rec IN btlv_rec_type)
207: Is
208:
209: l_api_name CONSTANT VARCHAR2(30) := 'lock_bill_Tran_Line_Pub';
210: l_api_version CONSTANT NUMBER := 1.0;
211: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
212: l_btlv_rec btlv_rec_type;
213:
214: Begin
215:
212: l_btlv_rec btlv_rec_type;
213:
214: Begin
215:
216: l_return_status := OKC_API.START_ACTIVITY
217: (
218: l_api_name
219: ,p_init_msg_list
220: ,'_PUB'
220: ,'_PUB'
221: ,x_return_status
222: );
223:
224: If l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
225: Raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
226: ElsIf l_return_status = OKC_API.G_RET_STS_ERROR Then
227: Raise OKC_API.G_EXCEPTION_ERROR;
228: End If;
221: ,x_return_status
222: );
223:
224: If l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
225: Raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
226: ElsIf l_return_status = OKC_API.G_RET_STS_ERROR Then
227: Raise OKC_API.G_EXCEPTION_ERROR;
228: End If;
229:
222: );
223:
224: If l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
225: Raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
226: ElsIf l_return_status = OKC_API.G_RET_STS_ERROR Then
227: Raise OKC_API.G_EXCEPTION_ERROR;
228: End If;
229:
230: oks_billtran_line_pvt.lock_bill_Tran_Line_Comp
223:
224: If l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
225: Raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
226: ElsIf l_return_status = OKC_API.G_RET_STS_ERROR Then
227: Raise OKC_API.G_EXCEPTION_ERROR;
228: End If;
229:
230: oks_billtran_line_pvt.lock_bill_Tran_Line_Comp
231: (
236: x_msg_data ,
237: p_btlv_rec
238: );
239:
240: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
241: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
242: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
243: raise OKC_API.G_EXCEPTION_ERROR;
244: End If;
237: p_btlv_rec
238: );
239:
240: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
241: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
242: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
243: raise OKC_API.G_EXCEPTION_ERROR;
244: End If;
245:
238: );
239:
240: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
241: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
242: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
243: raise OKC_API.G_EXCEPTION_ERROR;
244: End If;
245:
246: OKC_API.END_ACTIVITY
239:
240: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
241: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
242: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
243: raise OKC_API.G_EXCEPTION_ERROR;
244: End If;
245:
246: OKC_API.END_ACTIVITY
247: (
242: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
243: raise OKC_API.G_EXCEPTION_ERROR;
244: End If;
245:
246: OKC_API.END_ACTIVITY
247: (
248: x_msg_count => x_msg_count,
249: x_msg_data => x_msg_data
250: );
249: x_msg_data => x_msg_data
250: );
251:
252: Exception
253: When OKC_API.G_EXCEPTION_ERROR THEN
254: x_return_status := OKC_API.HANDLE_EXCEPTIONS
255: (
256: l_api_name,
257: G_PKG_NAME,
250: );
251:
252: Exception
253: When OKC_API.G_EXCEPTION_ERROR THEN
254: x_return_status := OKC_API.HANDLE_EXCEPTIONS
255: (
256: l_api_name,
257: G_PKG_NAME,
258: 'OKC_API.G_RET_STS_ERROR',
254: x_return_status := OKC_API.HANDLE_EXCEPTIONS
255: (
256: l_api_name,
257: G_PKG_NAME,
258: 'OKC_API.G_RET_STS_ERROR',
259: x_msg_count,
260: x_msg_data,
261: '_PVT'
262: );
260: x_msg_data,
261: '_PVT'
262: );
263:
264: When OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
265: x_return_status := OKC_API.HANDLE_EXCEPTIONS
266: (
267: l_api_name,
268: G_PKG_NAME,
261: '_PVT'
262: );
263:
264: When OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
265: x_return_status := OKC_API.HANDLE_EXCEPTIONS
266: (
267: l_api_name,
268: G_PKG_NAME,
269: 'OKC_API.G_RET_STS_UNEXP_ERROR',
265: x_return_status := OKC_API.HANDLE_EXCEPTIONS
266: (
267: l_api_name,
268: G_PKG_NAME,
269: 'OKC_API.G_RET_STS_UNEXP_ERROR',
270: x_msg_count,
271: x_msg_data,
272: '_PVT'
273: );
272: '_PVT'
273: );
274:
275: When OTHERS THEN
276: x_return_status := OKC_API.HANDLE_EXCEPTIONS
277: (
278: l_api_name,
279: G_PKG_NAME,
280: 'OTHERS',
287:
288:
289: PROCEDURE lock_bill_Tran_Line_Pub(
290: p_api_version IN NUMBER,
291: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
292: x_return_status OUT NOCOPY VARCHAR2,
293: x_msg_count OUT NOCOPY NUMBER,
294: x_msg_data OUT NOCOPY VARCHAR2,
295: p_btlv_tbl IN btlv_tbl_type)
295: p_btlv_tbl IN btlv_tbl_type)
296:
297: Is
298: l_api_name CONSTANT VARCHAR2(30) := 'lock_bill_Tran_Line_Pub';
299: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
300: l_ptr BINARY_INTEGER;
301:
302: Begin
303:
300: l_ptr BINARY_INTEGER;
301:
302: Begin
303:
304: x_return_status := OKC_API.G_RET_STS_SUCCESS;
305:
306: If p_btlv_tbl.COUNT > 0 Then
307:
308: l_ptr := p_btlv_tbl.FIRST;
318: ,x_msg_data
319: ,p_btlv_tbl(l_ptr)
320: );
321:
322: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
323: If l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
324: x_return_status := l_return_status;
325: Raise G_EXCEPTION_HALT_VALIDATION;
326: Else
319: ,p_btlv_tbl(l_ptr)
320: );
321:
322: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
323: If l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
324: x_return_status := l_return_status;
325: Raise G_EXCEPTION_HALT_VALIDATION;
326: Else
327: x_return_status := l_return_status;
335:
336: End If;
337:
338: Exception
339: When OKC_API.G_EXCEPTION_ERROR THEN
340: x_return_status := OKC_API.HANDLE_EXCEPTIONS
341: (
342: l_api_name,
343: G_PKG_NAME,
336: End If;
337:
338: Exception
339: When OKC_API.G_EXCEPTION_ERROR THEN
340: x_return_status := OKC_API.HANDLE_EXCEPTIONS
341: (
342: l_api_name,
343: G_PKG_NAME,
344: 'OKC_API.G_RET_STS_ERROR',
340: x_return_status := OKC_API.HANDLE_EXCEPTIONS
341: (
342: l_api_name,
343: G_PKG_NAME,
344: 'OKC_API.G_RET_STS_ERROR',
345: x_msg_count,
346: x_msg_data,
347: '_PVT'
348: );
346: x_msg_data,
347: '_PVT'
348: );
349:
350: When OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
351: x_return_status := OKC_API.HANDLE_EXCEPTIONS
352: (
353: l_api_name,
354: G_PKG_NAME,
347: '_PVT'
348: );
349:
350: When OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
351: x_return_status := OKC_API.HANDLE_EXCEPTIONS
352: (
353: l_api_name,
354: G_PKG_NAME,
355: 'OKC_API.G_RET_STS_UNEXP_ERROR',
351: x_return_status := OKC_API.HANDLE_EXCEPTIONS
352: (
353: l_api_name,
354: G_PKG_NAME,
355: 'OKC_API.G_RET_STS_UNEXP_ERROR',
356: x_msg_count,
357: x_msg_data,
358: '_PVT'
359: );
358: '_PVT'
359: );
360:
361: When OTHERS THEN
362: x_return_status := OKC_API.HANDLE_EXCEPTIONS
363: (
364: l_api_name,
365: G_PKG_NAME,
366: 'OTHERS',
373:
374:
375: PROCEDURE update_bill_Tran_Line_Pub(
376: p_api_version IN NUMBER,
377: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
378: x_return_status OUT NOCOPY VARCHAR2,
379: x_msg_count OUT NOCOPY NUMBER,
380: x_msg_data OUT NOCOPY VARCHAR2,
381: p_btlv_rec IN btlv_rec_type,
383: Is
384:
385: l_api_name CONSTANT VARCHAR2(30) := 'update_bill_Tran_Line_Pub';
386: l_api_version CONSTANT NUMBER := 1.0;
387: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
388: l_btlv_rec btlv_rec_type;
389:
390: Begin
391:
388: l_btlv_rec btlv_rec_type;
389:
390: Begin
391:
392: l_return_status := OKC_API.START_ACTIVITY
393: (
394: l_api_name
395: ,p_init_msg_list
396: ,'_PUB'
396: ,'_PUB'
397: ,x_return_status
398: );
399:
400: If l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
401: Raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
402: ElsIf l_return_status = OKC_API.G_RET_STS_ERROR Then
403: Raise OKC_API.G_EXCEPTION_ERROR;
404: End If;
397: ,x_return_status
398: );
399:
400: If l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
401: Raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
402: ElsIf l_return_status = OKC_API.G_RET_STS_ERROR Then
403: Raise OKC_API.G_EXCEPTION_ERROR;
404: End If;
405:
398: );
399:
400: If l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
401: Raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
402: ElsIf l_return_status = OKC_API.G_RET_STS_ERROR Then
403: Raise OKC_API.G_EXCEPTION_ERROR;
404: End If;
405:
406: g_btlv_rec := p_btlv_rec;
399:
400: If l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
401: Raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
402: ElsIf l_return_status = OKC_API.G_RET_STS_ERROR Then
403: Raise OKC_API.G_EXCEPTION_ERROR;
404: End If;
405:
406: g_btlv_rec := p_btlv_rec;
407:
412: p_procedure_name => l_api_name,
413: p_before_after => 'B'
414: );
415:
416: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) Then
417: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
418: ElsIf (x_return_status = OKC_API.G_RET_STS_ERROR) Then
419: raise OKC_API.G_EXCEPTION_ERROR;
420: End If;
413: p_before_after => 'B'
414: );
415:
416: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) Then
417: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
418: ElsIf (x_return_status = OKC_API.G_RET_STS_ERROR) Then
419: raise OKC_API.G_EXCEPTION_ERROR;
420: End If;
421:
414: );
415:
416: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) Then
417: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
418: ElsIf (x_return_status = OKC_API.G_RET_STS_ERROR) Then
419: raise OKC_API.G_EXCEPTION_ERROR;
420: End If;
421:
422: --Restore ID/OBJECT VERSION NUMBER
415:
416: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) Then
417: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
418: ElsIf (x_return_status = OKC_API.G_RET_STS_ERROR) Then
419: raise OKC_API.G_EXCEPTION_ERROR;
420: End If;
421:
422: --Restore ID/OBJECT VERSION NUMBER
423:
435: l_btlv_rec ,
436: x_btlv_rec
437: );
438:
439: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
440: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
441: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
442: raise OKC_API.G_EXCEPTION_ERROR;
443: End If;
436: x_btlv_rec
437: );
438:
439: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
440: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
441: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
442: raise OKC_API.G_EXCEPTION_ERROR;
443: End If;
444:
437: );
438:
439: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
440: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
441: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
442: raise OKC_API.G_EXCEPTION_ERROR;
443: End If;
444:
445: g_btlv_rec := x_btlv_rec;
438:
439: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
440: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
441: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
442: raise OKC_API.G_EXCEPTION_ERROR;
443: End If;
444:
445: g_btlv_rec := x_btlv_rec;
446:
451: p_procedure_name => l_api_name,
452: p_before_after => 'A'
453: );
454:
455: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
456: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
457: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
458: raise OKC_API.G_EXCEPTION_ERROR;
459: End If;
452: p_before_after => 'A'
453: );
454:
455: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
456: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
457: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
458: raise OKC_API.G_EXCEPTION_ERROR;
459: End If;
460:
453: );
454:
455: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
456: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
457: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
458: raise OKC_API.G_EXCEPTION_ERROR;
459: End If;
460:
461: OKC_API.END_ACTIVITY
454:
455: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
456: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
457: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
458: raise OKC_API.G_EXCEPTION_ERROR;
459: End If;
460:
461: OKC_API.END_ACTIVITY
462: (
457: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
458: raise OKC_API.G_EXCEPTION_ERROR;
459: End If;
460:
461: OKC_API.END_ACTIVITY
462: (
463: x_msg_count => x_msg_count,
464: x_msg_data => x_msg_data
465: );
464: x_msg_data => x_msg_data
465: );
466:
467: Exception
468: When OKC_API.G_EXCEPTION_ERROR THEN
469: x_return_status := OKC_API.HANDLE_EXCEPTIONS
470: (
471: l_api_name,
472: G_PKG_NAME,
465: );
466:
467: Exception
468: When OKC_API.G_EXCEPTION_ERROR THEN
469: x_return_status := OKC_API.HANDLE_EXCEPTIONS
470: (
471: l_api_name,
472: G_PKG_NAME,
473: 'OKC_API.G_RET_STS_ERROR',
469: x_return_status := OKC_API.HANDLE_EXCEPTIONS
470: (
471: l_api_name,
472: G_PKG_NAME,
473: 'OKC_API.G_RET_STS_ERROR',
474: x_msg_count,
475: x_msg_data,
476: '_PVT'
477: );
475: x_msg_data,
476: '_PVT'
477: );
478:
479: When OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
480: x_return_status := OKC_API.HANDLE_EXCEPTIONS
481: (
482: l_api_name,
483: G_PKG_NAME,
476: '_PVT'
477: );
478:
479: When OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
480: x_return_status := OKC_API.HANDLE_EXCEPTIONS
481: (
482: l_api_name,
483: G_PKG_NAME,
484: 'OKC_API.G_RET_STS_UNEXP_ERROR',
480: x_return_status := OKC_API.HANDLE_EXCEPTIONS
481: (
482: l_api_name,
483: G_PKG_NAME,
484: 'OKC_API.G_RET_STS_UNEXP_ERROR',
485: x_msg_count,
486: x_msg_data,
487: '_PVT'
488: );
487: '_PVT'
488: );
489:
490: When OTHERS THEN
491: x_return_status := OKC_API.HANDLE_EXCEPTIONS
492: (
493: l_api_name,
494: G_PKG_NAME,
495: 'OTHERS',
502:
503:
504: PROCEDURE update_bill_Tran_Line_Pub(
505: p_api_version IN NUMBER,
506: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
507: x_return_status OUT NOCOPY VARCHAR2,
508: x_msg_count OUT NOCOPY NUMBER,
509: x_msg_data OUT NOCOPY VARCHAR2,
510: p_btlv_tbl IN btlv_tbl_type,
510: p_btlv_tbl IN btlv_tbl_type,
511: x_btlv_tbl OUT NOCOPY btlv_tbl_type)
512: Is
513: l_api_name CONSTANT VARCHAR2(30) := 'update_bill_Tran_Line_Pub';
514: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
515: l_ptr BINARY_INTEGER;
516:
517: Begin
518:
515: l_ptr BINARY_INTEGER;
516:
517: Begin
518:
519: x_return_status := OKC_API.G_RET_STS_SUCCESS;
520:
521: If p_btlv_tbl.COUNT > 0 Then
522:
523: l_ptr := p_btlv_tbl.FIRST;
533: ,p_btlv_tbl(l_ptr)
534: ,x_btlv_tbl(l_ptr)
535: );
536:
537: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
538: If l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
539: x_return_status := l_return_status;
540: Raise G_EXCEPTION_HALT_VALIDATION;
541: Else
534: ,x_btlv_tbl(l_ptr)
535: );
536:
537: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
538: If l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
539: x_return_status := l_return_status;
540: Raise G_EXCEPTION_HALT_VALIDATION;
541: Else
542: x_return_status := l_return_status;
550:
551: End If;
552:
553: Exception
554: When OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
555: x_return_status := OKC_API.HANDLE_EXCEPTIONS
556: (
557: l_api_name,
558: G_PKG_NAME,
551: End If;
552:
553: Exception
554: When OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
555: x_return_status := OKC_API.HANDLE_EXCEPTIONS
556: (
557: l_api_name,
558: G_PKG_NAME,
559: 'OKC_API.G_RET_STS_UNEXP_ERROR',
555: x_return_status := OKC_API.HANDLE_EXCEPTIONS
556: (
557: l_api_name,
558: G_PKG_NAME,
559: 'OKC_API.G_RET_STS_UNEXP_ERROR',
560: x_msg_count,
561: x_msg_data,
562: '_PVT'
563: );
562: '_PVT'
563: );
564:
565: When OTHERS THEN
566: x_return_status := OKC_API.HANDLE_EXCEPTIONS
567: (
568: l_api_name,
569: G_PKG_NAME,
570: 'OTHERS',
577:
578:
579: PROCEDURE delete_bill_Tran_Line_Pub(
580: p_api_version IN NUMBER,
581: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
582: x_return_status OUT NOCOPY VARCHAR2,
583: x_msg_count OUT NOCOPY NUMBER,
584: x_msg_data OUT NOCOPY VARCHAR2,
585: p_btlv_rec IN btlv_rec_type)
586: Is
587:
588: l_api_name CONSTANT VARCHAR2(30) := 'update_bill_Tran_Line_Pub';
589: l_api_version CONSTANT NUMBER := 1.0;
590: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
591: l_btlv_rec btlv_rec_type;
592:
593: Begin
594:
591: l_btlv_rec btlv_rec_type;
592:
593: Begin
594:
595: l_return_status := OKC_API.START_ACTIVITY
596: (
597: l_api_name
598: ,p_init_msg_list
599: ,'_PUB'
599: ,'_PUB'
600: ,x_return_status
601: );
602:
603: If l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
604: Raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
605: ElsIf l_return_status = OKC_API.G_RET_STS_ERROR Then
606: Raise OKC_API.G_EXCEPTION_ERROR;
607: End If;
600: ,x_return_status
601: );
602:
603: If l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
604: Raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
605: ElsIf l_return_status = OKC_API.G_RET_STS_ERROR Then
606: Raise OKC_API.G_EXCEPTION_ERROR;
607: End If;
608:
601: );
602:
603: If l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
604: Raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
605: ElsIf l_return_status = OKC_API.G_RET_STS_ERROR Then
606: Raise OKC_API.G_EXCEPTION_ERROR;
607: End If;
608:
609: g_btlv_rec := p_btlv_rec;
602:
603: If l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
604: Raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
605: ElsIf l_return_status = OKC_API.G_RET_STS_ERROR Then
606: Raise OKC_API.G_EXCEPTION_ERROR;
607: End If;
608:
609: g_btlv_rec := p_btlv_rec;
610:
615: p_procedure_name => l_api_name,
616: p_before_after => 'B'
617: );
618:
619: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) Then
620: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
621: ElsIf (x_return_status = OKC_API.G_RET_STS_ERROR) Then
622: raise OKC_API.G_EXCEPTION_ERROR;
623: End If;
616: p_before_after => 'B'
617: );
618:
619: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) Then
620: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
621: ElsIf (x_return_status = OKC_API.G_RET_STS_ERROR) Then
622: raise OKC_API.G_EXCEPTION_ERROR;
623: End If;
624:
617: );
618:
619: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) Then
620: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
621: ElsIf (x_return_status = OKC_API.G_RET_STS_ERROR) Then
622: raise OKC_API.G_EXCEPTION_ERROR;
623: End If;
624:
625: --Restore ID/OBJECT VERSION NUMBER
618:
619: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) Then
620: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
621: ElsIf (x_return_status = OKC_API.G_RET_STS_ERROR) Then
622: raise OKC_API.G_EXCEPTION_ERROR;
623: End If;
624:
625: --Restore ID/OBJECT VERSION NUMBER
626:
637: x_msg_data ,
638: l_btlv_rec
639: );
640:
641: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
642: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
643: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
644: raise OKC_API.G_EXCEPTION_ERROR;
645: End If;
638: l_btlv_rec
639: );
640:
641: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
642: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
643: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
644: raise OKC_API.G_EXCEPTION_ERROR;
645: End If;
646:
639: );
640:
641: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
642: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
643: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
644: raise OKC_API.G_EXCEPTION_ERROR;
645: End If;
646:
647: OKC_UTIL.call_user_hook
640:
641: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
642: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
643: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
644: raise OKC_API.G_EXCEPTION_ERROR;
645: End If;
646:
647: OKC_UTIL.call_user_hook
648: (
651: p_procedure_name => l_api_name,
652: p_before_after => 'A'
653: );
654:
655: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
656: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
657: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
658: raise OKC_API.G_EXCEPTION_ERROR;
659: End If;
652: p_before_after => 'A'
653: );
654:
655: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
656: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
657: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
658: raise OKC_API.G_EXCEPTION_ERROR;
659: End If;
660:
653: );
654:
655: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
656: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
657: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
658: raise OKC_API.G_EXCEPTION_ERROR;
659: End If;
660:
661: OKC_API.END_ACTIVITY
654:
655: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
656: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
657: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
658: raise OKC_API.G_EXCEPTION_ERROR;
659: End If;
660:
661: OKC_API.END_ACTIVITY
662: (
657: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
658: raise OKC_API.G_EXCEPTION_ERROR;
659: End If;
660:
661: OKC_API.END_ACTIVITY
662: (
663: x_msg_count => x_msg_count,
664: x_msg_data => x_msg_data
665: );
664: x_msg_data => x_msg_data
665: );
666:
667: Exception
668: When OKC_API.G_EXCEPTION_ERROR THEN
669: x_return_status := OKC_API.HANDLE_EXCEPTIONS
670: (
671: l_api_name,
672: G_PKG_NAME,
665: );
666:
667: Exception
668: When OKC_API.G_EXCEPTION_ERROR THEN
669: x_return_status := OKC_API.HANDLE_EXCEPTIONS
670: (
671: l_api_name,
672: G_PKG_NAME,
673: 'OKC_API.G_RET_STS_ERROR',
669: x_return_status := OKC_API.HANDLE_EXCEPTIONS
670: (
671: l_api_name,
672: G_PKG_NAME,
673: 'OKC_API.G_RET_STS_ERROR',
674: x_msg_count,
675: x_msg_data,
676: '_PVT'
677: );
675: x_msg_data,
676: '_PVT'
677: );
678:
679: When OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
680: x_return_status := OKC_API.HANDLE_EXCEPTIONS
681: (
682: l_api_name,
683: G_PKG_NAME,
676: '_PVT'
677: );
678:
679: When OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
680: x_return_status := OKC_API.HANDLE_EXCEPTIONS
681: (
682: l_api_name,
683: G_PKG_NAME,
684: 'OKC_API.G_RET_STS_UNEXP_ERROR',
680: x_return_status := OKC_API.HANDLE_EXCEPTIONS
681: (
682: l_api_name,
683: G_PKG_NAME,
684: 'OKC_API.G_RET_STS_UNEXP_ERROR',
685: x_msg_count,
686: x_msg_data,
687: '_PVT'
688: );
687: '_PVT'
688: );
689:
690: When OTHERS THEN
691: x_return_status := OKC_API.HANDLE_EXCEPTIONS
692: (
693: l_api_name,
694: G_PKG_NAME,
695: 'OTHERS',
702:
703:
704: PROCEDURE delete_bill_Tran_Line_Pub(
705: p_api_version IN NUMBER,
706: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
707: x_return_status OUT NOCOPY VARCHAR2,
708: x_msg_count OUT NOCOPY NUMBER,
709: x_msg_data OUT NOCOPY VARCHAR2,
710: p_btlv_tbl IN btlv_tbl_type)
709: x_msg_data OUT NOCOPY VARCHAR2,
710: p_btlv_tbl IN btlv_tbl_type)
711: Is
712: l_api_name CONSTANT VARCHAR2(30) := 'delete_bill_Tran_Line_Pub';
713: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
714: l_ptr BINARY_INTEGER;
715:
716: Begin
717:
714: l_ptr BINARY_INTEGER;
715:
716: Begin
717:
718: x_return_status := OKC_API.G_RET_STS_SUCCESS;
719:
720: If p_btlv_tbl.COUNT > 0 Then
721:
722: l_ptr := p_btlv_tbl.FIRST;
730: ,x_msg_data
731: ,p_btlv_tbl(l_ptr)
732: );
733:
734: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
735: If l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
736: x_return_status := l_return_status;
737: Raise G_EXCEPTION_HALT_VALIDATION;
738: Else
731: ,p_btlv_tbl(l_ptr)
732: );
733:
734: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
735: If l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
736: x_return_status := l_return_status;
737: Raise G_EXCEPTION_HALT_VALIDATION;
738: Else
739: x_return_status := l_return_status;
747:
748: End If;
749:
750: Exception
751: When OKC_API.G_EXCEPTION_ERROR THEN
752: x_return_status := OKC_API.HANDLE_EXCEPTIONS
753: (
754: l_api_name,
755: G_PKG_NAME,
748: End If;
749:
750: Exception
751: When OKC_API.G_EXCEPTION_ERROR THEN
752: x_return_status := OKC_API.HANDLE_EXCEPTIONS
753: (
754: l_api_name,
755: G_PKG_NAME,
756: 'OKC_API.G_RET_STS_ERROR',
752: x_return_status := OKC_API.HANDLE_EXCEPTIONS
753: (
754: l_api_name,
755: G_PKG_NAME,
756: 'OKC_API.G_RET_STS_ERROR',
757: x_msg_count,
758: x_msg_data,
759: '_PVT'
760: );
758: x_msg_data,
759: '_PVT'
760: );
761:
762: When OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
763: x_return_status := OKC_API.HANDLE_EXCEPTIONS
764: (
765: l_api_name,
766: G_PKG_NAME,
759: '_PVT'
760: );
761:
762: When OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
763: x_return_status := OKC_API.HANDLE_EXCEPTIONS
764: (
765: l_api_name,
766: G_PKG_NAME,
767: 'OKC_API.G_RET_STS_UNEXP_ERROR',
763: x_return_status := OKC_API.HANDLE_EXCEPTIONS
764: (
765: l_api_name,
766: G_PKG_NAME,
767: 'OKC_API.G_RET_STS_UNEXP_ERROR',
768: x_msg_count,
769: x_msg_data,
770: '_PVT'
771: );
770: '_PVT'
771: );
772:
773: When OTHERS THEN
774: x_return_status := OKC_API.HANDLE_EXCEPTIONS
775: (
776: l_api_name,
777: G_PKG_NAME,
778: 'OTHERS',
785:
786:
787: PROCEDURE validate_bill_Tran_Line_Pub(
788: p_api_version IN NUMBER,
789: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
790: x_return_status OUT NOCOPY VARCHAR2,
791: x_msg_count OUT NOCOPY NUMBER,
792: x_msg_data OUT NOCOPY VARCHAR2,
793: p_btlv_rec IN btlv_rec_type)
794: Is
795:
796: l_api_name CONSTANT VARCHAR2(30) := 'validate_bill_Tran_Line_Pub';
797: l_api_version CONSTANT NUMBER := 1.0;
798: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
799: l_btlv_rec btlv_rec_type;
800:
801: Begin
802:
799: l_btlv_rec btlv_rec_type;
800:
801: Begin
802:
803: l_return_status := OKC_API.START_ACTIVITY
804: (
805: l_api_name
806: ,p_init_msg_list
807: ,'_PUB'
807: ,'_PUB'
808: ,x_return_status
809: );
810:
811: If l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
812: Raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
813: ElsIf l_return_status = OKC_API.G_RET_STS_ERROR Then
814: Raise OKC_API.G_EXCEPTION_ERROR;
815: End If;
808: ,x_return_status
809: );
810:
811: If l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
812: Raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
813: ElsIf l_return_status = OKC_API.G_RET_STS_ERROR Then
814: Raise OKC_API.G_EXCEPTION_ERROR;
815: End If;
816:
809: );
810:
811: If l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
812: Raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
813: ElsIf l_return_status = OKC_API.G_RET_STS_ERROR Then
814: Raise OKC_API.G_EXCEPTION_ERROR;
815: End If;
816:
817: g_btlv_rec := p_btlv_rec;
810:
811: If l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
812: Raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
813: ElsIf l_return_status = OKC_API.G_RET_STS_ERROR Then
814: Raise OKC_API.G_EXCEPTION_ERROR;
815: End If;
816:
817: g_btlv_rec := p_btlv_rec;
818:
823: p_procedure_name => l_api_name,
824: p_before_after => 'B'
825: );
826:
827: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) Then
828: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
829: ElsIf (x_return_status = OKC_API.G_RET_STS_ERROR) Then
830: raise OKC_API.G_EXCEPTION_ERROR;
831: End If;
824: p_before_after => 'B'
825: );
826:
827: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) Then
828: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
829: ElsIf (x_return_status = OKC_API.G_RET_STS_ERROR) Then
830: raise OKC_API.G_EXCEPTION_ERROR;
831: End If;
832:
825: );
826:
827: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) Then
828: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
829: ElsIf (x_return_status = OKC_API.G_RET_STS_ERROR) Then
830: raise OKC_API.G_EXCEPTION_ERROR;
831: End If;
832:
833: --Restore ID/OBJECT VERSION NUMBER
826:
827: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) Then
828: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
829: ElsIf (x_return_status = OKC_API.G_RET_STS_ERROR) Then
830: raise OKC_API.G_EXCEPTION_ERROR;
831: End If;
832:
833: --Restore ID/OBJECT VERSION NUMBER
834:
845: x_msg_data ,
846: l_btlv_rec
847: );
848:
849: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
850: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
851: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
852: raise OKC_API.G_EXCEPTION_ERROR;
853: End If;
846: l_btlv_rec
847: );
848:
849: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
850: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
851: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
852: raise OKC_API.G_EXCEPTION_ERROR;
853: End If;
854:
847: );
848:
849: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
850: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
851: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
852: raise OKC_API.G_EXCEPTION_ERROR;
853: End If;
854:
855: OKC_UTIL.call_user_hook
848:
849: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
850: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
851: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
852: raise OKC_API.G_EXCEPTION_ERROR;
853: End If;
854:
855: OKC_UTIL.call_user_hook
856: (
859: p_procedure_name => l_api_name,
860: p_before_after => 'A'
861: );
862:
863: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
864: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
865: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
866: raise OKC_API.G_EXCEPTION_ERROR;
867: End If;
860: p_before_after => 'A'
861: );
862:
863: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
864: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
865: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
866: raise OKC_API.G_EXCEPTION_ERROR;
867: End If;
868:
861: );
862:
863: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
864: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
865: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
866: raise OKC_API.G_EXCEPTION_ERROR;
867: End If;
868:
869: OKC_API.END_ACTIVITY
862:
863: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
864: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
865: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
866: raise OKC_API.G_EXCEPTION_ERROR;
867: End If;
868:
869: OKC_API.END_ACTIVITY
870: (
865: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
866: raise OKC_API.G_EXCEPTION_ERROR;
867: End If;
868:
869: OKC_API.END_ACTIVITY
870: (
871: x_msg_count => x_msg_count,
872: x_msg_data => x_msg_data
873: );
873: );
874:
875:
876: Exception
877: When OKC_API.G_EXCEPTION_ERROR THEN
878: x_return_status := OKC_API.HANDLE_EXCEPTIONS
879: (
880: l_api_name,
881: G_PKG_NAME,
874:
875:
876: Exception
877: When OKC_API.G_EXCEPTION_ERROR THEN
878: x_return_status := OKC_API.HANDLE_EXCEPTIONS
879: (
880: l_api_name,
881: G_PKG_NAME,
882: 'OKC_API.G_RET_STS_ERROR',
878: x_return_status := OKC_API.HANDLE_EXCEPTIONS
879: (
880: l_api_name,
881: G_PKG_NAME,
882: 'OKC_API.G_RET_STS_ERROR',
883: x_msg_count,
884: x_msg_data,
885: '_PVT'
886: );
884: x_msg_data,
885: '_PVT'
886: );
887:
888: When OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
889: x_return_status := OKC_API.HANDLE_EXCEPTIONS
890: (
891: l_api_name,
892: G_PKG_NAME,
885: '_PVT'
886: );
887:
888: When OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
889: x_return_status := OKC_API.HANDLE_EXCEPTIONS
890: (
891: l_api_name,
892: G_PKG_NAME,
893: 'OKC_API.G_RET_STS_UNEXP_ERROR',
889: x_return_status := OKC_API.HANDLE_EXCEPTIONS
890: (
891: l_api_name,
892: G_PKG_NAME,
893: 'OKC_API.G_RET_STS_UNEXP_ERROR',
894: x_msg_count,
895: x_msg_data,
896: '_PVT'
897: );
896: '_PVT'
897: );
898:
899: When OTHERS THEN
900: x_return_status := OKC_API.HANDLE_EXCEPTIONS
901: (
902: l_api_name,
903: G_PKG_NAME,
904: 'OTHERS',
911:
912:
913: PROCEDURE validate_bill_Tran_Line_Pub(
914: p_api_version IN NUMBER,
915: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
916: x_return_status OUT NOCOPY VARCHAR2,
917: x_msg_count OUT NOCOPY NUMBER,
918: x_msg_data OUT NOCOPY VARCHAR2,
919: p_btlv_tbl IN btlv_tbl_type)
919: p_btlv_tbl IN btlv_tbl_type)
920:
921: Is
922: l_api_name CONSTANT VARCHAR2(30) := 'validate_bill_Tran_Line_Pub';
923: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
924: l_ptr BINARY_INTEGER;
925:
926: Begin
927:
924: l_ptr BINARY_INTEGER;
925:
926: Begin
927:
928: x_return_status := OKC_API.G_RET_STS_SUCCESS;
929:
930: If p_btlv_tbl.COUNT > 0 Then
931:
932: l_ptr := p_btlv_tbl.FIRST;
940: ,x_msg_data
941: ,p_btlv_tbl(l_ptr)
942: );
943:
944: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
945: If l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
946: x_return_status := l_return_status;
947: Raise G_EXCEPTION_HALT_VALIDATION;
948: Else
941: ,p_btlv_tbl(l_ptr)
942: );
943:
944: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
945: If l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
946: x_return_status := l_return_status;
947: Raise G_EXCEPTION_HALT_VALIDATION;
948: Else
949: x_return_status := l_return_status;
957:
958: End If;
959:
960: Exception
961: When OKC_API.G_EXCEPTION_ERROR THEN
962: x_return_status := OKC_API.HANDLE_EXCEPTIONS
963: (
964: l_api_name,
965: G_PKG_NAME,
958: End If;
959:
960: Exception
961: When OKC_API.G_EXCEPTION_ERROR THEN
962: x_return_status := OKC_API.HANDLE_EXCEPTIONS
963: (
964: l_api_name,
965: G_PKG_NAME,
966: 'OKC_API.G_RET_STS_ERROR',
962: x_return_status := OKC_API.HANDLE_EXCEPTIONS
963: (
964: l_api_name,
965: G_PKG_NAME,
966: 'OKC_API.G_RET_STS_ERROR',
967: x_msg_count,
968: x_msg_data,
969: '_PVT'
970: );
968: x_msg_data,
969: '_PVT'
970: );
971:
972: When OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
973: x_return_status := OKC_API.HANDLE_EXCEPTIONS
974: (
975: l_api_name,
976: G_PKG_NAME,
969: '_PVT'
970: );
971:
972: When OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
973: x_return_status := OKC_API.HANDLE_EXCEPTIONS
974: (
975: l_api_name,
976: G_PKG_NAME,
977: 'OKC_API.G_RET_STS_UNEXP_ERROR',
973: x_return_status := OKC_API.HANDLE_EXCEPTIONS
974: (
975: l_api_name,
976: G_PKG_NAME,
977: 'OKC_API.G_RET_STS_UNEXP_ERROR',
978: x_msg_count,
979: x_msg_data,
980: '_PVT'
981: );
980: '_PVT'
981: );
982:
983: When OTHERS THEN
984: x_return_status := OKC_API.HANDLE_EXCEPTIONS
985: (
986: l_api_name,
987: G_PKG_NAME,
988: 'OTHERS',