PACKAGE BODY: APPS.ENG_VAL_CAT

Source

1 PACKAGE BODY ENG_VAL_CAT AS
2 /* $Header: ENGVCATB.pls 115.0.1159.2 2003/06/09 08:45:16 rbehal ship $ */
3 
4 FUNCTION Has_Change_objects (p_change_mgmt_type_code IN VARCHAR2, p_called IN NUMBER) RETURN VARCHAR2
5 IS
6 Cursor c_has_obj_cur( p_mgmt_code IN VARCHAR2)
7 IS
8 Select 'X'
9 from  ENG_CHANGE_MGMT_TYPES_VL ecmt,
10       ENG_ENGINEERING_CHANGES echg,
11       ENG_CHANGE_ORDER_TYPES eco
12 where
13       ecmt.CHANGE_MGMT_TYPE_CODE = eco.change_mgmt_type_code
14 and
15       eco.change_order_type_id = echg.change_order_type_id
16 and
17       ecmt.CHANGE_MGMT_TYPE_CODE = p_mgmt_code;
18 
19 lv_exist VARCHAR2(20) := NULL;
20 
21 BEGIN
22 
23 OPEN c_has_obj_cur(p_change_mgmt_type_code);
24 FETCH c_has_obj_cur INTO lv_exist;
25 IF c_has_obj_cur%notfound THEN
26   IF p_called =1 then
27    lv_exist :='NoCoR';
28   ELSE
29    lv_exist :='NoCoL';
30   END IF;
31 ELSE
32   IF p_called =1 then
33    lv_exist :='HasCoR';
34   ELSE
35    lv_exist :='HasCoL';
36   END IF;
37 END IF;
38 CLOSE c_has_obj_cur;
39 return(lv_exist);
40 
41 EXCEPTION
42   WHEN OTHERS THEN
43 	CLOSE c_has_obj_cur;
44 	return('NoCO');
45 
46 END Has_Change_objects;
47 
48 -- Returns HasCoR if some Change objects with status other than Cancelled and implemented exists
49 -- for given Change Category
50 -- Else returns NoCoR
51 -- p_mgmt_code IN parameter for Change Category
52 
53 
54 FUNCTION Has_Active_Change_objects (p_change_mgmt_type_code IN VARCHAR2) RETURN VARCHAR2
55 IS
56 Cursor c_has_obj_cur( p_mgmt_code IN VARCHAR2)
57 IS
58 Select 'X'
59 from  ENG_CHANGE_MGMT_TYPES_VL ecmt,
60       ENG_ENGINEERING_CHANGES echg,
61       ENG_CHANGE_ORDER_TYPES eco
62 where
63       ecmt.CHANGE_MGMT_TYPE_CODE = eco.change_mgmt_type_code
64 and
65       eco.change_order_type_id = echg.change_order_type_id
66 and
67       echg.STATUS_TYPE <> 6 -- Implemented
68 and
69       echg.STATUS_TYPE <> 5 -- Cancelled
70 and
71       ecmt.CHANGE_MGMT_TYPE_CODE = p_mgmt_code;
72 
73 lv_exist VARCHAR2(20) := NULL;
74 
75 BEGIN
76 
77 OPEN c_has_obj_cur(p_change_mgmt_type_code);
78 FETCH c_has_obj_cur INTO lv_exist;
79 IF c_has_obj_cur%notfound THEN
80    lv_exist :='NoCoR';
81 ELSE
82    lv_exist :='HasCoR';
83 END IF;
84 CLOSE c_has_obj_cur;
85 return(lv_exist);
86 
87 EXCEPTION
88   WHEN OTHERS THEN
89 	CLOSE c_has_obj_cur;
90 	return('NoCOR');
91 
92 END Has_Active_Change_objects;
93 
94 
95 END ENG_VAL_CAT;