[Home] [Help]
99: l_itemType VARCHAR2(100) := 'APCCARD';
100: l_itemKey VARCHAR2(100);
101: l_employeeName wf_users.name%type;
102: l_employeeDisplayName wf_users.display_name%type;
103: l_threshold number := wf_engine.threshold;
104: l_debugInfo VARCHAR2(200);
105: l_account IBY_EXT_BANK_ACCOUNTS.BANK_ACCOUNT_NUM%TYPE := NULL;
106: l_invoiceNum AP_EXPENSE_REPORT_HEADERS_ALL.INVOICE_NUM%TYPE;
107:
110: ------------------------------------------------------------
111: l_debugInfo := 'Set WF threshold to defer this WF process';
112: ------------------------------------------------------------
113: if (p_deferred) then
114: wf_engine.threshold := -1;
115: end if;
116:
117: l_itemKey := GetNextCardNotificationID;
118:
131: l_debugInfo := 'Calling WorkFlow Create Process';
132: --------------------------------------------------
133:
134: if (p_paymentTo is not null AND p_paymentTo = c_paymentToCardIssuer) then
135: WF_ENGINE.CreateProcess(l_itemType, l_itemKey, 'PAYMENT_TO_CARD_ISSUER');
136: elsif (p_paymentTo is not null AND p_paymentTo = c_voidPayment) then
137: WF_ENGINE.CreateProcess(l_itemType, l_itemKey, 'VOID_PAYMENT_PROCESS');
138: elsif (p_paymentMethod = c_directDeposit and p_paidAmount<>0) then
139: WF_ENGINE.CreateProcess(l_itemType, l_itemKey, 'PAYMENT_TO_EMPLOYEE');
133:
134: if (p_paymentTo is not null AND p_paymentTo = c_paymentToCardIssuer) then
135: WF_ENGINE.CreateProcess(l_itemType, l_itemKey, 'PAYMENT_TO_CARD_ISSUER');
136: elsif (p_paymentTo is not null AND p_paymentTo = c_voidPayment) then
137: WF_ENGINE.CreateProcess(l_itemType, l_itemKey, 'VOID_PAYMENT_PROCESS');
138: elsif (p_paymentMethod = c_directDeposit and p_paidAmount<>0) then
139: WF_ENGINE.CreateProcess(l_itemType, l_itemKey, 'PAYMENT_TO_EMPLOYEE');
140: elsif(p_paidAmount<>0) then
141: WF_ENGINE.CreateProcess(l_itemType, l_itemKey, 'PAYMENT_TO_EMP_BY_CHECK');
135: WF_ENGINE.CreateProcess(l_itemType, l_itemKey, 'PAYMENT_TO_CARD_ISSUER');
136: elsif (p_paymentTo is not null AND p_paymentTo = c_voidPayment) then
137: WF_ENGINE.CreateProcess(l_itemType, l_itemKey, 'VOID_PAYMENT_PROCESS');
138: elsif (p_paymentMethod = c_directDeposit and p_paidAmount<>0) then
139: WF_ENGINE.CreateProcess(l_itemType, l_itemKey, 'PAYMENT_TO_EMPLOYEE');
140: elsif(p_paidAmount<>0) then
141: WF_ENGINE.CreateProcess(l_itemType, l_itemKey, 'PAYMENT_TO_EMP_BY_CHECK');
142: end if;
143:
137: WF_ENGINE.CreateProcess(l_itemType, l_itemKey, 'VOID_PAYMENT_PROCESS');
138: elsif (p_paymentMethod = c_directDeposit and p_paidAmount<>0) then
139: WF_ENGINE.CreateProcess(l_itemType, l_itemKey, 'PAYMENT_TO_EMPLOYEE');
140: elsif(p_paidAmount<>0) then
141: WF_ENGINE.CreateProcess(l_itemType, l_itemKey, 'PAYMENT_TO_EMP_BY_CHECK');
142: end if;
143:
144: ----------------------------------------------------------
145: l_debugInfo := 'Set WF EXPENSE_REPORT_NUMBER Item Attribute';
167: l_invoiceNum := p_invoiceNumber;
168:
169: END IF;
170:
171: WF_ENGINE.SetItemAttrText(l_itemType,
172: l_itemKey,
173: 'EXPENSE_REPORT_NUMBER',
174: l_invoiceNum);
175: ----------------------------------------------------------
174: l_invoiceNum);
175: ----------------------------------------------------------
176: l_debugInfo := 'Set WF Amount Item Attribute';
177: ----------------------------------------------------------
178: WF_ENGINE.SetItemAttrText(l_itemType,
179: l_itemKey,
180: 'AMOUNT',
181: to_char(p_paidAmount, FND_CURRENCY.Get_Format_Mask(p_paymentCurrency,22)) || ' ' || p_paymentCurrency);
182:
182:
183: ----------------------------------------------------------
184: l_debugInfo := 'Set CURRENCY Item Attribute';
185: ----------------------------------------------------------
186: WF_ENGINE.SetItemAttrText(l_itemType,
187: l_itemKey,
188: 'CURRENCY',
189: p_paymentCurrency);
190:
190:
191: ----------------------------------------------------------
192: l_debugInfo := 'Set the Owner of Workflow Process.';
193: ----------------------------------------------------------
194: WF_ENGINE.SetItemOwner(l_itemType, l_itemKey, l_employeeName);
195:
196: ------------------------------------------------------
197: l_debugInfo := 'Set WF EMPLOYEE_NAME Item Attribute';
198: ------------------------------------------------------
195:
196: ------------------------------------------------------
197: l_debugInfo := 'Set WF EMPLOYEE_NAME Item Attribute';
198: ------------------------------------------------------
199: WF_ENGINE.SetItemAttrText(l_itemType,
200: l_itemKey,
201: 'EMPLOYEE_NAME',
202: l_employeeName);
203:
203:
204: --------------------------------------------------------------
205: l_debugInfo := 'Set WF EMPLOYEE_DISPLAY_NAME Item Attribute';
206: --------------------------------------------------------------
207: WF_ENGINE.SetItemAttrText(l_itemType,
208: l_itemKey,
209: 'EMP_DISPLAY_NAME',
210: l_employeeDisplayName);
211:
211:
212: ------------------------------------------------------
213: l_debugInfo := 'Set WF Employee_ID Item Attribute';
214: ------------------------------------------------------
215: WF_ENGINE.SetItemAttrNumber(l_itemType,
216: l_itemKey,
217: 'EMPLOYEE_ID',
218: p_employeeId);
219: ------------------------------------------------------
218: p_employeeId);
219: ------------------------------------------------------
220: l_debugInfo := 'Set WF CHECK_NUMBER Item Attribute';
221: ------------------------------------------------------
222: WF_ENGINE.SetItemAttrText(l_itemType,
223: l_itemKey,
224: 'CHECK_NUMBER',
225: to_char(p_checkNumber));
226:
228: if (p_paymentTo is not null AND p_paymentTo = c_paymentToCardIssuer) then
229: ------------------------------------------------------
230: l_debugInfo := 'Set WF CREDIT_CARD_COMPANY Item Attribute';
231: ------------------------------------------------------
232: WF_ENGINE.SetItemAttrText(l_itemType,
233: l_itemKey,
234: 'CREDIT_CARD_COMPANY',
235: p_cardIssuer);
236: ------------------------------------------------------
235: p_cardIssuer);
236: ------------------------------------------------------
237: l_debugInfo := 'Set WF PAYMENT_DATE Item Attribute';
238: ------------------------------------------------------
239: WF_ENGINE.SetItemAttrText(l_itemType,
240: l_itemKey,
241: 'PAYMENT_DATE',
242: p_paymentDate);
243: else -- payment to employee
244: if (p_paymentMethod = c_directDeposit) then
245: ------------------------------------------------------
246: l_debugInfo := 'Set WF BANK_ACCOUNT Item Attribute';
247: ------------------------------------------------------
248: WF_ENGINE.SetItemAttrText(l_itemType,
249: l_itemKey,
250: 'BANK_ACCOUNT',
251: l_account);
252:
252:
253: ------------------------------------------------------
254: l_debugInfo := 'Set WF BANK_NAME Item Attribute';
255: ------------------------------------------------------
256: WF_ENGINE.SetItemAttrText(l_itemType,
257: l_itemKey,
258: 'BANK_NAME',
259: p_bankName);
260: end if; -- p_paymentMethod = c_directDeposit
264: BEGIN
265: ------------------------------------------------------------
266: l_debugInfo := 'Start the Expense Report Workflow Process';
267: ------------------------------------------------------------
268: WF_ENGINE.StartProcess(l_itemType,
269: l_itemKey);
270:
271: EXCEPTION
272: WHEN OTHERS THEN
269: l_itemKey);
270:
271: EXCEPTION
272: WHEN OTHERS THEN
273: wf_engine.threshold := l_threshold;
274: Wf_Core.Context('AP_WEB_CREDIT_CARD_WF', 'sendNotification',
275: l_itemType, l_itemKey, to_char(0), l_debugInfo);
276: raise;
277: END;
275: l_itemType, l_itemKey, to_char(0), l_debugInfo);
276: raise;
277: END;
278:
279: wf_engine.threshold := l_threshold;
280:
281: EXCEPTION
282: WHEN OTHERS THEN
283: IF (SQLCODE <> -20001) THEN
360:
361: --------------------------------------------------
362: l_debugInfo := 'Calling WorkFlow Create Process';
363: --------------------------------------------------
364: WF_ENGINE.CreateProcess(l_itemType, l_itemKey, 'UNSUBMITTED_CHARGES');
365:
366: ----------------------------------------------------------
367: l_debugInfo := 'Set WF Amount Item Attribute';
368: ----------------------------------------------------------
365:
366: ----------------------------------------------------------
367: l_debugInfo := 'Set WF Amount Item Attribute';
368: ----------------------------------------------------------
369: WF_ENGINE.SetItemAttrText(l_itemType, l_itemKey, 'AMOUNT',
370: to_char(p_Amount, FND_CURRENCY.Get_Format_Mask(p_currency,22)) || ' ' || p_currency);
371:
372: ----------------------------------------------------------
373: l_debugInfo := 'Set CURRENCY Item Attribute';
371:
372: ----------------------------------------------------------
373: l_debugInfo := 'Set CURRENCY Item Attribute';
374: ----------------------------------------------------------
375: WF_ENGINE.SetItemAttrText(l_itemType, l_itemKey, 'CURRENCY',p_currency);
376:
377: ----------------------------------------------------------
378: l_debugInfo := 'Set the Owner of Workflow Process.';
379: ----------------------------------------------------------
376:
377: ----------------------------------------------------------
378: l_debugInfo := 'Set the Owner of Workflow Process.';
379: ----------------------------------------------------------
380: WF_ENGINE.SetItemOwner(l_itemType, l_itemKey, l_employeeName);
381:
382: ------------------------------------------------------
383: l_debugInfo := 'Set WF EMPLOYEE_ID Item Attribute';
384: ------------------------------------------------------
381:
382: ------------------------------------------------------
383: l_debugInfo := 'Set WF EMPLOYEE_ID Item Attribute';
384: ------------------------------------------------------
385: WF_ENGINE.SetItemAttrNumber(l_itemType, l_itemKey, 'EMPLOYEE_ID', p_employeeId);
386:
387: ------------------------------------------------------
388: l_debugInfo := 'Set WF EMPLOYEE_NAME Item Attribute';
389: ------------------------------------------------------
386:
387: ------------------------------------------------------
388: l_debugInfo := 'Set WF EMPLOYEE_NAME Item Attribute';
389: ------------------------------------------------------
390: WF_ENGINE.SetItemAttrText(l_itemType, l_itemKey, 'EMPLOYEE_NAME', l_employeeName);
391:
392: --------------------------------------------------------------
393: l_debugInfo := 'Set WF EMPLOYEE_DISPLAY_NAME Item Attribute';
394: --------------------------------------------------------------
391:
392: --------------------------------------------------------------
393: l_debugInfo := 'Set WF EMPLOYEE_DISPLAY_NAME Item Attribute';
394: --------------------------------------------------------------
395: WF_ENGINE.SetItemAttrText(l_itemType, l_itemKey, 'EMP_DISPLAY_NAME', l_employeeDisplayName);
396:
397: ------------------------------------------------------
398: l_debugInfo := 'Set WF MANAGER_NAME Item Attribute';
399: ------------------------------------------------------
396:
397: ------------------------------------------------------
398: l_debugInfo := 'Set WF MANAGER_NAME Item Attribute';
399: ------------------------------------------------------
400: WF_ENGINE.SetItemAttrText(l_itemType, l_itemKey, 'MANAGER_NAME', l_managerName);
401:
402: ------------------------------------------------------
403: l_debugInfo := 'Set WF CREDIT_CARD_COMPANY Item Attribute';
404: ------------------------------------------------------
401:
402: ------------------------------------------------------
403: l_debugInfo := 'Set WF CREDIT_CARD_COMPANY Item Attribute';
404: ------------------------------------------------------
405: WF_ENGINE.SetItemAttrText(l_itemType, l_itemKey, 'CREDIT_CARD_COMPANY', p_cardIssuer);
406:
407: --------------------------------------------------------------
408: l_debugInfo := 'Set WF CREDIT_CARD_COMPANY Item Attribute';
409: --------------------------------------------------------------
411: l_cardProgramID ) ) THEN
412: NULL;
413: END IF;
414:
415: WF_ENGINE.SetItemAttrNumber(l_itemType, l_itemKey, 'CARD_PROG_ID', l_cardProgramID);
416:
417: --------------------------------------------------------------
418: l_debugInfo := 'Get and Set ORG_ID attribute ';
419: --------------------------------------------------------------
417: --------------------------------------------------------------
418: l_debugInfo := 'Get and Set ORG_ID attribute ';
419: --------------------------------------------------------------
420: FND_PROFILE.GET('ORG_ID' , l_orgId );
421: WF_ENGINE.SetItemAttrNumber(l_itemType, l_itemKey, 'ORG_ID', l_orgId);
422:
423: ------------------------------------------------------
424: l_debugInfo := 'Set WF DATE1 Item Attribute';
425: ------------------------------------------------------
422:
423: ------------------------------------------------------
424: l_debugInfo := 'Set WF DATE1 Item Attribute';
425: ------------------------------------------------------
426: WF_ENGINE.SetItemAttrText(l_itemType, l_itemKey, 'DATE1', p_date1);
427:
428: ------------------------------------------------------
429: l_debugInfo := 'Set WF DATE2 Item Attribute';
430: ------------------------------------------------------
427:
428: ------------------------------------------------------
429: l_debugInfo := 'Set WF DATE2 Item Attribute';
430: ------------------------------------------------------
431: WF_ENGINE.SetItemAttrText(l_itemType, l_itemKey, 'DATE2', p_date2);
432:
433: ------------------------------------------------------
434: l_debugInfo := 'Set Charge Type Item Attribute';
435: ------------------------------------------------------
432:
433: ------------------------------------------------------
434: l_debugInfo := 'Set Charge Type Item Attribute';
435: ------------------------------------------------------
436: WF_ENGINE.SetItemAttrText(l_itemType, l_itemKey, 'CHARGE_TYPE', p_charge_type);
437:
438: -- Bug 6886855 (sodash) setting the attribute MIN_AMOUNT
439: ------------------------------------------------------
440: l_debugInfo := 'Set WF MIN_AMOUNT Item Attribute';
438: -- Bug 6886855 (sodash) setting the attribute MIN_AMOUNT
439: ------------------------------------------------------
440: l_debugInfo := 'Set WF MIN_AMOUNT Item Attribute';
441: ------------------------------------------------------
442: WF_ENGINE.SetItemAttrNumber(l_itemType, l_itemKey, 'MIN_AMOUNT', p_min_amount);
443:
444: ------------------------------------------------------
445: l_debugInfo := 'Set Send Notifications Item Attribute';
446: ------------------------------------------------------
443:
444: ------------------------------------------------------
445: l_debugInfo := 'Set Send Notifications Item Attribute';
446: ------------------------------------------------------
447: WF_ENGINE.setItemAttrText(l_itemType, l_itemKey, 'SEND_NOTIFICATIONS_PARAM',p_send_notifications); -- Bug 6026927
448:
449:
450: FND_MESSAGE.SET_NAME('SQLAP','OIE_CC_FIRST_DUNNING');
451: l_instructions := FND_MESSAGE.GET;
453: FND_MESSAGE.SET_NAME('SQLAP','OIE_CC_MGR_FIRST_INSTR');
454: FND_MESSAGE.SET_TOKEN('EMPLOYEE_NAME', l_employeeDisplayName);
455: l_mgr_instructions := FND_MESSAGE.GET;
456:
457: WF_ENGINE.SetItemAttrText(l_itemType, l_itemKey, 'DUNNING_INSTR', l_instructions);
458: WF_ENGINE.SetItemAttrText(l_itemType, l_itemKey, 'MANAGER_INSTR', l_mgr_instructions);
459:
460: --------------------------------------------------------------
461: l_debugInfo := 'Set NUM_RECORDS value ';
454: FND_MESSAGE.SET_TOKEN('EMPLOYEE_NAME', l_employeeDisplayName);
455: l_mgr_instructions := FND_MESSAGE.GET;
456:
457: WF_ENGINE.SetItemAttrText(l_itemType, l_itemKey, 'DUNNING_INSTR', l_instructions);
458: WF_ENGINE.SetItemAttrText(l_itemType, l_itemKey, 'MANAGER_INSTR', l_mgr_instructions);
459:
460: --------------------------------------------------------------
461: l_debugInfo := 'Set NUM_RECORDS value ';
462: --------------------------------------------------------------
459:
460: --------------------------------------------------------------
461: l_debugInfo := 'Set NUM_RECORDS value ';
462: --------------------------------------------------------------
463: WF_ENGINE.SetItemAttrText(l_itemType,
464: l_itemKey,
465: 'RECORDS_INSTR',
466: 'plsql:AP_WEB_CREDIT_CARD_WF.getNumofUnsubmittedRecords/'||l_itemType||':'||l_itemKey);
467:
468:
469: --------------------------------------------------------------
470: l_debugInfo := 'Set LIST value ';
471: --------------------------------------------------------------
472: WF_ENGINE.SetItemAttrText(l_itemType,
473: l_itemKey,
474: 'LIST',
475: 'plsqlclob:AP_WEB_CREDIT_CARD_WF.genUnsubmittedClobList/'||l_itemType||':'||l_itemKey);
476:
473: l_itemKey,
474: 'LIST',
475: 'plsqlclob:AP_WEB_CREDIT_CARD_WF.genUnsubmittedClobList/'||l_itemType||':'||l_itemKey);
476:
477: WF_ENGINE.SetItemAttrText(l_itemType,
478: l_itemKey,
479: 'OIE_LIST',
480: 'JSP:/OA_HTML/OA.jsp?akRegionCode=UnSubmittedChargesRN&akRegionApplicationId=200&itemKey='||l_itemKey||'&mgrList='||'N'||'&orgId='||l_orgId);
481:
478: l_itemKey,
479: 'OIE_LIST',
480: 'JSP:/OA_HTML/OA.jsp?akRegionCode=UnSubmittedChargesRN&akRegionApplicationId=200&itemKey='||l_itemKey||'&mgrList='||'N'||'&orgId='||l_orgId);
481:
482: WF_ENGINE.SetItemAttrText(l_itemType,
483: l_itemKey,
484: 'MGR_LIST',
485: 'JSP:/OA_HTML/OA.jsp?akRegionCode=UnSubmittedChargesRN&akRegionApplicationId=200&itemKey='||l_itemKey||'&mgrList='||'Y'||'&name='||l_employeeDisplayName||'&orgId='||l_orgId);
486:
487: BEGIN
488: ------------------------------------------------------------
489: l_debugInfo := 'Start the Expense Report Workflow Process';
490: ------------------------------------------------------------
491: WF_ENGINE.StartProcess(l_itemType, l_itemKey);
492:
493: EXCEPTION
494: WHEN OTHERS THEN
495: Wf_Core.Context('AP_WEB_CREDIT_CARD_WF', 'sendNotification',
627:
628: --------------------------------------------------
629: l_debugInfo := 'Calling WorkFlow Create Process';
630: --------------------------------------------------
631: WF_ENGINE.CreateProcess(l_itemType, l_itemKey, 'DUNNING_NOTIFICATIONS');
632:
633: ----------------------------------------------------------
634: l_debugInfo := 'Set the Owner of Workflow Process.';
635: ----------------------------------------------------------
632:
633: ----------------------------------------------------------
634: l_debugInfo := 'Set the Owner of Workflow Process.';
635: ----------------------------------------------------------
636: WF_ENGINE.SetItemOwner(l_itemType, l_itemKey, l_employeeName);
637:
638: ----------------------------------------------------------
639: l_debugInfo := 'Set the Subject';
640: ----------------------------------------------------------
684: l_mgr_esc_instructions := FND_MESSAGE.GET;
685:
686: end if;
687:
688: WF_ENGINE.SetItemAttrText(l_itemType, l_itemKey, 'DUNNING_INSTR', l_instructions);
689: WF_ENGINE.SetItemAttrText(l_itemType, l_itemKey, 'MANAGER_INSTR', l_mgr_instructions);
690:
691: --Direct Report
692:
685:
686: end if;
687:
688: WF_ENGINE.SetItemAttrText(l_itemType, l_itemKey, 'DUNNING_INSTR', l_instructions);
689: WF_ENGINE.SetItemAttrText(l_itemType, l_itemKey, 'MANAGER_INSTR', l_mgr_instructions);
690:
691: --Direct Report
692:
693:
691: --Direct Report
692:
693:
694: IF (p_dunning_number = 1 ) THEN
695: WF_ENGINE.SetItemAttrText(l_itemType, l_itemKey, 'FIRST_DUNNING', 'Y');
696: ELSE
697: WF_ENGINE.SetItemAttrText(l_itemType, l_itemKey, 'FIRST_DUNNING', 'N');
698: END IF;
699:
693:
694: IF (p_dunning_number = 1 ) THEN
695: WF_ENGINE.SetItemAttrText(l_itemType, l_itemKey, 'FIRST_DUNNING', 'Y');
696: ELSE
697: WF_ENGINE.SetItemAttrText(l_itemType, l_itemKey, 'FIRST_DUNNING', 'N');
698: END IF;
699:
700: FND_MESSAGE.SET_NAME('SQLAP','OIE_CC_MGR_ESC_ADD_INSTR');
701: l_mgr_esc_add_instructions := FND_MESSAGE.GET;
700: FND_MESSAGE.SET_NAME('SQLAP','OIE_CC_MGR_ESC_ADD_INSTR');
701: l_mgr_esc_add_instructions := FND_MESSAGE.GET;
702:
703:
704: WF_ENGINE.SetItemAttrText(l_itemType, l_itemKey, 'MGR_ESC_INSTR', l_mgr_esc_instructions);
705: WF_ENGINE.SetItemAttrText(l_itemType, l_itemKey, 'MGR_ESC_ADD_INSTR', l_mgr_esc_add_instructions);
706:
707:
708: FND_MESSAGE.SET_NAME('SQLAP','OIE_CC_NEXT_MGR_ESC_INSTR');
701: l_mgr_esc_add_instructions := FND_MESSAGE.GET;
702:
703:
704: WF_ENGINE.SetItemAttrText(l_itemType, l_itemKey, 'MGR_ESC_INSTR', l_mgr_esc_instructions);
705: WF_ENGINE.SetItemAttrText(l_itemType, l_itemKey, 'MGR_ESC_ADD_INSTR', l_mgr_esc_add_instructions);
706:
707:
708: FND_MESSAGE.SET_NAME('SQLAP','OIE_CC_NEXT_MGR_ESC_INSTR');
709: l_next_mgr_esc_instr := FND_MESSAGE.GET;
706:
707:
708: FND_MESSAGE.SET_NAME('SQLAP','OIE_CC_NEXT_MGR_ESC_INSTR');
709: l_next_mgr_esc_instr := FND_MESSAGE.GET;
710: WF_ENGINE.SetItemAttrText(l_itemType, l_itemKey, 'MGR_NEXT_ESC_INSTR', l_next_mgr_esc_instr);
711:
712: WF_ENGINE.SetItemAttrText(l_itemType, l_itemKey, 'MGR_NEXT_ESC_ADD_INSTR', l_mgr_esc_add_instructions);
713:
714:
708: FND_MESSAGE.SET_NAME('SQLAP','OIE_CC_NEXT_MGR_ESC_INSTR');
709: l_next_mgr_esc_instr := FND_MESSAGE.GET;
710: WF_ENGINE.SetItemAttrText(l_itemType, l_itemKey, 'MGR_NEXT_ESC_INSTR', l_next_mgr_esc_instr);
711:
712: WF_ENGINE.SetItemAttrText(l_itemType, l_itemKey, 'MGR_NEXT_ESC_ADD_INSTR', l_mgr_esc_add_instructions);
713:
714:
715: --Amulya Mishra : Notification Esc Project
716:
716:
717: FND_MESSAGE.SET_NAME('SQLAP','OIE_ADD_INFO_DUNNING');
718: FND_MESSAGE.SET_TOKEN('days', nvl(p_grace_days,0));
719: l_add_instructions := FND_MESSAGE.GET;
720: WF_ENGINE.SetItemAttrText(l_itemType, l_itemKey, 'ADD_INSTRUCTIONS', l_add_instructions);
721:
722: FND_MESSAGE.SET_NAME('SQLAP','OIE_NOTES_DUNNING');
723: l_notes := FND_MESSAGE.GET;
724: WF_ENGINE.SetItemAttrText(l_itemType, l_itemKey, 'NOTES', l_notes);
720: WF_ENGINE.SetItemAttrText(l_itemType, l_itemKey, 'ADD_INSTRUCTIONS', l_add_instructions);
721:
722: FND_MESSAGE.SET_NAME('SQLAP','OIE_NOTES_DUNNING');
723: l_notes := FND_MESSAGE.GET;
724: WF_ENGINE.SetItemAttrText(l_itemType, l_itemKey, 'NOTES', l_notes);
725:
726: --determining SUP1 and SUP2
727:
728:
794: FND_MESSAGE.SET_NAME('SQLAP','OIE_CC_MGR_NTF_DUNNING');
795: FND_MESSAGE.SET_TOKEN('SUP1', l_managerDisplayName);
796: FND_MESSAGE.SET_TOKEN('SUP2', l_sup2_manager_display_name);
797: l_mgmt_instructions := FND_MESSAGE.GET;
798: WF_ENGINE.SetItemAttrText(l_itemType, l_itemKey, 'MGMT_INSTR', l_mgmt_instructions);
799:
800: IF (p_dunning_number = 1) THEN
801:
802: FND_MESSAGE.SET_NAME('SQLAP','OIE_CC_MGR_ESC_NTF_DUNNING1');
810: FND_MESSAGE.SET_TOKEN('SUP2', l_sup2_manager_display_name);
811: l_mgr_esc_mgmt_instructions := FND_MESSAGE.GET;
812:
813: END IF;
814: WF_ENGINE.SetItemAttrText(l_itemType, l_itemKey, 'MGMT_ESC_INSTR', l_mgr_esc_mgmt_instructions);
815:
816: FND_MESSAGE.SET_NAME('SQLAP','OIE_CC_NEXT_MGR_ESC_NTF');
817: FND_MESSAGE.SET_TOKEN('SUP1', l_sup2_manager_display_name);
818: l_next_mgr_esc_mgmt_instr := FND_MESSAGE.GET;
815:
816: FND_MESSAGE.SET_NAME('SQLAP','OIE_CC_NEXT_MGR_ESC_NTF');
817: FND_MESSAGE.SET_TOKEN('SUP1', l_sup2_manager_display_name);
818: l_next_mgr_esc_mgmt_instr := FND_MESSAGE.GET;
819: WF_ENGINE.SetItemAttrText(l_itemType, l_itemKey, 'MGMT_NEXT_ESC_INSTR', l_next_mgr_esc_mgmt_instr);
820:
821:
822: ELSIF (p_dunning_number = 4 OR l_sup2_manager_display_name IS NULL OR l_managerDisplayName = l_sup2_manager_display_name) THEN
823:
823:
824: FND_MESSAGE.SET_NAME('SQLAP','OIE_CC_LAST_MGR_NTF_DUNNING');
825: FND_MESSAGE.SET_TOKEN('SUP1', l_managerDisplayName);
826: l_mgmt_instructions := FND_MESSAGE.GET;
827: WF_ENGINE.SetItemAttrText(l_itemType, l_itemKey, 'MGMT_INSTR', l_mgmt_instructions);
828:
829: FND_MESSAGE.SET_NAME('SQLAP','OIE_CC_MGR_ESC_LAST_NTF_DUNN');
830: FND_MESSAGE.SET_TOKEN('SUP2', l_managerDisplayName);
831: l_mgr_esc_mgmt_instructions := FND_MESSAGE.GET;
828:
829: FND_MESSAGE.SET_NAME('SQLAP','OIE_CC_MGR_ESC_LAST_NTF_DUNN');
830: FND_MESSAGE.SET_TOKEN('SUP2', l_managerDisplayName);
831: l_mgr_esc_mgmt_instructions := FND_MESSAGE.GET;
832: WF_ENGINE.SetItemAttrText(l_itemType, l_itemKey, 'MGMT_ESC_INSTR', l_mgr_esc_mgmt_instructions);
833:
834: FND_MESSAGE.SET_NAME('SQLAP','OIE_CC_NEXT_MGR_ESC_LAST_NTF');
835: l_next_mgr_esc_mgmt_instr := FND_MESSAGE.GET;
836: WF_ENGINE.SetItemAttrText(l_itemType, l_itemKey, 'MGMT_NEXT_ESC_INSTR', l_next_mgr_esc_mgmt_instr);
832: WF_ENGINE.SetItemAttrText(l_itemType, l_itemKey, 'MGMT_ESC_INSTR', l_mgr_esc_mgmt_instructions);
833:
834: FND_MESSAGE.SET_NAME('SQLAP','OIE_CC_NEXT_MGR_ESC_LAST_NTF');
835: l_next_mgr_esc_mgmt_instr := FND_MESSAGE.GET;
836: WF_ENGINE.SetItemAttrText(l_itemType, l_itemKey, 'MGMT_NEXT_ESC_INSTR', l_next_mgr_esc_mgmt_instr);
837:
838:
839: END IF;
840:
844: l_total_amount ) ) THEN
845: NULL;
846: END IF;
847:
848: WF_ENGINE.SetItemAttrText(l_itemType, l_itemKey, 'TOTAL_OUTSTANDING',
849: to_char(l_total_amount, FND_CURRENCY.Get_Format_Mask(p_currency,22)) || ' ' || p_currency);
850:
851:
852: WF_ENGINE.setItemAttrText(l_itemType, l_itemKey, 'SEND_NOTIFICATIONS_PARAM',p_send_notifications);
848: WF_ENGINE.SetItemAttrText(l_itemType, l_itemKey, 'TOTAL_OUTSTANDING',
849: to_char(l_total_amount, FND_CURRENCY.Get_Format_Mask(p_currency,22)) || ' ' || p_currency);
850:
851:
852: WF_ENGINE.setItemAttrText(l_itemType, l_itemKey, 'SEND_NOTIFICATIONS_PARAM',p_send_notifications);
853: WF_ENGINE.setItemAttrText(l_itemType, l_itemKey, 'AGING_GRACE_DAYS',nvl(p_grace_days,0));
854:
855: --AMulya Mishra : Notification Esc Project
856:
849: to_char(l_total_amount, FND_CURRENCY.Get_Format_Mask(p_currency,22)) || ' ' || p_currency);
850:
851:
852: WF_ENGINE.setItemAttrText(l_itemType, l_itemKey, 'SEND_NOTIFICATIONS_PARAM',p_send_notifications);
853: WF_ENGINE.setItemAttrText(l_itemType, l_itemKey, 'AGING_GRACE_DAYS',nvl(p_grace_days,0));
854:
855: --AMulya Mishra : Notification Esc Project
856:
857: ------------------------------------------------------
856:
857: ------------------------------------------------------
858: l_debugInfo := 'Set WF EMPLOYEE_NAME Item Attribute';
859: ------------------------------------------------------
860: WF_ENGINE.SetItemAttrText(l_itemType, l_itemKey, 'EMPLOYEE_NAME', l_employeeName);
861:
862: --------------------------------------------------------------
863: l_debugInfo := 'Set WF EMP_DISPLAY_NAME Item Attribute';
864: --------------------------------------------------------------
861:
862: --------------------------------------------------------------
863: l_debugInfo := 'Set WF EMP_DISPLAY_NAME Item Attribute';
864: --------------------------------------------------------------
865: WF_ENGINE.SetItemAttrText(l_itemType, l_itemKey, 'EMP_DISPLAY_NAME', l_employeeDisplayName);
866:
867: --------------------------------------------------------------
868: l_debugInfo := 'Set WF EMPLOYEE_ID Item Attribute';
869: --------------------------------------------------------------
866:
867: --------------------------------------------------------------
868: l_debugInfo := 'Set WF EMPLOYEE_ID Item Attribute';
869: --------------------------------------------------------------
870: WF_ENGINE.SetItemAttrNumber(l_itemType, l_itemKey, 'EMPLOYEE_ID', p_employeeID);
871:
872: ------------------------------------------------------
873: l_debugInfo := 'Set WF MANAGER_NAME Item Attribute';
874: ------------------------------------------------------
871:
872: ------------------------------------------------------
873: l_debugInfo := 'Set WF MANAGER_NAME Item Attribute';
874: ------------------------------------------------------
875: WF_ENGINE.SetItemAttrText(l_itemType, l_itemKey, 'MANAGER_NAME', l_managerName);
876:
877: --Amulya Mishra : Notification Esc Project
878:
879: IF (P_send_notifications = 'ES') THEN
877: --Amulya Mishra : Notification Esc Project
878:
879: IF (P_send_notifications = 'ES') THEN
880:
881: WF_ENGINE.SetItemAttrText(l_itemType, l_itemKey, 'MGR_ALREADY_NOTIFIED', p_manager_notified);
882: WF_ENGINE.SetItemAttrText(l_itemType, l_itemKey, 'NEXT_MANAGER_NAME', l_managerName);
883: WF_DIRECTORY.GetUserName('PER', l_orig_manager_id, l_managerName, l_managerDisplayName);
884: WF_ENGINE.SetItemAttrText(l_itemType, l_itemKey, 'MANAGER_NAME', l_managerName);
885:
878:
879: IF (P_send_notifications = 'ES') THEN
880:
881: WF_ENGINE.SetItemAttrText(l_itemType, l_itemKey, 'MGR_ALREADY_NOTIFIED', p_manager_notified);
882: WF_ENGINE.SetItemAttrText(l_itemType, l_itemKey, 'NEXT_MANAGER_NAME', l_managerName);
883: WF_DIRECTORY.GetUserName('PER', l_orig_manager_id, l_managerName, l_managerDisplayName);
884: WF_ENGINE.SetItemAttrText(l_itemType, l_itemKey, 'MANAGER_NAME', l_managerName);
885:
886: ELSE
880:
881: WF_ENGINE.SetItemAttrText(l_itemType, l_itemKey, 'MGR_ALREADY_NOTIFIED', p_manager_notified);
882: WF_ENGINE.SetItemAttrText(l_itemType, l_itemKey, 'NEXT_MANAGER_NAME', l_managerName);
883: WF_DIRECTORY.GetUserName('PER', l_orig_manager_id, l_managerName, l_managerDisplayName);
884: WF_ENGINE.SetItemAttrText(l_itemType, l_itemKey, 'MANAGER_NAME', l_managerName);
885:
886: ELSE
887:
888: WF_ENGINE.SetItemAttrText(l_itemType, l_itemKey, 'MANAGER_NAME', l_managerName);
884: WF_ENGINE.SetItemAttrText(l_itemType, l_itemKey, 'MANAGER_NAME', l_managerName);
885:
886: ELSE
887:
888: WF_ENGINE.SetItemAttrText(l_itemType, l_itemKey, 'MANAGER_NAME', l_managerName);
889:
890: END IF;
891: --store latest manager id to workflow so that later it can be used.
892:
889:
890: END IF;
891: --store latest manager id to workflow so that later it can be used.
892:
893: WF_ENGINE.SetItemAttrNumber(l_itemType, l_itemKey, 'AGING_MANAGER_ID', l_managerId);
894:
895: --Bug 3337388
896:
897: WF_ENGINE.SetItemAttrNumber(l_itemType, l_itemKey, 'DUNNING_NUMBER', p_dunning_number);
893: WF_ENGINE.SetItemAttrNumber(l_itemType, l_itemKey, 'AGING_MANAGER_ID', l_managerId);
894:
895: --Bug 3337388
896:
897: WF_ENGINE.SetItemAttrNumber(l_itemType, l_itemKey, 'DUNNING_NUMBER', p_dunning_number);
898:
899: --Amulya Mishra : Notification Esc project
900:
901: --------------------------------------------------------------
900:
901: --------------------------------------------------------------
902: l_debugInfo := 'Set WF CARD_PROG_ID Item Attribute';
903: --------------------------------------------------------------
904: WF_ENGINE.SetItemAttrNumber(l_itemType, l_itemKey, 'CARD_PROG_ID', p_cardProgramID);
905:
906: --------------------------------------------------------------
907: l_debugInfo := 'Set WF CREDIT_CARD_COMPANY Item Attribute';
908: --------------------------------------------------------------
910: l_cardProgramName ) ) THEN
911: NULL;
912: END IF;
913:
914: WF_ENGINE.SetItemAttrText(l_itemType, l_itemKey, 'CREDIT_CARD_COMPANY', l_cardProgramName);
915:
916:
917: ----------------------------------------------------------
918: l_debugInfo := 'Set CURRENCY Item Attribute';
916:
917: ----------------------------------------------------------
918: l_debugInfo := 'Set CURRENCY Item Attribute';
919: ----------------------------------------------------------
920: WF_ENGINE.SetItemAttrText(l_itemType, l_itemKey, 'CURRENCY',p_currency);
921:
922: ------------------------------------------------------
923: l_debugInfo := 'Set Amount Item Attribute';
924: ------------------------------------------------------
921:
922: ------------------------------------------------------
923: l_debugInfo := 'Set Amount Item Attribute';
924: ------------------------------------------------------
925: WF_ENGINE.SetItemAttrText(l_itemType, l_itemKey, 'AMOUNT',
926: to_char(p_Amount, FND_CURRENCY.Get_Format_Mask(p_currency,22)) || ' ' || p_currency);
927:
928:
929: ------------------------------------------------------
928:
929: ------------------------------------------------------
930: l_debugInfo := 'Set WF BUCKET1..2 Item Attribute';
931: ------------------------------------------------------
932: WF_ENGINE.SetItemAttrText(l_itemType, l_itemKey, 'BUCKET1', to_char(p_min_bucket));
933: if( p_max_bucket = 1000000) then
934: WF_ENGINE.SetItemAttrText(l_itemType, l_itemKey, 'BUCKET2', l_plus_sign);
935: else
936: WF_ENGINE.SetItemAttrText(l_itemType, l_itemKey, 'BUCKET2', '- '||to_char(p_max_bucket));
930: l_debugInfo := 'Set WF BUCKET1..2 Item Attribute';
931: ------------------------------------------------------
932: WF_ENGINE.SetItemAttrText(l_itemType, l_itemKey, 'BUCKET1', to_char(p_min_bucket));
933: if( p_max_bucket = 1000000) then
934: WF_ENGINE.SetItemAttrText(l_itemType, l_itemKey, 'BUCKET2', l_plus_sign);
935: else
936: WF_ENGINE.SetItemAttrText(l_itemType, l_itemKey, 'BUCKET2', '- '||to_char(p_max_bucket));
937: end if;
938:
932: WF_ENGINE.SetItemAttrText(l_itemType, l_itemKey, 'BUCKET1', to_char(p_min_bucket));
933: if( p_max_bucket = 1000000) then
934: WF_ENGINE.SetItemAttrText(l_itemType, l_itemKey, 'BUCKET2', l_plus_sign);
935: else
936: WF_ENGINE.SetItemAttrText(l_itemType, l_itemKey, 'BUCKET2', '- '||to_char(p_max_bucket));
937: end if;
938:
939:
940:
941: --------------------------------------------------------------
942: l_debugInfo := 'Get and Set ORG_ID attribute ';
943: --------------------------------------------------------------
944: FND_PROFILE.GET('ORG_ID' , l_orgId );
945: WF_ENGINE.SetItemAttrNumber(l_itemType, l_itemKey, 'ORG_ID', l_orgId);
946:
947: --------------------------------------------------------------
948: l_debugInfo := 'Set NUM_RECORDS value ';
949: --------------------------------------------------------------
946:
947: --------------------------------------------------------------
948: l_debugInfo := 'Set NUM_RECORDS value ';
949: --------------------------------------------------------------
950: WF_ENGINE.SetItemAttrText(l_itemType,
951: l_itemKey,
952: 'RECORDS_INSTR',
953: 'plsql:AP_WEB_CREDIT_CARD_WF.getNumofDunningRecords/'||l_itemType||':'||l_itemKey);
954:
955: --------------------------------------------------------------
956: l_debugInfo := 'Set LIST value ';
957: --------------------------------------------------------------
958:
959: WF_ENGINE.SetItemAttrText(l_itemType,
960: l_itemKey,
961: 'LIST',
962: 'plsqlclob:AP_WEB_CREDIT_CARD_WF.generateDunningClobList/'||l_itemType||':'||l_itemKey);
963:
960: l_itemKey,
961: 'LIST',
962: 'plsqlclob:AP_WEB_CREDIT_CARD_WF.generateDunningClobList/'||l_itemType||':'||l_itemKey);
963:
964: WF_ENGINE.SetItemAttrText(l_itemType,
965: l_itemKey,
966: 'OIE_LIST',
967: 'JSP:/OA_HTML/OA.jsp?akRegionCode=DunningRN&akRegionApplicationId=200&itemKey='||l_itemKey||'&graceDays='||p_grace_days||'&escNotif='||'N'||'&mgrList='||'N'||'&orgId='||l_orgId);
968:
968:
969: --------------------------------------------------------------
970: l_debugInfo := 'Set MGR_LIST value ';
971: --------------------------------------------------------------
972: WF_ENGINE.SetItemAttrText(l_itemType,
973: l_itemKey,
974: 'MGR_LIST',
975: 'JSP:/OA_HTML/OA.jsp?akRegionCode=DunningRN&akRegionApplicationId=200&itemKey='||l_itemKey||'&graceDays='||p_grace_days||'&escNotif='||'N'||'&mgrList='||'Y'||'&name='||l_employeeName||'&orgId='||l_orgId);
976:
977: --Amulya Mishra : Notification Esc Project
978:
979: IF (P_send_notifications = 'ES') THEN
980:
981: WF_ENGINE.SetItemAttrText(l_itemType,
982: l_itemKey,
983: 'LIST',
984: 'plsqlclob:AP_WEB_CREDIT_CARD_WF.generateDunningClobList/'||l_itemType||':'||l_itemKey);
985:
982: l_itemKey,
983: 'LIST',
984: 'plsqlclob:AP_WEB_CREDIT_CARD_WF.generateDunningClobList/'||l_itemType||':'||l_itemKey);
985:
986: WF_ENGINE.SetItemAttrText(l_itemType,
987: l_itemKey,
988: 'OIE_LIST',
989: 'JSP:/OA_HTML/OA.jsp?akRegionCode=DunningRN&akRegionApplicationId=200&itemKey='||l_itemKey||'&graceDays='||p_grace_days||'&escNotif='||'Y'||'&mgrList='||'N'||'&orgId='||l_orgId);
990:
990:
991: --------------------------------------------------------------
992: l_debugInfo := 'Set MGR_LIST value ';
993: --------------------------------------------------------------
994: WF_ENGINE.SetItemAttrText(l_itemType,
995: l_itemKey,
996: 'MGR_LIST',
997: 'JSP:/OA_HTML/OA.jsp?akRegionCode=DunningRN&akRegionApplicationId=200&itemKey='||l_itemKey||'&graceDays='||p_grace_days||'&escNotif='||'Y'||'&mgrList='||'Y'||'&orgId='||l_orgId);
998:
1005: l_mgr_esc_amount);
1006: ------------------------------------------------------
1007: l_debugInfo := 'Set Amount Item Attribute';
1008: ------------------------------------------------------
1009: WF_ENGINE.SetItemAttrText(l_itemType, l_itemKey, 'MGR_ESC_AMOUNT',
1010: to_char(l_mgr_esc_amount, FND_CURRENCY.Get_Format_Mask(p_currency,22)) || ' ' || p_currency);
1011:
1012: WF_ENGINE.SetItemAttrText(l_itemType,
1013: l_itemKey,
1008: ------------------------------------------------------
1009: WF_ENGINE.SetItemAttrText(l_itemType, l_itemKey, 'MGR_ESC_AMOUNT',
1010: to_char(l_mgr_esc_amount, FND_CURRENCY.Get_Format_Mask(p_currency,22)) || ' ' || p_currency);
1011:
1012: WF_ENGINE.SetItemAttrText(l_itemType,
1013: l_itemKey,
1014: 'LIST_ESC',
1015: 'plsqlclob:AP_WEB_CREDIT_CARD_WF.generateManagerDunningList/'||l_itemType||':'||l_itemKey);
1016:
1013: l_itemKey,
1014: 'LIST_ESC',
1015: 'plsqlclob:AP_WEB_CREDIT_CARD_WF.generateManagerDunningList/'||l_itemType||':'||l_itemKey);
1016:
1017: WF_ENGINE.SetItemAttrText(l_itemType,
1018: l_itemKey,
1019: 'OIE_LIST_ESC',
1020: 'JSP:/OA_HTML/OA.jsp?akRegionCode=EscNotifMgrRN&akRegionApplicationId=200&itemKey='||l_itemKey||'&managerId='||l_orig_manager_id||'&orgId='||l_orgId);
1021:
1031:
1032: ------------------------------------------------------
1033: l_debugInfo := 'Set Amount Item Attribute';
1034: ------------------------------------------------------
1035: WF_ENGINE.SetItemAttrText(l_itemType, l_itemKey, 'MGR_NEXT_ESC_AMOUNT',
1036: to_char(l_next_mgr_esc_amount, FND_CURRENCY.Get_Format_Mask(p_currency,22)) || ' ' || p_currency);
1037:
1038:
1039: WF_ENGINE.SetItemAttrText(l_itemType,
1035: WF_ENGINE.SetItemAttrText(l_itemType, l_itemKey, 'MGR_NEXT_ESC_AMOUNT',
1036: to_char(l_next_mgr_esc_amount, FND_CURRENCY.Get_Format_Mask(p_currency,22)) || ' ' || p_currency);
1037:
1038:
1039: WF_ENGINE.SetItemAttrText(l_itemType,
1040: l_itemKey,
1041: 'LIST_NEXT_ESC',
1042: 'plsqlclob:AP_WEB_CREDIT_CARD_WF.generateNextManagerDunningList/'||l_itemType||':'||l_itemKey);
1043:
1040: l_itemKey,
1041: 'LIST_NEXT_ESC',
1042: 'plsqlclob:AP_WEB_CREDIT_CARD_WF.generateNextManagerDunningList/'||l_itemType||':'||l_itemKey);
1043:
1044: WF_ENGINE.SetItemAttrText(l_itemType,
1045: l_itemKey,
1046: 'OIE_LIST_NEXT_ESC',
1047: 'JSP:/OA_HTML/OA.jsp?akRegionCode=EscNotifNextMgrRN&akRegionApplicationId=200&itemKey='||l_itemKey||'&agingManager='||l_managerId||'&orgId='||l_orgId);
1048:
1050:
1051: --Amulya Mishra : Notification Esc project
1052:
1053: BEGIN
1054: WF_ENGINE.SetItemAttrText(l_itemType,
1055: l_itemKey,
1056: '#FROM_ROLE',
1057: WF_ENGINE.GetItemAttrText(l_itemType,
1058: l_itemKey,
1053: BEGIN
1054: WF_ENGINE.SetItemAttrText(l_itemType,
1055: l_itemKey,
1056: '#FROM_ROLE',
1057: WF_ENGINE.GetItemAttrText(l_itemType,
1058: l_itemKey,
1059: 'WF_ADMINISTRATOR'));
1060: EXCEPTION
1061: WHEN OTHERS THEN
1066: BEGIN
1067: ------------------------------------------------------------
1068: l_debugInfo := 'Start the Expense Report Workflow Process';
1069: ------------------------------------------------------------
1070: WF_ENGINE.StartProcess(l_itemType, l_itemKey);
1071:
1072: EXCEPTION
1073: WHEN OTHERS THEN
1074: Wf_Core.Context('AP_WEB_CREDIT_CARD_WF', 'SendDunningNotifications',
1149:
1150: --------------------------------------------------
1151: l_debugInfo := 'Calling WorkFlow Create Process';
1152: --------------------------------------------------
1153: WF_ENGINE.CreateProcess(l_itemType, l_itemKey, 'UNAPPROVED_REPORT');
1154:
1155: ----------------------------------------------------------
1156: l_debugInfo := 'Set WF Amount Item Attribute';
1157: ----------------------------------------------------------
1154:
1155: ----------------------------------------------------------
1156: l_debugInfo := 'Set WF Amount Item Attribute';
1157: ----------------------------------------------------------
1158: WF_ENGINE.SetItemAttrText(l_itemType, l_itemKey, 'AMOUNT',
1159: to_char(l_exp_info_rec.total, FND_CURRENCY.Get_Format_Mask(l_exp_info_rec.default_curr_code,22)) || ' ' || l_exp_info_rec.default_curr_code);
1160:
1161: ----------------------------------------------------------
1162: l_debugInfo := 'Set the Owner of Workflow Process.';
1160:
1161: ----------------------------------------------------------
1162: l_debugInfo := 'Set the Owner of Workflow Process.';
1163: ----------------------------------------------------------
1164: WF_ENGINE.SetItemOwner(l_itemType, l_itemKey, l_employeeName);
1165:
1166: --------------------------------------------------------------
1167: l_debugInfo := 'Set WF EMP_DISPLAY_NAME Item Attribute';
1168: --------------------------------------------------------------
1165:
1166: --------------------------------------------------------------
1167: l_debugInfo := 'Set WF EMP_DISPLAY_NAME Item Attribute';
1168: --------------------------------------------------------------
1169: WF_ENGINE.SetItemAttrText(l_itemType, l_itemKey, 'EMP_DISPLAY_NAME', l_employeeDisplayName);
1170:
1171: ------------------------------------------------------
1172: l_debugInfo := 'Set WF MANAGER_NAME Item Attribute';
1173: ------------------------------------------------------
1170:
1171: ------------------------------------------------------
1172: l_debugInfo := 'Set WF MANAGER_NAME Item Attribute';
1173: ------------------------------------------------------
1174: WF_ENGINE.SetItemAttrText(l_itemType, l_itemKey, 'MANAGER_NAME', l_managerName);
1175:
1176: ----------------------------------------------------------
1177: l_debugInfo := 'Set WF EXPENSE_REPORT_NUMBER Item Attribute';
1178: ----------------------------------------------------------
1175:
1176: ----------------------------------------------------------
1177: l_debugInfo := 'Set WF EXPENSE_REPORT_NUMBER Item Attribute';
1178: ----------------------------------------------------------
1179: WF_ENGINE.SetItemAttrText(l_itemType, l_itemKey, 'EXPENSE_REPORT_NUMBER', l_exp_info_rec.doc_num);
1180:
1181: BEGIN
1182: ------------------------------------------------------------
1183: l_debugInfo := 'Start the Expense Report Workflow Process';
1181: BEGIN
1182: ------------------------------------------------------------
1183: l_debugInfo := 'Start the Expense Report Workflow Process';
1184: ------------------------------------------------------------
1185: WF_ENGINE.StartProcess(l_itemType, l_itemKey);
1186:
1187: EXCEPTION
1188: WHEN OTHERS THEN
1189: Wf_Core.Context('AP_WEB_CREDIT_CARD_WF', 'sendUnapprovedExpReportNote',
1248:
1249: --------------------------------------------------
1250: l_debugInfo := 'Calling WorkFlow Create Process';
1251: --------------------------------------------------
1252: WF_ENGINE.CreateProcess(l_itemType, l_itemKey, 'DISPUTED_CHARGES');
1253:
1254: ----------------------------------------------------------
1255: l_debugInfo := 'Set the Owner of Workflow Process.';
1256: ----------------------------------------------------------
1253:
1254: ----------------------------------------------------------
1255: l_debugInfo := 'Set the Owner of Workflow Process.';
1256: ----------------------------------------------------------
1257: WF_ENGINE.SetItemOwner(l_itemType, l_itemKey, l_employeeName);
1258:
1259: ------------------------------------------------------
1260: l_debugInfo := 'Set WF EMPLOYEE_NAME Item Attribute';
1261: ------------------------------------------------------
1258:
1259: ------------------------------------------------------
1260: l_debugInfo := 'Set WF EMPLOYEE_NAME Item Attribute';
1261: ------------------------------------------------------
1262: WF_ENGINE.SetItemAttrText(l_itemType, l_itemKey, 'EMPLOYEE_NAME', l_employeeName);
1263:
1264: --------------------------------------------------------------
1265: l_debugInfo := 'Set WF EMP_DISPLAY_NAME Item Attribute';
1266: --------------------------------------------------------------
1263:
1264: --------------------------------------------------------------
1265: l_debugInfo := 'Set WF EMP_DISPLAY_NAME Item Attribute';
1266: --------------------------------------------------------------
1267: WF_ENGINE.SetItemAttrText(l_itemType, l_itemKey, 'EMP_DISPLAY_NAME', l_employeeDisplayName);
1268:
1269: --------------------------------------------------------------
1270: l_debugInfo := 'Set WF EMPLOYEE_ID Item Attribute';
1271: --------------------------------------------------------------
1268:
1269: --------------------------------------------------------------
1270: l_debugInfo := 'Set WF EMPLOYEE_ID Item Attribute';
1271: --------------------------------------------------------------
1272: WF_ENGINE.SetItemAttrNumber(l_itemType, l_itemKey, 'EMPLOYEE_ID', p_employeeID);
1273:
1274: --------------------------------------------------------------
1275: l_debugInfo := 'Set WF CARD_PROG_ID Item Attribute';
1276: --------------------------------------------------------------
1273:
1274: --------------------------------------------------------------
1275: l_debugInfo := 'Set WF CARD_PROG_ID Item Attribute';
1276: --------------------------------------------------------------
1277: WF_ENGINE.SetItemAttrNumber(l_itemType, l_itemKey, 'CARD_PROG_ID', p_cardProgramID);
1278:
1279: --------------------------------------------------------------
1280: l_debugInfo := 'Set WF CREDIT_CARD_COMPANY Item Attribute';
1281: --------------------------------------------------------------
1283: l_cardProgramName ) ) THEN
1284: NULL;
1285: END IF;
1286:
1287: WF_ENGINE.SetItemAttrText(l_itemType, l_itemKey, 'CREDIT_CARD_COMPANY', l_cardProgramName);
1288:
1289: ------------------------------------------------------
1290: l_debugInfo := 'Set WF MIN_AMOUNT Item Attribute';
1291: ------------------------------------------------------
1288:
1289: ------------------------------------------------------
1290: l_debugInfo := 'Set WF MIN_AMOUNT Item Attribute';
1291: ------------------------------------------------------
1292: WF_ENGINE.SetItemAttrNumber(l_itemType, l_itemKey, 'MIN_AMOUNT', p_minimumAmount);
1293:
1294: ------------------------------------------------------
1295: l_debugInfo := 'Set WF DATE_OBJ1 Item Attribute';
1296: ------------------------------------------------------
1293:
1294: ------------------------------------------------------
1295: l_debugInfo := 'Set WF DATE_OBJ1 Item Attribute';
1296: ------------------------------------------------------
1297: WF_ENGINE.SetItemAttrDate(l_itemType, l_itemKey, 'DATE_OBJ1', p_billedStartDate);
1298:
1299: ------------------------------------------------------
1300: l_debugInfo := 'Set WF DATE_OBJ2 Item Attribute';
1301: ------------------------------------------------------
1298:
1299: ------------------------------------------------------
1300: l_debugInfo := 'Set WF DATE_OBJ2 Item Attribute';
1301: ------------------------------------------------------
1302: WF_ENGINE.SetItemAttrDate(l_itemType, l_itemKey, 'DATE_OBJ2', p_billedEndDate);
1303:
1304: ------------------------------------------------------
1305: l_debugInfo := 'Set WF NUMBER_OF_DAYS Item Attribute';
1306: ------------------------------------------------------
1307: IF (AP_WEB_DB_UTIL_PKG.GetSysDate(l_sysdate)) THEN
1308: l_today := to_date(l_sysdate,AP_WEB_INFRASTRUCTURE_PKG.getDateFormat);
1309: END IF;
1310:
1311: WF_ENGINE.SetItemAttrNumber(l_itemType, l_itemKey, 'NUMBER_OF_DAYS', round(l_today - p_billedStartDate));
1312:
1313: l_days := round(l_today - p_billedStartDate);
1314: --------------------------------------------------------------
1315: l_debugInfo := 'Get and Set ORG_ID attribute ';
1314: --------------------------------------------------------------
1315: l_debugInfo := 'Get and Set ORG_ID attribute ';
1316: --------------------------------------------------------------
1317: FND_PROFILE.GET('ORG_ID' , l_orgId );
1318: WF_ENGINE.SetItemAttrNumber(l_itemType, l_itemKey, 'ORG_ID', l_orgId);
1319:
1320: --------------------------------------------------------------
1321: l_debugInfo := 'Set LIST value ';
1322: --------------------------------------------------------------
1319:
1320: --------------------------------------------------------------
1321: l_debugInfo := 'Set LIST value ';
1322: --------------------------------------------------------------
1323: WF_ENGINE.SetItemAttrText(l_itemType,
1324: l_itemKey,
1325: 'LIST',
1326: 'plsql:AP_WEB_CREDIT_CARD_WF.generateList/'||l_itemType||':'||l_itemKey);
1327:
1324: l_itemKey,
1325: 'LIST',
1326: 'plsql:AP_WEB_CREDIT_CARD_WF.generateList/'||l_itemType||':'||l_itemKey);
1327:
1328: WF_ENGINE.SetItemAttrText(l_itemType,
1329: l_itemKey,
1330: 'OIE_LIST',
1331: 'JSP:/OA_HTML/OA.jsp?akRegionCode=DisputedChargesRN&akRegionApplicationId=200&itemKey='||l_itemKey||'&cardCompany='||l_cardProgramName||'&days='||l_days||'&orgId='||l_orgId);
1332:
1333: BEGIN
1334: ------------------------------------------------------------
1335: l_debugInfo := 'Start the Expense Report Workflow Process';
1336: ------------------------------------------------------------
1337: WF_ENGINE.StartProcess(l_itemType, l_itemKey);
1338:
1339: EXCEPTION
1340: WHEN OTHERS THEN
1341: Wf_Core.Context('AP_WEB_CREDIT_CARD_WF', 'sendDisputedChargesNote',
1414: l_itemtype := substrb(document_id, 1, l_colon - 1);
1415: l_itemkey := substrb(document_id, l_colon + 1);
1416:
1417: l_debugInfo := 'Get org_id';
1418: l_orgId := WF_ENGINE.GetItemAttrNumber(l_itemtype, l_itemKey, 'ORG_ID');
1419:
1420: -- MOAC UPTAKE --
1421: -- Have new call back function defined for Item to set org context.
1422: --
1441:
1442: ------------------------------------------------------
1443: l_debugInfo := 'Get WF MIN_AMOUNT Item Attribute';
1444: ------------------------------------------------------
1445: l_minimumAmount := WF_ENGINE.GetItemAttrNumber(l_itemType, l_itemKey, 'MIN_AMOUNT');
1446:
1447: ------------------------------------------------------
1448: l_debugInfo := 'Get WF DATE_OBJ1 Item Attribute';
1449: ------------------------------------------------------
1446:
1447: ------------------------------------------------------
1448: l_debugInfo := 'Get WF DATE_OBJ1 Item Attribute';
1449: ------------------------------------------------------
1450: --l_billedStartDate := WF_ENGINE.GetItemAttrDate(l_itemType, l_itemKey, 'DATE_OBJ1');
1451:
1452: ------------------------------------------------------
1453: l_debugInfo := 'Get WF DATE_OBJ2 Item Attribute';
1454: ------------------------------------------------------
1451:
1452: ------------------------------------------------------
1453: l_debugInfo := 'Get WF DATE_OBJ2 Item Attribute';
1454: ------------------------------------------------------
1455: l_billedEndDate := WF_ENGINE.GetItemAttrDate(l_itemType, l_itemKey, 'DATE_OBJ2');
1456:
1457: --------------------------------------------------------------
1458: l_debugInfo := 'Get WF CARD_PROG_ID Item Attribute';
1459: --------------------------------------------------------------
1456:
1457: --------------------------------------------------------------
1458: l_debugInfo := 'Get WF CARD_PROG_ID Item Attribute';
1459: --------------------------------------------------------------
1460: l_cardProgramID := WF_ENGINE.GetItemAttrNumber(l_itemType, l_itemKey, 'CARD_PROG_ID');
1461:
1462: --------------------------------------------------------------
1463: l_debugInfo := 'Get WF EMPLOYEE_ID Item Attribute';
1464: --------------------------------------------------------------
1461:
1462: --------------------------------------------------------------
1463: l_debugInfo := 'Get WF EMPLOYEE_ID Item Attribute';
1464: --------------------------------------------------------------
1465: l_employeeID := WF_ENGINE.GetItemAttrNumber(l_itemType, l_itemKey, 'EMPLOYEE_ID');
1466:
1467: l_dateFormat := icx_sec.getID(icx_sec.PV_DATE_FORMAT);
1468:
1469: l_debugInfo := 'Loop over all the Disputed charges';
1604: l_itemtype := substrb(document_id, 1, l_colon - 1);
1605: l_itemkey := substrb(document_id, l_colon + 1);
1606:
1607: l_debugInfo := 'Get org_id';
1608: l_orgId := WF_ENGINE.GetItemAttrNumber(l_itemtype, l_itemKey, 'ORG_ID');
1609:
1610: -- MOAC UPTAKE --
1611: -- Have new call back function defined for Item to set org context.
1612: --
1647:
1648: ------------------------------------------------------
1649: l_debugInfo := 'Get WF MIN_AMOUNT Item Attribute';
1650: ------------------------------------------------------
1651: l_minimumAmount := WF_ENGINE.GetItemAttrNumber(l_itemType, l_itemKey, 'MIN_AMOUNT');
1652:
1653: ------------------------------------------------------
1654: l_debugInfo := 'Get WF DATE1 Item Attribute';
1655: ------------------------------------------------------
1652:
1653: ------------------------------------------------------
1654: l_debugInfo := 'Get WF DATE1 Item Attribute';
1655: ------------------------------------------------------
1656: l_billedStartDate := WF_ENGINE.GetItemAttrDate(l_itemType, l_itemKey, 'DATE1');
1657:
1658: ------------------------------------------------------
1659: l_debugInfo := 'Get WF DATE2 Item Attribute';
1660: ------------------------------------------------------
1657:
1658: ------------------------------------------------------
1659: l_debugInfo := 'Get WF DATE2 Item Attribute';
1660: ------------------------------------------------------
1661: l_billedEndDate := WF_ENGINE.GetItemAttrDate(l_itemType, l_itemKey, 'DATE2');
1662:
1663: --------------------------------------------------------------
1664: l_debugInfo := 'Get WF CARD_PROG_ID Item Attribute';
1665: --------------------------------------------------------------
1662:
1663: --------------------------------------------------------------
1664: l_debugInfo := 'Get WF CARD_PROG_ID Item Attribute';
1665: --------------------------------------------------------------
1666: l_cardProgramId := WF_ENGINE.GetItemAttrNumber(l_itemType, l_itemKey, 'CARD_PROG_ID');
1667:
1668: --------------------------------------------------------------
1669: l_debugInfo := 'Get WF EMPLOYEE_ID Item Attribute';
1670: --------------------------------------------------------------
1667:
1668: --------------------------------------------------------------
1669: l_debugInfo := 'Get WF EMPLOYEE_ID Item Attribute';
1670: --------------------------------------------------------------
1671: l_employeeId := WF_ENGINE.GetItemAttrNumber(l_itemType, l_itemKey, 'EMPLOYEE_ID');
1672:
1673: --------------------------------------------------------------
1674: l_debugInfo := 'Get Charge Type Item Attribute';
1675: --------------------------------------------------------------
1672:
1673: --------------------------------------------------------------
1674: l_debugInfo := 'Get Charge Type Item Attribute';
1675: --------------------------------------------------------------
1676: l_chargeType := WF_ENGINE.GetItemAttrText(l_itemType, l_itemKey, 'CHARGE_TYPE');
1677:
1678:
1679: l_dateFormat := icx_sec.getID(icx_sec.PV_DATE_FORMAT);
1680:
1877: l_itemtype := substrb(document_id, 1, l_colon - 1);
1878: l_itemkey := substrb(document_id, l_colon + 1);
1879:
1880: l_debugInfo := 'Get org_id';
1881: l_orgId := WF_ENGINE.GetItemAttrNumber(l_itemtype, l_itemKey, 'ORG_ID');
1882:
1883: -- MOAC UPTAKE --
1884: -- Have new call back function defined for Item to set org context.
1885: --
1896: l_document := '';--Notification Esc :Change all document to l_document
1897:
1898: --Notification esc : moved code to top..
1899:
1900: l_grace_days := WF_ENGINE.GetItemAttrText(l_itemType, l_itemKey, 'AGING_GRACE_DAYS');
1901: --------------------------------------------------------------
1902: l_debugInfo := 'Get WF BUCKET1..4 Item Attribute';
1903: --------------------------------------------------------------
1904: l_min_bucket1 := WF_ENGINE.GetItemAttrText(l_itemType, l_itemKey, 'BUCKET1');
1900: l_grace_days := WF_ENGINE.GetItemAttrText(l_itemType, l_itemKey, 'AGING_GRACE_DAYS');
1901: --------------------------------------------------------------
1902: l_debugInfo := 'Get WF BUCKET1..4 Item Attribute';
1903: --------------------------------------------------------------
1904: l_min_bucket1 := WF_ENGINE.GetItemAttrText(l_itemType, l_itemKey, 'BUCKET1');
1905: l_max_bucket1 := WF_ENGINE.GetItemAttrText(l_itemType, l_itemKey, 'BUCKET2');
1906:
1907: l_min_bucket := to_number(l_min_bucket1);
1908: if(l_max_bucket1 = '+' ) then
1901: --------------------------------------------------------------
1902: l_debugInfo := 'Get WF BUCKET1..4 Item Attribute';
1903: --------------------------------------------------------------
1904: l_min_bucket1 := WF_ENGINE.GetItemAttrText(l_itemType, l_itemKey, 'BUCKET1');
1905: l_max_bucket1 := WF_ENGINE.GetItemAttrText(l_itemType, l_itemKey, 'BUCKET2');
1906:
1907: l_min_bucket := to_number(l_min_bucket1);
1908: if(l_max_bucket1 = '+' ) then
1909: l_max_bucket := 1000000;
1944:
1945: --------------------------------------------------------------
1946: l_debugInfo := 'Get WF CARD_PROG_ID Item Attribute';
1947: --------------------------------------------------------------
1948: l_cardProgramId := WF_ENGINE.GetItemAttrNumber(l_itemType, l_itemKey, 'CARD_PROG_ID');
1949: --------------------------------------------------------------
1950: l_debugInfo := 'Get WF EMPLOYEE_ID Item Attribute';
1951: --------------------------------------------------------------
1952: l_employeeId := WF_ENGINE.GetItemAttrNumber(l_itemType, l_itemKey, 'EMPLOYEE_ID');
1948: l_cardProgramId := WF_ENGINE.GetItemAttrNumber(l_itemType, l_itemKey, 'CARD_PROG_ID');
1949: --------------------------------------------------------------
1950: l_debugInfo := 'Get WF EMPLOYEE_ID Item Attribute';
1951: --------------------------------------------------------------
1952: l_employeeId := WF_ENGINE.GetItemAttrNumber(l_itemType, l_itemKey, 'EMPLOYEE_ID');
1953: l_dateFormat := icx_sec.getID(icx_sec.PV_DATE_FORMAT);
1954:
1955: l_debugInfo := 'Loop over all the Dunning Charges ';
1956:
2212: l_itemtype := substrb(document_id, 1, l_colon - 1);
2213: l_itemkey := substrb(document_id, l_colon + 1);
2214:
2215: l_debugInfo := 'Get org_id';
2216: l_orgId := WF_ENGINE.GetItemAttrNumber(l_itemtype, l_itemKey, 'ORG_ID');
2217:
2218: -- MOAC UPTAKE --
2219: -- Have new call back function defined for Item to set org context.
2220: --
2223:
2224: --------------------------------------------------------------
2225: l_debugInfo := 'Get WF CARD_PROG_ID Item Attribute';
2226: --------------------------------------------------------------
2227: l_cardProgramId := WF_ENGINE.GetItemAttrNumber(l_itemType, l_itemKey, 'CARD_PROG_ID');
2228:
2229: --------------------------------------------------------------
2230: l_debugInfo := 'Get WF EMPLOYEE_ID Item Attribute';
2231: --------------------------------------------------------------
2228:
2229: --------------------------------------------------------------
2230: l_debugInfo := 'Get WF EMPLOYEE_ID Item Attribute';
2231: --------------------------------------------------------------
2232: l_employeeId := WF_ENGINE.GetItemAttrNumber(l_itemType, l_itemKey, 'EMPLOYEE_ID');
2233:
2234: ------------------------------------------------------
2235: l_debugInfo := 'Get WF MIN_AMOUNT Item Attribute';
2236: ------------------------------------------------------
2233:
2234: ------------------------------------------------------
2235: l_debugInfo := 'Get WF MIN_AMOUNT Item Attribute';
2236: ------------------------------------------------------
2237: l_minimumAmount := WF_ENGINE.GetItemAttrNumber(l_itemType, l_itemKey, 'MIN_AMOUNT');
2238:
2239: ------------------------------------------------------
2240: l_debugInfo := 'Get WF DATE1 Item Attribute';
2241: ------------------------------------------------------
2238:
2239: ------------------------------------------------------
2240: l_debugInfo := 'Get WF DATE1 Item Attribute';
2241: ------------------------------------------------------
2242: l_billedStartDate := WF_ENGINE.GetItemAttrDate(l_itemType, l_itemKey, 'DATE1');
2243:
2244: ------------------------------------------------------
2245: l_debugInfo := 'Get WF DATE2 Item Attribute';
2246: ------------------------------------------------------
2243:
2244: ------------------------------------------------------
2245: l_debugInfo := 'Get WF DATE2 Item Attribute';
2246: ------------------------------------------------------
2247: l_billedEndDate := WF_ENGINE.GetItemAttrDate(l_itemType, l_itemKey, 'DATE2');
2248:
2249: --------------------------------------------------------------
2250: l_debugInfo := 'Get Charge Type Item Attribute';
2251: --------------------------------------------------------------
2248:
2249: --------------------------------------------------------------
2250: l_debugInfo := 'Get Charge Type Item Attribute';
2251: --------------------------------------------------------------
2252: l_chargeType := WF_ENGINE.GetItemAttrText(l_itemType, l_itemKey, 'CHARGE_TYPE');
2253:
2254: l_dateFormat := icx_sec.getID(icx_sec.PV_DATE_FORMAT);
2255:
2256: IF (NOT AP_WEB_DB_CCARD_PKG.GetTotalUnsubmittedCCCursor(l_cardProgramId,
2338: l_itemtype := substrb(document_id, 1, l_colon - 1);
2339: l_itemkey := substrb(document_id, l_colon + 1);
2340:
2341: l_debugInfo := 'Get org_id';
2342: l_orgId := WF_ENGINE.GetItemAttrNumber(l_itemtype, l_itemKey, 'ORG_ID');
2343:
2344: -- MOAC UPTAKE --
2345: -- Have new call back function defined for Item to set org context.
2346: --
2349:
2350: --------------------------------------------------------------
2351: l_debugInfo := 'Get WF CARD_PROG_ID Item Attribute';
2352: --------------------------------------------------------------
2353: l_cardProgramId := WF_ENGINE.GetItemAttrNumber(l_itemType, l_itemKey, 'CARD_PROG_ID');
2354:
2355: --------------------------------------------------------------
2356: l_debugInfo := 'Get WF EMPLOYEE_ID Item Attribute';
2357: --------------------------------------------------------------
2354:
2355: --------------------------------------------------------------
2356: l_debugInfo := 'Get WF EMPLOYEE_ID Item Attribute';
2357: --------------------------------------------------------------
2358: l_employeeId := WF_ENGINE.GetItemAttrNumber(l_itemType, l_itemKey, 'EMPLOYEE_ID');
2359:
2360: --------------------------------------------------------------
2361: l_debugInfo := 'Get WF BUCKET1..4 Item Attribute';
2362: --------------------------------------------------------------
2359:
2360: --------------------------------------------------------------
2361: l_debugInfo := 'Get WF BUCKET1..4 Item Attribute';
2362: --------------------------------------------------------------
2363: l_min_bucket1 := WF_ENGINE.GetItemAttrText(l_itemType, l_itemKey, 'BUCKET1');
2364: l_max_bucket1 := WF_ENGINE.GetItemAttrText(l_itemType, l_itemKey, 'BUCKET2');
2365:
2366:
2367: l_min_bucket := to_number(l_min_bucket1);
2360: --------------------------------------------------------------
2361: l_debugInfo := 'Get WF BUCKET1..4 Item Attribute';
2362: --------------------------------------------------------------
2363: l_min_bucket1 := WF_ENGINE.GetItemAttrText(l_itemType, l_itemKey, 'BUCKET1');
2364: l_max_bucket1 := WF_ENGINE.GetItemAttrText(l_itemType, l_itemKey, 'BUCKET2');
2365:
2366:
2367: l_min_bucket := to_number(l_min_bucket1);
2368: if(l_max_bucket1 = '+' ) then
2482: l_itemtype := substrb(document_id, 1, l_colon - 1);
2483: l_itemkey := substrb(document_id, l_colon + 1);
2484:
2485: l_debugInfo := 'Get org_id';
2486: l_orgId := WF_ENGINE.GetItemAttrNumber(l_itemtype, l_itemKey, 'ORG_ID');
2487:
2488: -- MOAC UPTAKE --
2489: -- Have new call back function defined for Item to set org context.
2490: --
2499:
2500: l_debugInfo := 'Generate header';
2501: l_document := '';
2502:
2503: l_grace_days := WF_ENGINE.GetItemAttrText(l_itemType, l_itemKey, 'AGING_GRACE_DAYS');
2504:
2505: l_billed_currency_code := WF_ENGINE.GetItemAttrText(l_itemType, l_itemKey, 'CURRENCY');
2506: --------------------------------------------------------------
2507: l_debugInfo := 'Get WF BUCKET1..4 Item Attribute';
2501: l_document := '';
2502:
2503: l_grace_days := WF_ENGINE.GetItemAttrText(l_itemType, l_itemKey, 'AGING_GRACE_DAYS');
2504:
2505: l_billed_currency_code := WF_ENGINE.GetItemAttrText(l_itemType, l_itemKey, 'CURRENCY');
2506: --------------------------------------------------------------
2507: l_debugInfo := 'Get WF BUCKET1..4 Item Attribute';
2508: --------------------------------------------------------------
2509: l_min_bucket1 := WF_ENGINE.GetItemAttrText(l_itemType, l_itemKey, 'BUCKET1');
2505: l_billed_currency_code := WF_ENGINE.GetItemAttrText(l_itemType, l_itemKey, 'CURRENCY');
2506: --------------------------------------------------------------
2507: l_debugInfo := 'Get WF BUCKET1..4 Item Attribute';
2508: --------------------------------------------------------------
2509: l_min_bucket1 := WF_ENGINE.GetItemAttrText(l_itemType, l_itemKey, 'BUCKET1');
2510: l_max_bucket1 := WF_ENGINE.GetItemAttrText(l_itemType, l_itemKey, 'BUCKET2');
2511:
2512: l_min_bucket := to_number(l_min_bucket1);
2513: if(l_max_bucket1 = '+' ) then
2506: --------------------------------------------------------------
2507: l_debugInfo := 'Get WF BUCKET1..4 Item Attribute';
2508: --------------------------------------------------------------
2509: l_min_bucket1 := WF_ENGINE.GetItemAttrText(l_itemType, l_itemKey, 'BUCKET1');
2510: l_max_bucket1 := WF_ENGINE.GetItemAttrText(l_itemType, l_itemKey, 'BUCKET2');
2511:
2512: l_min_bucket := to_number(l_min_bucket1);
2513: if(l_max_bucket1 = '+' ) then
2514: l_max_bucket := 1000000;
2542:
2543: --------------------------------------------------------------
2544: l_debugInfo := 'Get WF CARD_PROG_ID Item Attribute';
2545: --------------------------------------------------------------
2546: l_cardProgramId := WF_ENGINE.GetItemAttrNumber(l_itemType, l_itemKey, 'CARD_PROG_ID');
2547: --------------------------------------------------------------
2548: l_debugInfo := 'Get WF EMPLOYEE_ID Item Attribute';
2549: --------------------------------------------------------------
2550: l_employeeId := WF_ENGINE.GetItemAttrNumber(l_itemType, l_itemKey, 'EMPLOYEE_ID');
2546: l_cardProgramId := WF_ENGINE.GetItemAttrNumber(l_itemType, l_itemKey, 'CARD_PROG_ID');
2547: --------------------------------------------------------------
2548: l_debugInfo := 'Get WF EMPLOYEE_ID Item Attribute';
2549: --------------------------------------------------------------
2550: l_employeeId := WF_ENGINE.GetItemAttrNumber(l_itemType, l_itemKey, 'EMPLOYEE_ID');
2551: l_dateFormat := icx_sec.getID(icx_sec.PV_DATE_FORMAT);
2552:
2553: l_debugInfo := 'Loop over all the Dunning Charges ';
2554:
2746: l_itemtype := substrb(document_id, 1, l_colon - 1);
2747: l_itemkey := substrb(document_id, l_colon + 1);
2748:
2749: l_debugInfo := 'Get org_id';
2750: l_orgId := WF_ENGINE.GetItemAttrNumber(l_itemtype, l_itemKey, 'ORG_ID');
2751:
2752: l_supervisor_id := WF_ENGINE.GetItemAttrNumber(l_itemtype, l_itemKey, 'AGING_MANAGER_ID');
2753: l_final_manager_id := l_supervisor_id; --Bug 3337443
2754:
2748:
2749: l_debugInfo := 'Get org_id';
2750: l_orgId := WF_ENGINE.GetItemAttrNumber(l_itemtype, l_itemKey, 'ORG_ID');
2751:
2752: l_supervisor_id := WF_ENGINE.GetItemAttrNumber(l_itemtype, l_itemKey, 'AGING_MANAGER_ID');
2753: l_final_manager_id := l_supervisor_id; --Bug 3337443
2754:
2755: -- MOAC UPTAKE --
2756: -- Have new call back function defined for Item to set org context.
2765:
2766: l_debugInfo := 'Generate header';
2767: l_document := '';
2768:
2769: l_grace_days := WF_ENGINE.GetItemAttrText(l_itemType, l_itemKey, 'AGING_GRACE_DAYS');
2770:
2771: l_billed_currency_code := WF_ENGINE.GetItemAttrText(l_itemType, l_itemKey, 'CURRENCY');
2772: --------------------------------------------------------------
2773: l_debugInfo := 'Get WF BUCKET1..4 Item Attribute';
2767: l_document := '';
2768:
2769: l_grace_days := WF_ENGINE.GetItemAttrText(l_itemType, l_itemKey, 'AGING_GRACE_DAYS');
2770:
2771: l_billed_currency_code := WF_ENGINE.GetItemAttrText(l_itemType, l_itemKey, 'CURRENCY');
2772: --------------------------------------------------------------
2773: l_debugInfo := 'Get WF BUCKET1..4 Item Attribute';
2774: --------------------------------------------------------------
2775: l_min_bucket1 := WF_ENGINE.GetItemAttrText(l_itemType, l_itemKey, 'BUCKET1');
2771: l_billed_currency_code := WF_ENGINE.GetItemAttrText(l_itemType, l_itemKey, 'CURRENCY');
2772: --------------------------------------------------------------
2773: l_debugInfo := 'Get WF BUCKET1..4 Item Attribute';
2774: --------------------------------------------------------------
2775: l_min_bucket1 := WF_ENGINE.GetItemAttrText(l_itemType, l_itemKey, 'BUCKET1');
2776: l_max_bucket1 := WF_ENGINE.GetItemAttrText(l_itemType, l_itemKey, 'BUCKET2');
2777:
2778: l_min_bucket := to_number(l_min_bucket1);
2779: if(l_max_bucket1 = '+' ) then
2772: --------------------------------------------------------------
2773: l_debugInfo := 'Get WF BUCKET1..4 Item Attribute';
2774: --------------------------------------------------------------
2775: l_min_bucket1 := WF_ENGINE.GetItemAttrText(l_itemType, l_itemKey, 'BUCKET1');
2776: l_max_bucket1 := WF_ENGINE.GetItemAttrText(l_itemType, l_itemKey, 'BUCKET2');
2777:
2778: l_min_bucket := to_number(l_min_bucket1);
2779: if(l_max_bucket1 = '+' ) then
2780: l_max_bucket := 1000000;
2814:
2815: --------------------------------------------------------------
2816: l_debugInfo := 'Get WF CARD_PROG_ID Item Attribute';
2817: --------------------------------------------------------------
2818: l_cardProgramId := WF_ENGINE.GetItemAttrNumber(l_itemType, l_itemKey, 'CARD_PROG_ID');
2819: --------------------------------------------------------------
2820: l_debugInfo := 'Get WF EMPLOYEE_ID Item Attribute';
2821: --------------------------------------------------------------
2822: l_employeeId := WF_ENGINE.GetItemAttrNumber(l_itemType, l_itemKey, 'EMPLOYEE_ID');
2818: l_cardProgramId := WF_ENGINE.GetItemAttrNumber(l_itemType, l_itemKey, 'CARD_PROG_ID');
2819: --------------------------------------------------------------
2820: l_debugInfo := 'Get WF EMPLOYEE_ID Item Attribute';
2821: --------------------------------------------------------------
2822: l_employeeId := WF_ENGINE.GetItemAttrNumber(l_itemType, l_itemKey, 'EMPLOYEE_ID');
2823: l_dateFormat := icx_sec.getID(icx_sec.PV_DATE_FORMAT);
2824:
2825: l_debugInfo := 'Loop over all the Dunning Charges ';
2826:
2823: l_dateFormat := icx_sec.getID(icx_sec.PV_DATE_FORMAT);
2824:
2825: l_debugInfo := 'Loop over all the Dunning Charges ';
2826:
2827: l_dunning_number := WF_ENGINE.GetItemAttrNumber(l_itemType, l_itemKey, 'DUNNING_NUMBER'); --Bug 3337388
2828:
2829: -- IF (NOT GetHierarchialEmployeeCursor(l_supervisor_id,l_employee_cursor)) THEN
2830: -- 5049215 -- Added the dunning number to the function level as only records of this dunning level are processed later.
2831: IF (NOT GetHierarchialEmployeeCursor(l_supervisor_id,l_employee_cursor, l_dunning_number)) THEN
2921: END LOOP;
2922: close l_employee_cursor;
2923:
2924: --Set Outstanding total amount attribute.
2925: WF_ENGINE.SetItemAttrText(l_itemType, l_itemKey, 'MGR_ESC_AMOUNT', l_employee_name);
2926:
2927: --------------------------------------------
2928: l_debugInfo := 'Generate Total Row';
2929: --------------------------------------------
3287: ----------------------------------------------------------------------
3288:
3289: BEGIN
3290: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_CREDIT_CARD_WF', 'start IsNotificationRepeated');
3291: p_result := WF_ENGINE.GetItemAttrText(p_item_type,
3292: p_item_key,
3293: 'MGR_ALREADY_NOTIFIED');
3294: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_CREDIT_CARD_WF', 'end IsNotificationRepeated');
3295:
3311: ----------------------------------------------------------------------
3312:
3313: BEGIN
3314: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_CREDIT_CARD_WF', 'start SendNotifications');
3315: p_result := WF_ENGINE.GetItemAttrText(p_item_type,
3316: p_item_key,
3317: 'SEND_NOTIFICATIONS_PARAM');
3318: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_CREDIT_CARD_WF', 'end SendNotifications');
3319: END SendNotifications;
3336: ----------------------------------------------------------------------
3337:
3338: BEGIN
3339: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_CREDIT_CARD_WF', 'start IsFirstDunning');
3340: p_result := WF_ENGINE.GetItemAttrText(p_item_type,
3341: p_item_key,
3342: 'FIRST_DUNNING');
3343: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_CREDIT_CARD_WF', 'end IsFirstDunning');
3344:
3446: l_itemType := p_itemType;
3447: l_itemKey := p_itemKey;
3448:
3449: l_debugInfo := 'Get org_id';
3450: l_orgId := WF_ENGINE.GetItemAttrNumber(l_itemtype, l_itemKey, 'ORG_ID');
3451:
3452: l_supervisor_id := WF_ENGINE.GetItemAttrNumber(l_itemtype, l_itemKey, 'AGING_MANAGER_ID');
3453: l_final_manager_id := l_supervisor_id;
3454:
3448:
3449: l_debugInfo := 'Get org_id';
3450: l_orgId := WF_ENGINE.GetItemAttrNumber(l_itemtype, l_itemKey, 'ORG_ID');
3451:
3452: l_supervisor_id := WF_ENGINE.GetItemAttrNumber(l_itemtype, l_itemKey, 'AGING_MANAGER_ID');
3453: l_final_manager_id := l_supervisor_id;
3454:
3455: -- MOAC UPTAKE --
3456: -- Have new call back function defined for Item to set org context.
3457: --
3458: -- l_debugInfo := 'Set Org context';
3459: -- fnd_client_info.set_org_context(l_orgId);
3460:
3461: l_grace_days := WF_ENGINE.GetItemAttrText(l_itemType, l_itemKey, 'AGING_GRACE_DAYS');
3462:
3463: l_billed_currency_code := WF_ENGINE.GetItemAttrText(l_itemType, l_itemKey, 'CURRENCY');
3464: --------------------------------------------------------------
3465: l_debugInfo := 'Get WF BUCKET1..4 Item Attribute';
3459: -- fnd_client_info.set_org_context(l_orgId);
3460:
3461: l_grace_days := WF_ENGINE.GetItemAttrText(l_itemType, l_itemKey, 'AGING_GRACE_DAYS');
3462:
3463: l_billed_currency_code := WF_ENGINE.GetItemAttrText(l_itemType, l_itemKey, 'CURRENCY');
3464: --------------------------------------------------------------
3465: l_debugInfo := 'Get WF BUCKET1..4 Item Attribute';
3466: --------------------------------------------------------------
3467: l_min_bucket1 := WF_ENGINE.GetItemAttrText(l_itemType, l_itemKey, 'BUCKET1');
3463: l_billed_currency_code := WF_ENGINE.GetItemAttrText(l_itemType, l_itemKey, 'CURRENCY');
3464: --------------------------------------------------------------
3465: l_debugInfo := 'Get WF BUCKET1..4 Item Attribute';
3466: --------------------------------------------------------------
3467: l_min_bucket1 := WF_ENGINE.GetItemAttrText(l_itemType, l_itemKey, 'BUCKET1');
3468: l_max_bucket1 := WF_ENGINE.GetItemAttrText(l_itemType, l_itemKey, 'BUCKET2');
3469:
3470: l_min_bucket := to_number(l_min_bucket1);
3471: if(l_max_bucket1 = '+' ) then
3464: --------------------------------------------------------------
3465: l_debugInfo := 'Get WF BUCKET1..4 Item Attribute';
3466: --------------------------------------------------------------
3467: l_min_bucket1 := WF_ENGINE.GetItemAttrText(l_itemType, l_itemKey, 'BUCKET1');
3468: l_max_bucket1 := WF_ENGINE.GetItemAttrText(l_itemType, l_itemKey, 'BUCKET2');
3469:
3470: l_min_bucket := to_number(l_min_bucket1);
3471: if(l_max_bucket1 = '+' ) then
3472: l_max_bucket := 1000000;
3477:
3478: --------------------------------------------------------------
3479: l_debugInfo := 'Get WF CARD_PROG_ID Item Attribute';
3480: --------------------------------------------------------------
3481: l_cardProgramId := WF_ENGINE.GetItemAttrNumber(l_itemType, l_itemKey, 'CARD_PROG_ID');
3482: --------------------------------------------------------------
3483: l_debugInfo := 'Get WF EMPLOYEE_ID Item Attribute';
3484: --------------------------------------------------------------
3485: l_employeeId := WF_ENGINE.GetItemAttrNumber(l_itemType, l_itemKey, 'EMPLOYEE_ID');
3481: l_cardProgramId := WF_ENGINE.GetItemAttrNumber(l_itemType, l_itemKey, 'CARD_PROG_ID');
3482: --------------------------------------------------------------
3483: l_debugInfo := 'Get WF EMPLOYEE_ID Item Attribute';
3484: --------------------------------------------------------------
3485: l_employeeId := WF_ENGINE.GetItemAttrNumber(l_itemType, l_itemKey, 'EMPLOYEE_ID');
3486: l_dateFormat := icx_sec.getID(icx_sec.PV_DATE_FORMAT);
3487:
3488: l_debugInfo := 'Loop over all the Dunning Charges ';
3489:
3486: l_dateFormat := icx_sec.getID(icx_sec.PV_DATE_FORMAT);
3487:
3488: l_debugInfo := 'Loop over all the Dunning Charges ';
3489:
3490: l_dunning_number := WF_ENGINE.GetItemAttrNumber(l_itemType, l_itemKey, 'DUNNING_NUMBER');
3491:
3492: DELETE FROM ap_ccard_esc_next_gt;
3493:
3494: -- IF (NOT GetHierarchialEmployeeCursor(l_supervisor_id,l_employee_cursor)) THEN
3565: END LOOP;
3566: close l_employee_cursor;
3567: commit;
3568: --Set Outstanding total amount attribute.
3569: WF_ENGINE.SetItemAttrText(l_itemType, l_itemKey, 'MGR_ESC_AMOUNT', l_employee_name);
3570:
3571: EXCEPTION
3572: WHEN OTHERS THEN
3573: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'GetWebNextEscManager',
3629: l_itemType := p_itemType;
3630: l_itemKey := p_itemKey;
3631:
3632: l_debugInfo := 'Get org_id';
3633: l_orgId := WF_ENGINE.GetItemAttrNumber(l_itemtype, l_itemKey, 'ORG_ID');
3634:
3635: -- MOAC UPTAKE --
3636: -- Have new call back function defined for Item to set org context.
3637: --
3637: --
3638: -- l_debugInfo := 'Set Org context';
3639: -- fnd_client_info.set_org_context(l_orgId);
3640:
3641: l_grace_days := WF_ENGINE.GetItemAttrText(l_itemType, l_itemKey, 'AGING_GRACE_DAYS');
3642:
3643:
3644: l_billed_currency_code := WF_ENGINE.GetItemAttrText(l_itemType, l_itemKey, 'CURRENCY');
3645: --------------------------------------------------------------
3640:
3641: l_grace_days := WF_ENGINE.GetItemAttrText(l_itemType, l_itemKey, 'AGING_GRACE_DAYS');
3642:
3643:
3644: l_billed_currency_code := WF_ENGINE.GetItemAttrText(l_itemType, l_itemKey, 'CURRENCY');
3645: --------------------------------------------------------------
3646: l_debugInfo := 'Get WF BUCKET1..4 Item Attribute';
3647: --------------------------------------------------------------
3648: l_min_bucket1 := WF_ENGINE.GetItemAttrText(l_itemType, l_itemKey, 'BUCKET1');
3644: l_billed_currency_code := WF_ENGINE.GetItemAttrText(l_itemType, l_itemKey, 'CURRENCY');
3645: --------------------------------------------------------------
3646: l_debugInfo := 'Get WF BUCKET1..4 Item Attribute';
3647: --------------------------------------------------------------
3648: l_min_bucket1 := WF_ENGINE.GetItemAttrText(l_itemType, l_itemKey, 'BUCKET1');
3649: l_max_bucket1 := WF_ENGINE.GetItemAttrText(l_itemType, l_itemKey, 'BUCKET2');
3650:
3651: l_min_bucket := to_number(l_min_bucket1);
3652: if(l_max_bucket1 = '+' ) then
3645: --------------------------------------------------------------
3646: l_debugInfo := 'Get WF BUCKET1..4 Item Attribute';
3647: --------------------------------------------------------------
3648: l_min_bucket1 := WF_ENGINE.GetItemAttrText(l_itemType, l_itemKey, 'BUCKET1');
3649: l_max_bucket1 := WF_ENGINE.GetItemAttrText(l_itemType, l_itemKey, 'BUCKET2');
3650:
3651: l_min_bucket := to_number(l_min_bucket1);
3652: if(l_max_bucket1 = '+' ) then
3653: l_max_bucket := 1000000;
3657:
3658: --------------------------------------------------------------
3659: l_debugInfo := 'Get WF CARD_PROG_ID Item Attribute';
3660: --------------------------------------------------------------
3661: l_cardProgramId := WF_ENGINE.GetItemAttrNumber(l_itemType, l_itemKey, 'CARD_PROG_ID');
3662:
3663: --------------------------------------------------------------
3664: l_debugInfo := 'Get WF EMPLOYEE_ID Item Attribute';
3665: --------------------------------------------------------------
3662:
3663: --------------------------------------------------------------
3664: l_debugInfo := 'Get WF EMPLOYEE_ID Item Attribute';
3665: --------------------------------------------------------------
3666: l_employeeId := WF_ENGINE.GetItemAttrNumber(l_itemType, l_itemKey, 'EMPLOYEE_ID');
3667: l_dateFormat := icx_sec.getID(icx_sec.PV_DATE_FORMAT);
3668:
3669: l_debugInfo := 'Loop over all the Dunning Charges ';
3670:
3775:
3776: --------------------------------------------------
3777: l_debugInfo := 'Calling WorkFlow Create Process';
3778: --------------------------------------------------
3779: WF_ENGINE.CreateProcess(l_itemType, l_itemKey, 'DEACTIVATED_TRXNS');
3780:
3781: ----------------------------------------------------------
3782: l_debugInfo := 'Set DATE2 Item Attribute';
3783: ----------------------------------------------------------
3784: --
3785: -- Set the date in canonical format so that the web pages
3786: -- can convert this into appropriate user preference format.
3787: --
3788: WF_ENGINE.SetItemAttrText( l_itemType,
3789: l_itemKey,
3790: 'DATE2',
3791: FND_DATE.date_to_canonical(to_date(p_endDate,
3792: nvl(icx_sec.g_date_format,
3798:
3799: ----------------------------------------------------------
3800: l_debugInfo := 'Set EMPLOYEE_NAME Item Attribute';
3801: ----------------------------------------------------------
3802: WF_ENGINE.SetItemAttrText( l_itemType,
3803: l_itemKey,
3804: 'EMPLOYEE_NAME',
3805: l_employeeName);
3806:
3806:
3807: ----------------------------------------------------------
3808: l_debugInfo := 'Set EMPLOYEE_NAME Item Attribute';
3809: ----------------------------------------------------------
3810: WF_ENGINE.SetItemAttrText( l_itemType,
3811: l_itemKey,
3812: 'EMP_DISPLAY_NAME',
3813: l_employeeDisplayName);
3814:
3819: l_cardProgramName ) ) THEN
3820: NULL;
3821: END IF;
3822:
3823: WF_ENGINE.SetItemAttrText( l_itemType,
3824: l_itemKey,
3825: 'CREDIT_CARD_COMPANY',
3826: l_cardProgramName);
3827:
3824: l_itemKey,
3825: 'CREDIT_CARD_COMPANY',
3826: l_cardProgramName);
3827:
3828: WF_ENGINE.StartProcess(l_itemType, l_itemKey);
3829:
3830: END SendDeactivatedNotif;
3831: ---------------------------------------------------------------
3832:
3849:
3850: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_CREDIT_CARD_WF', 'start CallbackFunction');
3851:
3852: begin
3853: l_org_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
3854: p_item_key,
3855: 'ORG_ID');
3856: exception
3857: when others then
3861: -- hence remove the call GetOrgIdByReportHeaderId and instead
3862: -- get the org_id from card program(ap_card_programs).
3863: if (wf_core.error_name = 'WFENG_ITEM_ATTR') then
3864: begin
3865: l_card_prog_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
3866: p_item_key,
3867: 'CARD_PROG_ID');
3868:
3869: exception
3871: null;
3872: end;
3873: if l_card_prog_id is null then
3874: begin
3875: l_card_prog_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
3876: p_item_key,
3877: 'CARD_PROGRAM_ID');
3878: exception
3879: when others then
3894: l_org_id := NULL;
3895: end if;
3896:
3897: -- ORG_ID item attribute doesn't exist, need to add it
3898: wf_engine.AddItemAttr(p_item_type, p_item_key, 'ORG_ID');
3899: WF_ENGINE.SetItemAttrNumber(p_item_type,
3900: p_item_key,
3901: 'ORG_ID',
3902: l_org_id);
3895: end if;
3896:
3897: -- ORG_ID item attribute doesn't exist, need to add it
3898: wf_engine.AddItemAttr(p_item_type, p_item_key, 'ORG_ID');
3899: WF_ENGINE.SetItemAttrNumber(p_item_type,
3900: p_item_key,
3901: 'ORG_ID',
3902: l_org_id);
3903: else