1 package PA_WORK_TYPE_UTILS AUTHID CURRENT_USER as
2 /* $Header: PARWUTLS.pls 120.1 2005/08/11 10:06:02 eyefimov noship $ */
3
4 -- ----------------------------------------------------------------------------
5 -- PROCEDURE
6 -- Check_Work_Type_Name_or_ID
7 -- PURPOSE
8 -- This procedure does the following
9 -- If work type name is passed converts it to the id
10 -- If id is passed, based on the check_id_flag validates it
11 -- HISTORY
12 -- 19-Jul-2000 nchouhan Created
13 -- 21-Sep-2000 nchouhan Created
14 -- ----------------------------------------------------------------------------
15
16 procedure Check_Work_Type_Name_or_ID
17 ( p_work_type_id IN pa_work_types_v.work_type_id%TYPE
18 ,p_name IN pa_work_types_v.name%TYPE
19 ,p_check_id_flag IN VARCHAR2
20 ,x_work_type_id OUT NOCOPY pa_work_types_v.work_type_id%TYPE
21 ,x_return_status OUT NOCOPY VARCHAR2
22 ,x_error_message_code OUT NOCOPY VARCHAR2);
23
24 -- ----------------------------------------------------------------------------
25 -- PROCEDURE
26 -- Check_Work_Type
27 -- PURPOSE
28 -- This procedure does the following
29 -- It checks the work_type :
30 -- If Project is Indirect project then
31 -- only non-billable work-types can be assigned to it.
32 -- If Project is not Indirect project then
33 -- all work types are O.K.
34 --
35 -- HISTORY
36 -- 28-Nov-2000 nmishra Created
37 --
38 -- ----------------------------------------------------------------------------
39
40 procedure Check_Work_Type
41 ( p_work_type_id IN pa_work_types_v.work_type_id%TYPE
42 ,p_project_id IN pa_projects.project_id%TYPE
43 ,p_task_id IN pa_tasks.task_id%TYPE
44 ,x_return_status OUT NOCOPY VARCHAR2
45 ,x_error_message_code OUT NOCOPY VARCHAR2);
46
47
48 end PA_WORK_TYPE_UTILS ;