112: x_found := get_ident_resource%FOUND;
113: close get_ident_resource;
114:
115: if (not x_found) then
116: fnd_message.set_name(
117: application => 'WIP',
118: name => 'WIP_MISMATCHED_RES');
119: fnd_message.raise_error;
120: end if;
115: if (not x_found) then
116: fnd_message.set_name(
117: application => 'WIP',
118: name => 'WIP_MISMATCHED_RES');
119: fnd_message.raise_error;
120: end if;
121: end;
122: end if;
123:
127: when OTHERS then
128: wip_constants.get_ora_error(
129: application => 'WIP',
130: proc_name => 'WIP_SUB_OPERATION_RESOURCES_PKG.ADD_RESOURCE');
131: fnd_message.raise_error;
132: end add_resource;
133:
134: procedure check_dup_resources(
135: p_group_id in number,
579: OPEN C;
580: FETCH C INTO Recinfo;
581: if (C%NOTFOUND) then
582: CLOSE C;
583: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
584: FND_MESSAGE.raise_error;
585: APP_EXCEPTION.raise_exception;
586: end if;
587: CLOSE C;
580: FETCH C INTO Recinfo;
581: if (C%NOTFOUND) then
582: CLOSE C;
583: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
584: FND_MESSAGE.raise_error;
585: APP_EXCEPTION.raise_exception;
586: end if;
587: CLOSE C;
588: if (
669:
670: ) then
671: return;
672: else
673: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
674: FND_MESSAGE.raise_error;
675: APP_EXCEPTION.RAISE_EXCEPTION;
676: end if;
677: END Lock_Row;
670: ) then
671: return;
672: else
673: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
674: FND_MESSAGE.raise_error;
675: APP_EXCEPTION.RAISE_EXCEPTION;
676: end if;
677: END Lock_Row;
678:
860:
861: /* BUG 4715338 -> CAN'T SUBSTITUTE RESOURCE, IF THERE ARE PENDING CLOCK-INS. */
862: L_PENDING_CLOCKS := WIP_WS_TIME_ENTRY.IS_CLOCK_PENDING(l_Wip_Entity_Id, l_operation_seq_num);
863: IF (L_PENDING_CLOCKS <> 'N') THEN
864: FND_MESSAGE.SET_NAME(APPLICATION => 'WIP',
865: NAME => 'WIP_PENDING_CLOCKS');
866: FND_MSG_PUB.ADD;
867: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
868: END IF;
880: p_wip_entity_id => l_wip_entity_id,
881: p_op_seq => l_operation_seq_num,
882: p_sub_group => l_substitute_group_num,
883: p_line_id => l_line_id) = TRUE) THEN
884: fnd_message.set_name(application => 'WIP',
885: name => 'WIP_REPLACE_APPLIED_RES');
886: fnd_msg_pub.add;
887: raise fnd_api.g_exc_unexpected_error;
888: END IF;