[Home] [Help]
PACKAGE BODY: APPS.IEX_UWQ_SEL_PKG
Source
1 PACKAGE BODY IEX_UWQ_SEL_PKG AS
2 /* $Header: iextmslb.pls 120.1.12010000.2 2009/01/05 13:20:41 pnaveenk noship $ */
3
4
5 PROCEDURE LogMessage(l_Message varchar2) IS
6 BEGIN
7 if (l_DumpData = 'Y') then
8 ast_debug_pub.LogMessage(l_Message, -10, 'Y');
9 end if;
10 END;
11
12 PROCEDURE setDefaults IS
13 BEGIN
14
15 l_eventName := NULL;
16 l_partyId := 0;
17 l_partyType := NULL;
18 l_customerNumber := 0;
19 l_contactId := 0;
20 l_contactNumber := 0;
21 l_eventConfCode := NULL;
22 l_eventId := 0;
23 l_collateralReqNum := NULL;
24 l_collateralId := 0;
25 l_campaignCode := NULL;
26 l_campaignId := 0;
27 l_dnis := NULL;
28 l_callId := NULL;
29 l_ani := NULL;
30 l_accountcode := 0;
31 l_usage := NULL;
32 l_agentID := NULL;
33 l_mediaType := NULL;
34 l_mediaItemID := NULL;
35 l_workitemID := NULL;
36 l_sendername := NULL;
37 l_subject := NULL;
38 l_messageID := NULL;
39 l_MoreAniMatch := 'N';
40
41 END setDefaults;
42
43 -- private package to return the param type value
44 PROCEDURE getCallData(p_mediaTable IN SYSTEM.IEU_UWQ_MEDIA_DATA_NST) IS
45 BEGIN
46
47 FOR i IN 1 .. p_mediaTable.COUNT LOOP
48
49 if ( upper(p_mediaTable(i).param_name) = 'OCCTEVENTNAME' ) then
50
51 l_eventname := p_mediaTable(i).param_value;
52
53 elsif ( upper(p_mediaTable(i).param_name) = 'IEU_AMS_CAMPAIGN_ID' ) then
54
55 l_CampaignID := p_mediaTable(i).param_value;
56
57 elsif ( upper(p_mediaTable(i).param_name) = 'CustomerID' ) THEN
58
59 l_partyID := p_mediaTable(i).param_value;
60
61 elsif ( upper(p_mediaTable(i).param_name) = 'CustomerNumber' ) then
62
63 l_customerNumber := p_mediaTable(i).param_value;
64
65 elsif ( upper(p_mediaTable(i).param_name) = 'CUSTOMERID' ) THEN
66
67 l_partyID := p_mediaTable(i).param_value;
68
69 elsif ( upper(p_mediaTable(i).param_name) = 'CUSTOMERNUM' ) then
70
71 l_customerNumber := p_mediaTable(i).param_value;
72
73 elsif ( upper(p_mediaTable(i).param_name) = 'CONTACTNUM' ) then
74
75 l_contactnumber := p_mediaTable(i).param_value;
76
77 ELSIF ( upper(p_mediatable(i).param_name)='EVENTCONFCODE') THEN
78
79 l_eventConfCode := p_mediaTable(i).param_value;
80
81 ELSIF ( upper(p_mediatable(i).param_name)='COLREQNUM') THEN
82
83 l_collateralReqNum := p_mediaTable(i).param_value;
84
85 elsif ( upper(p_mediaTable(i).param_name) = 'PROMOTIONCODE' ) then
86
87 l_campaignCode := p_mediaTable(i).param_value;
88
89 elsif ( upper(p_mediaTable(i).param_name) = 'OCCTDNIS' ) then
90
91 l_dnis := p_mediaTable(i).param_value;
92
93 elsif ( upper(p_mediaTable(i).param_name) = 'OCCTCALLID' ) then
94
95 l_callId := p_mediaTable(i).param_value;
96
97 elsif ( upper(p_mediaTable(i).param_name) = 'OCCTANI' ) then
98
99 l_ani := p_mediaTable(i).param_value;
100
101 elsif ( upper(p_mediaTable(i).param_name) = 'ACCOUNTCODE' ) then
102
103 l_accountCode := p_mediaTable(i).param_value;
104
105 elsif ( upper(p_mediaTable(i).param_name) = 'OCCTAGENTID' ) THEN
106
107 l_agentID := p_mediaTable(i).param_value;
108
109 elsif ( upper(p_mediaTable(i).param_name) = 'OCCTMEDIATYPE' ) THEN
110
111 l_mediaType := p_mediaTable(i).param_value;
112
113 elsif ( upper(p_mediaTable(i).param_name) = 'OIEMMESSAGEID' ) THEN
114
115 l_messageID := p_mediaTable(i).param_value;
116
117 elsif ( upper(p_mediaTable(i).param_name) = 'OIEMSUBJECT' ) THEN
118
119 l_subject := p_mediaTable(i).param_value;
120
121 elsif ( upper(p_mediaTable(i).param_name) = 'OIEMSENDERNAME' ) THEN
122
123 l_sendername := p_mediaTable(i).param_value;
124
125 elsif ( upper(p_mediaTable(i).param_name) = 'WORKITEMID' ) THEN
126
127 l_workitemID := p_mediaTable(i).param_value;
128
129 elsif ( upper(p_mediaTable(i).param_name) = 'OCCTMEDIAITEMID' ) THEN
130
131 l_mediaItemID := p_mediaTable(i).param_value;
132
133 elsif ( upper(p_mediaTable(i).param_name) = 'PARTY_ID' ) THEN
134
135 l_partyId := to_number(p_mediaTable(i).param_value);
136
137 END IF;
138
139 END LOOP;
140
141 END getCallData ;
142
143 -- procedure to construct the paramlist to be passed to the form
144
145 FUNCTION constructparam RETURN VARCHAR2 IS
146 l_paramlist VARCHAR2(500);
147 BEGIN
148
149 l_paramlist := '';
150 IF ( l_partyId <> 0 ) THEN
151
152 l_paramlist := l_paramlist || 'PARTY_ID' || '="' || l_partyId ||'" ';
153
154 END IF;
155
156 IF ( l_partyType is not NULL) then
157 l_paramlist := l_paramlist || 'PARTY_TYPE' || '="' || l_partyType || '" ';
158 END IF;
159
160 IF ( l_contactid <> 0 ) THEN
161
162 l_paramlist := l_paramlist || 'PARTY_CONTACT_ID' || '="' || l_contactId ||'" ';
163
164 END IF;
165
166 IF ( l_eventid <> 0 ) THEN
167
168 l_paramlist := l_paramlist || 'EVENT_REG_ID' || '="' || l_eventId ||'" ';
169
170 END IF;
171
172 IF ( l_collateralId <> 0 ) THEN
173
174 l_paramlist := l_paramlist || 'COLL_REQ_ID' || '="' || l_collateralId ||'" ';
175
176 END IF;
177
178 IF (l_campaignId <> 0 ) THEN
179
180 l_paramlist := l_paramlist || 'CAMPAIGN_ID' || '="' || l_campaignId ||'" ';
181
182 END IF;
183
184 IF ( l_callId is not NULL ) THEN
185
186 l_paramlist := l_paramlist || 'TM_CALL_ID' || '="' || l_callID ||'" ';
187
188 END IF;
189
190 IF ( l_accountcode <> 0 ) THEN
191
192 l_paramlist := l_paramlist || 'CUST_ACCOUNT_ID' || '="' || l_accountCode ||'" ';
193
194 END IF;
195
196 IF ( l_eventname is not NULL ) THEN
197
198 l_paramlist := l_paramlist || 'UWQ_EVENTNAME' || '="' || l_eventname ||'" ';
199
200 END IF;
201
202
203 IF ( l_dnis is not NULL ) THEN
204
205 l_paramlist := l_paramlist || 'TM_DNIS' || '="' || l_dnis ||'" ';
206
207 END IF;
208
209 IF ( l_ani is not null ) THEN
210
211 l_paramlist := l_paramlist || 'TM_ANI' || '="' || l_ani ||'" ';
212
213 END IF;
214
215 IF ( l_mediaType is not null ) THEN
216
217 l_paramlist := l_paramlist || 'UWQ_MEDIATYPE' || '="' || l_mediatype ||'" ';
218
219 END IF;
220
221 IF ( l_mediaItemID is not null) THEN
222
223 l_paramlist := l_paramlist || 'UWQ_MEDIAITEM_ID' || '="' || l_mediaItemID || '" ';
224
225 END IF;
226
227 IF ( l_workitemID is not null ) THEN
228
229 l_paramlist := l_paramlist || 'UWQ_WORKITEM_ID' || '="' || l_workitemID ||'" ';
230
231 END IF;
232
233 IF ( l_sendername is not null ) THEN
234
235 l_paramlist := l_paramlist || 'EM_SENDERNAME' || '="' || l_sendername ||'" ';
236
237 END IF;
238
239 IF ( l_subject is not null ) THEN
240
241 l_paramlist := l_paramlist || 'EM_SUBJECT' || '="' || l_subject ||'" ';
242
243 END IF;
244
245 IF ( l_messageID is not null ) THEN
246
247 l_paramlist := l_paramlist || 'EM_MESSAGE_ID' || '="' || l_messageID ||'" ';
248
249 END IF;
250
251 IF (l_MoreAniMatch = 'Y') then
252
253 l_Usage := 'QUERY_ANI';
254
255 END IF;
256
257 IF ((l_usage is null) and (l_partyId = 0)) THEN
258
259 l_usage := 'QUERY_LKP';
260
261 END IF;
262
263 -- append the usage parameter
264 l_paramlist := l_paramlist || 'CALLED_FROM = "UWQ" ';
265
266 if (l_usage is not null) then
267 l_paramlist := l_paramlist || ' USAGE' || '="' || l_usage ||'" ';
268 end if;
269
270 if (l_dumpData = 'Y') then
271 FND_FILE.PUT_LINE(FND_FILE.OUTPUT, l_paramList);
272 FND_FILE.NEW_LINE(FND_FILE.OUTPUT, 2);
273 end if;
274
275 RETURN l_paramlist;
276
277 END constructparam;
278
279 -- procedure get details from event confirmation number
280 PROCEDURE getDtlsFromEvent IS
281
282 CURSOR C_GetEventDetails(x_eventConfCode varchar2) IS
283 SELECT registrant_party_Id,registrant_contact_Id,event_offer_Id
284 FROM ams_event_registrations_v
285 WHERE confirmation_code = x_eventConfCode;
286
287
288 BEGIN
289
290 OPEN C_GetEventDetails(l_eventConfCode);
291 FETCH C_GetEventDetails INTO l_partyId, l_contactId, l_eventId;
292 IF ( c_geteventdetails%NOTFOUND) THEN
293 l_partyId:=0;
294 l_contactid := 0;
295 l_eventid := 0;
296 END IF;
297 CLOSE C_GetEventDetails;
298 END getDtlsFromEvent;
299
300 PROCEDURE getcampaigncode IS
301
302 CURSOR c_campaignId(x_inbound_phone VARCHAR2) IS
303 SELECT campaign_id
304 FROM ams_campaigns_all_b
305 WHERE translate(inbound_phone_no,'0123456789()/\-. ','0123456789')=x_inbound_phone
306 AND status_code ='ACTIVE';
307
308 CURSOR c_campaigncode(x_campaigncode VARCHAR2) IS
309 SELECT campaign_id
310 FROM ams_p_campaigns_v
311 WHERE source_code = x_campaignCode
312 AND status_code ='ACTIVE';
313
314 BEGIN
315
316 IF ( l_campaigncode IS NOT NULL ) THEN
317 OPEN c_campaigncode(l_campaigncode);
318 FETCH c_campaigncode INTO l_campaignid;
319 IF ( c_campaigncode%found) THEN
320 CLOSE c_campaigncode;
321 RETURN;
322 END IF;
323 CLOSE c_campaigncode;
324 ELSIF ( l_dnis IS NOT NULL ) THEN
325 OPEN c_campaignid(l_dnis);
326 FETCH c_campaignid INTO l_campaignid;
327 IF ( c_campaignid%found) THEN
328 CLOSE c_campaignid;
329 RETURN;
330 END IF;
331 CLOSE c_campaignid;
332 END IF;
333
334 END;
335
336 -- procedure to get the collateral request Id from a collateral request confirmation
337 -- number
338 PROCEDURE getDtlsFromColReq IS
339
340 CURSOR C_getDtlsFromColReq(x_collateralReqNum number ) IS
341 SELECT quote_header_id,party_id,cust_account_id,l_contactid
342 FROM ASO_QUOTE_HEADERS_ALL
343 WHERE quote_number = x_collateralReqNum;
344 BEGIN
345
346 OPEN C_getDtlsFromColReq(To_number(l_collateralreqnum));
347 FETCH C_getDtlsFromColReq INTO l_collateralId,l_partyId, l_accountCode,l_contactId;
348 IF (c_getdtlsfromcolreq%Notfound )THEN
349 l_collateralid := 0;
350 END IF;
351 CLOSE C_getDtlsFromColReq;
352
353 END getDtlsFromColReq;
354
355 -- private procedure to get the partyId
356
357 PROCEDURE GetDtlsFromConNum IS
358
359
360 CURSOR C_getDtlsFromConNum(x_contactNum varchar2 ) IS
361 SELECT p.party_id, p.object_id
362 FROM JTF_PARTIES_V p, jtf_party_relationships_v rel
363 WHERE p.party_number = x_contactNum ;
364
365 BEGIN
366 OPEN C_getDtlsFromConNum (l_contactNumber);
367 FETCH C_getDtlsFromConNum INTO l_contactId, l_partyId ;
368 CLOSE C_getDtlsFromConNum;
369
370 END GetDtlsFromConNum;
371
372
373 PROCEDURE GetDtlsFromCustNum IS
374
375 CURSOR C_GetCustId(x_custnum VARCHAR2) IS
376 SELECT party_id
377 FROM jtf_parties_v
378 WHERE party_number = x_custnum;
379
380
381 BEGIN
382 OPEN c_getcustid(l_customernumber);
383 FETCH c_getcustid INTO l_partyId;
384 CLOSE c_getcustid;
385
386 END GetDtlsFromCustNum;
387
388 PROCEDURE GetDtlsFromAccountNum IS
389
390 CURSOR C_GetCustId(x_account_num VARCHAR2) IS
391 SELECT party_id
392 FROM hz_cust_accounts
393 WHERE account_number = x_account_num;
394
395
396 BEGIN
397 OPEN c_getcustid(l_accountCode);
398 FETCH c_getcustid INTO l_partyId;
399 CLOSE c_getcustid;
400
401 END GetDtlsFromAccountNum;
402
403 PROCEDURE GetDtlsFromPhoneNum IS
404
405 CURSOR C_getDtlsFromPhoneNum(x_phonenumber varchar2 ) IS
406 SELECT party_id, party_type
407 FROM JTF_CONTACT_POINTS_V
408 WHERE phone_number = x_phonenumber ;
409
410 CURSOR C_getDtlsFromAreaPhoneNum(x_AreaCode varchar2, x_phonenumber varchar2 ) IS
411 SELECT party_id, party_type
412 FROM JTF_CONTACT_POINTS_V
413 WHERE AREA_CODE = x_AreaCode and PHONE_NUMBER = x_phonenumber;
414 -- Changed for bug#7685201 by PNAVEENK on 5-1-2009
415 CURSOR C_GetSubObj(p_rel_partyid number) is
416 SELECT object_id, subject_id from
417 HZ_RELATIONSHIPS WHERE PARTY_ID = p_rel_partyid
418 AND SUBJECT_TABLE_NAME = 'HZ_PARTIES'
419 AND OBJECT_TABLE_NAME = 'HZ_PARTIES'
420 AND DIRECTIONAL_FLAG = 'F';
421 -- End for bug#7685201
422 l_rel_partyid number := NULL;
423 l_partyIDNext number;
424 l_partyTypeNext varchar2(50);
425 l_AreaCode varchar2(10);
426 l_PhoneNumber varchar2(25);
427
428
429 BEGIN
430
431 if length(l_ani) < 4 then
432 return;
433 end if;
434 if (l_PhoneAreaCodeYN = 'Y') then
435 OPEN C_getDtlsFromPhoneNum (l_ani);
436 FETCH C_getDtlsFromPhoneNum INTO l_partyId, l_partyType;
437 if C_getDtlsFromPhoneNum%FOUND then
438 FETCH C_getDtlsFromPhoneNum into l_partyIDNext, l_partyTypeNext;
439 IF C_GetDtlsFromPhoneNum%FOUND then
440 l_MoreAniMatch := 'Y';
441 End If;
442 end if;
443 CLOSE C_getDtlsFromPhoneNum;
444 else
445
446 l_AreaCode := substr(l_ani, 1, l_AreaCodeLength);
447 l_PhoneNumber := substr(l_ani, l_AreaCodeLength+1, l_PhoneNumberLength);
448 Open C_getDtlsFromAreaPhoneNum(l_AReaCode, l_PhoneNumber);
449 fetch C_getDtlsFromAreaPhoneNum INTO l_partyId, l_partyType;
450 IF C_getDtlsFromAreaPhoneNum%FOUND then
451 FETCH C_getDtlsFromAreaPhoneNum into l_partyIDNext, l_partyTypeNext;
452 If C_GetDtlsFromAreaPhoneNum%FOUND then
453 l_MoreAniMatch := 'Y';
454 end if;
455 end if;
456 CLOSE C_getDtlsFromAreaPhoneNum;
457
458 end if;
459
460 if l_PartyType = 'PARTY_RELATIONSHIP' Then
461
462 l_Usage := 'QUERY_CON';
463 open c_GetSubObj(l_partyid);
464 fetch c_GetSubObj into l_partyID, l_ContactID;
465 if (l_MoreAniMatch <> 'Y') then
466 l_PartyType := 'ORGANIZATION';
467 end if;
468 close C_GetSubObj;
469
470 elsif l_partyType = 'PERSON' then
471
472 l_Usage := 'QUERY_CONSUMER';
473
474 elsif l_partyType = 'ORGANIZATION' then
475
476 l_Usage := 'QUERY_ORG';
477
478 end if;
479
480 END GetDtlsFromPhoneNum;
481
482
483 PROCEDURE handleIEXInbound (p_mediaTable IN SYSTEM.IEU_UWQ_MEDIA_DATA_NST,
484 p_action_type OUT NOCOPY NUMBER,
485 p_action_name OUT NOCOPY varchar2,
486 p_action_param OUT NOCOPY varchar2) is
487
488 BEGIN
489 /*
490 insert into ast_uwq_params values ('handleOTSBound Called ');
491 commit;
492 */
493
494 --setCurrentForm('ASTTMPOP');
495 p_action_type :=1;
496 p_action_name := G_CurrentForm;
497 p_action_param := '';
498
499 setDefaults;
500 getCallData(p_mediaTable);
501
502 if (l_CampaignID = 0) and (l_profile = 'Y') then
503 getCampaignCode;
504 end if;
505
506 if ( l_eventConfCode is not null ) THEN
507
508 getDtlsFromEvent;
509
510 IF ( l_eventid <> 0 ) THEN
511 -- we found the match, hence we can query the event details
512 l_usage := 'QUERY_EVENT';
513
514 -- open the form using app_navigate.execute
515 p_action_param := constructParam;
516 return;
517
518 END IF;
519 END IF;
520
521 if ( l_collateralReqNum is not null ) then
522
523 getDtlsFromColReq;
524
525 IF (l_collateralid <> 0 ) then
526 l_usage := 'QUERY_COL';
527 p_action_param := constructParam;
528 return;
529 END IF;
530 END IF;
531
532 if ( l_AccountCode is not NULL ) then
533
534 getDtlsFromAccountNum;
535 IF ( l_partyId <> 0 ) THEN
536 l_usage := 'QUERY_CUST';
537 p_action_param := constructparam;
538 RETURN;
539 END IF;
540 end if;
541
542 if ( l_contactNumber is not NULL ) then
543
544 getDtlsFromConNum;
545 IF ( l_contactid <> 0 OR l_partyId <> 0 ) THEN
546 l_usage := 'QUERY_CON';
547 p_action_param := constructparam;
548 RETURN;
549 END IF;
550 end if;
551
552 if ( l_customerNumber is not null ) then
553
554 getDtlsFromCustNum;
555 IF ( l_partyId <> 0 ) THEN
556 l_usage := 'QUERY_CUST';
557 p_action_param := constructparam;
558 RETURN;
559 END IF;
560
561 END IF ;
562
563 IF (( l_partyId = 0) and (l_ani is not null )) THEN
564
565 GetDtlsFromPhoneNum;
566 p_action_param := constructparam;
567
568 Else
569 p_action_param := constructparam;
570 END IF;
571
572 /*
573 insert into ast_uwq_params values ('handleOTSBound exit : Action Name: '
574 || p_action_Name || ' Action Type : '
575 || to_char(p_action_Type) || ' Action Param: '
576 || p_action_Param );
577 commit;
578 */
579
580 END handleIEXInbound;
581
582 PROCEDURE handleEmail (p_mediaTable IN SYSTEM.IEU_UWQ_MEDIA_DATA_NST,
583 p_action_type OUT NOCOPY NUMBER,
584 p_action_name OUT NOCOPY varchar2,
585 p_action_param OUT NOCOPY varchar2) is
586
587 BEGIN
588 handleIEXInbound(p_mediaTable, p_action_type, p_action_name, p_action_param);
589 END;
590
591 PROCEDURE handleIEXOutbound (p_mediaTable IN SYSTEM.IEU_UWQ_MEDIA_DATA_NST,
592 p_action_type OUT NOCOPY NUMBER,
593 p_action_name OUT NOCOPY varchar2,
594 p_action_param OUT NOCOPY varchar2) IS
595 BEGIN
596
597 p_action_type :=1;
598 p_action_name := G_Currentform;
599 p_action_param := '';
600
601 setDefaults;
602 getCallData(p_mediaTable);
603 p_action_param := constructparam;
604
605 END handleIEXOutbound ;
606
607 PROCEDURE handleOOCInbound (p_mediaTable IN SYSTEM.IEU_UWQ_MEDIA_DATA_NST,
608 p_action_type OUT NOCOPY NUMBER,
609 p_action_name OUT NOCOPY varchar2,
610 p_action_param OUT NOCOPY varchar2) IS
611
612 BEGIN
613 setDefaults;
614 getCallData(p_mediaTable);
615 END;
616
617 Procedure setCurrentForm(p_formName varchar2) IS
618 BEGIN
619
620 G_CurrentForm := upper(p_formName);
621 END setCurrentForm ;
622
623 /*** begin 6197074 7/10/2007
624 added by kasreeni on 15th july 2007 by coping the same code from
625 from ast_uwq_sel_pkg.handleFooTask
626 ***/
627
628 PROCEDURE getFooData(p_mediaTable IN SYSTEM.IEU_UWQ_MEDIA_DATA_NST) IS
629 BEGIN
630
631 FOR i IN 1 .. p_mediaTable.COUNT LOOP
632
633 if ( upper(p_mediaTable(i).param_name) = 'TASK_ID' ) then
634 l_task_id := p_mediaTable(i).param_value;
635
636 elsif ( upper(p_mediaTable(i).param_name) = 'PARTY_ID' ) then
637 l_nm_party_id := p_mediaTable(i).param_value;
638
639 elsif ( upper(p_mediaTable(i).param_name) = 'SOURCE_OBJECT_TYPE' ) then
640 l_source_object_type := p_mediaTable(i).param_value;
641
642 elsif ( upper(p_mediaTable(i).param_name) = 'SOURCE_CODE_ID' ) then
643 l_source_Code_id := p_mediaTable(i).param_value;
644
645 elsif ( upper(p_mediaTable(i).param_name) = 'SOURCE_CODE' ) then
646 l_source_Code := p_mediaTable(i).param_value;
647
648 elsif ( upper(p_mediaTable(i).param_name) = 'SCHEDULE_ID' ) then
649 l_source_campaign_id := p_mediaTable(i).param_value;
650
651 END IF;
652
653 END LOOP;
654
655 END getFooData ;
656 -- Start bug 6197074 gnramasa 27/July-07
657 PROCEDURE handleFooTask (p_mediaTable IN SYSTEM.IEU_UWQ_MEDIA_DATA_NST,
658 p_action_type OUT NOCOPY NUMBER,
659 p_action_name OUT NOCOPY varchar2,
660 p_action_param OUT NOCOPY varchar2)
661 is
662 BEGIN
663 iex_debug_pub.LogMessage('IEX_UWQ_SEL_PKG.handleFooTask :Begin ++');
664 l_task_id := '';
665 l_source_code := '';
666 l_source_code_id := '';
667 l_source_campaign_id := 0;
668 l_nm_party_id := 0;
669
670 iex_debug_pub.LogMessage('Calling getFooData ++');
671 getFooData(p_mediaTable);
672 iex_debug_pub.LogMessage('Returned from getFooData --');
673 iex_debug_pub.LogMessage('IEX_UWQ_SEL_PKG.handleFooTask :l_nm_PARTY_ID' || l_nm_PARTY_ID);
674 iex_debug_pub.LogMessage('IEX_UWQ_SEL_PKG.handleFooTask :l_Task_ID' || l_Task_ID);
675 /*
676 If l_nm_party_id <> 0 then
677 p_action_name := 'IEXRCALL';
678
679 if l_source_code is not null then
680 if l_source_code_id is null and l_source_campaign_id is not null then
681 open c_source_code_id(l_source_campaign_id, l_source_code);
682 fetch c_source_code_id into l_source_code_id;
683 close c_source_code_id;
684 elsif l_source_code_id is null and l_source_campaign_id is null then
685 open c2_source_code_id(l_source_code);
686 fetch c2_source_code_id into l_source_code_id;
687 close c2_source_code_id;
688 end if;
689 end if;
690
691 p_action_param := 'PARTY_ID=' || l_nm_PARTY_ID ||' SOURCE_CAMPAIGN_ID=' || l_source_code_id;
692 p_action_type := 2;
693
694 elsif (l_source_object_type in ('Party', 'IEX_ACCOUNT', 'IEX_BILLTO', 'IEX_CASES',
695 'IEX_DUNNING', 'IEX_INVOICES', 'IEX_PROMISE', 'IEX_DISPUTE',
696 'IEX_DELINQUENCY', 'IEX_STRATEGY', 'IEX_WORKIEM')) then
697 p_action_name := 'IEXRCALL' ;
698 p_action_param := 'USAGE=QUERY_TASK TASK_ID='|| l_Task_ID ;
699 p_action_type := 1;
700 else
701 p_action_name := 'JTFTKMAN' ;
702 p_action_param := 'TASK_ID=' || l_Task_ID;
703 p_action_type := 2;
704 end if ;
705 p_msg_name := 'NULL' ;
706 p_msg_param := 'NULL' ;
707 p_dialog_style := 1; */ /* IEU_DS_CONSTS_PUB.G_DS_NONE ; */
708 -- p_msg_appl_short_name := 'NULL' ;
709
710 If l_nm_PARTY_ID IS NULL OR l_nm_PARTY_ID=0 then
711 SELECT customer_id
712 INTO l_nm_PARTY_ID
713 from jtf_tasks_b
714 WHERE task_id=l_Task_ID;
715 END if;
716 iex_debug_pub.LogMessage('IEX_UWQ_SEL_PKG.handleFooTask :final l_nm_PARTY_ID' || l_nm_PARTY_ID);
717 If l_nm_PARTY_ID IS NULL OR l_nm_PARTY_ID=0 then
718 iex_debug_pub.LogMessage('IEX_UWQ_SEL_PKG.handleFooTask :Party_id is NULL, So opening the Task manager screen instead of IEXRCALL');
719 p_action_name := 'JTFTKMAN' ;
720 p_action_param := 'TASK_ID=' || l_Task_ID;
721 p_action_type := 2;
722 ELSE
723 p_action_name := 'IEXRCALL' ;
724 p_action_param := 'PARTY_ID=' || l_nm_PARTY_ID || ' USAGE=QUERY_TASK TASK_ID='|| l_Task_ID ;
725 p_action_type := 1;
726 END IF;
727
728 /*
729 p_msg_name := 'NULL' ;
730 p_msg_param := 'NULL' ;
731 p_dialog_style := 1; *//* IEU_DS_CONSTS_PUB.G_DS_NONE ; */
732 /* p_msg_appl_short_name := 'NULL' ; */
733 END handleFooTask ;
734
735 /*** kasreeni end 6197074 7/10/2007 */
736 -- End bug 6197074 gnramasa 27/July-07
737 BEGIN
738 l_Profile := NVL(FND_PROFILE.VALUE('AST_MATCH_CAMP_DNIS'), 'N');
739 l_PhoneAreaCodeYN := NVL(FND_PROFILE.VALUE('AST_ANI_WITHOUT_AREACODE'), 'N');
740 l_AreaCodeLength := NVL(FND_PROFILE.VALUE('AST_AREA_CODE_LENGTH'), 3);
741 l_PhoneNumberLength := NVL(FND_PROFILE.VALUE('AST_PHONE_NUMBER_LENGTH'), 7);
742 l_DumpData := NVL(FND_PROFILE.VALUE('AST_DUMP_PARAMS'), 'N');
743
744 END IEX_UWQ_SEL_PKG;