PACKAGE BODY: APPS.RCV_ROUTING_HEADERS_SV1

Source

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;