[Home] [Help]
PACKAGE BODY: APPS.OKL_CSH_ALLCT_RULES_PUB
Source
1 PACKAGE BODY OKL_CSH_ALLCT_RULES_PUB AS
2 /* $Header: OKLPCSAB.pls 115.6 2004/04/13 10:42:29 rnaik noship $ */
3
4
5 ---------------------------------------------------------------------------
6 -- PROCEDURE delete_comb_rule
7 ---------------------------------------------------------------------------
8
9 PROCEDURE delete_comb_rules (p_api_version IN NUMBER
10 ,p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE
11 ,x_return_status OUT NOCOPY VARCHAR2
12 ,x_msg_count OUT NOCOPY NUMBER
13 ,x_msg_data OUT NOCOPY VARCHAR2
14 ,p_cahv_rec IN cahv_rec_type
15 ) IS
16
17 i NUMBER :=0;
18 l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
19 l_api_version NUMBER ;
20 l_init_msg_list VARCHAR2(1) ;
21 l_msg_data VARCHAR2(2000);
22 l_msg_count NUMBER ;
23 lp_cahv_rec cahv_rec_type;
24 lx_cahv_rec cahv_rec_type;
25
26 BEGIN
27
28
29
30
31
32
33
34 SAVEPOINT csh_allct_rules_delete_rec;
35
36
37 l_api_version := p_api_version ;
38 l_init_msg_list := p_init_msg_list ;
39 l_msg_data := x_msg_data;
40 l_msg_count := x_msg_count ;
41 lp_cahv_rec := p_cahv_rec;
42 lx_cahv_rec := p_cahv_rec;
43
44
45 --Delete the Master
46 Okl_Csh_Allct_Rules_Pvt.delete_row(
47 l_api_version
48 ,l_init_msg_list
49 ,l_return_status
50 ,l_msg_count
51 ,l_msg_data
52 ,lp_cahv_rec);
53
54 --dbms_output.put_line('l_return_status in pub is: ' || l_return_status);
55 --dbms_output.put_line('l_msg_data in pub is: ' || l_msg_data);
56
57 x_return_status := l_return_status ;
58 x_msg_count := l_msg_count ;
59 x_msg_data := l_msg_data ;
60
61 IF ( l_return_status = Fnd_Api.G_RET_STS_ERROR ) THEN
62 RAISE Fnd_Api.G_EXC_ERROR;
63 ELSIF (l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR ) THEN
64 RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
65 END IF;
66
67
68
69
70 EXCEPTION
71
72 WHEN Fnd_Api.G_EXC_ERROR THEN
73 ROLLBACK TO csh_allct_rules_delete_rec;
74 x_return_status := Fnd_Api.G_RET_STS_ERROR;
75 x_msg_count := l_msg_count ;
76 x_msg_data := l_msg_data ;
77 --Fnd_Msg_Pub.count_and_get(
78 -- p_count => x_msg_count
79 -- ,p_data => x_msg_data);
80 WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
81 ROLLBACK TO csh_allct_rules_delete_rec;
82 x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
83 x_msg_count := l_msg_count ;
84 x_msg_data := l_msg_data ;
85 --Fnd_Msg_Pub.count_and_get(
86 -- p_count => x_msg_count
87 -- ,p_data => x_msg_data);
88 WHEN OTHERS THEN
89 ROLLBACK TO csh_allct_rules_delete_rec;
90 x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
91 x_msg_count := l_msg_count ;
92 x_msg_data := l_msg_data ;
93 --Fnd_Msg_Pub.ADD_EXC_MSG('OKL_CSH_ALLCT_RULES_PUB','delete_csh_allct_srchs');
94 --Fnd_Msg_Pub.count_and_get(
95 -- p_count => x_msg_count
96 -- ,p_data => x_msg_data);
97
98 END delete_comb_rules;
99
100 ---------------------------------------------------------------------------
101 -- PROCEDURE delete_comb_rules
102 ---------------------------------------------------------------------------
103
104 PROCEDURE delete_comb_rules (p_api_version IN NUMBER
105 ,p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE
106 ,x_return_status OUT NOCOPY VARCHAR2
107 ,x_msg_count OUT NOCOPY NUMBER
108 ,x_msg_data OUT NOCOPY VARCHAR2
109 ,p_cahv_tbl IN cahv_tbl_type
110 ) IS
111
112 i NUMBER :=0;
113 l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
114 l_api_version NUMBER ;
115 l_init_msg_list VARCHAR2(1) ;
116 l_msg_data VARCHAR2(2000);
117 l_msg_count NUMBER ;
118 lp_cahv_tbl cahv_tbl_type;
119 lx_cahv_tbl cahv_tbl_type;
120
121 BEGIN
122
123
124
125
126
127
128 SAVEPOINT csh_allct_rules_delete_tbl;
129
130
131 l_api_version := p_api_version ;
132 l_init_msg_list := p_init_msg_list ;
133 l_msg_data := x_msg_data;
134 l_msg_count := x_msg_count ;
135 lp_cahv_tbl := p_cahv_tbl;
136 lx_cahv_tbl := p_cahv_tbl;
137
138
139 --Delete the Master
140 --Initialize the return status
141 l_return_status := Okc_Api.G_RET_STS_SUCCESS;
142
143 IF (lp_cahv_tbl.COUNT > 0) THEN
144 i := p_cahv_tbl.FIRST;
145 LOOP
146
147 Okl_Csh_Allct_Rules_Pvt.delete_row(
148 l_api_version
149 ,l_init_msg_list
150 ,l_return_status
151 ,l_msg_count
152 ,l_msg_data
153 ,lp_cahv_tbl(i));
154
155 x_return_status := l_return_status ;
156 x_msg_count := l_msg_count ;
157 x_msg_data := l_msg_data ;
158
159 --dbms_output.put_line('l_return_status in pub is: ' || l_return_status);
160 --dbms_output.put_line('l_msg_data in pub is: ' || l_msg_data);
161
162 EXIT WHEN (i = lp_cahv_tbl.LAST);
163 i := p_cahv_tbl.NEXT(i);
164 END LOOP;
165 END IF;
166
167 IF ( l_return_status = Fnd_Api.G_RET_STS_ERROR ) THEN
168 RAISE Fnd_Api.G_EXC_ERROR;
169 ELSIF (l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR ) THEN
170 RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
171 END IF;
172
173
174
175
176
177 EXCEPTION
178
179 WHEN Fnd_Api.G_EXC_ERROR THEN
180 ROLLBACK TO csh_allct_rules_delete_tbl;
181 x_return_status := Fnd_Api.G_RET_STS_ERROR;
182 x_msg_count := l_msg_count ;
183 x_msg_data := l_msg_data ;
184 --Fnd_Msg_Pub.count_and_get(
185 -- p_count => x_msg_count
186 -- ,p_data => x_msg_data);
187 WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
188 ROLLBACK TO csh_allct_rules_delete_tbl;
189 x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
190 x_msg_count := l_msg_count ;
191 x_msg_data := l_msg_data ;
192 --Fnd_Msg_Pub.count_and_get(
193 -- p_count => x_msg_count
194 -- ,p_data => x_msg_data);
195 WHEN OTHERS THEN
196 ROLLBACK TO csh_allct_rules_delete_tbl;
197 x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
198 x_msg_count := l_msg_count ;
199 x_msg_data := l_msg_data ;
200 --Fnd_Msg_Pub.ADD_EXC_MSG('OKL_CSH_ALLCT_RULES_PUB','delete_csh_allct_srchs');
201 --Fnd_Msg_Pub.count_and_get(
202 -- p_count => x_msg_count
203 -- ,p_data => x_msg_data);
204
205 END delete_comb_rules;
206
207 END OKL_CSH_ALLCT_RULES_PUB;