[Home] [Help]
PACKAGE BODY: APPS.GMI_LOTS_PVT
Source
1 PACKAGE BODY GMI_LOTS_PVT AS
2 --$Header: GMIVLOTB.pls 115.3 99/10/21 07:50:54 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 --| GMIVLOTB.pls |
11 --| |
12 --| PACKAGE NAME |
13 --| GMI_LOTS_PVT |
14 --| |
15 --| DESCRIPTION |
16 --| This package contains all utility functions that insert/update Lot |
17 --| related tables |
18 --| |
19 --| CONTENTS |
20 --| Insert_Ic_Lots_Mst |
21 --| Insert_Ic_Lots_Cpg |
22 --| |
23 --| HISTORY |
24 --| |
25 --+==========================================================================+
26 -- Body end of comments
27 -- Global variables
28 G_PKG_NAME CONSTANT VARCHAR2(30) := 'GMI_LOTS_PVT';
29 IC$DEFAULT_LOT VARCHAR2(255);
30 -- Func start of comments
31 --+==========================================================================+
32 --| FUNCTION NAME |
33 --| Insert_Ic_Lots_Mst |
34 --| |
35 --| USAGE |
36 --| Insert a row into ic_lots_mst |
37 --| |
38 --| DESCRIPTION |
39 --| This procedure inserts a row into ic_lots_mst |
40 --| |
41 --| PARAMETERS |
42 --| p_ic_lots_mst_rec IN RECORD - Lots Master Details |
43 --| |
44 --| RETURNS |
45 --| TRUE - If insert successful |
46 --| FALSE - If insert fails |
47 --| |
48 --| HISTORY |
49 --| |
50 --| 20-OCT-1999 H.Verdding Added Atribute Fields To Insert |
51 --| B1042722 |
52 --+==========================================================================+
53 -- Func end of comments
54 FUNCTION Insert_Ic_Lots_Mst
55 (p_ic_lots_mst_rec IN ic_lots_mst%ROWTYPE)
56 RETURN BOOLEAN
57 IS
58
59 BEGIN
60
61 INSERT INTO ic_lots_mst
62 ( item_id
63 , lot_no
64 , sublot_no
65 , lot_id
66 , lot_desc
67 , qc_grade
68 , expaction_code
69 , expaction_date
70 , lot_created
71 , expire_date
72 , retest_date
73 , strength
74 , inactive_ind
75 , origination_type
76 , shipvend_id
77 , vendor_lot_no
78 , creation_date
79 , last_update_date
80 , created_by
81 , last_updated_by
82 , trans_cnt
83 , delete_mark
84 , text_code
85 , attribute1
86 , attribute2
87 , attribute3
88 , attribute4
89 , attribute5
90 , attribute6
91 , attribute7
92 , attribute8
93 , attribute9
94 , attribute10
95 , attribute11
96 , attribute12
97 , attribute13
98 , attribute14
99 , attribute15
100 , attribute16
101 , attribute17
102 , attribute18
103 , attribute19
104 , attribute20
105 , attribute21
106 , attribute22
107 , attribute23
108 , attribute24
109 , attribute25
110 , attribute26
111 , attribute27
112 , attribute28
113 , attribute29
114 , attribute30
115 , attribute_category
116 )
117 VALUES
118 ( p_ic_lots_mst_rec.item_id
119 , p_ic_lots_mst_rec.lot_no
120 , p_ic_lots_mst_rec.sublot_no
121 , p_ic_lots_mst_rec.lot_id
122 , p_ic_lots_mst_rec.lot_desc
123 , p_ic_lots_mst_rec.qc_grade
124 , p_ic_lots_mst_rec.expaction_code
125 , p_ic_lots_mst_rec.expaction_date
126 , p_ic_lots_mst_rec.lot_created
127 , p_ic_lots_mst_rec.expire_date
128 , p_ic_lots_mst_rec.retest_date
129 , p_ic_lots_mst_rec.strength
130 , p_ic_lots_mst_rec.inactive_ind
131 , p_ic_lots_mst_rec.origination_type
132 , p_ic_lots_mst_rec.shipvend_id
133 , p_ic_lots_mst_rec.vendor_lot_no
134 , p_ic_lots_mst_rec.creation_date
135 , p_ic_lots_mst_rec.last_update_date
136 , p_ic_lots_mst_rec.created_by
137 , p_ic_lots_mst_rec.last_updated_by
138 , p_ic_lots_mst_rec.trans_cnt
139 , p_ic_lots_mst_rec.delete_mark
140 , p_ic_lots_mst_rec.text_code
141 , p_ic_lots_mst_rec.attribute1
142 , p_ic_lots_mst_rec.attribute2
143 , p_ic_lots_mst_rec.attribute3
144 , p_ic_lots_mst_rec.attribute4
145 , p_ic_lots_mst_rec.attribute5
146 , p_ic_lots_mst_rec.attribute6
147 , p_ic_lots_mst_rec.attribute7
148 , p_ic_lots_mst_rec.attribute8
149 , p_ic_lots_mst_rec.attribute9
150 , p_ic_lots_mst_rec.attribute10
151 , p_ic_lots_mst_rec.attribute11
152 , p_ic_lots_mst_rec.attribute12
153 , p_ic_lots_mst_rec.attribute13
154 , p_ic_lots_mst_rec.attribute14
155 , p_ic_lots_mst_rec.attribute15
156 , p_ic_lots_mst_rec.attribute16
157 , p_ic_lots_mst_rec.attribute17
158 , p_ic_lots_mst_rec.attribute18
159 , p_ic_lots_mst_rec.attribute19
160 , p_ic_lots_mst_rec.attribute20
161 , p_ic_lots_mst_rec.attribute21
162 , p_ic_lots_mst_rec.attribute22
163 , p_ic_lots_mst_rec.attribute23
164 , p_ic_lots_mst_rec.attribute24
165 , p_ic_lots_mst_rec.attribute25
166 , p_ic_lots_mst_rec.attribute26
167 , p_ic_lots_mst_rec.attribute27
168 , p_ic_lots_mst_rec.attribute28
169 , p_ic_lots_mst_rec.attribute29
170 , p_ic_lots_mst_rec.attribute30
171 , p_ic_lots_mst_rec.attribute_category
172 );
173
174 RETURN TRUE;
175
176 EXCEPTION
177 WHEN OTHERS THEN
178 -- IF FND_MSG_PUB.check_msg_level
179 -- (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
180 -- THEN
181
182 FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME
183 , 'insert_ic_lots_mst'
184 );
185 -- END IF;
186 RETURN FALSE;
187
188 END Insert_Ic_Lots_Mst;
189
190 -- Func start of comments
191 --+==========================================================================+
192 --| FUNCTION NAME |
193 --| Insert_Ic_Lots_Cpg |
194 --| |
195 --| USAGE |
196 --| Insert a row into ic_lots_cpg |
197 --| |
198 --| DESCRIPTION |
199 --| This procedure inserts a row into ic_lots_cpg |
200 --| |
201 --| PARAMETERS |
202 --| p_ic_lots_cpg_rec IN RECORD - CPG Lots Additional Attributes |
203 --| |
204 --| RETURNS |
205 --| TRUE - If insert successful |
206 --| FALSE - If insert fails |
207 --| |
208 --| HISTORY |
209 --| |
210 --+==========================================================================+
211 -- Func end of comments
212 FUNCTION Insert_Ic_Lots_Cpg
213 (p_ic_lots_cpg_rec IN ic_lots_cpg%ROWTYPE)
214 RETURN BOOLEAN
215 IS
216
217 BEGIN
218
219 INSERT INTO ic_lots_cpg
220 ( item_id
221 , lot_id
222 , ic_matr_date
223 , ic_hold_date
224 , created_by
225 , creation_date
226 , last_update_date
227 , last_updated_by
228 , last_update_login
229 )
230 VALUES
231 ( p_ic_lots_cpg_rec.item_id
232 , p_ic_lots_cpg_rec.lot_id
233 , p_ic_lots_cpg_rec.ic_matr_date
234 , p_ic_lots_cpg_rec.ic_hold_date
235 , p_ic_lots_cpg_rec.created_by
236 , p_ic_lots_cpg_rec.creation_date
237 , p_ic_lots_cpg_rec.last_update_date
238 , p_ic_lots_cpg_rec.last_updated_by
239 , p_ic_lots_cpg_rec.last_update_login
240 );
241
242 RETURN TRUE;
243
244 EXCEPTION
245 WHEN OTHERS THEN
246 -- IF FND_MSG_PUB.check_msg_level
247 -- (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
248 -- THEN
249
250 FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME
251 , 'insert_ic_lots_cpg'
252 );
253 -- END IF;
254 RETURN FALSE;
255
256 END Insert_Ic_Lots_Cpg;
257
258 END GMI_LOTS_PVT;