PACKAGE BODY: APPS.GMD_QC_SPEC_MATCH

Source

1 PACKAGE BODY GMD_QC_SPEC_MATCH  AS
2 /* $Header: GMDQMCHB.pls 115.11 2003/12/05 17:06:23 pupakare noship $ */
3 
4 G_PKG_NAME CONSTANT VARCHAR2(30) := 'GMD_QC_SPEC_MATCH';
5 
6 /*======================================================================
7 --  FUNCTION :
8 --    FIND_CUST_SPEC
9 --
10 --===================================================================== */
11 
12 FUNCTION find_cust_spec ( p_cust_spec     IN  find_cust_spec_rec)
13                           RETURN cust_spec_out_tbl
14 IS
15   /* Local variables.
16   ==================*/
17 l_out_rec               cust_spec_out_tbl;  --BUG#2798878
18 l_out_record            cust_spec_out_rec;
19 BEGIN
20     l_out_record.spec_hdr_id := 0;
21     l_out_rec(1) := l_out_record;
22     return l_out_rec;
23 exception
24    when others then
25        return l_out_rec;
26 END find_cust_spec;
27 
28 /*======================================================================
29 --  PROCEDURE :
30 --    GET_SPEC_MATCH
31 --===================================================================== */
32 
33 PROCEDURE get_spec_match
34                   ( p_spec_hdr_id   IN  NUMBER
35                    ,p_lots_in       IN  result_lot_match_tbl
36                    ,p_api_version   In NUMBER
37                    ,p_init_msg_list IN VARCHAR2  := FND_API.G_FALSE
38                    ,p_results_out   OUT NOCOPY result_lot_match_tbl
39                    ,p_return_status OUT NOCOPY VARCHAR2
40                    ,P_msg_count     OUT NOCOPY NUMBER
41                    ,P_msg_stack     OUT NOCOPY VARCHAR2
42                   ) IS
43 BEGIN
44 p_return_status := FND_API.G_RET_STS_SUCCESS;     -- initialize
45 
46 EXCEPTION
47   WHEN OTHERS THEN
48      P_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
49      FND_MSG_PUB.COUNT_AND_GET (P_count => P_msg_count,
50                                 P_data  => P_msg_stack);
51 END get_spec_match;
52 END GMD_QC_SPEC_MATCH;