[Home] [Help]
1: PACKAGE BODY hr_workflow_service as
2: /* $Header: hrwfserv.pkb 120.10.12020000.2 2012/07/05 00:15:12 amnaraya ship $ */
3: --
4: -- Package Variables
5: --
5: --
6: -- ---------------------------------------------------------------------------
7: -- private package global declarations
8: -- ---------------------------------------------------------------------------
9: g_package VARCHAR2(31) := 'hr_workflow_service.';
10: --
11: -- Private Package Procedures/Functions
12: --
13: -- ---------------------------------------------------------------------------
1091: -- supply HR error message
1092: -- an error has occurred when attempting to call the stored procedure
1093: -- to generate the web page.
1094: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1095: hr_utility.set_message_token('PROCEDURE', 'hr_workflow_service.display_html');
1096: hr_utility.set_message_token('STEP','10');
1097: hr_utility.raise_error;
1098: end display_html;
1099: -- ----------------------------------------------------------------------------
1235: l_process_name wf_process_activities.process_name%type;
1236: l_active_item_key wf_items.item_key%type;
1237: l_dummy number(1);
1238: l_count integer;
1239: l_active_wf_items_list hr_workflow_service.active_wf_items_list;
1240: l_activity_id wf_item_activity_statuses_v.activity_id%type;
1241: --
1242: -- Local cursor definations
1243: -- csr_wf_active_item Returns the item key of any process which
1376: if csr_wfactname%notfound then
1377: l_activity_id := null;
1378: else
1379: l_activity_result_code := p_activity_result_code;
1380: -- hr_workflow_service.get_activity_reentry_value
1381: -- (p_item_type => p_item_type
1382: -- ,p_item_key => l_active_item_key
1383: -- ,p_actid => l_activity_id);
1384: --IF upper(p_activity_result_code) =
1427: l_process_name wf_process_activities.process_name%type;
1428: l_active_item_key wf_items.item_key%type;
1429: l_dummy number(1);
1430: l_count integer;
1431: l_active_wf_items_list hr_workflow_service.active_wf_items_list;
1432: l_activity_id wf_item_activity_statuses_v.activity_id%type;
1433: --
1434: -- Local cursor definations
1435: -- csr_wf_active_item Returns the item key of any process which
1562: else
1563: l_active_wf_items_list(l_count).activity_id
1564: := l_activity_id;
1565: l_active_wf_items_list(l_count).activity_result_code
1566: := hr_workflow_service.get_activity_reentry_value
1567: (p_item_type => p_item_type
1568: ,p_item_key => l_active_item_key
1569: ,p_actid => l_activity_id);
1570: end if;
1604: --
1605: l_process_name wf_process_activities.process_name%type;
1606: l_active_item_key wf_items.item_key%type;
1607: l_count integer;
1608: l_active_wf_items_list hr_workflow_service.active_wf_trans_items_list;
1609: l_activity_id wf_item_activity_statuses_v.activity_id%type;
1610: --
1611: -- Local cursor definitions
1612: -----------------------------------------------------------------------------
2000: a.item_type item_type,
2001: a.item_key item_key
2002: from (select transaction_id,
2003: status,
2004: nvl(item_type,hr_workflow_service.getItemType(t.transaction_id)) item_type,
2005: nvl(item_key,hr_workflow_service.getItemKey(t.transaction_id)) item_key
2006: from hr_api_transactions t
2007: where t.last_update_date <= sysdate - c_transaction_age
2008: and t.status not in ('Y', 'YS')
2001: a.item_key item_key
2002: from (select transaction_id,
2003: status,
2004: nvl(item_type,hr_workflow_service.getItemType(t.transaction_id)) item_type,
2005: nvl(item_key,hr_workflow_service.getItemKey(t.transaction_id)) item_key
2006: from hr_api_transactions t
2007: where t.last_update_date <= sysdate - c_transaction_age
2008: and t.status not in ('Y', 'YS')
2009: and t.transaction_ref_table <> 'PER_APPRAISALS'
2022: select * from (select a.transaction_id transaction_id,
2023: status
2024: from (select transaction_id,
2025: status,
2026: nvl(item_type,hr_workflow_service.getItemType(t.transaction_id)) item_type,
2027: nvl(item_key,hr_workflow_service.getItemKey(t.transaction_id)) item_key
2028: from hr_api_transactions t
2029: where t.last_update_date <= sysdate - c_transaction_age
2030: and t.status not in ('Y', 'YS')
2023: status
2024: from (select transaction_id,
2025: status,
2026: nvl(item_type,hr_workflow_service.getItemType(t.transaction_id)) item_type,
2027: nvl(item_key,hr_workflow_service.getItemKey(t.transaction_id)) item_key
2028: from hr_api_transactions t
2029: where t.last_update_date <= sysdate - c_transaction_age
2030: and t.status not in ('Y', 'YS')
2031: and t.transaction_ref_table <> 'PER_APPRAISALS'
2078: SELECT hat.transaction_id
2079: FROM hr_api_transactions hat
2080: WHERE NOT EXISTS (SELECT 'Y'
2081: FROM wf_items wi
2082: WHERE wi.item_type = nvl(hat.item_type,hr_workflow_service.getItemType(hat.transaction_id))
2083: AND wi.item_key = nvl(hat.item_key,hr_workflow_service.getItemKey(hat.transaction_id))
2084: )
2085: AND Not Exists( select 'Y' from wf_items w --fix for bug 6121860
2086: where w.item_type = 'HRSFL'
2079: FROM hr_api_transactions hat
2080: WHERE NOT EXISTS (SELECT 'Y'
2081: FROM wf_items wi
2082: WHERE wi.item_type = nvl(hat.item_type,hr_workflow_service.getItemType(hat.transaction_id))
2083: AND wi.item_key = nvl(hat.item_key,hr_workflow_service.getItemKey(hat.transaction_id))
2084: )
2085: AND Not Exists( select 'Y' from wf_items w --fix for bug 6121860
2086: where w.item_type = 'HRSFL'
2087: and w.user_key = hat.transaction_id)
2546:
2547:
2548: exception
2549: when others then
2550: Wf_Core.Context('hr_workflow_service', 'start_cleanup_process', l_item_type, l_item_key, p_transaction_age);
2551: raise;
2552: --
2553: end start_cleanup_process;
2554:
2578: resultout := wf_engine.eng_notified||':'||wf_engine.eng_null||
2579: ':'||wf_engine.eng_null;
2580: exception
2581: when others then
2582: Wf_Core.Context('hr_workflow_service', 'Block', itemtype,
2583: itemkey, to_char(actid), funcmode);
2584: raise;
2585: end Block;
2586:
2654: return getItemkey.l_item_key;
2655: end getItemKey;
2656:
2657: --
2658: END hr_workflow_service;