1 PACKAGE BODY RCV_ROUTING_HEADERS_SV1 AS
2 /* $Header: POXPIRHB.pls 115.0 99/07/17 01:50:26 porting ship $ */
3
4 /*===============================================================
5
6 FUNCTION NAME : derive_routing_header_id()
7
8 ================================================================*/
9 FUNCTION derive_routing_header_id(X_routing_name IN VARCHAR2)
10 return NUMBER IS
11
12 X_progress varchar2(3) := NULL;
13 X_routing_header_id_v number := NULL;
14
15 BEGIN
16
17 X_progress := '010';
18
19 /* get the routing_header_id from rcv_routing_headers table based
20 on routing_name which is provided from input parameter */
21
22 SELECT routing_header_id
23 INTO X_routing_header_id_v
24 FROM rcv_routing_headers
25 WHERE routing_name = X_routing_name;
26
27 RETURN X_routing_header_id_v;
28
29 EXCEPTION
30 WHEN no_data_found THEN
31 RETURN NULL;
32 WHEN others THEN
33 po_message_s.sql_error('derive_routing_header_id',X_progress, sqlcode);
34 raise;
35
36 END derive_routing_header_id;
37
38 END RCV_ROUTING_HEADERS_SV1;