DBA Data[Home] [Help]

APPS.AHL_RM_PROD_ZONE_AS_PVT dependencies on FND_MESSAGE

Line 59: FND_MESSAGE.set_name('AHL', 'AHL_RM_INVALID_ASSOCIATE_TYPE');

55: x_return_status := FND_API.G_RET_STS_SUCCESS;
56:
57: -- Check whether the associate type is 'M' or 'S'
58: IF ( p_associate_flag <> 'M' AND p_associate_flag <> 'S') THEn
59: FND_MESSAGE.set_name('AHL', 'AHL_RM_INVALID_ASSOCIATE_TYPE');
60: FND_MESSAGE.set_token('FIELD', p_associate_flag );
61: FND_MSG_PUB.add;
62: x_return_status := FND_API.G_RET_STS_ERROR;
63: RETURN;

Line 60: FND_MESSAGE.set_token('FIELD', p_associate_flag );

56:
57: -- Check whether the associate type is 'M' or 'S'
58: IF ( p_associate_flag <> 'M' AND p_associate_flag <> 'S') THEn
59: FND_MESSAGE.set_name('AHL', 'AHL_RM_INVALID_ASSOCIATE_TYPE');
60: FND_MESSAGE.set_token('FIELD', p_associate_flag );
61: FND_MSG_PUB.add;
62: x_return_status := FND_API.G_RET_STS_ERROR;
63: RETURN;
64: END IF;

Line 68: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_INVALID_PROCEDURE_CALL' );

64: END IF;
65:
66: -- Check if at least one record is passed in p_prod_zone_as_tbl
67: IF ( p_prod_zone_as_tbl.count < 1 ) THEN
68: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_INVALID_PROCEDURE_CALL' );
69: FND_MESSAGE.set_token( 'PROCEDURE', G_PKG_NAME || '.' || G_API_NAME );
70: FND_MSG_PUB.add;
71: x_return_status := FND_API.G_RET_STS_ERROR;
72: RETURN;

Line 69: FND_MESSAGE.set_token( 'PROCEDURE', G_PKG_NAME || '.' || G_API_NAME );

65:
66: -- Check if at least one record is passed in p_prod_zone_as_tbl
67: IF ( p_prod_zone_as_tbl.count < 1 ) THEN
68: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_INVALID_PROCEDURE_CALL' );
69: FND_MESSAGE.set_token( 'PROCEDURE', G_PKG_NAME || '.' || G_API_NAME );
70: FND_MSG_PUB.add;
71: x_return_status := FND_API.G_RET_STS_ERROR;
72: RETURN;
73: END IF;

Line 80: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_INVALID_DML' );

76: FOR i IN 1..p_prod_zone_as_tbl.count LOOP
77: IF ( p_prod_zone_as_tbl(i).dml_operation <> 'C' AND
78: p_prod_zone_as_tbl(i).dml_operation <> 'U' AND
79: p_prod_zone_as_tbl(i).dml_operation <> 'D' ) THEN
80: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_INVALID_DML' );
81: FND_MESSAGE.set_token( 'FIELD', p_prod_zone_as_tbl(i).dml_operation );
82: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_prod_zone_as_tbl(i) ) );
83: FND_MSG_PUB.add;
84: x_return_status := FND_API.G_RET_STS_ERROR;

Line 81: FND_MESSAGE.set_token( 'FIELD', p_prod_zone_as_tbl(i).dml_operation );

77: IF ( p_prod_zone_as_tbl(i).dml_operation <> 'C' AND
78: p_prod_zone_as_tbl(i).dml_operation <> 'U' AND
79: p_prod_zone_as_tbl(i).dml_operation <> 'D' ) THEN
80: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_INVALID_DML' );
81: FND_MESSAGE.set_token( 'FIELD', p_prod_zone_as_tbl(i).dml_operation );
82: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_prod_zone_as_tbl(i) ) );
83: FND_MSG_PUB.add;
84: x_return_status := FND_API.G_RET_STS_ERROR;
85: RETURN;

Line 82: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_prod_zone_as_tbl(i) ) );

78: p_prod_zone_as_tbl(i).dml_operation <> 'U' AND
79: p_prod_zone_as_tbl(i).dml_operation <> 'D' ) THEN
80: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_INVALID_DML' );
81: FND_MESSAGE.set_token( 'FIELD', p_prod_zone_as_tbl(i).dml_operation );
82: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_prod_zone_as_tbl(i) ) );
83: FND_MSG_PUB.add;
84: x_return_status := FND_API.G_RET_STS_ERROR;
85: RETURN;
86: END IF;

Line 150: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_INVALID_PRODUCT_TYPE' );

146: );
147:
148: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
149: IF ( l_msg_data = 'AHL_COM_INVALID_LOOKUP' ) THEN
150: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_INVALID_PRODUCT_TYPE' );
151: ELSIF ( l_msg_data = 'AHL_COM_TOO_MANY_LOOKUPS' ) THEN
152: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_TOO_MANY_PRODUCT_TYPES' );
153: ELSE
154: FND_MESSAGE.set_name( 'AHL', l_msg_data );

Line 152: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_TOO_MANY_PRODUCT_TYPES' );

148: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
149: IF ( l_msg_data = 'AHL_COM_INVALID_LOOKUP' ) THEN
150: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_INVALID_PRODUCT_TYPE' );
151: ELSIF ( l_msg_data = 'AHL_COM_TOO_MANY_LOOKUPS' ) THEN
152: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_TOO_MANY_PRODUCT_TYPES' );
153: ELSE
154: FND_MESSAGE.set_name( 'AHL', l_msg_data );
155: END IF;
156:

Line 154: FND_MESSAGE.set_name( 'AHL', l_msg_data );

150: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_INVALID_PRODUCT_TYPE' );
151: ELSIF ( l_msg_data = 'AHL_COM_TOO_MANY_LOOKUPS' ) THEN
152: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_TOO_MANY_PRODUCT_TYPES' );
153: ELSE
154: FND_MESSAGE.set_name( 'AHL', l_msg_data );
155: END IF;
156:
157: IF ( p_x_prod_zone_as_rec.product_type IS NULL OR
158: p_x_prod_zone_as_rec.product_type = FND_API.G_MISS_CHAR ) THEN

Line 159: FND_MESSAGE.set_token( 'FIELD', p_x_prod_zone_as_rec.product_type_code );

155: END IF;
156:
157: IF ( p_x_prod_zone_as_rec.product_type IS NULL OR
158: p_x_prod_zone_as_rec.product_type = FND_API.G_MISS_CHAR ) THEN
159: FND_MESSAGE.set_token( 'FIELD', p_x_prod_zone_as_rec.product_type_code );
160: ELSE
161: FND_MESSAGE.set_token( 'FIELD', p_x_prod_zone_as_rec.product_type );
162: END IF;
163:

Line 161: FND_MESSAGE.set_token( 'FIELD', p_x_prod_zone_as_rec.product_type );

157: IF ( p_x_prod_zone_as_rec.product_type IS NULL OR
158: p_x_prod_zone_as_rec.product_type = FND_API.G_MISS_CHAR ) THEN
159: FND_MESSAGE.set_token( 'FIELD', p_x_prod_zone_as_rec.product_type_code );
160: ELSE
161: FND_MESSAGE.set_token( 'FIELD', p_x_prod_zone_as_rec.product_type );
162: END IF;
163:
164: FND_MSG_PUB.add;
165: x_return_status := l_return_status;

Line 188: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_INVALID_ZONE_REC' );

184: );
185:
186: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
187: IF ( l_msg_data = 'AHL_COM_INVALID_LOOKUP' ) THEN
188: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_INVALID_ZONE_REC' );
189: ELSIF ( l_msg_data = 'AHL_COM_TOO_MANY_LOOKUPS' ) THEN
190: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_TOO_MANY_ZONES_REC' );
191: ELSE
192: FND_MESSAGE.set_name( 'AHL', l_msg_data );

Line 190: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_TOO_MANY_ZONES_REC' );

186: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
187: IF ( l_msg_data = 'AHL_COM_INVALID_LOOKUP' ) THEN
188: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_INVALID_ZONE_REC' );
189: ELSIF ( l_msg_data = 'AHL_COM_TOO_MANY_LOOKUPS' ) THEN
190: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_TOO_MANY_ZONES_REC' );
191: ELSE
192: FND_MESSAGE.set_name( 'AHL', l_msg_data );
193: END IF;
194:

Line 192: FND_MESSAGE.set_name( 'AHL', l_msg_data );

188: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_INVALID_ZONE_REC' );
189: ELSIF ( l_msg_data = 'AHL_COM_TOO_MANY_LOOKUPS' ) THEN
190: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_TOO_MANY_ZONES_REC' );
191: ELSE
192: FND_MESSAGE.set_name( 'AHL', l_msg_data );
193: END IF;
194:
195: IF ( p_x_prod_zone_as_rec.zone IS NULL OR
196: p_x_prod_zone_as_rec.zone = FND_API.G_MISS_CHAR ) THEN

Line 197: FND_MESSAGE.set_token( 'FIELD', p_x_prod_zone_as_rec.zone_code );

193: END IF;
194:
195: IF ( p_x_prod_zone_as_rec.zone IS NULL OR
196: p_x_prod_zone_as_rec.zone = FND_API.G_MISS_CHAR ) THEN
197: FND_MESSAGE.set_token( 'FIELD', p_x_prod_zone_as_rec.zone_code );
198: ELSE
199: FND_MESSAGE.set_token( 'FIELD', p_x_prod_zone_as_rec.zone );
200: END IF;
201:

Line 199: FND_MESSAGE.set_token( 'FIELD', p_x_prod_zone_as_rec.zone );

195: IF ( p_x_prod_zone_as_rec.zone IS NULL OR
196: p_x_prod_zone_as_rec.zone = FND_API.G_MISS_CHAR ) THEN
197: FND_MESSAGE.set_token( 'FIELD', p_x_prod_zone_as_rec.zone_code );
198: ELSE
199: FND_MESSAGE.set_token( 'FIELD', p_x_prod_zone_as_rec.zone );
200: END IF;
201:
202: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_x_prod_zone_as_rec ) );
203: FND_MSG_PUB.add;

Line 202: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_x_prod_zone_as_rec ) );

198: ELSE
199: FND_MESSAGE.set_token( 'FIELD', p_x_prod_zone_as_rec.zone );
200: END IF;
201:
202: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_x_prod_zone_as_rec ) );
203: FND_MSG_PUB.add;
204: x_return_status := l_return_status;
205: END IF;
206:

Line 227: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_INVALID_SUB_ZONE_REC' );

223: );
224:
225: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
226: IF ( l_msg_data = 'AHL_COM_INVALID_LOOKUP' ) THEN
227: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_INVALID_SUB_ZONE_REC' );
228: ELSIF ( l_msg_data = 'AHL_COM_TOO_MANY_LOOKUPS' ) THEN
229: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_TOO_MANY_SUB_ZONES_REC' );
230: ELSE
231: FND_MESSAGE.set_name( 'AHL', l_msg_data );

Line 229: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_TOO_MANY_SUB_ZONES_REC' );

225: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
226: IF ( l_msg_data = 'AHL_COM_INVALID_LOOKUP' ) THEN
227: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_INVALID_SUB_ZONE_REC' );
228: ELSIF ( l_msg_data = 'AHL_COM_TOO_MANY_LOOKUPS' ) THEN
229: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_TOO_MANY_SUB_ZONES_REC' );
230: ELSE
231: FND_MESSAGE.set_name( 'AHL', l_msg_data );
232: END IF;
233:

Line 231: FND_MESSAGE.set_name( 'AHL', l_msg_data );

227: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_INVALID_SUB_ZONE_REC' );
228: ELSIF ( l_msg_data = 'AHL_COM_TOO_MANY_LOOKUPS' ) THEN
229: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_TOO_MANY_SUB_ZONES_REC' );
230: ELSE
231: FND_MESSAGE.set_name( 'AHL', l_msg_data );
232: END IF;
233:
234: IF ( p_x_prod_zone_as_rec.sub_zone IS NULL OR
235: p_x_prod_zone_as_rec.sub_zone = FND_API.G_MISS_CHAR ) THEN

Line 236: FND_MESSAGE.set_token( 'FIELD', p_x_prod_zone_as_rec.sub_zone_code );

232: END IF;
233:
234: IF ( p_x_prod_zone_as_rec.sub_zone IS NULL OR
235: p_x_prod_zone_as_rec.sub_zone = FND_API.G_MISS_CHAR ) THEN
236: FND_MESSAGE.set_token( 'FIELD', p_x_prod_zone_as_rec.sub_zone_code );
237: ELSE
238: FND_MESSAGE.set_token( 'FIELD', p_x_prod_zone_as_rec.sub_zone );
239: END IF;
240:

Line 238: FND_MESSAGE.set_token( 'FIELD', p_x_prod_zone_as_rec.sub_zone );

234: IF ( p_x_prod_zone_as_rec.sub_zone IS NULL OR
235: p_x_prod_zone_as_rec.sub_zone = FND_API.G_MISS_CHAR ) THEN
236: FND_MESSAGE.set_token( 'FIELD', p_x_prod_zone_as_rec.sub_zone_code );
237: ELSE
238: FND_MESSAGE.set_token( 'FIELD', p_x_prod_zone_as_rec.sub_zone );
239: END IF;
240:
241: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_x_prod_zone_as_rec ) );
242: FND_MSG_PUB.add;

Line 241: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_x_prod_zone_as_rec ) );

237: ELSE
238: FND_MESSAGE.set_token( 'FIELD', p_x_prod_zone_as_rec.sub_zone );
239: END IF;
240:
241: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_x_prod_zone_as_rec ) );
242: FND_MSG_PUB.add;
243: x_return_status := l_return_status;
244: END IF;
245:

Line 431: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_INVALID_PROD_ZONE_REC' );

427: l_old_prod_zone_as_rec.attribute14,
428: l_old_prod_zone_as_rec.attribute15;
429:
430: IF get_old_rec%NOTFOUND THEN
431: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_INVALID_PROD_ZONE_REC' );
432: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_x_prod_zone_as_rec ) );
433: FND_MSG_PUB.add;
434: CLOSE get_old_rec;
435: RAISE FND_API.G_EXC_ERROR;

Line 432: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_x_prod_zone_as_rec ) );

428: l_old_prod_zone_as_rec.attribute15;
429:
430: IF get_old_rec%NOTFOUND THEN
431: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_INVALID_PROD_ZONE_REC' );
432: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_x_prod_zone_as_rec ) );
433: FND_MSG_PUB.add;
434: CLOSE get_old_rec;
435: RAISE FND_API.G_EXC_ERROR;
436: END IF;

Line 589: FND_MESSAGE.set_name( 'AHL','AHL_RM_PRODUCT_TYPE_NULL' );

585: x_return_status := FND_API.G_RET_STS_SUCCESS;
586:
587: IF ( p_prod_zone_as_rec.product_type_code IS NULL OR
588: p_prod_zone_as_rec.product_type_code = FND_API.G_MISS_CHAR ) THEN
589: FND_MESSAGE.set_name( 'AHL','AHL_RM_PRODUCT_TYPE_NULL' );
590: FND_MSG_PUB.add;
591: x_return_status := FND_API.G_RET_STS_ERROR;
592: RETURN;
593: END IF;

Line 597: FND_MESSAGE.set_name( 'AHL','AHL_RM_ZONE_NULL' );

593: END IF;
594:
595: IF ( p_prod_zone_as_rec.zone_code IS NULL OR
596: p_prod_zone_as_rec.zone_code = FND_API.G_MISS_CHAR ) THEN
597: FND_MESSAGE.set_name( 'AHL','AHL_RM_ZONE_NULL' );
598: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_prod_zone_as_rec ) );
599: FND_MSG_PUB.add;
600: x_return_status := FND_API.G_RET_STS_ERROR;
601: RETURN;

Line 598: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_prod_zone_as_rec ) );

594:
595: IF ( p_prod_zone_as_rec.zone_code IS NULL OR
596: p_prod_zone_as_rec.zone_code = FND_API.G_MISS_CHAR ) THEN
597: FND_MESSAGE.set_name( 'AHL','AHL_RM_ZONE_NULL' );
598: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_prod_zone_as_rec ) );
599: FND_MSG_PUB.add;
600: x_return_status := FND_API.G_RET_STS_ERROR;
601: RETURN;
602: END IF;

Line 606: FND_MESSAGE.set_name( 'AHL','AHL_RM_SUB_ZONE_NULL' );

602: END IF;
603:
604: IF ( p_associate_flag = 'S' AND ( p_prod_zone_as_rec.sub_zone_code IS NULL OR
605: p_prod_zone_as_rec.sub_zone_code = FND_API.G_MISS_CHAR )) THEN
606: FND_MESSAGE.set_name( 'AHL','AHL_RM_SUB_ZONE_NULL' );
607: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_prod_zone_as_rec ) );
608: FND_MSG_PUB.add;
609: x_return_status := FND_API.G_RET_STS_ERROR;
610: RETURN;

Line 607: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_prod_zone_as_rec ) );

603:
604: IF ( p_associate_flag = 'S' AND ( p_prod_zone_as_rec.sub_zone_code IS NULL OR
605: p_prod_zone_as_rec.sub_zone_code = FND_API.G_MISS_CHAR )) THEN
606: FND_MESSAGE.set_name( 'AHL','AHL_RM_SUB_ZONE_NULL' );
607: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_prod_zone_as_rec ) );
608: FND_MSG_PUB.add;
609: x_return_status := FND_API.G_RET_STS_ERROR;
610: RETURN;
611: END IF;

Line 617: FND_MESSAGE.set_name( 'AHL','AHL_RM_PTZ_OBJ_VERSION_NULL' );

613: IF ( p_prod_zone_as_rec.dml_operation = 'U') THEN
614: -- Check if the mandatory Object Version Number column contains a null value.
615: IF ( p_prod_zone_as_rec.object_version_number IS NULL OR
616: p_prod_zone_as_rec.object_version_number = FND_API.G_MISS_NUM ) THEN
617: FND_MESSAGE.set_name( 'AHL','AHL_RM_PTZ_OBJ_VERSION_NULL' );
618: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_prod_zone_as_rec ) );
619: FND_MSG_PUB.add;
620: x_return_status := FND_API.G_RET_STS_ERROR;
621: RETURN;

Line 618: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_prod_zone_as_rec ) );

614: -- Check if the mandatory Object Version Number column contains a null value.
615: IF ( p_prod_zone_as_rec.object_version_number IS NULL OR
616: p_prod_zone_as_rec.object_version_number = FND_API.G_MISS_NUM ) THEN
617: FND_MESSAGE.set_name( 'AHL','AHL_RM_PTZ_OBJ_VERSION_NULL' );
618: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_prod_zone_as_rec ) );
619: FND_MSG_PUB.add;
620: x_return_status := FND_API.G_RET_STS_ERROR;
621: RETURN;
622: END IF;

Line 627: FND_MESSAGE.set_name( 'AHL','AHL_RM_PRODTYPE_ZONE_ID_NULL' );

623:
624: -- Check if the mandatory prod_zone_as ID column contains a null value.
625: IF ( p_prod_zone_as_rec.prodtype_zone_id IS NULL OR
626: p_prod_zone_as_rec.prodtype_zone_id = FND_API.G_MISS_NUM ) THEN
627: FND_MESSAGE.set_name( 'AHL','AHL_RM_PRODTYPE_ZONE_ID_NULL' );
628: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_prod_zone_as_rec ) );
629: FND_MSG_PUB.add;
630: x_return_status := FND_API.G_RET_STS_ERROR;
631: RETURN;

Line 628: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_prod_zone_as_rec ) );

624: -- Check if the mandatory prod_zone_as ID column contains a null value.
625: IF ( p_prod_zone_as_rec.prodtype_zone_id IS NULL OR
626: p_prod_zone_as_rec.prodtype_zone_id = FND_API.G_MISS_NUM ) THEN
627: FND_MESSAGE.set_name( 'AHL','AHL_RM_PRODTYPE_ZONE_ID_NULL' );
628: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_prod_zone_as_rec ) );
629: FND_MSG_PUB.add;
630: x_return_status := FND_API.G_RET_STS_ERROR;
631: RETURN;
632: END IF;

Line 662: FND_MESSAGE.set_name( 'AHL','AHL_RM_NO_PRODTYPE_ZONE_AS' );

658: IF (p_associate_flag = 'S') THEN
659: OPEN get_zone_assoc(p_prod_zone_as_rec.product_type_code, p_prod_zone_as_rec.zone_code);
660: FETCH get_zone_assoc INTO l_zone_assoc;
661: IF get_zone_assoc%NOTFOUND THEN
662: FND_MESSAGE.set_name( 'AHL','AHL_RM_NO_PRODTYPE_ZONE_AS' );
663: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_prod_zone_as_rec ) );
664: FND_MSG_PUB.add;
665: x_return_status := FND_API.G_RET_STS_ERROR;
666: END IF;

Line 663: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_prod_zone_as_rec ) );

659: OPEN get_zone_assoc(p_prod_zone_as_rec.product_type_code, p_prod_zone_as_rec.zone_code);
660: FETCH get_zone_assoc INTO l_zone_assoc;
661: IF get_zone_assoc%NOTFOUND THEN
662: FND_MESSAGE.set_name( 'AHL','AHL_RM_NO_PRODTYPE_ZONE_AS' );
663: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_prod_zone_as_rec ) );
664: FND_MSG_PUB.add;
665: x_return_status := FND_API.G_RET_STS_ERROR;
666: END IF;
667: CLOSE get_zone_assoc;

Line 713: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_PRODTYPE_ZONE_DUP' );

709: END LOOP;
710:
711: IF ( get_dup_rec%ROWCOUNT > 0 ) THEN
712: CLOSE get_dup_rec;
713: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_PRODTYPE_ZONE_DUP' );
714: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( l_prod_zone_as_rec ) );
715: FND_MSG_PUB.add;
716: x_return_status := FND_API.G_RET_STS_ERROR;
717: RETURN;

Line 714: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( l_prod_zone_as_rec ) );

710:
711: IF ( get_dup_rec%ROWCOUNT > 0 ) THEN
712: CLOSE get_dup_rec;
713: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_PRODTYPE_ZONE_DUP' );
714: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( l_prod_zone_as_rec ) );
715: FND_MSG_PUB.add;
716: x_return_status := FND_API.G_RET_STS_ERROR;
717: RETURN;
718: END IF;

Line 1006: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_PRODTYPE_ZONE_DUP' );

1002:
1003: EXCEPTION
1004: WHEN OTHERS THEN
1005: IF ( SQLCODE = -1 ) THEN
1006: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_PRODTYPE_ZONE_DUP' );
1007: FND_MESSAGE.set_token( 'RECORD', get_record_identifier(p_x_prod_zone_as_tbl(i) ) );
1008: FND_MSG_PUB.add;
1009: END IF;
1010: END;

Line 1007: FND_MESSAGE.set_token( 'RECORD', get_record_identifier(p_x_prod_zone_as_tbl(i) ) );

1003: EXCEPTION
1004: WHEN OTHERS THEN
1005: IF ( SQLCODE = -1 ) THEN
1006: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_PRODTYPE_ZONE_DUP' );
1007: FND_MESSAGE.set_token( 'RECORD', get_record_identifier(p_x_prod_zone_as_tbl(i) ) );
1008: FND_MSG_PUB.add;
1009: END IF;
1010: END;
1011:

Line 1045: FND_MESSAGE.set_name('AHL','AHL_RM_RECORD_CHANGED');

1041: AND object_version_number = p_x_prod_zone_as_tbl(i).object_version_number;
1042:
1043: -- If the record does not exist, then, abort API.
1044: IF ( SQL%ROWCOUNT = 0 ) THEN
1045: FND_MESSAGE.set_name('AHL','AHL_RM_RECORD_CHANGED');
1046: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_x_prod_zone_as_tbl(i) ) );
1047: FND_MSG_PUB.add;
1048: END IF;
1049:

Line 1046: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_x_prod_zone_as_tbl(i) ) );

1042:
1043: -- If the record does not exist, then, abort API.
1044: IF ( SQL%ROWCOUNT = 0 ) THEN
1045: FND_MESSAGE.set_name('AHL','AHL_RM_RECORD_CHANGED');
1046: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_x_prod_zone_as_tbl(i) ) );
1047: FND_MSG_PUB.add;
1048: END IF;
1049:
1050: -- Set OUT values

Line 1056: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_PRODTYPE_ZONE_DUP' );

1052:
1053: EXCEPTION
1054: WHEN OTHERS THEN
1055: IF ( SQLCODE = -1 ) THEN
1056: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_PRODTYPE_ZONE_DUP' );
1057: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_x_prod_zone_as_tbl(i) ) );
1058: FND_MSG_PUB.add;
1059: END IF;
1060: END;

Line 1057: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_x_prod_zone_as_tbl(i) ) );

1053: EXCEPTION
1054: WHEN OTHERS THEN
1055: IF ( SQLCODE = -1 ) THEN
1056: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_PRODTYPE_ZONE_DUP' );
1057: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_x_prod_zone_as_tbl(i) ) );
1058: FND_MSG_PUB.add;
1059: END IF;
1060: END;
1061:

Line 1067: FND_MESSAGE.set_name('AHL','AHL_RM_INVALID_PROD_ZONE_REC');

1063:
1064: OPEN get_prod_zone_rec(p_x_prod_zone_as_tbl(i).prodtype_zone_id);
1065: FETCH get_prod_zone_rec INTO l_get_prod_zone_rec;
1066: IF get_prod_zone_rec%NOTFOUND THEN
1067: FND_MESSAGE.set_name('AHL','AHL_RM_INVALID_PROD_ZONE_REC');
1068: FND_MESSAGE.set_token( 'RECORD', TO_CHAR( i ) );
1069: FND_MSG_PUB.add;
1070: CLOSE get_prod_zone_rec;
1071: RAISE FND_API.G_EXC_ERROR;

Line 1068: FND_MESSAGE.set_token( 'RECORD', TO_CHAR( i ) );

1064: OPEN get_prod_zone_rec(p_x_prod_zone_as_tbl(i).prodtype_zone_id);
1065: FETCH get_prod_zone_rec INTO l_get_prod_zone_rec;
1066: IF get_prod_zone_rec%NOTFOUND THEN
1067: FND_MESSAGE.set_name('AHL','AHL_RM_INVALID_PROD_ZONE_REC');
1068: FND_MESSAGE.set_token( 'RECORD', TO_CHAR( i ) );
1069: FND_MSG_PUB.add;
1070: CLOSE get_prod_zone_rec;
1071: RAISE FND_API.G_EXC_ERROR;
1072: END IF;

Line 1082: FND_MESSAGE.set_name('AHL','AHL_RM_RECORD_CHANGED');

1078: AND object_version_number = p_x_prod_zone_as_tbl(i).object_version_number;
1079:
1080: -- If the record does not exist, then, abort API.
1081: IF ( SQL%ROWCOUNT = 0 ) THEN
1082: FND_MESSAGE.set_name('AHL','AHL_RM_RECORD_CHANGED');
1083: FND_MESSAGE.set_token( 'RECORD', TO_CHAR( i ) );
1084: FND_MSG_PUB.add;
1085: ELSE
1086: IF l_get_prod_zone_rec.sub_zone_code IS NULL THEN

Line 1083: FND_MESSAGE.set_token( 'RECORD', TO_CHAR( i ) );

1079:
1080: -- If the record does not exist, then, abort API.
1081: IF ( SQL%ROWCOUNT = 0 ) THEN
1082: FND_MESSAGE.set_name('AHL','AHL_RM_RECORD_CHANGED');
1083: FND_MESSAGE.set_token( 'RECORD', TO_CHAR( i ) );
1084: FND_MSG_PUB.add;
1085: ELSE
1086: IF l_get_prod_zone_rec.sub_zone_code IS NULL THEN
1087: DELETE FROM AHL_PRODTYPE_ZONES