[Home] [Help]
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;