[Home] [Help]
PACKAGE BODY: APPS.GMI_ITEM_LOT_CONV_PVT
Source
1 PACKAGE BODY GMI_ITEM_LOT_CONV_PVT AS
2 --$Header: GMIVILCB.pls 115.2 99/07/16 04:49:43 porting ship $
3 -- Body start of comments
4 --+==========================================================================+
5 --| Copyright (c) 1998 Oracle Corporation |
6 --| Redwood Shores, CA, USA |
7 --| All rights reserved. |
8 --+==========================================================================+
9 --| FILE NAME |
10 --| GMIVILCB.pls |
11 --| |
12 --| PACKAGE NAME |
13 --| GMI_ITEM_LOT_CONV_PVT |
14 --| |
15 --| DESCRIPTION |
16 --| This package conatains all Utility functions pertaining to Item/Lot |
17 --| Conversion |
18 --| |
19 --| CONTENTS |
20 --| Insert_Ic_Item_Cnv |
21 --| |
22 --| HISTORY |
23 --| 25-FEB-1999 M.P.Godfrey Upgrade to R11 |
24 --| |
25 --+==========================================================================+
26 -- Body end of comments
27 -- Global variables
28 G_PKG_NAME CONSTANT VARCHAR2(30) := 'GMI_ITEM_LOT_CONV_PVT';
29 -- Func start of comments
30 --+==========================================================================+
31 --| FUNCTION NAME |
32 --| Create_Item |
33 --| |
34 --| USAGE |
35 --| Insert a row into IC_ITEM_CNV |
36 --| |
37 --| DESCRIPTION |
38 --| This procedure creates a new row into IC_ITEM_CNV |
39 --| |
40 --| PARAMETERS |
41 --| p_ic_item_cnv_rec IN RECORD - Item Conversion Details |
42 --| |
43 --| RETURNS |
44 --| TRUE - If Insert successful |
45 --| FALSE - If Insert Fails |
46 --| |
47 --| HISTORY |
48 --| |
49 --+==========================================================================+
50 -- Func end of comments
51 FUNCTION Insert_Ic_Item_Cnv
52 ( p_ic_item_cnv_rec IN ic_item_cnv%ROWTYPE)
53 RETURN BOOLEAN
54 IS
55
56 BEGIN
57
58 INSERT INTO ic_item_cnv
59 ( item_id
60 , lot_id
61 , um_type
62 , type_factor
63 , creation_date
64 , last_update_date
65 , created_by
66 , last_updated_by
67 , trans_cnt
68 , delete_mark
69 , text_code
70 , type_factorrev
71 , last_update_login
72 )
73 VALUES
74 ( p_ic_item_cnv_rec.item_id
75 , p_ic_item_cnv_rec.lot_id
76 , p_ic_item_cnv_rec.um_type
77 , p_ic_item_cnv_rec.type_factor
78 , p_ic_item_cnv_rec.creation_date
79 , p_ic_item_cnv_rec.last_update_date
80 , p_ic_item_cnv_rec.created_by
81 , p_ic_item_cnv_rec.last_updated_by
82 , p_ic_item_cnv_rec.trans_cnt
83 , p_ic_item_cnv_rec.delete_mark
84 , p_ic_item_cnv_rec.text_code
85 , p_ic_item_cnv_rec.type_factorrev
86 , p_ic_item_cnv_rec.last_update_login
87 );
88
89 RETURN TRUE;
90
91 EXCEPTION
92 WHEN OTHERS THEN
93 -- IF FND_MSG_PUB.check_msg_level
94 -- (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
95 -- THEN
96
97 FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME
98 , 'Insert_Ic_Item_Cnv'
99 );
100 -- END IF;
101 RETURN FALSE;
102
103 END Insert_Ic_Item_Cnv;
104
105 END GMI_ITEM_LOT_CONV_PVT;