1: package body hrkpi as
2: /* $Header: hrkpi01.pkb 115.10 2002/12/03 13:22:50 apholt noship $ */
3:
4:
5: procedure generic_error(routine in varchar2,
1: package body hrkpi as
2: /* $Header: hrkpi01.pkb 115.10 2002/12/03 13:22:50 apholt noship $ */
3:
4:
5: procedure generic_error(routine in varchar2,
6: errcode in number,
53: parseResponse_pvt(response,cmd,action);
54:
55: exception when others
56: then
57: generic_error(routine=>'HRKPI' ,
58: errcode=>null,
59: errmsg=> sqlerrm ) ;
60: end parseResponse;
61:
135: return(l_retval);
136:
137: exception
138: when e_fatal_error then
139: generic_error(routine => 'hrkpi.getadapters',
140: errcode => null,
141: errmsg => l_action);
142:
143:
229: end if;
230:
231: end ;
232:
233: end hrkpi;