PACKAGE BODY: APPS.ARP_CCE_PKG

Source

1 PACKAGE BODY arp_cce_pkg AS
2 /*$Header: ARCEECCB.pls 115.2 2002/11/15 02:15:26 anukumar ship $*/
3 PROCEDURE insert_call (p_call_rec        IN  ar_customer_calls%rowtype,
4                     p_customer_call_id  OUT NOCOPY ar_customer_calls.customer_call_id%type) IS
5 
6 BEGIN
7 
8 arp_cc_pkg.insert_p(p_call_rec,p_customer_call_id);
9 
10 
11 EXCEPTION
12 WHEN OTHERS THEN
13    RAISE;
14 END insert_call;
15 
16 
17 /*--------------------------------------------------------------+
18 |  Entity Handler  AR_NOTES                                     |
19 +--------------------------------------------------------------*/
20 PROCEDURE insert_note (p_note_rec IN  ar_notes%rowtype,
21                        p_note_id  OUT NOCOPY ar_notes.note_id%type) IS
22 
23 BEGIN
24 
25 arp_cc_pkg.insert_f_notes(p_note_rec,p_note_id);
26 
27 
28 EXCEPTION
29 WHEN OTHERS THEN
30    RAISE;
31 END insert_note;
32 
33 
34 
35 /*--------------------------------------------------------------+
36 |  Entity Handler  AR_CUSTOMER_CALL_TOPICS                      |
37 +--------------------------------------------------------------*/
38 PROCEDURE insert_topic (p_topic_rec IN  ar_customer_call_topics%rowtype,
39                         p_topic_id  OUT NOCOPY ar_customer_call_topics.customer_call_topic_id%type) IS
40 
41 BEGIN
42 
43 arp_cc_pkg.insert_f_topics(p_topic_rec,p_topic_id);
44 
45 
46 EXCEPTION
47 WHEN OTHERS THEN
48    RAISE;
49 END insert_topic;
50 
51 
52 /*-------------------------------------------------------------+
53 | Entity handler  AR_CALL_ACTIONS                              |
54 +-------------------------------------------------------------*/
55 PROCEDURE insert_action(p_action_rec IN ar_call_actions%rowtype,
56                         p_action_id IN OUT NOCOPY ar_call_actions.call_action_id%type,
57                         p_notif_id IN ar_action_notifications.employee_id%type) IS
58 
59 BEGIN
60 
61   arp_cc_pkg.insert_f_actions(p_action_rec, p_action_id);
62 
63   IF p_action_rec.action_code = 'XDUNNING' THEN
64      /* update customer or site profile */
65     null;
66   END IF;
67 
68 
69   IF p_notif_id IS NOT NULL THEN
70    arp_ccc_pkg.insert_notification_cover(p_action_id,p_notif_id);
71   END IF;
72 
73 
74 EXCEPTION
75 WHEN OTHERS THEN
76   RAISE;
77 
78 END insert_action;
79 
80 
81 /*-------------------------------------------------------------+
82 | Entity handler  AR_ACTION_NOTIFICATION                       |
83 +-------------------------------------------------------------*/
84 PROCEDURE insert_notification (p_notification_rec IN ar_action_notifications%rowtype) IS
85 BEGIN
86 
87  arp_cc_pkg.insert_f_notifications(p_notification_rec);
88 
89 EXCEPTION
90 WHEN OTHERS THEN
91   RAISE;
92 
93 END insert_notification;
94 END arp_cce_pkg;