[Home] [Help]
26: IF ( G_APPLN_USAGE = 'PM' AND
27: g_mr_type_code = 'PROGRAM' ) THEN
28:
29: IF ( p_interval_rec.earliest_due_value IS NOT NULL AND
30: p_interval_rec.earliest_due_value <> FND_API.G_MISS_NUM ) THEN
31: l_record_identifier := l_record_identifier || TO_CHAR( p_interval_rec.earliest_due_value );
32: END IF;
33:
34: l_record_identifier := l_record_identifier || ' - ';
33:
34: l_record_identifier := l_record_identifier || ' - ';
35:
36: IF ( p_interval_rec.start_value IS NOT NULL AND
37: p_interval_rec.start_value <> FND_API.G_MISS_NUM ) THEN
38: l_record_identifier := l_record_identifier || TO_CHAR( p_interval_rec.start_value );
39: END IF;
40:
41: l_record_identifier := l_record_identifier || ' - ';
40:
41: l_record_identifier := l_record_identifier || ' - ';
42:
43: IF ( p_interval_rec.stop_value IS NOT NULL AND
44: p_interval_rec.stop_value <> FND_API.G_MISS_NUM ) THEN
45: l_record_identifier := l_record_identifier || TO_CHAR( p_interval_rec.stop_value );
46: END IF;
47:
48: l_record_identifier := l_record_identifier || ' - ';
49:
50: -- For One-Time Maintenencce Requirements
51: ELSIF ( g_repetitive_flag = 'N' ) THEN
52: IF ( p_interval_rec.interval_value IS NOT NULL AND
53: p_interval_rec.interval_value <> FND_API.G_MISS_NUM ) THEN
54: l_record_identifier := l_record_identifier || TO_CHAR( p_interval_rec.interval_value );
55: END IF;
56:
57: l_record_identifier := l_record_identifier || ' - ';
59: -- For All other Maintenance Requirements
60: ELSE
61:
62: IF ( p_interval_rec.start_date IS NOT NULL AND
63: p_interval_rec.start_date <> FND_API.G_MISS_DATE ) THEN
64: l_record_identifier := l_record_identifier || TO_CHAR( p_interval_rec.start_date, 'DD-MON_YYYY' );
65: END IF;
66:
67: l_record_identifier := l_record_identifier || ' - ';
66:
67: l_record_identifier := l_record_identifier || ' - ';
68:
69: IF ( p_interval_rec.stop_date IS NOT NULL AND
70: p_interval_rec.stop_date <> FND_API.G_MISS_DATE ) THEN
71: l_record_identifier := l_record_identifier || TO_CHAR( p_interval_rec.stop_date, 'DD-MON-YYYY' );
72: END IF;
73:
74: l_record_identifier := l_record_identifier || ' - ';
73:
74: l_record_identifier := l_record_identifier || ' - ';
75:
76: IF ( p_interval_rec.earliest_due_value IS NOT NULL AND
77: p_interval_rec.earliest_due_value <> FND_API.G_MISS_NUM ) THEN
78: l_record_identifier := l_record_identifier || TO_CHAR( p_interval_rec.earliest_due_value );
79: END IF;
80:
81: l_record_identifier := l_record_identifier || ' - ';
80:
81: l_record_identifier := l_record_identifier || ' - ';
82:
83: IF ( p_interval_rec.start_value IS NOT NULL AND
84: p_interval_rec.start_value <> FND_API.G_MISS_NUM ) THEN
85: l_record_identifier := l_record_identifier || TO_CHAR( p_interval_rec.start_value );
86: END IF;
87:
88: l_record_identifier := l_record_identifier || ' - ';
87:
88: l_record_identifier := l_record_identifier || ' - ';
89:
90: IF ( p_interval_rec.interval_value IS NOT NULL AND
91: p_interval_rec.interval_value <> FND_API.G_MISS_NUM ) THEN
92: l_record_identifier := l_record_identifier || TO_CHAR( p_interval_rec.interval_value );
93: END IF;
94:
95: l_record_identifier := l_record_identifier || ' - ';
94:
95: l_record_identifier := l_record_identifier || ' - ';
96:
97: IF ( p_interval_rec.stop_value IS NOT NULL AND
98: p_interval_rec.stop_value <> FND_API.G_MISS_NUM ) THEN
99: l_record_identifier := l_record_identifier || TO_CHAR( p_interval_rec.stop_value );
100: END IF;
101:
102: l_record_identifier := l_record_identifier || ' - ';
104: END IF;
105:
106: -- Common Identifiers
107: IF ( p_interval_rec.counter_name IS NOT NULL AND
108: p_interval_rec.counter_name <> FND_API.G_MISS_CHAR ) THEN
109: l_record_identifier := l_record_identifier || p_interval_rec.counter_name;
110: END IF;
111:
112: RETURN l_record_identifier;
130: l_mr_type_code VARCHAR2(30);
131: l_pm_install_flag VARCHAR2(1);
132:
133: BEGIN
134: x_return_status := FND_API.G_RET_STS_SUCCESS;
135:
136: -- Check if a valid value is passed in p_mr_header_id
137: IF ( p_mr_header_id = FND_API.G_MISS_NUM OR
138: p_mr_header_id IS NULL ) THEN
133: BEGIN
134: x_return_status := FND_API.G_RET_STS_SUCCESS;
135:
136: -- Check if a valid value is passed in p_mr_header_id
137: IF ( p_mr_header_id = FND_API.G_MISS_NUM OR
138: p_mr_header_id IS NULL ) THEN
139: FND_MESSAGE.set_name( 'AHL', 'AHL_FMP_MR_HEADER_ID_NULL' );
140: FND_MSG_PUB.add;
141: x_return_status := FND_API.G_RET_STS_ERROR;
137: IF ( p_mr_header_id = FND_API.G_MISS_NUM OR
138: p_mr_header_id IS NULL ) THEN
139: FND_MESSAGE.set_name( 'AHL', 'AHL_FMP_MR_HEADER_ID_NULL' );
140: FND_MSG_PUB.add;
141: x_return_status := FND_API.G_RET_STS_ERROR;
142: RETURN;
143: END IF;
144:
145: -- Check Profile value
147: IF G_APPLN_USAGE IS NULL
148: THEN
149: FND_MESSAGE.SET_NAME('AHL','AHL_COM_APP_PRFL_UNDEF');
150: FND_MSG_PUB.ADD;
151: x_return_status := FND_API.G_RET_STS_ERROR;
152: RETURN;
153: IF G_DEBUG = 'Y' THEN
154: AHL_DEBUG_PUB.debug('APPLN USAGE CODE IS NULL IN VALIDATE_API_INPUTS' );
155: END IF;
166: l_mr_status_code :=AHL_FMP_COMMON_PVT.check_mr_status(p_mr_header_id);
167: IF l_mr_status_code IS NULL THEN
168: FND_MESSAGE.set_name( 'AHL', 'AHL_FMP_INVALID_MR' );
169: FND_MSG_PUB.add;
170: x_return_status := FND_API.G_RET_STS_ERROR;
171: RETURN;
172: END IF;
173:
174: -- Check if the Maintenance Requirement is in Updatable status based on the pm,super user,mrstatus
189: p_mr_header_id => p_mr_header_id
190: );
191: END IF;
192:
193: IF ( NVL( l_return_status, 'X' ) <> FND_API.G_RET_STS_SUCCESS ) THEN
194: FND_MESSAGE.set_name( 'AHL', l_msg_data );
195: FND_MSG_PUB.add;
196: x_return_status := l_return_status;
197: RETURN;
198: END IF;
199:
200:
201: -- Check if a valid value is passed in p_mr_effectivity_id
202: IF ( p_threshold_rec.mr_effectivity_id = FND_API.G_MISS_NUM OR
203: p_threshold_rec.mr_effectivity_id IS NULL ) THEN
204: FND_MESSAGE.set_name( 'AHL', 'AHL_FMP_MRE_ID_NULL' );
205: FND_MSG_PUB.add;
206: x_return_status := FND_API.G_RET_STS_ERROR;
202: IF ( p_threshold_rec.mr_effectivity_id = FND_API.G_MISS_NUM OR
203: p_threshold_rec.mr_effectivity_id IS NULL ) THEN
204: FND_MESSAGE.set_name( 'AHL', 'AHL_FMP_MRE_ID_NULL' );
205: FND_MSG_PUB.add;
206: x_return_status := FND_API.G_RET_STS_ERROR;
207: RETURN;
208: END IF;
209:
210: -- Check if the Maintenance Requirement Effectivity exists
215: p_mr_effectivity_id => p_threshold_rec.mr_effectivity_id,
216: p_object_version_number => p_threshold_rec.object_version_number
217: );
218:
219: IF ( NVL( l_return_status, 'X' ) <> FND_API.G_RET_STS_SUCCESS ) THEN
220: FND_MESSAGE.set_name( 'AHL', l_msg_data );
221: FND_MSG_PUB.add;
222: x_return_status := l_return_status;
223: RETURN;
227:
228: -- Check if atleast one record is passed in p_interval_tbl or p_threshold_rec is passed
229: IF ( p_interval_tbl.count < 1 AND
230: ( p_threshold_rec.threshold_date IS NULL OR
231: p_threshold_rec.threshold_date = FND_API.G_MISS_DATE ) AND
232: ( p_threshold_rec.program_duration IS NULL OR
233: p_threshold_rec.program_duration = FND_API.G_MISS_NUM ) ) THEN
234: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_INVALID_PROCEDURE_CALL' );
235: FND_MESSAGE.set_token( 'PROCEDURE', G_PKG_NAME || '.' || G_API_NAME );
229: IF ( p_interval_tbl.count < 1 AND
230: ( p_threshold_rec.threshold_date IS NULL OR
231: p_threshold_rec.threshold_date = FND_API.G_MISS_DATE ) AND
232: ( p_threshold_rec.program_duration IS NULL OR
233: p_threshold_rec.program_duration = FND_API.G_MISS_NUM ) ) THEN
234: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_INVALID_PROCEDURE_CALL' );
235: FND_MESSAGE.set_token( 'PROCEDURE', G_PKG_NAME || '.' || G_API_NAME );
236: FND_MSG_PUB.add;
237: x_return_status := FND_API.G_RET_STS_ERROR;
233: p_threshold_rec.program_duration = FND_API.G_MISS_NUM ) ) THEN
234: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_INVALID_PROCEDURE_CALL' );
235: FND_MESSAGE.set_token( 'PROCEDURE', G_PKG_NAME || '.' || G_API_NAME );
236: FND_MSG_PUB.add;
237: x_return_status := FND_API.G_RET_STS_ERROR;
238: RETURN;
239: END IF;
240:
241: -- Validate DML Operation
246: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_DML_INVALID' );
247: FND_MESSAGE.set_token( 'FIELD', p_interval_tbl(i).dml_operation );
248: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_interval_tbl(i) ) );
249: FND_MSG_PUB.add;
250: x_return_status := FND_API.G_RET_STS_ERROR;
251: RETURN;
252: END IF;
253:
254: --BASED on the discussion with sracha on Nov02 2004 to show the error msg.
257: p_super_user ='Y' AND
258: l_mr_status_code = 'COMPLETE') THEN
259: FND_MESSAGE.set_name( 'AHL', 'AHL_FMP_INVALID_DML' );
260: FND_MSG_PUB.add;
261: x_return_status := FND_API.G_RET_STS_ERROR;
262: RETURN;
263: END IF;
264:
265:
274: x_msg_data => l_msg_data,
275: p_effectivity_id => p_threshold_rec.MR_EFFECTIVITY_ID,
276: p_eff_obj_version => p_threshold_rec.OBJECT_VERSION_NUMBER
277: );
278: IF ( NVL( l_return_status, 'X' ) <> FND_API.G_RET_STS_SUCCESS ) THEN
279: FND_MESSAGE.set_name( 'AHL', l_msg_data );
280: FND_MSG_PUB.add;
281: x_return_status := FND_API.G_RET_STS_ERROR;
282: RETURN;
277: );
278: IF ( NVL( l_return_status, 'X' ) <> FND_API.G_RET_STS_SUCCESS ) THEN
279: FND_MESSAGE.set_name( 'AHL', l_msg_data );
280: FND_MSG_PUB.add;
281: x_return_status := FND_API.G_RET_STS_ERROR;
282: RETURN;
283: END IF;
284: END IF;
285:
296: p_mr_header_id => p_mr_header_id,
297: p_effectivity_id => p_threshold_rec.MR_EFFECTIVITY_ID,
298: p_eff_obj_version => p_threshold_rec.OBJECT_VERSION_NUMBER
299: );
300: IF ( NVL( l_return_status, 'X' ) <> FND_API.G_RET_STS_SUCCESS ) THEN
301: FND_MESSAGE.set_name( 'AHL', l_msg_data );
302: FND_MSG_PUB.add;
303: x_return_status := FND_API.G_RET_STS_ERROR;
304: RETURN;
299: );
300: IF ( NVL( l_return_status, 'X' ) <> FND_API.G_RET_STS_SUCCESS ) THEN
301: FND_MESSAGE.set_name( 'AHL', l_msg_data );
302: FND_MSG_PUB.add;
303: x_return_status := FND_API.G_RET_STS_ERROR;
304: RETURN;
305: END IF;
306: END IF;
307: END LOOP;
307: END LOOP;
308:
309:
310: -- Check if a valid value is passed in p_threshold_rec.object_version_number if any other threshold information is passed
311: IF ( ( p_threshold_rec.threshold_date <> FND_API.G_MISS_DATE AND
312: p_threshold_rec.program_duration <> FND_API.G_MISS_NUM AND
313: p_threshold_rec.mr_effectivity_id IS NOT NULL ) AND
314: ( p_threshold_rec.object_version_number IS NULL OR
315: p_threshold_rec.object_version_number = FND_API.G_MISS_NUM ) ) THEN
308:
309:
310: -- Check if a valid value is passed in p_threshold_rec.object_version_number if any other threshold information is passed
311: IF ( ( p_threshold_rec.threshold_date <> FND_API.G_MISS_DATE AND
312: p_threshold_rec.program_duration <> FND_API.G_MISS_NUM AND
313: p_threshold_rec.mr_effectivity_id IS NOT NULL ) AND
314: ( p_threshold_rec.object_version_number IS NULL OR
315: p_threshold_rec.object_version_number = FND_API.G_MISS_NUM ) ) THEN
316: FND_MESSAGE.set_name( 'AHL', 'AHL_FMP_MRE_OBJ_VERSION_NULL' );
311: IF ( ( p_threshold_rec.threshold_date <> FND_API.G_MISS_DATE AND
312: p_threshold_rec.program_duration <> FND_API.G_MISS_NUM AND
313: p_threshold_rec.mr_effectivity_id IS NOT NULL ) AND
314: ( p_threshold_rec.object_version_number IS NULL OR
315: p_threshold_rec.object_version_number = FND_API.G_MISS_NUM ) ) THEN
316: FND_MESSAGE.set_name( 'AHL', 'AHL_FMP_MRE_OBJ_VERSION_NULL' );
317: FND_MSG_PUB.add;
318: x_return_status := FND_API.G_RET_STS_ERROR;
319: RETURN;
314: ( p_threshold_rec.object_version_number IS NULL OR
315: p_threshold_rec.object_version_number = FND_API.G_MISS_NUM ) ) THEN
316: FND_MESSAGE.set_name( 'AHL', 'AHL_FMP_MRE_OBJ_VERSION_NULL' );
317: FND_MSG_PUB.add;
318: x_return_status := FND_API.G_RET_STS_ERROR;
319: RETURN;
320: END IF;
321:
322: END validate_api_inputs;
331: BEGIN
332:
333: IF ( p_x_interval_rec.counter_name IS NULL ) THEN
334: p_x_interval_rec.counter_id := NULL;
335: ELSIF ( p_x_interval_rec.counter_name = FND_API.G_MISS_CHAR ) THEN
336: p_x_interval_rec.counter_id := FND_API.G_MISS_NUM;
337: END IF;
338:
339: END clear_lov_attribute_ids;
332:
333: IF ( p_x_interval_rec.counter_name IS NULL ) THEN
334: p_x_interval_rec.counter_id := NULL;
335: ELSIF ( p_x_interval_rec.counter_name = FND_API.G_MISS_CHAR ) THEN
336: p_x_interval_rec.counter_id := FND_API.G_MISS_NUM;
337: END IF;
338:
339: END clear_lov_attribute_ids;
340:
367: FROM AHL_MR_EFFECTIVITIES_V
368: WHERE mr_effectivity_id = c_mr_effectivity_id;
369:
370: BEGIN
371: x_return_status := FND_API.G_RET_STS_SUCCESS;
372:
373: -- Convert / Validate Counter
374: IF ( ( p_x_interval_rec.counter_id IS NOT NULL AND
375: p_x_interval_rec.counter_id <> FND_API.G_MISS_NUM ) OR
371: x_return_status := FND_API.G_RET_STS_SUCCESS;
372:
373: -- Convert / Validate Counter
374: IF ( ( p_x_interval_rec.counter_id IS NOT NULL AND
375: p_x_interval_rec.counter_id <> FND_API.G_MISS_NUM ) OR
376: ( p_x_interval_rec.counter_name IS NOT NULL AND
377: p_x_interval_rec.counter_name <> FND_API.G_MISS_CHAR ) ) THEN
378:
379: OPEN get_item_effectivity( p_mr_effectivity_id );
373: -- Convert / Validate Counter
374: IF ( ( p_x_interval_rec.counter_id IS NOT NULL AND
375: p_x_interval_rec.counter_id <> FND_API.G_MISS_NUM ) OR
376: ( p_x_interval_rec.counter_name IS NOT NULL AND
377: p_x_interval_rec.counter_name <> FND_API.G_MISS_CHAR ) ) THEN
378:
379: OPEN get_item_effectivity( p_mr_effectivity_id );
380:
381: FETCH get_item_effectivity INTO
395: p_counter_name => p_x_interval_rec.counter_name,
396: p_x_counter_id => p_x_interval_rec.counter_id
397: );
398:
399: IF ( NVL( l_return_status, 'X' ) <> FND_API.G_RET_STS_SUCCESS ) THEN
400: FND_MESSAGE.set_name( 'AHL', l_msg_data );
401:
402: IF ( l_msg_data = 'AHL_FMP_INVALID_COUNTER' OR
403: l_msg_data = 'AHL_FMP_TOO_MANY_COUNTERS' ) THEN
401:
402: IF ( l_msg_data = 'AHL_FMP_INVALID_COUNTER' OR
403: l_msg_data = 'AHL_FMP_TOO_MANY_COUNTERS' ) THEN
404: IF ( p_x_interval_rec.counter_name IS NULL OR
405: p_x_interval_rec.counter_name = FND_API.G_MISS_CHAR ) THEN
406: FND_MESSAGE.set_token( 'FIELD', TO_CHAR( p_x_interval_rec.counter_id ));
407: ELSE
408: FND_MESSAGE.set_token( 'FIELD', p_x_interval_rec.counter_name );
409: END IF;
408: FND_MESSAGE.set_token( 'FIELD', p_x_interval_rec.counter_name );
409: END IF;
410: ELSE
411: IF ( p_x_interval_rec.counter_name IS NULL OR
412: p_x_interval_rec.counter_name = FND_API.G_MISS_CHAR ) THEN
413: FND_MESSAGE.set_token( 'FIELD1', TO_CHAR( p_x_interval_rec.counter_id ) );
414: ELSE
415: FND_MESSAGE.set_token( 'FIELD1', p_x_interval_rec.counter_name );
416: END IF;
455: END IF;
456:
457: -- Fix for bug# 3482307.
458: IF (p_x_interval_rec.earliest_due_value IS NOT NULL AND
459: p_x_interval_rec.earliest_due_value <> FND_API.G_MISS_NUM) THEN
460: l_value := p_x_interval_rec.earliest_due_value;
461: p_x_interval_rec.earliest_due_value := trunc(p_x_interval_rec.earliest_due_value);
462: IF (l_value <> p_x_interval_rec.earliest_due_value) THEN
463: x_fractional_trunc_flag := TRUE;
464: END IF;
465: END IF;
466:
467: IF (p_x_interval_rec.start_value IS NOT NULL AND
468: p_x_interval_rec.start_value <> FND_API.G_MISS_NUM) THEN
469: l_value := p_x_interval_rec.start_value;
470: p_x_interval_rec.start_value := trunc(p_x_interval_rec.start_value);
471: IF (l_value <> p_x_interval_rec.start_value) THEN
472: x_fractional_trunc_flag := TRUE;
473: END IF;
474: END IF;
475:
476: IF (p_x_interval_rec.stop_value IS NOT NULL AND
477: p_x_interval_rec.stop_value <> FND_API.G_MISS_NUM) THEN
478: l_value := p_x_interval_rec.stop_value;
479: p_x_interval_rec.stop_value := trunc(p_x_interval_rec.stop_value);
480: IF (l_value <> p_x_interval_rec.stop_value) THEN
481: x_fractional_trunc_flag := TRUE;
482: END IF;
483: END IF;
484:
485: IF (p_x_interval_rec.interval_value IS NOT NULL AND
486: p_x_interval_rec.interval_value <> FND_API.G_MISS_NUM) THEN
487: l_value := p_x_interval_rec.interval_value;
488: p_x_interval_rec.interval_value := trunc(p_x_interval_rec.interval_value);
489: IF (l_value <> p_x_interval_rec.interval_value) THEN
490: x_fractional_trunc_flag := TRUE;
491: END IF;
492: END IF;
493:
494: IF (p_x_interval_rec.tolerance_before IS NOT NULL AND
495: p_x_interval_rec.tolerance_before <> FND_API.G_MISS_NUM) THEN
496: l_value := p_x_interval_rec.tolerance_before;
497: p_x_interval_rec.tolerance_before := trunc(p_x_interval_rec.tolerance_before);
498: IF (l_value <> p_x_interval_rec.tolerance_before) THEN
499: x_fractional_trunc_flag := TRUE;
500: END IF;
501: END IF;
502:
503: IF (p_x_interval_rec.tolerance_after IS NOT NULL AND
504: p_x_interval_rec.tolerance_after <> FND_API.G_MISS_NUM) THEN
505: l_value := p_x_interval_rec.tolerance_after;
506: p_x_interval_rec.tolerance_after := trunc(p_x_interval_rec.tolerance_after);
507: IF (l_value <> p_x_interval_rec.tolerance_after) THEN
508: x_fractional_trunc_flag := TRUE;
517: IF
518: (
519: p_x_interval_rec.duedate_rule_code IS NULL
520: OR
521: p_x_interval_rec.duedate_rule_code = FND_API.G_MISS_CHAR
522: )
523: AND
524: (
525: (
524: (
525: (
526: p_x_interval_rec.start_value IS NOT NULL
527: AND
528: p_x_interval_rec.start_value <> FND_API.G_MISS_NUM
529: )
530: OR
531: (
532: p_x_interval_rec.start_date IS NOT NULL
530: OR
531: (
532: p_x_interval_rec.start_date IS NOT NULL
533: AND
534: p_x_interval_rec.start_date <> FND_API.G_MISS_DATE
535: )
536: )
537: THEN
538: p_x_interval_rec.duedate_rule_code := 'START';
550:
551: BEGIN
552:
553: -- Convert G_MISS values to NULL
554: IF ( p_x_interval_rec.earliest_due_value = FND_API.G_MISS_NUM ) THEN
555: p_x_interval_rec.earliest_due_value := null;
556: END IF;
557:
558: IF ( p_x_interval_rec.start_value = FND_API.G_MISS_NUM ) THEN
554: IF ( p_x_interval_rec.earliest_due_value = FND_API.G_MISS_NUM ) THEN
555: p_x_interval_rec.earliest_due_value := null;
556: END IF;
557:
558: IF ( p_x_interval_rec.start_value = FND_API.G_MISS_NUM ) THEN
559: p_x_interval_rec.start_value := null;
560: END IF;
561:
562: IF ( p_x_interval_rec.stop_value = FND_API.G_MISS_NUM ) THEN
558: IF ( p_x_interval_rec.start_value = FND_API.G_MISS_NUM ) THEN
559: p_x_interval_rec.start_value := null;
560: END IF;
561:
562: IF ( p_x_interval_rec.stop_value = FND_API.G_MISS_NUM ) THEN
563: p_x_interval_rec.stop_value := null;
564: END IF;
565:
566: IF ( p_x_interval_rec.tolerance_before = FND_API.G_MISS_NUM ) THEN
562: IF ( p_x_interval_rec.stop_value = FND_API.G_MISS_NUM ) THEN
563: p_x_interval_rec.stop_value := null;
564: END IF;
565:
566: IF ( p_x_interval_rec.tolerance_before = FND_API.G_MISS_NUM ) THEN
567: p_x_interval_rec.tolerance_before := null;
568: END IF;
569:
570: IF ( p_x_interval_rec.tolerance_after = FND_API.G_MISS_NUM ) THEN
566: IF ( p_x_interval_rec.tolerance_before = FND_API.G_MISS_NUM ) THEN
567: p_x_interval_rec.tolerance_before := null;
568: END IF;
569:
570: IF ( p_x_interval_rec.tolerance_after = FND_API.G_MISS_NUM ) THEN
571: p_x_interval_rec.tolerance_after := null;
572: END IF;
573:
574: IF ( p_x_interval_rec.reset_value = FND_API.G_MISS_NUM ) THEN
570: IF ( p_x_interval_rec.tolerance_after = FND_API.G_MISS_NUM ) THEN
571: p_x_interval_rec.tolerance_after := null;
572: END IF;
573:
574: IF ( p_x_interval_rec.reset_value = FND_API.G_MISS_NUM ) THEN
575: p_x_interval_rec.reset_value := null;
576: END IF;
577:
578: IF ( p_x_interval_rec.start_date = FND_API.G_MISS_DATE ) THEN
574: IF ( p_x_interval_rec.reset_value = FND_API.G_MISS_NUM ) THEN
575: p_x_interval_rec.reset_value := null;
576: END IF;
577:
578: IF ( p_x_interval_rec.start_date = FND_API.G_MISS_DATE ) THEN
579: p_x_interval_rec.start_date := null;
580: END IF;
581:
582: IF ( p_x_interval_rec.stop_date = FND_API.G_MISS_DATE ) THEN
578: IF ( p_x_interval_rec.start_date = FND_API.G_MISS_DATE ) THEN
579: p_x_interval_rec.start_date := null;
580: END IF;
581:
582: IF ( p_x_interval_rec.stop_date = FND_API.G_MISS_DATE ) THEN
583: p_x_interval_rec.stop_date := null;
584: END IF;
585:
586: IF ( p_x_interval_rec.attribute_category = FND_API.G_MISS_CHAR ) THEN
582: IF ( p_x_interval_rec.stop_date = FND_API.G_MISS_DATE ) THEN
583: p_x_interval_rec.stop_date := null;
584: END IF;
585:
586: IF ( p_x_interval_rec.attribute_category = FND_API.G_MISS_CHAR ) THEN
587: p_x_interval_rec.attribute_category := null;
588: END IF;
589:
590: IF ( p_x_interval_rec.attribute1 = FND_API.G_MISS_CHAR ) THEN
586: IF ( p_x_interval_rec.attribute_category = FND_API.G_MISS_CHAR ) THEN
587: p_x_interval_rec.attribute_category := null;
588: END IF;
589:
590: IF ( p_x_interval_rec.attribute1 = FND_API.G_MISS_CHAR ) THEN
591: p_x_interval_rec.attribute1 := null;
592: END IF;
593:
594: IF ( p_x_interval_rec.attribute2 = FND_API.G_MISS_CHAR ) THEN
590: IF ( p_x_interval_rec.attribute1 = FND_API.G_MISS_CHAR ) THEN
591: p_x_interval_rec.attribute1 := null;
592: END IF;
593:
594: IF ( p_x_interval_rec.attribute2 = FND_API.G_MISS_CHAR ) THEN
595: p_x_interval_rec.attribute2 := null;
596: END IF;
597:
598: IF ( p_x_interval_rec.attribute3 = FND_API.G_MISS_CHAR ) THEN
594: IF ( p_x_interval_rec.attribute2 = FND_API.G_MISS_CHAR ) THEN
595: p_x_interval_rec.attribute2 := null;
596: END IF;
597:
598: IF ( p_x_interval_rec.attribute3 = FND_API.G_MISS_CHAR ) THEN
599: p_x_interval_rec.attribute3 := null;
600: END IF;
601:
602: IF ( p_x_interval_rec.attribute4 = FND_API.G_MISS_CHAR ) THEN
598: IF ( p_x_interval_rec.attribute3 = FND_API.G_MISS_CHAR ) THEN
599: p_x_interval_rec.attribute3 := null;
600: END IF;
601:
602: IF ( p_x_interval_rec.attribute4 = FND_API.G_MISS_CHAR ) THEN
603: p_x_interval_rec.attribute4 := null;
604: END IF;
605:
606: IF ( p_x_interval_rec.attribute5 = FND_API.G_MISS_CHAR ) THEN
602: IF ( p_x_interval_rec.attribute4 = FND_API.G_MISS_CHAR ) THEN
603: p_x_interval_rec.attribute4 := null;
604: END IF;
605:
606: IF ( p_x_interval_rec.attribute5 = FND_API.G_MISS_CHAR ) THEN
607: p_x_interval_rec.attribute5 := null;
608: END IF;
609:
610: IF ( p_x_interval_rec.attribute6 = FND_API.G_MISS_CHAR ) THEN
606: IF ( p_x_interval_rec.attribute5 = FND_API.G_MISS_CHAR ) THEN
607: p_x_interval_rec.attribute5 := null;
608: END IF;
609:
610: IF ( p_x_interval_rec.attribute6 = FND_API.G_MISS_CHAR ) THEN
611: p_x_interval_rec.attribute6 := null;
612: END IF;
613:
614: IF ( p_x_interval_rec.attribute7 = FND_API.G_MISS_CHAR ) THEN
610: IF ( p_x_interval_rec.attribute6 = FND_API.G_MISS_CHAR ) THEN
611: p_x_interval_rec.attribute6 := null;
612: END IF;
613:
614: IF ( p_x_interval_rec.attribute7 = FND_API.G_MISS_CHAR ) THEN
615: p_x_interval_rec.attribute7 := null;
616: END IF;
617:
618: IF ( p_x_interval_rec.attribute8 = FND_API.G_MISS_CHAR ) THEN
614: IF ( p_x_interval_rec.attribute7 = FND_API.G_MISS_CHAR ) THEN
615: p_x_interval_rec.attribute7 := null;
616: END IF;
617:
618: IF ( p_x_interval_rec.attribute8 = FND_API.G_MISS_CHAR ) THEN
619: p_x_interval_rec.attribute8 := null;
620: END IF;
621:
622: IF ( p_x_interval_rec.attribute9 = FND_API.G_MISS_CHAR ) THEN
618: IF ( p_x_interval_rec.attribute8 = FND_API.G_MISS_CHAR ) THEN
619: p_x_interval_rec.attribute8 := null;
620: END IF;
621:
622: IF ( p_x_interval_rec.attribute9 = FND_API.G_MISS_CHAR ) THEN
623: p_x_interval_rec.attribute9 := null;
624: END IF;
625:
626: IF ( p_x_interval_rec.attribute10 = FND_API.G_MISS_CHAR ) THEN
622: IF ( p_x_interval_rec.attribute9 = FND_API.G_MISS_CHAR ) THEN
623: p_x_interval_rec.attribute9 := null;
624: END IF;
625:
626: IF ( p_x_interval_rec.attribute10 = FND_API.G_MISS_CHAR ) THEN
627: p_x_interval_rec.attribute10 := null;
628: END IF;
629:
630: IF ( p_x_interval_rec.attribute11 = FND_API.G_MISS_CHAR ) THEN
626: IF ( p_x_interval_rec.attribute10 = FND_API.G_MISS_CHAR ) THEN
627: p_x_interval_rec.attribute10 := null;
628: END IF;
629:
630: IF ( p_x_interval_rec.attribute11 = FND_API.G_MISS_CHAR ) THEN
631: p_x_interval_rec.attribute11 := null;
632: END IF;
633:
634: IF ( p_x_interval_rec.attribute12 = FND_API.G_MISS_CHAR ) THEN
630: IF ( p_x_interval_rec.attribute11 = FND_API.G_MISS_CHAR ) THEN
631: p_x_interval_rec.attribute11 := null;
632: END IF;
633:
634: IF ( p_x_interval_rec.attribute12 = FND_API.G_MISS_CHAR ) THEN
635: p_x_interval_rec.attribute12 := null;
636: END IF;
637:
638: IF ( p_x_interval_rec.attribute13 = FND_API.G_MISS_CHAR ) THEN
634: IF ( p_x_interval_rec.attribute12 = FND_API.G_MISS_CHAR ) THEN
635: p_x_interval_rec.attribute12 := null;
636: END IF;
637:
638: IF ( p_x_interval_rec.attribute13 = FND_API.G_MISS_CHAR ) THEN
639: p_x_interval_rec.attribute13 := null;
640: END IF;
641:
642: IF ( p_x_interval_rec.attribute14 = FND_API.G_MISS_CHAR ) THEN
638: IF ( p_x_interval_rec.attribute13 = FND_API.G_MISS_CHAR ) THEN
639: p_x_interval_rec.attribute13 := null;
640: END IF;
641:
642: IF ( p_x_interval_rec.attribute14 = FND_API.G_MISS_CHAR ) THEN
643: p_x_interval_rec.attribute14 := null;
644: END IF;
645:
646: IF ( p_x_interval_rec.attribute15 = FND_API.G_MISS_CHAR ) THEN
642: IF ( p_x_interval_rec.attribute14 = FND_API.G_MISS_CHAR ) THEN
643: p_x_interval_rec.attribute14 := null;
644: END IF;
645:
646: IF ( p_x_interval_rec.attribute15 = FND_API.G_MISS_CHAR ) THEN
647: p_x_interval_rec.attribute15 := null;
648: END IF;
649:
650: --pdoki added for ADAT ER
647: p_x_interval_rec.attribute15 := null;
648: END IF;
649:
650: --pdoki added for ADAT ER
651: IF ( p_x_interval_rec.duedate_rule_code = FND_API.G_MISS_CHAR ) THEN
652: p_x_interval_rec.duedate_rule_code := null;
653: END IF;
654:
655: END default_missing_attributes;
733: FND_MESSAGE.set_name( 'AHL', 'AHL_FMP_INVALID_INTERVAL_REC' );
734: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_x_interval_rec ) );
735: FND_MSG_PUB.add;
736: CLOSE get_old_rec;
737: RAISE FND_API.G_EXC_ERROR;
738: END IF;
739:
740: CLOSE get_old_rec;
741:
743: IF ( p_x_interval_rec.counter_id IS NULL ) THEN
744: p_x_interval_rec.counter_id := l_old_interval_rec.counter_id;
745: END IF;
746:
747: IF ( p_x_interval_rec.interval_value = FND_API.G_MISS_NUM ) THEN
748: p_x_interval_rec.interval_value := null;
749: ELSIF ( p_x_interval_rec.interval_value IS NULL ) THEN
750: p_x_interval_rec.interval_value := l_old_interval_rec.interval_value;
751: END IF;
749: ELSIF ( p_x_interval_rec.interval_value IS NULL ) THEN
750: p_x_interval_rec.interval_value := l_old_interval_rec.interval_value;
751: END IF;
752:
753: IF ( p_x_interval_rec.earliest_due_value = FND_API.G_MISS_NUM ) THEN
754: p_x_interval_rec.earliest_due_value := null;
755: ELSIF ( p_x_interval_rec.earliest_due_value IS NULL ) THEN
756: p_x_interval_rec.earliest_due_value := l_old_interval_rec.earliest_due_value;
757: END IF;
755: ELSIF ( p_x_interval_rec.earliest_due_value IS NULL ) THEN
756: p_x_interval_rec.earliest_due_value := l_old_interval_rec.earliest_due_value;
757: END IF;
758:
759: IF ( p_x_interval_rec.start_value = FND_API.G_MISS_NUM ) THEN
760: p_x_interval_rec.start_value := null;
761: ELSIF ( p_x_interval_rec.start_value IS NULL ) THEN
762: p_x_interval_rec.start_value := l_old_interval_rec.start_value;
763: END IF;
761: ELSIF ( p_x_interval_rec.start_value IS NULL ) THEN
762: p_x_interval_rec.start_value := l_old_interval_rec.start_value;
763: END IF;
764:
765: IF ( p_x_interval_rec.stop_value = FND_API.G_MISS_NUM ) THEN
766: p_x_interval_rec.stop_value := null;
767: ELSIF ( p_x_interval_rec.stop_value IS NULL ) THEN
768: p_x_interval_rec.stop_value := l_old_interval_rec.stop_value;
769: END IF;
767: ELSIF ( p_x_interval_rec.stop_value IS NULL ) THEN
768: p_x_interval_rec.stop_value := l_old_interval_rec.stop_value;
769: END IF;
770:
771: IF ( p_x_interval_rec.tolerance_before = FND_API.G_MISS_NUM ) THEN
772: p_x_interval_rec.tolerance_before := null;
773: ELSIF ( p_x_interval_rec.tolerance_before IS NULL ) THEN
774: p_x_interval_rec.tolerance_before := l_old_interval_rec.tolerance_before;
775: END IF;
773: ELSIF ( p_x_interval_rec.tolerance_before IS NULL ) THEN
774: p_x_interval_rec.tolerance_before := l_old_interval_rec.tolerance_before;
775: END IF;
776:
777: IF ( p_x_interval_rec.tolerance_after = FND_API.G_MISS_NUM ) THEN
778: p_x_interval_rec.tolerance_after := null;
779: ELSIF ( p_x_interval_rec.tolerance_after IS NULL ) THEN
780: p_x_interval_rec.tolerance_after := l_old_interval_rec.tolerance_after;
781: END IF;
779: ELSIF ( p_x_interval_rec.tolerance_after IS NULL ) THEN
780: p_x_interval_rec.tolerance_after := l_old_interval_rec.tolerance_after;
781: END IF;
782:
783: IF ( p_x_interval_rec.reset_value = FND_API.G_MISS_NUM ) THEN
784: p_x_interval_rec.reset_value := null;
785: ELSIF ( p_x_interval_rec.reset_value IS NULL ) THEN
786: p_x_interval_rec.reset_value := l_old_interval_rec.reset_value;
787: END IF;
786: p_x_interval_rec.reset_value := l_old_interval_rec.reset_value;
787: END IF;
788:
789:
790: IF ( p_x_interval_rec.start_date = FND_API.G_MISS_DATE ) THEN
791: p_x_interval_rec.start_date := null;
792: ELSIF ( p_x_interval_rec.start_date IS NULL ) THEN
793: p_x_interval_rec.start_date := l_old_interval_rec.start_date;
794: END IF;
792: ELSIF ( p_x_interval_rec.start_date IS NULL ) THEN
793: p_x_interval_rec.start_date := l_old_interval_rec.start_date;
794: END IF;
795:
796: IF ( p_x_interval_rec.stop_date = FND_API.G_MISS_DATE ) THEN
797: p_x_interval_rec.stop_date := null;
798: ELSIF ( p_x_interval_rec.stop_date IS NULL ) THEN
799: p_x_interval_rec.stop_date := l_old_interval_rec.stop_date;
800: END IF;
798: ELSIF ( p_x_interval_rec.stop_date IS NULL ) THEN
799: p_x_interval_rec.stop_date := l_old_interval_rec.stop_date;
800: END IF;
801:
802: IF ( p_x_interval_rec.attribute_category = FND_API.G_MISS_CHAR ) THEN
803: p_x_interval_rec.attribute_category := null;
804: ELSIF ( p_x_interval_rec.attribute_category IS NULL ) THEN
805: p_x_interval_rec.attribute_category := l_old_interval_rec.attribute_category;
806: END IF;
804: ELSIF ( p_x_interval_rec.attribute_category IS NULL ) THEN
805: p_x_interval_rec.attribute_category := l_old_interval_rec.attribute_category;
806: END IF;
807:
808: IF ( p_x_interval_rec.attribute1 = FND_API.G_MISS_CHAR ) THEN
809: p_x_interval_rec.attribute1 := null;
810: ELSIF ( p_x_interval_rec.attribute1 IS NULL ) THEN
811: p_x_interval_rec.attribute1 := l_old_interval_rec.attribute1;
812: END IF;
810: ELSIF ( p_x_interval_rec.attribute1 IS NULL ) THEN
811: p_x_interval_rec.attribute1 := l_old_interval_rec.attribute1;
812: END IF;
813:
814: IF ( p_x_interval_rec.attribute2 = FND_API.G_MISS_CHAR ) THEN
815: p_x_interval_rec.attribute2 := null;
816: ELSIF ( p_x_interval_rec.attribute2 IS NULL ) THEN
817: p_x_interval_rec.attribute2 := l_old_interval_rec.attribute2;
818: END IF;
816: ELSIF ( p_x_interval_rec.attribute2 IS NULL ) THEN
817: p_x_interval_rec.attribute2 := l_old_interval_rec.attribute2;
818: END IF;
819:
820: IF ( p_x_interval_rec.attribute3 = FND_API.G_MISS_CHAR ) THEN
821: p_x_interval_rec.attribute3 := null;
822: ELSIF ( p_x_interval_rec.attribute3 IS NULL ) THEN
823: p_x_interval_rec.attribute3 := l_old_interval_rec.attribute3;
824: END IF;
822: ELSIF ( p_x_interval_rec.attribute3 IS NULL ) THEN
823: p_x_interval_rec.attribute3 := l_old_interval_rec.attribute3;
824: END IF;
825:
826: IF ( p_x_interval_rec.attribute4 = FND_API.G_MISS_CHAR ) THEN
827: p_x_interval_rec.attribute4 := null;
828: ELSIF ( p_x_interval_rec.attribute4 IS NULL ) THEN
829: p_x_interval_rec.attribute4 := l_old_interval_rec.attribute4;
830: END IF;
828: ELSIF ( p_x_interval_rec.attribute4 IS NULL ) THEN
829: p_x_interval_rec.attribute4 := l_old_interval_rec.attribute4;
830: END IF;
831:
832: IF ( p_x_interval_rec.attribute5 = FND_API.G_MISS_CHAR ) THEN
833: p_x_interval_rec.attribute5 := null;
834: ELSIF ( p_x_interval_rec.attribute5 IS NULL ) THEN
835: p_x_interval_rec.attribute5 := l_old_interval_rec.attribute5;
836: END IF;
834: ELSIF ( p_x_interval_rec.attribute5 IS NULL ) THEN
835: p_x_interval_rec.attribute5 := l_old_interval_rec.attribute5;
836: END IF;
837:
838: IF ( p_x_interval_rec.attribute6 = FND_API.G_MISS_CHAR ) THEN
839: p_x_interval_rec.attribute6 := null;
840: ELSIF ( p_x_interval_rec.attribute6 IS NULL ) THEN
841: p_x_interval_rec.attribute6 := l_old_interval_rec.attribute6;
842: END IF;
840: ELSIF ( p_x_interval_rec.attribute6 IS NULL ) THEN
841: p_x_interval_rec.attribute6 := l_old_interval_rec.attribute6;
842: END IF;
843:
844: IF ( p_x_interval_rec.attribute7 = FND_API.G_MISS_CHAR ) THEN
845: p_x_interval_rec.attribute7 := null;
846: ELSIF ( p_x_interval_rec.attribute7 IS NULL ) THEN
847: p_x_interval_rec.attribute7 := l_old_interval_rec.attribute7;
848: END IF;
846: ELSIF ( p_x_interval_rec.attribute7 IS NULL ) THEN
847: p_x_interval_rec.attribute7 := l_old_interval_rec.attribute7;
848: END IF;
849:
850: IF ( p_x_interval_rec.attribute8 = FND_API.G_MISS_CHAR ) THEN
851: p_x_interval_rec.attribute8 := null;
852: ELSIF ( p_x_interval_rec.attribute8 IS NULL ) THEN
853: p_x_interval_rec.attribute8 := l_old_interval_rec.attribute8;
854: END IF;
852: ELSIF ( p_x_interval_rec.attribute8 IS NULL ) THEN
853: p_x_interval_rec.attribute8 := l_old_interval_rec.attribute8;
854: END IF;
855:
856: IF ( p_x_interval_rec.attribute9 = FND_API.G_MISS_CHAR ) THEN
857: p_x_interval_rec.attribute9 := null;
858: ELSIF ( p_x_interval_rec.attribute9 IS NULL ) THEN
859: p_x_interval_rec.attribute9 := l_old_interval_rec.attribute9;
860: END IF;
858: ELSIF ( p_x_interval_rec.attribute9 IS NULL ) THEN
859: p_x_interval_rec.attribute9 := l_old_interval_rec.attribute9;
860: END IF;
861:
862: IF ( p_x_interval_rec.attribute10 = FND_API.G_MISS_CHAR ) THEN
863: p_x_interval_rec.attribute10 := null;
864: ELSIF ( p_x_interval_rec.attribute10 IS NULL ) THEN
865: p_x_interval_rec.attribute10 := l_old_interval_rec.attribute10;
866: END IF;
864: ELSIF ( p_x_interval_rec.attribute10 IS NULL ) THEN
865: p_x_interval_rec.attribute10 := l_old_interval_rec.attribute10;
866: END IF;
867:
868: IF ( p_x_interval_rec.attribute11 = FND_API.G_MISS_CHAR ) THEN
869: p_x_interval_rec.attribute11 := null;
870: ELSIF ( p_x_interval_rec.attribute11 IS NULL ) THEN
871: p_x_interval_rec.attribute11 := l_old_interval_rec.attribute11;
872: END IF;
870: ELSIF ( p_x_interval_rec.attribute11 IS NULL ) THEN
871: p_x_interval_rec.attribute11 := l_old_interval_rec.attribute11;
872: END IF;
873:
874: IF ( p_x_interval_rec.attribute12 = FND_API.G_MISS_CHAR ) THEN
875: p_x_interval_rec.attribute12 := null;
876: ELSIF ( p_x_interval_rec.attribute12 IS NULL ) THEN
877: p_x_interval_rec.attribute12 := l_old_interval_rec.attribute12;
878: END IF;
876: ELSIF ( p_x_interval_rec.attribute12 IS NULL ) THEN
877: p_x_interval_rec.attribute12 := l_old_interval_rec.attribute12;
878: END IF;
879:
880: IF ( p_x_interval_rec.attribute13 = FND_API.G_MISS_CHAR ) THEN
881: p_x_interval_rec.attribute13 := null;
882: ELSIF ( p_x_interval_rec.attribute13 IS NULL ) THEN
883: p_x_interval_rec.attribute13 := l_old_interval_rec.attribute13;
884: END IF;
882: ELSIF ( p_x_interval_rec.attribute13 IS NULL ) THEN
883: p_x_interval_rec.attribute13 := l_old_interval_rec.attribute13;
884: END IF;
885:
886: IF ( p_x_interval_rec.attribute14 = FND_API.G_MISS_CHAR ) THEN
887: p_x_interval_rec.attribute14 := null;
888: ELSIF ( p_x_interval_rec.attribute14 IS NULL ) THEN
889: p_x_interval_rec.attribute14 := l_old_interval_rec.attribute14;
890: END IF;
888: ELSIF ( p_x_interval_rec.attribute14 IS NULL ) THEN
889: p_x_interval_rec.attribute14 := l_old_interval_rec.attribute14;
890: END IF;
891:
892: IF ( p_x_interval_rec.attribute15 = FND_API.G_MISS_CHAR ) THEN
893: p_x_interval_rec.attribute15 := null;
894: ELSIF ( p_x_interval_rec.attribute15 IS NULL ) THEN
895: p_x_interval_rec.attribute15 := l_old_interval_rec.attribute15;
896: END IF;
895: p_x_interval_rec.attribute15 := l_old_interval_rec.attribute15;
896: END IF;
897:
898: --pdoki added for ADAT ER
899: IF ( p_x_interval_rec.duedate_rule_code = FND_API.G_MISS_CHAR ) THEN
900: p_x_interval_rec.duedate_rule_code := null;
901: ELSIF ( p_x_interval_rec.duedate_rule_code IS NULL ) THEN
902: p_x_interval_rec.duedate_rule_code := l_old_interval_rec.duedate_rule_code;
903: END IF;
912: )
913: IS
914:
915: BEGIN
916: x_return_status := FND_API.G_RET_STS_SUCCESS;
917:
918: -- Check if the Counter ID does not contain a null value.
919: IF ( p_interval_rec.dml_operation <> 'D' ) THEN
920: IF ( ( p_interval_rec.dml_operation = 'C' AND
919: IF ( p_interval_rec.dml_operation <> 'D' ) THEN
920: IF ( ( p_interval_rec.dml_operation = 'C' AND
921: p_interval_rec.counter_id IS NULL AND
922: p_interval_rec.counter_name IS NULL ) OR
923: ( p_interval_rec.counter_id = FND_API.G_MISS_NUM AND
924: p_interval_rec.counter_name = FND_API.G_MISS_CHAR ) ) THEN
925: FND_MESSAGE.set_name( 'AHL','AHL_FMP_COUNTER_NULL' );
926: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_interval_rec ) );
927: FND_MSG_PUB.add;
920: IF ( ( p_interval_rec.dml_operation = 'C' AND
921: p_interval_rec.counter_id IS NULL AND
922: p_interval_rec.counter_name IS NULL ) OR
923: ( p_interval_rec.counter_id = FND_API.G_MISS_NUM AND
924: p_interval_rec.counter_name = FND_API.G_MISS_CHAR ) ) THEN
925: FND_MESSAGE.set_name( 'AHL','AHL_FMP_COUNTER_NULL' );
926: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_interval_rec ) );
927: FND_MSG_PUB.add;
928: END IF;
939:
940: -- Check if the earliest due Value does not contain an invalid value.
941: IF ( p_interval_rec.dml_operation <> 'D' ) THEN
942: IF ( p_interval_rec.earliest_due_value IS NOT NULL AND
943: p_interval_rec.earliest_due_value <> FND_API.G_MISS_NUM AND
944: p_interval_rec.earliest_due_value < 0 ) THEN
945: FND_MESSAGE.set_name( 'AHL','AHL_FMP_INVALID_EARL_DUE' );
946: FND_MESSAGE.set_token( 'FIELD', TO_CHAR( p_interval_rec.earliest_due_value ) );
947: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_interval_rec ) );
951:
952: -- Check if the Start Value does not contain an invalid value.
953: IF ( p_interval_rec.dml_operation <> 'D' ) THEN
954: IF ( p_interval_rec.start_value IS NOT NULL AND
955: p_interval_rec.start_value <> FND_API.G_MISS_NUM AND
956: p_interval_rec.start_value < 0 ) THEN
957: FND_MESSAGE.set_name( 'AHL','AHL_FMP_INVALID_START' );
958: FND_MESSAGE.set_token( 'FIELD', TO_CHAR( p_interval_rec.start_value ) );
959: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_interval_rec ) );
963:
964: -- Check if the Stop Value does not contain an invalid value.
965: IF ( p_interval_rec.dml_operation <> 'D' ) THEN
966: IF ( p_interval_rec.stop_value IS NOT NULL AND
967: p_interval_rec.stop_value <> FND_API.G_MISS_NUM AND
968: p_interval_rec.stop_value <= 0 ) THEN
969: FND_MESSAGE.set_name( 'AHL','AHL_FMP_INVALID_STOP' );
970: FND_MESSAGE.set_token( 'FIELD', TO_CHAR( p_interval_rec.stop_value ) );
971: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_interval_rec ) );
975:
976: -- Check if the Tolerance Before does not contain an invalid value.
977: IF ( p_interval_rec.dml_operation <> 'D' ) THEN
978: IF ( p_interval_rec.tolerance_before IS NOT NULL AND
979: p_interval_rec.tolerance_before <> FND_API.G_MISS_NUM AND
980: p_interval_rec.tolerance_before < 0 ) THEN
981: FND_MESSAGE.set_name( 'AHL','AHL_FMP_INVALID_TOLERANCE_BF' );
982: FND_MESSAGE.set_token( 'FIELD', TO_CHAR( p_interval_rec.tolerance_before ) );
983: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_interval_rec ) );
987:
988: -- Check if the Tolerance After does not contain an invalid value.
989: IF ( p_interval_rec.dml_operation <> 'D' ) THEN
990: IF ( p_interval_rec.tolerance_after IS NOT NULL AND
991: p_interval_rec.tolerance_after <> FND_API.G_MISS_NUM AND
992: p_interval_rec.tolerance_after < 0 ) THEN
993: FND_MESSAGE.set_name( 'AHL','AHL_FMP_INVALID_TOLERANCE_AF' );
994: FND_MESSAGE.set_token( 'FIELD', TO_CHAR( p_interval_rec.tolerance_after ) );
995: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_interval_rec ) );
999:
1000: -- Check if the Reset After does not contain an invalid value.
1001: IF ( p_interval_rec.dml_operation <> 'D' ) THEN
1002: IF ( p_interval_rec.reset_value IS NOT NULL AND
1003: p_interval_rec.reset_value <> FND_API.G_MISS_NUM AND
1004: p_interval_rec.reset_value < 0 ) THEN
1005: FND_MESSAGE.set_name( 'AHL','AHL_FMP_INVALID_RESET_VALUE' );
1006: FND_MESSAGE.set_token( 'FIELD', TO_CHAR( p_interval_rec.reset_value ) );
1007: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_interval_rec ) );
1011:
1012: -- Check if the mandatory Interval ID column contains a null value.
1013: IF ( p_interval_rec.dml_operation <> 'C' ) THEN
1014: IF ( p_interval_rec.mr_interval_id IS NULL OR
1015: p_interval_rec.mr_interval_id = FND_API.G_MISS_NUM ) THEN
1016: FND_MESSAGE.set_name( 'AHL','AHL_FMP_MR_INTERVAL_ID_NULL' );
1017: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_interval_rec ) );
1018: FND_MSG_PUB.add;
1019: END IF;
1021:
1022: -- Check if the mandatory Object Version Number column contains a null value.
1023: IF ( p_interval_rec.dml_operation <> 'C' ) THEN
1024: IF ( p_interval_rec.object_version_number IS NULL OR
1025: p_interval_rec.object_version_number = FND_API.G_MISS_NUM ) THEN
1026: FND_MESSAGE.set_name( 'AHL','AHL_FMP_INT_OBJ_VERSION_NULL' );
1027: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_interval_rec ) );
1028: FND_MSG_PUB.add;
1029: END IF;
1046: l_msg_data VARCHAR2(2000);
1047: l_initial_reading NUMBER;
1048:
1049: BEGIN
1050: x_return_status := FND_API.G_RET_STS_SUCCESS;
1051:
1052: -- Check if the appropriate attributes are passed for PM Programs
1053: IF ( p_mr_type_code = 'PROGRAM' AND
1054: ( p_interval_rec.tolerance_before IS NOT NULL OR
1066: IF ( ( p_mr_type_code IS NULL OR
1067: p_mr_type_code <> 'PROGRAM' ) AND
1068: ( p_interval_rec.dml_operation = 'C' AND
1069: p_interval_rec.interval_value IS NULL ) OR
1070: ( p_interval_rec.interval_value = FND_API.G_MISS_NUM ) ) THEN
1071: FND_MESSAGE.set_name( 'AHL','AHL_FMP_INTERVAL_NULL' );
1072: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_interval_rec ) );
1073: FND_MSG_PUB.add;
1074: END IF;
1300: GROUP BY counter_name
1301: HAVING count(*) > 1;
1302:
1303: BEGIN
1304: x_return_status := FND_API.G_RET_STS_SUCCESS;
1305:
1306: -- Check whether any duplicate Interval record (based on Counter) exist
1307: -- For Preventive Maintenance Programs
1308:
1323: FND_MSG_PUB.add;
1324: END LOOP;
1325:
1326: IF ( get_pm_pgm_dup_rec%ROWCOUNT > 0 ) THEN
1327: x_return_status := FND_API.G_RET_STS_ERROR;
1328: END IF;
1329:
1330: CLOSE get_pm_pgm_dup_rec;
1331: RETURN;
1352: END LOOP;
1353:
1354: IF ( get_dup_rec%ROWCOUNT > 0 ) THEN
1355: CLOSE get_dup_rec;
1356: x_return_status := FND_API.G_RET_STS_ERROR;
1357: RETURN;
1358: END IF;
1359:
1360: CLOSE get_dup_rec;
1383: FND_MESSAGE.set_name( 'AHL', 'AHL_FMP_OVERLAP_DATE_RANGE' );
1384: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( l_interval_rec ) );
1385: FND_MSG_PUB.add;
1386: CLOSE get_recs_for_date_range;
1387: x_return_status := FND_API.G_RET_STS_ERROR;
1388: RETURN;
1389: END IF;
1390:
1391: l_prev_counter_id := l_interval_rec.counter_id;
1417: FND_MESSAGE.set_name( 'AHL', 'AHL_FMP_OVERLAP_VALUE_RANGE' );
1418: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( l_interval_rec ) );
1419: FND_MSG_PUB.add;
1420: CLOSE get_recs_for_value_range;
1421: x_return_status := FND_API.G_RET_STS_ERROR;
1422: RETURN;
1423: END IF;
1424:
1425: IF ( l_prev_counter_id IS NOT NULL AND
1429: FND_MESSAGE.set_name( 'AHL', 'AHL_FMP_OVERLAP_VALUE_RANGE' );
1430: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( l_interval_rec ) );
1431: FND_MSG_PUB.add;
1432: CLOSE get_recs_for_value_range;
1433: x_return_status := FND_API.G_RET_STS_ERROR;
1434: RETURN;
1435: END IF;
1436:
1437: l_prev_counter_id := l_interval_rec.counter_id;
1454: END LOOP;
1455:
1456: IF ( check_unique_reset_value%ROWCOUNT > 0 ) THEN
1457: CLOSE check_unique_reset_value;
1458: x_return_status := FND_API.G_RET_STS_ERROR;
1459: RETURN;
1460: END IF;
1461:
1462: CLOSE check_unique_reset_value;
1519: l_old_rec.program_duration_uom_code;
1520:
1521: CLOSE get_old_rec;
1522:
1523: IF ( p_x_threshold_rec.threshold_date = FND_API.G_MISS_DATE ) THEN
1524: p_x_threshold_rec.threshold_date := null;
1525: ELSIF ( p_x_threshold_rec.threshold_date IS NULL ) THEN
1526: p_x_threshold_rec.threshold_date := l_old_rec.threshold_date;
1527: END IF;
1525: ELSIF ( p_x_threshold_rec.threshold_date IS NULL ) THEN
1526: p_x_threshold_rec.threshold_date := l_old_rec.threshold_date;
1527: END IF;
1528:
1529: IF ( p_x_threshold_rec.program_duration = FND_API.G_MISS_NUM ) THEN
1530: p_x_threshold_rec.program_duration := null;
1531: ELSIF ( p_x_threshold_rec.program_duration IS NULL ) THEN
1532: p_x_threshold_rec.program_duration := l_old_rec.program_duration;
1533: END IF;
1531: ELSIF ( p_x_threshold_rec.program_duration IS NULL ) THEN
1532: p_x_threshold_rec.program_duration := l_old_rec.program_duration;
1533: END IF;
1534:
1535: IF ( p_x_threshold_rec.program_duration_uom_code = FND_API.G_MISS_CHAR ) THEN
1536: p_x_threshold_rec.program_duration_uom_code := null;
1537: ELSIF ( p_x_threshold_rec.program_duration_uom_code IS NULL ) THEN
1538: p_x_threshold_rec.program_duration_uom_code := l_old_rec.program_duration_uom_code;
1539: END IF;
1559: l_mr_status_code VARCHAR2(30);
1560: l_pm_install_flag VARCHAR2(1);
1561:
1562: BEGIN
1563: x_return_status := FND_API.G_RET_STS_SUCCESS;
1564:
1565: -- Default unchanged value of Threshold attributes
1566: default_threshold_attributes
1567: (
1572: IF ( p_x_threshold_rec.threshold_date IS NOT NULL AND
1573: p_repetitive_flag = 'Y' ) THEN
1574: FND_MESSAGE.set_name( 'AHL','AHL_FMP_INVALID_THRESHOLD' );
1575: FND_MSG_PUB.add;
1576: x_return_status := FND_API.G_RET_STS_ERROR;
1577: RETURN;
1578: END IF;
1579:
1580: -- Check if the Threshold date is not set for PM Programs
1582: p_appln_code= 'PM' AND
1583: p_mr_type_code = 'PROGRAM' ) THEN
1584: FND_MESSAGE.set_name( 'AHL','AHL_FMP_PM_PGM_THRESHOLD' );
1585: FND_MSG_PUB.add;
1586: x_return_status := FND_API.G_RET_STS_ERROR;
1587: RETURN;
1588: END IF;
1589:
1590: -- Check if the Program Duration is not specified for PM Activities.
1592: p_appln_code = 'PM' AND
1593: p_mr_type_code = 'ACTIVITY' ) THEN
1594: FND_MESSAGE.set_name( 'AHL','AHL_FMP_PM_ACT_PGM_DURATION' );
1595: FND_MSG_PUB.add;
1596: x_return_status := FND_API.G_RET_STS_ERROR;
1597: RETURN;
1598: END IF;
1599:
1600: -- Check if the Program Duration is a positive number.
1601: IF ( p_x_threshold_rec.program_duration IS NOT NULL AND
1602: p_x_threshold_rec.program_duration <= 0 ) THEN
1603: FND_MESSAGE.set_name( 'AHL','AHL_FMP_PM_PGM_DUR_INVALID' );
1604: FND_MSG_PUB.add;
1605: x_return_status := FND_API.G_RET_STS_ERROR;
1606: RETURN;
1607: END IF;
1608:
1609: -- Check if the Program Duration is specified then the UOM should be specified.
1610: IF ( p_x_threshold_rec.program_duration IS NOT NULL AND
1611: p_x_threshold_rec.program_duration_uom_code IS NULL ) THEN
1612: FND_MESSAGE.set_name( 'AHL','AHL_FMP_PM_PGM_DUR_UOM_NULL' );
1613: FND_MSG_PUB.add;
1614: x_return_status := FND_API.G_RET_STS_ERROR;
1615: RETURN;
1616: END IF;
1617:
1618: -- Check if the Program Duration UOM is a valid value.
1626: p_lookup_meaning => NULL,
1627: p_x_lookup_code => p_x_threshold_rec.program_duration_uom_code
1628: );
1629:
1630: IF ( NVL( l_return_status, 'X' ) <> FND_API.G_RET_STS_SUCCESS ) THEN
1631: FND_MESSAGE.set_name( 'AHL','AHL_FMP_PM_INV_PGM_DUR_UOM' );
1632: FND_MSG_PUB.add;
1633: x_return_status := FND_API.G_RET_STS_ERROR;
1634: RETURN;
1629:
1630: IF ( NVL( l_return_status, 'X' ) <> FND_API.G_RET_STS_SUCCESS ) THEN
1631: FND_MESSAGE.set_name( 'AHL','AHL_FMP_PM_INV_PGM_DUR_UOM' );
1632: FND_MSG_PUB.add;
1633: x_return_status := FND_API.G_RET_STS_ERROR;
1634: RETURN;
1635: END IF;
1636: END IF;
1637:
1640: IF G_APPLN_USAGE IS NULL
1641: THEN
1642: FND_MESSAGE.SET_NAME('AHL','AHL_COM_APP_PRFL_UNDEF');
1643: FND_MSG_PUB.ADD;
1644: x_return_status := FND_API.G_RET_STS_ERROR;
1645: IF G_DEBUG = 'Y' THEN
1646: AHL_DEBUG_PUB.debug('APPLN USAGE CODE IS NULL IN VALIDATE_API_INPUTS' );
1647: END IF;
1648: END IF;
1691: p_mr_header_id => p_mr_header_id,
1692: p_effectivity_id => p_x_threshold_rec.MR_EFFECTIVITY_ID,
1693: p_eff_obj_version => p_x_threshold_rec.OBJECT_VERSION_NUMBER
1694: );
1695: IF ( NVL( l_return_status, 'X' ) <> FND_API.G_RET_STS_SUCCESS ) THEN
1696: FND_MESSAGE.set_name( 'AHL', 'AHL_FMP_PROGRAM_DURATION' );
1697: FND_MSG_PUB.add;
1698: x_return_status := FND_API.G_RET_STS_ERROR;
1699: RETURN;
1694: );
1695: IF ( NVL( l_return_status, 'X' ) <> FND_API.G_RET_STS_SUCCESS ) THEN
1696: FND_MESSAGE.set_name( 'AHL', 'AHL_FMP_PROGRAM_DURATION' );
1697: FND_MSG_PUB.add;
1698: x_return_status := FND_API.G_RET_STS_ERROR;
1699: RETURN;
1700: END IF;
1701: END IF;
1702:
1710: x_msg_data => l_msg_data,
1711: p_effectivity_id => p_x_threshold_rec.MR_EFFECTIVITY_ID,
1712: p_eff_obj_version => p_x_threshold_rec.OBJECT_VERSION_NUMBER
1713: );
1714: IF ( NVL( l_return_status, 'X' ) <> FND_API.G_RET_STS_SUCCESS ) THEN
1715: FND_MESSAGE.set_name( 'AHL', 'AHL_FMP_PROGRAM_DURATION' );
1716: FND_MSG_PUB.add;
1717: x_return_status := FND_API.G_RET_STS_ERROR;
1718: RETURN;
1713: );
1714: IF ( NVL( l_return_status, 'X' ) <> FND_API.G_RET_STS_SUCCESS ) THEN
1715: FND_MESSAGE.set_name( 'AHL', 'AHL_FMP_PROGRAM_DURATION' );
1716: FND_MSG_PUB.add;
1717: x_return_status := FND_API.G_RET_STS_ERROR;
1718: RETURN;
1719: END IF;
1720: END IF;
1721:
1735: -- If the record does not exist, then, abort API.
1736: IF ( SQL%ROWCOUNT = 0 ) THEN
1737: FND_MESSAGE.set_name('AHL','AHL_FMP_EFF_RECORD_CHANGED');
1738: FND_MSG_PUB.add;
1739: x_return_status := FND_API.G_RET_STS_ERROR;
1740: RETURN;
1741: END IF;
1742:
1743: END IF;
1746:
1747: PROCEDURE process_interval
1748: (
1749: p_api_version IN NUMBER := '1.0',
1750: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
1751: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1752: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1753: p_default IN VARCHAR2 := FND_API.G_FALSE,
1754: p_module_type IN VARCHAR2 := NULL,
1747: PROCEDURE process_interval
1748: (
1749: p_api_version IN NUMBER := '1.0',
1750: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
1751: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1752: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1753: p_default IN VARCHAR2 := FND_API.G_FALSE,
1754: p_module_type IN VARCHAR2 := NULL,
1755: x_return_status OUT NOCOPY VARCHAR2,
1748: (
1749: p_api_version IN NUMBER := '1.0',
1750: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
1751: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1752: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1753: p_default IN VARCHAR2 := FND_API.G_FALSE,
1754: p_module_type IN VARCHAR2 := NULL,
1755: x_return_status OUT NOCOPY VARCHAR2,
1756: x_msg_count OUT NOCOPY NUMBER,
1749: p_api_version IN NUMBER := '1.0',
1750: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
1751: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1752: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1753: p_default IN VARCHAR2 := FND_API.G_FALSE,
1754: p_module_type IN VARCHAR2 := NULL,
1755: x_return_status OUT NOCOPY VARCHAR2,
1756: x_msg_count OUT NOCOPY NUMBER,
1757: x_msg_data OUT NOCOPY VARCHAR2,
1769: l_fractional_trunc_flag BOOLEAN := FALSE;
1770:
1771: BEGIN
1772: -- Initialize API return status to success
1773: x_return_status := FND_API.G_RET_STS_SUCCESS;
1774:
1775: -- Standard Start of API savepoint
1776: SAVEPOINT process_interval_PVT;
1777:
1775: -- Standard Start of API savepoint
1776: SAVEPOINT process_interval_PVT;
1777:
1778: -- Standard call to check for call compatibility.
1779: IF NOT FND_API.compatible_api_call
1780: (
1781: l_api_version,
1782: p_api_version,
1783: G_API_NAME,
1783: G_API_NAME,
1784: G_PKG_NAME
1785: )
1786: THEN
1787: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1788: END IF;
1789:
1790: -- Initialize message list if p_init_msg_list is set to TRUE.
1791: IF FND_API.to_boolean( p_init_msg_list ) THEN
1787: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1788: END IF;
1789:
1790: -- Initialize message list if p_init_msg_list is set to TRUE.
1791: IF FND_API.to_boolean( p_init_msg_list ) THEN
1792: FND_MSG_PUB.initialize;
1793: END IF;
1794:
1795: -- Enable Debug (optional)
1817: p_super_user
1818: );
1819:
1820: -- If any severe error occurs, then, abort API.
1821: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1822: RAISE FND_API.G_EXC_ERROR;
1823: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1824: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1825: END IF;
1818: );
1819:
1820: -- If any severe error occurs, then, abort API.
1821: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1822: RAISE FND_API.G_EXC_ERROR;
1823: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1824: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1825: END IF;
1826:
1819:
1820: -- If any severe error occurs, then, abort API.
1821: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1822: RAISE FND_API.G_EXC_ERROR;
1823: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1824: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1825: END IF;
1826:
1827: -- Get the Details for the given MR
1820: -- If any severe error occurs, then, abort API.
1821: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1822: RAISE FND_API.G_EXC_ERROR;
1823: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1824: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1825: END IF;
1826:
1827: -- Get the Details for the given MR
1828: get_mr_header_details
1845:
1846: );
1847:
1848: -- If any severe error occurs, then, abort API.
1849: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1850: RAISE FND_API.G_EXC_ERROR;
1851: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1852: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1853: END IF;
1846: );
1847:
1848: -- If any severe error occurs, then, abort API.
1849: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1850: RAISE FND_API.G_EXC_ERROR;
1851: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1852: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1853: END IF;
1854:
1847:
1848: -- If any severe error occurs, then, abort API.
1849: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1850: RAISE FND_API.G_EXC_ERROR;
1851: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1852: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1853: END IF;
1854:
1855: -- If the module type is JSP, then default values for ID columns of LOV attributes
1848: -- If any severe error occurs, then, abort API.
1849: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1850: RAISE FND_API.G_EXC_ERROR;
1851: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1852: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1853: END IF;
1854:
1855: -- If the module type is JSP, then default values for ID columns of LOV attributes
1856: IF ( p_module_type = 'JSP' ) THEN
1864: END LOOP;
1865: END IF;
1866:
1867: -- Convert Values into Ids.
1868: IF ( p_validation_level = FND_API.G_VALID_LEVEL_FULL ) THEN
1869: FOR i IN 1..p_x_interval_tbl.count LOOP
1870: IF ( p_x_interval_tbl(i).dml_operation <> 'D' ) THEN
1871: convert_values_to_ids
1872: (
1875: l_return_status -- OUT
1876: );
1877:
1878: -- If any severe error occurs, then, abort API.
1879: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1880: RAISE FND_API.G_EXC_ERROR;
1881: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1882: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1883: END IF;
1876: );
1877:
1878: -- If any severe error occurs, then, abort API.
1879: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1880: RAISE FND_API.G_EXC_ERROR;
1881: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1882: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1883: END IF;
1884: END IF;
1877:
1878: -- If any severe error occurs, then, abort API.
1879: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1880: RAISE FND_API.G_EXC_ERROR;
1881: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1882: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1883: END IF;
1884: END IF;
1885: END LOOP;
1878: -- If any severe error occurs, then, abort API.
1879: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1880: RAISE FND_API.G_EXC_ERROR;
1881: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1882: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1883: END IF;
1884: END IF;
1885: END LOOP;
1886: END IF;
1904: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || G_API_NAME || ' : after default_attributes' );
1905: END IF;
1906:
1907: -- Validate all attributes (Item level validation)
1908: IF ( p_validation_level = FND_API.G_VALID_LEVEL_FULL ) THEN
1909: FOR i IN 1..p_x_interval_tbl.count LOOP
1910: validate_attributes
1911: (
1912: p_x_interval_tbl(i), -- IN
1913: l_return_status -- OUT
1914: );
1915:
1916: -- If any severe error occurs, then, abort API.
1917: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1918: RAISE FND_API.G_EXC_ERROR;
1919: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1920: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1921: END IF;
1914: );
1915:
1916: -- If any severe error occurs, then, abort API.
1917: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1918: RAISE FND_API.G_EXC_ERROR;
1919: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1920: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1921: END IF;
1922: END LOOP;
1915:
1916: -- If any severe error occurs, then, abort API.
1917: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1918: RAISE FND_API.G_EXC_ERROR;
1919: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1920: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1921: END IF;
1922: END LOOP;
1923: END IF;
1916: -- If any severe error occurs, then, abort API.
1917: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1918: RAISE FND_API.G_EXC_ERROR;
1919: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1920: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1921: END IF;
1922: END LOOP;
1923: END IF;
1924:
1945: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || G_API_NAME || ' : after default_unchanged_attributes / default_missing_attributes' );
1946: END IF;
1947:
1948: -- Perform cross attribute validation and missing attribute checks (Record level validation)
1949: IF ( p_validation_level = FND_API.G_VALID_LEVEL_FULL ) THEN
1950: FOR i IN 1..p_x_interval_tbl.count LOOP
1951: IF ( p_x_interval_tbl(i).dml_operation <> 'D' ) THEN
1952: validate_record
1953: (
1958: l_return_status -- OUT
1959: );
1960:
1961: -- If any severe error occurs, then, abort API.
1962: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1963: RAISE FND_API.G_EXC_ERROR;
1964: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1965: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1966: END IF;
1959: );
1960:
1961: -- If any severe error occurs, then, abort API.
1962: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1963: RAISE FND_API.G_EXC_ERROR;
1964: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1965: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1966: END IF;
1967: END IF;
1960:
1961: -- If any severe error occurs, then, abort API.
1962: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1963: RAISE FND_API.G_EXC_ERROR;
1964: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1965: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1966: END IF;
1967: END IF;
1968: END LOOP;
1961: -- If any severe error occurs, then, abort API.
1962: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1963: RAISE FND_API.G_EXC_ERROR;
1964: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1965: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1966: END IF;
1967: END IF;
1968: END LOOP;
1969: END IF;
1983: p_lookup_type => 'AHL_DUEDATE_RULE',
1984: p_lookup_meaning => p_x_interval_tbl(i).duedate_rule_meaning,
1985: p_x_lookup_code => p_x_interval_tbl(i).duedate_rule_code
1986: );
1987: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1988: RAISE FND_API.G_EXC_ERROR;
1989: END IF;
1990: END IF;
1991: ELSE
1984: p_lookup_meaning => p_x_interval_tbl(i).duedate_rule_meaning,
1985: p_x_lookup_code => p_x_interval_tbl(i).duedate_rule_code
1986: );
1987: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1988: RAISE FND_API.G_EXC_ERROR;
1989: END IF;
1990: END IF;
1991: ELSE
1992: p_x_interval_tbl(i).duedate_rule_code := NULL;
1998: -- Get all the error messages from the previous steps (if any) and raise the appropriate Exception
1999: l_msg_count := FND_MSG_PUB.count_msg;
2000: IF l_msg_count > 0 THEN
2001: x_msg_count := l_msg_count;
2002: RAISE FND_API.G_EXC_ERROR;
2003: END IF;
2004:
2005: -- Perform the DML statement directly.
2006: FOR i IN 1..p_x_interval_tbl.count LOOP
2128: IF ( SQL%ROWCOUNT = 0 ) THEN
2129: FND_MESSAGE.set_name('AHL','AHL_FMP_RECORD_CHANGED');
2130: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_x_interval_tbl(i) ) );
2131: FND_MSG_PUB.add;
2132: RAISE FND_API.G_EXC_ERROR;
2133: END IF;
2134:
2135: -- Set OUT values
2136: p_x_interval_tbl(i).object_version_number := p_x_interval_tbl(i).object_version_number + 1;
2146: IF ( SQL%ROWCOUNT = 0 ) THEN
2147: FND_MESSAGE.set_name('AHL','AHL_FMP_RECORD_CHANGED');
2148: FND_MESSAGE.set_token( 'RECORD', TO_CHAR( i ) );
2149: FND_MSG_PUB.add;
2150: RAISE FND_API.G_EXC_ERROR;
2151: END IF;
2152:
2153: END IF;
2154: END LOOP;
2167: l_return_status -- OUT
2168: );
2169:
2170: -- If any severe error occurs, then, abort API.
2171: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2172: RAISE FND_API.G_EXC_ERROR;
2173: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2174: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2175: END IF;
2168: );
2169:
2170: -- If any severe error occurs, then, abort API.
2171: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2172: RAISE FND_API.G_EXC_ERROR;
2173: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2174: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2175: END IF;
2176:
2169:
2170: -- If any severe error occurs, then, abort API.
2171: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2172: RAISE FND_API.G_EXC_ERROR;
2173: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2174: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2175: END IF;
2176:
2177: IF G_DEBUG = 'Y' THEN
2170: -- If any severe error occurs, then, abort API.
2171: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2172: RAISE FND_API.G_EXC_ERROR;
2173: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2174: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2175: END IF;
2176:
2177: IF G_DEBUG = 'Y' THEN
2178: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || G_API_NAME || ' : after validate_records' );
2178: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || G_API_NAME || ' : after validate_records' );
2179: END IF;
2180:
2181: -- Perform the Commit (if requested)
2182: IF FND_API.to_boolean( p_commit ) THEN
2183: COMMIT WORK;
2184: END IF;
2185:
2186: -- Add informational message if any truncation of interval values occured.
2192:
2193: -- Count and Get messages (optional)
2194: FND_MSG_PUB.count_and_get
2195: (
2196: p_encoded => FND_API.G_FALSE,
2197: p_count => x_msg_count,
2198: p_data => x_msg_data
2199: );
2200:
2204: END IF;
2205:
2206: EXCEPTION
2207:
2208: WHEN FND_API.G_EXC_ERROR THEN
2209: ROLLBACK TO process_interval_PVT;
2210: x_return_status := FND_API.G_RET_STS_ERROR ;
2211: FND_MSG_PUB.count_and_get
2212: (
2206: EXCEPTION
2207:
2208: WHEN FND_API.G_EXC_ERROR THEN
2209: ROLLBACK TO process_interval_PVT;
2210: x_return_status := FND_API.G_RET_STS_ERROR ;
2211: FND_MSG_PUB.count_and_get
2212: (
2213: p_encoded => FND_API.G_FALSE,
2214: p_count => x_msg_count,
2209: ROLLBACK TO process_interval_PVT;
2210: x_return_status := FND_API.G_RET_STS_ERROR ;
2211: FND_MSG_PUB.count_and_get
2212: (
2213: p_encoded => FND_API.G_FALSE,
2214: p_count => x_msg_count,
2215: p_data => x_msg_data
2216: );
2217:
2219: IF ( G_DEBUG = 'Y' ) THEN
2220: AHL_DEBUG_PUB.disable_debug;
2221: END IF;
2222:
2223: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2224: ROLLBACK TO process_interval_PVT;
2225: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2226: FND_MSG_PUB.count_and_get
2227: (
2221: END IF;
2222:
2223: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2224: ROLLBACK TO process_interval_PVT;
2225: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2226: FND_MSG_PUB.count_and_get
2227: (
2228: p_encoded => FND_API.G_FALSE,
2229: p_count => x_msg_count,
2224: ROLLBACK TO process_interval_PVT;
2225: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2226: FND_MSG_PUB.count_and_get
2227: (
2228: p_encoded => FND_API.G_FALSE,
2229: p_count => x_msg_count,
2230: p_data => x_msg_data
2231: );
2232:
2236: END IF;
2237:
2238: WHEN OTHERS THEN
2239: ROLLBACK TO process_interval_PVT;
2240: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2241: IF FND_MSG_PUB.check_msg_level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
2242: THEN
2243: FND_MSG_PUB.add_exc_msg
2244: (
2248: );
2249: END IF;
2250: FND_MSG_PUB.count_and_get
2251: (
2252: p_encoded => FND_API.G_FALSE,
2253: p_count => x_msg_count,
2254: p_data => x_msg_data
2255: );
2256: