1: package body BOMPAVBM as
2: /* $Header: BOMAVBMB.pls 115.2 99/07/16 05:09:35 porting ship $ */
3: -- ==========================================================================
4: -- Copyright (c) 1993 Oracle Corporation Belmont, California, USA
5: -- All rights reserved.
134:
135: return(0);
136:
137: <
138: err_text := 'BOMPAVBM.bmasbill_assign_bill_data' || substr(err_msg,1,200);
139: return(ret_code);
140:
141: exception
142: when others then
139: return(ret_code);
140:
141: exception
142: when others then
143: err_text := 'BOMPAVBM.bmasbill_assign_bill_data' ||
144: substrb(SQLERRM, 1, G_maxlen);
145: return(ret_code);
146: end bmasbill_assign_bill_data;
147:
245:
246: return(0);
247:
248: <
249: err_text := 'BOMPAVBM.bmvrbill_verify_bill_data ' || substr(err_msg,1,200);
250: return(ret_code);
251:
252: exception
253: when others then
250: return(ret_code);
251:
252: exception
253: when others then
254: err_text := 'BOMPAVBM.bmvrbill_verify_bill_data ' ||
255: substrb(SQLERRM, 1, G_maxlen);
256: return(ret_code);
257: end bmvrbill_verify_bill_data;
258:
255: substrb(SQLERRM, 1, G_maxlen);
256: return(ret_code);
257: end bmvrbill_verify_bill_data;
258:
259: END BOMPAVBM;