PACKAGE BODY: APPS.PA_RESOURCE_UTILS1

Source

1 package body PA_RESOURCE_UTILS1 as
2 --$Header: PARCSUB1.pls 120.2 2005/08/24 02:40:34 avaithia noship $
3 
4 /*==============================================================================
5 This api Returns the item master id for the material class item
6 =============================================================================*/
7 
8 
9 PROCEDURE Return_Material_Class_Id(
10                         x_material_class_id     OUT NOCOPY PA_PLAN_RES_DEFAULTS.item_master_id%TYPE, --File.Sql.39 bug 4440895
11                         x_return_status         OUT NOCOPY Varchar2, --File.Sql.39 bug 4440895
12                         x_msg_data              OUT NOCOPY Varchar2, --File.Sql.39 bug 4440895
13                         x_msg_count             OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
14                 )
15 IS
16 BEGIN
17 
18 x_return_status:='S';
19 x_msg_data:=null;
20 x_msg_count:=null;
21 
22 select item_master_id into x_material_class_id
23 from PA_PLAN_RES_DEFAULTS
24 where resource_class_id=3;
25 
26 
27 EXCEPTION
28 WHEN OTHERS THEN
29 x_return_status:='U'; -- 4537865 : Changed from E to U
30 x_msg_data:=SUBSTRB(sqlerrm,1,240); -- 4537865 : Changed from sqlerrm to SUBSTRB(sqlerrm,1,240)
31 x_msg_count:=1;
32  -- 4537865 : Add Exception msg to stack and RAISE
33      Fnd_Msg_Pub.add_exc_msg
34                    ( p_pkg_name         => 'PA_RESOURCE_UTILS1'
35                     , p_procedure_name  => 'Return_Material_Class_Id'
36 		   , p_error_text      => x_msg_data);
37 RAISE;
38 END Return_Material_Class_Id;
39 
40 END PA_RESOURCE_UTILS1;