DBA Data[Home] [Help]

APPS.FA_ADDITIONS_PKG dependencies on FA_ADDITIONS

Line 1: PACKAGE BODY FA_ADDITIONS_PKG as

1: PACKAGE BODY FA_ADDITIONS_PKG as
2: /* $Header: faxiadb.pls 120.6 2005/07/25 10:02:26 yyoon ship $ */
3:
4: PROCEDURE Insert_Row(X_Rowid IN OUT NOCOPY VARCHAR2,
5: X_Asset_Id IN OUT NOCOPY NUMBER,

Line 92: CURSOR C IS SELECT rowid FROM fa_additions_B

88: p_log_level_rec IN FA_API_TYPES.log_level_rec_type default null) IS
89:
90: h_error_message varchar2(255);
91:
92: CURSOR C IS SELECT rowid FROM fa_additions_B
93: WHERE asset_id = X_Asset_Id;
94: CURSOR C2 IS SELECT fa_additions_s.nextval FROM sys.dual;
95:
96: l_attribute15 varchar2(150);

Line 94: CURSOR C2 IS SELECT fa_additions_s.nextval FROM sys.dual;

90: h_error_message varchar2(255);
91:
92: CURSOR C IS SELECT rowid FROM fa_additions_B
93: WHERE asset_id = X_Asset_Id;
94: CURSOR C2 IS SELECT fa_additions_s.nextval FROM sys.dual;
95:
96: l_attribute15 varchar2(150);
97:
98: BEGIN

Line 114: INSERT INTO fa_additions_B(

110: else
111: l_attribute15 := X_attribute15;
112: end if;
113:
114: INSERT INTO fa_additions_B(
115: asset_id,
116: asset_number,
117: asset_key_ccid,
118: current_units,

Line 280: insert into FA_ADDITIONS_TL (

276: X_Creation_Date,
277: X_Last_Update_Login
278:
279: );
280: insert into FA_ADDITIONS_TL (
281: LAST_UPDATED_BY,
282: CREATED_BY,
283: CREATION_DATE,
284: LAST_UPDATE_LOGIN,

Line 304: from FA_ADDITIONS_TL T

300: from FND_LANGUAGES L
301: where L.INSTALLED_FLAG in ('I', 'B')
302: and not exists
303: (select NULL
304: from FA_ADDITIONS_TL T
305: where T.ASSET_ID = X_ASSET_ID
306: and T.LANGUAGE = L.LANGUAGE_CODE);
307:
308:

Line 323: if instr (h_error_message, 'FA_ADDITIONS_B_U2') <> 0 then

319: exception
320: when dup_val_on_index then
321: h_error_message := SQLERRM;
322:
323: if instr (h_error_message, 'FA_ADDITIONS_B_U2') <> 0 then
324: FA_SRVR_MSG.add_message(
325: CALLING_FN => 'fa_additions_pkg.insert_row',
326: NAME => 'FA_ADD_ASSET_NUMBER_EXISTS',
327: TOKEN1 => 'ASSET_NUMBER',

Line 325: CALLING_FN => 'fa_additions_pkg.insert_row',

321: h_error_message := SQLERRM;
322:
323: if instr (h_error_message, 'FA_ADDITIONS_B_U2') <> 0 then
324: FA_SRVR_MSG.add_message(
325: CALLING_FN => 'fa_additions_pkg.insert_row',
326: NAME => 'FA_ADD_ASSET_NUMBER_EXISTS',
327: TOKEN1 => 'ASSET_NUMBER',
328: VALUE1 => X_Asset_Number
329: ,p_log_level_rec => p_log_level_rec);

Line 331: CALLING_FN => 'fa_additions_pkg.insert_row'

327: TOKEN1 => 'ASSET_NUMBER',
328: VALUE1 => X_Asset_Number
329: ,p_log_level_rec => p_log_level_rec);
330: FA_SRVR_MSG.ADD_SQL_ERROR (
331: CALLING_FN => 'fa_additions_pkg.insert_row'
332: ,p_log_level_rec => p_log_level_rec);
333: raise;
334:
335: elsif instr (h_error_message, 'FA_ADDITIONS_B_U3') <> 0 then

Line 335: elsif instr (h_error_message, 'FA_ADDITIONS_B_U3') <> 0 then

331: CALLING_FN => 'fa_additions_pkg.insert_row'
332: ,p_log_level_rec => p_log_level_rec);
333: raise;
334:
335: elsif instr (h_error_message, 'FA_ADDITIONS_B_U3') <> 0 then
336: FA_SRVR_MSG.add_message(
337: CALLING_FN => 'fa_additions_pkg.insert_row',
338: NAME => 'FA_ADD_TAG_NUMBER_EXISTS',
339: TOKEN1 => 'TAG_NUMBER',

Line 337: CALLING_FN => 'fa_additions_pkg.insert_row',

333: raise;
334:
335: elsif instr (h_error_message, 'FA_ADDITIONS_B_U3') <> 0 then
336: FA_SRVR_MSG.add_message(
337: CALLING_FN => 'fa_additions_pkg.insert_row',
338: NAME => 'FA_ADD_TAG_NUMBER_EXISTS',
339: TOKEN1 => 'TAG_NUMBER',
340: VALUE1 => X_Tag_Number
341: ,p_log_level_rec => p_log_level_rec);

Line 343: CALLING_FN => 'fa_additions_pkg.insert_row'

339: TOKEN1 => 'TAG_NUMBER',
340: VALUE1 => X_Tag_Number
341: ,p_log_level_rec => p_log_level_rec);
342: FA_SRVR_MSG.ADD_SQL_ERROR (
343: CALLING_FN => 'fa_additions_pkg.insert_row'
344: ,p_log_level_rec => p_log_level_rec);
345: raise;
346:
347: else

Line 349: CALLING_FN => 'fa_additions_pkg.insert_row'

345: raise;
346:
347: else
348: FA_SRVR_MSG.ADD_SQL_ERROR (
349: CALLING_FN => 'fa_additions_pkg.insert_row'
350: ,p_log_level_rec => p_log_level_rec);
351: raise;
352:
353: end if;

Line 357: CALLING_FN => 'fa_additions_pkg.insert_row'

353: end if;
354:
355: when others then
356: FA_SRVR_MSG.ADD_SQL_ERROR (
357: CALLING_FN => 'fa_additions_pkg.insert_row'
358: ,p_log_level_rec => p_log_level_rec);
359: raise;
360:
361: END Insert_Row;

Line 424: FROM fa_additions_b

420: X_Calling_Fn VARCHAR2,
421: p_log_level_rec IN FA_API_TYPES.log_level_rec_type default null) IS
422: CURSOR C IS
423: SELECT *
424: FROM fa_additions_b
425: WHERE rowid = X_Rowid
426: FOR UPDATE of Asset_Id NOWAIT;
427: Recinfo C%ROWTYPE;
428:

Line 431: from fa_additions_tl

427: Recinfo C%ROWTYPE;
428:
429: cursor c1 is
430: select description,decode(language,userenv('LANG'),'Y','N') BASELANG
431: from fa_additions_tl
432: where asset_id = x_asset_id
433: and userenv('LANG') in (LANGUAGE,SOURCE_LANG)
434: for update of asset_id nowait;
435:

Line 701: from fa_additions_b

697: BEGIN
698: if (X_Rowid is NULL) then
699: select rowid
700: into l_rowid
701: from fa_additions_b
702: where asset_id = X_Asset_Id;
703: else
704: l_rowid := X_Rowid;
705: end if;

Line 713: UPDATE fa_additions_b

709: else
710: l_temp_attribute15 := X_attribute15;
711: end if;
712:
713: UPDATE fa_additions_b
714: SET
715: asset_id = decode(X_Asset_Id,
716: NULL, asset_id,
717: FND_API.G_MISS_NUM, NULL,

Line 1037: from fa_additions

1033:
1034: if (X_asset_id is NULL) then
1035: select asset_id
1036: into l_asset_id
1037: from fa_additions
1038: where rowid = X_rowid;
1039: else
1040: l_asset_id := X_asset_id;
1041: end if;

Line 1043: update FA_ADDITIONS_TL set

1039: else
1040: l_asset_id := X_asset_id;
1041: end if;
1042:
1043: update FA_ADDITIONS_TL set
1044: DESCRIPTION = decode(X_DESCRIPTION,
1045: NULL, description,
1046: FND_API.G_MISS_CHAR, NULL,
1047: X_description),

Line 1072: CALLING_FN => 'FA_ADDITIONS_PKG.Update_Row'

1068:
1069: exception
1070: when others then
1071: FA_SRVR_MSG.Add_SQL_Error(
1072: CALLING_FN => 'FA_ADDITIONS_PKG.Update_Row'
1073: ,p_log_level_rec => p_log_level_rec);
1074: X_Return_Status := FALSE;
1075: raise;
1076: END Update_Row;

Line 1083: -- CURSOR C IS SELECT asset_id FROM fa_additions_B

1079: X_Asset_Id number,
1080: X_calling_Fn VARCHAR2,
1081: p_log_level_rec IN FA_API_TYPES.log_level_rec_type default null) IS
1082:
1083: -- CURSOR C IS SELECT asset_id FROM fa_additions_B
1084: -- WHERE rowid = X_Rowid;
1085: h_asset_id number(15);
1086: BEGIN
1087:

Line 1092: delete from FA_ADDITIONS_TL

1088: -- OPEN C;
1089: -- FETCH C INTO h_asset_id;
1090: -- CLOSE C;
1091:
1092: delete from FA_ADDITIONS_TL
1093: where ASSET_ID = X_asset_id;
1094:
1095: if (sql%notfound) then
1096: raise no_data_found;

Line 1099: DELETE FROM fa_additions_b

1095: if (sql%notfound) then
1096: raise no_data_found;
1097: end if;
1098:
1099: DELETE FROM fa_additions_b
1100: WHERE asset_id = X_asset_id;
1101:
1102: if (SQL%NOTFOUND) then
1103: Raise NO_DATA_FOUND;

Line 1109: CALLING_FN => 'fa_additions_pkg.delete_row'

1105:
1106: exception
1107: when others then
1108: FA_SRVR_MSG.ADD_SQL_ERROR (
1109: CALLING_FN => 'fa_additions_pkg.delete_row'
1110: ,p_log_level_rec => p_log_level_rec);
1111: raise;
1112:
1113: END Delete_Row;

Line 1121: UPDATE fa_additions_b

1117: PROCEDURE Update_Units(X_Asset_Id NUMBER,
1118: X_Calling_Fn VARCHAR2,
1119: p_log_level_rec IN FA_API_TYPES.log_level_rec_type default null) IS
1120: BEGIN
1121: UPDATE fa_additions_b
1122: SET current_units = (select units from fa_asset_history
1123: where asset_id = X_Asset_Id
1124: and date_ineffective is null)
1125: WHERE asset_id = X_Asset_Id;

Line 1133: CALLING_FN => 'fa_additions_pkg.update_units'

1129:
1130: exception
1131: when others then
1132: FA_SRVR_MSG.ADD_SQL_ERROR (
1133: CALLING_FN => 'fa_additions_pkg.update_units'
1134: ,p_log_level_rec => p_log_level_rec);
1135: raise;
1136:
1137: END Update_Units;

Line 1149: delete from FA_ADDITIONS_TL T

1145:
1146: BEGIN
1147:
1148: -- delete from tl table if same asset doesn't exist in base table
1149: delete from FA_ADDITIONS_TL T
1150: where not exists
1151: (select NULL
1152: from FA_ADDITIONS_B B
1153: where B.ASSET_ID = T.ASSET_ID

Line 1152: from FA_ADDITIONS_B B

1148: -- delete from tl table if same asset doesn't exist in base table
1149: delete from FA_ADDITIONS_TL T
1150: where not exists
1151: (select NULL
1152: from FA_ADDITIONS_B B
1153: where B.ASSET_ID = T.ASSET_ID
1154: );
1155:
1156: -- repair description in tl table

Line 1157: update FA_ADDITIONS_TL T

1153: where B.ASSET_ID = T.ASSET_ID
1154: );
1155:
1156: -- repair description in tl table
1157: update FA_ADDITIONS_TL T
1158: set (DESCRIPTION) =
1159: (select B.DESCRIPTION
1160: from FA_ADDITIONS_TL B
1161: where B.ASSET_ID = T.ASSET_ID

Line 1160: from FA_ADDITIONS_TL B

1156: -- repair description in tl table
1157: update FA_ADDITIONS_TL T
1158: set (DESCRIPTION) =
1159: (select B.DESCRIPTION
1160: from FA_ADDITIONS_TL B
1161: where B.ASSET_ID = T.ASSET_ID
1162: and B.LANGUAGE = T.SOURCE_LANG)
1163: where (T.ASSET_ID, T.LANGUAGE) in
1164: (select SUBT.ASSET_ID,

Line 1166: from FA_ADDITIONS_TL SUBB, FA_ADDITIONS_TL SUBT

1162: and B.LANGUAGE = T.SOURCE_LANG)
1163: where (T.ASSET_ID, T.LANGUAGE) in
1164: (select SUBT.ASSET_ID,
1165: SUBT.LANGUAGE
1166: from FA_ADDITIONS_TL SUBB, FA_ADDITIONS_TL SUBT
1167: where SUBB.ASSET_ID = SUBT.ASSET_ID
1168: and SUBB.LANGUAGE = SUBT.SOURCE_LANG
1169: and (SUBB.DESCRIPTION <> SUBT.DESCRIPTION));
1170:

Line 1171: -- insert new row into fa_additions_tl for new language

1167: where SUBB.ASSET_ID = SUBT.ASSET_ID
1168: and SUBB.LANGUAGE = SUBT.SOURCE_LANG
1169: and (SUBB.DESCRIPTION <> SUBT.DESCRIPTION));
1170:
1171: -- insert new row into fa_additions_tl for new language
1172:
1173: insert into FA_ADDITIONS_TL (
1174: LAST_UPDATED_BY,
1175: CREATED_BY,

Line 1173: insert into FA_ADDITIONS_TL (

1169: and (SUBB.DESCRIPTION <> SUBT.DESCRIPTION));
1170:
1171: -- insert new row into fa_additions_tl for new language
1172:
1173: insert into FA_ADDITIONS_TL (
1174: LAST_UPDATED_BY,
1175: CREATED_BY,
1176: CREATION_DATE,
1177: LAST_UPDATE_LOGIN,

Line 1193: from FA_ADDITIONS_TL B, FND_LANGUAGES L

1189: B.DESCRIPTION,
1190: B.LAST_UPDATE_DATE,
1191: L.LANGUAGE_CODE,
1192: B.SOURCE_LANG
1193: from FA_ADDITIONS_TL B, FND_LANGUAGES L
1194: where L.INSTALLED_FLAG in ('I', 'B')
1195: and B.LANGUAGE = userenv('LANG')
1196: and not exists
1197: (select NULL

Line 1198: from FA_ADDITIONS_TL T

1194: where L.INSTALLED_FLAG in ('I', 'B')
1195: and B.LANGUAGE = userenv('LANG')
1196: and not exists
1197: (select NULL
1198: from FA_ADDITIONS_TL T
1199: where T.ASSET_ID = B.ASSET_ID
1200: and T.LANGUAGE = L.LANGUAGE_CODE);
1201: end ADD_LANGUAGE;
1202:

Line 1306: from fa_additions_b

1302: user_id := fnd_load_util.owner_id (X_Owner);
1303:
1304: select count(*)
1305: into h_record_exists
1306: from fa_additions_b
1307: where asset_id = X_Asset_Id;
1308:
1309: if (h_record_exists > 0) then
1310:

Line 1313: from fa_additions_b

1309: if (h_record_exists > 0) then
1310:
1311: select last_updated_by, last_update_date
1312: into db_last_updated_by, db_last_update_date
1313: from fa_additions_b
1314: where asset_id = X_Asset_Id;
1315:
1316: if (fnd_load_util.upload_test(user_id, x_last_update_date,
1317: db_last_updated_by, db_last_update_date,

Line 1321: fa_additions_pkg.Update_Row(

1317: db_last_updated_by, db_last_update_date,
1318: X_CUSTOM_MODE
1319: )) then
1320:
1321: fa_additions_pkg.Update_Row(
1322: X_Asset_Id => h_asset_id,
1323: X_Asset_Number => h_asset_number,
1324: X_Asset_Key_Ccid => X_Asset_Key_Ccid,
1325: X_Current_Units => X_Current_Units,

Line 1403: X_Calling_Fn => 'fa_additions_pkg.load_row',

1399: X_Last_Update_Date => sysdate,
1400: X_Last_Updated_By => user_id,
1401: X_Last_Update_Login => 0,
1402: X_Return_Status => return_status,
1403: X_Calling_Fn => 'fa_additions_pkg.load_row',
1404: p_log_level_rec => p_log_level_rec);
1405: end if;
1406:
1407: else

Line 1408: fa_additions_pkg.Insert_Row(

1404: p_log_level_rec => p_log_level_rec);
1405: end if;
1406:
1407: else
1408: fa_additions_pkg.Insert_Row(
1409: X_Rowid => row_id,
1410: X_Asset_Id => h_asset_id,
1411: X_Asset_Number => h_asset_number,
1412: X_Asset_Key_Ccid => X_Asset_Key_Ccid,

Line 1492: X_Calling_Fn => 'fa_additions_pkg.load_row'

1488: X_Last_Updated_By => user_id,
1489: X_Created_By => user_id,
1490: X_Creation_Date => sysdate,
1491: X_Last_Update_Login => 0,
1492: X_Calling_Fn => 'fa_additions_pkg.load_row'
1493: ,p_log_level_rec => p_log_level_rec);
1494: end if;
1495:
1496: EXCEPTION

Line 1499: CALLING_FN => 'fa_additions_pkg.load_row'

1495:
1496: EXCEPTION
1497: when others then
1498: FA_SRVR_MSG.ADD_SQL_ERROR (
1499: CALLING_FN => 'fa_additions_pkg.load_row'
1500: ,p_log_level_rec => p_log_level_rec);
1501: raise;
1502:
1503: end LOAD_ROW;

Line 1522: from fa_additions_tl

1518: BEGIN
1519:
1520: select last_updated_by, last_update_date
1521: into db_last_updated_by, db_last_update_date
1522: from fa_additions_tl
1523: where userenv('LANG') in (LANGUAGE, SOURCE_LANG)
1524: and asset_id = X_Asset_ID;
1525:
1526: user_id := fnd_load_util.owner_id (X_Owner);

Line 1532: update FA_ADDITIONS_TL set

1528: if (fnd_load_util.upload_test(user_id, x_last_update_date,
1529: db_last_updated_by, db_last_update_date,
1530: X_CUSTOM_MODE )) then
1531:
1532: update FA_ADDITIONS_TL set
1533: DESCRIPTION = nvl(X_Description, DESCRIPTION),
1534: LAST_UPDATE_DATE = sysdate,
1535: LAST_UPDATED_BY = 0,
1536: LAST_UPDATE_LOGIN = 0,

Line 1548: CALLING_FN => 'fa_additions_pkg.translate_row'

1544: when no_data_found then null;
1545:
1546: when others then
1547: FA_SRVR_MSG.ADD_SQL_ERROR (
1548: CALLING_FN => 'fa_additions_pkg.translate_row'
1549: ,p_log_level_rec => p_log_level_rec);
1550: raise;
1551:
1552: END TRANSLATE_ROW;

Line 1640: fa_additions_pkg.TRANSLATE_ROW (

1636:
1637: BEGIN
1638:
1639: if (x_upload_mode = 'NLS') then
1640: fa_additions_pkg.TRANSLATE_ROW (
1641: x_custom_mode => x_custom_mode,
1642: x_asset_id => x_asset_id,
1643: x_owner => x_owner,
1644: x_last_update_date => x_last_update_date,

Line 1648: fa_additions_pkg.LOAD_ROW (

1644: x_last_update_date => x_last_update_date,
1645: x_description => x_description
1646: ,p_log_level_rec => p_log_level_rec);
1647: else
1648: fa_additions_pkg.LOAD_ROW (
1649: x_custom_mode => x_custom_mode,
1650: x_asset_id => x_asset_id,
1651: x_owner => x_owner,
1652: x_last_update_date => x_last_update_date,

Line 1733: END FA_ADDITIONS_PKG;

1729: end if;
1730:
1731: END LOAD_SEED_ROW;
1732:
1733: END FA_ADDITIONS_PKG;