DBA Data[Home] [Help]

APPS.EAM_PROCESS_CLEARANCE_PVT dependencies on EAM_PROCESS_WO_PVT

Line 69: IF EAM_PROCESS_WO_PVT.get_debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.write_debug(' Inside EAM_PROCESS_CLEARANCE_PVT.PROCESS_WORK_CLEARANCE'); end if;

65: BEGIN
66:
67: SAVEPOINT PROCESS_WORK_CLEARANCE;
68:
69: IF EAM_PROCESS_WO_PVT.get_debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.write_debug(' Inside EAM_PROCESS_CLEARANCE_PVT.PROCESS_WORK_CLEARANCE'); end if;
70:
71: IF EAM_PROCESS_WO_PVT.get_debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.write_debug(' Calling WORK_CLEARANCE from PROCESS_WORK_CLEARANCE'); end if;
72:
73: WORK_CLEARANCE

Line 71: IF EAM_PROCESS_WO_PVT.get_debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.write_debug(' Calling WORK_CLEARANCE from PROCESS_WORK_CLEARANCE'); end if;

67: SAVEPOINT PROCESS_WORK_CLEARANCE;
68:
69: IF EAM_PROCESS_WO_PVT.get_debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.write_debug(' Inside EAM_PROCESS_CLEARANCE_PVT.PROCESS_WORK_CLEARANCE'); end if;
70:
71: IF EAM_PROCESS_WO_PVT.get_debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.write_debug(' Calling WORK_CLEARANCE from PROCESS_WORK_CLEARANCE'); end if;
72:
73: WORK_CLEARANCE
74: (
75: p_validation_level => l_validation_level

Line 97: IF EAM_PROCESS_WO_PVT.get_debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.write_debug(' Calling ESTABLISHMENT from PROCESS_WORK_CLEARANCE'); end if;

93: l_clearance_id :=x_work_clearance_header_rec.work_clearance_id;
94:
95:
96: IF p_clearance_establishment_tbl.COUNT > 0 THEN
97: IF EAM_PROCESS_WO_PVT.get_debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.write_debug(' Calling ESTABLISHMENT from PROCESS_WORK_CLEARANCE'); end if;
98:
99: EAM_PROCESS_ISOLATION_PVT.ESTABLISHMENT
100: (
101: p_organization_id => p_work_clearance_header_rec.organization_id

Line 121: IF EAM_PROCESS_WO_PVT.get_debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.write_debug(' Calling Re-ESTABLISHMENT from PROCESS_WORK_CLEARANCE'); end if;

117: raise fnd_api.g_exc_unexpected_error;
118: END IF;
119:
120: IF p_clearance_re_estabish_tbl.COUNT > 0 THEN
121: IF EAM_PROCESS_WO_PVT.get_debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.write_debug(' Calling Re-ESTABLISHMENT from PROCESS_WORK_CLEARANCE'); end if;
122:
123: EAM_PROCESS_ISOLATION_PVT.ESTABLISHMENT
124: (
125: p_organization_id => p_work_clearance_header_rec.organization_id

Line 145: IF EAM_PROCESS_WO_PVT.get_debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.write_debug(' Calling PERMIT_CLEARANCE_ASSOCIATION from PROCESS_WORK_CLEARANCE'); end if;

141: raise fnd_api.g_exc_unexpected_error;
142: END IF;
143:
144: IF p_clearance_permit_asso_tbl.COUNT > 0 THEN
145: IF EAM_PROCESS_WO_PVT.get_debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.write_debug(' Calling PERMIT_CLEARANCE_ASSOCIATION from PROCESS_WORK_CLEARANCE'); end if;
146:
147: FOR i in p_clearance_permit_asso_tbl.FIRST..p_clearance_permit_asso_tbl.LAST LOOP
148:
149: l_safety_assoc_rec := p_clearance_permit_asso_tbl(i);

Line 179: IF EAM_PROCESS_WO_PVT.get_debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.write_debug(' Calling CLEARANCE_WO_ASSOCIATION from PROCESS_WORK_CLEARANCE'); end if;

175: raise fnd_api.g_exc_unexpected_error;
176: END IF;
177:
178: IF p_clearance_workorder_asso_tbl.COUNT > 0 THEN
179: IF EAM_PROCESS_WO_PVT.get_debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.write_debug(' Calling CLEARANCE_WO_ASSOCIATION from PROCESS_WORK_CLEARANCE'); end if;
180:
181: FOR i in p_clearance_workorder_asso_tbl.FIRST..p_clearance_workorder_asso_tbl.LAST LOOP
182:
183: l_safety_assoc_rec := p_clearance_workorder_asso_tbl(i);

Line 280: IF EAM_PROCESS_WO_PVT.get_debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.write_debug(' Inside EAM_PROCESS_CLEARANCE_PVT.WORK_CLEARANCE'); end if;

276: BEGIN
277:
278: SAVEPOINT WORK_CLEARANCE;
279:
280: IF EAM_PROCESS_WO_PVT.get_debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.write_debug(' Inside EAM_PROCESS_CLEARANCE_PVT.WORK_CLEARANCE'); end if;
281:
282: IF EAM_PROCESS_WO_PVT.get_debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.write_debug(' Calling VALIDATE_TRANSACTION_TYPE'); end if;
283:
284: EAM_PROCESS_CLEARANCE_PVT.VALIDATE_TRANSACTION_TYPE

Line 282: IF EAM_PROCESS_WO_PVT.get_debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.write_debug(' Calling VALIDATE_TRANSACTION_TYPE'); end if;

278: SAVEPOINT WORK_CLEARANCE;
279:
280: IF EAM_PROCESS_WO_PVT.get_debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.write_debug(' Inside EAM_PROCESS_CLEARANCE_PVT.WORK_CLEARANCE'); end if;
281:
282: IF EAM_PROCESS_WO_PVT.get_debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.write_debug(' Calling VALIDATE_TRANSACTION_TYPE'); end if;
283:
284: EAM_PROCESS_CLEARANCE_PVT.VALIDATE_TRANSACTION_TYPE
285: ( p_validation_level => p_validation_level
286: , p_entity => 'WORK CLEARANCE'

Line 296: IF (p_validation_level = EAM_PROCESS_WO_PVT.G_OPR_CREATE) THEN

292: THEN
293: RAISE l_clearance_transaction_error;
294: END IF;
295: -- test_mesg('status 1 :'||l_return_status);
296: IF (p_validation_level = EAM_PROCESS_WO_PVT.G_OPR_CREATE) THEN
297: IF (l_work_clearance_id IS NULL) OR (l_work_clearance_id = FND_API.G_MISS_NUM) THEN
298: OPEN C4;
299: FETCH C4 INTO l_work_clearance_id;
300: CLOSE C4;

Line 305: IF EAM_PROCESS_WO_PVT.get_debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.write_debug(' Calling Check_Existence'); end if;

301: l_work_clearance_header_rec.work_clearance_id :=l_work_clearance_id;
302: END IF;
303: END IF;
304: -- test_mesg('wc id :'||l_work_clearance_id);
305: IF EAM_PROCESS_WO_PVT.get_debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.write_debug(' Calling Check_Existence'); end if;
306:
307: EAM_CLEARANCE_VALIDATE_PVT.Check_Existence
308: ( p_work_clearance_header_rec => p_work_clearance_header_rec
309: , x_clearance_header_rec => l_old_wc_header_rec

Line 320: IF EAM_PROCESS_WO_PVT.get_debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.write_debug(' Calling Populate_NULL_Columns'); end if;

316: RAISE l_clearance_existence_error;
317: END IF;
318:
319:
320: IF EAM_PROCESS_WO_PVT.get_debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.write_debug(' Calling Populate_NULL_Columns'); end if;
321: IF (p_validation_level = EAM_PROCESS_WO_PVT.G_OPR_UPDATE) THEN
322:
323: EAM_CLEARANCE_DEFAULT_PVT.Populate_NULL_Columns
324: ( p_eam_clearance_rec => l_work_clearance_header_rec

Line 321: IF (p_validation_level = EAM_PROCESS_WO_PVT.G_OPR_UPDATE) THEN

317: END IF;
318:
319:
320: IF EAM_PROCESS_WO_PVT.get_debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.write_debug(' Calling Populate_NULL_Columns'); end if;
321: IF (p_validation_level = EAM_PROCESS_WO_PVT.G_OPR_UPDATE) THEN
322:
323: EAM_CLEARANCE_DEFAULT_PVT.Populate_NULL_Columns
324: ( p_eam_clearance_rec => l_work_clearance_header_rec
325: , p_old_eam_clearance_rec => l_old_wc_header_rec

Line 332: IF EAM_PROCESS_WO_PVT.get_debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.write_debug(' Calling Check_required'); end if;

328: -- test_mesg('status 3 :'||l_return_status);
329: l_work_clearance_header_rec := l_out_wc_header_rec;
330: END IF;
331:
332: IF EAM_PROCESS_WO_PVT.get_debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.write_debug(' Calling Check_required'); end if;
333:
334: EAM_CLEARANCE_VALIDATE_PVT.CHECK_REQUIRED
335: ( p_work_clearance_header_rec => l_work_clearance_header_rec
336: , x_mesg_token_Tbl => l_Mesg_Token_Tbl

Line 345: IF EAM_PROCESS_WO_PVT.get_debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.write_debug(' Calling Check_attributes'); end if;

341: THEN
342: RAISE l_clearance_required_error;
343: END IF;
344:
345: IF EAM_PROCESS_WO_PVT.get_debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.write_debug(' Calling Check_attributes'); end if;
346:
347: EAM_CLEARANCE_VALIDATE_PVT.CHECK_ATTRIBUTES
348: ( p_work_clearance_header_rec => l_work_clearance_header_rec
349: , p_old_clearance_header_rec => l_old_wc_header_rec

Line 374: IF((p_work_clearance_header_rec.transaction_type=EAM_PROCESS_WO_PVT.G_OPR_CREATE ) --created

370: l_workflow_enabled := 'N';
371: END;
372:
373: IF(l_workflow_enabled = 'Y') THEN --if workflow is enabled
374: IF((p_work_clearance_header_rec.transaction_type=EAM_PROCESS_WO_PVT.G_OPR_CREATE ) --created
375: OR (p_work_clearance_header_rec.transaction_type=EAM_PROCESS_WO_PVT.G_OPR_UPDATE --workorder updated
376: AND NVL(l_old_wc_header_rec.pending_flag,'N') = 'N' --old status is not pending
377: --and old status is not same as new status
378: AND (l_old_wc_header_rec.system_status <>l_work_clearance_header_rec.system_status)

Line 375: OR (p_work_clearance_header_rec.transaction_type=EAM_PROCESS_WO_PVT.G_OPR_UPDATE --workorder updated

371: END;
372:
373: IF(l_workflow_enabled = 'Y') THEN --if workflow is enabled
374: IF((p_work_clearance_header_rec.transaction_type=EAM_PROCESS_WO_PVT.G_OPR_CREATE ) --created
375: OR (p_work_clearance_header_rec.transaction_type=EAM_PROCESS_WO_PVT.G_OPR_UPDATE --workorder updated
376: AND NVL(l_old_wc_header_rec.pending_flag,'N') = 'N' --old status is not pending
377: --and old status is not same as new status
378: AND (l_old_wc_header_rec.system_status <>l_work_clearance_header_rec.system_status)
379: )

Line 384: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug ('Calling Wkflow required check API...') ; END IF;

380: ) THEN
381:
382: IF(WF_EVENT.TEST(l_status_pending_event) <> 'NONE') THEN
383:
384: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug ('Calling Wkflow required check API...') ; END IF;
385:
386:
387: EAM_CLEARANCE_WORKFLOW_PVT.Is_Approval_Required_Released
388: (p_old_clearance_rec => l_old_wc_header_rec,

Line 427: IF EAM_PROCESS_WO_PVT.get_debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.write_debug(' Calling Perform_Writes'); end if;

423: l_work_clearance_header_rec.COMPLETION_DATE := null;
424: END IF;
425: END IF;
426:
427: IF EAM_PROCESS_WO_PVT.get_debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.write_debug(' Calling Perform_Writes'); end if;
428:
429: EAM_CLEARANCE_UTILITY_PVT.PERFORM_WRITES
430: ( p_work_clearance_header_rec => l_work_clearance_header_rec
431: , x_mesg_token_Tbl => l_Mesg_Token_Tbl

Line 442: IF EAM_PROCESS_WO_PVT.get_debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.write_debug(' Created Clearance with id: '||l_work_clearance_header_rec.WORK_CLEARANCE_ID); end if;

438: END IF;
439:
440: x_work_clearance_header_rec :=l_work_clearance_header_rec;
441:
442: IF EAM_PROCESS_WO_PVT.get_debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.write_debug(' Created Clearance with id: '||l_work_clearance_header_rec.WORK_CLEARANCE_ID); end if;
443:
444: --If clearance is approved and no workflow then call the procedure CHANGE_WORK_PERMIT_STATUS
445: IF((l_workflow_enabled = 'N')
446: OR (p_work_clearance_header_rec.APPROVED_BY IS NOT NULL)

Line 450: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Calling CHANGE_WORK_PERMIT_STATUS') ; END IF ;

446: OR (p_work_clearance_header_rec.APPROVED_BY IS NOT NULL)
447: OR (p_work_clearance_header_rec.APPROVED_BY <> FND_API.G_MISS_NUM))
448: AND (l_old_wc_header_rec.system_status <>l_work_clearance_header_rec.system_status) THEN
449:
450: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Calling CHANGE_WORK_PERMIT_STATUS') ; END IF ;
451:
452: EAM_CLEARANCE_UTILITY_PVT.CHANGE_CLEARANCE_STATUS
453: ( p_clearance_id => l_work_clearance_header_rec.WORK_CLEARANCE_ID
454: , p_organization_id => p_work_clearance_header_rec.organization_id

Line 463: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Status Change completed with status ' || l_return_status) ; END IF ;

459: , x_return_status => l_return_status
460: , x_Mesg_Token_Tbl => l_mesg_token_tbl
461: );
462:
463: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Status Change completed with status ' || l_return_status) ; END IF ;
464: IF NVL(l_return_status, 'S') <> 'S' THEN
465: l_return_status := FND_API.G_RET_STS_ERROR;
466: RAISE l_clearance_status_change;
467:

Line 477: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Calling the Raise_Workflow_Events procedure ...') ; END IF ;

473: --If workflow is enabled and workflow approval is required call the procedure RAISE_WORKFLOW_EVENTS.
474:
475: IF(l_workflow_enabled = 'Y')
476: AND (l_approval_required) THEN
477: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Calling the Raise_Workflow_Events procedure ...') ; END IF ;
478: Raise_Workflow_Events
479: ( p_api_version => 1.0,
480: p_validation_level => p_validation_level,
481: p_eam_wc_rec => l_work_clearance_header_rec,

Line 491: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Raise_Workflow_Events procedure completed with status '||l_return_status) ; END IF ;

487: x_return_status => l_return_status,
488: x_mesg_token_tbl => l_mesg_token_tbl
489: );
490:
491: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Raise_Workflow_Events procedure completed with status '||l_return_status) ; END IF ;
492:
493: END IF;
494:
495: x_return_status :=l_return_status;

Line 732: IF EAM_PROCESS_WO_PVT.get_debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.write_debug(' Inside EAM_PROCESS_CLEARANCE_PVT.VALIDATE_TRANSACTION_TYPE'); end if;

728: , x_Mesg_Token_Tbl OUT NOCOPY EAM_ERROR_MESSAGE_PVT.Mesg_Token_Tbl_Type
729: )IS
730: BEGIN
731:
732: IF EAM_PROCESS_WO_PVT.get_debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.write_debug(' Inside EAM_PROCESS_CLEARANCE_PVT.VALIDATE_TRANSACTION_TYPE'); end if;
733:
734: IF (p_entity = 'WORK CLEARANCE') THEN
735: IF (p_validation_level = EAM_PROCESS_WO_PVT.G_OPR_CREATE)
736: OR (p_validation_level = EAM_PROCESS_WO_PVT.G_OPR_UPDATE) then

Line 735: IF (p_validation_level = EAM_PROCESS_WO_PVT.G_OPR_CREATE)

731:
732: IF EAM_PROCESS_WO_PVT.get_debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.write_debug(' Inside EAM_PROCESS_CLEARANCE_PVT.VALIDATE_TRANSACTION_TYPE'); end if;
733:
734: IF (p_entity = 'WORK CLEARANCE') THEN
735: IF (p_validation_level = EAM_PROCESS_WO_PVT.G_OPR_CREATE)
736: OR (p_validation_level = EAM_PROCESS_WO_PVT.G_OPR_UPDATE) then
737: x_return_status := FND_API.G_RET_STS_SUCCESS;
738:
739: ELSE

Line 736: OR (p_validation_level = EAM_PROCESS_WO_PVT.G_OPR_UPDATE) then

732: IF EAM_PROCESS_WO_PVT.get_debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.write_debug(' Inside EAM_PROCESS_CLEARANCE_PVT.VALIDATE_TRANSACTION_TYPE'); end if;
733:
734: IF (p_entity = 'WORK CLEARANCE') THEN
735: IF (p_validation_level = EAM_PROCESS_WO_PVT.G_OPR_CREATE)
736: OR (p_validation_level = EAM_PROCESS_WO_PVT.G_OPR_UPDATE) then
737: x_return_status := FND_API.G_RET_STS_SUCCESS;
738:
739: ELSE
740: x_return_status := FND_API.G_RET_STS_ERROR;

Line 769: l_validation_level NUMBER := EAM_PROCESS_WO_PVT.G_OPR_CREATE;

765:
766: )IS
767: CURSOR C IS SELECT EAM_CLEARANCE_NAME_S.NEXTVAL FROM SYS.DUAL;
768: l_api_name CONSTANT VARCHAR2(30) := G_PKG_NAME;
769: l_validation_level NUMBER := EAM_PROCESS_WO_PVT.G_OPR_CREATE;
770:
771: l_return_status VARCHAR2(1);
772: l_msg_count NUMBER;
773: l_clearance_id NUMBER:=px_clearance_id;

Line 805: IF EAM_PROCESS_WO_PVT.get_debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.write_debug(' Start of copy clearance '); end if;

801:
802: BEGIN
803:
804: SAVEPOINT COPY_WORK_CLEARANCE;
805: IF EAM_PROCESS_WO_PVT.get_debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.write_debug(' Start of copy clearance '); end if;
806: EAM_CLEARANCE_UTILITY_PVT.QUERY_ROW
807: ( p_work_clearance_id => l_clearance_id
808: , p_organization_id => l_org_id
809: , x_work_clearance_header_rec => l_wc_header_rec

Line 824: l_wc_header_rec.transaction_type :=EAM_PROCESS_WO_PVT.G_OPR_CREATE;

820: CLOSE C;
821:
822: l_wc_header_rec.WORK_CLEARANCE_ID :=null;
823: l_wc_header_rec.WORK_CLEARANCE_NAME :=to_char(l_clearance_name);
824: l_wc_header_rec.transaction_type :=EAM_PROCESS_WO_PVT.G_OPR_CREATE;
825: l_wc_header_rec.pending_flag := null;
826: l_wc_header_rec.completion_date := null;
827: l_wc_header_rec.approved_by := null;
828:

Line 851: IF EAM_PROCESS_WO_PVT.get_debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.write_debug(' Calling WORK_CLEARANCE from COPY_WORK_CLEARANCE'); end if;

847: l_wc_header_rec.USER_DEFINED_STATUS :=217; --new user defined status for clearance as per changes made to eam_safety_usr_def_statuses_b
848: -- END IF;
849:
850:
851: IF EAM_PROCESS_WO_PVT.get_debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.write_debug(' Calling WORK_CLEARANCE from COPY_WORK_CLEARANCE'); end if;
852: WORK_CLEARANCE
853: (
854: p_validation_level => l_validation_level
855: , p_work_clearance_id => l_clearance_id

Line 884: IF EAM_PROCESS_WO_PVT.get_debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.write_debug(' Start of copy ESTABLISHMENT from copy clearance '); end if;

880: raise fnd_api.g_exc_unexpected_error;
881: END IF;
882:
883: -- Copy all establishment and re-establishment records
884: IF EAM_PROCESS_WO_PVT.get_debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.write_debug(' Start of copy ESTABLISHMENT from copy clearance '); end if;
885:
886: FOR l_safety_estab_cur_rec IN saf_establishment_cur
887: LOOP
888: -- l_safety_estab_rec :=l_safety_estab_cur_rec;

Line 900: l_safety_estab_rec.TRANSACTION_TYPE :=EAM_PROCESS_WO_PVT.G_OPR_CREATE;

896: l_safety_estab_rec.MAINTENANCE_OBJECT_ID :=l_safety_estab_cur_rec.MAINTENANCE_OBJECT_ID;
897: l_safety_estab_rec.TAG_POSITION :=l_safety_estab_cur_rec.TAG_POSITION;
898: l_safety_estab_rec.SAFETY_TAG :=l_safety_estab_cur_rec.SAFETY_TAG;
899: l_safety_estab_rec.LOCKOUT_DEVICE :=l_safety_estab_cur_rec.LOCKOUT_DEVICE;
900: l_safety_estab_rec.TRANSACTION_TYPE :=EAM_PROCESS_WO_PVT.G_OPR_CREATE;
901: l_safety_estab_rec.DEPT_ID :=l_safety_estab_cur_rec.DEPT_ID;
902: l_safety_estab_rec.RESOURCE_ID :=l_safety_estab_cur_rec.RESOURCE_ID;
903: l_safety_estab_rec.RES_INSTANCE_ID :=l_safety_estab_cur_rec.RES_INSTANCE_ID;
904: l_safety_estab_rec.LOCK_NUMBER :=l_safety_estab_cur_rec.LOCK_NUMBER;

Line 944: IF EAM_PROCESS_WO_PVT.get_debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.write_debug(' Calling ESTABLISHMENT from COPY_WORK_CLEARANCE'); end if;

940: l_establish_tbl(l_establish_tbl.count + 1) :=l_safety_estab_rec;
941:
942: END LOOP;
943:
944: IF EAM_PROCESS_WO_PVT.get_debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.write_debug(' Calling ESTABLISHMENT from COPY_WORK_CLEARANCE'); end if;
945: IF l_establish_tbl.count >0 then
946: EAM_PROCESS_ISOLATION_PVT.ESTABLISHMENT(
947: p_organization_id => l_org_id
948: , p_establish_iso_tbl => l_establish_tbl