[Home] [Help]
60:
61: -- Check if a valid value is passed in p_association_type_code
62: IF ( p_association_type_code = FND_API.G_MISS_CHAR OR
63: p_association_type_code IS NULL ) THEN
64: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_ASSOC_TYPE_NULL' );
65: FND_MSG_PUB.add;
66: x_return_status := FND_API.G_RET_STS_ERROR;
67: RETURN;
68: ELSIF ( p_association_type_code <> 'OPERATION' AND
66: x_return_status := FND_API.G_RET_STS_ERROR;
67: RETURN;
68: ELSIF ( p_association_type_code <> 'OPERATION' AND
69: p_association_type_code <> 'ROUTE' ) THEN
70: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_ASSOC_TYPE_INVALID' );
71: FND_MESSAGE.set_token( 'FIELD', p_association_type_code );
72: FND_MSG_PUB.add;
73: x_return_status := FND_API.G_RET_STS_ERROR;
74: RETURN;
67: RETURN;
68: ELSIF ( p_association_type_code <> 'OPERATION' AND
69: p_association_type_code <> 'ROUTE' ) THEN
70: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_ASSOC_TYPE_INVALID' );
71: FND_MESSAGE.set_token( 'FIELD', p_association_type_code );
72: FND_MSG_PUB.add;
73: x_return_status := FND_API.G_RET_STS_ERROR;
74: RETURN;
75: END IF;
82: x_return_status => l_return_status,
83: x_msg_data => l_msg_data
84: );
85: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
86: FND_MESSAGE.set_name( 'AHL', l_msg_data );
87: FND_MSG_PUB.add;
88: x_return_status := FND_API.G_RET_STS_ERROR;
89: RETURN;
90: END IF;
95: x_return_status => l_return_status,
96: x_msg_data => l_msg_data
97: );
98: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
99: FND_MESSAGE.set_name( 'AHL', l_msg_data );
100: FND_MSG_PUB.add;
101: x_return_status := FND_API.G_RET_STS_ERROR;
102: RETURN;
103: END IF;
104: END IF;
105:
106: -- Check if at least one record is passed in p_rt_oper_resource_tbl
107: IF ( p_rt_oper_resource_tbl.count < 1 ) THEN
108: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_INVALID_PROCEDURE_CALL' );
109: FND_MESSAGE.set_token( 'PROCEDURE', G_PKG_NAME || '.' || G_API_NAME1 );
110: FND_MSG_PUB.add;
111: x_return_status := FND_API.G_RET_STS_ERROR;
112: RETURN;
105:
106: -- Check if at least one record is passed in p_rt_oper_resource_tbl
107: IF ( p_rt_oper_resource_tbl.count < 1 ) THEN
108: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_INVALID_PROCEDURE_CALL' );
109: FND_MESSAGE.set_token( 'PROCEDURE', G_PKG_NAME || '.' || G_API_NAME1 );
110: FND_MSG_PUB.add;
111: x_return_status := FND_API.G_RET_STS_ERROR;
112: RETURN;
113: END IF;
121: p_rt_oper_resource_tbl(i).dml_operation <> 'D'
122: )
123: )
124: THEN
125: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_INVALID_DML' );
126: FND_MESSAGE.set_token( 'FIELD', p_rt_oper_resource_tbl(i).dml_operation );
127: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_rt_oper_resource_tbl(i) ) );
128: FND_MSG_PUB.add;
129: x_return_status := FND_API.G_RET_STS_ERROR;
122: )
123: )
124: THEN
125: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_INVALID_DML' );
126: FND_MESSAGE.set_token( 'FIELD', p_rt_oper_resource_tbl(i).dml_operation );
127: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_rt_oper_resource_tbl(i) ) );
128: FND_MSG_PUB.add;
129: x_return_status := FND_API.G_RET_STS_ERROR;
130: RETURN;
123: )
124: THEN
125: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_INVALID_DML' );
126: FND_MESSAGE.set_token( 'FIELD', p_rt_oper_resource_tbl(i).dml_operation );
127: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_rt_oper_resource_tbl(i) ) );
128: FND_MSG_PUB.add;
129: x_return_status := FND_API.G_RET_STS_ERROR;
130: RETURN;
131: END IF;
185: );
186:
187: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
188: IF ( l_msg_data = 'AHL_COM_INVALID_MFG_LOOKUP' ) THEN
189: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_INVALID_RESOURCE_TYPE' );
190: ELSIF ( l_msg_data = 'AHL_COM_TOO_MANY_MFG_LOOKUPS' ) THEN
191: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_TOO_MANY_RESOURCE_TYPES' );
192: ELSE
193: FND_MESSAGE.set_name( 'AHL', l_msg_data );
187: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
188: IF ( l_msg_data = 'AHL_COM_INVALID_MFG_LOOKUP' ) THEN
189: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_INVALID_RESOURCE_TYPE' );
190: ELSIF ( l_msg_data = 'AHL_COM_TOO_MANY_MFG_LOOKUPS' ) THEN
191: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_TOO_MANY_RESOURCE_TYPES' );
192: ELSE
193: FND_MESSAGE.set_name( 'AHL', l_msg_data );
194: END IF;
195:
189: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_INVALID_RESOURCE_TYPE' );
190: ELSIF ( l_msg_data = 'AHL_COM_TOO_MANY_MFG_LOOKUPS' ) THEN
191: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_TOO_MANY_RESOURCE_TYPES' );
192: ELSE
193: FND_MESSAGE.set_name( 'AHL', l_msg_data );
194: END IF;
195:
196: IF ( p_x_rt_oper_resource_rec.resource_type IS NULL OR
197: p_x_rt_oper_resource_rec.resource_type = FND_API.G_MISS_CHAR ) THEN
194: END IF;
195:
196: IF ( p_x_rt_oper_resource_rec.resource_type IS NULL OR
197: p_x_rt_oper_resource_rec.resource_type = FND_API.G_MISS_CHAR ) THEN
198: FND_MESSAGE.set_token( 'FIELD', TO_CHAR( p_x_rt_oper_resource_rec.resource_type_id ) );
199: ELSE
200: FND_MESSAGE.set_token( 'FIELD', p_x_rt_oper_resource_rec.resource_type );
201: END IF;
202:
196: IF ( p_x_rt_oper_resource_rec.resource_type IS NULL OR
197: p_x_rt_oper_resource_rec.resource_type = FND_API.G_MISS_CHAR ) THEN
198: FND_MESSAGE.set_token( 'FIELD', TO_CHAR( p_x_rt_oper_resource_rec.resource_type_id ) );
199: ELSE
200: FND_MESSAGE.set_token( 'FIELD', p_x_rt_oper_resource_rec.resource_type );
201: END IF;
202:
203: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_x_rt_oper_resource_rec ) );
204: FND_MSG_PUB.add;
199: ELSE
200: FND_MESSAGE.set_token( 'FIELD', p_x_rt_oper_resource_rec.resource_type );
201: END IF;
202:
203: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_x_rt_oper_resource_rec ) );
204: FND_MSG_PUB.add;
205: END IF;
206:
207: END IF;
221: p_x_aso_resource_id => p_x_rt_oper_resource_rec.aso_resource_id
222: );
223:
224: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
225: FND_MESSAGE.set_name( 'AHL', l_msg_data );
226:
227: IF ( p_x_rt_oper_resource_rec.aso_resource_name IS NULL OR
228: p_x_rt_oper_resource_rec.aso_resource_name = FND_API.G_MISS_CHAR ) THEN
229: FND_MESSAGE.set_token( 'FIELD', TO_CHAR( p_x_rt_oper_resource_rec.aso_resource_id ) );
225: FND_MESSAGE.set_name( 'AHL', l_msg_data );
226:
227: IF ( p_x_rt_oper_resource_rec.aso_resource_name IS NULL OR
228: p_x_rt_oper_resource_rec.aso_resource_name = FND_API.G_MISS_CHAR ) THEN
229: FND_MESSAGE.set_token( 'FIELD', TO_CHAR( p_x_rt_oper_resource_rec.aso_resource_id ) );
230: ELSE
231: FND_MESSAGE.set_token( 'FIELD', p_x_rt_oper_resource_rec.aso_resource_name );
232: END IF;
233:
227: IF ( p_x_rt_oper_resource_rec.aso_resource_name IS NULL OR
228: p_x_rt_oper_resource_rec.aso_resource_name = FND_API.G_MISS_CHAR ) THEN
229: FND_MESSAGE.set_token( 'FIELD', TO_CHAR( p_x_rt_oper_resource_rec.aso_resource_id ) );
230: ELSE
231: FND_MESSAGE.set_token( 'FIELD', p_x_rt_oper_resource_rec.aso_resource_name );
232: END IF;
233:
234: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_x_rt_oper_resource_rec ) );
235: FND_MSG_PUB.add;
230: ELSE
231: FND_MESSAGE.set_token( 'FIELD', p_x_rt_oper_resource_rec.aso_resource_name );
232: END IF;
233:
234: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_x_rt_oper_resource_rec ) );
235: FND_MSG_PUB.add;
236: END IF;
237:
238: END IF;
255: );
256:
257: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
258: IF ( l_msg_data = 'AHL_RM_INVALID_MFG_LOOKUP' ) THEN
259: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_INVALID_SCHEDULE_TYPE' );
260: ELSIF ( l_msg_data = 'AHL_RM_TOO_MANY_MFG_LOOKUPS' ) THEN
261: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_TOO_MANY_SCHEDULE_TYPES' );
262: ELSE
263: FND_MESSAGE.set_name( 'AHL', l_msg_data );
257: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
258: IF ( l_msg_data = 'AHL_RM_INVALID_MFG_LOOKUP' ) THEN
259: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_INVALID_SCHEDULE_TYPE' );
260: ELSIF ( l_msg_data = 'AHL_RM_TOO_MANY_MFG_LOOKUPS' ) THEN
261: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_TOO_MANY_SCHEDULE_TYPES' );
262: ELSE
263: FND_MESSAGE.set_name( 'AHL', l_msg_data );
264: END IF;
265:
259: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_INVALID_SCHEDULE_TYPE' );
260: ELSIF ( l_msg_data = 'AHL_RM_TOO_MANY_MFG_LOOKUPS' ) THEN
261: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_TOO_MANY_SCHEDULE_TYPES' );
262: ELSE
263: FND_MESSAGE.set_name( 'AHL', l_msg_data );
264: END IF;
265:
266: IF ( p_x_rt_oper_resource_rec.scheduled_type IS NULL OR
267: p_x_rt_oper_resource_rec.scheduled_type = FND_API.G_MISS_CHAR ) THEN
264: END IF;
265:
266: IF ( p_x_rt_oper_resource_rec.scheduled_type IS NULL OR
267: p_x_rt_oper_resource_rec.scheduled_type = FND_API.G_MISS_CHAR ) THEN
268: FND_MESSAGE.set_token( 'FIELD', TO_CHAR( p_x_rt_oper_resource_rec.scheduled_type_id ) );
269: ELSE
270: FND_MESSAGE.set_token( 'FIELD', p_x_rt_oper_resource_rec.scheduled_type);
271: END IF;
272:
266: IF ( p_x_rt_oper_resource_rec.scheduled_type IS NULL OR
267: p_x_rt_oper_resource_rec.scheduled_type = FND_API.G_MISS_CHAR ) THEN
268: FND_MESSAGE.set_token( 'FIELD', TO_CHAR( p_x_rt_oper_resource_rec.scheduled_type_id ) );
269: ELSE
270: FND_MESSAGE.set_token( 'FIELD', p_x_rt_oper_resource_rec.scheduled_type);
271: END IF;
272:
273: FND_MSG_PUB.add;
274: END IF;
492: l_old_rt_oper_resource_rec.schedule_seq ;
493: -- Bug # 7644260 (FP for ER # 6998882) -- end
494:
495: IF get_old_rec%NOTFOUND THEN
496: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_INVALID_RES_REC' );
497: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_x_rt_oper_resource_rec ) );
498: FND_MSG_PUB.add;
499: CLOSE get_old_rec;
500: RAISE FND_API.G_EXC_ERROR;
493: -- Bug # 7644260 (FP for ER # 6998882) -- end
494:
495: IF get_old_rec%NOTFOUND THEN
496: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_INVALID_RES_REC' );
497: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_x_rt_oper_resource_rec ) );
498: FND_MSG_PUB.add;
499: CLOSE get_old_rec;
500: RAISE FND_API.G_EXC_ERROR;
501: END IF;
708: IF ( ( p_rt_oper_resource_rec.dml_operation = 'C' AND
709: p_rt_oper_resource_rec.aso_resource_id IS NULL ) OR
710: ( p_rt_oper_resource_rec.dml_operation <> 'D' AND
711: p_rt_oper_resource_rec.aso_resource_id = FND_API.G_MISS_NUM ) ) THEN
712: FND_MESSAGE.set_name( 'AHL','AHL_RM_ASO_RES_NULL' );
713: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_rt_oper_resource_rec ) );
714: FND_MSG_PUB.add;
715: END IF;
716:
709: p_rt_oper_resource_rec.aso_resource_id IS NULL ) OR
710: ( p_rt_oper_resource_rec.dml_operation <> 'D' AND
711: p_rt_oper_resource_rec.aso_resource_id = FND_API.G_MISS_NUM ) ) THEN
712: FND_MESSAGE.set_name( 'AHL','AHL_RM_ASO_RES_NULL' );
713: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_rt_oper_resource_rec ) );
714: FND_MSG_PUB.add;
715: END IF;
716:
717: -- Check if the mandatory quantity column contains a positive value.
718: IF ( ( p_rt_oper_resource_rec.dml_operation = 'C' AND
719: p_rt_oper_resource_rec.quantity IS NULL ) OR
720: ( p_rt_oper_resource_rec.dml_operation <> 'D' AND
721: p_rt_oper_resource_rec.quantity = FND_API.G_MISS_NUM ) ) THEN
722: FND_MESSAGE.set_name( 'AHL','AHL_RM_RES_QTY_NULL' );
723: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_rt_oper_resource_rec ) );
724: FND_MSG_PUB.add;
725: ELSIF ( p_rt_oper_resource_rec.dml_operation <> 'D' AND
726: p_rt_oper_resource_rec.quantity <= 0 ) THEN
719: p_rt_oper_resource_rec.quantity IS NULL ) OR
720: ( p_rt_oper_resource_rec.dml_operation <> 'D' AND
721: p_rt_oper_resource_rec.quantity = FND_API.G_MISS_NUM ) ) THEN
722: FND_MESSAGE.set_name( 'AHL','AHL_RM_RES_QTY_NULL' );
723: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_rt_oper_resource_rec ) );
724: FND_MSG_PUB.add;
725: ELSIF ( p_rt_oper_resource_rec.dml_operation <> 'D' AND
726: p_rt_oper_resource_rec.quantity <= 0 ) THEN
727: FND_MESSAGE.set_name( 'AHL','AHL_RM_RES_QTY_LESS_ZERO' );
723: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_rt_oper_resource_rec ) );
724: FND_MSG_PUB.add;
725: ELSIF ( p_rt_oper_resource_rec.dml_operation <> 'D' AND
726: p_rt_oper_resource_rec.quantity <= 0 ) THEN
727: FND_MESSAGE.set_name( 'AHL','AHL_RM_RES_QTY_LESS_ZERO' );
728: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_rt_oper_resource_rec ) );
729: FND_MSG_PUB.add;
730: END IF;
731:
724: FND_MSG_PUB.add;
725: ELSIF ( p_rt_oper_resource_rec.dml_operation <> 'D' AND
726: p_rt_oper_resource_rec.quantity <= 0 ) THEN
727: FND_MESSAGE.set_name( 'AHL','AHL_RM_RES_QTY_LESS_ZERO' );
728: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_rt_oper_resource_rec ) );
729: FND_MSG_PUB.add;
730: END IF;
731:
732: -- Check if the mandatory duration column contains a positive value.
733: IF ( ( p_rt_oper_resource_rec.dml_operation = 'C' AND
734: p_rt_oper_resource_rec.duration IS NULL ) OR
735: ( p_rt_oper_resource_rec.dml_operation <> 'D' AND
736: p_rt_oper_resource_rec.duration = FND_API.G_MISS_NUM ) ) THEN
737: FND_MESSAGE.set_name( 'AHL','AHL_RM_DURATION_NULL' );
738: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_rt_oper_resource_rec ) );
739: FND_MSG_PUB.add;
740: ELSIF ( p_rt_oper_resource_rec.dml_operation <> 'D' AND
741: p_rt_oper_resource_rec.duration <= 0 ) THEN
734: p_rt_oper_resource_rec.duration IS NULL ) OR
735: ( p_rt_oper_resource_rec.dml_operation <> 'D' AND
736: p_rt_oper_resource_rec.duration = FND_API.G_MISS_NUM ) ) THEN
737: FND_MESSAGE.set_name( 'AHL','AHL_RM_DURATION_NULL' );
738: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_rt_oper_resource_rec ) );
739: FND_MSG_PUB.add;
740: ELSIF ( p_rt_oper_resource_rec.dml_operation <> 'D' AND
741: p_rt_oper_resource_rec.duration <= 0 ) THEN
742: FND_MESSAGE.set_name( 'AHL','AHL_RM_DURATION_LESS_ZERO' );
738: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_rt_oper_resource_rec ) );
739: FND_MSG_PUB.add;
740: ELSIF ( p_rt_oper_resource_rec.dml_operation <> 'D' AND
741: p_rt_oper_resource_rec.duration <= 0 ) THEN
742: FND_MESSAGE.set_name( 'AHL','AHL_RM_DURATION_LESS_ZERO' );
743: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_rt_oper_resource_rec ) );
744: FND_MSG_PUB.add;
745: END IF;
746:
739: FND_MSG_PUB.add;
740: ELSIF ( p_rt_oper_resource_rec.dml_operation <> 'D' AND
741: p_rt_oper_resource_rec.duration <= 0 ) THEN
742: FND_MESSAGE.set_name( 'AHL','AHL_RM_DURATION_LESS_ZERO' );
743: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_rt_oper_resource_rec ) );
744: FND_MSG_PUB.add;
745: END IF;
746:
747: -- Bug # 7644260 (FP for ER # 6998882) -- start
749: IF ( p_rt_oper_resource_rec.dml_operation <> 'D' AND
750: p_rt_oper_resource_rec.schedule_seq IS NOT NULL AND
751: p_rt_oper_resource_rec.schedule_seq <> FND_API.G_MISS_NUM AND
752: p_rt_oper_resource_rec.schedule_seq <= 0 ) THEN
753: FND_MESSAGE.set_name( 'AHL','AHL_RM_RES_SEQ_LESS_ZERO' );
754: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_rt_oper_resource_rec ) );
755: FND_MSG_PUB.add;
756: --Check if the schedule sequence column contains a whole number.
757: ELSIF ( p_rt_oper_resource_rec.dml_operation <> 'D' AND
750: p_rt_oper_resource_rec.schedule_seq IS NOT NULL AND
751: p_rt_oper_resource_rec.schedule_seq <> FND_API.G_MISS_NUM AND
752: p_rt_oper_resource_rec.schedule_seq <= 0 ) THEN
753: FND_MESSAGE.set_name( 'AHL','AHL_RM_RES_SEQ_LESS_ZERO' );
754: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_rt_oper_resource_rec ) );
755: FND_MSG_PUB.add;
756: --Check if the schedule sequence column contains a whole number.
757: ELSIF ( p_rt_oper_resource_rec.dml_operation <> 'D' AND
758: p_rt_oper_resource_rec.schedule_seq IS NOT NULL AND
757: ELSIF ( p_rt_oper_resource_rec.dml_operation <> 'D' AND
758: p_rt_oper_resource_rec.schedule_seq IS NOT NULL AND
759: p_rt_oper_resource_rec.schedule_seq <> FND_API.G_MISS_NUM AND
760: TRUNC(p_rt_oper_resource_rec.schedule_seq) <> p_rt_oper_resource_rec.schedule_seq ) THEN
761: FND_MESSAGE.set_name( 'AHL','AHL_COM_SCHED_SEQ_INV' );
762: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_rt_oper_resource_rec ) );
763: FND_MSG_PUB.add;
764: END IF;
765: -- Bug # 7644260 (FP for ER # 6998882) -- end
758: p_rt_oper_resource_rec.schedule_seq IS NOT NULL AND
759: p_rt_oper_resource_rec.schedule_seq <> FND_API.G_MISS_NUM AND
760: TRUNC(p_rt_oper_resource_rec.schedule_seq) <> p_rt_oper_resource_rec.schedule_seq ) THEN
761: FND_MESSAGE.set_name( 'AHL','AHL_COM_SCHED_SEQ_INV' );
762: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_rt_oper_resource_rec ) );
763: FND_MSG_PUB.add;
764: END IF;
765: -- Bug # 7644260 (FP for ER # 6998882) -- end
766:
769: ( p_rt_oper_resource_rec.resource_type IS NULL OR
770: p_rt_oper_resource_rec.resource_type = FND_API.G_MISS_CHAR ) AND
771: ( p_rt_oper_resource_rec.resource_type_id IS NULL OR
772: p_rt_oper_resource_rec.resource_type_id = FND_API.G_MISS_NUM ) ) THEN
773: FND_MESSAGE.set_name( 'AHL','AHL_RM_RES_TYPE_NULL' );
774: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_rt_oper_resource_rec ) );
775: FND_MSG_PUB.add;
776: ELSIF ( p_rt_oper_resource_rec.dml_operation = 'U' AND
777: p_rt_oper_resource_rec.resource_type = FND_API.G_MISS_CHAR AND
770: p_rt_oper_resource_rec.resource_type = FND_API.G_MISS_CHAR ) AND
771: ( p_rt_oper_resource_rec.resource_type_id IS NULL OR
772: p_rt_oper_resource_rec.resource_type_id = FND_API.G_MISS_NUM ) ) THEN
773: FND_MESSAGE.set_name( 'AHL','AHL_RM_RES_TYPE_NULL' );
774: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_rt_oper_resource_rec ) );
775: FND_MSG_PUB.add;
776: ELSIF ( p_rt_oper_resource_rec.dml_operation = 'U' AND
777: p_rt_oper_resource_rec.resource_type = FND_API.G_MISS_CHAR AND
778: p_rt_oper_resource_rec.resource_type_id = FND_API.G_MISS_NUM ) THEN
775: FND_MSG_PUB.add;
776: ELSIF ( p_rt_oper_resource_rec.dml_operation = 'U' AND
777: p_rt_oper_resource_rec.resource_type = FND_API.G_MISS_CHAR AND
778: p_rt_oper_resource_rec.resource_type_id = FND_API.G_MISS_NUM ) THEN
779: FND_MESSAGE.set_name( 'AHL','AHL_RM_RES_TYPE_NULL' );
780: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_rt_oper_resource_rec ) );
781: FND_MSG_PUB.add;
782: END IF;
783: -- Get all the error messages from the previous steps (if any) and raise the appropriate Exception
776: ELSIF ( p_rt_oper_resource_rec.dml_operation = 'U' AND
777: p_rt_oper_resource_rec.resource_type = FND_API.G_MISS_CHAR AND
778: p_rt_oper_resource_rec.resource_type_id = FND_API.G_MISS_NUM ) THEN
779: FND_MESSAGE.set_name( 'AHL','AHL_RM_RES_TYPE_NULL' );
780: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_rt_oper_resource_rec ) );
781: FND_MSG_PUB.add;
782: END IF;
783: -- Get all the error messages from the previous steps (if any) and raise the appropriate Exception
784: l_msg_count := FND_MSG_PUB.count_msg;
804: x_max_rt_time_span => l_max_rt_time_span
805: );
806:
807: IF ( NVL( l_return_status, 'X' ) <> FND_API.G_RET_STS_SUCCESS ) THEN
808: FND_MESSAGE.set_name( 'AHL', l_msg_data );
809: FND_MESSAGE.set_token( 'FIELD1', p_rt_oper_resource_rec.duration );
810: FND_MESSAGE.set_token( 'FIELD2', l_max_rt_time_span );
811: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_rt_oper_resource_rec ) );
812: FND_MSG_PUB.add;
805: );
806:
807: IF ( NVL( l_return_status, 'X' ) <> FND_API.G_RET_STS_SUCCESS ) THEN
808: FND_MESSAGE.set_name( 'AHL', l_msg_data );
809: FND_MESSAGE.set_token( 'FIELD1', p_rt_oper_resource_rec.duration );
810: FND_MESSAGE.set_token( 'FIELD2', l_max_rt_time_span );
811: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_rt_oper_resource_rec ) );
812: FND_MSG_PUB.add;
813: END IF;
806:
807: IF ( NVL( l_return_status, 'X' ) <> FND_API.G_RET_STS_SUCCESS ) THEN
808: FND_MESSAGE.set_name( 'AHL', l_msg_data );
809: FND_MESSAGE.set_token( 'FIELD1', p_rt_oper_resource_rec.duration );
810: FND_MESSAGE.set_token( 'FIELD2', l_max_rt_time_span );
811: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_rt_oper_resource_rec ) );
812: FND_MSG_PUB.add;
813: END IF;
814: END IF;
807: IF ( NVL( l_return_status, 'X' ) <> FND_API.G_RET_STS_SUCCESS ) THEN
808: FND_MESSAGE.set_name( 'AHL', l_msg_data );
809: FND_MESSAGE.set_token( 'FIELD1', p_rt_oper_resource_rec.duration );
810: FND_MESSAGE.set_token( 'FIELD2', l_max_rt_time_span );
811: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_rt_oper_resource_rec ) );
812: FND_MSG_PUB.add;
813: END IF;
814: END IF;
815: -- end changes for fix 6512803. */
821: -- Check if the ASO resource already existing as an alternate resource when updating the primary ASO resource.
822: OPEN check_alternate_resource(p_rt_oper_resource_rec.rt_oper_resource_id, p_rt_oper_resource_rec.aso_resource_id);
823: FETCH check_alternate_resource into l_dummy;
824: IF check_alternate_resource%FOUND THEN
825: FND_MESSAGE.set_name( 'AHL','AHL_RM_ALTERNATE_RES_EXISTS' );
826: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_rt_oper_resource_rec ) );
827: FND_MSG_PUB.add;
828: END IF;
829: CLOSE check_alternate_resource;
822: OPEN check_alternate_resource(p_rt_oper_resource_rec.rt_oper_resource_id, p_rt_oper_resource_rec.aso_resource_id);
823: FETCH check_alternate_resource into l_dummy;
824: IF check_alternate_resource%FOUND THEN
825: FND_MESSAGE.set_name( 'AHL','AHL_RM_ALTERNATE_RES_EXISTS' );
826: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_rt_oper_resource_rec ) );
827: FND_MSG_PUB.add;
828: END IF;
829: CLOSE check_alternate_resource;
830:
830:
831: -- Check if the mandatory Object Version Number column contains a null value.
832: IF ( p_rt_oper_resource_rec.object_version_number IS NULL OR
833: p_rt_oper_resource_rec.object_version_number = FND_API.G_MISS_NUM ) THEN
834: FND_MESSAGE.set_name( 'AHL','AHL_RM_RES_OBJ_VERSION_NULL' );
835: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_rt_oper_resource_rec ) );
836: FND_MSG_PUB.add;
837: END IF;
838:
831: -- Check if the mandatory Object Version Number column contains a null value.
832: IF ( p_rt_oper_resource_rec.object_version_number IS NULL OR
833: p_rt_oper_resource_rec.object_version_number = FND_API.G_MISS_NUM ) THEN
834: FND_MESSAGE.set_name( 'AHL','AHL_RM_RES_OBJ_VERSION_NULL' );
835: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_rt_oper_resource_rec ) );
836: FND_MSG_PUB.add;
837: END IF;
838:
839: -- Check if the mandatory rt_oper_resource ID column contains a null value.
838:
839: -- Check if the mandatory rt_oper_resource ID column contains a null value.
840: IF ( p_rt_oper_resource_rec.rt_oper_resource_id IS NULL OR
841: p_rt_oper_resource_rec.rt_oper_resource_id = FND_API.G_MISS_NUM ) THEN
842: FND_MESSAGE.set_name( 'AHL','AHL_RM_RT_OPER_RES_ID_NULL' );
843: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_rt_oper_resource_rec ) );
844: FND_MSG_PUB.add;
845: END IF;
846:
839: -- Check if the mandatory rt_oper_resource ID column contains a null value.
840: IF ( p_rt_oper_resource_rec.rt_oper_resource_id IS NULL OR
841: p_rt_oper_resource_rec.rt_oper_resource_id = FND_API.G_MISS_NUM ) THEN
842: FND_MESSAGE.set_name( 'AHL','AHL_RM_RT_OPER_RES_ID_NULL' );
843: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_rt_oper_resource_rec ) );
844: FND_MSG_PUB.add;
845: END IF;
846:
847: -- Get the old record from AHL_RT_OPER_RESOURCES.
860: FETCH alternate_resource_csr INTO l_alternate_resource_id;
861: -- Check if alternate resources are defined for the primary resource, if so throw error that
862: -- "Resource type cannot be changed if alternate resources are defined".
863: IF alternate_resource_csr%FOUND THEN
864: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_RES_TYPE_NO_CHG' );
865: -- get_record_identifier can't be used here as it takes old record as parameter.
866: FND_MESSAGE.set_token( 'RECORD', l_old_rt_oper_resource_rec.resource_type
867: || ' - '
868: || l_old_rt_oper_resource_rec.aso_resource_name);
862: -- "Resource type cannot be changed if alternate resources are defined".
863: IF alternate_resource_csr%FOUND THEN
864: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_RES_TYPE_NO_CHG' );
865: -- get_record_identifier can't be used here as it takes old record as parameter.
866: FND_MESSAGE.set_token( 'RECORD', l_old_rt_oper_resource_rec.resource_type
867: || ' - '
868: || l_old_rt_oper_resource_rec.aso_resource_name);
869: FND_MSG_PUB.add;
870: RAISE FND_API.G_EXC_ERROR;
922:
923: IF ( check_resource_type%NOTFOUND ) THEN
924:
925: x_return_status := FND_API.G_RET_STS_ERROR ;
926: FND_MESSAGE.set_name( 'AHL','AHL_RM_INVALID_TYPE_ASO_RES' );
927:
928: IF ( p_rt_oper_resource_rec.aso_resource_name IS NULL ) THEN
929: FND_MESSAGE.set_token( 'FIELD1', TO_CHAR( p_rt_oper_resource_rec.aso_resource_id ) );
930: ELSE
925: x_return_status := FND_API.G_RET_STS_ERROR ;
926: FND_MESSAGE.set_name( 'AHL','AHL_RM_INVALID_TYPE_ASO_RES' );
927:
928: IF ( p_rt_oper_resource_rec.aso_resource_name IS NULL ) THEN
929: FND_MESSAGE.set_token( 'FIELD1', TO_CHAR( p_rt_oper_resource_rec.aso_resource_id ) );
930: ELSE
931: FND_MESSAGE.set_token( 'FIELD1', p_rt_oper_resource_rec.aso_resource_name );
932: END IF;
933:
927:
928: IF ( p_rt_oper_resource_rec.aso_resource_name IS NULL ) THEN
929: FND_MESSAGE.set_token( 'FIELD1', TO_CHAR( p_rt_oper_resource_rec.aso_resource_id ) );
930: ELSE
931: FND_MESSAGE.set_token( 'FIELD1', p_rt_oper_resource_rec.aso_resource_name );
932: END IF;
933:
934: IF ( p_rt_oper_resource_rec.resource_type IS NULL ) THEN
935: FND_MESSAGE.set_token( 'FIELD2', TO_CHAR( p_rt_oper_resource_rec.resource_type_id ) );
931: FND_MESSAGE.set_token( 'FIELD1', p_rt_oper_resource_rec.aso_resource_name );
932: END IF;
933:
934: IF ( p_rt_oper_resource_rec.resource_type IS NULL ) THEN
935: FND_MESSAGE.set_token( 'FIELD2', TO_CHAR( p_rt_oper_resource_rec.resource_type_id ) );
936: ELSE
937: FND_MESSAGE.set_token( 'FIELD2', p_rt_oper_resource_rec.resource_type );
938: END IF;
939:
933:
934: IF ( p_rt_oper_resource_rec.resource_type IS NULL ) THEN
935: FND_MESSAGE.set_token( 'FIELD2', TO_CHAR( p_rt_oper_resource_rec.resource_type_id ) );
936: ELSE
937: FND_MESSAGE.set_token( 'FIELD2', p_rt_oper_resource_rec.resource_type );
938: END IF;
939:
940: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_rt_oper_resource_rec ) );
941: FND_MSG_PUB.add;
936: ELSE
937: FND_MESSAGE.set_token( 'FIELD2', p_rt_oper_resource_rec.resource_type );
938: END IF;
939:
940: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_rt_oper_resource_rec ) );
941: FND_MSG_PUB.add;
942: END IF;
943: END IF;
944:
964: );
965:
966: IF ( NVL( l_return_status, 'X' ) <> FND_API.G_RET_STS_SUCCESS ) THEN
967: x_return_status := FND_API.G_RET_STS_ERROR ;
968: FND_MESSAGE.set_name( 'AHL', l_msg_data );
969: FND_MESSAGE.set_token( 'FIELD1', p_rt_oper_resource_rec.duration );
970: FND_MESSAGE.set_token( 'FIELD2', l_max_rt_time_span );
971: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_rt_oper_resource_rec ) );
972: FND_MSG_PUB.add;
965:
966: IF ( NVL( l_return_status, 'X' ) <> FND_API.G_RET_STS_SUCCESS ) THEN
967: x_return_status := FND_API.G_RET_STS_ERROR ;
968: FND_MESSAGE.set_name( 'AHL', l_msg_data );
969: FND_MESSAGE.set_token( 'FIELD1', p_rt_oper_resource_rec.duration );
970: FND_MESSAGE.set_token( 'FIELD2', l_max_rt_time_span );
971: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_rt_oper_resource_rec ) );
972: FND_MSG_PUB.add;
973: --dbms_output.put_line('validate_resource_duration error');
966: IF ( NVL( l_return_status, 'X' ) <> FND_API.G_RET_STS_SUCCESS ) THEN
967: x_return_status := FND_API.G_RET_STS_ERROR ;
968: FND_MESSAGE.set_name( 'AHL', l_msg_data );
969: FND_MESSAGE.set_token( 'FIELD1', p_rt_oper_resource_rec.duration );
970: FND_MESSAGE.set_token( 'FIELD2', l_max_rt_time_span );
971: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_rt_oper_resource_rec ) );
972: FND_MSG_PUB.add;
973: --dbms_output.put_line('validate_resource_duration error');
974: END IF;
967: x_return_status := FND_API.G_RET_STS_ERROR ;
968: FND_MESSAGE.set_name( 'AHL', l_msg_data );
969: FND_MESSAGE.set_token( 'FIELD1', p_rt_oper_resource_rec.duration );
970: FND_MESSAGE.set_token( 'FIELD2', l_max_rt_time_span );
971: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_rt_oper_resource_rec ) );
972: FND_MSG_PUB.add;
973: --dbms_output.put_line('validate_resource_duration error');
974: END IF;
975: END IF;
1081: END LOOP;
1082:
1083: IF ( get_dup_rec%ROWCOUNT > 0 ) THEN
1084: CLOSE get_dup_rec;
1085: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_RT_OPER_RESOURCE_DUP' );
1086: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( l_rt_oper_resource_rec ) );
1087: FND_MSG_PUB.add;
1088: x_return_status := FND_API.G_RET_STS_ERROR;
1089: RETURN;
1082:
1083: IF ( get_dup_rec%ROWCOUNT > 0 ) THEN
1084: CLOSE get_dup_rec;
1085: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_RT_OPER_RESOURCE_DUP' );
1086: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( l_rt_oper_resource_rec ) );
1087: FND_MSG_PUB.add;
1088: x_return_status := FND_API.G_RET_STS_ERROR;
1089: RETURN;
1090: END IF;
1109: IF l_bom_asso_type IS null THEN
1110: l_bom_asso_type := l_dummy;
1111:
1112: ELSIF l_bom_asso_type <> l_dummy THEN
1113: FND_MESSAGE.set_name('AHL', 'AHL_RM_DIFF_BOM_ASSO_TYPES');
1114: FND_MSG_PUB.add;
1115: x_return_status := FND_API.G_RET_STS_ERROR;
1116: RETURN;
1117: END IF;
1128: FETCH get_dept_conflicts INTO l_dummy;
1129:
1130: IF ( get_dept_conflicts%FOUND ) THEN
1131: CLOSE get_dept_conflicts;
1132: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_DEP_CONFLICT_RES' );
1133: FND_MSG_PUB.add;
1134: x_return_status := FND_API.G_RET_STS_ERROR;
1135: RETURN;
1136: END IF;
1152: FETCH get_dept_conflicts_alt_res INTO l_dummy;
1153:
1154: IF ( get_dept_conflicts_alt_res%FOUND ) THEN
1155: CLOSE get_dept_conflicts_alt_res;
1156: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_DEP_CONFLICT_RES' );
1157: FND_MSG_PUB.add;
1158: x_return_status := FND_API.G_RET_STS_ERROR;
1159: RAISE FND_API.G_EXC_ERROR;
1160: END IF;
1429: l_return_status
1430: );
1431:
1432: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1433: FND_MESSAGE.SET_NAME('AHL',l_msg_data);
1434: FND_MSG_PUB.ADD;
1435: x_return_status := l_return_status;
1436: RETURN;
1437: END IF;
1460: l_return_status
1461: );
1462:
1463: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1464: FND_MESSAGE.SET_NAME('AHL',l_msg_data);
1465: FND_MSG_PUB.ADD;
1466: x_return_status := l_return_status;
1467: RETURN;
1468: END IF;
1569:
1570: EXCEPTION
1571: WHEN OTHERS THEN
1572: IF ( SQLCODE = -1 ) THEN
1573: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_RT_OPER_RESOURCE_DUP' );
1574: FND_MESSAGE.set_token( 'RECORD', get_record_identifier(p_x_rt_oper_resource_tbl(i) ) );
1575: FND_MSG_PUB.add;
1576: ELSE
1577: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
1570: EXCEPTION
1571: WHEN OTHERS THEN
1572: IF ( SQLCODE = -1 ) THEN
1573: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_RT_OPER_RESOURCE_DUP' );
1574: FND_MESSAGE.set_token( 'RECORD', get_record_identifier(p_x_rt_oper_resource_tbl(i) ) );
1575: FND_MSG_PUB.add;
1576: ELSE
1577: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
1578: fnd_log.string
1622: AND object_version_number = p_x_rt_oper_resource_tbl(i).object_version_number;
1623:
1624: -- If the record does not exist, then, abort API.
1625: IF ( SQL%ROWCOUNT = 0 ) THEN
1626: FND_MESSAGE.set_name('AHL','AHL_RM_RECORD_CHANGED');
1627: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_x_rt_oper_resource_tbl(i) ) );
1628: FND_MSG_PUB.add;
1629: END IF;
1630:
1623:
1624: -- If the record does not exist, then, abort API.
1625: IF ( SQL%ROWCOUNT = 0 ) THEN
1626: FND_MESSAGE.set_name('AHL','AHL_RM_RECORD_CHANGED');
1627: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_x_rt_oper_resource_tbl(i) ) );
1628: FND_MSG_PUB.add;
1629: END IF;
1630:
1631: -- Set OUT values
1633:
1634: EXCEPTION
1635: WHEN OTHERS THEN
1636: IF ( SQLCODE = -1 ) THEN
1637: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_RT_OPER_RESOURCE_DUP' );
1638: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_x_rt_oper_resource_tbl(i) ) );
1639: FND_MSG_PUB.add;
1640: ELSE
1641: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
1634: EXCEPTION
1635: WHEN OTHERS THEN
1636: IF ( SQLCODE = -1 ) THEN
1637: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_RT_OPER_RESOURCE_DUP' );
1638: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_x_rt_oper_resource_tbl(i) ) );
1639: FND_MSG_PUB.add;
1640: ELSE
1641: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
1642: fnd_log.string
1662: AND object_version_number = p_x_rt_oper_resource_tbl(i).object_version_number;
1663:
1664: -- If the record does not exist, then, abort API.
1665: IF ( SQL%ROWCOUNT = 0 ) THEN
1666: FND_MESSAGE.set_name('AHL','AHL_RM_RECORD_CHANGED');
1667: FND_MESSAGE.set_token( 'RECORD', TO_CHAR( i ) );
1668: FND_MSG_PUB.add;
1669: END IF;
1670: END IF;
1663:
1664: -- If the record does not exist, then, abort API.
1665: IF ( SQL%ROWCOUNT = 0 ) THEN
1666: FND_MESSAGE.set_name('AHL','AHL_RM_RECORD_CHANGED');
1667: FND_MESSAGE.set_token( 'RECORD', TO_CHAR( i ) );
1668: FND_MSG_PUB.add;
1669: END IF;
1670: END IF;
1671: END LOOP;
1818: );
1819:
1820: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
1821: IF ( l_msg_data = 'AHL_RM_INVALID_MFG_LOOKUP' ) THEN
1822: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_INVALID_COST_BASIS' );
1823: ELSIF ( l_msg_data = 'AHL_RM_TOO_MANY_MFG_LOOKUPS' ) THEN
1824: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_TOO_MANY_COST_BASIS' );
1825: ELSE
1826: FND_MESSAGE.set_name( 'AHL', l_msg_data );
1820: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
1821: IF ( l_msg_data = 'AHL_RM_INVALID_MFG_LOOKUP' ) THEN
1822: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_INVALID_COST_BASIS' );
1823: ELSIF ( l_msg_data = 'AHL_RM_TOO_MANY_MFG_LOOKUPS' ) THEN
1824: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_TOO_MANY_COST_BASIS' );
1825: ELSE
1826: FND_MESSAGE.set_name( 'AHL', l_msg_data );
1827: END IF;
1828:
1822: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_INVALID_COST_BASIS' );
1823: ELSIF ( l_msg_data = 'AHL_RM_TOO_MANY_MFG_LOOKUPS' ) THEN
1824: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_TOO_MANY_COST_BASIS' );
1825: ELSE
1826: FND_MESSAGE.set_name( 'AHL', l_msg_data );
1827: END IF;
1828:
1829: IF ( p_x_rt_oper_cost_rec.cost_basis IS NULL OR
1830: p_x_rt_oper_cost_rec.cost_basis = FND_API.G_MISS_CHAR ) THEN
1827: END IF;
1828:
1829: IF ( p_x_rt_oper_cost_rec.cost_basis IS NULL OR
1830: p_x_rt_oper_cost_rec.cost_basis = FND_API.G_MISS_CHAR ) THEN
1831: FND_MESSAGE.set_token( 'FIELD', TO_CHAR( p_x_rt_oper_cost_rec.cost_basis_id ) );
1832: ELSE
1833: FND_MESSAGE.set_token( 'FIELD', p_x_rt_oper_cost_rec.cost_basis );
1834: END IF;
1835:
1829: IF ( p_x_rt_oper_cost_rec.cost_basis IS NULL OR
1830: p_x_rt_oper_cost_rec.cost_basis = FND_API.G_MISS_CHAR ) THEN
1831: FND_MESSAGE.set_token( 'FIELD', TO_CHAR( p_x_rt_oper_cost_rec.cost_basis_id ) );
1832: ELSE
1833: FND_MESSAGE.set_token( 'FIELD', p_x_rt_oper_cost_rec.cost_basis );
1834: END IF;
1835:
1836: FND_MSG_PUB.add;
1837: END IF;
1853: p_x_activity_id => p_x_rt_oper_cost_rec.activity_id
1854: );
1855:
1856: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
1857: FND_MESSAGE.set_name( 'AHL', l_msg_data );
1858:
1859: IF ( p_x_rt_oper_cost_rec.activity IS NULL OR
1860: p_x_rt_oper_cost_rec.activity = FND_API.G_MISS_CHAR ) THEN
1861: FND_MESSAGE.set_token( 'FIELD', TO_CHAR( p_x_rt_oper_cost_rec.activity_id ) );
1857: FND_MESSAGE.set_name( 'AHL', l_msg_data );
1858:
1859: IF ( p_x_rt_oper_cost_rec.activity IS NULL OR
1860: p_x_rt_oper_cost_rec.activity = FND_API.G_MISS_CHAR ) THEN
1861: FND_MESSAGE.set_token( 'FIELD', TO_CHAR( p_x_rt_oper_cost_rec.activity_id ) );
1862: ELSE
1863: FND_MESSAGE.set_token( 'FIELD', p_x_rt_oper_cost_rec.activity );
1864: END IF;
1865:
1859: IF ( p_x_rt_oper_cost_rec.activity IS NULL OR
1860: p_x_rt_oper_cost_rec.activity = FND_API.G_MISS_CHAR ) THEN
1861: FND_MESSAGE.set_token( 'FIELD', TO_CHAR( p_x_rt_oper_cost_rec.activity_id ) );
1862: ELSE
1863: FND_MESSAGE.set_token( 'FIELD', p_x_rt_oper_cost_rec.activity );
1864: END IF;
1865:
1866: FND_MSG_PUB.add;
1867: END IF;
1885: );
1886:
1887: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
1888: IF ( l_msg_data = 'AHL_RM_INVALID_MFG_LOOKUP' ) THEN
1889: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_INVALID_SCHEDULE_TYPE' );
1890: ELSIF ( l_msg_data = 'AHL_RM_TOO_MANY_MFG_LOOKUPS' ) THEN
1891: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_TOO_MANY_SCHEDULE_TYPES' );
1892: ELSE
1893: FND_MESSAGE.set_name( 'AHL', l_msg_data );
1887: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
1888: IF ( l_msg_data = 'AHL_RM_INVALID_MFG_LOOKUP' ) THEN
1889: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_INVALID_SCHEDULE_TYPE' );
1890: ELSIF ( l_msg_data = 'AHL_RM_TOO_MANY_MFG_LOOKUPS' ) THEN
1891: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_TOO_MANY_SCHEDULE_TYPES' );
1892: ELSE
1893: FND_MESSAGE.set_name( 'AHL', l_msg_data );
1894: END IF;
1895:
1889: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_INVALID_SCHEDULE_TYPE' );
1890: ELSIF ( l_msg_data = 'AHL_RM_TOO_MANY_MFG_LOOKUPS' ) THEN
1891: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_TOO_MANY_SCHEDULE_TYPES' );
1892: ELSE
1893: FND_MESSAGE.set_name( 'AHL', l_msg_data );
1894: END IF;
1895:
1896: IF ( p_x_rt_oper_cost_rec.scheduled_type IS NULL OR
1897: p_x_rt_oper_cost_rec.scheduled_type = FND_API.G_MISS_CHAR ) THEN
1894: END IF;
1895:
1896: IF ( p_x_rt_oper_cost_rec.scheduled_type IS NULL OR
1897: p_x_rt_oper_cost_rec.scheduled_type = FND_API.G_MISS_CHAR ) THEN
1898: FND_MESSAGE.set_token( 'FIELD', TO_CHAR( p_x_rt_oper_cost_rec.scheduled_type_id ) );
1899: ELSE
1900: FND_MESSAGE.set_token( 'FIELD', p_x_rt_oper_cost_rec.scheduled_type );
1901: END IF;
1902:
1896: IF ( p_x_rt_oper_cost_rec.scheduled_type IS NULL OR
1897: p_x_rt_oper_cost_rec.scheduled_type = FND_API.G_MISS_CHAR ) THEN
1898: FND_MESSAGE.set_token( 'FIELD', TO_CHAR( p_x_rt_oper_cost_rec.scheduled_type_id ) );
1899: ELSE
1900: FND_MESSAGE.set_token( 'FIELD', p_x_rt_oper_cost_rec.scheduled_type );
1901: END IF;
1902:
1903: FND_MSG_PUB.add;
1904: END IF;
1922: );
1923:
1924: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
1925: IF ( l_msg_data = 'AHL_RM_INVALID_MFG_LOOKUP' ) THEN
1926: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_INVALID_ACHARGE_TYPE' );
1927: ELSIF ( l_msg_data = 'AHL_RM_TOO_MANY_MFG_LOOKUPS' ) THEN
1928: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_TOO_MANY_ACHARGE_TYPES' );
1929: ELSE
1930: FND_MESSAGE.set_name( 'AHL', l_msg_data );
1924: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
1925: IF ( l_msg_data = 'AHL_RM_INVALID_MFG_LOOKUP' ) THEN
1926: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_INVALID_ACHARGE_TYPE' );
1927: ELSIF ( l_msg_data = 'AHL_RM_TOO_MANY_MFG_LOOKUPS' ) THEN
1928: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_TOO_MANY_ACHARGE_TYPES' );
1929: ELSE
1930: FND_MESSAGE.set_name( 'AHL', l_msg_data );
1931: END IF;
1932:
1926: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_INVALID_ACHARGE_TYPE' );
1927: ELSIF ( l_msg_data = 'AHL_RM_TOO_MANY_MFG_LOOKUPS' ) THEN
1928: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_TOO_MANY_ACHARGE_TYPES' );
1929: ELSE
1930: FND_MESSAGE.set_name( 'AHL', l_msg_data );
1931: END IF;
1932:
1933: IF ( p_x_rt_oper_cost_rec.autocharge_type IS NULL OR
1934: p_x_rt_oper_cost_rec.autocharge_type = FND_API.G_MISS_CHAR ) THEN
1931: END IF;
1932:
1933: IF ( p_x_rt_oper_cost_rec.autocharge_type IS NULL OR
1934: p_x_rt_oper_cost_rec.autocharge_type = FND_API.G_MISS_CHAR ) THEN
1935: FND_MESSAGE.set_token( 'FIELD', TO_CHAR( p_x_rt_oper_cost_rec.autocharge_type_id ) );
1936: ELSE
1937: FND_MESSAGE.set_token( 'FIELD', p_x_rt_oper_cost_rec.autocharge_type );
1938: END IF;
1939:
1933: IF ( p_x_rt_oper_cost_rec.autocharge_type IS NULL OR
1934: p_x_rt_oper_cost_rec.autocharge_type = FND_API.G_MISS_CHAR ) THEN
1935: FND_MESSAGE.set_token( 'FIELD', TO_CHAR( p_x_rt_oper_cost_rec.autocharge_type_id ) );
1936: ELSE
1937: FND_MESSAGE.set_token( 'FIELD', p_x_rt_oper_cost_rec.autocharge_type );
1938: END IF;
1939:
1940: FND_MSG_PUB.add;
1941: END IF;
1959: );
1960:
1961: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
1962: IF ( l_msg_data = 'AHL_RM_INVALID_MFG_LOOKUP' ) THEN
1963: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_INVALID_STD_RATE' );
1964: ELSIF ( l_msg_data = 'AHL_RM_TOO_MANY_MFG_LOOKUPS' ) THEN
1965: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_TOO_MANY_STD_RATES' );
1966: ELSE
1967: FND_MESSAGE.set_name( 'AHL', l_msg_data );
1961: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
1962: IF ( l_msg_data = 'AHL_RM_INVALID_MFG_LOOKUP' ) THEN
1963: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_INVALID_STD_RATE' );
1964: ELSIF ( l_msg_data = 'AHL_RM_TOO_MANY_MFG_LOOKUPS' ) THEN
1965: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_TOO_MANY_STD_RATES' );
1966: ELSE
1967: FND_MESSAGE.set_name( 'AHL', l_msg_data );
1968: END IF;
1969:
1963: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_INVALID_STD_RATE' );
1964: ELSIF ( l_msg_data = 'AHL_RM_TOO_MANY_MFG_LOOKUPS' ) THEN
1965: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_TOO_MANY_STD_RATES' );
1966: ELSE
1967: FND_MESSAGE.set_name( 'AHL', l_msg_data );
1968: END IF;
1969:
1970: IF ( p_x_rt_oper_cost_rec.standard_rate IS NULL OR
1971: p_x_rt_oper_cost_rec.standard_rate = FND_API.G_MISS_CHAR ) THEN
1968: END IF;
1969:
1970: IF ( p_x_rt_oper_cost_rec.standard_rate IS NULL OR
1971: p_x_rt_oper_cost_rec.standard_rate = FND_API.G_MISS_CHAR ) THEN
1972: FND_MESSAGE.set_token( 'FIELD', TO_CHAR( p_x_rt_oper_cost_rec.standard_rate_flag ) );
1973: ELSE
1974: FND_MESSAGE.set_token( 'FIELD', p_x_rt_oper_cost_rec.standard_rate );
1975: END IF;
1976:
1970: IF ( p_x_rt_oper_cost_rec.standard_rate IS NULL OR
1971: p_x_rt_oper_cost_rec.standard_rate = FND_API.G_MISS_CHAR ) THEN
1972: FND_MESSAGE.set_token( 'FIELD', TO_CHAR( p_x_rt_oper_cost_rec.standard_rate_flag ) );
1973: ELSE
1974: FND_MESSAGE.set_token( 'FIELD', p_x_rt_oper_cost_rec.standard_rate );
1975: END IF;
1976:
1977: FND_MSG_PUB.add;
1978: END IF;
2021: l_old_rt_oper_cost_rec.standard_rate_flag,
2022: l_old_rt_oper_cost_rec.standard_rate;
2023:
2024: IF get_old_rec%NOTFOUND THEN
2025: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_INVALID_RES' );
2026: FND_MSG_PUB.add;
2027: CLOSE get_old_rec;
2028: RAISE FND_API.G_EXC_ERROR;
2029: END IF;
2210: l_resource_type_id , -- added for 6512803.
2211: l_duration ,
2212: l_name ;
2213: IF get_object_rec%NOTFOUND THEN
2214: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_INVALID_OBJECT' );
2215: FND_MSG_PUB.add;
2216: RAISE FND_API.G_EXC_ERROR;
2217: END IF;
2218: CLOSE get_object_rec;
2225: IF (p_x_rt_oper_cost_rec.scheduled_type_id IS NOT NULL) AND
2226: (p_x_rt_oper_cost_rec.scheduled_type_id <> FND_API.G_MISS_NUM) THEN
2227: /*
2228: IF (p_x_rt_oper_cost_rec.scheduled_type_id = 1) AND (l_resource_type_id NOT IN (1,2)) THEN
2229: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_INVALID_RES_SCHEDULE_TY' );
2230: IF ( p_x_rt_oper_cost_rec.scheduled_type IS NULL OR
2231: p_x_rt_oper_cost_rec.scheduled_type = FND_API.G_MISS_CHAR ) THEN
2232: SELECT meaning
2233: INTO p_x_rt_oper_cost_rec.scheduled_type
2235: WHERE lookup_type = 'BOM_RESOURCE_SCHEDULE_TYPE'
2236: AND lookup_code = p_x_rt_oper_cost_rec.scheduled_type_id;
2237:
2238: END IF;
2239: FND_MESSAGE.set_token( 'FIELD', p_x_rt_oper_cost_rec.scheduled_type );
2240: FND_MSG_PUB.add;
2241: RAISE FND_API.G_EXC_ERROR;
2242: END IF; -- p_x_rt_oper_cost_rec.scheduled_type_id = 1
2243: */
2253: x_max_rt_time_span => l_max_rt_time_span
2254: );
2255:
2256: IF ( NVL( l_return_status, 'X' ) <> FND_API.G_RET_STS_SUCCESS ) THEN
2257: FND_MESSAGE.set_name( 'AHL', l_msg_data );
2258: FND_MESSAGE.set_token( 'FIELD1', l_duration );
2259: FND_MESSAGE.set_token( 'FIELD2', l_max_rt_time_span );
2260: FND_MESSAGE.set_token( 'RECORD', l_name);
2261: FND_MSG_PUB.add;
2254: );
2255:
2256: IF ( NVL( l_return_status, 'X' ) <> FND_API.G_RET_STS_SUCCESS ) THEN
2257: FND_MESSAGE.set_name( 'AHL', l_msg_data );
2258: FND_MESSAGE.set_token( 'FIELD1', l_duration );
2259: FND_MESSAGE.set_token( 'FIELD2', l_max_rt_time_span );
2260: FND_MESSAGE.set_token( 'RECORD', l_name);
2261: FND_MSG_PUB.add;
2262: --dbms_output.put_line('Cost: validate_resource_duration error');
2255:
2256: IF ( NVL( l_return_status, 'X' ) <> FND_API.G_RET_STS_SUCCESS ) THEN
2257: FND_MESSAGE.set_name( 'AHL', l_msg_data );
2258: FND_MESSAGE.set_token( 'FIELD1', l_duration );
2259: FND_MESSAGE.set_token( 'FIELD2', l_max_rt_time_span );
2260: FND_MESSAGE.set_token( 'RECORD', l_name);
2261: FND_MSG_PUB.add;
2262: --dbms_output.put_line('Cost: validate_resource_duration error');
2263: END IF;
2256: IF ( NVL( l_return_status, 'X' ) <> FND_API.G_RET_STS_SUCCESS ) THEN
2257: FND_MESSAGE.set_name( 'AHL', l_msg_data );
2258: FND_MESSAGE.set_token( 'FIELD1', l_duration );
2259: FND_MESSAGE.set_token( 'FIELD2', l_max_rt_time_span );
2260: FND_MESSAGE.set_token( 'RECORD', l_name);
2261: FND_MSG_PUB.add;
2262: --dbms_output.put_line('Cost: validate_resource_duration error');
2263: END IF;
2264: END IF;
2297: FETCH get_object_rec INTO
2298: l_object_id ,
2299: l_association_type_code ;
2300: IF get_object_rec%NOTFOUND THEN
2301: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_INVALID_OBJECT' );
2302: FND_MSG_PUB.add;
2303: RAISE FND_API.G_EXC_ERROR;
2304: END IF;
2305: CLOSE get_object_rec;
2321: l_return_status
2322: );
2323:
2324: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2325: FND_MESSAGE.SET_NAME('AHL',l_msg_data);
2326: FND_MSG_PUB.ADD;
2327: x_return_status := l_return_status;
2328: RETURN;
2329: END IF;
2369: l_return_status
2370: );
2371:
2372: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2373: FND_MESSAGE.SET_NAME('AHL',l_msg_data);
2374: FND_MSG_PUB.ADD;
2375: x_return_status := l_return_status;
2376: RETURN;
2377: END IF;
2411: AND object_version_number = p_x_rt_oper_cost_rec.object_version_number;
2412:
2413: -- If the record does not exist, then, abort API.
2414: IF ( SQL%ROWCOUNT = 0 ) THEN
2415: FND_MESSAGE.set_name('AHL','AHL_COM_RECORD_CHANGED');
2416: FND_MSG_PUB.add;
2417: END IF;
2418:
2419: -- Set OUT values
2522:
2523: -- Check if a valid value is passed in p_rt_oper_resource_id
2524: IF ( p_rt_oper_resource_id = FND_API.G_MISS_NUM OR
2525: p_rt_oper_resource_id IS NULL ) THEN
2526: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_RT_OPER_RES_NULL' );
2527: FND_MSG_PUB.add;
2528: x_return_status := FND_API.G_RET_STS_ERROR;
2529: RAISE FND_API.G_EXC_ERROR;
2530: END IF;
2530: END IF;
2531:
2532: -- Check if at least one record is passed in p_rt_oper_resource_tbl
2533: IF ( p_alt_resource_tbl.count < 1 ) THEN
2534: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_INVALID_PROCEDURE_CALL' );
2535: FND_MESSAGE.set_token( 'PROCEDURE', G_PKG_NAME || '.' || G_API_NAME3 );
2536: FND_MSG_PUB.add;
2537: x_return_status := FND_API.G_RET_STS_ERROR;
2538: RAISE FND_API.G_EXC_ERROR;
2531:
2532: -- Check if at least one record is passed in p_rt_oper_resource_tbl
2533: IF ( p_alt_resource_tbl.count < 1 ) THEN
2534: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_INVALID_PROCEDURE_CALL' );
2535: FND_MESSAGE.set_token( 'PROCEDURE', G_PKG_NAME || '.' || G_API_NAME3 );
2536: FND_MSG_PUB.add;
2537: x_return_status := FND_API.G_RET_STS_ERROR;
2538: RAISE FND_API.G_EXC_ERROR;
2539: END IF;
2547: p_alt_resource_tbl(i).dml_operation <> 'D'
2548: )
2549: )
2550: THEN
2551: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_INVALID_DML' );
2552: FND_MESSAGE.set_token( 'FIELD', p_alt_resource_tbl(i).dml_operation );
2553: FND_MESSAGE.set_token( 'RECORD', p_alt_resource_tbl(i).aso_resource_name );
2554: FND_MSG_PUB.add;
2555: x_return_status := FND_API.G_RET_STS_ERROR;
2548: )
2549: )
2550: THEN
2551: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_INVALID_DML' );
2552: FND_MESSAGE.set_token( 'FIELD', p_alt_resource_tbl(i).dml_operation );
2553: FND_MESSAGE.set_token( 'RECORD', p_alt_resource_tbl(i).aso_resource_name );
2554: FND_MSG_PUB.add;
2555: x_return_status := FND_API.G_RET_STS_ERROR;
2556: RAISE FND_API.G_EXC_ERROR;
2549: )
2550: THEN
2551: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_INVALID_DML' );
2552: FND_MESSAGE.set_token( 'FIELD', p_alt_resource_tbl(i).dml_operation );
2553: FND_MESSAGE.set_token( 'RECORD', p_alt_resource_tbl(i).aso_resource_name );
2554: FND_MSG_PUB.add;
2555: x_return_status := FND_API.G_RET_STS_ERROR;
2556: RAISE FND_API.G_EXC_ERROR;
2557: END IF;
2603: p_x_aso_resource_id => p_x_alt_resource_rec.aso_resource_id
2604: );
2605:
2606: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
2607: FND_MESSAGE.set_name( 'AHL', l_msg_data );
2608:
2609: IF ( p_x_alt_resource_rec.aso_resource_name IS NULL OR
2610: p_x_alt_resource_rec.aso_resource_name = FND_API.G_MISS_CHAR ) THEN
2611: FND_MESSAGE.set_token( 'FIELD', TO_CHAR( p_x_alt_resource_rec.aso_resource_id ) );
2607: FND_MESSAGE.set_name( 'AHL', l_msg_data );
2608:
2609: IF ( p_x_alt_resource_rec.aso_resource_name IS NULL OR
2610: p_x_alt_resource_rec.aso_resource_name = FND_API.G_MISS_CHAR ) THEN
2611: FND_MESSAGE.set_token( 'FIELD', TO_CHAR( p_x_alt_resource_rec.aso_resource_id ) );
2612: ELSE
2613: FND_MESSAGE.set_token( 'FIELD', p_x_alt_resource_rec.aso_resource_name );
2614: END IF;
2615:
2609: IF ( p_x_alt_resource_rec.aso_resource_name IS NULL OR
2610: p_x_alt_resource_rec.aso_resource_name = FND_API.G_MISS_CHAR ) THEN
2611: FND_MESSAGE.set_token( 'FIELD', TO_CHAR( p_x_alt_resource_rec.aso_resource_id ) );
2612: ELSE
2613: FND_MESSAGE.set_token( 'FIELD', p_x_alt_resource_rec.aso_resource_name );
2614: END IF;
2615:
2616: FND_MESSAGE.set_token( 'RECORD', p_x_alt_resource_rec.aso_resource_name );
2617: FND_MSG_PUB.add;
2612: ELSE
2613: FND_MESSAGE.set_token( 'FIELD', p_x_alt_resource_rec.aso_resource_name );
2614: END IF;
2615:
2616: FND_MESSAGE.set_token( 'RECORD', p_x_alt_resource_rec.aso_resource_name );
2617: FND_MSG_PUB.add;
2618: END IF;
2619: x_return_status := l_return_status;
2620: END IF;
2791: l_old_alt_resource_rec.attribute14,
2792: l_old_alt_resource_rec.attribute15;
2793:
2794: IF get_old_rec%NOTFOUND THEN
2795: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_INVALID_ALT_RES_REC' );
2796: FND_MESSAGE.set_token( 'RECORD', p_x_alt_resource_rec.aso_resource_name );
2797: FND_MSG_PUB.add;
2798: CLOSE get_old_rec;
2799: RAISE FND_API.G_EXC_ERROR;
2792: l_old_alt_resource_rec.attribute15;
2793:
2794: IF get_old_rec%NOTFOUND THEN
2795: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_INVALID_ALT_RES_REC' );
2796: FND_MESSAGE.set_token( 'RECORD', p_x_alt_resource_rec.aso_resource_name );
2797: FND_MSG_PUB.add;
2798: CLOSE get_old_rec;
2799: RAISE FND_API.G_EXC_ERROR;
2800: END IF;
2940: IF ( ( p_alt_resource_rec.dml_operation = 'C' AND
2941: p_alt_resource_rec.priority IS NULL ) OR
2942: ( p_alt_resource_rec.dml_operation <> 'D' AND
2943: p_alt_resource_rec.priority = FND_API.G_MISS_NUM ) ) THEN
2944: FND_MESSAGE.set_name( 'AHL','AHL_RM_PRIORITY_NULL' );
2945: FND_MESSAGE.set_token( 'RECORD', p_alt_resource_rec.aso_resource_name );
2946: FND_MSG_PUB.add;
2947: ELSIF ( p_alt_resource_rec.dml_operation <> 'D' AND
2948: p_alt_resource_rec.priority <= 0 ) THEN
2941: p_alt_resource_rec.priority IS NULL ) OR
2942: ( p_alt_resource_rec.dml_operation <> 'D' AND
2943: p_alt_resource_rec.priority = FND_API.G_MISS_NUM ) ) THEN
2944: FND_MESSAGE.set_name( 'AHL','AHL_RM_PRIORITY_NULL' );
2945: FND_MESSAGE.set_token( 'RECORD', p_alt_resource_rec.aso_resource_name );
2946: FND_MSG_PUB.add;
2947: ELSIF ( p_alt_resource_rec.dml_operation <> 'D' AND
2948: p_alt_resource_rec.priority <= 0 ) THEN
2949: FND_MESSAGE.set_name( 'AHL','AHL_RM_PRIORITY_LESS_ZERO' );
2945: FND_MESSAGE.set_token( 'RECORD', p_alt_resource_rec.aso_resource_name );
2946: FND_MSG_PUB.add;
2947: ELSIF ( p_alt_resource_rec.dml_operation <> 'D' AND
2948: p_alt_resource_rec.priority <= 0 ) THEN
2949: FND_MESSAGE.set_name( 'AHL','AHL_RM_PRIORITY_LESS_ZERO' );
2950: FND_MESSAGE.set_token( 'RECORD', p_alt_resource_rec.aso_resource_name );
2951: FND_MSG_PUB.add;
2952: ELSIF ( p_alt_resource_rec.dml_operation <> 'D' AND
2953: p_alt_resource_rec.priority > 0 ) THEN
2946: FND_MSG_PUB.add;
2947: ELSIF ( p_alt_resource_rec.dml_operation <> 'D' AND
2948: p_alt_resource_rec.priority <= 0 ) THEN
2949: FND_MESSAGE.set_name( 'AHL','AHL_RM_PRIORITY_LESS_ZERO' );
2950: FND_MESSAGE.set_token( 'RECORD', p_alt_resource_rec.aso_resource_name );
2951: FND_MSG_PUB.add;
2952: ELSIF ( p_alt_resource_rec.dml_operation <> 'D' AND
2953: p_alt_resource_rec.priority > 0 ) THEN
2954: BEGIN
2954: BEGIN
2955: l_dummy := TO_NUMBER(TO_CHAR(p_alt_resource_rec.priority), '999999');
2956: EXCEPTION
2957: WHEN OTHERS THEN
2958: FND_MESSAGE.set_name( 'AHL','AHL_RM_PRIORITY_NOT_INTEGER' );
2959: FND_MESSAGE.set_token( 'RECORD', p_alt_resource_rec.aso_resource_name );
2960: FND_MSG_PUB.add;
2961: END;
2962: END IF;
2955: l_dummy := TO_NUMBER(TO_CHAR(p_alt_resource_rec.priority), '999999');
2956: EXCEPTION
2957: WHEN OTHERS THEN
2958: FND_MESSAGE.set_name( 'AHL','AHL_RM_PRIORITY_NOT_INTEGER' );
2959: FND_MESSAGE.set_token( 'RECORD', p_alt_resource_rec.aso_resource_name );
2960: FND_MSG_PUB.add;
2961: END;
2962: END IF;
2963:
2967:
2968: -- Check if the mandatory Object Version Number column contains a null value.
2969: IF ( p_alt_resource_rec.dml_operation <> 'D' AND (p_alt_resource_rec.object_version_number IS NULL OR
2970: p_alt_resource_rec.object_version_number = FND_API.G_MISS_NUM) ) THEN
2971: FND_MESSAGE.set_name( 'AHL','AHL_RM_ALT_OBJ_VER_NUM_NULL' );
2972: FND_MESSAGE.set_token( 'RECORD', p_alt_resource_rec.aso_resource_name );
2973: FND_MSG_PUB.add;
2974: END IF;
2975:
2968: -- Check if the mandatory Object Version Number column contains a null value.
2969: IF ( p_alt_resource_rec.dml_operation <> 'D' AND (p_alt_resource_rec.object_version_number IS NULL OR
2970: p_alt_resource_rec.object_version_number = FND_API.G_MISS_NUM) ) THEN
2971: FND_MESSAGE.set_name( 'AHL','AHL_RM_ALT_OBJ_VER_NUM_NULL' );
2972: FND_MESSAGE.set_token( 'RECORD', p_alt_resource_rec.aso_resource_name );
2973: FND_MSG_PUB.add;
2974: END IF;
2975:
2976: -- Check if the mandatory rt_oper_resource ID column contains a null value.
2975:
2976: -- Check if the mandatory rt_oper_resource ID column contains a null value.
2977: IF ( p_alt_resource_rec.dml_operation <> 'D' AND (p_alt_resource_rec.alternate_resource_id IS NULL OR
2978: p_alt_resource_rec.alternate_resource_id = FND_API.G_MISS_NUM) ) THEN
2979: FND_MESSAGE.set_name( 'AHL','AHL_RM_ALT_RES_ID_NULL' );
2980: FND_MESSAGE.set_token( 'RECORD', p_alt_resource_rec.aso_resource_name );
2981: FND_MSG_PUB.add;
2982: END IF;
2983:
2976: -- Check if the mandatory rt_oper_resource ID column contains a null value.
2977: IF ( p_alt_resource_rec.dml_operation <> 'D' AND (p_alt_resource_rec.alternate_resource_id IS NULL OR
2978: p_alt_resource_rec.alternate_resource_id = FND_API.G_MISS_NUM) ) THEN
2979: FND_MESSAGE.set_name( 'AHL','AHL_RM_ALT_RES_ID_NULL' );
2980: FND_MESSAGE.set_token( 'RECORD', p_alt_resource_rec.aso_resource_name );
2981: FND_MSG_PUB.add;
2982: END IF;
2983:
2984: END validate_alt_attributes;
3010: x_return_status := FND_API.G_RET_STS_SUCCESS;
3011: OPEN check_resource_type1( p_rt_oper_resource_id);
3012: FETCH check_resource_type1 INTO l_res_type1;
3013: IF ( check_resource_type1%NOTFOUND ) THEN
3014: FND_MESSAGE.set_name( 'AHL','AHL_RM_INVALID_RT_OPER_RES_ID' );
3015: FND_MSG_PUB.add;
3016: x_return_status := FND_API.G_RET_STS_ERROR;
3017: ELSE
3018: OPEN check_resource_type2( p_alt_resource_rec.aso_resource_id);
3017: ELSE
3018: OPEN check_resource_type2( p_alt_resource_rec.aso_resource_id);
3019: FETCH check_resource_type2 INTO l_res_type2;
3020: IF ( check_resource_type2%NOTFOUND ) THEN
3021: FND_MESSAGE.set_name( 'AHL','AHL_RM_INVALID_ASO_RES_ID' );
3022: FND_MESSAGE.set_token( 'RECORD', p_alt_resource_rec.aso_resource_name );
3023: FND_MSG_PUB.add;
3024: x_return_status := FND_API.G_RET_STS_ERROR;
3025: ELSIF l_res_type1 <> l_res_type2 THEN
3018: OPEN check_resource_type2( p_alt_resource_rec.aso_resource_id);
3019: FETCH check_resource_type2 INTO l_res_type2;
3020: IF ( check_resource_type2%NOTFOUND ) THEN
3021: FND_MESSAGE.set_name( 'AHL','AHL_RM_INVALID_ASO_RES_ID' );
3022: FND_MESSAGE.set_token( 'RECORD', p_alt_resource_rec.aso_resource_name );
3023: FND_MSG_PUB.add;
3024: x_return_status := FND_API.G_RET_STS_ERROR;
3025: ELSIF l_res_type1 <> l_res_type2 THEN
3026: FND_MESSAGE.set_name( 'AHL','AHL_RM_RES_TYPE_DIFF' );
3022: FND_MESSAGE.set_token( 'RECORD', p_alt_resource_rec.aso_resource_name );
3023: FND_MSG_PUB.add;
3024: x_return_status := FND_API.G_RET_STS_ERROR;
3025: ELSIF l_res_type1 <> l_res_type2 THEN
3026: FND_MESSAGE.set_name( 'AHL','AHL_RM_RES_TYPE_DIFF' );
3027: FND_MESSAGE.set_token( 'RECORD', p_alt_resource_rec.aso_resource_name );
3028: FND_MSG_PUB.add;
3029: x_return_status := FND_API.G_RET_STS_ERROR;
3030: END IF;
3023: FND_MSG_PUB.add;
3024: x_return_status := FND_API.G_RET_STS_ERROR;
3025: ELSIF l_res_type1 <> l_res_type2 THEN
3026: FND_MESSAGE.set_name( 'AHL','AHL_RM_RES_TYPE_DIFF' );
3027: FND_MESSAGE.set_token( 'RECORD', p_alt_resource_rec.aso_resource_name );
3028: FND_MSG_PUB.add;
3029: x_return_status := FND_API.G_RET_STS_ERROR;
3030: END IF;
3031: CLOSE check_resource_type2;
3120: OPEN get_primary_res_name (p_rt_oper_resource_id);
3121: FETCH get_primary_res_name INTO l_primary_name;
3122: IF get_primary_res_name%NOTFOUND THEN
3123: CLOSE get_primary_res_name;
3124: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_INVALID_RT_OPER_RES_ID' );
3125: FND_MSG_PUB.add;
3126: x_return_status := FND_API.G_RET_STS_ERROR;
3127: RAISE FND_API.G_EXC_ERROR;
3128: ELSE
3130: OPEN get_alt_res_name (p_rt_oper_resource_id, l_primary_name);
3131: FETCH get_alt_res_name INTO l_res_name;
3132: IF get_alt_res_name%FOUND THEN
3133: CLOSE get_alt_res_name;
3134: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_PRIMARY_RESOURCE_NAME' );
3135: FND_MESSAGE.set_token( 'RECORD', l_primary_name);
3136: FND_MSG_PUB.add;
3137: x_return_status := FND_API.G_RET_STS_ERROR;
3138: RAISE FND_API.G_EXC_ERROR;
3131: FETCH get_alt_res_name INTO l_res_name;
3132: IF get_alt_res_name%FOUND THEN
3133: CLOSE get_alt_res_name;
3134: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_PRIMARY_RESOURCE_NAME' );
3135: FND_MESSAGE.set_token( 'RECORD', l_primary_name);
3136: FND_MSG_PUB.add;
3137: x_return_status := FND_API.G_RET_STS_ERROR;
3138: RAISE FND_API.G_EXC_ERROR;
3139: ELSE
3147: EXIT WHEN get_dup_rec1%NOTFOUND;
3148: END LOOP;
3149: IF ( get_dup_rec1%ROWCOUNT > 0 ) THEN
3150: CLOSE get_dup_rec1;
3151: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_ALT_RESOURCE_DUP' );
3152: FND_MESSAGE.set_token( 'RECORD', l_res_name );
3153: FND_MSG_PUB.add;
3154: x_return_status := FND_API.G_RET_STS_ERROR;
3155: RAISE FND_API.G_EXC_ERROR;
3148: END LOOP;
3149: IF ( get_dup_rec1%ROWCOUNT > 0 ) THEN
3150: CLOSE get_dup_rec1;
3151: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_ALT_RESOURCE_DUP' );
3152: FND_MESSAGE.set_token( 'RECORD', l_res_name );
3153: FND_MSG_PUB.add;
3154: x_return_status := FND_API.G_RET_STS_ERROR;
3155: RAISE FND_API.G_EXC_ERROR;
3156: END IF;
3162: EXIT WHEN get_dup_rec2%NOTFOUND;
3163: END LOOP;
3164: IF ( get_dup_rec2%ROWCOUNT > 0 ) THEN
3165: CLOSE get_dup_rec2;
3166: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_ALT_RES_PRIORITY_DUP' );
3167: FND_MESSAGE.set_token( 'RECORD', l_priority );
3168: FND_MSG_PUB.add;
3169: x_return_status := FND_API.G_RET_STS_ERROR;
3170: RAISE FND_API.G_EXC_ERROR;
3163: END LOOP;
3164: IF ( get_dup_rec2%ROWCOUNT > 0 ) THEN
3165: CLOSE get_dup_rec2;
3166: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_ALT_RES_PRIORITY_DUP' );
3167: FND_MESSAGE.set_token( 'RECORD', l_priority );
3168: FND_MSG_PUB.add;
3169: x_return_status := FND_API.G_RET_STS_ERROR;
3170: RAISE FND_API.G_EXC_ERROR;
3171: END IF;
3196: OPEN get_dept_conflicts( l_object_id, l_association_type_code, l_aso_res_id, l_alt_res_id);
3197: FETCH get_dept_conflicts INTO l_dummy;
3198: IF ( get_dept_conflicts%FOUND ) THEN
3199: CLOSE get_dept_conflicts;
3200: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_DEP_CONFLICT_RES' );
3201: FND_MSG_PUB.add;
3202: x_return_status := FND_API.G_RET_STS_ERROR;
3203: RAISE FND_API.G_EXC_ERROR;
3204: END IF;
3468:
3469: EXCEPTION
3470: WHEN OTHERS THEN
3471: IF ( SQLCODE = -1 ) THEN
3472: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_ALT_RESOURCE_DUP' );
3473: FND_MESSAGE.set_token( 'RECORD', p_x_alt_resource_tbl(i).aso_resource_name );
3474: FND_MSG_PUB.add;
3475: ELSE
3476: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
3469: EXCEPTION
3470: WHEN OTHERS THEN
3471: IF ( SQLCODE = -1 ) THEN
3472: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_ALT_RESOURCE_DUP' );
3473: FND_MESSAGE.set_token( 'RECORD', p_x_alt_resource_tbl(i).aso_resource_name );
3474: FND_MSG_PUB.add;
3475: ELSE
3476: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
3477: fnd_log.string
3515: AND object_version_number = p_x_alt_resource_tbl(i).object_version_number;
3516:
3517: -- If the record does not exist, then, abort API.
3518: IF ( SQL%ROWCOUNT = 0 ) THEN
3519: FND_MESSAGE.set_name('AHL','AHL_RM_RECORD_CHANGED');
3520: FND_MESSAGE.set_token( 'RECORD', p_x_alt_resource_tbl(i).aso_resource_name );
3521: FND_MSG_PUB.add;
3522: END IF;
3523:
3516:
3517: -- If the record does not exist, then, abort API.
3518: IF ( SQL%ROWCOUNT = 0 ) THEN
3519: FND_MESSAGE.set_name('AHL','AHL_RM_RECORD_CHANGED');
3520: FND_MESSAGE.set_token( 'RECORD', p_x_alt_resource_tbl(i).aso_resource_name );
3521: FND_MSG_PUB.add;
3522: END IF;
3523:
3524: -- Set OUT values
3526:
3527: EXCEPTION
3528: WHEN OTHERS THEN
3529: IF ( SQLCODE = -1 ) THEN
3530: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_ALT_RESOURCE_DUP' );
3531: FND_MESSAGE.set_token( 'RECORD', p_x_alt_resource_tbl(i).aso_resource_name );
3532: FND_MSG_PUB.add;
3533: ELSE
3534: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
3527: EXCEPTION
3528: WHEN OTHERS THEN
3529: IF ( SQLCODE = -1 ) THEN
3530: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_ALT_RESOURCE_DUP' );
3531: FND_MESSAGE.set_token( 'RECORD', p_x_alt_resource_tbl(i).aso_resource_name );
3532: FND_MSG_PUB.add;
3533: ELSE
3534: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
3535: fnd_log.string
3550: AND object_version_number = p_x_alt_resource_tbl(i).object_version_number;
3551:
3552: -- If the record does not exist, then, abort API.
3553: IF ( SQL%ROWCOUNT = 0 ) THEN
3554: FND_MESSAGE.set_name('AHL','AHL_RM_RECORD_CHANGED');
3555: FND_MESSAGE.set_token( 'RECORD', TO_CHAR( i ) );
3556: FND_MSG_PUB.add;
3557: END IF;
3558: END IF;
3551:
3552: -- If the record does not exist, then, abort API.
3553: IF ( SQL%ROWCOUNT = 0 ) THEN
3554: FND_MESSAGE.set_name('AHL','AHL_RM_RECORD_CHANGED');
3555: FND_MESSAGE.set_token( 'RECORD', TO_CHAR( i ) );
3556: FND_MSG_PUB.add;
3557: END IF;
3558: END IF;
3559: END LOOP;