1: PACKAGE BODY OKC_PH_LINE_BREAKS_PUB AS
2: /* $Header: OKCPPHLB.pls 120.0 2005/05/25 23:05:30 appldev noship $ */
3: l_debug VARCHAR2(1) := NVL(FND_PROFILE.VALUE('AFLOG_ENABLED'),'N');
4:
5: G_APP_NAME CONSTANT VARCHAR2(3) := OKC_API.G_APP_NAME;
6: G_PKG_NAME CONSTANT VARCHAR2(200) := 'OKC_PH_LINE_BREAKS_PUB';
7: G_okc_ph_line_breaks_v_rec okc_ph_line_breaks_v_rec_type;
8:
9:
28:
29:
30: l_api_name CONSTANT VARCHAR2(30) := 'create_Price_Hold_Line_Breaks';
31: l_api_version CONSTANT NUMBER := 1;
32: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
33: begin
34:
35: OKC_PH_LINE_BREAKS_PVT.create_Price_Hold_Line_Breaks(p_api_version,
36: p_init_msg_list,
40: p_okc_ph_line_breaks_v_rec,
41: x_okc_ph_line_breaks_v_rec);
42:
43:
44: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
45: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
46: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
47: RAISE OKC_API.G_EXCEPTION_ERROR;
48: END IF;
41: x_okc_ph_line_breaks_v_rec);
42:
43:
44: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
45: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
46: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
47: RAISE OKC_API.G_EXCEPTION_ERROR;
48: END IF;
49:
42:
43:
44: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
45: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
46: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
47: RAISE OKC_API.G_EXCEPTION_ERROR;
48: END IF;
49:
50: EXCEPTION
43:
44: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
45: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
46: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
47: RAISE OKC_API.G_EXCEPTION_ERROR;
48: END IF;
49:
50: EXCEPTION
51: WHEN OKC_API.G_EXCEPTION_ERROR THEN
47: RAISE OKC_API.G_EXCEPTION_ERROR;
48: END IF;
49:
50: EXCEPTION
51: WHEN OKC_API.G_EXCEPTION_ERROR THEN
52: x_return_status := OKC_API.HANDLE_EXCEPTIONS
53: (substr(l_api_name,1,26),
54: G_PKG_NAME,
55: 'OKC_API.G_RET_STS_ERROR',
48: END IF;
49:
50: EXCEPTION
51: WHEN OKC_API.G_EXCEPTION_ERROR THEN
52: x_return_status := OKC_API.HANDLE_EXCEPTIONS
53: (substr(l_api_name,1,26),
54: G_PKG_NAME,
55: 'OKC_API.G_RET_STS_ERROR',
56: x_msg_count,
51: WHEN OKC_API.G_EXCEPTION_ERROR THEN
52: x_return_status := OKC_API.HANDLE_EXCEPTIONS
53: (substr(l_api_name,1,26),
54: G_PKG_NAME,
55: 'OKC_API.G_RET_STS_ERROR',
56: x_msg_count,
57: x_msg_data,
58: '_PUB');
59: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
55: 'OKC_API.G_RET_STS_ERROR',
56: x_msg_count,
57: x_msg_data,
58: '_PUB');
59: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
60: x_return_status := OKC_API.HANDLE_EXCEPTIONS
61: (substr(l_api_name,1,26),
62: G_PKG_NAME,
63: 'OKC_API.G_RET_STS_UNEXP_ERROR',
56: x_msg_count,
57: x_msg_data,
58: '_PUB');
59: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
60: x_return_status := OKC_API.HANDLE_EXCEPTIONS
61: (substr(l_api_name,1,26),
62: G_PKG_NAME,
63: 'OKC_API.G_RET_STS_UNEXP_ERROR',
64: x_msg_count,
59: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
60: x_return_status := OKC_API.HANDLE_EXCEPTIONS
61: (substr(l_api_name,1,26),
62: G_PKG_NAME,
63: 'OKC_API.G_RET_STS_UNEXP_ERROR',
64: x_msg_count,
65: x_msg_data,
66: '_PUB');
67: WHEN OTHERS THEN
64: x_msg_count,
65: x_msg_data,
66: '_PUB');
67: WHEN OTHERS THEN
68: x_return_status := OKC_API.HANDLE_EXCEPTIONS
69: (substr(l_api_name,1,26),
70: G_PKG_NAME,
71: 'OTHERS',
72: x_msg_count,
94:
95:
96:
97: i NUMBER;
98: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
99: begin
100: OKC_API.init_msg_list(p_init_msg_list);
101: x_return_status:= OKC_API.G_RET_STS_SUCCESS;
102: if (p_okc_ph_line_breaks_v_tbl.COUNT>0) then
96:
97: i NUMBER;
98: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
99: begin
100: OKC_API.init_msg_list(p_init_msg_list);
101: x_return_status:= OKC_API.G_RET_STS_SUCCESS;
102: if (p_okc_ph_line_breaks_v_tbl.COUNT>0) then
103: i := p_okc_ph_line_breaks_v_tbl.FIRST;
104: LOOP
97: i NUMBER;
98: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
99: begin
100: OKC_API.init_msg_list(p_init_msg_list);
101: x_return_status:= OKC_API.G_RET_STS_SUCCESS;
102: if (p_okc_ph_line_breaks_v_tbl.COUNT>0) then
103: i := p_okc_ph_line_breaks_v_tbl.FIRST;
104: LOOP
105: create_Price_Hold_Line_Breaks(p_api_version => p_api_version,
102: if (p_okc_ph_line_breaks_v_tbl.COUNT>0) then
103: i := p_okc_ph_line_breaks_v_tbl.FIRST;
104: LOOP
105: create_Price_Hold_Line_Breaks(p_api_version => p_api_version,
106: p_init_msg_list => OKC_API.G_FALSE,
107: x_return_status => l_return_status,
108: x_msg_count => x_msg_count,
109: x_msg_data => x_msg_data,
110: p_okc_ph_line_breaks_v_rec => p_okc_ph_line_breaks_v_tbl(i),
110: p_okc_ph_line_breaks_v_rec => p_okc_ph_line_breaks_v_tbl(i),
111: x_okc_ph_line_breaks_v_rec => x_okc_ph_line_breaks_v_tbl(i));
112:
113:
114: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
115: x_return_status := l_return_status;
116: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
117: elsif (l_return_status = OKC_API.G_RET_STS_ERROR) then
118: x_return_status := l_return_status;
112:
113:
114: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
115: x_return_status := l_return_status;
116: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
117: elsif (l_return_status = OKC_API.G_RET_STS_ERROR) then
118: x_return_status := l_return_status;
119: end if;
120: EXIT WHEN (i = p_okc_ph_line_breaks_v_tbl.LAST);
113:
114: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
115: x_return_status := l_return_status;
116: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
117: elsif (l_return_status = OKC_API.G_RET_STS_ERROR) then
118: x_return_status := l_return_status;
119: end if;
120: EXIT WHEN (i = p_okc_ph_line_breaks_v_tbl.LAST);
121: i := p_okc_ph_line_breaks_v_tbl.NEXT(i);
136:
137:
138: l_api_name CONSTANT VARCHAR2(30) := 'delete_Price_Hold_Line_Breaks';
139: l_api_version CONSTANT NUMBER := 1;
140: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
141: begin
142:
143: OKC_PH_LINE_BREAKS_PVT.delete_Price_Hold_Line_Breaks(p_api_version,
144: p_init_msg_list,
147: x_msg_data,
148: p_okc_ph_line_breaks_v_rec);
149:
150:
151: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
152: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
153: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
154: RAISE OKC_API.G_EXCEPTION_ERROR;
155: END IF;
148: p_okc_ph_line_breaks_v_rec);
149:
150:
151: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
152: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
153: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
154: RAISE OKC_API.G_EXCEPTION_ERROR;
155: END IF;
156:
149:
150:
151: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
152: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
153: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
154: RAISE OKC_API.G_EXCEPTION_ERROR;
155: END IF;
156:
157: EXCEPTION
150:
151: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
152: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
153: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
154: RAISE OKC_API.G_EXCEPTION_ERROR;
155: END IF;
156:
157: EXCEPTION
158: WHEN OKC_API.G_EXCEPTION_ERROR THEN
154: RAISE OKC_API.G_EXCEPTION_ERROR;
155: END IF;
156:
157: EXCEPTION
158: WHEN OKC_API.G_EXCEPTION_ERROR THEN
159: x_return_status := OKC_API.HANDLE_EXCEPTIONS
160: (substr(l_api_name,1,26),
161: G_PKG_NAME,
162: 'OKC_API.G_RET_STS_ERROR',
155: END IF;
156:
157: EXCEPTION
158: WHEN OKC_API.G_EXCEPTION_ERROR THEN
159: x_return_status := OKC_API.HANDLE_EXCEPTIONS
160: (substr(l_api_name,1,26),
161: G_PKG_NAME,
162: 'OKC_API.G_RET_STS_ERROR',
163: x_msg_count,
158: WHEN OKC_API.G_EXCEPTION_ERROR THEN
159: x_return_status := OKC_API.HANDLE_EXCEPTIONS
160: (substr(l_api_name,1,26),
161: G_PKG_NAME,
162: 'OKC_API.G_RET_STS_ERROR',
163: x_msg_count,
164: x_msg_data,
165: '_PUB');
166: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
162: 'OKC_API.G_RET_STS_ERROR',
163: x_msg_count,
164: x_msg_data,
165: '_PUB');
166: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
167: x_return_status := OKC_API.HANDLE_EXCEPTIONS
168: (substr(l_api_name,1,26),
169: G_PKG_NAME,
170: 'OKC_API.G_RET_STS_UNEXP_ERROR',
163: x_msg_count,
164: x_msg_data,
165: '_PUB');
166: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
167: x_return_status := OKC_API.HANDLE_EXCEPTIONS
168: (substr(l_api_name,1,26),
169: G_PKG_NAME,
170: 'OKC_API.G_RET_STS_UNEXP_ERROR',
171: x_msg_count,
166: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
167: x_return_status := OKC_API.HANDLE_EXCEPTIONS
168: (substr(l_api_name,1,26),
169: G_PKG_NAME,
170: 'OKC_API.G_RET_STS_UNEXP_ERROR',
171: x_msg_count,
172: x_msg_data,
173: '_PUB');
174: WHEN OTHERS THEN
171: x_msg_count,
172: x_msg_data,
173: '_PUB');
174: WHEN OTHERS THEN
175: x_return_status := OKC_API.HANDLE_EXCEPTIONS
176: (substr(l_api_name,1,26),
177: G_PKG_NAME,
178: 'OTHERS',
179: x_msg_count,