[Home] [Help]
PACKAGE BODY: APPS.JTF_IH_PVT
Source
1 PACKAGE BODY JTF_IH_PVT AS
2 /* $Header: JTFIHPVB.pls 115.7 2000/01/24 14:58:45 pkm ship $ */
3 PROCEDURE Create_Interaction_m
4 (
5 p_resp_appl_id IN NUMBER DEFAULT NULL,
6 p_resp_id IN NUMBER DEFAULT NULL,
7 p_user_id IN NUMBER,
8 p_login_id IN NUMBER DEFAULT NULL,
9 x_return_status OUT VARCHAR2,
10 x_msg_count OUT NUMBER,
11 x_msg_data OUT VARCHAR2,
12 p_interaction_rec IN jtf_ih_pub.interaction_rec_type,
13 p_activities IN jtf_ih_pub.activity_tbl_type,
14 p_media IN jtf_ih_pub.media_rec_type,
15 p_mlcs IN jtf_ih_pub.mlcs_tbl_type
16 )IS
17 l_return_status VARCHAR2(1);
18 l_msg_count NUMBER;
19 l_msg_data VARCHAR2(1000);
20 l_interaction_rec jtf_ih_pub.interaction_rec_type := p_interaction_rec;
21 l_activities jtf_ih_pub.activity_tbl_type := p_activities;
22 l_media jtf_ih_pub.media_rec_type := p_media;
23
24 BEGIN
25
26 -- Standard start of API savepoint
27 SAVEPOINT create_interaction_pvt;
28
29 -- DBMS_OUTPUT.ENABLE(1000000);
30 -- DBMS_OUTPUT.PUT_LINE('---------------create_interaction: validate version---------------');
31
32 -- Initialize API return status to success
33 x_return_status := fnd_api.g_ret_sts_success;
34
35 SELECT jtf.jtf_ih_media_items_s1.NEXTVAL INTO l_media.media_id FROM dual;
36
37 JTF_IH_PUB.Create_MediaItem(1.0,'T','T',p_resp_appl_id,p_resp_id,p_user_id,p_login_id,
38 l_return_status,
39 l_msg_count,
40 l_msg_data,
41 l_media,
42 p_mlcs
43 );
44
45
46 SELECT jtf.jtf_ih_interactions_s1.NEXTVAL INTO l_interaction_rec.interaction_id FROM dual;
47
48 for idx in 1 .. l_activities.count loop
49 l_activities(idx).media_id := l_media.media_id;
50 end loop;
51 JTF_IH_PUB.Create_Interaction(1.0,'T','T',p_resp_appl_id,p_resp_id,p_user_id,p_login_id,
52 l_return_status,
53 l_msg_count,
54 l_msg_data,
55 l_interaction_rec,
56 l_activities
57 );
58 -- DBMS_OUTPUT.PUT('ih_test_proc: return message = ');
59 -- DBMS_OUTPUT.PUT_LINE(l_msg_data);
60
61 -- Standard call to get message count and if count is 1, get message info
62 fnd_msg_pub.count_and_get
63 ( p_count => x_msg_count,
64 p_data => x_msg_data );
65 EXCEPTION
66 WHEN fnd_api.g_exc_error THEN
67 ROLLBACK TO create_interaction_pub;
68 x_return_status := fnd_api.g_ret_sts_error;
69 fnd_msg_pub.count_and_get
70 ( p_count => x_msg_count,
71 p_data => x_msg_data );
72 WHEN fnd_api.g_exc_unexpected_error THEN
73 ROLLBACK TO create_interaction_pub;
74 x_return_status := fnd_api.g_ret_sts_unexp_error;
75 fnd_msg_pub.count_and_get
76 ( p_count => x_msg_count,
77 p_data => x_msg_data );
78 WHEN OTHERS THEN
79 ROLLBACK TO create_interaction_pub;
80 x_return_status := fnd_api.g_ret_sts_unexp_error;
81 fnd_msg_pub.count_and_get
82 ( p_count => x_msg_count,
83 p_data => x_msg_data );
84
85 END Create_Interaction_m;
86
87
88
89 END JTF_IH_PVT;