PACKAGE: APPS.GMIUTILS

Source

1 PACKAGE GMIUTILS AUTHID CURRENT_USER AS
2 /* $Header: gmiutils.pls 115.5 2004/06/24 20:09:20 txyu noship $ */
3 
4 /* TKW 6/2/2004 B3415691 - Enhancement for Serono */
5 /*  Global variables */
6 G_PKG_NAME  CONSTANT  VARCHAR2(30):='GMIUTILS';
7 G_ALLOW_NEG_INV         NUMBER:= NVL(fnd_profile.value('IC$ALLOWNEGINV'), 0);
8 
9 FUNCTION get_doc_no
10 ( x_return_status        OUT NOCOPY       VARCHAR2
11 , x_msg_count            OUT NOCOPY       NUMBER
12 , x_msg_data             OUT NOCOPY       VARCHAR2
13 , p_doc_type  		 IN               sy_docs_seq.doc_type%TYPE
14 , p_orgn_code 		 IN               sy_docs_seq.orgn_code%TYPE
15 ) RETURN VARCHAR2;
16 -- BEGIN BUG#3071034 Sastry
17 FUNCTION get_inventory_item_id
18 ( p_item_no         IN   VARCHAR2
19 , p_reset_flag      IN   BOOLEAN DEFAULT FALSE
20 ) RETURN NUMBER;
21 
22 x_inventory_item_id mtl_system_items.inventory_item_id%TYPE DEFAULT NULL;
23 -- END BUG#3071034
24 
25 -- TKW 10/31/03 B3230887
26 x_item_no ic_item_mst_b.item_no%TYPE DEFAULT NULL;
27 
28 
29 /* TKW 6/2/2004 B3415691
30    Enhancement for Serono
31    Procedures for use before/after batch update in lot conversion form */
32 
33 PROCEDURE set_allow_neg_inv;
34 PROCEDURE restore_allow_neg_inv;
35 
36 /* TKW 6/7/2004 B3415691
37    Enhancement for Serono
38    Functions for neg inv and lot status */
39 
40 FUNCTION NEG_INV_CHECK
41 (
42  p_item_id	IN NUMBER,
43  p_whse_code	IN VARCHAR2,
44  p_lot_id	IN NUMBER,
45  p_location	IN VARCHAR2,
46  p_qty		IN NUMBER,
47  p_qty2		IN NUMBER
48 )
49 RETURN BOOLEAN;
50 
51 FUNCTION LOT_STATUS_CHECK
52 (
53  p_item_id	IN NUMBER,
54  p_whse_code	IN VARCHAR2,
55  p_lot_id	IN NUMBER,
56  p_location	IN VARCHAR2,
57  p_doc_type	IN VARCHAR2,
58  p_line_type	IN NUMBER,
59  p_trans_qty	IN NUMBER,
60  p_lot_status	IN VARCHAR2
61 )
62 RETURN BOOLEAN;
63 
64 END GMIUTILS;
65