[Home] [Help]
306:
307: --
308:
309: /* Treat Adjustments of Fluctuating counters like Ascending counters */
310: IF p_curr_adj IS NULL OR p_curr_adj = FND_API.G_MISS_NUM THEN
311: l_curr_adj := 0;
312: ELSE
313: l_curr_adj := p_curr_adj;
314: END IF;
364: csi_ctr_gen_utility_pvt.put_line('6398254: New Net Reading = '||to_char(px_net_rdg));
365: csi_ctr_gen_utility_pvt.put_line('6398254: New LTD Reading = '||to_char(px_ltd_rdg));
366: /* end addition */
367: IF NVL(p_direction,'X') = 'B' AND p_rdg_type = 2 THEN
368: IF p_curr_adj IS NULL OR p_curr_adj = FND_API.G_MISS_NUM THEN
369: IF l_ctr_rdg_rec.reset_mode = 'SOFT' THEN
370: -- AND NVL(l_ctr_rdg_rec.reset_mode,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR THEN
371: -- csi_ctr_gen_utility_pvt.put_line('6398254: Inside Bidir Reset Block p_curr_rdg' || p_curr_rdg);
372:
366: /* end addition */
367: IF NVL(p_direction,'X') = 'B' AND p_rdg_type = 2 THEN
368: IF p_curr_adj IS NULL OR p_curr_adj = FND_API.G_MISS_NUM THEN
369: IF l_ctr_rdg_rec.reset_mode = 'SOFT' THEN
370: -- AND NVL(l_ctr_rdg_rec.reset_mode,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR THEN
371: -- csi_ctr_gen_utility_pvt.put_line('6398254: Inside Bidir Reset Block p_curr_rdg' || p_curr_rdg);
372:
373: px_net_rdg := nvl(p_curr_rdg,0);
374: px_ltd_rdg := nvl(p_prev_ltd_rdg,0);
432: l_src_reading_type VARCHAR2(1);
433: BEGIN
434: SAVEPOINT reset_target_counters;
435: -- Initialize API return status to success
436: x_return_status := FND_API.G_RET_STS_SUCCESS;
437: --
438:
439: -- Read the debug profiles values in to global variable 7197402
440: CSI_CTR_GEN_UTILITY_PVT.read_debug_profiles;
654: --Add call to CSI_COUNTER_PVT.update_ctr_val_max_seq_no
655: --for bug 7374316
656: CSI_COUNTER_PVT.update_ctr_val_max_seq_no(
657: p_api_version => 1.0
658: ,p_commit => fnd_api.g_false
659: ,p_init_msg_list => fnd_api.g_true
660: ,p_validation_level => fnd_api.g_valid_level_full
661: ,p_counter_id => l_ctr_rdg_rec.counter_id
662: ,px_ctr_val_max_seq_no => l_ctr_rdg_rec.counter_value_id
655: --for bug 7374316
656: CSI_COUNTER_PVT.update_ctr_val_max_seq_no(
657: p_api_version => 1.0
658: ,p_commit => fnd_api.g_false
659: ,p_init_msg_list => fnd_api.g_true
660: ,p_validation_level => fnd_api.g_valid_level_full
661: ,p_counter_id => l_ctr_rdg_rec.counter_id
662: ,px_ctr_val_max_seq_no => l_ctr_rdg_rec.counter_value_id
663: ,x_return_status => x_return_status
656: CSI_COUNTER_PVT.update_ctr_val_max_seq_no(
657: p_api_version => 1.0
658: ,p_commit => fnd_api.g_false
659: ,p_init_msg_list => fnd_api.g_true
660: ,p_validation_level => fnd_api.g_valid_level_full
661: ,p_counter_id => l_ctr_rdg_rec.counter_id
662: ,px_ctr_val_max_seq_no => l_ctr_rdg_rec.counter_value_id
663: ,x_return_status => x_return_status
664: ,x_msg_count => x_msg_count
666: );
667: END LOOP; -- Obj Cursor
668: --
669: EXCEPTION
670: WHEN FND_API.G_EXC_ERROR THEN
671: x_return_status := FND_API.G_RET_STS_ERROR ;
672: ROLLBACK TO reset_target_counters;
673: FND_MSG_PUB.Count_And_Get
674: ( p_count => x_msg_count,
667: END LOOP; -- Obj Cursor
668: --
669: EXCEPTION
670: WHEN FND_API.G_EXC_ERROR THEN
671: x_return_status := FND_API.G_RET_STS_ERROR ;
672: ROLLBACK TO reset_target_counters;
673: FND_MSG_PUB.Count_And_Get
674: ( p_count => x_msg_count,
675: p_data => x_msg_data
674: ( p_count => x_msg_count,
675: p_data => x_msg_data
676: );
677: WHEN OTHERS THEN
678: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
679: ROLLBACK TO reset_target_counters;
680: END Reset_Target_Counters;
681: --
682: PROCEDURE Disable_Target_Derive_Rdg
696: FROM csi_counter_readings
697: WHERE source_counter_value_id = p_src_counter_value_id
698: AND nvl(disabled_flag,'N') <> 'Y';
699: BEGIN
700: x_return_status := FND_API.G_RET_STS_SUCCESS;
701: FOR derived_reading IN derived_readings_cur LOOP
702: UPDATE CSI_COUNTER_READINGS
703: SET disabled_flag = 'Y',
704: last_updated_by = fnd_global.user_id,
709: l_ctr_val_max_seq_no := NULL;
710:
711: CSI_COUNTER_PVT.update_ctr_val_max_seq_no(
712: p_api_version => 1.0
713: ,p_commit => fnd_api.g_false
714: ,p_init_msg_list => fnd_api.g_true
715: ,p_validation_level => fnd_api.g_valid_level_full
716: ,p_counter_id => derived_reading.counter_id
717: ,px_ctr_val_max_seq_no => l_ctr_val_max_seq_no
710:
711: CSI_COUNTER_PVT.update_ctr_val_max_seq_no(
712: p_api_version => 1.0
713: ,p_commit => fnd_api.g_false
714: ,p_init_msg_list => fnd_api.g_true
715: ,p_validation_level => fnd_api.g_valid_level_full
716: ,p_counter_id => derived_reading.counter_id
717: ,px_ctr_val_max_seq_no => l_ctr_val_max_seq_no
718: ,x_return_status => x_return_status
711: CSI_COUNTER_PVT.update_ctr_val_max_seq_no(
712: p_api_version => 1.0
713: ,p_commit => fnd_api.g_false
714: ,p_init_msg_list => fnd_api.g_true
715: ,p_validation_level => fnd_api.g_valid_level_full
716: ,p_counter_id => derived_reading.counter_id
717: ,px_ctr_val_max_seq_no => l_ctr_val_max_seq_no
718: ,x_return_status => x_return_status
719: ,x_msg_count => x_msg_count
719: ,x_msg_count => x_msg_count
720: ,x_msg_data => x_msg_data
721: );
722:
723: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
724: l_msg_index := 1;
725: l_msg_count := x_msg_count;
726: WHILE l_msg_count > 0 LOOP
727: x_msg_data := FND_MSG_PUB.GET
725: l_msg_count := x_msg_count;
726: WHILE l_msg_count > 0 LOOP
727: x_msg_data := FND_MSG_PUB.GET
728: (l_msg_index,
729: FND_API.G_FALSE
730: );
731: csi_ctr_gen_utility_pvt.put_line('ERROR FROM CSI_COUNTER_PVT.update_ctr_val_max_seq_no');
732: csi_ctr_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
733: l_msg_index := l_msg_index + 1;
732: csi_ctr_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
733: l_msg_index := l_msg_index + 1;
734: l_msg_count := l_msg_count - 1;
735: END LOOP;
736: RAISE FND_API.G_EXC_ERROR;
737: END IF;
738: END LOOP;
739: EXCEPTION
740: WHEN OTHERS THEN
737: END IF;
738: END LOOP;
739: EXCEPTION
740: WHEN OTHERS THEN
741: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
742: END Disable_Target_Derive_Rdg;
743: --
744: PROCEDURE Calculate_Rollover_Reading
745: ( p_prev_net_rdg IN NUMBER
779: -- Read the debug profiles values in to global variable 7197402
780: CSI_CTR_GEN_UTILITY_PVT.read_debug_profiles;
781:
782: -- Initialize message list if p_init_msg_list is set to TRUE.
783: IF FND_API.to_Boolean(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
784: FND_MSG_PUB.initialize;
785: END IF;
786: -- Initialize API return status to success
787: x_return_status := FND_API.G_RET_STS_SUCCESS;
783: IF FND_API.to_Boolean(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
784: FND_MSG_PUB.initialize;
785: END IF;
786: -- Initialize API return status to success
787: x_return_status := FND_API.G_RET_STS_SUCCESS;
788: --
789: -- Create Transaction
790: IF p_txn_rec.transaction_id IS NULL OR
791: p_txn_rec.transaction_id = FND_API.G_MISS_NUM THEN
787: x_return_status := FND_API.G_RET_STS_SUCCESS;
788: --
789: -- Create Transaction
790: IF p_txn_rec.transaction_id IS NULL OR
791: p_txn_rec.transaction_id = FND_API.G_MISS_NUM THEN
792: l_process_flag := TRUE;
793: WHILE l_process_flag LOOP
794: select CSI_TRANSACTIONS_S.nextval
795: into p_txn_rec.transaction_id from dual;
807: END IF;
808: END IF;
809: --
810: IF p_txn_rec.transaction_type_id IS NULL OR
811: p_txn_rec.transaction_type_id = FND_API.G_MISS_NUM THEN
812: csi_ctr_gen_utility_pvt.ExitWithErrMsg('CSI_NO_TXN_TYPE_ID');
813: ELSE
814: IF p_txn_rec.transaction_type_id NOT in (80,81,82,83,84,85,86,87,88,89,91,92,94,95)
815: THEN
827: END IF;
828: END IF;
829: --
830: IF p_txn_rec.source_transaction_date IS NULL OR
831: p_txn_rec.source_transaction_date = FND_API.G_MISS_DATE THEN
832: csi_ctr_gen_utility_pvt.ExitWithErrMsg('CSI_NO_TXN_DATE');
833: END IF;
834: --
835: IF p_txn_rec.transaction_date IS NULL OR
832: csi_ctr_gen_utility_pvt.ExitWithErrMsg('CSI_NO_TXN_DATE');
833: END IF;
834: --
835: IF p_txn_rec.transaction_date IS NULL OR
836: p_txn_rec.transaction_date = FND_API.G_MISS_DATE THEN
837: p_txn_rec.transaction_date := sysdate;
838: END IF;
839: --
840: p_txn_rec.object_version_number := 1;
841: p_txn_rec.gl_interface_status_code := 1; -- Pending
842: --
843: csi_ctr_gen_utility_pvt.put_line( '....create_reading_transactions' ||'-'||
844: p_api_version ||'-'||
845: nvl(p_commit,FND_API.G_FALSE) ||'-'||
846: nvl(p_init_msg_list,FND_API.G_FALSE) ||'-'||
847: nvl(p_validation_level,FND_API.G_VALID_LEVEL_FULL) );
848:
849: CSI_TRANSACTIONS_PKG.Insert_Row
842: --
843: csi_ctr_gen_utility_pvt.put_line( '....create_reading_transactions' ||'-'||
844: p_api_version ||'-'||
845: nvl(p_commit,FND_API.G_FALSE) ||'-'||
846: nvl(p_init_msg_list,FND_API.G_FALSE) ||'-'||
847: nvl(p_validation_level,FND_API.G_VALID_LEVEL_FULL) );
848:
849: CSI_TRANSACTIONS_PKG.Insert_Row
850: ( px_transaction_id => p_txn_rec.transaction_id,
843: csi_ctr_gen_utility_pvt.put_line( '....create_reading_transactions' ||'-'||
844: p_api_version ||'-'||
845: nvl(p_commit,FND_API.G_FALSE) ||'-'||
846: nvl(p_init_msg_list,FND_API.G_FALSE) ||'-'||
847: nvl(p_validation_level,FND_API.G_VALID_LEVEL_FULL) );
848:
849: CSI_TRANSACTIONS_PKG.Insert_Row
850: ( px_transaction_id => p_txn_rec.transaction_id,
851: p_transaction_date => p_txn_rec.transaction_date,
892: p_split_reason_code => p_txn_rec.split_reason_code,
893: p_gl_interface_status_code => p_txn_rec.gl_interface_status_code
894: );
895: --
896: IF FND_API.to_Boolean(nvl(p_commit,FND_API.G_FALSE)) THEN
897: COMMIT WORK;
898: END IF;
899: --
900: -- Standard call to get message count and IF count is get message info.
902: ( p_count => x_msg_count,
903: p_data => x_msg_data
904: );
905: EXCEPTION
906: WHEN FND_API.G_EXC_ERROR THEN
907: x_return_status := FND_API.G_RET_STS_ERROR ;
908: ROLLBACK TO create_reading_transaction;
909: FND_MSG_PUB.Count_And_Get
910: ( p_count => x_msg_count,
903: p_data => x_msg_data
904: );
905: EXCEPTION
906: WHEN FND_API.G_EXC_ERROR THEN
907: x_return_status := FND_API.G_RET_STS_ERROR ;
908: ROLLBACK TO create_reading_transaction;
909: FND_MSG_PUB.Count_And_Get
910: ( p_count => x_msg_count,
911: p_data => x_msg_data
909: FND_MSG_PUB.Count_And_Get
910: ( p_count => x_msg_count,
911: p_data => x_msg_data
912: );
913: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
914: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
915: ROLLBACK TO create_reading_transaction;
916: FND_MSG_PUB.Count_And_Get
917: ( p_count => x_msg_count,
910: ( p_count => x_msg_count,
911: p_data => x_msg_data
912: );
913: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
914: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
915: ROLLBACK TO create_reading_transaction;
916: FND_MSG_PUB.Count_And_Get
917: ( p_count => x_msg_count,
918: p_data => x_msg_data
917: ( p_count => x_msg_count,
918: p_data => x_msg_data
919: );
920: WHEN OTHERS THEN
921: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
922: ROLLBACK TO create_reading_transaction;
923: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
924: FND_MSG_PUB.Add_Exc_Msg
925: ( G_PKG_NAME,
1030: -- Standard Start of API savepoint
1031: SAVEPOINT capture_counter_reading_pvt;
1032: -- Standard call to check for call compatibility.
1033:
1034: IF NOT FND_API.Compatible_API_Call (l_api_version,
1035: p_api_version,
1036: l_api_name ,
1037: G_PKG_NAME ) THEN
1038: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1034: IF NOT FND_API.Compatible_API_Call (l_api_version,
1035: p_api_version,
1036: l_api_name ,
1037: G_PKG_NAME ) THEN
1038: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1039: END IF;
1040: -- Initialize message list if p_init_msg_list is set to TRUE.
1041: IF FND_API.to_Boolean(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
1042: FND_MSG_PUB.initialize;
1037: G_PKG_NAME ) THEN
1038: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1039: END IF;
1040: -- Initialize message list if p_init_msg_list is set to TRUE.
1041: IF FND_API.to_Boolean(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
1042: FND_MSG_PUB.initialize;
1043: END IF;
1044: -- Initialize API return status to success
1045: x_return_status := FND_API.G_RET_STS_SUCCESS;
1041: IF FND_API.to_Boolean(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
1042: FND_MSG_PUB.initialize;
1043: END IF;
1044: -- Initialize API return status to success
1045: x_return_status := FND_API.G_RET_STS_SUCCESS;
1046: --
1047:
1048: -- Read the debug profiles values in to global variable 7197402
1049: CSI_CTR_GEN_UTILITY_PVT.read_debug_profiles;
1049: CSI_CTR_GEN_UTILITY_PVT.read_debug_profiles;
1050:
1051: csi_ctr_gen_utility_pvt.put_line( '....capture_counter_reading_pvt' ||'-'||
1052: p_api_version ||'-'||
1053: nvl(p_commit,FND_API.G_FALSE) ||'-'||
1054: nvl(p_init_msg_list,FND_API.G_FALSE) ||'-'||
1055: nvl(p_validation_level,FND_API.G_VALID_LEVEL_FULL) );
1056: -- *
1057: csi_ctr_gen_utility_pvt.put_line('Passed Transaction ID is '||to_char(p_txn_rec.transaction_id));
1050:
1051: csi_ctr_gen_utility_pvt.put_line( '....capture_counter_reading_pvt' ||'-'||
1052: p_api_version ||'-'||
1053: nvl(p_commit,FND_API.G_FALSE) ||'-'||
1054: nvl(p_init_msg_list,FND_API.G_FALSE) ||'-'||
1055: nvl(p_validation_level,FND_API.G_VALID_LEVEL_FULL) );
1056: -- *
1057: csi_ctr_gen_utility_pvt.put_line('Passed Transaction ID is '||to_char(p_txn_rec.transaction_id));
1058: --
1051: csi_ctr_gen_utility_pvt.put_line( '....capture_counter_reading_pvt' ||'-'||
1052: p_api_version ||'-'||
1053: nvl(p_commit,FND_API.G_FALSE) ||'-'||
1054: nvl(p_init_msg_list,FND_API.G_FALSE) ||'-'||
1055: nvl(p_validation_level,FND_API.G_VALID_LEVEL_FULL) );
1056: -- *
1057: csi_ctr_gen_utility_pvt.put_line('Passed Transaction ID is '||to_char(p_txn_rec.transaction_id));
1058: --
1059: IF p_txn_rec.transaction_type_id in (91,92,94,95) THEN
1062: l_mode := 'Counter';
1063: END IF;
1064: --
1065: IF p_ctr_rdg_rec.counter_id IS NULL OR
1066: p_ctr_rdg_rec.counter_id = FND_API.G_MISS_NUM THEN
1067: csi_ctr_gen_utility_pvt.ExitWithErrMsg
1068: ( p_msg_name => 'CSI_API_CTR_INVALID',
1069: p_token1_name => 'MODE',
1070: p_token1_val => l_mode
1089: );
1090: End;
1091: END IF;
1092: -- Atleast one reading should be captured.
1093: IF NVL(p_ctr_rdg_rec.counter_reading,FND_API.G_MISS_NUM) = FND_API.G_MISS_NUM AND
1094: NVL(p_ctr_rdg_rec.adjustment_reading,FND_API.G_MISS_NUM) = FND_API.G_MISS_NUM AND
1095: NVL(p_ctr_rdg_rec.reset_counter_reading,FND_API.G_MISS_NUM) = FND_API.G_MISS_NUM THEN
1096: csi_ctr_gen_utility_pvt.put_line('At least one reading should be entered...');
1097: csi_ctr_gen_utility_pvt.ExitWithErrMsg
1090: End;
1091: END IF;
1092: -- Atleast one reading should be captured.
1093: IF NVL(p_ctr_rdg_rec.counter_reading,FND_API.G_MISS_NUM) = FND_API.G_MISS_NUM AND
1094: NVL(p_ctr_rdg_rec.adjustment_reading,FND_API.G_MISS_NUM) = FND_API.G_MISS_NUM AND
1095: NVL(p_ctr_rdg_rec.reset_counter_reading,FND_API.G_MISS_NUM) = FND_API.G_MISS_NUM THEN
1096: csi_ctr_gen_utility_pvt.put_line('At least one reading should be entered...');
1097: csi_ctr_gen_utility_pvt.ExitWithErrMsg
1098: ( p_msg_name => 'CSI_API_CTR_RDG_MISSING',
1091: END IF;
1092: -- Atleast one reading should be captured.
1093: IF NVL(p_ctr_rdg_rec.counter_reading,FND_API.G_MISS_NUM) = FND_API.G_MISS_NUM AND
1094: NVL(p_ctr_rdg_rec.adjustment_reading,FND_API.G_MISS_NUM) = FND_API.G_MISS_NUM AND
1095: NVL(p_ctr_rdg_rec.reset_counter_reading,FND_API.G_MISS_NUM) = FND_API.G_MISS_NUM THEN
1096: csi_ctr_gen_utility_pvt.put_line('At least one reading should be entered...');
1097: csi_ctr_gen_utility_pvt.ExitWithErrMsg
1098: ( p_msg_name => 'CSI_API_CTR_RDG_MISSING',
1099: p_token1_name => 'MODE',
1157: );
1158: END IF;
1159: --
1160: IF p_ctr_rdg_rec.value_timestamp IS NULL OR
1161: p_ctr_rdg_rec.value_timestamp = FND_API.G_MISS_DATE THEN
1162: p_ctr_rdg_rec.value_timestamp := sysdate;
1163: -- csi_ctr_gen_utility_pvt.ExitWithErrMsg('CSI_API_CTR_INVALID_RDG_DATE');
1164: END IF;
1165: --
1201: ,x_return_status => x_return_status
1202: ,x_msg_count => x_msg_count
1203: ,x_msg_data => x_msg_data
1204: );
1205: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
1206: csi_ctr_gen_utility_pvt.put_line('ERROR FROM Update_Counter_Reading when disabling WO ');
1207: l_msg_index := 1;
1208: l_msg_count := x_msg_count;
1209: WHILE l_msg_count > 0 LOOP
1208: l_msg_count := x_msg_count;
1209: WHILE l_msg_count > 0 LOOP
1210: x_msg_data := FND_MSG_PUB.GET
1211: (l_msg_index,
1212: FND_API.G_FALSE
1213: );
1214: csi_ctr_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
1215: l_msg_index := l_msg_index + 1;
1216: l_msg_count := l_msg_count - 1;
1214: csi_ctr_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
1215: l_msg_index := l_msg_index + 1;
1216: l_msg_count := l_msg_count - 1;
1217: END LOOP;
1218: RAISE FND_API.G_EXC_ERROR;
1219: END IF;
1220: ELSE
1221: csi_ctr_gen_utility_pvt.ExitWithErrMsg
1222: (p_msg_name => 'CSI_API_CTR_RDG_DATE_EXISTS',
1253: END IF;
1254: -- *
1255: csi_ctr_gen_utility_pvt.put_line('Adjustment type is..' || p_ctr_rdg_rec.adjustment_type);
1256:
1257: IF NVL(p_ctr_rdg_rec.adjustment_type,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR THEN
1258: -- Validate Adjustment Type against lookups
1259: IF NOT Valid_Adjustment_Type(p_ctr_rdg_rec.adjustment_type) THEN
1260: csi_ctr_gen_utility_pvt.ExitWithErrMsg
1261: ( p_msg_name => 'CSI_API_CTR_INV_ADJ_TYPE',
1264: );
1265: END IF;
1266: END IF;
1267: --
1268: IF NVL(p_ctr_rdg_rec.reset_mode,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR THEN
1269: -- Validate Reset Mode against lookups
1270: -- IF NOT Valid_Reset_Mode(p_ctr_rdg_rec.reset_mode) THEN
1271: -- Since we allow only SOFT reset at this point, no need to check against Lookups
1272: IF p_ctr_rdg_rec.reset_mode <> 'SOFT' THEN
1276: p_token1_val => p_ctr_rdg_rec.reset_mode
1277: );
1278: END IF;
1279: --
1280: IF NVL(p_ctr_rdg_rec.reset_counter_reading,FND_API.G_MISS_NUM) = FND_API.G_MISS_NUM THEN
1281: csi_ctr_gen_utility_pvt.put_line('Reset counter reading is mandatory for SOFT reset..');
1282: csi_ctr_gen_utility_pvt.ExitWithErrMsg
1283: ( p_msg_name => 'CSI_API_CTR_SOFT_RDG_MISS',
1284: p_token1_name => 'MODE',
1287: END IF;
1288: --
1289:
1290:
1291: IF NVL(p_ctr_rdg_rec.reset_reason,FND_API.G_MISS_CHAR) = FND_API.G_MISS_CHAR THEN
1292: csi_ctr_gen_utility_pvt.ExitWithErrMsg
1293: ( p_msg_name => 'CSI_API_CTR_RESET_REASON_MISS',
1294: p_token1_name => 'MODE',
1295: p_token1_val => l_mode
1297: END IF;
1298: END IF; -- Reset Mode check
1299: --
1300: -- Adjustment reading is Mandatory for Adjustments
1301: IF NVL(p_ctr_rdg_rec.adjustment_type,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR AND
1302: NVL(p_ctr_rdg_rec.adjustment_reading,FND_API.G_MISS_NUM) = FND_API.G_MISS_NUM THEN
1303: csi_ctr_gen_utility_pvt.put_line('Adjustment Reading cannot be Null or Zero for Adjustments...');
1304: csi_ctr_gen_utility_pvt.ExitWithErrMsg
1305: ( p_msg_name => 'CSI_API_CTR_ADJ_RDG_MISS',
1298: END IF; -- Reset Mode check
1299: --
1300: -- Adjustment reading is Mandatory for Adjustments
1301: IF NVL(p_ctr_rdg_rec.adjustment_type,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR AND
1302: NVL(p_ctr_rdg_rec.adjustment_reading,FND_API.G_MISS_NUM) = FND_API.G_MISS_NUM THEN
1303: csi_ctr_gen_utility_pvt.put_line('Adjustment Reading cannot be Null or Zero for Adjustments...');
1304: csi_ctr_gen_utility_pvt.ExitWithErrMsg
1305: ( p_msg_name => 'CSI_API_CTR_ADJ_RDG_MISS',
1306: p_token1_name => 'MODE',
1308: );
1309: END IF;
1310: --
1311: -- Reverse Validation
1312: IF NVL(p_ctr_rdg_rec.adjustment_reading,FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM AND
1313: NVL(p_ctr_rdg_rec.adjustment_type,FND_API.G_MISS_CHAR) = FND_API.G_MISS_CHAR THEN
1314: csi_ctr_gen_utility_pvt.put_line('Adjustment Type is Mandatory for Adjustments...');
1315: csi_ctr_gen_utility_pvt.ExitWithErrMsg
1316: ( p_msg_name => 'CSI_API_CTR_ADJ_TYPE_MISS',
1309: END IF;
1310: --
1311: -- Reverse Validation
1312: IF NVL(p_ctr_rdg_rec.adjustment_reading,FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM AND
1313: NVL(p_ctr_rdg_rec.adjustment_type,FND_API.G_MISS_CHAR) = FND_API.G_MISS_CHAR THEN
1314: csi_ctr_gen_utility_pvt.put_line('Adjustment Type is Mandatory for Adjustments...');
1315: csi_ctr_gen_utility_pvt.ExitWithErrMsg
1316: ( p_msg_name => 'CSI_API_CTR_ADJ_TYPE_MISS',
1317: p_token1_name => 'MODE',
1318: p_token1_val => l_mode
1319: );
1320: END IF;
1321: --
1322: IF NVL(p_ctr_rdg_rec.adjustment_reading,FND_API.G_MISS_NUM) <= 0 THEN
1323: csi_ctr_gen_utility_pvt.put_line('Adjustment Reading cannot be Zero or Negative...');
1324: csi_ctr_gen_utility_pvt.ExitWithErrMsg
1325: ( p_msg_name => 'CSI_API_CTR_POSITIVE_ADJ_RDG',
1326: p_token1_name => 'MODE',
1327: p_token1_val => l_mode
1328: );
1329: END IF;
1330: -- Reverse Validations
1331: IF NVL(p_ctr_rdg_rec.reset_counter_reading,FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM THEN
1332: IF NVL(p_ctr_rdg_rec.reset_mode,FND_API.G_MISS_CHAR) = FND_API.G_MISS_CHAR THEN
1333: csi_ctr_gen_utility_pvt.put_line('Reset Mode is Mandatory for Resets...');
1334: csi_ctr_gen_utility_pvt.ExitWithErrMsg
1335: ( p_msg_name => 'CSI_API_CTR_RESET_MODE_MISS',
1328: );
1329: END IF;
1330: -- Reverse Validations
1331: IF NVL(p_ctr_rdg_rec.reset_counter_reading,FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM THEN
1332: IF NVL(p_ctr_rdg_rec.reset_mode,FND_API.G_MISS_CHAR) = FND_API.G_MISS_CHAR THEN
1333: csi_ctr_gen_utility_pvt.put_line('Reset Mode is Mandatory for Resets...');
1334: csi_ctr_gen_utility_pvt.ExitWithErrMsg
1335: ( p_msg_name => 'CSI_API_CTR_RESET_MODE_MISS',
1336: p_token1_name => 'MODE',
1337: p_token1_val => l_mode
1338: );
1339: END IF;
1340: -- Reset Reason is Mandatory
1341: IF NVL(p_ctr_rdg_rec.reset_reason,FND_API.G_MISS_CHAR) = FND_API.G_MISS_CHAR THEN
1342: csi_ctr_gen_utility_pvt.ExitWithErrMsg
1343: ( p_msg_name => 'CSI_API_CTR_RESET_REASON_MISS',
1344: p_token1_name => 'MODE',
1345: p_token1_val => l_mode
1347: END IF;
1348: END IF;
1349: -- *
1350: csi_ctr_gen_utility_pvt.put_line('Reset Mode is Mandatory for Resets...'|| p_ctr_rdg_rec.reset_counter_reading );
1351: IF NVL(p_ctr_rdg_rec.reset_reason,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR THEN
1352: IF NVL(p_ctr_rdg_rec.reset_counter_reading,FND_API.G_MISS_NUM) = FND_API.G_MISS_NUM THEN
1353: csi_ctr_gen_utility_pvt.put_line('Reset Reading is Mandatory for Resets...');
1354: csi_ctr_gen_utility_pvt.ExitWithErrMsg
1355: ( p_msg_name => 'CSI_API_CTR_RESET_RDG_MISS',
1348: END IF;
1349: -- *
1350: csi_ctr_gen_utility_pvt.put_line('Reset Mode is Mandatory for Resets...'|| p_ctr_rdg_rec.reset_counter_reading );
1351: IF NVL(p_ctr_rdg_rec.reset_reason,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR THEN
1352: IF NVL(p_ctr_rdg_rec.reset_counter_reading,FND_API.G_MISS_NUM) = FND_API.G_MISS_NUM THEN
1353: csi_ctr_gen_utility_pvt.put_line('Reset Reading is Mandatory for Resets...');
1354: csi_ctr_gen_utility_pvt.ExitWithErrMsg
1355: ( p_msg_name => 'CSI_API_CTR_RESET_RDG_MISS',
1356: p_token1_name => 'MODE',
1357: p_token1_val => l_mode
1358: );
1359: END IF;
1360: --
1361: IF NVL(p_ctr_rdg_rec.reset_mode,FND_API.G_MISS_CHAR) = FND_API.G_MISS_CHAR THEN
1362: csi_ctr_gen_utility_pvt.put_line('Reset Mode is Mandatory for Resets...');
1363: csi_ctr_gen_utility_pvt.ExitWithErrMsg
1364: ( p_msg_name => 'CSI_API_CTR_RESET_MODE_MISS',
1365: p_token1_name => 'MODE',
1368: END IF;
1369: END IF;
1370: --
1371: -- Atleast one reading should be captured.
1372: IF NVL(p_ctr_rdg_rec.counter_reading,FND_API.G_MISS_NUM) = FND_API.G_MISS_NUM AND
1373: NVL(p_ctr_rdg_rec.adjustment_reading,FND_API.G_MISS_NUM) = FND_API.G_MISS_NUM AND
1374: NVL(p_ctr_rdg_rec.reset_counter_reading,FND_API.G_MISS_NUM) = FND_API.G_MISS_NUM THEN
1375: csi_ctr_gen_utility_pvt.put_line('At least one reading should be entered...');
1376: csi_ctr_gen_utility_pvt.ExitWithErrMsg
1369: END IF;
1370: --
1371: -- Atleast one reading should be captured.
1372: IF NVL(p_ctr_rdg_rec.counter_reading,FND_API.G_MISS_NUM) = FND_API.G_MISS_NUM AND
1373: NVL(p_ctr_rdg_rec.adjustment_reading,FND_API.G_MISS_NUM) = FND_API.G_MISS_NUM AND
1374: NVL(p_ctr_rdg_rec.reset_counter_reading,FND_API.G_MISS_NUM) = FND_API.G_MISS_NUM THEN
1375: csi_ctr_gen_utility_pvt.put_line('At least one reading should be entered...');
1376: csi_ctr_gen_utility_pvt.ExitWithErrMsg
1377: ( p_msg_name => 'CSI_API_CTR_RDG_MISSING',
1370: --
1371: -- Atleast one reading should be captured.
1372: IF NVL(p_ctr_rdg_rec.counter_reading,FND_API.G_MISS_NUM) = FND_API.G_MISS_NUM AND
1373: NVL(p_ctr_rdg_rec.adjustment_reading,FND_API.G_MISS_NUM) = FND_API.G_MISS_NUM AND
1374: NVL(p_ctr_rdg_rec.reset_counter_reading,FND_API.G_MISS_NUM) = FND_API.G_MISS_NUM THEN
1375: csi_ctr_gen_utility_pvt.put_line('At least one reading should be entered...');
1376: csi_ctr_gen_utility_pvt.ExitWithErrMsg
1377: ( p_msg_name => 'CSI_API_CTR_RDG_MISSING',
1378: p_token1_name => 'MODE',
1425:
1426: --
1427: -- Check whether this is the first reading
1428: IF l_prev_ctr_reading IS NULL THEN -- First Reading
1429: IF NVL(p_ctr_rdg_rec.adjustment_type,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR OR
1430: NVL(p_ctr_rdg_rec.reset_mode,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR OR
1431: NVL(p_ctr_rdg_rec.automatic_rollover_flag,'N') = 'Y' THEN
1432: csi_ctr_gen_utility_pvt.put_line('First Reading cannot be Adjustment or Reset or Automatic Rollover');
1433: csi_ctr_gen_utility_pvt.ExitWithErrMsg
1426: --
1427: -- Check whether this is the first reading
1428: IF l_prev_ctr_reading IS NULL THEN -- First Reading
1429: IF NVL(p_ctr_rdg_rec.adjustment_type,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR OR
1430: NVL(p_ctr_rdg_rec.reset_mode,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR OR
1431: NVL(p_ctr_rdg_rec.automatic_rollover_flag,'N') = 'Y' THEN
1432: csi_ctr_gen_utility_pvt.put_line('First Reading cannot be Adjustment or Reset or Automatic Rollover');
1433: csi_ctr_gen_utility_pvt.ExitWithErrMsg
1434: ( p_msg_name => 'CSI_API_CTR_INVALID_FIRST_RDG',
1436: p_token1_val => l_mode
1437: );
1438: END IF;
1439: ELSE
1440: IF NVL(p_ctr_rdg_rec.adjustment_reading,FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM THEN
1441: IF p_ctr_rdg_rec.adjustment_reading > l_prev_net_reading THEN
1442: csi_ctr_gen_utility_pvt.put_line('Adjustment Reading cannot be greater than Previous Net Reading');
1443: csi_ctr_gen_utility_pvt.ExitWithErrMsg
1444: ( p_msg_name => 'CSI_API_CTR_INVALID_ADJ_RDG',
1483: END IF;
1484: -- For Change Counters Reset and Automatic rollover are not allowed
1485:
1486: IF l_reading_type = 2 THEN
1487: /* IF NVL(p_ctr_rdg_rec.reset_mode,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR THEN
1488: csi_ctr_gen_utility_pvt.put_line('Soft Reset is not allowed for Change Counters..');
1489: csi_ctr_gen_utility_pvt.ExitWithErrMsg
1490: ( p_msg_name => 'CSI_API_NO_RESET_CHG_CTR',
1491: p_token1_name => 'MODE',
1502: p_token1_val => l_mode
1503: );
1504: END IF;
1505: --
1506: /* IF NVL(p_ctr_rdg_rec.counter_reading,FND_API.G_MISS_NUM) < 0 THEN
1507: csi_ctr_gen_utility_pvt.put_line('Counter Reading cannot be negative for Change Counters...');
1508: csi_ctr_gen_utility_pvt.ExitWithErrMsg
1509: ( p_msg_name => 'CSI_API_CTR_NEG_RDG',
1510: p_token1_name => 'MODE',
1515: END IF;
1516: -- For Bi-Directionsl Counters Adjustments, Reset and Automatic rollover are not allowed
1517: IF l_direction = 'B' THEN
1518: --Commented by Anju for cMRO bug
1519: /* IF NVL(p_ctr_rdg_rec.reset_mode,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR THEN
1520: csi_ctr_gen_utility_pvt.put_line('Reset is not allowed for Bi-directional Counters..');
1521: csi_ctr_gen_utility_pvt.ExitWithErrMsg
1522: ( p_msg_name => 'CSI_API_NO_RESET_BID_CTR',
1523: p_token1_name => 'MODE',
1537: );
1538: END IF;
1539: --
1540:
1541: /* IF NVL(p_ctr_rdg_rec.adjustment_reading,FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM
1542: THEN
1543: csi_ctr_gen_utility_pvt.put_line('Adjustment Reading is' || p_ctr_rdg_rec.adjustment_reading);
1544: csi_ctr_gen_utility_pvt.put_line('Adjustment is not allowed for Bi-directional Counters..');
1545: csi_ctr_gen_utility_pvt.ExitWithErrMsg
1551:
1552: END IF;
1553: -- Automatic Rollover cannot be combined with other reading captures.
1554: IF NVL(p_ctr_rdg_rec.automatic_rollover_flag,'N') = 'Y' THEN
1555: IF NVL(p_ctr_rdg_rec.reset_mode,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR OR
1556: NVL(p_ctr_rdg_rec.adjustment_reading,FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM THEN
1557: csi_ctr_gen_utility_pvt.put_line('Automatic Rollover cannot be combined with Reset or Adj...');
1558: csi_ctr_gen_utility_pvt.ExitWithErrMsg('CSI_API_CTR_INVALID_AUTO_RDG');
1559: END IF;
1552: END IF;
1553: -- Automatic Rollover cannot be combined with other reading captures.
1554: IF NVL(p_ctr_rdg_rec.automatic_rollover_flag,'N') = 'Y' THEN
1555: IF NVL(p_ctr_rdg_rec.reset_mode,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR OR
1556: NVL(p_ctr_rdg_rec.adjustment_reading,FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM THEN
1557: csi_ctr_gen_utility_pvt.put_line('Automatic Rollover cannot be combined with Reset or Adj...');
1558: csi_ctr_gen_utility_pvt.ExitWithErrMsg('CSI_API_CTR_INVALID_AUTO_RDG');
1559: END IF;
1560: END IF;
1574: p_token1_val => to_char(l_next_value_timestamp,nvl(fnd_profile.value('ICX_DATE_FORMAT_MASK'),'DD-MON-YYYY HH24:MI:SS'))
1575: );
1576: END IF;
1577: -- Reset cannot happen in between. It has to be at the end
1578: IF NVL(p_ctr_rdg_rec.reset_mode,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR THEN
1579: csi_ctr_gen_utility_pvt.put_line('Next counter reading exists. Cannot Reset in between...');
1580:
1581: csi_ctr_gen_utility_pvt.ExitWithErrMsg
1582: ( p_msg_name => 'CSI_API_CTR_NEXT_RDG_DT_EXISTS',
1585: );
1586: END IF;
1587: --
1588: -- Inbetween Adjustments cannot be clubbed with other readings
1589: IF NVL(p_ctr_rdg_rec.adjustment_type,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR OR
1590: NVL(p_ctr_rdg_rec.adjustment_reading,FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM THEN
1591: IF NVL(p_ctr_rdg_rec.counter_reading,FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM THEN
1592: csi_ctr_gen_utility_pvt.put_line('Between readings adjustments cannot be clubbed with others...');
1593: csi_ctr_gen_utility_pvt.ExitWithErrMsg
1586: END IF;
1587: --
1588: -- Inbetween Adjustments cannot be clubbed with other readings
1589: IF NVL(p_ctr_rdg_rec.adjustment_type,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR OR
1590: NVL(p_ctr_rdg_rec.adjustment_reading,FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM THEN
1591: IF NVL(p_ctr_rdg_rec.counter_reading,FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM THEN
1592: csi_ctr_gen_utility_pvt.put_line('Between readings adjustments cannot be clubbed with others...');
1593: csi_ctr_gen_utility_pvt.ExitWithErrMsg
1594: ( p_msg_name => 'CSI_API_CTR_ADJ_RDG_ONLY',
1587: --
1588: -- Inbetween Adjustments cannot be clubbed with other readings
1589: IF NVL(p_ctr_rdg_rec.adjustment_type,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR OR
1590: NVL(p_ctr_rdg_rec.adjustment_reading,FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM THEN
1591: IF NVL(p_ctr_rdg_rec.counter_reading,FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM THEN
1592: csi_ctr_gen_utility_pvt.put_line('Between readings adjustments cannot be clubbed with others...');
1593: csi_ctr_gen_utility_pvt.ExitWithErrMsg
1594: ( p_msg_name => 'CSI_API_CTR_ADJ_RDG_ONLY',
1595: p_token1_name => 'NEXT_DATE',
1600: END IF; -- Look for Next Value
1601:
1602:
1603: -- Reset Counter reading cannot be greater than previous counter reading
1604: IF NVL(p_ctr_rdg_rec.reset_mode,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR THEN
1605: IF NVL(p_ctr_rdg_rec.counter_reading,FND_API.G_MISS_NUM) = FND_API.G_MISS_NUM THEN
1606: IF l_direction = 'D' THEN
1607: /* Validate that the reset reading is between the rollover if
1608: rollover attributes does exists */
1601:
1602:
1603: -- Reset Counter reading cannot be greater than previous counter reading
1604: IF NVL(p_ctr_rdg_rec.reset_mode,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR THEN
1605: IF NVL(p_ctr_rdg_rec.counter_reading,FND_API.G_MISS_NUM) = FND_API.G_MISS_NUM THEN
1606: IF l_direction = 'D' THEN
1607: /* Validate that the reset reading is between the rollover if
1608: rollover attributes does exists */
1609: IF nvl(l_auto_rollover,'N') = 'Y' THEN
1687: IF NVL(p_ctr_rdg_rec.automatic_rollover_flag,'N') <> 'Y' THEN
1688: IF l_reading_type = 1 THEN -- Absolute
1689: -- OR l_reading_type = 2 THEN -- Changed
1690: IF nvl(l_direction,'X') = 'A' THEN
1691: IF NVL(p_ctr_rdg_rec.counter_reading,FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM THEN
1692: IF ( (p_ctr_rdg_rec.counter_reading < nvl(l_prev_ctr_reading,p_ctr_rdg_rec.counter_reading)) OR
1693: ( l_next_ctr_reading IS NOT NULL AND
1694: p_ctr_rdg_rec.counter_reading > l_next_ctr_reading) ) THEN
1695: csi_ctr_gen_utility_pvt.put_line('1. Reading should be in increasing order...');
1705: );
1706: END IF;
1707: END IF;
1708: ELSIF nvl(l_direction,'X') = 'D' THEN
1709: IF NVL(p_ctr_rdg_rec.counter_reading,FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM THEN
1710: IF ( (p_ctr_rdg_rec.counter_reading > nvl(l_prev_ctr_reading,p_ctr_rdg_rec.counter_reading)) OR
1711: ( l_next_ctr_reading IS NOT NULL AND
1712: p_ctr_rdg_rec.counter_reading < l_next_ctr_reading) ) THEN
1713: csi_ctr_gen_utility_pvt.put_line('2. Reading should be in decreasing order...');
1749: END IF;
1750: END IF; -- Rollover flag check
1751: --
1752: -- If counter reading is not entered then look for adjustments
1753: IF NVL(p_ctr_rdg_rec.counter_reading,FND_API.G_MISS_NUM) = FND_API.G_MISS_NUM THEN
1754: IF NVL(p_ctr_rdg_rec.adjustment_type,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR THEN
1755: IF l_reading_type = 1 THEN
1756: p_ctr_rdg_rec.counter_reading := l_prev_ctr_reading;
1757: ELSE
1750: END IF; -- Rollover flag check
1751: --
1752: -- If counter reading is not entered then look for adjustments
1753: IF NVL(p_ctr_rdg_rec.counter_reading,FND_API.G_MISS_NUM) = FND_API.G_MISS_NUM THEN
1754: IF NVL(p_ctr_rdg_rec.adjustment_type,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR THEN
1755: IF l_reading_type = 1 THEN
1756: p_ctr_rdg_rec.counter_reading := l_prev_ctr_reading;
1757: ELSE
1758: p_ctr_rdg_rec.counter_reading := 0;
1773: csi_ctr_gen_utility_pvt.put_line( 'p_ctr_rdg_rec.reset_reason ' || p_ctr_rdg_rec.reset_reason);
1774:
1775: csi_ctr_gen_utility_pvt.put_line( 'p_ctr_rdg_rec.reset_counter_reading ' || p_ctr_rdg_rec.reset_counter_reading);
1776:
1777: IF NVL(p_ctr_rdg_rec.counter_reading,FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM THEN
1778: IF NVL(p_ctr_rdg_rec.reset_counter_reading,FND_API.G_MISS_NUM) = FND_API.G_MISS_NUM OR
1779: (NVL(p_ctr_rdg_rec.reset_counter_reading,FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM
1780: AND (p_ctr_rdg_rec.counter_reading <> p_ctr_rdg_rec.reset_counter_reading)) THEN
1781: -- check := true;
1774:
1775: csi_ctr_gen_utility_pvt.put_line( 'p_ctr_rdg_rec.reset_counter_reading ' || p_ctr_rdg_rec.reset_counter_reading);
1776:
1777: IF NVL(p_ctr_rdg_rec.counter_reading,FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM THEN
1778: IF NVL(p_ctr_rdg_rec.reset_counter_reading,FND_API.G_MISS_NUM) = FND_API.G_MISS_NUM OR
1779: (NVL(p_ctr_rdg_rec.reset_counter_reading,FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM
1780: AND (p_ctr_rdg_rec.counter_reading <> p_ctr_rdg_rec.reset_counter_reading)) THEN
1781: -- check := true;
1782: --csi_ctr_gen_utility_pvt.put_line( 'check' || check);
1775: csi_ctr_gen_utility_pvt.put_line( 'p_ctr_rdg_rec.reset_counter_reading ' || p_ctr_rdg_rec.reset_counter_reading);
1776:
1777: IF NVL(p_ctr_rdg_rec.counter_reading,FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM THEN
1778: IF NVL(p_ctr_rdg_rec.reset_counter_reading,FND_API.G_MISS_NUM) = FND_API.G_MISS_NUM OR
1779: (NVL(p_ctr_rdg_rec.reset_counter_reading,FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM
1780: AND (p_ctr_rdg_rec.counter_reading <> p_ctr_rdg_rec.reset_counter_reading)) THEN
1781: -- check := true;
1782: --csi_ctr_gen_utility_pvt.put_line( 'check' || check);
1783: -- IF (p_ctr_rdg_rec.counter_reading <> p_ctr_rdg_rec.reset_counter_reading) THEN -- for cMRO resetTHEN
1799: );
1800:
1801: IF l_reading_type = 2 THEN
1802: IF nvl(l_direction,'X') = 'A' THEN
1803: IF NVL(p_ctr_rdg_rec.counter_reading,FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM THEN
1804: IF (l_ltd_reading < l_prev_ltd_reading) THEN
1805: csi_ctr_gen_utility_pvt.put_line('3. LTD Reading should be in increasing orde for a CHANGE COUNTER...');
1806: csi_ctr_gen_utility_pvt.ExitWithErrMsg
1807: ( p_msg_name => 'CSI_API_CTR_INV_RDG',
1815: );
1816: END IF;
1817: END IF;
1818: ELSIF nvl(l_direction,'X') = 'D' THEN
1819: IF NVL(p_ctr_rdg_rec.counter_reading,FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM THEN
1820: IF (l_ltd_reading > l_prev_ltd_reading) THEN
1821: csi_ctr_gen_utility_pvt.put_line('4. LTD Reading should be in decreasing order for a CHANGE COUNTER...');
1822: csi_ctr_gen_utility_pvt.ExitWithErrMsg
1823: ( p_msg_name => 'CSI_API_CTR_INV_RDG',
1851: --
1852: -- Call Table Handler to insert into CSI_COUNTER_READINGS
1853: -- Check and Generate Counter_value_id
1854: IF p_ctr_rdg_rec.counter_value_id IS NULL OR
1855: p_ctr_rdg_rec.counter_value_id = FND_API.G_MISS_NUM THEN
1856: WHILE l_process_flag LOOP
1857: select CSI_COUNTER_READINGS_S.nextval
1858: into p_ctr_rdg_rec.counter_value_id from dual;
1859: IF NOT Counter_Value_Exists(p_ctr_rdg_rec.counter_value_id) THEN
1939: --Add call to CSI_COUNTER_PVT.update_ctr_val_max_seq_no
1940: --for bug 7374316
1941: CSI_COUNTER_PVT.update_ctr_val_max_seq_no(
1942: p_api_version => 1.0
1943: ,p_commit => fnd_api.g_false
1944: ,p_init_msg_list => fnd_api.g_true
1945: ,p_validation_level => fnd_api.g_valid_level_full
1946: ,p_counter_id => p_ctr_rdg_rec.counter_id
1947: ,px_ctr_val_max_seq_no => p_ctr_rdg_rec.counter_value_id
1940: --for bug 7374316
1941: CSI_COUNTER_PVT.update_ctr_val_max_seq_no(
1942: p_api_version => 1.0
1943: ,p_commit => fnd_api.g_false
1944: ,p_init_msg_list => fnd_api.g_true
1945: ,p_validation_level => fnd_api.g_valid_level_full
1946: ,p_counter_id => p_ctr_rdg_rec.counter_id
1947: ,px_ctr_val_max_seq_no => p_ctr_rdg_rec.counter_value_id
1948: ,x_return_status => x_return_status
1941: CSI_COUNTER_PVT.update_ctr_val_max_seq_no(
1942: p_api_version => 1.0
1943: ,p_commit => fnd_api.g_false
1944: ,p_init_msg_list => fnd_api.g_true
1945: ,p_validation_level => fnd_api.g_valid_level_full
1946: ,p_counter_id => p_ctr_rdg_rec.counter_id
1947: ,px_ctr_val_max_seq_no => p_ctr_rdg_rec.counter_value_id
1948: ,x_return_status => x_return_status
1949: ,x_msg_count => x_msg_count
1948: ,x_return_status => x_return_status
1949: ,x_msg_count => x_msg_count
1950: ,x_msg_data => x_msg_data
1951: );
1952: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
1953: csi_ctr_gen_utility_pvt.put_line('ERROR FROM CSI_COUNTER_PVT.update_ctr_val_max_seq_no');
1954: l_msg_index := 1;
1955: l_msg_count := x_msg_count;
1956: WHILE l_msg_count > 0 LOOP
1955: l_msg_count := x_msg_count;
1956: WHILE l_msg_count > 0 LOOP
1957: x_msg_data := FND_MSG_PUB.GET
1958: ( l_msg_index,
1959: FND_API.G_FALSE
1960: );
1961: csi_ctr_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
1962: l_msg_index := l_msg_index + 1;
1963: l_msg_count := l_msg_count - 1;
1961: csi_ctr_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
1962: l_msg_index := l_msg_index + 1;
1963: l_msg_count := l_msg_count - 1;
1964: END LOOP;
1965: RAISE FND_API.G_EXC_ERROR;
1966: END IF;
1967: END IF;
1968: --
1969: BEGIN
2041: ,x_return_status => x_return_status
2042: ,x_msg_count => x_msg_count
2043: ,x_msg_data => x_msg_data
2044: );
2045: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
2046: csi_ctr_gen_utility_pvt.put_line('ERROR FROM Compute_Target_Counters API ');
2047: l_msg_index := 1;
2048: l_msg_count := x_msg_count;
2049: WHILE l_msg_count > 0 LOOP
2048: l_msg_count := x_msg_count;
2049: WHILE l_msg_count > 0 LOOP
2050: x_msg_data := FND_MSG_PUB.GET
2051: ( l_msg_index,
2052: FND_API.G_FALSE
2053: );
2054: csi_ctr_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
2055: l_msg_index := l_msg_index + 1;
2056: l_msg_count := l_msg_count - 1;
2054: csi_ctr_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
2055: l_msg_index := l_msg_index + 1;
2056: l_msg_count := l_msg_count - 1;
2057: END LOOP;
2058: RAISE FND_API.G_EXC_ERROR;
2059: END IF;
2060: END IF; -- l_target_ctr_exist check
2061: --
2062: -- Since Bi-Directional counter readings cannot impact Later readings no need to proceed further.
2081: -- Re-calculate the formula counters only if the subsequent net reading changes
2082: -- Re-calculate Target counters irrespective of net reading changes. *
2083: IF l_reading_type = 2 OR
2084: (p_ctr_rdg_rec.adjustment_reading IS NOT NULL AND
2085: p_ctr_rdg_rec.adjustment_reading <> FND_API.G_MISS_NUM AND
2086: p_ctr_rdg_rec.adjustment_reading <> 0) OR
2087: NVL(l_next_reset_mode,'X') = 'SOFT' THEN
2088: -- *
2089: csi_ctr_gen_utility_pvt.put_line('Re-calculating target counters');
2169: ,x_return_status => x_return_status
2170: ,x_msg_count => x_msg_count
2171: ,x_msg_data => x_msg_data
2172: );
2173: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
2174: csi_ctr_gen_utility_pvt.put_line('ERROR FROM Compute_Target_Counters API ');
2175: l_msg_index := 1;
2176: l_msg_count := x_msg_count;
2177: WHILE l_msg_count > 0 LOOP
2176: l_msg_count := x_msg_count;
2177: WHILE l_msg_count > 0 LOOP
2178: x_msg_data := FND_MSG_PUB.GET
2179: ( l_msg_index,
2180: FND_API.G_FALSE
2181: );
2182: csi_ctr_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
2183: l_msg_index := l_msg_index + 1;
2184: l_msg_count := l_msg_count - 1;
2182: csi_ctr_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
2183: l_msg_index := l_msg_index + 1;
2184: l_msg_count := l_msg_count - 1;
2185: END LOOP;
2186: RAISE FND_API.G_EXC_ERROR;
2187: END IF;
2188: END IF; -- End of Target counter call check
2189: --
2190: l_previous_rdg := later_rdg.counter_reading;
2239: ,x_return_status => x_return_status
2240: ,x_msg_count => x_msg_count
2241: ,x_msg_data => x_msg_data
2242: );
2243: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
2244: csi_ctr_gen_utility_pvt.put_line('ERROR FROM Compute_Target_Counters API ');
2245: l_msg_index := 1;
2246: l_msg_count := x_msg_count;
2247: WHILE l_msg_count > 0 LOOP
2246: l_msg_count := x_msg_count;
2247: WHILE l_msg_count > 0 LOOP
2248: x_msg_data := FND_MSG_PUB.GET
2249: ( l_msg_index,
2250: FND_API.G_FALSE
2251: );
2252: csi_ctr_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
2253: l_msg_index := l_msg_index + 1;
2254: l_msg_count := l_msg_count - 1;
2252: csi_ctr_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
2253: l_msg_index := l_msg_index + 1;
2254: l_msg_count := l_msg_count - 1;
2255: END LOOP;
2256: RAISE FND_API.G_EXC_ERROR;
2257: END IF;
2258: END IF; -- End of Target counter call check
2259: --
2260: l_previous_rdg := later_rdg.counter_reading;
2261: END LOOP;
2262: END IF; -- l_update_loop check
2263: END IF; -- Current counter reading not null check
2264: --
2265: IF NVL(p_ctr_rdg_rec.reset_mode,FND_API.G_MISS_CHAR) = 'SOFT' THEN
2266: -- Introduce a delay. Basically, value_timestamp of reset should be slightly > than the curr Reading
2267: -- For Reset Mode insert a separate record in CSI_COUNTER_READINGS with the Reset counter reading.
2268: -- Net and LTD readings are from the previous counter reading.
2269: -- If only Reset is performed then no need to introduce the delay.
2270: --
2271: l_reset_rdg_rec := l_temp_ctr_rdg_rec;
2272: --
2273:
2274: IF NVL(p_ctr_rdg_rec.counter_reading,FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM
2275: AND (p_ctr_rdg_rec.counter_reading <> p_ctr_rdg_rec.reset_counter_reading) THEN
2276: l_reset_timestamp := p_ctr_rdg_rec.value_timestamp + (1/(24*60*60)); -- Add 1 Sec
2277: ELSE -- Only Reset is performed
2278: l_reset_timestamp := p_ctr_rdg_rec.value_timestamp;
2291: --
2292: -- If counter reading had been captured along with the reset then net and ltd would take the
2293: -- calculated values stored in p_ctr_rdg_rec. Otherwise, use the previous values.
2294: --
2295: IF NVL(p_ctr_rdg_rec.net_reading,FND_API.G_MISS_NUM) = FND_API.G_MISS_NUM THEN
2296: l_reset_rdg_rec.net_reading := p_ctr_rdg_rec.reset_counter_reading;
2297: ELSE
2298: l_reset_rdg_rec.net_reading := p_ctr_rdg_rec.net_reading;
2299: END IF;
2296: l_reset_rdg_rec.net_reading := p_ctr_rdg_rec.reset_counter_reading;
2297: ELSE
2298: l_reset_rdg_rec.net_reading := p_ctr_rdg_rec.net_reading;
2299: END IF;
2300: IF NVL(p_ctr_rdg_rec.life_to_date_reading,FND_API.G_MISS_NUM) = FND_API.G_MISS_NUM THEN
2301: l_reset_rdg_rec.life_to_date_reading := l_prev_ltd_reading;
2302: ELSE
2303: l_reset_rdg_rec.life_to_date_reading := p_ctr_rdg_rec.life_to_date_reading;
2304: END IF;
2314: END LOOP;
2315: --
2316: -- If only Reset is captured then we need to pass the reset counter value_id to p_ctr_rdg_rec
2317: --
2318: IF NVL(p_ctr_rdg_rec.counter_value_id,FND_API.G_MISS_NUM) = FND_API.G_MISS_NUM THEN
2319: p_ctr_rdg_rec.counter_value_id := l_reset_rdg_rec.counter_value_id;
2320: END IF;
2321: -- Call the Table Handler to insert the Reset Reading into CSI_COUNTER_READINGS
2322: --
2386: --Add call to CSI_COUNTER_PVT.update_ctr_val_max_seq_no
2387: --for bug 7374316
2388: CSI_COUNTER_PVT.update_ctr_val_max_seq_no(
2389: p_api_version => 1.0
2390: ,p_commit => fnd_api.g_false
2391: ,p_init_msg_list => fnd_api.g_true
2392: ,p_validation_level => fnd_api.g_valid_level_full
2393: ,p_counter_id => l_reset_rdg_rec.counter_id
2394: ,px_ctr_val_max_seq_no => l_reset_rdg_rec.counter_value_id
2387: --for bug 7374316
2388: CSI_COUNTER_PVT.update_ctr_val_max_seq_no(
2389: p_api_version => 1.0
2390: ,p_commit => fnd_api.g_false
2391: ,p_init_msg_list => fnd_api.g_true
2392: ,p_validation_level => fnd_api.g_valid_level_full
2393: ,p_counter_id => l_reset_rdg_rec.counter_id
2394: ,px_ctr_val_max_seq_no => l_reset_rdg_rec.counter_value_id
2395: ,x_return_status => x_return_status
2388: CSI_COUNTER_PVT.update_ctr_val_max_seq_no(
2389: p_api_version => 1.0
2390: ,p_commit => fnd_api.g_false
2391: ,p_init_msg_list => fnd_api.g_true
2392: ,p_validation_level => fnd_api.g_valid_level_full
2393: ,p_counter_id => l_reset_rdg_rec.counter_id
2394: ,px_ctr_val_max_seq_no => l_reset_rdg_rec.counter_value_id
2395: ,x_return_status => x_return_status
2396: ,x_msg_count => x_msg_count
2395: ,x_return_status => x_return_status
2396: ,x_msg_count => x_msg_count
2397: ,x_msg_data => x_msg_data
2398: );
2399: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
2400: csi_ctr_gen_utility_pvt.put_line('ERROR FROM CSI_COUNTER_PVT.update_ctr_val_max_seq_no');
2401: l_msg_index := 1;
2402: l_msg_count := x_msg_count;
2403: WHILE l_msg_count > 0 LOOP
2402: l_msg_count := x_msg_count;
2403: WHILE l_msg_count > 0 LOOP
2404: x_msg_data := FND_MSG_PUB.GET
2405: ( l_msg_index,
2406: FND_API.G_FALSE
2407: );
2408: csi_ctr_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
2409: l_msg_index := l_msg_index + 1;
2410: l_msg_count := l_msg_count - 1;
2408: csi_ctr_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
2409: l_msg_index := l_msg_index + 1;
2410: l_msg_count := l_msg_count - 1;
2411: END LOOP;
2412: RAISE FND_API.G_EXC_ERROR;
2413: END IF;
2414: -- END IF;
2415: --
2416: --
2440: ,x_return_status => x_return_status
2441: ,x_msg_count => x_msg_count
2442: ,x_msg_data => x_msg_data
2443: );
2444: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
2445: csi_ctr_gen_utility_pvt.put_line('ERROR FROM Reset_Target_Counters API ');
2446: l_msg_index := 1;
2447: l_msg_count := x_msg_count;
2448: WHILE l_msg_count > 0 LOOP
2447: l_msg_count := x_msg_count;
2448: WHILE l_msg_count > 0 LOOP
2449: x_msg_data := FND_MSG_PUB.GET
2450: ( l_msg_index,
2451: FND_API.G_FALSE
2452: );
2453: csi_ctr_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
2454: l_msg_index := l_msg_index + 1;
2455: l_msg_count := l_msg_count - 1;
2453: csi_ctr_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
2454: l_msg_index := l_msg_index + 1;
2455: l_msg_count := l_msg_count - 1;
2456: END LOOP;
2457: RAISE FND_API.G_EXC_ERROR;
2458: END IF;
2459: END IF; -- Include Target Resets check
2460: --
2461: -- No need to compute Derived Filters for SOFT reset as it has the same net reading
2461: -- No need to compute Derived Filters for SOFT reset as it has the same net reading
2462: -- as the previous counter reading.
2463: END IF; -- Reset Mode check
2464: --
2465: IF FND_API.to_Boolean(nvl(p_commit,FND_API.G_FALSE)) THEN
2466: COMMIT WORK;
2467: END IF;
2468: --
2469: -- Standard call to get message count and IF count is get message info.
2472: p_data => x_msg_data
2473: );
2474: EXCEPTION
2475: WHEN Skip_Process THEN
2476: x_return_status := FND_API.G_RET_STS_SUCCESS;
2477: FND_MSG_PUB.Count_And_Get
2478: ( p_count => x_msg_count,
2479: p_data => x_msg_data
2480: );
2477: FND_MSG_PUB.Count_And_Get
2478: ( p_count => x_msg_count,
2479: p_data => x_msg_data
2480: );
2481: WHEN FND_API.G_EXC_ERROR THEN
2482: x_return_status := FND_API.G_RET_STS_ERROR ;
2483: ROLLBACK TO capture_counter_reading_pvt;
2484: FND_MSG_PUB.Count_And_Get
2485: ( p_count => x_msg_count,
2478: ( p_count => x_msg_count,
2479: p_data => x_msg_data
2480: );
2481: WHEN FND_API.G_EXC_ERROR THEN
2482: x_return_status := FND_API.G_RET_STS_ERROR ;
2483: ROLLBACK TO capture_counter_reading_pvt;
2484: FND_MSG_PUB.Count_And_Get
2485: ( p_count => x_msg_count,
2486: p_data => x_msg_data
2484: FND_MSG_PUB.Count_And_Get
2485: ( p_count => x_msg_count,
2486: p_data => x_msg_data
2487: );
2488: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2489: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2490: ROLLBACK TO capture_counter_reading_pvt;
2491: FND_MSG_PUB.Count_And_Get
2492: ( p_count => x_msg_count,
2485: ( p_count => x_msg_count,
2486: p_data => x_msg_data
2487: );
2488: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2489: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2490: ROLLBACK TO capture_counter_reading_pvt;
2491: FND_MSG_PUB.Count_And_Get
2492: ( p_count => x_msg_count,
2493: p_data => x_msg_data
2492: ( p_count => x_msg_count,
2493: p_data => x_msg_data
2494: );
2495: WHEN OTHERS THEN
2496: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2497: ROLLBACK TO capture_counter_reading_pvt;
2498: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2499: FND_MSG_PUB.Add_Exc_Msg
2500: ( G_PKG_NAME,
2582: BEGIN
2583: -- Standard Start of API savepoint
2584: SAVEPOINT compute_formula_counters;
2585: -- Standard call to check for call compatibility.
2586: IF NOT FND_API.Compatible_API_Call (l_api_version,
2587: p_api_version,
2588: l_api_name ,
2589: G_PKG_NAME ) THEN
2590: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2586: IF NOT FND_API.Compatible_API_Call (l_api_version,
2587: p_api_version,
2588: l_api_name ,
2589: G_PKG_NAME ) THEN
2590: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2591: END IF;
2592: -- Initialize message list if p_init_msg_list is set to TRUE.
2593: IF FND_API.to_Boolean(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
2594: FND_MSG_PUB.initialize;
2589: G_PKG_NAME ) THEN
2590: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2591: END IF;
2592: -- Initialize message list if p_init_msg_list is set to TRUE.
2593: IF FND_API.to_Boolean(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
2594: FND_MSG_PUB.initialize;
2595: END IF;
2596: -- Initialize API return status to success
2597: x_return_status := FND_API.G_RET_STS_SUCCESS;
2593: IF FND_API.to_Boolean(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
2594: FND_MSG_PUB.initialize;
2595: END IF;
2596: -- Initialize API return status to success
2597: x_return_status := FND_API.G_RET_STS_SUCCESS;
2598:
2599: -- Read the debug profiles values in to global variable 7197402
2600: CSI_CTR_GEN_UTILITY_PVT.read_debug_profiles;
2601: --
2600: CSI_CTR_GEN_UTILITY_PVT.read_debug_profiles;
2601: --
2602: csi_ctr_gen_utility_pvt.put_line( 'compute_formula_counters' ||'-'||
2603: p_api_version ||'-'||
2604: nvl(p_commit,FND_API.G_FALSE) ||'-'||
2605: nvl(p_init_msg_list,FND_API.G_FALSE) ||'-'||
2606: nvl(p_validation_level,FND_API.G_VALID_LEVEL_FULL) );
2607: --
2608: csi_ctr_gen_utility_pvt.dump_counter_readings_rec(p_ctr_rdg_rec);
2601: --
2602: csi_ctr_gen_utility_pvt.put_line( 'compute_formula_counters' ||'-'||
2603: p_api_version ||'-'||
2604: nvl(p_commit,FND_API.G_FALSE) ||'-'||
2605: nvl(p_init_msg_list,FND_API.G_FALSE) ||'-'||
2606: nvl(p_validation_level,FND_API.G_VALID_LEVEL_FULL) );
2607: --
2608: csi_ctr_gen_utility_pvt.dump_counter_readings_rec(p_ctr_rdg_rec);
2609: --
2602: csi_ctr_gen_utility_pvt.put_line( 'compute_formula_counters' ||'-'||
2603: p_api_version ||'-'||
2604: nvl(p_commit,FND_API.G_FALSE) ||'-'||
2605: nvl(p_init_msg_list,FND_API.G_FALSE) ||'-'||
2606: nvl(p_validation_level,FND_API.G_VALID_LEVEL_FULL) );
2607: --
2608: csi_ctr_gen_utility_pvt.dump_counter_readings_rec(p_ctr_rdg_rec);
2609: --
2610: IF p_txn_rec.transaction_type_id in (88,91,92,94,95) THEN
2613: l_mode := 'Counter';
2614: END IF;
2615: --
2616: IF p_ctr_rdg_rec.counter_id IS NULL OR
2617: p_ctr_rdg_rec.counter_id = FND_API.G_MISS_NUM THEN
2618: csi_ctr_gen_utility_pvt.ExitWithErrMsg
2619: ( p_msg_name => 'CSI_API_CTR_INVALID',
2620: p_token1_name => 'MODE',
2621: p_token1_val => l_mode
2622: );
2623: END IF;
2624: --
2625: IF p_ctr_rdg_rec.disabled_flag IS NULL OR
2626: p_ctr_rdg_rec.disabled_flag = FND_API.G_MISS_CHAR THEN
2627: l_disabled_flag := 'N';
2628: ELSE
2629: l_disabled_flag := p_ctr_rdg_rec.disabled_flag;
2630: END IF;
2803: --Add call to CSI_COUNTER_PVT.update_ctr_val_max_seq_no
2804: --for bug 7374316
2805: CSI_COUNTER_PVT.update_ctr_val_max_seq_no(
2806: p_api_version => 1.0
2807: ,p_commit => fnd_api.g_false
2808: ,p_init_msg_list => fnd_api.g_true
2809: ,p_validation_level => fnd_api.g_valid_level_full
2810: ,p_counter_id => obj_cur.object_counter_id
2811: ,px_ctr_val_max_seq_no => l_ctr_value_id
2804: --for bug 7374316
2805: CSI_COUNTER_PVT.update_ctr_val_max_seq_no(
2806: p_api_version => 1.0
2807: ,p_commit => fnd_api.g_false
2808: ,p_init_msg_list => fnd_api.g_true
2809: ,p_validation_level => fnd_api.g_valid_level_full
2810: ,p_counter_id => obj_cur.object_counter_id
2811: ,px_ctr_val_max_seq_no => l_ctr_value_id
2812: ,x_return_status => x_return_status
2805: CSI_COUNTER_PVT.update_ctr_val_max_seq_no(
2806: p_api_version => 1.0
2807: ,p_commit => fnd_api.g_false
2808: ,p_init_msg_list => fnd_api.g_true
2809: ,p_validation_level => fnd_api.g_valid_level_full
2810: ,p_counter_id => obj_cur.object_counter_id
2811: ,px_ctr_val_max_seq_no => l_ctr_value_id
2812: ,x_return_status => x_return_status
2813: ,x_msg_count => x_msg_count
2812: ,x_return_status => x_return_status
2813: ,x_msg_count => x_msg_count
2814: ,x_msg_data => x_msg_data
2815: );
2816: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
2817: csi_ctr_gen_utility_pvt.put_line('ERROR FROM CSI_COUNTER_PVT.update_ctr_val_max_seq_no');
2818: l_msg_index := 1;
2819: l_msg_count := x_msg_count;
2820: WHILE l_msg_count > 0 LOOP
2819: l_msg_count := x_msg_count;
2820: WHILE l_msg_count > 0 LOOP
2821: x_msg_data := FND_MSG_PUB.GET
2822: ( l_msg_index,
2823: FND_API.G_FALSE
2824: );
2825: csi_ctr_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
2826: l_msg_index := l_msg_index + 1;
2827: l_msg_count := l_msg_count - 1;
2825: csi_ctr_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
2826: l_msg_index := l_msg_index + 1;
2827: l_msg_count := l_msg_count - 1;
2828: END LOOP;
2829: RAISE FND_API.G_EXC_ERROR;
2830: END IF;
2831: ELSE
2832: --Add call to CSI_COUNTER_PVT.update_ctr_val_max_seq_no
2833: --for bug 7374316
2833: --for bug 7374316
2834: l_tmp_ctr_value_id := NULL;
2835: CSI_COUNTER_PVT.update_ctr_val_max_seq_no(
2836: p_api_version => 1.0
2837: ,p_commit => fnd_api.g_false
2838: ,p_init_msg_list => fnd_api.g_true
2839: ,p_validation_level => fnd_api.g_valid_level_full
2840: ,p_counter_id => obj_cur.object_counter_id
2841: ,px_ctr_val_max_seq_no => l_tmp_ctr_value_id
2834: l_tmp_ctr_value_id := NULL;
2835: CSI_COUNTER_PVT.update_ctr_val_max_seq_no(
2836: p_api_version => 1.0
2837: ,p_commit => fnd_api.g_false
2838: ,p_init_msg_list => fnd_api.g_true
2839: ,p_validation_level => fnd_api.g_valid_level_full
2840: ,p_counter_id => obj_cur.object_counter_id
2841: ,px_ctr_val_max_seq_no => l_tmp_ctr_value_id
2842: ,x_return_status => x_return_status
2835: CSI_COUNTER_PVT.update_ctr_val_max_seq_no(
2836: p_api_version => 1.0
2837: ,p_commit => fnd_api.g_false
2838: ,p_init_msg_list => fnd_api.g_true
2839: ,p_validation_level => fnd_api.g_valid_level_full
2840: ,p_counter_id => obj_cur.object_counter_id
2841: ,px_ctr_val_max_seq_no => l_tmp_ctr_value_id
2842: ,x_return_status => x_return_status
2843: ,x_msg_count => x_msg_count
2842: ,x_return_status => x_return_status
2843: ,x_msg_count => x_msg_count
2844: ,x_msg_data => x_msg_data
2845: );
2846: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
2847: csi_ctr_gen_utility_pvt.put_line('ERROR FROM CSI_COUNTER_PVT.update_ctr_val_max_seq_no');
2848: l_msg_index := 1;
2849: l_msg_count := x_msg_count;
2850: WHILE l_msg_count > 0 LOOP
2849: l_msg_count := x_msg_count;
2850: WHILE l_msg_count > 0 LOOP
2851: x_msg_data := FND_MSG_PUB.GET
2852: ( l_msg_index,
2853: FND_API.G_FALSE
2854: );
2855: csi_ctr_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
2856: l_msg_index := l_msg_index + 1;
2857: l_msg_count := l_msg_count - 1;
2855: csi_ctr_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
2856: l_msg_index := l_msg_index + 1;
2857: l_msg_count := l_msg_count - 1;
2858: END LOOP;
2859: RAISE FND_API.G_EXC_ERROR;
2860: END IF;
2861: END IF;
2862: ELSE -- If source counter is disabled then the corresponding formula counter reading is updated
2863: csi_ctr_gen_utility_pvt.put_line('Disabling Obj Ctr '||to_char(obj_cur.object_counter_id));
2876: --for bug 7374316
2877: l_tmp_ctr_value_id := NULL;
2878: CSI_COUNTER_PVT.update_ctr_val_max_seq_no(
2879: p_api_version => 1.0
2880: ,p_commit => fnd_api.g_false
2881: ,p_init_msg_list => fnd_api.g_true
2882: ,p_validation_level => fnd_api.g_valid_level_full
2883: ,p_counter_id => obj_cur.object_counter_id
2884: ,px_ctr_val_max_seq_no => l_tmp_ctr_value_id
2877: l_tmp_ctr_value_id := NULL;
2878: CSI_COUNTER_PVT.update_ctr_val_max_seq_no(
2879: p_api_version => 1.0
2880: ,p_commit => fnd_api.g_false
2881: ,p_init_msg_list => fnd_api.g_true
2882: ,p_validation_level => fnd_api.g_valid_level_full
2883: ,p_counter_id => obj_cur.object_counter_id
2884: ,px_ctr_val_max_seq_no => l_tmp_ctr_value_id
2885: ,x_return_status => x_return_status
2878: CSI_COUNTER_PVT.update_ctr_val_max_seq_no(
2879: p_api_version => 1.0
2880: ,p_commit => fnd_api.g_false
2881: ,p_init_msg_list => fnd_api.g_true
2882: ,p_validation_level => fnd_api.g_valid_level_full
2883: ,p_counter_id => obj_cur.object_counter_id
2884: ,px_ctr_val_max_seq_no => l_tmp_ctr_value_id
2885: ,x_return_status => x_return_status
2886: ,x_msg_count => x_msg_count
2885: ,x_return_status => x_return_status
2886: ,x_msg_count => x_msg_count
2887: ,x_msg_data => x_msg_data
2888: );
2889: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
2890: csi_ctr_gen_utility_pvt.put_line('ERROR FROM CSI_COUNTER_PVT.update_ctr_val_max_seq_no');
2891: l_msg_index := 1;
2892: l_msg_count := x_msg_count;
2893: WHILE l_msg_count > 0 LOOP
2892: l_msg_count := x_msg_count;
2893: WHILE l_msg_count > 0 LOOP
2894: x_msg_data := FND_MSG_PUB.GET
2895: ( l_msg_index,
2896: FND_API.G_FALSE
2897: );
2898: csi_ctr_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
2899: l_msg_index := l_msg_index + 1;
2900: l_msg_count := l_msg_count - 1;
2898: csi_ctr_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
2899: l_msg_index := l_msg_index + 1;
2900: l_msg_count := l_msg_count - 1;
2901: END LOOP;
2902: RAISE FND_API.G_EXC_ERROR;
2903: END IF;
2904: END IF;
2905: END IF; -- Check for disabled_flag
2906: --
2961: null;
2962: End;
2963: END LOOP; -- Obj Cursor
2964: --
2965: IF FND_API.to_Boolean(nvl(p_commit,FND_API.G_FALSE)) THEN
2966: COMMIT WORK;
2967: END IF;
2968: --
2969: -- Standard call to get message count and IF count is get message info.
2971: ( p_count => x_msg_count,
2972: p_data => x_msg_data
2973: );
2974: EXCEPTION
2975: WHEN FND_API.G_EXC_ERROR THEN
2976: x_return_status := FND_API.G_RET_STS_ERROR ;
2977: ROLLBACK TO compute_formula_counters;
2978: FND_MSG_PUB.Count_And_Get
2979: ( p_count => x_msg_count,
2972: p_data => x_msg_data
2973: );
2974: EXCEPTION
2975: WHEN FND_API.G_EXC_ERROR THEN
2976: x_return_status := FND_API.G_RET_STS_ERROR ;
2977: ROLLBACK TO compute_formula_counters;
2978: FND_MSG_PUB.Count_And_Get
2979: ( p_count => x_msg_count,
2980: p_data => x_msg_data
2978: FND_MSG_PUB.Count_And_Get
2979: ( p_count => x_msg_count,
2980: p_data => x_msg_data
2981: );
2982: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2983: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2984: ROLLBACK TO compute_formula_counters;
2985: FND_MSG_PUB.Count_And_Get
2986: ( p_count => x_msg_count,
2979: ( p_count => x_msg_count,
2980: p_data => x_msg_data
2981: );
2982: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2983: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2984: ROLLBACK TO compute_formula_counters;
2985: FND_MSG_PUB.Count_And_Get
2986: ( p_count => x_msg_count,
2987: p_data => x_msg_data
2986: ( p_count => x_msg_count,
2987: p_data => x_msg_data
2988: );
2989: WHEN OTHERS THEN
2990: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2991: ROLLBACK TO compute_formula_counters;
2992: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2993: FND_MSG_PUB.Add_Exc_Msg
2994: ( G_PKG_NAME,
3095: BEGIN
3096: -- Standard Start of API savepoint
3097: SAVEPOINT compute_derive_counters;
3098: -- Initialize message list if p_init_msg_list is set to TRUE.
3099: IF FND_API.to_Boolean(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
3100: FND_MSG_PUB.initialize;
3101: END IF;
3102: x_return_status := FND_API.G_RET_STS_SUCCESS;
3103: --
3098: -- Initialize message list if p_init_msg_list is set to TRUE.
3099: IF FND_API.to_Boolean(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
3100: FND_MSG_PUB.initialize;
3101: END IF;
3102: x_return_status := FND_API.G_RET_STS_SUCCESS;
3103: --
3104:
3105: -- Read the debug profiles values in to global variable 7197402
3106: CSI_CTR_GEN_UTILITY_PVT.read_debug_profiles;
3429: --Add call to CSI_COUNTER_PVT.update_ctr_val_max_seq_no
3430: --for bug 7374316
3431: CSI_COUNTER_PVT.update_ctr_val_max_seq_no(
3432: p_api_version => 1.0
3433: ,p_commit => fnd_api.g_false
3434: ,p_init_msg_list => fnd_api.g_true
3435: ,p_validation_level => fnd_api.g_valid_level_full
3436: ,p_counter_id => l_ctr_in.counter_id
3437: ,px_ctr_val_max_seq_no => l_ctr_value_id
3430: --for bug 7374316
3431: CSI_COUNTER_PVT.update_ctr_val_max_seq_no(
3432: p_api_version => 1.0
3433: ,p_commit => fnd_api.g_false
3434: ,p_init_msg_list => fnd_api.g_true
3435: ,p_validation_level => fnd_api.g_valid_level_full
3436: ,p_counter_id => l_ctr_in.counter_id
3437: ,px_ctr_val_max_seq_no => l_ctr_value_id
3438: ,x_return_status => x_return_status
3431: CSI_COUNTER_PVT.update_ctr_val_max_seq_no(
3432: p_api_version => 1.0
3433: ,p_commit => fnd_api.g_false
3434: ,p_init_msg_list => fnd_api.g_true
3435: ,p_validation_level => fnd_api.g_valid_level_full
3436: ,p_counter_id => l_ctr_in.counter_id
3437: ,px_ctr_val_max_seq_no => l_ctr_value_id
3438: ,x_return_status => x_return_status
3439: ,x_msg_count => x_msg_count
3438: ,x_return_status => x_return_status
3439: ,x_msg_count => x_msg_count
3440: ,x_msg_data => x_msg_data
3441: );
3442: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
3443: csi_ctr_gen_utility_pvt.put_line('ERROR FROM CSI_COUNTER_PVT.update_ctr_val_max_seq_no');
3444: l_msg_index := 1;
3445: l_msg_count := x_msg_count;
3446: WHILE l_msg_count > 0 LOOP
3445: l_msg_count := x_msg_count;
3446: WHILE l_msg_count > 0 LOOP
3447: x_msg_data := FND_MSG_PUB.GET
3448: ( l_msg_index,
3449: FND_API.G_FALSE
3450: );
3451: csi_ctr_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
3452: l_msg_index := l_msg_index + 1;
3453: l_msg_count := l_msg_count - 1;
3451: csi_ctr_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
3452: l_msg_index := l_msg_index + 1;
3453: l_msg_count := l_msg_count - 1;
3454: END LOOP;
3455: RAISE FND_API.G_EXC_ERROR;
3456: END IF;
3457: END IF; -- p_mode check
3458: ELSE
3459: csi_ctr_gen_utility_pvt.put_line('No derive filters computed for '||to_char(ctrs.counter_id));
3462: -- Start fix bug 6852415, part 3 of 3
3463: END LOOP;
3464: -- End fix bug 6852415, part 3 of 3
3465: EXCEPTION
3466: WHEN FND_API.G_EXC_ERROR THEN
3467: x_return_status := FND_API.G_RET_STS_ERROR ;
3468: ROLLBACK TO compute_derive_counters;
3469: FND_MSG_PUB.Count_And_Get
3470: ( p_count => x_msg_count,
3463: END LOOP;
3464: -- End fix bug 6852415, part 3 of 3
3465: EXCEPTION
3466: WHEN FND_API.G_EXC_ERROR THEN
3467: x_return_status := FND_API.G_RET_STS_ERROR ;
3468: ROLLBACK TO compute_derive_counters;
3469: FND_MSG_PUB.Count_And_Get
3470: ( p_count => x_msg_count,
3471: p_data => x_msg_data
3470: ( p_count => x_msg_count,
3471: p_data => x_msg_data
3472: );
3473: WHEN OTHERS THEN
3474: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3475: ROLLBACK TO compute_derive_counters;
3476: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3477: FND_MSG_PUB.Add_Exc_Msg
3478: ( G_PKG_NAME,
3576: BEGIN
3577: -- Standard Start of API savepoint
3578: SAVEPOINT compute_target_counters;
3579: -- Standard call to check for call compatibility.
3580: IF NOT FND_API.Compatible_API_Call (l_api_version,
3581: p_api_version,
3582: l_api_name ,
3583: G_PKG_NAME ) THEN
3584: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3580: IF NOT FND_API.Compatible_API_Call (l_api_version,
3581: p_api_version,
3582: l_api_name ,
3583: G_PKG_NAME ) THEN
3584: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3585: END IF;
3586: -- Initialize message list if p_init_msg_list is set to TRUE.
3587: IF FND_API.to_Boolean(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
3588: FND_MSG_PUB.initialize;
3583: G_PKG_NAME ) THEN
3584: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3585: END IF;
3586: -- Initialize message list if p_init_msg_list is set to TRUE.
3587: IF FND_API.to_Boolean(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
3588: FND_MSG_PUB.initialize;
3589: END IF;
3590: -- Initialize API return status to success
3591: x_return_status := FND_API.G_RET_STS_SUCCESS;
3587: IF FND_API.to_Boolean(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
3588: FND_MSG_PUB.initialize;
3589: END IF;
3590: -- Initialize API return status to success
3591: x_return_status := FND_API.G_RET_STS_SUCCESS;
3592: --
3593:
3594: -- Read the debug profiles values in to global variable 7197402
3595: CSI_CTR_GEN_UTILITY_PVT.read_debug_profiles;
3596:
3597: csi_ctr_gen_utility_pvt.put_line( 'compute_target_counters' ||'-'||
3598: p_api_version ||'-'||
3599: p_mode ||'-'||
3600: nvl(p_commit,FND_API.G_FALSE) ||'-'||
3601: nvl(p_init_msg_list,FND_API.G_FALSE) ||'-'||
3602: nvl(p_validation_level,FND_API.G_VALID_LEVEL_FULL) );
3603: --
3604: csi_ctr_gen_utility_pvt.dump_counter_readings_rec(p_ctr_rdg_rec);
3597: csi_ctr_gen_utility_pvt.put_line( 'compute_target_counters' ||'-'||
3598: p_api_version ||'-'||
3599: p_mode ||'-'||
3600: nvl(p_commit,FND_API.G_FALSE) ||'-'||
3601: nvl(p_init_msg_list,FND_API.G_FALSE) ||'-'||
3602: nvl(p_validation_level,FND_API.G_VALID_LEVEL_FULL) );
3603: --
3604: csi_ctr_gen_utility_pvt.dump_counter_readings_rec(p_ctr_rdg_rec);
3605: --
3598: p_api_version ||'-'||
3599: p_mode ||'-'||
3600: nvl(p_commit,FND_API.G_FALSE) ||'-'||
3601: nvl(p_init_msg_list,FND_API.G_FALSE) ||'-'||
3602: nvl(p_validation_level,FND_API.G_VALID_LEVEL_FULL) );
3603: --
3604: csi_ctr_gen_utility_pvt.dump_counter_readings_rec(p_ctr_rdg_rec);
3605: --
3606: IF p_txn_rec.transaction_type_id IN (88,91,92,94,95) THEN
3609: l_mode := 'Counter';
3610: END IF;
3611: --
3612: IF p_ctr_rdg_rec.counter_id IS NULL OR
3613: p_ctr_rdg_rec.counter_id = FND_API.G_MISS_NUM THEN
3614: csi_ctr_gen_utility_pvt.ExitWithErrMsg
3615: ( p_msg_name => 'CSI_API_CTR_INVALID',
3616: p_token1_name => 'MODE',
3617: p_token1_val => l_mode
3618: );
3619: END IF;
3620: --
3621: IF p_ctr_rdg_rec.value_timestamp IS NULL OR
3622: p_ctr_rdg_rec.value_timestamp = FND_API.G_MISS_DATE THEN
3623: csi_ctr_gen_utility_pvt.ExitWithErrMsg('CSI_API_CTR_INVALID_RDG_DATE');
3624: END IF;
3625: --
3626: -- Fundamental Assumption is, the direction of All Target counters should be same as the Source Counter
3938: CLOSE PREV_READING_CUR;
3939: --
3940: IF l_prev_ctr_reading IS NULL AND
3941: (p_ctr_rdg_rec.adjustment_type IS NOT NULL AND
3942: p_ctr_rdg_rec.adjustment_type <> FND_API.G_MISS_CHAR) THEN
3943: csi_ctr_gen_utility_pvt.put_line('First reading of this Target Counter '||
3944: to_char(obj_cur.object_counter_id)||' cannot be an Adjustment reading. Ingoring it..');
3945: Raise Process_next;
3946: END IF;
3958: IF obj_cur.reading_type = 1 THEN
3959: IF l_source_direction = 'A' AND obj_cur.direction = 'D' THEN
3960: IF nvl(l_prev_ctr_reading, 0) = 0 THEN
3961: l_counter_reading := ((p_ctr_rdg_rec.counter_reading * l_uom_rate) * obj_cur.factor) * -1;
3962: IF p_ctr_rdg_rec.adjustment_reading is not null and p_ctr_rdg_rec.adjustment_reading <> FND_API.G_MISS_NUM then
3963: l_ctr_rdg_rec.adjustment_reading := ((p_ctr_rdg_rec.adjustment_reading * l_uom_rate) * obj_cur.factor) * -1;
3964: END IF;
3965: ELSE
3966: IF l_prev_ctr_reading < 0 THEN
3965: ELSE
3966: IF l_prev_ctr_reading < 0 THEN
3967: l_counter_reading := ((l_prev_ctr_reading * -1) - (((p_ctr_rdg_rec.counter_reading * -1) * l_uom_rate) * obj_cur.factor));
3968: l_counter_reading := l_counter_reading * -1;
3969: IF p_ctr_rdg_rec.adjustment_reading is not null and p_ctr_rdg_rec.adjustment_reading <> FND_API.G_MISS_NUM then
3970: l_ctr_rdg_rec.adjustment_reading := (p_ctr_rdg_rec.adjustment_reading * l_uom_rate) * obj_cur.factor;
3971: l_ctr_rdg_rec.adjustment_reading := l_ctr_rdg_rec.adjustment_reading * -1;
3972: END IF;
3973: ELSE
3971: l_ctr_rdg_rec.adjustment_reading := l_ctr_rdg_rec.adjustment_reading * -1;
3972: END IF;
3973: ELSE
3974: l_counter_reading := nvl(l_prev_ctr_reading,0) - ((p_ctr_rdg_rec.counter_reading * l_uom_rate) * obj_cur.factor);
3975: IF p_ctr_rdg_rec.adjustment_reading is not null and p_ctr_rdg_rec.adjustment_reading <> FND_API.G_MISS_NUM then
3976: l_ctr_rdg_rec.adjustment_reading := (p_ctr_rdg_rec.adjustment_reading * l_uom_rate) * obj_cur.factor;
3977: END IF;
3978: END IF;
3979: END IF;
3988: IF l_counter_reading < 0 THEN
3989: l_counter_reading := l_counter_reading * -1;
3990: END IF;
3991:
3992: IF p_ctr_rdg_rec.adjustment_reading is not null and p_ctr_rdg_rec.adjustment_reading <> FND_API.G_MISS_NUM then
3993: l_ctr_rdg_rec.adjustment_reading := ((p_ctr_rdg_rec.adjustment_reading * l_uom_rate) * obj_cur.factor);
3994:
3995: IF l_ctr_rdg_rec.adjustment_reading < 0 THEN
3996: l_ctr_rdg_rec.adjustment_reading := l_ctr_rdg_rec.adjustment_reading * -1;
3997: END IF;
3998: END IF;
3999: ELSE
4000: l_counter_reading := nvl(l_prev_ctr_reading,0) + ((p_ctr_rdg_rec.counter_reading * l_uom_rate) * obj_cur.factor);
4001: IF p_ctr_rdg_rec.adjustment_reading is not null and p_ctr_rdg_rec.adjustment_reading <> FND_API.G_MISS_NUM then
4002: l_ctr_rdg_rec.adjustment_reading := (p_ctr_rdg_rec.adjustment_reading * l_uom_rate) * obj_cur.factor;
4003: END IF;
4004: END IF;
4005: END IF;
4006: csi_ctr_gen_utility_pvt.put_line('New target reading = '||to_char(l_counter_reading));
4007:
4008: IF obj_cur.direction = 'A' and l_source_direction = 'A' THEN
4009: l_counter_reading := nvl(l_prev_ctr_reading,0) + ((p_ctr_rdg_rec.counter_reading * l_uom_rate) * obj_cur.factor);
4010: IF p_ctr_rdg_rec.adjustment_reading is not null and p_ctr_rdg_rec.adjustment_reading <> FND_API.G_MISS_NUM then
4011: l_ctr_rdg_rec.adjustment_reading := (p_ctr_rdg_rec.adjustment_reading * l_uom_rate) * obj_cur.factor;
4012: END IF;
4013: ELSIF obj_cur.direction = 'D' and l_source_direction = 'D' THEN
4014: IF nvl(l_prev_ctr_reading, 0) = 0 THEN
4012: END IF;
4013: ELSIF obj_cur.direction = 'D' and l_source_direction = 'D' THEN
4014: IF nvl(l_prev_ctr_reading, 0) = 0 THEN
4015: l_counter_reading := ((p_ctr_rdg_rec.counter_reading * l_uom_rate) * obj_cur.factor);
4016: IF p_ctr_rdg_rec.adjustment_reading is not null and p_ctr_rdg_rec.adjustment_reading <> FND_API.G_MISS_NUM then
4017: l_ctr_rdg_rec.adjustment_reading := ((p_ctr_rdg_rec.adjustment_reading * l_uom_rate) * obj_cur.factor);
4018: END IF;
4019: ELSE
4020: IF l_prev_ctr_reading < 0 THEN
4019: ELSE
4020: IF l_prev_ctr_reading < 0 THEN
4021: l_counter_reading := ((l_prev_ctr_reading * -1) - ((p_ctr_rdg_rec.counter_reading * l_uom_rate) * obj_cur.factor));
4022: l_counter_reading := l_counter_reading * -1;
4023: IF p_ctr_rdg_rec.adjustment_reading is not null and p_ctr_rdg_rec.adjustment_reading <> FND_API.G_MISS_NUM then
4024: l_ctr_rdg_rec.adjustment_reading := (p_ctr_rdg_rec.adjustment_reading * l_uom_rate) * obj_cur.factor;
4025: l_ctr_rdg_rec.adjustment_reading := l_ctr_rdg_rec.adjustment_reading * -1;
4026: END IF;
4027: ELSE
4033: END IF;
4034: csi_ctr_gen_utility_pvt.put_line('New target reading = '||to_char(l_counter_reading));
4035: ELSIF obj_cur.direction = 'B' and l_source_direction = 'B' THEN
4036: l_counter_reading := nvl(l_prev_ctr_reading,0) + ((p_ctr_rdg_rec.counter_reading * l_uom_rate) * obj_cur.factor);
4037: IF p_ctr_rdg_rec.adjustment_reading is not null and p_ctr_rdg_rec.adjustment_reading <> FND_API.G_MISS_NUM then
4038: l_ctr_rdg_rec.adjustment_reading := (p_ctr_rdg_rec.adjustment_reading * l_uom_rate) * obj_cur.factor;
4039: END IF;
4040: END IF;
4041: ELSE
4039: END IF;
4040: END IF;
4041: ELSE
4042: l_counter_reading := (p_ctr_rdg_rec.counter_reading * l_uom_rate) * obj_cur.factor;
4043: IF p_ctr_rdg_rec.adjustment_reading is not null and p_ctr_rdg_rec.adjustment_reading <> FND_API.G_MISS_NUM then
4044: l_ctr_rdg_rec.adjustment_reading := (p_ctr_rdg_rec.adjustment_reading * l_uom_rate) * obj_cur.factor;
4045: END IF;
4046: END IF;
4047:
4101: csi_ctr_gen_utility_pvt.put_line('Calling Insert Meter Log...');
4102: Eam_Asset_Log_Pvt.Insert_Meter_Log
4103: (
4104: P_api_version => 1.0,
4105: P_init_msg_list => fnd_api.g_false,
4106: P_commit => fnd_api.g_false,
4107: P_validation_level => fnd_api.g_valid_level_full,
4108: P_event_date => l_ctr_rdg_rec.value_timestamp,
4109: P_instance_id => l_instance_id,
4102: Eam_Asset_Log_Pvt.Insert_Meter_Log
4103: (
4104: P_api_version => 1.0,
4105: P_init_msg_list => fnd_api.g_false,
4106: P_commit => fnd_api.g_false,
4107: P_validation_level => fnd_api.g_valid_level_full,
4108: P_event_date => l_ctr_rdg_rec.value_timestamp,
4109: P_instance_id => l_instance_id,
4110: P_ref_id => l_ctr_rdg_rec.counter_id,
4103: (
4104: P_api_version => 1.0,
4105: P_init_msg_list => fnd_api.g_false,
4106: P_commit => fnd_api.g_false,
4107: P_validation_level => fnd_api.g_valid_level_full,
4108: P_event_date => l_ctr_rdg_rec.value_timestamp,
4109: P_instance_id => l_instance_id,
4110: P_ref_id => l_ctr_rdg_rec.counter_id,
4111: X_return_status => x_return_status,
4114: );
4115: -- Since this is only for logging we are ignoring the x_return_status.
4116: -- Just report the API error and proceed.
4117: --
4118: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
4119: csi_ctr_gen_utility_pvt.put_line('ERROR FROM Insert_Meter_Log API ');
4120: l_msg_index := 1;
4121: l_msg_count := x_msg_count;
4122: WHILE l_msg_count > 0 LOOP
4121: l_msg_count := x_msg_count;
4122: WHILE l_msg_count > 0 LOOP
4123: x_msg_data := FND_MSG_PUB.GET
4124: ( l_msg_index,
4125: FND_API.G_FALSE
4126: );
4127: csi_ctr_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
4128: l_msg_index := l_msg_index + 1;
4129: l_msg_count := l_msg_count - 1;
4143: X_return_status => x_return_status,
4144: X_msg_count => x_msg_count,
4145: X_msg_data => x_msg_data
4146: );
4147: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
4148: csi_ctr_gen_utility_pvt.put_line('ERROR FROM Update_Last_Service_Reading_Wo API ');
4149: l_msg_index := 1;
4150: l_msg_count := x_msg_count;
4151: WHILE l_msg_count > 0 LOOP
4150: l_msg_count := x_msg_count;
4151: WHILE l_msg_count > 0 LOOP
4152: x_msg_data := FND_MSG_PUB.GET
4153: ( l_msg_index,
4154: FND_API.G_FALSE
4155: );
4156: csi_ctr_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
4157: l_msg_index := l_msg_index + 1;
4158: l_msg_count := l_msg_count - 1;
4156: csi_ctr_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
4157: l_msg_index := l_msg_index + 1;
4158: l_msg_count := l_msg_count - 1;
4159: END LOOP;
4160: RAISE FND_API.G_EXC_ERROR;
4161: END IF;
4162: END IF; -- Call Update_Last_Service_Reading_WO check
4163:
4164: --
4237: --Add call to CSI_COUNTER_PVT.update_ctr_val_max_seq_no
4238: --for bug 7374316
4239: CSI_COUNTER_PVT.update_ctr_val_max_seq_no(
4240: p_api_version => 1.0
4241: ,p_commit => fnd_api.g_false
4242: ,p_init_msg_list => fnd_api.g_true
4243: ,p_validation_level => fnd_api.g_valid_level_full
4244: ,p_counter_id => l_ctr_rdg_rec.counter_id
4245: ,px_ctr_val_max_seq_no => l_ctr_rdg_rec.counter_value_id
4238: --for bug 7374316
4239: CSI_COUNTER_PVT.update_ctr_val_max_seq_no(
4240: p_api_version => 1.0
4241: ,p_commit => fnd_api.g_false
4242: ,p_init_msg_list => fnd_api.g_true
4243: ,p_validation_level => fnd_api.g_valid_level_full
4244: ,p_counter_id => l_ctr_rdg_rec.counter_id
4245: ,px_ctr_val_max_seq_no => l_ctr_rdg_rec.counter_value_id
4246: ,x_return_status => x_return_status
4239: CSI_COUNTER_PVT.update_ctr_val_max_seq_no(
4240: p_api_version => 1.0
4241: ,p_commit => fnd_api.g_false
4242: ,p_init_msg_list => fnd_api.g_true
4243: ,p_validation_level => fnd_api.g_valid_level_full
4244: ,p_counter_id => l_ctr_rdg_rec.counter_id
4245: ,px_ctr_val_max_seq_no => l_ctr_rdg_rec.counter_value_id
4246: ,x_return_status => x_return_status
4247: ,x_msg_count => x_msg_count
4246: ,x_return_status => x_return_status
4247: ,x_msg_count => x_msg_count
4248: ,x_msg_data => x_msg_data
4249: );
4250: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
4251: csi_ctr_gen_utility_pvt.put_line('ERROR FROM CSI_COUNTER_PVT.update_ctr_val_max_seq_no');
4252: l_msg_index := 1;
4253: l_msg_count := x_msg_count;
4254: WHILE l_msg_count > 0 LOOP
4253: l_msg_count := x_msg_count;
4254: WHILE l_msg_count > 0 LOOP
4255: x_msg_data := FND_MSG_PUB.GET
4256: ( l_msg_index,
4257: FND_API.G_FALSE
4258: );
4259: csi_ctr_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
4260: l_msg_index := l_msg_index + 1;
4261: l_msg_count := l_msg_count - 1;
4259: csi_ctr_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
4260: l_msg_index := l_msg_index + 1;
4261: l_msg_count := l_msg_count - 1;
4262: END LOOP;
4263: RAISE FND_API.G_EXC_ERROR;
4264: END IF;
4265: Exception
4266: when Process_next then
4267: null;
4268: End;
4269: END LOOP; -- Obj Cursor
4270: END IF; -- p_mode check
4271: --
4272: IF FND_API.to_Boolean(nvl(p_commit,FND_API.G_FALSE)) THEN
4273: COMMIT WORK;
4274: END IF;
4275: --
4276: -- Standard call to get message count and IF count is get message info.
4278: ( p_count => x_msg_count,
4279: p_data => x_msg_data
4280: );
4281: EXCEPTION
4282: WHEN FND_API.G_EXC_ERROR THEN
4283: x_return_status := FND_API.G_RET_STS_ERROR ;
4284: ROLLBACK TO compute_target_counters;
4285: FND_MSG_PUB.Count_And_Get
4286: ( p_count => x_msg_count,
4279: p_data => x_msg_data
4280: );
4281: EXCEPTION
4282: WHEN FND_API.G_EXC_ERROR THEN
4283: x_return_status := FND_API.G_RET_STS_ERROR ;
4284: ROLLBACK TO compute_target_counters;
4285: FND_MSG_PUB.Count_And_Get
4286: ( p_count => x_msg_count,
4287: p_data => x_msg_data
4285: FND_MSG_PUB.Count_And_Get
4286: ( p_count => x_msg_count,
4287: p_data => x_msg_data
4288: );
4289: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4290: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4291: ROLLBACK TO compute_target_counters;
4292: FND_MSG_PUB.Count_And_Get
4293: ( p_count => x_msg_count,
4286: ( p_count => x_msg_count,
4287: p_data => x_msg_data
4288: );
4289: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4290: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4291: ROLLBACK TO compute_target_counters;
4292: FND_MSG_PUB.Count_And_Get
4293: ( p_count => x_msg_count,
4294: p_data => x_msg_data
4293: ( p_count => x_msg_count,
4294: p_data => x_msg_data
4295: );
4296: WHEN OTHERS THEN
4297: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4298: ROLLBACK TO compute_target_counters;
4299: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4300: FND_MSG_PUB.Add_Exc_Msg
4301: ( G_PKG_NAME,
4405: BEGIN
4406: -- Standard Start of API savepoint
4407: SAVEPOINT update_counter_reading_pvt;
4408: -- Standard call to check for call compatibility.
4409: IF NOT FND_API.Compatible_API_Call (l_api_version,
4410: p_api_version,
4411: l_api_name ,
4412: G_PKG_NAME ) THEN
4413: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4409: IF NOT FND_API.Compatible_API_Call (l_api_version,
4410: p_api_version,
4411: l_api_name ,
4412: G_PKG_NAME ) THEN
4413: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4414: END IF;
4415: -- Initialize message list if p_init_msg_list is set to TRUE.
4416: IF FND_API.to_Boolean(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
4417: FND_MSG_PUB.initialize;
4412: G_PKG_NAME ) THEN
4413: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4414: END IF;
4415: -- Initialize message list if p_init_msg_list is set to TRUE.
4416: IF FND_API.to_Boolean(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
4417: FND_MSG_PUB.initialize;
4418: END IF;
4419: -- Initialize API return status to success
4420: x_return_status := FND_API.G_RET_STS_SUCCESS;
4416: IF FND_API.to_Boolean(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
4417: FND_MSG_PUB.initialize;
4418: END IF;
4419: -- Initialize API return status to success
4420: x_return_status := FND_API.G_RET_STS_SUCCESS;
4421: --
4422:
4423: -- Read the debug profiles values in to global variable 7197402
4424: CSI_CTR_GEN_UTILITY_PVT.read_debug_profiles;
4424: CSI_CTR_GEN_UTILITY_PVT.read_debug_profiles;
4425:
4426: csi_ctr_gen_utility_pvt.put_line( 'update_counter_reading_pvt' ||'-'||
4427: p_api_version ||'-'||
4428: nvl(p_commit,FND_API.G_FALSE) ||'-'||
4429: nvl(p_init_msg_list,FND_API.G_FALSE) ||'-'||
4430: nvl(p_validation_level,FND_API.G_VALID_LEVEL_FULL) );
4431: --
4432: IF NVL(p_ctr_rdg_rec.counter_value_id,FND_API.G_MISS_NUM) = FND_API.G_MISS_NUM THEN
4425:
4426: csi_ctr_gen_utility_pvt.put_line( 'update_counter_reading_pvt' ||'-'||
4427: p_api_version ||'-'||
4428: nvl(p_commit,FND_API.G_FALSE) ||'-'||
4429: nvl(p_init_msg_list,FND_API.G_FALSE) ||'-'||
4430: nvl(p_validation_level,FND_API.G_VALID_LEVEL_FULL) );
4431: --
4432: IF NVL(p_ctr_rdg_rec.counter_value_id,FND_API.G_MISS_NUM) = FND_API.G_MISS_NUM THEN
4433: csi_ctr_gen_utility_pvt.put_line('Invalid Counter Value ID...');
4426: csi_ctr_gen_utility_pvt.put_line( 'update_counter_reading_pvt' ||'-'||
4427: p_api_version ||'-'||
4428: nvl(p_commit,FND_API.G_FALSE) ||'-'||
4429: nvl(p_init_msg_list,FND_API.G_FALSE) ||'-'||
4430: nvl(p_validation_level,FND_API.G_VALID_LEVEL_FULL) );
4431: --
4432: IF NVL(p_ctr_rdg_rec.counter_value_id,FND_API.G_MISS_NUM) = FND_API.G_MISS_NUM THEN
4433: csi_ctr_gen_utility_pvt.put_line('Invalid Counter Value ID...');
4434: csi_ctr_gen_utility_pvt.ExitWithErrMsg('CSI_API_CTR_VALUE_ID_MISS');
4428: nvl(p_commit,FND_API.G_FALSE) ||'-'||
4429: nvl(p_init_msg_list,FND_API.G_FALSE) ||'-'||
4430: nvl(p_validation_level,FND_API.G_VALID_LEVEL_FULL) );
4431: --
4432: IF NVL(p_ctr_rdg_rec.counter_value_id,FND_API.G_MISS_NUM) = FND_API.G_MISS_NUM THEN
4433: csi_ctr_gen_utility_pvt.put_line('Invalid Counter Value ID...');
4434: csi_ctr_gen_utility_pvt.ExitWithErrMsg('CSI_API_CTR_VALUE_ID_MISS');
4435: ELSE
4436: OPEN CURRENT_READING_CUR(p_ctr_rdg_rec.counter_value_id);
4744: --Add call to CSI_COUNTER_PVT.update_ctr_val_max_seq_no
4745: --for bug 7374316
4746: CSI_COUNTER_PVT.update_ctr_val_max_seq_no(
4747: p_api_version => 1.0
4748: ,p_commit => fnd_api.g_false
4749: ,p_init_msg_list => fnd_api.g_true
4750: ,p_validation_level => fnd_api.g_valid_level_full
4751: ,p_counter_id => p_ctr_rdg_rec.counter_id
4752: ,px_ctr_val_max_seq_no => l_ctr_val_max_seq_no
4745: --for bug 7374316
4746: CSI_COUNTER_PVT.update_ctr_val_max_seq_no(
4747: p_api_version => 1.0
4748: ,p_commit => fnd_api.g_false
4749: ,p_init_msg_list => fnd_api.g_true
4750: ,p_validation_level => fnd_api.g_valid_level_full
4751: ,p_counter_id => p_ctr_rdg_rec.counter_id
4752: ,px_ctr_val_max_seq_no => l_ctr_val_max_seq_no
4753: ,x_return_status => x_return_status
4746: CSI_COUNTER_PVT.update_ctr_val_max_seq_no(
4747: p_api_version => 1.0
4748: ,p_commit => fnd_api.g_false
4749: ,p_init_msg_list => fnd_api.g_true
4750: ,p_validation_level => fnd_api.g_valid_level_full
4751: ,p_counter_id => p_ctr_rdg_rec.counter_id
4752: ,px_ctr_val_max_seq_no => l_ctr_val_max_seq_no
4753: ,x_return_status => x_return_status
4754: ,x_msg_count => x_msg_count
4754: ,x_msg_count => x_msg_count
4755: ,x_msg_data => x_msg_data
4756: );
4757:
4758: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
4759: l_msg_index := 1;
4760: l_msg_count := x_msg_count;
4761: WHILE l_msg_count > 0 LOOP
4762: x_msg_data := FND_MSG_PUB.GET
4760: l_msg_count := x_msg_count;
4761: WHILE l_msg_count > 0 LOOP
4762: x_msg_data := FND_MSG_PUB.GET
4763: (l_msg_index,
4764: FND_API.G_FALSE
4765: );
4766: csi_ctr_gen_utility_pvt.put_line('ERROR FROM CSI_COUNTER_PVT.update_ctr_val_max_seq_no');
4767: csi_ctr_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
4768: l_msg_index := l_msg_index + 1;
4767: csi_ctr_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
4768: l_msg_index := l_msg_index + 1;
4769: l_msg_count := l_msg_count - 1;
4770: END LOOP;
4771: RAISE FND_API.G_EXC_ERROR;
4772: END IF;
4773: END IF;
4774: --
4775: Disable_Target_Derive_Rdg
4775: Disable_Target_Derive_Rdg
4776: ( p_src_counter_value_id => p_ctr_rdg_rec.counter_value_id,
4777: x_return_status => x_return_status
4778: );
4779: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
4780: csi_ctr_gen_utility_pvt.put_line('ERROR FROM Disable_Target_Derive_Rdg API ');
4781: RAISE FND_API.G_EXC_ERROR;
4782: END IF;
4783: --
4777: x_return_status => x_return_status
4778: );
4779: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
4780: csi_ctr_gen_utility_pvt.put_line('ERROR FROM Disable_Target_Derive_Rdg API ');
4781: RAISE FND_API.G_EXC_ERROR;
4782: END IF;
4783: --
4784: -- Following variables will be set inside the loop
4785: l_previous_rdg := l_prev_ctr_reading;
4912: ,x_return_status => x_return_status
4913: ,x_msg_count => x_msg_count
4914: ,x_msg_data => x_msg_data
4915: );
4916: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
4917: l_msg_index := 1;
4918: l_msg_count := x_msg_count;
4919: WHILE l_msg_count > 0 LOOP
4920: x_msg_data := FND_MSG_PUB.GET
4918: l_msg_count := x_msg_count;
4919: WHILE l_msg_count > 0 LOOP
4920: x_msg_data := FND_MSG_PUB.GET
4921: ( l_msg_index,
4922: FND_API.G_FALSE
4923: );
4924: csi_ctr_gen_utility_pvt.put_line('ERROR FROM Compute_Target_Counters API ');
4925: csi_ctr_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
4926: l_msg_index := l_msg_index + 1;
4925: csi_ctr_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
4926: l_msg_index := l_msg_index + 1;
4927: l_msg_count := l_msg_count - 1;
4928: END LOOP;
4929: RAISE FND_API.G_EXC_ERROR;
4930: END IF;
4931: END IF; -- Target Counter call check
4932: --
4933: -- Re-compute Derive comunters.
4954: ,x_return_status => x_return_status
4955: ,x_msg_count => x_msg_count
4956: ,x_msg_data => x_msg_data
4957: );
4958: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
4959: csi_ctr_gen_utility_pvt.put_line('ERROR FROM Compute_Derive_Counters API ');
4960: l_msg_index := 1;
4961: l_msg_count := x_msg_count;
4962: WHILE l_msg_count > 0 LOOP
4961: l_msg_count := x_msg_count;
4962: WHILE l_msg_count > 0 LOOP
4963: x_msg_data := FND_MSG_PUB.GET
4964: ( l_msg_index,
4965: FND_API.G_FALSE
4966: );
4967: csi_ctr_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
4968: l_msg_index := l_msg_index + 1;
4969: l_msg_count := l_msg_count - 1;
4967: csi_ctr_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
4968: l_msg_index := l_msg_index + 1;
4969: l_msg_count := l_msg_count - 1;
4970: END LOOP;
4971: RAISE FND_API.G_EXC_ERROR;
4972: END IF;
4973: END IF; -- Derive Counters call check
4974: --
4975: l_previous_rdg := later_rdg.counter_reading;
5026: ,x_return_status => x_return_status
5027: ,x_msg_count => x_msg_count
5028: ,x_msg_data => x_msg_data
5029: );
5030: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
5031: l_msg_index := 1;
5032: l_msg_count := x_msg_count;
5033: WHILE l_msg_count > 0 LOOP
5034: x_msg_data := FND_MSG_PUB.GET
5032: l_msg_count := x_msg_count;
5033: WHILE l_msg_count > 0 LOOP
5034: x_msg_data := FND_MSG_PUB.GET
5035: ( l_msg_index,
5036: FND_API.G_FALSE
5037: );
5038: csi_ctr_gen_utility_pvt.put_line('ERROR FROM Compute_Target_Counters API ');
5039: csi_ctr_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
5040: l_msg_index := l_msg_index + 1;
5039: csi_ctr_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
5040: l_msg_index := l_msg_index + 1;
5041: l_msg_count := l_msg_count - 1;
5042: END LOOP;
5043: RAISE FND_API.G_EXC_ERROR;
5044: END IF;
5045: END IF; -- Target counter call check
5046: --
5047: -- Re-Compute Derive Counters
5066: ,x_return_status => x_return_status
5067: ,x_msg_count => x_msg_count
5068: ,x_msg_data => x_msg_data
5069: );
5070: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
5071: l_msg_index := 1;
5072: l_msg_count := x_msg_count;
5073: WHILE l_msg_count > 0 LOOP
5074: x_msg_data := FND_MSG_PUB.GET
5072: l_msg_count := x_msg_count;
5073: WHILE l_msg_count > 0 LOOP
5074: x_msg_data := FND_MSG_PUB.GET
5075: ( l_msg_index,
5076: FND_API.G_FALSE
5077: );
5078: csi_ctr_gen_utility_pvt.put_line('ERROR FROM Compute_Derive_Counters API ');
5079: csi_ctr_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
5080: l_msg_index := l_msg_index + 1;
5079: csi_ctr_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
5080: l_msg_index := l_msg_index + 1;
5081: l_msg_count := l_msg_count - 1;
5082: END LOOP;
5083: RAISE FND_API.G_EXC_ERROR;
5084: END IF;
5085: END IF; -- Derive counters call check
5086: --
5087: l_previous_rdg := later_rdg.counter_reading;
5114: ,x_return_status => x_return_status
5115: ,x_msg_count => x_msg_count
5116: ,x_msg_data => x_msg_data
5117: );
5118: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
5119: l_msg_index := 1;
5120: l_msg_count := x_msg_count;
5121: WHILE l_msg_count > 0 LOOP
5122: x_msg_data := FND_MSG_PUB.GET
5120: l_msg_count := x_msg_count;
5121: WHILE l_msg_count > 0 LOOP
5122: x_msg_data := FND_MSG_PUB.GET
5123: ( l_msg_index,
5124: FND_API.G_FALSE
5125: );
5126: csi_ctr_gen_utility_pvt.put_line('ERROR FROM Compute_Derive_Counters API ');
5127: csi_ctr_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
5128: l_msg_index := l_msg_index + 1;
5127: csi_ctr_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
5128: l_msg_index := l_msg_index + 1;
5129: l_msg_count := l_msg_count - 1;
5130: END LOOP;
5131: RAISE FND_API.G_EXC_ERROR;
5132: END IF;
5133: END IF; -- Derive counters call check
5134: END LOOP;
5135: END IF; -- l_direction check
5151: ,x_return_status => x_return_status
5152: ,x_msg_count => x_msg_count
5153: ,x_msg_data => x_msg_data
5154: );
5155: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
5156: csi_ctr_gen_utility_pvt.put_line('Error from Compute_Formula_Counters API...');
5157: l_msg_index := 1;
5158: l_msg_count := x_msg_count;
5159: WHILE l_msg_count > 0 LOOP
5158: l_msg_count := x_msg_count;
5159: WHILE l_msg_count > 0 LOOP
5160: x_msg_data := FND_MSG_PUB.GET
5161: ( l_msg_index,
5162: FND_API.G_FALSE
5163: );
5164: csi_ctr_gen_utility_pvt.put_line('ERROR FROM Compute_Formula_Counters API ');
5165: csi_ctr_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
5166: l_msg_index := l_msg_index + 1;
5165: csi_ctr_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
5166: l_msg_index := l_msg_index + 1;
5167: l_msg_count := l_msg_count - 1;
5168: END LOOP;
5169: RAISE FND_API.G_EXC_ERROR;
5170: END IF;
5171: --
5172: IF FND_API.to_Boolean(nvl(p_commit,FND_API.G_FALSE)) THEN
5173: COMMIT WORK;
5168: END LOOP;
5169: RAISE FND_API.G_EXC_ERROR;
5170: END IF;
5171: --
5172: IF FND_API.to_Boolean(nvl(p_commit,FND_API.G_FALSE)) THEN
5173: COMMIT WORK;
5174: END IF;
5175: --
5176: -- Standard call to get message count and IF count is get message info.
5178: ( p_count => x_msg_count,
5179: p_data => x_msg_data
5180: );
5181: EXCEPTION
5182: WHEN FND_API.G_EXC_ERROR THEN
5183: x_return_status := FND_API.G_RET_STS_ERROR ;
5184: ROLLBACK TO update_counter_reading_pvt;
5185: FND_MSG_PUB.Count_And_Get
5186: ( p_count => x_msg_count,
5179: p_data => x_msg_data
5180: );
5181: EXCEPTION
5182: WHEN FND_API.G_EXC_ERROR THEN
5183: x_return_status := FND_API.G_RET_STS_ERROR ;
5184: ROLLBACK TO update_counter_reading_pvt;
5185: FND_MSG_PUB.Count_And_Get
5186: ( p_count => x_msg_count,
5187: p_data => x_msg_data
5185: FND_MSG_PUB.Count_And_Get
5186: ( p_count => x_msg_count,
5187: p_data => x_msg_data
5188: );
5189: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5190: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5191: ROLLBACK TO update_counter_reading_pvt;
5192: FND_MSG_PUB.Count_And_Get
5193: ( p_count => x_msg_count,
5186: ( p_count => x_msg_count,
5187: p_data => x_msg_data
5188: );
5189: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5190: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5191: ROLLBACK TO update_counter_reading_pvt;
5192: FND_MSG_PUB.Count_And_Get
5193: ( p_count => x_msg_count,
5194: p_data => x_msg_data
5193: ( p_count => x_msg_count,
5194: p_data => x_msg_data
5195: );
5196: WHEN OTHERS THEN
5197: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5198: ROLLBACK TO update_counter_reading_pvt;
5199: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
5200: FND_MSG_PUB.Add_Exc_Msg
5201: ( G_PKG_NAME,
5242: BEGIN
5243: -- Standard Start of API savepoint
5244: SAVEPOINT capture_ctr_property_reading;
5245: -- Standard call to check for call compatibility.
5246: IF NOT FND_API.Compatible_API_Call (l_api_version,
5247: p_api_version,
5248: l_api_name ,
5249: G_PKG_NAME ) THEN
5250: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5246: IF NOT FND_API.Compatible_API_Call (l_api_version,
5247: p_api_version,
5248: l_api_name ,
5249: G_PKG_NAME ) THEN
5250: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5251: END IF;
5252: -- Initialize message list if p_init_msg_list is set to TRUE.
5253: IF FND_API.to_Boolean(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
5254: FND_MSG_PUB.initialize;
5249: G_PKG_NAME ) THEN
5250: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5251: END IF;
5252: -- Initialize message list if p_init_msg_list is set to TRUE.
5253: IF FND_API.to_Boolean(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
5254: FND_MSG_PUB.initialize;
5255: END IF;
5256: -- Initialize API return status to success
5257: x_return_status := FND_API.G_RET_STS_SUCCESS;
5253: IF FND_API.to_Boolean(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
5254: FND_MSG_PUB.initialize;
5255: END IF;
5256: -- Initialize API return status to success
5257: x_return_status := FND_API.G_RET_STS_SUCCESS;
5258: --
5259:
5260: -- Read the debug profiles values in to global variable 7197402
5261: CSI_CTR_GEN_UTILITY_PVT.read_debug_profiles;
5261: CSI_CTR_GEN_UTILITY_PVT.read_debug_profiles;
5262:
5263: csi_ctr_gen_utility_pvt.put_line( 'capture_ctr_property_reading' ||'-'||
5264: p_api_version ||'-'||
5265: nvl(p_commit,FND_API.G_FALSE) ||'-'||
5266: nvl(p_init_msg_list,FND_API.G_FALSE) ||'-'||
5267: nvl(p_validation_level,FND_API.G_VALID_LEVEL_FULL) );
5268: --
5269: IF p_ctr_prop_rdg_rec.counter_value_id IS NULL OR
5262:
5263: csi_ctr_gen_utility_pvt.put_line( 'capture_ctr_property_reading' ||'-'||
5264: p_api_version ||'-'||
5265: nvl(p_commit,FND_API.G_FALSE) ||'-'||
5266: nvl(p_init_msg_list,FND_API.G_FALSE) ||'-'||
5267: nvl(p_validation_level,FND_API.G_VALID_LEVEL_FULL) );
5268: --
5269: IF p_ctr_prop_rdg_rec.counter_value_id IS NULL OR
5270: p_ctr_prop_rdg_rec.counter_value_id = FND_API.G_MISS_NUM THEN
5263: csi_ctr_gen_utility_pvt.put_line( 'capture_ctr_property_reading' ||'-'||
5264: p_api_version ||'-'||
5265: nvl(p_commit,FND_API.G_FALSE) ||'-'||
5266: nvl(p_init_msg_list,FND_API.G_FALSE) ||'-'||
5267: nvl(p_validation_level,FND_API.G_VALID_LEVEL_FULL) );
5268: --
5269: IF p_ctr_prop_rdg_rec.counter_value_id IS NULL OR
5270: p_ctr_prop_rdg_rec.counter_value_id = FND_API.G_MISS_NUM THEN
5271: csi_ctr_gen_utility_pvt.ExitWithErrMsg('CSI_API_CTR_VALUE_ID_MISS');
5266: nvl(p_init_msg_list,FND_API.G_FALSE) ||'-'||
5267: nvl(p_validation_level,FND_API.G_VALID_LEVEL_FULL) );
5268: --
5269: IF p_ctr_prop_rdg_rec.counter_value_id IS NULL OR
5270: p_ctr_prop_rdg_rec.counter_value_id = FND_API.G_MISS_NUM THEN
5271: csi_ctr_gen_utility_pvt.ExitWithErrMsg('CSI_API_CTR_VALUE_ID_MISS');
5272: END IF;
5273: --
5274: IF p_ctr_prop_rdg_rec.counter_property_id IS NULL OR
5271: csi_ctr_gen_utility_pvt.ExitWithErrMsg('CSI_API_CTR_VALUE_ID_MISS');
5272: END IF;
5273: --
5274: IF p_ctr_prop_rdg_rec.counter_property_id IS NULL OR
5275: p_ctr_prop_rdg_rec.counter_property_id = FND_API.G_MISS_NUM THEN
5276: csi_ctr_gen_utility_pvt.ExitWithErrMsg('CSI_API_CTR_PROP_INVALID');
5277: END IF;
5278: --
5279: IF p_ctr_prop_rdg_rec.value_timestamp IS NULL OR
5276: csi_ctr_gen_utility_pvt.ExitWithErrMsg('CSI_API_CTR_PROP_INVALID');
5277: END IF;
5278: --
5279: IF p_ctr_prop_rdg_rec.value_timestamp IS NULL OR
5280: p_ctr_prop_rdg_rec.value_timestamp = FND_API.G_MISS_DATE THEN
5281: csi_ctr_gen_utility_pvt.ExitWithErrMsg('CSI_API_CTR_INVALID_RDG_DATE');
5282: END IF;
5283: --
5284: Begin
5294: End;
5295: --
5296: IF l_is_nullable <> 'Y' THEN
5297: IF p_ctr_prop_rdg_rec.property_value IS NULL OR
5298: p_ctr_prop_rdg_rec.property_value = FND_API.G_MISS_CHAR THEN
5299: csi_ctr_gen_utility_pvt.ExitWithErrMsg('CSI_API_CTR_PROP_VALUE_MISSING');
5300: END IF;
5301: END IF;
5302: --
5364: END IF;
5365: --
5366: -- Generate Counter_Prop_Value_id
5367: IF p_ctr_prop_rdg_rec.counter_prop_value_id IS NULL OR
5368: p_ctr_prop_rdg_rec.counter_prop_value_id = FND_API.G_MISS_NUM THEN
5369: WHILE l_process_flag LOOP
5370: select CSI_CTR_PROPERTY_READINGS_S.nextval
5371: into p_ctr_prop_rdg_rec.counter_prop_value_id from dual;
5372: IF NOT Counter_Prop_Value_Exists(p_ctr_prop_rdg_rec.counter_prop_value_id) THEN
5415: ,p_ATTRIBUTE_CATEGORY => p_ctr_prop_rdg_rec.attribute_category
5416: ,p_MIGRATED_FLAG => 'N'
5417: );
5418: --
5419: IF FND_API.to_Boolean(nvl(p_commit,FND_API.G_FALSE)) THEN
5420: COMMIT WORK;
5421: END IF;
5422: --
5423: -- Standard call to get message count and IF count is get message info.
5425: ( p_count => x_msg_count,
5426: p_data => x_msg_data
5427: );
5428: EXCEPTION
5429: WHEN FND_API.G_EXC_ERROR THEN
5430: x_return_status := FND_API.G_RET_STS_ERROR ;
5431: ROLLBACK TO capture_ctr_property_reading;
5432: FND_MSG_PUB.Count_And_Get
5433: ( p_count => x_msg_count,
5426: p_data => x_msg_data
5427: );
5428: EXCEPTION
5429: WHEN FND_API.G_EXC_ERROR THEN
5430: x_return_status := FND_API.G_RET_STS_ERROR ;
5431: ROLLBACK TO capture_ctr_property_reading;
5432: FND_MSG_PUB.Count_And_Get
5433: ( p_count => x_msg_count,
5434: p_data => x_msg_data
5432: FND_MSG_PUB.Count_And_Get
5433: ( p_count => x_msg_count,
5434: p_data => x_msg_data
5435: );
5436: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5437: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5438: ROLLBACK TO capture_ctr_property_reading;
5439: FND_MSG_PUB.Count_And_Get
5440: ( p_count => x_msg_count,
5433: ( p_count => x_msg_count,
5434: p_data => x_msg_data
5435: );
5436: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5437: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5438: ROLLBACK TO capture_ctr_property_reading;
5439: FND_MSG_PUB.Count_And_Get
5440: ( p_count => x_msg_count,
5441: p_data => x_msg_data
5440: ( p_count => x_msg_count,
5441: p_data => x_msg_data
5442: );
5443: WHEN OTHERS THEN
5444: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5445: ROLLBACK TO capture_ctr_property_reading;
5446: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
5447: FND_MSG_PUB.Add_Exc_Msg
5448: ( G_PKG_NAME,
5545: l_calc_start_rdg NUMBER;
5546: BEGIN
5547: SAVEPOINT ESTIMATE_START_READINGS;
5548: -- Initialize message list if p_init_msg_list is set to TRUE.
5549: IF FND_API.to_Boolean( p_init_msg_list ) THEN
5550: FND_MSG_PUB.initialize;
5551: END IF;
5552: -- Initialize API return status to SUCCESS
5553: x_return_status := FND_API.G_RET_STS_SUCCESS;
5549: IF FND_API.to_Boolean( p_init_msg_list ) THEN
5550: FND_MSG_PUB.initialize;
5551: END IF;
5552: -- Initialize API return status to SUCCESS
5553: x_return_status := FND_API.G_RET_STS_SUCCESS;
5554: --
5555:
5556: -- Read the debug profiles values in to global variable 7197402
5557: CSI_CTR_GEN_UTILITY_PVT.read_debug_profiles;
5619: ELSE --_calculation_start_rdg not null
5620: x_calc_start_reading := round(l_calculation_start_rdg);
5621: END IF; --l_calculation_start_rdg null
5622: --
5623: IF FND_API.to_Boolean(nvl(p_commit,FND_API.G_FALSE)) THEN
5624: COMMIT WORK;
5625: END IF;
5626: --
5627: -- Standard call to get message count and IF count is get message info.
5630: p_data => x_msg_data
5631: );
5632:
5633: EXCEPTION
5634: WHEN FND_API.G_EXC_ERROR THEN
5635: ROLLBACK TO ESTIMATE_START_READINGS;
5636: x_return_status := FND_API.G_RET_STS_ERROR ;
5637: FND_MSG_PUB.Count_And_Get
5638: (p_count => x_msg_count,
5632:
5633: EXCEPTION
5634: WHEN FND_API.G_EXC_ERROR THEN
5635: ROLLBACK TO ESTIMATE_START_READINGS;
5636: x_return_status := FND_API.G_RET_STS_ERROR ;
5637: FND_MSG_PUB.Count_And_Get
5638: (p_count => x_msg_count,
5639: p_data => x_msg_data
5640: );
5637: FND_MSG_PUB.Count_And_Get
5638: (p_count => x_msg_count,
5639: p_data => x_msg_data
5640: );
5641: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5642: ROLLBACK TO ESTIMATE_START_READINGS;
5643: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5644: FND_MSG_PUB.Count_And_Get
5645: (
5639: p_data => x_msg_data
5640: );
5641: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5642: ROLLBACK TO ESTIMATE_START_READINGS;
5643: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5644: FND_MSG_PUB.Count_And_Get
5645: (
5646: p_count => x_msg_count,
5647: p_data => x_msg_data
5646: p_count => x_msg_count,
5647: p_data => x_msg_data
5648: );
5649: WHEN OTHERS THEN
5650: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5651: ROLLBACK TO ESTIMATE_START_READINGS;
5652: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
5653: FND_MSG_PUB.Add_Exc_Msg
5654: ( G_PKG_NAME,
5746: l_avg_calc_start_rdg NUMBER;
5747: BEGIN
5748: SAVEPOINT EST_PERIOD_START_READINGS;
5749: -- Initialize message list if p_init_msg_list is set to TRUE.
5750: IF FND_API.to_Boolean( p_init_msg_list ) THEN
5751: FND_MSG_PUB.initialize;
5752: END IF;
5753: -- Initialize API return status to SUCCESS
5754: x_return_status := FND_API.G_RET_STS_SUCCESS;
5750: IF FND_API.to_Boolean( p_init_msg_list ) THEN
5751: FND_MSG_PUB.initialize;
5752: END IF;
5753: -- Initialize API return status to SUCCESS
5754: x_return_status := FND_API.G_RET_STS_SUCCESS;
5755: --
5756: -- Read the debug profiles values in to global variable 7197402
5757: CSI_CTR_GEN_UTILITY_PVT.read_debug_profiles;
5758:
5757: CSI_CTR_GEN_UTILITY_PVT.read_debug_profiles;
5758:
5759: csi_ctr_gen_utility_pvt.put_line( 'Inside Est_Period_Start_Readings...');
5760: --
5761: IF FND_API.to_Boolean(nvl(p_commit,FND_API.G_FALSE)) THEN
5762: COMMIT WORK;
5763: END IF;
5764: --
5765: -- fetch the reading of the passed avg calculation start date
5828: X_Return_Status => X_Return_Status,
5829: X_Msg_Count => X_Msg_Count,
5830: X_Msg_Data => X_Msg_Data
5831: );
5832: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5833: csi_ctr_gen_utility_pvt.put_line('ERROR FROM Estimate_Start_Readings API ');
5834: l_msg_index := 1;
5835: l_msg_count := x_msg_count;
5836: WHILE l_msg_count > 0 LOOP
5835: l_msg_count := x_msg_count;
5836: WHILE l_msg_count > 0 LOOP
5837: x_msg_data := FND_MSG_PUB.GET
5838: ( l_msg_index,
5839: FND_API.G_FALSE
5840: );
5841: csi_ctr_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
5842: l_msg_index := l_msg_index + 1;
5843: l_msg_count := l_msg_count - 1;
5841: csi_ctr_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
5842: l_msg_index := l_msg_index + 1;
5843: l_msg_count := l_msg_count - 1;
5844: END LOOP;
5845: RAISE FND_API.G_EXC_ERROR;
5846: END IF;
5847: --
5848: OPEN PRIOR_RDG_VALUES(p_counter_id,p_calculation_start_date);
5849: FETCH PRIOR_RDG_VALUES
5898: p_data => x_msg_data
5899: );
5900:
5901: EXCEPTION
5902: WHEN FND_API.G_EXC_ERROR THEN
5903: ROLLBACK TO EST_PERIOD_START_READINGS;
5904: x_return_status := FND_API.G_RET_STS_ERROR ;
5905: FND_MSG_PUB.Count_And_Get
5906: (p_count => x_msg_count,
5900:
5901: EXCEPTION
5902: WHEN FND_API.G_EXC_ERROR THEN
5903: ROLLBACK TO EST_PERIOD_START_READINGS;
5904: x_return_status := FND_API.G_RET_STS_ERROR ;
5905: FND_MSG_PUB.Count_And_Get
5906: (p_count => x_msg_count,
5907: p_data => x_msg_data
5908: );
5905: FND_MSG_PUB.Count_And_Get
5906: (p_count => x_msg_count,
5907: p_data => x_msg_data
5908: );
5909: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5910: ROLLBACK TO EST_PERIOD_START_READINGS;
5911: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5912: FND_MSG_PUB.Count_And_Get
5913: (
5907: p_data => x_msg_data
5908: );
5909: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5910: ROLLBACK TO EST_PERIOD_START_READINGS;
5911: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5912: FND_MSG_PUB.Count_And_Get
5913: (
5914: p_count => x_msg_count,
5915: p_data => x_msg_data
5914: p_count => x_msg_count,
5915: p_data => x_msg_data
5916: );
5917: WHEN OTHERS THEN
5918: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5919: ROLLBACK TO EST_PERIOD_START_READINGS;
5920: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
5921: FND_MSG_PUB.Add_Exc_Msg
5922: ( G_PKG_NAME,
6027: lprdst_num_value_timestamp date;
6028: BEGIN
6029: SAVEPOINT ESTIMATE_USAGE;
6030: -- Initialize message list if p_init_msg_list is set to TRUE.
6031: IF FND_API.to_Boolean( p_init_msg_list ) THEN
6032: FND_MSG_PUB.initialize;
6033: END IF;
6034: -- Initialize API return status to SUCCESS
6035: x_return_status := FND_API.G_RET_STS_SUCCESS;
6031: IF FND_API.to_Boolean( p_init_msg_list ) THEN
6032: FND_MSG_PUB.initialize;
6033: END IF;
6034: -- Initialize API return status to SUCCESS
6035: x_return_status := FND_API.G_RET_STS_SUCCESS;
6036: --
6037:
6038: -- Read the debug profiles values in to global variable 7197402
6039: CSI_CTR_GEN_UTILITY_PVT.read_debug_profiles;
6054: X_Return_Status => X_Return_Status,
6055: X_Msg_Count => X_Msg_Count,
6056: X_Msg_Data => X_Msg_Data
6057: );
6058: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
6059: l_msg_index := 1;
6060: l_msg_count := x_msg_count;
6061: WHILE l_msg_count > 0 LOOP
6062: x_msg_data := FND_MSG_PUB.GET
6060: l_msg_count := x_msg_count;
6061: WHILE l_msg_count > 0 LOOP
6062: x_msg_data := FND_MSG_PUB.GET
6063: ( l_msg_index,
6064: FND_API.G_FALSE
6065: );
6066: csi_ctr_gen_utility_pvt.put_line('ERROR FROM Estimate_Start_Readings API ');
6067: csi_ctr_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
6068: l_msg_index := l_msg_index + 1;
6067: csi_ctr_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
6068: l_msg_index := l_msg_index + 1;
6069: l_msg_count := l_msg_count - 1;
6070: END LOOP;
6071: RAISE FND_API.G_EXC_ERROR;
6072: END IF;
6073: END IF;
6074:
6075: IF p_estimation_period_start_date IS NOT NULL THEN
6087: X_Return_Status => X_Return_Status,
6088: X_Msg_Count => X_Msg_Count,
6089: X_Msg_Data => X_Msg_Data
6090: );
6091: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
6092: l_msg_index := 1;
6093: l_msg_count := x_msg_count;
6094: WHILE l_msg_count > 0 LOOP
6095: x_msg_data := FND_MSG_PUB.GET
6093: l_msg_count := x_msg_count;
6094: WHILE l_msg_count > 0 LOOP
6095: x_msg_data := FND_MSG_PUB.GET
6096: ( l_msg_index,
6097: FND_API.G_FALSE
6098: );
6099: csi_ctr_gen_utility_pvt.put_line('ERROR FROM Est_Period_Start_Readings API ');
6100: csi_ctr_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
6101: l_msg_index := l_msg_index + 1;
6100: csi_ctr_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
6101: l_msg_index := l_msg_index + 1;
6102: l_msg_count := l_msg_count - 1;
6103: END LOOP;
6104: RAISE FND_API.G_EXC_ERROR;
6105: END IF;
6106: END IF;
6107: -- estimation usage calculation
6108: -- fetch the reading of the passed estimation period end date
6333: x_estimated_meter_reading := round(l_estimated_meter_rdg);
6334: x_estimated_usage_qty := abs(round(l_estimated_usage));
6335: x_estimated_period_start_rdg := l_period_start_reading;
6336: --
6337: IF FND_API.to_Boolean(nvl(p_commit,FND_API.G_FALSE)) THEN
6338: COMMIT WORK;
6339: END IF;
6340: --
6341: -- Standard call to get message count and IF count is get message info.
6344: p_data => x_msg_data
6345: );
6346:
6347: EXCEPTION
6348: WHEN FND_API.G_EXC_ERROR THEN
6349: ROLLBACK TO ESTIMATE_USAGE;
6350: x_return_status := FND_API.G_RET_STS_ERROR ;
6351: FND_MSG_PUB.Count_And_Get
6352: (p_count => x_msg_count,
6346:
6347: EXCEPTION
6348: WHEN FND_API.G_EXC_ERROR THEN
6349: ROLLBACK TO ESTIMATE_USAGE;
6350: x_return_status := FND_API.G_RET_STS_ERROR ;
6351: FND_MSG_PUB.Count_And_Get
6352: (p_count => x_msg_count,
6353: p_data => x_msg_data
6354: );
6351: FND_MSG_PUB.Count_And_Get
6352: (p_count => x_msg_count,
6353: p_data => x_msg_data
6354: );
6355: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6356: ROLLBACK TO ESTIMATE_USAGE;
6357: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6358: FND_MSG_PUB.Count_And_Get
6359: (
6353: p_data => x_msg_data
6354: );
6355: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6356: ROLLBACK TO ESTIMATE_USAGE;
6357: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6358: FND_MSG_PUB.Count_And_Get
6359: (
6360: p_count => x_msg_count,
6361: p_data => x_msg_data
6360: p_count => x_msg_count,
6361: p_data => x_msg_data
6362: );
6363: WHEN OTHERS THEN
6364: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6365: ROLLBACK TO ESTIMATE_USAGE;
6366: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
6367: FND_MSG_PUB.Add_Exc_Msg
6368: ( G_PKG_NAME,
6450: l_ctr_val_id NUMBER;
6451: BEGIN
6452: SAVEPOINT ESTIMATE_COUNTER_READING;
6453: -- Initialize message list if p_init_msg_list is set to TRUE.
6454: IF FND_API.to_Boolean( p_init_msg_list ) THEN
6455: FND_MSG_PUB.initialize;
6456: END IF;
6457: -- Initialize API return status to SUCCESS
6458: x_return_status := FND_API.G_RET_STS_SUCCESS;
6454: IF FND_API.to_Boolean( p_init_msg_list ) THEN
6455: FND_MSG_PUB.initialize;
6456: END IF;
6457: -- Initialize API return status to SUCCESS
6458: x_return_status := FND_API.G_RET_STS_SUCCESS;
6459: --
6460: -- Read the debug profiles values in to global variable 7197402
6461: CSI_CTR_GEN_UTILITY_PVT.read_debug_profiles;
6462:
6462:
6463: csi_ctr_gen_utility_pvt.put_line( 'Inside Estimate_Counter_Reading...');
6464: --
6465: -- Standard call to check for call compatibility.
6466: IF NOT FND_API.Compatible_API_Call (l_api_version,
6467: p_api_version,
6468: l_api_name ,
6469: G_PKG_NAME ) THEN
6470: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6466: IF NOT FND_API.Compatible_API_Call (l_api_version,
6467: p_api_version,
6468: l_api_name ,
6469: G_PKG_NAME ) THEN
6470: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6471: END IF;
6472: --
6473: IF p_counter_id IS NULL or p_estimation_period_end_date IS NULL THEN
6474: csi_ctr_gen_utility_pvt.ExitWithErrMsg
6559: X_Return_Status => X_Return_Status,
6560: X_Msg_Count => X_Msg_Count,
6561: X_Msg_Data => X_Msg_Data
6562: );
6563: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6564: csi_ctr_gen_utility_pvt.put_line('ERROR FROM Estimate_fixed_values API ');
6565: l_msg_index := 1;
6566: l_msg_count := x_msg_count;
6567: WHILE l_msg_count > 0 LOOP
6566: l_msg_count := x_msg_count;
6567: WHILE l_msg_count > 0 LOOP
6568: x_msg_data := FND_MSG_PUB.GET
6569: ( l_msg_index,
6570: FND_API.G_FALSE
6571: );
6572: csi_ctr_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
6573: l_msg_index := l_msg_index + 1;
6574: l_msg_count := l_msg_count - 1;
6572: csi_ctr_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
6573: l_msg_index := l_msg_index + 1;
6574: l_msg_count := l_msg_count - 1;
6575: END LOOP;
6576: RAISE FND_API.G_EXC_ERROR;
6577: END IF;
6578:
6579: ELSIF l_est_rec.estimation_type = 'USAGE' THEN
6580: /********************
6600: X_Return_Status => X_Return_Status,
6601: X_Msg_Count => X_Msg_Count,
6602: X_Msg_Data => X_Msg_Data
6603: );
6604: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6605: csi_ctr_gen_utility_pvt.put_line('ERROR FROM Estimate_Usage API ');
6606: l_msg_index := 1;
6607: l_msg_count := x_msg_count;
6608: WHILE l_msg_count > 0 LOOP
6607: l_msg_count := x_msg_count;
6608: WHILE l_msg_count > 0 LOOP
6609: x_msg_data := FND_MSG_PUB.GET
6610: ( l_msg_index,
6611: FND_API.G_FALSE
6612: );
6613: csi_ctr_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
6614: l_msg_index := l_msg_index + 1;
6615: l_msg_count := l_msg_count - 1;
6613: csi_ctr_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
6614: l_msg_index := l_msg_index + 1;
6615: l_msg_count := l_msg_count - 1;
6616: END LOOP;
6617: RAISE FND_API.G_EXC_ERROR;
6618: END IF;
6619: ELSIF l_est_rec.estimation_type = 'REFCTR' THEN
6620: /********************
6621: Compute Usage of indirect counter Estimation
6652: X_Return_Status => X_Return_Status,
6653: X_Msg_Count => X_Msg_Count,
6654: X_Msg_Data => X_Msg_Data
6655: );
6656: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6657: csi_ctr_gen_utility_pvt.put_line('ERROR FROM Estimate_Usage API ');
6658: l_msg_index := 1;
6659: l_msg_count := x_msg_count;
6660: WHILE l_msg_count > 0 LOOP
6659: l_msg_count := x_msg_count;
6660: WHILE l_msg_count > 0 LOOP
6661: x_msg_data := FND_MSG_PUB.GET
6662: ( l_msg_index,
6663: FND_API.G_FALSE
6664: );
6665: csi_ctr_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
6666: l_msg_index := l_msg_index + 1;
6667: l_msg_count := l_msg_count - 1;
6665: csi_ctr_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
6666: l_msg_index := l_msg_index + 1;
6667: l_msg_count := l_msg_count - 1;
6668: END LOOP;
6669: RAISE FND_API.G_EXC_ERROR;
6670: END IF;
6671: END IF;
6672: --
6673: -- Generate the Value_id for insert
6716: ,p_OBJECT_VERSION_NUMBER => 1
6717: ,p_MIGRATED_FLAG => 'N'
6718: );
6719: --
6720: IF FND_API.to_Boolean(nvl(p_commit,FND_API.G_FALSE)) THEN
6721: COMMIT WORK;
6722: END IF;
6723: --
6724: -- Standard call to get message count and IF count is get message info.
6727: p_data => x_msg_data
6728: );
6729:
6730: EXCEPTION
6731: WHEN FND_API.G_EXC_ERROR THEN
6732: ROLLBACK TO ESTIMATE_COUNTER_READING;
6733: x_return_status := FND_API.G_RET_STS_ERROR ;
6734: FND_MSG_PUB.Count_And_Get
6735: (p_count => x_msg_count,
6729:
6730: EXCEPTION
6731: WHEN FND_API.G_EXC_ERROR THEN
6732: ROLLBACK TO ESTIMATE_COUNTER_READING;
6733: x_return_status := FND_API.G_RET_STS_ERROR ;
6734: FND_MSG_PUB.Count_And_Get
6735: (p_count => x_msg_count,
6736: p_data => x_msg_data
6737: );
6734: FND_MSG_PUB.Count_And_Get
6735: (p_count => x_msg_count,
6736: p_data => x_msg_data
6737: );
6738: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6739: ROLLBACK TO ESTIMATE_COUNTER_READING;
6740: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6741: FND_MSG_PUB.Count_And_Get
6742: (
6736: p_data => x_msg_data
6737: );
6738: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6739: ROLLBACK TO ESTIMATE_COUNTER_READING;
6740: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6741: FND_MSG_PUB.Count_And_Get
6742: (
6743: p_count => x_msg_count,
6744: p_data => x_msg_data
6743: p_count => x_msg_count,
6744: p_data => x_msg_data
6745: );
6746: WHEN OTHERS THEN
6747: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6748: ROLLBACK TO ESTIMATE_COUNTER_READING;
6749: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
6750: FND_MSG_PUB.Add_Exc_Msg
6751: ( G_PKG_NAME,
6814: l_estimated_usage NUMBER;
6815: BEGIN
6816: SAVEPOINT ESTIMATE_FIXED_VALUES;
6817: -- Initialize message list if p_init_msg_list is set to TRUE.
6818: IF FND_API.to_Boolean( p_init_msg_list ) THEN
6819: FND_MSG_PUB.initialize;
6820: END IF;
6821: -- Initialize API return status to SUCCESS
6822: x_return_status := FND_API.G_RET_STS_SUCCESS;
6818: IF FND_API.to_Boolean( p_init_msg_list ) THEN
6819: FND_MSG_PUB.initialize;
6820: END IF;
6821: -- Initialize API return status to SUCCESS
6822: x_return_status := FND_API.G_RET_STS_SUCCESS;
6823: --
6824: csi_ctr_gen_utility_pvt.put_line( 'Inside Estimate_Fixed_Values...');
6825: --
6826:
6827: -- Read the debug profiles values in to global variable 7197402
6828: CSI_CTR_GEN_UTILITY_PVT.read_debug_profiles;
6829:
6830: -- Standard call to check for call compatibility.
6831: IF NOT FND_API.Compatible_API_Call (l_api_version,
6832: p_api_version,
6833: l_api_name ,
6834: G_PKG_NAME ) THEN
6835: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6831: IF NOT FND_API.Compatible_API_Call (l_api_version,
6832: p_api_version,
6833: l_api_name ,
6834: G_PKG_NAME ) THEN
6835: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6836: END IF;
6837: --
6838: IF p_estimation_period_start_date IS NOT NULL THEN
6839: csi_ctr_gen_utility_pvt.put_line('Calling Est_Period_Start_Readings...');
6850: X_Return_Status => X_Return_Status,
6851: X_Msg_Count => X_Msg_Count,
6852: X_Msg_Data => X_Msg_Data
6853: );
6854: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6855: csi_ctr_gen_utility_pvt.put_line('ERROR FROM Est_Period_Start_Readings API ');
6856: l_msg_index := 1;
6857: l_msg_count := x_msg_count;
6858: WHILE l_msg_count > 0 LOOP
6857: l_msg_count := x_msg_count;
6858: WHILE l_msg_count > 0 LOOP
6859: x_msg_data := FND_MSG_PUB.GET
6860: ( l_msg_index,
6861: FND_API.G_FALSE
6862: );
6863: csi_ctr_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
6864: l_msg_index := l_msg_index + 1;
6865: l_msg_count := l_msg_count - 1;
6863: csi_ctr_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
6864: l_msg_index := l_msg_index + 1;
6865: l_msg_count := l_msg_count - 1;
6866: END LOOP;
6867: RAISE FND_API.G_EXC_ERROR;
6868: END IF;
6869: END IF;
6870: -- fetch the reading of the passed estimation period end date
6871: OPEN PASSED_DT_RDG_VALUES(p_counter_id, p_estimation_period_end_date);
6894: --
6895: X_estimated_usage_qty := l_estimated_usage;
6896: x_estimated_period_start_rdg := l_period_start_reading;
6897: --
6898: IF FND_API.to_Boolean(nvl(p_commit,FND_API.G_FALSE)) THEN
6899: COMMIT WORK;
6900: END IF;
6901: --
6902: -- Standard call to get message count and IF count is get message info.
6905: p_data => x_msg_data
6906: );
6907:
6908: EXCEPTION
6909: WHEN FND_API.G_EXC_ERROR THEN
6910: ROLLBACK TO ESTIMATE_FIXED_VALUES;
6911: x_return_status := FND_API.G_RET_STS_ERROR ;
6912: FND_MSG_PUB.Count_And_Get
6913: (p_count => x_msg_count,
6907:
6908: EXCEPTION
6909: WHEN FND_API.G_EXC_ERROR THEN
6910: ROLLBACK TO ESTIMATE_FIXED_VALUES;
6911: x_return_status := FND_API.G_RET_STS_ERROR ;
6912: FND_MSG_PUB.Count_And_Get
6913: (p_count => x_msg_count,
6914: p_data => x_msg_data
6915: );
6912: FND_MSG_PUB.Count_And_Get
6913: (p_count => x_msg_count,
6914: p_data => x_msg_data
6915: );
6916: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6917: ROLLBACK TO ESTIMATE_FIXED_VALUES;
6918: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6919: FND_MSG_PUB.Count_And_Get
6920: (
6914: p_data => x_msg_data
6915: );
6916: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6917: ROLLBACK TO ESTIMATE_FIXED_VALUES;
6918: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6919: FND_MSG_PUB.Count_And_Get
6920: (
6921: p_count => x_msg_count,
6922: p_data => x_msg_data
6921: p_count => x_msg_count,
6922: p_data => x_msg_data
6923: );
6924: WHEN OTHERS THEN
6925: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6926: ROLLBACK TO ESTIMATE_FIXED_VALUES;
6927: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
6928: FND_MSG_PUB.Add_Exc_Msg
6929: ( G_PKG_NAME,