1 PACKAGE CSTPLVCP AUTHID CURRENT_USER AS
2 /* $Header: CSTLVCPS.pls 120.1 2005/06/14 15:51:57 appldev $ */
3
4 -- PROCEDURE
5 -- cost_processor Costs inventory transactions for FIFO/LIFO
6 --
7 PROCEDURE cost_processor (
8 I_ORG_ID IN NUMBER,
9 I_TXN_ID IN NUMBER,
10 I_LAYER_ID IN NUMBER,
11 I_COST_TYPE IN NUMBER,
12 I_COST_METHOD IN NUMBER,
13 I_MAT_CT_ID IN NUMBER,
14 I_AVG_RATES_ID IN NUMBER,
15 I_ITEM_ID IN NUMBER,
16 I_TXN_QTY IN NUMBER,
17 I_TXN_ACTION_ID IN NUMBER,
18 I_TXN_SRC_TYPE IN NUMBER,
19 I_TXN_ORG_ID IN NUMBER,
20 I_TXFR_ORG_ID IN NUMBER,
21 I_COST_GRP_ID IN NUMBER,
22 I_TXFR_COST_GRP IN NUMBER,
23 I_TXFR_LAYER_ID IN NUMBER,
24 I_FOB_POINT IN NUMBER,
25 I_EXP_ITEM IN NUMBER,
26 I_EXP_FLAG IN NUMBER,
27 I_CITW_FLAG IN NUMBER,
28 I_FLOW_SCHEDULE IN NUMBER,
29 I_USER_ID IN NUMBER,
30 I_LOGIN_ID IN NUMBER,
31 I_REQ_ID IN NUMBER,
32 I_PRG_APPL_ID IN NUMBER,
33 I_PRG_ID IN NUMBER,
34 I_TPRICE_OPTION IN NUMBER,
35 I_TXF_PRICE IN NUMBER,
36 O_Err_Num OUT NOCOPY NUMBER,
37 O_Err_Code OUT NOCOPY VARCHAR2,
38 O_Err_Msg OUT NOCOPY VARCHAR2
39 );
40
41 -- PROCEDURE
42 -- common_issue_to_wip
43 -- Cost process the common issue to wip transaction.
44
45 procedure common_issue_to_wip(
46 I_ORG_ID IN NUMBER,
47 I_TXN_ID IN NUMBER,
48 I_LAYER_ID IN NUMBER,
49 I_COST_TYPE IN NUMBER,
50 I_ITEM_ID IN NUMBER,
51 I_TXN_QTY IN NUMBER,
52 I_TXN_ACTION_ID IN NUMBER,
53 I_TXN_SRC_TYPE IN NUMBER,
54 I_NEW_COST IN NUMBER,
55 I_COST_HOOK IN NUMBER,
56 I_TXFR_LAYER_ID IN NUMBER,
57 I_COST_METHOD IN NUMBER,
58 I_AVG_RATES_ID IN NUMBER,
59 I_MAT_CT_ID IN NUMBER,
60 I_COST_GRP_ID IN NUMBER,
61 I_TXFR_COST_GRP IN NUMBER,
62 I_EXP_FLAG IN NUMBER,
63 I_EXP_ITEM IN NUMBER,
64 I_CITW_FLAG IN NUMBER,
65 I_FLOW_SCHEDULE IN NUMBER,
66 I_USER_ID IN NUMBER,
67 I_LOGIN_ID IN NUMBER,
68 I_REQ_ID IN NUMBER,
69 I_PRG_APPL_ID IN NUMBER,
70 I_PRG_ID IN NUMBER,
71 O_Err_Num OUT NOCOPY NUMBER,
72 O_Err_Code OUT NOCOPY VARCHAR2,
73 O_Err_Msg OUT NOCOPY VARCHAR2
74 );
75
76 -- PROCEDURE
77 -- Interorg
78 -- This procedure will compute the transfer cost of an intransit
79 -- interorg transaction. It will also compute the transaction cost
80 -- of this transfer.
81 procedure interorg(
82 I_ORG_ID IN NUMBER,
83 I_TXN_ID IN NUMBER,
84 I_COST_METHOD IN NUMBER,
85 I_LAYER_ID IN NUMBER,
86 I_COST_TYPE IN NUMBER,
87 I_ITEM_ID IN NUMBER,
88 I_TXN_ACTION_ID IN NUMBER,
89 I_TXN_SRC_TYPE IN NUMBER,
90 I_TXN_ORG_ID IN NUMBER,
91 I_TXFR_ORG_ID IN NUMBER,
92 I_COST_GRP_ID IN NUMBER,
93 I_TXFR_COST_GRP IN NUMBER,
94 I_FOB_POINT IN NUMBER,
95 I_MAT_CT_ID IN NUMBER,
96 I_AVG_RATES_ID IN NUMBER,
97 I_USER_ID IN NUMBER,
98 I_LOGIN_ID IN NUMBER,
99 I_REQ_ID IN NUMBER,
100 I_PRG_APPL_ID IN NUMBER,
101 I_PRG_ID IN NUMBER,
102 I_TPRICE_OPTION IN NUMBER,
103 I_TXF_PRICE IN NUMBER,
104 O_TXN_QTY IN OUT NOCOPY NUMBER,
105 O_INTERORG_REC IN OUT NOCOPY NUMBER,
106 O_NO_UPDATE_MMT IN OUT NOCOPY NUMBER,
107 O_EXP_FLAG IN OUT NOCOPY NUMBER,
108 O_Err_Num OUT NOCOPY NUMBER,
109 O_Err_Code OUT NOCOPY VARCHAR2,
110 O_Err_Msg OUT NOCOPY VARCHAR2
111 );
112
113 PROCEDURE get_snd_rcv_rate(
114 I_TXN_ID IN NUMBER,
115 I_FROM_ORG IN NUMBER,
116 I_TO_ORG IN NUMBER,
117 O_SND_SOB_ID OUT NOCOPY NUMBER,
118 O_SND_CURR OUT NOCOPY VARCHAR2,
119 O_RCV_SOB_ID OUT NOCOPY NUMBER,
120 O_RCV_CURR OUT NOCOPY VARCHAR2,
121 O_CURR_TYPE OUT NOCOPY VARCHAR2,
122 O_CONV_RATE OUT NOCOPY NUMBER,
123 O_CONV_DATE OUT NOCOPY DATE,
124 O_Err_Num OUT NOCOPY NUMBER,
125 O_Err_Code OUT NOCOPY VARCHAR2,
126 O_Err_Msg OUT NOCOPY VARCHAR2
127 );
128
129 PROCEDURE get_snd_rcv_uom(
130 I_ITEM_ID IN NUMBER,
131 I_FROM_ORG IN NUMBER,
132 I_TO_ORG IN NUMBER,
133 O_SND_UOM OUT NOCOPY VARCHAR2,
134 O_RCV_UOM OUT NOCOPY VARCHAR2,
135 O_Err_Num OUT NOCOPY NUMBER,
136 O_Err_Code OUT NOCOPY VARCHAR2,
137 O_Err_Msg OUT NOCOPY VARCHAR2
138 );
139
140 FUNCTION standard_cost_org(
141 I_ORG_ID IN NUMBER
142 ) RETURN INTEGER;
143
144 PROCEDURE interorg_elemental_detail(
145 i_org_id IN NUMBER,
146 i_txn_id IN NUMBER,
147 i_compute_txn_cost IN NUMBER,
148 i_cost_type_id IN NUMBER,
149 i_from_layer_id IN NUMBER,
150 i_item_id IN NUMBER,
151 i_exp_flag IN NUMBER,
152 i_txn_update_id IN NUMBER,
153 i_from_org IN NUMBER,
154 i_to_org IN NUMBER,
155 i_snd_qty IN NUMBER,
156 i_txfr_cost IN NUMBER,
157 i_trans_cost IN NUMBER,
158 i_conv_rate IN NUMBER,
159 i_um_rate IN NUMBER,
160 i_user_id IN NUMBER,
161 i_login_id IN NUMBER,
162 i_req_id IN NUMBER,
163 i_prg_appl_id IN NUMBER,
164 i_prg_id IN NUMBER,
165 o_err_num OUT NOCOPY NUMBER,
166 o_err_code OUT NOCOPY VARCHAR2,
167 o_err_msg OUT NOCOPY VARCHAR2);
168
169 /*========================================================================
170 -- PROCEDURE
171 -- borrow_cost
172 --
173 -- DESCRIPTION
174 -- This procedure is duplicated from CSTPAVCP.borrow_cost procedure and
175 -- and revised for FIFO/LIFO costing
176 -- This procedure will identify the cost of all borrow transactions
177 -- related to the specified payback transactions, compute the average cost
178 -- and store it in MCTCD.
179 -- If layer actual cost hook is used, it will error out
180 -- since user-entered actual cost is not allowed for payback transaction.
181
182 -- HISTORY
183 -- 04/26/00 Dieu-Thuong Le Creation
184
185 =========================================================================*/
186
187 PROCEDURE borrow_cost(
188 I_ORG_ID IN NUMBER,
189 I_TXN_ID IN NUMBER,
190 I_USER_ID IN NUMBER,
191 I_LOGIN_ID IN NUMBER,
192 I_REQ_ID IN NUMBER,
193 I_PRG_APPL_ID IN NUMBER,
194 I_PRG_ID IN NUMBER,
195 I_ITEM_ID IN NUMBER,
196 I_HOOK IN NUMBER,
197 I_TO_LAYER IN NUMBER,
198 O_Err_Num OUT NOCOPY NUMBER,
199 O_Err_Code OUT NOCOPY VARCHAR2,
200 O_Err_Msg OUT NOCOPY VARCHAR2
201 );
202
203 /*=========================================================================
204 -- PROCEDURE
205 -- sub_transfer
206 --
207 -- DESCRIPTION
208 -- This procedure costs the subinventory transfer for both the transfer
209 -- subinventory and the destination subinventory.
210 --
211 -- HISTORY
212 -- 4/26/00 Dieu-Thuong Le Creation
213
214 ==========================================================================*/
215
216 procedure sub_transfer(
217 I_ORG_ID IN NUMBER,
218 I_TXN_ID IN NUMBER,
219 I_LAYER_ID IN NUMBER,
220 I_COST_TYPE IN NUMBER,
221 I_ITEM_ID IN NUMBER,
222 I_TXN_QTY IN NUMBER,
223 I_TXN_ACTION_ID IN NUMBER,
224 I_TXN_SRC_TYPE IN NUMBER,
225 I_NEW_COST IN NUMBER,
226 I_HOOK IN NUMBER,
227 I_COST_METHOD IN NUMBER,
228 I_TXFR_LAYER_ID IN NUMBER,
229 I_CITW_FLAG IN NUMBER,
230 I_FLOW_SCHEDULE IN NUMBER,
231 I_MAT_CT_ID IN NUMBER,
232 I_AVG_RATES_ID IN NUMBER,
233 I_USER_ID IN NUMBER,
234 I_LOGIN_ID IN NUMBER,
235 I_REQ_ID IN NUMBER,
236 I_PRG_APPL_ID IN NUMBER,
237 I_PRG_ID IN NUMBER,
238 O_Err_Num OUT NOCOPY NUMBER,
239 O_Err_Code OUT NOCOPY VARCHAR2,
240 O_Err_Msg OUT NOCOPY VARCHAR2
241 );
242
243 /*========================================================================
244 -- PROCEDURE
245 -- payback_variance
246 --
247 -- DESCRIPTION
248 -- This procedure will be called for all Payback transactions across the
249 -- same cost group.
250 -- This procedure will identify the cost of all borrow transactions
251 -- related to the specified payback transactions, compute the average cost
252 -- calculate the variance and update payback_variance_amount column of MCLACD.
253 --
254 -- If layer actual cost hook is used, it will error out
255 -- since user-entered actual cost is not allowed for payback transaction.
256
257 -- HISTORY
258 -- 09/15/03 Anju Gupta Design
259
260 =========================================================================*/
261
262 PROCEDURE payback_variance(
263 I_ORG_ID IN NUMBER,
264 I_TXN_ID IN NUMBER,
265 I_TXN_QTY IN NUMBER,
266 I_USER_ID IN NUMBER,
267 I_LOGIN_ID IN NUMBER,
268 I_REQ_ID IN NUMBER,
269 I_PRG_APPL_ID IN NUMBER,
270 I_PRG_ID IN NUMBER,
271 I_ITEM_ID IN NUMBER,
272 I_HOOK IN NUMBER,
273 I_FROM_LAYER IN NUMBER,
274 O_Err_Num OUT NOCOPY NUMBER,
275 O_Err_Code OUT NOCOPY VARCHAR2,
276 O_Err_Msg OUT NOCOPY VARCHAR2
277 );
278 /*========================================================================
279 -- PROCEDURE
280 -- Cost_Logical_itr_receipt
281 --
282 -- DESCRIPTION
283 -- This procedure is called from process discrete transfer for ALL
284 -- types of transfers (dir and intransit)
285
286 -- HISTORY
287 -- 04/08/05 umoogala Created
288 -- For OPM INVCONV Process-Discrete Transfers Enhancement.
289 =========================================================================*/
290
291 PROCEDURE Cost_Logical_itr_receipt(
292 I_ORG_ID IN NUMBER,
293 I_TXN_ID IN NUMBER,
294 I_COST_METHOD IN NUMBER,
295 I_LAYER_ID IN NUMBER,
296 I_COST_TYPE IN NUMBER,
297 I_ITEM_ID IN NUMBER,
298 I_TXN_ACTION_ID IN NUMBER,
299 I_TXN_SRC_TYPE IN NUMBER,
300 I_TXN_ORG_ID IN NUMBER,
301 I_TXFR_ORG_ID IN NUMBER,
302 I_COST_GRP_ID IN NUMBER,
303 I_TXFR_COST_GRP IN NUMBER,
304 I_FOB_POINT IN NUMBER,
305 I_MAT_CT_ID IN NUMBER,
306 I_AVG_RATES_ID IN NUMBER,
307 I_USER_ID IN NUMBER,
308 I_LOGIN_ID IN NUMBER,
309 I_REQ_ID IN NUMBER,
310 I_PRG_APPL_ID IN NUMBER,
311 I_PRG_ID IN NUMBER,
312 I_TPRICE_OPTION IN NUMBER,
313 I_TXF_PRICE IN NUMBER,
314 O_TXN_QTY IN OUT NOCOPY NUMBER,
315 O_INTERORG_REC IN OUT NOCOPY NUMBER,
316 O_NO_UPDATE_MMT IN OUT NOCOPY NUMBER,
317 O_EXP_FLAG IN OUT NOCOPY NUMBER,
318 O_Err_Num OUT NOCOPY NUMBER,
319 O_Err_Code OUT NOCOPY VARCHAR2,
320 O_Err_Msg OUT NOCOPY VARCHAR2
321 );
322
323 END CSTPLVCP;