1: PACKAGE BODY CSTPACHK AS
2: /* $Header: CSTACHKB.pls 120.3.12010000.2 2008/08/08 12:29:38 smsasidh ship $ */
3:
4: -- FUNCTION
5: -- actual_cost_hook Cover routine to allow users to add
39: EXCEPTION
40:
41: when others then
42: o_err_num := SQLCODE;
43: o_err_msg := 'CSTPACHK.ACTUAL_COST_HOOK:' || substrb(SQLERRM,1,150);
44: return 0;
45:
46: END actual_cost_hook;
47:
79: EXCEPTION
80:
81: when others then
82: o_err_num := SQLCODE;
83: o_err_msg := 'CSTPACHK.COST_DIST_HOOK:' || substrb(SQLERRM,1,150);
84: return 0;
85:
86: END cost_dist_hook;
87:
173:
174: when others then
175: o_err_num := -1;
176: o_err_code := to_char(SQLCODE);
177: o_err_msg := 'Error in CSTPACHK.GET_ACCOUNT_ID:' || substrb(SQLERRM,1,150);
178: return 0;
179:
180: END get_account_id;
181:
214: EXCEPTION
215:
216: when others then
217: o_err_num := SQLCODE;
218: o_err_msg := 'CSTPACHK.layer_hook:' || substrb(SQLERRM,1,150);
219: return 0;
220:
221: END layer_hook;
222:
253:
254: EXCEPTION
255: WHEN OTHERS THEN
256: o_err_num := SQLCODE;
257: o_err_msg := 'CSTPACHK.layers_hook:' || substrb(SQLERRM,1,150);
258: END;
259:
260: -- FUNCTION
261: -- LayerMerge_hook This routine is a client extension that lets the
290: RETURN 1;
291: EXCEPTION
292: WHEN OTHERS THEN
293: o_err_num := SQLCODE;
294: o_err_msg := 'CSTPACHK.layers_hook:' || substrb(SQLERRM,1,150);
295: RETURN -1;
296: END;
297:
298: function get_date(
374:
375: EXCEPTION
376: when others then
377: o_err_num := SQLCODE;
378: o_err_msg := 'CSTPACHK.layer_hook:' || substrb(SQLERRM,1,150);
379: return 0;
380: END validate_job_est_status_hook;
381:
382: --
409: x_msg_count := 0;
410: END;
411:
412:
413: END CSTPACHK;