[Home] [Help]
PACKAGE BODY: APPS.OKC_PH_LINE_BREAKS_PUB
Source
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
10 -- Start of comments
11 --
12 -- Procedure Name : create_Price_Hold_Line_Breaks
13 -- Description :
14 -- Business Rules :
15 -- Parameters :
16 -- Version : 1.0
17 -- End of comments
18
19 procedure create_Price_Hold_Line_Breaks(p_api_version IN NUMBER,
20 p_init_msg_list IN VARCHAR2 ,
21 x_return_status OUT NOCOPY VARCHAR2,
22 x_msg_count OUT NOCOPY NUMBER,
23 x_msg_data OUT NOCOPY VARCHAR2,
24 p_okc_ph_line_breaks_v_rec IN okc_ph_line_breaks_v_rec_type,
25 x_okc_ph_line_breaks_v_rec OUT NOCOPY okc_ph_line_breaks_v_rec_type) is
26
27
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,
37 x_return_status,
38 x_msg_count,
39 x_msg_data,
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;
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,
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,
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,
73 x_msg_data,
74 '_PUB');
75 end create_Price_Hold_Line_Breaks;
76
77 -- Start of comments
78 --
79 -- Procedure Name : create_Price_Hold_Line_Breaks
80 -- Description :
81 -- Business Rules :
82 -- Parameters :
83 -- Version : 1.0
84 -- End of comments
85
86 procedure create_Price_Hold_Line_Breaks(p_api_version IN NUMBER,
87 p_init_msg_list IN VARCHAR2 ,
88 x_return_status OUT NOCOPY VARCHAR2,
89 x_msg_count OUT NOCOPY NUMBER,
90 x_msg_data OUT NOCOPY VARCHAR2,
91 p_okc_ph_line_breaks_v_tbl IN okc_ph_line_breaks_v_tbl_type,
92 x_okc_ph_line_breaks_v_tbl OUT NOCOPY okc_ph_line_breaks_v_tbl_type) is
93
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
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),
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;
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);
122 END LOOP;
123 end if;
124 exception
125 when others then NULL;
126 end create_Price_Hold_Line_Breaks;
127
128
129
130 procedure delete_Price_Hold_Line_Breaks(p_api_version IN NUMBER,
131 p_init_msg_list IN VARCHAR2 ,
132 x_return_status OUT NOCOPY VARCHAR2,
133 x_msg_count OUT NOCOPY NUMBER,
134 x_msg_data OUT NOCOPY VARCHAR2,
135 p_okc_ph_line_breaks_v_rec IN okc_ph_line_breaks_v_rec_type) is
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,
145 x_return_status,
146 x_msg_count,
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;
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,
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,
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,
180 x_msg_data,
181 '_PUB');
182 end delete_Price_Hold_Line_Breaks;
183
184
185
186
187 end OKC_PH_LINE_BREAKS_PUB;