[Home] [Help]
PACKAGE BODY: APPS.OKL_AM_ARINV_PUB
Source
1 PACKAGE BODY okl_am_arinv_pub AS
2 /* $Header: OKLPARVB.pls 115.6 2004/04/13 10:31:30 rnaik noship $ */
3
4 PROCEDURE create_asset_repair_invoice
5 ( p_api_version IN NUMBER
6 , p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE
7 , x_return_status OUT NOCOPY VARCHAR2
8 , x_msg_count OUT NOCOPY NUMBER
9 , x_msg_data OUT NOCOPY VARCHAR2
10 , p_ariv_tbl IN ariv_tbl_type) AS
11
12 l_api_version NUMBER ;
13 l_init_msg_list VARCHAR2(1) ;
14 l_return_status VARCHAR2(1);
15 l_msg_count NUMBER ;
16 l_msg_data VARCHAR2(2000);
17
18 lp_ariv_tbl ariv_tbl_type;
19
20 BEGIN
21 SAVEPOINT create_asset_repair_invoice;
22
23 l_api_version := p_api_version ;
24 l_init_msg_list := p_init_msg_list ;
25 l_return_status := x_return_status ;
26 l_msg_count := x_msg_count ;
27 l_msg_data := x_msg_data ;
28 lp_ariv_tbl := p_ariv_tbl;
29
30
31
32 -- call the insert of pvt
33
34 OKL_AM_ARINV_PVT.create_asset_repair_invoice (
35 p_api_version => l_api_version
36 ,p_init_msg_list => l_init_msg_list
37 ,x_msg_data => l_msg_data
38 ,x_msg_count => l_msg_count
39 ,x_return_status => l_return_status
40 ,p_ariv_tbl => lp_ariv_tbl) ;
41
42
43 IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
44 RAISE FND_API.G_EXC_ERROR;
45 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
46 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
47 END IF;
48
49
50
51
52 --Assign value to OUT variables
53 x_return_status := l_return_status ;
54 x_msg_count := l_msg_count ;
55 x_msg_data := l_msg_data ;
56
57 EXCEPTION
58
59 WHEN FND_API.G_EXC_ERROR THEN
60 ROLLBACK TO create_asset_repair_invoice;
61 x_return_status := FND_API.G_RET_STS_ERROR;
62 x_msg_count := l_msg_count ;
63 x_msg_data := l_msg_data ;
64 FND_MSG_PUB.count_and_get(
65 p_count => x_msg_count
66 ,p_data => x_msg_data);
67 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
68 ROLLBACK TO create_asset_repair_invoice;
69 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
70 x_msg_count := l_msg_count ;
71 x_msg_data := l_msg_data ;
72 FND_MSG_PUB.count_and_get(
73 p_count => x_msg_count
74 ,p_data => x_msg_data);
75 WHEN OTHERS THEN
76 ROLLBACK TO create_asset_repair_invoice;
77 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
78 x_msg_count := l_msg_count ;
79 x_msg_data := l_msg_data ;
80 FND_MSG_PUB.ADD_EXC_MSG('OKL_AM_ARINV_PUB','create_asset_repair_invoice');
81 FND_MSG_PUB.count_and_get(
82 p_count => x_msg_count
83 ,p_data => x_msg_data);
84 END create_asset_repair_invoice;
85
86
87
88
89 PROCEDURE Approve_Asset_Repair (
90 p_api_version IN NUMBER,
91 p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
92 x_return_status OUT NOCOPY VARCHAR2,
93 x_msg_count OUT NOCOPY NUMBER,
94 x_msg_data OUT NOCOPY VARCHAR2,
95 p_ariv_tbl IN ariv_tbl_type,
96 x_ariv_tbl OUT NOCOPY ariv_tbl_type) IS
97
98 l_api_version NUMBER ;
99 l_init_msg_list VARCHAR2(1) ;
100 l_return_status VARCHAR2(1);
101 l_msg_count NUMBER ;
102 l_msg_data VARCHAR2(2000);
103
104 lp_ariv_tbl ariv_tbl_type;
105 lx_ariv_tbl ariv_tbl_type;
106
107 BEGIN
108
109 SAVEPOINT Trx_Approve_Asset_Repair;
110
111 l_api_version := p_api_version ;
112 l_init_msg_list := p_init_msg_list ;
113 l_return_status := x_return_status ;
114 l_msg_count := x_msg_count ;
115 l_msg_data := x_msg_data ;
116 lp_ariv_tbl := p_ariv_tbl;
117 lx_ariv_tbl := p_ariv_tbl;
118
119
120
121 -- call the insert of pvt
122
123 OKL_AM_ARINV_PVT.Approve_Asset_Repair (
124 p_api_version => l_api_version
125 ,p_init_msg_list => l_init_msg_list
126 ,x_msg_data => l_msg_data
127 ,x_msg_count => l_msg_count
128 ,x_return_status => l_return_status
129 ,p_ariv_tbl => lp_ariv_tbl
130 ,x_ariv_tbl => lx_ariv_tbl) ;
131
132
133 IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
134 RAISE FND_API.G_EXC_ERROR;
135 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
136 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
137 END IF;
138
139
140 lp_ariv_tbl := lx_ariv_tbl;
141
142
143
144
145 --Assign value to OUT variables
146 x_ariv_tbl := lx_ariv_tbl;
147 x_return_status := l_return_status ;
148 x_msg_count := l_msg_count ;
149 x_msg_data := l_msg_data ;
150
151 EXCEPTION
152
153 WHEN FND_API.G_EXC_ERROR THEN
154 ROLLBACK TO trx_Approve_Asset_Repair;
155 x_return_status := FND_API.G_RET_STS_ERROR;
156 x_msg_count := l_msg_count ;
157 x_msg_data := l_msg_data ;
158 FND_MSG_PUB.count_and_get(
159 p_count => x_msg_count
160 ,p_data => x_msg_data);
161 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
162 ROLLBACK TO trx_Approve_Asset_Repair;
163 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
164 x_msg_count := l_msg_count ;
165 x_msg_data := l_msg_data ;
166 FND_MSG_PUB.count_and_get(
167 p_count => x_msg_count
168 ,p_data => x_msg_data);
169 WHEN OTHERS THEN
170 ROLLBACK TO trx_Approve_Asset_Repair;
171 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
172 x_msg_count := l_msg_count ;
173 x_msg_data := l_msg_data ;
174 FND_MSG_PUB.ADD_EXC_MSG('OKL_AM_ARINV_PUB','Approve_Asset_Repair');
175 FND_MSG_PUB.count_and_get(
176 p_count => x_msg_count
177 ,p_data => x_msg_data);
178 END Approve_Asset_Repair;
179
180 END OKL_AM_ARINV_PUB;