PACKAGE BODY: APPS.CSF_IH_PUB

Source

1 PACKAGE BODY  CSF_IH_PUB AS
2 /* $Header: csfihpsb.pls 120.0 2005/05/24 17:54:39 appldev noship $ */
3 PROCEDURE Create_Interaction
4 (
5 	l_api_version		IN 	NUMBER,
6 	l_return_status		OUT nocopy	VARCHAR2,
7 	l_msg_count		OUT nocopy	NUMBER,
8 	l_msg_data		OUT nocopy	VARCHAR2,
9         l_interaction_id        IN      NUMBER,
10 	l_handler_id		in number,
11 	l_resource_id		in number,
12 	l_party_id 		in number,
13         action_item_id          IN       VARCHAR2,
14         outcome_id              IN         NUMBER,
15 	reference_form		IN 	varchar2,
16 	task_id			IN 	number,
17 	doc_id			in 	number,
18 	doc_ref			in 	varchar2
19 ) IS
20   d_interaction_rec      jtf_IH_PUB.interaction_rec_type;
21   d_activities           jtf_IH_PUB.activity_tbl_type;
22 
23   begin
24 
25     d_interaction_rec.interaction_id := l_interaction_id;
26     d_interaction_rec.handler_id := l_handler_id;
27     d_interaction_rec.outcome_id := outcome_id;
28     d_interaction_rec.resource_id := l_resource_id;
29     d_interaction_rec.party_id   := l_party_id;
30     d_interaction_rec.reference_form := reference_form;
31 
32 
33     d_activities(1).action_item_id := action_item_id;
34     d_activities(1).interaction_id := l_interaction_id;
35     d_activities(1).outcome_id     := outcome_id;
36     d_activities(1).task_id 	   := task_id;
37     d_activities(1).doc_id	   := doc_id;
38     d_activities(1).doc_ref	   := doc_ref;
39 
40     -- here's the delegated call to the old PL/SQL routine
41     jtf_ih_pub.create_interaction(
42       p_api_version  => l_api_version,
43       P_user_id      => l_resource_id,
44       x_return_status => l_return_status,
45       x_msg_count     => l_msg_count,
46       x_msg_data      => l_msg_data,
47       p_interaction_rec => d_interaction_rec,
48       p_activities      => d_activities );
49 
50   END Create_Interaction;
51 
52 END CSF_IH_PUB;