DBA Data[Home] [Help]

PACKAGE BODY: APPS.ARP_CCC_PKG

Source


1 PACKAGE BODY arp_ccc_pkg AS
2 /* $Header: ARCUECCB.pls 115.2 2002/11/15 02:27:24 anukumar ship $ */
3 PROCEDURE insert_call_cover (
4         p_customer_id           IN  ar_customer_calls.customer_id%type,
5         p_collector_id          IN  ar_customer_calls.collector_id%type,
6         p_call_date             IN  ar_customer_calls.call_date%type,
7         p_site_use_id           IN  ar_customer_calls.site_use_id%type,
8         p_status                IN  ar_customer_calls.status%type,
9         p_promise_date          IN  ar_customer_calls.promise_date%type,
10         p_promise_amount        IN  ar_customer_calls.promise_amount%type,
11         p_call_outcome          IN  ar_customer_calls.call_outcome%type,
12         p_forecast_date         IN  ar_customer_calls.forecast_date%type,
13         p_collection_forecast   IN  ar_customer_calls.collection_forecast%type,
14         p_contact_id            IN  ar_customer_calls.contact_id%type,
15         p_phone_id              IN  ar_customer_calls.phone_id%type,
16         p_fax_id                IN  ar_customer_calls.fax_id%type,
17         p_reason_code           IN  ar_customer_calls.reason_code%type,
18         p_currency_code         IN  ar_customer_calls.currency_code%type,
19         p_attribute_category    IN  ar_customer_calls.attribute_category%type,
20         p_attribute1            IN  ar_customer_calls.attribute1%type,
21         p_attribute2            IN  ar_customer_calls.attribute2%type,
22         p_attribute3            IN  ar_customer_calls.attribute3%type,
23         p_attribute4            IN  ar_customer_calls.attribute4%type,
24         p_attribute5            IN  ar_customer_calls.attribute5%type,
25         p_attribute6            IN  ar_customer_calls.attribute6%type,
26         p_attribute7            IN  ar_customer_calls.attribute7%type,
27         p_attribute8            IN  ar_customer_calls.attribute8%type,
28         p_attribute9            IN  ar_customer_calls.attribute9%type,
29         p_attribute10           IN  ar_customer_calls.attribute10%type,
30         p_attribute11           IN  ar_customer_calls.attribute11%type,
31         p_attribute12           IN  ar_customer_calls.attribute12%type,
32         p_attribute13           IN  ar_customer_calls.attribute13%type,
33         p_attribute14           IN  ar_customer_calls.attribute14%type,
34         p_attribute15           IN  ar_customer_calls.attribute15%type,
35         p_customer_call_id      OUT NOCOPY ar_customer_calls.customer_call_id%type,
36         p_follow_up_date        IN  ar_customer_calls.follow_up_date%type,
37         p_follow_up_action      IN  ar_customer_calls.follow_up_action%type,
38         p_complete_flag         IN  ar_customer_calls.complete_flag%type
39 ) IS
40 
41 l_call_rec ar_customer_calls%rowtype;
42 
43 BEGIN
44 
45 /*-------------------------------------------------+
46 |  populate the call record group with the values  |
47 |  passed as parameters                            |
48 +-------------------------------------------------*/
49 
50         l_call_rec.customer_id  :=p_customer_id;
51         l_call_rec.collector_id  :=p_collector_id;
52         l_call_rec.call_date  :=p_call_date;
53         l_call_rec.site_use_id  :=p_site_use_id;
54         l_call_rec.status  :=p_status;
55         l_call_rec.promise_date  :=p_promise_date;
56         l_call_rec.promise_amount  :=p_promise_amount;
57         l_call_rec.call_outcome  :=p_call_outcome;
58         l_call_rec.forecast_date  :=p_forecast_date;
59         l_call_rec.collection_forecast  :=p_collection_forecast;
60         l_call_rec.contact_id  :=p_contact_id;
61         l_call_rec.phone_id  :=p_phone_id;
62         l_call_rec.fax_id  :=p_fax_id;
63         l_call_rec.reason_code  :=p_reason_code;
64         l_call_rec.currency_code  :=p_currency_code     ;
65         l_call_rec.attribute_category  :=p_attribute_category;
66         l_call_rec.attribute1  :=p_attribute1;
67         l_call_rec.attribute2  :=p_attribute2;
68         l_call_rec.attribute3  :=p_attribute3;
69         l_call_rec.attribute4  :=p_attribute4;
70         l_call_rec.attribute5  :=p_attribute5;
71         l_call_rec.attribute6  :=p_attribute6;
72         l_call_rec.attribute7  :=p_attribute7;
73         l_call_rec.attribute8  :=p_attribute8;
74         l_call_rec.attribute9  :=p_attribute9;
75         l_call_rec.attribute10  :=p_attribute10;
76         l_call_rec.attribute11  :=p_attribute11;
77         l_call_rec.attribute12  :=p_attribute12;
78         l_call_rec.attribute13  :=p_attribute13;
79         l_call_rec.attribute14  :=p_attribute14;
80         l_call_rec.attribute15  :=p_attribute15;
81         l_call_rec.follow_up_date := p_follow_up_date;
82         l_call_rec.follow_up_action := p_follow_up_action;
83         l_call_rec.complete_flag := p_complete_flag;
84 
85 /*-----------------------------------------+
86 |  call the standard call entity handler   |
87 +-----------------------------------------*/
88 
89     arp_cce_pkg.insert_call(l_call_rec,p_customer_call_id);
90 
91 EXCEPTION
92  WHEN OTHERS THEN
93   RAISE;
94 
95 
96 END insert_call_cover;
97 
98 
99 /*------------------------------------------------------------------ +
100 |  Procedure : insert_note_cover                                     |
101 |  cover procedure to assign variables to record group and           |
102 |  call standard enetity handler                                     |
103 +-------------------------------------------------------------------*/
104 PROCEDURE insert_note_cover (
105                             p_note_type IN ar_notes.note_type%type,
106                             p_text IN ar_notes.text%type,
107                             p_customer_call_id IN ar_notes.customer_call_id%type,
108                             p_customer_call_topic_id IN ar_notes.customer_call_topic_id%type,
109                             p_call_action_id IN ar_notes.call_action_id%type,
110                             p_note_id OUT NOCOPY ar_notes.note_id%type
111 ) IS
112 
113 l_note_rec  ar_notes%rowtype;
114 
115 BEGIN
116 /*-----------------------------------------+
117 |  assign the variables to record group    |
118 +-----------------------------------------*/
119 
120 l_note_rec.note_type            := p_note_type;
121 l_note_rec.text                 := p_text;
122 l_note_rec.customer_call_id     := p_customer_call_id;
123 l_note_rec.customer_call_topic_id := p_customer_call_topic_id;
124 l_note_rec.call_action_id       := p_call_action_id;
125 
126 
127 /*-----------------------------------------+
128 |  call standard entity handler            |
129 +-----------------------------------------*/
130 
131 arp_cce_pkg.insert_note(l_note_rec,p_note_id);
132 
133 
134 EXCEPTION
135 WHEN OTHERS THEN
136   RAISE;
137 
138 END insert_note_cover;
139 
140 
141 
142 
143 PROCEDURE insert_topic_cover (
144 	p_customer_call_id	IN  ar_customer_call_topics.customer_call_id%type,
145         p_customer_id           IN  ar_customer_call_topics.customer_id%type,
146         p_collector_id          IN  ar_customer_call_topics.collector_id%type,
147         p_call_date             IN  ar_customer_call_topics.call_date%type,
148         p_site_use_id           IN  ar_customer_call_topics.site_use_id%type,
149         p_payment_schedule_id   IN  ar_customer_call_topics.payment_schedule_id%type,
150 	p_customer_trx_id	IN  ar_customer_call_topics.customer_trx_id%type,
151 	p_customer_trx_line_id  IN  ar_customer_call_topics.customer_trx_line_id%type,
152         p_cash_receipt_id       IN  ar_customer_call_topics.cash_receipt_id%type,
153         p_promise_date          IN  ar_customer_call_topics.promise_date%type,
154         p_promise_amount        IN  ar_customer_call_topics.promise_amount%type,
155 	p_follow_up_date	IN  ar_customer_call_topics.follow_up_date%type,
156 	p_follow_up_action	IN  ar_customer_call_topics.follow_up_action%type,
157 	p_follow_up_company_rep_id IN ar_customer_call_topics.follow_up_company_rep_id%type,
158         p_call_outcome          IN  ar_customer_call_topics.call_outcome%type,
159         p_forecast_date         IN  ar_customer_call_topics.forecast_date%type,
160         p_collection_forecast   IN  ar_customer_call_topics.collection_forecast%type,
161         p_contact_id            IN  ar_customer_call_topics.contact_id%type,
162         p_phone_id              IN  ar_customer_call_topics.phone_id%type,
163         p_reason_code           IN  ar_customer_call_topics.reason_code%type,
164         p_attribute_category    IN  ar_customer_call_topics.attribute_category%type,
165         p_attribute1            IN  ar_customer_call_topics.attribute1%type,
166         p_attribute2            IN  ar_customer_call_topics.attribute2%type,
167         p_attribute3            IN  ar_customer_call_topics.attribute3%type,
168         p_attribute4            IN  ar_customer_call_topics.attribute4%type,
169         p_attribute5            IN  ar_customer_call_topics.attribute5%type,
170         p_attribute6            IN  ar_customer_call_topics.attribute6%type,
171         p_attribute7            IN  ar_customer_call_topics.attribute7%type,
172         p_attribute8            IN  ar_customer_call_topics.attribute8%type,
173         p_attribute9            IN  ar_customer_call_topics.attribute9%type,
174         p_attribute10           IN  ar_customer_call_topics.attribute10%type,
175         p_attribute11           IN  ar_customer_call_topics.attribute11%type,
176         p_attribute12           IN  ar_customer_call_topics.attribute12%type,
177         p_attribute13           IN  ar_customer_call_topics.attribute13%type,
178         p_attribute14           IN  ar_customer_call_topics.attribute14%type,
179         p_attribute15           IN  ar_customer_call_topics.attribute15%type,
180         p_topic_id              OUT NOCOPY ar_customer_call_topics.customer_call_topic_id%type,
181         p_complete_flag         IN  ar_customer_call_topics.complete_flag%type
182 ) IS
183 
184  l_topic_rec  ar_customer_call_topics%rowtype;
185 
186 BEGIN
187 
188 /*---------------------+
189 | assign the variables |
190 +---------------------*/
191 
192   l_topic_rec.customer_call_id		:= p_customer_call_id;
193   l_topic_rec.customer_id		:= p_customer_id;
194   l_topic_rec.collector_id		:= p_collector_id;
195   l_topic_rec.call_date			:= p_call_date;
196   l_topic_rec.site_use_id		:= p_site_use_id;
197   l_topic_rec.payment_schedule_id	:= p_payment_schedule_id;
198   l_topic_rec.customer_trx_id		:= p_customer_trx_id;
199   l_topic_rec.customer_trx_line_id	:= p_customer_trx_line_id;
200   l_topic_rec.cash_receipt_id           := p_cash_receipt_id;
201   l_topic_rec.promise_date		:= p_promise_date;
202   l_topic_rec.promise_amount		:= p_promise_amount;
203   l_topic_rec.follow_up_date		:= p_follow_up_date;
204   l_topic_rec.follow_up_action		:= p_follow_up_action;
205   l_topic_rec.follow_up_company_rep_id	:= p_follow_up_company_rep_id;
206   l_topic_rec.call_outcome		:= p_call_outcome;
207   l_topic_rec.forecast_date		:= p_forecast_date;
208   l_topic_rec.collection_forecast	:= p_collection_forecast;
209   l_topic_rec.contact_id		:= p_contact_id;
210   l_topic_rec.phone_id			:= p_phone_id;
211   l_topic_rec.reason_code		:= p_reason_code;
212   l_topic_rec.attribute_category	:= p_attribute_category;
213   l_topic_rec.attribute1		:= p_attribute1;
214   l_topic_rec.attribute2                := p_attribute2;
215   l_topic_rec.attribute3                := p_attribute3;
216   l_topic_rec.attribute4                := p_attribute4;
217   l_topic_rec.attribute5                := p_attribute5;
218   l_topic_rec.attribute6                := p_attribute6;
219   l_topic_rec.attribute7                := p_attribute7;
220   l_topic_rec.attribute8                := p_attribute8;
221   l_topic_rec.attribute9                := p_attribute9;
222   l_topic_rec.attribute10               := p_attribute10;
223   l_topic_rec.attribute11               := p_attribute11;
224   l_topic_rec.attribute12               := p_attribute12;
225   l_topic_rec.attribute13               := p_attribute13;
226   l_topic_rec.attribute14               := p_attribute14;
227   l_topic_rec.attribute15               := p_attribute15;
228   l_topic_rec.complete_flag             := p_complete_flag;
229 
230 /*-----------------------+
231 | call the entity handler |
232 +------------------------*/
233 
234   arp_cce_pkg.insert_topic(l_topic_rec,p_topic_id);
235 
236 
237 EXCEPTION
238   WHEN OTHERS THEN
239     RAISE;
240 
241 END insert_topic_cover;
242 
243 
244 /*--------------------------------------------------------------+
245 | Cover for AR_CALL_ACTIONS entity handler                      |
246 +--------------------------------------------------------------*/
247 PROCEDURE insert_action_cover (
248         p_customer_call_id      IN ar_call_actions.customer_call_id%type,
249         p_customer_call_topic_id IN ar_call_actions.customer_call_topic_id%type,
250         p_action_code           IN ar_call_actions.action_code%type,
251         p_action_amount         IN ar_call_actions.action_amount%type,
252         p_partial_flag          IN ar_call_actions.partial_invoice_amount_flag%type,
253         p_complete_flag         IN ar_call_actions.complete_flag%type,
254 	p_action_date		IN ar_call_actions.action_date%type,
255         p_action_id             IN OUT NOCOPY ar_call_actions.call_action_id%type,
256         p_notif_id              IN ar_action_notifications.employee_id%type) IS
257 
258 l_action_rec    ar_call_actions%rowtype;
259 
263 | assign values for record group  |
260 BEGIN
261 
262 /*--------------------------------+
264 +--------------------------------*/
265 
266   l_action_rec.customer_call_id         := p_customer_call_id;
267   l_action_rec.customer_call_topic_id   := p_customer_call_topic_id;
268   l_action_rec.action_code              := p_action_code;
269   l_action_rec.action_amount            := p_action_amount;
270   l_action_rec.partial_invoice_amount_flag := p_partial_flag;
271   l_action_rec.complete_flag            := p_complete_flag;
272   l_action_rec.action_date		:= p_action_date;
273 
274 /*---------------------------------+
275 | call the entity handler          |
276 +---------------------------------*/
277 
278   arp_cce_pkg.insert_action(l_action_rec,p_action_id,p_notif_id);
279 
280 END insert_action_cover;
281 
282 PROCEDURE insert_notification_cover (
283         p_call_action_id        IN ar_action_notifications.call_action_id%type,
284         p_employee_id           IN ar_action_notifications.employee_id%type) IS
285 
286 l_notification_rec ar_action_notifications%rowtype;
287 
288 BEGIN
289 
290 /*--------------------------------+
291 | assign values for record group  |
292 +--------------------------------*/
293 
294 l_notification_rec.call_action_id	:= p_call_action_id;
295 l_notification_rec.employee_id		:= p_employee_id;
296 
297 
298 /*---------------------------------+
299 | call the entity handler          |
300 +---------------------------------*/
301 
302    arp_cce_pkg.insert_notification(l_notification_rec);
303 END insert_notification_cover;
304 
305 
306 PROCEDURE update_call_cover (p_status        IN ar_customer_calls.status%type,
307                              p_rowid         IN VARCHAR2,
308                              p_complete_flag IN ar_customer_calls.complete_flag%type) IS
309 
310 l_call_rec ar_customer_calls%rowtype;
311 
312 BEGIN
313 
314   l_call_rec.status        := p_status;
315   l_call_rec.complete_flag := p_complete_flag;
316 
317   arp_cc_pkg.update_p(l_call_rec,p_rowid);
318 
319 END update_call_cover;
320 
321 
322 
323 
324 PROCEDURE update_topic_cover  (p_complete_flag IN ar_customer_call_topics.complete_flag%type,
325                                p_customer_call_topic_id IN ar_customer_call_topics.customer_call_topic_id%type,
326                                p_customer_call_id IN ar_customer_call_topics.customer_call_id%type,
327                                p_rowid IN varchar2) IS
328 
329 l_topic_rec ar_customer_call_topics%rowtype;
330 
331 BEGIN
332 
333 l_topic_rec.complete_flag := p_complete_flag;
334 l_topic_rec.customer_call_topic_id := p_customer_call_topic_id;
335 l_topic_rec.customer_call_id := p_customer_call_id;
336 
337 arp_cc_pkg.update_f_topics(l_topic_rec,p_rowid);
338 
339 END update_topic_cover;
340 
341 
342 
343 
344 
345 PROCEDURE update_action_cover (p_complete_flag IN ar_call_actions.complete_flag%type,
346                                p_call_action_id IN ar_call_actions.call_action_id%type,
347                                p_customer_call_id IN ar_call_actions.customer_call_id%type,
348                                p_customer_call_topic_id IN ar_call_actions.customer_call_topic_id%type,
349                                p_rowid IN varchar2) IS
350 l_action_rec ar_call_actions%rowtype;
351 
352 BEGIN
353 
354 l_action_rec.complete_flag := p_complete_flag;
355 l_action_rec.call_action_id :=  p_call_action_id;
356 l_action_rec.customer_call_id := p_customer_call_id;
357 l_action_rec.customer_call_topic_id := p_customer_call_topic_id;
358 
359 
360 arp_cc_pkg.update_f_actions(l_action_rec,p_rowid);
361 
362 END update_action_cover;
363 
364 
365 
366 END arp_ccc_pkg;