47: x_msg_data OUT NOCOPY VARCHAR2,
48: p_patv_tbl IN patv_tbl_type,
49: x_patv_tbl OUT NOCOPY patv_tbl_type) is
50: i NUMBER := 0;
51: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
52:
53: BEGIN
54: x_return_status := OKC_API.G_RET_STS_SUCCESS;
55: IF p_patv_tbl.COUNT > 0 THEN
50: i NUMBER := 0;
51: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
52:
53: BEGIN
54: x_return_status := OKC_API.G_RET_STS_SUCCESS;
55: IF p_patv_tbl.COUNT > 0 THEN
56: i := p_patv_tbl.FIRST;
57: LOOP
58: create_price_adjustment(
62: x_msg_count,
63: x_msg_data,
64: p_patv_tbl(i),
65: x_patv_tbl(i));
66: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
67: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
68: x_return_status := l_return_status;
69: raise G_EXCEPTION_HALT_VALIDATION;
70: ELSE
63: x_msg_data,
64: p_patv_tbl(i),
65: x_patv_tbl(i));
66: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
67: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
68: x_return_status := l_return_status;
69: raise G_EXCEPTION_HALT_VALIDATION;
70: ELSE
71: x_return_status := l_return_status;
78: EXCEPTION
79: WHEN G_EXCEPTION_HALT_VALIDATION THEN
80: NULL;
81: WHEN OTHERS THEN
82: OKC_API.set_message(p_app_name => g_app_name,
83: p_msg_name => g_unexpected_error,
84: p_token1 => g_sqlcode_token,
85: p_token1_value => sqlcode,
86: p_token2 => g_sqlerrm_token,
84: p_token1 => g_sqlcode_token,
85: p_token1_value => sqlcode,
86: p_token2 => g_sqlerrm_token,
87: p_token2_value => sqlerrm);
88: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
89: END create_price_adjustment;
90:
91: -- Start of comments
92: --
133: x_msg_data OUT NOCOPY VARCHAR2,
134: p_patv_tbl IN patv_tbl_type,
135: x_patv_tbl OUT NOCOPY patv_tbl_type) is
136: i NUMBER := 0;
137: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
138:
139: BEGIN
140: x_return_status := OKC_API.G_RET_STS_SUCCESS;
141: IF p_patv_tbl.COUNT > 0 THEN
136: i NUMBER := 0;
137: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
138:
139: BEGIN
140: x_return_status := OKC_API.G_RET_STS_SUCCESS;
141: IF p_patv_tbl.COUNT > 0 THEN
142: i := p_patv_tbl.FIRST;
143: LOOP
144: update_price_adjustment(
148: x_msg_count,
149: x_msg_data,
150: p_patv_tbl(i),
151: x_patv_tbl(i));
152: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
153: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
154: x_return_status := l_return_status;
155: raise G_EXCEPTION_HALT_VALIDATION;
156: ELSE
149: x_msg_data,
150: p_patv_tbl(i),
151: x_patv_tbl(i));
152: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
153: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
154: x_return_status := l_return_status;
155: raise G_EXCEPTION_HALT_VALIDATION;
156: ELSE
157: x_return_status := l_return_status;
164: EXCEPTION
165: WHEN G_EXCEPTION_HALT_VALIDATION THEN
166: NULL;
167: WHEN OTHERS THEN
168: OKC_API.set_message(p_app_name => g_app_name,
169: p_msg_name => g_unexpected_error,
170: p_token1 => g_sqlcode_token,
171: p_token1_value => sqlcode,
172: p_token2 => g_sqlerrm_token,
170: p_token1 => g_sqlcode_token,
171: p_token1_value => sqlcode,
172: p_token2 => g_sqlerrm_token,
173: p_token2_value => sqlerrm);
174: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
175: END update_price_adjustment;
176:
177:
178: -- Start of comments
218: x_msg_count OUT NOCOPY NUMBER,
219: x_msg_data OUT NOCOPY VARCHAR2,
220: p_patv_tbl IN patv_tbl_type) is
221: i NUMBER := 0;
222: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
223:
224: BEGIN
225: x_return_status := OKC_API.G_RET_STS_SUCCESS;
226: IF p_patv_tbl.COUNT > 0 THEN
221: i NUMBER := 0;
222: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
223:
224: BEGIN
225: x_return_status := OKC_API.G_RET_STS_SUCCESS;
226: IF p_patv_tbl.COUNT > 0 THEN
227: i := p_patv_tbl.FIRST;
228: LOOP
229: delete_price_adjustment(
232: l_return_status,
233: x_msg_count,
234: x_msg_data,
235: p_patv_tbl(i));
236: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
237: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
238: x_return_status := l_return_status;
239: raise G_EXCEPTION_HALT_VALIDATION;
240: ELSE
233: x_msg_count,
234: x_msg_data,
235: p_patv_tbl(i));
236: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
237: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
238: x_return_status := l_return_status;
239: raise G_EXCEPTION_HALT_VALIDATION;
240: ELSE
241: x_return_status := l_return_status;
248: EXCEPTION
249: WHEN G_EXCEPTION_HALT_VALIDATION THEN
250: NULL;
251: WHEN OTHERS THEN
252: OKC_API.set_message(p_app_name => g_app_name,
253: p_msg_name => g_unexpected_error,
254: p_token1 => g_sqlcode_token,
255: p_token1_value => sqlcode,
256: p_token2 => g_sqlerrm_token,
254: p_token1 => g_sqlcode_token,
255: p_token1_value => sqlcode,
256: p_token2 => g_sqlerrm_token,
257: p_token2_value => sqlerrm);
258: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
259: END delete_price_adjustment;
260:
261:
262: -- Start of comments
302: x_msg_count OUT NOCOPY NUMBER,
303: x_msg_data OUT NOCOPY VARCHAR2,
304: p_patv_tbl IN patv_tbl_type) is
305: i NUMBER := 0;
306: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
307:
308: BEGIN
309: x_return_status := OKC_API.G_RET_STS_SUCCESS;
310: IF p_patv_tbl.COUNT > 0 THEN
305: i NUMBER := 0;
306: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
307:
308: BEGIN
309: x_return_status := OKC_API.G_RET_STS_SUCCESS;
310: IF p_patv_tbl.COUNT > 0 THEN
311: i := p_patv_tbl.FIRST;
312: LOOP
313: validate_price_adjustment(
316: l_return_status,
317: x_msg_count,
318: x_msg_data,
319: p_patv_tbl(i));
320: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
321: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
322: x_return_status := l_return_status;
323: raise G_EXCEPTION_HALT_VALIDATION;
324: ELSE
317: x_msg_count,
318: x_msg_data,
319: p_patv_tbl(i));
320: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
321: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
322: x_return_status := l_return_status;
323: raise G_EXCEPTION_HALT_VALIDATION;
324: ELSE
325: x_return_status := l_return_status;
332: EXCEPTION
333: WHEN G_EXCEPTION_HALT_VALIDATION THEN
334: NULL;
335: WHEN OTHERS THEN
336: OKC_API.set_message(p_app_name => g_app_name,
337: p_msg_name => g_unexpected_error,
338: p_token1 => g_sqlcode_token,
339: p_token1_value => sqlcode,
340: p_token2 => g_sqlerrm_token,
338: p_token1 => g_sqlcode_token,
339: p_token1_value => sqlcode,
340: p_token2 => g_sqlerrm_token,
341: p_token2_value => sqlerrm);
342: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
343: END validate_price_adjustment;
344:
345:
346: -- Start of comments
386: x_msg_count OUT NOCOPY NUMBER,
387: x_msg_data OUT NOCOPY VARCHAR2,
388: p_patv_tbl IN patv_tbl_type) is
389: i NUMBER := 0;
390: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
391:
392: BEGIN
393: x_return_status := OKC_API.G_RET_STS_SUCCESS;
394: IF p_patv_tbl.COUNT > 0 THEN
389: i NUMBER := 0;
390: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
391:
392: BEGIN
393: x_return_status := OKC_API.G_RET_STS_SUCCESS;
394: IF p_patv_tbl.COUNT > 0 THEN
395: i := p_patv_tbl.FIRST;
396: LOOP
397: lock_price_adjustment(
400: l_return_status,
401: x_msg_count,
402: x_msg_data,
403: p_patv_tbl(i));
404: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
405: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
406: x_return_status := l_return_status;
407: raise G_EXCEPTION_HALT_VALIDATION;
408: ELSE
401: x_msg_count,
402: x_msg_data,
403: p_patv_tbl(i));
404: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
405: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
406: x_return_status := l_return_status;
407: raise G_EXCEPTION_HALT_VALIDATION;
408: ELSE
409: x_return_status := l_return_status;
416: EXCEPTION
417: WHEN G_EXCEPTION_HALT_VALIDATION THEN
418: NULL;
419: WHEN OTHERS THEN
420: OKC_API.set_message(p_app_name => g_app_name,
421: p_msg_name => g_unexpected_error,
422: p_token1 => g_sqlcode_token,
423: p_token1_value => sqlcode,
424: p_token2 => g_sqlerrm_token,
422: p_token1 => g_sqlcode_token,
423: p_token1_value => sqlcode,
424: p_token2 => g_sqlerrm_token,
425: p_token2_value => sqlerrm);
426: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
427: END lock_price_adjustment;
428:
429:
430: -- Start of comments