259: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
260: rollback to BECAUSE_OF_BUG_IN_lock;
261: RAISE OKE_API.G_EXCEPTION_ERROR;
262: END IF;
263: wf_engine.CreateProcess( ItemType => L_WF_NAME,
264: ItemKey => L_KEY,
265: process => L_WF_PROCESS_NAME);
266: wf_engine.SetItemUserKey (ItemType => L_WF_NAME,
267: ItemKey => L_KEY,
262: END IF;
263: wf_engine.CreateProcess( ItemType => L_WF_NAME,
264: ItemKey => L_KEY,
265: process => L_WF_PROCESS_NAME);
266: wf_engine.SetItemUserKey (ItemType => L_WF_NAME,
267: ItemKey => L_KEY,
268: UserKey => L_KEY);
269: /* -- commented not to jeopardize wf by wrong data format,
270: -- instead use process_id attribute
277: L_PAR_VALUE;
278: exit when defined_parameters_csr%NOTFOUND;
279: if L_PAR_TYPE = 'C' then
280: begin
281: wf_engine.SetItemAttrText (itemtype => L_WF_NAME,
282: itemkey => L_KEY,
283: aname => L_PAR_NAME,
284: avalue => L_PAR_VALUE);
285: exception
283: aname => L_PAR_NAME,
284: avalue => L_PAR_VALUE);
285: exception
286: when others then
287: wf_engine.AddItemAttr (itemtype => L_WF_NAME,
288: itemkey => L_KEY,
289: aname => L_PAR_NAME);
290: wf_engine.SetItemAttrText (itemtype => L_WF_NAME,
291: itemkey => L_KEY,
286: when others then
287: wf_engine.AddItemAttr (itemtype => L_WF_NAME,
288: itemkey => L_KEY,
289: aname => L_PAR_NAME);
290: wf_engine.SetItemAttrText (itemtype => L_WF_NAME,
291: itemkey => L_KEY,
292: aname => L_PAR_NAME,
293: avalue => L_PAR_VALUE);
294: end;
293: avalue => L_PAR_VALUE);
294: end;
295: elsif L_PAR_TYPE = 'N' then
296: begin
297: wf_engine.SetItemAttrNumber (itemtype => L_WF_NAME,
298: itemkey => L_KEY,
299: aname => L_PAR_NAME,
300: avalue => to_number(L_PAR_VALUE));
301: exception
299: aname => L_PAR_NAME,
300: avalue => to_number(L_PAR_VALUE));
301: exception
302: when others then
303: wf_engine.AddItemAttr (itemtype => L_WF_NAME,
304: itemkey => L_KEY,
305: aname => L_PAR_NAME);
306: wf_engine.SetItemAttrNumber (itemtype => L_WF_NAME,
307: itemkey => L_KEY,
302: when others then
303: wf_engine.AddItemAttr (itemtype => L_WF_NAME,
304: itemkey => L_KEY,
305: aname => L_PAR_NAME);
306: wf_engine.SetItemAttrNumber (itemtype => L_WF_NAME,
307: itemkey => L_KEY,
308: aname => L_PAR_NAME,
309: avalue => to_number(L_PAR_VALUE));
310: end;
309: avalue => to_number(L_PAR_VALUE));
310: end;
311: elsif L_PAR_TYPE = 'D' then
312: begin
313: wf_engine.SetItemAttrDate (itemtype => L_WF_NAME,
314: itemkey => L_KEY,
315: aname => L_PAR_NAME,
316: avalue => fnd_date.chardate_to_date(L_PAR_VALUE));
317: exception
315: aname => L_PAR_NAME,
316: avalue => fnd_date.chardate_to_date(L_PAR_VALUE));
317: exception
318: when others then
319: wf_engine.AddItemAttr (itemtype => L_WF_NAME,
320: itemkey => L_KEY,
321: aname => L_PAR_NAME);
322: wf_engine.SetItemAttrDate (itemtype => L_WF_NAME,
323: itemkey => L_KEY,
318: when others then
319: wf_engine.AddItemAttr (itemtype => L_WF_NAME,
320: itemkey => L_KEY,
321: aname => L_PAR_NAME);
322: wf_engine.SetItemAttrDate (itemtype => L_WF_NAME,
323: itemkey => L_KEY,
324: aname => L_PAR_NAME,
325: avalue => fnd_date.chardate_to_date(L_PAR_VALUE));
326: end;
328: END LOOP;
329: */
330: -- replacement to previous commented
331: begin
332: wf_engine.SetItemAttrNumber (itemtype => L_WF_NAME,
333: itemkey => L_KEY,
334: aname => 'PROCESS_ID',
335: avalue => p_process_id);
336: exception
334: aname => 'PROCESS_ID',
335: avalue => p_process_id);
336: exception
337: when others then
338: wf_engine.AddItemAttr (itemtype => L_WF_NAME,
339: itemkey => L_KEY,
340: aname => 'PROCESS_ID');
341: wf_engine.SetItemAttrNumber (itemtype => L_WF_NAME,
342: itemkey => L_KEY,
337: when others then
338: wf_engine.AddItemAttr (itemtype => L_WF_NAME,
339: itemkey => L_KEY,
340: aname => 'PROCESS_ID');
341: wf_engine.SetItemAttrNumber (itemtype => L_WF_NAME,
342: itemkey => L_KEY,
343: aname => 'PROCESS_ID',
344: avalue => p_process_id);
345: end;
344: avalue => p_process_id);
345: end;
346: --
347: begin
348: wf_engine.SetItemAttrNumber (itemtype => L_WF_NAME,
349: itemkey => L_KEY,
350: aname => 'CONTRACT_ID',
351: avalue => p_contract_id);
352: exception
350: aname => 'CONTRACT_ID',
351: avalue => p_contract_id);
352: exception
353: when others then
354: wf_engine.AddItemAttr (itemtype => L_WF_NAME,
355: itemkey => L_KEY,
356: aname => 'CONTRACT_ID');
357: wf_engine.SetItemAttrNumber (itemtype => L_WF_NAME,
358: itemkey => L_KEY,
353: when others then
354: wf_engine.AddItemAttr (itemtype => L_WF_NAME,
355: itemkey => L_KEY,
356: aname => 'CONTRACT_ID');
357: wf_engine.SetItemAttrNumber (itemtype => L_WF_NAME,
358: itemkey => L_KEY,
359: aname => 'CONTRACT_ID',
360: avalue => p_contract_id);
361: end;
359: aname => 'CONTRACT_ID',
360: avalue => p_contract_id);
361: end;
362: begin
363: wf_engine.SetItemAttrText (itemtype => L_WF_NAME,
364: itemkey => L_KEY,
365: aname => 'CONTRACT_NUMBER',
366: avalue => l_contract_number);
367: exception
365: aname => 'CONTRACT_NUMBER',
366: avalue => l_contract_number);
367: exception
368: when others then
369: wf_engine.AddItemAttr (itemtype => L_WF_NAME,
370: itemkey => L_KEY,
371: aname => 'CONTRACT_NUMBER');
372: wf_engine.SetItemAttrText (itemtype => L_WF_NAME,
373: itemkey => L_KEY,
368: when others then
369: wf_engine.AddItemAttr (itemtype => L_WF_NAME,
370: itemkey => L_KEY,
371: aname => 'CONTRACT_NUMBER');
372: wf_engine.SetItemAttrText (itemtype => L_WF_NAME,
373: itemkey => L_KEY,
374: aname => 'CONTRACT_NUMBER',
375: avalue => l_contract_number);
376: end;
374: aname => 'CONTRACT_NUMBER',
375: avalue => l_contract_number);
376: end;
377: begin
378: wf_engine.SetItemAttrText (itemtype => L_WF_NAME,
379: itemkey => L_KEY,
380: aname => 'CONTRACT_NUMBER_MODIFIER',
381: avalue => l_contract_number_MODIFIER);
382: exception
380: aname => 'CONTRACT_NUMBER_MODIFIER',
381: avalue => l_contract_number_MODIFIER);
382: exception
383: when others then
384: wf_engine.AddItemAttr (itemtype => L_WF_NAME,
385: itemkey => L_KEY,
386: aname => 'CONTRACT_NUMBER_MODIFIER');
387: wf_engine.SetItemAttrText (itemtype => L_WF_NAME,
388: itemkey => L_KEY,
383: when others then
384: wf_engine.AddItemAttr (itemtype => L_WF_NAME,
385: itemkey => L_KEY,
386: aname => 'CONTRACT_NUMBER_MODIFIER');
387: wf_engine.SetItemAttrText (itemtype => L_WF_NAME,
388: itemkey => L_KEY,
389: aname => 'CONTRACT_NUMBER_MODIFIER',
390: avalue => l_contract_number_MODIFIER);
391: end;
389: aname => 'CONTRACT_NUMBER_MODIFIER',
390: avalue => l_contract_number_MODIFIER);
391: end;
392: begin
393: wf_engine.SetItemAttrNumber (itemtype => L_WF_NAME,
394: itemkey => L_KEY,
395: aname => 'USER_ID',
396: avalue => fnd_global.user_id);
397: exception
395: aname => 'USER_ID',
396: avalue => fnd_global.user_id);
397: exception
398: when others then
399: wf_engine.AddItemAttr (itemtype => L_WF_NAME,
400: itemkey => L_KEY,
401: aname => 'USER_ID');
402: wf_engine.SetItemAttrNumber(itemtype => L_WF_NAME,
403: itemkey => L_KEY,
398: when others then
399: wf_engine.AddItemAttr (itemtype => L_WF_NAME,
400: itemkey => L_KEY,
401: aname => 'USER_ID');
402: wf_engine.SetItemAttrNumber(itemtype => L_WF_NAME,
403: itemkey => L_KEY,
404: aname => 'USER_ID',
405: avalue => fnd_global.user_id);
406: end;
404: aname => 'USER_ID',
405: avalue => fnd_global.user_id);
406: end;
407: begin
408: wf_engine.SetItemAttrNumber (itemtype => L_WF_NAME,
409: itemkey => L_KEY,
410: aname => 'RESP_ID',
411: avalue => fnd_global.resp_id);
412: exception
410: aname => 'RESP_ID',
411: avalue => fnd_global.resp_id);
412: exception
413: when others then
414: wf_engine.AddItemAttr (itemtype => L_WF_NAME,
415: itemkey => L_KEY,
416: aname => 'RESP_ID');
417: wf_engine.SetItemAttrNumber(itemtype => L_WF_NAME,
418: itemkey => L_KEY,
413: when others then
414: wf_engine.AddItemAttr (itemtype => L_WF_NAME,
415: itemkey => L_KEY,
416: aname => 'RESP_ID');
417: wf_engine.SetItemAttrNumber(itemtype => L_WF_NAME,
418: itemkey => L_KEY,
419: aname => 'RESP_ID',
420: avalue => fnd_global.resp_id);
421: end;
419: aname => 'RESP_ID',
420: avalue => fnd_global.resp_id);
421: end;
422: begin
423: wf_engine.SetItemAttrNumber (itemtype => L_WF_NAME,
424: itemkey => L_KEY,
425: aname => 'RESP_APPL_ID',
426: avalue => fnd_global.RESP_APPL_id);
427: exception
425: aname => 'RESP_APPL_ID',
426: avalue => fnd_global.RESP_APPL_id);
427: exception
428: when others then
429: wf_engine.AddItemAttr (itemtype => L_WF_NAME,
430: itemkey => L_KEY,
431: aname => 'RESP_APPL_ID');
432: wf_engine.SetItemAttrNumber(itemtype => L_WF_NAME,
433: itemkey => L_KEY,
428: when others then
429: wf_engine.AddItemAttr (itemtype => L_WF_NAME,
430: itemkey => L_KEY,
431: aname => 'RESP_APPL_ID');
432: wf_engine.SetItemAttrNumber(itemtype => L_WF_NAME,
433: itemkey => L_KEY,
434: aname => 'RESP_APPL_ID',
435: avalue => fnd_global.RESP_APPL_id);
436: end;
434: aname => 'RESP_APPL_ID',
435: avalue => fnd_global.RESP_APPL_id);
436: end;
437: begin
438: wf_engine.SetItemAttrNumber (itemtype => L_WF_NAME,
439: itemkey => L_KEY,
440: aname => 'SECURITY_GROUP_ID',
441: avalue => fnd_global.SECURITY_GROUP_id);
442: exception
440: aname => 'SECURITY_GROUP_ID',
441: avalue => fnd_global.SECURITY_GROUP_id);
442: exception
443: when others then
444: wf_engine.AddItemAttr (itemtype => L_WF_NAME,
445: itemkey => L_KEY,
446: aname => 'SECURITY_GROUP_ID');
447: wf_engine.SetItemAttrNumber(itemtype => L_WF_NAME,
448: itemkey => L_KEY,
443: when others then
444: wf_engine.AddItemAttr (itemtype => L_WF_NAME,
445: itemkey => L_KEY,
446: aname => 'SECURITY_GROUP_ID');
447: wf_engine.SetItemAttrNumber(itemtype => L_WF_NAME,
448: itemkey => L_KEY,
449: aname => 'SECURITY_GROUP_ID',
450: avalue => fnd_global.SECURITY_GROUP_id);
451: end;
452: select value into L_NLS_VALUE
453: from NLS_SESSION_PARAMETERS
454: where PARAMETER='NLS_LANGUAGE';
455: begin
456: wf_engine.SetItemAttrText (itemtype => L_WF_NAME,
457: itemkey => L_KEY,
458: aname => 'NLS_LANGUAGE',
459: avalue => L_NLS_VALUE);
460: exception
458: aname => 'NLS_LANGUAGE',
459: avalue => L_NLS_VALUE);
460: exception
461: when others then
462: wf_engine.AddItemAttr (itemtype => L_WF_NAME,
463: itemkey => L_KEY,
464: aname => 'NLS_LANGUAGE');
465: wf_engine.SetItemAttrText (itemtype => L_WF_NAME,
466: itemkey => L_KEY,
461: when others then
462: wf_engine.AddItemAttr (itemtype => L_WF_NAME,
463: itemkey => L_KEY,
464: aname => 'NLS_LANGUAGE');
465: wf_engine.SetItemAttrText (itemtype => L_WF_NAME,
466: itemkey => L_KEY,
467: aname => 'NLS_LANGUAGE',
468: avalue => L_NLS_VALUE);
469: end;
470: select value into L_NLS_VALUE
471: from NLS_SESSION_PARAMETERS
472: where PARAMETER='NLS_DATE_FORMAT';
473: begin
474: wf_engine.SetItemAttrText (itemtype => L_WF_NAME,
475: itemkey => L_KEY,
476: aname => 'NLS_DATE_FORMAT',
477: avalue => L_NLS_VALUE);
478: exception
476: aname => 'NLS_DATE_FORMAT',
477: avalue => L_NLS_VALUE);
478: exception
479: when others then
480: wf_engine.AddItemAttr (itemtype => L_WF_NAME,
481: itemkey => L_KEY,
482: aname => 'NLS_DATE_FORMAT');
483: wf_engine.SetItemAttrText (itemtype => L_WF_NAME,
484: itemkey => L_KEY,
479: when others then
480: wf_engine.AddItemAttr (itemtype => L_WF_NAME,
481: itemkey => L_KEY,
482: aname => 'NLS_DATE_FORMAT');
483: wf_engine.SetItemAttrText (itemtype => L_WF_NAME,
484: itemkey => L_KEY,
485: aname => 'NLS_DATE_FORMAT',
486: avalue => L_NLS_VALUE);
487: end;
488: select value into L_NLS_VALUE
489: from NLS_SESSION_PARAMETERS
490: where PARAMETER='NLS_DATE_LANGUAGE';
491: begin
492: wf_engine.SetItemAttrText (itemtype => L_WF_NAME,
493: itemkey => L_KEY,
494: aname => 'NLS_DATE_LANGUAGE',
495: avalue => L_NLS_VALUE);
496: exception
494: aname => 'NLS_DATE_LANGUAGE',
495: avalue => L_NLS_VALUE);
496: exception
497: when others then
498: wf_engine.AddItemAttr (itemtype => L_WF_NAME,
499: itemkey => L_KEY,
500: aname => 'NLS_DATE_LANGUAGE');
501: wf_engine.SetItemAttrText (itemtype => L_WF_NAME,
502: itemkey => L_KEY,
497: when others then
498: wf_engine.AddItemAttr (itemtype => L_WF_NAME,
499: itemkey => L_KEY,
500: aname => 'NLS_DATE_LANGUAGE');
501: wf_engine.SetItemAttrText (itemtype => L_WF_NAME,
502: itemkey => L_KEY,
503: aname => 'NLS_DATE_LANGUAGE',
504: avalue => L_NLS_VALUE);
505: end;
506: select '"'||value||'"' into L_NLS_VALUE
507: from NLS_SESSION_PARAMETERS
508: where PARAMETER='NLS_NUMERIC_CHARACTERS';
509: begin
510: wf_engine.SetItemAttrText (itemtype => L_WF_NAME,
511: itemkey => L_KEY,
512: aname => 'NLS_NUMERIC_CHARACTERS',
513: avalue => L_NLS_VALUE);
514: exception
512: aname => 'NLS_NUMERIC_CHARACTERS',
513: avalue => L_NLS_VALUE);
514: exception
515: when others then
516: wf_engine.AddItemAttr (itemtype => L_WF_NAME,
517: itemkey => L_KEY,
518: aname => 'NLS_NUMERIC_CHARACTERS');
519: wf_engine.SetItemAttrText (itemtype => L_WF_NAME,
520: itemkey => L_KEY,
515: when others then
516: wf_engine.AddItemAttr (itemtype => L_WF_NAME,
517: itemkey => L_KEY,
518: aname => 'NLS_NUMERIC_CHARACTERS');
519: wf_engine.SetItemAttrText (itemtype => L_WF_NAME,
520: itemkey => L_KEY,
521: aname => 'NLS_NUMERIC_CHARACTERS',
522: avalue => L_NLS_VALUE);
523: end;
520: itemkey => L_KEY,
521: aname => 'NLS_NUMERIC_CHARACTERS',
522: avalue => L_NLS_VALUE);
523: end;
524: wf_engine.SetItemOwner ( itemtype => L_WF_NAME,
525: itemkey => L_KEY,
526: owner => fnd_global.user_name);
527: wf_engine.StartProcess( itemtype => L_WF_NAME,
528: itemkey => L_KEY);
523: end;
524: wf_engine.SetItemOwner ( itemtype => L_WF_NAME,
525: itemkey => L_KEY,
526: owner => fnd_global.user_name);
527: wf_engine.StartProcess( itemtype => L_WF_NAME,
528: itemkey => L_KEY);
529: if (p_do_commit = OKE_API.G_TRUE) then
530: commit;
531: end if;
735: OKE_API.SET_MESSAGE(p_app_name => g_app_name,
736: p_msg_name => G_K_NOT_ON_APPROVAL);
737: raise OKE_API.G_EXCEPTION_ERROR;
738: end if;
739: wf_engine.abortprocess(l_wf_name_active,l_key);
740: k_erase_approved(
741: p_contract_id => p_contract_id,
742: x_return_status => l_return_status
743: );
755: --+ if abort process defined
756: --+
757: if (L_Q = '!') then
758: -- previous initiator Uname
759: L_INITIATOR_NAME := wf_engine.GetItemAttrText(l_wf_name_active,L_KEY,'INITIATOR_NAME');
760: -- last approver Uname
761: L_FINAL_APPROVER_UNAME := NVL(
762: wf_engine.GetItemAttrText(l_wf_name_active,L_KEY,'NEXT_PERFORMER_USERNAME'),
763: wf_engine.GetItemAttrText(l_wf_name_active,L_KEY,'FINAL_APPROVER_UNAME')
758: -- previous initiator Uname
759: L_INITIATOR_NAME := wf_engine.GetItemAttrText(l_wf_name_active,L_KEY,'INITIATOR_NAME');
760: -- last approver Uname
761: L_FINAL_APPROVER_UNAME := NVL(
762: wf_engine.GetItemAttrText(l_wf_name_active,L_KEY,'NEXT_PERFORMER_USERNAME'),
763: wf_engine.GetItemAttrText(l_wf_name_active,L_KEY,'FINAL_APPROVER_UNAME')
764: );
765: if (L_FINAL_APPROVER_UNAME = L_INITIATOR_NAME) then
766: L_FINAL_APPROVER_UNAME := NULL;
759: L_INITIATOR_NAME := wf_engine.GetItemAttrText(l_wf_name_active,L_KEY,'INITIATOR_NAME');
760: -- last approver Uname
761: L_FINAL_APPROVER_UNAME := NVL(
762: wf_engine.GetItemAttrText(l_wf_name_active,L_KEY,'NEXT_PERFORMER_USERNAME'),
763: wf_engine.GetItemAttrText(l_wf_name_active,L_KEY,'FINAL_APPROVER_UNAME')
764: );
765: if (L_FINAL_APPROVER_UNAME = L_INITIATOR_NAME) then
766: L_FINAL_APPROVER_UNAME := NULL;
767: end if;
781: p_token2_value => L_KEY);
782: raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
783: end;
784: end;
785: wf_engine.CreateProcess( ItemType => l_wf_name_active,
786: ItemKey => L_KEY,
787: process => 'ABORT_PROCESS');
788: wf_engine.SetItemUserKey (ItemType => l_wf_name_active,
789: ItemKey => L_KEY,
784: end;
785: wf_engine.CreateProcess( ItemType => l_wf_name_active,
786: ItemKey => L_KEY,
787: process => 'ABORT_PROCESS');
788: wf_engine.SetItemUserKey (ItemType => l_wf_name_active,
789: ItemKey => L_KEY,
790: UserKey => L_KEY);
791: --+
792: --+ attributes
791: --+
792: --+ attributes
793: --+
794: begin
795: wf_engine.SetItemAttrNumber (itemtype => l_wf_name_active,
796: itemkey => L_KEY,
797: aname => 'CONTRACT_ID',
798: avalue => p_contract_id);
799: exception
797: aname => 'CONTRACT_ID',
798: avalue => p_contract_id);
799: exception
800: when others then
801: wf_engine.AddItemAttr (itemtype => l_wf_name_active,
802: itemkey => L_KEY,
803: aname => 'CONTRACT_ID');
804: wf_engine.SetItemAttrNumber (itemtype => l_wf_name_active,
805: itemkey => L_KEY,
800: when others then
801: wf_engine.AddItemAttr (itemtype => l_wf_name_active,
802: itemkey => L_KEY,
803: aname => 'CONTRACT_ID');
804: wf_engine.SetItemAttrNumber (itemtype => l_wf_name_active,
805: itemkey => L_KEY,
806: aname => 'CONTRACT_ID',
807: avalue => p_contract_id);
808: end;
806: aname => 'CONTRACT_ID',
807: avalue => p_contract_id);
808: end;
809: begin
810: wf_engine.SetItemAttrText (itemtype => l_wf_name_active,
811: itemkey => L_KEY,
812: aname => 'CONTRACT_NUMBER',
813: avalue => l_contract_number);
814: exception
812: aname => 'CONTRACT_NUMBER',
813: avalue => l_contract_number);
814: exception
815: when others then
816: wf_engine.AddItemAttr (itemtype => l_wf_name_active,
817: itemkey => L_KEY,
818: aname => 'CONTRACT_NUMBER');
819: wf_engine.SetItemAttrText (itemtype => l_wf_name_active,
820: itemkey => L_KEY,
815: when others then
816: wf_engine.AddItemAttr (itemtype => l_wf_name_active,
817: itemkey => L_KEY,
818: aname => 'CONTRACT_NUMBER');
819: wf_engine.SetItemAttrText (itemtype => l_wf_name_active,
820: itemkey => L_KEY,
821: aname => 'CONTRACT_NUMBER',
822: avalue => l_contract_number);
823: end;
821: aname => 'CONTRACT_NUMBER',
822: avalue => l_contract_number);
823: end;
824: begin
825: wf_engine.SetItemAttrText (itemtype => l_wf_name_active,
826: itemkey => L_KEY,
827: aname => 'CONTRACT_NUMBER_MODIFIER',
828: avalue => l_contract_number_MODIFIER);
829: exception
827: aname => 'CONTRACT_NUMBER_MODIFIER',
828: avalue => l_contract_number_MODIFIER);
829: exception
830: when others then
831: wf_engine.AddItemAttr (itemtype => l_wf_name_active,
832: itemkey => L_KEY,
833: aname => 'CONTRACT_NUMBER_MODIFIER');
834: wf_engine.SetItemAttrText (itemtype => l_wf_name_active,
835: itemkey => L_KEY,
830: when others then
831: wf_engine.AddItemAttr (itemtype => l_wf_name_active,
832: itemkey => L_KEY,
833: aname => 'CONTRACT_NUMBER_MODIFIER');
834: wf_engine.SetItemAttrText (itemtype => l_wf_name_active,
835: itemkey => L_KEY,
836: aname => 'CONTRACT_NUMBER_MODIFIER',
837: avalue => l_contract_number_MODIFIER);
838: end;
836: aname => 'CONTRACT_NUMBER_MODIFIER',
837: avalue => l_contract_number_MODIFIER);
838: end;
839: begin
840: wf_engine.SetItemAttrText (itemtype => l_wf_name_active,
841: itemkey => L_KEY,
842: aname => 'K_SHORT_DESCRIPTION',
843: avalue => L_K_SHORT_DESCRIPTION);
844: exception
842: aname => 'K_SHORT_DESCRIPTION',
843: avalue => L_K_SHORT_DESCRIPTION);
844: exception
845: when others then
846: wf_engine.AddItemAttr (itemtype => l_wf_name_active,
847: itemkey => L_KEY,
848: aname => 'K_SHORT_DESCRIPTION');
849: wf_engine.SetItemAttrText (itemtype => l_wf_name_active,
850: itemkey => L_KEY,
845: when others then
846: wf_engine.AddItemAttr (itemtype => l_wf_name_active,
847: itemkey => L_KEY,
848: aname => 'K_SHORT_DESCRIPTION');
849: wf_engine.SetItemAttrText (itemtype => l_wf_name_active,
850: itemkey => L_KEY,
851: aname => 'K_SHORT_DESCRIPTION',
852: avalue => L_K_SHORT_DESCRIPTION);
853: end;
855: open C_INITIATOR_DISPLAY_NAME;
856: fetch C_INITIATOR_DISPLAY_NAME into L_INITIATOR_DISPLAY_NAME;
857: close C_INITIATOR_DISPLAY_NAME;
858: begin
859: wf_engine.SetItemAttrText (itemtype => l_wf_name_active,
860: itemkey => L_KEY,
861: aname => 'INITIATOR_DISPLAY_NAME',
862: avalue => L_INITIATOR_DISPLAY_NAME);
863: exception
861: aname => 'INITIATOR_DISPLAY_NAME',
862: avalue => L_INITIATOR_DISPLAY_NAME);
863: exception
864: when others then
865: wf_engine.AddItemAttr (itemtype => l_wf_name_active,
866: itemkey => L_KEY,
867: aname => 'INITIATOR_DISPLAY_NAME');
868: wf_engine.SetItemAttrText (itemtype => l_wf_name_active,
869: itemkey => L_KEY,
864: when others then
865: wf_engine.AddItemAttr (itemtype => l_wf_name_active,
866: itemkey => L_KEY,
867: aname => 'INITIATOR_DISPLAY_NAME');
868: wf_engine.SetItemAttrText (itemtype => l_wf_name_active,
869: itemkey => L_KEY,
870: aname => 'INITIATOR_DISPLAY_NAME',
871: avalue => L_INITIATOR_DISPLAY_NAME);
872: end;
871: avalue => L_INITIATOR_DISPLAY_NAME);
872: end;
873: -- previous initiator Uname
874: begin
875: wf_engine.SetItemAttrText (itemtype => l_wf_name_active,
876: itemkey => L_KEY,
877: aname => 'INITIATOR_NAME',
878: avalue => L_INITIATOR_NAME);
879: exception
877: aname => 'INITIATOR_NAME',
878: avalue => L_INITIATOR_NAME);
879: exception
880: when others then
881: wf_engine.AddItemAttr (itemtype => l_wf_name_active,
882: itemkey => L_KEY,
883: aname => 'INITIATOR_NAME');
884: wf_engine.SetItemAttrText (itemtype => l_wf_name_active,
885: itemkey => L_KEY,
880: when others then
881: wf_engine.AddItemAttr (itemtype => l_wf_name_active,
882: itemkey => L_KEY,
883: aname => 'INITIATOR_NAME');
884: wf_engine.SetItemAttrText (itemtype => l_wf_name_active,
885: itemkey => L_KEY,
886: aname => 'INITIATOR_NAME',
887: avalue => L_INITIATOR_NAME);
888: end;
887: avalue => L_INITIATOR_NAME);
888: end;
889: -- previous approver Uname
890: begin
891: wf_engine.SetItemAttrText (itemtype => l_wf_name_active,
892: itemkey => L_KEY,
893: aname => 'FINAL_APPROVER_UNAME',
894: avalue => L_FINAL_APPROVER_UNAME);
895: exception
893: aname => 'FINAL_APPROVER_UNAME',
894: avalue => L_FINAL_APPROVER_UNAME);
895: exception
896: when others then
897: wf_engine.AddItemAttr (itemtype => l_wf_name_active,
898: itemkey => L_KEY,
899: aname => 'FINAL_APPROVER_UNAME');
900: wf_engine.SetItemAttrText (itemtype => l_wf_name_active,
901: itemkey => L_KEY,
896: when others then
897: wf_engine.AddItemAttr (itemtype => l_wf_name_active,
898: itemkey => L_KEY,
899: aname => 'FINAL_APPROVER_UNAME');
900: wf_engine.SetItemAttrText (itemtype => l_wf_name_active,
901: itemkey => L_KEY,
902: aname => 'FINAL_APPROVER_UNAME',
903: avalue => L_FINAL_APPROVER_UNAME);
904: end;
905: --
906: -- environment
907: --
908: begin
909: wf_engine.SetItemAttrNumber (itemtype => l_wf_name_active,
910: itemkey => L_KEY,
911: aname => 'USER_ID',
912: avalue => fnd_global.user_id);
913: exception
911: aname => 'USER_ID',
912: avalue => fnd_global.user_id);
913: exception
914: when others then
915: wf_engine.AddItemAttr (itemtype => l_wf_name_active,
916: itemkey => L_KEY,
917: aname => 'USER_ID');
918: wf_engine.SetItemAttrNumber(itemtype => l_wf_name_active,
919: itemkey => L_KEY,
914: when others then
915: wf_engine.AddItemAttr (itemtype => l_wf_name_active,
916: itemkey => L_KEY,
917: aname => 'USER_ID');
918: wf_engine.SetItemAttrNumber(itemtype => l_wf_name_active,
919: itemkey => L_KEY,
920: aname => 'USER_ID',
921: avalue => fnd_global.user_id);
922: end;
920: aname => 'USER_ID',
921: avalue => fnd_global.user_id);
922: end;
923: begin
924: wf_engine.SetItemAttrNumber (itemtype => l_wf_name_active,
925: itemkey => L_KEY,
926: aname => 'RESP_ID',
927: avalue => fnd_global.resp_id);
928: exception
926: aname => 'RESP_ID',
927: avalue => fnd_global.resp_id);
928: exception
929: when others then
930: wf_engine.AddItemAttr (itemtype => l_wf_name_active,
931: itemkey => L_KEY,
932: aname => 'RESP_ID');
933: wf_engine.SetItemAttrNumber(itemtype => l_wf_name_active,
934: itemkey => L_KEY,
929: when others then
930: wf_engine.AddItemAttr (itemtype => l_wf_name_active,
931: itemkey => L_KEY,
932: aname => 'RESP_ID');
933: wf_engine.SetItemAttrNumber(itemtype => l_wf_name_active,
934: itemkey => L_KEY,
935: aname => 'RESP_ID',
936: avalue => fnd_global.resp_id);
937: end;
935: aname => 'RESP_ID',
936: avalue => fnd_global.resp_id);
937: end;
938: begin
939: wf_engine.SetItemAttrNumber (itemtype => l_wf_name_active,
940: itemkey => L_KEY,
941: aname => 'RESP_APPL_ID',
942: avalue => fnd_global.RESP_APPL_id);
943: exception
941: aname => 'RESP_APPL_ID',
942: avalue => fnd_global.RESP_APPL_id);
943: exception
944: when others then
945: wf_engine.AddItemAttr (itemtype => l_wf_name_active,
946: itemkey => L_KEY,
947: aname => 'RESP_APPL_ID');
948: wf_engine.SetItemAttrNumber(itemtype => l_wf_name_active,
949: itemkey => L_KEY,
944: when others then
945: wf_engine.AddItemAttr (itemtype => l_wf_name_active,
946: itemkey => L_KEY,
947: aname => 'RESP_APPL_ID');
948: wf_engine.SetItemAttrNumber(itemtype => l_wf_name_active,
949: itemkey => L_KEY,
950: aname => 'RESP_APPL_ID',
951: avalue => fnd_global.RESP_APPL_id);
952: end;
950: aname => 'RESP_APPL_ID',
951: avalue => fnd_global.RESP_APPL_id);
952: end;
953: begin
954: wf_engine.SetItemAttrNumber (itemtype => l_wf_name_active,
955: itemkey => L_KEY,
956: aname => 'SECURITY_GROUP_ID',
957: avalue => fnd_global.SECURITY_GROUP_id);
958: exception
956: aname => 'SECURITY_GROUP_ID',
957: avalue => fnd_global.SECURITY_GROUP_id);
958: exception
959: when others then
960: wf_engine.AddItemAttr (itemtype => l_wf_name_active,
961: itemkey => L_KEY,
962: aname => 'SECURITY_GROUP_ID');
963: wf_engine.SetItemAttrNumber(itemtype => l_wf_name_active,
964: itemkey => L_KEY,
959: when others then
960: wf_engine.AddItemAttr (itemtype => l_wf_name_active,
961: itemkey => L_KEY,
962: aname => 'SECURITY_GROUP_ID');
963: wf_engine.SetItemAttrNumber(itemtype => l_wf_name_active,
964: itemkey => L_KEY,
965: aname => 'SECURITY_GROUP_ID',
966: avalue => fnd_global.SECURITY_GROUP_id);
967: end;
968: select value into L_NLS_VALUE
969: from NLS_SESSION_PARAMETERS
970: where PARAMETER='NLS_LANGUAGE';
971: begin
972: wf_engine.SetItemAttrText (itemtype => l_wf_name_active,
973: itemkey => L_KEY,
974: aname => 'NLS_LANGUAGE',
975: avalue => L_NLS_VALUE);
976: exception
974: aname => 'NLS_LANGUAGE',
975: avalue => L_NLS_VALUE);
976: exception
977: when others then
978: wf_engine.AddItemAttr (itemtype => l_wf_name_active,
979: itemkey => L_KEY,
980: aname => 'NLS_LANGUAGE');
981: wf_engine.SetItemAttrText (itemtype => l_wf_name_active,
982: itemkey => L_KEY,
977: when others then
978: wf_engine.AddItemAttr (itemtype => l_wf_name_active,
979: itemkey => L_KEY,
980: aname => 'NLS_LANGUAGE');
981: wf_engine.SetItemAttrText (itemtype => l_wf_name_active,
982: itemkey => L_KEY,
983: aname => 'NLS_LANGUAGE',
984: avalue => L_NLS_VALUE);
985: end;
986: select value into L_NLS_VALUE
987: from NLS_SESSION_PARAMETERS
988: where PARAMETER='NLS_DATE_FORMAT';
989: begin
990: wf_engine.SetItemAttrText (itemtype => l_wf_name_active,
991: itemkey => L_KEY,
992: aname => 'NLS_DATE_FORMAT',
993: avalue => L_NLS_VALUE);
994: exception
992: aname => 'NLS_DATE_FORMAT',
993: avalue => L_NLS_VALUE);
994: exception
995: when others then
996: wf_engine.AddItemAttr (itemtype => l_wf_name_active,
997: itemkey => L_KEY,
998: aname => 'NLS_DATE_FORMAT');
999: wf_engine.SetItemAttrText (itemtype => l_wf_name_active,
1000: itemkey => L_KEY,
995: when others then
996: wf_engine.AddItemAttr (itemtype => l_wf_name_active,
997: itemkey => L_KEY,
998: aname => 'NLS_DATE_FORMAT');
999: wf_engine.SetItemAttrText (itemtype => l_wf_name_active,
1000: itemkey => L_KEY,
1001: aname => 'NLS_DATE_FORMAT',
1002: avalue => L_NLS_VALUE);
1003: end;
1004: select value into L_NLS_VALUE
1005: from NLS_SESSION_PARAMETERS
1006: where PARAMETER='NLS_DATE_LANGUAGE';
1007: begin
1008: wf_engine.SetItemAttrText (itemtype => l_wf_name_active,
1009: itemkey => L_KEY,
1010: aname => 'NLS_DATE_LANGUAGE',
1011: avalue => L_NLS_VALUE);
1012: exception
1010: aname => 'NLS_DATE_LANGUAGE',
1011: avalue => L_NLS_VALUE);
1012: exception
1013: when others then
1014: wf_engine.AddItemAttr (itemtype => l_wf_name_active,
1015: itemkey => L_KEY,
1016: aname => 'NLS_DATE_LANGUAGE');
1017: wf_engine.SetItemAttrText (itemtype => l_wf_name_active,
1018: itemkey => L_KEY,
1013: when others then
1014: wf_engine.AddItemAttr (itemtype => l_wf_name_active,
1015: itemkey => L_KEY,
1016: aname => 'NLS_DATE_LANGUAGE');
1017: wf_engine.SetItemAttrText (itemtype => l_wf_name_active,
1018: itemkey => L_KEY,
1019: aname => 'NLS_DATE_LANGUAGE',
1020: avalue => L_NLS_VALUE);
1021: end;
1022: select '"'||value||'"' into L_NLS_VALUE
1023: from NLS_SESSION_PARAMETERS
1024: where PARAMETER='NLS_NUMERIC_CHARACTERS';
1025: begin
1026: wf_engine.SetItemAttrText (itemtype => l_wf_name_active,
1027: itemkey => L_KEY,
1028: aname => 'NLS_NUMERIC_CHARACTERS',
1029: avalue => L_NLS_VALUE);
1030: exception
1028: aname => 'NLS_NUMERIC_CHARACTERS',
1029: avalue => L_NLS_VALUE);
1030: exception
1031: when others then
1032: wf_engine.AddItemAttr (itemtype => l_wf_name_active,
1033: itemkey => L_KEY,
1034: aname => 'NLS_NUMERIC_CHARACTERS');
1035: wf_engine.SetItemAttrText (itemtype => l_wf_name_active,
1036: itemkey => L_KEY,
1031: when others then
1032: wf_engine.AddItemAttr (itemtype => l_wf_name_active,
1033: itemkey => L_KEY,
1034: aname => 'NLS_NUMERIC_CHARACTERS');
1035: wf_engine.SetItemAttrText (itemtype => l_wf_name_active,
1036: itemkey => L_KEY,
1037: aname => 'NLS_NUMERIC_CHARACTERS',
1038: avalue => L_NLS_VALUE);
1039: end;
1039: end;
1040: --
1041: -- start
1042: --
1043: wf_engine.SetItemOwner ( itemtype => l_wf_name_active,
1044: itemkey => L_KEY,
1045: owner => fnd_global.user_name);
1046: wf_engine.StartProcess( itemtype => l_wf_name_active,
1047: itemkey => L_KEY);
1042: --
1043: wf_engine.SetItemOwner ( itemtype => l_wf_name_active,
1044: itemkey => L_KEY,
1045: owner => fnd_global.user_name);
1046: wf_engine.StartProcess( itemtype => l_wf_name_active,
1047: itemkey => L_KEY);
1048:
1049: end if;--+ abort process exists
1050: --
1094: L_NLS_VALUE1 varchar2(40);
1095: L_NLS_VALUE2 varchar2(40);
1096: L_NLS_VALUE3 varchar2(40);
1097: L_NLS_VALUE4 varchar2(40);
1098: L_NLS_VALUE11 varchar2(40) := wf_engine.GetItemAttrText(p_item_type,p_item_key,'NLS_LANGUAGE');
1099: L_NLS_VALUE12 varchar2(40) := wf_engine.GetItemAttrText(p_item_type,p_item_key,'NLS_DATE_FORMAT');
1100: L_NLS_VALUE13 varchar2(40) := wf_engine.GetItemAttrText(p_item_type,p_item_key,'NLS_DATE_LANGUAGE');
1101: L_NLS_VALUE14 varchar2(40) := wf_engine.GetItemAttrText(p_item_type,p_item_key,'NLS_NUMERIC_CHARACTERS');
1102: cursor c1(p varchar2) is
1095: L_NLS_VALUE2 varchar2(40);
1096: L_NLS_VALUE3 varchar2(40);
1097: L_NLS_VALUE4 varchar2(40);
1098: L_NLS_VALUE11 varchar2(40) := wf_engine.GetItemAttrText(p_item_type,p_item_key,'NLS_LANGUAGE');
1099: L_NLS_VALUE12 varchar2(40) := wf_engine.GetItemAttrText(p_item_type,p_item_key,'NLS_DATE_FORMAT');
1100: L_NLS_VALUE13 varchar2(40) := wf_engine.GetItemAttrText(p_item_type,p_item_key,'NLS_DATE_LANGUAGE');
1101: L_NLS_VALUE14 varchar2(40) := wf_engine.GetItemAttrText(p_item_type,p_item_key,'NLS_NUMERIC_CHARACTERS');
1102: cursor c1(p varchar2) is
1103: select value
1096: L_NLS_VALUE3 varchar2(40);
1097: L_NLS_VALUE4 varchar2(40);
1098: L_NLS_VALUE11 varchar2(40) := wf_engine.GetItemAttrText(p_item_type,p_item_key,'NLS_LANGUAGE');
1099: L_NLS_VALUE12 varchar2(40) := wf_engine.GetItemAttrText(p_item_type,p_item_key,'NLS_DATE_FORMAT');
1100: L_NLS_VALUE13 varchar2(40) := wf_engine.GetItemAttrText(p_item_type,p_item_key,'NLS_DATE_LANGUAGE');
1101: L_NLS_VALUE14 varchar2(40) := wf_engine.GetItemAttrText(p_item_type,p_item_key,'NLS_NUMERIC_CHARACTERS');
1102: cursor c1(p varchar2) is
1103: select value
1104: from NLS_SESSION_PARAMETERS
1097: L_NLS_VALUE4 varchar2(40);
1098: L_NLS_VALUE11 varchar2(40) := wf_engine.GetItemAttrText(p_item_type,p_item_key,'NLS_LANGUAGE');
1099: L_NLS_VALUE12 varchar2(40) := wf_engine.GetItemAttrText(p_item_type,p_item_key,'NLS_DATE_FORMAT');
1100: L_NLS_VALUE13 varchar2(40) := wf_engine.GetItemAttrText(p_item_type,p_item_key,'NLS_DATE_LANGUAGE');
1101: L_NLS_VALUE14 varchar2(40) := wf_engine.GetItemAttrText(p_item_type,p_item_key,'NLS_NUMERIC_CHARACTERS');
1102: cursor c1(p varchar2) is
1103: select value
1104: from NLS_SESSION_PARAMETERS
1105: where PARAMETER=p;
1132: end if;
1133: fnd_global.apps_initialize
1134: (
1135: user_id =>
1136: wf_engine.GetItemAttrNumber(p_item_type,p_item_key,'USER_ID'),
1137: resp_id =>
1138: wf_engine.GetItemAttrNumber(p_item_type,p_item_key,'RESP_ID'),
1139: resp_appl_id =>
1140: wf_engine.GetItemAttrNumber(p_item_type,p_item_key,'RESP_APPL_ID'),
1134: (
1135: user_id =>
1136: wf_engine.GetItemAttrNumber(p_item_type,p_item_key,'USER_ID'),
1137: resp_id =>
1138: wf_engine.GetItemAttrNumber(p_item_type,p_item_key,'RESP_ID'),
1139: resp_appl_id =>
1140: wf_engine.GetItemAttrNumber(p_item_type,p_item_key,'RESP_APPL_ID'),
1141: security_group_id =>
1142: wf_engine.GetItemAttrNumber(p_item_type,p_item_key,'SECURITY_GROUP_ID')
1136: wf_engine.GetItemAttrNumber(p_item_type,p_item_key,'USER_ID'),
1137: resp_id =>
1138: wf_engine.GetItemAttrNumber(p_item_type,p_item_key,'RESP_ID'),
1139: resp_appl_id =>
1140: wf_engine.GetItemAttrNumber(p_item_type,p_item_key,'RESP_APPL_ID'),
1141: security_group_id =>
1142: wf_engine.GetItemAttrNumber(p_item_type,p_item_key,'SECURITY_GROUP_ID')
1143: );
1144: -- okc_context.set_okc_org_context;
1138: wf_engine.GetItemAttrNumber(p_item_type,p_item_key,'RESP_ID'),
1139: resp_appl_id =>
1140: wf_engine.GetItemAttrNumber(p_item_type,p_item_key,'RESP_APPL_ID'),
1141: security_group_id =>
1142: wf_engine.GetItemAttrNumber(p_item_type,p_item_key,'SECURITY_GROUP_ID')
1143: );
1144: -- okc_context.set_okc_org_context;
1145: end wf_copy_env;
1146: