[Home] [Help]
1: PACKAGE BODY EAM_WO_NETWORK_DEFAULT_PVT AS
2: /* $Header: EAMVWNDB.pls 120.4.12010000.3 2009/11/05 21:17:39 mashah ship $ */
3: /***************************************************************************
4: --
5: -- Copyright (c) 2002 Oracle Corporation, Redwood Shores, CA, USA
10: -- EAMVWNDB.pls
11: --
12: -- DESCRIPTION
13: --
14: -- Body of package EAM_WO_NETWORK_DEFAULT_PVT
15: --
16: -- NOTES
17: --
18: -- HISTORY
23: ***************************************************************************/
24:
25:
26:
27: G_Pkg_Name VARCHAR2(30) := 'EAM_WO_NETWORK_DEFAULT_PVT';
28:
29: g_token_tbl EAM_ERROR_MESSAGE_PVT.Token_Tbl_Type;
30: g_dummy NUMBER;
31:
2494:
2495:
2496: BEGIN
2497: -- Standard Start of API savepoint
2498: SAVEPOINT EAM_WO_NETWORK_DEFAULT_PVT;
2499: -- Standard call to check for call compatibility.
2500: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
2501: p_api_version ,
2502: l_api_name ,
2521: l_msg_data := NULL;
2522:
2523:
2524: /* Find the right snap window */
2525: EAM_WO_NETWORK_DEFAULT_PVT.Snap_Right_Window
2526: (
2527: p_api_version => 1.0,
2528: p_work_object_id => l_work_object_id,
2529: p_work_object_type_id => l_work_object_type_id,
2670:
2671:
2672: BEGIN
2673: -- Standard Start of API savepoint
2674: SAVEPOINT EAM_WO_NETWORK_DEFAULT_PVT;
2675: -- Standard call to check for call compatibility.
2676: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
2677: p_api_version ,
2678: l_api_name ,
2698: l_msg_data := NULL;
2699:
2700:
2701: /* Find the right snap window */
2702: EAM_WO_NETWORK_DEFAULT_PVT.Snap_Left_Window
2703: (
2704: p_api_version => 1.0,
2705: p_work_object_id => l_work_object_id,
2706: p_work_object_type_id => l_work_object_type_id,
2853: l_exception_msg VARCHAR2(1000);
2854:
2855: BEGIN
2856: -- Standard Start of API savepoint
2857: SAVEPOINT EAM_WO_NETWORK_DEFAULT_PVT;
2858: -- Standard call to check for call compatibility.
2859: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
2860: p_api_version ,
2861: l_api_name ,
3015:
3016: IF (l_maintenance_object_source = 2) THEN -- ONLY for AHL Jobs
3017:
3018: l_stmt_num := 100;
3019: EAM_WO_NETWORK_DEFAULT_PVT.Find_Right_Snap_Window
3020: (
3021: p_api_version => 1.0,
3022: p_starting_object_id => l_work_object_id,
3023: p_starting_obj_type_id => l_work_object_type_id,
3136: l_exception_msg VARCHAR2(1000);
3137:
3138: BEGIN
3139: -- Standard Start of API savepoint
3140: SAVEPOINT EAM_WO_NETWORK_DEFAULT_PVT;
3141: -- Standard call to check for call compatibility.
3142: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
3143: p_api_version ,
3144: l_api_name ,
3296:
3297: IF (l_maintenance_object_source = 2) THEN -- ONLY for AHL Jobs
3298:
3299: l_stmt_num := 100;
3300: EAM_WO_NETWORK_DEFAULT_PVT.Find_Left_Snap_Window
3301: (
3302: p_api_version => 1.0,
3303: p_starting_object_id => l_work_object_id,
3304: p_starting_obj_type_id => l_work_object_type_id,
3528:
3529:
3530: /* Recursive Call to the Min Window Finding API */
3531: l_stmt_num := 50;
3532: EAM_WO_NETWORK_DEFAULT_PVT.Find_Right_Snap_Window
3533: (
3534: p_api_version => 1.0,
3535: p_starting_object_id => l_starting_object_id,
3536: p_starting_obj_type_id => l_starting_obj_type_id,
3782:
3783:
3784: /* Recursive Call to the Min Window Finding API */
3785: l_stmt_num := 50;
3786: EAM_WO_NETWORK_DEFAULT_PVT.Find_Left_Snap_Window
3787: (
3788: p_api_version => 1.0,
3789: p_starting_object_id => l_starting_object_id,
3790: p_starting_obj_type_id => l_starting_obj_type_id,
3987:
3988: END SHRINK_PARENT;
3989:
3990:
3991: END EAM_WO_NETWORK_DEFAULT_PVT;