29:
30: l_api_name CONSTANT VARCHAR2(30) :='check_wip_entity_id';
31: l_module varchar2(200) ;
32:
33: l_log_level CONSTANT NUMBER := fnd_log.g_current_runtime_level;
34: l_uLog CONSTANT BOOLEAN := fnd_log.level_unexpected >= l_log_level;
35: l_pLog CONSTANT BOOLEAN := l_uLog AND fnd_log.level_procedure >= l_log_level;
36: l_sLog CONSTANT BOOLEAN := l_pLog AND fnd_log.level_statement >= l_log_level;
37: BEGIN
30: l_api_name CONSTANT VARCHAR2(30) :='check_wip_entity_id';
31: l_module varchar2(200) ;
32:
33: l_log_level CONSTANT NUMBER := fnd_log.g_current_runtime_level;
34: l_uLog CONSTANT BOOLEAN := fnd_log.level_unexpected >= l_log_level;
35: l_pLog CONSTANT BOOLEAN := l_uLog AND fnd_log.level_procedure >= l_log_level;
36: l_sLog CONSTANT BOOLEAN := l_pLog AND fnd_log.level_statement >= l_log_level;
37: BEGIN
38: IF (l_ulog) THEN
31: l_module varchar2(200) ;
32:
33: l_log_level CONSTANT NUMBER := fnd_log.g_current_runtime_level;
34: l_uLog CONSTANT BOOLEAN := fnd_log.level_unexpected >= l_log_level;
35: l_pLog CONSTANT BOOLEAN := l_uLog AND fnd_log.level_procedure >= l_log_level;
36: l_sLog CONSTANT BOOLEAN := l_pLog AND fnd_log.level_statement >= l_log_level;
37: BEGIN
38: IF (l_ulog) THEN
39: l_module := 'eam.plsql.'||g_pkg_name|| '.' || l_api_name;
32:
33: l_log_level CONSTANT NUMBER := fnd_log.g_current_runtime_level;
34: l_uLog CONSTANT BOOLEAN := fnd_log.level_unexpected >= l_log_level;
35: l_pLog CONSTANT BOOLEAN := l_uLog AND fnd_log.level_procedure >= l_log_level;
36: l_sLog CONSTANT BOOLEAN := l_pLog AND fnd_log.level_statement >= l_log_level;
37: BEGIN
38: IF (l_ulog) THEN
39: l_module := 'eam.plsql.'||g_pkg_name|| '.' || l_api_name;
40: END IF;
39: l_module := 'eam.plsql.'||g_pkg_name|| '.' || l_api_name;
40: END IF;
41:
42: IF (l_plog) THEN
43: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,
44: '==================== Entered EAM_MeterReading_PUB.check_wip_entity_id ====================');
45: END IF;
46:
47: SELECT maintenance_object_id into x_maintenance_object_id
48: FROM wip_discrete_jobs
49: WHERE wip_entity_id = p_wip_entity_id
50: AND maintenance_object_type = 3;
51: IF (l_plog) THEN
52: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,
53: 'x_maintenance_object_id:'||x_maintenance_object_id);
54: END IF;
55:
56:
62: AND nvl(ccr.source_counter_id (+),csa.counter_id) = p_meter_id
63: and CCR.ACTIVE_END_DATE (+) >= sysdate ;
64:
65: IF (l_plog) THEN
66: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,
67: 'l_count:'||l_count);
68: END IF;
69: IF l_count = 0 then
70: raise_error ('EAM_MTR_WO_INVALID'); -- Specified meter is invalid for this work order.
70: raise_error ('EAM_MTR_WO_INVALID'); -- Specified meter is invalid for this work order.
71: END IF;
72:
73: IF (l_plog) THEN
74: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,
75: '==================== Exiting from EAM_MeterReading_PUB.check_wip_entity_id ====================');
76: END IF;
77: EXCEPTION
78: WHEN no_data_found THEN
112: l_csi_txn_tbl Csi_Datastructures_PUB.transaction_tbl;
113:
114: l_module varchar2(200);
115:
116: l_log_level CONSTANT NUMBER := fnd_log.g_current_runtime_level;
117: l_uLog CONSTANT BOOLEAN := fnd_log.level_unexpected >= l_log_level;
118: l_pLog CONSTANT BOOLEAN := l_uLog AND fnd_log.level_procedure >= l_log_level;
119: l_sLog CONSTANT BOOLEAN := l_pLog AND fnd_log.level_statement >= l_log_level;
120:
113:
114: l_module varchar2(200);
115:
116: l_log_level CONSTANT NUMBER := fnd_log.g_current_runtime_level;
117: l_uLog CONSTANT BOOLEAN := fnd_log.level_unexpected >= l_log_level;
118: l_pLog CONSTANT BOOLEAN := l_uLog AND fnd_log.level_procedure >= l_log_level;
119: l_sLog CONSTANT BOOLEAN := l_pLog AND fnd_log.level_statement >= l_log_level;
120:
121: BEGIN
114: l_module varchar2(200);
115:
116: l_log_level CONSTANT NUMBER := fnd_log.g_current_runtime_level;
117: l_uLog CONSTANT BOOLEAN := fnd_log.level_unexpected >= l_log_level;
118: l_pLog CONSTANT BOOLEAN := l_uLog AND fnd_log.level_procedure >= l_log_level;
119: l_sLog CONSTANT BOOLEAN := l_pLog AND fnd_log.level_statement >= l_log_level;
120:
121: BEGIN
122: -- Standard Start of API savepoint
115:
116: l_log_level CONSTANT NUMBER := fnd_log.g_current_runtime_level;
117: l_uLog CONSTANT BOOLEAN := fnd_log.level_unexpected >= l_log_level;
118: l_pLog CONSTANT BOOLEAN := l_uLog AND fnd_log.level_procedure >= l_log_level;
119: l_sLog CONSTANT BOOLEAN := l_pLog AND fnd_log.level_statement >= l_log_level;
120:
121: BEGIN
122: -- Standard Start of API savepoint
123: SAVEPOINT create_meter_reading_Pub;
125: l_module := 'eam.plsql.'||g_pkg_name|| '.' || l_api_name;
126: END IF;
127:
128: IF (l_plog) THEN
129: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,
130: '==================== Entered EAM_MeterReading_PUB.create_meter_reading ====================');
131: END IF;
132: -- Standard call to check for call compatibility.
133:
160:
161: -- Check if the asset for which the current work order is raised has the current counter associated to it.
162: IF l_wip_entity_id IS NOT NULL THEN
163: IF (l_plog) THEN
164: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,
165: '==================== Calling check_wip_entity_id ====================');
166: END IF;
167: check_wip_entity_id (l_wip_entity_id , p_meter_reading_rec.meter_id);
168: IF (l_plog) THEN
165: '==================== Calling check_wip_entity_id ====================');
166: END IF;
167: check_wip_entity_id (l_wip_entity_id , p_meter_reading_rec.meter_id);
168: IF (l_plog) THEN
169: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,
170: '==================== Returning from check_wip_entity_id ====================');
171: END IF;
172: END IF;
173:
290: END IF;
291:
292: -- Call to CSI API to create counter reading.
293: IF (l_plog) THEN
294: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,
295: '==================== Calling Csi_Counter_Readings_PUB.Capture_Counter_reading ===================='
296: ||'x_return_status:'||x_return_status
297: ||' x_msg_count:'||x_msg_count
298: ||'x_msg_data:'||x_msg_data);
307: x_return_status => x_return_status,
308: x_msg_count => x_msg_count,
309: x_msg_data => x_msg_data);
310: IF (l_plog) THEN
311: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,
312: '==================== Returning from Csi_Counter_Readings_PUB.Capture_Counter_reading ===================='
313: ||'x_return_status:'||x_return_status
314: ||' x_msg_count:'||x_msg_count
315: ||'x_msg_data:'||x_msg_data);
322: -- Standard check of p_commit.
323: IF FND_API.To_Boolean( p_commit ) THEN
324: COMMIT WORK;
325: IF (l_plog) THEN
326: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,'Committed Work');
327: END IF;
328: END IF;
329: IF (l_plog) THEN
330: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,
326: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,'Committed Work');
327: END IF;
328: END IF;
329: IF (l_plog) THEN
330: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,
331: '==================== Exiting from EAM_MeterReading_PUB.create_meter_reading ====================');
332: END IF;
333:
334:
336: WHEN FND_API.G_EXC_ERROR THEN
337: ROLLBACK TO create_meter_reading_Pub;
338: x_return_status := FND_API.G_RET_STS_ERROR ;
339: IF (l_plog) THEN
340: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,'ROLLBACK TO create_meter_reading_Pub');
341: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,
342: '===================EAM_MeterReading_PUB.create_meter_readingr: EXPECTED ERROR======='||
343: '==================== Calling FND_MSG_PUB.Count_And_Get ====================');
344: END IF;
337: ROLLBACK TO create_meter_reading_Pub;
338: x_return_status := FND_API.G_RET_STS_ERROR ;
339: IF (l_plog) THEN
340: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,'ROLLBACK TO create_meter_reading_Pub');
341: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,
342: '===================EAM_MeterReading_PUB.create_meter_readingr: EXPECTED ERROR======='||
343: '==================== Calling FND_MSG_PUB.Count_And_Get ====================');
344: END IF;
345: FND_MSG_PUB.Count_And_Get
346: ( p_count => x_msg_count ,
347: p_data => x_msg_data
348: );
349: IF (l_plog) THEN
350: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,
351: '==================== Returned from FND_MSG_PUB.Count_And_Get ====================');
352: END IF;
353: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
354: ROLLBACK TO create_meter_reading_Pub;
353: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
354: ROLLBACK TO create_meter_reading_Pub;
355: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
356: IF (l_plog) THEN
357: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,'ROLLBACK TO create_meter_reading_Pub');
358: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,
359: '===================EAM_MeterReading_PUB.create_meter_readingr: UNEXPECTED ERROR======='||
360: '==================== Calling FND_MSG_PUB.Count_And_Get ====================');
361: END IF;
354: ROLLBACK TO create_meter_reading_Pub;
355: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
356: IF (l_plog) THEN
357: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,'ROLLBACK TO create_meter_reading_Pub');
358: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,
359: '===================EAM_MeterReading_PUB.create_meter_readingr: UNEXPECTED ERROR======='||
360: '==================== Calling FND_MSG_PUB.Count_And_Get ====================');
361: END IF;
362: FND_MSG_PUB.Count_And_Get
363: ( p_count => x_msg_count ,
364: p_data => x_msg_data
365: );
366: IF (l_plog) THEN
367: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,
368: '==================== Returned from FND_MSG_PUB.Count_And_Get ====================');
369: END IF;
370: WHEN OTHERS THEN
371: ROLLBACK TO create_meter_reading_Pub;
370: WHEN OTHERS THEN
371: ROLLBACK TO create_meter_reading_Pub;
372: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
373: IF (l_plog) THEN
374: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,'ROLLBACK TO create_meter_reading_Pub');
375: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,
376: '=================== EAM_MeterReading_PUB.create_meter_reading: OTHERS ERROR=======');
377: END IF;
378: IF FND_MSG_PUB.Check_Msg_Level
371: ROLLBACK TO create_meter_reading_Pub;
372: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
373: IF (l_plog) THEN
374: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,'ROLLBACK TO create_meter_reading_Pub');
375: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,
376: '=================== EAM_MeterReading_PUB.create_meter_reading: OTHERS ERROR=======');
377: END IF;
378: IF FND_MSG_PUB.Check_Msg_Level
379: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
378: IF FND_MSG_PUB.Check_Msg_Level
379: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
380: THEN
381: IF (l_plog) THEN
382: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,
383: '==================== Calling FND_MSG_PUB.Add_Exc_Msg ====================');
384: END IF;
385: FND_MSG_PUB.Add_Exc_Msg
386: ( G_PKG_NAME ,
386: ( G_PKG_NAME ,
387: l_api_name
388: );
389: IF (l_plog) THEN
390: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,
391: '==================== Returned from FND_MSG_PUB.Add_Exc_Msg ====================');
392: END IF;
393: END IF;
394: IF (l_plog) THEN
391: '==================== Returned from FND_MSG_PUB.Add_Exc_Msg ====================');
392: END IF;
393: END IF;
394: IF (l_plog) THEN
395: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,
396: '==================== Calling FND_MSG_PUB.Count_And_Get ====================');
397: END IF;
398: FND_MSG_PUB.Count_And_Get
399: ( p_count => x_msg_count ,
399: ( p_count => x_msg_count ,
400: p_data => x_msg_data
401: );
402: IF (l_plog) THEN
403: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,
404: '==================== Returned from FND_MSG_PUB.Count_And_Get ====================');
405: END IF;
406: END create_meter_reading;
407:
428: l_return_status VARCHAR2(1);
429: l_meter_reading_id NUMBER;
430:
431: l_module varchar2(200) ;
432: l_log_level CONSTANT NUMBER := fnd_log.g_current_runtime_level;
433: l_uLog CONSTANT BOOLEAN := fnd_log.level_unexpected >= l_log_level;
434: l_pLog CONSTANT BOOLEAN := l_uLog AND fnd_log.level_procedure >= l_log_level;
435: l_sLog CONSTANT BOOLEAN := l_pLog AND fnd_log.level_statement >= l_log_level;
436:
429: l_meter_reading_id NUMBER;
430:
431: l_module varchar2(200) ;
432: l_log_level CONSTANT NUMBER := fnd_log.g_current_runtime_level;
433: l_uLog CONSTANT BOOLEAN := fnd_log.level_unexpected >= l_log_level;
434: l_pLog CONSTANT BOOLEAN := l_uLog AND fnd_log.level_procedure >= l_log_level;
435: l_sLog CONSTANT BOOLEAN := l_pLog AND fnd_log.level_statement >= l_log_level;
436:
437:
430:
431: l_module varchar2(200) ;
432: l_log_level CONSTANT NUMBER := fnd_log.g_current_runtime_level;
433: l_uLog CONSTANT BOOLEAN := fnd_log.level_unexpected >= l_log_level;
434: l_pLog CONSTANT BOOLEAN := l_uLog AND fnd_log.level_procedure >= l_log_level;
435: l_sLog CONSTANT BOOLEAN := l_pLog AND fnd_log.level_statement >= l_log_level;
436:
437:
438: BEGIN
431: l_module varchar2(200) ;
432: l_log_level CONSTANT NUMBER := fnd_log.g_current_runtime_level;
433: l_uLog CONSTANT BOOLEAN := fnd_log.level_unexpected >= l_log_level;
434: l_pLog CONSTANT BOOLEAN := l_uLog AND fnd_log.level_procedure >= l_log_level;
435: l_sLog CONSTANT BOOLEAN := l_pLog AND fnd_log.level_statement >= l_log_level;
436:
437:
438: BEGIN
439: -- Standard Start of API savepoint
442: l_module := 'eam.plsql.'||g_pkg_name|| '.' || l_api_name;
443: END IF;
444:
445: IF (l_plog) THEN
446: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,
447: '==================== Entered EAM_MeterReading_PUB.create_meter_reading ====================');
448: END IF;
449: -- Standard call to check for call compatibility.
450:
468:
469: -- API body
470: l_ctr_property_readings_tbl.DELETE;
471: IF (l_plog) THEN
472: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,
473: '==================== Calling EAM_MeterReading_PUB.create_meter_reading ===================='
474: ||'l_return_status:'||l_return_status
475: ||' l_msg_count:'||l_msg_count
476: ||'l_msg_data:'||l_msg_data);
486: p_value_before_reset => p_value_before_reset,
487: p_ignore_warnings => p_ignore_warnings,
488: x_meter_reading_id => l_meter_reading_id);
489: IF (l_plog) THEN
490: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,
491: '==================== Returned from EAM_MeterReading_PUB.create_meter_reading ===================='
492: ||'l_return_status:'||l_return_status
493: ||' l_msg_count:'||l_msg_count
494: ||'l_msg_data:'||l_msg_data);
506: IF FND_API.To_Boolean( p_commit ) THEN
507:
508: COMMIT WORK;
509: IF (l_plog) THEN
510: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,'Commiting Work');
511: END IF;
512: END IF;
513: IF (l_plog) THEN
514: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,
510: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,'Commiting Work');
511: END IF;
512: END IF;
513: IF (l_plog) THEN
514: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,
515: '==================== Exiting EAM_MeterReading_PUB.create_meter_reading ====================');
516: END IF;
517:
518:
520: WHEN FND_API.G_EXC_ERROR THEN
521: ROLLBACK TO create_meter_reading_Pub;
522: x_return_status := FND_API.G_RET_STS_ERROR ;
523: IF (l_plog) THEN
524: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,'ROLLBACK TO create_meter_reading_Pub');
525: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,
526: '===================EAM_MeterReading_PUB.create_meter_reading: EXPECTED ERROR======='||
527: '==================== Calling FND_MSG_PUB.Count_And_Get ====================');
528: END IF;
521: ROLLBACK TO create_meter_reading_Pub;
522: x_return_status := FND_API.G_RET_STS_ERROR ;
523: IF (l_plog) THEN
524: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,'ROLLBACK TO create_meter_reading_Pub');
525: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,
526: '===================EAM_MeterReading_PUB.create_meter_reading: EXPECTED ERROR======='||
527: '==================== Calling FND_MSG_PUB.Count_And_Get ====================');
528: END IF;
529: FND_MSG_PUB.Count_And_Get
530: ( p_count => x_msg_count ,
531: p_data => x_msg_data
532: );
533: IF (l_plog) THEN
534: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,
535: '==================== Returned from FND_MSG_PUB.Count_And_Get ====================');
536: END IF;
537: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
538: ROLLBACK TO create_meter_reading_Pub;
537: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
538: ROLLBACK TO create_meter_reading_Pub;
539: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
540: IF (l_plog) THEN
541: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,'ROLLBACK TO create_meter_reading_Pub');
542: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,
543: '===================EAM_MeterReading_PUB.create_meter_reading: UNEXPECTED ERROR======='||
544: '==================== Calling FND_MSG_PUB.Count_And_Get ====================');
545: END IF;
538: ROLLBACK TO create_meter_reading_Pub;
539: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
540: IF (l_plog) THEN
541: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,'ROLLBACK TO create_meter_reading_Pub');
542: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,
543: '===================EAM_MeterReading_PUB.create_meter_reading: UNEXPECTED ERROR======='||
544: '==================== Calling FND_MSG_PUB.Count_And_Get ====================');
545: END IF;
546: FND_MSG_PUB.Count_And_Get
547: ( p_count => x_msg_count ,
548: p_data => x_msg_data
549: );
550: IF (l_plog) THEN
551: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,
552: '==================== Returned from FND_MSG_PUB.Count_And_Get ====================');
553: END IF;
554: WHEN OTHERS THEN
555: ROLLBACK TO create_meter_reading_Pub;
554: WHEN OTHERS THEN
555: ROLLBACK TO create_meter_reading_Pub;
556: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
557: IF (l_plog) THEN
558: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,'ROLLBACK TO create_meter_reading_Pub');
559: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,
560: '===================EAM_MeterReading_PUB.create_meter_reading: OTHERS ERROR=======');
561: END IF;
562: IF FND_MSG_PUB.Check_Msg_Level
555: ROLLBACK TO create_meter_reading_Pub;
556: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
557: IF (l_plog) THEN
558: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,'ROLLBACK TO create_meter_reading_Pub');
559: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,
560: '===================EAM_MeterReading_PUB.create_meter_reading: OTHERS ERROR=======');
561: END IF;
562: IF FND_MSG_PUB.Check_Msg_Level
563: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
562: IF FND_MSG_PUB.Check_Msg_Level
563: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
564: THEN
565: IF (l_plog) THEN
566: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,
567: '==================== Calling FND_MSG_PUB.Add_Exc_Msg ====================');
568: END IF;
569: FND_MSG_PUB.Add_Exc_Msg
570: ( G_PKG_NAME ,
570: ( G_PKG_NAME ,
571: l_api_name
572: );
573: IF (l_plog) THEN
574: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,
575: '==================== Returned from FND_MSG_PUB.Add_Exc_Msg ====================');
576: END IF;
577: END IF;
578: IF (l_plog) THEN
575: '==================== Returned from FND_MSG_PUB.Add_Exc_Msg ====================');
576: END IF;
577: END IF;
578: IF (l_plog) THEN
579: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,
580: '==================== Calling FND_MSG_PUB.Count_And_Get ====================');
581: END IF;
582: FND_MSG_PUB.Count_And_Get
583: ( p_count => x_msg_count ,
583: ( p_count => x_msg_count ,
584: p_data => x_msg_data
585: );
586: IF (l_plog) THEN
587: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,
588: '==================== Returned from FND_MSG_PUB.Count_And_Get ====================');
589: END IF;
590: END create_meter_reading;
591:
608: l_object_version_number Number;
609: l_ctr_rdg_tbl Csi_Ctr_Datastructures_PUB.Counter_Readings_Tbl;
610:
611: l_module varchar2(200);
612: l_log_level CONSTANT NUMBER := fnd_log.g_current_runtime_level;
613: l_uLog CONSTANT BOOLEAN := fnd_log.level_unexpected >= l_log_level ;
614: l_pLog CONSTANT BOOLEAN := l_uLog AND fnd_log.level_procedure >= l_log_level;
615: l_sLog CONSTANT BOOLEAN := l_pLog AND fnd_log.level_statement >= l_log_level;
616:
609: l_ctr_rdg_tbl Csi_Ctr_Datastructures_PUB.Counter_Readings_Tbl;
610:
611: l_module varchar2(200);
612: l_log_level CONSTANT NUMBER := fnd_log.g_current_runtime_level;
613: l_uLog CONSTANT BOOLEAN := fnd_log.level_unexpected >= l_log_level ;
614: l_pLog CONSTANT BOOLEAN := l_uLog AND fnd_log.level_procedure >= l_log_level;
615: l_sLog CONSTANT BOOLEAN := l_pLog AND fnd_log.level_statement >= l_log_level;
616:
617: BEGIN
610:
611: l_module varchar2(200);
612: l_log_level CONSTANT NUMBER := fnd_log.g_current_runtime_level;
613: l_uLog CONSTANT BOOLEAN := fnd_log.level_unexpected >= l_log_level ;
614: l_pLog CONSTANT BOOLEAN := l_uLog AND fnd_log.level_procedure >= l_log_level;
615: l_sLog CONSTANT BOOLEAN := l_pLog AND fnd_log.level_statement >= l_log_level;
616:
617: BEGIN
618:
611: l_module varchar2(200);
612: l_log_level CONSTANT NUMBER := fnd_log.g_current_runtime_level;
613: l_uLog CONSTANT BOOLEAN := fnd_log.level_unexpected >= l_log_level ;
614: l_pLog CONSTANT BOOLEAN := l_uLog AND fnd_log.level_procedure >= l_log_level;
615: l_sLog CONSTANT BOOLEAN := l_pLog AND fnd_log.level_statement >= l_log_level;
616:
617: BEGIN
618:
619: SAVEPOINT disable_meter_reading_pub;
621: l_module := 'eam.plsql.'||g_pkg_name|| '.' || l_api_name;
622: END IF;
623:
624: IF (l_plog) THEN
625: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,
626: '==================== Entered EAM_MeterReading_PUB.disable_meter_reading_pub ====================');
627: END IF;
628: -- Standard call to check for call compatibility.
629: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
650: INTO l_object_version_number
651: FROM csi_counter_readings
652: WHERE counter_value_id = p_meter_reading_id;
653: IF (l_plog) THEN
654: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,
655: 'l_object_version_number: '||l_object_version_number);
656: END IF;
657:
658: -- Assigning values for the Counter readings record
663: l_ctr_rdg_tbl(1).disabled_flag := 'Y';
664:
665: -- Call to CSI API to disable counter reading.
666: IF (l_plog) THEN
667: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,
668: '==================== Calling Csi_Counter_Readings_PUB.Update_Counter_Reading ===================='
669: ||'x_return_status:'||x_return_status
670: ||' x_msg_count:'||x_msg_count
671: ||'x_msg_data:'||x_msg_data);
678: x_return_status => x_return_status,
679: x_msg_count => x_msg_count,
680: x_msg_data => x_msg_data);
681: IF (l_plog) THEN
682: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,
683: '==================== Exiting from Csi_Counter_Readings_PUB.Update_Counter_Reading ===================='
684: ||'x_return_status:'||x_return_status
685: ||' x_msg_count:'||x_msg_count
686: ||'x_msg_data:'||x_msg_data);
690: -- Standard check of p_commit.
691: IF FND_API.To_Boolean( p_commit ) THEN
692: COMMIT WORK;
693: IF (l_plog) THEN
694: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,'Committed Work');
695: END IF;
696: END IF;
697: IF (l_plog) THEN
698: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,
694: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,'Committed Work');
695: END IF;
696: END IF;
697: IF (l_plog) THEN
698: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,
699: '==================== Exiting EAM_MeterReading_PUB.disable_meter_reading_pub ====================');
700: END IF;
701: EXCEPTION
702: WHEN FND_API.G_EXC_ERROR THEN
703:
704: ROLLBACK TO disable_meter_reading_pub;
705: x_return_status := FND_API.G_RET_STS_ERROR ;
706: IF (l_plog) THEN
707: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,'ROLLBACK TO disable_meter_reading_pub');
708: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,
709: '===================EAM_MeterReading_PUB.disable_meter_reading_pub: EXPECTED ERROR======='||
710: '==================== Calling FND_MSG_PUB.Count_And_Get ====================');
711: END IF;
704: ROLLBACK TO disable_meter_reading_pub;
705: x_return_status := FND_API.G_RET_STS_ERROR ;
706: IF (l_plog) THEN
707: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,'ROLLBACK TO disable_meter_reading_pub');
708: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,
709: '===================EAM_MeterReading_PUB.disable_meter_reading_pub: EXPECTED ERROR======='||
710: '==================== Calling FND_MSG_PUB.Count_And_Get ====================');
711: END IF;
712: FND_MSG_PUB.Count_And_Get
713: ( p_count => x_msg_count ,
714: p_data => x_msg_data
715: );
716: IF (l_plog) THEN
717: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,
718: '==================== Returned from FND_MSG_PUB.Count_And_Get ====================');
719: END IF;
720: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
721:
721:
722: ROLLBACK TO disable_meter_reading_pub;
723: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
724: IF (l_plog) THEN
725: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,'ROLLBACK TO disable_meter_reading_pub');
726: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,
727: '===================EAM_MeterReading_PUB.disable_meter_reading_pub: UNEXPECTED ERROR======='||
728: '==================== Calling FND_MSG_PUB.Count_And_Get ====================');
729: END IF;
722: ROLLBACK TO disable_meter_reading_pub;
723: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
724: IF (l_plog) THEN
725: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,'ROLLBACK TO disable_meter_reading_pub');
726: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,
727: '===================EAM_MeterReading_PUB.disable_meter_reading_pub: UNEXPECTED ERROR======='||
728: '==================== Calling FND_MSG_PUB.Count_And_Get ====================');
729: END IF;
730: FND_MSG_PUB.Count_And_Get
731: ( p_count => x_msg_count ,
732: p_data => x_msg_data
733: );
734: IF (l_plog) THEN
735: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,
736: '==================== Returned from FND_MSG_PUB.Count_And_Get ====================');
737: END IF;
738: WHEN OTHERS THEN
739:
739:
740: ROLLBACK TO disable_meter_reading_pub;
741: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
742: IF (l_plog) THEN
743: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,'ROLLBACK TO disable_meter_reading_pub');
744: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,
745: '===================EAM_MeterReading_PUB.disable_meter_reading_pub: OTHERS ERROR=======');
746: END IF;
747: IF FND_MSG_PUB.Check_Msg_Level
740: ROLLBACK TO disable_meter_reading_pub;
741: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
742: IF (l_plog) THEN
743: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,'ROLLBACK TO disable_meter_reading_pub');
744: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,
745: '===================EAM_MeterReading_PUB.disable_meter_reading_pub: OTHERS ERROR=======');
746: END IF;
747: IF FND_MSG_PUB.Check_Msg_Level
748: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
747: IF FND_MSG_PUB.Check_Msg_Level
748: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
749: THEN
750: IF (l_plog) THEN
751: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,
752: '==================== Calling FND_MSG_PUB.Add_Exc_Msg ====================');
753: END IF;
754: FND_MSG_PUB.Add_Exc_Msg
755: ( G_PKG_NAME ,
755: ( G_PKG_NAME ,
756: l_api_name
757: );
758: IF (l_plog) THEN
759: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,
760: '==================== Returned from FND_MSG_PUB.Add_Exc_Msg ====================');
761: END IF;
762: END IF;
763: IF (l_plog) THEN
760: '==================== Returned from FND_MSG_PUB.Add_Exc_Msg ====================');
761: END IF;
762: END IF;
763: IF (l_plog) THEN
764: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,
765: '==================== Calling FND_MSG_PUB.Count_And_Get ====================');
766: END IF;
767: FND_MSG_PUB.Count_And_Get
768: ( p_count => x_msg_count ,
768: ( p_count => x_msg_count ,
769: p_data => x_msg_data
770: );
771: IF (l_plog) THEN
772: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module,
773: '==================== Returned from FND_MSG_PUB.Count_And_Get ====================');
774: END IF;
775:
776: END disable_meter_reading;