3:
4: PROCEDURE do_addition (
5: -- Standard Parameters --
6: p_api_version IN NUMBER,
7: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
8: p_commit IN VARCHAR2 := FND_API.G_FALSE,
9: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
10: x_return_status OUT NOCOPY VARCHAR2,
11: x_msg_count OUT NOCOPY NUMBER,
4: PROCEDURE do_addition (
5: -- Standard Parameters --
6: p_api_version IN NUMBER,
7: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
8: p_commit IN VARCHAR2 := FND_API.G_FALSE,
9: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
10: x_return_status OUT NOCOPY VARCHAR2,
11: x_msg_count OUT NOCOPY NUMBER,
12: x_msg_data OUT NOCOPY VARCHAR2,
5: -- Standard Parameters --
6: p_api_version IN NUMBER,
7: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
8: p_commit IN VARCHAR2 := FND_API.G_FALSE,
9: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
10: x_return_status OUT NOCOPY VARCHAR2,
11: x_msg_count OUT NOCOPY NUMBER,
12: x_msg_data OUT NOCOPY VARCHAR2,
13: p_calling_fn IN VARCHAR2,
271: /* Etoru */
272:
273: BEGIN
274: -- Initialize message list if p_init_msg_list is set to TRUE.
275: IF FND_API.To_Boolean(p_init_msg_list) THEN
276: -- Initialize error message stack.
277: FA_SRVR_MSG.Init_Server_Message;
278:
279: -- Initialize debug message stack.
691: -- Check bonus rule. Can only be nulled out in Detail Add.
692: if ((p_bonus_rule is NULL) and
693: (p_calling_fn = 'fa_addition_eng.post_forms_commit')) then
694:
695: l_asset_fin_rec.bonus_rule := FND_API.G_MISS_CHAR;
696: end if;
697:
698: -- Check ceiling name. Can only be nulled out in Detail Add.
699: if ((p_ceiling_name is NULL) and
698: -- Check ceiling name. Can only be nulled out in Detail Add.
699: if ((p_ceiling_name is NULL) and
700: (p_calling_fn = 'fa_addition_eng.post_forms_commit')) then
701:
702: l_asset_fin_rec.ceiling_name := FND_API.G_MISS_CHAR;
703: end if;
704:
705: -- Check group_asset_id. Can be nulled out in Detail or Quick Add.
706: if (p_group_asset_id is NULL) then
703: end if;
704:
705: -- Check group_asset_id. Can be nulled out in Detail or Quick Add.
706: if (p_group_asset_id is NULL) then
707: l_asset_fin_rec.group_asset_id := FND_API.G_MISS_NUM;
708: end if;
709: end if;
710:
711: -- Call the Public Additions API
730: px_asset_dist_tbl => l_asset_dist_tbl,
731: px_inv_tbl => l_inv_tbl
732: );
733:
734: if (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
735: return;
736: end if;
737:
738: -- Set the output variables to return back to the calling program.
743:
744: EXCEPTION
745: when others then
746: fa_srvr_msg.add_sql_error(calling_fn => 'fa_trans_api_pub.do_addition');
747: x_return_status := FND_API.G_RET_STS_ERROR;
748:
749: END do_addition;
750:
751: PROCEDURE do_adjustment (
750:
751: PROCEDURE do_adjustment (
752: -- Standard Parameters --
753: p_api_version IN NUMBER,
754: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
755: p_commit IN VARCHAR2 := FND_API.G_FALSE,
756: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
757: x_return_status OUT NOCOPY VARCHAR2,
758: x_msg_count OUT NOCOPY NUMBER,
751: PROCEDURE do_adjustment (
752: -- Standard Parameters --
753: p_api_version IN NUMBER,
754: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
755: p_commit IN VARCHAR2 := FND_API.G_FALSE,
756: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
757: x_return_status OUT NOCOPY VARCHAR2,
758: x_msg_count OUT NOCOPY NUMBER,
759: x_msg_data OUT NOCOPY VARCHAR2,
752: -- Standard Parameters --
753: p_api_version IN NUMBER,
754: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
755: p_commit IN VARCHAR2 := FND_API.G_FALSE,
756: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
757: x_return_status OUT NOCOPY VARCHAR2,
758: x_msg_count OUT NOCOPY NUMBER,
759: x_msg_data OUT NOCOPY VARCHAR2,
760: p_calling_fn IN VARCHAR2,
913: l_group_reclass_options_rec fa_api_types.group_reclass_options_rec_type;
914:
915: BEGIN
916: -- Initialize message list if p_init_msg_list is set to TRUE.
917: IF FND_API.To_Boolean(p_init_msg_list) THEN
918: -- Initialize error message stack.
919: FA_SRVR_MSG.Init_Server_Message;
920:
921: -- Initialize debug message stack.
1074: p_allowed_deprn_limit_amount -
1075: nvl(l_asset_fin_rec_old.allowed_deprn_limit_amount, 0);
1076: end if; -- (l_asset_fin_rec_old.salvage_type <>
1077:
1078: l_asset_fin_rec_adj.super_group_id := nvl(p_super_group_id, FND_API.G_MISS_NUM);
1079: l_asset_fin_rec_adj.reduction_rate := nvl(p_reduction_rate, 0) -
1080: nvl(l_asset_fin_rec_old.reduction_rate, 0);
1081:
1082: l_asset_fin_rec_adj.reduce_addition_flag := p_reduce_addition_flag;
1089: l_asset_fin_rec_adj.terminal_gain_loss := p_terminal_gain_loss;
1090: l_asset_fin_rec_adj.exclude_proceeds_from_basis := p_exclude_proceeds_from_basis;
1091:
1092: if (p_retirement_deprn_option is null) then
1093: l_asset_fin_rec_adj.retirement_deprn_option := FND_API.G_MISS_CHAR;
1094: else
1095: l_asset_fin_rec_adj.retirement_deprn_option := p_retirement_deprn_option;
1096: end if;
1097:
1099: l_asset_fin_rec_adj.deprn_limit_type := p_deprn_limit_type;
1100: l_asset_fin_rec_adj.tracking_method := p_tracking_method;
1101:
1102: if (p_tracking_method is null) then
1103: l_asset_fin_rec_adj.tracking_method := FND_API.G_MISS_CHAR;
1104: else
1105: l_asset_fin_rec_adj.tracking_method := p_tracking_method;
1106: end if;
1107:
1316: px_inv_tbl => l_inv_tbl,
1317: p_group_reclass_options_rec => l_group_reclass_options_rec
1318: );
1319:
1320: if (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
1321: return;
1322: end if;
1323:
1324: x_transaction_header_id := l_trans_rec.transaction_header_id;
1325:
1326: EXCEPTION
1327: when adj_err then
1328: fa_srvr_msg.add_message(calling_fn => 'fa_trans_api_pub.do_adjustment');
1329: x_return_status := FND_API.G_RET_STS_ERROR;
1330:
1331: when others then
1332: fa_srvr_msg.add_sql_error(calling_fn => 'fa_trans_api_pub.do_adjustment');
1333: x_return_status := FND_API.G_RET_STS_ERROR;
1329: x_return_status := FND_API.G_RET_STS_ERROR;
1330:
1331: when others then
1332: fa_srvr_msg.add_sql_error(calling_fn => 'fa_trans_api_pub.do_adjustment');
1333: x_return_status := FND_API.G_RET_STS_ERROR;
1334:
1335: END do_adjustment;
1336:
1337: PROCEDURE do_unit_adjustment (
1336:
1337: PROCEDURE do_unit_adjustment (
1338: -- Standard Parameters --
1339: p_api_version IN NUMBER,
1340: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
1341: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1342: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1343: x_return_status OUT NOCOPY VARCHAR2,
1344: x_msg_count OUT NOCOPY NUMBER,
1337: PROCEDURE do_unit_adjustment (
1338: -- Standard Parameters --
1339: p_api_version IN NUMBER,
1340: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
1341: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1342: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1343: x_return_status OUT NOCOPY VARCHAR2,
1344: x_msg_count OUT NOCOPY NUMBER,
1345: x_msg_data OUT NOCOPY VARCHAR2,
1338: -- Standard Parameters --
1339: p_api_version IN NUMBER,
1340: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
1341: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1342: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1343: x_return_status OUT NOCOPY VARCHAR2,
1344: x_msg_count OUT NOCOPY NUMBER,
1345: x_msg_data OUT NOCOPY VARCHAR2,
1346: p_calling_fn IN VARCHAR2,
1387:
1388: BEGIN
1389:
1390: -- Initialize message list if p_init_msg_list is set to TRUE.
1391: IF FND_API.To_Boolean(p_init_msg_list) THEN
1392: -- Initialize error message stack.
1393: FA_SRVR_MSG.Init_Server_Message;
1394:
1395: -- Initialize debug message stack.
1481: px_trans_rec => l_trans_rec,
1482: px_asset_hdr_rec => l_asset_hdr_rec,
1483: px_asset_dist_tbl => l_asset_dist_tbl);
1484:
1485: if (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
1486: return;
1487: end if;
1488:
1489: x_transaction_header_id := l_trans_rec.transaction_header_id;
1490:
1491: EXCEPTION
1492: when others then
1493: fa_srvr_msg.add_sql_error(calling_fn => 'fa_trans_api_pub.do_unit_adj');
1494: x_return_status := FND_API.G_RET_STS_ERROR;
1495:
1496: END do_unit_adjustment;
1497:
1498: PROCEDURE do_transfer (
1497:
1498: PROCEDURE do_transfer (
1499: -- Standard Parameters --
1500: p_api_version IN NUMBER,
1501: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
1502: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1503: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1504: x_return_status OUT NOCOPY VARCHAR2,
1505: x_msg_count OUT NOCOPY NUMBER,
1498: PROCEDURE do_transfer (
1499: -- Standard Parameters --
1500: p_api_version IN NUMBER,
1501: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
1502: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1503: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1504: x_return_status OUT NOCOPY VARCHAR2,
1505: x_msg_count OUT NOCOPY NUMBER,
1506: x_msg_data OUT NOCOPY VARCHAR2,
1499: -- Standard Parameters --
1500: p_api_version IN NUMBER,
1501: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
1502: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1503: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1504: x_return_status OUT NOCOPY VARCHAR2,
1505: x_msg_count OUT NOCOPY NUMBER,
1506: x_msg_data OUT NOCOPY VARCHAR2,
1507: p_calling_fn IN VARCHAR2,
1548:
1549: BEGIN
1550:
1551: -- Initialize message list if p_init_msg_list is set to TRUE.
1552: IF FND_API.To_Boolean(p_init_msg_list) THEN
1553: -- Initialize error message stack.
1554: FA_SRVR_MSG.Init_Server_Message;
1555:
1556: -- Initialize debug message stack.
1642: px_trans_rec => l_trans_rec,
1643: px_asset_hdr_rec => l_asset_hdr_rec,
1644: px_asset_dist_tbl => l_asset_dist_tbl);
1645:
1646: if (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
1647: return;
1648: end if;
1649:
1650: x_transaction_header_id := l_trans_rec.transaction_header_id;
1651:
1652: EXCEPTION
1653: when others then
1654: fa_srvr_msg.add_sql_error(calling_fn => 'fa_trans_api_pub.do_transfer');
1655: x_return_status := FND_API.G_RET_STS_ERROR;
1656:
1657: END do_transfer;
1658:
1659: PROCEDURE do_invoice_transfer (
1658:
1659: PROCEDURE do_invoice_transfer (
1660: -- Standard Parameters --
1661: p_api_version IN NUMBER,
1662: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
1663: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1664: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1665: x_return_status OUT NOCOPY VARCHAR2,
1666: x_msg_count OUT NOCOPY NUMBER,
1659: PROCEDURE do_invoice_transfer (
1660: -- Standard Parameters --
1661: p_api_version IN NUMBER,
1662: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
1663: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1664: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1665: x_return_status OUT NOCOPY VARCHAR2,
1666: x_msg_count OUT NOCOPY NUMBER,
1667: x_msg_data OUT NOCOPY VARCHAR2,
1660: -- Standard Parameters --
1661: p_api_version IN NUMBER,
1662: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
1663: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1664: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1665: x_return_status OUT NOCOPY VARCHAR2,
1666: x_msg_count OUT NOCOPY NUMBER,
1667: x_msg_data OUT NOCOPY VARCHAR2,
1668: p_calling_fn IN VARCHAR2,
1698:
1699: BEGIN
1700:
1701: -- Initialize message list if p_init_msg_list is set to TRUE.
1702: IF FND_API.To_Boolean(p_init_msg_list) THEN
1703: -- Initialize error message stack.
1704: FA_SRVR_MSG.Init_Server_Message;
1705:
1706: -- Initialize debug message stack.
1894: px_dest_asset_hdr_rec => l_dest_asset_hdr_rec,
1895: p_inv_tbl => l_inv_tbl
1896: );
1897:
1898: if (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
1899: return;
1900: end if;
1901:
1902: x_src_transaction_header_id := l_src_trans_rec.transaction_header_id;
1904:
1905: EXCEPTION
1906: when others then
1907: fa_srvr_msg.add_sql_error(calling_fn => 'fa_trans_api_pub.do_inv_xfr');
1908: x_return_status := FND_API.G_RET_STS_ERROR;
1909:
1910: END do_invoice_transfer;
1911:
1912: PROCEDURE do_reclass (
1911:
1912: PROCEDURE do_reclass (
1913: -- Standard Parameters --
1914: p_api_version IN NUMBER,
1915: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
1916: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1917: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1918: x_return_status OUT NOCOPY VARCHAR2,
1919: x_msg_count OUT NOCOPY NUMBER,
1912: PROCEDURE do_reclass (
1913: -- Standard Parameters --
1914: p_api_version IN NUMBER,
1915: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
1916: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1917: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1918: x_return_status OUT NOCOPY VARCHAR2,
1919: x_msg_count OUT NOCOPY NUMBER,
1920: x_msg_data OUT NOCOPY VARCHAR2,
1913: -- Standard Parameters --
1914: p_api_version IN NUMBER,
1915: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
1916: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1917: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1918: x_return_status OUT NOCOPY VARCHAR2,
1919: x_msg_count OUT NOCOPY NUMBER,
1920: x_msg_data OUT NOCOPY VARCHAR2,
1921: p_calling_fn IN VARCHAR2,
1999:
2000: BEGIN
2001:
2002: -- Initialize message list if p_init_msg_list is set to TRUE.
2003: IF FND_API.To_Boolean(p_init_msg_list) THEN
2004: -- Initialize error message stack.
2005: FA_SRVR_MSG.Init_Server_Message;
2006:
2007: -- Initialize debug message stack.
2116: px_asset_hdr_rec => l_asset_hdr_rec,
2117: px_asset_cat_rec_new => l_asset_cat_rec_new,
2118: p_recl_opt_rec => l_reclass_options_rec);
2119:
2120: if (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
2121: return;
2122: end if;
2123:
2124: x_transaction_header_id := l_trans_rec.transaction_header_id;
2125:
2126: EXCEPTION
2127: when others then
2128: fa_srvr_msg.add_sql_error(calling_fn => 'fa_trans_api_pub.do_reclass');
2129: x_return_status := FND_API.G_RET_STS_ERROR;
2130:
2131: END do_reclass;
2132:
2133: PROCEDURE do_retirement (
2132:
2133: PROCEDURE do_retirement (
2134: -- Standard Parameters --
2135: p_api_version IN NUMBER,
2136: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
2137: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2138: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2139: x_return_status OUT NOCOPY VARCHAR2,
2140: x_msg_count OUT NOCOPY NUMBER,
2133: PROCEDURE do_retirement (
2134: -- Standard Parameters --
2135: p_api_version IN NUMBER,
2136: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
2137: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2138: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2139: x_return_status OUT NOCOPY VARCHAR2,
2140: x_msg_count OUT NOCOPY NUMBER,
2141: x_msg_data OUT NOCOPY VARCHAR2,
2134: -- Standard Parameters --
2135: p_api_version IN NUMBER,
2136: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
2137: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2138: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2139: x_return_status OUT NOCOPY VARCHAR2,
2140: x_msg_count OUT NOCOPY NUMBER,
2141: x_msg_data OUT NOCOPY VARCHAR2,
2142: p_calling_fn IN VARCHAR2,
2194: p_asset_id IN NUMBER,
2195: p_book_type_code IN VARCHAR2,
2196: p_set_of_books_id IN NUMBER DEFAULT NULL,
2197: -- Asset Retirement Info --
2198: p_calculate_gain_loss IN VARCHAR2 DEFAULT FND_API.G_FALSE,
2199: p_units_retired IN NUMBER DEFAULT NULL,
2200: p_cost_retired IN NUMBER DEFAULT NULL,
2201: p_proceeds_of_sale IN NUMBER DEFAULT NULL,
2202: p_cost_of_removal IN NUMBER DEFAULT NULL,
2246:
2247: BEGIN
2248:
2249: -- Initialize message list if p_init_msg_list is set to TRUE.
2250: IF FND_API.To_Boolean(p_init_msg_list) THEN
2251: -- Initialize error message stack.
2252: FA_SRVR_MSG.Init_Server_Message;
2253:
2254: -- Initialize debug message stack.
2497: p_asset_dist_tbl => l_asset_dist_tbl,
2498: p_subcomp_tbl => l_subcomp_tbl,
2499: p_inv_tbl => l_inv_tbl);
2500:
2501: if (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
2502: return;
2503: end if;
2504:
2505: x_retirement_id := l_asset_retire_rec.retirement_id;
2508:
2509: EXCEPTION
2510: when others then
2511: fa_srvr_msg.add_sql_error(calling_fn => 'fa_trans_api_pub.do_retirement');
2512: x_return_status := FND_API.G_RET_STS_ERROR;
2513:
2514: END do_retirement;
2515:
2516: PROCEDURE undo_retirement (
2515:
2516: PROCEDURE undo_retirement (
2517: -- Standard Parameters --
2518: p_api_version IN NUMBER,
2519: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
2520: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2521: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2522: x_return_status OUT NOCOPY VARCHAR2,
2523: x_msg_count OUT NOCOPY NUMBER,
2516: PROCEDURE undo_retirement (
2517: -- Standard Parameters --
2518: p_api_version IN NUMBER,
2519: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
2520: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2521: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2522: x_return_status OUT NOCOPY VARCHAR2,
2523: x_msg_count OUT NOCOPY NUMBER,
2524: x_msg_data OUT NOCOPY VARCHAR2,
2517: -- Standard Parameters --
2518: p_api_version IN NUMBER,
2519: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
2520: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2521: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2522: x_return_status OUT NOCOPY VARCHAR2,
2523: x_msg_count OUT NOCOPY NUMBER,
2524: x_msg_data OUT NOCOPY VARCHAR2,
2525: p_calling_fn IN VARCHAR2,
2544:
2545: BEGIN
2546:
2547: -- Initialize message list if p_init_msg_list is set to TRUE.
2548: IF FND_API.To_Boolean(p_init_msg_list) THEN
2549: -- Initialize error message stack.
2550: FA_SRVR_MSG.Init_Server_Message;
2551:
2552: -- Initialize debug message stack.
2650: px_asset_hdr_rec => l_asset_hdr_rec,
2651: px_asset_retire_rec => l_asset_retire_rec
2652: );
2653:
2654: if (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
2655: return;
2656: end if;
2657:
2658: EXCEPTION
2657:
2658: EXCEPTION
2659: when others then
2660: fa_srvr_msg.add_sql_error(calling_fn => 'fa_trans_api_pub.undo_ret');
2661: x_return_status := FND_API.G_RET_STS_ERROR;
2662:
2663: END undo_retirement;
2664:
2665: PROCEDURE do_reinstatement (
2664:
2665: PROCEDURE do_reinstatement (
2666: -- Standard Parameters --
2667: p_api_version IN NUMBER,
2668: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
2669: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2670: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2671: x_return_status OUT NOCOPY VARCHAR2,
2672: x_msg_count OUT NOCOPY NUMBER,
2665: PROCEDURE do_reinstatement (
2666: -- Standard Parameters --
2667: p_api_version IN NUMBER,
2668: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
2669: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2670: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2671: x_return_status OUT NOCOPY VARCHAR2,
2672: x_msg_count OUT NOCOPY NUMBER,
2673: x_msg_data OUT NOCOPY VARCHAR2,
2666: -- Standard Parameters --
2667: p_api_version IN NUMBER,
2668: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
2669: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2670: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2671: x_return_status OUT NOCOPY VARCHAR2,
2672: x_msg_count OUT NOCOPY NUMBER,
2673: x_msg_data OUT NOCOPY VARCHAR2,
2674: p_calling_fn IN VARCHAR2,
2706: p_asset_id IN NUMBER,
2707: p_book_type_code IN VARCHAR2,
2708: p_set_of_books_id IN NUMBER DEFAULT NULL,
2709: -- Asset Retirement Info --
2710: p_calculate_gain_loss IN VARCHAR2 DEFAULT FND_API.G_FALSE,
2711: p_retirement_id IN NUMBER DEFAULT NULL,
2712: p_proceeds_of_sale IN NUMBER DEFAULT NULL,
2713: p_cost_of_removal IN NUMBER DEFAULT NULL,
2714: p_retirement_type_code IN VARCHAR2 DEFAULT NULL,
2747:
2748: BEGIN
2749:
2750: -- Initialize message list if p_init_msg_list is set to TRUE.
2751: IF FND_API.To_Boolean(p_init_msg_list) THEN
2752: -- Initialize error message stack.
2753: FA_SRVR_MSG.Init_Server_Message;
2754:
2755: -- Initialize debug message stack.
2958: p_asset_dist_tbl => l_asset_dist_tbl,
2959: p_subcomp_tbl => l_subcomp_tbl,
2960: p_inv_tbl => l_inv_tbl);
2961:
2962: if (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
2963: return;
2964: end if;
2965:
2966: x_transaction_header_id := l_trans_rec.transaction_header_id;
2967:
2968: EXCEPTION
2969: when others then
2970: fa_srvr_msg.add_sql_error(calling_fn => 'fa_trans_api_pub.do_reinst');
2971: x_return_status := FND_API.G_RET_STS_ERROR;
2972:
2973: END do_reinstatement;
2974:
2975: PROCEDURE undo_reinstatement (
2974:
2975: PROCEDURE undo_reinstatement (
2976: -- Standard Parameters --
2977: p_api_version IN NUMBER,
2978: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
2979: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2980: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2981: x_return_status OUT NOCOPY VARCHAR2,
2982: x_msg_count OUT NOCOPY NUMBER,
2975: PROCEDURE undo_reinstatement (
2976: -- Standard Parameters --
2977: p_api_version IN NUMBER,
2978: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
2979: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2980: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2981: x_return_status OUT NOCOPY VARCHAR2,
2982: x_msg_count OUT NOCOPY NUMBER,
2983: x_msg_data OUT NOCOPY VARCHAR2,
2976: -- Standard Parameters --
2977: p_api_version IN NUMBER,
2978: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
2979: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2980: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2981: x_return_status OUT NOCOPY VARCHAR2,
2982: x_msg_count OUT NOCOPY NUMBER,
2983: x_msg_data OUT NOCOPY VARCHAR2,
2984: p_calling_fn IN VARCHAR2,
3003:
3004: BEGIN
3005:
3006: -- Initialize message list if p_init_msg_list is set to TRUE.
3007: IF FND_API.To_Boolean(p_init_msg_list) THEN
3008: -- Initialize error message stack.
3009: FA_SRVR_MSG.Init_Server_Message;
3010:
3011: -- Initialize debug message stack.
3110: px_asset_hdr_rec => l_asset_hdr_rec,
3111: px_asset_retire_rec => l_asset_retire_rec
3112: );
3113:
3114: if (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
3115: return;
3116: end if;
3117:
3118: EXCEPTION
3117:
3118: EXCEPTION
3119: when others then
3120: fa_srvr_msg.add_sql_error(calling_fn => 'fa_trans_api_pub.undo_reinst');
3121: x_return_status := FND_API.G_RET_STS_ERROR;
3122:
3123: END undo_reinstatement;
3124:
3125: PROCEDURE do_capitalization (
3124:
3125: PROCEDURE do_capitalization (
3126: -- Standard Parameters --
3127: p_api_version IN NUMBER,
3128: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
3129: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3130: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3131: x_return_status OUT NOCOPY VARCHAR2,
3132: x_msg_count OUT NOCOPY NUMBER,
3125: PROCEDURE do_capitalization (
3126: -- Standard Parameters --
3127: p_api_version IN NUMBER,
3128: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
3129: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3130: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3131: x_return_status OUT NOCOPY VARCHAR2,
3132: x_msg_count OUT NOCOPY NUMBER,
3133: x_msg_data OUT NOCOPY VARCHAR2,
3126: -- Standard Parameters --
3127: p_api_version IN NUMBER,
3128: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
3129: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3130: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3131: x_return_status OUT NOCOPY VARCHAR2,
3132: x_msg_count OUT NOCOPY NUMBER,
3133: x_msg_data OUT NOCOPY VARCHAR2,
3134: p_calling_fn IN VARCHAR2,
3176:
3177: BEGIN
3178:
3179: -- Initialize message list if p_init_msg_list is set to TRUE.
3180: IF FND_API.To_Boolean(p_init_msg_list) THEN
3181: -- Initialize error message stack.
3182: FA_SRVR_MSG.Init_Server_Message;
3183:
3184: -- Initialize debug message stack.
3255: px_trans_rec => l_trans_rec,
3256: px_asset_hdr_rec => l_asset_hdr_rec,
3257: px_asset_fin_rec => l_asset_fin_rec);
3258:
3259: if (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
3260: return;
3261: end if;
3262:
3263: x_transaction_header_id := l_trans_rec.transaction_header_id;
3264:
3265: EXCEPTION
3266: when others then
3267: fa_srvr_msg.add_sql_error(calling_fn => 'fa_trans_api_pub.do_cap');
3268: x_return_status := FND_API.G_RET_STS_ERROR;
3269: END do_capitalization;
3270:
3271: PROCEDURE do_reverse (
3272: -- Standard Parameters --
3270:
3271: PROCEDURE do_reverse (
3272: -- Standard Parameters --
3273: p_api_version IN NUMBER,
3274: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
3275: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3276: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3277: x_return_status OUT NOCOPY VARCHAR2,
3278: x_msg_count OUT NOCOPY NUMBER,
3271: PROCEDURE do_reverse (
3272: -- Standard Parameters --
3273: p_api_version IN NUMBER,
3274: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
3275: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3276: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3277: x_return_status OUT NOCOPY VARCHAR2,
3278: x_msg_count OUT NOCOPY NUMBER,
3279: x_msg_data OUT NOCOPY VARCHAR2,
3272: -- Standard Parameters --
3273: p_api_version IN NUMBER,
3274: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
3275: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3276: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3277: x_return_status OUT NOCOPY VARCHAR2,
3278: x_msg_count OUT NOCOPY NUMBER,
3279: x_msg_data OUT NOCOPY VARCHAR2,
3280: p_calling_fn IN VARCHAR2,
3322:
3323: BEGIN
3324:
3325: -- Initialize message list if p_init_msg_list is set to TRUE.
3326: IF FND_API.To_Boolean(p_init_msg_list) THEN
3327: -- Initialize error message stack.
3328: FA_SRVR_MSG.Init_Server_Message;
3329:
3330: -- Initialize debug message stack.
3401: px_trans_rec => l_trans_rec,
3402: px_asset_hdr_rec => l_asset_hdr_rec,
3403: px_asset_fin_rec => l_asset_fin_rec);
3404:
3405: if (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
3406: return;
3407: end if;
3408:
3409: x_transaction_header_id := l_trans_rec.transaction_header_id;
3410:
3411: EXCEPTION
3412: when others then
3413: fa_srvr_msg.add_sql_error(calling_fn => 'fa_trans_api_pub.do_rev');
3414: x_return_status := FND_API.G_RET_STS_ERROR;
3415: END do_reverse;
3416:
3417: PROCEDURE do_asset_desc_update (
3418: -- Standard Parameters --
3416:
3417: PROCEDURE do_asset_desc_update (
3418: -- Standard Parameters --
3419: p_api_version IN NUMBER,
3420: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
3421: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3422: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3423: x_return_status OUT NOCOPY VARCHAR2,
3424: x_msg_count OUT NOCOPY NUMBER,
3417: PROCEDURE do_asset_desc_update (
3418: -- Standard Parameters --
3419: p_api_version IN NUMBER,
3420: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
3421: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3422: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3423: x_return_status OUT NOCOPY VARCHAR2,
3424: x_msg_count OUT NOCOPY NUMBER,
3425: x_msg_data OUT NOCOPY VARCHAR2,
3418: -- Standard Parameters --
3419: p_api_version IN NUMBER,
3420: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
3421: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3422: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3423: x_return_status OUT NOCOPY VARCHAR2,
3424: x_msg_count OUT NOCOPY NUMBER,
3425: x_msg_data OUT NOCOPY VARCHAR2,
3426: p_calling_fn IN VARCHAR2,
3537:
3538: BEGIN
3539:
3540: -- Initialize message list if p_init_msg_list is set to TRUE.
3541: IF FND_API.To_Boolean(p_init_msg_list) THEN
3542: -- Initialize error message stack.
3543: FA_SRVR_MSG.Init_Server_Message;
3544:
3545: -- Initialize debug message stack.
3738: px_asset_hdr_rec => l_asset_hdr_rec,
3739: px_asset_desc_rec_new => l_asset_desc_rec,
3740: px_asset_cat_rec_new => l_asset_cat_rec);
3741:
3742: if (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
3743: return;
3744: end if;
3745:
3746: EXCEPTION
3745:
3746: EXCEPTION
3747: when desc_err then
3748: fa_srvr_msg.add_message(calling_fn => 'fa_trans_api_pub.do_desc_update');
3749: x_return_status := FND_API.G_RET_STS_ERROR;
3750: when others then
3751: fa_srvr_msg.add_sql_error(calling_fn => 'fa_trans_api_pub.do_desc_update');
3752: x_return_status := FND_API.G_RET_STS_ERROR;
3753: END do_asset_desc_update;
3748: fa_srvr_msg.add_message(calling_fn => 'fa_trans_api_pub.do_desc_update');
3749: x_return_status := FND_API.G_RET_STS_ERROR;
3750: when others then
3751: fa_srvr_msg.add_sql_error(calling_fn => 'fa_trans_api_pub.do_desc_update');
3752: x_return_status := FND_API.G_RET_STS_ERROR;
3753: END do_asset_desc_update;
3754:
3755: PROCEDURE do_invoice_desc_update (
3756: -- Standard Parameters --
3754:
3755: PROCEDURE do_invoice_desc_update (
3756: -- Standard Parameters --
3757: p_api_version IN NUMBER,
3758: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
3759: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3760: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3761: x_return_status OUT NOCOPY VARCHAR2,
3762: x_msg_count OUT NOCOPY NUMBER,
3755: PROCEDURE do_invoice_desc_update (
3756: -- Standard Parameters --
3757: p_api_version IN NUMBER,
3758: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
3759: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3760: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3761: x_return_status OUT NOCOPY VARCHAR2,
3762: x_msg_count OUT NOCOPY NUMBER,
3763: x_msg_data OUT NOCOPY VARCHAR2,
3756: -- Standard Parameters --
3757: p_api_version IN NUMBER,
3758: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
3759: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3760: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3761: x_return_status OUT NOCOPY VARCHAR2,
3762: x_msg_count OUT NOCOPY NUMBER,
3763: x_msg_data OUT NOCOPY VARCHAR2,
3764: p_calling_fn IN VARCHAR2,
3785:
3786: BEGIN
3787:
3788: -- Initialize message list if p_init_msg_list is set to TRUE.
3789: IF FND_API.To_Boolean(p_init_msg_list) THEN
3790: -- Initialize error message stack.
3791: FA_SRVR_MSG.Init_Server_Message;
3792:
3793: -- Initialize debug message stack.
3944: px_trans_rec => l_trans_rec,
3945: px_asset_hdr_rec => l_asset_hdr_rec,
3946: px_inv_tbl_new => l_inv_tbl);
3947:
3948: if (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
3949: return;
3950: end if;
3951:
3952: EXCEPTION
3951:
3952: EXCEPTION
3953: when desc_err then
3954: fa_srvr_msg.add_message(calling_fn => 'fa_trans_api_pub.do_inv_desc_upd');
3955: x_return_status := FND_API.G_RET_STS_ERROR;
3956:
3957: when others then
3958: fa_srvr_msg.add_sql_error(calling_fn => 'fa_trans_api_pub.do_inv_desc_upd');
3959: x_return_status := FND_API.G_RET_STS_ERROR;
3955: x_return_status := FND_API.G_RET_STS_ERROR;
3956:
3957: when others then
3958: fa_srvr_msg.add_sql_error(calling_fn => 'fa_trans_api_pub.do_inv_desc_upd');
3959: x_return_status := FND_API.G_RET_STS_ERROR;
3960:
3961: END do_invoice_desc_update;
3962:
3963: PROCEDURE do_retirement_desc_update (
3962:
3963: PROCEDURE do_retirement_desc_update (
3964: -- Standard Parameters --
3965: p_api_version IN NUMBER,
3966: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
3967: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3968: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3969: x_return_status OUT NOCOPY VARCHAR2,
3970: x_msg_count OUT NOCOPY NUMBER,
3963: PROCEDURE do_retirement_desc_update (
3964: -- Standard Parameters --
3965: p_api_version IN NUMBER,
3966: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
3967: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3968: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3969: x_return_status OUT NOCOPY VARCHAR2,
3970: x_msg_count OUT NOCOPY NUMBER,
3971: x_msg_data OUT NOCOPY VARCHAR2,
3964: -- Standard Parameters --
3965: p_api_version IN NUMBER,
3966: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
3967: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3968: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3969: x_return_status OUT NOCOPY VARCHAR2,
3970: x_msg_count OUT NOCOPY NUMBER,
3971: x_msg_data OUT NOCOPY VARCHAR2,
3972: p_calling_fn IN VARCHAR2,
4018:
4019: BEGIN
4020:
4021: -- Initialize message list if p_init_msg_list is set to TRUE.
4022: IF FND_API.To_Boolean(p_init_msg_list) THEN
4023: -- Initialize error message stack.
4024: FA_SRVR_MSG.Init_Server_Message;
4025:
4026: -- Initialize debug message stack.
4134: px_trans_rec => l_trans_rec,
4135: px_asset_hdr_rec => l_asset_hdr_rec,
4136: px_asset_retire_rec_new => l_asset_retire_rec);
4137:
4138: if (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
4139: return;
4140: end if;
4141:
4142: EXCEPTION
4141:
4142: EXCEPTION
4143: when desc_err then
4144: fa_srvr_msg.add_message(calling_fn => 'fa_trans_api_pub.do_ret_desc_upd');
4145: x_return_status := FND_API.G_RET_STS_ERROR;
4146:
4147: when others then
4148: fa_srvr_msg.add_sql_error(calling_fn => 'fa_trans_api_pub.do_ret_desc_upd');
4149: x_return_status := FND_API.G_RET_STS_ERROR;
4145: x_return_status := FND_API.G_RET_STS_ERROR;
4146:
4147: when others then
4148: fa_srvr_msg.add_sql_error(calling_fn => 'fa_trans_api_pub.do_ret_desc_upd');
4149: x_return_status := FND_API.G_RET_STS_ERROR;
4150:
4151: END do_retirement_desc_update;
4152:
4153: PROCEDURE do_unplanned (
4152:
4153: PROCEDURE do_unplanned (
4154: -- Standard Parameters --
4155: p_api_version IN NUMBER,
4156: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
4157: p_commit IN VARCHAR2 := FND_API.G_FALSE,
4158: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
4159: x_return_status OUT NOCOPY VARCHAR2,
4160: x_msg_count OUT NOCOPY NUMBER,
4153: PROCEDURE do_unplanned (
4154: -- Standard Parameters --
4155: p_api_version IN NUMBER,
4156: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
4157: p_commit IN VARCHAR2 := FND_API.G_FALSE,
4158: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
4159: x_return_status OUT NOCOPY VARCHAR2,
4160: x_msg_count OUT NOCOPY NUMBER,
4161: x_msg_data OUT NOCOPY VARCHAR2,
4154: -- Standard Parameters --
4155: p_api_version IN NUMBER,
4156: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
4157: p_commit IN VARCHAR2 := FND_API.G_FALSE,
4158: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
4159: x_return_status OUT NOCOPY VARCHAR2,
4160: x_msg_count OUT NOCOPY NUMBER,
4161: x_msg_data OUT NOCOPY VARCHAR2,
4162: p_calling_fn IN VARCHAR2,
4208:
4209: BEGIN
4210:
4211: -- Initialize message list if p_init_msg_list is set to TRUE.
4212: IF FND_API.To_Boolean(p_init_msg_list) THEN
4213: -- Initialize error message stack.
4214: FA_SRVR_MSG.Init_Server_Message;
4215:
4216: -- Initialize debug message stack.
4294: px_asset_hdr_rec => l_asset_hdr_rec,
4295: p_unplanned_deprn_rec => l_unplanned_deprn_rec
4296: );
4297:
4298: if (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
4299: return;
4300: end if;
4301:
4302: x_transaction_header_id := l_trans_rec.transaction_header_id;
4303:
4304: EXCEPTION
4305: when others then
4306: fa_srvr_msg.add_sql_error(calling_fn => 'fa_trans_api_pub.do_unplanned');
4307: x_return_status := FND_API.G_RET_STS_ERROR;
4308:
4309: END do_unplanned;
4310:
4311: PROCEDURE do_reserve_transfer (
4310:
4311: PROCEDURE do_reserve_transfer (
4312: -- Standard Parameters --
4313: p_api_version IN NUMBER,
4314: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
4315: p_commit IN VARCHAR2 := FND_API.G_FALSE,
4316: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
4317: x_return_status OUT NOCOPY VARCHAR2,
4318: x_msg_count OUT NOCOPY NUMBER,
4311: PROCEDURE do_reserve_transfer (
4312: -- Standard Parameters --
4313: p_api_version IN NUMBER,
4314: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
4315: p_commit IN VARCHAR2 := FND_API.G_FALSE,
4316: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
4317: x_return_status OUT NOCOPY VARCHAR2,
4318: x_msg_count OUT NOCOPY NUMBER,
4319: x_msg_data OUT NOCOPY VARCHAR2,
4312: -- Standard Parameters --
4313: p_api_version IN NUMBER,
4314: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
4315: p_commit IN VARCHAR2 := FND_API.G_FALSE,
4316: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
4317: x_return_status OUT NOCOPY VARCHAR2,
4318: x_msg_count OUT NOCOPY NUMBER,
4319: x_msg_data OUT NOCOPY VARCHAR2,
4320: p_calling_fn IN VARCHAR2,
4364:
4365: BEGIN
4366:
4367: -- Initialize message list if p_init_msg_list is set to TRUE.
4368: if FND_API.To_Boolean(p_init_msg_list) then
4369: -- Initialize error message stack.
4370: FA_SRVR_MSG.Init_Server_Message;
4371:
4372: -- Initialize debug message stack.
4415: p_amount => p_transfer_amount,
4416: px_src_trans_rec => l_src_trans_rec,
4417: px_dest_trans_rec => l_dest_trans_rec);
4418:
4419: if (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
4420: x_src_transaction_header_id := l_src_trans_rec.transaction_header_id;
4421: x_dest_transaction_header_id := l_dest_trans_rec.transaction_header_id;
4422: return;
4423: end if;
4424:
4425: EXCEPTION
4426: when others then
4427: fa_srvr_msg.add_sql_error(calling_fn => 'fa_trans_api_pub.do_rsv_xfr');
4428: x_return_status := FND_API.G_RET_STS_ERROR;
4429:
4430: END do_reserve_transfer;
4431:
4432: PROCEDURE do_retirement_adjustment (
4431:
4432: PROCEDURE do_retirement_adjustment (
4433: -- Standard Parameters --
4434: p_api_version IN NUMBER,
4435: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
4436: p_commit IN VARCHAR2 := FND_API.G_FALSE,
4437: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
4438: x_return_status OUT NOCOPY VARCHAR2,
4439: x_msg_count OUT NOCOPY NUMBER,
4432: PROCEDURE do_retirement_adjustment (
4433: -- Standard Parameters --
4434: p_api_version IN NUMBER,
4435: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
4436: p_commit IN VARCHAR2 := FND_API.G_FALSE,
4437: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
4438: x_return_status OUT NOCOPY VARCHAR2,
4439: x_msg_count OUT NOCOPY NUMBER,
4440: x_msg_data OUT NOCOPY VARCHAR2,
4433: -- Standard Parameters --
4434: p_api_version IN NUMBER,
4435: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
4436: p_commit IN VARCHAR2 := FND_API.G_FALSE,
4437: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
4438: x_return_status OUT NOCOPY VARCHAR2,
4439: x_msg_count OUT NOCOPY NUMBER,
4440: x_msg_data OUT NOCOPY VARCHAR2,
4441: p_calling_fn IN VARCHAR2,
4510: p_cost_of_removal => p_cost_of_removal,
4511: p_proceeds => p_proceeds_of_sale
4512: );
4513:
4514: if (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
4515: x_transaction_header_id := l_trans_rec.transaction_header_id;
4516: return;
4517: end if;
4518:
4518:
4519: EXCEPTION
4520: when others then
4521: fa_srvr_msg.add_sql_error(calling_fn => 'fa_trans_api_pub.do_ret_adj');
4522: x_return_status := FND_API.G_RET_STS_ERROR;
4523: END do_retirement_adjustment;
4524:
4525: PROCEDURE do_tax_reserve_adjustment(
4526: -- Standard Parameters --
4524:
4525: PROCEDURE do_tax_reserve_adjustment(
4526: -- Standard Parameters --
4527: p_api_version IN NUMBER,
4528: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
4529: p_commit IN VARCHAR2 := FND_API.G_FALSE,
4530: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
4531: x_return_status OUT NOCOPY VARCHAR2,
4532: x_msg_count OUT NOCOPY NUMBER,
4525: PROCEDURE do_tax_reserve_adjustment(
4526: -- Standard Parameters --
4527: p_api_version IN NUMBER,
4528: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
4529: p_commit IN VARCHAR2 := FND_API.G_FALSE,
4530: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
4531: x_return_status OUT NOCOPY VARCHAR2,
4532: x_msg_count OUT NOCOPY NUMBER,
4533: x_msg_data OUT NOCOPY VARCHAR2,
4526: -- Standard Parameters --
4527: p_api_version IN NUMBER,
4528: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
4529: p_commit IN VARCHAR2 := FND_API.G_FALSE,
4530: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
4531: x_return_status OUT NOCOPY VARCHAR2,
4532: x_msg_count OUT NOCOPY NUMBER,
4533: x_msg_data OUT NOCOPY VARCHAR2,
4534: p_calling_fn IN VARCHAR2,
4576: l_asset_tax_rsv_adj_rec fa_api_types.asset_tax_rsv_adj_rec_type;
4577:
4578: BEGIN
4579: -- Initialize message list if p_init_msg_list is set to TRUE.
4580: IF FND_API.To_Boolean(p_init_msg_list) THEN
4581: -- Initialize error message stack.
4582: FA_SRVR_MSG.Init_Server_Message;
4583:
4584: -- Initialize debug message stack.
4648: px_asset_hdr_rec => l_asset_hdr_rec,
4649: p_asset_tax_rsv_adj_rec => l_asset_tax_rsv_adj_rec
4650: );
4651:
4652: if (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
4653: x_transaction_header_id := l_trans_rec.transaction_header_id;
4654: return;
4655: end if;
4656:
4656:
4657: EXCEPTION
4658: when others then
4659: fa_srvr_msg.add_sql_error(calling_fn => 'fa_trans_api_pub.do_tax_rsv_adj');
4660: x_return_status := FND_API.G_RET_STS_ERROR;
4661: END do_tax_reserve_adjustment;
4662:
4663: END FA_TRANS_API_PUB;