1 PACKAGE GML_INTORD_LOT_STS AUTHID CURRENT_USER AS
2 /* $Header: GMLIOLSS.pls 115.0 2004/01/08 20:58:20 uphadtar noship $*/
3
4
5 -----------------------------------------------------------------------------
6 -- Public variables
7 -----------------------------------------------------------------------------
8
9 --lot and status record
10 TYPE lot_sts_rec IS RECORD
11 ( lot_id NUMBER,
12 lot_status VARCHAR2(4));
13
14 --lot and status plsql table
15 TYPE lot_sts_table IS TABLE OF lot_sts_rec
16 INDEX BY BINARY_INTEGER;
17
18 --global lot and status plsql table variable
19 G_lot_sts_tab lot_sts_table;
20
21 --caching the profiles
22 G_move_diff_stat NUMBER := NVL(FND_PROFILE.VALUE('IC$MOVEDIFFSTAT'),0);
23 G_retain_ship_lot_sts VARCHAR2(1) := NVL(fnd_profile.value('GMI_INT_ORD_LOT_STS'),'N');
24
25 -----------------------------------------------------------------------------
26 -- Public subprograms
27 -----------------------------------------------------------------------------
28
29
30 PROCEDURE derive_porc_lot_status
31 ( p_item_id IN NUMBER
32 , p_whse_code IN VARCHAR2
33 , p_lot_id IN NUMBER
34 , p_location IN VARCHAR2
35 , p_ship_lot_status IN VARCHAR2
36 , x_rcpt_lot_status IN OUT NOCOPY VARCHAR2
37 , x_txn_allowed OUT NOCOPY VARCHAR2
38 , x_return_status OUT NOCOPY VARCHAR2
39 , x_msg_data OUT NOCOPY VARCHAR2
40 ) ;
41
42 PROCEDURE change_inv_lot_status
43 ( p_item_id IN NUMBER
44 , p_whse_code IN VARCHAR2
45 , p_lot_id IN NUMBER
46 , p_location IN VARCHAR2
47 , p_to_status IN VARCHAR2
48 , x_return_status OUT NOCOPY VARCHAR2
49 , x_msg_data OUT NOCOPY VARCHAR2
50 ) ;
51
52 PROCEDURE get_omso_lot_status
53 ( p_req_line_id IN NUMBER
54 , p_item_id IN NUMBER
55 , x_lot_sts_tab IN OUT NOCOPY lot_sts_table
56 , x_return_status OUT NOCOPY VARCHAR2
57 , x_msg_data OUT NOCOPY VARCHAR2
58 ) ;
59
60
61 END GML_INTORD_LOT_STS;