438: ,x_return_status => x_return_status
439: ,x_msg_count => x_msg_count
440: ,x_msg_data => x_msg_data
441: );
442: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
443: csi_ctr_gen_utility_pvt.put_line('ERROR FROM CSI_COUNTER_READINGS_CUHK.Capture_Counter_Reading_Pre API ');
444: l_msg_index := 1;
445: l_msg_count := x_msg_count;
446: WHILE l_msg_count > 0 LOOP
445: l_msg_count := x_msg_count;
446: WHILE l_msg_count > 0 LOOP
447: x_msg_data := FND_MSG_PUB.GET
448: ( l_msg_index,
449: FND_API.G_FALSE
450: );
451: csi_ctr_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
452: l_msg_index := l_msg_index + 1;
453: l_msg_count := l_msg_count - 1;
451: csi_ctr_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
452: l_msg_index := l_msg_index + 1;
453: l_msg_count := l_msg_count - 1;
454: END LOOP;
455: RAISE FND_API.G_EXC_ERROR;
456: END IF;
457: END IF;
458:
459: -- Calling Vertical Pre-processing Hook
470: ,x_return_status => x_return_status
471: ,x_msg_count => x_msg_count
472: ,x_msg_data => x_msg_data
473: );
474: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
475: csi_ctr_gen_utility_pvt.put_line('ERROR FROM CSI_COUNTER_READINGS_VUHK.Capture_Counter_Reading_Pre API ');
476: l_msg_index := 1;
477: l_msg_count := x_msg_count;
478: WHILE l_msg_count > 0 LOOP
477: l_msg_count := x_msg_count;
478: WHILE l_msg_count > 0 LOOP
479: x_msg_data := FND_MSG_PUB.GET
480: ( l_msg_index,
481: FND_API.G_FALSE
482: );
483: csi_ctr_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
484: l_msg_index := l_msg_index + 1;
485: l_msg_count := l_msg_count - 1;
483: csi_ctr_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
484: l_msg_index := l_msg_index + 1;
485: l_msg_count := l_msg_count - 1;
486: END LOOP;
487: RAISE FND_API.G_EXC_ERROR;
488: END IF;
489: END IF;
490:
491: IF NVL(l_DISABLED_FLAG_mig(j),'N') = 'Y' THEN
491: IF NVL(l_DISABLED_FLAG_mig(j),'N') = 'Y' THEN
492: Csi_Counter_Readings_Pvt.Update_Counter_Reading
493: (
494: p_api_version => 1.0
495: ,p_commit => fnd_api.g_false
496: ,p_init_msg_list => fnd_api.g_true
497: ,p_validation_level => fnd_api.g_valid_level_full
498: ,p_ctr_rdg_rec => l_ctr_rdg_rec
499: ,x_return_status => x_return_status
492: Csi_Counter_Readings_Pvt.Update_Counter_Reading
493: (
494: p_api_version => 1.0
495: ,p_commit => fnd_api.g_false
496: ,p_init_msg_list => fnd_api.g_true
497: ,p_validation_level => fnd_api.g_valid_level_full
498: ,p_ctr_rdg_rec => l_ctr_rdg_rec
499: ,x_return_status => x_return_status
500: ,x_msg_count => x_msg_count
493: (
494: p_api_version => 1.0
495: ,p_commit => fnd_api.g_false
496: ,p_init_msg_list => fnd_api.g_true
497: ,p_validation_level => fnd_api.g_valid_level_full
498: ,p_ctr_rdg_rec => l_ctr_rdg_rec
499: ,x_return_status => x_return_status
500: ,x_msg_count => x_msg_count
501: ,x_msg_data => x_msg_data
499: ,x_return_status => x_return_status
500: ,x_msg_count => x_msg_count
501: ,x_msg_data => x_msg_data
502: );
503: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
504: l_msg_index := 1;
505: l_msg_count := x_msg_count;
506: WHILE l_msg_count > 0 LOOP
507: x_msg_data := FND_MSG_PUB.GET
505: l_msg_count := x_msg_count;
506: WHILE l_msg_count > 0 LOOP
507: x_msg_data := FND_MSG_PUB.GET
508: ( l_msg_index,
509: FND_API.G_FALSE
510: );
511: l_msg_index := l_msg_index + 1;
512: l_msg_count := l_msg_count - 1;
513: END LOOP;
534: --
535: IF l_exists = 'N' THEN
536: Csi_Counter_Readings_Pvt.Create_Reading_Transaction
537: ( p_api_version => 1.0
538: ,p_commit => fnd_api.g_false
539: ,p_init_msg_list => fnd_api.g_true
540: ,p_validation_level => fnd_api.g_valid_level_full
541: ,p_txn_rec => l_txn_rec
542: ,x_return_status => x_return_status
535: IF l_exists = 'N' THEN
536: Csi_Counter_Readings_Pvt.Create_Reading_Transaction
537: ( p_api_version => 1.0
538: ,p_commit => fnd_api.g_false
539: ,p_init_msg_list => fnd_api.g_true
540: ,p_validation_level => fnd_api.g_valid_level_full
541: ,p_txn_rec => l_txn_rec
542: ,x_return_status => x_return_status
543: ,x_msg_count => x_msg_count
536: Csi_Counter_Readings_Pvt.Create_Reading_Transaction
537: ( p_api_version => 1.0
538: ,p_commit => fnd_api.g_false
539: ,p_init_msg_list => fnd_api.g_true
540: ,p_validation_level => fnd_api.g_valid_level_full
541: ,p_txn_rec => l_txn_rec
542: ,x_return_status => x_return_status
543: ,x_msg_count => x_msg_count
544: ,x_msg_data => x_msg_data
542: ,x_return_status => x_return_status
543: ,x_msg_count => x_msg_count
544: ,x_msg_data => x_msg_data
545: );
546: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
547: l_msg_index := 1;
548: FND_MSG_PUB.Count_And_Get
549: (p_count => x_msg_count,
550: p_data => x_msg_data
552: l_msg_count := x_msg_count;
553: WHILE l_msg_count > 0 LOOP
554: x_msg_data := FND_MSG_PUB.GET
555: ( l_msg_index,
556: FND_API.G_FALSE );
557: l_msg_index := l_msg_index + 1;
558: l_msg_count := l_msg_count - 1;
559: END LOOP;
560: l_ERROR_TEXT_mig(j) := substr(x_msg_data,1,2000);
565: --
566: -- Check whether this is Reset only reading.
567: -- This will decide whether to compute Derive counters or not
568: --
569: IF NVL(l_ctr_rdg_rec.counter_reading,FND_API.G_MISS_NUM) = FND_API.G_MISS_NUM AND
570: NVL(l_ctr_rdg_rec.reset_mode,FND_API.G_MISS_CHAR) = 'SOFT' THEN
571: l_reset_only := 'T';
572: ELSE
573: l_reset_only := 'F';
566: -- Check whether this is Reset only reading.
567: -- This will decide whether to compute Derive counters or not
568: --
569: IF NVL(l_ctr_rdg_rec.counter_reading,FND_API.G_MISS_NUM) = FND_API.G_MISS_NUM AND
570: NVL(l_ctr_rdg_rec.reset_mode,FND_API.G_MISS_CHAR) = 'SOFT' THEN
571: l_reset_only := 'T';
572: ELSE
573: l_reset_only := 'F';
574: END IF;
576: -- Calling Capture_Counter_Reading PVT
577: Csi_Counter_Readings_Pvt.Capture_Counter_Reading
578: (
579: p_api_version => 1.0
580: ,p_commit => fnd_api.g_false
581: ,p_init_msg_list => fnd_api.g_true
582: ,p_validation_level => fnd_api.g_valid_level_full
583: ,p_txn_rec => l_txn_rec
584: ,p_ctr_rdg_rec => l_ctr_rdg_rec
577: Csi_Counter_Readings_Pvt.Capture_Counter_Reading
578: (
579: p_api_version => 1.0
580: ,p_commit => fnd_api.g_false
581: ,p_init_msg_list => fnd_api.g_true
582: ,p_validation_level => fnd_api.g_valid_level_full
583: ,p_txn_rec => l_txn_rec
584: ,p_ctr_rdg_rec => l_ctr_rdg_rec
585: ,x_return_status => x_return_status
578: (
579: p_api_version => 1.0
580: ,p_commit => fnd_api.g_false
581: ,p_init_msg_list => fnd_api.g_true
582: ,p_validation_level => fnd_api.g_valid_level_full
583: ,p_txn_rec => l_txn_rec
584: ,p_ctr_rdg_rec => l_ctr_rdg_rec
585: ,x_return_status => x_return_status
586: ,x_msg_count => x_msg_count
585: ,x_return_status => x_return_status
586: ,x_msg_count => x_msg_count
587: ,x_msg_data => x_msg_data
588: );
589: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
590: l_msg_index := 1;
591: l_msg_count := x_msg_count;
592: WHILE l_msg_count > 0 LOOP
593: x_msg_data := FND_MSG_PUB.GET
591: l_msg_count := x_msg_count;
592: WHILE l_msg_count > 0 LOOP
593: x_msg_data := FND_MSG_PUB.GET
594: ( l_msg_index,
595: FND_API.G_FALSE
596: );
597: l_msg_index := l_msg_index + 1;
598: l_msg_count := l_msg_count - 1;
599: END LOOP;
630: --
631: Csi_Counter_Readings_Pvt.Capture_Ctr_Property_Reading
632: (
633: p_api_version => 1.0
634: ,p_commit => fnd_api.g_false
635: ,p_init_msg_list => fnd_api.g_true
636: ,p_validation_level => fnd_api.g_valid_level_full
637: ,p_ctr_prop_rdg_rec => l_ctr_prop_rdg_rec
638: ,x_return_status => x_return_status
631: Csi_Counter_Readings_Pvt.Capture_Ctr_Property_Reading
632: (
633: p_api_version => 1.0
634: ,p_commit => fnd_api.g_false
635: ,p_init_msg_list => fnd_api.g_true
636: ,p_validation_level => fnd_api.g_valid_level_full
637: ,p_ctr_prop_rdg_rec => l_ctr_prop_rdg_rec
638: ,x_return_status => x_return_status
639: ,x_msg_count => x_msg_count
632: (
633: p_api_version => 1.0
634: ,p_commit => fnd_api.g_false
635: ,p_init_msg_list => fnd_api.g_true
636: ,p_validation_level => fnd_api.g_valid_level_full
637: ,p_ctr_prop_rdg_rec => l_ctr_prop_rdg_rec
638: ,x_return_status => x_return_status
639: ,x_msg_count => x_msg_count
640: ,x_msg_data => x_msg_data
638: ,x_return_status => x_return_status
639: ,x_msg_count => x_msg_count
640: ,x_msg_data => x_msg_data
641: );
642: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
643: l_msg_index := 1;
644: l_msg_count := x_msg_count;
645: WHILE l_msg_count > 0 LOOP
646: x_msg_data := FND_MSG_PUB.GET
644: l_msg_count := x_msg_count;
645: WHILE l_msg_count > 0 LOOP
646: x_msg_data := FND_MSG_PUB.GET
647: ( l_msg_index,
648: FND_API.G_FALSE
649: );
650: l_msg_index := l_msg_index + 1;
651: l_msg_count := l_msg_count - 1;
652: END LOOP;
667: --
668: Csi_Counter_Readings_Pvt.Capture_Ctr_Property_Reading
669: (
670: p_api_version => 1.0
671: ,p_commit => fnd_api.g_false
672: ,p_init_msg_list => fnd_api.g_true
673: ,p_validation_level => fnd_api.g_valid_level_full
674: ,p_ctr_prop_rdg_rec => l_dflt_ctr_prop_rec
675: ,x_return_status => x_return_status
668: Csi_Counter_Readings_Pvt.Capture_Ctr_Property_Reading
669: (
670: p_api_version => 1.0
671: ,p_commit => fnd_api.g_false
672: ,p_init_msg_list => fnd_api.g_true
673: ,p_validation_level => fnd_api.g_valid_level_full
674: ,p_ctr_prop_rdg_rec => l_dflt_ctr_prop_rec
675: ,x_return_status => x_return_status
676: ,x_msg_count => x_msg_count
669: (
670: p_api_version => 1.0
671: ,p_commit => fnd_api.g_false
672: ,p_init_msg_list => fnd_api.g_true
673: ,p_validation_level => fnd_api.g_valid_level_full
674: ,p_ctr_prop_rdg_rec => l_dflt_ctr_prop_rec
675: ,x_return_status => x_return_status
676: ,x_msg_count => x_msg_count
677: ,x_msg_data => x_msg_data
675: ,x_return_status => x_return_status
676: ,x_msg_count => x_msg_count
677: ,x_msg_data => x_msg_data
678: );
679: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
680: l_msg_index := 1;
681: l_msg_count := x_msg_count;
682: WHILE l_msg_count > 0 LOOP
683: x_msg_data := FND_MSG_PUB.GET
681: l_msg_count := x_msg_count;
682: WHILE l_msg_count > 0 LOOP
683: x_msg_data := FND_MSG_PUB.GET
684: ( l_msg_index,
685: FND_API.G_FALSE
686: );
687: l_msg_index := l_msg_index + 1;
688: l_msg_count := l_msg_count - 1;
689: END LOOP;
706: -- Call Compute Derive Counters
707: Csi_Counter_Readings_Pvt.Compute_Derive_Counters
708: (
709: p_api_version => 1.0
710: ,p_commit => fnd_api.g_false
711: ,p_init_msg_list => fnd_api.g_true
712: ,p_validation_level => fnd_api.g_valid_level_full
713: ,p_txn_rec => l_txn_rec
714: ,p_ctr_rdg_rec => l_derive_ctr_rec
707: Csi_Counter_Readings_Pvt.Compute_Derive_Counters
708: (
709: p_api_version => 1.0
710: ,p_commit => fnd_api.g_false
711: ,p_init_msg_list => fnd_api.g_true
712: ,p_validation_level => fnd_api.g_valid_level_full
713: ,p_txn_rec => l_txn_rec
714: ,p_ctr_rdg_rec => l_derive_ctr_rec
715: ,p_mode => 'CREATE'
708: (
709: p_api_version => 1.0
710: ,p_commit => fnd_api.g_false
711: ,p_init_msg_list => fnd_api.g_true
712: ,p_validation_level => fnd_api.g_valid_level_full
713: ,p_txn_rec => l_txn_rec
714: ,p_ctr_rdg_rec => l_derive_ctr_rec
715: ,p_mode => 'CREATE'
716: ,x_return_status => x_return_status
716: ,x_return_status => x_return_status
717: ,x_msg_count => x_msg_count
718: ,x_msg_data => x_msg_data
719: );
720: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
721: l_msg_index := 1;
722: l_msg_count := x_msg_count;
723: WHILE l_msg_count > 0 LOOP
724: x_msg_data := FND_MSG_PUB.GET
722: l_msg_count := x_msg_count;
723: WHILE l_msg_count > 0 LOOP
724: x_msg_data := FND_MSG_PUB.GET
725: ( l_msg_index,
726: FND_API.G_FALSE
727: );
728: l_msg_index := l_msg_index + 1;
729: l_msg_count := l_msg_count - 1;
730: END LOOP;
746: --
747: Csi_Counter_Readings_Pvt.Compute_Derive_Counters
748: (
749: p_api_version => 1.0
750: ,p_commit => fnd_api.g_false
751: ,p_init_msg_list => fnd_api.g_true
752: ,p_validation_level => fnd_api.g_valid_level_full
753: ,p_txn_rec => l_txn_rec
754: ,p_ctr_rdg_rec => l_derive_ctr_rec
747: Csi_Counter_Readings_Pvt.Compute_Derive_Counters
748: (
749: p_api_version => 1.0
750: ,p_commit => fnd_api.g_false
751: ,p_init_msg_list => fnd_api.g_true
752: ,p_validation_level => fnd_api.g_valid_level_full
753: ,p_txn_rec => l_txn_rec
754: ,p_ctr_rdg_rec => l_derive_ctr_rec
755: ,p_mode => 'UPDATE'
748: (
749: p_api_version => 1.0
750: ,p_commit => fnd_api.g_false
751: ,p_init_msg_list => fnd_api.g_true
752: ,p_validation_level => fnd_api.g_valid_level_full
753: ,p_txn_rec => l_txn_rec
754: ,p_ctr_rdg_rec => l_derive_ctr_rec
755: ,p_mode => 'UPDATE'
756: ,x_return_status => x_return_status
756: ,x_return_status => x_return_status
757: ,x_msg_count => x_msg_count
758: ,x_msg_data => x_msg_data
759: );
760: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
761: l_msg_index := 1;
762: l_msg_count := x_msg_count;
763: WHILE l_msg_count > 0 LOOP
764: x_msg_data := FND_MSG_PUB.GET
762: l_msg_count := x_msg_count;
763: WHILE l_msg_count > 0 LOOP
764: x_msg_data := FND_MSG_PUB.GET
765: ( l_msg_index,
766: FND_API.G_FALSE
767: );
768: l_msg_index := l_msg_index + 1;
769: l_msg_count := l_msg_count - 1;
770: END LOOP;
778: -- Call Compute Formula
779: Csi_Counter_Readings_Pvt.Compute_Formula_Counters
780: (
781: p_api_version => 1.0
782: ,p_commit => fnd_api.g_false
783: ,p_init_msg_list => fnd_api.g_true
784: ,p_validation_level => fnd_api.g_valid_level_full
785: ,p_txn_rec => l_txn_rec
786: ,p_ctr_rdg_rec => l_ctr_rdg_rec
779: Csi_Counter_Readings_Pvt.Compute_Formula_Counters
780: (
781: p_api_version => 1.0
782: ,p_commit => fnd_api.g_false
783: ,p_init_msg_list => fnd_api.g_true
784: ,p_validation_level => fnd_api.g_valid_level_full
785: ,p_txn_rec => l_txn_rec
786: ,p_ctr_rdg_rec => l_ctr_rdg_rec
787: ,x_return_status => x_return_status
780: (
781: p_api_version => 1.0
782: ,p_commit => fnd_api.g_false
783: ,p_init_msg_list => fnd_api.g_true
784: ,p_validation_level => fnd_api.g_valid_level_full
785: ,p_txn_rec => l_txn_rec
786: ,p_ctr_rdg_rec => l_ctr_rdg_rec
787: ,x_return_status => x_return_status
788: ,x_msg_count => x_msg_count
787: ,x_return_status => x_return_status
788: ,x_msg_count => x_msg_count
789: ,x_msg_data => x_msg_data
790: );
791: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
792: l_msg_index := 1;
793: l_msg_count := x_msg_count;
794: WHILE l_msg_count > 0 LOOP
795: x_msg_data := FND_MSG_PUB.GET
793: l_msg_count := x_msg_count;
794: WHILE l_msg_count > 0 LOOP
795: x_msg_data := FND_MSG_PUB.GET
796: ( l_msg_index,
797: FND_API.G_FALSE
798: );
799: l_msg_index := l_msg_index + 1;
800: l_msg_count := l_msg_count - 1;
801: END LOOP;
837: ,x_return_status => x_return_status
838: ,x_msg_count => x_msg_count
839: ,x_msg_data => x_msg_data
840: );
841: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
842: csi_ctr_gen_utility_pvt.put_line('ERROR FROM CSI_COUNTER_READINGS_CUHK.Capture_Counter_Reading_Post API ');
843: l_msg_index := 1;
844: l_msg_count := x_msg_count;
845: WHILE l_msg_count > 0 LOOP
844: l_msg_count := x_msg_count;
845: WHILE l_msg_count > 0 LOOP
846: x_msg_data := FND_MSG_PUB.GET
847: ( l_msg_index,
848: FND_API.G_FALSE
849: );
850: csi_ctr_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
851: l_msg_index := l_msg_index + 1;
852: l_msg_count := l_msg_count - 1;
850: csi_ctr_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
851: l_msg_index := l_msg_index + 1;
852: l_msg_count := l_msg_count - 1;
853: END LOOP;
854: RAISE FND_API.G_EXC_ERROR;
855: END IF;
856: END IF;
857:
858: -- Calling Vertical Post-processing Hook
869: ,x_return_status => x_return_status
870: ,x_msg_count => x_msg_count
871: ,x_msg_data => x_msg_data
872: );
873: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
874: csi_ctr_gen_utility_pvt.put_line('ERROR FROM CSI_COUNTER_READINGS_VUHK.Capture_Counter_Reading_Post API ');
875: l_msg_index := 1;
876: l_msg_count := x_msg_count;
877: WHILE l_msg_count > 0 LOOP
876: l_msg_count := x_msg_count;
877: WHILE l_msg_count > 0 LOOP
878: x_msg_data := FND_MSG_PUB.GET
879: ( l_msg_index,
880: FND_API.G_FALSE
881: );
882: csi_ctr_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
883: l_msg_index := l_msg_index + 1;
884: l_msg_count := l_msg_count - 1;
882: csi_ctr_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
883: l_msg_index := l_msg_index + 1;
884: l_msg_count := l_msg_count - 1;
885: END LOOP;
886: RAISE FND_API.G_EXC_ERROR;
887: END IF;
888: END IF;
889:
890: END LOOP; -- l_counter_interface_id_mig.count Loop