eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.

APPS.EAM_MATERIAL_ALLOCATIONS_PVT dependencies on FND_LOG

Line 25: l_log boolean := ((FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) and

21: x_tx_qty OUT NOCOPY NUMBER,
22: x_move_order_line_id OUT NOCOPY NUMBER
23: ) return boolean IS
24: l_module constant varchar2(200) := g_module_name||'.get_mmtt_info';
25: l_log boolean := ((FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) and
26: FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module));
27: begin
28: --get primary qty from MMTT
29: select primary_quantity, transaction_quantity, move_order_line_id

Line 26: FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module));

22: x_move_order_line_id OUT NOCOPY NUMBER
23: ) return boolean IS
24: l_module constant varchar2(200) := g_module_name||'.get_mmtt_info';
25: l_log boolean := ((FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) and
26: FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module));
27: begin
28: --get primary qty from MMTT
29: select primary_quantity, transaction_quantity, move_order_line_id
30: into x_primary_mmtt_qty, x_tx_qty, x_move_order_line_id

Line 34: if (l_log and (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) then

30: into x_primary_mmtt_qty, x_tx_qty, x_move_order_line_id
31: from mtl_material_transactions_temp
32: where transaction_temp_id = p_transaction_temp_id;
33:
34: if (l_log and (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) then
35: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_module,
36: 'MMTT: x_primary_mmtt_qty=' || x_primary_mmtt_qty|| ',x_tx_qty=' || x_tx_qty
37: || ',x_move_order_line_id=' || x_move_order_line_id);
38: end if;

Line 35: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_module,

31: from mtl_material_transactions_temp
32: where transaction_temp_id = p_transaction_temp_id;
33:
34: if (l_log and (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) then
35: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_module,
36: 'MMTT: x_primary_mmtt_qty=' || x_primary_mmtt_qty|| ',x_tx_qty=' || x_tx_qty
37: || ',x_move_order_line_id=' || x_move_order_line_id);
38: end if;
39: return true;

Line 42: if (l_log and (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) then

38: end if;
39: return true;
40: exception
41: when no_data_found then
42: if (l_log and (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) then
43: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, l_module,
44: 'Transaction Temp Id '|| p_transaction_temp_id || ' not found');
45: end if;
46: fnd_message.set_name('EAM', 'EAM_ALLOCATION_NOT_FOUND');

Line 43: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, l_module,

39: return true;
40: exception
41: when no_data_found then
42: if (l_log and (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) then
43: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, l_module,
44: 'Transaction Temp Id '|| p_transaction_temp_id || ' not found');
45: end if;
46: fnd_message.set_name('EAM', 'EAM_ALLOCATION_NOT_FOUND');
47: fnd_msg_pub.add;

Line 50: if (l_log and (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) then

46: fnd_message.set_name('EAM', 'EAM_ALLOCATION_NOT_FOUND');
47: fnd_msg_pub.add;
48: return false;
49: WHEN OTHERS THEN
50: if (l_log and (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) then
51: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_module,
52: 'Unhandled exception in get_mmtt_info');
53: end if;
54: return false;

Line 51: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_module,

47: fnd_msg_pub.add;
48: return false;
49: WHEN OTHERS THEN
50: if (l_log and (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) then
51: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_module,
52: 'Unhandled exception in get_mmtt_info');
53: end if;
54: return false;
55: end get_mmtt_info;

Line 67: l_log boolean := ((FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) and

63: p_qty_to_reduce in number,
64: p_reduce_wip_requirements in varchar2
65: ) IS
66: l_module constant varchar2(200) := g_module_name||'.reduce_move_order';
67: l_log boolean := ((FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) and
68: FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module));
69: l_txn_source_id number;
70: l_inventory_item_id number;
71: begin

Line 68: FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module));

64: p_reduce_wip_requirements in varchar2
65: ) IS
66: l_module constant varchar2(200) := g_module_name||'.reduce_move_order';
67: l_log boolean := ((FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) and
68: FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module));
69: l_txn_source_id number;
70: l_inventory_item_id number;
71: begin
72: -- Propagate changes to Move Order header,line and WRO if propagate parameter is set

Line 84: if (l_log and (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) then

80: returning txn_source_id, inventory_item_id
81: into l_txn_source_id, l_inventory_item_id;
82:
83: if ((p_reduce_wip_requirements is null) or (p_reduce_wip_requirements= 'Y')) then
84: if (l_log and (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) then
85: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_module,
86: 'MTRL: l_txn_source_id (wip entity id)=' || l_txn_source_id );
87: end if;
88: update wip_requirement_operations

Line 85: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_module,

81: into l_txn_source_id, l_inventory_item_id;
82:
83: if ((p_reduce_wip_requirements is null) or (p_reduce_wip_requirements= 'Y')) then
84: if (l_log and (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) then
85: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_module,
86: 'MTRL: l_txn_source_id (wip entity id)=' || l_txn_source_id );
87: end if;
88: update wip_requirement_operations
89: set quantity_allocated = quantity_allocated - p_qty_to_reduce

Line 108: l_log boolean := ((FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) and

104: x_msg_count OUT NOCOPY NUMBER,
105: x_msg_data OUT NOCOPY VARCHAR2
106: ) IS
107: l_module constant varchar2(200) := g_module_name||'.delete_allocation';
108: l_log boolean := ((FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) and
109: FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module));
110: l_primary_mmtt_qty number;
111: l_tx_qty number;
112: l_move_order_line_id number;

Line 109: FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module));

105: x_msg_data OUT NOCOPY VARCHAR2
106: ) IS
107: l_module constant varchar2(200) := g_module_name||'.delete_allocation';
108: l_log boolean := ((FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) and
109: FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module));
110: l_primary_mmtt_qty number;
111: l_tx_qty number;
112: l_move_order_line_id number;
113: BEGIN

Line 121: if (l_log and (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) then

117: END IF;
118: x_return_status := FND_API.G_RET_STS_SUCCESS;
119: x_msg_count := 0;
120:
121: if (l_log and (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) then
122: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,
123: 'Start of '||l_module ||'('||'p_transaction_temp_id='||p_transaction_temp_id||')');
124: end if;
125:

Line 122: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,

118: x_return_status := FND_API.G_RET_STS_SUCCESS;
119: x_msg_count := 0;
120:
121: if (l_log and (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) then
122: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,
123: 'Start of '||l_module ||'('||'p_transaction_temp_id='||p_transaction_temp_id||')');
124: end if;
125:
126: --API start

Line 137: if (l_log and (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) then

133: return;
134: end if;
135: --Reduce the allocation quantities in Move order headers, lines and in WRO
136: reduce_move_order(l_move_order_line_id, l_primary_mmtt_qty, 'Y');
137: if (l_log and (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) then
138: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_module,
139: 'Calling inv_trx_util_pub.delete_transaction');
140: end if;
141: --Call the inventory delete API.

Line 138: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_module,

134: end if;
135: --Reduce the allocation quantities in Move order headers, lines and in WRO
136: reduce_move_order(l_move_order_line_id, l_primary_mmtt_qty, 'Y');
137: if (l_log and (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) then
138: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_module,
139: 'Calling inv_trx_util_pub.delete_transaction');
140: end if;
141: --Call the inventory delete API.
142: --This API is similar to the wrapper inv_mo_line_detail_util.delete_allocation

Line 149: if (l_log and (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) then

145: , x_msg_data => x_msg_data
146: , x_msg_count => x_msg_count
147: , p_transaction_temp_id => p_transaction_temp_id
148: );
149: if (l_log and (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) then
150: eam_common_utilities_pvt.log_api_return(l_module,
151: 'inv_trx_util_pub.delete_transaction',x_return_status,x_msg_count,x_msg_data);
152: end if;
153: if (x_return_status <> FND_API.G_RET_STS_SUCCESS) then

Line 163: if (l_log and (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) then

159: COMMIT WORK;
160: END IF;
161: x_return_status := FND_API.G_RET_STS_SUCCESS;
162: FND_MSG_PUB.Count_And_Get('T', x_msg_count, x_msg_data);
163: if (l_log and (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) then
164: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module, 'End of ' || l_module);
165: end if;
166:
167: EXCEPTION

Line 164: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module, 'End of ' || l_module);

160: END IF;
161: x_return_status := FND_API.G_RET_STS_SUCCESS;
162: FND_MSG_PUB.Count_And_Get('T', x_msg_count, x_msg_data);
163: if (l_log and (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) then
164: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module, 'End of ' || l_module);
165: end if;
166:
167: EXCEPTION
168: WHEN fnd_api.g_exc_error THEN

Line 200: l_log boolean := ((FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) and

196: x_msg_count OUT NOCOPY NUMBER,
197: x_msg_data OUT NOCOPY VARCHAR2
198: ) IS
199: l_module constant varchar2(200) := g_module_name||'.reduce_allocation_header';
200: l_log boolean := ((FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) and
201: FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module));
202: l_qty_to_reduce number;
203: l_final_qty number;
204: l_primary_mmtt_qty number;

Line 201: FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module));

197: x_msg_data OUT NOCOPY VARCHAR2
198: ) IS
199: l_module constant varchar2(200) := g_module_name||'.reduce_allocation_header';
200: l_log boolean := ((FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) and
201: FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module));
202: l_qty_to_reduce number;
203: l_final_qty number;
204: l_primary_mmtt_qty number;
205: l_tx_qty number;

Line 212: if (l_log and (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) then

208: SAVEPOINT reduce_allocation_header;
209: x_return_status := FND_API.G_RET_STS_SUCCESS;
210: x_msg_count := 0;
211:
212: if (l_log and (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) then
213: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,
214: 'Start of ' || l_module || '('
215: || 'p_transaction_temp_id='|| p_transaction_temp_id
216: || ',p_qty_to_reduce='|| p_qty_to_reduce || ',p_final_qty='|| p_final_qty

Line 213: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,

209: x_return_status := FND_API.G_RET_STS_SUCCESS;
210: x_msg_count := 0;
211:
212: if (l_log and (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) then
213: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,
214: 'Start of ' || l_module || '('
215: || 'p_transaction_temp_id='|| p_transaction_temp_id
216: || ',p_qty_to_reduce='|| p_qty_to_reduce || ',p_final_qty='|| p_final_qty
217: || ',p_delete_remaining='|| p_delete_remaining || ')');

Line 236: if (l_log and (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) then

232: else
233: l_final_qty := p_final_qty;
234: l_qty_to_reduce := l_primary_mmtt_qty - p_final_qty;
235: end if;
236: if (l_log and (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) then
237: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_module,
238: 'Calculated l_final_qty='||l_final_qty||
239: ',l_qty_to_reduce='||l_qty_to_reduce);
240: end if;

Line 237: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_module,

233: l_final_qty := p_final_qty;
234: l_qty_to_reduce := l_primary_mmtt_qty - p_final_qty;
235: end if;
236: if (l_log and (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) then
237: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_module,
238: 'Calculated l_final_qty='||l_final_qty||
239: ',l_qty_to_reduce='||l_qty_to_reduce);
240: end if;
241: --Validate final qty and if correct, reduce MMTT

Line 243: if (l_log and (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) then

239: ',l_qty_to_reduce='||l_qty_to_reduce);
240: end if;
241: --Validate final qty and if correct, reduce MMTT
242: if (l_final_qty <= 0) then
243: if (l_log and (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) then
244: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, l_module, 'Cannot reduce qty to below 0');
245: end if;
246: fnd_message.set_name('EAM', 'EAM_NON_POSITIVE_ISSUE_QTY');
247: fnd_msg_pub.add;

Line 244: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, l_module, 'Cannot reduce qty to below 0');

240: end if;
241: --Validate final qty and if correct, reduce MMTT
242: if (l_final_qty <= 0) then
243: if (l_log and (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) then
244: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, l_module, 'Cannot reduce qty to below 0');
245: end if;
246: fnd_message.set_name('EAM', 'EAM_NON_POSITIVE_ISSUE_QTY');
247: fnd_msg_pub.add;
248: FND_MSG_PUB.Count_And_Get('T', x_msg_count, x_msg_data);

Line 267: if (l_log and (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) then

263: --Reduce the allocation quantities in Move order headers, lines and in WRO
264: reduce_move_order(l_move_order_line_id, l_qty_to_reduce, 'Y');
265: elsif (l_qty_to_reduce > 0) then
266: -- save the remainder allocation by splitting current allocation.
267: if (l_log and (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) then
268: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_module,
269: 'Calling inv_trx_util_pub.copy_insert_line_trx');
270: end if;
271: --call the split API passing in current transaction temp id, split qty

Line 268: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_module,

264: reduce_move_order(l_move_order_line_id, l_qty_to_reduce, 'Y');
265: elsif (l_qty_to_reduce > 0) then
266: -- save the remainder allocation by splitting current allocation.
267: if (l_log and (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) then
268: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_module,
269: 'Calling inv_trx_util_pub.copy_insert_line_trx');
270: end if;
271: --call the split API passing in current transaction temp id, split qty
272: inv_trx_util_pub.copy_insert_line_trx(

Line 282: if (l_log and (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) then

278: , p_organization_id => p_organization_id
279: , p_txn_qty => l_qty_to_reduce
280: , p_primary_qty => l_qty_to_reduce
281: );
282: if (l_log and (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) then
283: eam_common_utilities_pvt.log_api_return(l_module,
284: 'inv_trx_util_pub.copy_insert_line_trx',x_return_status,x_msg_count,x_msg_data);
285: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_module,
286: 'inv_trx_util_pub.copy_insert_line_trx returned '

Line 285: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_module,

281: );
282: if (l_log and (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) then
283: eam_common_utilities_pvt.log_api_return(l_module,
284: 'inv_trx_util_pub.copy_insert_line_trx',x_return_status,x_msg_count,x_msg_data);
285: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_module,
286: 'inv_trx_util_pub.copy_insert_line_trx returned '
287: || 'x_new_txn_temp_id='|| x_new_transaction_temp_id);
288: end if;
289: if (x_return_status <> FND_API.G_RET_STS_SUCCESS) then

Line 300: if (l_log and (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) then

296: COMMIT WORK;
297: END IF;
298: x_return_status := FND_API.G_RET_STS_SUCCESS;
299: FND_MSG_PUB.Count_And_Get('T', x_msg_count, x_msg_data);
300: if (l_log and (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) then
301: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module, 'End of ' || l_module);
302: end if;
303:
304: EXCEPTION

Line 301: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module, 'End of ' || l_module);

297: END IF;
298: x_return_status := FND_API.G_RET_STS_SUCCESS;
299: FND_MSG_PUB.Count_And_Get('T', x_msg_count, x_msg_data);
300: if (l_log and (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) then
301: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module, 'End of ' || l_module);
302: end if;
303:
304: EXCEPTION
305: WHEN fnd_api.g_exc_error THEN

Line 339: l_log boolean := ((FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) and

335: x_msg_count OUT NOCOPY NUMBER,
336: x_msg_data OUT NOCOPY VARCHAR2
337: ) IS
338: l_module constant varchar2(200) := g_module_name||'.remove_serial';
339: l_log boolean := ((FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) and
340: FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module));
341: BEGIN
342: SAVEPOINT remove_serial;
343: x_return_status := FND_API.G_RET_STS_SUCCESS;

Line 340: FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module));

336: x_msg_data OUT NOCOPY VARCHAR2
337: ) IS
338: l_module constant varchar2(200) := g_module_name||'.remove_serial';
339: l_log boolean := ((FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) and
340: FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module));
341: BEGIN
342: SAVEPOINT remove_serial;
343: x_return_status := FND_API.G_RET_STS_SUCCESS;
344: x_msg_count := 0;

Line 346: if (l_log and (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) then

342: SAVEPOINT remove_serial;
343: x_return_status := FND_API.G_RET_STS_SUCCESS;
344: x_msg_count := 0;
345:
346: if (l_log and (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) then
347: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,
348: 'Start of ' || l_module || '('
349: || 'p_transaction_temp_id='|| p_transaction_temp_id
350: || ',p_serial='|| p_serial || ',p_lot='|| p_lot

Line 347: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,

343: x_return_status := FND_API.G_RET_STS_SUCCESS;
344: x_msg_count := 0;
345:
346: if (l_log and (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) then
347: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,
348: 'Start of ' || l_module || '('
349: || 'p_transaction_temp_id='|| p_transaction_temp_id
350: || ',p_serial='|| p_serial || ',p_lot='|| p_lot
351: || ',p_new_transaction_temp_id='|| p_new_transaction_temp_id ||')');

Line 386: if (l_log and (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) then

382: COMMIT WORK;
383: END IF;
384: x_return_status := FND_API.G_RET_STS_SUCCESS;
385: FND_MSG_PUB.Count_And_Get('T', x_msg_count, x_msg_data);
386: if (l_log and (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) then
387: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module, 'End of ' || l_module);
388: end if;
389:
390: EXCEPTION

Line 387: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module, 'End of ' || l_module);

383: END IF;
384: x_return_status := FND_API.G_RET_STS_SUCCESS;
385: FND_MSG_PUB.Count_And_Get('T', x_msg_count, x_msg_data);
386: if (l_log and (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) then
387: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module, 'End of ' || l_module);
388: end if;
389:
390: EXCEPTION
391: WHEN OTHERS THEN

Line 415: l_log boolean := ((FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) and

411: x_msg_count OUT NOCOPY NUMBER,
412: x_msg_data OUT NOCOPY VARCHAR2
413: ) IS
414: l_module constant varchar2(200) := g_module_name||'.add_serial';
415: l_log boolean := ((FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) and
416: FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module));
417: l_insert_count number;
418: l_update_count number;
419: BEGIN

Line 416: FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module));

412: x_msg_data OUT NOCOPY VARCHAR2
413: ) IS
414: l_module constant varchar2(200) := g_module_name||'.add_serial';
415: l_log boolean := ((FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) and
416: FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module));
417: l_insert_count number;
418: l_update_count number;
419: BEGIN
420: SAVEPOINT add_serial;

Line 424: if (l_log and (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) then

420: SAVEPOINT add_serial;
421: x_return_status := FND_API.G_RET_STS_SUCCESS;
422: x_msg_count := 0;
423:
424: if (l_log and (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) then
425: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,
426: 'Start of ' || l_module || '(' ||
427: 'p_transaction_temp_id='|| p_transaction_temp_id ||
428: 'p_organization_id='|| p_organization_id ||

Line 425: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,

421: x_return_status := FND_API.G_RET_STS_SUCCESS;
422: x_msg_count := 0;
423:
424: if (l_log and (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) then
425: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,
426: 'Start of ' || l_module || '(' ||
427: 'p_transaction_temp_id='|| p_transaction_temp_id ||
428: 'p_organization_id='|| p_organization_id ||
429: 'p_inventory_item_id='|| p_inventory_item_id ||

Line 451: if (l_log and (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) then

447: AND current_organization_id = p_organization_id
448: AND inventory_item_id = p_inventory_item_id;
449: l_update_count := SQL%ROWCOUNT;
450:
451: if (l_log and (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) then
452: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_module,
453: l_insert_count|| ' serials inserted into MSNT. '||l_update_count||
454: ' serials marked in MSN');
455: end if;

Line 452: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_module,

448: AND inventory_item_id = p_inventory_item_id;
449: l_update_count := SQL%ROWCOUNT;
450:
451: if (l_log and (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) then
452: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_module,
453: l_insert_count|| ' serials inserted into MSNT. '||l_update_count||
454: ' serials marked in MSN');
455: end if;
456: --API end

Line 463: if (l_log and (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) then

459: COMMIT WORK;
460: END IF;
461: x_return_status := FND_API.G_RET_STS_SUCCESS;
462: FND_MSG_PUB.Count_And_Get('T', x_msg_count, x_msg_data);
463: if (l_log and (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) then
464: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module, 'End of ' || l_module);
465: end if;
466:
467: EXCEPTION

Line 464: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module, 'End of ' || l_module);

460: END IF;
461: x_return_status := FND_API.G_RET_STS_SUCCESS;
462: FND_MSG_PUB.Count_And_Get('T', x_msg_count, x_msg_data);
463: if (l_log and (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) then
464: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module, 'End of ' || l_module);
465: end if;
466:
467: EXCEPTION
468: WHEN OTHERS THEN

Line 499: l_log boolean := ((FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) and

495: x_msg_count OUT NOCOPY NUMBER,
496: x_msg_data OUT NOCOPY VARCHAR2
497: ) IS
498: l_module constant varchar2(200) := g_module_name||'.update_lot';
499: l_log boolean := ((FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) and
500: FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module));
501: l_update_count number := 0;
502: l_delete_count number := 0;
503: l_insert_ret_status number := null;

Line 500: FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module));

496: x_msg_data OUT NOCOPY VARCHAR2
497: ) IS
498: l_module constant varchar2(200) := g_module_name||'.update_lot';
499: l_log boolean := ((FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) and
500: FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module));
501: l_update_count number := 0;
502: l_delete_count number := 0;
503: l_insert_ret_status number := null;
504: l_reduction_qty number := null;

Line 510: if (l_log and (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) then

506: SAVEPOINT reduce_lot;
507: x_return_status := FND_API.G_RET_STS_SUCCESS;
508: x_msg_count := 0;
509:
510: if (l_log and (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) then
511: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,
512: 'Start of ' || l_module || '('
513: || 'p_transaction_temp_id='|| p_transaction_temp_id
514: || ' p_serial_transaction_temp_id='|| p_serial_transaction_temp_id

Line 511: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,

507: x_return_status := FND_API.G_RET_STS_SUCCESS;
508: x_msg_count := 0;
509:
510: if (l_log and (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) then
511: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,
512: 'Start of ' || l_module || '('
513: || 'p_transaction_temp_id='|| p_transaction_temp_id
514: || ' p_serial_transaction_temp_id='|| p_serial_transaction_temp_id
515: || ',p_lot='|| p_lot || ',p_lot_quantity='|| p_lot_quantity

Line 543: if (l_log and (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) then

539: --and it is discouraged to use rowid: distributed databases
540: --or partitioning may change it within a transaction
541: end if;
542: l_update_count := SQL%ROWCOUNT;
543: if (l_log and (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) then
544: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_module,
545: l_update_count || ' row(s) updated in MTLT');
546: end if;
547: l_reduction_qty := (p_old_lot_quantity - p_lot_quantity);

Line 544: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_module,

540: --or partitioning may change it within a transaction
541: end if;
542: l_update_count := SQL%ROWCOUNT;
543: if (l_log and (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) then
544: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_module,
545: l_update_count || ' row(s) updated in MTLT');
546: end if;
547: l_reduction_qty := (p_old_lot_quantity - p_lot_quantity);
548: if (p_new_transaction_temp_id is not null and (l_reduction_qty >0)) then

Line 550: if (l_log and (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) then

546: end if;
547: l_reduction_qty := (p_old_lot_quantity - p_lot_quantity);
548: if (p_new_transaction_temp_id is not null and (l_reduction_qty >0)) then
549: --split this mtlt row under a new MMTT row with remaining qty
550: if (l_log and (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) then
551: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_module,
552: 'Calling inv_trx_util_pub.insert_lot_trx('|| 'p_pri_qty=p_trx_qty='|| l_reduction_qty);
553: end if;
554: l_insert_ret_status := inv_trx_util_pub.insert_lot_trx(

Line 551: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_module,

547: l_reduction_qty := (p_old_lot_quantity - p_lot_quantity);
548: if (p_new_transaction_temp_id is not null and (l_reduction_qty >0)) then
549: --split this mtlt row under a new MMTT row with remaining qty
550: if (l_log and (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) then
551: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_module,
552: 'Calling inv_trx_util_pub.insert_lot_trx('|| 'p_pri_qty=p_trx_qty='|| l_reduction_qty);
553: end if;
554: l_insert_ret_status := inv_trx_util_pub.insert_lot_trx(
555: p_trx_tmp_id => p_new_transaction_temp_id

Line 562: if (l_log and (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) then

558: , p_trx_qty => l_reduction_qty
559: , p_pri_qty => l_reduction_qty
560: , x_proc_msg => x_msg_data
561: , x_ser_trx_id => x_ser_trx_id);
562: if (l_log and (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) then
563: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_module,
564: 'inv_trx_util_pub.insert_lot_trx returned: Status='||
565: l_insert_ret_status|| ' (0 success, -1 failure)'||
566: ', Return Message='|| x_msg_data|| ', Serial Temp Id='||

Line 563: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_module,

559: , p_pri_qty => l_reduction_qty
560: , x_proc_msg => x_msg_data
561: , x_ser_trx_id => x_ser_trx_id);
562: if (l_log and (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) then
563: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_module,
564: 'inv_trx_util_pub.insert_lot_trx returned: Status='||
565: l_insert_ret_status|| ' (0 success, -1 failure)'||
566: ', Return Message='|| x_msg_data|| ', Serial Temp Id='||
567: x_ser_trx_id);

Line 577: if (l_log and (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) then

573: and lot_number = p_lot
574: and primary_quantity = p_old_lot_quantity
575: and rownum = 1;
576: l_delete_count := SQL%ROWCOUNT;
577: if (l_log and (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) then
578: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_module,
579: l_delete_count || ' row(s) deleted in MTLT');
580: end if;
581: end if;

Line 578: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_module,

574: and primary_quantity = p_old_lot_quantity
575: and rownum = 1;
576: l_delete_count := SQL%ROWCOUNT;
577: if (l_log and (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) then
578: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_module,
579: l_delete_count || ' row(s) deleted in MTLT');
580: end if;
581: end if;
582: --API end

Line 589: if (l_log and (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) then

585: COMMIT WORK;
586: END IF;
587: x_return_status := FND_API.G_RET_STS_SUCCESS;
588: FND_MSG_PUB.Count_And_Get('T', x_msg_count, x_msg_data);
589: if (l_log and (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) then
590: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module, 'End of ' || l_module);
591: end if;
592:
593: EXCEPTION

Line 590: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module, 'End of ' || l_module);

586: END IF;
587: x_return_status := FND_API.G_RET_STS_SUCCESS;
588: FND_MSG_PUB.Count_And_Get('T', x_msg_count, x_msg_data);
589: if (l_log and (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) then
590: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module, 'End of ' || l_module);
591: end if;
592:
593: EXCEPTION
594: WHEN OTHERS THEN

Line 617: l_log boolean := ((FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) and

613: x_msg_count OUT NOCOPY NUMBER,
614: x_msg_data OUT NOCOPY VARCHAR2
615: ) IS
616: l_module constant varchar2(200) := g_module_name||'.mark_lot_with_ser_temp_id';
617: l_log boolean := ((FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) and
618: FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module));
619: l_update_count number := 0;
620: l_ser_trx_id number;
621: BEGIN

Line 618: FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module));

614: x_msg_data OUT NOCOPY VARCHAR2
615: ) IS
616: l_module constant varchar2(200) := g_module_name||'.mark_lot_with_ser_temp_id';
617: l_log boolean := ((FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) and
618: FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module));
619: l_update_count number := 0;
620: l_ser_trx_id number;
621: BEGIN
622: SAVEPOINT mark_lot_with_ser_temp_id;

Line 626: if (l_log and (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) then

622: SAVEPOINT mark_lot_with_ser_temp_id;
623: x_return_status := FND_API.G_RET_STS_ERROR;
624: x_msg_count := 0;
625:
626: if (l_log and (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) then
627: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,
628: 'Start of ' || l_module || '(' ||'p_commit=' ||p_commit
629: || 'p_transaction_temp_id='|| p_transaction_temp_id
630: || ',p_lot='|| p_lot || ',p_primary_quantity='|| p_primary_quantity|| ')');

Line 627: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,

623: x_return_status := FND_API.G_RET_STS_ERROR;
624: x_msg_count := 0;
625:
626: if (l_log and (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) then
627: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,
628: 'Start of ' || l_module || '(' ||'p_commit=' ||p_commit
629: || 'p_transaction_temp_id='|| p_transaction_temp_id
630: || ',p_lot='|| p_lot || ',p_primary_quantity='|| p_primary_quantity|| ')');
631: end if;

Line 646: if (l_log and (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) then

642: if (l_update_count = 1) then
643: x_return_status := FND_API.G_RET_STS_SUCCESS;
644: x_ser_trx_id := l_ser_trx_id;
645: end if;
646: if (l_log and (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) then
647: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_module, l_update_count ||
648: ' row(s) updated in MTLT with serial_transaction_temp_id: '|| x_ser_trx_id);
649: end if;
650: --API end

Line 647: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_module, l_update_count ||

643: x_return_status := FND_API.G_RET_STS_SUCCESS;
644: x_ser_trx_id := l_ser_trx_id;
645: end if;
646: if (l_log and (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) then
647: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_module, l_update_count ||
648: ' row(s) updated in MTLT with serial_transaction_temp_id: '|| x_ser_trx_id);
649: end if;
650: --API end
651:

Line 656: if (l_log and (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) then

652: IF FND_API.To_Boolean( p_commit ) THEN
653: COMMIT WORK;
654: END IF;
655: FND_MSG_PUB.Count_And_Get('T', x_msg_count, x_msg_data);
656: if (l_log and (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) then
657: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module, 'End of ' || l_module);
658: end if;
659:
660: EXCEPTION

Line 657: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module, 'End of ' || l_module);

653: COMMIT WORK;
654: END IF;
655: FND_MSG_PUB.Count_And_Get('T', x_msg_count, x_msg_data);
656: if (l_log and (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) then
657: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module, 'End of ' || l_module);
658: end if;
659:
660: EXCEPTION
661: WHEN OTHERS THEN