1 PACKAGE Bom_Default_Bom_Component AS
2 /* $Header: BOMDCMPS.pls 120.0 2005/05/25 06:07:40 appldev noship $ */
3 /*#
4 * This package contains procedures that will try to copy over values from OLD record for all NULL columns found in
5 * business object Component and Revision record and to default in values,for all NULL columns found in business object
6 * Component an Revision record either by retrieving them from the database, or by having the program
7 * assign values.
8 * @rep:scope private
9 * @rep:product BOM
10 * @rep:lifecycle active
11 * @rep:compatibility S
12 * @rep:displayname Component and Revision Defaulting
13 */
14 /****************************************************************************
15 --
16 -- Copyright (c) 1996 Oracle Corporation, Redwood Shores, CA, USA
17 -- All rights reserved.
18 --
19 -- FILENAME
20 --
21 -- BOMDCMPS.pls
22 --
23 -- DESCRIPTION
24 --
25 -- Spec of package Bom_Default_Bom_Component
26 --
27 -- NOTES
28 --
29 -- HISTORY
30 -- 08-JUL-1999 Rahul Chitko Initial Creation
31 --
32 ****************************************************************************/
33 --
34 -- Attribute defualting for Bom Component Record
35 --
36 /*#
37 * This procedure will try to default in values,for all NULL columns found in business object Component
38 * record either by retrieving them from the database, or by having the program
39 * assign values.For CREATEs, there is no OLD record. So the program must default
40 * in individual attribute values,independently of each other. This
41 * feature enables the user to enter minimal information for the
42 * operation to go through
43 * @param p_bom_component_rec IN BOM Component Exposed Column Record
44 * @paraminfo {@rep:innertype Bom_Bo_Pub.Bom_Comps_Rec_Type }
45 * @param p_bom_Comp_unexp_rec IN BOM Component Unexposed Column Record
46 * @paraminfo {@rep:innertype Bom_Bo_Pub.Bom_Comps_Unexposed_Rec_Type}
47 * @param x_bom_Component_rec IN OUT NOCOPY processed Component Exposed Column Record
48 * @paraminfo {@rep:innertype Bom_Bo_Pub.Bom_Comps_Rec_Type }
49 * @param x_bom_Comp_unexp_rec IN OUT NOCOPY processed BOM Components Unexposed Column Record
50 * @paraminfo {@rep:innertype Bom_Bo_Pub.Bom_Comps_Unexposed_Rec_Type}
51 * @param x_mesg_token_tbl IN OUT NOCOPY Message Token Table
52 * @paraminfo {@rep:innertype Error_Handler.Mesg_Token_Tbl_Type}
53 * @param x_return_status IN OUT NOCOPY Return Status of the Business Object
54 * @rep:scope private
55 * @rep:displayname Component-Attribute Defaulting
56 * @rep:category BUSINESS_ENTITY BOM_BILL_OF_MATERIAL
57 * @rep:compatibility S
58 * @rep:lifecycle active
59 */
60 PROCEDURE Attribute_Defaulting
61 ( p_bom_component_rec IN Bom_Bo_Pub.Bom_Comps_Rec_Type
62 , p_bom_Comp_unexp_rec IN Bom_Bo_Pub.Bom_Comps_Unexposed_Rec_Type
63 , x_bom_Component_rec IN OUT NOCOPY Bom_Bo_Pub.Bom_Comps_Rec_Type
64 , x_bom_Comp_unexp_rec IN OUT NOCOPY Bom_Bo_Pub.Bom_Comps_Unexposed_Rec_Type
65 , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
66 , x_return_status IN OUT NOCOPY VARCHAR2
67 );
68
69
70 --
71 -- Attribute Defaulting for Revised Component Record
72 --
73 /*#
74 * This procedure will try to default in values,for all NULL columns found in business object Revision Component
75 * record either by retrieving them from the database, or by having the program
76 * assign values.For CREATEs, there is no OLD record. So the program must default
77 * in individual attribute values,independently of each other. This
78 * feature enables the user to enter minimal information for the
79 * operation to go through
80 * @param p_rev_component_rec IN Revision Component Exposed Column Record
81 * @paraminfo {@rep:innertype Bom_Bo_Pub.Rev_Component_Rec_Type }
82 * @param p_Rev_Comp_Unexp_rec IN Revision Component Unexposed Column Record
83 * @paraminfo {@rep:innertype Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type}
84 * @param p_control_Rec IN Control Record
85 * @paraminfo {@rep:innertype Bom_Bo_Pub.Control_Rec_Type}
86 * @param x_rev_component_rec IN OUT NOCOPY processed Revision Component Exposed Column Record
87 * @paraminfo {@rep:innertype Bom_Bo_Pub.Rev_Component_Rec_Type }
88 * @param x_Rev_Comp_Unexp_Rec IN OUT NOCOPY processed Revision Components Unexposed Column Record
89 * @paraminfo {@rep:innertype Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type}
90 * @param x_mesg_token_tbl IN OUT NOCOPY Message Token Table
91 * @paraminfo {@rep:innertype Error_Handler.Mesg_Token_Tbl_Type}
92 * @param x_return_status IN OUT NOCOPY Return Status of the Business Object
93 * @rep:scope private
94 * @rep:displayname Revision-Attribute Defaulting
95 * @rep:category BUSINESS_ENTITY BOM_BILL_OF_MATERIAL
96 * @rep:compatibility S
97 * @rep:lifecycle active
98 */
99 PROCEDURE Attribute_Defaulting
100 ( p_rev_component_rec IN Bom_Bo_Pub.Rev_Component_Rec_Type
101 , p_Rev_Comp_Unexp_Rec IN Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type
102 , p_control_Rec IN BOM_BO_PUB.Control_Rec_Type
103 := BOM_BO_PUB.G_DEFAULT_CONTROL_REC
104 , x_rev_component_rec IN OUT NOCOPY Bom_Bo_Pub.Rev_Component_Rec_Type
105 , x_Rev_Comp_Unexp_Rec IN OUT NOCOPY Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type
106 , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
107 , x_Return_Status IN OUT NOCOPY VARCHAR2
108 );
109
110 --
111 -- Populate NULL Columns for Bom Component Record
112 --
113 /*#
114 * This procedure will copy over values from OLD record for all NULL columns found in
115 * business object Component record.The user may send in a record with
116 * certain values set to NULL. Values for all such columns are copied over
117 * from the OLD record. This feature enables the user to enter minimal
118 * information for the operation.
119 * @param p_bom_Component_rec IN BOM Component Exposed Column Record
120 * @paraminfo {@rep:innertype Bom_Bo_Pub.Bom_Comps_Rec_Type }
121 * @param p_bom_Comp_unexp_rec IN BOM Component Unexposed Column Record
122 * @paraminfo {@rep:innertype Bom_Bo_Pub.Bom_Comps_Unexposed_Rec_Type}
123 * @param p_old_bom_Component_rec BOM Old Component Exposed Column Record
124 * @paraminfo {@rep:innertype Bom_Bo_Pub.Bom_Comps_Rec_Type}
125 * @param p_old_bom_Comp_unexp_rec BOM Component Old Record Unexposed Column Record
126 * @paraminfo {@rep:innertype Bom_Bo_Pub.Bom_Comps_Unexposed_Rec_Type}
127 * @param x_bom_Component_rec IN OUT NOCOPY processed Component Exposed Column Record
128 * @paraminfo {@rep:innertype Bom_Bo_Pub.Bom_Comps_Rec_Type }
129 * @param x_bom_Comp_unexp_rec IN OUT NOCOPY processed BOM Component Unexposed Column Record
130 * @paraminfo {@rep:innertype Bom_Bo_Pub.Bom_Comps_Unexposed_Rec_Type
131 * @rep:scope private
132 * @rep:displayname Component-Populate Null Column
133 * @rep:category BUSINESS_ENTITY BOM_BILL_OF_MATERIAL
134 * @rep:compatibility S
135 * @rep:lifecycle active
136 */
137 PROCEDURE Populate_Null_Columns
138 ( p_bom_Component_rec IN Bom_Bo_Pub.Bom_Comps_Rec_Type
139 , p_bom_Comp_unexp_rec IN Bom_Bo_Pub.Bom_Comps_Unexposed_Rec_Type
140 , p_old_bom_Component_rec IN Bom_Bo_Pub.Bom_Comps_Rec_Type
141 , p_old_bom_Comp_unexp_rec IN Bom_Bo_Pub.Bom_Comps_Unexposed_Rec_Type
142 , x_bom_Component_rec IN OUT NOCOPY Bom_Bo_Pub.Bom_Comps_Rec_Type
143 , x_bom_Comp_unexp_rec IN OUT NOCOPY Bom_Bo_Pub.Bom_Comps_Unexposed_Rec_Type
144 );
145
146 --
147 -- Populate NULL columns for Revised Component Record
148 --
149 /*#
150 * This procedure will copy over values from OLD record for all NULL columns found in
151 * business object Revision Component record.The user may send in a record with
152 * certain values set to NULL. Values for all such columns are copied over
153 * from the OLD record. This feature enables the user to enter minimal
154 * information for the operation.
155 * @param p_rev_component_rec IN Revision Component Exposed Column Record
156 * @paraminfo {@rep:innertype Bom_Bo_Pub.Rev_Component_Rec_Type}
157 * @param p_old_rev_component_rec IN Revision Component Old Record Exposed Column Record
158 * @paraminfo {@rep:innertype Bom_Bo_Pub.Rev_Component_Rec_Type }
159 * @param p_Rev_Comp_Unexp_Rec IN Revision Component Unexposed Column Record
160 * @paraminfo {@rep:innertype Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type}
161 * @param p_Old_Rev_Comp_Unexp_Rec Revision Component Old Record Unexposed Column Record
162 * @paraminfo {@rep:Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type}
163 * @param x_Rev_Component_Rec IN OUT NOCOPY processed Revision Component Exposed Column Record
164 * @paraminfo {@rep:innertype Bom_Bo_Pub.Rev_Component_Rec_Type}
165 * @param x_Rev_Comp_Unexp_Rec IN OUT NOCOPY Revision Component Unexposed Column Record
166 * @paraminfo {@rep:innertype Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type}
167 * @rep:scope private
168 * @rep:displayname Revision-Populate Null Column
169 * @rep:compatibility S
170 * @rep:lifecycle active
171 * @rep:category BUSINESS_ENTITY BOM_BILL_OF_MATERIAL
172 */
173 PROCEDURE Populate_Null_Columns
174 ( p_rev_component_rec IN Bom_Bo_Pub.Rev_Component_Rec_Type
175 , p_old_rev_component_rec IN Bom_Bo_Pub.Rev_Component_Rec_Type
176 , p_Rev_Comp_Unexp_Rec IN Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type
177 , p_Old_Rev_Comp_Unexp_Rec IN Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type
178 , x_Rev_Component_Rec IN OUT NOCOPY Bom_Bo_Pub.Rev_Component_Rec_Type
179 , x_Rev_Comp_Unexp_Rec IN OUT NOCOPY Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type
180 );
181
182 --
183 -- Entity Level Defaulting for Revised Component
184 --
185
186 /*#
187 * This procedure will perform checks against Revision Component record in the order
188 * Non-updateable columns (UPDATEs): Certain columns must not be changed by the user when updating the record.
189 * Cross-attribute checking: The validity of attributes may be checked, based on factors external to it.
190 * Business logic: The record must comply with business logic rules.
191 * @param p_rev_component_rec IN Revision Component Exposed Column Record
192 * @paraminfo {@rep:innertype Bom_Bo_Pub.Rev_Component_Rec_Type}
193 * @param p_old_rev_component_rec IN Revision Component Old Record Exposed Column Record
194 * @paraminfo {@rep:innertype Bom_Bo_Pub.Rev_Component_Rec_Type}
195 * @param x_rev_component_rec IN OUT NOCOPY processed Revision Component Exposed Column Record
196 * @paraminfo {@rep:innertype Bom_Bo_Pub.Rev_Component_Rec_Type}
197 * @rep:scope private
198 * @rep:displayname Revision Entity Defaulting
199 * @rep:compatibility S
200 * @rep:lifecycle active
201 * @rep:category BUSINESS_ENTITY BOM_BILL_OF_MATERIAL
202 */
203 PROCEDURE Entity_Defaulting
204 ( p_rev_component_rec IN Bom_Bo_Pub.Rev_Component_Rec_Type
205 , p_old_rev_component_rec IN Bom_Bo_Pub.Rev_Component_Rec_Type :=
206 Bom_Bo_Pub.G_MISS_REV_COMPONENT_REC
207 , x_rev_component_rec IN OUT NOCOPY Bom_Bo_Pub.Rev_Component_Rec_Type
208 );
209
210
211 --
212 -- Entity Level Defaulting for Bom Inventory Component
213 --
214 /*#
215 * This procedure will perform checks against BOM Inventory Component record in the order
216 * Non-updateable columns (UPDATEs): Certain columns must not be changed by the user when updating the record.
217 * Cross-attribute checking: The validity of attributes may be checked, based on factors external to it.
218 * Business logic: The record must comply with business logic rules.
219 * @param p_bom_component_rec IN BOM Component Exposed Column Record
220 * @paraminfo {@rep:innertype Bom_Bo_Pub.Bom_Comps_Rec_Type}
221 * @param p_old_bom_component_rec IN BOM Component Old Record Exposed Column Record
222 * @paraminfo {@rep:innertype Bom_Bo_Pub.Bom_Comps_Rec_Type}
223 * @param x_bom_component_rec IN OUT NOCOPY processed BOM Component Exposed Column Record
224 * @paraminfo {@rep:innertype Bom_Bo_Pub.Bom_Comps_Rec_Type}
225 * @rep:scope private
226 * @rep:displayname Component Entity Defaulting
227 * @rep:compatibility S
228 * @rep:lifecycle active
229 * @rep:category BUSINESS_ENTITY BOM_BILL_OF_MATERIAL
230 */
231 PROCEDURE Entity_Defaulting
232 ( p_bom_component_rec IN Bom_Bo_Pub.Bom_Comps_Rec_Type
233 , p_old_bom_component_rec IN Bom_Bo_Pub.Bom_Comps_Rec_Type :=
234 Bom_Bo_Pub.G_MISS_BOM_COMPONENT_REC
235 , x_bom_component_rec IN OUT NOCOPY Bom_Bo_Pub.Bom_Comps_Rec_Type
236 );
237
238
239 END Bom_Default_Bom_Component;