[Home] [Help]
PACKAGE BODY: APPS.CSD_PRODUCT_TRANSACTIONS_PKG
Source
4
1 PACKAGE BODY CSD_PRODUCT_TRANSACTIONS_PKG as
2 /* $Header: csdtptxb.pls 120.3.12010000.2 2008/09/18 18:46:31 nnadig ship $ */
3
5 G_PKG_NAME CONSTANT VARCHAR2(30):= 'CSD_PRODUCT_TRANSACTIONS_PKG';
6 G_FILE_NAME CONSTANT VARCHAR2(12) := 'csdtptxb.pls';
7 l_debug NUMBER := csd_gen_utility_pvt.g_debug_level;
8
9 PROCEDURE Insert_Row(
10 px_PRODUCT_TRANSACTION_ID IN OUT NOCOPY NUMBER,
11 p_REPAIR_LINE_ID NUMBER,
12 p_ESTIMATE_DETAIL_ID NUMBER,
13 p_ACTION_TYPE VARCHAR2,
14 p_ACTION_CODE VARCHAR2,
15 p_LOT_NUMBER VARCHAR2,
16 p_SUB_INVENTORY VARCHAR2,
17 p_INTERFACE_TO_OM_FLAG VARCHAR2,
18 p_BOOK_SALES_ORDER_FLAG VARCHAR2,
19 p_RELEASE_SALES_ORDER_FLAG VARCHAR2,
20 p_SHIP_SALES_ORDER_FLAG VARCHAR2,
21 p_PROD_TXN_STATUS VARCHAR2,
22 p_PROD_TXN_CODE VARCHAR2,
23 p_LAST_UPDATE_DATE DATE,
24 p_CREATION_DATE DATE,
25 p_LAST_UPDATED_BY NUMBER,
26 p_CREATED_BY NUMBER,
27 p_LAST_UPDATE_LOGIN NUMBER,
28 p_ATTRIBUTE1 VARCHAR2,
29 p_ATTRIBUTE2 VARCHAR2,
30 p_ATTRIBUTE3 VARCHAR2,
31 p_ATTRIBUTE4 VARCHAR2,
32 p_ATTRIBUTE5 VARCHAR2,
33 p_ATTRIBUTE6 VARCHAR2,
34 p_ATTRIBUTE7 VARCHAR2,
35 p_ATTRIBUTE8 VARCHAR2,
36 p_ATTRIBUTE9 VARCHAR2,
37 p_ATTRIBUTE10 VARCHAR2,
38 p_ATTRIBUTE11 VARCHAR2,
39 p_ATTRIBUTE12 VARCHAR2,
40 p_ATTRIBUTE13 VARCHAR2,
41 p_ATTRIBUTE14 VARCHAR2,
42 p_ATTRIBUTE15 VARCHAR2,
43 p_CONTEXT VARCHAR2,
44 p_OBJECT_VERSION_NUMBER NUMBER,
45 P_REQ_HEADER_ID NUMBER,
46 P_REQ_LINE_ID NUMBER,
47 P_ORDER_HEADER_ID NUMBER,
48 P_ORDER_LINE_ID NUMBER,
49 P_PRD_TXN_QTY_RECEIVED NUMBER,
50 P_PRD_TXN_QTY_SHIPPED NUMBER,
51 P_SOURCE_SERIAL_NUMBER VARCHAR2,
55 P_LOCATOR_ID NUMBER,
52 P_SOURCE_INSTANCE_ID NUMBER,
53 P_NON_SOURCE_SERIAL_NUMBER VARCHAR2,
54 P_NON_SOURCE_INSTANCE_ID NUMBER,
56 P_SUB_INVENTORY_RCVD VARCHAR2,
57 P_LOT_NUMBER_RCVD VARCHAR2,
58 P_PICKING_RULE_ID NUMBER, -- R12 development change
59 P_PROJECT_ID NUMBER,
60 P_TASK_ID NUMBER,
61 P_UNIT_NUMBER VARCHAR2,
62 P_INTERNAL_PO_HEADER_ID NUMBER -- swai: bug 6148019
63 )
64
65 IS
66 CURSOR C2 IS SELECT CSD_PRODUCT_TRANSACTIONS_S1.nextval FROM sys.dual;
67 BEGIN
68 -- Since Product transaction id is a primary key, it is good if value is always
69 -- generated from a sequence. This is to fix bug 3215153 saupadhy
70 -- If (px_PRODUCT_TRANSACTION_ID IS NULL) OR (px_PRODUCT_TRANSACTION_ID = FND_API.G_MISS_NUM) then
71 OPEN C2;
72 FETCH C2 INTO px_PRODUCT_TRANSACTION_ID;
73 CLOSE C2;
74 -- End If;
75 INSERT INTO CSD_PRODUCT_TRANSACTIONS(
76 PRODUCT_TRANSACTION_ID,
77 REPAIR_LINE_ID,
78 ESTIMATE_DETAIL_ID,
79 ACTION_TYPE,
80 ACTION_CODE,
81 LOT_NUMBER,
82 SUB_INVENTORY,
83 INTERFACE_TO_OM_FLAG,
84 BOOK_SALES_ORDER_FLAG,
85 RELEASE_SALES_ORDER_FLAG,
86 SHIP_SALES_ORDER_FLAG,
87 PROD_TXN_STATUS,
88 PROD_TXN_CODE,
89 LAST_UPDATE_DATE,
90 CREATION_DATE,
91 LAST_UPDATED_BY,
92 CREATED_BY,
93 LAST_UPDATE_LOGIN,
94 ATTRIBUTE1,
95 ATTRIBUTE2,
96 ATTRIBUTE3,
97 ATTRIBUTE4,
98 ATTRIBUTE5,
99 ATTRIBUTE6,
100 ATTRIBUTE7,
101 ATTRIBUTE8,
102 ATTRIBUTE9,
103 ATTRIBUTE10,
104 ATTRIBUTE11,
105 ATTRIBUTE12,
106 ATTRIBUTE13,
107 ATTRIBUTE14,
108 ATTRIBUTE15,
109 CONTEXT,
110 OBJECT_VERSION_NUMBER,
111 REQ_HEADER_ID ,
112 REQ_LINE_ID ,
113 ORDER_HEADER_ID ,
114 ORDER_LINE_ID ,
115 QUANTITY_RECEIVED ,
116 QUANTITY_SHIPPED ,
117 SOURCE_SERIAL_NUMBER ,
118 SOURCE_INSTANCE_ID ,
119 NON_SOURCE_SERIAL_NUMBER ,
120 NON_SOURCE_INSTANCE_ID ,
121 LOCATOR_ID ,
122 SUB_INVENTORY_RCVD ,
123 LOT_NUMBER_RCVD ,
124 PICKING_RULE_ID,
125 PROJECT_ID,
126 TASK_ID,
127 UNIT_NUMBER,
128 INTERNAL_PO_HEADER_ID
129 )
130 VALUES (
131 px_PRODUCT_TRANSACTION_ID,
132 p_REPAIR_LINE_ID,
133 decode( p_ESTIMATE_DETAIL_ID, FND_API.G_MISS_NUM, NULL, p_ESTIMATE_DETAIL_ID),
134 decode( p_ACTION_TYPE, FND_API.G_MISS_CHAR, NULL, p_ACTION_TYPE),
135 decode( p_ACTION_CODE, FND_API.G_MISS_CHAR, NULL, p_ACTION_CODE),
136 decode( p_LOT_NUMBER, FND_API.G_MISS_CHAR, NULL, p_LOT_NUMBER),
137 decode( p_SUB_INVENTORY, FND_API.G_MISS_CHAR, NULL, p_SUB_INVENTORY),
138 decode( p_INTERFACE_TO_OM_FLAG, FND_API.G_MISS_CHAR, NULL, p_INTERFACE_TO_OM_FLAG),
139 decode( p_BOOK_SALES_ORDER_FLAG, FND_API.G_MISS_CHAR, NULL, p_BOOK_SALES_ORDER_FLAG),
140 decode( p_RELEASE_SALES_ORDER_FLAG, FND_API.G_MISS_CHAR, NULL, p_RELEASE_SALES_ORDER_FLAG),
141 decode( p_SHIP_SALES_ORDER_FLAG, FND_API.G_MISS_CHAR, NULL, p_SHIP_SALES_ORDER_FLAG),
142 decode( p_PROD_TXN_STATUS, FND_API.G_MISS_CHAR, NULL, p_PROD_TXN_STATUS),
143 decode( p_PROD_TXN_CODE, FND_API.G_MISS_CHAR, NULL, p_PROD_TXN_CODE),
144 p_LAST_UPDATE_DATE,
145 p_CREATION_DATE,
146 p_LAST_UPDATED_BY,
147 p_CREATED_BY,
148 decode( p_LAST_UPDATE_LOGIN, FND_API.G_MISS_NUM, NULL, p_LAST_UPDATE_LOGIN),
149 decode( p_ATTRIBUTE1, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE1),
150 decode( p_ATTRIBUTE2, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE2),
151 decode( p_ATTRIBUTE3, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE3),
152 decode( p_ATTRIBUTE4, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE4),
153 decode( p_ATTRIBUTE5, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE5),
154 decode( p_ATTRIBUTE6, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE6),
155 decode( p_ATTRIBUTE7, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE7),
156 decode( p_ATTRIBUTE8, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE8),
157 decode( p_ATTRIBUTE9, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE9),
158 decode( p_ATTRIBUTE10, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE10),
159 decode( p_ATTRIBUTE11, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE11),
160 decode( p_ATTRIBUTE12, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE12),
161 decode( p_ATTRIBUTE13, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE13),
162 decode( p_ATTRIBUTE14, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE14),
163 decode( p_ATTRIBUTE15, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE15),
164 decode( p_CONTEXT, FND_API.G_MISS_CHAR, NULL, p_CONTEXT),
165 p_OBJECT_VERSION_NUMBER,
166 decode(p_Req_Header_Id,Fnd_API.G_MISS_NUM,NULL,p_Req_Header_Id),
167 decode(p_Req_Line_Id,Fnd_API.G_MISS_NUM,NULL,p_Req_Line_Id),
168 decode(p_Order_Header_Id,Fnd_API.G_MISS_NUM,NULL,p_Order_Header_Id),
169 decode(p_Order_Line_Id,Fnd_API.G_MISS_NUM,NULL,p_Order_Line_Id),
170 decode(p_Prd_Txn_Qty_Received,Fnd_API.G_MISS_NUM,NULL,p_Prd_Txn_Qty_Received),
174 decode(p_Non_Source_Serial_Number,Fnd_API.G_MISS_CHAR,NULL,p_Non_Source_Serial_Number) ,
171 decode(p_Prd_Txn_Qty_Shipped,Fnd_API.G_MISS_NUM,NULL,p_Prd_Txn_Qty_Shipped),
172 decode(p_Source_Serial_Number,Fnd_API.G_MISS_CHAR,NULL,p_Source_Serial_Number) ,
173 decode(p_Source_Instance_ID,Fnd_API.G_MISS_NUM,NULL,p_Source_Instance_Id) ,
175 decode(p_Non_Source_Instance_ID,Fnd_API.G_MISS_NUM,NULL,p_Non_Source_Instance_ID) ,
176 decode(p_Locator_Id , Fnd_API.G_MISS_NUM,NULL,p_Locator_Id),
177 decode(p_Sub_Inventory_Rcvd,Fnd_API.G_MISS_CHAR,NULL,p_Sub_Inventory_Rcvd),
178 decode(p_Lot_Number_Rcvd,Fnd_API.G_MISS_CHAR,NULL,p_Lot_Number_rcvd),
179 decode(p_picking_rule_id,Fnd_API.G_MISS_CHAR,NULL,p_picking_rule_id),
180 decode(P_PROJECT_ID,Fnd_API.G_MISS_NUM,NULL,P_PROJECT_ID),
181 decode(P_TASK_ID,Fnd_API.G_MISS_NUM,NULL,P_TASK_ID),
182 decode(P_UNIT_NUMBER,Fnd_API.G_MISS_CHAR,NULL,P_UNIT_NUMBER),
183 --taklam
184 -- swai: bug 6148019
185 decode(P_INTERNAL_PO_HEADER_ID,Fnd_API.G_MISS_NUM,NULL,P_INTERNAL_PO_HEADER_ID));
186
187 End Insert_Row;
188
189 PROCEDURE Update_Row(
190 p_PRODUCT_TRANSACTION_ID NUMBER,
191 p_REPAIR_LINE_ID NUMBER,
192 p_ESTIMATE_DETAIL_ID NUMBER,
193 p_ACTION_TYPE VARCHAR2,
194 p_ACTION_CODE VARCHAR2,
195 p_LOT_NUMBER VARCHAR2,
196 p_SUB_INVENTORY VARCHAR2,
197 p_INTERFACE_TO_OM_FLAG VARCHAR2,
198 p_BOOK_SALES_ORDER_FLAG VARCHAR2,
199 p_RELEASE_SALES_ORDER_FLAG VARCHAR2,
200 p_SHIP_SALES_ORDER_FLAG VARCHAR2,
201 p_PROD_TXN_STATUS VARCHAR2,
202 p_PROD_TXN_CODE VARCHAR2,
203 p_LAST_UPDATE_DATE DATE,
204 p_CREATION_DATE DATE,
205 p_LAST_UPDATED_BY NUMBER,
206 p_CREATED_BY NUMBER,
207 p_LAST_UPDATE_LOGIN NUMBER,
208 p_ATTRIBUTE1 VARCHAR2,
209 p_ATTRIBUTE2 VARCHAR2,
210 p_ATTRIBUTE3 VARCHAR2,
211 p_ATTRIBUTE4 VARCHAR2,
212 p_ATTRIBUTE5 VARCHAR2,
213 p_ATTRIBUTE6 VARCHAR2,
214 p_ATTRIBUTE7 VARCHAR2,
215 p_ATTRIBUTE8 VARCHAR2,
216 p_ATTRIBUTE9 VARCHAR2,
217 p_ATTRIBUTE10 VARCHAR2,
218 p_ATTRIBUTE11 VARCHAR2,
219 p_ATTRIBUTE12 VARCHAR2,
220 p_ATTRIBUTE13 VARCHAR2,
221 p_ATTRIBUTE14 VARCHAR2,
222 p_ATTRIBUTE15 VARCHAR2,
223 p_CONTEXT VARCHAR2,
224 p_OBJECT_VERSION_NUMBER NUMBER,
225 P_REQ_HEADER_ID NUMBER,
226 P_REQ_LINE_ID NUMBER,
227 P_ORDER_HEADER_ID NUMBER,
228 P_ORDER_LINE_ID NUMBER,
229 P_PRD_TXN_QTY_RECEIVED NUMBER,
230 P_PRD_TXN_QTY_SHIPPED NUMBER,
231 P_SOURCE_SERIAL_NUMBER VARCHAR2,
232 P_SOURCE_INSTANCE_ID NUMBER,
233 P_NON_SOURCE_SERIAL_NUMBER VARCHAR2,
234 P_NON_SOURCE_INSTANCE_ID NUMBER,
235 P_LOCATOR_ID NUMBER,
236 P_SUB_INVENTORY_RCVD VARCHAR2,
237 P_LOT_NUMBER_RCVD VARCHAR2,
238 P_PICKING_RULE_ID NUMBER, -- R12 addition
239 P_PROJECT_ID NUMBER,
240 P_TASK_ID NUMBER,
241 P_UNIT_NUMBER VARCHAR2,
242 P_INTERNAL_PO_HEADER_ID NUMBER -- swai: bug 6148019
243 )
244 IS
245 BEGIN
246 NULL ;
247 Update CSD_PRODUCT_TRANSACTIONS
248 SET
249 REPAIR_LINE_ID = decode( p_REPAIR_LINE_ID, FND_API.G_MISS_NUM, REPAIR_LINE_ID, p_REPAIR_LINE_ID),
250 ESTIMATE_DETAIL_ID = decode( p_ESTIMATE_DETAIL_ID, FND_API.G_MISS_NUM, ESTIMATE_DETAIL_ID, p_ESTIMATE_DETAIL_ID),
251 ACTION_TYPE = decode( p_ACTION_TYPE, FND_API.G_MISS_CHAR, ACTION_TYPE, p_ACTION_TYPE),
252 ACTION_CODE = decode( p_ACTION_CODE, FND_API.G_MISS_CHAR, ACTION_CODE, p_ACTION_CODE),
253 LOT_NUMBER = decode( p_LOT_NUMBER, FND_API.G_MISS_CHAR, LOT_NUMBER, p_LOT_NUMBER),
254 SUB_INVENTORY = decode( p_SUB_INVENTORY, FND_API.G_MISS_CHAR, SUB_INVENTORY, p_SUB_INVENTORY),
255 INTERFACE_TO_OM_FLAG = decode( p_INTERFACE_TO_OM_FLAG, FND_API.G_MISS_CHAR, INTERFACE_TO_OM_FLAG, p_INTERFACE_TO_OM_FLAG),
256 BOOK_SALES_ORDER_FLAG = decode( p_BOOK_SALES_ORDER_FLAG, FND_API.G_MISS_CHAR, BOOK_SALES_ORDER_FLAG, p_BOOK_SALES_ORDER_FLAG),
257 RELEASE_SALES_ORDER_FLAG = decode( p_RELEASE_SALES_ORDER_FLAG, FND_API.G_MISS_CHAR, RELEASE_SALES_ORDER_FLAG, p_RELEASE_SALES_ORDER_FLAG),
258 SHIP_SALES_ORDER_FLAG = decode( p_SHIP_SALES_ORDER_FLAG, FND_API.G_MISS_CHAR, SHIP_SALES_ORDER_FLAG, p_SHIP_SALES_ORDER_FLAG),
259 PROD_TXN_STATUS = decode( p_PROD_TXN_STATUS, FND_API.G_MISS_CHAR, PROD_TXN_STATUS, p_PROD_TXN_STATUS),
260 PROD_TXN_CODE = decode( p_PROD_TXN_CODE, FND_API.G_MISS_CHAR, PROD_TXN_CODE, p_PROD_TXN_CODE),
261 LAST_UPDATE_DATE = decode( p_LAST_UPDATE_DATE, FND_API.G_MISS_DATE, LAST_UPDATE_DATE, p_LAST_UPDATE_DATE),
262 -- CREATION_DATE = decode( p_CREATION_DATE, FND_API.G_MISS_DATE, CREATION_DATE, p_CREATION_DATE),
266 ATTRIBUTE1 = decode( p_ATTRIBUTE1, FND_API.G_MISS_CHAR, ATTRIBUTE1, p_ATTRIBUTE1),
263 LAST_UPDATED_BY = decode( p_LAST_UPDATED_BY, FND_API.G_MISS_NUM, LAST_UPDATED_BY, p_LAST_UPDATED_BY),
264 -- CREATED_BY = decode( p_CREATED_BY, FND_API.G_MISS_NUM, CREATED_BY, p_CREATED_BY),
265 LAST_UPDATE_LOGIN = decode( p_LAST_UPDATE_LOGIN, FND_API.G_MISS_NUM, LAST_UPDATE_LOGIN, p_LAST_UPDATE_LOGIN),
267 ATTRIBUTE2 = decode( p_ATTRIBUTE2, FND_API.G_MISS_CHAR, ATTRIBUTE2, p_ATTRIBUTE2),
268 ATTRIBUTE3 = decode( p_ATTRIBUTE3, FND_API.G_MISS_CHAR, ATTRIBUTE3, p_ATTRIBUTE3),
269 ATTRIBUTE4 = decode( p_ATTRIBUTE4, FND_API.G_MISS_CHAR, ATTRIBUTE4, p_ATTRIBUTE4),
270 ATTRIBUTE5 = decode( p_ATTRIBUTE5, FND_API.G_MISS_CHAR, ATTRIBUTE5, p_ATTRIBUTE5),
271 ATTRIBUTE6 = decode( p_ATTRIBUTE6, FND_API.G_MISS_CHAR, ATTRIBUTE6, p_ATTRIBUTE6),
272 ATTRIBUTE7 = decode( p_ATTRIBUTE7, FND_API.G_MISS_CHAR, ATTRIBUTE7, p_ATTRIBUTE7),
273 ATTRIBUTE8 = decode( p_ATTRIBUTE8, FND_API.G_MISS_CHAR, ATTRIBUTE8, p_ATTRIBUTE8),
274 ATTRIBUTE9 = decode( p_ATTRIBUTE9, FND_API.G_MISS_CHAR, ATTRIBUTE9, p_ATTRIBUTE9),
275 ATTRIBUTE10 = decode( p_ATTRIBUTE10, FND_API.G_MISS_CHAR, ATTRIBUTE10, p_ATTRIBUTE10),
276 ATTRIBUTE11 = decode( p_ATTRIBUTE11, FND_API.G_MISS_CHAR, ATTRIBUTE11, p_ATTRIBUTE11),
277 ATTRIBUTE12 = decode( p_ATTRIBUTE12, FND_API.G_MISS_CHAR, ATTRIBUTE12, p_ATTRIBUTE12),
278 ATTRIBUTE13 = decode( p_ATTRIBUTE13, FND_API.G_MISS_CHAR, ATTRIBUTE13, p_ATTRIBUTE13),
279 ATTRIBUTE14 = decode( p_ATTRIBUTE14, FND_API.G_MISS_CHAR, ATTRIBUTE14, p_ATTRIBUTE14),
280 ATTRIBUTE15 = decode( p_ATTRIBUTE15, FND_API.G_MISS_CHAR, ATTRIBUTE15, p_ATTRIBUTE15),
281 CONTEXT = decode( p_CONTEXT, FND_API.G_MISS_CHAR, CONTEXT, p_CONTEXT),
282 OBJECT_VERSION_NUMBER = OBJECT_VERSION_NUMBER + 1,
283 Req_Header_Id = decode(p_Req_Header_Id,Fnd_API.G_MISS_NUM,Req_Header_Id,p_Req_Header_Id),
284 Req_Line_Id = decode(p_Req_Line_Id,Fnd_API.G_MISS_NUM,Req_Line_Id,p_Req_Line_Id),
285 Order_Header_Id = decode(p_Order_Header_Id,Fnd_API.G_MISS_NUM,Order_Header_Id,p_Order_Header_Id),
286 Order_Line_Id = decode(p_Order_Line_Id,Fnd_API.G_MISS_NUM,Order_Line_Id,p_Order_Line_Id),
287 Quantity_Received = decode(p_Prd_Txn_Qty_Received,Fnd_API.G_MISS_NUM,Quantity_Received,p_Prd_Txn_Qty_Received),
288 Quantity_Shipped = decode(p_Prd_Txn_Qty_Shipped,Fnd_API.G_MISS_NUM,Quantity_Shipped,p_Prd_Txn_Qty_Shipped),
289 Source_Serial_Number = decode(p_Source_Serial_Number,Fnd_API.G_MISS_CHAR,Source_Serial_Number,p_Source_Serial_Number) ,
290 Source_Instance_ID = decode(p_Source_Instance_ID,Fnd_API.G_MISS_NUM,Source_Instance_ID,p_Source_Instance_Id) ,
291 Non_Source_Serial_Number = decode(p_Non_Source_Serial_Number,Fnd_API.G_MISS_CHAR,Non_Source_Serial_Number,p_Non_Source_Serial_Number) ,
292 Non_Source_Instance_ID = decode(p_Non_Source_Instance_Id,Fnd_API.G_MISS_NUM,Non_Source_Instance_ID,p_Non_Source_Instance_ID) ,
293 Locator_id = decode(p_Locator_Id , Fnd_API.G_MISS_NUM,Locator_Id,p_Locator_Id),
294 Sub_Inventory_rcvd = decode(p_Sub_Inventory_Rcvd,Fnd_API.G_MISS_CHAR,Sub_Inventory_Rcvd,p_Sub_Inventory_Rcvd),
295 Lot_Number_Rcvd = decode(p_Lot_Number_Rcvd,Fnd_API.G_MISS_CHAR,Lot_Number_Rcvd,p_Lot_Number_rcvd),
296 Picking_rule_id = decode(p_Picking_rule_id,Fnd_API.G_MISS_CHAR,Picking_rule_id,p_Picking_rule_id),
297 PROJECT_ID = decode(P_PROJECT_ID,Fnd_API.G_MISS_NUM,PROJECT_ID,P_PROJECT_ID),
298 TASK_ID = decode(P_TASK_ID,Fnd_API.G_MISS_NUM,TASK_ID,P_TASK_ID),
299 UNIT_NUMBER = decode(P_UNIT_NUMBER,Fnd_API.G_MISS_CHAR,UNIT_NUMBER,P_UNIT_NUMBER),
300 -- swai: bug 6148019
301 INTERNAL_PO_HEADER_ID = decode(P_INTERNAL_PO_HEADER_ID,Fnd_API.G_MISS_NUM,INTERNAL_PO_HEADER_ID,P_INTERNAL_PO_HEADER_ID)
302 where PRODUCT_TRANSACTION_ID = p_PRODUCT_TRANSACTION_ID
303 And Object_Version_Number = p_Object_Version_Number;
304
305 If (SQL%NOTFOUND) then
306 RAISE NO_DATA_FOUND;
307 End If;
308 END Update_Row;
309
310 PROCEDURE Delete_Row(
311 p_PRODUCT_TRANSACTION_ID NUMBER)
312 IS
313 BEGIN
314 DELETE FROM CSD_PRODUCT_TRANSACTIONS
315 WHERE PRODUCT_TRANSACTION_ID = p_PRODUCT_TRANSACTION_ID;
316 If (SQL%NOTFOUND) then
317 RAISE NO_DATA_FOUND;
318 End If;
319 END Delete_Row;
320
321 PROCEDURE Lock_Row(
322 p_PRODUCT_TRANSACTION_ID NUMBER,
323 p_OBJECT_VERSION_NUMBER NUMBER)
324 IS
325 CURSOR C IS
326 SELECT *
327 FROM CSD_PRODUCT_TRANSACTIONS
328 WHERE PRODUCT_TRANSACTION_ID = p_PRODUCT_TRANSACTION_ID
329 FOR UPDATE of PRODUCT_TRANSACTION_ID NOWAIT;
330 Recinfo C%ROWTYPE;
331 BEGIN
332 OPEN C;
333 FETCH C INTO Recinfo;
334 If (C%NOTFOUND) then
335 CLOSE C;
336 FND_MESSAGE.SET_NAME('FND', 'FORM_RECORD_DELETED');
337 APP_EXCEPTION.RAISE_EXCEPTION;
338 End If;
339 CLOSE C;
340
341 IF l_debug > 0 THEN
342 csd_gen_utility_pvt.add('CSD_PRODUCT_TRANSACTIONS_PKG Recinfo.OBJECT_VERSION_NUMBER : '||Recinfo.OBJECT_VERSION_NUMBER);
346 If ( Recinfo.OBJECT_VERSION_NUMBER = p_OBJECT_VERSION_NUMBER) then
343 csd_gen_utility_pvt.add('CSD_PRODUCT_TRANSACTIONS_PKG p_OBJECT_VERSION_NUMBER : '||p_OBJECT_VERSION_NUMBER);
344 END IF;
345
347 return;
348 else
349 FND_MESSAGE.SET_NAME('FND', 'FORM_RECORD_CHANGED');
350 APP_EXCEPTION.RAISE_EXCEPTION;
351 End If;
352 END Lock_Row;
353
354 End CSD_PRODUCT_TRANSACTIONS_PKG;