[Home] [Help]
1: PACKAGE BODY AME_CALLING_APPS_API AS
2: /* $Header: amecaapi.pkb 120.6 2006/08/09 06:53:23 pvelugul noship $ */
3: X_AME_INSTALLATION_LEVEL varchar2(255);
4: procedure OWNER_TO_WHO (
5: X_OWNER in VARCHAR2,
41: )
42: is select ROWID, nvl(OBJECT_VERSION_NUMBER,1),APPLICATION_ID,
43: LAST_UPDATED_BY,
44: to_char(LAST_UPDATE_DATE,'YYYY/MM/DD HH24:MI:SS')
45: from AME_CALLING_APPS
46: where FND_APPLICATION_ID = X_FND_APPLICATION_ID
47: and nvl(TRANSACTION_TYPE_ID,'NULL')
48: = nvl(X_TRANSACTION_TYPE_ID,'NULL')
49: and sysdate between START_DATE
176: )
177: is
178: begin
179:
180: insert into AME_CALLING_APPS
181: (
182: FND_APPLICATION_ID,
183: APPLICATION_NAME,
184: TRANSACTION_TYPE_ID,
223: X_END_DATE in DATE,
224: X_OBJECT_VERSION_NUMBER in NUMBER
225: ) is
226: begin
227: update AME_CALLING_APPS
228: set APPLICATION_NAME = X_APPLICATION_NAME,
229: APPLICATION_ID = X_APPLICATION_ID,
230: LINE_ITEM_ID_QUERY = X_LINE_ITEM_ID_QUERY,
231: CREATED_BY = X_CREATED_BY,
337: if not AME_SEED_UTILITY.MLS_ENABLED then
338: return;
339: end if;
340:
341: insert into AME_CALLING_APPS_TL
342: (APPLICATION_ID
343: ,APPLICATION_NAME
344: ,CREATED_BY
345: ,CREATION_DATE
359: userenv('LANG')
360: from FND_LANGUAGES L
361: where L.INSTALLED_FLAG in ('I', 'B')
362: and not exists (select null
363: from AME_CALLING_APPS_TL T
364: where T.APPLICATION_ID = X_APPLICATION_ID
365: and T.LANGUAGE = L.LANGUAGE_CODE);
366: END insert_tl_row;
367:
384: select LAST_UPDATED_BY,
385: LAST_UPDATE_DATE
386: into X_CURRENT_OWNER,
387: X_CURRENT_LAST_UPDATE_DATE
388: FROM AME_CALLING_APPS_TL
389: WHERE APPLICATION_ID = X_APPLICATION_ID
390: AND LANGUAGE = USERENV('LANG');
391:
392: if DO_UPDATE_INSERT
394: ,X_CURRENT_OWNER
395: ,AME_SEED_UTILITY.DATE_AS_STRING(X_LAST_UPDATE_DATE)
396: ,AME_SEED_UTILITY.DATE_AS_STRING(X_CURRENT_LAST_UPDATE_DATE)
397: ,X_CUSTOM_MODE) then
398: update AME_CALLING_APPS_TL
399: set APPLICATION_NAME = nvl(X_APPLICATION_NAME,APPLICATION_NAME),
400: SOURCE_LANG = userenv('LANG'),
401: LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
402: LAST_UPDATED_BY = X_LAST_UPDATED_BY,
413: X_CALLING_APPS_ROWID in VARCHAR2,
414: X_END_DATE in DATE)
415: is
416: begin
417: update AME_CALLING_APPS set
418: END_DATE = X_END_DATE
419: where ROWID = X_CALLING_APPS_ROWID;
420: end UPDATE_ROW;
421:
438: X_APPLICATION_ID in NUMBER
439: ) is
440: begin
441: if AME_SEED_UTILITY.MLS_ENABLED then
442: delete from AME_CALLING_APPS_TL
443: where APPLICATION_ID in (select APPLICATION_ID
444: from AME_CALLING_APPS
445: where FND_APPLICATION_ID = X_FND_APPLICATION_ID
446: and nvl(TRANSACTION_TYPE_ID,'NULL') = nvl(X_TRANSACTION_TYPE_ID,'NULL'));
440: begin
441: if AME_SEED_UTILITY.MLS_ENABLED then
442: delete from AME_CALLING_APPS_TL
443: where APPLICATION_ID in (select APPLICATION_ID
444: from AME_CALLING_APPS
445: where FND_APPLICATION_ID = X_FND_APPLICATION_ID
446: and nvl(TRANSACTION_TYPE_ID,'NULL') = nvl(X_TRANSACTION_TYPE_ID,'NULL'));
447: end if;
448: delete from AME_CALLING_APPS
444: from AME_CALLING_APPS
445: where FND_APPLICATION_ID = X_FND_APPLICATION_ID
446: and nvl(TRANSACTION_TYPE_ID,'NULL') = nvl(X_TRANSACTION_TYPE_ID,'NULL'));
447: end if;
448: delete from AME_CALLING_APPS
449: where FND_APPLICATION_ID = X_FND_APPLICATION_ID
450: and nvl(TRANSACTION_TYPE_ID,'NULL') = nvl(X_TRANSACTION_TYPE_ID,'NULL');
451: if (sql%notfound) then
452: raise no_data_found;
852: X_NEW_LINE_ITEM_ID_QUERY:= null;
853: end if;
854: begin
855: -- the current row was not found insert a new row for
856: -- ame_calling_apps, a new item class usages
857: -- for header (required) and line item class (optional)
858: if X_FND_APPLICATION_ID is not null then
859: if (X_CALLING_APPS_ROWID is null) and
860: (X_APPLICATION_ID is null) then
1034: end if;
1035: end;
1036: exception
1037: when others then
1038: ame_util.runtimeException('ame_calling_apps_api',
1039: 'load_row',
1040: sqlcode,
1041: sqlerrm);
1042: raise;
1067: into X_CURRENT_OWNER,
1068: X_CURRENT_LAST_UPDATE_DATE,
1069: X_CREATED_BY,
1070: X_APPLICATION_ID
1071: from AME_CALLING_APPS_TL ACATL,
1072: AME_CALLING_APPS ACA,
1073: FND_APPLICATION_VL FAV
1074: where FAV.APPLICATION_SHORT_NAME = X_APPLICATION_SHORT_NAME
1075: and FAV.APPLICATION_ID = ACA.FND_APPLICATION_ID
1068: X_CURRENT_LAST_UPDATE_DATE,
1069: X_CREATED_BY,
1070: X_APPLICATION_ID
1071: from AME_CALLING_APPS_TL ACATL,
1072: AME_CALLING_APPS ACA,
1073: FND_APPLICATION_VL FAV
1074: where FAV.APPLICATION_SHORT_NAME = X_APPLICATION_SHORT_NAME
1075: and FAV.APPLICATION_ID = ACA.FND_APPLICATION_ID
1076: and ((ACA.TRANSACTION_TYPE_ID is null and X_TRANSACTION_TYPE_ID is null) or
1084: X_LAST_UPDATE_DATE => X_LAST_UPDATE_DATE,
1085: X_CURRENT_LAST_UPDATE_DATE => X_CURRENT_LAST_UPDATE_DATE,
1086: X_CREATED_BY => X_CREATED_BY,
1087: X_CUSTOM_MODE => X_CUSTOM_MODE) then
1088: update AME_CALLING_APPS_TL ACATL
1089: set APPLICATION_NAME = nvl(X_APPLICATION_NAME,APPLICATION_NAME),
1090: SOURCE_LANG = userenv('LANG'),
1091: LAST_UPDATE_DATE = AME_SEED_UTILITY.DATE_AS_DATE(X_LAST_UPDATE_DATE),
1092: LAST_UPDATED_BY = AME_SEED_UTILITY.OWNER_AS_INTEGER(X_OWNER),
1133: ,X_CUSTOM_MODE => X_CUSTOM_MODE
1134: );
1135: end if;
1136: end LOAD_SEED_ROW;
1137: END AME_CALLING_APPS_API;