[Home] [Help]
24: l_return_status VARCHAR2(1);
25: l_msg_data VARCHAR2(2000);
26:
27: BEGIN
28: x_return_status := FND_API.G_RET_STS_SUCCESS;
29:
30: -- Validate DML Operation
31: IF ( p_operation_rec.dml_operation <> 'C' AND
32: p_operation_rec.dml_operation <> 'U' ) THEN
32: p_operation_rec.dml_operation <> 'U' ) THEN
33: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_INVALID_DML_REC' );
34: FND_MESSAGE.set_token( 'FIELD', p_operation_rec.dml_operation );
35: FND_MSG_PUB.add;
36: x_return_status := FND_API.G_RET_STS_ERROR;
37: END IF;
38:
39: END validate_api_inputs;
40:
48: BEGIN
49:
50: IF ( p_x_operation_rec.process IS NULL ) THEN
51: p_x_operation_rec.process_code := NULL;
52: ELSIF ( p_x_operation_rec.process = FND_API.G_MISS_CHAR ) THEN
53: p_x_operation_rec.process_code := FND_API.G_MISS_CHAR;
54: END IF;
55: --bachandr Enigma Phase I changes -- start
56: IF ( p_x_operation_rec.model_meaning IS NULL ) THEN
49:
50: IF ( p_x_operation_rec.process IS NULL ) THEN
51: p_x_operation_rec.process_code := NULL;
52: ELSIF ( p_x_operation_rec.process = FND_API.G_MISS_CHAR ) THEN
53: p_x_operation_rec.process_code := FND_API.G_MISS_CHAR;
54: END IF;
55: --bachandr Enigma Phase I changes -- start
56: IF ( p_x_operation_rec.model_meaning IS NULL ) THEN
57: p_x_operation_rec.model_code := NULL;
54: END IF;
55: --bachandr Enigma Phase I changes -- start
56: IF ( p_x_operation_rec.model_meaning IS NULL ) THEN
57: p_x_operation_rec.model_code := NULL;
58: ELSIF ( p_x_operation_rec.model_meaning = FND_API.G_MISS_CHAR ) THEN
59: p_x_operation_rec.model_code := FND_API.G_MISS_CHAR;
60: END IF;
61: --bachandr Enigma Phase I changes -- end
62: IF ( p_x_operation_rec.qa_inspection_type_desc IS NULL ) THEN
55: --bachandr Enigma Phase I changes -- start
56: IF ( p_x_operation_rec.model_meaning IS NULL ) THEN
57: p_x_operation_rec.model_code := NULL;
58: ELSIF ( p_x_operation_rec.model_meaning = FND_API.G_MISS_CHAR ) THEN
59: p_x_operation_rec.model_code := FND_API.G_MISS_CHAR;
60: END IF;
61: --bachandr Enigma Phase I changes -- end
62: IF ( p_x_operation_rec.qa_inspection_type_desc IS NULL ) THEN
63: p_x_operation_rec.qa_inspection_type := NULL;
60: END IF;
61: --bachandr Enigma Phase I changes -- end
62: IF ( p_x_operation_rec.qa_inspection_type_desc IS NULL ) THEN
63: p_x_operation_rec.qa_inspection_type := NULL;
64: ELSIF ( p_x_operation_rec.qa_inspection_type_desc = FND_API.G_MISS_CHAR ) THEN
65: p_x_operation_rec.qa_inspection_type := FND_API.G_MISS_CHAR;
66: END IF;
67:
68: END clear_lov_attribute_ids;
61: --bachandr Enigma Phase I changes -- end
62: IF ( p_x_operation_rec.qa_inspection_type_desc IS NULL ) THEN
63: p_x_operation_rec.qa_inspection_type := NULL;
64: ELSIF ( p_x_operation_rec.qa_inspection_type_desc = FND_API.G_MISS_CHAR ) THEN
65: p_x_operation_rec.qa_inspection_type := FND_API.G_MISS_CHAR;
66: END IF;
67:
68: END clear_lov_attribute_ids;
69:
78: l_return_status VARCHAR2(1);
79: l_msg_data VARCHAR2(2000);
80:
81: BEGIN
82: x_return_status := FND_API.G_RET_STS_SUCCESS;
83:
84: -- Convert / Validate Operation Type
85: IF ( ( p_x_operation_rec.operation_type_code IS NOT NULL AND
86: p_x_operation_rec.operation_type_code <> FND_API.G_MISS_CHAR ) OR
82: x_return_status := FND_API.G_RET_STS_SUCCESS;
83:
84: -- Convert / Validate Operation Type
85: IF ( ( p_x_operation_rec.operation_type_code IS NOT NULL AND
86: p_x_operation_rec.operation_type_code <> FND_API.G_MISS_CHAR ) OR
87: ( p_x_operation_rec.operation_type IS NOT NULL AND
88: p_x_operation_rec.operation_type <> FND_API.G_MISS_CHAR ) ) THEN
89:
90: AHL_RM_ROUTE_UTIL.validate_lookup
84: -- Convert / Validate Operation Type
85: IF ( ( p_x_operation_rec.operation_type_code IS NOT NULL AND
86: p_x_operation_rec.operation_type_code <> FND_API.G_MISS_CHAR ) OR
87: ( p_x_operation_rec.operation_type IS NOT NULL AND
88: p_x_operation_rec.operation_type <> FND_API.G_MISS_CHAR ) ) THEN
89:
90: AHL_RM_ROUTE_UTIL.validate_lookup
91: (
92: x_return_status => l_return_status,
95: p_lookup_meaning => p_x_operation_rec.operation_type,
96: p_x_lookup_code => p_x_operation_rec.operation_type_code
97: );
98:
99: IF ( NVL( l_return_status, 'X' ) <> FND_API.G_RET_STS_SUCCESS ) THEN
100: IF ( l_msg_data = 'AHL_COM_INVALID_LOOKUP' ) THEN
101: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_INVALID_OPER_TYPE' );
102: ELSIF ( l_msg_data = 'AHL_COM_TOO_MANY_LOOKUPS' ) THEN
103: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_TOO_MANY_OPER_TYPES' );
105: FND_MESSAGE.set_name( 'AHL', l_msg_data );
106: END IF;
107:
108: IF ( p_x_operation_rec.operation_type IS NULL OR
109: p_x_operation_rec.operation_type = FND_API.G_MISS_CHAR ) THEN
110: FND_MESSAGE.set_token( 'FIELD', p_x_operation_rec.operation_type_code );
111: ELSE
112: FND_MESSAGE.set_token( 'FIELD', p_x_operation_rec.operation_type );
113: END IF;
118: END IF;
119:
120: -- Convert / Validate Process
121: IF ( ( p_x_operation_rec.process_code IS NOT NULL AND
122: p_x_operation_rec.process_code <> FND_API.G_MISS_CHAR ) OR
123: ( p_x_operation_rec.process IS NOT NULL AND
124: p_x_operation_rec.process <> FND_API.G_MISS_CHAR ) ) THEN
125:
126: AHL_RM_ROUTE_UTIL.validate_lookup
120: -- Convert / Validate Process
121: IF ( ( p_x_operation_rec.process_code IS NOT NULL AND
122: p_x_operation_rec.process_code <> FND_API.G_MISS_CHAR ) OR
123: ( p_x_operation_rec.process IS NOT NULL AND
124: p_x_operation_rec.process <> FND_API.G_MISS_CHAR ) ) THEN
125:
126: AHL_RM_ROUTE_UTIL.validate_lookup
127: (
128: x_return_status => l_return_status,
131: p_lookup_meaning => p_x_operation_rec.process,
132: p_x_lookup_code => p_x_operation_rec.process_code
133: );
134:
135: IF ( NVL( l_return_status, 'X' ) <> FND_API.G_RET_STS_SUCCESS ) THEN
136: IF ( l_msg_data = 'AHL_COM_INVALID_LOOKUP' ) THEN
137: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_INVALID_PROCESS' );
138: ELSIF ( l_msg_data = 'AHL_COM_TOO_MANY_LOOKUPS' ) THEN
139: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_TOO_MANY_PROCESSES' );
141: FND_MESSAGE.set_name( 'AHL', l_msg_data );
142: END IF;
143:
144: IF ( p_x_operation_rec.process IS NULL OR
145: p_x_operation_rec.process = FND_API.G_MISS_CHAR ) THEN
146: FND_MESSAGE.set_token( 'FIELD', p_x_operation_rec.process_code );
147: ELSE
148: FND_MESSAGE.set_token( 'FIELD', p_x_operation_rec.process );
149: END IF;
154: END IF;
155: --bachandr Enigma Phase I changes -- start
156: -- Convert / Validate Model
157: IF ( ( p_x_operation_rec.model_code IS NOT NULL AND
158: p_x_operation_rec.model_code <> FND_API.G_MISS_CHAR ) OR
159: ( p_x_operation_rec.model_meaning IS NOT NULL AND
160: p_x_operation_rec.model_meaning <> FND_API.G_MISS_CHAR ) ) THEN
161:
162: AHL_RM_ROUTE_UTIL.validate_lookup
156: -- Convert / Validate Model
157: IF ( ( p_x_operation_rec.model_code IS NOT NULL AND
158: p_x_operation_rec.model_code <> FND_API.G_MISS_CHAR ) OR
159: ( p_x_operation_rec.model_meaning IS NOT NULL AND
160: p_x_operation_rec.model_meaning <> FND_API.G_MISS_CHAR ) ) THEN
161:
162: AHL_RM_ROUTE_UTIL.validate_lookup
163: (
164: x_return_status => l_return_status,
167: p_lookup_meaning => p_x_operation_rec.model_meaning,
168: p_x_lookup_code => p_x_operation_rec.model_code
169: );
170:
171: IF ( NVL( l_return_status, 'X' ) <> FND_API.G_RET_STS_SUCCESS ) THEN
172: IF ( l_msg_data = 'AHL_COM_INVALID_LOOKUP' ) THEN
173: FND_MESSAGE.set_name( 'AHL', 'AHL_CM_INVALID_MODEL' );
174: ELSIF ( l_msg_data = 'AHL_COM_TOO_MANY_LOOKUPS' ) THEN
175: FND_MESSAGE.set_name( 'AHL', 'AHL_CM_TOO_MANY_MODELS' );
177: FND_MESSAGE.set_name( 'AHL', l_msg_data );
178: END IF;
179:
180: IF ( p_x_operation_rec.model_meaning IS NULL OR
181: p_x_operation_rec.model_meaning = FND_API.G_MISS_CHAR ) THEN
182: FND_MESSAGE.set_token( 'FIELD', p_x_operation_rec.model_code );
183: ELSE
184: FND_MESSAGE.set_token( 'FIELD', p_x_operation_rec.model_meaning );
185: END IF;
190: END IF;
191: --bachandr Enigma Phase I changes -- end
192: -- Convert / Validate QA Plan
193: IF ( ( p_x_operation_rec.qa_inspection_type_desc IS NOT NULL AND
194: p_x_operation_rec.qa_inspection_type_desc <> FND_API.G_MISS_CHAR ) OR
195: ( p_x_operation_rec.qa_inspection_type IS NOT NULL AND
196: p_x_operation_rec.qa_inspection_type <> FND_API.G_MISS_CHAR ) ) THEN
197:
198: AHL_RM_ROUTE_UTIL.validate_qa_inspection_type
192: -- Convert / Validate QA Plan
193: IF ( ( p_x_operation_rec.qa_inspection_type_desc IS NOT NULL AND
194: p_x_operation_rec.qa_inspection_type_desc <> FND_API.G_MISS_CHAR ) OR
195: ( p_x_operation_rec.qa_inspection_type IS NOT NULL AND
196: p_x_operation_rec.qa_inspection_type <> FND_API.G_MISS_CHAR ) ) THEN
197:
198: AHL_RM_ROUTE_UTIL.validate_qa_inspection_type
199: (
200: x_return_status => l_return_status,
202: p_qa_inspection_type_desc => p_x_operation_rec.qa_inspection_type_desc,
203: p_x_qa_inspection_type => p_x_operation_rec.qa_inspection_type
204: );
205:
206: IF ( NVL( l_return_status, 'X' ) <> FND_API.G_RET_STS_SUCCESS ) THEN
207: FND_MESSAGE.set_name( 'AHL', l_msg_data );
208:
209: IF ( p_x_operation_rec.qa_inspection_type_desc IS NULL OR
210: p_x_operation_rec.qa_inspection_type_desc = FND_API.G_MISS_CHAR ) THEN
206: IF ( NVL( l_return_status, 'X' ) <> FND_API.G_RET_STS_SUCCESS ) THEN
207: FND_MESSAGE.set_name( 'AHL', l_msg_data );
208:
209: IF ( p_x_operation_rec.qa_inspection_type_desc IS NULL OR
210: p_x_operation_rec.qa_inspection_type_desc = FND_API.G_MISS_CHAR ) THEN
211: FND_MESSAGE.set_token( 'FIELD', p_x_operation_rec.qa_inspection_type );
212: ELSE
213: FND_MESSAGE.set_token( 'FIELD', p_x_operation_rec.qa_inspection_type_desc );
214: END IF;
219: END IF;
220:
221: -- Convert / Validate Revision Status
222: IF ( ( p_x_operation_rec.revision_status_code IS NOT NULL AND
223: p_x_operation_rec.revision_status_code <> FND_API.G_MISS_CHAR ) OR
224: ( p_x_operation_rec.revision_status IS NOT NULL AND
225: p_x_operation_rec.revision_status <> FND_API.G_MISS_CHAR ) ) THEN
226:
227: AHL_RM_ROUTE_UTIL.validate_lookup
221: -- Convert / Validate Revision Status
222: IF ( ( p_x_operation_rec.revision_status_code IS NOT NULL AND
223: p_x_operation_rec.revision_status_code <> FND_API.G_MISS_CHAR ) OR
224: ( p_x_operation_rec.revision_status IS NOT NULL AND
225: p_x_operation_rec.revision_status <> FND_API.G_MISS_CHAR ) ) THEN
226:
227: AHL_RM_ROUTE_UTIL.validate_lookup
228: (
229: x_return_status => l_return_status,
232: p_lookup_meaning => p_x_operation_rec.revision_status,
233: p_x_lookup_code => p_x_operation_rec.revision_status_code
234: );
235:
236: IF ( NVL( l_return_status, 'X' ) <> FND_API.G_RET_STS_SUCCESS ) THEN
237: IF ( l_msg_data = 'AHL_COM_INVALID_LOOKUP' ) THEN
238: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_INVALID_STATUS' );
239: ELSIF ( l_msg_data = 'AHL_COM_TOO_MANY_LOOKUPS' ) THEN
240: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_TOO_MANY_STATUSES' );
242: FND_MESSAGE.set_name( 'AHL', l_msg_data );
243: END IF;
244:
245: IF ( p_x_operation_rec.revision_status IS NULL OR
246: p_x_operation_rec.revision_status = FND_API.G_MISS_CHAR ) THEN
247: FND_MESSAGE.set_token( 'FIELD', p_x_operation_rec.revision_status_code );
248: ELSE
249: FND_MESSAGE.set_token( 'FIELD', p_x_operation_rec.revision_status );
250: END IF;
266:
267: BEGIN
268:
269: -- Convert G_MISS values to NULL
270: IF ( p_x_operation_rec.operation_type_code = FND_API.G_MISS_CHAR ) THEN
271: p_x_operation_rec.operation_type_code := null;
272: END IF;
273:
274: IF ( p_x_operation_rec.operation_type = FND_API.G_MISS_CHAR ) THEN
270: IF ( p_x_operation_rec.operation_type_code = FND_API.G_MISS_CHAR ) THEN
271: p_x_operation_rec.operation_type_code := null;
272: END IF;
273:
274: IF ( p_x_operation_rec.operation_type = FND_API.G_MISS_CHAR ) THEN
275: p_x_operation_rec.operation_type := null;
276: END IF;
277:
278: IF ( p_x_operation_rec.process_code = FND_API.G_MISS_CHAR ) THEN
274: IF ( p_x_operation_rec.operation_type = FND_API.G_MISS_CHAR ) THEN
275: p_x_operation_rec.operation_type := null;
276: END IF;
277:
278: IF ( p_x_operation_rec.process_code = FND_API.G_MISS_CHAR ) THEN
279: p_x_operation_rec.process_code := null;
280: END IF;
281:
282: IF ( p_x_operation_rec.process = FND_API.G_MISS_CHAR ) THEN
278: IF ( p_x_operation_rec.process_code = FND_API.G_MISS_CHAR ) THEN
279: p_x_operation_rec.process_code := null;
280: END IF;
281:
282: IF ( p_x_operation_rec.process = FND_API.G_MISS_CHAR ) THEN
283: p_x_operation_rec.process := null;
284: END IF;
285: --bachandr Enigma Phase I changes -- start
286: IF ( p_x_operation_rec.model_code = FND_API.G_MISS_CHAR ) THEN
282: IF ( p_x_operation_rec.process = FND_API.G_MISS_CHAR ) THEN
283: p_x_operation_rec.process := null;
284: END IF;
285: --bachandr Enigma Phase I changes -- start
286: IF ( p_x_operation_rec.model_code = FND_API.G_MISS_CHAR ) THEN
287: p_x_operation_rec.model_code := null;
288: END IF;
289:
290: IF ( p_x_operation_rec.model_meaning = FND_API.G_MISS_CHAR ) THEN
286: IF ( p_x_operation_rec.model_code = FND_API.G_MISS_CHAR ) THEN
287: p_x_operation_rec.model_code := null;
288: END IF;
289:
290: IF ( p_x_operation_rec.model_meaning = FND_API.G_MISS_CHAR ) THEN
291: p_x_operation_rec.model_meaning := null;
292: END IF;
293:
294: IF ( p_x_operation_rec.enigma_op_id = FND_API.G_MISS_CHAR ) THEN
290: IF ( p_x_operation_rec.model_meaning = FND_API.G_MISS_CHAR ) THEN
291: p_x_operation_rec.model_meaning := null;
292: END IF;
293:
294: IF ( p_x_operation_rec.enigma_op_id = FND_API.G_MISS_CHAR ) THEN
295: p_x_operation_rec.enigma_op_id := null;
296: END IF;
297: --bachandr Enigma Phase I changes -- end
298: IF ( p_x_operation_rec.qa_inspection_type = FND_API.G_MISS_CHAR ) THEN
294: IF ( p_x_operation_rec.enigma_op_id = FND_API.G_MISS_CHAR ) THEN
295: p_x_operation_rec.enigma_op_id := null;
296: END IF;
297: --bachandr Enigma Phase I changes -- end
298: IF ( p_x_operation_rec.qa_inspection_type = FND_API.G_MISS_CHAR ) THEN
299: p_x_operation_rec.qa_inspection_type := null;
300: END IF;
301:
302: IF ( p_x_operation_rec.qa_inspection_type_desc = FND_API.G_MISS_CHAR ) THEN
298: IF ( p_x_operation_rec.qa_inspection_type = FND_API.G_MISS_CHAR ) THEN
299: p_x_operation_rec.qa_inspection_type := null;
300: END IF;
301:
302: IF ( p_x_operation_rec.qa_inspection_type_desc = FND_API.G_MISS_CHAR ) THEN
303: p_x_operation_rec.qa_inspection_type_desc := null;
304: END IF;
305:
306: IF ( p_x_operation_rec.remarks = FND_API.G_MISS_CHAR ) THEN
302: IF ( p_x_operation_rec.qa_inspection_type_desc = FND_API.G_MISS_CHAR ) THEN
303: p_x_operation_rec.qa_inspection_type_desc := null;
304: END IF;
305:
306: IF ( p_x_operation_rec.remarks = FND_API.G_MISS_CHAR ) THEN
307: p_x_operation_rec.remarks := null;
308: END IF;
309:
310: IF ( p_x_operation_rec.revision_notes = FND_API.G_MISS_CHAR ) THEN
306: IF ( p_x_operation_rec.remarks = FND_API.G_MISS_CHAR ) THEN
307: p_x_operation_rec.remarks := null;
308: END IF;
309:
310: IF ( p_x_operation_rec.revision_notes = FND_API.G_MISS_CHAR ) THEN
311: p_x_operation_rec.revision_notes := null;
312: END IF;
313:
314: IF ( p_x_operation_rec.segment1 = FND_API.G_MISS_CHAR ) THEN
310: IF ( p_x_operation_rec.revision_notes = FND_API.G_MISS_CHAR ) THEN
311: p_x_operation_rec.revision_notes := null;
312: END IF;
313:
314: IF ( p_x_operation_rec.segment1 = FND_API.G_MISS_CHAR ) THEN
315: p_x_operation_rec.segment1 := null;
316: END IF;
317:
318: IF ( p_x_operation_rec.segment2 = FND_API.G_MISS_CHAR ) THEN
314: IF ( p_x_operation_rec.segment1 = FND_API.G_MISS_CHAR ) THEN
315: p_x_operation_rec.segment1 := null;
316: END IF;
317:
318: IF ( p_x_operation_rec.segment2 = FND_API.G_MISS_CHAR ) THEN
319: p_x_operation_rec.segment2 := null;
320: END IF;
321:
322: IF ( p_x_operation_rec.segment3 = FND_API.G_MISS_CHAR ) THEN
318: IF ( p_x_operation_rec.segment2 = FND_API.G_MISS_CHAR ) THEN
319: p_x_operation_rec.segment2 := null;
320: END IF;
321:
322: IF ( p_x_operation_rec.segment3 = FND_API.G_MISS_CHAR ) THEN
323: p_x_operation_rec.segment3 := null;
324: END IF;
325:
326: IF ( p_x_operation_rec.segment4 = FND_API.G_MISS_CHAR ) THEN
322: IF ( p_x_operation_rec.segment3 = FND_API.G_MISS_CHAR ) THEN
323: p_x_operation_rec.segment3 := null;
324: END IF;
325:
326: IF ( p_x_operation_rec.segment4 = FND_API.G_MISS_CHAR ) THEN
327: p_x_operation_rec.segment4 := null;
328: END IF;
329:
330: IF ( p_x_operation_rec.segment5 = FND_API.G_MISS_CHAR ) THEN
326: IF ( p_x_operation_rec.segment4 = FND_API.G_MISS_CHAR ) THEN
327: p_x_operation_rec.segment4 := null;
328: END IF;
329:
330: IF ( p_x_operation_rec.segment5 = FND_API.G_MISS_CHAR ) THEN
331: p_x_operation_rec.segment5 := null;
332: END IF;
333:
334: IF ( p_x_operation_rec.segment6 = FND_API.G_MISS_CHAR ) THEN
330: IF ( p_x_operation_rec.segment5 = FND_API.G_MISS_CHAR ) THEN
331: p_x_operation_rec.segment5 := null;
332: END IF;
333:
334: IF ( p_x_operation_rec.segment6 = FND_API.G_MISS_CHAR ) THEN
335: p_x_operation_rec.segment6 := null;
336: END IF;
337:
338: IF ( p_x_operation_rec.segment7 = FND_API.G_MISS_CHAR ) THEN
334: IF ( p_x_operation_rec.segment6 = FND_API.G_MISS_CHAR ) THEN
335: p_x_operation_rec.segment6 := null;
336: END IF;
337:
338: IF ( p_x_operation_rec.segment7 = FND_API.G_MISS_CHAR ) THEN
339: p_x_operation_rec.segment7 := null;
340: END IF;
341:
342: IF ( p_x_operation_rec.segment8 = FND_API.G_MISS_CHAR ) THEN
338: IF ( p_x_operation_rec.segment7 = FND_API.G_MISS_CHAR ) THEN
339: p_x_operation_rec.segment7 := null;
340: END IF;
341:
342: IF ( p_x_operation_rec.segment8 = FND_API.G_MISS_CHAR ) THEN
343: p_x_operation_rec.segment8 := null;
344: END IF;
345:
346: IF ( p_x_operation_rec.segment9 = FND_API.G_MISS_CHAR ) THEN
342: IF ( p_x_operation_rec.segment8 = FND_API.G_MISS_CHAR ) THEN
343: p_x_operation_rec.segment8 := null;
344: END IF;
345:
346: IF ( p_x_operation_rec.segment9 = FND_API.G_MISS_CHAR ) THEN
347: p_x_operation_rec.segment9 := null;
348: END IF;
349:
350: IF ( p_x_operation_rec.segment10 = FND_API.G_MISS_CHAR ) THEN
346: IF ( p_x_operation_rec.segment9 = FND_API.G_MISS_CHAR ) THEN
347: p_x_operation_rec.segment9 := null;
348: END IF;
349:
350: IF ( p_x_operation_rec.segment10 = FND_API.G_MISS_CHAR ) THEN
351: p_x_operation_rec.segment10 := null;
352: END IF;
353:
354: IF ( p_x_operation_rec.segment11 = FND_API.G_MISS_CHAR ) THEN
350: IF ( p_x_operation_rec.segment10 = FND_API.G_MISS_CHAR ) THEN
351: p_x_operation_rec.segment10 := null;
352: END IF;
353:
354: IF ( p_x_operation_rec.segment11 = FND_API.G_MISS_CHAR ) THEN
355: p_x_operation_rec.segment11 := null;
356: END IF;
357:
358: IF ( p_x_operation_rec.segment12 = FND_API.G_MISS_CHAR ) THEN
354: IF ( p_x_operation_rec.segment11 = FND_API.G_MISS_CHAR ) THEN
355: p_x_operation_rec.segment11 := null;
356: END IF;
357:
358: IF ( p_x_operation_rec.segment12 = FND_API.G_MISS_CHAR ) THEN
359: p_x_operation_rec.segment12 := null;
360: END IF;
361:
362: IF ( p_x_operation_rec.segment13 = FND_API.G_MISS_CHAR ) THEN
358: IF ( p_x_operation_rec.segment12 = FND_API.G_MISS_CHAR ) THEN
359: p_x_operation_rec.segment12 := null;
360: END IF;
361:
362: IF ( p_x_operation_rec.segment13 = FND_API.G_MISS_CHAR ) THEN
363: p_x_operation_rec.segment13 := null;
364: END IF;
365:
366: IF ( p_x_operation_rec.segment14 = FND_API.G_MISS_CHAR ) THEN
362: IF ( p_x_operation_rec.segment13 = FND_API.G_MISS_CHAR ) THEN
363: p_x_operation_rec.segment13 := null;
364: END IF;
365:
366: IF ( p_x_operation_rec.segment14 = FND_API.G_MISS_CHAR ) THEN
367: p_x_operation_rec.segment14 := null;
368: END IF;
369:
370: IF ( p_x_operation_rec.segment15 = FND_API.G_MISS_CHAR ) THEN
366: IF ( p_x_operation_rec.segment14 = FND_API.G_MISS_CHAR ) THEN
367: p_x_operation_rec.segment14 := null;
368: END IF;
369:
370: IF ( p_x_operation_rec.segment15 = FND_API.G_MISS_CHAR ) THEN
371: p_x_operation_rec.segment15 := null;
372: END IF;
373:
374: IF ( p_x_operation_rec.attribute_category = FND_API.G_MISS_CHAR ) THEN
370: IF ( p_x_operation_rec.segment15 = FND_API.G_MISS_CHAR ) THEN
371: p_x_operation_rec.segment15 := null;
372: END IF;
373:
374: IF ( p_x_operation_rec.attribute_category = FND_API.G_MISS_CHAR ) THEN
375: p_x_operation_rec.attribute_category := null;
376: END IF;
377:
378: IF ( p_x_operation_rec.attribute1 = FND_API.G_MISS_CHAR ) THEN
374: IF ( p_x_operation_rec.attribute_category = FND_API.G_MISS_CHAR ) THEN
375: p_x_operation_rec.attribute_category := null;
376: END IF;
377:
378: IF ( p_x_operation_rec.attribute1 = FND_API.G_MISS_CHAR ) THEN
379: p_x_operation_rec.attribute1 := null;
380: END IF;
381:
382: IF ( p_x_operation_rec.attribute2 = FND_API.G_MISS_CHAR ) THEN
378: IF ( p_x_operation_rec.attribute1 = FND_API.G_MISS_CHAR ) THEN
379: p_x_operation_rec.attribute1 := null;
380: END IF;
381:
382: IF ( p_x_operation_rec.attribute2 = FND_API.G_MISS_CHAR ) THEN
383: p_x_operation_rec.attribute2 := null;
384: END IF;
385:
386: IF ( p_x_operation_rec.attribute3 = FND_API.G_MISS_CHAR ) THEN
382: IF ( p_x_operation_rec.attribute2 = FND_API.G_MISS_CHAR ) THEN
383: p_x_operation_rec.attribute2 := null;
384: END IF;
385:
386: IF ( p_x_operation_rec.attribute3 = FND_API.G_MISS_CHAR ) THEN
387: p_x_operation_rec.attribute3 := null;
388: END IF;
389:
390: IF ( p_x_operation_rec.attribute4 = FND_API.G_MISS_CHAR ) THEN
386: IF ( p_x_operation_rec.attribute3 = FND_API.G_MISS_CHAR ) THEN
387: p_x_operation_rec.attribute3 := null;
388: END IF;
389:
390: IF ( p_x_operation_rec.attribute4 = FND_API.G_MISS_CHAR ) THEN
391: p_x_operation_rec.attribute4 := null;
392: END IF;
393:
394: IF ( p_x_operation_rec.attribute5 = FND_API.G_MISS_CHAR ) THEN
390: IF ( p_x_operation_rec.attribute4 = FND_API.G_MISS_CHAR ) THEN
391: p_x_operation_rec.attribute4 := null;
392: END IF;
393:
394: IF ( p_x_operation_rec.attribute5 = FND_API.G_MISS_CHAR ) THEN
395: p_x_operation_rec.attribute5 := null;
396: END IF;
397:
398: IF ( p_x_operation_rec.attribute6 = FND_API.G_MISS_CHAR ) THEN
394: IF ( p_x_operation_rec.attribute5 = FND_API.G_MISS_CHAR ) THEN
395: p_x_operation_rec.attribute5 := null;
396: END IF;
397:
398: IF ( p_x_operation_rec.attribute6 = FND_API.G_MISS_CHAR ) THEN
399: p_x_operation_rec.attribute6 := null;
400: END IF;
401:
402: IF ( p_x_operation_rec.attribute7 = FND_API.G_MISS_CHAR ) THEN
398: IF ( p_x_operation_rec.attribute6 = FND_API.G_MISS_CHAR ) THEN
399: p_x_operation_rec.attribute6 := null;
400: END IF;
401:
402: IF ( p_x_operation_rec.attribute7 = FND_API.G_MISS_CHAR ) THEN
403: p_x_operation_rec.attribute7 := null;
404: END IF;
405:
406: IF ( p_x_operation_rec.attribute8 = FND_API.G_MISS_CHAR ) THEN
402: IF ( p_x_operation_rec.attribute7 = FND_API.G_MISS_CHAR ) THEN
403: p_x_operation_rec.attribute7 := null;
404: END IF;
405:
406: IF ( p_x_operation_rec.attribute8 = FND_API.G_MISS_CHAR ) THEN
407: p_x_operation_rec.attribute8 := null;
408: END IF;
409:
410: IF ( p_x_operation_rec.attribute9 = FND_API.G_MISS_CHAR ) THEN
406: IF ( p_x_operation_rec.attribute8 = FND_API.G_MISS_CHAR ) THEN
407: p_x_operation_rec.attribute8 := null;
408: END IF;
409:
410: IF ( p_x_operation_rec.attribute9 = FND_API.G_MISS_CHAR ) THEN
411: p_x_operation_rec.attribute9 := null;
412: END IF;
413:
414: IF ( p_x_operation_rec.attribute10 = FND_API.G_MISS_CHAR ) THEN
410: IF ( p_x_operation_rec.attribute9 = FND_API.G_MISS_CHAR ) THEN
411: p_x_operation_rec.attribute9 := null;
412: END IF;
413:
414: IF ( p_x_operation_rec.attribute10 = FND_API.G_MISS_CHAR ) THEN
415: p_x_operation_rec.attribute10 := null;
416: END IF;
417:
418: IF ( p_x_operation_rec.attribute11 = FND_API.G_MISS_CHAR ) THEN
414: IF ( p_x_operation_rec.attribute10 = FND_API.G_MISS_CHAR ) THEN
415: p_x_operation_rec.attribute10 := null;
416: END IF;
417:
418: IF ( p_x_operation_rec.attribute11 = FND_API.G_MISS_CHAR ) THEN
419: p_x_operation_rec.attribute11 := null;
420: END IF;
421:
422: IF ( p_x_operation_rec.attribute12 = FND_API.G_MISS_CHAR ) THEN
418: IF ( p_x_operation_rec.attribute11 = FND_API.G_MISS_CHAR ) THEN
419: p_x_operation_rec.attribute11 := null;
420: END IF;
421:
422: IF ( p_x_operation_rec.attribute12 = FND_API.G_MISS_CHAR ) THEN
423: p_x_operation_rec.attribute12 := null;
424: END IF;
425:
426: IF ( p_x_operation_rec.attribute13 = FND_API.G_MISS_CHAR ) THEN
422: IF ( p_x_operation_rec.attribute12 = FND_API.G_MISS_CHAR ) THEN
423: p_x_operation_rec.attribute12 := null;
424: END IF;
425:
426: IF ( p_x_operation_rec.attribute13 = FND_API.G_MISS_CHAR ) THEN
427: p_x_operation_rec.attribute13 := null;
428: END IF;
429:
430: IF ( p_x_operation_rec.attribute14 = FND_API.G_MISS_CHAR ) THEN
426: IF ( p_x_operation_rec.attribute13 = FND_API.G_MISS_CHAR ) THEN
427: p_x_operation_rec.attribute13 := null;
428: END IF;
429:
430: IF ( p_x_operation_rec.attribute14 = FND_API.G_MISS_CHAR ) THEN
431: p_x_operation_rec.attribute14 := null;
432: END IF;
433:
434: IF ( p_x_operation_rec.attribute15 = FND_API.G_MISS_CHAR ) THEN
430: IF ( p_x_operation_rec.attribute14 = FND_API.G_MISS_CHAR ) THEN
431: p_x_operation_rec.attribute14 := null;
432: END IF;
433:
434: IF ( p_x_operation_rec.attribute15 = FND_API.G_MISS_CHAR ) THEN
435: p_x_operation_rec.attribute15 := null;
436: END IF;
437:
438: END default_missing_attributes;
506: FROM AHL_OPERATIONS_V
507: WHERE operation_id = c_operation_id;
508:
509: BEGIN
510: x_return_status := FND_API.G_RET_STS_SUCCESS;
511:
512: -- Get the old record from AHL_OPERATIONS_V.
513: OPEN get_old_rec( p_operation_id );
514:
568: x_operation_rec.attribute15;
569:
570: IF ( get_old_rec%NOTFOUND ) THEN
571: x_msg_data := 'AHL_RM_INVALID_OPERATION';
572: x_return_status := FND_API.G_RET_STS_ERROR;
573: END IF;
574:
575: IF ( x_operation_rec.object_version_number <> p_object_version_number ) THEN
576: x_msg_data := 'AHL_COM_RECORD_CHANGED';
573: END IF;
574:
575: IF ( x_operation_rec.object_version_number <> p_object_version_number ) THEN
576: x_msg_data := 'AHL_COM_RECORD_CHANGED';
577: x_return_status := FND_API.G_RET_STS_ERROR;
578: END IF;
579:
580: CLOSE get_old_rec;
581:
603: p_object_version_number => p_x_operation_rec.object_version_number,
604: x_operation_rec => l_old_operation_rec
605: );
606:
607: IF ( NVL( l_return_status, 'X' ) <> FND_API.G_RET_STS_SUCCESS ) THEN
608: FND_MESSAGE.set_name( 'AHL', l_msg_data );
609: FND_MSG_PUB.add;
610: RAISE FND_API.G_EXC_ERROR;
611: END IF;
606:
607: IF ( NVL( l_return_status, 'X' ) <> FND_API.G_RET_STS_SUCCESS ) THEN
608: FND_MESSAGE.set_name( 'AHL', l_msg_data );
609: FND_MSG_PUB.add;
610: RAISE FND_API.G_EXC_ERROR;
611: END IF;
612:
613: -- Convert G_MISS values to NULL and NULL values to Old values
614:
687: IF ( l_read_only_flag = 'Y' ) THEN
688: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_END_DATE_RO' );
689: FND_MSG_PUB.add;
690: ELSE
691: IF ( p_x_operation_rec.active_end_date = FND_API.G_MISS_DATE ) THEN
692: p_x_operation_rec.active_end_date := null;
693: END IF;
694: END IF;
695: END IF;
700: IF ( l_read_only_flag = 'Y' ) THEN
701: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_QA_INSP_TYPE_RO' );
702: FND_MSG_PUB.add;
703: ELSE
704: IF ( p_x_operation_rec.qa_inspection_type = FND_API.G_MISS_CHAR ) THEN
705: p_x_operation_rec.qa_inspection_type := null;
706: END IF;
707: END IF;
708: END IF;
713: IF ( l_read_only_flag = 'Y' ) THEN
714: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_QA_INSP_TYPE_RO' );
715: FND_MSG_PUB.add;
716: ELSE
717: IF ( p_x_operation_rec.qa_inspection_type_desc = FND_API.G_MISS_CHAR ) THEN
718: p_x_operation_rec.qa_inspection_type_desc := null;
719: END IF;
720: END IF;
721: END IF;
721: END IF;
722:
723: IF ( p_x_operation_rec.operation_type_code IS NULL ) THEN
724: p_x_operation_rec.operation_type_code := l_old_operation_rec.operation_type_code;
725: ELSIF ( p_x_operation_rec.operation_type_code = FND_API.G_MISS_CHAR ) THEN
726: p_x_operation_rec.operation_type_code := null;
727: END IF;
728:
729: IF ( p_x_operation_rec.operation_type IS NULL ) THEN
727: END IF;
728:
729: IF ( p_x_operation_rec.operation_type IS NULL ) THEN
730: p_x_operation_rec.operation_type := l_old_operation_rec.operation_type;
731: ELSIF ( p_x_operation_rec.operation_type = FND_API.G_MISS_CHAR ) THEN
732: p_x_operation_rec.operation_type := null;
733: END IF;
734:
735: IF ( p_x_operation_rec.process_code IS NULL ) THEN
733: END IF;
734:
735: IF ( p_x_operation_rec.process_code IS NULL ) THEN
736: p_x_operation_rec.process_code := l_old_operation_rec.process_code;
737: ELSIF ( p_x_operation_rec.process_code = FND_API.G_MISS_CHAR ) THEN
738: p_x_operation_rec.process_code := null;
739: END IF;
740:
741: IF ( p_x_operation_rec.process IS NULL ) THEN
739: END IF;
740:
741: IF ( p_x_operation_rec.process IS NULL ) THEN
742: p_x_operation_rec.process := l_old_operation_rec.process;
743: ELSIF ( p_x_operation_rec.process = FND_API.G_MISS_CHAR ) THEN
744: p_x_operation_rec.process := null;
745: END IF;
746:
747: --bachandr Enigma Phase I changes -- start
746:
747: --bachandr Enigma Phase I changes -- start
748: IF ( p_x_operation_rec.model_code IS NULL) THEN
749: p_x_operation_rec.model_code := l_old_operation_rec.model_code;
750: ELSIF ( p_x_operation_rec.model_code = FND_API.G_MISS_CHAR ) THEN
751: p_x_operation_rec.model_code := null;
752: END IF;
753:
754: IF ( p_x_operation_rec.model_meaning IS NULL ) THEN
752: END IF;
753:
754: IF ( p_x_operation_rec.model_meaning IS NULL ) THEN
755: p_x_operation_rec.model_meaning := l_old_operation_rec.model_meaning;
756: ELSIF ( p_x_operation_rec.model_meaning = FND_API.G_MISS_CHAR ) THEN
757: p_x_operation_rec.model_meaning := null;
758: END IF;
759:
760: IF ( p_x_operation_rec.enigma_op_id IS NULL ) THEN
758: END IF;
759:
760: IF ( p_x_operation_rec.enigma_op_id IS NULL ) THEN
761: p_x_operation_rec.enigma_op_id := l_old_operation_rec.enigma_op_id;
762: ELSIF ( p_x_operation_rec.enigma_op_id = FND_API.G_MISS_CHAR ) THEN
763: p_x_operation_rec.enigma_op_id := null;
764: END IF;
765:
766: --bachandr Enigma Phase I changes -- end
765:
766: --bachandr Enigma Phase I changes -- end
767: IF ( p_x_operation_rec.remarks IS NULL ) THEN
768: p_x_operation_rec.remarks := l_old_operation_rec.remarks;
769: ELSIF ( p_x_operation_rec.remarks = FND_API.G_MISS_CHAR ) THEN
770: p_x_operation_rec.remarks := null;
771: END IF;
772:
773: IF ( p_x_operation_rec.revision_notes IS NULL ) THEN
771: END IF;
772:
773: IF ( p_x_operation_rec.revision_notes IS NULL ) THEN
774: p_x_operation_rec.revision_notes := l_old_operation_rec.revision_notes;
775: ELSIF ( p_x_operation_rec.revision_notes = FND_API.G_MISS_CHAR ) THEN
776: p_x_operation_rec.revision_notes := null;
777: END IF;
778:
779: IF ( p_x_operation_rec.segment1 IS NULL ) THEN
777: END IF;
778:
779: IF ( p_x_operation_rec.segment1 IS NULL ) THEN
780: p_x_operation_rec.segment1 := l_old_operation_rec.segment1;
781: ELSIF ( p_x_operation_rec.segment1 = FND_API.G_MISS_CHAR ) THEN
782: p_x_operation_rec.segment1 := null;
783: END IF;
784:
785: IF ( p_x_operation_rec.segment2 IS NULL ) THEN
783: END IF;
784:
785: IF ( p_x_operation_rec.segment2 IS NULL ) THEN
786: p_x_operation_rec.segment2 := l_old_operation_rec.segment2;
787: ELSIF ( p_x_operation_rec.segment2 = FND_API.G_MISS_CHAR ) THEN
788: p_x_operation_rec.segment2 := null;
789: END IF;
790:
791: IF ( p_x_operation_rec.segment3 IS NULL ) THEN
789: END IF;
790:
791: IF ( p_x_operation_rec.segment3 IS NULL ) THEN
792: p_x_operation_rec.segment3 := l_old_operation_rec.segment3;
793: ELSIF ( p_x_operation_rec.segment3 = FND_API.G_MISS_CHAR ) THEN
794: p_x_operation_rec.segment3 := null;
795: END IF;
796:
797: IF ( p_x_operation_rec.segment4 IS NULL ) THEN
795: END IF;
796:
797: IF ( p_x_operation_rec.segment4 IS NULL ) THEN
798: p_x_operation_rec.segment4 := l_old_operation_rec.segment4;
799: ELSIF ( p_x_operation_rec.segment4 = FND_API.G_MISS_CHAR ) THEN
800: p_x_operation_rec.segment4 := null;
801: END IF;
802:
803: IF ( p_x_operation_rec.segment5 IS NULL ) THEN
801: END IF;
802:
803: IF ( p_x_operation_rec.segment5 IS NULL ) THEN
804: p_x_operation_rec.segment5 := l_old_operation_rec.segment5;
805: ELSIF ( p_x_operation_rec.segment5 = FND_API.G_MISS_CHAR ) THEN
806: p_x_operation_rec.segment5 := null;
807: END IF;
808:
809: IF ( p_x_operation_rec.segment6 IS NULL ) THEN
807: END IF;
808:
809: IF ( p_x_operation_rec.segment6 IS NULL ) THEN
810: p_x_operation_rec.segment6 := l_old_operation_rec.segment6;
811: ELSIF ( p_x_operation_rec.segment6 = FND_API.G_MISS_CHAR ) THEN
812: p_x_operation_rec.segment6 := null;
813: END IF;
814:
815: IF ( p_x_operation_rec.segment7 IS NULL ) THEN
813: END IF;
814:
815: IF ( p_x_operation_rec.segment7 IS NULL ) THEN
816: p_x_operation_rec.segment7 := l_old_operation_rec.segment7;
817: ELSIF ( p_x_operation_rec.segment7 = FND_API.G_MISS_CHAR ) THEN
818: p_x_operation_rec.segment7 := null;
819: END IF;
820:
821: IF ( p_x_operation_rec.segment8 IS NULL ) THEN
819: END IF;
820:
821: IF ( p_x_operation_rec.segment8 IS NULL ) THEN
822: p_x_operation_rec.segment8 := l_old_operation_rec.segment8;
823: ELSIF ( p_x_operation_rec.segment8 = FND_API.G_MISS_CHAR ) THEN
824: p_x_operation_rec.segment8 := null;
825: END IF;
826:
827: IF ( p_x_operation_rec.segment9 IS NULL ) THEN
825: END IF;
826:
827: IF ( p_x_operation_rec.segment9 IS NULL ) THEN
828: p_x_operation_rec.segment9 := l_old_operation_rec.segment9;
829: ELSIF ( p_x_operation_rec.segment9 = FND_API.G_MISS_CHAR ) THEN
830: p_x_operation_rec.segment9 := null;
831: END IF;
832:
833: IF ( p_x_operation_rec.segment10 IS NULL ) THEN
831: END IF;
832:
833: IF ( p_x_operation_rec.segment10 IS NULL ) THEN
834: p_x_operation_rec.segment10 := l_old_operation_rec.segment10;
835: ELSIF ( p_x_operation_rec.segment10 = FND_API.G_MISS_CHAR ) THEN
836: p_x_operation_rec.segment10 := null;
837: END IF;
838:
839: IF ( p_x_operation_rec.segment11 IS NULL ) THEN
837: END IF;
838:
839: IF ( p_x_operation_rec.segment11 IS NULL ) THEN
840: p_x_operation_rec.segment11 := l_old_operation_rec.segment11;
841: ELSIF ( p_x_operation_rec.segment11 = FND_API.G_MISS_CHAR ) THEN
842: p_x_operation_rec.segment11 := null;
843: END IF;
844:
845: IF ( p_x_operation_rec.segment12 IS NULL ) THEN
843: END IF;
844:
845: IF ( p_x_operation_rec.segment12 IS NULL ) THEN
846: p_x_operation_rec.segment12 := l_old_operation_rec.segment12;
847: ELSIF ( p_x_operation_rec.segment12 = FND_API.G_MISS_CHAR ) THEN
848: p_x_operation_rec.segment12 := null;
849: END IF;
850:
851: IF ( p_x_operation_rec.segment13 IS NULL ) THEN
849: END IF;
850:
851: IF ( p_x_operation_rec.segment13 IS NULL ) THEN
852: p_x_operation_rec.segment13 := l_old_operation_rec.segment13;
853: ELSIF ( p_x_operation_rec.segment13 = FND_API.G_MISS_CHAR ) THEN
854: p_x_operation_rec.segment13 := null;
855: END IF;
856:
857: IF ( p_x_operation_rec.segment14 IS NULL ) THEN
855: END IF;
856:
857: IF ( p_x_operation_rec.segment14 IS NULL ) THEN
858: p_x_operation_rec.segment14 := l_old_operation_rec.segment14;
859: ELSIF ( p_x_operation_rec.segment14 = FND_API.G_MISS_CHAR ) THEN
860: p_x_operation_rec.segment14 := null;
861: END IF;
862:
863: IF ( p_x_operation_rec.segment15 IS NULL ) THEN
861: END IF;
862:
863: IF ( p_x_operation_rec.segment15 IS NULL ) THEN
864: p_x_operation_rec.segment15 := l_old_operation_rec.segment15;
865: ELSIF ( p_x_operation_rec.segment15 = FND_API.G_MISS_CHAR ) THEN
866: p_x_operation_rec.segment15 := null;
867: END IF;
868:
869: IF ( p_x_operation_rec.attribute_category IS NULL ) THEN
867: END IF;
868:
869: IF ( p_x_operation_rec.attribute_category IS NULL ) THEN
870: p_x_operation_rec.attribute_category := l_old_operation_rec.attribute_category;
871: ELSIF ( p_x_operation_rec.attribute_category = FND_API.G_MISS_CHAR ) THEN
872: p_x_operation_rec.attribute_category := null;
873: END IF;
874:
875: IF ( p_x_operation_rec.attribute1 IS NULL ) THEN
873: END IF;
874:
875: IF ( p_x_operation_rec.attribute1 IS NULL ) THEN
876: p_x_operation_rec.attribute1 := l_old_operation_rec.attribute1;
877: ELSIF ( p_x_operation_rec.attribute1 = FND_API.G_MISS_CHAR ) THEN
878: p_x_operation_rec.attribute1 := null;
879: END IF;
880:
881: IF ( p_x_operation_rec.attribute2 IS NULL ) THEN
879: END IF;
880:
881: IF ( p_x_operation_rec.attribute2 IS NULL ) THEN
882: p_x_operation_rec.attribute2 := l_old_operation_rec.attribute2;
883: ELSIF ( p_x_operation_rec.attribute2 = FND_API.G_MISS_CHAR ) THEN
884: p_x_operation_rec.attribute2 := null;
885: END IF;
886:
887: IF ( p_x_operation_rec.attribute3 IS NULL ) THEN
885: END IF;
886:
887: IF ( p_x_operation_rec.attribute3 IS NULL ) THEN
888: p_x_operation_rec.attribute3 := l_old_operation_rec.attribute3;
889: ELSIF ( p_x_operation_rec.attribute3 = FND_API.G_MISS_CHAR ) THEN
890: p_x_operation_rec.attribute3 := null;
891: END IF;
892:
893: IF ( p_x_operation_rec.attribute4 IS NULL ) THEN
891: END IF;
892:
893: IF ( p_x_operation_rec.attribute4 IS NULL ) THEN
894: p_x_operation_rec.attribute4 := l_old_operation_rec.attribute4;
895: ELSIF ( p_x_operation_rec.attribute4 = FND_API.G_MISS_CHAR ) THEN
896: p_x_operation_rec.attribute4 := null;
897: END IF;
898:
899: IF ( p_x_operation_rec.attribute5 IS NULL ) THEN
897: END IF;
898:
899: IF ( p_x_operation_rec.attribute5 IS NULL ) THEN
900: p_x_operation_rec.attribute5 := l_old_operation_rec.attribute5;
901: ELSIF ( p_x_operation_rec.attribute5 = FND_API.G_MISS_CHAR ) THEN
902: p_x_operation_rec.attribute5 := null;
903: END IF;
904:
905: IF ( p_x_operation_rec.attribute6 IS NULL ) THEN
903: END IF;
904:
905: IF ( p_x_operation_rec.attribute6 IS NULL ) THEN
906: p_x_operation_rec.attribute6 := l_old_operation_rec.attribute6;
907: ELSIF ( p_x_operation_rec.attribute6 = FND_API.G_MISS_CHAR ) THEN
908: p_x_operation_rec.attribute6 := null;
909: END IF;
910:
911: IF ( p_x_operation_rec.attribute7 IS NULL ) THEN
909: END IF;
910:
911: IF ( p_x_operation_rec.attribute7 IS NULL ) THEN
912: p_x_operation_rec.attribute7 := l_old_operation_rec.attribute7;
913: ELSIF ( p_x_operation_rec.attribute7 = FND_API.G_MISS_CHAR ) THEN
914: p_x_operation_rec.attribute7 := null;
915: END IF;
916:
917: IF ( p_x_operation_rec.attribute8 IS NULL ) THEN
915: END IF;
916:
917: IF ( p_x_operation_rec.attribute8 IS NULL ) THEN
918: p_x_operation_rec.attribute8 := l_old_operation_rec.attribute8;
919: ELSIF ( p_x_operation_rec.attribute8 = FND_API.G_MISS_CHAR ) THEN
920: p_x_operation_rec.attribute8 := null;
921: END IF;
922:
923: IF ( p_x_operation_rec.attribute9 IS NULL ) THEN
921: END IF;
922:
923: IF ( p_x_operation_rec.attribute9 IS NULL ) THEN
924: p_x_operation_rec.attribute9 := l_old_operation_rec.attribute9;
925: ELSIF ( p_x_operation_rec.attribute9 = FND_API.G_MISS_CHAR ) THEN
926: p_x_operation_rec.attribute9 := null;
927: END IF;
928:
929: IF ( p_x_operation_rec.attribute10 IS NULL ) THEN
927: END IF;
928:
929: IF ( p_x_operation_rec.attribute10 IS NULL ) THEN
930: p_x_operation_rec.attribute10 := l_old_operation_rec.attribute10;
931: ELSIF ( p_x_operation_rec.attribute10 = FND_API.G_MISS_CHAR ) THEN
932: p_x_operation_rec.attribute10 := null;
933: END IF;
934:
935: IF ( p_x_operation_rec.attribute11 IS NULL ) THEN
933: END IF;
934:
935: IF ( p_x_operation_rec.attribute11 IS NULL ) THEN
936: p_x_operation_rec.attribute11 := l_old_operation_rec.attribute11;
937: ELSIF ( p_x_operation_rec.attribute11 = FND_API.G_MISS_CHAR ) THEN
938: p_x_operation_rec.attribute11 := null;
939: END IF;
940:
941: IF ( p_x_operation_rec.attribute12 IS NULL ) THEN
939: END IF;
940:
941: IF ( p_x_operation_rec.attribute12 IS NULL ) THEN
942: p_x_operation_rec.attribute12 := l_old_operation_rec.attribute12;
943: ELSIF ( p_x_operation_rec.attribute12 = FND_API.G_MISS_CHAR ) THEN
944: p_x_operation_rec.attribute12 := null;
945: END IF;
946:
947: IF ( p_x_operation_rec.attribute13 IS NULL ) THEN
945: END IF;
946:
947: IF ( p_x_operation_rec.attribute13 IS NULL ) THEN
948: p_x_operation_rec.attribute13 := l_old_operation_rec.attribute13;
949: ELSIF ( p_x_operation_rec.attribute13 = FND_API.G_MISS_CHAR ) THEN
950: p_x_operation_rec.attribute13 := null;
951: END IF;
952:
953: IF ( p_x_operation_rec.attribute14 IS NULL ) THEN
951: END IF;
952:
953: IF ( p_x_operation_rec.attribute14 IS NULL ) THEN
954: p_x_operation_rec.attribute14 := l_old_operation_rec.attribute14;
955: ELSIF ( p_x_operation_rec.attribute14 = FND_API.G_MISS_CHAR ) THEN
956: p_x_operation_rec.attribute14 := null;
957: END IF;
958:
959: IF ( p_x_operation_rec.attribute15 IS NULL ) THEN
957: END IF;
958:
959: IF ( p_x_operation_rec.attribute15 IS NULL ) THEN
960: p_x_operation_rec.attribute15 := l_old_operation_rec.attribute15;
961: ELSIF ( p_x_operation_rec.attribute15 = FND_API.G_MISS_CHAR ) THEN
962: p_x_operation_rec.attribute15 := null;
963: END IF;
964:
965: END default_unchanged_attributes;
1003: where operation_id = p_operation_rec.operation_id and
1004: object_version_number = p_operation_rec.object_version_number;
1005:
1006: BEGIN
1007: x_return_status := FND_API.G_RET_STS_SUCCESS;
1008:
1009: -- Check if concatenated_segments is null
1010: IF (p_operation_rec.dml_operation = 'C' AND
1011: (p_operation_rec.segment1 IS NULL OR p_operation_rec.segment1 = FND_API.G_MISS_CHAR) AND
1007: x_return_status := FND_API.G_RET_STS_SUCCESS;
1008:
1009: -- Check if concatenated_segments is null
1010: IF (p_operation_rec.dml_operation = 'C' AND
1011: (p_operation_rec.segment1 IS NULL OR p_operation_rec.segment1 = FND_API.G_MISS_CHAR) AND
1012: (p_operation_rec.segment2 IS NULL OR p_operation_rec.segment2 = FND_API.G_MISS_CHAR) AND
1013: (p_operation_rec.segment3 IS NULL OR p_operation_rec.segment3 = FND_API.G_MISS_CHAR) AND
1014: (p_operation_rec.segment4 IS NULL OR p_operation_rec.segment4 = FND_API.G_MISS_CHAR) AND
1015: (p_operation_rec.segment5 IS NULL OR p_operation_rec.segment5 = FND_API.G_MISS_CHAR) AND
1008:
1009: -- Check if concatenated_segments is null
1010: IF (p_operation_rec.dml_operation = 'C' AND
1011: (p_operation_rec.segment1 IS NULL OR p_operation_rec.segment1 = FND_API.G_MISS_CHAR) AND
1012: (p_operation_rec.segment2 IS NULL OR p_operation_rec.segment2 = FND_API.G_MISS_CHAR) AND
1013: (p_operation_rec.segment3 IS NULL OR p_operation_rec.segment3 = FND_API.G_MISS_CHAR) AND
1014: (p_operation_rec.segment4 IS NULL OR p_operation_rec.segment4 = FND_API.G_MISS_CHAR) AND
1015: (p_operation_rec.segment5 IS NULL OR p_operation_rec.segment5 = FND_API.G_MISS_CHAR) AND
1016: (p_operation_rec.segment6 IS NULL OR p_operation_rec.segment6 = FND_API.G_MISS_CHAR) AND
1009: -- Check if concatenated_segments is null
1010: IF (p_operation_rec.dml_operation = 'C' AND
1011: (p_operation_rec.segment1 IS NULL OR p_operation_rec.segment1 = FND_API.G_MISS_CHAR) AND
1012: (p_operation_rec.segment2 IS NULL OR p_operation_rec.segment2 = FND_API.G_MISS_CHAR) AND
1013: (p_operation_rec.segment3 IS NULL OR p_operation_rec.segment3 = FND_API.G_MISS_CHAR) AND
1014: (p_operation_rec.segment4 IS NULL OR p_operation_rec.segment4 = FND_API.G_MISS_CHAR) AND
1015: (p_operation_rec.segment5 IS NULL OR p_operation_rec.segment5 = FND_API.G_MISS_CHAR) AND
1016: (p_operation_rec.segment6 IS NULL OR p_operation_rec.segment6 = FND_API.G_MISS_CHAR) AND
1017: (p_operation_rec.segment7 IS NULL OR p_operation_rec.segment7 = FND_API.G_MISS_CHAR) AND
1010: IF (p_operation_rec.dml_operation = 'C' AND
1011: (p_operation_rec.segment1 IS NULL OR p_operation_rec.segment1 = FND_API.G_MISS_CHAR) AND
1012: (p_operation_rec.segment2 IS NULL OR p_operation_rec.segment2 = FND_API.G_MISS_CHAR) AND
1013: (p_operation_rec.segment3 IS NULL OR p_operation_rec.segment3 = FND_API.G_MISS_CHAR) AND
1014: (p_operation_rec.segment4 IS NULL OR p_operation_rec.segment4 = FND_API.G_MISS_CHAR) AND
1015: (p_operation_rec.segment5 IS NULL OR p_operation_rec.segment5 = FND_API.G_MISS_CHAR) AND
1016: (p_operation_rec.segment6 IS NULL OR p_operation_rec.segment6 = FND_API.G_MISS_CHAR) AND
1017: (p_operation_rec.segment7 IS NULL OR p_operation_rec.segment7 = FND_API.G_MISS_CHAR) AND
1018: (p_operation_rec.segment8 IS NULL OR p_operation_rec.segment8 = FND_API.G_MISS_CHAR) AND
1011: (p_operation_rec.segment1 IS NULL OR p_operation_rec.segment1 = FND_API.G_MISS_CHAR) AND
1012: (p_operation_rec.segment2 IS NULL OR p_operation_rec.segment2 = FND_API.G_MISS_CHAR) AND
1013: (p_operation_rec.segment3 IS NULL OR p_operation_rec.segment3 = FND_API.G_MISS_CHAR) AND
1014: (p_operation_rec.segment4 IS NULL OR p_operation_rec.segment4 = FND_API.G_MISS_CHAR) AND
1015: (p_operation_rec.segment5 IS NULL OR p_operation_rec.segment5 = FND_API.G_MISS_CHAR) AND
1016: (p_operation_rec.segment6 IS NULL OR p_operation_rec.segment6 = FND_API.G_MISS_CHAR) AND
1017: (p_operation_rec.segment7 IS NULL OR p_operation_rec.segment7 = FND_API.G_MISS_CHAR) AND
1018: (p_operation_rec.segment8 IS NULL OR p_operation_rec.segment8 = FND_API.G_MISS_CHAR) AND
1019: (p_operation_rec.segment9 IS NULL OR p_operation_rec.segment9 = FND_API.G_MISS_CHAR) AND
1012: (p_operation_rec.segment2 IS NULL OR p_operation_rec.segment2 = FND_API.G_MISS_CHAR) AND
1013: (p_operation_rec.segment3 IS NULL OR p_operation_rec.segment3 = FND_API.G_MISS_CHAR) AND
1014: (p_operation_rec.segment4 IS NULL OR p_operation_rec.segment4 = FND_API.G_MISS_CHAR) AND
1015: (p_operation_rec.segment5 IS NULL OR p_operation_rec.segment5 = FND_API.G_MISS_CHAR) AND
1016: (p_operation_rec.segment6 IS NULL OR p_operation_rec.segment6 = FND_API.G_MISS_CHAR) AND
1017: (p_operation_rec.segment7 IS NULL OR p_operation_rec.segment7 = FND_API.G_MISS_CHAR) AND
1018: (p_operation_rec.segment8 IS NULL OR p_operation_rec.segment8 = FND_API.G_MISS_CHAR) AND
1019: (p_operation_rec.segment9 IS NULL OR p_operation_rec.segment9 = FND_API.G_MISS_CHAR) AND
1020: (p_operation_rec.segment10 IS NULL OR p_operation_rec.segment10 = FND_API.G_MISS_CHAR) AND
1013: (p_operation_rec.segment3 IS NULL OR p_operation_rec.segment3 = FND_API.G_MISS_CHAR) AND
1014: (p_operation_rec.segment4 IS NULL OR p_operation_rec.segment4 = FND_API.G_MISS_CHAR) AND
1015: (p_operation_rec.segment5 IS NULL OR p_operation_rec.segment5 = FND_API.G_MISS_CHAR) AND
1016: (p_operation_rec.segment6 IS NULL OR p_operation_rec.segment6 = FND_API.G_MISS_CHAR) AND
1017: (p_operation_rec.segment7 IS NULL OR p_operation_rec.segment7 = FND_API.G_MISS_CHAR) AND
1018: (p_operation_rec.segment8 IS NULL OR p_operation_rec.segment8 = FND_API.G_MISS_CHAR) AND
1019: (p_operation_rec.segment9 IS NULL OR p_operation_rec.segment9 = FND_API.G_MISS_CHAR) AND
1020: (p_operation_rec.segment10 IS NULL OR p_operation_rec.segment10 = FND_API.G_MISS_CHAR) AND
1021: (p_operation_rec.segment11 IS NULL OR p_operation_rec.segment11 = FND_API.G_MISS_CHAR) AND
1014: (p_operation_rec.segment4 IS NULL OR p_operation_rec.segment4 = FND_API.G_MISS_CHAR) AND
1015: (p_operation_rec.segment5 IS NULL OR p_operation_rec.segment5 = FND_API.G_MISS_CHAR) AND
1016: (p_operation_rec.segment6 IS NULL OR p_operation_rec.segment6 = FND_API.G_MISS_CHAR) AND
1017: (p_operation_rec.segment7 IS NULL OR p_operation_rec.segment7 = FND_API.G_MISS_CHAR) AND
1018: (p_operation_rec.segment8 IS NULL OR p_operation_rec.segment8 = FND_API.G_MISS_CHAR) AND
1019: (p_operation_rec.segment9 IS NULL OR p_operation_rec.segment9 = FND_API.G_MISS_CHAR) AND
1020: (p_operation_rec.segment10 IS NULL OR p_operation_rec.segment10 = FND_API.G_MISS_CHAR) AND
1021: (p_operation_rec.segment11 IS NULL OR p_operation_rec.segment11 = FND_API.G_MISS_CHAR) AND
1022: (p_operation_rec.segment12 IS NULL OR p_operation_rec.segment12 = FND_API.G_MISS_CHAR) AND
1015: (p_operation_rec.segment5 IS NULL OR p_operation_rec.segment5 = FND_API.G_MISS_CHAR) AND
1016: (p_operation_rec.segment6 IS NULL OR p_operation_rec.segment6 = FND_API.G_MISS_CHAR) AND
1017: (p_operation_rec.segment7 IS NULL OR p_operation_rec.segment7 = FND_API.G_MISS_CHAR) AND
1018: (p_operation_rec.segment8 IS NULL OR p_operation_rec.segment8 = FND_API.G_MISS_CHAR) AND
1019: (p_operation_rec.segment9 IS NULL OR p_operation_rec.segment9 = FND_API.G_MISS_CHAR) AND
1020: (p_operation_rec.segment10 IS NULL OR p_operation_rec.segment10 = FND_API.G_MISS_CHAR) AND
1021: (p_operation_rec.segment11 IS NULL OR p_operation_rec.segment11 = FND_API.G_MISS_CHAR) AND
1022: (p_operation_rec.segment12 IS NULL OR p_operation_rec.segment12 = FND_API.G_MISS_CHAR) AND
1023: (p_operation_rec.segment13 IS NULL OR p_operation_rec.segment13 = FND_API.G_MISS_CHAR) AND
1016: (p_operation_rec.segment6 IS NULL OR p_operation_rec.segment6 = FND_API.G_MISS_CHAR) AND
1017: (p_operation_rec.segment7 IS NULL OR p_operation_rec.segment7 = FND_API.G_MISS_CHAR) AND
1018: (p_operation_rec.segment8 IS NULL OR p_operation_rec.segment8 = FND_API.G_MISS_CHAR) AND
1019: (p_operation_rec.segment9 IS NULL OR p_operation_rec.segment9 = FND_API.G_MISS_CHAR) AND
1020: (p_operation_rec.segment10 IS NULL OR p_operation_rec.segment10 = FND_API.G_MISS_CHAR) AND
1021: (p_operation_rec.segment11 IS NULL OR p_operation_rec.segment11 = FND_API.G_MISS_CHAR) AND
1022: (p_operation_rec.segment12 IS NULL OR p_operation_rec.segment12 = FND_API.G_MISS_CHAR) AND
1023: (p_operation_rec.segment13 IS NULL OR p_operation_rec.segment13 = FND_API.G_MISS_CHAR) AND
1024: (p_operation_rec.segment14 IS NULL OR p_operation_rec.segment14 = FND_API.G_MISS_CHAR) AND
1017: (p_operation_rec.segment7 IS NULL OR p_operation_rec.segment7 = FND_API.G_MISS_CHAR) AND
1018: (p_operation_rec.segment8 IS NULL OR p_operation_rec.segment8 = FND_API.G_MISS_CHAR) AND
1019: (p_operation_rec.segment9 IS NULL OR p_operation_rec.segment9 = FND_API.G_MISS_CHAR) AND
1020: (p_operation_rec.segment10 IS NULL OR p_operation_rec.segment10 = FND_API.G_MISS_CHAR) AND
1021: (p_operation_rec.segment11 IS NULL OR p_operation_rec.segment11 = FND_API.G_MISS_CHAR) AND
1022: (p_operation_rec.segment12 IS NULL OR p_operation_rec.segment12 = FND_API.G_MISS_CHAR) AND
1023: (p_operation_rec.segment13 IS NULL OR p_operation_rec.segment13 = FND_API.G_MISS_CHAR) AND
1024: (p_operation_rec.segment14 IS NULL OR p_operation_rec.segment14 = FND_API.G_MISS_CHAR) AND
1025: (p_operation_rec.segment15 IS NULL OR p_operation_rec.segment15 = FND_API.G_MISS_CHAR)) THEN
1018: (p_operation_rec.segment8 IS NULL OR p_operation_rec.segment8 = FND_API.G_MISS_CHAR) AND
1019: (p_operation_rec.segment9 IS NULL OR p_operation_rec.segment9 = FND_API.G_MISS_CHAR) AND
1020: (p_operation_rec.segment10 IS NULL OR p_operation_rec.segment10 = FND_API.G_MISS_CHAR) AND
1021: (p_operation_rec.segment11 IS NULL OR p_operation_rec.segment11 = FND_API.G_MISS_CHAR) AND
1022: (p_operation_rec.segment12 IS NULL OR p_operation_rec.segment12 = FND_API.G_MISS_CHAR) AND
1023: (p_operation_rec.segment13 IS NULL OR p_operation_rec.segment13 = FND_API.G_MISS_CHAR) AND
1024: (p_operation_rec.segment14 IS NULL OR p_operation_rec.segment14 = FND_API.G_MISS_CHAR) AND
1025: (p_operation_rec.segment15 IS NULL OR p_operation_rec.segment15 = FND_API.G_MISS_CHAR)) THEN
1026: FND_MESSAGE.set_name( 'AHL','AHL_RM_SEGMENTS_ALL_NULL' );
1019: (p_operation_rec.segment9 IS NULL OR p_operation_rec.segment9 = FND_API.G_MISS_CHAR) AND
1020: (p_operation_rec.segment10 IS NULL OR p_operation_rec.segment10 = FND_API.G_MISS_CHAR) AND
1021: (p_operation_rec.segment11 IS NULL OR p_operation_rec.segment11 = FND_API.G_MISS_CHAR) AND
1022: (p_operation_rec.segment12 IS NULL OR p_operation_rec.segment12 = FND_API.G_MISS_CHAR) AND
1023: (p_operation_rec.segment13 IS NULL OR p_operation_rec.segment13 = FND_API.G_MISS_CHAR) AND
1024: (p_operation_rec.segment14 IS NULL OR p_operation_rec.segment14 = FND_API.G_MISS_CHAR) AND
1025: (p_operation_rec.segment15 IS NULL OR p_operation_rec.segment15 = FND_API.G_MISS_CHAR)) THEN
1026: FND_MESSAGE.set_name( 'AHL','AHL_RM_SEGMENTS_ALL_NULL' );
1027: FND_MSG_PUB.add;
1020: (p_operation_rec.segment10 IS NULL OR p_operation_rec.segment10 = FND_API.G_MISS_CHAR) AND
1021: (p_operation_rec.segment11 IS NULL OR p_operation_rec.segment11 = FND_API.G_MISS_CHAR) AND
1022: (p_operation_rec.segment12 IS NULL OR p_operation_rec.segment12 = FND_API.G_MISS_CHAR) AND
1023: (p_operation_rec.segment13 IS NULL OR p_operation_rec.segment13 = FND_API.G_MISS_CHAR) AND
1024: (p_operation_rec.segment14 IS NULL OR p_operation_rec.segment14 = FND_API.G_MISS_CHAR) AND
1025: (p_operation_rec.segment15 IS NULL OR p_operation_rec.segment15 = FND_API.G_MISS_CHAR)) THEN
1026: FND_MESSAGE.set_name( 'AHL','AHL_RM_SEGMENTS_ALL_NULL' );
1027: FND_MSG_PUB.add;
1028: x_return_status := FND_API.G_RET_STS_ERROR;
1021: (p_operation_rec.segment11 IS NULL OR p_operation_rec.segment11 = FND_API.G_MISS_CHAR) AND
1022: (p_operation_rec.segment12 IS NULL OR p_operation_rec.segment12 = FND_API.G_MISS_CHAR) AND
1023: (p_operation_rec.segment13 IS NULL OR p_operation_rec.segment13 = FND_API.G_MISS_CHAR) AND
1024: (p_operation_rec.segment14 IS NULL OR p_operation_rec.segment14 = FND_API.G_MISS_CHAR) AND
1025: (p_operation_rec.segment15 IS NULL OR p_operation_rec.segment15 = FND_API.G_MISS_CHAR)) THEN
1026: FND_MESSAGE.set_name( 'AHL','AHL_RM_SEGMENTS_ALL_NULL' );
1027: FND_MSG_PUB.add;
1028: x_return_status := FND_API.G_RET_STS_ERROR;
1029: RETURN;
1024: (p_operation_rec.segment14 IS NULL OR p_operation_rec.segment14 = FND_API.G_MISS_CHAR) AND
1025: (p_operation_rec.segment15 IS NULL OR p_operation_rec.segment15 = FND_API.G_MISS_CHAR)) THEN
1026: FND_MESSAGE.set_name( 'AHL','AHL_RM_SEGMENTS_ALL_NULL' );
1027: FND_MSG_PUB.add;
1028: x_return_status := FND_API.G_RET_STS_ERROR;
1029: RETURN;
1030: END IF;
1031:
1032: -- Check if concatenated_segments is unique when creating an operation record
1040: FETCH check_segments INTO l_dummy;
1041: IF check_segments%FOUND THEN
1042: FND_MESSAGE.set_name( 'AHL','AHL_RM_OPERATION_DUP' );
1043: FND_MSG_PUB.add;
1044: x_return_status := FND_API.G_RET_STS_ERROR;
1045: END IF;
1046: CLOSE check_segments;
1047: END IF;
1048:
1048:
1049: -- Check if the Revision Status code column contains a null value.
1050: IF ( ( p_operation_rec.dml_operation = 'C' AND
1051: p_operation_rec.revision_status_code IS NULL ) OR
1052: p_operation_rec.revision_status_code = FND_API.G_MISS_CHAR ) THEN
1053: FND_MESSAGE.set_name( 'AHL','AHL_RM_STATUS_NULL' );
1054: FND_MSG_PUB.add;
1055: x_return_status := FND_API.G_RET_STS_ERROR;
1056: END IF;
1051: p_operation_rec.revision_status_code IS NULL ) OR
1052: p_operation_rec.revision_status_code = FND_API.G_MISS_CHAR ) THEN
1053: FND_MESSAGE.set_name( 'AHL','AHL_RM_STATUS_NULL' );
1054: FND_MSG_PUB.add;
1055: x_return_status := FND_API.G_RET_STS_ERROR;
1056: END IF;
1057:
1058: -- Check if the Operation Description column contains a null value.
1059: IF ( ( p_operation_rec.dml_operation = 'C' AND
1057:
1058: -- Check if the Operation Description column contains a null value.
1059: IF ( ( p_operation_rec.dml_operation = 'C' AND
1060: p_operation_rec.description IS NULL ) OR
1061: p_operation_rec.description = FND_API.G_MISS_CHAR ) THEN
1062: FND_MESSAGE.set_name( 'AHL','AHL_RM_OPERATION_DESC_NULL' );
1063: FND_MSG_PUB.add;
1064: x_return_status := FND_API.G_RET_STS_ERROR;
1065: END IF;
1060: p_operation_rec.description IS NULL ) OR
1061: p_operation_rec.description = FND_API.G_MISS_CHAR ) THEN
1062: FND_MESSAGE.set_name( 'AHL','AHL_RM_OPERATION_DESC_NULL' );
1063: FND_MSG_PUB.add;
1064: x_return_status := FND_API.G_RET_STS_ERROR;
1065: END IF;
1066:
1067: -- Check if the Opeartion Start Date does not column contains a null value.
1068: IF ( ( p_operation_rec.dml_operation = 'C' AND
1066:
1067: -- Check if the Opeartion Start Date does not column contains a null value.
1068: IF ( ( p_operation_rec.dml_operation = 'C' AND
1069: p_operation_rec.active_start_date IS NULL ) OR
1070: p_operation_rec.active_start_date = FND_API.G_MISS_DATE ) THEN
1071: FND_MESSAGE.set_name( 'AHL','AHL_RM_ST_DATE_NULL' );
1072: FND_MSG_PUB.add;
1073: x_return_status := FND_API.G_RET_STS_ERROR;
1074: END IF;
1069: p_operation_rec.active_start_date IS NULL ) OR
1070: p_operation_rec.active_start_date = FND_API.G_MISS_DATE ) THEN
1071: FND_MESSAGE.set_name( 'AHL','AHL_RM_ST_DATE_NULL' );
1072: FND_MSG_PUB.add;
1073: x_return_status := FND_API.G_RET_STS_ERROR;
1074: END IF;
1075:
1076: -- Check if the Standard Operation Flag column contains a null value.
1077: IF ( ( p_operation_rec.dml_operation = 'C' AND
1075:
1076: -- Check if the Standard Operation Flag column contains a null value.
1077: IF ( ( p_operation_rec.dml_operation = 'C' AND
1078: p_operation_rec.standard_operation_flag IS NULL ) OR
1079: p_operation_rec.standard_operation_flag = FND_API.G_MISS_CHAR ) THEN
1080: FND_MESSAGE.set_name( 'AHL','AHL_RM_STANDARD_OPER_NULL' );
1081: FND_MSG_PUB.add;
1082: x_return_status := FND_API.G_RET_STS_ERROR;
1083: END IF;
1078: p_operation_rec.standard_operation_flag IS NULL ) OR
1079: p_operation_rec.standard_operation_flag = FND_API.G_MISS_CHAR ) THEN
1080: FND_MESSAGE.set_name( 'AHL','AHL_RM_STANDARD_OPER_NULL' );
1081: FND_MSG_PUB.add;
1082: x_return_status := FND_API.G_RET_STS_ERROR;
1083: END IF;
1084:
1085: --bachandr Enigma Phase I changes -- start
1086: IF ( p_operation_rec.dml_operation = 'C' AND p_operation_rec.enigma_op_id IS NOT NULL AND p_operation_rec.model_code IS NULL)
1087: THEN
1088: --throw error if model is null for enigma operations during creation.
1089: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_MODEL_CODE_NULL_OP' );
1090: FND_MSG_PUB.add;
1091: x_return_status := FND_API.G_RET_STS_ERROR;
1092: END IF;
1093:
1094: IF (p_operation_rec.dml_operation = 'U' AND p_operation_rec.enigma_op_id IS NOT NULL)
1095: THEN
1101: THEN
1102: --throw error disallowing modification of model
1103: FND_MESSAGE.SET_NAME('AHL','AHL_RM_MODEL_OP');
1104: FND_MSG_PUB.ADD;
1105: x_return_status := FND_API.G_RET_STS_ERROR;
1106: END IF;
1107: END IF;
1108: --bachandr Enigma Phase I changes -- end
1109: -- Check if the mandatory Operation ID column contains a null value.
1107: END IF;
1108: --bachandr Enigma Phase I changes -- end
1109: -- Check if the mandatory Operation ID column contains a null value.
1110: IF ( p_operation_rec.dml_operation = 'U' AND (p_operation_rec.operation_id IS NULL OR
1111: p_operation_rec.operation_id = FND_API.G_MISS_NUM )) THEN
1112: FND_MESSAGE.set_name( 'AHL','AHL_RM_OPERATION_ID_NULL' );
1113: FND_MSG_PUB.add;
1114: x_return_status := FND_API.G_RET_STS_ERROR;
1115: END IF;
1110: IF ( p_operation_rec.dml_operation = 'U' AND (p_operation_rec.operation_id IS NULL OR
1111: p_operation_rec.operation_id = FND_API.G_MISS_NUM )) THEN
1112: FND_MESSAGE.set_name( 'AHL','AHL_RM_OPERATION_ID_NULL' );
1113: FND_MSG_PUB.add;
1114: x_return_status := FND_API.G_RET_STS_ERROR;
1115: END IF;
1116:
1117: -- Check if the mandatory Object Version Number column contains a null value.
1118: IF ( p_operation_rec.dml_operation = 'U' AND (p_operation_rec.object_version_number IS NULL OR
1115: END IF;
1116:
1117: -- Check if the mandatory Object Version Number column contains a null value.
1118: IF ( p_operation_rec.dml_operation = 'U' AND (p_operation_rec.object_version_number IS NULL OR
1119: p_operation_rec.object_version_number = FND_API.G_MISS_NUM )) THEN
1120: FND_MESSAGE.set_name( 'AHL','AHL_RM_OBJ_VERSION_NULL' );
1121: FND_MSG_PUB.add;
1122: x_return_status := FND_API.G_RET_STS_ERROR;
1123: END IF;
1118: IF ( p_operation_rec.dml_operation = 'U' AND (p_operation_rec.object_version_number IS NULL OR
1119: p_operation_rec.object_version_number = FND_API.G_MISS_NUM )) THEN
1120: FND_MESSAGE.set_name( 'AHL','AHL_RM_OBJ_VERSION_NULL' );
1121: FND_MSG_PUB.add;
1122: x_return_status := FND_API.G_RET_STS_ERROR;
1123: END IF;
1124:
1125: -- Added by Tamal for Bug #3854052
1126: IF (p_operation_rec.dml_operation = 'U' AND p_operation_rec.revision_status_code IN ('COMPLETE', 'APPROVAL_PENDING', 'TERMINATION_PENDING', 'TERMINATED'))
1126: IF (p_operation_rec.dml_operation = 'U' AND p_operation_rec.revision_status_code IN ('COMPLETE', 'APPROVAL_PENDING', 'TERMINATION_PENDING', 'TERMINATED'))
1127: THEN
1128: FND_MESSAGE.set_name( 'AHL','AHL_RM_OP_STS_NO_UPD' );
1129: FND_MSG_PUB.add;
1130: x_return_status := FND_API.G_RET_STS_ERROR;
1131: END IF;
1132: -- Added by Tamal for Bug #3854052
1133:
1134: IF (p_operation_rec.dml_operation IN ('U','D'))
1187: revision_number = c_revision_number;
1188: */
1189:
1190: BEGIN
1191: x_return_status := FND_API.G_RET_STS_SUCCESS;
1192:
1193: -- Check if Active start date is less than today's date for
1194: -- DRAFT and APPROVAL_REJECTED Operations
1195:
1199: IF trunc(p_operation_rec.active_start_date) < trunc(SYSDATE) THEN
1200: FND_MESSAGE.set_name( 'AHL','AHL_RM_INVALID_ST_DATE' );
1201: FND_MESSAGE.set_token('FIELD',trunc(SYSDATE));
1202: FND_MSG_PUB.add;
1203: x_return_status := FND_API.G_RET_STS_ERROR;
1204: */
1205: -- Check if Active start date is less than the active start date of the operation's
1206: -- previous version (if it is existing) when updating the operation
1207: -- ELSIF ( p_operation_rec.dml_operation = 'U' ) THEN
1214: IF trunc(p_operation_rec.active_start_date) < trunc(l_start_date) THEN
1215: FND_MESSAGE.set_name( 'AHL','AHL_RM_ST_DATE_LESSER' );
1216: FND_MESSAGE.set_token('FIELD',trunc(l_start_date));
1217: FND_MSG_PUB.add;
1218: x_return_status := FND_API.G_RET_STS_ERROR;
1219: END IF;
1220: END IF;
1221: END IF;
1222: END IF;
1245:
1246: PROCEDURE process_operation
1247: (
1248: p_api_version IN NUMBER := 1.0,
1249: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
1250: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1251: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1252: p_default IN VARCHAR2 := FND_API.G_FALSE,
1253: p_module_type IN VARCHAR2 := NULL,
1246: PROCEDURE process_operation
1247: (
1248: p_api_version IN NUMBER := 1.0,
1249: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
1250: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1251: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1252: p_default IN VARCHAR2 := FND_API.G_FALSE,
1253: p_module_type IN VARCHAR2 := NULL,
1254: x_return_status OUT NOCOPY VARCHAR2,
1247: (
1248: p_api_version IN NUMBER := 1.0,
1249: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
1250: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1251: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1252: p_default IN VARCHAR2 := FND_API.G_FALSE,
1253: p_module_type IN VARCHAR2 := NULL,
1254: x_return_status OUT NOCOPY VARCHAR2,
1255: x_msg_count OUT NOCOPY NUMBER,
1248: p_api_version IN NUMBER := 1.0,
1249: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
1250: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1251: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1252: p_default IN VARCHAR2 := FND_API.G_FALSE,
1253: p_module_type IN VARCHAR2 := NULL,
1254: x_return_status OUT NOCOPY VARCHAR2,
1255: x_msg_count OUT NOCOPY NUMBER,
1256: x_msg_data OUT NOCOPY VARCHAR2,
1264: l_rowid VARCHAR2(30) := NULL;
1265:
1266: BEGIN
1267: -- Initialize API return status to success
1268: x_return_status := FND_API.G_RET_STS_SUCCESS;
1269:
1270: -- Standard Start of API savepoint
1271: SAVEPOINT process_operation_PVT;
1272:
1270: -- Standard Start of API savepoint
1271: SAVEPOINT process_operation_PVT;
1272:
1273: -- Standard call to check for call compatibility.
1274: IF NOT FND_API.compatible_api_call
1275: (
1276: l_api_version,
1277: p_api_version,
1278: l_api_name,
1278: l_api_name,
1279: G_PKG_NAME
1280: )
1281: THEN
1282: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1283: END IF;
1284:
1285: -- Initialize message list if p_init_msg_list is set to TRUE.
1286: IF FND_API.to_boolean( p_init_msg_list ) THEN
1282: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1283: END IF;
1284:
1285: -- Initialize message list if p_init_msg_list is set to TRUE.
1286: IF FND_API.to_boolean( p_init_msg_list ) THEN
1287: FND_MSG_PUB.initialize;
1288: END IF;
1289:
1290: IF G_DEBUG = 'Y' THEN
1303: p_operation_revision => p_x_operation_rec.revision_number,
1304: x_operation_id => p_x_operation_rec.operation_id,
1305: x_return_status => x_return_status
1306: );
1307: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1308: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1309: fnd_log.string
1310: (
1311: fnd_log.level_error,
1312: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1313: 'Error in AHL_RM_ROUTE_UTIL.Operation_Number_To_Id API'
1314: );
1315: END IF;
1316: RAISE FND_API.G_EXC_ERROR;
1317: END IF;
1318: END IF;
1319:
1320:
1325: l_return_status -- OUT
1326: );
1327:
1328: -- If any severe error occurs, then, abort API.
1329: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1330: RAISE FND_API.G_EXC_ERROR;
1331: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1332: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1333: END IF;
1326: );
1327:
1328: -- If any severe error occurs, then, abort API.
1329: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1330: RAISE FND_API.G_EXC_ERROR;
1331: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1332: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1333: END IF;
1334:
1327:
1328: -- If any severe error occurs, then, abort API.
1329: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1330: RAISE FND_API.G_EXC_ERROR;
1331: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1332: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1333: END IF;
1334:
1335: -- If the module type is JSP, then default values for ID columns of LOV attributes
1328: -- If any severe error occurs, then, abort API.
1329: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1330: RAISE FND_API.G_EXC_ERROR;
1331: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1332: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1333: END IF;
1334:
1335: -- If the module type is JSP, then default values for ID columns of LOV attributes
1336: IF ( p_module_type = 'JSP' ) THEN
1349: l_return_status -- OUT
1350: );
1351:
1352: -- If any severe error occurs, then, abort API.
1353: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1354: RAISE FND_API.G_EXC_ERROR;
1355: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1356: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1357: END IF;
1350: );
1351:
1352: -- If any severe error occurs, then, abort API.
1353: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1354: RAISE FND_API.G_EXC_ERROR;
1355: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1356: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1357: END IF;
1358:
1351:
1352: -- If any severe error occurs, then, abort API.
1353: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1354: RAISE FND_API.G_EXC_ERROR;
1355: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1356: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1357: END IF;
1358:
1359: IF G_DEBUG = 'Y' THEN
1352: -- If any severe error occurs, then, abort API.
1353: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1354: RAISE FND_API.G_EXC_ERROR;
1355: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1356: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1357: END IF;
1358:
1359: IF G_DEBUG = 'Y' THEN
1360: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : after convert_values_to_ids' );
1392: l_return_status -- OUT
1393: );
1394:
1395: -- If any severe error occurs, then, abort API.
1396: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1397: RAISE FND_API.G_EXC_ERROR;
1398: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1399: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1400: END IF;
1393: );
1394:
1395: -- If any severe error occurs, then, abort API.
1396: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1397: RAISE FND_API.G_EXC_ERROR;
1398: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1399: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1400: END IF;
1401:
1394:
1395: -- If any severe error occurs, then, abort API.
1396: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1397: RAISE FND_API.G_EXC_ERROR;
1398: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1399: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1400: END IF;
1401:
1402:
1395: -- If any severe error occurs, then, abort API.
1396: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1397: RAISE FND_API.G_EXC_ERROR;
1398: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1399: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1400: END IF;
1401:
1402:
1403: IF G_DEBUG = 'Y' THEN
1412: l_return_status -- OUT
1413: );
1414:
1415: -- If any severe error occurs, then, abort API.
1416: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1417: RAISE FND_API.G_EXC_ERROR;
1418: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1419: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1420: END IF;
1413: );
1414:
1415: -- If any severe error occurs, then, abort API.
1416: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1417: RAISE FND_API.G_EXC_ERROR;
1418: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1419: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1420: END IF;
1421:
1414:
1415: -- If any severe error occurs, then, abort API.
1416: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1417: RAISE FND_API.G_EXC_ERROR;
1418: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1419: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1420: END IF;
1421:
1422:
1415: -- If any severe error occurs, then, abort API.
1416: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1417: RAISE FND_API.G_EXC_ERROR;
1418: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1419: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1420: END IF;
1421:
1422:
1423: IF G_DEBUG = 'Y' THEN
1427: -- Get all the error messages from the previous steps (if any) and raise the appropriate Exception
1428: l_msg_count := FND_MSG_PUB.count_msg;
1429: IF l_msg_count > 0 THEN
1430: x_msg_count := l_msg_count;
1431: RAISE FND_API.G_EXC_ERROR;
1432: END IF;
1433:
1434:
1435: -- Perform the DML by invoking the Table Handler.
1617: -- Get all the error messages from the previous steps (if any) and raise the appropriate Exception
1618: l_msg_count := FND_MSG_PUB.count_msg;
1619: IF l_msg_count > 0 THEN
1620: x_msg_count := l_msg_count;
1621: RAISE FND_API.G_EXC_ERROR;
1622: END IF;
1623:
1624: -- Perform the Commit (if requested)
1625: IF FND_API.to_boolean( p_commit ) THEN
1621: RAISE FND_API.G_EXC_ERROR;
1622: END IF;
1623:
1624: -- Perform the Commit (if requested)
1625: IF FND_API.to_boolean( p_commit ) THEN
1626: COMMIT WORK;
1627: END IF;
1628:
1629: -- Count and Get messages (optional)
1628:
1629: -- Count and Get messages (optional)
1630: FND_MSG_PUB.count_and_get
1631: (
1632: p_encoded => FND_API.G_FALSE,
1633: p_count => x_msg_count,
1634: p_data => x_msg_data
1635: );
1636:
1640: END IF;
1641:
1642: EXCEPTION
1643:
1644: WHEN FND_API.G_EXC_ERROR THEN
1645: ROLLBACK TO process_OPERATION_PVT;
1646: x_return_status := FND_API.G_RET_STS_ERROR ;
1647: FND_MSG_PUB.count_and_get
1648: (
1642: EXCEPTION
1643:
1644: WHEN FND_API.G_EXC_ERROR THEN
1645: ROLLBACK TO process_OPERATION_PVT;
1646: x_return_status := FND_API.G_RET_STS_ERROR ;
1647: FND_MSG_PUB.count_and_get
1648: (
1649: p_encoded => FND_API.G_FALSE,
1650: p_count => x_msg_count,
1645: ROLLBACK TO process_OPERATION_PVT;
1646: x_return_status := FND_API.G_RET_STS_ERROR ;
1647: FND_MSG_PUB.count_and_get
1648: (
1649: p_encoded => FND_API.G_FALSE,
1650: p_count => x_msg_count,
1651: p_data => x_msg_data
1652: );
1653:
1655: IF G_DEBUG = 'Y' THEN
1656: AHL_DEBUG_PUB.disable_debug;
1657: END IF;
1658:
1659: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1660: ROLLBACK TO process_OPERATION_PVT;
1661: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1662: FND_MSG_PUB.count_and_get
1663: (
1657: END IF;
1658:
1659: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1660: ROLLBACK TO process_OPERATION_PVT;
1661: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1662: FND_MSG_PUB.count_and_get
1663: (
1664: p_encoded => FND_API.G_FALSE,
1665: p_count => x_msg_count,
1660: ROLLBACK TO process_OPERATION_PVT;
1661: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1662: FND_MSG_PUB.count_and_get
1663: (
1664: p_encoded => FND_API.G_FALSE,
1665: p_count => x_msg_count,
1666: p_data => x_msg_data
1667: );
1668:
1671: AHL_DEBUG_PUB.disable_debug;
1672: END IF;
1673: WHEN OTHERS THEN
1674: ROLLBACK TO process_OPERATION_PVT;
1675: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1676: IF FND_MSG_PUB.check_msg_level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
1677: THEN
1678: FND_MSG_PUB.add_exc_msg
1679: (
1683: );
1684: END IF;
1685: FND_MSG_PUB.count_and_get
1686: (
1687: p_encoded => FND_API.G_FALSE,
1688: p_count => x_msg_count,
1689: p_data => x_msg_data
1690: );
1691:
1697:
1698: PROCEDURE delete_operation
1699: (
1700: p_api_version IN NUMBER := 1.0,
1701: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
1702: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1703: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1704: p_default IN VARCHAR2 := FND_API.G_FALSE,
1705: p_module_type IN VARCHAR2 := NULL,
1698: PROCEDURE delete_operation
1699: (
1700: p_api_version IN NUMBER := 1.0,
1701: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
1702: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1703: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1704: p_default IN VARCHAR2 := FND_API.G_FALSE,
1705: p_module_type IN VARCHAR2 := NULL,
1706: x_return_status OUT NOCOPY VARCHAR2,
1699: (
1700: p_api_version IN NUMBER := 1.0,
1701: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
1702: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1703: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1704: p_default IN VARCHAR2 := FND_API.G_FALSE,
1705: p_module_type IN VARCHAR2 := NULL,
1706: x_return_status OUT NOCOPY VARCHAR2,
1707: x_msg_count OUT NOCOPY NUMBER,
1700: p_api_version IN NUMBER := 1.0,
1701: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
1702: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1703: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1704: p_default IN VARCHAR2 := FND_API.G_FALSE,
1705: p_module_type IN VARCHAR2 := NULL,
1706: x_return_status OUT NOCOPY VARCHAR2,
1707: x_msg_count OUT NOCOPY NUMBER,
1708: x_msg_data OUT NOCOPY VARCHAR2,
1736: l_dummy VARCHAR2(1);
1737:
1738: BEGIN
1739: -- Initialize API return status to success
1740: x_return_status := FND_API.G_RET_STS_SUCCESS;
1741:
1742: -- Standard Start of API savepoint
1743: SAVEPOINT delete_operation_pvt;
1744:
1742: -- Standard Start of API savepoint
1743: SAVEPOINT delete_operation_pvt;
1744:
1745: -- Standard call to check for call compatibility.
1746: IF NOT FND_API.compatible_api_call
1747: (
1748: l_api_version,
1749: p_api_version,
1750: l_api_name,
1750: l_api_name,
1751: G_PKG_NAME
1752: )
1753: THEN
1754: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1755: END IF;
1756:
1757: -- Initialize message list if p_init_msg_list is set to TRUE.
1758: IF FND_API.to_boolean( p_init_msg_list ) THEN
1754: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1755: END IF;
1756:
1757: -- Initialize message list if p_init_msg_list is set to TRUE.
1758: IF FND_API.to_boolean( p_init_msg_list ) THEN
1759: FND_MSG_PUB.initialize;
1760: END IF;
1761:
1762: IF G_DEBUG = 'Y' THEN
1764: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : Begin API' );
1765: END IF;
1766:
1767: IF ( p_operation_id IS NULL OR
1768: p_operation_id = FND_API.G_MISS_NUM OR
1769: p_object_version_number IS NULL OR
1770: p_object_version_number = FND_API.G_MISS_NUM ) THEN
1771: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_INVALID_PROCEDURE_CALL' );
1772: FND_MSG_PUB.add;
1766:
1767: IF ( p_operation_id IS NULL OR
1768: p_operation_id = FND_API.G_MISS_NUM OR
1769: p_object_version_number IS NULL OR
1770: p_object_version_number = FND_API.G_MISS_NUM ) THEN
1771: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_INVALID_PROCEDURE_CALL' );
1772: FND_MSG_PUB.add;
1773: RAISE FND_API.G_EXC_ERROR;
1774: END IF;
1769: p_object_version_number IS NULL OR
1770: p_object_version_number = FND_API.G_MISS_NUM ) THEN
1771: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_INVALID_PROCEDURE_CALL' );
1772: FND_MSG_PUB.add;
1773: RAISE FND_API.G_EXC_ERROR;
1774: END IF;
1775:
1776: OPEN validate_oper_ovn;
1777: FETCH validate_oper_ovn INTO l_dummy;
1786: Select ENIGMA_OP_ID into l_enig_op_id
1787: From ahl_operations_b
1788: Where operation_id = p_operation_id;
1789:
1790: IF ( l_enig_op_id is not null and l_enig_op_id <> FND_API.G_MISS_CHAR)
1791: THEN
1792: --if the operation is from enigma do not allow deletion.
1793: FND_MESSAGE.SET_NAME('AHL','AHL_RM_OPER_ENIG_DELT');
1794: FND_MSG_PUB.ADD;
1791: THEN
1792: --if the operation is from enigma do not allow deletion.
1793: FND_MESSAGE.SET_NAME('AHL','AHL_RM_OPER_ENIG_DELT');
1794: FND_MSG_PUB.ADD;
1795: RAISE FND_API.G_EXC_ERROR;
1796: END IF;
1797: END IF;
1798: --bachandr Enigma Phase I changes -- end
1799:
1803: x_msg_data => l_msg_data,
1804: x_return_status => l_return_status
1805: );
1806:
1807: IF ( NVL( l_return_status, 'X' ) <> FND_API.G_RET_STS_SUCCESS ) THEN
1808: IF ( l_msg_data = 'AHL_RM_INVALID_OPER_STATUS' ) THEN
1809: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_OP_STATUS_NOT_DRAFT' );
1810: ELSE
1811: FND_MESSAGE.set_name( 'AHL', l_msg_data );
1811: FND_MESSAGE.set_name( 'AHL', l_msg_data );
1812: END IF;
1813:
1814: FND_MSG_PUB.add;
1815: RAISE FND_API.G_EXC_ERROR;
1816: END IF;
1817:
1818: BEGIN
1819: -- Delete the record in AHL_OPERATIONS_B and AHL_OPERATIONS_TL
1825: EXCEPTION
1826: WHEN NO_DATA_FOUND THEN
1827: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_RECORD_CHANGED' );
1828: FND_MSG_PUB.add;
1829: RAISE FND_API.G_EXC_ERROR;
1830: WHEN OTHERS THEN
1831: RAISE;
1832: END;
1833:
1908: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : after Deleting Access Panels' );
1909: END IF;
1910:
1911: -- Perform the Commit (if requested)
1912: IF FND_API.to_boolean( p_commit ) THEN
1913: COMMIT WORK;
1914: END IF;
1915:
1916: -- Count and Get messages (optional)
1915:
1916: -- Count and Get messages (optional)
1917: FND_MSG_PUB.count_and_get
1918: (
1919: p_encoded => FND_API.G_FALSE,
1920: p_count => x_msg_count,
1921: p_data => x_msg_data
1922: );
1923:
1926: AHL_DEBUG_PUB.disable_debug;
1927: END IF;
1928: EXCEPTION
1929:
1930: WHEN FND_API.G_EXC_ERROR THEN
1931: ROLLBACK TO delete_OPERATION_PVT;
1932: x_return_status := FND_API.G_RET_STS_ERROR ;
1933: FND_MSG_PUB.count_and_get
1934: (
1928: EXCEPTION
1929:
1930: WHEN FND_API.G_EXC_ERROR THEN
1931: ROLLBACK TO delete_OPERATION_PVT;
1932: x_return_status := FND_API.G_RET_STS_ERROR ;
1933: FND_MSG_PUB.count_and_get
1934: (
1935: p_encoded => FND_API.G_FALSE,
1936: p_count => x_msg_count,
1931: ROLLBACK TO delete_OPERATION_PVT;
1932: x_return_status := FND_API.G_RET_STS_ERROR ;
1933: FND_MSG_PUB.count_and_get
1934: (
1935: p_encoded => FND_API.G_FALSE,
1936: p_count => x_msg_count,
1937: p_data => x_msg_data
1938: );
1939:
1940: -- Disable debug (if enabled)
1941: IF G_DEBUG = 'Y' THEN
1942: AHL_DEBUG_PUB.disable_debug;
1943: END IF;
1944: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1945: ROLLBACK TO delete_OPERATION_PVT;
1946: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1947: FND_MSG_PUB.count_and_get
1948: (
1942: AHL_DEBUG_PUB.disable_debug;
1943: END IF;
1944: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1945: ROLLBACK TO delete_OPERATION_PVT;
1946: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1947: FND_MSG_PUB.count_and_get
1948: (
1949: p_encoded => FND_API.G_FALSE,
1950: p_count => x_msg_count,
1945: ROLLBACK TO delete_OPERATION_PVT;
1946: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1947: FND_MSG_PUB.count_and_get
1948: (
1949: p_encoded => FND_API.G_FALSE,
1950: p_count => x_msg_count,
1951: p_data => x_msg_data
1952: );
1953:
1956: AHL_DEBUG_PUB.disable_debug;
1957: END IF;
1958: WHEN OTHERS THEN
1959: ROLLBACK TO delete_OPERATION_PVT;
1960: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1961: IF FND_MSG_PUB.check_msg_level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
1962: THEN
1963: FND_MSG_PUB.add_exc_msg
1964: (
1968: );
1969: END IF;
1970: FND_MSG_PUB.count_and_get
1971: (
1972: p_encoded => FND_API.G_FALSE,
1973: p_count => x_msg_count,
1974: p_data => x_msg_data
1975: );
1976:
1982:
1983: PROCEDURE create_oper_revision
1984: (
1985: p_api_version IN NUMBER := 1.0,
1986: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
1987: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1988: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1989: p_default IN VARCHAR2 := FND_API.G_FALSE,
1990: p_module_type IN VARCHAR2 := NULL,
1983: PROCEDURE create_oper_revision
1984: (
1985: p_api_version IN NUMBER := 1.0,
1986: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
1987: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1988: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1989: p_default IN VARCHAR2 := FND_API.G_FALSE,
1990: p_module_type IN VARCHAR2 := NULL,
1991: x_return_status OUT NOCOPY VARCHAR2,
1984: (
1985: p_api_version IN NUMBER := 1.0,
1986: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
1987: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1988: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1989: p_default IN VARCHAR2 := FND_API.G_FALSE,
1990: p_module_type IN VARCHAR2 := NULL,
1991: x_return_status OUT NOCOPY VARCHAR2,
1992: x_msg_count OUT NOCOPY NUMBER,
1985: p_api_version IN NUMBER := 1.0,
1986: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
1987: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1988: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1989: p_default IN VARCHAR2 := FND_API.G_FALSE,
1990: p_module_type IN VARCHAR2 := NULL,
1991: x_return_status OUT NOCOPY VARCHAR2,
1992: x_msg_count OUT NOCOPY NUMBER,
1993: x_msg_data OUT NOCOPY VARCHAR2,
2086: AND association_type_code = 'OPERATION';
2087:
2088: BEGIN
2089: -- Initialize API return status to success
2090: x_return_status := FND_API.G_RET_STS_SUCCESS;
2091:
2092: -- Standard Start of API savepoint
2093: SAVEPOINT create_oper_revision_pvt;
2094:
2092: -- Standard Start of API savepoint
2093: SAVEPOINT create_oper_revision_pvt;
2094:
2095: -- Standard call to check for call compatibility.
2096: IF NOT FND_API.compatible_api_call
2097: (
2098: l_api_version,
2099: p_api_version,
2100: l_api_name,
2100: l_api_name,
2101: G_PKG_NAME
2102: )
2103: THEN
2104: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2105: END IF;
2106:
2107: -- Initialize message list if p_init_msg_list is set to TRUE.
2108: IF FND_API.to_boolean( p_init_msg_list ) THEN
2104: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2105: END IF;
2106:
2107: -- Initialize message list if p_init_msg_list is set to TRUE.
2108: IF FND_API.to_boolean( p_init_msg_list ) THEN
2109: FND_MSG_PUB.initialize;
2110: END IF;
2111:
2112: IF G_DEBUG = 'Y' THEN
2114: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : Begin API' );
2115: END IF;
2116:
2117: IF ( p_operation_id IS NULL OR
2118: p_operation_id = FND_API.G_MISS_NUM OR
2119: p_object_version_number IS NULL OR
2120: p_object_version_number = FND_API.G_MISS_NUM ) THEN
2121: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_INVALID_PROCEDURE_CALL' );
2122: FND_MSG_PUB.add;
2116:
2117: IF ( p_operation_id IS NULL OR
2118: p_operation_id = FND_API.G_MISS_NUM OR
2119: p_object_version_number IS NULL OR
2120: p_object_version_number = FND_API.G_MISS_NUM ) THEN
2121: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_INVALID_PROCEDURE_CALL' );
2122: FND_MSG_PUB.add;
2123: RAISE FND_API.G_EXC_ERROR;
2124: END IF;
2119: p_object_version_number IS NULL OR
2120: p_object_version_number = FND_API.G_MISS_NUM ) THEN
2121: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_INVALID_PROCEDURE_CALL' );
2122: FND_MSG_PUB.add;
2123: RAISE FND_API.G_EXC_ERROR;
2124: END IF;
2125:
2126: get_operation_record
2127: (
2131: p_object_version_number => p_object_version_number,
2132: x_operation_rec => l_old_operation_rec
2133: );
2134:
2135: IF ( NVL( l_return_status, 'X' ) <> FND_API.G_RET_STS_SUCCESS ) THEN
2136: FND_MESSAGE.set_name( 'AHL', l_msg_data );
2137: FND_MSG_PUB.add;
2138: RAISE FND_API.G_EXC_ERROR;
2139: END IF;
2134:
2135: IF ( NVL( l_return_status, 'X' ) <> FND_API.G_RET_STS_SUCCESS ) THEN
2136: FND_MESSAGE.set_name( 'AHL', l_msg_data );
2137: FND_MSG_PUB.add;
2138: RAISE FND_API.G_EXC_ERROR;
2139: END IF;
2140:
2141: -- Check if the Status is COMPLETE
2142: IF ( l_old_operation_rec.revision_status_code <> 'COMPLETE' ) THEN
2142: IF ( l_old_operation_rec.revision_status_code <> 'COMPLETE' ) THEN
2143: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_OP_STATUS_NOT_COMPLETE' );
2144: FND_MESSAGE.set_token( 'RECORD', l_old_operation_rec.concatenated_segments );
2145: FND_MSG_PUB.add;
2146: RAISE FND_API.G_EXC_ERROR;
2147: END IF;
2148:
2149: -- Check if active end date is set
2150: IF l_old_operation_rec.active_end_date is not null THEN
2151: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_END_DATE_NOT_NULL' );
2152: FND_MESSAGE.set_token( 'RECORD', l_old_operation_rec.concatenated_segments )
2153: ;
2154: FND_MSG_PUB.add;
2155: RAISE FND_API.G_EXC_ERROR;
2156: END IF;
2157:
2158: -- Check if this revision is the latest complete revision of this Operation
2159: OPEN get_latest_revision(l_old_operation_rec.concatenated_segments);
2164: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_OP_REVISION_NOT_LATEST' );
2165: FND_MESSAGE.set_token( 'RECORD', l_old_operation_rec.concatenated_segments );
2166: FND_MSG_PUB.add;
2167: CLOSE get_latest_revision;
2168: RAISE FND_API.G_EXC_ERROR;
2169: END IF;
2170:
2171: CLOSE get_latest_revision;
2172:
2660: -- Set the Out values.
2661: x_operation_id := l_operation_id;
2662:
2663: -- Perform the Commit (if requested)
2664: IF FND_API.to_boolean( p_commit ) THEN
2665: COMMIT WORK;
2666: END IF;
2667:
2668: -- Count and Get messages (optional)
2667:
2668: -- Count and Get messages (optional)
2669: FND_MSG_PUB.count_and_get
2670: (
2671: p_encoded => FND_API.G_FALSE,
2672: p_count => x_msg_count,
2673: p_data => x_msg_data
2674: );
2675:
2678: AHL_DEBUG_PUB.disable_debug;
2679: END IF;
2680: EXCEPTION
2681:
2682: WHEN FND_API.G_EXC_ERROR THEN
2683: ROLLBACK TO create_oper_revision_PVT;
2684: x_return_status := FND_API.G_RET_STS_ERROR ;
2685: FND_MSG_PUB.count_and_get
2686: (
2680: EXCEPTION
2681:
2682: WHEN FND_API.G_EXC_ERROR THEN
2683: ROLLBACK TO create_oper_revision_PVT;
2684: x_return_status := FND_API.G_RET_STS_ERROR ;
2685: FND_MSG_PUB.count_and_get
2686: (
2687: p_encoded => FND_API.G_FALSE,
2688: p_count => x_msg_count,
2683: ROLLBACK TO create_oper_revision_PVT;
2684: x_return_status := FND_API.G_RET_STS_ERROR ;
2685: FND_MSG_PUB.count_and_get
2686: (
2687: p_encoded => FND_API.G_FALSE,
2688: p_count => x_msg_count,
2689: p_data => x_msg_data
2690: );
2691:
2692: -- Disable debug (if enabled)
2693: IF G_DEBUG = 'Y' THEN
2694: AHL_DEBUG_PUB.disable_debug;
2695: END IF;
2696: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2697: ROLLBACK TO create_oper_revision_PVT;
2698: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2699: FND_MSG_PUB.count_and_get
2700: (
2694: AHL_DEBUG_PUB.disable_debug;
2695: END IF;
2696: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2697: ROLLBACK TO create_oper_revision_PVT;
2698: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2699: FND_MSG_PUB.count_and_get
2700: (
2701: p_encoded => FND_API.G_FALSE,
2702: p_count => x_msg_count,
2697: ROLLBACK TO create_oper_revision_PVT;
2698: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2699: FND_MSG_PUB.count_and_get
2700: (
2701: p_encoded => FND_API.G_FALSE,
2702: p_count => x_msg_count,
2703: p_data => x_msg_data
2704: );
2705:
2708: AHL_DEBUG_PUB.disable_debug;
2709: END IF;
2710: WHEN OTHERS THEN
2711: ROLLBACK TO create_oper_revision_PVT;
2712: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2713: IF FND_MSG_PUB.check_msg_level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
2714: THEN
2715: FND_MSG_PUB.add_exc_msg
2716: (
2720: );
2721: END IF;
2722: FND_MSG_PUB.count_and_get
2723: (
2724: p_encoded => FND_API.G_FALSE,
2725: p_count => x_msg_count,
2726: p_data => x_msg_data
2727: );
2728: