1 PACKAGE BODY BOM_Rtg_Validate AS
2 /* $Header: BOMRVATB.pls 115.4 2003/02/13 12:18:44 djebar ship $ */
3 /****************************************************************************
4 --
5 -- Copyright (c) 2000 Oracle Corporation, Redwood Shores, CA, USA
6 -- All rights reserved.
7 --
8 -- FILENAME
9 --
10 -- BOMRVATB.pls
11 --
12 -- DESCRIPTION
13 --
14 -- Body of package BOM_Rtg_Validate
15 --
16 -- NOTES
17 --
18 -- HISTORY
19 -- 02-AUG-2000 Biao Zhang Initial Creation
20 --
21 --
22 ****************************************************************************/
23 G_PKG_NAME CONSTANT VARCHAR2(30) := 'Rtg_Validate';
24
25 /********************************************************************
26 * Function : Alternate_Designator
27 * Returns : Boolean
28 * Parameters IN : Alternate_bom_code
29 * Organization_id
30 * Parameters OUT: None
31 * Purpose : Function will verify if the alternate bom
32 * designator exits. If it does then the function wil
33 * return a TRUE otherwise a FALSE.
34 *********************************************************************/
35 FUNCTION Alternate_Designator( p_alternate_routing_code IN VARCHAR2
36 , p_organization_id IN NUMBER
37 ) RETURN BOOLEAN
38 IS
39 l_dummy NUMBER;
40
41 BEGIN
42 SELECT 1
43 INTO l_dummy
44 FROM bom_alternate_designators
45 WHERE alternate_designator_code = p_alternate_routing_code
46 AND organization_id = p_organization_id;
47
48 RETURN TRUE;
49
50 EXCEPTION
51 WHEN NO_DATA_FOUND THEN
52 RETURN FALSE;
53
54 END Alternate_Designator;
55
56
57
58 /********************************************************************
59 * Function : Get_Flow_Routing_Flag
60 * Parameters IN : Routing_Sequence_ID
61 * Parameters OUT: None
62 * Purpose : Function will select flow routing flag
63 * If it does then the function will
64 * return 1, 2, 3, otherwise return 0.
65 *********************************************************************/
66
67 FUNCTION Get_Flow_Routing_Flag( p_routing_sequence_id IN NUMBER
68 ) RETURN NUMBER
69 IS
70 l_dummy NUMBER;
71
72 BEGIN
73 SELECT nvl(cfm_routing_flag,2)
74 INTO l_dummy
75 FROM bom_operational_routings
76 WHERE routing_sequence_id = p_routing_sequence_id;
77
78 BOM_Rtg_Globals.Set_CFM_Rtg_Flag(l_dummy);
79
80 RETURN l_dummy;
81
82 EXCEPTION
83 WHEN NO_DATA_FOUND THEN
84 RETURN 0;
85
86 END Get_Flow_Routing_Flag;
87
88 /********************************************************************
89 * Function : Exist_In_Op_Resour
90 * Parameters IN : substitute_group_number
91 * operation_sequence_id
92 * Parameters OUT: None
93 * Purpose : Function will test if particular
94 * Operation Resource has sub group number
95 *********************************************************************/
96
97 FUNCTION Group_Num_exist_In_Op_Res( p_substitute_group_number IN NUMBER
98 , p_operation_sequence_id IN NUMBER
99 )
100 RETURN BOOLEAN
101 IS
102 l_dummy NUMBER;
103 BEGIN
104 SELECT 1 into l_dummy
105 FROM DUAL
106 WHERE EXISTS (
107 SELECT 1
108 FROM bom_operation_resources
109 WHERE operation_sequence_id = p_operation_sequence_id
110 AND substitute_group_num = p_substitute_group_number);
111
112 RETURN TRUE;
113
114 EXCEPTION
115 WHEN NO_DATA_FOUND THEN
116 RETURN FALSE;
117
118 END Group_num_exist_In_Op_Res;
119
120
121 FUNCTION Sub_Res_Exist_In_Op_Res( p_substitute_resource_code IN NUMBER
122 , p_organization_id IN NUMBER
123 ) RETURN BOOLEAN
124 IS
125 l_dummy NUMBER;
126 BEGIN
127
128 SELECT 1 into l_dummy
129 FROM DUAL
130 WHERE EXISTS (
131 SELECT 1
132 FROM bom_resources
133 WHERE organization_id = p_organization_id
134 AND resource_code = p_substitute_resource_code);
135
136 RETURN TRUE;
137
138 EXCEPTION
139 WHEN NO_DATA_FOUND THEN
140 RETURN FALSE;
141
142 END Sub_Res_Exist_In_Op_Res;
143
144
145 END BOM_Rtg_Validate;