[Home] [Help]
1: PACKAGE BODY FA_TXRSV_PKG as
2: /* $Header: FATXRSVB.pls 120.7 2005/03/17 00:19:49 lson ship $ */
3: /*
4: * A parameter X_deprn_basis_formula may store value 'STRICT_FLAT'.
5: * This is added for bug fix 2033291. The value comes from Tax workbench
54: return (TRUE);
55:
56: when others then
57: fa_srvr_msg.add_sql_error (
58: calling_fn => 'fa_txrsv_pkg.fautca');
59: return (FALSE);
60:
61: end FAUTCA;
62:
291:
292: exception
293: when others then
294: fa_srvr_msg.add_sql_error (
295: calling_fn => 'fa_txrsv_pkg.fautubk');
296: return (FALSE);
297: end FAUTUBK;
298:
299: Function fautgpr
325: h_dpr,
326: 'STANDARD',
327: FALSE,
328: h_dummy_bool,
329: 'fa_txrsv_pkg.fautgpr',
330: -1);
331:
332: if not (h_dummy_bool) then
333: fa_srvr_msg.add_message (calling_fn => 'fa_txrsv_pkg.fautgpr');
329: 'fa_txrsv_pkg.fautgpr',
330: -1);
331:
332: if not (h_dummy_bool) then
333: fa_srvr_msg.add_message (calling_fn => 'fa_txrsv_pkg.fautgpr');
334: return (FALSE);
335: end if;
336:
337: X_old_deprn_rsv_taken := h_dpr.deprn_rsv;
341:
342: exception
343: when others then
344: fa_srvr_msg.add_sql_error (
345: calling_fn => 'fa_txrsv_pkg.fautgpr');
346: return (FALSE);
347: end FAUTGPR;
348:
349: Function fautxa
540: dpr_row,
541: 'ADJUSTED',
542: FALSE,
543: h_dummy_bool,
544: 'fa_txrsv_pkg.fautgpr',
545: -1);
546:
547:
548:
566: dpr_row,
567: 'ADJUSTED',
568: FALSE,
569: h_dummy_bool,
570: 'fa_txrsv_pkg.fautgpr',
571: -1);
572:
573: if not (h_dummy_bool) then
574: raise fautxa_error;
875: exception
876: when fautxa_error then
877: if (X_fail_okay > 0) then
878: fa_srvr_msg.add_message (
879: calling_fn => 'fa_txrsv_pkg.fautxa',
880: name => 'FA_TAX_ASSET_WARN',
881: token1 => 'VARIABLE',
882: value1 => 'ASSET',
883: token2 => 'VALUE',
885: translate => FALSE
886: );
887: else
888: fa_srvr_msg.add_message (
889: calling_fn => 'fa_txrsv_pkg.fautxa',
890: name => 'FA_TAX_ASSET_FAIL',
891: token1 => 'VARIABLE',
892: value1 => 'ASSET',
893: token2 => 'VALUE',
896: );
897: end if;
898:
899: fa_srvr_msg.add_message (
900: calling_fn => 'fa_txrsv_pkg.fautxa',
901: name => mesg_name);
902:
903: fa_srvr_msg.add_sql_error (
904: calling_fn => 'fa_txrsv_pkg.fautxa');
900: calling_fn => 'fa_txrsv_pkg.fautxa',
901: name => mesg_name);
902:
903: fa_srvr_msg.add_sql_error (
904: calling_fn => 'fa_txrsv_pkg.fautxa');
905:
906: return (FALSE);
907: when others then
908: fa_srvr_msg.add_sql_error (
905:
906: return (FALSE);
907: when others then
908: fa_srvr_msg.add_sql_error (
909: calling_fn => 'fa_txrsv_pkg.fautxa');
910: return (FALSE);
911: end FAUTXA;
912:
913: Function faxtxa
1030: end if;
1031:
1032:
1033: if not fa_cache_pkg.fazcbc(fin_info.book) then
1034: fa_srvr_msg.add_message (calling_fn => 'fa_txrsv_pkg.faxtxa');
1035: return (FALSE);
1036: end if;
1037:
1038: fin_info.period_ctr := fa_cache_pkg.fazcbc_record.last_period_counter + 1;
1152:
1153: end if;
1154:
1155: h_dummy_int := 0;
1156: if not fa_txrsv_pkg.fautxa (
1157: fin_info,
1158: l_old_deprn_rsv,
1159: l_new_deprn_rsv,
1160: X_fiscal_year,
1165: l_mrc_sob_type_code,
1166: X_deprn_basis_formula
1167: ) then
1168: fa_srvr_msg.add_message (
1169: calling_fn => 'fa_txrsv_pkg.faxtxa');
1170: return (FALSE);
1171: end if;
1172:
1173: END LOOP; -- end primary reporting loop
1185: fnd_profile.put('GL_SET_OF_BKS_ID', l_profile_sob_id);
1186: fnd_client_info.set_currency_context (l_currency_context);
1187:
1188: fa_srvr_msg.add_sql_error (
1189: calling_fn => 'fa_txrsv_pkg.faxtxa');
1190: return (FALSE);
1191:
1192: when others then
1193: -- reset the sob to original values
1194: fnd_profile.put('GL_SET_OF_BKS_ID', l_profile_sob_id);
1195: fnd_client_info.set_currency_context (l_currency_context);
1196:
1197: fa_srvr_msg.add_sql_error (
1198: calling_fn => 'fa_txrsv_pkg.faxtxa');
1199: return (FALSE);
1200: end FAXTXA;
1201:
1202: END FA_TXRSV_PKG;
1198: calling_fn => 'fa_txrsv_pkg.faxtxa');
1199: return (FALSE);
1200: end FAXTXA;
1201:
1202: END FA_TXRSV_PKG;