[Home] [Help]
PACKAGE BODY: APPS.IES_IH_PUB
Source
1 package body IES_IH_PUB as
2 /* $Header: iespihb.pls 115.4 2002/12/09 21:13:25 appldev noship $ */
3 procedure Open_Interaction
4 (p_ies_user_id IN NUMBER,
5 p_ies_party_id IN NUMBER,
6 p_ies_handler_id IN NUMBER,
7 x_ies_return_status OUT NOCOPY VARCHAR2,
8 x_ies_msg_count OUT NOCOPY NUMBER,
9 x_ies_msg_data OUT NOCOPY VARCHAR2,
10 x_ies_interaction_id OUT NOCOPY NUMBER) as
11
12 l_interaction_rec JTF_IH_PUB.interaction_rec_type;
13
14 begin
15 --l_interaction_rec.party_id := 10951;
16 l_interaction_rec.party_id := p_ies_party_id;
17
18 --l_interaction_rec.handler_id := 519;
19 l_interaction_rec.handler_id := p_ies_handler_id;
20
21 --l_interaction_rec.resource_id := 800;
22
23 select resource_id into l_interaction_rec.resource_id
24 from jtf_rs_resource_extns
25 where user_id = p_ies_user_id;
26
27 --dbms_output.put_line('Resource ID:'||to_char(l_interaction_rec.resource_id));
28
29 JTF_IH_PUB.Open_Interaction(
30 p_api_version => 1.0,
31 x_return_status => x_ies_return_status,
32 x_msg_count => x_ies_msg_count,
33 x_msg_data => x_ies_msg_data,
34 p_user_id => p_ies_user_id,
35 p_interaction_rec => l_interaction_rec,
36 x_interaction_id => x_ies_interaction_id
37 );
38 end Open_Interaction;
39
40 procedure Add_Activity
41 (p_ies_user_id IN NUMBER,
42 p_ies_interaction_id IN NUMBER,
43 p_ies_action_id IN NUMBER,
44 p_ies_action_item_id IN NUMBER,
45 p_ies_script_trans_id IN NUMBER,
46 x_ies_return_status OUT NOCOPY VARCHAR2,
47 x_ies_msg_count OUT NOCOPY NUMBER,
48 x_ies_msg_data OUT NOCOPY VARCHAR2,
49 x_ies_activity_id OUT NOCOPY NUMBER) as
50
51 l_activity_rec JTF_IH_PUB.activity_rec_type;
52
53 begin
54 l_activity_rec.interaction_id := p_ies_interaction_id;
55 l_activity_rec.action_id := p_ies_action_id;
56 l_activity_rec.action_item_id := p_ies_action_item_id;
57 l_activity_rec.script_trans_id := p_ies_script_trans_id;
58
59 JTF_IH_PUB.Add_Activity(
60 p_api_version => 1.0,
61 x_return_status => x_ies_return_status,
62 x_msg_count => x_ies_msg_count,
63 x_msg_data => x_ies_msg_data,
64 p_user_id => p_ies_user_id,
65 p_activity_rec => l_activity_rec,
66 x_activity_id => x_ies_activity_id
67 );
68 end Add_Activity;
69
70 procedure Update_Activity
71 (p_ies_user_id IN NUMBER,
72 p_ies_interaction_id IN NUMBER,
73 p_ies_activity_id IN NUMBER,
74 p_ies_outcome_id IN NUMBER,
75 x_ies_return_status OUT NOCOPY VARCHAR2,
76 x_ies_msg_count OUT NOCOPY NUMBER,
77 x_ies_msg_data OUT NOCOPY VARCHAR2) as
78
79 l_activity_rec JTF_IH_PUB.activity_rec_type;
80
81 begin
82 l_activity_rec.interaction_id := p_ies_interaction_id;
83 l_activity_rec.activity_id := p_ies_activity_id;
84 l_activity_rec.outcome_id := p_ies_outcome_id;
85
86 l_activity_rec.end_date_time := sysdate;
87
88 JTF_IH_PUB.Update_Activity(
89 p_api_version => 1.0,
90 x_return_status => x_ies_return_status,
91 x_msg_count => x_ies_msg_count,
92 x_msg_data => x_ies_msg_data,
93 p_user_id => p_ies_user_id,
94 p_activity_rec => l_activity_rec
95 );
96 end Update_Activity;
97
98 procedure Close_Interaction
99 (p_ies_user_id IN NUMBER,
100 p_ies_interaction_id IN NUMBER,
101 p_ies_outcome_id IN NUMBER,
102 x_ies_return_status OUT NOCOPY VARCHAR2,
103 x_ies_msg_count OUT NOCOPY NUMBER,
104 x_ies_msg_data OUT NOCOPY VARCHAR2) as
105
106 l_interaction_rec JTF_IH_PUB.interaction_rec_type;
107
108 begin
109 l_interaction_rec.interaction_id := p_ies_interaction_id;
110 l_interaction_rec.outcome_id := p_ies_outcome_id;
111
112 JTF_IH_PUB.Close_Interaction(
113 p_api_version => 1.0,
114 x_return_status => x_ies_return_status,
115 x_msg_count => x_ies_msg_count,
116 x_msg_data => x_ies_msg_data,
117 p_user_id => p_ies_user_id,
118 p_interaction_rec => l_interaction_rec
119 );
120 end Close_Interaction;
121
122 end IES_IH_PUB;