70: x_return_status := FND_API.G_RET_STS_SUCCESS;
71:
72: -- Check if a valid value is passed in p_route_id
73: IF ( p_route_id = FND_API.G_MISS_NUM OR p_route_id IS NULL ) THEN
74: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_ROUTE_ID_NULL' );
75: FND_MSG_PUB.add;
76: x_return_status := FND_API.G_RET_STS_ERROR;
77: RETURN;
78: END IF;
85: l_return_status
86: );
87:
88: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
89: FND_MESSAGE.SET_NAME('AHL',l_msg_data);
90: FND_MSG_PUB.ADD;
91: x_return_status := l_return_status;
92: RETURN;
93: END IF;
93: END IF;
94:
95: -- Check if at least one record is passed in p_route_operation_tbl
96: IF ( p_route_operation_tbl.count < 1 ) THEN
97: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_INVALID_PROCEDURE_CALL' );
98: FND_MESSAGE.set_token( 'PROCEDURE', G_PKG_NAME || '.' || G_API_NAME );
99: FND_MSG_PUB.add;
100: x_return_status := FND_API.G_RET_STS_ERROR;
101: RETURN;
94:
95: -- Check if at least one record is passed in p_route_operation_tbl
96: IF ( p_route_operation_tbl.count < 1 ) THEN
97: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_INVALID_PROCEDURE_CALL' );
98: FND_MESSAGE.set_token( 'PROCEDURE', G_PKG_NAME || '.' || G_API_NAME );
99: FND_MSG_PUB.add;
100: x_return_status := FND_API.G_RET_STS_ERROR;
101: RETURN;
102: END IF;
105: FOR i IN 1..p_route_operation_tbl.count LOOP
106: IF ( p_route_operation_tbl(i).dml_operation <> 'C' AND
107: p_route_operation_tbl(i).dml_operation <> 'U' AND
108: p_route_operation_tbl(i).dml_operation <> 'D' ) THEN
109: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_INVALID_DML' );
110: FND_MESSAGE.set_token( 'FIELD', p_route_operation_tbl(i).dml_operation );
111: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_route_operation_tbl(i) ) );
112: FND_MSG_PUB.add;
113: x_return_status := FND_API.G_RET_STS_ERROR;
106: IF ( p_route_operation_tbl(i).dml_operation <> 'C' AND
107: p_route_operation_tbl(i).dml_operation <> 'U' AND
108: p_route_operation_tbl(i).dml_operation <> 'D' ) THEN
109: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_INVALID_DML' );
110: FND_MESSAGE.set_token( 'FIELD', p_route_operation_tbl(i).dml_operation );
111: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_route_operation_tbl(i) ) );
112: FND_MSG_PUB.add;
113: x_return_status := FND_API.G_RET_STS_ERROR;
114: RETURN;
107: p_route_operation_tbl(i).dml_operation <> 'U' AND
108: p_route_operation_tbl(i).dml_operation <> 'D' ) THEN
109: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_INVALID_DML' );
110: FND_MESSAGE.set_token( 'FIELD', p_route_operation_tbl(i).dml_operation );
111: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_route_operation_tbl(i) ) );
112: FND_MSG_PUB.add;
113: x_return_status := FND_API.G_RET_STS_ERROR;
114: RETURN;
115: END IF;
162: );
163:
164: IF ( NVL( l_return_status, 'X' ) <> FND_API.G_RET_STS_SUCCESS ) THEN
165: IF ( l_msg_data = 'AHL_RM_INVALID_OPERATION' ) THEN
166: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_RTO_INVALID_OPERATION' );
167: ELSE
168: FND_MESSAGE.set_name( 'AHL', l_msg_data );
169: END IF;
170:
164: IF ( NVL( l_return_status, 'X' ) <> FND_API.G_RET_STS_SUCCESS ) THEN
165: IF ( l_msg_data = 'AHL_RM_INVALID_OPERATION' ) THEN
166: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_RTO_INVALID_OPERATION' );
167: ELSE
168: FND_MESSAGE.set_name( 'AHL', l_msg_data );
169: END IF;
170:
171: IF ( p_x_route_operation_rec.concatenated_segments IS NULL OR
172: p_x_route_operation_rec.concatenated_segments = FND_API.G_MISS_CHAR ) THEN
169: END IF;
170:
171: IF ( p_x_route_operation_rec.concatenated_segments IS NULL OR
172: p_x_route_operation_rec.concatenated_segments = FND_API.G_MISS_CHAR ) THEN
173: FND_MESSAGE.set_token( 'FIELD', TO_CHAR( p_x_route_operation_rec.operation_id ) );
174: ELSE
175: FND_MESSAGE.set_token( 'FIELD', p_x_route_operation_rec.concatenated_segments );
176: END IF;
177:
171: IF ( p_x_route_operation_rec.concatenated_segments IS NULL OR
172: p_x_route_operation_rec.concatenated_segments = FND_API.G_MISS_CHAR ) THEN
173: FND_MESSAGE.set_token( 'FIELD', TO_CHAR( p_x_route_operation_rec.operation_id ) );
174: ELSE
175: FND_MESSAGE.set_token( 'FIELD', p_x_route_operation_rec.concatenated_segments );
176: END IF;
177:
178: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_x_route_operation_rec ) );
179: FND_MSG_PUB.add;
174: ELSE
175: FND_MESSAGE.set_token( 'FIELD', p_x_route_operation_rec.concatenated_segments );
176: END IF;
177:
178: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_x_route_operation_rec ) );
179: FND_MSG_PUB.add;
180: END IF;
181:
182: END IF;
338: l_old_route_operation_rec.attribute14,
339: l_old_route_operation_rec.attribute15;
340:
341: IF get_old_rec%NOTFOUND THEN
342: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_INVALID_RT_OPER_REC' );
343: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_x_route_operation_rec ) );
344: FND_MSG_PUB.add;
345: CLOSE get_old_rec;
346: RAISE FND_API.G_EXC_ERROR;
339: l_old_route_operation_rec.attribute15;
340:
341: IF get_old_rec%NOTFOUND THEN
342: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_INVALID_RT_OPER_REC' );
343: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_x_route_operation_rec ) );
344: FND_MSG_PUB.add;
345: CLOSE get_old_rec;
346: RAISE FND_API.G_EXC_ERROR;
347: END IF;
495: p_route_operation_rec.concatenated_segments IS NULL ) OR
496: ( p_route_operation_rec.dml_operation <> 'D' AND
497: p_route_operation_rec.operation_id = FND_API.G_MISS_NUM AND
498: p_route_operation_rec.concatenated_segments = FND_API.G_MISS_CHAR ) ) THEN
499: FND_MESSAGE.set_name( 'AHL','AHL_RM_OPERATION_NULL' );
500: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_route_operation_rec ) );
501: FND_MSG_PUB.add;
502: --x_return_status := FND_API.G_RET_STS_ERROR;
503: END IF;
496: ( p_route_operation_rec.dml_operation <> 'D' AND
497: p_route_operation_rec.operation_id = FND_API.G_MISS_NUM AND
498: p_route_operation_rec.concatenated_segments = FND_API.G_MISS_CHAR ) ) THEN
499: FND_MESSAGE.set_name( 'AHL','AHL_RM_OPERATION_NULL' );
500: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_route_operation_rec ) );
501: FND_MSG_PUB.add;
502: --x_return_status := FND_API.G_RET_STS_ERROR;
503: END IF;
504:
507: IF ( ( p_route_operation_rec.dml_operation = 'C' AND
508: p_route_operation_rec.step IS NULL ) OR
509: ( p_route_operation_rec.dml_operation <> 'D' AND
510: p_route_operation_rec.step = FND_API.G_MISS_NUM ) ) THEN
511: FND_MESSAGE.set_name( 'AHL','AHL_RM_STEP_NULL' );
512: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_route_operation_rec ) );
513: FND_MSG_PUB.add;
514: --x_return_status := FND_API.G_RET_STS_ERROR;
515: ELSIF ( p_route_operation_rec.dml_operation <> 'D' AND
508: p_route_operation_rec.step IS NULL ) OR
509: ( p_route_operation_rec.dml_operation <> 'D' AND
510: p_route_operation_rec.step = FND_API.G_MISS_NUM ) ) THEN
511: FND_MESSAGE.set_name( 'AHL','AHL_RM_STEP_NULL' );
512: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_route_operation_rec ) );
513: FND_MSG_PUB.add;
514: --x_return_status := FND_API.G_RET_STS_ERROR;
515: ELSIF ( p_route_operation_rec.dml_operation <> 'D' AND
516: p_route_operation_rec.step <= 0 ) THEN
513: FND_MSG_PUB.add;
514: --x_return_status := FND_API.G_RET_STS_ERROR;
515: ELSIF ( p_route_operation_rec.dml_operation <> 'D' AND
516: p_route_operation_rec.step <= 0 ) THEN
517: FND_MESSAGE.set_name( 'AHL','AHL_RM_STEP_LESS_ZERO' );
518: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_route_operation_rec ) );
519: FND_MSG_PUB.add;
520: --x_return_status := FND_API.G_RET_STS_ERROR;
521: END IF;
514: --x_return_status := FND_API.G_RET_STS_ERROR;
515: ELSIF ( p_route_operation_rec.dml_operation <> 'D' AND
516: p_route_operation_rec.step <= 0 ) THEN
517: FND_MESSAGE.set_name( 'AHL','AHL_RM_STEP_LESS_ZERO' );
518: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_route_operation_rec ) );
519: FND_MSG_PUB.add;
520: --x_return_status := FND_API.G_RET_STS_ERROR;
521: END IF;
522:
527: INTO l_step
528: FROM DUAL;
529: EXCEPTION
530: WHEN INVALID_NUMBER THEN
531: FND_MESSAGE.set_name( 'AHL','AHL_RM_STEP_DECIMAL' );
532: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_route_operation_rec ) );
533: FND_MSG_PUB.add;
534: -- x_return_status := FND_API.G_RET_STS_ERROR;
535: END;
528: FROM DUAL;
529: EXCEPTION
530: WHEN INVALID_NUMBER THEN
531: FND_MESSAGE.set_name( 'AHL','AHL_RM_STEP_DECIMAL' );
532: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_route_operation_rec ) );
533: FND_MSG_PUB.add;
534: -- x_return_status := FND_API.G_RET_STS_ERROR;
535: END;
536: END IF;
541:
542: -- Check if the mandatory route_operation_id column contains a null value.
543: IF ( p_route_operation_rec.route_operation_id IS NULL OR
544: p_route_operation_rec.route_operation_id = FND_API.G_MISS_NUM ) THEN
545: FND_MESSAGE.set_name( 'AHL','AHL_RM_RT_OPER_ID_NULL' );
546: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_route_operation_rec ) );
547: FND_MSG_PUB.add;
548: --x_return_status := FND_API.G_RET_STS_ERROR;
549: END IF;
542: -- Check if the mandatory route_operation_id column contains a null value.
543: IF ( p_route_operation_rec.route_operation_id IS NULL OR
544: p_route_operation_rec.route_operation_id = FND_API.G_MISS_NUM ) THEN
545: FND_MESSAGE.set_name( 'AHL','AHL_RM_RT_OPER_ID_NULL' );
546: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_route_operation_rec ) );
547: FND_MSG_PUB.add;
548: --x_return_status := FND_API.G_RET_STS_ERROR;
549: END IF;
550:
550:
551: -- Check if the mandatory Object Version Number column contains a null value.
552: IF ( p_route_operation_rec.object_version_number IS NULL OR
553: p_route_operation_rec.object_version_number = FND_API.G_MISS_NUM ) THEN
554: FND_MESSAGE.set_name( 'AHL','AHL_RM_RTO_OBJ_VERSION_NULL' );
555: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_route_operation_rec ) );
556: FND_MSG_PUB.add;
557: -- x_return_status := FND_API.G_RET_STS_ERROR;
558: END IF;
551: -- Check if the mandatory Object Version Number column contains a null value.
552: IF ( p_route_operation_rec.object_version_number IS NULL OR
553: p_route_operation_rec.object_version_number = FND_API.G_MISS_NUM ) THEN
554: FND_MESSAGE.set_name( 'AHL','AHL_RM_RTO_OBJ_VERSION_NULL' );
555: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_route_operation_rec ) );
556: FND_MSG_PUB.add;
557: -- x_return_status := FND_API.G_RET_STS_ERROR;
558: END IF;
559:
593: FETCH get_active_operation INTO
594: l_dummy;
595:
596: IF ( get_active_operation%NOTFOUND ) THEN
597: FND_MESSAGE.set_name( 'AHL','AHL_RM_OPERATION_INACTIVE' );
598:
599: IF ( p_route_operation_rec.concatenated_segments IS NULL ) THEN
600: FND_MESSAGE.set_token( 'FIELD', TO_CHAR( p_route_operation_rec.operation_id ) );
601: ELSE
596: IF ( get_active_operation%NOTFOUND ) THEN
597: FND_MESSAGE.set_name( 'AHL','AHL_RM_OPERATION_INACTIVE' );
598:
599: IF ( p_route_operation_rec.concatenated_segments IS NULL ) THEN
600: FND_MESSAGE.set_token( 'FIELD', TO_CHAR( p_route_operation_rec.operation_id ) );
601: ELSE
602: FND_MESSAGE.set_token( 'FIELD', p_route_operation_rec.concatenated_segments );
603: END IF;
604:
598:
599: IF ( p_route_operation_rec.concatenated_segments IS NULL ) THEN
600: FND_MESSAGE.set_token( 'FIELD', TO_CHAR( p_route_operation_rec.operation_id ) );
601: ELSE
602: FND_MESSAGE.set_token( 'FIELD', p_route_operation_rec.concatenated_segments );
603: END IF;
604:
605: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_route_operation_rec ) );
606: FND_MSG_PUB.add;
601: ELSE
602: FND_MESSAGE.set_token( 'FIELD', p_route_operation_rec.concatenated_segments );
603: END IF;
604:
605: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_route_operation_rec ) );
606: FND_MSG_PUB.add;
607: --x_return_status := FND_API.G_RET_STS_ERROR;
608: END IF;
609:
620: x_op_max_res_duration => l_op_max_res_duration
621: );
622:
623: IF ( NVL( l_return_status, 'X' ) <> FND_API.G_RET_STS_SUCCESS ) THEN
624: FND_MESSAGE.set_name( 'AHL', l_msg_data );
625: FND_MESSAGE.set_token( 'FIELD1', l_op_max_res_duration );
626: FND_MESSAGE.set_token( 'FIELD2', l_rt_time_span );
627: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_route_operation_rec ) );
628: FND_MSG_PUB.add;
621: );
622:
623: IF ( NVL( l_return_status, 'X' ) <> FND_API.G_RET_STS_SUCCESS ) THEN
624: FND_MESSAGE.set_name( 'AHL', l_msg_data );
625: FND_MESSAGE.set_token( 'FIELD1', l_op_max_res_duration );
626: FND_MESSAGE.set_token( 'FIELD2', l_rt_time_span );
627: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_route_operation_rec ) );
628: FND_MSG_PUB.add;
629: x_return_status := FND_API.G_RET_STS_ERROR;
622:
623: IF ( NVL( l_return_status, 'X' ) <> FND_API.G_RET_STS_SUCCESS ) THEN
624: FND_MESSAGE.set_name( 'AHL', l_msg_data );
625: FND_MESSAGE.set_token( 'FIELD1', l_op_max_res_duration );
626: FND_MESSAGE.set_token( 'FIELD2', l_rt_time_span );
627: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_route_operation_rec ) );
628: FND_MSG_PUB.add;
629: x_return_status := FND_API.G_RET_STS_ERROR;
630: END IF;
623: IF ( NVL( l_return_status, 'X' ) <> FND_API.G_RET_STS_SUCCESS ) THEN
624: FND_MESSAGE.set_name( 'AHL', l_msg_data );
625: FND_MESSAGE.set_token( 'FIELD1', l_op_max_res_duration );
626: FND_MESSAGE.set_token( 'FIELD2', l_rt_time_span );
627: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_route_operation_rec ) );
628: FND_MSG_PUB.add;
629: x_return_status := FND_API.G_RET_STS_ERROR;
630: END IF;
631:
669: IF ( l_prev_operation IS NOT NULL AND
670: l_prev_step IS NOT NULL AND
671: l_operation <> l_prev_operation AND
672: l_step = l_prev_step ) THEN
673: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_STEP_DUP' );
674: FND_MESSAGE.set_token( 'FIELD', to_char(l_step) );
675: FND_MSG_PUB.add;
676: x_return_status := FND_API.G_RET_STS_ERROR;
677: END IF;
670: l_prev_step IS NOT NULL AND
671: l_operation <> l_prev_operation AND
672: l_step = l_prev_step ) THEN
673: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_STEP_DUP' );
674: FND_MESSAGE.set_token( 'FIELD', to_char(l_step) );
675: FND_MSG_PUB.add;
676: x_return_status := FND_API.G_RET_STS_ERROR;
677: END IF;
678:
805: OPEN get_route_source(p_route_id);
806: FETCH get_route_source INTO l_route_source,l_route_no;
807: CLOSE get_route_source;
808: IF (UPPER(l_route_source) = 'AUTOMATIC' AND UPPER(p_module_type) <> 'BPEL') THEN
809: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_OP_ENG_ASS_ERR' );
810: FND_MESSAGE.set_token( 'FIELD', l_route_no );
811: FND_MSG_PUB.add;
812: RAISE FND_API.G_EXC_ERROR;
813: END IF;
806: FETCH get_route_source INTO l_route_source,l_route_no;
807: CLOSE get_route_source;
808: IF (UPPER(l_route_source) = 'AUTOMATIC' AND UPPER(p_module_type) <> 'BPEL') THEN
809: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_OP_ENG_ASS_ERR' );
810: FND_MESSAGE.set_token( 'FIELD', l_route_no );
811: FND_MSG_PUB.add;
812: RAISE FND_API.G_EXC_ERROR;
813: END IF;
814: END LOOP;
1044: -- Set OUT values
1045: p_x_route_operation_tbl(i).route_operation_id := l_route_operation_id;
1046: EXCEPTION
1047: WHEN OTHERS THEN
1048: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_STEP_DUP' );
1049: IF ( SQLCODE = -1 ) THEN
1050: FND_MESSAGE.set_token( 'FIELD', 'INSERT : ' || to_char(p_x_route_operation_tbl(i).step) );
1051: ELSE
1052: FND_MESSAGE.set_token( 'FIELD', 'OTHER : ' || to_char(p_x_route_operation_tbl(i).step) );
1046: EXCEPTION
1047: WHEN OTHERS THEN
1048: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_STEP_DUP' );
1049: IF ( SQLCODE = -1 ) THEN
1050: FND_MESSAGE.set_token( 'FIELD', 'INSERT : ' || to_char(p_x_route_operation_tbl(i).step) );
1051: ELSE
1052: FND_MESSAGE.set_token( 'FIELD', 'OTHER : ' || to_char(p_x_route_operation_tbl(i).step) );
1053: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)
1054: THEN
1048: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_STEP_DUP' );
1049: IF ( SQLCODE = -1 ) THEN
1050: FND_MESSAGE.set_token( 'FIELD', 'INSERT : ' || to_char(p_x_route_operation_tbl(i).step) );
1051: ELSE
1052: FND_MESSAGE.set_token( 'FIELD', 'OTHER : ' || to_char(p_x_route_operation_tbl(i).step) );
1053: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)
1054: THEN
1055: fnd_log.string
1056: (
1096: AND object_version_number = p_x_route_operation_tbl(i).object_version_number;
1097:
1098: -- If the record does not exist, then, abort API.
1099: IF ( SQL%ROWCOUNT = 0 ) THEN
1100: FND_MESSAGE.set_name('AHL','AHL_RM_RECORD_CHANGED');
1101: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_x_route_operation_tbl(i) ) );
1102: FND_MSG_PUB.add;
1103: -- x_return_status := FND_API.G_RET_STS_ERROR;
1104: END IF;
1097:
1098: -- If the record does not exist, then, abort API.
1099: IF ( SQL%ROWCOUNT = 0 ) THEN
1100: FND_MESSAGE.set_name('AHL','AHL_RM_RECORD_CHANGED');
1101: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_x_route_operation_tbl(i) ) );
1102: FND_MSG_PUB.add;
1103: -- x_return_status := FND_API.G_RET_STS_ERROR;
1104: END IF;
1105:
1122:
1123: EXCEPTION
1124: WHEN OTHERS THEN
1125: IF ( SQLCODE = -1 ) THEN
1126: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_STEP_DUP' );
1127: FND_MESSAGE.set_token( 'FIELD', to_char(p_x_route_operation_tbl(i).step) );
1128: FND_MSG_PUB.add;
1129: -- x_return_status := FND_API.G_RET_STS_ERROR;
1130: END IF;
1123: EXCEPTION
1124: WHEN OTHERS THEN
1125: IF ( SQLCODE = -1 ) THEN
1126: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_STEP_DUP' );
1127: FND_MESSAGE.set_token( 'FIELD', to_char(p_x_route_operation_tbl(i).step) );
1128: FND_MSG_PUB.add;
1129: -- x_return_status := FND_API.G_RET_STS_ERROR;
1130: END IF;
1131: END;
1137: AND object_version_number = p_x_route_operation_tbl(i).object_version_number;
1138:
1139: -- If the record does not exist, then, abort API.
1140: IF ( SQL%ROWCOUNT = 0 ) THEN
1141: FND_MESSAGE.set_name('AHL','AHL_RM_RECORD_CHANGED');
1142: FND_MESSAGE.set_token( 'RECORD', to_char(i) );
1143: FND_MSG_PUB.add;
1144: --x_return_status := FND_API.G_RET_STS_ERROR;
1145: END IF;
1138:
1139: -- If the record does not exist, then, abort API.
1140: IF ( SQL%ROWCOUNT = 0 ) THEN
1141: FND_MESSAGE.set_name('AHL','AHL_RM_RECORD_CHANGED');
1142: FND_MESSAGE.set_token( 'RECORD', to_char(i) );
1143: FND_MSG_PUB.add;
1144: --x_return_status := FND_API.G_RET_STS_ERROR;
1145: END IF;
1146:
1161: THEN
1162: OPEN duplicate_step( p_x_route_operation_tbl(i).concatenated_segments, p_x_route_operation_tbl(i).step,p_route_id );
1163: FETCH duplicate_step INTO l_dummy;
1164: IF ( duplicate_step%FOUND ) THEN
1165: FND_MESSAGE.set_name( 'AHL','AHL_RM_OPERATION_DUP_STEP' );
1166: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_x_route_operation_tbl(i) ) );
1167: FND_MSG_PUB.add;
1168: RAISE FND_API.G_EXC_ERROR;
1169: END IF;
1162: OPEN duplicate_step( p_x_route_operation_tbl(i).concatenated_segments, p_x_route_operation_tbl(i).step,p_route_id );
1163: FETCH duplicate_step INTO l_dummy;
1164: IF ( duplicate_step%FOUND ) THEN
1165: FND_MESSAGE.set_name( 'AHL','AHL_RM_OPERATION_DUP_STEP' );
1166: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_x_route_operation_tbl(i) ) );
1167: FND_MSG_PUB.add;
1168: RAISE FND_API.G_EXC_ERROR;
1169: END IF;
1170: CLOSE duplicate_step;