[Home] [Help]
PACKAGE BODY: APPS.AME_API4
Source
1 package body ame_api4 as
2 /* $Header: ameeapi4.pkb 120.2 2011/05/17 11:39:17 nchinnam ship $ */
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;
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,
21 transactionIdIn => transactionIdIn,
22 groupIdIn => groupIdIn,
23 memberNamesOut => memberNames,
24 memberOrderNumbersOut => memberOrderNumbersOut,
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;
34 memberUserIdsOut(i) := memberOrigSystemIds(i);
35 else
36 tempOrigSystem := memberOrigSystems(i);
37 raise wrongOrigSystem;
38 end if;
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',
48 routineNameIn => 'getGroupMembers',
49 exceptionNumberIn => 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;
59 end getGroupMembers;
60 end ame_api4;