551:
552: PROCEDURE EDR_RAISE3( p_event_name IN varchar2,
553: p_event_key IN varchar2,
554: p_event_data IN clob default NULL,
555: p_param_list IN OUT NOCOPY FND_TABLE_OF_VARCHAR2_255,
556: p_send_date IN date default NULL,
557: p_param_value IN OUT NOCOPY FND_TABLE_OF_VARCHAR2_255 ) IS
558:
559: --Bug 3207385: Start
553: p_event_key IN varchar2,
554: p_event_data IN clob default NULL,
555: p_param_list IN OUT NOCOPY FND_TABLE_OF_VARCHAR2_255,
556: p_send_date IN date default NULL,
557: p_param_value IN OUT NOCOPY FND_TABLE_OF_VARCHAR2_255 ) IS
558:
559: --Bug 3207385: Start
560: --This variable would now be a simple name/value param type.
561: l_param_list fnd_wf_event.param_table;
586: L_PARAM_LIST.COUNT,
587: P_SEND_DATE);
588:
589: --Recreate the param list and param value objects.
590: p_param_list := FND_TABLE_OF_VARCHAR2_255();
591: p_param_value := FND_TABLE_OF_VARCHAR2_255();
592:
593: for ith in 1..l_param_list.count LOOP
594: p_param_list.extend;
587: P_SEND_DATE);
588:
589: --Recreate the param list and param value objects.
590: p_param_list := FND_TABLE_OF_VARCHAR2_255();
591: p_param_value := FND_TABLE_OF_VARCHAR2_255();
592:
593: for ith in 1..l_param_list.count LOOP
594: p_param_list.extend;
595: p_param_list(ith) := l_param_list(ith).param_name;
871: --Whenever ame supports it, we will uncomment this.
872: /* Get Userid from Ame */
873: /*
874: procedure getUseridFromAme (p_groupname in varchar2,
875: x_userid out NOCOPY FND_TABLE_OF_VARCHAR2_255,
876: x_usergroupname out NOCOPY FND_TABLE_OF_VARCHAR2_255)
877: is
878: l_approval_group_id AME_APPROVAL_GROUPS.APPROVAL_GROUP_ID%TYPE;
879: l_approval_group_name AME_APPROVAL_GROUPS.NAME%TYPE;
872: /* Get Userid from Ame */
873: /*
874: procedure getUseridFromAme (p_groupname in varchar2,
875: x_userid out NOCOPY FND_TABLE_OF_VARCHAR2_255,
876: x_usergroupname out NOCOPY FND_TABLE_OF_VARCHAR2_255)
877: is
878: l_approval_group_id AME_APPROVAL_GROUPS.APPROVAL_GROUP_ID%TYPE;
879: l_approval_group_name AME_APPROVAL_GROUPS.NAME%TYPE;
880: l_parameter_values ame_util.longStringList;
888: and end_date is null;
889:
890: BEGIN
891: -- Begin Bug FIX 3388988
892: x_userid :=FND_TABLE_OF_VARCHAR2_255();
893: x_usergroupname :=FND_TABLE_OF_VARCHAR2_255();
894: --End Bug Fix 3388988
895: open GET_AMEGROUP;
896: loop
889:
890: BEGIN
891: -- Begin Bug FIX 3388988
892: x_userid :=FND_TABLE_OF_VARCHAR2_255();
893: x_usergroupname :=FND_TABLE_OF_VARCHAR2_255();
894: --End Bug Fix 3388988
895: open GET_AMEGROUP;
896: loop
897: fetch GET_AMEGROUP into l_approval_group_id, l_approval_group_name;
1643: PROCEDURE GET_RULES_AND_VARIABLES
1644: (
1645: P_EVENT_NAME IN VARCHAR2,
1646: P_EVENT_KEY IN VARCHAR2 DEFAULT NULL,
1647: X_AME_RULE_IDS OUT NOCOPY FND_TABLE_OF_VARCHAR2_255,
1648: X_AME_RULE_DESCRIPTIONS OUT NOCOPY FND_TABLE_OF_VARCHAR2_255,
1649: X_VARIABLE_NAMES OUT NOCOPY FND_TABLE_OF_VARCHAR2_255,
1650: X_VARIABLE_VALUES OUT NOCOPY FND_TABLE_OF_VARCHAR2_255
1651: )
1644: (
1645: P_EVENT_NAME IN VARCHAR2,
1646: P_EVENT_KEY IN VARCHAR2 DEFAULT NULL,
1647: X_AME_RULE_IDS OUT NOCOPY FND_TABLE_OF_VARCHAR2_255,
1648: X_AME_RULE_DESCRIPTIONS OUT NOCOPY FND_TABLE_OF_VARCHAR2_255,
1649: X_VARIABLE_NAMES OUT NOCOPY FND_TABLE_OF_VARCHAR2_255,
1650: X_VARIABLE_VALUES OUT NOCOPY FND_TABLE_OF_VARCHAR2_255
1651: )
1652: IS
1645: P_EVENT_NAME IN VARCHAR2,
1646: P_EVENT_KEY IN VARCHAR2 DEFAULT NULL,
1647: X_AME_RULE_IDS OUT NOCOPY FND_TABLE_OF_VARCHAR2_255,
1648: X_AME_RULE_DESCRIPTIONS OUT NOCOPY FND_TABLE_OF_VARCHAR2_255,
1649: X_VARIABLE_NAMES OUT NOCOPY FND_TABLE_OF_VARCHAR2_255,
1650: X_VARIABLE_VALUES OUT NOCOPY FND_TABLE_OF_VARCHAR2_255
1651: )
1652: IS
1653:
1646: P_EVENT_KEY IN VARCHAR2 DEFAULT NULL,
1647: X_AME_RULE_IDS OUT NOCOPY FND_TABLE_OF_VARCHAR2_255,
1648: X_AME_RULE_DESCRIPTIONS OUT NOCOPY FND_TABLE_OF_VARCHAR2_255,
1649: X_VARIABLE_NAMES OUT NOCOPY FND_TABLE_OF_VARCHAR2_255,
1650: X_VARIABLE_VALUES OUT NOCOPY FND_TABLE_OF_VARCHAR2_255
1651: )
1652: IS
1653:
1654: l_esign_required varchar2(1);
1668: l_transaction_name varchar2(240);
1669: l_ruleids ame_util.idList;
1670: l_rulenames ame_util.stringList;
1671: l_rulevalues EDR_STANDARD.ameruleinputvalues;
1672: l_temp_rule_names FND_TABLE_OF_VARCHAR2_255;
1673: l_temp_rule_values FND_TABLE_OF_VARCHAR2_255;
1674: l_rule_id NUMBER;
1675: l_variable_count NUMBER;
1676: -- bug 5586151 : start
1669: l_ruleids ame_util.idList;
1670: l_rulenames ame_util.stringList;
1671: l_rulevalues EDR_STANDARD.ameruleinputvalues;
1672: l_temp_rule_names FND_TABLE_OF_VARCHAR2_255;
1673: l_temp_rule_values FND_TABLE_OF_VARCHAR2_255;
1674: l_rule_id NUMBER;
1675: l_variable_count NUMBER;
1676: -- bug 5586151 : start
1677: l_active_sub_guid varchar2(4000) := null;
1849: --names and values.
1850: for i in 1..l_ruleids.count loop
1851: --These temporary variables are used to compute
1852: --the rule variable names and values.
1853: l_temp_rule_names := new FND_TABLE_OF_VARCHAR2_255();
1854: l_temp_rule_values := new FND_TABLE_OF_VARCHAR2_255();
1855:
1856: --Initialize variable count to zero
1857: l_variable_count := 1;
1850: for i in 1..l_ruleids.count loop
1851: --These temporary variables are used to compute
1852: --the rule variable names and values.
1853: l_temp_rule_names := new FND_TABLE_OF_VARCHAR2_255();
1854: l_temp_rule_values := new FND_TABLE_OF_VARCHAR2_255();
1855:
1856: --Initialize variable count to zero
1857: l_variable_count := 1;
1858:
1994: --themselves, while CHANGE_SIGNERS only has a precedence relationship
1995: --between its values not with any other variable.
1996: if l_change_signer_defined = 'Y' then
1997: if(X_VARIABLE_NAMES is null) then
1998: X_VARIABLE_NAMES := new FND_TABLE_OF_VARCHAR2_255();
1999: X_VARIABLE_VALUES := new FND_TABLE_OF_VARCHAR2_255();
2000: end if;
2001:
2002: X_VARIABLE_NAMES.extend;
1995: --between its values not with any other variable.
1996: if l_change_signer_defined = 'Y' then
1997: if(X_VARIABLE_NAMES is null) then
1998: X_VARIABLE_NAMES := new FND_TABLE_OF_VARCHAR2_255();
1999: X_VARIABLE_VALUES := new FND_TABLE_OF_VARCHAR2_255();
2000: end if;
2001:
2002: X_VARIABLE_NAMES.extend;
2003: X_VARIABLE_VALUES.extend;
2010: --If ruleids are not null then populate the out parameter variables.
2011:
2012: if l_ruleids(1) <> -1 then
2013: if l_ruleids.count > 0 then
2014: X_AME_RULE_IDS := NEW FND_TABLE_OF_VARCHAR2_255();
2015: X_AME_RULE_DESCRIPTIONS := NEW FND_TABLE_OF_VARCHAR2_255();
2016: for i in 1..l_rulenames.count loop
2017: X_AME_RULE_IDS.extend;
2018: X_AME_RULE_IDs(i) := l_ruleids(i);
2011:
2012: if l_ruleids(1) <> -1 then
2013: if l_ruleids.count > 0 then
2014: X_AME_RULE_IDS := NEW FND_TABLE_OF_VARCHAR2_255();
2015: X_AME_RULE_DESCRIPTIONS := NEW FND_TABLE_OF_VARCHAR2_255();
2016: for i in 1..l_rulenames.count loop
2017: X_AME_RULE_IDS.extend;
2018: X_AME_RULE_IDs(i) := l_ruleids(i);
2019: X_AME_RULE_DESCRIPTIONS.extend;