[Home] [Help]
1: PACKAGE BODY AME_APPROVAL_GROUP_CONFIG_API AS
2: /* $Header: amegcapi.pkb 120.1 2005/10/14 04:12 ubhat noship $ */
3: procedure OWNER_TO_WHO (
4: X_OWNER in VARCHAR2,
5: X_CREATED_BY out nocopy NUMBER,
48: select ROWID,
49: LAST_UPDATED_BY,
50: to_char(LAST_UPDATE_DATE,'YYYY/MM/DD HH24:MI:SS'),
51: nvl(OBJECT_VERSION_NUMBER,1)
52: from AME_APPROVAL_GROUP_CONFIG
53: where APPROVAL_GROUP_ID = X_APPROVAL_GROUP_ID
54: and APPLICATION_ID = X_APPLICATION_ID
55: and sysdate between START_DATE
56: and nvl(END_DATE - (1/86400), sysdate);
119: X_START_DATE in DATE,
120: X_OBJECT_VERSION_NUMBER in NUMBER)
121: is
122: begin
123: insert into AME_APPROVAL_GROUP_CONFIG
124: (
125: APPLICATION_ID,
126: APPROVAL_GROUP_ID,
127: VOTING_REGIME,
162: X_END_DATE in DATE,
163: X_OBJECT_VERSION_NUMBER in NUMBER
164: ) is
165: begin
166: update AME_APPROVAL_GROUP_CONFIG
167: set VOTING_REGIME = X_VOTING_REGIME,
168: ORDER_NUMBER = X_ORDER_NUMBER,
169: CREATED_BY = X_CREATED_BY,
170: CREATION_DATE = X_CREATION_DATE,
180: X_CONFIG_ROWID in VARCHAR2,
181: X_END_DATE in DATE)
182: is
183: begin
184: update AME_APPROVAL_GROUP_CONFIG set
185: END_DATE = X_END_DATE
186: where ROWID = X_CONFIG_ROWID;
187: end UPDATE_ROW;
188: procedure DELETE_ROW (
189: X_APPLICATION_ID in NUMBER,
190: X_APPROVAL_GROUP_ID in NUMBER
191: ) is
192: begin
193: delete from AME_APPROVAL_GROUP_CONFIG
194: where APPLICATION_ID = X_APPLICATION_ID
195: and APPROVAL_GROUP_ID = X_APPROVAL_GROUP_ID;
196:
197: if (sql%notfound) then
297: end if;
298: end;
299: exception
300: when others then
301: ame_util.runtimeException('ame_approval_group_config_api',
302: 'load_row',
303: sqlcode,
304: sqlerrm);
305: raise;
304: sqlerrm);
305: raise;
306: end LOAD_ROW;
307: --
308: END AME_APPROVAL_GROUP_CONFIG_API;