1: PACKAGE BODY CSTPFCHK AS
2: -- $Header: CSTFCHKB.pls 120.8 2011/08/03 08:48:24 pbasrani ship $
3: --+===========================================================================+
4: --| |
5: --| Copyright (c) 1993 Oracle Corporation Belmont, California, USA |
381: return l_ret_val;
382: when OTHERS then
383: rollback;
384: o_err_num := SQLCODE;
385: o_err_msg := 'CSTPFCHK.Compute_Pac_Cost_Hook ('|| to_char(l_stmt_num) || '): '
386: || substr(SQLERRM,1,200);
387: return l_ret_val;
388: END compute_pac_cost_hook;
389:
909: o_err_msg := l_err_msg;
910: when OTHERS then
911: rollback;
912: o_err_num := SQLCODE;
913: o_err_msg := 'CSTPFCHK.Current_Pac_Cost_Hook ('|| to_char(l_stmt_num) || '): '
914: || substr(SQLERRM,1,200);
915:
916: END current_pac_cost_hook;
917:
974: return l_ret_val;
975: when OTHERS then
976: rollback;
977: o_err_num := SQLCODE;
978: o_err_msg := 'CSTPFCHK.Compute_Pac_Cost_Hook ('|| to_char(l_stmt_num) || '): '
979: || substr(SQLERRM,1,200);
980: return l_ret_val;
981: END pac_wip_issue_cost_hook;
982:
1513: o_err_msg := l_err_msg;
1514: when OTHERS then
1515: rollback;
1516: o_err_num := SQLCODE;
1517: o_err_msg := 'CSTPFCHK.Copy_Prior_Info_Hook ('|| to_char(l_stmt_num) || '
1518: ): '
1519: || substr(SQLERRM,1,200);
1520:
1521: END copy_prior_info_hook;
1940:
1941: END periodic_cost_update_hook;
1942:
1943:
1944: END CSTPFCHK;