[Home] [Help]
PACKAGE BODY: APPS.EAM_OP_NETWORK_UTILITY_PVT
Source
1 PACKAGE BODY EAM_OP_NETWORK_UTILITY_PVT AS
2 /* $Header: EAMVONUB.pls 115.1 2002/11/25 00:07:44 baroy noship $ */
3 /***************************************************************************
4 --
5 -- Copyright (c) 2002 Oracle Corporation, Redwood Shores, CA, USA
6 -- All rights reserved.
7 --
8 -- FILENAME
9 --
10 -- EAMVONUB.pls
11 --
12 -- DESCRIPTION
13 --
14 -- Body of package EAM_OP_NETWORK_UTILITY_PVT
15 --
16 -- NOTES
17 --
18 -- HISTORY
19 --
20 -- 30-JUN-2002 Kenichi Nagumo Initial Creation
21 ***************************************************************************/
22
23 G_PKG_NAME CONSTANT VARCHAR2(30) := 'EAM_OP_NETWORK_UTILITY_PVT';
24
25 /*********************************************************************
26 * Procedure : Query_Row
27 * Parameters IN : wip entity id
28 * organization Id
29 * prior operation
30 * next operation
31 * Parameters OUT NOCOPY: Operation Networks column record
32 * Mesg token Table
33 * Return Status
34 * Purpose : Procedure will query the database record
35 * and return with those records.
36 ***********************************************************************/
37
38 PROCEDURE Query_Row
39 ( p_wip_entity_id IN NUMBER
40 , p_organization_id IN NUMBER
41 , p_prior_operation IN NUMBER
42 , p_next_operation IN NUMBER
43 , x_eam_op_network_rec OUT NOCOPY EAM_PROCESS_WO_PUB.eam_op_network_rec_type
44 , x_Return_status OUT NOCOPY VARCHAR2
45 )
46 IS
47 l_eam_op_network_rec EAM_PROCESS_WO_PUB.eam_op_network_rec_type;
48 l_return_status VARCHAR2(1):= FND_API.G_RET_STS_SUCCESS;
49 l_dummy varchar2(10);
50 BEGIN
51
52 SELECT
53 wip_entity_id
54 , organization_id
55 , prior_operation
56 , next_operation
57 , attribute_category
58 , attribute1
59 , attribute2
60 , attribute3
61 , attribute4
62 , attribute5
63 , attribute6
64 , attribute7
65 , attribute8
66 , attribute9
67 , attribute10
68 , attribute11
69 , attribute12
70 , attribute13
71 , attribute14
72 , attribute15
73 INTO
74 l_eam_op_network_rec.wip_entity_id
75 , l_eam_op_network_rec.organization_id
76 , l_eam_op_network_rec.prior_operation
77 , l_eam_op_network_rec.next_operation
78 , l_eam_op_network_rec.attribute_category
79 , l_eam_op_network_rec.attribute1
80 , l_eam_op_network_rec.attribute2
81 , l_eam_op_network_rec.attribute3
82 , l_eam_op_network_rec.attribute4
83 , l_eam_op_network_rec.attribute5
84 , l_eam_op_network_rec.attribute6
85 , l_eam_op_network_rec.attribute7
86 , l_eam_op_network_rec.attribute8
87 , l_eam_op_network_rec.attribute9
88 , l_eam_op_network_rec.attribute10
89 , l_eam_op_network_rec.attribute11
90 , l_eam_op_network_rec.attribute12
91 , l_eam_op_network_rec.attribute13
92 , l_eam_op_network_rec.attribute14
93 , l_eam_op_network_rec.attribute15
94 FROM wip_operation_networks won
95 WHERE won.wip_entity_id = p_wip_entity_id
96 AND won.organization_id = p_organization_id
97 AND won.prior_operation = p_prior_operation
98 AND won.next_operation = p_next_operation;
99
100 x_return_status := EAM_PROCESS_WO_PVT.G_RECORD_FOUND;
101 x_eam_op_network_rec := l_eam_op_network_rec;
102
103 EXCEPTION
104 WHEN NO_DATA_FOUND THEN
105 x_return_status := EAM_PROCESS_WO_PVT.G_RECORD_NOT_FOUND;
106 x_eam_op_network_rec := l_eam_op_network_rec;
107
108 WHEN OTHERS THEN
109 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
110 x_eam_op_network_rec := l_eam_op_network_rec;
111
112 END Query_Row;
113
114
115 /********************************************************************
116 * Procedure : Insert_Row
117 * Parameters IN : Operation Networks column record
118 * Parameters OUT NOCOPY: Message Token Table
119 * Return Status
120 * Purpose : Procedure will perfrom an insert into the
121 * wip_operation_networks table.
122 *********************************************************************/
123
124 PROCEDURE Insert_Row
125 ( p_eam_op_network_rec IN EAM_PROCESS_WO_PUB.eam_op_network_rec_type
126 , x_mesg_token_Tbl OUT NOCOPY EAM_ERROR_MESSAGE_PVT.Mesg_Token_Tbl_Type
127 , x_return_Status OUT NOCOPY VARCHAR2
128 )
129 IS
130 BEGIN
131
132 IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Writing Operation Networks rec for ' || p_eam_op_network_rec.prior_operation); END IF;
133
134 INSERT INTO WIP_OPERATION_NETWORKS
135 ( wip_entity_id
136 , organization_id
137 , prior_operation
138 , next_operation
139 , attribute_category
140 , attribute1
141 , attribute2
142 , attribute3
143 , attribute4
144 , attribute5
145 , attribute6
146 , attribute7
147 , attribute8
148 , attribute9
149 , attribute10
150 , attribute11
151 , attribute12
152 , attribute13
153 , attribute14
154 , attribute15
155 , last_update_date
156 , last_updated_by
157 , creation_date
158 , created_by
159 , last_update_login
160 )
161 VALUES
162 ( p_eam_op_network_rec.wip_entity_id
163 , p_eam_op_network_rec.organization_id
164 , p_eam_op_network_rec.prior_operation
165 , p_eam_op_network_rec.next_operation
166 , p_eam_op_network_rec.attribute_category
167 , p_eam_op_network_rec.attribute1
168 , p_eam_op_network_rec.attribute2
169 , p_eam_op_network_rec.attribute3
170 , p_eam_op_network_rec.attribute4
171 , p_eam_op_network_rec.attribute5
172 , p_eam_op_network_rec.attribute6
173 , p_eam_op_network_rec.attribute7
174 , p_eam_op_network_rec.attribute8
175 , p_eam_op_network_rec.attribute9
176 , p_eam_op_network_rec.attribute10
177 , p_eam_op_network_rec.attribute11
178 , p_eam_op_network_rec.attribute12
179 , p_eam_op_network_rec.attribute13
180 , p_eam_op_network_rec.attribute14
181 , p_eam_op_network_rec.attribute15
182 , SYSDATE
183 , FND_GLOBAL.user_id
184 , SYSDATE
185 , FND_GLOBAL.user_id
186 , FND_GLOBAL.login_id
187 );
188
189
190 IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug ('Creating new Operation Networks') ; END IF;
191
192 x_return_status := FND_API.G_RET_STS_SUCCESS;
193
194 EXCEPTION
195 WHEN OTHERS THEN
196 EAM_ERROR_MESSAGE_PVT.Add_Error_Token
197 ( p_message_name => NULL
198 , p_message_text => G_PKG_NAME ||' :Inserting Record ' || SQLERRM
199 , x_mesg_token_Tbl => x_mesg_token_tbl
200 );
201
202 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
203
204 END Insert_Row;
205
206 /********************************************************************
207 * Procedure : Update_Row
208 * Parameters IN : Operation Networks column record
209 * Parameters OUT NOCOPY: Message Token Table
210 * Return Status
211 * Purpose : Procedure will perfrom an Update on the
212 * wip_operation_networks table.
213 *********************************************************************/
214
215 PROCEDURE Update_Row
216 ( p_eam_op_network_rec IN EAM_PROCESS_WO_PUB.eam_op_network_rec_type
217 , x_mesg_token_Tbl OUT NOCOPY EAM_ERROR_MESSAGE_PVT.Mesg_Token_Tbl_Type
218 , x_return_Status OUT NOCOPY VARCHAR2
219 )
220 IS
221 BEGIN
222
223 IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Updating Operation Networks '|| p_eam_op_network_rec.prior_operation); END IF;
224
225 UPDATE WIP_OPERATION_NETWORKS
226 SET prior_operation = p_eam_op_network_rec.prior_operation
227 , next_operation = p_eam_op_network_rec.next_operation
228 , attribute_category = p_eam_op_network_rec.attribute_category
229 , attribute1 = p_eam_op_network_rec.attribute1
230 , attribute2 = p_eam_op_network_rec.attribute2
231 , attribute3 = p_eam_op_network_rec.attribute3
232 , attribute4 = p_eam_op_network_rec.attribute4
233 , attribute5 = p_eam_op_network_rec.attribute5
234 , attribute6 = p_eam_op_network_rec.attribute6
235 , attribute7 = p_eam_op_network_rec.attribute7
236 , attribute8 = p_eam_op_network_rec.attribute8
237 , attribute9 = p_eam_op_network_rec.attribute9
238 , attribute10 = p_eam_op_network_rec.attribute10
239 , attribute11 = p_eam_op_network_rec.attribute11
240 , attribute12 = p_eam_op_network_rec.attribute12
241 , attribute13 = p_eam_op_network_rec.attribute13
242 , attribute14 = p_eam_op_network_rec.attribute14
243 , attribute15 = p_eam_op_network_rec.attribute15
244 , last_update_date = SYSDATE
245 , last_updated_by = FND_GLOBAL.user_id
246 , last_update_login = FND_GLOBAL.login_id
247 WHERE organization_id = p_eam_op_network_rec.organization_id
248 AND wip_entity_id = p_eam_op_network_rec.wip_entity_id
249 AND prior_operation = p_eam_op_network_rec.prior_operation;
250
251 x_return_status := FND_API.G_RET_STS_SUCCESS;
252
253 END Update_Row;
254
255
256
257 /********************************************************************
258 * Procedure : Delete_Row
259 * Parameters IN : Operation Networks column record
260 * Parameters OUT NOCOPY: Message Token Table
261 * Return Status
262 * Purpose : Procedure will perfrom an Delete on the
263 * wip_operation_networks table.
264 *********************************************************************/
265
266 PROCEDURE Delete_Row
267 ( p_eam_op_network_rec IN EAM_PROCESS_WO_PUB.eam_op_network_rec_type
268 , x_mesg_token_Tbl OUT NOCOPY EAM_ERROR_MESSAGE_PVT.Mesg_Token_Tbl_Type
269 , x_return_Status OUT NOCOPY VARCHAR2
270 )
271 IS
272 BEGIN
273
274 IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Deleting Operation Networks '|| p_eam_op_network_rec.prior_operation); END IF;
275
276 DELETE FROM WIP_OPERATION_NETWORKS
277 WHERE organization_id = p_eam_op_network_rec.organization_id
278 AND wip_entity_id = p_eam_op_network_rec.wip_entity_id
279 AND prior_operation = p_eam_op_network_rec.prior_operation
280 AND next_operation = p_eam_op_network_rec.next_operation;
281 x_return_status := FND_API.G_RET_STS_SUCCESS;
282
283 END Delete_Row;
284
285
286
287 /*********************************************************************
288 * Procedure : Perform_Writes
289 * Parameters IN : Operation Networks Record
290 * Parameters OUT NOCOPY: Messgae Token Table
291 * Return Status
292 * Purpose : This is the only procedure that the user will have
293 * access to when he/she needs to perform any kind of
294 * writes to the wip_operations.
295 *********************************************************************/
296
297 PROCEDURE Perform_Writes
298 ( p_eam_op_network_rec IN EAM_PROCESS_WO_PUB.eam_op_network_rec_type
299 , x_mesg_token_tbl OUT NOCOPY EAM_ERROR_MESSAGE_PVT.Mesg_Token_Tbl_Type
300 , x_return_status OUT NOCOPY VARCHAR2
301 )
302 IS
303 l_Mesg_Token_tbl EAM_ERROR_MESSAGE_PVT.Mesg_Token_Tbl_Type;
304 l_return_status VARCHAR2(1):= FND_API.G_RET_STS_SUCCESS;
305 BEGIN
306
307 IF p_eam_op_network_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE
308 THEN
309 Insert_Row
310 ( p_eam_op_network_rec => p_eam_op_network_rec
311 , x_mesg_token_Tbl => l_mesg_token_tbl
312 , x_return_Status => l_return_status
313 );
314 ELSIF p_eam_op_network_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_UPDATE
315 THEN
316 Update_Row
317 ( p_eam_op_network_rec => p_eam_op_network_rec
318 , x_mesg_token_Tbl => l_mesg_token_tbl
319 , x_return_Status => l_return_status
320 );
321
322 ELSIF p_eam_op_network_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_DELETE
323 THEN
324 Delete_Row
325 ( p_eam_op_network_rec => p_eam_op_network_rec
326 , x_mesg_token_Tbl => l_mesg_token_tbl
327 , x_return_Status => l_return_status
328 );
329
330 END IF;
331
332 x_return_status := l_return_status;
333 x_mesg_token_tbl := l_mesg_token_tbl;
334
335 END Perform_Writes;
336
337 END EAM_OP_NETWORK_UTILITY_PVT;