[Home] [Help]
PACKAGE BODY: APPS.GMD_DISP_GRP
Source
1 PACKAGE BODY GMD_DISP_GRP AS
2 /* $Header: GMDGDISB.pls 120.0.12010000.1 2009/03/31 18:24:43 rnalla noship $ */
3
4 -- Start of comments
5 --+==========================================================================+
6 --| Copyright (c) 1998 Oracle Corporation |
7 --| Redwood Shores, CA, USA |
8 --| All rights reserved. |
9 --+==========================================================================+
10 --| File Name : GMDGDISB.pls |
11 --| Package Name : GMD_DISP_GRP |
12 --| Type : Group |
13 --| |
14 --| Notes |
15 --| This package contains Group layer APIs for Changing the disposition |
16 --| of a Sample/Group |
17 --| |
18 --| HISTORY |
19 --| Ravi Lingappa Nagaraja 16-Jun-2008 Created. |
20 --+==========================================================================+
21 -- End of comments
22
23
24 -- To change the disposition of a sample if Sample_id is provided.
25 PROCEDURE update_sample_comp_disp
26 (
27 p_update_disp_rec IN Gmd_Samples_Grp.update_disp_rec
28 , p_to_disposition IN VARCHAR2
29 , x_return_status OUT NOCOPY VARCHAR2
30 , x_message_data OUT NOCOPY VARCHAR2
31 ) IS
32
33 l_return_status VARCHAR2(1);
34 l_message_data VARCHAR2(2000);
35
36
37 BEGIN
38 x_return_status := FND_API.G_RET_STS_SUCCESS;
39 Gmd_Samples_Grp.update_sample_comp_disp
40 ( p_update_disp_rec => p_update_disp_rec
41 , p_to_disposition => p_to_disposition
42 , x_return_status => l_return_status
43 , x_message_data => l_message_data );
44 IF (l_return_status <> 'S') THEN
45 x_message_data := l_message_data;
46 RAISE FND_API.G_EXC_ERROR;
47 END IF;
48
49 EXCEPTION
50 WHEN FND_API.G_EXC_ERROR THEN
51 x_return_status := FND_API.G_RET_STS_ERROR ;
52 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
53 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
54 WHEN OTHERS THEN
55 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
56
57 END;
58
59 PROCEDURE update_lot_grade_batch
60 (
61 p_sample_id IN NUMBER DEFAULT NULL
62 , p_composite_spec_disp_id IN NUMBER DEFAULT NULL
63 , p_to_lot_status_id IN NUMBER
64 , p_from_lot_status_id IN NUMBER
65 , p_to_grade_code IN VARCHAR2
66 , p_from_grade_code IN VARCHAR2 DEFAULT NULL
67 , p_to_qc_status IN NUMBER
68 , p_reason_id IN NUMBER
69 , p_hold_date IN DATE DEFAULT SYSDATE
70 , x_return_status OUT NOCOPY VARCHAR2
71 , x_message_data OUT NOCOPY VARCHAR2
72 ) IS
73
74 l_return_status VARCHAR2(1);
75 l_message_data VARCHAR2(2000);
76
77 BEGIN
78 x_return_status := FND_API.G_RET_STS_SUCCESS;
79 Gmd_Samples_Grp.update_lot_grade_batch(
80 p_sample_id => p_sample_id
81 , p_composite_spec_disp_id => p_composite_spec_disp_id
82 , p_to_lot_status_id => p_to_lot_status_id
83 , p_from_lot_status_id => p_from_lot_status_id
84 , p_to_grade_code => p_to_grade_code
85 , p_from_grade_code => p_from_grade_code
86 , p_to_qc_status => p_to_qc_status
87 , p_reason_id => p_reason_id
88 , p_hold_date => p_hold_date
89 , x_return_status => l_return_status
90 , x_message_data => l_message_data );
91 IF (l_return_status <> 'S') THEN
92 x_message_data := l_message_data;
93 RAISE FND_API.G_EXC_ERROR;
94 END IF;
95
96 EXCEPTION
97 WHEN FND_API.G_EXC_ERROR THEN
98 x_return_status := FND_API.G_RET_STS_ERROR ;
99 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
100 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
101 WHEN OTHERS THEN
102 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
103
104 END;
105
106
107 END gmd_disp_grp;