[Home] [Help]
41: p_repair_type_id IN NUMBER,
42: x_warning_flag OUT NOCOPY VARCHAR2) IS
43:
44: -- CONSTANTS --
45: lc_debug_level CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
46: lc_stat_level CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
47: lc_proc_level CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
48: lc_event_level CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
49: lc_excep_level CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
42: x_warning_flag OUT NOCOPY VARCHAR2) IS
43:
44: -- CONSTANTS --
45: lc_debug_level CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
46: lc_stat_level CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
47: lc_proc_level CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
48: lc_event_level CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
49: lc_excep_level CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
50: lc_error_level CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
43:
44: -- CONSTANTS --
45: lc_debug_level CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
46: lc_stat_level CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
47: lc_proc_level CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
48: lc_event_level CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
49: lc_excep_level CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
50: lc_error_level CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
51: lc_unexp_level CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
44: -- CONSTANTS --
45: lc_debug_level CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
46: lc_stat_level CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
47: lc_proc_level CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
48: lc_event_level CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
49: lc_excep_level CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
50: lc_error_level CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
51: lc_unexp_level CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
52: lc_mod_name CONSTANT VARCHAR2(100) := 'csd.plsql.csd_repair_actual_process_pvt.log_wip_resource_txn_warnings';
45: lc_debug_level CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
46: lc_stat_level CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
47: lc_proc_level CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
48: lc_event_level CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
49: lc_excep_level CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
50: lc_error_level CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
51: lc_unexp_level CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
52: lc_mod_name CONSTANT VARCHAR2(100) := 'csd.plsql.csd_repair_actual_process_pvt.log_wip_resource_txn_warnings';
53: lc_api_name CONSTANT VARCHAR2(30) := 'LOG_WIP_RESOURCE_TXN_WARNINGS';
46: lc_stat_level CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
47: lc_proc_level CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
48: lc_event_level CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
49: lc_excep_level CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
50: lc_error_level CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
51: lc_unexp_level CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
52: lc_mod_name CONSTANT VARCHAR2(100) := 'csd.plsql.csd_repair_actual_process_pvt.log_wip_resource_txn_warnings';
53: lc_api_name CONSTANT VARCHAR2(30) := 'LOG_WIP_RESOURCE_TXN_WARNINGS';
54:
47: lc_proc_level CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
48: lc_event_level CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
49: lc_excep_level CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
50: lc_error_level CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
51: lc_unexp_level CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
52: lc_mod_name CONSTANT VARCHAR2(100) := 'csd.plsql.csd_repair_actual_process_pvt.log_wip_resource_txn_warnings';
53: lc_api_name CONSTANT VARCHAR2(30) := 'LOG_WIP_RESOURCE_TXN_WARNINGS';
54:
55: -- Fetches records that have the following warning -
114: BEGIN
115:
116: -- logging
117: if (lc_proc_level >= lc_debug_level) then
118: FND_LOG.STRING(lc_proc_level, lc_mod_name || '.BEGIN',
119: 'Entering CSD_REPAIR_ACTUAL_PROCESS_PVT.Log_WIP_Resource_Txn_warnings');
120: end if;
121:
122: -- log parameters
120: end if;
121:
122: -- log parameters
123: if (lc_stat_level >= lc_debug_level) then
124: FND_LOG.STRING(lc_stat_level, lc_mod_name || '.parameter_logging',
125: 'p_wip_entity_id: ' || p_wip_entity_id);
126: FND_LOG.STRING(lc_stat_level, lc_mod_name || '.parameter_logging',
127: 'p_depot_organization: ' || p_depot_organization);
128: FND_LOG.STRING(lc_stat_level, lc_mod_name || '.parameter_logging',
122: -- log parameters
123: if (lc_stat_level >= lc_debug_level) then
124: FND_LOG.STRING(lc_stat_level, lc_mod_name || '.parameter_logging',
125: 'p_wip_entity_id: ' || p_wip_entity_id);
126: FND_LOG.STRING(lc_stat_level, lc_mod_name || '.parameter_logging',
127: 'p_depot_organization: ' || p_depot_organization);
128: FND_LOG.STRING(lc_stat_level, lc_mod_name || '.parameter_logging',
129: 'p_wip_organization: ' || p_wip_organization);
130: FND_LOG.STRING(lc_stat_level, lc_mod_name || '.parameter_logging',
124: FND_LOG.STRING(lc_stat_level, lc_mod_name || '.parameter_logging',
125: 'p_wip_entity_id: ' || p_wip_entity_id);
126: FND_LOG.STRING(lc_stat_level, lc_mod_name || '.parameter_logging',
127: 'p_depot_organization: ' || p_depot_organization);
128: FND_LOG.STRING(lc_stat_level, lc_mod_name || '.parameter_logging',
129: 'p_wip_organization: ' || p_wip_organization);
130: FND_LOG.STRING(lc_stat_level, lc_mod_name || '.parameter_logging',
131: 'p_repair_type_id: ' || p_repair_type_id);
132: end if;
126: FND_LOG.STRING(lc_stat_level, lc_mod_name || '.parameter_logging',
127: 'p_depot_organization: ' || p_depot_organization);
128: FND_LOG.STRING(lc_stat_level, lc_mod_name || '.parameter_logging',
129: 'p_wip_organization: ' || p_wip_organization);
130: FND_LOG.STRING(lc_stat_level, lc_mod_name || '.parameter_logging',
131: 'p_repair_type_id: ' || p_repair_type_id);
132: end if;
133:
134: -- Set the warning flag
134: -- Set the warning flag
135: x_warning_flag := FND_API.G_FALSE;
136:
137: if (lc_stat_level >= lc_debug_level) then
138: FND_LOG.STRING(lc_stat_level, lc_mod_name,
139: 'Before the FOR LOOP for C_Resource_Item_Not_Defined.');
140: end if;
141:
142: -- Simply gets all records and log warnings for each of them.
142: -- Simply gets all records and log warnings for each of them.
143: FOR i_rec IN C_Resource_Item_Not_Defined LOOP
144: x_warning_flag := FND_API.G_TRUE;
145: if (lc_stat_level >= lc_debug_level) then
146: FND_LOG.STRING(lc_stat_level, lc_mod_name,
147: 'The billing item is not defined for the Resource = ' || i_rec.RESOURCE_CODE);
148: end if;
149: FND_MESSAGE.set_name( 'CSD', 'CSD_ACT_RESOURCE_NO_ITEM');
150: -- 'The billing item is not defined for the Resource $RESOURCE_CODE'.
152: FND_MSG_PUB.add_detail( p_message_type => FND_MSG_PUB.G_WARNING_MSG );
153: END LOOP;
154:
155: if (lc_stat_level >= lc_debug_level) then
156: FND_LOG.STRING(lc_stat_level, lc_mod_name,
157: 'After the FOR LOOP for C_Resource_Item_Not_Defined.');
158: end if;
159:
160: if (lc_stat_level >= lc_debug_level) then
157: 'After the FOR LOOP for C_Resource_Item_Not_Defined.');
158: end if;
159:
160: if (lc_stat_level >= lc_debug_level) then
161: FND_LOG.STRING(lc_stat_level, lc_mod_name,
162: 'Before the FOR LOOP for C_Resource_Item_In_Depot_Org.');
163: end if;
164:
165: -- Simply gets all records and log warnings for each of them if -
173: IF i_rec.Quantity > 0 THEN
174: IF ( i_rec.DEPOT_ITEM_ID IS NULL ) THEN
175: x_warning_flag := FND_API.G_TRUE;
176: if (lc_stat_level >= lc_debug_level) then
177: FND_LOG.STRING(lc_stat_level, lc_mod_name,
178: 'The item ' || i_rec.WIP_ITEM_NAME || ' is not defined in the Service '
179: || 'Validation Organization. It is defined only in the WIP organization.');
180: end if;
181: FND_MESSAGE.set_name( 'CSD', 'CSD_ACT_ITEM_NOT_SRV_ORG');
184: FND_MSG_PUB.add_detail( p_message_type => FND_MSG_PUB.G_WARNING_MSG );
185: ELSIF ( i_rec.BILLING_TYPE IS NULL ) THEN
186: x_warning_flag := FND_API.G_TRUE;
187: if (lc_stat_level >= lc_debug_level) then
188: FND_LOG.STRING(lc_stat_level, lc_mod_name,
189: 'Billing type is not defined for the item ' || i_rec.WIP_ITEM_NAME);
190: end if;
191: FND_MESSAGE.set_name( 'CSD', 'CSD_ACT_ITEM_NO_BILLING_TYPE');
192: -- '''Billing type'' is not defined for the item $ITEM_NAME.
197:
198: END LOOP;
199:
200: if (lc_stat_level >= lc_debug_level) then
201: FND_LOG.STRING(lc_stat_level, lc_mod_name,
202: 'After the FOR LOOP for C_Resource_Item_In_Depot_Org.');
203: end if;
204:
205: if (lc_stat_level >= lc_debug_level) then
202: 'After the FOR LOOP for C_Resource_Item_In_Depot_Org.');
203: end if;
204:
205: if (lc_stat_level >= lc_debug_level) then
206: FND_LOG.STRING(lc_stat_level, lc_mod_name,
207: 'Before the FOR LOOP for C_Resource_Txn_Billing_Type.');
208: end if;
209:
210: -- Simply gets all records and log warnings for each of them.
211: FOR i_rec IN C_Resource_Txn_Billing_Type LOOP
212: IF i_rec.Quantity > 0 THEN
213: x_warning_flag := FND_API.G_TRUE;
214: if (lc_stat_level >= lc_debug_level) then
215: FND_LOG.STRING(lc_stat_level, lc_mod_name,
216: 'Unable to determine service activity billing type for the item ' || i_rec.DEPOT_ITEM_NAME);
217: end if;
218: FND_MESSAGE.set_name( 'CSD', 'CSD_CHRG_NO_ITEM_SAR');
219: -- Unable to determine service activity billing type for the item $ITEM.
222: END IF;
223: END LOOP;
224:
225: if (lc_stat_level >= lc_debug_level) then
226: FND_LOG.STRING(lc_stat_level, lc_mod_name,
227: 'After the FOR LOOP for C_Resource_Txn_Billing_Type.');
228: end if;
229:
230: -- Note : This procedure only adds to the FND msg stack. The msgs will
231: -- be logged to the generic message utility by the calling program.
232:
233: -- logging
234: if (lc_proc_level >= lc_debug_level) then
235: FND_LOG.STRING(lc_proc_level, lc_mod_name || '.END',
236: 'Leaving CSD_REPAIR_ACTUAL_PROCESS_PVT.Log_WIP_Resource_Txn_warnings');
237: end if;
238:
239: END Log_WIP_Resource_Txn_warnings;
268: x_warning_flag OUT NOCOPY VARCHAR2
269: ) IS
270:
271: -- CONSTANTS --
272: lc_debug_level CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
273: lc_stat_level CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
274: lc_proc_level CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
275: lc_event_level CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
276: lc_excep_level CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
269: ) IS
270:
271: -- CONSTANTS --
272: lc_debug_level CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
273: lc_stat_level CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
274: lc_proc_level CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
275: lc_event_level CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
276: lc_excep_level CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
277: lc_error_level CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
270:
271: -- CONSTANTS --
272: lc_debug_level CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
273: lc_stat_level CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
274: lc_proc_level CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
275: lc_event_level CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
276: lc_excep_level CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
277: lc_error_level CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
278: lc_unexp_level CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
271: -- CONSTANTS --
272: lc_debug_level CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
273: lc_stat_level CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
274: lc_proc_level CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
275: lc_event_level CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
276: lc_excep_level CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
277: lc_error_level CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
278: lc_unexp_level CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
279: lc_mod_name CONSTANT VARCHAR2(100) := 'csd.plsql.csd_repair_actual_process_pvt.log_wip_mtl_txn_warnings';
272: lc_debug_level CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
273: lc_stat_level CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
274: lc_proc_level CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
275: lc_event_level CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
276: lc_excep_level CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
277: lc_error_level CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
278: lc_unexp_level CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
279: lc_mod_name CONSTANT VARCHAR2(100) := 'csd.plsql.csd_repair_actual_process_pvt.log_wip_mtl_txn_warnings';
280: lc_api_name CONSTANT VARCHAR2(30) := 'LOG_WIP_MTL_TXN_WARNINGS';
273: lc_stat_level CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
274: lc_proc_level CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
275: lc_event_level CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
276: lc_excep_level CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
277: lc_error_level CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
278: lc_unexp_level CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
279: lc_mod_name CONSTANT VARCHAR2(100) := 'csd.plsql.csd_repair_actual_process_pvt.log_wip_mtl_txn_warnings';
280: lc_api_name CONSTANT VARCHAR2(30) := 'LOG_WIP_MTL_TXN_WARNINGS';
281:
274: lc_proc_level CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
275: lc_event_level CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
276: lc_excep_level CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
277: lc_error_level CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
278: lc_unexp_level CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
279: lc_mod_name CONSTANT VARCHAR2(100) := 'csd.plsql.csd_repair_actual_process_pvt.log_wip_mtl_txn_warnings';
280: lc_api_name CONSTANT VARCHAR2(30) := 'LOG_WIP_MTL_TXN_WARNINGS';
281:
282: -- Fetches records that have the following warnings -
343: BEGIN
344:
345: -- logging
346: if (lc_proc_level >= lc_debug_level) then
347: FND_LOG.STRING(lc_proc_level, lc_mod_name || '.BEGIN',
348: 'Entering CSD_REPAIR_ACTUAL_PROCESS_PVT.Log_WIP_MTL_Txn_warnings');
349: end if;
350:
351: -- log parameters
349: end if;
350:
351: -- log parameters
352: if (lc_stat_level >= lc_debug_level) then
353: FND_LOG.STRING(lc_stat_level, lc_mod_name || '.parameter_logging',
354: 'p_wip_entity_id: ' || p_wip_entity_id);
355: FND_LOG.STRING(lc_stat_level, lc_mod_name || '.parameter_logging',
356: 'p_depot_organization: ' || p_depot_organization);
357: FND_LOG.STRING(lc_stat_level, lc_mod_name || '.parameter_logging',
351: -- log parameters
352: if (lc_stat_level >= lc_debug_level) then
353: FND_LOG.STRING(lc_stat_level, lc_mod_name || '.parameter_logging',
354: 'p_wip_entity_id: ' || p_wip_entity_id);
355: FND_LOG.STRING(lc_stat_level, lc_mod_name || '.parameter_logging',
356: 'p_depot_organization: ' || p_depot_organization);
357: FND_LOG.STRING(lc_stat_level, lc_mod_name || '.parameter_logging',
358: 'p_wip_organization: ' || p_wip_organization);
359: FND_LOG.STRING(lc_stat_level, lc_mod_name || '.parameter_logging',
353: FND_LOG.STRING(lc_stat_level, lc_mod_name || '.parameter_logging',
354: 'p_wip_entity_id: ' || p_wip_entity_id);
355: FND_LOG.STRING(lc_stat_level, lc_mod_name || '.parameter_logging',
356: 'p_depot_organization: ' || p_depot_organization);
357: FND_LOG.STRING(lc_stat_level, lc_mod_name || '.parameter_logging',
358: 'p_wip_organization: ' || p_wip_organization);
359: FND_LOG.STRING(lc_stat_level, lc_mod_name || '.parameter_logging',
360: 'p_inventory_item_id: ' || p_inventory_item_id);
361: FND_LOG.STRING(lc_stat_level, lc_mod_name || '.parameter_logging',
355: FND_LOG.STRING(lc_stat_level, lc_mod_name || '.parameter_logging',
356: 'p_depot_organization: ' || p_depot_organization);
357: FND_LOG.STRING(lc_stat_level, lc_mod_name || '.parameter_logging',
358: 'p_wip_organization: ' || p_wip_organization);
359: FND_LOG.STRING(lc_stat_level, lc_mod_name || '.parameter_logging',
360: 'p_inventory_item_id: ' || p_inventory_item_id);
361: FND_LOG.STRING(lc_stat_level, lc_mod_name || '.parameter_logging',
362: 'p_repair_type_id: ' || p_repair_type_id);
363: end if;
357: FND_LOG.STRING(lc_stat_level, lc_mod_name || '.parameter_logging',
358: 'p_wip_organization: ' || p_wip_organization);
359: FND_LOG.STRING(lc_stat_level, lc_mod_name || '.parameter_logging',
360: 'p_inventory_item_id: ' || p_inventory_item_id);
361: FND_LOG.STRING(lc_stat_level, lc_mod_name || '.parameter_logging',
362: 'p_repair_type_id: ' || p_repair_type_id);
363: end if;
364:
365: -- Set the warning flag
365: -- Set the warning flag
366: x_warning_flag := FND_API.G_FALSE;
367:
368: if (lc_stat_level >= lc_debug_level) then
369: FND_LOG.STRING(lc_stat_level, lc_mod_name,
370: 'Before the FOR LOOP for C_MTL_Item_In_Depot_Org.');
371: end if;
372:
373: -- Simply gets all records and log warnings for each of them if -
379: FOR i_rec IN C_MTL_Item_In_Depot_Org LOOP
380: IF i_rec.Quantity > 0 THEN
381: IF (i_rec.DEPOT_ITEM_ID IS NULL) THEN
382: if (lc_stat_level >= lc_debug_level) then
383: FND_LOG.STRING(lc_stat_level, lc_mod_name,
384: 'The item ' || i_rec.WIP_ITEM_NAME || ' is not defined in the Service '
385: || 'Validation Organization. It is defined only in the WIP organization.');
386: end if;
387: x_warning_flag := FND_API.G_TRUE;
390: FND_MESSAGE.set_token('ITEM_NAME', i_rec.WIP_ITEM_NAME);
391: FND_MSG_PUB.add_detail( p_message_type => FND_MSG_PUB.G_WARNING_MSG );
392: ELSIF (i_rec.BILLING_TYPE IS NULL) THEN
393: if (lc_stat_level >= lc_debug_level) then
394: FND_LOG.STRING(lc_stat_level, lc_mod_name,
395: 'Billing type is not defined for the item ' || i_rec.WIP_ITEM_NAME);
396: end if;
397: x_warning_flag := FND_API.G_TRUE;
398: FND_MESSAGE.set_name('CSD','CSD_ACT_ITEM_NO_BILLING_TYPE');
403: END IF;
404: END LOOP;
405:
406: if (lc_stat_level >= lc_debug_level) then
407: FND_LOG.STRING(lc_stat_level, lc_mod_name,
408: 'After the FOR LOOP for C_MTL_Item_In_Depot_Org.');
409: end if;
410:
411: if (lc_stat_level >= lc_debug_level) then
408: 'After the FOR LOOP for C_MTL_Item_In_Depot_Org.');
409: end if;
410:
411: if (lc_stat_level >= lc_debug_level) then
412: FND_LOG.STRING(lc_stat_level, lc_mod_name,
413: 'Before the FOR LOOP for C_MTL_Txn_Billing_Type.');
414: end if;
415:
416: -- Simply gets all records and log warnings for each of them.
417: FOR i_rec IN C_MTL_Txn_Billing_Type LOOP
418: IF i_rec.Quantity > 0 THEN
419: x_warning_flag := FND_API.G_TRUE;
420: if (lc_stat_level >= lc_debug_level) then
421: FND_LOG.STRING(lc_stat_level, lc_mod_name,
422: 'Unable to determine service activity billing type for the item ' || i_rec.DEPOT_ITEM_NAME);
423: end if;
424: FND_MESSAGE.set_name( 'CSD', 'CSD_CHRG_NO_ITEM_SAR');
425: -- Unable to determine service activity billing type for the item $ITEM.
428: END IF;
429: END LOOP;
430:
431: if (lc_stat_level >= lc_debug_level) then
432: FND_LOG.STRING(lc_stat_level, lc_mod_name,
433: 'After the FOR LOOP for C_MTL_Txn_Billing_Type.');
434: end if;
435:
436: -- Note : This procedure only adds to the FND msg stack. The msgs will
437: -- be logged to the generic message utility by the calling program.
438:
439: -- logging
440: if (lc_proc_level >= lc_debug_level) then
441: FND_LOG.STRING(lc_proc_level, lc_mod_name || '.END',
442: 'Leaving CSD_REPAIR_ACTUAL_PROCESS_PVT.Log_WIP_MTL_Txn_warnings');
443: end if;
444:
445: END Log_WIP_MTL_Txn_warnings;
479: )
480: IS
481:
482: -- CONSTANTS --
483: lc_debug_level CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
484: lc_stat_level CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
485: lc_proc_level CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
486: lc_event_level CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
487: lc_excep_level CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
480: IS
481:
482: -- CONSTANTS --
483: lc_debug_level CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
484: lc_stat_level CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
485: lc_proc_level CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
486: lc_event_level CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
487: lc_excep_level CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
488: lc_error_level CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
481:
482: -- CONSTANTS --
483: lc_debug_level CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
484: lc_stat_level CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
485: lc_proc_level CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
486: lc_event_level CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
487: lc_excep_level CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
488: lc_error_level CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
489: lc_unexp_level CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
482: -- CONSTANTS --
483: lc_debug_level CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
484: lc_stat_level CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
485: lc_proc_level CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
486: lc_event_level CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
487: lc_excep_level CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
488: lc_error_level CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
489: lc_unexp_level CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
490: lc_mod_name CONSTANT VARCHAR2(100) := 'csd.plsql.csd_repair_actual_process_pvt.import_actuals_from_task';
483: lc_debug_level CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
484: lc_stat_level CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
485: lc_proc_level CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
486: lc_event_level CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
487: lc_excep_level CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
488: lc_error_level CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
489: lc_unexp_level CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
490: lc_mod_name CONSTANT VARCHAR2(100) := 'csd.plsql.csd_repair_actual_process_pvt.import_actuals_from_task';
491: lc_api_name CONSTANT VARCHAR2(30) := 'IMPORT_ACTUALS_FROM_TASK';
484: lc_stat_level CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
485: lc_proc_level CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
486: lc_event_level CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
487: lc_excep_level CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
488: lc_error_level CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
489: lc_unexp_level CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
490: lc_mod_name CONSTANT VARCHAR2(100) := 'csd.plsql.csd_repair_actual_process_pvt.import_actuals_from_task';
491: lc_api_name CONSTANT VARCHAR2(30) := 'IMPORT_ACTUALS_FROM_TASK';
492: lc_api_version CONSTANT NUMBER := 1.0;
485: lc_proc_level CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
486: lc_event_level CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
487: lc_excep_level CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
488: lc_error_level CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
489: lc_unexp_level CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
490: lc_mod_name CONSTANT VARCHAR2(100) := 'csd.plsql.csd_repair_actual_process_pvt.import_actuals_from_task';
491: lc_api_name CONSTANT VARCHAR2(30) := 'IMPORT_ACTUALS_FROM_TASK';
492: lc_api_version CONSTANT NUMBER := 1.0;
493:
602: END IF;
603:
604: -- logging
605: if (lc_proc_level >= lc_debug_level) then
606: FND_LOG.STRING(lc_proc_level, lc_mod_name || '.BEGIN',
607: 'Entering CSD_REPAIR_ACTUAL_PROCESS_PVT.import_actuals_from_task');
608: end if;
609:
610: -- log parameters
608: end if;
609:
610: -- log parameters
611: if (lc_stat_level >= lc_debug_level) then
612: FND_LOG.STRING(lc_stat_level, lc_mod_name || '.parameter_logging',
613: 'p_api_version: ' || p_api_version);
614: FND_LOG.STRING(lc_stat_level, lc_mod_name || '.parameter_logging',
615: 'p_commit: ' || p_commit);
616: FND_LOG.STRING(lc_stat_level, lc_mod_name || '.parameter_logging',
610: -- log parameters
611: if (lc_stat_level >= lc_debug_level) then
612: FND_LOG.STRING(lc_stat_level, lc_mod_name || '.parameter_logging',
613: 'p_api_version: ' || p_api_version);
614: FND_LOG.STRING(lc_stat_level, lc_mod_name || '.parameter_logging',
615: 'p_commit: ' || p_commit);
616: FND_LOG.STRING(lc_stat_level, lc_mod_name || '.parameter_logging',
617: 'p_init_msg_list: ' || p_init_msg_list);
618: FND_LOG.STRING(lc_stat_level, lc_mod_name || '.parameter_logging',
612: FND_LOG.STRING(lc_stat_level, lc_mod_name || '.parameter_logging',
613: 'p_api_version: ' || p_api_version);
614: FND_LOG.STRING(lc_stat_level, lc_mod_name || '.parameter_logging',
615: 'p_commit: ' || p_commit);
616: FND_LOG.STRING(lc_stat_level, lc_mod_name || '.parameter_logging',
617: 'p_init_msg_list: ' || p_init_msg_list);
618: FND_LOG.STRING(lc_stat_level, lc_mod_name || '.parameter_logging',
619: 'p_validation_level: ' || p_validation_level);
620: FND_LOG.STRING(lc_stat_level, lc_mod_name || '.parameter_logging',
614: FND_LOG.STRING(lc_stat_level, lc_mod_name || '.parameter_logging',
615: 'p_commit: ' || p_commit);
616: FND_LOG.STRING(lc_stat_level, lc_mod_name || '.parameter_logging',
617: 'p_init_msg_list: ' || p_init_msg_list);
618: FND_LOG.STRING(lc_stat_level, lc_mod_name || '.parameter_logging',
619: 'p_validation_level: ' || p_validation_level);
620: FND_LOG.STRING(lc_stat_level, lc_mod_name || '.parameter_logging',
621: 'p_repair_line_id: ' || p_repair_line_id);
622: FND_LOG.STRING(lc_stat_level, lc_mod_name || '.parameter_logging',
616: FND_LOG.STRING(lc_stat_level, lc_mod_name || '.parameter_logging',
617: 'p_init_msg_list: ' || p_init_msg_list);
618: FND_LOG.STRING(lc_stat_level, lc_mod_name || '.parameter_logging',
619: 'p_validation_level: ' || p_validation_level);
620: FND_LOG.STRING(lc_stat_level, lc_mod_name || '.parameter_logging',
621: 'p_repair_line_id: ' || p_repair_line_id);
622: FND_LOG.STRING(lc_stat_level, lc_mod_name || '.parameter_logging',
623: 'p_repair_actual_id: ' || p_repair_actual_id);
624: end if;
618: FND_LOG.STRING(lc_stat_level, lc_mod_name || '.parameter_logging',
619: 'p_validation_level: ' || p_validation_level);
620: FND_LOG.STRING(lc_stat_level, lc_mod_name || '.parameter_logging',
621: 'p_repair_line_id: ' || p_repair_line_id);
622: FND_LOG.STRING(lc_stat_level, lc_mod_name || '.parameter_logging',
623: 'p_repair_actual_id: ' || p_repair_actual_id);
624: end if;
625:
626: -- Initialize API return status to success
634: x_warning_flag := FND_API.G_FALSE;
635:
636: -- Validate mandatory input parameters.
637: if (lc_proc_level >= lc_debug_level) then
638: FND_LOG.STRING(lc_proc_level, lc_mod_name,
639: 'Calling CSD_PROCESS_UTIL.Check_Reqd_Param for p_repair_line_id');
640: end if;
641:
642: CSD_PROCESS_UTIL.Check_Reqd_Param
644: p_param_name => 'REPAIR_LINE_ID',
645: p_api_name => lc_api_name);
646:
647: if (lc_stat_level >= lc_debug_level) then
648: FND_LOG.STRING(lc_stat_level, lc_mod_name,
649: 'Done checking required params');
650: end if;
651:
652: if (lc_stat_level >= lc_debug_level) then
649: 'Done checking required params');
650: end if;
651:
652: if (lc_stat_level >= lc_debug_level) then
653: FND_LOG.STRING(lc_stat_level, lc_mod_name,
654: 'Opening Cursor c_multi_currency_check');
655: end if;
656:
657: -- We need to make sure that no charge lines exist
661: INTO l_multi_currency_count;
662: CLOSE c_multi_currency_check;
663:
664: if (lc_stat_level >= lc_debug_level) then
665: FND_LOG.STRING(lc_stat_level, lc_mod_name,
666: 'Cursor c_multi_currency_check closed. Count is = ' || l_multi_currency_count);
667: end if;
668:
669: -- Expect the value to be zero. If the value is more
670: -- than 0 then it means that a charge line with diff
671: -- currency exixts.
672: If (l_multi_currency_count > 0) THEN
673: if (lc_stat_level >= lc_debug_level) then
674: FND_LOG.STRING(lc_stat_level, lc_mod_name,
675: 'Task debrief lines have more than one distinct currencies.');
676: end if;
677: FND_MESSAGE.SET_NAME('CSD','CSD_ACT_MULTI_CURR_TASK');
678: -- Task debrief lines cannot be imported into actuals for
688: -- Before we start the process of copying the
689: -- lines, we purge any existing error messages for the
690: -- Module ACT (source entity ESTIMATE).
691: if (lc_proc_level >= lc_debug_level) then
692: FND_LOG.STRING(lc_proc_level, lc_mod_name,
693: 'Calling CSD_GEN_ERRMSGS_PVT.purge_entity_msgs');
694: end if;
695: CSD_GEN_ERRMSGS_PVT.purge_entity_msgs(
696: p_api_version => 1.0,
706: x_msg_data => x_msg_data
707: );
708:
709: if (lc_proc_level >= lc_debug_level) then
710: FND_LOG.STRING(lc_proc_level, lc_mod_name,
711: 'Returned from CSD_GEN_ERRMSGS_PVT.purge_entity_msgs');
712: end if;
713:
714: -- Stall the process if we were unable to purge
730: -- For all the charge lines in cs_estimate_details table
731: -- for the given Repair Order
732: -- LOOP
733: if (lc_stat_level >= lc_debug_level) then
734: FND_LOG.STRING(lc_stat_level, lc_mod_name,
735: 'Begin loop through c_valid_task_charge_lines');
736: end if;
737: FOR task_charge_line_rec IN c_valid_task_charge_lines
738: LOOP
747: -- Increment the total count.
748: l_import_line_total_count := l_import_line_total_count + 1;
749:
750: if (lc_stat_level >= lc_debug_level) then
751: FND_LOG.STRING(lc_stat_level, lc_mod_name,
752: 'l_skip_curr_row = false');
753: FND_LOG.STRING(lc_stat_level, lc_mod_name,
754: 'l_curr_actual_line_rec.ESTIMATE_DETAIL_ID = ' || task_charge_line_rec.estimate_detail_id);
755: FND_LOG.STRING(lc_stat_level, lc_mod_name,
749:
750: if (lc_stat_level >= lc_debug_level) then
751: FND_LOG.STRING(lc_stat_level, lc_mod_name,
752: 'l_skip_curr_row = false');
753: FND_LOG.STRING(lc_stat_level, lc_mod_name,
754: 'l_curr_actual_line_rec.ESTIMATE_DETAIL_ID = ' || task_charge_line_rec.estimate_detail_id);
755: FND_LOG.STRING(lc_stat_level, lc_mod_name,
756: 'l_curr_actual_line_rec.REPAIR_ACTUAL_ID = ' || p_repair_actual_id);
757: FND_LOG.STRING(lc_stat_level, lc_mod_name,
751: FND_LOG.STRING(lc_stat_level, lc_mod_name,
752: 'l_skip_curr_row = false');
753: FND_LOG.STRING(lc_stat_level, lc_mod_name,
754: 'l_curr_actual_line_rec.ESTIMATE_DETAIL_ID = ' || task_charge_line_rec.estimate_detail_id);
755: FND_LOG.STRING(lc_stat_level, lc_mod_name,
756: 'l_curr_actual_line_rec.REPAIR_ACTUAL_ID = ' || p_repair_actual_id);
757: FND_LOG.STRING(lc_stat_level, lc_mod_name,
758: 'l_curr_actual_line_rec.REPAIR_LINE_ID = ' || p_repair_line_id);
759: FND_LOG.STRING(lc_stat_level, lc_mod_name,
753: FND_LOG.STRING(lc_stat_level, lc_mod_name,
754: 'l_curr_actual_line_rec.ESTIMATE_DETAIL_ID = ' || task_charge_line_rec.estimate_detail_id);
755: FND_LOG.STRING(lc_stat_level, lc_mod_name,
756: 'l_curr_actual_line_rec.REPAIR_ACTUAL_ID = ' || p_repair_actual_id);
757: FND_LOG.STRING(lc_stat_level, lc_mod_name,
758: 'l_curr_actual_line_rec.REPAIR_LINE_ID = ' || p_repair_line_id);
759: FND_LOG.STRING(lc_stat_level, lc_mod_name,
760: 'l_curr_actual_line_rec.ACTUAL_SOURCE_CODE = ' || G_ACTUAL_SOURCE_CODE_TASK);
761: FND_LOG.STRING(lc_stat_level, lc_mod_name,
755: FND_LOG.STRING(lc_stat_level, lc_mod_name,
756: 'l_curr_actual_line_rec.REPAIR_ACTUAL_ID = ' || p_repair_actual_id);
757: FND_LOG.STRING(lc_stat_level, lc_mod_name,
758: 'l_curr_actual_line_rec.REPAIR_LINE_ID = ' || p_repair_line_id);
759: FND_LOG.STRING(lc_stat_level, lc_mod_name,
760: 'l_curr_actual_line_rec.ACTUAL_SOURCE_CODE = ' || G_ACTUAL_SOURCE_CODE_TASK);
761: FND_LOG.STRING(lc_stat_level, lc_mod_name,
762: 'l_curr_actual_line_rec.ACTUAL_SOURCE_ID = ' || task_charge_line_rec.actual_source_id);
763: end if;
757: FND_LOG.STRING(lc_stat_level, lc_mod_name,
758: 'l_curr_actual_line_rec.REPAIR_LINE_ID = ' || p_repair_line_id);
759: FND_LOG.STRING(lc_stat_level, lc_mod_name,
760: 'l_curr_actual_line_rec.ACTUAL_SOURCE_CODE = ' || G_ACTUAL_SOURCE_CODE_TASK);
761: FND_LOG.STRING(lc_stat_level, lc_mod_name,
762: 'l_curr_actual_line_rec.ACTUAL_SOURCE_ID = ' || task_charge_line_rec.actual_source_id);
763: end if;
764:
765: -- If the copying of charge line was successful then
832: -- We now create a corresponding Repair Actual line.
833: BEGIN
834:
835: if (lc_proc_level >= lc_debug_level) then
836: FND_LOG.STRING(lc_proc_level, lc_mod_name,
837: 'Calling CSD_REPAIR_ACTUAL_LINES_PVT.create_repair_actual_lines');
838: end if;
839:
840: CSD_REPAIR_ACTUAL_LINES_PVT.create_repair_actual_lines(
849: x_msg_data => x_msg_data
850: );
851:
852: if (lc_proc_level >= lc_debug_level) then
853: FND_LOG.STRING(lc_proc_level, lc_mod_name,
854: 'Returned from CSD_REPAIR_ACTUAL_LINES_PVT.create_repair_actual_lines');
855: end if;
856:
857: -- Throw an error if the API returned an error.
863: END IF;
864:
865: IF (l_curr_actual_line_rec.repair_actual_line_id IS NULL) THEN
866: if (lc_proc_level >= lc_debug_level) then
867: FND_LOG.STRING(lc_proc_level, lc_mod_name,
868: 'Unable to create a repair actual line. Create API returned NULL for the repair actual line identifier.');
869: end if;
870: FND_MESSAGE.SET_NAME('CSD','CSD_ACT_NULL_ACTUAL_ID');
871: -- 'Unable to create a repair actual line. Create API returned NULL for the repair actual line identifier.
876: EXCEPTION
877: WHEN FND_API.G_EXC_ERROR THEN
878: l_skip_curr_row := TRUE;
879: if (lc_excep_level >= lc_debug_level) then
880: FND_LOG.STRING(lc_excep_level, lc_mod_name,
881: 'Encountered an EXC error while creating a repair actual line.');
882: end if;
883:
884: WHEN OTHERS THEN
882: end if;
883:
884: WHEN OTHERS THEN
885: if (lc_excep_level >= lc_debug_level) then
886: FND_LOG.STRING(lc_excep_level, lc_mod_name,
887: 'Encountered an OTHERS error while creating a repair actual line.');
888: end if;
889: l_skip_curr_row := TRUE;
890: FND_MESSAGE.SET_NAME('CSD','CSD_ACT_ERROR_ACTUAL_LINE');
906: l_charge_line_rec.ship_to_account_id := l_ship_to_account_id;
907: l_charge_line_rec.ship_to_org_id := l_ship_to_party_site_id;
908:
909: if (lc_proc_level >= lc_debug_level) then
910: FND_LOG.STRING(lc_proc_level, lc_mod_name,
911: 'Calling CSD_REPAIR_ACTUAL_LINES_PVT.update_repair_actual_lines');
912: end if;
913:
914: CSD_REPAIR_ACTUAL_LINES_PVT.update_repair_actual_lines (
922: x_msg_count => x_msg_count,
923: x_msg_data => x_msg_data
924: );
925: if (lc_proc_level >= lc_debug_level) then
926: FND_LOG.STRING(lc_proc_level, lc_mod_name,
927: 'Returned from CSD_REPAIR_ACTUAL_LINES_PVT.update_repair_actual_lines');
928: end if;
929:
930: -- Throw an error if the API returned an error.
938: EXCEPTION
939: WHEN FND_API.G_EXC_ERROR THEN
940: l_skip_curr_row := TRUE;
941: if (lc_proc_level >= lc_debug_level) then
942: FND_LOG.STRING(lc_proc_level, lc_mod_name,
943: 'Encountered an EXEC error while updating a repair actual line with billing information.');
944: end if;
945:
946: WHEN OTHERS THEN
945:
946: WHEN OTHERS THEN
947: l_skip_curr_row := TRUE;
948: if (lc_proc_level >= lc_debug_level) then
949: FND_LOG.STRING(lc_proc_level, lc_mod_name,
950: 'Encountered OTHERS error while updating a repair actual line with billing information.');
951: end if;
952: FND_MESSAGE.SET_NAME('CSD', 'CSD_ACT_ERROR_ACTUAL_LINE');
953: FND_MESSAGE.SET_TOKEN('SQLCODE', SQLCODE);
957: END;
958:
959: IF l_skip_curr_row THEN
960: if (lc_stat_level >= lc_debug_level) then
961: FND_LOG.STRING(lc_stat_level, lc_mod_name,
962: 'l_skip_curr_row = true');
963: end if;
964:
965: -- we rollback any updates/inserts for the current
971: l_import_line_failed_count := l_import_line_failed_count + 1;
972:
973: -- Log all the warnigs/error in the stack.
974: if (lc_proc_level >= lc_debug_level) then
975: FND_LOG.STRING(lc_proc_level, lc_mod_name,
976: 'Calling CSD_GEN_ERRMSGS_PVT.save_fnd_msgs');
977: end if;
978: CSD_GEN_ERRMSGS_PVT.save_fnd_msgs(
979: p_api_version => 1.0,
985: x_msg_count => x_msg_count,
986: x_msg_data => x_msg_data
987: );
988: if (lc_proc_level >= lc_debug_level) then
989: FND_LOG.STRING(lc_proc_level, lc_mod_name,
990: 'Returned from CSD_GEN_ERRMSGS_PVT.save_fnd_msgs');
991: end if;
992:
993: -- If we are unable to log messages then we stop
993: -- If we are unable to log messages then we stop
994: -- further processing.
995: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
996: if (lc_proc_level >= lc_debug_level) then
997: FND_LOG.STRING(lc_proc_level, lc_mod_name,
998: 'Unable to save messages using the generic logging utility.');
999: end if;
1000: FND_MESSAGE.SET_NAME( 'CSD', 'CSD_GENERIC_SAVE_FAILED');
1001: -- Unable to save messages using the generic logging utility.
1024: FND_MSG_PUB.add_detail(p_message_type => FND_MSG_PUB.G_INFORMATION_MSG);
1025: END IF;
1026:
1027: if (lc_proc_level >= lc_debug_level) then
1028: FND_LOG.STRING(lc_proc_level, lc_mod_name,
1029: 'Calling procedure CSD_GEN_ERRMSGS_PVT.save_fnd_msgs');
1030: end if;
1031:
1032: CSD_GEN_ERRMSGS_PVT.save_fnd_msgs(
1042: x_msg_count => x_msg_count,
1043: x_msg_data => x_msg_data );
1044:
1045: if (lc_proc_level >= lc_debug_level) then
1046: FND_LOG.STRING(lc_proc_level, lc_mod_name,
1047: 'Returned from procedure CSD_GEN_ERRMSGS_PVT.save_fnd_msgs');
1048: end if;
1049:
1050: -- If we are unable to log messages then we
1050: -- If we are unable to log messages then we
1051: -- throw an error.
1052: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1053: if (lc_proc_level >= lc_debug_level) then
1054: FND_LOG.STRING(lc_proc_level, lc_mod_name,
1055: 'Unable to save messages using the generic logging utility.');
1056: end if;
1057: FND_MESSAGE.SET_NAME( 'CSD', 'CSD_GENERIC_SAVE_FAILED');
1058: -- Unable to save messages using the generic logging utility.
1066: END IF;
1067:
1068: -- logging
1069: if (lc_proc_level >= lc_debug_level) then
1070: FND_LOG.STRING(lc_proc_level, lc_mod_name || '.END',
1071: 'Leaving CSD_REPAIR_ACTUAL_PROCESS_PVT.import_actuals_from_task');
1072: end if;
1073:
1074: EXCEPTION
1080: p_data => x_msg_data );
1081:
1082: -- save message in debug log
1083: IF (lc_excep_level >= lc_debug_level) THEN
1084: FND_LOG.STRING(lc_excep_level, lc_mod_name,
1085: 'EXC_ERROR['||x_msg_data||']');
1086: END IF;
1087: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1088: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1092: p_data => x_msg_data );
1093:
1094: -- save message in debug log
1095: IF (lc_excep_level >= lc_debug_level) THEN
1096: FND_LOG.STRING(lc_excep_level, lc_mod_name,
1097: 'EXC_UNEXPECTED_ERROR['||x_msg_data||']');
1098: END IF;
1099: WHEN OTHERS THEN
1100: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1112: p_data => x_msg_data );
1113: -- save message in debug log
1114: IF (lc_excep_level >= lc_debug_level) THEN
1115: -- create a seeded message
1116: FND_LOG.STRING(lc_excep_level, lc_mod_name,
1117: 'WHEN OTHERS THEN. SQL Message['||sqlerrm||']' );
1118: END IF;
1119:
1120: END Import_Actuals_From_Task;
1155: p_organization_id IN NUMBER,
1156: x_warning_flag OUT NOCOPY VARCHAR2 ) IS
1157:
1158: -- Constants --
1159: lc_debug_level CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
1160: lc_stat_level CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
1161: lc_proc_level CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
1162: lc_event_level CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
1163: lc_excep_level CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
1156: x_warning_flag OUT NOCOPY VARCHAR2 ) IS
1157:
1158: -- Constants --
1159: lc_debug_level CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
1160: lc_stat_level CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
1161: lc_proc_level CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
1162: lc_event_level CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
1163: lc_excep_level CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
1164: lc_error_level CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
1157:
1158: -- Constants --
1159: lc_debug_level CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
1160: lc_stat_level CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
1161: lc_proc_level CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
1162: lc_event_level CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
1163: lc_excep_level CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
1164: lc_error_level CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
1165: lc_unexp_level CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
1158: -- Constants --
1159: lc_debug_level CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
1160: lc_stat_level CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
1161: lc_proc_level CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
1162: lc_event_level CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
1163: lc_excep_level CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
1164: lc_error_level CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
1165: lc_unexp_level CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
1166: lc_mod_name CONSTANT VARCHAR2(100) := 'csd.plsql.csd_repair_actual_process_pvt.import_actuals_from_wip';
1159: lc_debug_level CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
1160: lc_stat_level CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
1161: lc_proc_level CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
1162: lc_event_level CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
1163: lc_excep_level CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
1164: lc_error_level CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
1165: lc_unexp_level CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
1166: lc_mod_name CONSTANT VARCHAR2(100) := 'csd.plsql.csd_repair_actual_process_pvt.import_actuals_from_wip';
1167: lc_api_name CONSTANT VARCHAR2(30) := 'IMPORT_ACTUALS_FROM_WIP';
1160: lc_stat_level CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
1161: lc_proc_level CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
1162: lc_event_level CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
1163: lc_excep_level CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
1164: lc_error_level CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
1165: lc_unexp_level CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
1166: lc_mod_name CONSTANT VARCHAR2(100) := 'csd.plsql.csd_repair_actual_process_pvt.import_actuals_from_wip';
1167: lc_api_name CONSTANT VARCHAR2(30) := 'IMPORT_ACTUALS_FROM_WIP';
1168: lc_api_version CONSTANT NUMBER := 1.0;
1161: lc_proc_level CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
1162: lc_event_level CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
1163: lc_excep_level CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
1164: lc_error_level CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
1165: lc_unexp_level CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
1166: lc_mod_name CONSTANT VARCHAR2(100) := 'csd.plsql.csd_repair_actual_process_pvt.import_actuals_from_wip';
1167: lc_api_name CONSTANT VARCHAR2(30) := 'IMPORT_ACTUALS_FROM_WIP';
1168: lc_api_version CONSTANT NUMBER := 1.0;
1169:
1358: END IF;
1359:
1360: -- logging
1361: if (lc_proc_level >= lc_debug_level) then
1362: FND_LOG.STRING(lc_proc_level, lc_mod_name || '.BEGIN',
1363: 'Entering CSD_REPAIR_ACTUAL_PROCESS_PVT.import_actuals_from_wip');
1364: end if;
1365:
1366: -- log parameters
1364: end if;
1365:
1366: -- log parameters
1367: if (lc_stat_level >= lc_debug_level) then
1368: FND_LOG.STRING(lc_stat_level, lc_mod_name || '.parameter_logging',
1369: 'p_api_version: ' || p_api_version);
1370: FND_LOG.STRING(lc_stat_level, lc_mod_name || '.parameter_logging',
1371: 'p_commit: ' || p_commit);
1372: FND_LOG.STRING(lc_stat_level, lc_mod_name || '.parameter_logging',
1366: -- log parameters
1367: if (lc_stat_level >= lc_debug_level) then
1368: FND_LOG.STRING(lc_stat_level, lc_mod_name || '.parameter_logging',
1369: 'p_api_version: ' || p_api_version);
1370: FND_LOG.STRING(lc_stat_level, lc_mod_name || '.parameter_logging',
1371: 'p_commit: ' || p_commit);
1372: FND_LOG.STRING(lc_stat_level, lc_mod_name || '.parameter_logging',
1373: 'p_init_msg_list: ' || p_init_msg_list);
1374: FND_LOG.STRING(lc_stat_level, lc_mod_name || '.parameter_logging',
1368: FND_LOG.STRING(lc_stat_level, lc_mod_name || '.parameter_logging',
1369: 'p_api_version: ' || p_api_version);
1370: FND_LOG.STRING(lc_stat_level, lc_mod_name || '.parameter_logging',
1371: 'p_commit: ' || p_commit);
1372: FND_LOG.STRING(lc_stat_level, lc_mod_name || '.parameter_logging',
1373: 'p_init_msg_list: ' || p_init_msg_list);
1374: FND_LOG.STRING(lc_stat_level, lc_mod_name || '.parameter_logging',
1375: 'p_validation_level: ' || p_validation_level);
1376: FND_LOG.STRING(lc_stat_level, lc_mod_name || '.parameter_logging',
1370: FND_LOG.STRING(lc_stat_level, lc_mod_name || '.parameter_logging',
1371: 'p_commit: ' || p_commit);
1372: FND_LOG.STRING(lc_stat_level, lc_mod_name || '.parameter_logging',
1373: 'p_init_msg_list: ' || p_init_msg_list);
1374: FND_LOG.STRING(lc_stat_level, lc_mod_name || '.parameter_logging',
1375: 'p_validation_level: ' || p_validation_level);
1376: FND_LOG.STRING(lc_stat_level, lc_mod_name || '.parameter_logging',
1377: 'p_repair_line_id: ' || p_repair_line_id);
1378: FND_LOG.STRING(lc_stat_level, lc_mod_name || '.parameter_logging',
1372: FND_LOG.STRING(lc_stat_level, lc_mod_name || '.parameter_logging',
1373: 'p_init_msg_list: ' || p_init_msg_list);
1374: FND_LOG.STRING(lc_stat_level, lc_mod_name || '.parameter_logging',
1375: 'p_validation_level: ' || p_validation_level);
1376: FND_LOG.STRING(lc_stat_level, lc_mod_name || '.parameter_logging',
1377: 'p_repair_line_id: ' || p_repair_line_id);
1378: FND_LOG.STRING(lc_stat_level, lc_mod_name || '.parameter_logging',
1379: 'p_repair_actual_id: ' || p_repair_actual_id);
1380: FND_LOG.STRING(lc_stat_level, lc_mod_name || '.parameter_logging',
1374: FND_LOG.STRING(lc_stat_level, lc_mod_name || '.parameter_logging',
1375: 'p_validation_level: ' || p_validation_level);
1376: FND_LOG.STRING(lc_stat_level, lc_mod_name || '.parameter_logging',
1377: 'p_repair_line_id: ' || p_repair_line_id);
1378: FND_LOG.STRING(lc_stat_level, lc_mod_name || '.parameter_logging',
1379: 'p_repair_actual_id: ' || p_repair_actual_id);
1380: FND_LOG.STRING(lc_stat_level, lc_mod_name || '.parameter_logging',
1381: 'p_repair_type_id: ' || p_repair_type_id);
1382: FND_LOG.STRING(lc_stat_level, lc_mod_name || '.parameter_logging',
1376: FND_LOG.STRING(lc_stat_level, lc_mod_name || '.parameter_logging',
1377: 'p_repair_line_id: ' || p_repair_line_id);
1378: FND_LOG.STRING(lc_stat_level, lc_mod_name || '.parameter_logging',
1379: 'p_repair_actual_id: ' || p_repair_actual_id);
1380: FND_LOG.STRING(lc_stat_level, lc_mod_name || '.parameter_logging',
1381: 'p_repair_type_id: ' || p_repair_type_id);
1382: FND_LOG.STRING(lc_stat_level, lc_mod_name || '.parameter_logging',
1383: 'p_business_process_id: ' || p_business_process_id);
1384: FND_LOG.STRING(lc_stat_level, lc_mod_name || '.parameter_logging',
1378: FND_LOG.STRING(lc_stat_level, lc_mod_name || '.parameter_logging',
1379: 'p_repair_actual_id: ' || p_repair_actual_id);
1380: FND_LOG.STRING(lc_stat_level, lc_mod_name || '.parameter_logging',
1381: 'p_repair_type_id: ' || p_repair_type_id);
1382: FND_LOG.STRING(lc_stat_level, lc_mod_name || '.parameter_logging',
1383: 'p_business_process_id: ' || p_business_process_id);
1384: FND_LOG.STRING(lc_stat_level, lc_mod_name || '.parameter_logging',
1385: 'p_currency_code: ' || p_currency_code);
1386: FND_LOG.STRING(lc_stat_level, lc_mod_name || '.parameter_logging',
1380: FND_LOG.STRING(lc_stat_level, lc_mod_name || '.parameter_logging',
1381: 'p_repair_type_id: ' || p_repair_type_id);
1382: FND_LOG.STRING(lc_stat_level, lc_mod_name || '.parameter_logging',
1383: 'p_business_process_id: ' || p_business_process_id);
1384: FND_LOG.STRING(lc_stat_level, lc_mod_name || '.parameter_logging',
1385: 'p_currency_code: ' || p_currency_code);
1386: FND_LOG.STRING(lc_stat_level, lc_mod_name || '.parameter_logging',
1387: 'p_incident_id: ' || p_incident_id);
1388: FND_LOG.STRING(lc_stat_level, lc_mod_name || '.parameter_logging',
1382: FND_LOG.STRING(lc_stat_level, lc_mod_name || '.parameter_logging',
1383: 'p_business_process_id: ' || p_business_process_id);
1384: FND_LOG.STRING(lc_stat_level, lc_mod_name || '.parameter_logging',
1385: 'p_currency_code: ' || p_currency_code);
1386: FND_LOG.STRING(lc_stat_level, lc_mod_name || '.parameter_logging',
1387: 'p_incident_id: ' || p_incident_id);
1388: FND_LOG.STRING(lc_stat_level, lc_mod_name || '.parameter_logging',
1389: 'p_organization_id: ' || p_organization_id);
1390: end if;
1384: FND_LOG.STRING(lc_stat_level, lc_mod_name || '.parameter_logging',
1385: 'p_currency_code: ' || p_currency_code);
1386: FND_LOG.STRING(lc_stat_level, lc_mod_name || '.parameter_logging',
1387: 'p_incident_id: ' || p_incident_id);
1388: FND_LOG.STRING(lc_stat_level, lc_mod_name || '.parameter_logging',
1389: 'p_organization_id: ' || p_organization_id);
1390: end if;
1391:
1392: -- Initialize API return status to success
1401: --DBMS_OUTPUT.put_line( 'before api begin' );
1402:
1403: -- Validate mandatory input parameters.
1404: if (lc_proc_level >= lc_debug_level) then
1405: FND_LOG.STRING(lc_proc_level, lc_mod_name,
1406: 'Calling CSD_PROCESS_UTIL.Check_Reqd_Param for p_repair_line_id');
1407: end if;
1408: CSD_PROCESS_UTIL.Check_Reqd_Param
1409: ( p_param_value => p_repair_line_id,
1410: p_param_name => 'REPAIR_LINE_ID',
1411: p_api_name => lc_api_name);
1412:
1413: if (lc_proc_level >= lc_debug_level) then
1414: FND_LOG.STRING(lc_proc_level, lc_mod_name,
1415: 'Calling CSD_PROCESS_UTIL.Check_Reqd_Param for p_repair_type_id');
1416: end if;
1417:
1418: CSD_PROCESS_UTIL.Check_Reqd_Param
1420: p_param_name => 'REPAIR_TYPE_ID',
1421: p_api_name => lc_api_name);
1422:
1423: if (lc_proc_level >= lc_debug_level) then
1424: FND_LOG.STRING(lc_proc_level, lc_mod_name,
1425: 'Calling CSD_PROCESS_UTIL.Check_Reqd_Param for p_business_process_id');
1426: end if;
1427:
1428: CSD_PROCESS_UTIL.Check_Reqd_Param
1430: p_param_name => 'BUSINESS_PROCESS_ID',
1431: p_api_name => lc_api_name);
1432:
1433: if (lc_proc_level >= lc_debug_level) then
1434: FND_LOG.STRING(lc_proc_level, lc_mod_name,
1435: 'Calling CSD_PROCESS_UTIL.Check_Reqd_Param for p_currency_code');
1436: end if;
1437:
1438: CSD_PROCESS_UTIL.Check_Reqd_Param
1440: p_param_name => 'CURRENCY_CODE',
1441: p_api_name => lc_api_name);
1442:
1443: if (lc_proc_level >= lc_debug_level) then
1444: FND_LOG.STRING(lc_proc_level, lc_mod_name,
1445: 'Calling CSD_PROCESS_UTIL.Check_Reqd_Param for p_incident_id');
1446: end if;
1447:
1448: CSD_PROCESS_UTIL.Check_Reqd_Param
1450: p_param_name => 'INCIDENT_ID',
1451: p_api_name => lc_api_name);
1452:
1453: if (lc_proc_level >= lc_debug_level) then
1454: FND_LOG.STRING(lc_proc_level, lc_mod_name,
1455: 'Calling CSD_PROCESS_UTIL.Check_Reqd_Param for p_organization_id');
1456: end if;
1457:
1458: CSD_PROCESS_UTIL.Check_Reqd_Param
1460: p_param_name => 'ORGANIZATION_ID',
1461: p_api_name => lc_api_name);
1462:
1463: if (lc_stat_level >= lc_debug_level) then
1464: FND_LOG.STRING(lc_stat_level, lc_mod_name,
1465: 'Done checking required params');
1466: end if;
1467:
1468: -- We make API calls to get default contract and price list
1470: -- and the pricelist will together make sense. So we do not
1471: -- unnecessary validate them.
1472:
1473: if (lc_proc_level >= lc_debug_level) then
1474: FND_LOG.STRING(lc_proc_level, lc_mod_name,
1475: 'Calling CSD_CHARGE_LINE_UTIL.Get_DefaultContract');
1476: end if;
1477:
1478: -- Get default Contract.
1478: -- Get default Contract.
1479: l_default_contract_line_id := CSD_CHARGE_LINE_UTIL.Get_DefaultContract( p_repair_line_id );
1480:
1481: if (lc_proc_level >= lc_debug_level) then
1482: FND_LOG.STRING(lc_proc_level, lc_mod_name,
1483: 'Returned from CSD_CHARGE_LINE_UTIL.Get_DefaultContract. '
1484: || 'l_default_contract_line_id = ' || l_default_contract_line_id);
1485: end if;
1486:
1487: --DBMS_OUTPUT.put_line( 'l_default_contract_line_id = '
1488: -- || TO_CHAR( l_default_contract_line_id ));
1489:
1490: if (lc_proc_level >= lc_debug_level) then
1491: FND_LOG.STRING(lc_proc_level, lc_mod_name,
1492: 'Calling CSD_CHARGE_LINE_UTIL.Get_RO_PriceList');
1493: end if;
1494:
1495: -- Get default pricelist for the repair order.
1495: -- Get default pricelist for the repair order.
1496: l_default_price_list_hdr_id := CSD_CHARGE_LINE_UTIL.Get_RO_PriceList(p_repair_line_id);
1497:
1498: if (lc_proc_level >= lc_debug_level) then
1499: FND_LOG.STRING(lc_proc_level, lc_mod_name,
1500: 'Returned from CSD_CHARGE_LINE_UTIL.Get_RO_PriceList. '
1501: || 'l_default_price_list_hdr_id = ' ||l_default_price_list_hdr_id);
1502: end if;
1503:
1505: -- || l_default_price_list_hdr_id );
1506:
1507: IF ( l_default_price_list_hdr_id IS NULL ) THEN
1508: if (lc_proc_level >= lc_debug_level) then
1509: FND_LOG.STRING(lc_proc_level, lc_mod_name,
1510: 'Unable to determine default price list for the repair order.');
1511: end if;
1512: -- Unable to determine default pricelist
1513: FND_MESSAGE.SET_NAME( 'CSD', 'CSD_ACT_DEFAULT_PL_IMPORT');
1521:
1522: -- We should purge the earlier messages before we insert
1523: -- any new ones.
1524: if (lc_proc_level >= lc_debug_level) then
1525: FND_LOG.STRING(lc_proc_level, lc_mod_name,
1526: 'Calling CSD_GEN_ERRMSGS_PVT.purge_entity_msgs');
1527: end if;
1528: CSD_GEN_ERRMSGS_PVT.purge_entity_msgs( p_api_version => 1.0,
1529: -- p_commit => FND_API.G_TRUE,
1537: x_msg_count => x_msg_count,
1538: x_msg_data => x_msg_data );
1539:
1540: if (lc_proc_level >= lc_debug_level) then
1541: FND_LOG.STRING(lc_proc_level, lc_mod_name,
1542: 'Returned from CSD_GEN_ERRMSGS_PVT.purge_entity_msgs');
1543: end if;
1544:
1545: -- Do not proceed if unable to purge.
1550:
1551: -- Log info messages for all the wip jobs that are shared with other
1552: -- repair orders.
1553: if (lc_stat_level >= lc_debug_level) then
1554: FND_LOG.STRING(lc_stat_level, lc_mod_name,
1555: 'Begin LOOP through c_ineligible_WIP_Jobs');
1556: end if;
1557:
1558: FOR inelgible_WIP_rec IN c_ineligible_WIP_Jobs LOOP
1556: end if;
1557:
1558: FOR inelgible_WIP_rec IN c_ineligible_WIP_Jobs LOOP
1559: IF (lc_stat_level >= lc_debug_level) then
1560: FND_LOG.STRING(lc_stat_level, lc_mod_name,
1561: 'The WIP job ' || inelgible_WIP_rec.JOB_NAME || 'is shared across Repair Orders'
1562: || '. It is not imported');
1563: END IF;
1564: -- Add an INFO message indicating whether the job will not be imported.
1569: FND_MESSAGE.set_token( 'JOB_NAME', inelgible_WIP_rec.JOB_NAME );
1570: FND_MSG_PUB.add_detail( p_message_type => FND_MSG_PUB.G_INFORMATION_MSG );
1571:
1572: if (lc_proc_level >= lc_debug_level) then
1573: FND_LOG.STRING(lc_proc_level, lc_mod_name,
1574: 'Calling CSD_GEN_ERRMSGS_PVT.save_fnd_msgs');
1575: end if;
1576: -- We have to log message individually as wip_entity_id is required for
1577: -- logging messages.
1587: x_msg_count => x_msg_count,
1588: x_msg_data => x_msg_data );
1589:
1590: if (lc_proc_level >= lc_debug_level) then
1591: FND_LOG.STRING(lc_proc_level, lc_mod_name,
1592: 'Returned from CSD_GEN_ERRMSGS_PVT.save_fnd_msgs');
1593: end if;
1594:
1595: IF ( x_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
1599:
1600: END LOOP; -- c_ineligible_WIP_Jobs cursor
1601:
1602: if (lc_stat_level >= lc_debug_level) then
1603: FND_LOG.STRING(lc_stat_level, lc_mod_name,
1604: 'End LOOP c_ineligible_WIP_Jobs');
1605: end if;
1606:
1607: -- The following is the outermost loop to ensure that we
1609: -- The idea is that if we get into an error while processing
1610: -- a WIP Job, we skip that one, log a ERROR message and
1611: -- continue with next WIP job.
1612: if (lc_stat_level >= lc_debug_level) then
1613: FND_LOG.STRING(lc_stat_level, lc_mod_name,
1614: 'Begin LOOP through c_eligible_WIP_Jobs');
1615: end if;
1616: FOR curr_WIP_job_rec IN c_eligible_WIP_Jobs LOOP
1617: l_wip_count := l_wip_count + 1;
1616: FOR curr_WIP_job_rec IN c_eligible_WIP_Jobs LOOP
1617: l_wip_count := l_wip_count + 1;
1618:
1619: if (lc_stat_level >= lc_debug_level) then
1620: FND_LOG.STRING(lc_stat_level, lc_mod_name,
1621: 'WIP count (l_wip_count) is = ' || l_wip_count);
1622: end if;
1623:
1624: DECLARE
1659:
1660: --dbms_output.put_line('The job name being processed is ' || curr_WIP_job_rec.JOB_NAME);
1661:
1662: if (lc_stat_level >= lc_debug_level) then
1663: FND_LOG.STRING(lc_stat_level, lc_mod_name,
1664: 'Inside the BLOCK for processing one WIP job at a time.');
1665: end if;
1666:
1667: /****** Processing the Material transactions specific data - START *********/
1668:
1669: --DBMS_OUTPUT.put_line( 'processing mtl..' );
1670:
1671: if (lc_stat_level >= lc_debug_level) then
1672: FND_LOG.STRING(lc_stat_level, lc_mod_name,
1673: 'Start: Processing material transactions for the WIP job - ' || curr_WIP_job_rec.JOB_NAME);
1674: end if;
1675:
1676: -- Log bulk messages for all the generic warnings for the
1675:
1676: -- Log bulk messages for all the generic warnings for the
1677: -- material transaction lines.
1678: if (lc_proc_level >= lc_debug_level) then
1679: FND_LOG.STRING(lc_proc_level, lc_mod_name,
1680: 'Calling Log_WIP_MTL_Txn_warnings');
1681: end if;
1682:
1683: Log_WIP_MTL_Txn_warnings(
1689: x_warning_flag => x_curr_warning_flag
1690: );
1691:
1692: if (lc_proc_level >= lc_debug_level) then
1693: FND_LOG.STRING(lc_proc_level, lc_mod_name,
1694: 'Returned from Log_WIP_MTL_Txn_warnings. '
1695: || 'x_curr_warning_flag = ' || x_curr_warning_flag);
1696: end if;
1697:
1706: DECLARE
1707: l_count NUMBER := 0;
1708: BEGIN
1709: if (lc_stat_level >= lc_debug_level) then
1710: FND_LOG.STRING(lc_stat_level, lc_mod_name,
1711: 'Begin: loop through the cursor c_actual_lines_from_materials.');
1712: end if;
1713: FOR actuals_rec IN c_actual_lines_from_materials( curr_WIP_job_rec.wip_entity_id,
1714: curr_WIP_job_rec.inventory_item_id) LOOP
1724: l_MLE_MTL_lines_tbl( l_count ).source_code := actuals_rec.actual_source_code;
1725: l_MLE_MTL_lines_tbl( l_count ).source_id1 := actuals_rec.actual_source_id;
1726: END LOOP;
1727: if (lc_stat_level >= lc_debug_level) then
1728: FND_LOG.STRING(lc_stat_level, lc_mod_name,
1729: 'End: loop through the cursor c_actual_lines_from_materials.');
1730: end if;
1731: END;
1732:
1733: --DBMS_OUTPUT.put_line( 'after MTL actuals loop '
1734: -- || l_MLE_MTL_lines_tbl.COUNT );
1735:
1736: if (lc_proc_level >= lc_debug_level) then
1737: FND_LOG.STRING(lc_proc_level, lc_mod_name,
1738: 'Calling procedure CSD_CHARGE_LINE_UTIL.Convert_To_Charge_Lines.');
1739: end if;
1740:
1741: -- Filter out all the bad data and populate 'Charges' table
1764: px_charge_lines_tbl => x_charge_lines_tbl,
1765: x_warning_flag => x_curr_warning_flag );
1766:
1767: if (lc_proc_level >= lc_debug_level) then
1768: FND_LOG.STRING(lc_proc_level, lc_mod_name,
1769: 'Returned from procedure CSD_CHARGE_LINE_UTIL.Convert_To_Charge_Lines. '
1770: || 'x_curr_warning_flag = ' || x_curr_warning_flag);
1771: end if;
1772:
1782: RAISE FND_API.G_EXC_ERROR;
1783: END IF;
1784:
1785: if (lc_stat_level >= lc_debug_level) then
1786: FND_LOG.STRING(lc_stat_level, lc_mod_name,
1787: 'End: Processing material transactions for the WIP job - ' || curr_WIP_job_rec.JOB_NAME);
1788: end if;
1789:
1790: /****** Processing the Material transactions specific data - END *********/
1795:
1796: -- DBMS_OUTPUT.put_line( 'processing RES ..' );
1797:
1798: if (lc_stat_level >= lc_debug_level) then
1799: FND_LOG.STRING(lc_stat_level, lc_mod_name,
1800: 'Start: Processing Resource/WIP transactions for the WIP job - ' || curr_WIP_job_rec.JOB_NAME);
1801: end if;
1802:
1803: -- Log bulk messages for all the generic warnings for the
1802:
1803: -- Log bulk messages for all the generic warnings for the
1804: -- WIP transaction lines.
1805: if (lc_proc_level >= lc_debug_level) then
1806: FND_LOG.STRING(lc_proc_level, lc_mod_name,
1807: 'Calling Log_WIP_Resource_Txn_warnings');
1808: end if;
1809: Log_WIP_Resource_Txn_warnings(
1810: p_wip_entity_id => curr_WIP_job_rec.wip_entity_id,
1814: x_warning_flag => x_curr_warning_flag
1815: );
1816:
1817: if (lc_proc_level >= lc_debug_level) then
1818: FND_LOG.STRING(lc_proc_level, lc_mod_name,
1819: 'Returned from Log_WIP_Resource_Txn_warnings. '
1820: || 'x_curr_warning_flag = ' || x_curr_warning_flag);
1821: end if;
1822:
1830: DECLARE
1831: l_count NUMBER := 0;
1832: BEGIN
1833: if (lc_stat_level >= lc_debug_level) then
1834: FND_LOG.STRING(lc_stat_level, lc_mod_name,
1835: 'Begin: loop through the cursor c_actual_lines_from_resources.');
1836: end if;
1837: FOR actuals_rec IN c_actual_lines_from_resources( curr_WIP_job_rec.wip_entity_id) LOOP
1838: l_count := l_count + 1;
1850: -- Added for ER 3607765, vkjain.
1851: l_MLE_RES_lines_tbl( l_count ).resource_id := actuals_rec.resource_id;
1852: END LOOP;
1853: if (lc_stat_level >= lc_debug_level) then
1854: FND_LOG.STRING(lc_stat_level, lc_mod_name,
1855: 'End: loop through the cursor c_actual_lines_from_resources.');
1856: end if;
1857: END;
1858:
1859: --DBMS_OUTPUT.put_line( 'after the RES actuals loop '
1860: -- || l_MLE_MTL_lines_tbl.COUNT );
1861:
1862: if (lc_proc_level >= lc_debug_level) then
1863: FND_LOG.STRING(lc_proc_level, lc_mod_name,
1864: 'Calling procedure CSD_CHARGE_LINE_UTIL.Convert_To_Charge_Lines.');
1865: end if;
1866:
1867: -- Filter out all the bad data and populate 'Charges' table
1890: px_charge_lines_tbl => x_charge_lines_tbl,
1891: x_warning_flag => x_curr_warning_flag );
1892:
1893: if (lc_proc_level >= lc_debug_level) then
1894: FND_LOG.STRING(lc_proc_level, lc_mod_name,
1895: 'Returned from procedure CSD_CHARGE_LINE_UTIL.Convert_To_Charge_Lines. '
1896: || 'x_curr_warning_flag = ' || x_curr_warning_flag);
1897: end if;
1898:
1908: RAISE FND_API.G_EXC_ERROR;
1909: END IF;
1910:
1911: if (lc_stat_level >= lc_debug_level) then
1912: FND_LOG.STRING(lc_stat_level, lc_mod_name,
1913: 'END: Processing Resource/WIP transactions for the WIP job - ' || curr_WIP_job_rec.JOB_NAME);
1914: end if;
1915:
1916: /****** Processing the Resource/WIP transactions specific data - END *********/
1922: IF ( l_curr_warning_flag <> FND_API.G_FALSE ) THEN
1923: x_warning_flag := l_curr_warning_flag;
1924:
1925: if (lc_stat_level >= lc_debug_level) then
1926: FND_LOG.STRING(lc_stat_level, lc_mod_name,
1927: 'x_warning_flag is set to = ' || x_warning_flag);
1928: end if;
1929:
1930: if (lc_proc_level >= lc_debug_level) then
1927: 'x_warning_flag is set to = ' || x_warning_flag);
1928: end if;
1929:
1930: if (lc_proc_level >= lc_debug_level) then
1931: FND_LOG.STRING(lc_proc_level, lc_mod_name,
1932: 'Calling procedure CSD_GEN_ERRMSGS_PVT.save_fnd_msgs.');
1933: end if;
1934:
1935: CSD_GEN_ERRMSGS_PVT.save_fnd_msgs( p_api_version => 1.0,
1944: x_msg_count => l_msg_count,
1945: x_msg_data => l_msg_data );
1946:
1947: if (lc_proc_level >= lc_debug_level) then
1948: FND_LOG.STRING(lc_proc_level, lc_mod_name,
1949: 'Returned from procedure CSD_GEN_ERRMSGS_PVT.save_fnd_msgs.');
1950: end if;
1951:
1952: --DBMS_OUTPUT.put_line( 'before call to generic save msgs' );
1999: -- Insert repair actual line for each record in the tbl.
2000: -- If any row encounters any error, stop processing
2001: -- any further.
2002: if (lc_proc_level >= lc_debug_level) then
2003: FND_LOG.STRING(lc_proc_level, lc_mod_name,
2004: 'Calling procedure CSD_REPAIR_ACTUAL_LINES_PVT.create_repair_actual_lines'
2005: || ' for all actual lines. l_actuals_count = ' || l_actuals_count);
2006: end if;
2007:
2036: x_msg_data => l_msg_data );
2037:
2038: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
2039: if (lc_proc_level >= lc_debug_level) then
2040: FND_LOG.STRING(lc_proc_level, lc_mod_name,
2041: 'Unable to create repair actual lines for count = ' || i);
2042: end if;
2043: --DBMS_OUTPUT.put_line( 'Unable to create repair actual lines' );
2044: RAISE FND_API.G_EXC_ERROR;
2045: END IF;
2046: END LOOP;
2047:
2048: if (lc_proc_level >= lc_debug_level) then
2049: FND_LOG.STRING(lc_proc_level, lc_mod_name,
2050: 'Returned from procedure CSD_REPAIR_ACTUAL_LINES_PVT.create_repair_actual_lines'
2051: || ' for all actual lines. l_actuals_count = ' || l_actuals_count);
2052: end if;
2053:
2054: IF ( l_curr_warning_flag <> FND_API.G_FALSE ) THEN
2055: l_message := 'CSD_ACT_WIP_IMPORT_W_WARN';
2056: -- Debrief lines import for the WIP Job $JOB_NAME completed with warnings. $ACTUAL_LINE_COUNT new repair actual line(s) were created for the job.
2057: if (lc_stat_level >= lc_debug_level) then
2058: FND_LOG.STRING(lc_stat_level, lc_mod_name,
2059: 'Debrief lines import for the WIP Job ' || curr_WIP_job_rec.JOB_NAME
2060: || ' completed with warnings. l_actuals_count = ' || l_actuals_count);
2061: end if;
2062: ELSE
2062: ELSE
2063: l_message := 'CSD_ACT_WIP_IMPORT_NO_WARN';
2064: -- Debrief lines import for the WIP Job $JOB_NAME completed with NO warnings. $ACTUAL_LINE_COUNT new repair actual line(s) were created for the job.
2065: if (lc_stat_level >= lc_debug_level) then
2066: FND_LOG.STRING(lc_stat_level, lc_mod_name,
2067: 'Debrief lines import for the WIP Job ' || curr_WIP_job_rec.JOB_NAME
2068: || ' completed with NO warnings. l_actuals_count = ' || l_actuals_count);
2069: end if;
2070: END IF;
2084: -- has completed with or without warnings. This call should
2085: -- (obviously) be placed after 'create actual line' calls.
2086:
2087: if (lc_proc_level >= lc_debug_level) then
2088: FND_LOG.STRING(lc_proc_level, lc_mod_name,
2089: 'Calling procedure CSD_GEN_ERRMSGS_PVT.save_fnd_msgs.');
2090: end if;
2091:
2092: CSD_GEN_ERRMSGS_PVT.save_fnd_msgs( p_api_version => 1.0,
2101: x_msg_count => l_msg_count,
2102: x_msg_data => l_msg_data );
2103:
2104: if (lc_proc_level >= lc_debug_level) then
2105: FND_LOG.STRING(lc_proc_level, lc_mod_name,
2106: 'Returning from procedure CSD_GEN_ERRMSGS_PVT.save_fnd_msgs.');
2107: end if;
2108:
2109: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
2155:
2156: WHEN GENERIC_MSG_SAVE_FAILED THEN
2157: ROLLBACK TO curr_wip_job_sp;
2158: if (lc_proc_level >= lc_debug_level) then
2159: FND_LOG.STRING(lc_proc_level, lc_mod_name,
2160: 'Encountered an EXEC error while creating a repair actual lines ' ||
2161: 'for the WIP Job ' || curr_WIP_job_rec.JOB_NAME);
2162: end if;
2163: -- We do not want to continue processing.
2170: ROLLBACK TO curr_wip_job_sp;
2171: x_warning_flag := FND_API.G_TRUE;
2172:
2173: if (lc_proc_level >= lc_debug_level) then
2174: FND_LOG.STRING(lc_proc_level, lc_mod_name,
2175: 'Encountered an OTHERS error while creating a repair actual lines ' ||
2176: 'for the WIP Job ' || curr_WIP_job_rec.JOB_NAME ||
2177: '. SQLCODE = ' || SQLCODE || '. SQLERRM = ' || SQLERRM);
2178: end if;
2193: FND_MESSAGE.set_token( 'JOB_NAME', curr_WIP_job_rec.JOB_NAME );
2194: FND_MSG_PUB.add_detail(p_message_type => FND_MSG_PUB.G_ERROR_MSG);
2195:
2196: if (lc_proc_level >= lc_debug_level) then
2197: FND_LOG.STRING(lc_proc_level, lc_mod_name,
2198: 'Calling CSD_GEN_ERRMSGS_PVT.save_fnd_msgs in WHEN OTHERS THEN');
2199: end if;
2200:
2201: CSD_GEN_ERRMSGS_PVT.save_fnd_msgs( p_api_version => 1.0,
2210: x_msg_count => l_msg_count,
2211: x_msg_data => l_msg_data );
2212:
2213: if (lc_proc_level >= lc_debug_level) then
2214: FND_LOG.STRING(lc_proc_level, lc_mod_name,
2215: 'Returned from CSD_GEN_ERRMSGS_PVT.save_fnd_msgs in WHEN OTHERS THEN');
2216: end if;
2217:
2218: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
2226: END;
2227: END LOOP; -- for cursor c_eligible_WIP_Jobs
2228:
2229: if (lc_stat_level >= lc_debug_level) then
2230: FND_LOG.STRING(lc_stat_level, lc_mod_name,
2231: 'End LOOP c_eligible_WIP_Jobs');
2232: end if;
2233:
2234: IF( l_wip_count <= 0 ) THEN
2240: -- FND_MSG_PUB.add_detail(p_message_type => FND_MSG_PUB.G_WARNING_MSG);
2241: -- FND_MSG_PUB.add;
2242:
2243: if (lc_proc_level >= lc_debug_level) then
2244: FND_LOG.STRING(lc_proc_level, lc_mod_name,
2245: 'Calling procedure CSD_GEN_ERRMSGS_PVT.save_fnd_msgs');
2246: end if;
2247:
2248: CSD_GEN_ERRMSGS_PVT.save_fnd_msgs(
2258: x_msg_count => x_msg_count,
2259: x_msg_data => x_msg_data );
2260:
2261: if (lc_proc_level >= lc_debug_level) then
2262: FND_LOG.STRING(lc_proc_level, lc_mod_name,
2263: 'Returned from procedure CSD_GEN_ERRMSGS_PVT.save_fnd_msgs');
2264: end if;
2265:
2266: -- If we are unable to log messages then we
2266: -- If we are unable to log messages then we
2267: -- throw an error.
2268: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2269: if (lc_proc_level >= lc_debug_level) then
2270: FND_LOG.STRING(lc_proc_level, lc_mod_name,
2271: 'Unable to save messages using the generic logging utility.');
2272: end if;
2273: FND_MESSAGE.SET_NAME( 'CSD', 'CSD_GENERIC_SAVE_FAILED');
2274: -- Unable to save messages using the generic logging utility.
2289: END IF;
2290:
2291: -- logging
2292: if (lc_proc_level >= lc_debug_level) then
2293: FND_LOG.STRING(lc_proc_level, lc_mod_name || '.END',
2294: 'Leaving CSD_REPAIR_ACTUAL_PROCESS_PVT.import_actuals_from_wip');
2295: end if;
2296:
2297: -- Standard call to get message count and IF count is get message info.
2310: p_data => x_msg_data );
2311:
2312: -- save message in debug log
2313: IF (lc_excep_level >= lc_debug_level) THEN
2314: FND_LOG.STRING(lc_excep_level, lc_mod_name,
2315: 'EXC_ERROR['||x_msg_data||']');
2316: END IF;
2317:
2318: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2322: p_data => x_msg_data );
2323:
2324: -- save message in debug log
2325: IF (lc_excep_level >= lc_debug_level) THEN
2326: FND_LOG.STRING(lc_excep_level, lc_mod_name,
2327: 'EXC_UNEXPECTED_ERROR['||x_msg_data||']');
2328: END IF;
2329:
2330: WHEN GENERIC_MSG_SAVE_FAILED THEN
2332: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2333:
2334: -- save message in debug log
2335: IF (lc_excep_level >= lc_debug_level) THEN
2336: FND_LOG.STRING(lc_excep_level, lc_mod_name,
2337: 'GENERIC_MSG_SAVE_FAILED. SQL Message['||x_msg_data||']');
2338: END IF;
2339:
2340: FND_MESSAGE.SET_NAME( 'CSD', 'CSD_GENERIC_SAVE_FAILED');
2357: END IF;
2358:
2359: -- save message in debug log
2360: IF (lc_excep_level >= lc_debug_level) THEN
2361: FND_LOG.STRING(lc_excep_level, lc_mod_name,
2362: 'WHEN OTHERS THEN. SQL Message['||SQLERRM||']');
2363: END IF;
2364:
2365: FND_MESSAGE.SET_NAME( 'CSD', 'CSD_ACT_WIP_IMPORT_OTHERS');
2401: x_warning_flag OUT NOCOPY VARCHAR2
2402: )
2403: IS
2404: -- CONSTANTS --
2405: lc_debug_level CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
2406: lc_stat_level CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
2407: lc_proc_level CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
2408: lc_event_level CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
2409: lc_excep_level CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
2402: )
2403: IS
2404: -- CONSTANTS --
2405: lc_debug_level CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
2406: lc_stat_level CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
2407: lc_proc_level CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
2408: lc_event_level CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
2409: lc_excep_level CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
2410: lc_error_level CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
2403: IS
2404: -- CONSTANTS --
2405: lc_debug_level CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
2406: lc_stat_level CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
2407: lc_proc_level CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
2408: lc_event_level CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
2409: lc_excep_level CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
2410: lc_error_level CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
2411: lc_unexp_level CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
2404: -- CONSTANTS --
2405: lc_debug_level CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
2406: lc_stat_level CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
2407: lc_proc_level CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
2408: lc_event_level CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
2409: lc_excep_level CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
2410: lc_error_level CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
2411: lc_unexp_level CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
2412: lc_mod_name CONSTANT VARCHAR2(100) := 'csd.plsql.csd_repair_actual_process_pvt.import_actuals_from_estimate';
2405: lc_debug_level CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
2406: lc_stat_level CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
2407: lc_proc_level CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
2408: lc_event_level CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
2409: lc_excep_level CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
2410: lc_error_level CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
2411: lc_unexp_level CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
2412: lc_mod_name CONSTANT VARCHAR2(100) := 'csd.plsql.csd_repair_actual_process_pvt.import_actuals_from_estimate';
2413: lc_api_name CONSTANT VARCHAR2(30) := 'IMPORT_ACTUALS_FROM_ESTIMATE';
2406: lc_stat_level CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
2407: lc_proc_level CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
2408: lc_event_level CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
2409: lc_excep_level CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
2410: lc_error_level CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
2411: lc_unexp_level CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
2412: lc_mod_name CONSTANT VARCHAR2(100) := 'csd.plsql.csd_repair_actual_process_pvt.import_actuals_from_estimate';
2413: lc_api_name CONSTANT VARCHAR2(30) := 'IMPORT_ACTUALS_FROM_ESTIMATE';
2414: lc_api_version CONSTANT NUMBER := 1.0;
2407: lc_proc_level CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
2408: lc_event_level CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
2409: lc_excep_level CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
2410: lc_error_level CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
2411: lc_unexp_level CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
2412: lc_mod_name CONSTANT VARCHAR2(100) := 'csd.plsql.csd_repair_actual_process_pvt.import_actuals_from_estimate';
2413: lc_api_name CONSTANT VARCHAR2(30) := 'IMPORT_ACTUALS_FROM_ESTIMATE';
2414: lc_api_version CONSTANT NUMBER := 1.0;
2415:
2527: END IF;
2528:
2529: -- logging
2530: if (lc_proc_level >= lc_debug_level) then
2531: FND_LOG.STRING(lc_proc_level, lc_mod_name || '.BEGIN',
2532: 'Entering CSD_REPAIR_ACTUAL_PROCESS_PVT.import_actuals_from_estimate');
2533: end if;
2534: -- log parameters
2535: if (lc_stat_level >= lc_debug_level) then
2532: 'Entering CSD_REPAIR_ACTUAL_PROCESS_PVT.import_actuals_from_estimate');
2533: end if;
2534: -- log parameters
2535: if (lc_stat_level >= lc_debug_level) then
2536: FND_LOG.STRING(lc_stat_level, lc_mod_name || '.parameter_logging',
2537: 'p_api_version: ' || p_api_version);
2538: FND_LOG.STRING(lc_stat_level, lc_mod_name || '.parameter_logging',
2539: 'p_commit: ' || p_commit);
2540: FND_LOG.STRING(lc_stat_level, lc_mod_name || '.parameter_logging',
2534: -- log parameters
2535: if (lc_stat_level >= lc_debug_level) then
2536: FND_LOG.STRING(lc_stat_level, lc_mod_name || '.parameter_logging',
2537: 'p_api_version: ' || p_api_version);
2538: FND_LOG.STRING(lc_stat_level, lc_mod_name || '.parameter_logging',
2539: 'p_commit: ' || p_commit);
2540: FND_LOG.STRING(lc_stat_level, lc_mod_name || '.parameter_logging',
2541: 'p_init_msg_list: ' || p_init_msg_list);
2542: FND_LOG.STRING(lc_stat_level, lc_mod_name || '.parameter_logging',
2536: FND_LOG.STRING(lc_stat_level, lc_mod_name || '.parameter_logging',
2537: 'p_api_version: ' || p_api_version);
2538: FND_LOG.STRING(lc_stat_level, lc_mod_name || '.parameter_logging',
2539: 'p_commit: ' || p_commit);
2540: FND_LOG.STRING(lc_stat_level, lc_mod_name || '.parameter_logging',
2541: 'p_init_msg_list: ' || p_init_msg_list);
2542: FND_LOG.STRING(lc_stat_level, lc_mod_name || '.parameter_logging',
2543: 'p_validation_level: ' || p_validation_level);
2544: FND_LOG.STRING(lc_stat_level, lc_mod_name || '.parameter_logging',
2538: FND_LOG.STRING(lc_stat_level, lc_mod_name || '.parameter_logging',
2539: 'p_commit: ' || p_commit);
2540: FND_LOG.STRING(lc_stat_level, lc_mod_name || '.parameter_logging',
2541: 'p_init_msg_list: ' || p_init_msg_list);
2542: FND_LOG.STRING(lc_stat_level, lc_mod_name || '.parameter_logging',
2543: 'p_validation_level: ' || p_validation_level);
2544: FND_LOG.STRING(lc_stat_level, lc_mod_name || '.parameter_logging',
2545: 'p_repair_line_id: ' || p_repair_line_id);
2546: FND_LOG.STRING(lc_stat_level, lc_mod_name || '.parameter_logging',
2540: FND_LOG.STRING(lc_stat_level, lc_mod_name || '.parameter_logging',
2541: 'p_init_msg_list: ' || p_init_msg_list);
2542: FND_LOG.STRING(lc_stat_level, lc_mod_name || '.parameter_logging',
2543: 'p_validation_level: ' || p_validation_level);
2544: FND_LOG.STRING(lc_stat_level, lc_mod_name || '.parameter_logging',
2545: 'p_repair_line_id: ' || p_repair_line_id);
2546: FND_LOG.STRING(lc_stat_level, lc_mod_name || '.parameter_logging',
2547: 'p_repair_actual_id: ' || p_repair_actual_id);
2548: end if;
2542: FND_LOG.STRING(lc_stat_level, lc_mod_name || '.parameter_logging',
2543: 'p_validation_level: ' || p_validation_level);
2544: FND_LOG.STRING(lc_stat_level, lc_mod_name || '.parameter_logging',
2545: 'p_repair_line_id: ' || p_repair_line_id);
2546: FND_LOG.STRING(lc_stat_level, lc_mod_name || '.parameter_logging',
2547: 'p_repair_actual_id: ' || p_repair_actual_id);
2548: end if;
2549:
2550: -- Initialize API return status to success
2558: x_warning_flag := FND_API.G_FALSE;
2559:
2560: -- Validate mandatory input parameters.
2561: if (lc_proc_level >= lc_debug_level) then
2562: FND_LOG.STRING(lc_proc_level, lc_mod_name,
2563: 'Calling CSD_PROCESS_UTIL.Check_Reqd_Param for p_repair_line_id');
2564: end if;
2565: CSD_PROCESS_UTIL.Check_Reqd_Param
2566: ( p_param_value => p_repair_line_id,
2567: p_param_name => 'REPAIR_LINE_ID',
2568: p_api_name => lc_api_name);
2569:
2570: if (lc_stat_level >= lc_debug_level) then
2571: FND_LOG.STRING(lc_stat_level, lc_mod_name,
2572: 'Done checking required params');
2573: end if;
2574:
2575: -- Before we start the process of copying the
2575: -- Before we start the process of copying the
2576: -- lines, we purge any existing error messages for the
2577: -- Module ACT (source entity ESTIMATE).
2578: if (lc_proc_level >= lc_debug_level) then
2579: FND_LOG.STRING(lc_proc_level, lc_mod_name,
2580: 'Calling CSD_GEN_ERRMSGS_PVT.purge_entity_msgs');
2581: end if;
2582: CSD_GEN_ERRMSGS_PVT.purge_entity_msgs(
2583: p_api_version => 1.0,
2592: x_msg_count => x_msg_count,
2593: x_msg_data => x_msg_data
2594: );
2595: if (lc_proc_level >= lc_debug_level) then
2596: FND_LOG.STRING(lc_proc_level, lc_mod_name,
2597: 'Returned from CSD_GEN_ERRMSGS_PVT.purge_entity_msgs');
2598: end if;
2599:
2600: -- Stall the process if we were unable to purge
2615: -- For all the estimate lines in csd_repair_estimate_lines
2616: -- table (for the given Repair Order) import into repair actual lines.
2617: -- LOOP
2618: if (lc_stat_level >= lc_debug_level) then
2619: FND_LOG.STRING(lc_stat_level, lc_mod_name,
2620: 'Begin loop through c_valid_estimate_lines');
2621: end if;
2622: FOR estimate_line_rec IN c_valid_estimate_lines
2623: LOOP
2635: BEGIN
2636: -- Call the Charges API to make an 'Actual' charge line
2637: -- copy of the 'Estimate' charge line.
2638: if (lc_proc_level >= lc_debug_level) then
2639: FND_LOG.STRING(lc_proc_level, lc_mod_name,
2640: 'Calling CS_Charge_Details_PUB.copy_estimate for estimate_detail_id=' || estimate_line_rec.estimate_detail_id);
2641: end if;
2642: CS_Charge_Details_PUB.copy_estimate(
2643: p_api_version => 1.0,
2651: x_msg_data => x_msg_data
2652: );
2653:
2654: if (lc_proc_level >= lc_debug_level) then
2655: FND_LOG.STRING(lc_proc_level, lc_mod_name,
2656: 'Returned from CS_Charge_Details_PUB.copy_estimate');
2657: end if;
2658: if (lc_stat_level >= lc_debug_level) then
2659: FND_LOG.STRING(lc_stat_level, lc_mod_name,
2655: FND_LOG.STRING(lc_proc_level, lc_mod_name,
2656: 'Returned from CS_Charge_Details_PUB.copy_estimate');
2657: end if;
2658: if (lc_stat_level >= lc_debug_level) then
2659: FND_LOG.STRING(lc_stat_level, lc_mod_name,
2660: 'x_return_status = ' || x_return_status);
2661: FND_LOG.STRING(lc_stat_level, lc_mod_name,
2662: 'l_estimate_detail_id = ' || l_estimate_detail_id);
2663: end if;
2657: end if;
2658: if (lc_stat_level >= lc_debug_level) then
2659: FND_LOG.STRING(lc_stat_level, lc_mod_name,
2660: 'x_return_status = ' || x_return_status);
2661: FND_LOG.STRING(lc_stat_level, lc_mod_name,
2662: 'l_estimate_detail_id = ' || l_estimate_detail_id);
2663: end if;
2664:
2665: -- Throw an error if the API returned an error.
2671: END IF;
2672:
2673: IF (l_estimate_detail_id IS NULL) THEN
2674: if (lc_proc_level >= lc_debug_level) then
2675: FND_LOG.STRING(lc_proc_level, lc_mod_name,
2676: 'Unable to copy the Estimate charge line into Actual charge line. Charges API returned NULL for the Estimate Detail identifier.');
2677: end if;
2678: FND_MESSAGE.SET_NAME('CSD', 'CSD_ACT_COPY_CHRG_LINE_FAIL');
2679: FND_MSG_PUB.add_detail(p_message_type => FND_MSG_PUB.G_ERROR_MSG);
2686:
2687: WHEN OTHERS THEN
2688: l_skip_curr_row := TRUE;
2689: if (lc_proc_level >= lc_debug_level) then
2690: FND_LOG.STRING(lc_proc_level, lc_mod_name,
2691: 'Encountered an unknown error while copying an estimate charge line to an actual charge line. SQLCODE = ' || SQLCODE || ', SQLERRM = ' || SQLERRM );
2692: end if;
2693: FND_MESSAGE.SET_NAME('CSD', 'CSD_ACT_EST_IMPORT_ERR');
2694: FND_MESSAGE.SET_TOKEN('SQLCODE', SQLCODE);
2698:
2699: IF NOT l_skip_curr_row THEN
2700:
2701: if (lc_stat_level >= lc_debug_level) then
2702: FND_LOG.STRING(lc_stat_level, lc_mod_name,
2703: 'l_skip_curr_row = false');
2704: FND_LOG.STRING(lc_stat_level, lc_mod_name,
2705: 'l_curr_actual_line_rec.ESTIMATE_DETAIL_ID = ' || l_estimate_detail_id);
2706: FND_LOG.STRING(lc_stat_level, lc_mod_name,
2700:
2701: if (lc_stat_level >= lc_debug_level) then
2702: FND_LOG.STRING(lc_stat_level, lc_mod_name,
2703: 'l_skip_curr_row = false');
2704: FND_LOG.STRING(lc_stat_level, lc_mod_name,
2705: 'l_curr_actual_line_rec.ESTIMATE_DETAIL_ID = ' || l_estimate_detail_id);
2706: FND_LOG.STRING(lc_stat_level, lc_mod_name,
2707: 'l_curr_actual_line_rec.REPAIR_ACTUAL_ID = ' || p_repair_actual_id);
2708: FND_LOG.STRING(lc_stat_level, lc_mod_name,
2702: FND_LOG.STRING(lc_stat_level, lc_mod_name,
2703: 'l_skip_curr_row = false');
2704: FND_LOG.STRING(lc_stat_level, lc_mod_name,
2705: 'l_curr_actual_line_rec.ESTIMATE_DETAIL_ID = ' || l_estimate_detail_id);
2706: FND_LOG.STRING(lc_stat_level, lc_mod_name,
2707: 'l_curr_actual_line_rec.REPAIR_ACTUAL_ID = ' || p_repair_actual_id);
2708: FND_LOG.STRING(lc_stat_level, lc_mod_name,
2709: 'l_curr_actual_line_rec.REPAIR_LINE_ID = ' || p_repair_line_id);
2710: FND_LOG.STRING(lc_stat_level, lc_mod_name,
2704: FND_LOG.STRING(lc_stat_level, lc_mod_name,
2705: 'l_curr_actual_line_rec.ESTIMATE_DETAIL_ID = ' || l_estimate_detail_id);
2706: FND_LOG.STRING(lc_stat_level, lc_mod_name,
2707: 'l_curr_actual_line_rec.REPAIR_ACTUAL_ID = ' || p_repair_actual_id);
2708: FND_LOG.STRING(lc_stat_level, lc_mod_name,
2709: 'l_curr_actual_line_rec.REPAIR_LINE_ID = ' || p_repair_line_id);
2710: FND_LOG.STRING(lc_stat_level, lc_mod_name,
2711: 'l_curr_actual_line_rec.OVERRIDE_CHARGE_FLAG = ' || estimate_line_rec.override_charge_flag);
2712: FND_LOG.STRING(lc_stat_level, lc_mod_name,
2706: FND_LOG.STRING(lc_stat_level, lc_mod_name,
2707: 'l_curr_actual_line_rec.REPAIR_ACTUAL_ID = ' || p_repair_actual_id);
2708: FND_LOG.STRING(lc_stat_level, lc_mod_name,
2709: 'l_curr_actual_line_rec.REPAIR_LINE_ID = ' || p_repair_line_id);
2710: FND_LOG.STRING(lc_stat_level, lc_mod_name,
2711: 'l_curr_actual_line_rec.OVERRIDE_CHARGE_FLAG = ' || estimate_line_rec.override_charge_flag);
2712: FND_LOG.STRING(lc_stat_level, lc_mod_name,
2713: 'l_curr_actual_line_rec.ACTUAL_SOURCE_CODE = ' || G_ACTUAL_SOURCE_CODE_ESTIMATE);
2714: FND_LOG.STRING(lc_stat_level, lc_mod_name,
2708: FND_LOG.STRING(lc_stat_level, lc_mod_name,
2709: 'l_curr_actual_line_rec.REPAIR_LINE_ID = ' || p_repair_line_id);
2710: FND_LOG.STRING(lc_stat_level, lc_mod_name,
2711: 'l_curr_actual_line_rec.OVERRIDE_CHARGE_FLAG = ' || estimate_line_rec.override_charge_flag);
2712: FND_LOG.STRING(lc_stat_level, lc_mod_name,
2713: 'l_curr_actual_line_rec.ACTUAL_SOURCE_CODE = ' || G_ACTUAL_SOURCE_CODE_ESTIMATE);
2714: FND_LOG.STRING(lc_stat_level, lc_mod_name,
2715: 'l_curr_actual_line_rec.ACTUAL_SOURCE_ID = ' || estimate_line_rec.repair_estimate_line_id);
2716: end if;
2710: FND_LOG.STRING(lc_stat_level, lc_mod_name,
2711: 'l_curr_actual_line_rec.OVERRIDE_CHARGE_FLAG = ' || estimate_line_rec.override_charge_flag);
2712: FND_LOG.STRING(lc_stat_level, lc_mod_name,
2713: 'l_curr_actual_line_rec.ACTUAL_SOURCE_CODE = ' || G_ACTUAL_SOURCE_CODE_ESTIMATE);
2714: FND_LOG.STRING(lc_stat_level, lc_mod_name,
2715: 'l_curr_actual_line_rec.ACTUAL_SOURCE_ID = ' || estimate_line_rec.repair_estimate_line_id);
2716: end if;
2717:
2718: -- If the copying of charge line was successful then
2782: -- We now create a corresponding Repair Actual line.
2783: BEGIN
2784:
2785: if (lc_proc_level >= lc_debug_level) then
2786: FND_LOG.STRING(lc_proc_level, lc_mod_name,
2787: 'Calling CSD_REPAIR_ACTUAL_LINES_PVT.create_repair_actual_lines');
2788: end if;
2789: CSD_REPAIR_ACTUAL_LINES_PVT.create_repair_actual_lines(
2790: p_api_version => 1.0,
2797: x_msg_count => x_msg_count,
2798: x_msg_data => x_msg_data
2799: );
2800: if (lc_proc_level >= lc_debug_level) then
2801: FND_LOG.STRING(lc_proc_level, lc_mod_name,
2802: 'Returned from CSD_REPAIR_ACTUAL_LINES_PVT.create_repair_actual_lines');
2803: end if;
2804:
2805: -- Throw an error if the API returned an error.
2811: END IF;
2812:
2813: IF (l_curr_actual_line_rec.repair_actual_line_id IS NULL) THEN
2814: if (lc_proc_level >= lc_debug_level) then
2815: FND_LOG.STRING(lc_proc_level, lc_mod_name,
2816: 'Unable to create a repair actual line. Create API returned NULL for the repair actual line identifier.');
2817: end if;
2818: FND_MESSAGE.SET_NAME('CSD', 'CSD_ACT_NULL_ACTUAL_ID');
2819: FND_MSG_PUB.add_detail(p_message_type => FND_MSG_PUB.G_ERROR_MSG);
2823: EXCEPTION
2824: WHEN FND_API.G_EXC_ERROR THEN
2825: l_skip_curr_row := TRUE;
2826: if (lc_proc_level >= lc_debug_level) then
2827: FND_LOG.STRING(lc_proc_level, lc_mod_name,
2828: 'Encountered an EXEC error while creating a repair actual line.');
2829: end if;
2830:
2831: WHEN OTHERS THEN
2830:
2831: WHEN OTHERS THEN
2832: l_skip_curr_row := TRUE;
2833: if (lc_proc_level >= lc_debug_level) then
2834: FND_LOG.STRING(lc_proc_level, lc_mod_name,
2835: 'Encountered OTHERS error while creating a repair actual line.');
2836: end if;
2837: FND_MESSAGE.SET_NAME('CSD', 'CSD_ACT_ERROR_ACTUAL_LINE');
2838: FND_MESSAGE.SET_TOKEN('SQLCODE', SQLCODE);
2852: l_charge_line_rec.ship_to_account_id := l_ship_to_account_id;
2853: l_charge_line_rec.ship_to_org_id := l_ship_to_party_site_id;
2854:
2855: if (lc_proc_level >= lc_debug_level) then
2856: FND_LOG.STRING(lc_proc_level, lc_mod_name,
2857: 'Calling CSD_REPAIR_ACTUAL_LINES_PVT.update_repair_actual_lines');
2858: end if;
2859:
2860: CSD_REPAIR_ACTUAL_LINES_PVT.update_repair_actual_lines (
2868: x_msg_count => x_msg_count,
2869: x_msg_data => x_msg_data
2870: );
2871: if (lc_proc_level >= lc_debug_level) then
2872: FND_LOG.STRING(lc_proc_level, lc_mod_name,
2873: 'Returned from CSD_REPAIR_ACTUAL_LINES_PVT.update_repair_actual_lines');
2874: end if;
2875:
2876: -- Throw an error if the API returned an error.
2884: EXCEPTION
2885: WHEN FND_API.G_EXC_ERROR THEN
2886: l_skip_curr_row := TRUE;
2887: if (lc_proc_level >= lc_debug_level) then
2888: FND_LOG.STRING(lc_proc_level, lc_mod_name,
2889: 'Encountered an EXEC error while updating a repair actual line with billing information.');
2890: end if;
2891:
2892: WHEN OTHERS THEN
2891:
2892: WHEN OTHERS THEN
2893: l_skip_curr_row := TRUE;
2894: if (lc_proc_level >= lc_debug_level) then
2895: FND_LOG.STRING(lc_proc_level, lc_mod_name,
2896: 'Encountered OTHERS error while updating a repair actual line with billing information.');
2897: end if;
2898: FND_MESSAGE.SET_NAME('CSD', 'CSD_ACT_ERROR_ACTUAL_LINE');
2899: FND_MESSAGE.SET_TOKEN('SQLCODE', SQLCODE);
2906: END IF; -- IF NOT l_skip_curr_row
2907:
2908: IF l_skip_curr_row THEN
2909: if (lc_stat_level >= lc_debug_level) then
2910: FND_LOG.STRING(lc_stat_level, lc_mod_name,
2911: 'l_skip_curr_row = true');
2912: end if;
2913:
2914: -- we rollback any updates/inserts for the current
2920: l_est_line_failed_count := l_est_line_failed_count + 1;
2921:
2922: -- Save warnings/errors that may be the stack
2923: if (lc_proc_level >= lc_debug_level) then
2924: FND_LOG.STRING(lc_proc_level, lc_mod_name,
2925: 'Calling CSD_GEN_ERRMSGS_PVT.save_fnd_msgs');
2926: end if;
2927: CSD_GEN_ERRMSGS_PVT.save_fnd_msgs(
2928: p_api_version => 1.0,
2937: x_msg_count => x_msg_count,
2938: x_msg_data => x_msg_data
2939: );
2940: if (lc_proc_level >= lc_debug_level) then
2941: FND_LOG.STRING(lc_proc_level, lc_mod_name,
2942: 'Returned from CSD_GEN_ERRMSGS_PVT.save_fnd_msgs');
2943: end if;
2944:
2945: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2943: end if;
2944:
2945: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2946: if (lc_proc_level >= lc_debug_level) then
2947: FND_LOG.STRING(lc_proc_level, lc_mod_name,
2948: 'Unable to save messages using the generic logging utility.');
2949: end if;
2950: FND_MESSAGE.SET_NAME( 'CSD', 'CSD_GENERIC_SAVE_FAILED');
2951: FND_MSG_PUB.add_detail(p_message_type => FND_MSG_PUB.G_ERROR_MSG);
2973: FND_MSG_PUB.add_detail(p_message_type => FND_MSG_PUB.G_INFORMATION_MSG);
2974: END IF;
2975:
2976: if (lc_proc_level >= lc_debug_level) then
2977: FND_LOG.STRING(lc_proc_level, lc_mod_name,
2978: 'Calling procedure CSD_GEN_ERRMSGS_PVT.save_fnd_msgs');
2979: end if;
2980:
2981: CSD_GEN_ERRMSGS_PVT.save_fnd_msgs(
2991: x_msg_count => x_msg_count,
2992: x_msg_data => x_msg_data );
2993:
2994: if (lc_proc_level >= lc_debug_level) then
2995: FND_LOG.STRING(lc_proc_level, lc_mod_name,
2996: 'Returned from procedure CSD_GEN_ERRMSGS_PVT.save_fnd_msgs');
2997: end if;
2998:
2999: -- If we are unable to log messages then we
2999: -- If we are unable to log messages then we
3000: -- throw an error.
3001: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3002: if (lc_proc_level >= lc_debug_level) then
3003: FND_LOG.STRING(lc_proc_level, lc_mod_name,
3004: 'Unable to save messages using the generic logging utility.');
3005: end if;
3006: FND_MESSAGE.SET_NAME( 'CSD', 'CSD_GENERIC_SAVE_FAILED');
3007: -- Unable to save messages using the generic logging utility.
3015: END IF;
3016:
3017: -- logging
3018: if (lc_proc_level >= lc_debug_level) then
3019: FND_LOG.STRING(lc_proc_level, lc_mod_name || '.END',
3020: 'Leaving CSD_REPAIR_ACTUAL_PROCESS_PVT.import_actuals_from_estimate');
3021: end if;
3022:
3023: EXCEPTION
3030: p_data => x_msg_data );
3031:
3032: -- save message in debug log
3033: IF (lc_excep_level >= lc_debug_level) THEN
3034: FND_LOG.STRING(lc_excep_level, lc_mod_name,
3035: 'EXC_ERROR['||x_msg_data||']');
3036: END IF;
3037: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3038: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3041: ( p_count => x_msg_count,
3042: p_data => x_msg_data );
3043: -- save message in debug log
3044: IF (lc_excep_level >= lc_debug_level) THEN
3045: FND_LOG.STRING(lc_excep_level, lc_mod_name,
3046: 'EXC_UNEXPECTED_ERROR['||x_msg_data||']');
3047: END IF;
3048:
3049: WHEN OTHERS THEN
3066: p_data => x_msg_data );
3067: -- save message in debug log
3068: IF (lc_excep_level >= lc_debug_level) THEN
3069: -- create a seeded message
3070: FND_LOG.STRING(lc_excep_level, lc_mod_name,
3071: 'WHEN OTEHRS THEN. SQL Message['||sqlerrm||']' );
3072: END IF;
3073:
3074: END Import_Actuals_From_Estimate;