[Home] [Help]
PACKAGE BODY: APPS.OKC_INTERACT_HISTORY_PVT
Source
1 PACKAGE BODY OKC_INTERACT_HISTORY_PVT AS
2 /* $Header: OKCCIHAB.pls 120.0 2005/05/25 18:08:08 appldev noship $ */
3
4 l_debug VARCHAR2(1) := NVL(FND_PROFILE.VALUE('AFLOG_ENABLED'),'N');
5
6 PROCEDURE CREATE_INTERACT_HISTORY (
7 x_return_status OUT NOCOPY VARCHAR2,
8 x_msg_count OUT NOCOPY NUMBER,
9 x_msg_data OUT NOCOPY VARCHAR2,
10 x_interaction_id OUT NOCOPY NUMBER,
11 p_media_type IN varchar2,
12 p_action_item_id IN NUMBER,
13 p_outcome_id IN NUMBER,
14 p_touchpoint1_type IN VARCHAR2,
15 p_resource1_id IN NUMBER,
16 p_touchpoint2_type IN VARCHAR2,
17 p_resource2_id IN NUMBER,
18 p_contract_id IN NUMBER,
19 p_int_start_date IN DATE,
20 p_int_end_date IN DATE,
21 p_notes IN varchar2,
22 p_notes_detail IN varchar2) IS
23 l_interaction_rec JTF_IH_PUB.interaction_rec_type;
24 l_interaction_id NUMBER;
25 l_activity_rec JTF_IH_PUB.activity_rec_type;
26 l_activity_id NUMBER;
27 l_media_rec JTF_IH_PUB.media_rec_type;
28 l_media_id NUMBER := NULL;
29 l_note_id number;
30 BEGIN
31
32 /* Opening Interaction */
33
34 l_interaction_rec.start_date_time := p_int_start_date;
35 l_interaction_rec.end_date_time := p_int_end_date;
36 l_interaction_rec.handler_id := G_HANDLER_ID;
37 l_interaction_rec.script_id := NULL;
38 l_interaction_rec.outcome_id := p_outcome_id;
39 l_interaction_rec.result_id := NULL;
40 l_interaction_rec.reason_id := NULL;
41 l_interaction_rec.touchpoint2_type := p_touchpoint2_type;
42 l_interaction_rec.resource_id := p_resource2_id;
43 l_interaction_rec.touchpoint1_type := p_touchpoint1_type;
44 l_interaction_rec.party_id := p_resource1_id;
45 l_interaction_rec.parent_id := NULL;
46 l_interaction_rec.object_id := NULL;
47 l_interaction_rec.object_type := NULL;
48 l_interaction_rec.source_code_id := NULL;
49 l_interaction_rec.source_code := NULL;
50 JTF_IH_PUB.Open_Interaction
51 ( p_api_version =>1.0,
52 p_init_msg_list => OKC_API.G_FALSE,
53 p_commit => OKC_API.G_FALSE,
54 p_user_id => FND_GLOBAL.USER_ID,
55 -- p_login_id => FND_GLOBAL.LOGIN_ID,
56 -- p_resp_id => NULL,
57 -- p_resp_appl_id => NULL,
58 x_return_status => x_return_status,
59 x_msg_count => x_msg_count,
60 x_msg_data => x_msg_data,
61 p_interaction_rec => l_interaction_rec,
62 x_interaction_id => l_interaction_id);
63 if x_return_status <> 'S' Then
64 return;
65 end if;
66
67 /* Creating Media Item */
68
69 l_media_rec.media_id := NULL;
70 l_media_rec.source_id := 1; /* default */
71 l_media_rec.direction := NULL;
72 l_media_rec.duration := NULL;
73 l_media_rec.end_date_time := sysdate;
74 l_media_rec.media_item_type := p_media_type;
75 -- l_media_rec.media_data := 'CONTRACTS MEDIA';
76 l_media_rec.media_item_ref := NULL;
77 l_media_rec.source_item_create_date_time := sysdate;
78 l_media_rec.start_date_time := sysdate;
79 l_media_rec.source_item_id := NULL;
80 -- l_media_rec.interaction_performed := 'Contract';
81 JTF_IH_PUB.Create_MediaItem
82 ( p_api_version =>1.0,
83 p_init_msg_list => OKC_API.G_FALSE,
84 p_commit => OKC_API.G_FALSE,
85 p_user_id => FND_GLOBAL.USER_ID,
86 -- p_login_id => FND_GLOBAL.LOGIN_ID,
87 -- p_resp_id => NULL,
88 -- p_resp_appl_id => NULL,
89 x_return_status => x_return_status,
90 x_msg_count => x_msg_count,
91 x_msg_data => x_msg_data,
92 p_media_rec => l_media_rec,
93 x_media_id => l_media_id);
94 if x_return_status <> 'S' Then
95 return;
96 end if;
97
98 /* Adding Activity */
99
100 l_activity_rec.activity_id := NULL;
101 l_activity_rec.duration := NULL;
102 l_activity_rec.cust_account_id := null;
103 l_activity_rec.cust_org_id := null;
104 l_activity_rec.role := NULL;
105 l_activity_rec.end_date_time := NULL;
106 l_activity_rec.start_date_time := sysdate;
107 l_activity_rec.task_id := NULL;
108 l_activity_rec.doc_id := p_contract_id;
109 l_activity_rec.doc_ref := 'OKC_K_HEADERS_V';
110 l_activity_rec.media_id := l_media_id;
111 l_activity_rec.action_item_id := p_action_item_id;
112 l_activity_rec.interaction_id := l_interaction_id;
113 l_activity_rec.outcome_id := p_outcome_id;
114 l_activity_rec.result_id := NULL;
115 l_activity_rec.reason_id := NULL;
116 -- l_activity_rec.description := 'Activity for Contracts (OKC)';
117 l_activity_rec.action_id := NULL;
118 l_activity_rec.interaction_action_type := NULL;
119 l_activity_rec.object_id := NULL;
120 l_activity_rec.object_type := NULL;
121 l_activity_rec.source_code_id := NULL;
122 l_activity_rec.source_code := NULL;
123 JTF_IH_PUB.Add_Activity
124 ( p_api_version =>1.0,
125 p_init_msg_list => OKC_API.G_FALSE,
126 p_commit => OKC_API.G_FALSE,
127 p_user_id => FND_GLOBAL.USER_ID,
128 -- p_login_id => FND_GLOBAL.LOGIN_ID,
129 -- p_resp_id => NULL,
130 -- p_resp_appl_id => NULL,
131 x_return_status => x_return_status,
132 x_msg_count => x_msg_count,
133 x_msg_data => x_msg_data,
134 p_activity_rec => l_activity_rec,
135 x_activity_id => l_activity_id);
136 if x_return_status <> 'S' Then
137 return;
138 end if;
139
140 /* Close Interaction */
141
142 JTF_IH_PUB.Close_Interaction
143 ( p_api_version =>1.0,
144 p_init_msg_list => OKC_API.G_FALSE,
145 p_commit => OKC_API.G_FALSE,
146 p_user_id => FND_GLOBAL.USER_ID,
147 -- p_login_id => FND_GLOBAL.LOGIN_ID,
148 -- p_resp_id => NULL,
149 -- p_resp_appl_id => NULL,
150 x_return_status => x_return_status,
151 x_msg_count => x_msg_count,
152 x_msg_data => x_msg_data,
153 p_interaction_id => l_interaction_id);
154 if x_return_status <> 'S' Then
155 return;
156 end if;
157
158 /* Create Note */
159
160 JTF_NOTES_PUB.Create_note
161 (p_api_version => 1.0,
162 p_jtf_note_id => OKC_API.G_MISS_NUM,
163 p_init_msg_list => OKC_API.G_FALSE,
164 p_commit => OKC_API.G_FALSE,
165 p_validation_level => FND_API.G_VALID_LEVEL_FULL,
166 x_return_status => x_return_status,
167 x_msg_count => x_msg_count,
168 x_msg_data => x_msg_data,
169 p_source_object_id => l_activity_id,
170 p_source_object_code => 'JTF_ACTIVITY',
171 p_notes => p_notes,
172 p_notes_detail => p_notes_detail,
173 p_note_status => 'I',
174 p_entered_by => fnd_global.user_id,
175 p_entered_date => sysdate,
176 x_jtf_note_id => l_note_id,
177 p_last_update_date => sysdate,
178 p_last_updated_by => fnd_global.user_id,
179 p_creation_date => sysdate,
180 p_created_by => fnd_global.user_id);
181 if x_return_status <> 'S' Then
182 return;
183 end if;
184 x_interaction_id := l_interaction_id;
185 END CREATE_INTERACT_HISTORY ;
186 END OKC_INTERACT_HISTORY_PVT;