[Home] [Help]
PACKAGE BODY: APPS.WIP_DISCRETE_INIT
Source
1 PACKAGE BODY WIP_DISCRETE_INIT as
2 /* $Header: wipdjinb.pls 115.10 2003/09/05 21:31:26 kboonyap ship $ */
3
4 PROCEDURE get_parameters(p_organization_id NUMBER,
5 p_default_class IN OUT NOCOPY VARCHAR2,
6 p_lot_number_default_type OUT NOCOPY NUMBER,
7 p_wip_param_count OUT NOCOPY NUMBER,
8 p_acct_class_flag IN OUT NOCOPY NUMBER,
9 p_disable_date OUT NOCOPY DATE,
10 p_default_ma OUT NOCOPY NUMBER,
14 p_default_rva OUT NOCOPY NUMBER,
11 p_default_mva OUT NOCOPY NUMBER,
12 p_default_moa OUT NOCOPY NUMBER,
13 p_default_ra OUT NOCOPY NUMBER,
15 p_default_opa OUT NOCOPY NUMBER,
16 p_default_opva OUT NOCOPY NUMBER,
17 p_default_oa OUT NOCOPY NUMBER,
18 p_default_ova OUT NOCOPY NUMBER,
19 p_default_scaa OUT NOCOPY NUMBER,
20 p_org_locator_control OUT NOCOPY NUMBER,
21 p_demand_class_mp OUT NOCOPY VARCHAR2,
22 p_mp_calendar_code OUT NOCOPY VARCHAR2,
23 p_mp_exception_set_id OUT NOCOPY NUMBER,
24 p_project_ref OUT NOCOPY NUMBER,
25 p_project_control OUT NOCOPY NUMBER,
26 p_pm_cost_collection OUT NOCOPY NUMBER,
27 p_primary_cost_method OUT NOCOPY NUMBER,
28 p_po_creation_time OUT NOCOPY NUMBER) IS
29 l_defSerOp NUMBER; --throw away value
30 l_jobChangeToPO NUMBER; --throw away value
31 begin
32 get_parameters(p_organization_id => p_organization_id,
33 p_default_class => p_default_class,
34 p_lot_number_default_type => p_lot_number_default_type,
35 p_wip_param_count => p_wip_param_count,
36 p_acct_class_flag => p_acct_class_flag,
37 p_disable_date => p_disable_date,
38 p_default_ma => p_default_ma,
39 p_default_mva => p_default_mva,
40 p_default_moa => p_default_moa,
41 p_default_ra => p_default_ra,
42 p_default_rva => p_default_rva,
43 p_default_opa => p_default_opa,
44 p_default_opva => p_default_opva,
45 p_default_oa => p_default_oa,
46 p_default_ova => p_default_ova,
47 p_default_scaa => p_default_scaa,
48 p_org_locator_control => p_org_locator_control,
49 p_demand_class_mp => p_demand_class_mp,
50 p_mp_calendar_code => p_mp_calendar_code,
51 p_mp_exception_set_id => p_mp_exception_set_id,
52 p_project_ref => p_project_ref,
53 p_project_control => p_project_control,
54 p_pm_cost_collection => p_pm_cost_collection,
55 p_primary_cost_method => p_primary_cost_method,
56 p_po_creation_time => p_po_creation_time,
57 p_def_serialization_start_op => l_defSerOp,
58 p_propagate_job_change_to_po => l_jobChangeToPO);
59 end get_parameters;
60
61 PROCEDURE get_parameters(p_organization_id NUMBER,
62 p_default_class IN OUT NOCOPY VARCHAR2,
63 p_lot_number_default_type OUT NOCOPY NUMBER,
64 p_wip_param_count OUT NOCOPY NUMBER,
65 p_acct_class_flag IN OUT NOCOPY NUMBER,
66 p_disable_date OUT NOCOPY DATE,
67 p_default_ma OUT NOCOPY NUMBER,
68 p_default_mva OUT NOCOPY NUMBER,
69 p_default_moa OUT NOCOPY NUMBER,
70 p_default_ra OUT NOCOPY NUMBER,
71 p_default_rva OUT NOCOPY NUMBER,
72 p_default_opa OUT NOCOPY NUMBER,
73 p_default_opva OUT NOCOPY NUMBER,
74 p_default_oa OUT NOCOPY NUMBER,
75 p_default_ova OUT NOCOPY NUMBER,
76 p_default_scaa OUT NOCOPY NUMBER,
77 p_org_locator_control OUT NOCOPY NUMBER,
78 p_demand_class_mp OUT NOCOPY VARCHAR2,
79 p_mp_calendar_code OUT NOCOPY VARCHAR2,
80 p_mp_exception_set_id OUT NOCOPY NUMBER,
81 p_project_ref OUT NOCOPY NUMBER,
82 p_project_control OUT NOCOPY NUMBER,
83 p_pm_cost_collection OUT NOCOPY NUMBER,
84 p_primary_cost_method OUT NOCOPY NUMBER,
85 p_po_creation_time OUT NOCOPY NUMBER,
86 p_def_serialization_start_op OUT NOCOPY NUMBER) IS
87 l_jobChangeToPO NUMBER; --throw away value
88 begin
89 get_parameters(p_organization_id => p_organization_id,
90 p_default_class => p_default_class,
91 p_lot_number_default_type => p_lot_number_default_type,
92 p_wip_param_count => p_wip_param_count,
93 p_acct_class_flag => p_acct_class_flag,
97 p_default_moa => p_default_moa,
94 p_disable_date => p_disable_date,
95 p_default_ma => p_default_ma,
96 p_default_mva => p_default_mva,
98 p_default_ra => p_default_ra,
99 p_default_rva => p_default_rva,
100 p_default_opa => p_default_opa,
101 p_default_opva => p_default_opva,
102 p_default_oa => p_default_oa,
103 p_default_ova => p_default_ova,
104 p_default_scaa => p_default_scaa,
105 p_org_locator_control => p_org_locator_control,
106 p_demand_class_mp => p_demand_class_mp,
107 p_mp_calendar_code => p_mp_calendar_code,
108 p_mp_exception_set_id => p_mp_exception_set_id,
109 p_project_ref => p_project_ref,
110 p_project_control => p_project_control,
111 p_pm_cost_collection => p_pm_cost_collection,
112 p_primary_cost_method => p_primary_cost_method,
113 p_po_creation_time => p_po_creation_time,
114 p_def_serialization_start_op => p_def_serialization_start_op,
115 p_propagate_job_change_to_po => l_jobChangeToPO);
116
117 end get_parameters;
118
119 PROCEDURE get_parameters(p_organization_id NUMBER,
120 p_default_class IN OUT NOCOPY VARCHAR2,
121 p_lot_number_default_type OUT NOCOPY NUMBER,
122 p_wip_param_count OUT NOCOPY NUMBER,
123 p_acct_class_flag IN OUT NOCOPY NUMBER,
124 p_disable_date OUT NOCOPY DATE,
125 p_default_ma OUT NOCOPY NUMBER,
126 p_default_mva OUT NOCOPY NUMBER,
127 p_default_moa OUT NOCOPY NUMBER,
128 p_default_ra OUT NOCOPY NUMBER,
129 p_default_rva OUT NOCOPY NUMBER,
130 p_default_opa OUT NOCOPY NUMBER,
131 p_default_opva OUT NOCOPY NUMBER,
132 p_default_oa OUT NOCOPY NUMBER,
133 p_default_ova OUT NOCOPY NUMBER,
134 p_default_scaa OUT NOCOPY NUMBER,
135 p_org_locator_control OUT NOCOPY NUMBER,
136 p_demand_class_mp OUT NOCOPY VARCHAR2,
137 p_mp_calendar_code OUT NOCOPY VARCHAR2,
138 p_mp_exception_set_id OUT NOCOPY NUMBER,
139 p_project_ref OUT NOCOPY NUMBER,
140 p_project_control OUT NOCOPY NUMBER,
141 p_pm_cost_collection OUT NOCOPY NUMBER,
142 p_primary_cost_method OUT NOCOPY NUMBER,
143 p_po_creation_time OUT NOCOPY NUMBER,
144 p_def_serialization_start_op OUT NOCOPY NUMBER,
145 p_propagate_job_change_to_po OUT NOCOPY NUMBER) IS
146 std NUMBER;
147 nonstd NUMBER;
148 CURSOR c1 IS
149 SELECT wp.DEFAULT_DISCRETE_CLASS,
150 wp.LOT_NUMBER_DEFAULT_TYPE,
151 wp.PO_CREATION_TIME,
152 wp.default_serialization_start_op,
153 wp.propagate_job_change_to_po
154 FROM WIP_PARAMETERS wp
155 WHERE wp.ORGANIZATION_ID = p_organization_id;
156 CURSOR c2 IS
157 SELECT DECODE(count(*),0,0,1)
158 FROM WIP_STANDARD_CLASSES_VAL_V wac
159 WHERE wac.ORGANIZATION_ID = p_organization_id;
160 CURSOR c3 IS
161 SELECT DECODE(count(*),0,0,2)
162 FROM WIP_NON_STANDARD_CLASSES_VAL_V wac
163 WHERE wac.ORGANIZATION_ID = p_organization_id;
164 CURSOR c4 (cc VARCHAR2) IS
165 SELECT NVL(DISABLE_DATE,SYSDATE+1),
166 MATERIAL_ACCOUNT,
167 MATERIAL_VARIANCE_ACCOUNT,
168 MATERIAL_OVERHEAD_ACCOUNT,
169 RESOURCE_ACCOUNT,
170 RESOURCE_VARIANCE_ACCOUNT,
171 OUTSIDE_PROCESSING_ACCOUNT,
172 OUTSIDE_PROC_VARIANCE_ACCOUNT,
173 OVERHEAD_ACCOUNT,
174 OVERHEAD_VARIANCE_ACCOUNT,
175 STD_COST_ADJUSTMENT_ACCOUNT
176 FROM WIP_ACCOUNTING_CLASSES wac
177 WHERE wac.ORGANIZATION_ID = p_organization_id
178 AND wac.CLASS_CODE = cc;
179 CURSOR c5 IS
180 SELECT max(STOCK_LOCATOR_CONTROL_CODE),
181 max(DEFAULT_DEMAND_CLASS),
182 max(CALENDAR_CODE),
183 max(CALENDAR_EXCEPTION_SET_ID),
184 nvl(max(PROJECT_REFERENCE_ENABLED),2),
185 nvl(max(PROJECT_CONTROL_LEVEL),1),
186 nvl(max(PM_COST_COLLECTION_ENABLED),2),
187 max(PRIMARY_COST_METHOD)
188 FROM MTL_PARAMETERS
189 WHERE ORGANIZATION_ID = p_organization_id;
190
191 BEGIN
192 OPEN c1;
193 FETCH c1 INTO P_Default_Class, P_Lot_Number_Default_Type, p_po_creation_time, p_def_serialization_start_op, p_propagate_job_change_to_po;
194 IF c1%NOTFOUND THEN
195 p_wip_param_count := 0;
196 ELSE
197 p_wip_param_count := 1;
198 OPEN c2;
199 FETCH c2 INTO std;
200 CLOSE c2;
201 OPEN c3;
202 FETCH c3 INTO nonstd;
203 CLOSE c3;
204 p_acct_class_flag := std + nonstd;
205 IF p_acct_class_flag <> 0 THEN
206 IF P_Default_Class IS NOT NULL THEN
207 OPEN c4(P_Default_Class);
208 FETCH c4 INTO
209 p_disable_date,
210 p_default_ma,
211 p_default_mva,
212 p_default_moa,
213 p_default_ra,
214 p_default_rva,
215 p_default_opa,
216 p_default_opva,
217 p_default_oa,
218 p_default_ova,
219 p_default_scaa;
220 CLOSE c4;
221 END IF;
222 OPEN c5;
223 FETCH c5 INTO
224 p_org_locator_control,
225 p_demand_class_mp,
226 p_mp_calendar_code,
227 p_mp_exception_set_id,
228 p_project_ref,
229 p_project_control,
230 p_pm_cost_collection,
231 p_primary_cost_method;
232 CLOSE c5;
233 END IF;
234 END IF;
235 CLOSE c1;
236 END get_parameters;
237
238 END WIP_DISCRETE_INIT;