24: ) IS
25: l_api_name CONSTANT VARCHAR2 (30) := 'GET_ALL_APPROVERS';
26: l_api_version CONSTANT NUMBER := 1.0;
27:
28: ruleids ame_util.idlist;
29: l_ruletypeout VARCHAR2 (240);
30: l_conditionidsout ame_util.idlist;
31: m integer:=0;
32: approvers2 ame_util.approversTable2;
26: l_api_version CONSTANT NUMBER := 1.0;
27:
28: ruleids ame_util.idlist;
29: l_ruletypeout VARCHAR2 (240);
30: l_conditionidsout ame_util.idlist;
31: m integer:=0;
32: approvers2 ame_util.approversTable2;
33: approverrecord2 ame_util.approverrecord2;
34: tempOrigSystem ame_util.stringType;
28: ruleids ame_util.idlist;
29: l_ruletypeout VARCHAR2 (240);
30: l_conditionidsout ame_util.idlist;
31: m integer:=0;
32: approvers2 ame_util.approversTable2;
33: approverrecord2 ame_util.approverrecord2;
34: tempOrigSystem ame_util.stringType;
35: tempOrigSystemId integer;
36: approvalProcessCompleteYN varchar2(1);
29: l_ruletypeout VARCHAR2 (240);
30: l_conditionidsout ame_util.idlist;
31: m integer:=0;
32: approvers2 ame_util.approversTable2;
33: approverrecord2 ame_util.approverrecord2;
34: tempOrigSystem ame_util.stringType;
35: tempOrigSystemId integer;
36: approvalProcessCompleteYN varchar2(1);
37: itemIndexes ame_util.idList;
30: l_conditionidsout ame_util.idlist;
31: m integer:=0;
32: approvers2 ame_util.approversTable2;
33: approverrecord2 ame_util.approverrecord2;
34: tempOrigSystem ame_util.stringType;
35: tempOrigSystemId integer;
36: approvalProcessCompleteYN varchar2(1);
37: itemIndexes ame_util.idList;
38: itemClasses ame_util.stringList;
33: approverrecord2 ame_util.approverrecord2;
34: tempOrigSystem ame_util.stringType;
35: tempOrigSystemId integer;
36: approvalProcessCompleteYN varchar2(1);
37: itemIndexes ame_util.idList;
38: itemClasses ame_util.stringList;
39: itemIds ame_util.stringList;
40: itemSources ame_util.longStringList;
41: ruleIndexes ame_util.idList;
34: tempOrigSystem ame_util.stringType;
35: tempOrigSystemId integer;
36: approvalProcessCompleteYN varchar2(1);
37: itemIndexes ame_util.idList;
38: itemClasses ame_util.stringList;
39: itemIds ame_util.stringList;
40: itemSources ame_util.longStringList;
41: ruleIndexes ame_util.idList;
42: sourceTypes ame_util.stringList;
35: tempOrigSystemId integer;
36: approvalProcessCompleteYN varchar2(1);
37: itemIndexes ame_util.idList;
38: itemClasses ame_util.stringList;
39: itemIds ame_util.stringList;
40: itemSources ame_util.longStringList;
41: ruleIndexes ame_util.idList;
42: sourceTypes ame_util.stringList;
43: lRuleDescription varchar2(240);
36: approvalProcessCompleteYN varchar2(1);
37: itemIndexes ame_util.idList;
38: itemClasses ame_util.stringList;
39: itemIds ame_util.stringList;
40: itemSources ame_util.longStringList;
41: ruleIndexes ame_util.idList;
42: sourceTypes ame_util.stringList;
43: lRuleDescription varchar2(240);
44: l_actionTypeNamesOut ame_util.stringList;
37: itemIndexes ame_util.idList;
38: itemClasses ame_util.stringList;
39: itemIds ame_util.stringList;
40: itemSources ame_util.longStringList;
41: ruleIndexes ame_util.idList;
42: sourceTypes ame_util.stringList;
43: lRuleDescription varchar2(240);
44: l_actionTypeNamesOut ame_util.stringList;
45: l_actionTypeDescriptionsOut ame_util.stringList;
38: itemClasses ame_util.stringList;
39: itemIds ame_util.stringList;
40: itemSources ame_util.longStringList;
41: ruleIndexes ame_util.idList;
42: sourceTypes ame_util.stringList;
43: lRuleDescription varchar2(240);
44: l_actionTypeNamesOut ame_util.stringList;
45: l_actionTypeDescriptionsOut ame_util.stringList;
46: l_actionDescriptionsOut ame_util.stringList;
40: itemSources ame_util.longStringList;
41: ruleIndexes ame_util.idList;
42: sourceTypes ame_util.stringList;
43: lRuleDescription varchar2(240);
44: l_actionTypeNamesOut ame_util.stringList;
45: l_actionTypeDescriptionsOut ame_util.stringList;
46: l_actionDescriptionsOut ame_util.stringList;
47: l_conditionDescriptionsOut ame_util.longestStringList;
48: l_conditionHasLOVsOut ame_util.charList;
41: ruleIndexes ame_util.idList;
42: sourceTypes ame_util.stringList;
43: lRuleDescription varchar2(240);
44: l_actionTypeNamesOut ame_util.stringList;
45: l_actionTypeDescriptionsOut ame_util.stringList;
46: l_actionDescriptionsOut ame_util.stringList;
47: l_conditionDescriptionsOut ame_util.longestStringList;
48: l_conditionHasLOVsOut ame_util.charList;
49: l_item_class_id number(15);
42: sourceTypes ame_util.stringList;
43: lRuleDescription varchar2(240);
44: l_actionTypeNamesOut ame_util.stringList;
45: l_actionTypeDescriptionsOut ame_util.stringList;
46: l_actionDescriptionsOut ame_util.stringList;
47: l_conditionDescriptionsOut ame_util.longestStringList;
48: l_conditionHasLOVsOut ame_util.charList;
49: l_item_class_id number(15);
50: l_approver_category varchar2(1);
43: lRuleDescription varchar2(240);
44: l_actionTypeNamesOut ame_util.stringList;
45: l_actionTypeDescriptionsOut ame_util.stringList;
46: l_actionDescriptionsOut ame_util.stringList;
47: l_conditionDescriptionsOut ame_util.longestStringList;
48: l_conditionHasLOVsOut ame_util.charList;
49: l_item_class_id number(15);
50: l_approver_category varchar2(1);
51: l_appr_status_code varchar2(30);
44: l_actionTypeNamesOut ame_util.stringList;
45: l_actionTypeDescriptionsOut ame_util.stringList;
46: l_actionDescriptionsOut ame_util.stringList;
47: l_conditionDescriptionsOut ame_util.longestStringList;
48: l_conditionHasLOVsOut ame_util.charList;
49: l_item_class_id number(15);
50: l_approver_category varchar2(1);
51: l_appr_status_code varchar2(30);
52: l_appr_instance_status varchar2(30);
271: -- fetching the approvers data from ASO tables
272:
273:
274: j:=0;
275: approvers2:=ame_util.emptyApproversTable2;
276: for c1 in get_approver_details(p_object_approval_id) loop
277:
278: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
279: aso_debug_pub.ADD ('get_approver_details: c1.name'||c1.name,1,'N');
281:
282:
283: If c1.name is null then -- for backward compatibility
284: if c1.approver_user_id is not null then
285: WF_DIRECTORY.GetUserName(ame_util.fndUserOrigSystem, c1.approver_user_id, l_name, l_displayname);
286: else
287: WF_DIRECTORY.GetUserName(ame_util.perOrigSystem, c1.approver_person_id, l_name, l_displayname);
288: if l_name is null then -- POS
289: WF_DIRECTORY.GetUserName(ame_util.posOrigSystem, c1.approver_person_id, l_name, l_displayname);
283: If c1.name is null then -- for backward compatibility
284: if c1.approver_user_id is not null then
285: WF_DIRECTORY.GetUserName(ame_util.fndUserOrigSystem, c1.approver_user_id, l_name, l_displayname);
286: else
287: WF_DIRECTORY.GetUserName(ame_util.perOrigSystem, c1.approver_person_id, l_name, l_displayname);
288: if l_name is null then -- POS
289: WF_DIRECTORY.GetUserName(ame_util.posOrigSystem, c1.approver_person_id, l_name, l_displayname);
290: end if;
291: end if;
285: WF_DIRECTORY.GetUserName(ame_util.fndUserOrigSystem, c1.approver_user_id, l_name, l_displayname);
286: else
287: WF_DIRECTORY.GetUserName(ame_util.perOrigSystem, c1.approver_person_id, l_name, l_displayname);
288: if l_name is null then -- POS
289: WF_DIRECTORY.GetUserName(ame_util.posOrigSystem, c1.approver_person_id, l_name, l_displayname);
290: end if;
291: end if;
292: else
293: l_name:=c1.name;
295:
296: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
297: aso_debug_pub.ADD ('l_name'||l_name,1,'N');
298: end if;
299: approverrecord2:=ame_util.emptyApproverRecord2;
300: j:=j+1;
301: approverrecord2.name:=c1.name;
302: ame_approver_type_pkg.getApproverOrigSystemAndId(nameIn =>l_name,
303: origSystemOut => approverrecord2.Orig_System,
363: aso_debug_pub.ADD ('tempOrigSystem '||tempOrigSystem,1,'N' );
364: aso_debug_pub.ADD ('tempOrigSystemId '||tempOrigSystemId,1,'N' );
365: end if;
366:
367: if tempOrigSystem = ame_util.perOrigSystem then
368: x_approvers_list(m).approver_user_id := null;
369: x_approvers_list(m).approver_person_id := tempOrigSystemId;
370:
371: elsif tempOrigSystem = ame_util.fndUserOrigSystem then
367: if tempOrigSystem = ame_util.perOrigSystem then
368: x_approvers_list(m).approver_user_id := null;
369: x_approvers_list(m).approver_person_id := tempOrigSystemId;
370:
371: elsif tempOrigSystem = ame_util.fndUserOrigSystem then
372: x_approvers_list(m).approver_user_id := tempOrigSystemId;
373: x_approvers_list(m).approver_person_id := null;
374: end if;
375: x_approvers_list (m).approver_sequence:=approvers2(i).approver_order_number;
501:
502: if l_appr_instance_status<>'PEND' then
503: --pp_debug('Fetching rules from table');
504: m:=0;
505: ruleids:=ame_util.emptyIdList;
506: for c1 in (select OAM_RULE_ID
507: from aso_apr_rules
508: where p_object_approval_id=object_approval_id)
509: loop
741: l_obsolete_status varchar2(1);
742: l_employee_id NUMBER;
743: l_dup_approval NUMBER;
744: l_approver_index number;
745: l_del_approver ame_util.approverRecord2;
746: -- l_process_out VARCHAR2 (10);
747: --approverlist ame_util.approverstable2;
748: CURSOR c2 (
749: c_object_id NUMBER
743: l_dup_approval NUMBER;
744: l_approver_index number;
745: l_del_approver ame_util.approverRecord2;
746: -- l_process_out VARCHAR2 (10);
747: --approverlist ame_util.approverstable2;
748: CURSOR c2 (
749: c_object_id NUMBER
750: ) IS
751: SELECT NVL (
857:
858: IF l_dup_approval = 0 THEN
859:
860: -- checking if there is any approvers that needs to be suppresses
861: -- Just assign the values in p_del_appr_table to ame_util.approversTable2 structure and call ame_api3.suppressApprovers
862:
863: if p_del_appr_table.count> 0 then
864: for l_approver_index in p_del_appr_table.first..p_del_appr_table.last loop
865: BEGIN
1660: l_object_version_number NUMBER;
1661: l_status_id NUMBER;
1662:
1663: l_process_out VARCHAR2 (10);
1664: approverlist ame_util.approverstable2;
1665: l_appr_cat_count number;
1666: l_object_approval_id number;
1667: l_object_type varchar2(30);
1668: l_application_id number;
1906: l_approver_comments VARCHAR2 (240);
1907: l_displayname varchar2(360);
1908: l_name varchar2(320);
1909: l_approver_type VARCHAR2 (50);
1910: tempOrigSystem ame_util.stringType;
1911: tempOrigSystemId integer;
1912: l_approver_category_desc varchar2(50);
1913: l_sub_list_desc varchar2(50);
1914: l_action_type varchar2(150);
2022:
2023:
2024: If c1.name is null then -- for backward compatibility
2025: if c1.approver_user_id is not null then
2026: WF_DIRECTORY.GetUserName(ame_util.fndUserOrigSystem, c1.approver_user_id, l_name, l_displayname);
2027: else
2028: WF_DIRECTORY.GetUserName(ame_util.perOrigSystem, c1.approver_person_id, l_name, l_displayname);
2029: if l_name is null then -- POS
2030: WF_DIRECTORY.GetUserName(ame_util.posOrigSystem, c1.approver_person_id, l_name, l_displayname);
2024: If c1.name is null then -- for backward compatibility
2025: if c1.approver_user_id is not null then
2026: WF_DIRECTORY.GetUserName(ame_util.fndUserOrigSystem, c1.approver_user_id, l_name, l_displayname);
2027: else
2028: WF_DIRECTORY.GetUserName(ame_util.perOrigSystem, c1.approver_person_id, l_name, l_displayname);
2029: if l_name is null then -- POS
2030: WF_DIRECTORY.GetUserName(ame_util.posOrigSystem, c1.approver_person_id, l_name, l_displayname);
2031: end if;
2032: end if;
2026: WF_DIRECTORY.GetUserName(ame_util.fndUserOrigSystem, c1.approver_user_id, l_name, l_displayname);
2027: else
2028: WF_DIRECTORY.GetUserName(ame_util.perOrigSystem, c1.approver_person_id, l_name, l_displayname);
2029: if l_name is null then -- POS
2030: WF_DIRECTORY.GetUserName(ame_util.posOrigSystem, c1.approver_person_id, l_name, l_displayname);
2031: end if;
2032: end if;
2033: else
2034: l_name:=c1.name;