[Home] [Help]
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
150: (
260: *********************************************************************/
261: PROCEDURE UPDATE_ROW
262: (
263: p_isolation_header_rec IN EAM_PROCESS_SAFETY_PUB.eam_iso_header_rec_type ,
264: x_mesg_token_Tbl OUT NOCOPY EAM_ERROR_MESSAGE_PVT.Mesg_Token_Tbl_Type ,
265: x_return_Status OUT NOCOPY VARCHAR2
266: )
267: IS
268: BEGIN
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 ,
324: access to when he/she needs to perform any kind of writes to the table.
325: *********************************************************************/
326: PROCEDURE PERFORM_WRITES(
327: p_isolation_header_rec IN EAM_PROCESS_SAFETY_PUB.eam_iso_header_rec_type ,
328: x_mesg_token_Tbl OUT NOCOPY EAM_ERROR_MESSAGE_PVT.Mesg_Token_Tbl_Type ,
329: x_return_Status OUT NOCOPY VARCHAR2 )
330: IS
331: l_msg_data VARCHAR2(240);
332: l_return_status VARCHAR2(1):= FND_API.G_RET_STS_SUCCESS;
358: p_user_id IN NUMBER ,
359: p_responsibility_id IN NUMBER ,
360: p_transaction_type IN NUMBER ,
361: x_return_status OUT NOCOPY VARCHAR2 ,
362: x_Mesg_Token_Tbl OUT NOCOPY EAM_ERROR_MESSAGE_PVT.Mesg_Token_Tbl_Type )
363: IS
364: l_isolation_id NUMBER := 0;
365: l_current_status NUMBER := 0;
366: l_to_status_type 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;
378: l_to_status_type := p_to_status_type;
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
386: raise fnd_api.g_exc_unexpected_error;
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
394: SET STATUS_TYPE = l_to_status_type
414: , p_event IN VARCHAR2
415: , p_status IN VARCHAR2
416: , p_details IN VARCHAR2
417: , p_user_id IN NUMBER
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;
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;