[Home] [Help]
PACKAGE BODY: APPS.IBU_EBLAST_PREF_PKG
Source
1 Package Body ibu_eblast_pref_pkg AS
2 /* $Header: ibueblab.pls 115.3 2002/12/03 22:04:49 mkcyee noship $ */
3 -- =============================================================================================
4 procedure create_preference(
5 p_party_id in NUMBER,
6 p_preference_code in VARCHAR2,
7
8 x_contact_preference_id OUT NOCOPY NUMBER,
9 x_return_status OUT NOCOPY VARCHAR2,
10 x_msg_count OUT NOCOPY NUMBER,
11 x_msg_data OUT NOCOPY VARCHAR2 )
12 IS
13 p_contact_preference_rec HZ_CONTACT_PREFERENCE_V2PUB.CONTACT_PREFERENCE_REC_TYPE;
14 BEGIN
15 p_contact_preference_rec.contact_preference_id := FND_API.G_MISS_NUM;
16 p_contact_preference_rec.contact_level_table := 'HZ_PARTIES';
17 p_contact_preference_rec.contact_level_table_id := p_party_id;
18 p_contact_preference_rec.contact_type := 'EMAIL';
19 p_contact_preference_rec.preference_code := p_preference_code;
20 p_contact_preference_rec.preference_topic_type := FND_API.G_MISS_CHAR;
21 p_contact_preference_rec.preference_topic_type_id := FND_API.G_MISS_NUM;
22 p_contact_preference_rec.preference_topic_type_code := FND_API.G_MISS_CHAR;
23 p_contact_preference_rec.preference_start_date := sysdate;
24 p_contact_preference_rec.preference_end_date := FND_API.G_MISS_DATE;
25 p_contact_preference_rec.preference_start_time_hr := FND_API.G_MISS_NUM;
26 p_contact_preference_rec.preference_end_time_hr := FND_API.G_MISS_NUM;
27 p_contact_preference_rec.preference_start_time_mi := FND_API.G_MISS_NUM;
28 p_contact_preference_rec.preference_end_time_mi := FND_API.G_MISS_NUM;
29 p_contact_preference_rec.max_no_of_interactions := FND_API.G_MISS_NUM;
30 p_contact_preference_rec.max_no_of_interact_uom_code := FND_API.G_MISS_CHAR;
31 p_contact_preference_rec.requested_by := 'INTERNAL';
32 p_contact_preference_rec.reason_code := FND_API.G_MISS_CHAR;
33 p_contact_preference_rec.status := FND_API.G_MISS_CHAR;
34 p_contact_preference_rec.created_by_module := 'ISUPPORT PROFILE';
35 p_contact_preference_rec.application_id := 672;
36
37 -- Now call the stored program
38 hz_contact_preference_v2pub.create_contact_preference(FND_API.G_TRUE,p_contact_preference_rec,x_contact_preference_id,x_return_status,x_msg_count,x_msg_data);
39
40 -- Output the results
41 /*dbms_output.put_line('x_contact_preference_id = '||TO_CHAR(x_contact_preference_id));
42 dbms_output.put_line(SubStr('x_return_status = '||x_return_status,1,255));
43 dbms_output.put_line('x_msg_count = '||TO_CHAR(x_msg_count));
44 dbms_output.put_line(SubStr('x_msg_data = '||x_msg_data,1,255));*/
45 EXCEPTION
46 WHEN OTHERS THEN
47 --dbms_output.put_line('Error '||TO_CHAR(SQLCODE)||': '||SQLERRM);
48 RAISE;
49 end create_preference;
50 -- ==============================================================================
51 procedure update_preference(p_contact_preference_id IN NUMBER,
52 p_preference_code IN VARCHAR2,
53 p_object_version_number IN OUT NOCOPY NUMBER,
54
55 x_return_status OUT NOCOPY VARCHAR2,
56 x_msg_count OUT NOCOPY NUMBER,
57 x_msg_data OUT NOCOPY VARCHAR2)
58 IS
59 p_contact_preference_rec HZ_CONTACT_PREFERENCE_V2PUB.CONTACT_PREFERENCE_REC_TYPE;
60 BEGIN
61 p_contact_preference_rec.contact_preference_id := p_contact_preference_id;
62 p_contact_preference_rec.preference_code := p_preference_code;
63 p_object_version_number := p_object_version_number;
64
65 -- Now call the stored program
66 hz_contact_preference_v2pub.update_contact_preference(FND_API.G_TRUE,p_contact_preference_rec,p_object_version_number,x_return_status,x_msg_count,x_msg_data);
67
68 -- Output the results
69 /*dbms_output.put_line('p_object_version_number = '||TO_CHAR(p_object_version_number));
70 dbms_output.put_line(SubStr('x_return_status = '||x_return_status,1,255));
71 dbms_output.put_line('x_msg_count = '||TO_CHAR(x_msg_count));
72 dbms_output.put_line(SubStr('x_msg_data = '||x_msg_data,1,255));*/
73 EXCEPTION
74 WHEN OTHERS THEN
75 --dbms_output.put_line('Error '||TO_CHAR(SQLCODE)||': '||SQLERRM);
76 RAISE;
77 end update_preference;
78
79 -- ==============================================================
80
81 end ibu_eblast_pref_pkg;