1: PACKAGE BODY GMI_LOCKS AS
2: /* $Header: GMIULCKB.pls 115.9 2004/01/08 21:14:44 adeshmuk ship $ */
3:
4: /* ========================================================================
5: * This file contains the body of a package which
70: * Warehouse, Lot and location parameter set.
71: * ============================================================================*/
72:
73: /* Global variables */
74: G_PKG_NAME CONSTANT VARCHAR2(30):='GMI_Locks';
75:
76: /* This procedure is private to the package. */
77:
78: PROCEDURE lock_rows
156: )
157: IS
158: i_lock_status BOOLEAN;
159: BEGIN
160: GMI_LOCKS.lock_inventory
161: ( i_item_id => i_item_id,
162: i_whse_code => NULL,
163: i_lot_id => NULL,
164: i_lot_status => NULL,
179: )
180: IS
181: i_lock_status BOOLEAN;
182: BEGIN
183: GMI_LOCKS.lock_inventory
184: ( i_item_id => i_item_id,
185: i_whse_code => i_whse_code,
186: i_lot_id => NULL,
187: i_lot_status => NULL,
204: )
205: IS
206: i_lock_status BOOLEAN;
207: BEGIN
208: GMI_LOCKS.lock_inventory
209: ( i_item_id => i_item_id,
210: i_whse_code => i_whse_code,
211: i_lot_id => i_lot_id,
212: i_lot_status => i_lot_status,
229: )
230: IS
231: i_lock_status BOOLEAN;
232: BEGIN
233: GMI_LOCKS.lock_inventory
234: ( i_item_id => i_item_id,
235: i_whse_code => i_whse_code,
236: i_lot_id => NULL,
237: i_lot_status => NULL,
255: )
256: IS
257: i_lock_status BOOLEAN;
258: BEGIN
259: GMI_LOCKS.lock_inventory
260: ( i_item_id => i_item_id,
261: i_whse_code => i_whse_code,
262: i_lot_id => i_lot_id,
263: i_lot_status => NULL,
281: )
282: IS
283: i_lock_status BOOLEAN;
284: BEGIN
285: GMI_LOCKS.lock_inventory
286: ( i_item_id => i_item_id,
287: i_whse_code => i_whse_code,
288: i_lot_id => i_lot_id,
289: i_lot_status => i_lot_status,
311: BEGIN
312:
313: FOR retry_count in 1..i_attempts
314: LOOP
315: GMI_LOCKS.lock_rows
316: ( i_item_id => i_item_id,
317: i_whse_code => i_whse_code,
318: i_lot_id => i_lot_id,
319: i_lot_status => i_lot_status,
328: END IF;
329: END LOOP;
330: END;
331:
332: END GMI_LOCKS;