[Home] [Help]
1: PACKAGE BODY EAM_WO_NETWORK_DEFAULT_PVT AS
2: /* $Header: EAMVWNDB.pls 120.4 2005/09/05 05:56:32 mmaduska 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:
2467:
2468:
2469: BEGIN
2470: -- Standard Start of API savepoint
2471: SAVEPOINT EAM_WO_NETWORK_DEFAULT_PVT;
2472: -- Standard call to check for call compatibility.
2473: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
2474: p_api_version ,
2475: l_api_name ,
2494: l_msg_data := NULL;
2495:
2496:
2497: /* Find the right snap window */
2498: EAM_WO_NETWORK_DEFAULT_PVT.Snap_Right_Window
2499: (
2500: p_api_version => 1.0,
2501: p_work_object_id => l_work_object_id,
2502: p_work_object_type_id => l_work_object_type_id,
2643:
2644:
2645: BEGIN
2646: -- Standard Start of API savepoint
2647: SAVEPOINT EAM_WO_NETWORK_DEFAULT_PVT;
2648: -- Standard call to check for call compatibility.
2649: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
2650: p_api_version ,
2651: l_api_name ,
2671: l_msg_data := NULL;
2672:
2673:
2674: /* Find the right snap window */
2675: EAM_WO_NETWORK_DEFAULT_PVT.Snap_Left_Window
2676: (
2677: p_api_version => 1.0,
2678: p_work_object_id => l_work_object_id,
2679: p_work_object_type_id => l_work_object_type_id,
2826: l_exception_msg VARCHAR2(1000);
2827:
2828: BEGIN
2829: -- Standard Start of API savepoint
2830: SAVEPOINT EAM_WO_NETWORK_DEFAULT_PVT;
2831: -- Standard call to check for call compatibility.
2832: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
2833: p_api_version ,
2834: l_api_name ,
2988:
2989: IF (l_maintenance_object_source = 2) THEN -- ONLY for AHL Jobs
2990:
2991: l_stmt_num := 100;
2992: EAM_WO_NETWORK_DEFAULT_PVT.Find_Right_Snap_Window
2993: (
2994: p_api_version => 1.0,
2995: p_starting_object_id => l_work_object_id,
2996: p_starting_obj_type_id => l_work_object_type_id,
3109: l_exception_msg VARCHAR2(1000);
3110:
3111: BEGIN
3112: -- Standard Start of API savepoint
3113: SAVEPOINT EAM_WO_NETWORK_DEFAULT_PVT;
3114: -- Standard call to check for call compatibility.
3115: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
3116: p_api_version ,
3117: l_api_name ,
3269:
3270: IF (l_maintenance_object_source = 2) THEN -- ONLY for AHL Jobs
3271:
3272: l_stmt_num := 100;
3273: EAM_WO_NETWORK_DEFAULT_PVT.Find_Left_Snap_Window
3274: (
3275: p_api_version => 1.0,
3276: p_starting_object_id => l_work_object_id,
3277: p_starting_obj_type_id => l_work_object_type_id,
3501:
3502:
3503: /* Recursive Call to the Min Window Finding API */
3504: l_stmt_num := 50;
3505: EAM_WO_NETWORK_DEFAULT_PVT.Find_Right_Snap_Window
3506: (
3507: p_api_version => 1.0,
3508: p_starting_object_id => l_starting_object_id,
3509: p_starting_obj_type_id => l_starting_obj_type_id,
3755:
3756:
3757: /* Recursive Call to the Min Window Finding API */
3758: l_stmt_num := 50;
3759: EAM_WO_NETWORK_DEFAULT_PVT.Find_Left_Snap_Window
3760: (
3761: p_api_version => 1.0,
3762: p_starting_object_id => l_starting_object_id,
3763: p_starting_obj_type_id => l_starting_obj_type_id,
3960:
3961: END SHRINK_PARENT;
3962:
3963:
3964: END EAM_WO_NETWORK_DEFAULT_PVT;