100: l_request_id NUMBER(15);
101: l_entity_id gcs_entry_headers.entity_id%type;
102: BEGIN
103:
104: l_entry_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
105: p_item_key,
106: 'FCH_ENTRY_ID');
107:
108: l_entity_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
104: l_entry_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
105: p_item_key,
106: 'FCH_ENTRY_ID');
107:
108: l_entity_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
109: p_item_key,
110: 'FCH_ENTITY_ID');
111:
112: l_calling_sequence := l_api_name;
109: p_item_key,
110: 'FCH_ENTITY_ID');
111:
112: l_calling_sequence := l_api_name;
113: WF_ENGINE.SetItemAttrText(p_item_type, p_item_key, 'CALLING_SEQUENCE', l_calling_sequence);
114:
115: -- Set all the Submitter information on the Item Attributes
116: l_user_name := WF_ENGINE.GetItemAttrText(p_item_type, p_item_key, 'USER_NAME');
117:
112: l_calling_sequence := l_api_name;
113: WF_ENGINE.SetItemAttrText(p_item_type, p_item_key, 'CALLING_SEQUENCE', l_calling_sequence);
114:
115: -- Set all the Submitter information on the Item Attributes
116: l_user_name := WF_ENGINE.GetItemAttrText(p_item_type, p_item_key, 'USER_NAME');
117:
118: l_debug_info := 'Before Calling get Role Info ' || p_item_key ;
119: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
120: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
131: ,l_submitter_id
132: ,l_submitter_name
133: ,l_submitter_display_name);
134:
135: WF_ENGINE.SetItemAttrText(
136: p_item_type, p_item_key, 'FCH_SUBMITTED_BY', l_submitter_id);
137:
138: WF_ENGINE.SetItemAttrText(
139: p_item_type, p_item_key, 'FCH_SUBMITTER_NAME', l_submitter_name);
134:
135: WF_ENGINE.SetItemAttrText(
136: p_item_type, p_item_key, 'FCH_SUBMITTED_BY', l_submitter_id);
137:
138: WF_ENGINE.SetItemAttrText(
139: p_item_type, p_item_key, 'FCH_SUBMITTER_NAME', l_submitter_name);
140:
141: WF_ENGINE.SetItemOwner(
142: p_item_type, p_item_key, l_submitter_name);
137:
138: WF_ENGINE.SetItemAttrText(
139: p_item_type, p_item_key, 'FCH_SUBMITTER_NAME', l_submitter_name);
140:
141: WF_ENGINE.SetItemOwner(
142: p_item_type, p_item_key, l_submitter_name);
143:
144:
145: -- Set the Approval information on the Item Attributes
142: p_item_type, p_item_key, l_submitter_name);
143:
144:
145: -- Set the Approval information on the Item Attributes
146: WF_ENGINE.SetItemAttrDate(
147: p_item_type, p_item_key, 'REQUEST_DATE', trunc(sysdate));
148:
149: l_debug_info := 'Before calling Update GCS Entry Headers, item_key: ' || p_item_key || 'Submitter Name '|| l_submitter_name;
150:
176: l_api_name,l_debug_info);
177: END IF;
178:
179:
180: x_result_out := WF_ENGINE.eng_completed || ':' || G_YES;
181:
182: EXCEPTION
183:
184: when FND_API.G_EXC_ERROR or FND_API.G_EXC_UNEXPECTED_ERROR then
329: IF l_itemkey is not Null THEN
330: --
331: -- Abort previous workflow process
332: Begin
333: wf_engine.AbortProcess('GCSADJ', l_itemkey, 'MASTER', null);
334:
335: l_debug_info := 'Previous WF Process aborted';
336: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
337: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
365: -- Setting the Workflow Item Key
366: l_itemkey := to_char(p_entry_id) || to_char(sysdate, 'ddss');
367:
368:
369: l_debug_info := 'Calling WF_ENGINE.createProcess(GCSADJ, ' || l_itemkey || ', MASTER);';
370: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
371: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
372: l_api_name,l_debug_info);
373: END IF;
372: l_api_name,l_debug_info);
373: END IF;
374:
375:
376: wf_engine.createProcess('GCSADJ', l_itemkey, 'MASTER');
377:
378: l_debug_info := 'Before Update of Adjustments to Initiated';
379: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
380: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
393: l_api_name,l_debug_info);
394: END IF;
395:
396: l_calling_sequence := l_api_name;
397: WF_ENGINE.SetItemAttrText('GCSADJ', l_itemkey, 'CALLING_SEQUENCE', l_calling_sequence);
398:
399: WF_ENGINE.SetItemAttrNumber('GCSADJ',
400: l_itemkey,
401: 'MASTERKEY',
395:
396: l_calling_sequence := l_api_name;
397: WF_ENGINE.SetItemAttrText('GCSADJ', l_itemkey, 'CALLING_SEQUENCE', l_calling_sequence);
398:
399: WF_ENGINE.SetItemAttrNumber('GCSADJ',
400: l_itemkey,
401: 'MASTERKEY',
402: p_entry_id);
403: WF_ENGINE.SetItemAttrNumber('GCSADJ',
399: WF_ENGINE.SetItemAttrNumber('GCSADJ',
400: l_itemkey,
401: 'MASTERKEY',
402: p_entry_id);
403: WF_ENGINE.SetItemAttrNumber('GCSADJ',
404: l_itemkey,
405: 'FCH_ENTRY_ID',
406: l_entry_id);
407: WF_ENGINE.SetItemAttrText('GCSADJ',
403: WF_ENGINE.SetItemAttrNumber('GCSADJ',
404: l_itemkey,
405: 'FCH_ENTRY_ID',
406: l_entry_id);
407: WF_ENGINE.SetItemAttrText('GCSADJ',
408: l_itemkey,
409: 'FCH_ENTRY_NAME',
410: l_entry_name);
411:
408: l_itemkey,
409: 'FCH_ENTRY_NAME',
410: l_entry_name);
411:
412: WF_ENGINE.SetItemAttrText('GCSADJ',
413: l_itemkey,
414: 'FCH_ENTRY_DESCRIPTION',
415: l_description);
416:
413: l_itemkey,
414: 'FCH_ENTRY_DESCRIPTION',
415: l_description);
416:
417: WF_ENGINE.SetItemAttrNumber('GCSADJ',
418: l_itemkey,
419: 'FCH_HIERARCHY_ID',
420: l_hierarchy_id);
421: WF_ENGINE.SetItemAttrNumber('GCSADJ',
417: WF_ENGINE.SetItemAttrNumber('GCSADJ',
418: l_itemkey,
419: 'FCH_HIERARCHY_ID',
420: l_hierarchy_id);
421: WF_ENGINE.SetItemAttrNumber('GCSADJ',
422: l_itemkey,
423: 'FCH_ENTITY_ID',
424: l_entity_id);
425: WF_ENGINE.SetItemAttrText('GCSADJ',
421: WF_ENGINE.SetItemAttrNumber('GCSADJ',
422: l_itemkey,
423: 'FCH_ENTITY_ID',
424: l_entity_id);
425: WF_ENGINE.SetItemAttrText('GCSADJ',
426: l_itemkey,
427: 'FCH_CURRENCY_CODE',
428: l_currency_code);
429: WF_ENGINE.SetItemAttrText('GCSADJ',
425: WF_ENGINE.SetItemAttrText('GCSADJ',
426: l_itemkey,
427: 'FCH_CURRENCY_CODE',
428: l_currency_code);
429: WF_ENGINE.SetItemAttrText('GCSADJ',
430: l_itemkey,
431: 'FCH_BALANCE_TYPE',
432: l_balance_type_code);
433: WF_ENGINE.SetItemAttrNumber('GCSADJ',
429: WF_ENGINE.SetItemAttrText('GCSADJ',
430: l_itemkey,
431: 'FCH_BALANCE_TYPE',
432: l_balance_type_code);
433: WF_ENGINE.SetItemAttrNumber('GCSADJ',
434: l_itemkey,
435: 'FCH_START_PERIOD',
436: l_start_cal_period_id);
437: WF_ENGINE.SetItemAttrNumber('GCSADJ',
433: WF_ENGINE.SetItemAttrNumber('GCSADJ',
434: l_itemkey,
435: 'FCH_START_PERIOD',
436: l_start_cal_period_id);
437: WF_ENGINE.SetItemAttrNumber('GCSADJ',
438: l_itemkey,
439: 'FCH_END_PERIOD',
440: l_end_cal_period_id);
441:
438: l_itemkey,
439: 'FCH_END_PERIOD',
440: l_end_cal_period_id);
441:
442: WF_ENGINE.SetItemAttrText('GCSADJ',
443: l_itemkey,
444: 'FCH_CATEGORY_CODE',
445: l_category_code);
446:
443: l_itemkey,
444: 'FCH_CATEGORY_CODE',
445: l_category_code);
446:
447: WF_ENGINE.SetItemAttrNumber('GCSADJ',
448: l_itemkey,
449: 'USER_ID',
450: p_user_id);
451:
448: l_itemkey,
449: 'USER_ID',
450: p_user_id);
451:
452: WF_ENGINE.SetItemAttrText('GCSADJ',
453: l_itemkey,
454: 'USER_NAME',
455: p_user_name);
456:
453: l_itemkey,
454: 'USER_NAME',
455: p_user_name);
456:
457: WF_ENGINE.SetItemAttrText('GCSADJ',
458: l_itemkey,
459: 'FCH_ENTITY_NAME',
460: l_entity_name);
461:
458: l_itemkey,
459: 'FCH_ENTITY_NAME',
460: l_entity_name);
461:
462: WF_ENGINE.SetItemAttrText('GCSADJ',
463: l_itemkey,
464: 'FCH_HIERARCHY_NAME',
465: l_hierarchy_name);
466:
463: l_itemkey,
464: 'FCH_HIERARCHY_NAME',
465: l_hierarchy_name);
466:
467: WF_ENGINE.SetItemAttrText('GCSADJ',
468: l_itemkey,
469: 'FCH_PERIOD_NAME',
470: l_period_name);
471:
468: l_itemkey,
469: 'FCH_PERIOD_NAME',
470: l_period_name);
471:
472: WF_ENGINE.SetItemAttrText('GCSADJ',
473: l_itemkey,
474: 'WRITEBACK_FLAG',
475: p_writeback_flag);
476:
473: l_itemkey,
474: 'WRITEBACK_FLAG',
475: p_writeback_flag);
476:
477: WF_ENGINE.SetItemAttrText('GCSADJ',
478: l_itemkey,
479: 'CAL_PERIOD_NAME',
480: p_cal_period_name);
481:
478: l_itemkey,
479: 'CAL_PERIOD_NAME',
480: p_cal_period_name);
481:
482: WF_ENGINE.SetItemAttrText('GCSADJ',
483: l_itemkey,
484: 'CONVERSION_TYPE',
485: p_conversion_type);
486:
483: l_itemkey,
484: 'CONVERSION_TYPE',
485: p_conversion_type);
486:
487: WF_ENGINE.SetItemAttrNumber('GCSADJ',
488: l_itemkey,
489: 'ORIG_ENTRY_ID',
490: p_orig_entry_id);
491:
488: l_itemkey,
489: 'ORIG_ENTRY_ID',
490: p_orig_entry_id);
491:
492: WF_ENGINE.SetItemAttrNumber('GCSADJ',
493: l_itemkey,
494: 'LEDGER_ID',
495: p_ledger_id);
496:
497:
498:
499: l_message_text:= 'An adjustment has been submitted for the hierarchy ' || L_HIERARCHY_NAME || ' , and the entity ' || L_ENTITY_NAME || ' on '|| L_PERIOD_NAME ||' that requires your approval';
500:
501: WF_ENGINE.SetItemAttrText('GCSADJ',
502: l_itemkey,
503: 'MESSAGE_TEXT',
504: l_message_text);
505:
502: l_itemkey,
503: 'MESSAGE_TEXT',
504: l_message_text);
505:
506: l_debug_info := 'Before Calling WF_ENGINE.startProcess(GCSADJ,'
507: || l_itemkey || ');';
508: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
509: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
510: l_api_name,l_debug_info);
509: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
510: l_api_name,l_debug_info);
511: END IF;
512:
513: WF_ENGINE.startProcess('GCSADJ', l_itemkey);
514:
515: COMMIT;
516:
517: l_debug_info := 'After Calling WF_ENGINE.startProcess' ;
513: WF_ENGINE.startProcess('GCSADJ', l_itemkey);
514:
515: COMMIT;
516:
517: l_debug_info := 'After Calling WF_ENGINE.startProcess' ;
518: p_wfitemkey := l_itemkey;
519: l_debug_info := 'End';
520:
521: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
600: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
601: l_api_name,l_debug_info);
602: END IF;
603:
604: l_entry_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
605: p_item_key,
606: 'FCH_ENTRY_ID');
607:
608:
628: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
629: l_api_name,l_debug_info);
630: END IF;
631:
632: x_result_out := WF_ENGINE.eng_completed || ':' || G_NO;
633:
634: ELSE
635: l_debug_info := 'New Approver ';
636: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
678: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
679: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
680: END IF;
681:
682: WF_ENGINE.SetItemAttrNumber(
683: p_item_type, p_item_key, 'APPROVER_ID', l_approver_id);
684:
685: WF_ENGINE.SetItemAttrText(
686: p_item_type, p_item_key, 'APPROVER', l_approver_name);
681:
682: WF_ENGINE.SetItemAttrNumber(
683: p_item_type, p_item_key, 'APPROVER_ID', l_approver_id);
684:
685: WF_ENGINE.SetItemAttrText(
686: p_item_type, p_item_key, 'APPROVER', l_approver_name);
687:
688:
689: -- WF_ENGINE.SetItemAttrNumber(
685: WF_ENGINE.SetItemAttrText(
686: p_item_type, p_item_key, 'APPROVER', l_approver_name);
687:
688:
689: -- WF_ENGINE.SetItemAttrNumber(
690: -- p_item_type, p_item_key, G_APPROVER_USER_ID, l_approver_user_id);
691:
692: -- WF_ENGINE.SetItemAttrText(
693: -- p_item_type, p_item_key, G_APPROVER_DISPLAY_NAME, l_approver_display_name);
688:
689: -- WF_ENGINE.SetItemAttrNumber(
690: -- p_item_type, p_item_key, G_APPROVER_USER_ID, l_approver_user_id);
691:
692: -- WF_ENGINE.SetItemAttrText(
693: -- p_item_type, p_item_key, G_APPROVER_DISPLAY_NAME, l_approver_display_name);
694:
695: WF_ENGINE.SetItemAttrText(
696: p_item_type, p_item_key, 'ROLE_NAME', l_role_name);
691:
692: -- WF_ENGINE.SetItemAttrText(
693: -- p_item_type, p_item_key, G_APPROVER_DISPLAY_NAME, l_approver_display_name);
694:
695: WF_ENGINE.SetItemAttrText(
696: p_item_type, p_item_key, 'ROLE_NAME', l_role_name);
697:
698: WF_ENGINE.SetItemAttrText(
699: p_item_type, p_item_key, 'ORIG_SYSTEM', l_approver_orig_system);
694:
695: WF_ENGINE.SetItemAttrText(
696: p_item_type, p_item_key, 'ROLE_NAME', l_role_name);
697:
698: WF_ENGINE.SetItemAttrText(
699: p_item_type, p_item_key, 'ORIG_SYSTEM', l_approver_orig_system);
700:
701: -- set the workflow history region
702: l_debug_info:='setting history region attribute information';
714: END IF;
715:
716: l_attachment := 'FND:entity=GCS_ENTRY_HEADERS'||'&'||'pk1name=ENTRY_ID'||'&'||'pk1value='||l_entry_id;
717:
718: WF_ENGINE.SetItemAttrText(p_item_type, p_item_key, 'WFREGION', l_wf_region);
719: WF_ENGINE.SetItemAttrText(p_item_type, p_item_key, '#ATTACHMENTS', l_attachment);
720:
721: x_result_out := WF_ENGINE.eng_completed || ':' || G_YES;
722:
715:
716: l_attachment := 'FND:entity=GCS_ENTRY_HEADERS'||'&'||'pk1name=ENTRY_ID'||'&'||'pk1value='||l_entry_id;
717:
718: WF_ENGINE.SetItemAttrText(p_item_type, p_item_key, 'WFREGION', l_wf_region);
719: WF_ENGINE.SetItemAttrText(p_item_type, p_item_key, '#ATTACHMENTS', l_attachment);
720:
721: x_result_out := WF_ENGINE.eng_completed || ':' || G_YES;
722:
723: END IF;
717:
718: WF_ENGINE.SetItemAttrText(p_item_type, p_item_key, 'WFREGION', l_wf_region);
719: WF_ENGINE.SetItemAttrText(p_item_type, p_item_key, '#ATTACHMENTS', l_attachment);
720:
721: x_result_out := WF_ENGINE.eng_completed || ':' || G_YES;
722:
723: END IF;
724: --ELSE
725: -- Process Complete
727: -- IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
728: -- FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
729: -- l_api_name,l_debug_info);
730: -- END IF;
731: -- x_result_out := WF_ENGINE.eng_completed || ':' || G_NO;
732: -- END IF;
733:
734: EXCEPTION
735:
769: l_api_name,l_debug_info);
770: END IF;
771:
772: l_calling_sequence := l_api_name;
773: WF_ENGINE.SetItemAttrText(p_item_type, p_item_key, 'CALLING_SEQUENCE', l_calling_sequence);
774:
775: l_entry_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
776: p_item_key,
777: 'FCH_ENTRY_ID');
771:
772: l_calling_sequence := l_api_name;
773: WF_ENGINE.SetItemAttrText(p_item_type, p_item_key, 'CALLING_SEQUENCE', l_calling_sequence);
774:
775: l_entry_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
776: p_item_key,
777: 'FCH_ENTRY_ID');
778:
779: l_comments := WF_ENGINE.GetItemAttrText(p_item_type,
775: l_entry_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
776: p_item_key,
777: 'FCH_ENTRY_ID');
778:
779: l_comments := WF_ENGINE.GetItemAttrText(p_item_type,
780: p_item_key,
781: 'WF_NOTE');
782:
783: l_approver_name := WF_ENGINE.GetItemAttrText(p_item_type,
779: l_comments := WF_ENGINE.GetItemAttrText(p_item_type,
780: p_item_key,
781: 'WF_NOTE');
782:
783: l_approver_name := WF_ENGINE.GetItemAttrText(p_item_type,
784: p_item_key,
785: 'APPROVER');
786:
787: l_approver_id := WF_ENGINE.GETITEMATTRNumber(p_item_type,
783: l_approver_name := WF_ENGINE.GetItemAttrText(p_item_type,
784: p_item_key,
785: 'APPROVER');
786:
787: l_approver_id := WF_ENGINE.GETITEMATTRNumber(p_item_type,
788: p_item_key,
789: 'APPROVER_ID');
790:
791: l_role_name := WF_ENGINE.GetItemAttrText(p_item_type,
787: l_approver_id := WF_ENGINE.GETITEMATTRNumber(p_item_type,
788: p_item_key,
789: 'APPROVER_ID');
790:
791: l_role_name := WF_ENGINE.GetItemAttrText(p_item_type,
792: p_item_key,
793: 'ROLE_NAME');
794:
795: l_approver_orig_system:= WF_ENGINE.GETITEMATTRText(p_item_type,
791: l_role_name := WF_ENGINE.GetItemAttrText(p_item_type,
792: p_item_key,
793: 'ROLE_NAME');
794:
795: l_approver_orig_system:= WF_ENGINE.GETITEMATTRText(p_item_type,
796: p_item_key,
797: 'ORIG_SYSTEM');
798:
799: l_user_id := nvl(to_number(fnd_profile.value('USER_ID')),-1);
837: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
838: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME|| l_api_name,l_debug_info);
839: END IF;
840:
841: WF_ENGINE.SetItemAttrText('GCSADJ',
842: p_item_key,
843: 'WF_NOTE',
844: null);
845:
846: l_debug_info := 'End';
847: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
848: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME|| l_api_name,l_debug_info);
849: END IF;
850: x_result_out := wf_engine.eng_completed||':'|| AME_UTIL.approvedStatus;
851:
852: EXCEPTION
853: WHEN OTHERS
854: THEN
883: l_api_name,l_debug_info);
884: END IF;
885:
886: l_calling_sequence := l_api_name;
887: WF_ENGINE.SetItemAttrText(p_item_type, p_item_key, 'CALLING_SEQUENCE', l_calling_sequence);
888:
889: l_entry_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
890: p_item_key,
891: 'FCH_ENTRY_ID');
885:
886: l_calling_sequence := l_api_name;
887: WF_ENGINE.SetItemAttrText(p_item_type, p_item_key, 'CALLING_SEQUENCE', l_calling_sequence);
888:
889: l_entry_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
890: p_item_key,
891: 'FCH_ENTRY_ID');
892:
893: l_comments := WF_ENGINE.GetItemAttrText(p_item_type,
889: l_entry_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
890: p_item_key,
891: 'FCH_ENTRY_ID');
892:
893: l_comments := WF_ENGINE.GetItemAttrText(p_item_type,
894: p_item_key,
895: 'WF_NOTE');
896:
897: l_approver_name := WF_ENGINE.GetItemAttrText(p_item_type,
893: l_comments := WF_ENGINE.GetItemAttrText(p_item_type,
894: p_item_key,
895: 'WF_NOTE');
896:
897: l_approver_name := WF_ENGINE.GetItemAttrText(p_item_type,
898: p_item_key,
899: 'APPROVER');
900:
901: l_approver_id := WF_ENGINE.GETITEMATTRNumber(p_item_type,
897: l_approver_name := WF_ENGINE.GetItemAttrText(p_item_type,
898: p_item_key,
899: 'APPROVER');
900:
901: l_approver_id := WF_ENGINE.GETITEMATTRNumber(p_item_type,
902: p_item_key,
903: 'APPROVER_ID');
904:
905: l_role_name := WF_ENGINE.GetItemAttrText(p_item_type,
901: l_approver_id := WF_ENGINE.GETITEMATTRNumber(p_item_type,
902: p_item_key,
903: 'APPROVER_ID');
904:
905: l_role_name := WF_ENGINE.GetItemAttrText(p_item_type,
906: p_item_key,
907: 'ROLE_NAME');
908:
909: l_approver_orig_system:= WF_ENGINE.GETITEMATTRText(p_item_type,
905: l_role_name := WF_ENGINE.GetItemAttrText(p_item_type,
906: p_item_key,
907: 'ROLE_NAME');
908:
909: l_approver_orig_system:= WF_ENGINE.GETITEMATTRText(p_item_type,
910: p_item_key,
911: 'ORIG_SYSTEM');
912:
913: l_debug_info := 'Before calling AME Update Status, entry : ' || l_entry_id || ', Status' || AME_UTIL.approvedStatus || ' role name '|| l_role_name || 'Approver id ' || l_approver_id ;
950: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
951: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME|| l_api_name,l_debug_info);
952: END IF;
953:
954: WF_ENGINE.SetItemAttrText('GCSADJ',
955: p_item_key,
956: 'WF_NOTE',
957: null);
958:
959: l_debug_info := 'End';
960: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
961: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME|| l_api_name,l_debug_info);
962: END IF;
963: x_result_out := wf_engine.eng_completed||':'||AME_UTIL.approvedStatus;
964:
965: EXCEPTION
966: WHEN OTHERS
967: THEN
1005: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
1006: l_api_name,l_debug_info);
1007: END IF;
1008:
1009: l_prev_calling_sequence := WF_ENGINE.GetItemAttrText(p_item_type, p_item_key, 'CALLING_SEQUENCE');
1010:
1011: l_debug_info := l_prev_calling_sequence;
1012: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1013: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||
1014: l_api_name,l_debug_info);
1015: END IF;
1016:
1017: l_calling_sequence := l_api_name;
1018: WF_ENGINE.SetItemAttrText(p_item_type, p_item_key, 'CALLING_SEQUENCE', l_calling_sequence);
1019:
1020: l_entry_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
1021: p_item_key,
1022: 'FCH_ENTRY_ID');
1016:
1017: l_calling_sequence := l_api_name;
1018: WF_ENGINE.SetItemAttrText(p_item_type, p_item_key, 'CALLING_SEQUENCE', l_calling_sequence);
1019:
1020: l_entry_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
1021: p_item_key,
1022: 'FCH_ENTRY_ID');
1023:
1024: l_comments := WF_ENGINE.GetItemAttrText(p_item_type,
1020: l_entry_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
1021: p_item_key,
1022: 'FCH_ENTRY_ID');
1023:
1024: l_comments := WF_ENGINE.GetItemAttrText(p_item_type,
1025: p_item_key,
1026: 'WF_NOTE');
1027:
1028: l_approver_name := WF_ENGINE.GetItemAttrText(p_item_type,
1024: l_comments := WF_ENGINE.GetItemAttrText(p_item_type,
1025: p_item_key,
1026: 'WF_NOTE');
1027:
1028: l_approver_name := WF_ENGINE.GetItemAttrText(p_item_type,
1029: p_item_key,
1030: 'APPROVER');
1031:
1032: l_approver_id := WF_ENGINE.GETITEMATTRNumber(p_item_type,
1028: l_approver_name := WF_ENGINE.GetItemAttrText(p_item_type,
1029: p_item_key,
1030: 'APPROVER');
1031:
1032: l_approver_id := WF_ENGINE.GETITEMATTRNumber(p_item_type,
1033: p_item_key,
1034: 'APPROVER_ID');
1035:
1036: l_role_name := WF_ENGINE.GetItemAttrText(p_item_type,
1032: l_approver_id := WF_ENGINE.GETITEMATTRNumber(p_item_type,
1033: p_item_key,
1034: 'APPROVER_ID');
1035:
1036: l_role_name := WF_ENGINE.GetItemAttrText(p_item_type,
1037: p_item_key,
1038: 'ROLE_NAME');
1039:
1040: l_debug_info := 'Before Updating GCS Entries, entry : ' || l_entry_id || ' calling sequence '|| l_prev_calling_sequence;
1074: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1075: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
1076: END IF;
1077:
1078: l_orig_entry_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
1079: p_item_key,
1080: 'ORIG_ENTRY_ID');
1081:
1082:
1103: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1104: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
1105: END IF;
1106:
1107: l_writeback := WF_ENGINE.GetItemAttrText(p_item_type,
1108: p_item_key,
1109: 'WRITEBACK_FLAG');
1110:
1111: -- Call write back only once is approved
1110:
1111: -- Call write back only once is approved
1112: If l_writeback='Y' Then
1113:
1114: l_ledger_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
1115: p_item_key,
1116: 'LEDGER_ID');
1117:
1118: l_cal_period_name := WF_ENGINE.GetItemAttrText(p_item_type,
1114: l_ledger_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
1115: p_item_key,
1116: 'LEDGER_ID');
1117:
1118: l_cal_period_name := WF_ENGINE.GetItemAttrText(p_item_type,
1119: p_item_key,
1120: 'CAL_PERIOD_NAME');
1121:
1122:
1119: p_item_key,
1120: 'CAL_PERIOD_NAME');
1121:
1122:
1123: l_conversion_type := WF_ENGINE.GetItemAttrText(p_item_type,
1124: p_item_key,
1125: 'CONVERSION_TYPE');
1126:
1127:
1143: end if;
1144: end if;
1145:
1146:
1147: x_result_out := wf_engine.eng_completed||':'||'COMPLETED';
1148:
1149: EXCEPTION
1150: WHEN OTHERS
1151: THEN