[Home] [Help]
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;