[Home] [Help]
121: l_isolation_header_rec.CREATED_BY
122: FROM EAM_ISOLATIONS iso
123: WHERE iso.isolation_id = p_isolation_id
124: AND iso.organization_id = p_organization_id;
125: x_return_status := EAM_PROCESS_WO_PVT.G_RECORD_FOUND;
126: x_isolation_header_rec := l_isolation_header_rec;
127: EXCEPTION
128: WHEN NO_DATA_FOUND THEN
129: x_return_status := EAM_PROCESS_WO_PVT.G_RECORD_NOT_FOUND;
125: x_return_status := EAM_PROCESS_WO_PVT.G_RECORD_FOUND;
126: x_isolation_header_rec := l_isolation_header_rec;
127: EXCEPTION
128: WHEN NO_DATA_FOUND THEN
129: x_return_status := EAM_PROCESS_WO_PVT.G_RECORD_NOT_FOUND;
130: x_isolation_header_rec := l_isolation_header_rec;
131: WHEN OTHERS THEN
132: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
133: x_isolation_header_rec := l_isolation_header_rec;
141: p_isolation_header_rec IN EAM_PROCESS_SAFETY_PUB.eam_iso_header_rec_type ,
142: x_return_Status OUT NOCOPY VARCHAR2 )
143: IS
144: BEGIN
145: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN
146: EAM_ERROR_MESSAGE_PVT.Write_Debug('Writing Isolation record for ' || p_isolation_header_rec.ISOLATION_NAME);
147: END IF;
148: INSERT
149: INTO EAM_ISOLATIONS
265: x_return_Status OUT NOCOPY VARCHAR2
266: )
267: IS
268: BEGIN
269: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug ('Updating Isolation rec for ' || p_isolation_header_rec.ISOLATION_NAME);END IF;
270:
271: UPDATE EAM_ISOLATIONS
272: SET DESCRIPTION =p_isolation_header_rec.DESCRIPTION ,
273: EFFECTIVE_START_DATE =p_isolation_header_rec.EFFECTIVE_START_DATE ,
330: IS
331: l_msg_data VARCHAR2(240);
332: l_return_status VARCHAR2(1):= FND_API.G_RET_STS_SUCCESS;
333: BEGIN
334: IF p_isolation_header_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE THEN
335: Insert_Row ( p_isolation_header_rec => p_isolation_header_rec
336: , x_return_Status => l_return_status
337: );
338: ELSIF p_isolation_header_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_UPDATE THEN
334: IF p_isolation_header_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE THEN
335: Insert_Row ( p_isolation_header_rec => p_isolation_header_rec
336: , x_return_Status => l_return_status
337: );
338: ELSIF p_isolation_header_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_UPDATE THEN
339: Update_Row ( p_isolation_header_rec => p_isolation_header_rec
340: , x_mesg_token_Tbl => x_mesg_token_Tbl
341: , x_return_Status => l_return_status
342: );
369: l_user_id NUMBER :=0;
370: l_responsibility_id NUMBER :=0;
371: BEGIN
372: SAVEPOINT CHANGE_ISOLATION_STATUS;
373: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN
374: EAM_ERROR_MESSAGE_PVT.Write_Debug('Inside CHANGE_ISOLATION_STATUS ');
375: END IF;
376: l_isolation_id := p_isolation_id;
377: l_organization_id := p_organization_id;
377: l_organization_id := p_organization_id;
378: l_to_status_type := p_to_status_type;
379: l_user_id := p_user_id;
380: l_responsibility_id := p_responsibility_id;
381: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN
382: EAM_ERROR_MESSAGE_PVT.Write_Debug('Validating Status');
383: END IF;
384: -- Validate status_id
385: IF l_to_status_type NOT IN (WIP_CONSTANTS.RELEASED, WIP_CONSTANTS.COMP_CHRG,WIP_CONSTANTS.COMP_NOCHRG, WIP_CONSTANTS.CANCELLED, WIP_CONSTANTS.DRAFT) THEN
385: IF l_to_status_type NOT IN (WIP_CONSTANTS.RELEASED, WIP_CONSTANTS.COMP_CHRG,WIP_CONSTANTS.COMP_NOCHRG, WIP_CONSTANTS.CANCELLED, WIP_CONSTANTS.DRAFT) THEN
386: raise fnd_api.g_exc_unexpected_error;
387: END IF;
388: -- Update status in tablesolation
389: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN
390: EAM_ERROR_MESSAGE_PVT.Write_Debug('Update status in isolation table');
391: END IF;
392: BEGIN
393: UPDATE EAM_ISOLATIONS
418: , x_mesg_token_Tbl OUT NOCOPY EAM_ERROR_MESSAGE_PVT.Mesg_Token_Tbl_Type
419: , x_return_Status OUT NOCOPY VARCHAR2
420: )IS
421: BEGIN
422: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Inside INSERT_ISOLATION_HISTORY_ROW '); END IF;
423: END INSERT_ISOLATION_HISTORY_ROW; */
424: END EAM_ISOLATION_UTILITY_PVT;