3: procedure getGroupMembers(applicationIdIn in number,
4: transactionTypeIn in varchar2,
5: transactionIdIn in varchar2,
6: groupIdIn in number,
7: memberOrderNumbersOut out nocopy ame_util.idList,
8: memberPersonIdsOut out nocopy ame_util.idList,
9: memberUserIdsOut out nocopy ame_util.idList) as
10: errorCode integer;
11: errorMessage ame_util.longestStringType;
4: transactionTypeIn in varchar2,
5: transactionIdIn in varchar2,
6: groupIdIn in number,
7: memberOrderNumbersOut out nocopy ame_util.idList,
8: memberPersonIdsOut out nocopy ame_util.idList,
9: memberUserIdsOut out nocopy ame_util.idList) as
10: errorCode integer;
11: errorMessage ame_util.longestStringType;
12: memberNames ame_util.longStringList;
5: transactionIdIn in varchar2,
6: groupIdIn in number,
7: memberOrderNumbersOut out nocopy ame_util.idList,
8: memberPersonIdsOut out nocopy ame_util.idList,
9: memberUserIdsOut out nocopy ame_util.idList) as
10: errorCode integer;
11: errorMessage ame_util.longestStringType;
12: memberNames ame_util.longStringList;
13: memberDisplayNames ame_util.longStringList;
7: memberOrderNumbersOut out nocopy ame_util.idList,
8: memberPersonIdsOut out nocopy ame_util.idList,
9: memberUserIdsOut out nocopy ame_util.idList) as
10: errorCode integer;
11: errorMessage ame_util.longestStringType;
12: memberNames ame_util.longStringList;
13: memberDisplayNames ame_util.longStringList;
14: memberOrigSystemIds ame_util.idList;
15: memberOrigSystems ame_util.stringList;
8: memberPersonIdsOut out nocopy ame_util.idList,
9: memberUserIdsOut out nocopy ame_util.idList) as
10: errorCode integer;
11: errorMessage ame_util.longestStringType;
12: memberNames ame_util.longStringList;
13: memberDisplayNames ame_util.longStringList;
14: memberOrigSystemIds ame_util.idList;
15: memberOrigSystems ame_util.stringList;
16: tempOrigSystem ame_util.stringType;
9: memberUserIdsOut out nocopy ame_util.idList) as
10: errorCode integer;
11: errorMessage ame_util.longestStringType;
12: memberNames ame_util.longStringList;
13: memberDisplayNames ame_util.longStringList;
14: memberOrigSystemIds ame_util.idList;
15: memberOrigSystems ame_util.stringList;
16: tempOrigSystem ame_util.stringType;
17: wrongOrigSystem exception;
10: errorCode integer;
11: errorMessage ame_util.longestStringType;
12: memberNames ame_util.longStringList;
13: memberDisplayNames ame_util.longStringList;
14: memberOrigSystemIds ame_util.idList;
15: memberOrigSystems ame_util.stringList;
16: tempOrigSystem ame_util.stringType;
17: wrongOrigSystem exception;
18: begin
11: errorMessage ame_util.longestStringType;
12: memberNames ame_util.longStringList;
13: memberDisplayNames ame_util.longStringList;
14: memberOrigSystemIds ame_util.idList;
15: memberOrigSystems ame_util.stringList;
16: tempOrigSystem ame_util.stringType;
17: wrongOrigSystem exception;
18: begin
19: ame_api3.getGroupMembers4(applicationIdIn => applicationIdIn,
12: memberNames ame_util.longStringList;
13: memberDisplayNames ame_util.longStringList;
14: memberOrigSystemIds ame_util.idList;
15: memberOrigSystems ame_util.stringList;
16: tempOrigSystem ame_util.stringType;
17: wrongOrigSystem exception;
18: begin
19: ame_api3.getGroupMembers4(applicationIdIn => applicationIdIn,
20: transactionTypeIn => transactionTypeIn,
25: memberDisplayNamesOut => memberDisplayNames,
26: memberOrigSystemIdsOut => memberOrigSystemIds,
27: memberOrigSystemsOut => memberOrigSystems);
28: for i in 1 .. memberNames.count loop
29: if memberOrigSystems(i) = ame_util.perOrigSystem then
30: memberPersonIdsOut(i) := memberOrigSystemIds(i);
31: memberUserIdsOut(i) := null;
32: elsif memberOrigSystems(i) = ame_util.fndUserOrigSystem then
33: memberPersonIdsOut(i) := null;
28: for i in 1 .. memberNames.count loop
29: if memberOrigSystems(i) = ame_util.perOrigSystem then
30: memberPersonIdsOut(i) := memberOrigSystemIds(i);
31: memberUserIdsOut(i) := null;
32: elsif memberOrigSystems(i) = ame_util.fndUserOrigSystem then
33: memberPersonIdsOut(i) := null;
34: memberUserIdsOut(i) := memberOrigSystemIds(i);
35: else
36: tempOrigSystem := memberOrigSystems(i);
39: end loop;
40: exception
41: when wrongOrigSystem then
42: errorCode := -20001;
43: errorMessage := ame_util.getMessage(applicationShortNameIn => 'PER',
44: messageNameIn => 'AME_400415_APPROVER_NOT_FOUND',
45: tokenNameOneIn => 'ORIG_SYSTEM_ID',
46: tokenValueOneIn => tempOrigSystem);
47: ame_util.runtimeException(packageNameIn => 'ame_api4',
43: errorMessage := ame_util.getMessage(applicationShortNameIn => 'PER',
44: messageNameIn => 'AME_400415_APPROVER_NOT_FOUND',
45: tokenNameOneIn => 'ORIG_SYSTEM_ID',
46: tokenValueOneIn => tempOrigSystem);
47: ame_util.runtimeException(packageNameIn => 'ame_api4',
48: routineNameIn => 'getGroupMembers',
49: exceptionNumberIn => errorCode,
50: exceptionStringIn => errorMessage);
51: raise_application_error(errorCode,
50: exceptionStringIn => errorMessage);
51: raise_application_error(errorCode,
52: errorMessage);
53: when others then
54: ame_util.runtimeException(packageNameIn => 'ame_api4',
55: routineNameIn => 'getGroupMembers',
56: exceptionNumberIn => sqlcode,
57: exceptionStringIn => sqlerrm);
58: raise;