[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;
193:
194:
195: -- Convert / Validate QA Plan
196: IF ( ( p_x_operation_rec.qa_inspection_type_desc IS NOT NULL AND
197: p_x_operation_rec.qa_inspection_type_desc <> FND_API.G_MISS_CHAR ) OR
198: ( p_x_operation_rec.qa_inspection_type IS NOT NULL AND
199: p_x_operation_rec.qa_inspection_type <> FND_API.G_MISS_CHAR ) ) THEN
200:
201: AHL_RM_ROUTE_UTIL.validate_qa_inspection_type
195: -- Convert / Validate QA Plan
196: IF ( ( p_x_operation_rec.qa_inspection_type_desc IS NOT NULL AND
197: p_x_operation_rec.qa_inspection_type_desc <> FND_API.G_MISS_CHAR ) OR
198: ( p_x_operation_rec.qa_inspection_type IS NOT NULL AND
199: p_x_operation_rec.qa_inspection_type <> FND_API.G_MISS_CHAR ) ) THEN
200:
201: AHL_RM_ROUTE_UTIL.validate_qa_inspection_type
202: (
203: x_return_status => l_return_status,
205: p_qa_inspection_type_desc => p_x_operation_rec.qa_inspection_type_desc,
206: p_x_qa_inspection_type => p_x_operation_rec.qa_inspection_type
207: );
208:
209: IF ( NVL( l_return_status, 'X' ) <> FND_API.G_RET_STS_SUCCESS ) THEN
210: FND_MESSAGE.set_name( 'AHL', l_msg_data );
211:
212: IF ( p_x_operation_rec.qa_inspection_type_desc IS NULL OR
213: p_x_operation_rec.qa_inspection_type_desc = FND_API.G_MISS_CHAR ) THEN
209: IF ( NVL( l_return_status, 'X' ) <> FND_API.G_RET_STS_SUCCESS ) THEN
210: FND_MESSAGE.set_name( 'AHL', l_msg_data );
211:
212: IF ( p_x_operation_rec.qa_inspection_type_desc IS NULL OR
213: p_x_operation_rec.qa_inspection_type_desc = FND_API.G_MISS_CHAR ) THEN
214: FND_MESSAGE.set_token( 'FIELD', p_x_operation_rec.qa_inspection_type );
215: ELSE
216: FND_MESSAGE.set_token( 'FIELD', p_x_operation_rec.qa_inspection_type_desc );
217: END IF;
222: END IF;
223:
224: -- Convert / Validate Revision Status
225: IF ( ( p_x_operation_rec.revision_status_code IS NOT NULL AND
226: p_x_operation_rec.revision_status_code <> FND_API.G_MISS_CHAR ) OR
227: ( p_x_operation_rec.revision_status IS NOT NULL AND
228: p_x_operation_rec.revision_status <> FND_API.G_MISS_CHAR ) ) THEN
229:
230: AHL_RM_ROUTE_UTIL.validate_lookup
224: -- Convert / Validate Revision Status
225: IF ( ( p_x_operation_rec.revision_status_code IS NOT NULL AND
226: p_x_operation_rec.revision_status_code <> FND_API.G_MISS_CHAR ) OR
227: ( p_x_operation_rec.revision_status IS NOT NULL AND
228: p_x_operation_rec.revision_status <> FND_API.G_MISS_CHAR ) ) THEN
229:
230: AHL_RM_ROUTE_UTIL.validate_lookup
231: (
232: x_return_status => l_return_status,
235: p_lookup_meaning => p_x_operation_rec.revision_status,
236: p_x_lookup_code => p_x_operation_rec.revision_status_code
237: );
238:
239: IF ( NVL( l_return_status, 'X' ) <> FND_API.G_RET_STS_SUCCESS ) THEN
240: IF ( l_msg_data = 'AHL_COM_INVALID_LOOKUP' ) THEN
241: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_INVALID_STATUS' );
242: ELSIF ( l_msg_data = 'AHL_COM_TOO_MANY_LOOKUPS' ) THEN
243: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_TOO_MANY_STATUSES' );
245: FND_MESSAGE.set_name( 'AHL', l_msg_data );
246: END IF;
247:
248: IF ( p_x_operation_rec.revision_status IS NULL OR
249: p_x_operation_rec.revision_status = FND_API.G_MISS_CHAR ) THEN
250: FND_MESSAGE.set_token( 'FIELD', p_x_operation_rec.revision_status_code );
251: ELSE
252: FND_MESSAGE.set_token( 'FIELD', p_x_operation_rec.revision_status );
253: END IF;
269:
270: BEGIN
271:
272: -- Convert G_MISS values to NULL
273: IF ( p_x_operation_rec.operation_type_code = FND_API.G_MISS_CHAR ) THEN
274: p_x_operation_rec.operation_type_code := null;
275: END IF;
276:
277: IF ( p_x_operation_rec.operation_type = FND_API.G_MISS_CHAR ) THEN
273: IF ( p_x_operation_rec.operation_type_code = FND_API.G_MISS_CHAR ) THEN
274: p_x_operation_rec.operation_type_code := null;
275: END IF;
276:
277: IF ( p_x_operation_rec.operation_type = FND_API.G_MISS_CHAR ) THEN
278: p_x_operation_rec.operation_type := null;
279: END IF;
280:
281: IF ( p_x_operation_rec.process_code = FND_API.G_MISS_CHAR ) THEN
277: IF ( p_x_operation_rec.operation_type = FND_API.G_MISS_CHAR ) THEN
278: p_x_operation_rec.operation_type := null;
279: END IF;
280:
281: IF ( p_x_operation_rec.process_code = FND_API.G_MISS_CHAR ) THEN
282: p_x_operation_rec.process_code := null;
283: END IF;
284:
285: IF ( p_x_operation_rec.process = FND_API.G_MISS_CHAR ) THEN
281: IF ( p_x_operation_rec.process_code = FND_API.G_MISS_CHAR ) THEN
282: p_x_operation_rec.process_code := null;
283: END IF;
284:
285: IF ( p_x_operation_rec.process = FND_API.G_MISS_CHAR ) THEN
286: p_x_operation_rec.process := null;
287: END IF;
288: --bachandr Enigma Phase I changes -- start
289: IF ( p_x_operation_rec.model_code = FND_API.G_MISS_CHAR ) THEN
285: IF ( p_x_operation_rec.process = FND_API.G_MISS_CHAR ) THEN
286: p_x_operation_rec.process := null;
287: END IF;
288: --bachandr Enigma Phase I changes -- start
289: IF ( p_x_operation_rec.model_code = FND_API.G_MISS_CHAR ) THEN
290: p_x_operation_rec.model_code := null;
291: END IF;
292:
293: IF ( p_x_operation_rec.model_meaning = FND_API.G_MISS_CHAR ) THEN
289: IF ( p_x_operation_rec.model_code = FND_API.G_MISS_CHAR ) THEN
290: p_x_operation_rec.model_code := null;
291: END IF;
292:
293: IF ( p_x_operation_rec.model_meaning = FND_API.G_MISS_CHAR ) THEN
294: p_x_operation_rec.model_meaning := null;
295: END IF;
296:
297: IF ( p_x_operation_rec.enigma_op_id = FND_API.G_MISS_CHAR ) THEN
293: IF ( p_x_operation_rec.model_meaning = FND_API.G_MISS_CHAR ) THEN
294: p_x_operation_rec.model_meaning := null;
295: END IF;
296:
297: IF ( p_x_operation_rec.enigma_op_id = FND_API.G_MISS_CHAR ) THEN
298: p_x_operation_rec.enigma_op_id := null;
299: END IF;
300: --bachandr Enigma Phase I changes -- end
301:
299: END IF;
300: --bachandr Enigma Phase I changes -- end
301:
302: --pekambar Enigma Phase II changes -- start
303: IF ( p_x_operation_rec.enigmatype_code = FND_API.G_MISS_CHAR ) THEN
304: p_x_operation_rec.enigmatype_code := null;
305: END IF;
306:
307: IF ( p_x_operation_rec.enigmatype_meaning = FND_API.G_MISS_CHAR ) THEN
303: IF ( p_x_operation_rec.enigmatype_code = FND_API.G_MISS_CHAR ) THEN
304: p_x_operation_rec.enigmatype_code := null;
305: END IF;
306:
307: IF ( p_x_operation_rec.enigmatype_meaning = FND_API.G_MISS_CHAR ) THEN
308: p_x_operation_rec.enigmatype_meaning := null;
309: END IF;
310:
311: IF ( p_x_operation_rec.enigma_doc_id = FND_API.G_MISS_CHAR ) THEN
307: IF ( p_x_operation_rec.enigmatype_meaning = FND_API.G_MISS_CHAR ) THEN
308: p_x_operation_rec.enigmatype_meaning := null;
309: END IF;
310:
311: IF ( p_x_operation_rec.enigma_doc_id = FND_API.G_MISS_CHAR ) THEN
312: p_x_operation_rec.enigma_doc_id := null;
313: END IF;
314: --pekambar Enigma Phase II changes -- end
315:
312: p_x_operation_rec.enigma_doc_id := null;
313: END IF;
314: --pekambar Enigma Phase II changes -- end
315:
316: IF ( p_x_operation_rec.qa_inspection_type = FND_API.G_MISS_CHAR ) THEN
317: p_x_operation_rec.qa_inspection_type := null;
318: END IF;
319:
320: IF ( p_x_operation_rec.qa_inspection_type_desc = FND_API.G_MISS_CHAR ) THEN
316: IF ( p_x_operation_rec.qa_inspection_type = FND_API.G_MISS_CHAR ) THEN
317: p_x_operation_rec.qa_inspection_type := null;
318: END IF;
319:
320: IF ( p_x_operation_rec.qa_inspection_type_desc = FND_API.G_MISS_CHAR ) THEN
321: p_x_operation_rec.qa_inspection_type_desc := null;
322: END IF;
323:
324: IF ( p_x_operation_rec.remarks = FND_API.G_MISS_CHAR ) THEN
320: IF ( p_x_operation_rec.qa_inspection_type_desc = FND_API.G_MISS_CHAR ) THEN
321: p_x_operation_rec.qa_inspection_type_desc := null;
322: END IF;
323:
324: IF ( p_x_operation_rec.remarks = FND_API.G_MISS_CHAR ) THEN
325: p_x_operation_rec.remarks := null;
326: END IF;
327:
328: IF ( p_x_operation_rec.revision_notes = FND_API.G_MISS_CHAR ) THEN
324: IF ( p_x_operation_rec.remarks = FND_API.G_MISS_CHAR ) THEN
325: p_x_operation_rec.remarks := null;
326: END IF;
327:
328: IF ( p_x_operation_rec.revision_notes = FND_API.G_MISS_CHAR ) THEN
329: p_x_operation_rec.revision_notes := null;
330: END IF;
331:
332: IF ( p_x_operation_rec.segment1 = FND_API.G_MISS_CHAR ) THEN
328: IF ( p_x_operation_rec.revision_notes = FND_API.G_MISS_CHAR ) THEN
329: p_x_operation_rec.revision_notes := null;
330: END IF;
331:
332: IF ( p_x_operation_rec.segment1 = FND_API.G_MISS_CHAR ) THEN
333: p_x_operation_rec.segment1 := null;
334: END IF;
335:
336: IF ( p_x_operation_rec.segment2 = FND_API.G_MISS_CHAR ) THEN
332: IF ( p_x_operation_rec.segment1 = FND_API.G_MISS_CHAR ) THEN
333: p_x_operation_rec.segment1 := null;
334: END IF;
335:
336: IF ( p_x_operation_rec.segment2 = FND_API.G_MISS_CHAR ) THEN
337: p_x_operation_rec.segment2 := null;
338: END IF;
339:
340: IF ( p_x_operation_rec.segment3 = FND_API.G_MISS_CHAR ) THEN
336: IF ( p_x_operation_rec.segment2 = FND_API.G_MISS_CHAR ) THEN
337: p_x_operation_rec.segment2 := null;
338: END IF;
339:
340: IF ( p_x_operation_rec.segment3 = FND_API.G_MISS_CHAR ) THEN
341: p_x_operation_rec.segment3 := null;
342: END IF;
343:
344: IF ( p_x_operation_rec.segment4 = FND_API.G_MISS_CHAR ) THEN
340: IF ( p_x_operation_rec.segment3 = FND_API.G_MISS_CHAR ) THEN
341: p_x_operation_rec.segment3 := null;
342: END IF;
343:
344: IF ( p_x_operation_rec.segment4 = FND_API.G_MISS_CHAR ) THEN
345: p_x_operation_rec.segment4 := null;
346: END IF;
347:
348: IF ( p_x_operation_rec.segment5 = FND_API.G_MISS_CHAR ) THEN
344: IF ( p_x_operation_rec.segment4 = FND_API.G_MISS_CHAR ) THEN
345: p_x_operation_rec.segment4 := null;
346: END IF;
347:
348: IF ( p_x_operation_rec.segment5 = FND_API.G_MISS_CHAR ) THEN
349: p_x_operation_rec.segment5 := null;
350: END IF;
351:
352: IF ( p_x_operation_rec.segment6 = FND_API.G_MISS_CHAR ) THEN
348: IF ( p_x_operation_rec.segment5 = FND_API.G_MISS_CHAR ) THEN
349: p_x_operation_rec.segment5 := null;
350: END IF;
351:
352: IF ( p_x_operation_rec.segment6 = FND_API.G_MISS_CHAR ) THEN
353: p_x_operation_rec.segment6 := null;
354: END IF;
355:
356: IF ( p_x_operation_rec.segment7 = FND_API.G_MISS_CHAR ) THEN
352: IF ( p_x_operation_rec.segment6 = FND_API.G_MISS_CHAR ) THEN
353: p_x_operation_rec.segment6 := null;
354: END IF;
355:
356: IF ( p_x_operation_rec.segment7 = FND_API.G_MISS_CHAR ) THEN
357: p_x_operation_rec.segment7 := null;
358: END IF;
359:
360: IF ( p_x_operation_rec.segment8 = FND_API.G_MISS_CHAR ) THEN
356: IF ( p_x_operation_rec.segment7 = FND_API.G_MISS_CHAR ) THEN
357: p_x_operation_rec.segment7 := null;
358: END IF;
359:
360: IF ( p_x_operation_rec.segment8 = FND_API.G_MISS_CHAR ) THEN
361: p_x_operation_rec.segment8 := null;
362: END IF;
363:
364: IF ( p_x_operation_rec.segment9 = FND_API.G_MISS_CHAR ) THEN
360: IF ( p_x_operation_rec.segment8 = FND_API.G_MISS_CHAR ) THEN
361: p_x_operation_rec.segment8 := null;
362: END IF;
363:
364: IF ( p_x_operation_rec.segment9 = FND_API.G_MISS_CHAR ) THEN
365: p_x_operation_rec.segment9 := null;
366: END IF;
367:
368: IF ( p_x_operation_rec.segment10 = FND_API.G_MISS_CHAR ) THEN
364: IF ( p_x_operation_rec.segment9 = FND_API.G_MISS_CHAR ) THEN
365: p_x_operation_rec.segment9 := null;
366: END IF;
367:
368: IF ( p_x_operation_rec.segment10 = FND_API.G_MISS_CHAR ) THEN
369: p_x_operation_rec.segment10 := null;
370: END IF;
371:
372: IF ( p_x_operation_rec.segment11 = FND_API.G_MISS_CHAR ) THEN
368: IF ( p_x_operation_rec.segment10 = FND_API.G_MISS_CHAR ) THEN
369: p_x_operation_rec.segment10 := null;
370: END IF;
371:
372: IF ( p_x_operation_rec.segment11 = FND_API.G_MISS_CHAR ) THEN
373: p_x_operation_rec.segment11 := null;
374: END IF;
375:
376: IF ( p_x_operation_rec.segment12 = FND_API.G_MISS_CHAR ) THEN
372: IF ( p_x_operation_rec.segment11 = FND_API.G_MISS_CHAR ) THEN
373: p_x_operation_rec.segment11 := null;
374: END IF;
375:
376: IF ( p_x_operation_rec.segment12 = FND_API.G_MISS_CHAR ) THEN
377: p_x_operation_rec.segment12 := null;
378: END IF;
379:
380: IF ( p_x_operation_rec.segment13 = FND_API.G_MISS_CHAR ) THEN
376: IF ( p_x_operation_rec.segment12 = FND_API.G_MISS_CHAR ) THEN
377: p_x_operation_rec.segment12 := null;
378: END IF;
379:
380: IF ( p_x_operation_rec.segment13 = FND_API.G_MISS_CHAR ) THEN
381: p_x_operation_rec.segment13 := null;
382: END IF;
383:
384: IF ( p_x_operation_rec.segment14 = FND_API.G_MISS_CHAR ) THEN
380: IF ( p_x_operation_rec.segment13 = FND_API.G_MISS_CHAR ) THEN
381: p_x_operation_rec.segment13 := null;
382: END IF;
383:
384: IF ( p_x_operation_rec.segment14 = FND_API.G_MISS_CHAR ) THEN
385: p_x_operation_rec.segment14 := null;
386: END IF;
387:
388: IF ( p_x_operation_rec.segment15 = FND_API.G_MISS_CHAR ) THEN
384: IF ( p_x_operation_rec.segment14 = FND_API.G_MISS_CHAR ) THEN
385: p_x_operation_rec.segment14 := null;
386: END IF;
387:
388: IF ( p_x_operation_rec.segment15 = FND_API.G_MISS_CHAR ) THEN
389: p_x_operation_rec.segment15 := null;
390: END IF;
391:
392: IF ( p_x_operation_rec.attribute_category = FND_API.G_MISS_CHAR ) THEN
388: IF ( p_x_operation_rec.segment15 = FND_API.G_MISS_CHAR ) THEN
389: p_x_operation_rec.segment15 := null;
390: END IF;
391:
392: IF ( p_x_operation_rec.attribute_category = FND_API.G_MISS_CHAR ) THEN
393: p_x_operation_rec.attribute_category := null;
394: END IF;
395:
396: IF ( p_x_operation_rec.attribute1 = FND_API.G_MISS_CHAR ) THEN
392: IF ( p_x_operation_rec.attribute_category = FND_API.G_MISS_CHAR ) THEN
393: p_x_operation_rec.attribute_category := null;
394: END IF;
395:
396: IF ( p_x_operation_rec.attribute1 = FND_API.G_MISS_CHAR ) THEN
397: p_x_operation_rec.attribute1 := null;
398: END IF;
399:
400: IF ( p_x_operation_rec.attribute2 = FND_API.G_MISS_CHAR ) THEN
396: IF ( p_x_operation_rec.attribute1 = FND_API.G_MISS_CHAR ) THEN
397: p_x_operation_rec.attribute1 := null;
398: END IF;
399:
400: IF ( p_x_operation_rec.attribute2 = FND_API.G_MISS_CHAR ) THEN
401: p_x_operation_rec.attribute2 := null;
402: END IF;
403:
404: IF ( p_x_operation_rec.attribute3 = FND_API.G_MISS_CHAR ) THEN
400: IF ( p_x_operation_rec.attribute2 = FND_API.G_MISS_CHAR ) THEN
401: p_x_operation_rec.attribute2 := null;
402: END IF;
403:
404: IF ( p_x_operation_rec.attribute3 = FND_API.G_MISS_CHAR ) THEN
405: p_x_operation_rec.attribute3 := null;
406: END IF;
407:
408: IF ( p_x_operation_rec.attribute4 = FND_API.G_MISS_CHAR ) THEN
404: IF ( p_x_operation_rec.attribute3 = FND_API.G_MISS_CHAR ) THEN
405: p_x_operation_rec.attribute3 := null;
406: END IF;
407:
408: IF ( p_x_operation_rec.attribute4 = FND_API.G_MISS_CHAR ) THEN
409: p_x_operation_rec.attribute4 := null;
410: END IF;
411:
412: IF ( p_x_operation_rec.attribute5 = FND_API.G_MISS_CHAR ) THEN
408: IF ( p_x_operation_rec.attribute4 = FND_API.G_MISS_CHAR ) THEN
409: p_x_operation_rec.attribute4 := null;
410: END IF;
411:
412: IF ( p_x_operation_rec.attribute5 = FND_API.G_MISS_CHAR ) THEN
413: p_x_operation_rec.attribute5 := null;
414: END IF;
415:
416: IF ( p_x_operation_rec.attribute6 = FND_API.G_MISS_CHAR ) THEN
412: IF ( p_x_operation_rec.attribute5 = FND_API.G_MISS_CHAR ) THEN
413: p_x_operation_rec.attribute5 := null;
414: END IF;
415:
416: IF ( p_x_operation_rec.attribute6 = FND_API.G_MISS_CHAR ) THEN
417: p_x_operation_rec.attribute6 := null;
418: END IF;
419:
420: IF ( p_x_operation_rec.attribute7 = FND_API.G_MISS_CHAR ) THEN
416: IF ( p_x_operation_rec.attribute6 = FND_API.G_MISS_CHAR ) THEN
417: p_x_operation_rec.attribute6 := null;
418: END IF;
419:
420: IF ( p_x_operation_rec.attribute7 = FND_API.G_MISS_CHAR ) THEN
421: p_x_operation_rec.attribute7 := null;
422: END IF;
423:
424: IF ( p_x_operation_rec.attribute8 = FND_API.G_MISS_CHAR ) THEN
420: IF ( p_x_operation_rec.attribute7 = FND_API.G_MISS_CHAR ) THEN
421: p_x_operation_rec.attribute7 := null;
422: END IF;
423:
424: IF ( p_x_operation_rec.attribute8 = FND_API.G_MISS_CHAR ) THEN
425: p_x_operation_rec.attribute8 := null;
426: END IF;
427:
428: IF ( p_x_operation_rec.attribute9 = FND_API.G_MISS_CHAR ) THEN
424: IF ( p_x_operation_rec.attribute8 = FND_API.G_MISS_CHAR ) THEN
425: p_x_operation_rec.attribute8 := null;
426: END IF;
427:
428: IF ( p_x_operation_rec.attribute9 = FND_API.G_MISS_CHAR ) THEN
429: p_x_operation_rec.attribute9 := null;
430: END IF;
431:
432: IF ( p_x_operation_rec.attribute10 = FND_API.G_MISS_CHAR ) THEN
428: IF ( p_x_operation_rec.attribute9 = FND_API.G_MISS_CHAR ) THEN
429: p_x_operation_rec.attribute9 := null;
430: END IF;
431:
432: IF ( p_x_operation_rec.attribute10 = FND_API.G_MISS_CHAR ) THEN
433: p_x_operation_rec.attribute10 := null;
434: END IF;
435:
436: IF ( p_x_operation_rec.attribute11 = FND_API.G_MISS_CHAR ) THEN
432: IF ( p_x_operation_rec.attribute10 = FND_API.G_MISS_CHAR ) THEN
433: p_x_operation_rec.attribute10 := null;
434: END IF;
435:
436: IF ( p_x_operation_rec.attribute11 = FND_API.G_MISS_CHAR ) THEN
437: p_x_operation_rec.attribute11 := null;
438: END IF;
439:
440: IF ( p_x_operation_rec.attribute12 = FND_API.G_MISS_CHAR ) THEN
436: IF ( p_x_operation_rec.attribute11 = FND_API.G_MISS_CHAR ) THEN
437: p_x_operation_rec.attribute11 := null;
438: END IF;
439:
440: IF ( p_x_operation_rec.attribute12 = FND_API.G_MISS_CHAR ) THEN
441: p_x_operation_rec.attribute12 := null;
442: END IF;
443:
444: IF ( p_x_operation_rec.attribute13 = FND_API.G_MISS_CHAR ) THEN
440: IF ( p_x_operation_rec.attribute12 = FND_API.G_MISS_CHAR ) THEN
441: p_x_operation_rec.attribute12 := null;
442: END IF;
443:
444: IF ( p_x_operation_rec.attribute13 = FND_API.G_MISS_CHAR ) THEN
445: p_x_operation_rec.attribute13 := null;
446: END IF;
447:
448: IF ( p_x_operation_rec.attribute14 = FND_API.G_MISS_CHAR ) THEN
444: IF ( p_x_operation_rec.attribute13 = FND_API.G_MISS_CHAR ) THEN
445: p_x_operation_rec.attribute13 := null;
446: END IF;
447:
448: IF ( p_x_operation_rec.attribute14 = FND_API.G_MISS_CHAR ) THEN
449: p_x_operation_rec.attribute14 := null;
450: END IF;
451:
452: IF ( p_x_operation_rec.attribute15 = FND_API.G_MISS_CHAR ) THEN
448: IF ( p_x_operation_rec.attribute14 = FND_API.G_MISS_CHAR ) THEN
449: p_x_operation_rec.attribute14 := null;
450: END IF;
451:
452: IF ( p_x_operation_rec.attribute15 = FND_API.G_MISS_CHAR ) THEN
453: p_x_operation_rec.attribute15 := null;
454: END IF;
455:
456: END default_missing_attributes;
529: FROM AHL_OPERATIONS_V
530: WHERE operation_id = c_operation_id;
531:
532: BEGIN
533: x_return_status := FND_API.G_RET_STS_SUCCESS;
534:
535: -- Get the old record from AHL_OPERATIONS_V.
536: OPEN get_old_rec( p_operation_id );
537:
601: END IF;
602:
603: IF ( get_old_rec%NOTFOUND ) THEN
604: x_msg_data := 'AHL_RM_INVALID_OPERATION';
605: x_return_status := FND_API.G_RET_STS_ERROR;
606: END IF;
607:
608: IF ( x_operation_rec.object_version_number <> p_object_version_number ) THEN
609: x_msg_data := 'AHL_COM_RECORD_CHANGED';
606: END IF;
607:
608: IF ( x_operation_rec.object_version_number <> p_object_version_number ) THEN
609: x_msg_data := 'AHL_COM_RECORD_CHANGED';
610: x_return_status := FND_API.G_RET_STS_ERROR;
611: END IF;
612:
613: CLOSE get_old_rec;
614:
637: p_object_version_number => p_x_operation_rec.object_version_number,
638: x_operation_rec => l_old_operation_rec
639: );
640:
641: IF ( NVL( l_return_status, 'X' ) <> FND_API.G_RET_STS_SUCCESS ) THEN
642: FND_MESSAGE.set_name( 'AHL', l_msg_data );
643: FND_MSG_PUB.add;
644: RAISE FND_API.G_EXC_ERROR;
645: END IF;
640:
641: IF ( NVL( l_return_status, 'X' ) <> FND_API.G_RET_STS_SUCCESS ) THEN
642: FND_MESSAGE.set_name( 'AHL', l_msg_data );
643: FND_MSG_PUB.add;
644: RAISE FND_API.G_EXC_ERROR;
645: END IF;
646:
647: -- Convert G_MISS values to NULL and NULL values to Old values
648:
721: IF ( l_read_only_flag = 'Y' ) THEN
722: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_END_DATE_RO' );
723: FND_MSG_PUB.add;
724: ELSE
725: IF ( p_x_operation_rec.active_end_date = FND_API.G_MISS_DATE ) THEN
726: p_x_operation_rec.active_end_date := null;
727: END IF;
728: END IF;
729: END IF;
734: IF ( l_read_only_flag = 'Y' ) THEN
735: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_QA_INSP_TYPE_RO' );
736: FND_MSG_PUB.add;
737: ELSE
738: IF ( p_x_operation_rec.qa_inspection_type = FND_API.G_MISS_CHAR ) THEN
739: p_x_operation_rec.qa_inspection_type := null;
740: END IF;
741: END IF;
742: END IF;
747: IF ( l_read_only_flag = 'Y' ) THEN
748: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_QA_INSP_TYPE_RO' );
749: FND_MSG_PUB.add;
750: ELSE
751: IF ( p_x_operation_rec.qa_inspection_type_desc = FND_API.G_MISS_CHAR ) THEN
752: p_x_operation_rec.qa_inspection_type_desc := null;
753: END IF;
754: END IF;
755: END IF;
755: END IF;
756:
757: IF ( p_x_operation_rec.operation_type_code IS NULL ) THEN
758: p_x_operation_rec.operation_type_code := l_old_operation_rec.operation_type_code;
759: ELSIF ( p_x_operation_rec.operation_type_code = FND_API.G_MISS_CHAR ) THEN
760: p_x_operation_rec.operation_type_code := null;
761: END IF;
762:
763: IF ( p_x_operation_rec.operation_type IS NULL ) THEN
761: END IF;
762:
763: IF ( p_x_operation_rec.operation_type IS NULL ) THEN
764: p_x_operation_rec.operation_type := l_old_operation_rec.operation_type;
765: ELSIF ( p_x_operation_rec.operation_type = FND_API.G_MISS_CHAR ) THEN
766: p_x_operation_rec.operation_type := null;
767: END IF;
768:
769: IF ( p_x_operation_rec.process_code IS NULL ) THEN
767: END IF;
768:
769: IF ( p_x_operation_rec.process_code IS NULL ) THEN
770: p_x_operation_rec.process_code := l_old_operation_rec.process_code;
771: ELSIF ( p_x_operation_rec.process_code = FND_API.G_MISS_CHAR ) THEN
772: p_x_operation_rec.process_code := null;
773: END IF;
774:
775: IF ( p_x_operation_rec.process IS NULL ) THEN
773: END IF;
774:
775: IF ( p_x_operation_rec.process IS NULL ) THEN
776: p_x_operation_rec.process := l_old_operation_rec.process;
777: ELSIF ( p_x_operation_rec.process = FND_API.G_MISS_CHAR ) THEN
778: p_x_operation_rec.process := null;
779: END IF;
780:
781: --bachandr Enigma Phase I changes -- start
780:
781: --bachandr Enigma Phase I changes -- start
782: IF ( p_x_operation_rec.model_code IS NULL) THEN
783: p_x_operation_rec.model_code := l_old_operation_rec.model_code;
784: ELSIF ( p_x_operation_rec.model_code = FND_API.G_MISS_CHAR ) THEN
785: p_x_operation_rec.model_code := null;
786: END IF;
787:
788: IF ( p_x_operation_rec.model_meaning IS NULL ) THEN
786: END IF;
787:
788: IF ( p_x_operation_rec.model_meaning IS NULL ) THEN
789: p_x_operation_rec.model_meaning := l_old_operation_rec.model_meaning;
790: ELSIF ( p_x_operation_rec.model_meaning = FND_API.G_MISS_CHAR ) THEN
791: p_x_operation_rec.model_meaning := null;
792: END IF;
793:
794: IF ( p_x_operation_rec.enigma_op_id IS NULL ) THEN
792: END IF;
793:
794: IF ( p_x_operation_rec.enigma_op_id IS NULL ) THEN
795: p_x_operation_rec.enigma_op_id := l_old_operation_rec.enigma_op_id;
796: ELSIF ( p_x_operation_rec.enigma_op_id = FND_API.G_MISS_CHAR ) THEN
797: p_x_operation_rec.enigma_op_id := null;
798: END IF;
799:
800: --bachandr Enigma Phase I changes -- end
807:
808:
809: IF ( p_x_operation_rec.enigmatype_code IS NULL) THEN
810: p_x_operation_rec.enigmatype_code := l_old_operation_rec.enigmatype_code;
811: ELSIF ( p_x_operation_rec.enigmatype_code = FND_API.G_MISS_CHAR ) THEN
812: p_x_operation_rec.enigmatype_code := null;
813: END IF;
814:
815: IF ( p_x_operation_rec.enigmatype_meaning IS NULL ) THEN
813: END IF;
814:
815: IF ( p_x_operation_rec.enigmatype_meaning IS NULL ) THEN
816: p_x_operation_rec.enigmatype_meaning := l_old_operation_rec.enigmatype_meaning;
817: ELSIF ( p_x_operation_rec.enigmatype_meaning = FND_API.G_MISS_CHAR ) THEN
818: p_x_operation_rec.enigmatype_meaning := null;
819: END IF;
820:
821: IF ( p_x_operation_rec.enigma_doc_id IS NULL OR (UPPER(l_old_operation_rec.ENIGMATYPE_CODE) = 'AUTOMATIC' AND p_module_type <> 'BPEL') ) THEN
819: END IF;
820:
821: IF ( p_x_operation_rec.enigma_doc_id IS NULL OR (UPPER(l_old_operation_rec.ENIGMATYPE_CODE) = 'AUTOMATIC' AND p_module_type <> 'BPEL') ) THEN
822: p_x_operation_rec.enigma_doc_id := l_old_operation_rec.enigma_doc_id;
823: ELSIF ( p_x_operation_rec.enigma_doc_id = FND_API.G_MISS_CHAR ) THEN
824: p_x_operation_rec.enigma_doc_id := null;
825: END IF;
826:
827: IF G_DEBUG = 'Y' THEN
831:
832: --pekambar Enigma Phase II changes -- end
833: IF ( p_x_operation_rec.remarks IS NULL ) THEN
834: p_x_operation_rec.remarks := l_old_operation_rec.remarks;
835: ELSIF ( p_x_operation_rec.remarks = FND_API.G_MISS_CHAR ) THEN
836: p_x_operation_rec.remarks := null;
837: END IF;
838:
839: IF ( p_x_operation_rec.revision_notes IS NULL ) THEN
837: END IF;
838:
839: IF ( p_x_operation_rec.revision_notes IS NULL ) THEN
840: p_x_operation_rec.revision_notes := l_old_operation_rec.revision_notes;
841: ELSIF ( p_x_operation_rec.revision_notes = FND_API.G_MISS_CHAR ) THEN
842: p_x_operation_rec.revision_notes := null;
843: END IF;
844:
845: IF ( p_x_operation_rec.segment1 IS NULL ) THEN
843: END IF;
844:
845: IF ( p_x_operation_rec.segment1 IS NULL ) THEN
846: p_x_operation_rec.segment1 := l_old_operation_rec.segment1;
847: ELSIF ( p_x_operation_rec.segment1 = FND_API.G_MISS_CHAR ) THEN
848: p_x_operation_rec.segment1 := null;
849: END IF;
850:
851: IF ( p_x_operation_rec.segment2 IS NULL ) THEN
849: END IF;
850:
851: IF ( p_x_operation_rec.segment2 IS NULL ) THEN
852: p_x_operation_rec.segment2 := l_old_operation_rec.segment2;
853: ELSIF ( p_x_operation_rec.segment2 = FND_API.G_MISS_CHAR ) THEN
854: p_x_operation_rec.segment2 := null;
855: END IF;
856:
857: IF ( p_x_operation_rec.segment3 IS NULL ) THEN
855: END IF;
856:
857: IF ( p_x_operation_rec.segment3 IS NULL ) THEN
858: p_x_operation_rec.segment3 := l_old_operation_rec.segment3;
859: ELSIF ( p_x_operation_rec.segment3 = FND_API.G_MISS_CHAR ) THEN
860: p_x_operation_rec.segment3 := null;
861: END IF;
862:
863: IF ( p_x_operation_rec.segment4 IS NULL ) THEN
861: END IF;
862:
863: IF ( p_x_operation_rec.segment4 IS NULL ) THEN
864: p_x_operation_rec.segment4 := l_old_operation_rec.segment4;
865: ELSIF ( p_x_operation_rec.segment4 = FND_API.G_MISS_CHAR ) THEN
866: p_x_operation_rec.segment4 := null;
867: END IF;
868:
869: IF ( p_x_operation_rec.segment5 IS NULL ) THEN
867: END IF;
868:
869: IF ( p_x_operation_rec.segment5 IS NULL ) THEN
870: p_x_operation_rec.segment5 := l_old_operation_rec.segment5;
871: ELSIF ( p_x_operation_rec.segment5 = FND_API.G_MISS_CHAR ) THEN
872: p_x_operation_rec.segment5 := null;
873: END IF;
874:
875: IF ( p_x_operation_rec.segment6 IS NULL ) THEN
873: END IF;
874:
875: IF ( p_x_operation_rec.segment6 IS NULL ) THEN
876: p_x_operation_rec.segment6 := l_old_operation_rec.segment6;
877: ELSIF ( p_x_operation_rec.segment6 = FND_API.G_MISS_CHAR ) THEN
878: p_x_operation_rec.segment6 := null;
879: END IF;
880:
881: IF ( p_x_operation_rec.segment7 IS NULL ) THEN
879: END IF;
880:
881: IF ( p_x_operation_rec.segment7 IS NULL ) THEN
882: p_x_operation_rec.segment7 := l_old_operation_rec.segment7;
883: ELSIF ( p_x_operation_rec.segment7 = FND_API.G_MISS_CHAR ) THEN
884: p_x_operation_rec.segment7 := null;
885: END IF;
886:
887: IF ( p_x_operation_rec.segment8 IS NULL ) THEN
885: END IF;
886:
887: IF ( p_x_operation_rec.segment8 IS NULL ) THEN
888: p_x_operation_rec.segment8 := l_old_operation_rec.segment8;
889: ELSIF ( p_x_operation_rec.segment8 = FND_API.G_MISS_CHAR ) THEN
890: p_x_operation_rec.segment8 := null;
891: END IF;
892:
893: IF ( p_x_operation_rec.segment9 IS NULL ) THEN
891: END IF;
892:
893: IF ( p_x_operation_rec.segment9 IS NULL ) THEN
894: p_x_operation_rec.segment9 := l_old_operation_rec.segment9;
895: ELSIF ( p_x_operation_rec.segment9 = FND_API.G_MISS_CHAR ) THEN
896: p_x_operation_rec.segment9 := null;
897: END IF;
898:
899: IF ( p_x_operation_rec.segment10 IS NULL ) THEN
897: END IF;
898:
899: IF ( p_x_operation_rec.segment10 IS NULL ) THEN
900: p_x_operation_rec.segment10 := l_old_operation_rec.segment10;
901: ELSIF ( p_x_operation_rec.segment10 = FND_API.G_MISS_CHAR ) THEN
902: p_x_operation_rec.segment10 := null;
903: END IF;
904:
905: IF ( p_x_operation_rec.segment11 IS NULL ) THEN
903: END IF;
904:
905: IF ( p_x_operation_rec.segment11 IS NULL ) THEN
906: p_x_operation_rec.segment11 := l_old_operation_rec.segment11;
907: ELSIF ( p_x_operation_rec.segment11 = FND_API.G_MISS_CHAR ) THEN
908: p_x_operation_rec.segment11 := null;
909: END IF;
910:
911: IF ( p_x_operation_rec.segment12 IS NULL ) THEN
909: END IF;
910:
911: IF ( p_x_operation_rec.segment12 IS NULL ) THEN
912: p_x_operation_rec.segment12 := l_old_operation_rec.segment12;
913: ELSIF ( p_x_operation_rec.segment12 = FND_API.G_MISS_CHAR ) THEN
914: p_x_operation_rec.segment12 := null;
915: END IF;
916:
917: IF ( p_x_operation_rec.segment13 IS NULL ) THEN
915: END IF;
916:
917: IF ( p_x_operation_rec.segment13 IS NULL ) THEN
918: p_x_operation_rec.segment13 := l_old_operation_rec.segment13;
919: ELSIF ( p_x_operation_rec.segment13 = FND_API.G_MISS_CHAR ) THEN
920: p_x_operation_rec.segment13 := null;
921: END IF;
922:
923: IF ( p_x_operation_rec.segment14 IS NULL ) THEN
921: END IF;
922:
923: IF ( p_x_operation_rec.segment14 IS NULL ) THEN
924: p_x_operation_rec.segment14 := l_old_operation_rec.segment14;
925: ELSIF ( p_x_operation_rec.segment14 = FND_API.G_MISS_CHAR ) THEN
926: p_x_operation_rec.segment14 := null;
927: END IF;
928:
929: IF ( p_x_operation_rec.segment15 IS NULL ) THEN
927: END IF;
928:
929: IF ( p_x_operation_rec.segment15 IS NULL ) THEN
930: p_x_operation_rec.segment15 := l_old_operation_rec.segment15;
931: ELSIF ( p_x_operation_rec.segment15 = FND_API.G_MISS_CHAR ) THEN
932: p_x_operation_rec.segment15 := null;
933: END IF;
934:
935: IF ( p_x_operation_rec.attribute_category IS NULL ) THEN
933: END IF;
934:
935: IF ( p_x_operation_rec.attribute_category IS NULL ) THEN
936: p_x_operation_rec.attribute_category := l_old_operation_rec.attribute_category;
937: ELSIF ( p_x_operation_rec.attribute_category = FND_API.G_MISS_CHAR ) THEN
938: p_x_operation_rec.attribute_category := null;
939: END IF;
940:
941: IF ( p_x_operation_rec.attribute1 IS NULL ) THEN
939: END IF;
940:
941: IF ( p_x_operation_rec.attribute1 IS NULL ) THEN
942: p_x_operation_rec.attribute1 := l_old_operation_rec.attribute1;
943: ELSIF ( p_x_operation_rec.attribute1 = FND_API.G_MISS_CHAR ) THEN
944: p_x_operation_rec.attribute1 := null;
945: END IF;
946:
947: IF ( p_x_operation_rec.attribute2 IS NULL ) THEN
945: END IF;
946:
947: IF ( p_x_operation_rec.attribute2 IS NULL ) THEN
948: p_x_operation_rec.attribute2 := l_old_operation_rec.attribute2;
949: ELSIF ( p_x_operation_rec.attribute2 = FND_API.G_MISS_CHAR ) THEN
950: p_x_operation_rec.attribute2 := null;
951: END IF;
952:
953: IF ( p_x_operation_rec.attribute3 IS NULL ) THEN
951: END IF;
952:
953: IF ( p_x_operation_rec.attribute3 IS NULL ) THEN
954: p_x_operation_rec.attribute3 := l_old_operation_rec.attribute3;
955: ELSIF ( p_x_operation_rec.attribute3 = FND_API.G_MISS_CHAR ) THEN
956: p_x_operation_rec.attribute3 := null;
957: END IF;
958:
959: IF ( p_x_operation_rec.attribute4 IS NULL ) THEN
957: END IF;
958:
959: IF ( p_x_operation_rec.attribute4 IS NULL ) THEN
960: p_x_operation_rec.attribute4 := l_old_operation_rec.attribute4;
961: ELSIF ( p_x_operation_rec.attribute4 = FND_API.G_MISS_CHAR ) THEN
962: p_x_operation_rec.attribute4 := null;
963: END IF;
964:
965: IF ( p_x_operation_rec.attribute5 IS NULL ) THEN
963: END IF;
964:
965: IF ( p_x_operation_rec.attribute5 IS NULL ) THEN
966: p_x_operation_rec.attribute5 := l_old_operation_rec.attribute5;
967: ELSIF ( p_x_operation_rec.attribute5 = FND_API.G_MISS_CHAR ) THEN
968: p_x_operation_rec.attribute5 := null;
969: END IF;
970:
971: IF ( p_x_operation_rec.attribute6 IS NULL ) THEN
969: END IF;
970:
971: IF ( p_x_operation_rec.attribute6 IS NULL ) THEN
972: p_x_operation_rec.attribute6 := l_old_operation_rec.attribute6;
973: ELSIF ( p_x_operation_rec.attribute6 = FND_API.G_MISS_CHAR ) THEN
974: p_x_operation_rec.attribute6 := null;
975: END IF;
976:
977: IF ( p_x_operation_rec.attribute7 IS NULL ) THEN
975: END IF;
976:
977: IF ( p_x_operation_rec.attribute7 IS NULL ) THEN
978: p_x_operation_rec.attribute7 := l_old_operation_rec.attribute7;
979: ELSIF ( p_x_operation_rec.attribute7 = FND_API.G_MISS_CHAR ) THEN
980: p_x_operation_rec.attribute7 := null;
981: END IF;
982:
983: IF ( p_x_operation_rec.attribute8 IS NULL ) THEN
981: END IF;
982:
983: IF ( p_x_operation_rec.attribute8 IS NULL ) THEN
984: p_x_operation_rec.attribute8 := l_old_operation_rec.attribute8;
985: ELSIF ( p_x_operation_rec.attribute8 = FND_API.G_MISS_CHAR ) THEN
986: p_x_operation_rec.attribute8 := null;
987: END IF;
988:
989: IF ( p_x_operation_rec.attribute9 IS NULL ) THEN
987: END IF;
988:
989: IF ( p_x_operation_rec.attribute9 IS NULL ) THEN
990: p_x_operation_rec.attribute9 := l_old_operation_rec.attribute9;
991: ELSIF ( p_x_operation_rec.attribute9 = FND_API.G_MISS_CHAR ) THEN
992: p_x_operation_rec.attribute9 := null;
993: END IF;
994:
995: IF ( p_x_operation_rec.attribute10 IS NULL ) THEN
993: END IF;
994:
995: IF ( p_x_operation_rec.attribute10 IS NULL ) THEN
996: p_x_operation_rec.attribute10 := l_old_operation_rec.attribute10;
997: ELSIF ( p_x_operation_rec.attribute10 = FND_API.G_MISS_CHAR ) THEN
998: p_x_operation_rec.attribute10 := null;
999: END IF;
1000:
1001: IF ( p_x_operation_rec.attribute11 IS NULL ) THEN
999: END IF;
1000:
1001: IF ( p_x_operation_rec.attribute11 IS NULL ) THEN
1002: p_x_operation_rec.attribute11 := l_old_operation_rec.attribute11;
1003: ELSIF ( p_x_operation_rec.attribute11 = FND_API.G_MISS_CHAR ) THEN
1004: p_x_operation_rec.attribute11 := null;
1005: END IF;
1006:
1007: IF ( p_x_operation_rec.attribute12 IS NULL ) THEN
1005: END IF;
1006:
1007: IF ( p_x_operation_rec.attribute12 IS NULL ) THEN
1008: p_x_operation_rec.attribute12 := l_old_operation_rec.attribute12;
1009: ELSIF ( p_x_operation_rec.attribute12 = FND_API.G_MISS_CHAR ) THEN
1010: p_x_operation_rec.attribute12 := null;
1011: END IF;
1012:
1013: IF ( p_x_operation_rec.attribute13 IS NULL ) THEN
1011: END IF;
1012:
1013: IF ( p_x_operation_rec.attribute13 IS NULL ) THEN
1014: p_x_operation_rec.attribute13 := l_old_operation_rec.attribute13;
1015: ELSIF ( p_x_operation_rec.attribute13 = FND_API.G_MISS_CHAR ) THEN
1016: p_x_operation_rec.attribute13 := null;
1017: END IF;
1018:
1019: IF ( p_x_operation_rec.attribute14 IS NULL ) THEN
1017: END IF;
1018:
1019: IF ( p_x_operation_rec.attribute14 IS NULL ) THEN
1020: p_x_operation_rec.attribute14 := l_old_operation_rec.attribute14;
1021: ELSIF ( p_x_operation_rec.attribute14 = FND_API.G_MISS_CHAR ) THEN
1022: p_x_operation_rec.attribute14 := null;
1023: END IF;
1024:
1025: IF ( p_x_operation_rec.attribute15 IS NULL ) THEN
1023: END IF;
1024:
1025: IF ( p_x_operation_rec.attribute15 IS NULL ) THEN
1026: p_x_operation_rec.attribute15 := l_old_operation_rec.attribute15;
1027: ELSIF ( p_x_operation_rec.attribute15 = FND_API.G_MISS_CHAR ) THEN
1028: p_x_operation_rec.attribute15 := null;
1029: END IF;
1030:
1031: END default_unchanged_attributes;
1074: where operation_id = p_operation_rec.operation_id and
1075: object_version_number = p_operation_rec.object_version_number;
1076:
1077: BEGIN
1078: x_return_status := FND_API.G_RET_STS_SUCCESS;
1079:
1080: -- Check if concatenated_segments is null
1081: IF (p_operation_rec.dml_operation = 'C' AND
1082: (p_operation_rec.segment1 IS NULL OR p_operation_rec.segment1 = FND_API.G_MISS_CHAR) AND
1078: x_return_status := FND_API.G_RET_STS_SUCCESS;
1079:
1080: -- Check if concatenated_segments is null
1081: IF (p_operation_rec.dml_operation = 'C' AND
1082: (p_operation_rec.segment1 IS NULL OR p_operation_rec.segment1 = FND_API.G_MISS_CHAR) AND
1083: (p_operation_rec.segment2 IS NULL OR p_operation_rec.segment2 = FND_API.G_MISS_CHAR) AND
1084: (p_operation_rec.segment3 IS NULL OR p_operation_rec.segment3 = FND_API.G_MISS_CHAR) AND
1085: (p_operation_rec.segment4 IS NULL OR p_operation_rec.segment4 = FND_API.G_MISS_CHAR) AND
1086: (p_operation_rec.segment5 IS NULL OR p_operation_rec.segment5 = FND_API.G_MISS_CHAR) AND
1079:
1080: -- Check if concatenated_segments is null
1081: IF (p_operation_rec.dml_operation = 'C' AND
1082: (p_operation_rec.segment1 IS NULL OR p_operation_rec.segment1 = FND_API.G_MISS_CHAR) AND
1083: (p_operation_rec.segment2 IS NULL OR p_operation_rec.segment2 = FND_API.G_MISS_CHAR) AND
1084: (p_operation_rec.segment3 IS NULL OR p_operation_rec.segment3 = FND_API.G_MISS_CHAR) AND
1085: (p_operation_rec.segment4 IS NULL OR p_operation_rec.segment4 = FND_API.G_MISS_CHAR) AND
1086: (p_operation_rec.segment5 IS NULL OR p_operation_rec.segment5 = FND_API.G_MISS_CHAR) AND
1087: (p_operation_rec.segment6 IS NULL OR p_operation_rec.segment6 = FND_API.G_MISS_CHAR) AND
1080: -- Check if concatenated_segments is null
1081: IF (p_operation_rec.dml_operation = 'C' AND
1082: (p_operation_rec.segment1 IS NULL OR p_operation_rec.segment1 = FND_API.G_MISS_CHAR) AND
1083: (p_operation_rec.segment2 IS NULL OR p_operation_rec.segment2 = FND_API.G_MISS_CHAR) AND
1084: (p_operation_rec.segment3 IS NULL OR p_operation_rec.segment3 = FND_API.G_MISS_CHAR) AND
1085: (p_operation_rec.segment4 IS NULL OR p_operation_rec.segment4 = FND_API.G_MISS_CHAR) AND
1086: (p_operation_rec.segment5 IS NULL OR p_operation_rec.segment5 = FND_API.G_MISS_CHAR) AND
1087: (p_operation_rec.segment6 IS NULL OR p_operation_rec.segment6 = FND_API.G_MISS_CHAR) AND
1088: (p_operation_rec.segment7 IS NULL OR p_operation_rec.segment7 = FND_API.G_MISS_CHAR) AND
1081: IF (p_operation_rec.dml_operation = 'C' AND
1082: (p_operation_rec.segment1 IS NULL OR p_operation_rec.segment1 = FND_API.G_MISS_CHAR) AND
1083: (p_operation_rec.segment2 IS NULL OR p_operation_rec.segment2 = FND_API.G_MISS_CHAR) AND
1084: (p_operation_rec.segment3 IS NULL OR p_operation_rec.segment3 = FND_API.G_MISS_CHAR) AND
1085: (p_operation_rec.segment4 IS NULL OR p_operation_rec.segment4 = FND_API.G_MISS_CHAR) AND
1086: (p_operation_rec.segment5 IS NULL OR p_operation_rec.segment5 = FND_API.G_MISS_CHAR) AND
1087: (p_operation_rec.segment6 IS NULL OR p_operation_rec.segment6 = FND_API.G_MISS_CHAR) AND
1088: (p_operation_rec.segment7 IS NULL OR p_operation_rec.segment7 = FND_API.G_MISS_CHAR) AND
1089: (p_operation_rec.segment8 IS NULL OR p_operation_rec.segment8 = FND_API.G_MISS_CHAR) AND
1082: (p_operation_rec.segment1 IS NULL OR p_operation_rec.segment1 = FND_API.G_MISS_CHAR) AND
1083: (p_operation_rec.segment2 IS NULL OR p_operation_rec.segment2 = FND_API.G_MISS_CHAR) AND
1084: (p_operation_rec.segment3 IS NULL OR p_operation_rec.segment3 = FND_API.G_MISS_CHAR) AND
1085: (p_operation_rec.segment4 IS NULL OR p_operation_rec.segment4 = FND_API.G_MISS_CHAR) AND
1086: (p_operation_rec.segment5 IS NULL OR p_operation_rec.segment5 = FND_API.G_MISS_CHAR) AND
1087: (p_operation_rec.segment6 IS NULL OR p_operation_rec.segment6 = FND_API.G_MISS_CHAR) AND
1088: (p_operation_rec.segment7 IS NULL OR p_operation_rec.segment7 = FND_API.G_MISS_CHAR) AND
1089: (p_operation_rec.segment8 IS NULL OR p_operation_rec.segment8 = FND_API.G_MISS_CHAR) AND
1090: (p_operation_rec.segment9 IS NULL OR p_operation_rec.segment9 = FND_API.G_MISS_CHAR) AND
1083: (p_operation_rec.segment2 IS NULL OR p_operation_rec.segment2 = FND_API.G_MISS_CHAR) AND
1084: (p_operation_rec.segment3 IS NULL OR p_operation_rec.segment3 = FND_API.G_MISS_CHAR) AND
1085: (p_operation_rec.segment4 IS NULL OR p_operation_rec.segment4 = FND_API.G_MISS_CHAR) AND
1086: (p_operation_rec.segment5 IS NULL OR p_operation_rec.segment5 = FND_API.G_MISS_CHAR) AND
1087: (p_operation_rec.segment6 IS NULL OR p_operation_rec.segment6 = FND_API.G_MISS_CHAR) AND
1088: (p_operation_rec.segment7 IS NULL OR p_operation_rec.segment7 = FND_API.G_MISS_CHAR) AND
1089: (p_operation_rec.segment8 IS NULL OR p_operation_rec.segment8 = FND_API.G_MISS_CHAR) AND
1090: (p_operation_rec.segment9 IS NULL OR p_operation_rec.segment9 = FND_API.G_MISS_CHAR) AND
1091: (p_operation_rec.segment10 IS NULL OR p_operation_rec.segment10 = FND_API.G_MISS_CHAR) AND
1084: (p_operation_rec.segment3 IS NULL OR p_operation_rec.segment3 = FND_API.G_MISS_CHAR) AND
1085: (p_operation_rec.segment4 IS NULL OR p_operation_rec.segment4 = FND_API.G_MISS_CHAR) AND
1086: (p_operation_rec.segment5 IS NULL OR p_operation_rec.segment5 = FND_API.G_MISS_CHAR) AND
1087: (p_operation_rec.segment6 IS NULL OR p_operation_rec.segment6 = FND_API.G_MISS_CHAR) AND
1088: (p_operation_rec.segment7 IS NULL OR p_operation_rec.segment7 = FND_API.G_MISS_CHAR) AND
1089: (p_operation_rec.segment8 IS NULL OR p_operation_rec.segment8 = FND_API.G_MISS_CHAR) AND
1090: (p_operation_rec.segment9 IS NULL OR p_operation_rec.segment9 = FND_API.G_MISS_CHAR) AND
1091: (p_operation_rec.segment10 IS NULL OR p_operation_rec.segment10 = FND_API.G_MISS_CHAR) AND
1092: (p_operation_rec.segment11 IS NULL OR p_operation_rec.segment11 = FND_API.G_MISS_CHAR) AND
1085: (p_operation_rec.segment4 IS NULL OR p_operation_rec.segment4 = FND_API.G_MISS_CHAR) AND
1086: (p_operation_rec.segment5 IS NULL OR p_operation_rec.segment5 = FND_API.G_MISS_CHAR) AND
1087: (p_operation_rec.segment6 IS NULL OR p_operation_rec.segment6 = FND_API.G_MISS_CHAR) AND
1088: (p_operation_rec.segment7 IS NULL OR p_operation_rec.segment7 = FND_API.G_MISS_CHAR) AND
1089: (p_operation_rec.segment8 IS NULL OR p_operation_rec.segment8 = FND_API.G_MISS_CHAR) AND
1090: (p_operation_rec.segment9 IS NULL OR p_operation_rec.segment9 = FND_API.G_MISS_CHAR) AND
1091: (p_operation_rec.segment10 IS NULL OR p_operation_rec.segment10 = FND_API.G_MISS_CHAR) AND
1092: (p_operation_rec.segment11 IS NULL OR p_operation_rec.segment11 = FND_API.G_MISS_CHAR) AND
1093: (p_operation_rec.segment12 IS NULL OR p_operation_rec.segment12 = FND_API.G_MISS_CHAR) AND
1086: (p_operation_rec.segment5 IS NULL OR p_operation_rec.segment5 = FND_API.G_MISS_CHAR) AND
1087: (p_operation_rec.segment6 IS NULL OR p_operation_rec.segment6 = FND_API.G_MISS_CHAR) AND
1088: (p_operation_rec.segment7 IS NULL OR p_operation_rec.segment7 = FND_API.G_MISS_CHAR) AND
1089: (p_operation_rec.segment8 IS NULL OR p_operation_rec.segment8 = FND_API.G_MISS_CHAR) AND
1090: (p_operation_rec.segment9 IS NULL OR p_operation_rec.segment9 = FND_API.G_MISS_CHAR) AND
1091: (p_operation_rec.segment10 IS NULL OR p_operation_rec.segment10 = FND_API.G_MISS_CHAR) AND
1092: (p_operation_rec.segment11 IS NULL OR p_operation_rec.segment11 = FND_API.G_MISS_CHAR) AND
1093: (p_operation_rec.segment12 IS NULL OR p_operation_rec.segment12 = FND_API.G_MISS_CHAR) AND
1094: (p_operation_rec.segment13 IS NULL OR p_operation_rec.segment13 = FND_API.G_MISS_CHAR) AND
1087: (p_operation_rec.segment6 IS NULL OR p_operation_rec.segment6 = FND_API.G_MISS_CHAR) AND
1088: (p_operation_rec.segment7 IS NULL OR p_operation_rec.segment7 = FND_API.G_MISS_CHAR) AND
1089: (p_operation_rec.segment8 IS NULL OR p_operation_rec.segment8 = FND_API.G_MISS_CHAR) AND
1090: (p_operation_rec.segment9 IS NULL OR p_operation_rec.segment9 = FND_API.G_MISS_CHAR) AND
1091: (p_operation_rec.segment10 IS NULL OR p_operation_rec.segment10 = FND_API.G_MISS_CHAR) AND
1092: (p_operation_rec.segment11 IS NULL OR p_operation_rec.segment11 = FND_API.G_MISS_CHAR) AND
1093: (p_operation_rec.segment12 IS NULL OR p_operation_rec.segment12 = FND_API.G_MISS_CHAR) AND
1094: (p_operation_rec.segment13 IS NULL OR p_operation_rec.segment13 = FND_API.G_MISS_CHAR) AND
1095: (p_operation_rec.segment14 IS NULL OR p_operation_rec.segment14 = FND_API.G_MISS_CHAR) AND
1088: (p_operation_rec.segment7 IS NULL OR p_operation_rec.segment7 = FND_API.G_MISS_CHAR) AND
1089: (p_operation_rec.segment8 IS NULL OR p_operation_rec.segment8 = FND_API.G_MISS_CHAR) AND
1090: (p_operation_rec.segment9 IS NULL OR p_operation_rec.segment9 = FND_API.G_MISS_CHAR) AND
1091: (p_operation_rec.segment10 IS NULL OR p_operation_rec.segment10 = FND_API.G_MISS_CHAR) AND
1092: (p_operation_rec.segment11 IS NULL OR p_operation_rec.segment11 = FND_API.G_MISS_CHAR) AND
1093: (p_operation_rec.segment12 IS NULL OR p_operation_rec.segment12 = FND_API.G_MISS_CHAR) AND
1094: (p_operation_rec.segment13 IS NULL OR p_operation_rec.segment13 = FND_API.G_MISS_CHAR) AND
1095: (p_operation_rec.segment14 IS NULL OR p_operation_rec.segment14 = FND_API.G_MISS_CHAR) AND
1096: (p_operation_rec.segment15 IS NULL OR p_operation_rec.segment15 = FND_API.G_MISS_CHAR)) THEN
1089: (p_operation_rec.segment8 IS NULL OR p_operation_rec.segment8 = FND_API.G_MISS_CHAR) AND
1090: (p_operation_rec.segment9 IS NULL OR p_operation_rec.segment9 = FND_API.G_MISS_CHAR) AND
1091: (p_operation_rec.segment10 IS NULL OR p_operation_rec.segment10 = FND_API.G_MISS_CHAR) AND
1092: (p_operation_rec.segment11 IS NULL OR p_operation_rec.segment11 = FND_API.G_MISS_CHAR) AND
1093: (p_operation_rec.segment12 IS NULL OR p_operation_rec.segment12 = FND_API.G_MISS_CHAR) AND
1094: (p_operation_rec.segment13 IS NULL OR p_operation_rec.segment13 = FND_API.G_MISS_CHAR) AND
1095: (p_operation_rec.segment14 IS NULL OR p_operation_rec.segment14 = FND_API.G_MISS_CHAR) AND
1096: (p_operation_rec.segment15 IS NULL OR p_operation_rec.segment15 = FND_API.G_MISS_CHAR)) THEN
1097: FND_MESSAGE.set_name( 'AHL','AHL_RM_SEGMENTS_ALL_NULL' );
1090: (p_operation_rec.segment9 IS NULL OR p_operation_rec.segment9 = FND_API.G_MISS_CHAR) AND
1091: (p_operation_rec.segment10 IS NULL OR p_operation_rec.segment10 = FND_API.G_MISS_CHAR) AND
1092: (p_operation_rec.segment11 IS NULL OR p_operation_rec.segment11 = FND_API.G_MISS_CHAR) AND
1093: (p_operation_rec.segment12 IS NULL OR p_operation_rec.segment12 = FND_API.G_MISS_CHAR) AND
1094: (p_operation_rec.segment13 IS NULL OR p_operation_rec.segment13 = FND_API.G_MISS_CHAR) AND
1095: (p_operation_rec.segment14 IS NULL OR p_operation_rec.segment14 = FND_API.G_MISS_CHAR) AND
1096: (p_operation_rec.segment15 IS NULL OR p_operation_rec.segment15 = FND_API.G_MISS_CHAR)) THEN
1097: FND_MESSAGE.set_name( 'AHL','AHL_RM_SEGMENTS_ALL_NULL' );
1098: FND_MSG_PUB.add;
1091: (p_operation_rec.segment10 IS NULL OR p_operation_rec.segment10 = FND_API.G_MISS_CHAR) AND
1092: (p_operation_rec.segment11 IS NULL OR p_operation_rec.segment11 = FND_API.G_MISS_CHAR) AND
1093: (p_operation_rec.segment12 IS NULL OR p_operation_rec.segment12 = FND_API.G_MISS_CHAR) AND
1094: (p_operation_rec.segment13 IS NULL OR p_operation_rec.segment13 = FND_API.G_MISS_CHAR) AND
1095: (p_operation_rec.segment14 IS NULL OR p_operation_rec.segment14 = FND_API.G_MISS_CHAR) AND
1096: (p_operation_rec.segment15 IS NULL OR p_operation_rec.segment15 = FND_API.G_MISS_CHAR)) THEN
1097: FND_MESSAGE.set_name( 'AHL','AHL_RM_SEGMENTS_ALL_NULL' );
1098: FND_MSG_PUB.add;
1099: x_return_status := FND_API.G_RET_STS_ERROR;
1092: (p_operation_rec.segment11 IS NULL OR p_operation_rec.segment11 = FND_API.G_MISS_CHAR) AND
1093: (p_operation_rec.segment12 IS NULL OR p_operation_rec.segment12 = FND_API.G_MISS_CHAR) AND
1094: (p_operation_rec.segment13 IS NULL OR p_operation_rec.segment13 = FND_API.G_MISS_CHAR) AND
1095: (p_operation_rec.segment14 IS NULL OR p_operation_rec.segment14 = FND_API.G_MISS_CHAR) AND
1096: (p_operation_rec.segment15 IS NULL OR p_operation_rec.segment15 = FND_API.G_MISS_CHAR)) THEN
1097: FND_MESSAGE.set_name( 'AHL','AHL_RM_SEGMENTS_ALL_NULL' );
1098: FND_MSG_PUB.add;
1099: x_return_status := FND_API.G_RET_STS_ERROR;
1100: RETURN;
1095: (p_operation_rec.segment14 IS NULL OR p_operation_rec.segment14 = FND_API.G_MISS_CHAR) AND
1096: (p_operation_rec.segment15 IS NULL OR p_operation_rec.segment15 = FND_API.G_MISS_CHAR)) THEN
1097: FND_MESSAGE.set_name( 'AHL','AHL_RM_SEGMENTS_ALL_NULL' );
1098: FND_MSG_PUB.add;
1099: x_return_status := FND_API.G_RET_STS_ERROR;
1100: RETURN;
1101: END IF;
1102:
1103: -- Check if concatenated_segments is unique when creating an operation record
1111: FETCH check_segments INTO l_dummy;
1112: IF check_segments%FOUND THEN
1113: FND_MESSAGE.set_name( 'AHL','AHL_RM_OPERATION_DUP' );
1114: FND_MSG_PUB.add;
1115: x_return_status := FND_API.G_RET_STS_ERROR;
1116: END IF;
1117: CLOSE check_segments;
1118: END IF;
1119:
1119:
1120: -- Check if the Revision Status code column contains a null value.
1121: IF ( ( p_operation_rec.dml_operation = 'C' AND
1122: p_operation_rec.revision_status_code IS NULL ) OR
1123: p_operation_rec.revision_status_code = FND_API.G_MISS_CHAR ) THEN
1124: FND_MESSAGE.set_name( 'AHL','AHL_RM_STATUS_NULL' );
1125: FND_MSG_PUB.add;
1126: x_return_status := FND_API.G_RET_STS_ERROR;
1127: END IF;
1122: p_operation_rec.revision_status_code IS NULL ) OR
1123: p_operation_rec.revision_status_code = FND_API.G_MISS_CHAR ) THEN
1124: FND_MESSAGE.set_name( 'AHL','AHL_RM_STATUS_NULL' );
1125: FND_MSG_PUB.add;
1126: x_return_status := FND_API.G_RET_STS_ERROR;
1127: END IF;
1128:
1129: -- Check if the Operation Description column contains a null value.
1130: IF ( ( p_operation_rec.dml_operation = 'C' AND
1128:
1129: -- Check if the Operation Description column contains a null value.
1130: IF ( ( p_operation_rec.dml_operation = 'C' AND
1131: p_operation_rec.description IS NULL ) OR
1132: p_operation_rec.description = FND_API.G_MISS_CHAR ) THEN
1133: FND_MESSAGE.set_name( 'AHL','AHL_RM_OPERATION_DESC_NULL' );
1134: FND_MSG_PUB.add;
1135: x_return_status := FND_API.G_RET_STS_ERROR;
1136: END IF;
1131: p_operation_rec.description IS NULL ) OR
1132: p_operation_rec.description = FND_API.G_MISS_CHAR ) THEN
1133: FND_MESSAGE.set_name( 'AHL','AHL_RM_OPERATION_DESC_NULL' );
1134: FND_MSG_PUB.add;
1135: x_return_status := FND_API.G_RET_STS_ERROR;
1136: END IF;
1137:
1138: -- Check if the Opeartion Start Date does not column contains a null value.
1139: IF ( ( p_operation_rec.dml_operation = 'C' AND
1137:
1138: -- Check if the Opeartion Start Date does not column contains a null value.
1139: IF ( ( p_operation_rec.dml_operation = 'C' AND
1140: p_operation_rec.active_start_date IS NULL ) OR
1141: p_operation_rec.active_start_date = FND_API.G_MISS_DATE ) THEN
1142: FND_MESSAGE.set_name( 'AHL','AHL_RM_ST_DATE_NULL' );
1143: FND_MSG_PUB.add;
1144: x_return_status := FND_API.G_RET_STS_ERROR;
1145: END IF;
1140: p_operation_rec.active_start_date IS NULL ) OR
1141: p_operation_rec.active_start_date = FND_API.G_MISS_DATE ) THEN
1142: FND_MESSAGE.set_name( 'AHL','AHL_RM_ST_DATE_NULL' );
1143: FND_MSG_PUB.add;
1144: x_return_status := FND_API.G_RET_STS_ERROR;
1145: END IF;
1146:
1147: -- Check if the Standard Operation Flag column contains a null value.
1148: IF ( ( p_operation_rec.dml_operation = 'C' AND
1146:
1147: -- Check if the Standard Operation Flag column contains a null value.
1148: IF ( ( p_operation_rec.dml_operation = 'C' AND
1149: p_operation_rec.standard_operation_flag IS NULL ) OR
1150: p_operation_rec.standard_operation_flag = FND_API.G_MISS_CHAR ) THEN
1151: FND_MESSAGE.set_name( 'AHL','AHL_RM_STANDARD_OPER_NULL' );
1152: FND_MSG_PUB.add;
1153: x_return_status := FND_API.G_RET_STS_ERROR;
1154: END IF;
1149: p_operation_rec.standard_operation_flag IS NULL ) OR
1150: p_operation_rec.standard_operation_flag = FND_API.G_MISS_CHAR ) THEN
1151: FND_MESSAGE.set_name( 'AHL','AHL_RM_STANDARD_OPER_NULL' );
1152: FND_MSG_PUB.add;
1153: x_return_status := FND_API.G_RET_STS_ERROR;
1154: END IF;
1155:
1156: --pekambar changed in Enigma phase -2 -- Start
1157: -- The Following code is commented to do validatiioon against manual operations
1162: THEN
1163: --throw error if model is null for enigma operations during creation.
1164: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_MODEL_CODE_NULL_OP' );
1165: FND_MSG_PUB.add;
1166: x_return_status := FND_API.G_RET_STS_ERROR;
1167: END IF;
1168:
1169: IF (p_operation_rec.dml_operation = 'U' AND p_operation_rec.enigma_op_id IS NOT NULL)
1170: THEN
1176: THEN
1177: --throw error disallowing modification of model
1178: FND_MESSAGE.SET_NAME('AHL','AHL_RM_MODEL_OP');
1179: FND_MSG_PUB.ADD;
1180: x_return_status := FND_API.G_RET_STS_ERROR;
1181: END IF;
1182: END IF;
1183: --bachandr Enigma Phase I changes -- end
1184: */
1187: IF ( p_operation_rec.dml_operation = 'C' AND (p_operation_rec.enigma_op_id IS NOT NULL OR p_operation_rec.enigmatype_code = 'MANUAL') AND p_operation_rec.model_code IS NULL)
1188: THEN
1189: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_MODEL_CODE_NULL_OP' );
1190: FND_MSG_PUB.add;
1191: x_return_status := FND_API.G_RET_STS_ERROR;
1192: END IF;
1193:
1194: --to do validatiioon against manual operations to make enigma doc id and model
1195: --to disallow users to modify enigma doc id and model for automatic enigma operations
1205: THEN
1206: --throw error disallowing modification of model
1207: FND_MESSAGE.SET_NAME('AHL','AHL_RM_MODEL_OP');
1208: FND_MSG_PUB.ADD;
1209: x_return_status := FND_API.G_RET_STS_ERROR;
1210: END IF;
1211:
1212: IF ( p_operation_rec.enigma_doc_id is null or (l_enigma_doc_id <> p_operation_rec.enigma_doc_id))
1213: THEN
1213: THEN
1214: --throw error disallowing modification of Enigma Document Id
1215: FND_MESSAGE.SET_NAME('AHL','AHL_RM_ENIGMA_DOC_ID_OP');
1216: FND_MSG_PUB.ADD;
1217: x_return_status := FND_API.G_RET_STS_ERROR;
1218: END IF;
1219: ELSIF(p_operation_rec.enigmatype_code = 'MANUAL')
1220: THEN
1221: IF ( p_operation_rec.model_code is null)
1222: THEN
1223: --throw error disallowing modification of model
1224: FND_MESSAGE.SET_NAME('AHL','AHL_RM_MODEL_CODE_NULL_OP');
1225: FND_MSG_PUB.ADD;
1226: x_return_status := FND_API.G_RET_STS_ERROR;
1227: END IF;
1228: END IF;
1229:
1230:
1232: --pekambar changed in Enigma phase -2 -- End
1233:
1234: -- Check if the mandatory Operation ID column contains a null value.
1235: IF ( p_operation_rec.dml_operation = 'U' AND (p_operation_rec.operation_id IS NULL OR
1236: p_operation_rec.operation_id = FND_API.G_MISS_NUM )) THEN
1237: FND_MESSAGE.set_name( 'AHL','AHL_RM_OPERATION_ID_NULL' );
1238: FND_MSG_PUB.add;
1239: x_return_status := FND_API.G_RET_STS_ERROR;
1240: END IF;
1235: IF ( p_operation_rec.dml_operation = 'U' AND (p_operation_rec.operation_id IS NULL OR
1236: p_operation_rec.operation_id = FND_API.G_MISS_NUM )) THEN
1237: FND_MESSAGE.set_name( 'AHL','AHL_RM_OPERATION_ID_NULL' );
1238: FND_MSG_PUB.add;
1239: x_return_status := FND_API.G_RET_STS_ERROR;
1240: END IF;
1241:
1242: -- Check if the mandatory Object Version Number column contains a null value.
1243: IF ( p_operation_rec.dml_operation = 'U' AND (p_operation_rec.object_version_number IS NULL OR
1240: END IF;
1241:
1242: -- Check if the mandatory Object Version Number column contains a null value.
1243: IF ( p_operation_rec.dml_operation = 'U' AND (p_operation_rec.object_version_number IS NULL OR
1244: p_operation_rec.object_version_number = FND_API.G_MISS_NUM )) THEN
1245: FND_MESSAGE.set_name( 'AHL','AHL_RM_OBJ_VERSION_NULL' );
1246: FND_MSG_PUB.add;
1247: x_return_status := FND_API.G_RET_STS_ERROR;
1248: END IF;
1243: IF ( p_operation_rec.dml_operation = 'U' AND (p_operation_rec.object_version_number IS NULL OR
1244: p_operation_rec.object_version_number = FND_API.G_MISS_NUM )) THEN
1245: FND_MESSAGE.set_name( 'AHL','AHL_RM_OBJ_VERSION_NULL' );
1246: FND_MSG_PUB.add;
1247: x_return_status := FND_API.G_RET_STS_ERROR;
1248: END IF;
1249:
1250: -- Added by Tamal for Bug #3854052
1251: IF (p_operation_rec.dml_operation = 'U' AND p_operation_rec.revision_status_code IN ('COMPLETE', 'APPROVAL_PENDING', 'TERMINATION_PENDING', 'TERMINATED'))
1251: IF (p_operation_rec.dml_operation = 'U' AND p_operation_rec.revision_status_code IN ('COMPLETE', 'APPROVAL_PENDING', 'TERMINATION_PENDING', 'TERMINATED'))
1252: THEN
1253: FND_MESSAGE.set_name( 'AHL','AHL_RM_OP_STS_NO_UPD' );
1254: FND_MSG_PUB.add;
1255: x_return_status := FND_API.G_RET_STS_ERROR;
1256: END IF;
1257: -- Added by Tamal for Bug #3854052
1258:
1259: IF (p_operation_rec.dml_operation IN ('U','D'))
1312: revision_number = c_revision_number;
1313: */
1314:
1315: BEGIN
1316: x_return_status := FND_API.G_RET_STS_SUCCESS;
1317:
1318: -- Check if Active start date is less than today's date for
1319: -- DRAFT and APPROVAL_REJECTED Operations
1320:
1324: IF trunc(p_operation_rec.active_start_date) < trunc(SYSDATE) THEN
1325: FND_MESSAGE.set_name( 'AHL','AHL_RM_INVALID_ST_DATE' );
1326: FND_MESSAGE.set_token('FIELD',trunc(SYSDATE));
1327: FND_MSG_PUB.add;
1328: x_return_status := FND_API.G_RET_STS_ERROR;
1329: */
1330: -- Check if Active start date is less than the active start date of the operation's
1331: -- previous version (if it is existing) when updating the operation
1332: -- ELSIF ( p_operation_rec.dml_operation = 'U' ) THEN
1339: IF trunc(p_operation_rec.active_start_date) < trunc(l_start_date) THEN
1340: FND_MESSAGE.set_name( 'AHL','AHL_RM_ST_DATE_LESSER' );
1341: FND_MESSAGE.set_token('FIELD',trunc(l_start_date));
1342: FND_MSG_PUB.add;
1343: x_return_status := FND_API.G_RET_STS_ERROR;
1344: END IF;
1345: END IF;
1346: END IF;
1347: END IF;
1370:
1371: PROCEDURE process_operation
1372: (
1373: p_api_version IN NUMBER := 1.0,
1374: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
1375: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1376: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1377: p_default IN VARCHAR2 := FND_API.G_FALSE,
1378: p_module_type IN VARCHAR2 := NULL,
1371: PROCEDURE process_operation
1372: (
1373: p_api_version IN NUMBER := 1.0,
1374: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
1375: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1376: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1377: p_default IN VARCHAR2 := FND_API.G_FALSE,
1378: p_module_type IN VARCHAR2 := NULL,
1379: x_return_status OUT NOCOPY VARCHAR2,
1372: (
1373: p_api_version IN NUMBER := 1.0,
1374: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
1375: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1376: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1377: p_default IN VARCHAR2 := FND_API.G_FALSE,
1378: p_module_type IN VARCHAR2 := NULL,
1379: x_return_status OUT NOCOPY VARCHAR2,
1380: x_msg_count OUT NOCOPY NUMBER,
1373: p_api_version IN NUMBER := 1.0,
1374: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
1375: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1376: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1377: p_default IN VARCHAR2 := FND_API.G_FALSE,
1378: p_module_type IN VARCHAR2 := NULL,
1379: x_return_status OUT NOCOPY VARCHAR2,
1380: x_msg_count OUT NOCOPY NUMBER,
1381: x_msg_data OUT NOCOPY VARCHAR2,
1392: l_enigma_op_id varchar2(80) := NULL;
1393:
1394: BEGIN
1395: -- Initialize API return status to success
1396: x_return_status := FND_API.G_RET_STS_SUCCESS;
1397:
1398: -- Standard Start of API savepoint
1399: SAVEPOINT process_operation_PVT;
1400:
1398: -- Standard Start of API savepoint
1399: SAVEPOINT process_operation_PVT;
1400:
1401: -- Standard call to check for call compatibility.
1402: IF NOT FND_API.compatible_api_call
1403: (
1404: l_api_version,
1405: p_api_version,
1406: l_api_name,
1406: l_api_name,
1407: G_PKG_NAME
1408: )
1409: THEN
1410: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1411: END IF;
1412:
1413: -- Initialize message list if p_init_msg_list is set to TRUE.
1414: IF FND_API.to_boolean( p_init_msg_list ) THEN
1410: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1411: END IF;
1412:
1413: -- Initialize message list if p_init_msg_list is set to TRUE.
1414: IF FND_API.to_boolean( p_init_msg_list ) THEN
1415: FND_MSG_PUB.initialize;
1416: END IF;
1417:
1418: IF G_DEBUG = 'Y' THEN
1431: p_operation_revision => p_x_operation_rec.revision_number,
1432: x_operation_id => p_x_operation_rec.operation_id,
1433: x_return_status => x_return_status
1434: );
1435: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1436: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1437: fnd_log.string
1438: (
1439: fnd_log.level_error,
1440: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
1441: 'Error in AHL_RM_ROUTE_UTIL.Operation_Number_To_Id API'
1442: );
1443: END IF;
1444: RAISE FND_API.G_EXC_ERROR;
1445: END IF;
1446: END IF;
1447:
1448:
1453: l_return_status -- OUT
1454: );
1455:
1456: -- If any severe error occurs, then, abort API.
1457: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1458: RAISE FND_API.G_EXC_ERROR;
1459: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1460: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1461: END IF;
1454: );
1455:
1456: -- If any severe error occurs, then, abort API.
1457: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1458: RAISE FND_API.G_EXC_ERROR;
1459: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1460: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1461: END IF;
1462:
1455:
1456: -- If any severe error occurs, then, abort API.
1457: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1458: RAISE FND_API.G_EXC_ERROR;
1459: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1460: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1461: END IF;
1462:
1463: -- If the module type is JSP, then default values for ID columns of LOV attributes
1456: -- If any severe error occurs, then, abort API.
1457: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1458: RAISE FND_API.G_EXC_ERROR;
1459: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1460: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1461: END IF;
1462:
1463: -- If the module type is JSP, then default values for ID columns of LOV attributes
1464: IF ( p_module_type = 'JSP' ) THEN
1477: l_return_status -- OUT
1478: );
1479:
1480: -- If any severe error occurs, then, abort API.
1481: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1482: RAISE FND_API.G_EXC_ERROR;
1483: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1484: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1485: END IF;
1478: );
1479:
1480: -- If any severe error occurs, then, abort API.
1481: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1482: RAISE FND_API.G_EXC_ERROR;
1483: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1484: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1485: END IF;
1486:
1479:
1480: -- If any severe error occurs, then, abort API.
1481: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1482: RAISE FND_API.G_EXC_ERROR;
1483: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1484: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1485: END IF;
1486:
1487: IF G_DEBUG = 'Y' THEN
1480: -- If any severe error occurs, then, abort API.
1481: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1482: RAISE FND_API.G_EXC_ERROR;
1483: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1484: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1485: END IF;
1486:
1487: IF G_DEBUG = 'Y' THEN
1488: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : after convert_values_to_ids' );
1528: p_x_operation_rec.ENIGMATYPE_CODE := 'AUTOMATIC' ;
1529: END IF;
1530: END IF;
1531:
1532: IF ( p_x_operation_rec.enigma_doc_id is NULL OR p_x_operation_rec.enigma_doc_id = FND_API.G_MISS_CHAR) THEN
1533: p_x_operation_rec.ENIGMATYPE_CODE := FND_API.G_MISS_CHAR;
1534: END IF;
1535: --pekambar Enigma Phase II changes -- end
1536:
1529: END IF;
1530: END IF;
1531:
1532: IF ( p_x_operation_rec.enigma_doc_id is NULL OR p_x_operation_rec.enigma_doc_id = FND_API.G_MISS_CHAR) THEN
1533: p_x_operation_rec.ENIGMATYPE_CODE := FND_API.G_MISS_CHAR;
1534: END IF;
1535: --pekambar Enigma Phase II changes -- end
1536:
1537:
1581:
1582: --pekambar Enigma Phase II changes -- End
1583:
1584: -- If any severe error occurs, then, abort API.
1585: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1586: RAISE FND_API.G_EXC_ERROR;
1587: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1588: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1589: END IF;
1582: --pekambar Enigma Phase II changes -- End
1583:
1584: -- If any severe error occurs, then, abort API.
1585: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1586: RAISE FND_API.G_EXC_ERROR;
1587: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1588: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1589: END IF;
1590:
1583:
1584: -- If any severe error occurs, then, abort API.
1585: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1586: RAISE FND_API.G_EXC_ERROR;
1587: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1588: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1589: END IF;
1590:
1591:
1584: -- If any severe error occurs, then, abort API.
1585: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1586: RAISE FND_API.G_EXC_ERROR;
1587: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1588: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1589: END IF;
1590:
1591:
1592: IF G_DEBUG = 'Y' THEN
1601: l_return_status -- OUT
1602: );
1603:
1604: -- If any severe error occurs, then, abort API.
1605: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1606: RAISE FND_API.G_EXC_ERROR;
1607: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1608: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1609: END IF;
1602: );
1603:
1604: -- If any severe error occurs, then, abort API.
1605: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1606: RAISE FND_API.G_EXC_ERROR;
1607: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1608: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1609: END IF;
1610:
1603:
1604: -- If any severe error occurs, then, abort API.
1605: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1606: RAISE FND_API.G_EXC_ERROR;
1607: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1608: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1609: END IF;
1610:
1611:
1604: -- If any severe error occurs, then, abort API.
1605: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1606: RAISE FND_API.G_EXC_ERROR;
1607: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1608: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1609: END IF;
1610:
1611:
1612: IF G_DEBUG = 'Y' THEN
1616: -- Get all the error messages from the previous steps (if any) and raise the appropriate Exception
1617: l_msg_count := FND_MSG_PUB.count_msg;
1618: IF l_msg_count > 0 THEN
1619: x_msg_count := l_msg_count;
1620: RAISE FND_API.G_EXC_ERROR;
1621: END IF;
1622:
1623:
1624: -- Perform the DML by invoking the Table Handler.
1819: -- Get all the error messages from the previous steps (if any) and raise the appropriate Exception
1820: l_msg_count := FND_MSG_PUB.count_msg;
1821: IF l_msg_count > 0 THEN
1822: x_msg_count := l_msg_count;
1823: RAISE FND_API.G_EXC_ERROR;
1824: END IF;
1825:
1826: -- Perform the Commit (if requested)
1827: IF FND_API.to_boolean( p_commit ) THEN
1823: RAISE FND_API.G_EXC_ERROR;
1824: END IF;
1825:
1826: -- Perform the Commit (if requested)
1827: IF FND_API.to_boolean( p_commit ) THEN
1828: COMMIT WORK;
1829: END IF;
1830:
1831: -- Count and Get messages (optional)
1830:
1831: -- Count and Get messages (optional)
1832: FND_MSG_PUB.count_and_get
1833: (
1834: p_encoded => FND_API.G_FALSE,
1835: p_count => x_msg_count,
1836: p_data => x_msg_data
1837: );
1838:
1842: END IF;
1843:
1844: EXCEPTION
1845:
1846: WHEN FND_API.G_EXC_ERROR THEN
1847: ROLLBACK TO process_OPERATION_PVT;
1848: x_return_status := FND_API.G_RET_STS_ERROR ;
1849: FND_MSG_PUB.count_and_get
1850: (
1844: EXCEPTION
1845:
1846: WHEN FND_API.G_EXC_ERROR THEN
1847: ROLLBACK TO process_OPERATION_PVT;
1848: x_return_status := FND_API.G_RET_STS_ERROR ;
1849: FND_MSG_PUB.count_and_get
1850: (
1851: p_encoded => FND_API.G_FALSE,
1852: p_count => x_msg_count,
1847: ROLLBACK TO process_OPERATION_PVT;
1848: x_return_status := FND_API.G_RET_STS_ERROR ;
1849: FND_MSG_PUB.count_and_get
1850: (
1851: p_encoded => FND_API.G_FALSE,
1852: p_count => x_msg_count,
1853: p_data => x_msg_data
1854: );
1855:
1857: IF G_DEBUG = 'Y' THEN
1858: AHL_DEBUG_PUB.disable_debug;
1859: END IF;
1860:
1861: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1862: ROLLBACK TO process_OPERATION_PVT;
1863: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1864: FND_MSG_PUB.count_and_get
1865: (
1859: END IF;
1860:
1861: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1862: ROLLBACK TO process_OPERATION_PVT;
1863: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1864: FND_MSG_PUB.count_and_get
1865: (
1866: p_encoded => FND_API.G_FALSE,
1867: p_count => x_msg_count,
1862: ROLLBACK TO process_OPERATION_PVT;
1863: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1864: FND_MSG_PUB.count_and_get
1865: (
1866: p_encoded => FND_API.G_FALSE,
1867: p_count => x_msg_count,
1868: p_data => x_msg_data
1869: );
1870:
1873: AHL_DEBUG_PUB.disable_debug;
1874: END IF;
1875: WHEN OTHERS THEN
1876: ROLLBACK TO process_OPERATION_PVT;
1877: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1878: IF FND_MSG_PUB.check_msg_level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
1879: THEN
1880: FND_MSG_PUB.add_exc_msg
1881: (
1885: );
1886: END IF;
1887: FND_MSG_PUB.count_and_get
1888: (
1889: p_encoded => FND_API.G_FALSE,
1890: p_count => x_msg_count,
1891: p_data => x_msg_data
1892: );
1893:
1899:
1900: PROCEDURE delete_operation
1901: (
1902: p_api_version IN NUMBER := 1.0,
1903: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
1904: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1905: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1906: p_default IN VARCHAR2 := FND_API.G_FALSE,
1907: p_module_type IN VARCHAR2 := NULL,
1900: PROCEDURE delete_operation
1901: (
1902: p_api_version IN NUMBER := 1.0,
1903: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
1904: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1905: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1906: p_default IN VARCHAR2 := FND_API.G_FALSE,
1907: p_module_type IN VARCHAR2 := NULL,
1908: x_return_status OUT NOCOPY VARCHAR2,
1901: (
1902: p_api_version IN NUMBER := 1.0,
1903: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
1904: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1905: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1906: p_default IN VARCHAR2 := FND_API.G_FALSE,
1907: p_module_type IN VARCHAR2 := NULL,
1908: x_return_status OUT NOCOPY VARCHAR2,
1909: x_msg_count OUT NOCOPY NUMBER,
1902: p_api_version IN NUMBER := 1.0,
1903: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
1904: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1905: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1906: p_default IN VARCHAR2 := FND_API.G_FALSE,
1907: p_module_type IN VARCHAR2 := NULL,
1908: x_return_status OUT NOCOPY VARCHAR2,
1909: x_msg_count OUT NOCOPY NUMBER,
1910: x_msg_data OUT NOCOPY VARCHAR2,
1938: l_dummy VARCHAR2(1);
1939:
1940: BEGIN
1941: -- Initialize API return status to success
1942: x_return_status := FND_API.G_RET_STS_SUCCESS;
1943:
1944: -- Standard Start of API savepoint
1945: SAVEPOINT delete_operation_pvt;
1946:
1944: -- Standard Start of API savepoint
1945: SAVEPOINT delete_operation_pvt;
1946:
1947: -- Standard call to check for call compatibility.
1948: IF NOT FND_API.compatible_api_call
1949: (
1950: l_api_version,
1951: p_api_version,
1952: l_api_name,
1952: l_api_name,
1953: G_PKG_NAME
1954: )
1955: THEN
1956: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1957: END IF;
1958:
1959: -- Initialize message list if p_init_msg_list is set to TRUE.
1960: IF FND_API.to_boolean( p_init_msg_list ) THEN
1956: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1957: END IF;
1958:
1959: -- Initialize message list if p_init_msg_list is set to TRUE.
1960: IF FND_API.to_boolean( p_init_msg_list ) THEN
1961: FND_MSG_PUB.initialize;
1962: END IF;
1963:
1964: IF G_DEBUG = 'Y' THEN
1966: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : Begin API' );
1967: END IF;
1968:
1969: IF ( p_operation_id IS NULL OR
1970: p_operation_id = FND_API.G_MISS_NUM OR
1971: p_object_version_number IS NULL OR
1972: p_object_version_number = FND_API.G_MISS_NUM ) THEN
1973: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_INVALID_PROCEDURE_CALL' );
1974: FND_MSG_PUB.add;
1968:
1969: IF ( p_operation_id IS NULL OR
1970: p_operation_id = FND_API.G_MISS_NUM OR
1971: p_object_version_number IS NULL OR
1972: p_object_version_number = FND_API.G_MISS_NUM ) THEN
1973: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_INVALID_PROCEDURE_CALL' );
1974: FND_MSG_PUB.add;
1975: RAISE FND_API.G_EXC_ERROR;
1976: END IF;
1971: p_object_version_number IS NULL OR
1972: p_object_version_number = FND_API.G_MISS_NUM ) THEN
1973: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_INVALID_PROCEDURE_CALL' );
1974: FND_MSG_PUB.add;
1975: RAISE FND_API.G_EXC_ERROR;
1976: END IF;
1977:
1978: OPEN validate_oper_ovn;
1979: FETCH validate_oper_ovn INTO l_dummy;
1990: Select ENIGMA_OP_ID into l_enig_op_id
1991: From ahl_operations_b
1992: Where operation_id = p_operation_id;
1993:
1994: IF ( l_enig_op_id is not null and l_enig_op_id <> FND_API.G_MISS_CHAR)
1995: THEN
1996: --if the operation is from enigma do not allow deletion.
1997: FND_MESSAGE.SET_NAME('AHL','AHL_RM_OPER_ENIG_DELT');
1998: FND_MSG_PUB.ADD;
1995: THEN
1996: --if the operation is from enigma do not allow deletion.
1997: FND_MESSAGE.SET_NAME('AHL','AHL_RM_OPER_ENIG_DELT');
1998: FND_MSG_PUB.ADD;
1999: RAISE FND_API.G_EXC_ERROR;
2000: END IF;
2001: END IF;
2002: --bachandr Enigma Phase I changes -- end
2003:
2007: x_msg_data => l_msg_data,
2008: x_return_status => l_return_status
2009: );
2010:
2011: IF ( NVL( l_return_status, 'X' ) <> FND_API.G_RET_STS_SUCCESS ) THEN
2012: IF ( l_msg_data = 'AHL_RM_INVALID_OPER_STATUS' ) THEN
2013: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_OP_STATUS_NOT_DRAFT' );
2014: ELSE
2015: FND_MESSAGE.set_name( 'AHL', l_msg_data );
2015: FND_MESSAGE.set_name( 'AHL', l_msg_data );
2016: END IF;
2017:
2018: FND_MSG_PUB.add;
2019: RAISE FND_API.G_EXC_ERROR;
2020: END IF;
2021:
2022: BEGIN
2023: -- Delete the record in AHL_OPERATIONS_B and AHL_OPERATIONS_TL
2029: EXCEPTION
2030: WHEN NO_DATA_FOUND THEN
2031: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_RECORD_CHANGED' );
2032: FND_MSG_PUB.add;
2033: RAISE FND_API.G_EXC_ERROR;
2034: WHEN OTHERS THEN
2035: RAISE;
2036: END;
2037:
2112: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : after Deleting Access Panels' );
2113: END IF;
2114:
2115: -- Perform the Commit (if requested)
2116: IF FND_API.to_boolean( p_commit ) THEN
2117: COMMIT WORK;
2118: END IF;
2119:
2120: -- Count and Get messages (optional)
2119:
2120: -- Count and Get messages (optional)
2121: FND_MSG_PUB.count_and_get
2122: (
2123: p_encoded => FND_API.G_FALSE,
2124: p_count => x_msg_count,
2125: p_data => x_msg_data
2126: );
2127:
2130: AHL_DEBUG_PUB.disable_debug;
2131: END IF;
2132: EXCEPTION
2133:
2134: WHEN FND_API.G_EXC_ERROR THEN
2135: ROLLBACK TO delete_OPERATION_PVT;
2136: x_return_status := FND_API.G_RET_STS_ERROR ;
2137: FND_MSG_PUB.count_and_get
2138: (
2132: EXCEPTION
2133:
2134: WHEN FND_API.G_EXC_ERROR THEN
2135: ROLLBACK TO delete_OPERATION_PVT;
2136: x_return_status := FND_API.G_RET_STS_ERROR ;
2137: FND_MSG_PUB.count_and_get
2138: (
2139: p_encoded => FND_API.G_FALSE,
2140: p_count => x_msg_count,
2135: ROLLBACK TO delete_OPERATION_PVT;
2136: x_return_status := FND_API.G_RET_STS_ERROR ;
2137: FND_MSG_PUB.count_and_get
2138: (
2139: p_encoded => FND_API.G_FALSE,
2140: p_count => x_msg_count,
2141: p_data => x_msg_data
2142: );
2143:
2144: -- Disable debug (if enabled)
2145: IF G_DEBUG = 'Y' THEN
2146: AHL_DEBUG_PUB.disable_debug;
2147: END IF;
2148: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2149: ROLLBACK TO delete_OPERATION_PVT;
2150: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2151: FND_MSG_PUB.count_and_get
2152: (
2146: AHL_DEBUG_PUB.disable_debug;
2147: END IF;
2148: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2149: ROLLBACK TO delete_OPERATION_PVT;
2150: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2151: FND_MSG_PUB.count_and_get
2152: (
2153: p_encoded => FND_API.G_FALSE,
2154: p_count => x_msg_count,
2149: ROLLBACK TO delete_OPERATION_PVT;
2150: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2151: FND_MSG_PUB.count_and_get
2152: (
2153: p_encoded => FND_API.G_FALSE,
2154: p_count => x_msg_count,
2155: p_data => x_msg_data
2156: );
2157:
2160: AHL_DEBUG_PUB.disable_debug;
2161: END IF;
2162: WHEN OTHERS THEN
2163: ROLLBACK TO delete_OPERATION_PVT;
2164: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2165: IF FND_MSG_PUB.check_msg_level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
2166: THEN
2167: FND_MSG_PUB.add_exc_msg
2168: (
2172: );
2173: END IF;
2174: FND_MSG_PUB.count_and_get
2175: (
2176: p_encoded => FND_API.G_FALSE,
2177: p_count => x_msg_count,
2178: p_data => x_msg_data
2179: );
2180:
2186:
2187: PROCEDURE create_oper_revision
2188: (
2189: p_api_version IN NUMBER := 1.0,
2190: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
2191: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2192: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2193: p_default IN VARCHAR2 := FND_API.G_FALSE,
2194: p_module_type IN VARCHAR2 := NULL,
2187: PROCEDURE create_oper_revision
2188: (
2189: p_api_version IN NUMBER := 1.0,
2190: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
2191: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2192: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2193: p_default IN VARCHAR2 := FND_API.G_FALSE,
2194: p_module_type IN VARCHAR2 := NULL,
2195: x_return_status OUT NOCOPY VARCHAR2,
2188: (
2189: p_api_version IN NUMBER := 1.0,
2190: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
2191: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2192: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2193: p_default IN VARCHAR2 := FND_API.G_FALSE,
2194: p_module_type IN VARCHAR2 := NULL,
2195: x_return_status OUT NOCOPY VARCHAR2,
2196: x_msg_count OUT NOCOPY NUMBER,
2189: p_api_version IN NUMBER := 1.0,
2190: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
2191: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2192: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2193: p_default IN VARCHAR2 := FND_API.G_FALSE,
2194: p_module_type IN VARCHAR2 := NULL,
2195: x_return_status OUT NOCOPY VARCHAR2,
2196: x_msg_count OUT NOCOPY NUMBER,
2197: x_msg_data OUT NOCOPY VARCHAR2,
2290: AND association_type_code = 'OPERATION';
2291:
2292: BEGIN
2293: -- Initialize API return status to success
2294: x_return_status := FND_API.G_RET_STS_SUCCESS;
2295:
2296: -- Standard Start of API savepoint
2297: SAVEPOINT create_oper_revision_pvt;
2298:
2296: -- Standard Start of API savepoint
2297: SAVEPOINT create_oper_revision_pvt;
2298:
2299: -- Standard call to check for call compatibility.
2300: IF NOT FND_API.compatible_api_call
2301: (
2302: l_api_version,
2303: p_api_version,
2304: l_api_name,
2304: l_api_name,
2305: G_PKG_NAME
2306: )
2307: THEN
2308: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2309: END IF;
2310:
2311: -- Initialize message list if p_init_msg_list is set to TRUE.
2312: IF FND_API.to_boolean( p_init_msg_list ) THEN
2308: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2309: END IF;
2310:
2311: -- Initialize message list if p_init_msg_list is set to TRUE.
2312: IF FND_API.to_boolean( p_init_msg_list ) THEN
2313: FND_MSG_PUB.initialize;
2314: END IF;
2315:
2316: IF G_DEBUG = 'Y' THEN
2318: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : Begin API' );
2319: END IF;
2320:
2321: IF ( p_operation_id IS NULL OR
2322: p_operation_id = FND_API.G_MISS_NUM OR
2323: p_object_version_number IS NULL OR
2324: p_object_version_number = FND_API.G_MISS_NUM ) THEN
2325: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_INVALID_PROCEDURE_CALL' );
2326: FND_MSG_PUB.add;
2320:
2321: IF ( p_operation_id IS NULL OR
2322: p_operation_id = FND_API.G_MISS_NUM OR
2323: p_object_version_number IS NULL OR
2324: p_object_version_number = FND_API.G_MISS_NUM ) THEN
2325: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_INVALID_PROCEDURE_CALL' );
2326: FND_MSG_PUB.add;
2327: RAISE FND_API.G_EXC_ERROR;
2328: END IF;
2323: p_object_version_number IS NULL OR
2324: p_object_version_number = FND_API.G_MISS_NUM ) THEN
2325: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_INVALID_PROCEDURE_CALL' );
2326: FND_MSG_PUB.add;
2327: RAISE FND_API.G_EXC_ERROR;
2328: END IF;
2329:
2330: get_operation_record
2331: (
2335: p_object_version_number => p_object_version_number,
2336: x_operation_rec => l_old_operation_rec
2337: );
2338:
2339: IF ( NVL( l_return_status, 'X' ) <> FND_API.G_RET_STS_SUCCESS ) THEN
2340: FND_MESSAGE.set_name( 'AHL', l_msg_data );
2341: FND_MSG_PUB.add;
2342: RAISE FND_API.G_EXC_ERROR;
2343: END IF;
2338:
2339: IF ( NVL( l_return_status, 'X' ) <> FND_API.G_RET_STS_SUCCESS ) THEN
2340: FND_MESSAGE.set_name( 'AHL', l_msg_data );
2341: FND_MSG_PUB.add;
2342: RAISE FND_API.G_EXC_ERROR;
2343: END IF;
2344:
2345: -- Check if the Status is COMPLETE
2346: IF ( l_old_operation_rec.revision_status_code <> 'COMPLETE' ) THEN
2346: IF ( l_old_operation_rec.revision_status_code <> 'COMPLETE' ) THEN
2347: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_OP_STATUS_NOT_COMPLETE' );
2348: FND_MESSAGE.set_token( 'RECORD', l_old_operation_rec.concatenated_segments );
2349: FND_MSG_PUB.add;
2350: RAISE FND_API.G_EXC_ERROR;
2351: END IF;
2352:
2353: -- Check if active end date is set
2354: IF l_old_operation_rec.active_end_date is not null THEN
2355: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_END_DATE_NOT_NULL' );
2356: FND_MESSAGE.set_token( 'RECORD', l_old_operation_rec.concatenated_segments )
2357: ;
2358: FND_MSG_PUB.add;
2359: RAISE FND_API.G_EXC_ERROR;
2360: END IF;
2361:
2362: -- Check if this revision is the latest complete revision of this Operation
2363: OPEN get_latest_revision(l_old_operation_rec.concatenated_segments);
2368: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_OP_REVISION_NOT_LATEST' );
2369: FND_MESSAGE.set_token( 'RECORD', l_old_operation_rec.concatenated_segments );
2370: FND_MSG_PUB.add;
2371: CLOSE get_latest_revision;
2372: RAISE FND_API.G_EXC_ERROR;
2373: END IF;
2374:
2375: CLOSE get_latest_revision;
2376:
2876: -- Set the Out values.
2877: x_operation_id := l_operation_id;
2878:
2879: -- Perform the Commit (if requested)
2880: IF FND_API.to_boolean( p_commit ) THEN
2881: COMMIT WORK;
2882: END IF;
2883:
2884: -- Count and Get messages (optional)
2883:
2884: -- Count and Get messages (optional)
2885: FND_MSG_PUB.count_and_get
2886: (
2887: p_encoded => FND_API.G_FALSE,
2888: p_count => x_msg_count,
2889: p_data => x_msg_data
2890: );
2891:
2894: AHL_DEBUG_PUB.disable_debug;
2895: END IF;
2896: EXCEPTION
2897:
2898: WHEN FND_API.G_EXC_ERROR THEN
2899: ROLLBACK TO create_oper_revision_PVT;
2900: x_return_status := FND_API.G_RET_STS_ERROR ;
2901: FND_MSG_PUB.count_and_get
2902: (
2896: EXCEPTION
2897:
2898: WHEN FND_API.G_EXC_ERROR THEN
2899: ROLLBACK TO create_oper_revision_PVT;
2900: x_return_status := FND_API.G_RET_STS_ERROR ;
2901: FND_MSG_PUB.count_and_get
2902: (
2903: p_encoded => FND_API.G_FALSE,
2904: p_count => x_msg_count,
2899: ROLLBACK TO create_oper_revision_PVT;
2900: x_return_status := FND_API.G_RET_STS_ERROR ;
2901: FND_MSG_PUB.count_and_get
2902: (
2903: p_encoded => FND_API.G_FALSE,
2904: p_count => x_msg_count,
2905: p_data => x_msg_data
2906: );
2907:
2908: -- Disable debug (if enabled)
2909: IF G_DEBUG = 'Y' THEN
2910: AHL_DEBUG_PUB.disable_debug;
2911: END IF;
2912: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2913: ROLLBACK TO create_oper_revision_PVT;
2914: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2915: FND_MSG_PUB.count_and_get
2916: (
2910: AHL_DEBUG_PUB.disable_debug;
2911: END IF;
2912: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2913: ROLLBACK TO create_oper_revision_PVT;
2914: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2915: FND_MSG_PUB.count_and_get
2916: (
2917: p_encoded => FND_API.G_FALSE,
2918: p_count => x_msg_count,
2913: ROLLBACK TO create_oper_revision_PVT;
2914: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2915: FND_MSG_PUB.count_and_get
2916: (
2917: p_encoded => FND_API.G_FALSE,
2918: p_count => x_msg_count,
2919: p_data => x_msg_data
2920: );
2921:
2924: AHL_DEBUG_PUB.disable_debug;
2925: END IF;
2926: WHEN OTHERS THEN
2927: ROLLBACK TO create_oper_revision_PVT;
2928: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2929: IF FND_MSG_PUB.check_msg_level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
2930: THEN
2931: FND_MSG_PUB.add_exc_msg
2932: (
2936: );
2937: END IF;
2938: FND_MSG_PUB.count_and_get
2939: (
2940: p_encoded => FND_API.G_FALSE,
2941: p_count => x_msg_count,
2942: p_data => x_msg_data
2943: );
2944: