1 PACKAGE BODY EAM_OP_NETWORK_DEFAULT_PVT AS
2 /* $Header: EAMVONDB.pls 115.2 2003/05/14 22:57:31 baroy noship $ */
3 /***************************************************************************
4 --
5 -- Copyright (c) 2002 Oracle Corporation, Redwood Shores, CA, USA
6 -- All rights reserved.
7 --
8 -- FILENAME
9 --
10 -- EAMVONDB.pls
11 --
12 -- DESCRIPTION
13 --
14 -- Spec of package EAM_OP_NETWORK_DEFAULT_PVT
15 --
16 -- NOTES
17 --
18 -- HISTORY
19 --
20 -- 30-JUN-2002 Kenichi Nagumo Initial Creation
21 ***************************************************************************/
22 G_PKG_NAME CONSTANT VARCHAR2(30) := 'EAM_OP_NETWORK_DEFAULT_PVT';
23
24
25 /********************************************************************
26 * Procedure : get_flex_eam_op_network
27 * Return : NUMBER
28 **********************************************************************/
29
30
31 PROCEDURE get_flex_eam_mat_op_network
32 ( p_eam_op_network_rec IN EAM_PROCESS_WO_PUB.eam_op_network_rec_type
33 , x_eam_op_network_rec OUT NOCOPY EAM_PROCESS_WO_PUB.eam_op_network_rec_type
34 )
35 IS
36 BEGIN
37
38 -- In the future call Flex APIs for defaults
39 x_eam_op_network_rec := p_eam_op_network_rec;
40
41 IF p_eam_op_network_rec.attribute_category =FND_API.G_MISS_CHAR THEN
42 x_eam_op_network_rec.attribute_category := NULL;
43 END IF;
44
45 IF p_eam_op_network_rec.attribute1 = FND_API.G_MISS_CHAR THEN
46 x_eam_op_network_rec.attribute1 := NULL;
47 END IF;
48
49 IF p_eam_op_network_rec.attribute2 = FND_API.G_MISS_CHAR THEN
50 x_eam_op_network_rec.attribute2 := NULL;
51 END IF;
52
53 IF p_eam_op_network_rec.attribute3 = FND_API.G_MISS_CHAR THEN
54 x_eam_op_network_rec.attribute3 := NULL;
55 END IF;
56
57 IF p_eam_op_network_rec.attribute4 = FND_API.G_MISS_CHAR THEN
58 x_eam_op_network_rec.attribute4 := NULL;
59 END IF;
60
61 IF p_eam_op_network_rec.attribute5 = FND_API.G_MISS_CHAR THEN
62 x_eam_op_network_rec.attribute5 := NULL;
63 END IF;
64
65 IF p_eam_op_network_rec.attribute6 = FND_API.G_MISS_CHAR THEN
66 x_eam_op_network_rec.attribute6 := NULL;
67 END IF;
68
69 IF p_eam_op_network_rec.attribute7 = FND_API.G_MISS_CHAR THEN
70 x_eam_op_network_rec.attribute7 := NULL;
71 END IF;
72
73 IF p_eam_op_network_rec.attribute8 = FND_API.G_MISS_CHAR THEN
74 x_eam_op_network_rec.attribute8 := NULL;
75 END IF;
76
77 IF p_eam_op_network_rec.attribute9 = FND_API.G_MISS_CHAR THEN
78 x_eam_op_network_rec.attribute9 := NULL;
79 END IF;
80
81 IF p_eam_op_network_rec.attribute10 = FND_API.G_MISS_CHAR THEN
82 x_eam_op_network_rec.attribute10 := NULL;
83 END IF;
84
85 IF p_eam_op_network_rec.attribute11 = FND_API.G_MISS_CHAR THEN
86 x_eam_op_network_rec.attribute11 := NULL;
87 END IF;
88
89 IF p_eam_op_network_rec.attribute12 = FND_API.G_MISS_CHAR THEN
90 x_eam_op_network_rec.attribute12 := NULL;
91 END IF;
92
93 IF p_eam_op_network_rec.attribute13 = FND_API.G_MISS_CHAR THEN
94 x_eam_op_network_rec.attribute13 := NULL;
95 END IF;
96
97 IF p_eam_op_network_rec.attribute14 = FND_API.G_MISS_CHAR THEN
98 x_eam_op_network_rec.attribute14 := NULL;
99 END IF;
100
101 IF p_eam_op_network_rec.attribute15 = FND_API.G_MISS_CHAR THEN
102 x_eam_op_network_rec.attribute15 := NULL;
103 END IF;
104
105 END get_flex_eam_mat_op_network;
106
107
108 /*********************************************************************
109 * Procedure : Attribute_Defaulting
110 * Parameters IN : Operation Networks record
111 * Parameters OUT NOCOPY: Operation Networks record after defaulting
112 * Mesg_Token_Table
113 * Return_Status
114 * Purpose : Attribute Defaulting will default the necessary null
115 * attribute with appropriate values.
116 **********************************************************************/
117
118 PROCEDURE Attribute_Defaulting
119 ( p_eam_op_network_rec IN EAM_PROCESS_WO_PUB.eam_op_network_rec_type
120 , x_eam_op_network_rec OUT NOCOPY EAM_PROCESS_WO_PUB.eam_op_network_rec_type
121 , x_mesg_token_tbl OUT NOCOPY EAM_ERROR_MESSAGE_PVT.Mesg_Token_Tbl_Type
122 , x_return_status OUT NOCOPY VARCHAR2
123 )
124 IS
125 l_out_eam_op_network_rec EAM_PROCESS_WO_PUB.eam_op_network_rec_type;
126 BEGIN
127
128 x_eam_op_network_rec := p_eam_op_network_rec;
129 -- x_eam_op_network_rec := p_eam_op_network_rec;
130 x_return_status := FND_API.G_RET_STS_SUCCESS;
131
132 l_out_eam_op_network_rec := x_eam_op_network_rec;
133
134 get_flex_eam_mat_op_network
135 ( p_eam_op_network_rec => x_eam_op_network_rec
136 , x_eam_op_network_rec => l_out_eam_op_network_rec
137 );
138
139 x_eam_op_network_rec := l_out_eam_op_network_rec;
140
141 END Attribute_Defaulting;
142
143
144 /******************************************************************
145 * Procedure : Populate_Null_Columns
146 * Parameters IN : Operation Networks column record
147 * Old Operation Networks Column Record
148 * Parameters OUT NOCOPY: Operation Networks column record after populating
149 * Purpose : This procedure will look at the columns that the user
150 * has not filled in and will assign those columns a
151 * value from the old record.
152 * This procedure is not called for CREATE
153 ********************************************************************/
154 PROCEDURE Populate_Null_Columns
155 ( p_eam_op_network_rec IN EAM_PROCESS_WO_PUB.eam_op_network_rec_type
156 , p_old_eam_op_network_rec IN EAM_PROCESS_WO_PUB.eam_op_network_rec_type
157 , x_eam_op_network_rec OUT NOCOPY EAM_PROCESS_WO_PUB.eam_op_network_rec_type
158 )
159 IS
160 BEGIN
161 x_eam_op_network_rec := p_eam_op_network_rec;
162 -- x_eam_op_network_rec := p_eam_op_network_rec;
163
164 IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Processing null columns prior update'); END IF;
165
166 IF p_eam_op_network_rec.prior_operation IS NULL OR
167 p_eam_op_network_rec.prior_operation = FND_API.G_MISS_NUM
168 THEN
169 x_eam_op_network_rec.prior_operation := p_old_eam_op_network_rec.prior_operation;
170 END IF;
171
172 IF p_eam_op_network_rec.next_operation IS NULL OR
173 p_eam_op_network_rec.next_operation = FND_API.G_MISS_NUM
174 THEN
175 x_eam_op_network_rec.next_operation := p_old_eam_op_network_rec.next_operation;
176 END IF;
177
178 --
179 -- Populate Null or missng flex field columns
180 --
181 IF p_eam_op_network_rec.attribute_category IS NULL OR
182 p_eam_op_network_rec.attribute_category = FND_API.G_MISS_CHAR
183 THEN
184 x_eam_op_network_rec.attribute_category := p_old_eam_op_network_rec.attribute_category;
185
186 END IF;
187
188 IF p_eam_op_network_rec.attribute1 = FND_API.G_MISS_CHAR OR
189 p_eam_op_network_rec.attribute1 IS NULL
190 THEN
191 x_eam_op_network_rec.attribute1 := p_old_eam_op_network_rec.attribute1;
192 END IF;
193
194 IF p_eam_op_network_rec.attribute2 = FND_API.G_MISS_CHAR OR
195 p_eam_op_network_rec.attribute2 IS NULL
196 THEN
197 x_eam_op_network_rec.attribute2 := p_old_eam_op_network_rec.attribute2;
198 END IF;
199
200 IF p_eam_op_network_rec.attribute3 = FND_API.G_MISS_CHAR OR
201 p_eam_op_network_rec.attribute3 IS NULL
202 THEN
203 x_eam_op_network_rec.attribute3 := p_old_eam_op_network_rec.attribute3;
204 END IF;
205
206 IF p_eam_op_network_rec.attribute4 = FND_API.G_MISS_CHAR OR
207 p_eam_op_network_rec.attribute4 IS NULL
208 THEN
209 x_eam_op_network_rec.attribute4 := p_old_eam_op_network_rec.attribute4;
210 END IF;
211
212 IF p_eam_op_network_rec.attribute5 = FND_API.G_MISS_CHAR OR
213 p_eam_op_network_rec.attribute5 IS NULL
214 THEN
215 x_eam_op_network_rec.attribute5 := p_old_eam_op_network_rec.attribute5;
216 END IF;
217
218 IF p_eam_op_network_rec.attribute6 = FND_API.G_MISS_CHAR OR
219 p_eam_op_network_rec.attribute6 IS NULL
220 THEN
221 x_eam_op_network_rec.attribute6 := p_old_eam_op_network_rec.attribute6;
222 END IF;
223
224 IF p_eam_op_network_rec.attribute7 = FND_API.G_MISS_CHAR OR
225 p_eam_op_network_rec.attribute7 IS NULL
226 THEN
227 x_eam_op_network_rec.attribute7 := p_old_eam_op_network_rec.attribute7;
228 END IF;
229
230 IF p_eam_op_network_rec.attribute8 = FND_API.G_MISS_CHAR OR
231 p_eam_op_network_rec.attribute8 IS NULL
232 THEN
233 x_eam_op_network_rec.attribute8 := p_old_eam_op_network_rec.attribute8;
234 END IF;
235
236 IF p_eam_op_network_rec.attribute9 = FND_API.G_MISS_CHAR OR
237 p_eam_op_network_rec.attribute9 IS NULL
238 THEN
239 x_eam_op_network_rec.attribute9 := p_old_eam_op_network_rec.attribute9;
240 END IF;
241
242 IF p_eam_op_network_rec.attribute10 = FND_API.G_MISS_CHAR OR
243 p_eam_op_network_rec.attribute10 IS NULL
244 THEN
245 x_eam_op_network_rec.attribute10 := p_old_eam_op_network_rec.attribute10;
246 END IF;
247
248 IF p_eam_op_network_rec.attribute11 = FND_API.G_MISS_CHAR OR
249 p_eam_op_network_rec.attribute11 IS NULL
250 THEN
251 x_eam_op_network_rec.attribute11 := p_old_eam_op_network_rec.attribute11;
252 END IF;
253
254 IF p_eam_op_network_rec.attribute12 = FND_API.G_MISS_CHAR OR
255 p_eam_op_network_rec.attribute12 IS NULL
256 THEN
257 x_eam_op_network_rec.attribute12 := p_old_eam_op_network_rec.attribute12;
258 END IF;
259
260 IF p_eam_op_network_rec.attribute13 = FND_API.G_MISS_CHAR OR
261 p_eam_op_network_rec.attribute13 IS NULL
262 THEN
263 x_eam_op_network_rec.attribute13 := p_old_eam_op_network_rec.attribute13;
264 END IF;
265
266 IF p_eam_op_network_rec.attribute14 = FND_API.G_MISS_CHAR OR
267 p_eam_op_network_rec.attribute14 IS NULL
268 THEN
269 x_eam_op_network_rec.attribute14 := p_old_eam_op_network_rec.attribute14;
270 END IF;
271
272 IF p_eam_op_network_rec.attribute15 = FND_API.G_MISS_CHAR OR
273 p_eam_op_network_rec.attribute15 IS NULL
274 THEN
275 x_eam_op_network_rec.attribute15 := p_old_eam_op_network_rec.attribute15;
276 END IF;
277
278
279 IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Done processing null columns prior update'); END IF;
280
281
282 END Populate_Null_Columns;
283
284 END EAM_OP_NETWORK_DEFAULT_PVT;