110: x_found := get_ident_resource%FOUND;
111: close get_ident_resource;
112:
113: if (not x_found) then
114: fnd_message.set_name(
115: application => 'WIP',
116: name => 'WIP_MISMATCHED_RES');
117: fnd_message.raise_error;
118: end if;
113: if (not x_found) then
114: fnd_message.set_name(
115: application => 'WIP',
116: name => 'WIP_MISMATCHED_RES');
117: fnd_message.raise_error;
118: end if;
119: end;
120: end if;
121:
125: when OTHERS then
126: wip_constants.get_ora_error(
127: application => 'WIP',
128: proc_name => 'WIP_OPERATION_RESOURCES_PKG.ADD_RESOURCE');
129: fnd_message.raise_error;
130: end add_resource;
131:
132: procedure check_dup_resources(
133: p_group_id in number,
577: OPEN C;
578: FETCH C INTO Recinfo;
579: if (C%NOTFOUND) then
580: CLOSE C;
581: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
582: FND_MESSAGE.raise_error;
583: APP_EXCEPTION.raise_exception;
584: end if;
585: CLOSE C;
578: FETCH C INTO Recinfo;
579: if (C%NOTFOUND) then
580: CLOSE C;
581: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
582: FND_MESSAGE.raise_error;
583: APP_EXCEPTION.raise_exception;
584: end if;
585: CLOSE C;
586: if (
668:
669: ) then
670: return;
671: else
672: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
673: FND_MESSAGE.raise_error;
674: APP_EXCEPTION.RAISE_EXCEPTION;
675: end if;
676: END Lock_Row;
669: ) then
670: return;
671: else
672: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
673: FND_MESSAGE.raise_error;
674: APP_EXCEPTION.RAISE_EXCEPTION;
675: end if;
676: END Lock_Row;
677: