80: -- Check Profile value
81:
82: IF G_APPLN_USAGE IS NULL
83: THEN
84: FND_MESSAGE.SET_NAME('AHL','AHL_COM_APP_PRFL_UNDEF');
85: FND_MSG_PUB.ADD;
86: RETURN;
87: END IF;
88:
87: END IF;
88:
89:
90: IF ( G_APPLN_USAGE = 'PM' ) THEN
91: FND_MESSAGE.set_name( 'AHL', 'AHL_FMP_PM_MED_PM_INSTALL' );
92: FND_MSG_PUB.add;
93: x_return_status := FND_API.G_RET_STS_ERROR;
94: RETURN;
95: END IF;
97: -- Check if a valid value is passed in p_mr_header_id
98:
99: IF ( p_mr_header_id = FND_API.G_MISS_NUM OR
100: p_mr_header_id IS NULL ) THEN
101: FND_MESSAGE.set_name( 'AHL', 'AHL_FMP_MR_HEADER_ID_NULL' );
102: FND_MSG_PUB.add;
103: x_return_status := FND_API.G_RET_STS_ERROR;
104: RETURN;
105: END IF;
112: p_mr_header_id => p_mr_header_id
113: );
114:
115: IF ( NVL( l_return_status, 'X' ) <> FND_API.G_RET_STS_SUCCESS ) THEN
116: FND_MESSAGE.set_name( 'AHL', l_msg_data );
117: FND_MSG_PUB.add;
118: x_return_status := l_return_status;
119: RETURN;
120: END IF;
121:
122: -- Check if a valid value is passed in p_mr_effectivity_id
123: IF ( p_mr_effectivity_id = FND_API.G_MISS_NUM OR
124: p_mr_effectivity_id IS NULL ) THEN
125: FND_MESSAGE.set_name( 'AHL', 'AHL_FMP_MRE_ID_NULL' );
126: FND_MSG_PUB.add;
127: x_return_status := FND_API.G_RET_STS_ERROR;
128: RETURN;
129: END IF;
136: p_mr_effectivity_id => p_mr_effectivity_id
137: );
138:
139: IF ( NVL( l_return_status, 'X' ) <> FND_API.G_RET_STS_SUCCESS ) THEN
140: FND_MESSAGE.set_name( 'AHL', l_msg_data );
141: FND_MSG_PUB.add;
142: x_return_status := l_return_status;
143: RETURN;
144: END IF;
144: END IF;
145:
146: -- Check if atleast one record is passed in p_effectivity_detail_tbl
147: IF ( p_effectivity_detail_tbl.count < 1 ) THEN
148: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_INVALID_PROCEDURE_CALL' );
149: FND_MESSAGE.set_token( 'PROCEDURE', G_PKG_NAME || '.' || G_API_NAME );
150: FND_MSG_PUB.add;
151: x_return_status := FND_API.G_RET_STS_ERROR;
152: RETURN;
145:
146: -- Check if atleast one record is passed in p_effectivity_detail_tbl
147: IF ( p_effectivity_detail_tbl.count < 1 ) THEN
148: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_INVALID_PROCEDURE_CALL' );
149: FND_MESSAGE.set_token( 'PROCEDURE', G_PKG_NAME || '.' || G_API_NAME );
150: FND_MSG_PUB.add;
151: x_return_status := FND_API.G_RET_STS_ERROR;
152: RETURN;
153: END IF;
156: FOR i IN 1..p_effectivity_detail_tbl.count LOOP
157: IF ( p_effectivity_detail_tbl(i).dml_operation <> 'D' AND
158: p_effectivity_detail_tbl(i).dml_operation <> 'U' AND
159: p_effectivity_detail_tbl(i).dml_operation <> 'C' ) THEN
160: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_DML_INVALID' );
161: FND_MESSAGE.set_token( 'FIELD', p_effectivity_detail_tbl(i).dml_operation );
162: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_effectivity_detail_tbl(i) ) );
163: FND_MSG_PUB.add;
164: x_return_status := FND_API.G_RET_STS_ERROR;
157: IF ( p_effectivity_detail_tbl(i).dml_operation <> 'D' AND
158: p_effectivity_detail_tbl(i).dml_operation <> 'U' AND
159: p_effectivity_detail_tbl(i).dml_operation <> 'C' ) THEN
160: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_DML_INVALID' );
161: FND_MESSAGE.set_token( 'FIELD', p_effectivity_detail_tbl(i).dml_operation );
162: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_effectivity_detail_tbl(i) ) );
163: FND_MSG_PUB.add;
164: x_return_status := FND_API.G_RET_STS_ERROR;
165: RETURN;
158: p_effectivity_detail_tbl(i).dml_operation <> 'U' AND
159: p_effectivity_detail_tbl(i).dml_operation <> 'C' ) THEN
160: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_DML_INVALID' );
161: FND_MESSAGE.set_token( 'FIELD', p_effectivity_detail_tbl(i).dml_operation );
162: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_effectivity_detail_tbl(i) ) );
163: FND_MSG_PUB.add;
164: x_return_status := FND_API.G_RET_STS_ERROR;
165: RETURN;
166: END IF;
249: p_x_manufacturer_id => p_x_effectivity_detail_rec.manufacturer_id
250: );
251:
252: IF ( NVL( l_return_status, 'X' ) <> FND_API.G_RET_STS_SUCCESS ) THEN
253: FND_MESSAGE.set_name( 'AHL', l_msg_data );
254:
255: IF ( l_msg_data = 'AHL_FMP_INVALID_MF' OR
256: l_msg_data = 'AHL_FMP_TOO_MANY_MFS' ) THEN
257: IF ( p_x_effectivity_detail_rec.manufacturer IS NULL OR
255: IF ( l_msg_data = 'AHL_FMP_INVALID_MF' OR
256: l_msg_data = 'AHL_FMP_TOO_MANY_MFS' ) THEN
257: IF ( p_x_effectivity_detail_rec.manufacturer IS NULL OR
258: p_x_effectivity_detail_rec.manufacturer = FND_API.G_MISS_CHAR ) THEN
259: FND_MESSAGE.set_token( 'FIELD', TO_CHAR( p_x_effectivity_detail_rec.manufacturer_id ));
260: ELSE
261: FND_MESSAGE.set_token( 'FIELD', p_x_effectivity_detail_rec.manufacturer );
262: END IF;
263: ELSE
257: IF ( p_x_effectivity_detail_rec.manufacturer IS NULL OR
258: p_x_effectivity_detail_rec.manufacturer = FND_API.G_MISS_CHAR ) THEN
259: FND_MESSAGE.set_token( 'FIELD', TO_CHAR( p_x_effectivity_detail_rec.manufacturer_id ));
260: ELSE
261: FND_MESSAGE.set_token( 'FIELD', p_x_effectivity_detail_rec.manufacturer );
262: END IF;
263: ELSE
264: IF ( p_x_effectivity_detail_rec.manufacturer IS NULL OR
265: p_x_effectivity_detail_rec.manufacturer = FND_API.G_MISS_CHAR ) THEN
262: END IF;
263: ELSE
264: IF ( p_x_effectivity_detail_rec.manufacturer IS NULL OR
265: p_x_effectivity_detail_rec.manufacturer = FND_API.G_MISS_CHAR ) THEN
266: FND_MESSAGE.set_token( 'FIELD1', TO_CHAR( p_x_effectivity_detail_rec.manufacturer_id ));
267: ELSE
268: FND_MESSAGE.set_token( 'FIELD1', p_x_effectivity_detail_rec.manufacturer );
269: END IF;
270:
264: IF ( p_x_effectivity_detail_rec.manufacturer IS NULL OR
265: p_x_effectivity_detail_rec.manufacturer = FND_API.G_MISS_CHAR ) THEN
266: FND_MESSAGE.set_token( 'FIELD1', TO_CHAR( p_x_effectivity_detail_rec.manufacturer_id ));
267: ELSE
268: FND_MESSAGE.set_token( 'FIELD1', p_x_effectivity_detail_rec.manufacturer );
269: END IF;
270:
271: IF ( l_position_ref_meaning IS NOT NULL ) THEN
272: FND_MESSAGE.set_token( 'FIELD2', l_position_ref_meaning );
268: FND_MESSAGE.set_token( 'FIELD1', p_x_effectivity_detail_rec.manufacturer );
269: END IF;
270:
271: IF ( l_position_ref_meaning IS NOT NULL ) THEN
272: FND_MESSAGE.set_token( 'FIELD2', l_position_ref_meaning );
273: ELSE
274: FND_MESSAGE.set_token( 'FIELD2', l_item_number );
275: END IF;
276: END IF;
270:
271: IF ( l_position_ref_meaning IS NOT NULL ) THEN
272: FND_MESSAGE.set_token( 'FIELD2', l_position_ref_meaning );
273: ELSE
274: FND_MESSAGE.set_token( 'FIELD2', l_item_number );
275: END IF;
276: END IF;
277:
278: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_x_effectivity_detail_rec ) );
274: FND_MESSAGE.set_token( 'FIELD2', l_item_number );
275: END IF;
276: END IF;
277:
278: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_x_effectivity_detail_rec ) );
279: FND_MSG_PUB.add;
280: END IF;
281:
282: END IF;
297: p_x_country_code => p_x_effectivity_detail_rec.country_code
298: );
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: IF ( p_x_effectivity_detail_rec.country IS NULL OR
303: p_x_effectivity_detail_rec.country = FND_API.G_MISS_CHAR ) THEN
304: FND_MESSAGE.set_token( 'FIELD', p_x_effectivity_detail_rec.country_code );
305: ELSE
300: IF ( NVL( l_return_status, 'X' ) <> FND_API.G_RET_STS_SUCCESS ) THEN
301: FND_MESSAGE.set_name( 'AHL', l_msg_data );
302: IF ( p_x_effectivity_detail_rec.country IS NULL OR
303: p_x_effectivity_detail_rec.country = FND_API.G_MISS_CHAR ) THEN
304: FND_MESSAGE.set_token( 'FIELD', p_x_effectivity_detail_rec.country_code );
305: ELSE
306: FND_MESSAGE.set_token( 'FIELD', p_x_effectivity_detail_rec.country );
307: END IF;
308: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_x_effectivity_detail_rec ) );
302: IF ( p_x_effectivity_detail_rec.country IS NULL OR
303: p_x_effectivity_detail_rec.country = FND_API.G_MISS_CHAR ) THEN
304: FND_MESSAGE.set_token( 'FIELD', p_x_effectivity_detail_rec.country_code );
305: ELSE
306: FND_MESSAGE.set_token( 'FIELD', p_x_effectivity_detail_rec.country );
307: END IF;
308: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_x_effectivity_detail_rec ) );
309: FND_MSG_PUB.add;
310: END IF;
304: FND_MESSAGE.set_token( 'FIELD', p_x_effectivity_detail_rec.country_code );
305: ELSE
306: FND_MESSAGE.set_token( 'FIELD', p_x_effectivity_detail_rec.country );
307: END IF;
308: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_x_effectivity_detail_rec ) );
309: FND_MSG_PUB.add;
310: END IF;
311:
312: END IF;
513: l_old_effectivity_detail_rec.attribute14,
514: l_old_effectivity_detail_rec.attribute15;
515:
516: IF get_old_rec%NOTFOUND THEN
517: FND_MESSAGE.set_name( 'AHL', 'AHL_FMP_INVALID_EFF_DTL_REC' );
518: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_x_effectivity_detail_rec ) );
519: FND_MSG_PUB.add;
520: CLOSE get_old_rec;
521: RAISE FND_API.G_EXC_ERROR;
514: l_old_effectivity_detail_rec.attribute15;
515:
516: IF get_old_rec%NOTFOUND THEN
517: FND_MESSAGE.set_name( 'AHL', 'AHL_FMP_INVALID_EFF_DTL_REC' );
518: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_x_effectivity_detail_rec ) );
519: FND_MSG_PUB.add;
520: CLOSE get_old_rec;
521: RAISE FND_API.G_EXC_ERROR;
522: END IF;
688: IF ( p_effectivity_detail_rec.dml_operation = 'C' ) THEN
689: -- Check if the Exclude Flag does not contain a null value.
690: IF ( p_effectivity_detail_rec.exclude_flag IS NULL OR
691: p_effectivity_detail_rec.exclude_flag = FND_API.G_MISS_CHAR ) THEN
692: FND_MESSAGE.set_name( 'AHL','AHL_FMP_EX_FLAG_NULL' );
693: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_effectivity_detail_rec ) );
694: FND_MSG_PUB.add;
695: ELSE
696: -- Check if the Exclude Flag does not contain an invalid value.
689: -- Check if the Exclude Flag does not contain a null value.
690: IF ( p_effectivity_detail_rec.exclude_flag IS NULL OR
691: p_effectivity_detail_rec.exclude_flag = FND_API.G_MISS_CHAR ) THEN
692: FND_MESSAGE.set_name( 'AHL','AHL_FMP_EX_FLAG_NULL' );
693: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_effectivity_detail_rec ) );
694: FND_MSG_PUB.add;
695: ELSE
696: -- Check if the Exclude Flag does not contain an invalid value.
697: IF ( p_effectivity_detail_rec.exclude_flag <> 'Y' AND
695: ELSE
696: -- Check if the Exclude Flag does not contain an invalid value.
697: IF ( p_effectivity_detail_rec.exclude_flag <> 'Y' AND
698: p_effectivity_detail_rec.exclude_flag <> 'N' ) THEN
699: FND_MESSAGE.set_name( 'AHL','AHL_FMP_INVALID_EX_FLAG' );
700: FND_MESSAGE.set_token( 'FIELD', p_effectivity_detail_rec.exclude_flag );
701: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_effectivity_detail_rec ) );
702: FND_MSG_PUB.add;
703: END IF;
696: -- Check if the Exclude Flag does not contain an invalid value.
697: IF ( p_effectivity_detail_rec.exclude_flag <> 'Y' AND
698: p_effectivity_detail_rec.exclude_flag <> 'N' ) THEN
699: FND_MESSAGE.set_name( 'AHL','AHL_FMP_INVALID_EX_FLAG' );
700: FND_MESSAGE.set_token( 'FIELD', p_effectivity_detail_rec.exclude_flag );
701: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_effectivity_detail_rec ) );
702: FND_MSG_PUB.add;
703: END IF;
704: END IF;
697: IF ( p_effectivity_detail_rec.exclude_flag <> 'Y' AND
698: p_effectivity_detail_rec.exclude_flag <> 'N' ) THEN
699: FND_MESSAGE.set_name( 'AHL','AHL_FMP_INVALID_EX_FLAG' );
700: FND_MESSAGE.set_token( 'FIELD', p_effectivity_detail_rec.exclude_flag );
701: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_effectivity_detail_rec ) );
702: FND_MSG_PUB.add;
703: END IF;
704: END IF;
705: RETURN;
707:
708: IF ( p_effectivity_detail_rec.dml_operation = 'U' ) THEN
709: -- Check if the Exclude Flag does not contain a null value.
710: IF ( p_effectivity_detail_rec.exclude_flag = FND_API.G_MISS_CHAR ) THEN
711: FND_MESSAGE.set_name( 'AHL','AHL_FMP_EX_FLAG_NULL' );
712: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_effectivity_detail_rec ) );
713: FND_MSG_PUB.add;
714: ELSIF ( p_effectivity_detail_rec.exclude_flag IS NOT NULL ) THEN
715: -- Check if the Exclude Flag does not contain an invalid value.
708: IF ( p_effectivity_detail_rec.dml_operation = 'U' ) THEN
709: -- Check if the Exclude Flag does not contain a null value.
710: IF ( p_effectivity_detail_rec.exclude_flag = FND_API.G_MISS_CHAR ) THEN
711: FND_MESSAGE.set_name( 'AHL','AHL_FMP_EX_FLAG_NULL' );
712: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_effectivity_detail_rec ) );
713: FND_MSG_PUB.add;
714: ELSIF ( p_effectivity_detail_rec.exclude_flag IS NOT NULL ) THEN
715: -- Check if the Exclude Flag does not contain an invalid value.
716: IF ( p_effectivity_detail_rec.exclude_flag <> 'Y' AND
714: ELSIF ( p_effectivity_detail_rec.exclude_flag IS NOT NULL ) THEN
715: -- Check if the Exclude Flag does not contain an invalid value.
716: IF ( p_effectivity_detail_rec.exclude_flag <> 'Y' AND
717: p_effectivity_detail_rec.exclude_flag <> 'N' ) THEN
718: FND_MESSAGE.set_name( 'AHL','AHL_FMP_INVALID_EX_FLAG' );
719: FND_MESSAGE.set_token( 'FIELD', p_effectivity_detail_rec.exclude_flag );
720: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_effectivity_detail_rec ) );
721: FND_MSG_PUB.add;
722: END IF;
715: -- Check if the Exclude Flag does not contain an invalid value.
716: IF ( p_effectivity_detail_rec.exclude_flag <> 'Y' AND
717: p_effectivity_detail_rec.exclude_flag <> 'N' ) THEN
718: FND_MESSAGE.set_name( 'AHL','AHL_FMP_INVALID_EX_FLAG' );
719: FND_MESSAGE.set_token( 'FIELD', p_effectivity_detail_rec.exclude_flag );
720: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_effectivity_detail_rec ) );
721: FND_MSG_PUB.add;
722: END IF;
723: END IF;
716: IF ( p_effectivity_detail_rec.exclude_flag <> 'Y' AND
717: p_effectivity_detail_rec.exclude_flag <> 'N' ) THEN
718: FND_MESSAGE.set_name( 'AHL','AHL_FMP_INVALID_EX_FLAG' );
719: FND_MESSAGE.set_token( 'FIELD', p_effectivity_detail_rec.exclude_flag );
720: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_effectivity_detail_rec ) );
721: FND_MSG_PUB.add;
722: END IF;
723: END IF;
724: END IF;
725:
726: -- Check if the mandatory Effectivity Detail ID column contains a null value.
727: IF ( p_effectivity_detail_rec.mr_effectivity_detail_id IS NULL OR
728: p_effectivity_detail_rec.mr_effectivity_detail_id = FND_API.G_MISS_NUM ) THEN
729: FND_MESSAGE.set_name( 'AHL','AHL_FMP_MR_EFF_DTL_ID_NULL' );
730: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_effectivity_detail_rec ) );
731: FND_MSG_PUB.add;
732: END IF;
733:
726: -- Check if the mandatory Effectivity Detail ID column contains a null value.
727: IF ( p_effectivity_detail_rec.mr_effectivity_detail_id IS NULL OR
728: p_effectivity_detail_rec.mr_effectivity_detail_id = FND_API.G_MISS_NUM ) THEN
729: FND_MESSAGE.set_name( 'AHL','AHL_FMP_MR_EFF_DTL_ID_NULL' );
730: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_effectivity_detail_rec ) );
731: FND_MSG_PUB.add;
732: END IF;
733:
734: -- Check if the mandatory Object Version Number column contains a null value.
733:
734: -- Check if the mandatory Object Version Number column contains a null value.
735: IF ( p_effectivity_detail_rec.object_version_number IS NULL OR
736: p_effectivity_detail_rec.object_version_number = FND_API.G_MISS_NUM ) THEN
737: FND_MESSAGE.set_name( 'AHL','AHL_FMP_MED_OBJ_VERSION_NULL' );
738: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_effectivity_detail_rec ) );
739: FND_MSG_PUB.add;
740: END IF;
741:
734: -- Check if the mandatory Object Version Number column contains a null value.
735: IF ( p_effectivity_detail_rec.object_version_number IS NULL OR
736: p_effectivity_detail_rec.object_version_number = FND_API.G_MISS_NUM ) THEN
737: FND_MESSAGE.set_name( 'AHL','AHL_FMP_MED_OBJ_VERSION_NULL' );
738: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_effectivity_detail_rec ) );
739: FND_MSG_PUB.add;
740: END IF;
741:
742: END validate_attributes;
767: p_serial_number_to => p_effectivity_detail_rec.serial_number_to
768: );
769:
770: IF ( NVL( l_return_status, 'X' ) <> FND_API.G_RET_STS_SUCCESS ) THEN
771: FND_MESSAGE.set_name( 'AHL', l_msg_data );
772: FND_MESSAGE.set_token( 'FIELD1', p_effectivity_detail_rec.serial_number_from );
773: FND_MESSAGE.set_token( 'FIELD2', p_effectivity_detail_rec.serial_number_to );
774: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_effectivity_detail_rec ) );
775: FND_MSG_PUB.add;
768: );
769:
770: IF ( NVL( l_return_status, 'X' ) <> FND_API.G_RET_STS_SUCCESS ) THEN
771: FND_MESSAGE.set_name( 'AHL', l_msg_data );
772: FND_MESSAGE.set_token( 'FIELD1', p_effectivity_detail_rec.serial_number_from );
773: FND_MESSAGE.set_token( 'FIELD2', p_effectivity_detail_rec.serial_number_to );
774: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_effectivity_detail_rec ) );
775: FND_MSG_PUB.add;
776: END IF;
769:
770: IF ( NVL( l_return_status, 'X' ) <> FND_API.G_RET_STS_SUCCESS ) THEN
771: FND_MESSAGE.set_name( 'AHL', l_msg_data );
772: FND_MESSAGE.set_token( 'FIELD1', p_effectivity_detail_rec.serial_number_from );
773: FND_MESSAGE.set_token( 'FIELD2', p_effectivity_detail_rec.serial_number_to );
774: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_effectivity_detail_rec ) );
775: FND_MSG_PUB.add;
776: END IF;
777: END IF;
770: IF ( NVL( l_return_status, 'X' ) <> FND_API.G_RET_STS_SUCCESS ) THEN
771: FND_MESSAGE.set_name( 'AHL', l_msg_data );
772: FND_MESSAGE.set_token( 'FIELD1', p_effectivity_detail_rec.serial_number_from );
773: FND_MESSAGE.set_token( 'FIELD2', p_effectivity_detail_rec.serial_number_to );
774: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_effectivity_detail_rec ) );
775: FND_MSG_PUB.add;
776: END IF;
777: END IF;
778:
780: IF ( p_effectivity_detail_rec.manufacture_date_from IS NOT NULL AND
781: p_effectivity_detail_rec.manufacture_date_to IS NOT NULL ) THEN
782: IF ( p_effectivity_detail_rec.manufacture_date_from >
783: p_effectivity_detail_rec.manufacture_date_to ) THEN
784: FND_MESSAGE.set_name( 'AHL','AHL_FMP_INVALID_MFG_DT_RANGE' );
785: FND_MESSAGE.set_token( 'FIELD1', p_effectivity_detail_rec.manufacture_date_from );
786: FND_MESSAGE.set_token( 'FIELD2', p_effectivity_detail_rec.manufacture_date_to );
787: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_effectivity_detail_rec ) );
788: FND_MSG_PUB.add;
781: p_effectivity_detail_rec.manufacture_date_to IS NOT NULL ) THEN
782: IF ( p_effectivity_detail_rec.manufacture_date_from >
783: p_effectivity_detail_rec.manufacture_date_to ) THEN
784: FND_MESSAGE.set_name( 'AHL','AHL_FMP_INVALID_MFG_DT_RANGE' );
785: FND_MESSAGE.set_token( 'FIELD1', p_effectivity_detail_rec.manufacture_date_from );
786: FND_MESSAGE.set_token( 'FIELD2', p_effectivity_detail_rec.manufacture_date_to );
787: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_effectivity_detail_rec ) );
788: FND_MSG_PUB.add;
789: END IF;
782: IF ( p_effectivity_detail_rec.manufacture_date_from >
783: p_effectivity_detail_rec.manufacture_date_to ) THEN
784: FND_MESSAGE.set_name( 'AHL','AHL_FMP_INVALID_MFG_DT_RANGE' );
785: FND_MESSAGE.set_token( 'FIELD1', p_effectivity_detail_rec.manufacture_date_from );
786: FND_MESSAGE.set_token( 'FIELD2', p_effectivity_detail_rec.manufacture_date_to );
787: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_effectivity_detail_rec ) );
788: FND_MSG_PUB.add;
789: END IF;
790: END IF;
783: p_effectivity_detail_rec.manufacture_date_to ) THEN
784: FND_MESSAGE.set_name( 'AHL','AHL_FMP_INVALID_MFG_DT_RANGE' );
785: FND_MESSAGE.set_token( 'FIELD1', p_effectivity_detail_rec.manufacture_date_from );
786: FND_MESSAGE.set_token( 'FIELD2', p_effectivity_detail_rec.manufacture_date_to );
787: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_effectivity_detail_rec ) );
788: FND_MSG_PUB.add;
789: END IF;
790: END IF;
791:
797: p_effectivity_detail_rec.manufacture_date_from IS NULL AND
798: p_effectivity_detail_rec.manufacture_date_to IS NULL AND
799: p_effectivity_detail_rec.country IS NULL AND
800: p_effectivity_detail_rec.country_code IS NULL ) THEN
801: FND_MESSAGE.set_name( 'AHL','AHL_FMP_ONE_VALUE_REQD' );
802: FND_MSG_PUB.add;
803: END IF;
804:
805: END validate_record;
848: l_effectivity_detail_rec.country;
849:
850: EXIT WHEN get_dup_rec%NOTFOUND;
851:
852: FND_MESSAGE.set_name( 'AHL', 'AHL_FMP_DUPLICATE_MED_REC' );
853: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( l_effectivity_detail_rec ) );
854: FND_MSG_PUB.add;
855: END LOOP;
856:
849:
850: EXIT WHEN get_dup_rec%NOTFOUND;
851:
852: FND_MESSAGE.set_name( 'AHL', 'AHL_FMP_DUPLICATE_MED_REC' );
853: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( l_effectivity_detail_rec ) );
854: FND_MSG_PUB.add;
855: END LOOP;
856:
857: IF ( get_dup_rec%ROWCOUNT > 0 ) THEN
1211: AND object_version_number = p_x_effectivity_detail_tbl(i).object_version_number;
1212:
1213: -- If the record does not exist, then, abort API.
1214: IF ( SQL%ROWCOUNT = 0 ) THEN
1215: FND_MESSAGE.set_name('AHL','AHL_FMP_RECORD_CHANGED');
1216: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_x_effectivity_detail_tbl(i) ) );
1217: FND_MSG_PUB.add;
1218: RAISE FND_API.G_EXC_ERROR;
1219: END IF;
1212:
1213: -- If the record does not exist, then, abort API.
1214: IF ( SQL%ROWCOUNT = 0 ) THEN
1215: FND_MESSAGE.set_name('AHL','AHL_FMP_RECORD_CHANGED');
1216: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_x_effectivity_detail_tbl(i) ) );
1217: FND_MSG_PUB.add;
1218: RAISE FND_API.G_EXC_ERROR;
1219: END IF;
1220:
1229: AND object_version_number = p_x_effectivity_detail_tbl(i).object_version_number;
1230:
1231: -- If the record does not exist, then, abort API.
1232: IF ( SQL%ROWCOUNT = 0 ) THEN
1233: FND_MESSAGE.set_name('AHL','AHL_FMP_RECORD_CHANGED');
1234: FND_MESSAGE.set_token( 'RECORD', TO_CHAR( i ) );
1235: FND_MSG_PUB.add;
1236: RAISE FND_API.G_EXC_ERROR;
1237: END IF;
1230:
1231: -- If the record does not exist, then, abort API.
1232: IF ( SQL%ROWCOUNT = 0 ) THEN
1233: FND_MESSAGE.set_name('AHL','AHL_FMP_RECORD_CHANGED');
1234: FND_MESSAGE.set_token( 'RECORD', TO_CHAR( i ) );
1235: FND_MSG_PUB.add;
1236: RAISE FND_API.G_EXC_ERROR;
1237: END IF;
1238: END IF;
1291: ( yi > y )
1292: )
1293: )
1294: THEN
1295: FND_MESSAGE.set_name( 'AHL', 'AHL_FMP_OVERLAP_MED_REC' );
1296: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_x_effectivity_detail_tbl(i) ) );
1297: FND_MSG_PUB.add;
1298: RAISE FND_API.G_EXC_ERROR;
1299: END IF;
1292: )
1293: )
1294: THEN
1295: FND_MESSAGE.set_name( 'AHL', 'AHL_FMP_OVERLAP_MED_REC' );
1296: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_x_effectivity_detail_tbl(i) ) );
1297: FND_MSG_PUB.add;
1298: RAISE FND_API.G_EXC_ERROR;
1299: END IF;
1300: