[Home] [Help]
9: | GMIVBULB.pls |
10: | |
11: | DESCRIPTION |
12: | This package contains private definitions For Business Layer |
13: | Logic For IC_LOCT_INV |
14: | |
15: | HISTORY |
16: | 12-JAN-2000 H.Verdding |
17: | 11-OCT-2000 Jalaj Srivastava Bug 1427888 |
27: | 7-JUN-2004 Teresa Wong B3415691 - Enhancement for Serono |
28: | Added code to recheck negative inventory and lot |
29: | status at the time of save. |
30: | 24-JUN-2004 Teresa Wong B3415691 - Enhancement for Serono |
31: | Added code to update lot status in ic_loct_inv |
32: | for yield transaction only if GMI: Move Different Status|
33: | was set to 2 and the onhand of the lot in the location |
34: | into which it was being yielded to was 0. |
35: | 6-JUL-2004 Jatinder Gogna - 3739308 |
38: +=========================================================================+
39: API Name : GMI_LOCT_INV_PVT
40: Type : Public
41: Function : This package contains private procedures used to create
42: IC_LOCT_INV transactions
43: Pre-reqs : N/A
44: Parameters: Per function
45:
46: Current Vers : 1.0
54: */
55: /* Global variables */
56: G_PKG_NAME CONSTANT VARCHAR2(30):='GMI_LOCT_INV_PVT';
57:
58: PROCEDURE UPDATING_IC_LOCT_INV
59: (
60: p_tran_rec IN GMI_TRANS_ENGINE_PUB.ictran_rec,
61: x_return_status OUT NOCOPY VARCHAR2
62: )
62: )
63: IS
64: err_msg VARCHAR2(200);
65: err_num NUMBER;
66: l_loct_inv IC_LOCT_INV%ROWTYPE;
67: l_loct_inv_rec ic_loct_inv%ROWTYPE; /* TKW B3415691 */
68:
69: BEGIN
70:
63: IS
64: err_msg VARCHAR2(200);
65: err_num NUMBER;
66: l_loct_inv IC_LOCT_INV%ROWTYPE;
67: l_loct_inv_rec ic_loct_inv%ROWTYPE; /* TKW B3415691 */
68:
69: BEGIN
70:
71: /* Initialize return status to sucess */
120: END IF;
121:
122: /* Update Inventory LOCTary Table -- */
123: /* Jalaj Srivastava Bug 1427888 11-OCT-2000 */
124: /* For status txn it the status needs to be updated in ic_loct_inv */
125: /* For destination move transaction, the status needs to be updated */
126: /* For grade txn nothing needs to be updated in ic_loct_inv */
127: /* ****************************************************
128: Jalaj Srivastava Bug 2483644
122: /* Update Inventory LOCTary Table -- */
123: /* Jalaj Srivastava Bug 1427888 11-OCT-2000 */
124: /* For status txn it the status needs to be updated in ic_loct_inv */
125: /* For destination move transaction, the status needs to be updated */
126: /* For grade txn nothing needs to be updated in ic_loct_inv */
127: /* ****************************************************
128: Jalaj Srivastava Bug 2483644
129: Now journal txns would also be posted using these APIs
130: ***************************************************** */
129: Now journal txns would also be posted using these APIs
130: ***************************************************** */
131: IF (substr(p_tran_rec.doc_type,1,3) <> 'GRD') THEN
132: IF (substr(p_tran_rec.doc_type,1,3) ='STS') THEN
133: IF (GMI_LOCT_INV_DB_PVT.UPDATE_IC_LOCT_INV
134: ( p_loct_inv => l_loct_inv,
135: p_status_updated => 1,
136: p_qty_updated => 0
137: )
140: END IF;
141: ELSE
142: /* Jalaj Srivastava Bug 3158806
143: Update ic_lots_cpg with hold_date if it is the first yielding transaction.
144: and hold date is null. update_ic_loct_inv internally calls insert_ic_loct_inv
145: if there is no existing inventory*/
146: Update ic_lots_cpg
147: Set ic_hold_date = (select p_tran_rec.trans_date + ic_hold_days
148: from ic_item_cpg
151: Where item_id = l_loct_inv.item_id and
152: lot_id = l_loct_inv.lot_id and
153: ic_hold_date is NULL and
154: not exists (select 1
155: from ic_loct_inv
156: where item_id = l_loct_inv.item_id
157: and lot_id = l_loct_inv.lot_id
158: );
159:
181: lot_created is NULL;
182: END IF;
183:
184:
185: IF (GMI_LOCT_INV_DB_PVT.UPDATE_IC_LOCT_INV
186: ( p_loct_inv => l_loct_inv,
187: p_status_updated => 0,
188: p_qty_updated => 1
189: )
196: *********************************************** */
197: IF ( (substr(p_tran_rec.doc_type,1,3) ='TRN')
198: AND (p_tran_rec.line_type = 1)
199: ) THEN
200: IF (GMI_LOCT_INV_DB_PVT.UPDATE_IC_LOCT_INV
201: ( p_loct_inv => l_loct_inv,
202: p_status_updated => 1,
203: p_qty_updated => 0
204: )
221: p_item_id => p_tran_rec.item_id,
222: p_whse_code => p_tran_rec.whse_code,
223: p_lot_id => p_tran_rec.lot_id,
224: p_location => p_tran_rec.location,
225: x_ic_loct_inv_row => l_loct_inv_rec
226: );
227:
228: IF (NVL (l_loct_inv_rec.loct_onhand, 0) - p_tran_rec.trans_qty = 0) THEN
229: IF (GMI_LOCT_INV_DB_PVT.UPDATE_IC_LOCT_INV
225: x_ic_loct_inv_row => l_loct_inv_rec
226: );
227:
228: IF (NVL (l_loct_inv_rec.loct_onhand, 0) - p_tran_rec.trans_qty = 0) THEN
229: IF (GMI_LOCT_INV_DB_PVT.UPDATE_IC_LOCT_INV
230: ( p_loct_inv => l_loct_inv,
231: p_status_updated => 1,
232: p_qty_updated => 0
233: )
237: END IF; /* onhand is 0 */
238: END IF; /* yield transaction and profile = 2 */
239: ELSE /* We are Going to create New record */
240: /* Jalaj Srivastava Bug 3158806
241: This part actually never gets called. update internally calls insert_ic_loct_inv.*/
242:
243: IF(GMI_LOCT_INV_DB_PVT.INSERT_IC_LOCT_INV( p_loct_inv => l_loct_inv)) THEN
244: RETURN;
245: ELSE
239: ELSE /* We are Going to create New record */
240: /* Jalaj Srivastava Bug 3158806
241: This part actually never gets called. update internally calls insert_ic_loct_inv.*/
242:
243: IF(GMI_LOCT_INV_DB_PVT.INSERT_IC_LOCT_INV( p_loct_inv => l_loct_inv)) THEN
244: RETURN;
245: ELSE
246: FND_MESSAGE.SET_NAME('GMI','GMI_IC_LOCT_INV_INSERT');
247: FND_MSG_PUB.ADD;
242:
243: IF(GMI_LOCT_INV_DB_PVT.INSERT_IC_LOCT_INV( p_loct_inv => l_loct_inv)) THEN
244: RETURN;
245: ELSE
246: FND_MESSAGE.SET_NAME('GMI','GMI_IC_LOCT_INV_INSERT');
247: FND_MSG_PUB.ADD;
248: RAISE FND_API.G_EXC_ERROR;
249: END IF;
250: END IF;
261:
262: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
263:
264: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME
265: , 'UPDATING_IC_LOCT_INV'
266: );
267:
268:
269:
266: );
267:
268:
269:
270: END UPDATING_IC_LOCT_INV;
271:
272: END GMI_LOCT_INV_PVT;