[Home] [Help]
313:
314: --
315:
316: /* Treat Adjustments of Fluctuating counters like Ascending counters */
317: IF p_curr_adj IS NULL OR p_curr_adj = FND_API.G_MISS_NUM THEN
318: l_curr_adj := 0;
319: ELSE
320: l_curr_adj := p_curr_adj;
321: END IF;
379: csi_ctr_gen_utility_pvt.put_line('6398254: New LTD Reading = '||to_char(px_ltd_rdg));
380: /* end addition */
381: END IF; -- 8214848 - dsingire
382: IF NVL(p_direction,'X') = 'B' AND p_rdg_type = 2 THEN
383: IF p_curr_adj IS NULL OR p_curr_adj = FND_API.G_MISS_NUM THEN
384: IF l_ctr_rdg_rec.reset_mode = 'SOFT' THEN
385: -- AND NVL(l_ctr_rdg_rec.reset_mode,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR THEN
386: -- csi_ctr_gen_utility_pvt.put_line('6398254: Inside Bidir Reset Block p_curr_rdg' || p_curr_rdg);
387:
381: END IF; -- 8214848 - dsingire
382: IF NVL(p_direction,'X') = 'B' AND p_rdg_type = 2 THEN
383: IF p_curr_adj IS NULL OR p_curr_adj = FND_API.G_MISS_NUM THEN
384: IF l_ctr_rdg_rec.reset_mode = 'SOFT' THEN
385: -- AND NVL(l_ctr_rdg_rec.reset_mode,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR THEN
386: -- csi_ctr_gen_utility_pvt.put_line('6398254: Inside Bidir Reset Block p_curr_rdg' || p_curr_rdg);
387:
388: px_net_rdg := nvl(p_curr_rdg,0);
389: px_ltd_rdg := nvl(p_prev_ltd_rdg,0);
469: -- Added for bug#14561696
470: BEGIN
471: SAVEPOINT reset_target_counters;
472: -- Initialize API return status to success
473: x_return_status := FND_API.G_RET_STS_SUCCESS;
474: --
475:
476: -- Read the debug profiles values in to global variable 7197402
477: IF (CSI_CTR_GEN_UTILITY_PVT.g_debug_level is null) THEN -- 8214848 - dsingire
768: --Add call to CSI_COUNTER_PVT.update_ctr_val_max_seq_no
769: --for bug 7374316
770: CSI_COUNTER_PVT.update_ctr_val_max_seq_no(
771: p_api_version => 1.0
772: ,p_commit => fnd_api.g_false
773: ,p_init_msg_list => fnd_api.g_true
774: ,p_validation_level => fnd_api.g_valid_level_full
775: ,p_counter_id => l_ctr_rdg_rec.counter_id
776: ,px_ctr_val_max_seq_no => l_ctr_rdg_rec.counter_value_id
769: --for bug 7374316
770: CSI_COUNTER_PVT.update_ctr_val_max_seq_no(
771: p_api_version => 1.0
772: ,p_commit => fnd_api.g_false
773: ,p_init_msg_list => fnd_api.g_true
774: ,p_validation_level => fnd_api.g_valid_level_full
775: ,p_counter_id => l_ctr_rdg_rec.counter_id
776: ,px_ctr_val_max_seq_no => l_ctr_rdg_rec.counter_value_id
777: ,x_return_status => x_return_status
770: CSI_COUNTER_PVT.update_ctr_val_max_seq_no(
771: p_api_version => 1.0
772: ,p_commit => fnd_api.g_false
773: ,p_init_msg_list => fnd_api.g_true
774: ,p_validation_level => fnd_api.g_valid_level_full
775: ,p_counter_id => l_ctr_rdg_rec.counter_id
776: ,px_ctr_val_max_seq_no => l_ctr_rdg_rec.counter_value_id
777: ,x_return_status => x_return_status
778: ,x_msg_count => x_msg_count
780: );
781: END LOOP; -- Obj Cursor
782: --
783: EXCEPTION
784: WHEN FND_API.G_EXC_ERROR THEN
785: x_return_status := FND_API.G_RET_STS_ERROR ;
786: ROLLBACK TO reset_target_counters;
787: FND_MSG_PUB.Count_And_Get
788: ( p_count => x_msg_count,
781: END LOOP; -- Obj Cursor
782: --
783: EXCEPTION
784: WHEN FND_API.G_EXC_ERROR THEN
785: x_return_status := FND_API.G_RET_STS_ERROR ;
786: ROLLBACK TO reset_target_counters;
787: FND_MSG_PUB.Count_And_Get
788: ( p_count => x_msg_count,
789: p_data => x_msg_data
788: ( p_count => x_msg_count,
789: p_data => x_msg_data
790: );
791: WHEN OTHERS THEN
792: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
793: ROLLBACK TO reset_target_counters;
794: END Reset_Target_Counters;
795: --
796: PROCEDURE Disable_Target_Derive_Rdg
811: FROM csi_counter_readings
812: WHERE source_counter_value_id = p_src_counter_value_id
813: AND nvl(disabled_flag,'N') <> 'Y';
814: BEGIN
815: x_return_status := FND_API.G_RET_STS_SUCCESS;
816: FOR derived_reading IN derived_readings_cur LOOP
817: UPDATE CSI_COUNTER_READINGS
818: SET disabled_flag = 'Y',
819: last_updated_by = l_user_id,
824: l_ctr_val_max_seq_no := NULL;
825:
826: CSI_COUNTER_PVT.update_ctr_val_max_seq_no(
827: p_api_version => 1.0
828: ,p_commit => fnd_api.g_false
829: ,p_init_msg_list => fnd_api.g_true
830: ,p_validation_level => fnd_api.g_valid_level_full
831: ,p_counter_id => derived_reading.counter_id
832: ,px_ctr_val_max_seq_no => l_ctr_val_max_seq_no
825:
826: CSI_COUNTER_PVT.update_ctr_val_max_seq_no(
827: p_api_version => 1.0
828: ,p_commit => fnd_api.g_false
829: ,p_init_msg_list => fnd_api.g_true
830: ,p_validation_level => fnd_api.g_valid_level_full
831: ,p_counter_id => derived_reading.counter_id
832: ,px_ctr_val_max_seq_no => l_ctr_val_max_seq_no
833: ,x_return_status => x_return_status
826: CSI_COUNTER_PVT.update_ctr_val_max_seq_no(
827: p_api_version => 1.0
828: ,p_commit => fnd_api.g_false
829: ,p_init_msg_list => fnd_api.g_true
830: ,p_validation_level => fnd_api.g_valid_level_full
831: ,p_counter_id => derived_reading.counter_id
832: ,px_ctr_val_max_seq_no => l_ctr_val_max_seq_no
833: ,x_return_status => x_return_status
834: ,x_msg_count => x_msg_count
834: ,x_msg_count => x_msg_count
835: ,x_msg_data => x_msg_data
836: );
837:
838: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
839: l_msg_index := 1;
840: l_msg_count := x_msg_count;
841: WHILE l_msg_count > 0 LOOP
842: x_msg_data := FND_MSG_PUB.GET
840: l_msg_count := x_msg_count;
841: WHILE l_msg_count > 0 LOOP
842: x_msg_data := FND_MSG_PUB.GET
843: (l_msg_index,
844: FND_API.G_FALSE
845: );
846: csi_ctr_gen_utility_pvt.put_line('ERROR FROM CSI_COUNTER_PVT.update_ctr_val_max_seq_no');
847: csi_ctr_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
848: l_msg_index := l_msg_index + 1;
847: csi_ctr_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
848: l_msg_index := l_msg_index + 1;
849: l_msg_count := l_msg_count - 1;
850: END LOOP;
851: RAISE FND_API.G_EXC_ERROR;
852: END IF;
853: END LOOP;
854: EXCEPTION
855: WHEN OTHERS THEN
852: END IF;
853: END LOOP;
854: EXCEPTION
855: WHEN OTHERS THEN
856: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
857: END Disable_Target_Derive_Rdg;
858: --
859: PROCEDURE Calculate_Rollover_Reading
860: ( p_prev_net_rdg IN NUMBER
901:
902: l_debug_level := CSI_CTR_GEN_UTILITY_PVT.g_debug_level; -- 8214848 - dsingire
903:
904: -- Initialize message list if p_init_msg_list is set to TRUE.
905: IF FND_API.to_Boolean(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
906: FND_MSG_PUB.initialize;
907: END IF;
908: -- Initialize API return status to success
909: x_return_status := FND_API.G_RET_STS_SUCCESS;
905: IF FND_API.to_Boolean(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
906: FND_MSG_PUB.initialize;
907: END IF;
908: -- Initialize API return status to success
909: x_return_status := FND_API.G_RET_STS_SUCCESS;
910: --
911: -- Create Transaction
912: IF p_txn_rec.transaction_id IS NULL OR
913: p_txn_rec.transaction_id = FND_API.G_MISS_NUM THEN
909: x_return_status := FND_API.G_RET_STS_SUCCESS;
910: --
911: -- Create Transaction
912: IF p_txn_rec.transaction_id IS NULL OR
913: p_txn_rec.transaction_id = FND_API.G_MISS_NUM THEN
914: l_process_flag := TRUE;
915: WHILE l_process_flag LOOP
916: select CSI_TRANSACTIONS_S.nextval
917: into p_txn_rec.transaction_id from dual;
929: END IF;
930: END IF;
931: --
932: IF p_txn_rec.transaction_type_id IS NULL OR
933: p_txn_rec.transaction_type_id = FND_API.G_MISS_NUM THEN
934: csi_ctr_gen_utility_pvt.ExitWithErrMsg('CSI_NO_TXN_TYPE_ID');
935: ELSE
936: IF p_txn_rec.transaction_type_id NOT in (80,81,82,83,84,85,86,87,88,89,91,92,94,95)
937: THEN
949: END IF;
950: END IF;
951: --
952: IF p_txn_rec.source_transaction_date IS NULL OR
953: p_txn_rec.source_transaction_date = FND_API.G_MISS_DATE THEN
954: csi_ctr_gen_utility_pvt.ExitWithErrMsg('CSI_NO_TXN_DATE');
955: END IF;
956: --
957: IF p_txn_rec.transaction_date IS NULL OR
954: csi_ctr_gen_utility_pvt.ExitWithErrMsg('CSI_NO_TXN_DATE');
955: END IF;
956: --
957: IF p_txn_rec.transaction_date IS NULL OR
958: p_txn_rec.transaction_date = FND_API.G_MISS_DATE THEN
959: p_txn_rec.transaction_date := sysdate;
960: END IF;
961: --
962: p_txn_rec.object_version_number := 1;
964: --
965: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
966: csi_ctr_gen_utility_pvt.put_line( '....create_reading_transactions' ||'-'||
967: p_api_version ||'-'||
968: nvl(p_commit,FND_API.G_FALSE) ||'-'||
969: nvl(p_init_msg_list,FND_API.G_FALSE) ||'-'||
970: nvl(p_validation_level,FND_API.G_VALID_LEVEL_FULL) );
971: END IF; -- 8214848 - dsingire
972:
965: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
966: csi_ctr_gen_utility_pvt.put_line( '....create_reading_transactions' ||'-'||
967: p_api_version ||'-'||
968: nvl(p_commit,FND_API.G_FALSE) ||'-'||
969: nvl(p_init_msg_list,FND_API.G_FALSE) ||'-'||
970: nvl(p_validation_level,FND_API.G_VALID_LEVEL_FULL) );
971: END IF; -- 8214848 - dsingire
972:
973: CSI_TRANSACTIONS_PKG.Insert_Row
966: csi_ctr_gen_utility_pvt.put_line( '....create_reading_transactions' ||'-'||
967: p_api_version ||'-'||
968: nvl(p_commit,FND_API.G_FALSE) ||'-'||
969: nvl(p_init_msg_list,FND_API.G_FALSE) ||'-'||
970: nvl(p_validation_level,FND_API.G_VALID_LEVEL_FULL) );
971: END IF; -- 8214848 - dsingire
972:
973: CSI_TRANSACTIONS_PKG.Insert_Row
974: ( px_transaction_id => p_txn_rec.transaction_id,
1016: p_split_reason_code => p_txn_rec.split_reason_code,
1017: p_gl_interface_status_code => p_txn_rec.gl_interface_status_code
1018: );
1019: --
1020: IF FND_API.to_Boolean(nvl(p_commit,FND_API.G_FALSE)) THEN
1021: COMMIT WORK;
1022: END IF;
1023: --
1024: -- Standard call to get message count and IF count is get message info.
1026: ( p_count => x_msg_count,
1027: p_data => x_msg_data
1028: );
1029: EXCEPTION
1030: WHEN FND_API.G_EXC_ERROR THEN
1031: x_return_status := FND_API.G_RET_STS_ERROR ;
1032: ROLLBACK TO create_reading_transaction;
1033: FND_MSG_PUB.Count_And_Get
1034: ( p_count => x_msg_count,
1027: p_data => x_msg_data
1028: );
1029: EXCEPTION
1030: WHEN FND_API.G_EXC_ERROR THEN
1031: x_return_status := FND_API.G_RET_STS_ERROR ;
1032: ROLLBACK TO create_reading_transaction;
1033: FND_MSG_PUB.Count_And_Get
1034: ( p_count => x_msg_count,
1035: p_data => x_msg_data
1033: FND_MSG_PUB.Count_And_Get
1034: ( p_count => x_msg_count,
1035: p_data => x_msg_data
1036: );
1037: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1038: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1039: ROLLBACK TO create_reading_transaction;
1040: FND_MSG_PUB.Count_And_Get
1041: ( p_count => x_msg_count,
1034: ( p_count => x_msg_count,
1035: p_data => x_msg_data
1036: );
1037: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1038: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1039: ROLLBACK TO create_reading_transaction;
1040: FND_MSG_PUB.Count_And_Get
1041: ( p_count => x_msg_count,
1042: p_data => x_msg_data
1041: ( p_count => x_msg_count,
1042: p_data => x_msg_data
1043: );
1044: WHEN OTHERS THEN
1045: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1046: ROLLBACK TO create_reading_transaction;
1047: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1048: FND_MSG_PUB.Add_Exc_Msg
1049: ( G_PKG_NAME,
1193: -- Standard Start of API savepoint
1194: SAVEPOINT capture_counter_reading_pvt;
1195: -- Standard call to check for call compatibility.
1196:
1197: IF NOT FND_API.Compatible_API_Call (l_api_version,
1198: p_api_version,
1199: l_api_name ,
1200: G_PKG_NAME ) THEN
1201: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1197: IF NOT FND_API.Compatible_API_Call (l_api_version,
1198: p_api_version,
1199: l_api_name ,
1200: G_PKG_NAME ) THEN
1201: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1202: END IF;
1203: -- Initialize message list if p_init_msg_list is set to TRUE.
1204: IF FND_API.to_Boolean(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
1205: FND_MSG_PUB.initialize;
1200: G_PKG_NAME ) THEN
1201: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1202: END IF;
1203: -- Initialize message list if p_init_msg_list is set to TRUE.
1204: IF FND_API.to_Boolean(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
1205: FND_MSG_PUB.initialize;
1206: END IF;
1207: -- Initialize API return status to success
1208: x_return_status := FND_API.G_RET_STS_SUCCESS;
1204: IF FND_API.to_Boolean(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
1205: FND_MSG_PUB.initialize;
1206: END IF;
1207: -- Initialize API return status to success
1208: x_return_status := FND_API.G_RET_STS_SUCCESS;
1209: --
1210:
1211: -- Read the debug profiles values in to global variable 7197402
1212: IF (CSI_CTR_GEN_UTILITY_PVT.g_debug_level is null) THEN -- 8214848 - dsingire
1217:
1218: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
1219: csi_ctr_gen_utility_pvt.put_line( '....capture_counter_reading_pvt' ||'-'||
1220: p_api_version ||'-'||
1221: nvl(p_commit,FND_API.G_FALSE) ||'-'||
1222: nvl(p_init_msg_list,FND_API.G_FALSE) ||'-'||
1223: nvl(p_validation_level,FND_API.G_VALID_LEVEL_FULL) );
1224: csi_ctr_gen_utility_pvt.put_line('CMRO_CALL : '||CMRO_CALL);
1225: csi_ctr_gen_utility_pvt.put_line('Passed Transaction ID is '||to_char(p_txn_rec.transaction_id));
1218: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
1219: csi_ctr_gen_utility_pvt.put_line( '....capture_counter_reading_pvt' ||'-'||
1220: p_api_version ||'-'||
1221: nvl(p_commit,FND_API.G_FALSE) ||'-'||
1222: nvl(p_init_msg_list,FND_API.G_FALSE) ||'-'||
1223: nvl(p_validation_level,FND_API.G_VALID_LEVEL_FULL) );
1224: csi_ctr_gen_utility_pvt.put_line('CMRO_CALL : '||CMRO_CALL);
1225: csi_ctr_gen_utility_pvt.put_line('Passed Transaction ID is '||to_char(p_txn_rec.transaction_id));
1226: END IF; -- 8214848 - dsingire
1219: csi_ctr_gen_utility_pvt.put_line( '....capture_counter_reading_pvt' ||'-'||
1220: p_api_version ||'-'||
1221: nvl(p_commit,FND_API.G_FALSE) ||'-'||
1222: nvl(p_init_msg_list,FND_API.G_FALSE) ||'-'||
1223: nvl(p_validation_level,FND_API.G_VALID_LEVEL_FULL) );
1224: csi_ctr_gen_utility_pvt.put_line('CMRO_CALL : '||CMRO_CALL);
1225: csi_ctr_gen_utility_pvt.put_line('Passed Transaction ID is '||to_char(p_txn_rec.transaction_id));
1226: END IF; -- 8214848 - dsingire
1227: -- *
1233: l_mode := 'Counter';
1234: END IF;
1235: --
1236: IF p_ctr_rdg_rec.counter_id IS NULL OR
1237: p_ctr_rdg_rec.counter_id = FND_API.G_MISS_NUM THEN
1238: csi_ctr_gen_utility_pvt.ExitWithErrMsg
1239: ( p_msg_name => 'CSI_API_CTR_INVALID',
1240: p_token1_name => 'MODE',
1241: p_token1_val => l_mode
1260: );
1261: End;
1262: END IF;
1263: -- Atleast one reading should be captured.
1264: IF NVL(p_ctr_rdg_rec.counter_reading,FND_API.G_MISS_NUM) = FND_API.G_MISS_NUM AND
1265: NVL(p_ctr_rdg_rec.adjustment_reading,FND_API.G_MISS_NUM) = FND_API.G_MISS_NUM AND
1266: NVL(p_ctr_rdg_rec.reset_counter_reading,FND_API.G_MISS_NUM) = FND_API.G_MISS_NUM THEN
1267: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
1268: csi_ctr_gen_utility_pvt.put_line('At least one reading should be entered...');
1261: End;
1262: END IF;
1263: -- Atleast one reading should be captured.
1264: IF NVL(p_ctr_rdg_rec.counter_reading,FND_API.G_MISS_NUM) = FND_API.G_MISS_NUM AND
1265: NVL(p_ctr_rdg_rec.adjustment_reading,FND_API.G_MISS_NUM) = FND_API.G_MISS_NUM AND
1266: NVL(p_ctr_rdg_rec.reset_counter_reading,FND_API.G_MISS_NUM) = FND_API.G_MISS_NUM THEN
1267: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
1268: csi_ctr_gen_utility_pvt.put_line('At least one reading should be entered...');
1269: END IF; -- 8214848 - dsingire
1262: END IF;
1263: -- Atleast one reading should be captured.
1264: IF NVL(p_ctr_rdg_rec.counter_reading,FND_API.G_MISS_NUM) = FND_API.G_MISS_NUM AND
1265: NVL(p_ctr_rdg_rec.adjustment_reading,FND_API.G_MISS_NUM) = FND_API.G_MISS_NUM AND
1266: NVL(p_ctr_rdg_rec.reset_counter_reading,FND_API.G_MISS_NUM) = FND_API.G_MISS_NUM THEN
1267: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
1268: csi_ctr_gen_utility_pvt.put_line('At least one reading should be entered...');
1269: END IF; -- 8214848 - dsingire
1270: csi_ctr_gen_utility_pvt.ExitWithErrMsg
1340: );
1341: END IF;
1342: --
1343: IF p_ctr_rdg_rec.value_timestamp IS NULL OR
1344: p_ctr_rdg_rec.value_timestamp = FND_API.G_MISS_DATE THEN
1345: p_ctr_rdg_rec.value_timestamp := sysdate;
1346: -- csi_ctr_gen_utility_pvt.ExitWithErrMsg('CSI_API_CTR_INVALID_RDG_DATE');
1347: END IF;
1348: --
1383: X_return_status => x_return_status,
1384: X_msg_count => x_msg_count,
1385: X_msg_data => x_msg_data
1386: );
1387: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
1388: csi_ctr_gen_utility_pvt.put_line('ERROR FROM Update_Last_Service_Reading_Wo API ');
1389: l_msg_index := 1;
1390: l_msg_count := x_msg_count;
1391: WHILE l_msg_count > 0 LOOP
1390: l_msg_count := x_msg_count;
1391: WHILE l_msg_count > 0 LOOP
1392: x_msg_data := FND_MSG_PUB.GET
1393: ( l_msg_index,
1394: FND_API.G_FALSE
1395: );
1396: csi_ctr_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
1397: l_msg_index := l_msg_index + 1;
1398: l_msg_count := l_msg_count - 1;
1396: csi_ctr_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
1397: l_msg_index := l_msg_index + 1;
1398: l_msg_count := l_msg_count - 1;
1399: END LOOP;
1400: RAISE FND_API.G_EXC_ERROR;
1401: END IF;
1402: END LOOP;
1403: END IF; -- Call Update_Last_Service_Reading_WO check
1404: --Added for bug 9402292 -END
1433: ,x_return_status => x_return_status
1434: ,x_msg_count => x_msg_count
1435: ,x_msg_data => x_msg_data
1436: );
1437: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
1438: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
1439: csi_ctr_gen_utility_pvt.put_line('ERROR FROM Update_Counter_Reading when disabling WO ');
1440: END IF; -- 8214848 - dsingire
1441: l_msg_index := 1;
1442: l_msg_count := x_msg_count;
1443: WHILE l_msg_count > 0 LOOP
1444: x_msg_data := FND_MSG_PUB.GET
1445: (l_msg_index,
1446: FND_API.G_FALSE
1447: );
1448: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
1449: csi_ctr_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
1450: END IF;
1450: END IF;
1451: l_msg_index := l_msg_index + 1;
1452: l_msg_count := l_msg_count - 1;
1453: END LOOP;
1454: RAISE FND_API.G_EXC_ERROR;
1455: END IF;
1456: ELSE
1457: csi_ctr_gen_utility_pvt.ExitWithErrMsg
1458: (p_msg_name => 'CSI_API_CTR_RDG_DATE_EXISTS',
1491: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
1492: csi_ctr_gen_utility_pvt.put_line('Adjustment type is..' || p_ctr_rdg_rec.adjustment_type);
1493: END IF;
1494:
1495: IF NVL(p_ctr_rdg_rec.adjustment_type,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR THEN
1496: -- Validate Adjustment Type against lookups
1497: IF NOT Valid_Adjustment_Type(p_ctr_rdg_rec.adjustment_type) THEN
1498: csi_ctr_gen_utility_pvt.ExitWithErrMsg
1499: ( p_msg_name => 'CSI_API_CTR_INV_ADJ_TYPE',
1502: );
1503: END IF;
1504: END IF;
1505: --
1506: IF NVL(p_ctr_rdg_rec.reset_mode,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR THEN
1507: -- Validate Reset Mode against lookups
1508: -- IF NOT Valid_Reset_Mode(p_ctr_rdg_rec.reset_mode) THEN
1509: -- Since we allow only SOFT reset at this point, no need to check against Lookups
1510: IF p_ctr_rdg_rec.reset_mode <> 'SOFT' THEN
1514: p_token1_val => p_ctr_rdg_rec.reset_mode
1515: );
1516: END IF;
1517: --
1518: IF NVL(p_ctr_rdg_rec.reset_counter_reading,FND_API.G_MISS_NUM) = FND_API.G_MISS_NUM THEN
1519: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
1520: csi_ctr_gen_utility_pvt.put_line('Reset counter reading is mandatory for SOFT reset..');
1521: END IF; -- 8214848 - dsingire
1522: csi_ctr_gen_utility_pvt.ExitWithErrMsg
1527: END IF;
1528: --
1529:
1530:
1531: IF NVL(p_ctr_rdg_rec.reset_reason,FND_API.G_MISS_CHAR) = FND_API.G_MISS_CHAR THEN
1532: csi_ctr_gen_utility_pvt.ExitWithErrMsg
1533: ( p_msg_name => 'CSI_API_CTR_RESET_REASON_MISS',
1534: p_token1_name => 'MODE',
1535: p_token1_val => l_mode
1537: END IF;
1538: END IF; -- Reset Mode check
1539: --
1540: -- Adjustment reading is Mandatory for Adjustments
1541: IF NVL(p_ctr_rdg_rec.adjustment_type,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR AND
1542: NVL(p_ctr_rdg_rec.adjustment_reading,FND_API.G_MISS_NUM) = FND_API.G_MISS_NUM THEN
1543: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
1544: csi_ctr_gen_utility_pvt.put_line('Adjustment Reading cannot be Null or Zero for Adjustments...');
1545: END IF; -- 8214848 - dsingire
1538: END IF; -- Reset Mode check
1539: --
1540: -- Adjustment reading is Mandatory for Adjustments
1541: IF NVL(p_ctr_rdg_rec.adjustment_type,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR AND
1542: NVL(p_ctr_rdg_rec.adjustment_reading,FND_API.G_MISS_NUM) = FND_API.G_MISS_NUM THEN
1543: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
1544: csi_ctr_gen_utility_pvt.put_line('Adjustment Reading cannot be Null or Zero for Adjustments...');
1545: END IF; -- 8214848 - dsingire
1546: csi_ctr_gen_utility_pvt.ExitWithErrMsg
1550: );
1551: END IF;
1552: --
1553: -- Reverse Validation
1554: IF NVL(p_ctr_rdg_rec.adjustment_reading,FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM AND
1555: NVL(p_ctr_rdg_rec.adjustment_type,FND_API.G_MISS_CHAR) = FND_API.G_MISS_CHAR THEN
1556: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
1557: csi_ctr_gen_utility_pvt.put_line('Adjustment Type is Mandatory for Adjustments...');
1558: END IF; -- 8214848 - dsingire
1551: END IF;
1552: --
1553: -- Reverse Validation
1554: IF NVL(p_ctr_rdg_rec.adjustment_reading,FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM AND
1555: NVL(p_ctr_rdg_rec.adjustment_type,FND_API.G_MISS_CHAR) = FND_API.G_MISS_CHAR THEN
1556: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
1557: csi_ctr_gen_utility_pvt.put_line('Adjustment Type is Mandatory for Adjustments...');
1558: END IF; -- 8214848 - dsingire
1559: csi_ctr_gen_utility_pvt.ExitWithErrMsg
1562: p_token1_val => l_mode
1563: );
1564: END IF;
1565: --
1566: IF NVL(p_ctr_rdg_rec.adjustment_reading,FND_API.G_MISS_NUM) <= 0 THEN
1567: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
1568: csi_ctr_gen_utility_pvt.put_line('Adjustment Reading cannot be Zero or Negative...');
1569: END IF; -- 8214848 - dsingire
1570: csi_ctr_gen_utility_pvt.ExitWithErrMsg
1573: p_token1_val => l_mode
1574: );
1575: END IF;
1576: -- Reverse Validations
1577: IF NVL(p_ctr_rdg_rec.reset_counter_reading,FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM THEN
1578: IF NVL(p_ctr_rdg_rec.reset_mode,FND_API.G_MISS_CHAR) = FND_API.G_MISS_CHAR THEN
1579: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
1580: csi_ctr_gen_utility_pvt.put_line('Reset Mode is Mandatory for Resets...');
1581: END IF; -- 8214848 - dsingire
1574: );
1575: END IF;
1576: -- Reverse Validations
1577: IF NVL(p_ctr_rdg_rec.reset_counter_reading,FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM THEN
1578: IF NVL(p_ctr_rdg_rec.reset_mode,FND_API.G_MISS_CHAR) = FND_API.G_MISS_CHAR THEN
1579: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
1580: csi_ctr_gen_utility_pvt.put_line('Reset Mode is Mandatory for Resets...');
1581: END IF; -- 8214848 - dsingire
1582: csi_ctr_gen_utility_pvt.ExitWithErrMsg
1585: p_token1_val => l_mode
1586: );
1587: END IF;
1588: -- Reset Reason is Mandatory
1589: IF NVL(p_ctr_rdg_rec.reset_reason,FND_API.G_MISS_CHAR) = FND_API.G_MISS_CHAR THEN
1590: csi_ctr_gen_utility_pvt.ExitWithErrMsg
1591: ( p_msg_name => 'CSI_API_CTR_RESET_REASON_MISS',
1592: p_token1_name => 'MODE',
1593: p_token1_val => l_mode
1597: -- *
1598: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
1599: csi_ctr_gen_utility_pvt.put_line('Reset Mode is Mandatory for Resets...'|| p_ctr_rdg_rec.reset_counter_reading );
1600: END IF; -- 8214848 - dsingire
1601: IF NVL(p_ctr_rdg_rec.reset_reason,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR THEN
1602: IF NVL(p_ctr_rdg_rec.reset_counter_reading,FND_API.G_MISS_NUM) = FND_API.G_MISS_NUM THEN
1603: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
1604: csi_ctr_gen_utility_pvt.put_line('Reset Reading is Mandatory for Resets...');
1605: END IF; -- 8214848 - dsingire
1598: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
1599: csi_ctr_gen_utility_pvt.put_line('Reset Mode is Mandatory for Resets...'|| p_ctr_rdg_rec.reset_counter_reading );
1600: END IF; -- 8214848 - dsingire
1601: IF NVL(p_ctr_rdg_rec.reset_reason,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR THEN
1602: IF NVL(p_ctr_rdg_rec.reset_counter_reading,FND_API.G_MISS_NUM) = FND_API.G_MISS_NUM THEN
1603: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
1604: csi_ctr_gen_utility_pvt.put_line('Reset Reading is Mandatory for Resets...');
1605: END IF; -- 8214848 - dsingire
1606: csi_ctr_gen_utility_pvt.ExitWithErrMsg
1609: p_token1_val => l_mode
1610: );
1611: END IF;
1612: --
1613: IF NVL(p_ctr_rdg_rec.reset_mode,FND_API.G_MISS_CHAR) = FND_API.G_MISS_CHAR THEN
1614: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
1615: csi_ctr_gen_utility_pvt.put_line('Reset Mode is Mandatory for Resets...');
1616: END IF; -- 8214848 - dsingire
1617: csi_ctr_gen_utility_pvt.ExitWithErrMsg
1622: END IF;
1623: END IF;
1624: --
1625: -- Atleast one reading should be captured.
1626: IF NVL(p_ctr_rdg_rec.counter_reading,FND_API.G_MISS_NUM) = FND_API.G_MISS_NUM AND
1627: NVL(p_ctr_rdg_rec.adjustment_reading,FND_API.G_MISS_NUM) = FND_API.G_MISS_NUM AND
1628: NVL(p_ctr_rdg_rec.reset_counter_reading,FND_API.G_MISS_NUM) = FND_API.G_MISS_NUM THEN
1629: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
1630: csi_ctr_gen_utility_pvt.put_line('At least one reading should be entered...');
1623: END IF;
1624: --
1625: -- Atleast one reading should be captured.
1626: IF NVL(p_ctr_rdg_rec.counter_reading,FND_API.G_MISS_NUM) = FND_API.G_MISS_NUM AND
1627: NVL(p_ctr_rdg_rec.adjustment_reading,FND_API.G_MISS_NUM) = FND_API.G_MISS_NUM AND
1628: NVL(p_ctr_rdg_rec.reset_counter_reading,FND_API.G_MISS_NUM) = FND_API.G_MISS_NUM THEN
1629: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
1630: csi_ctr_gen_utility_pvt.put_line('At least one reading should be entered...');
1631: END IF; -- 8214848 - dsingire
1624: --
1625: -- Atleast one reading should be captured.
1626: IF NVL(p_ctr_rdg_rec.counter_reading,FND_API.G_MISS_NUM) = FND_API.G_MISS_NUM AND
1627: NVL(p_ctr_rdg_rec.adjustment_reading,FND_API.G_MISS_NUM) = FND_API.G_MISS_NUM AND
1628: NVL(p_ctr_rdg_rec.reset_counter_reading,FND_API.G_MISS_NUM) = FND_API.G_MISS_NUM THEN
1629: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
1630: csi_ctr_gen_utility_pvt.put_line('At least one reading should be entered...');
1631: END IF; -- 8214848 - dsingire
1632: csi_ctr_gen_utility_pvt.ExitWithErrMsg
1730:
1731: --
1732: -- Check whether this is the first reading
1733: IF l_prev_ctr_reading IS NULL THEN -- First Reading
1734: IF NVL(p_ctr_rdg_rec.adjustment_type,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR OR
1735: NVL(p_ctr_rdg_rec.reset_mode,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR OR
1736: NVL(p_ctr_rdg_rec.automatic_rollover_flag,'N') = 'Y' THEN
1737: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
1738: csi_ctr_gen_utility_pvt.put_line('First Reading cannot be Adjustment or Reset or Automatic Rollover');
1731: --
1732: -- Check whether this is the first reading
1733: IF l_prev_ctr_reading IS NULL THEN -- First Reading
1734: IF NVL(p_ctr_rdg_rec.adjustment_type,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR OR
1735: NVL(p_ctr_rdg_rec.reset_mode,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR OR
1736: NVL(p_ctr_rdg_rec.automatic_rollover_flag,'N') = 'Y' THEN
1737: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
1738: csi_ctr_gen_utility_pvt.put_line('First Reading cannot be Adjustment or Reset or Automatic Rollover');
1739: END IF; -- 8214848 - dsingire
1743: p_token1_val => l_mode
1744: );
1745: END IF;
1746: ELSE
1747: IF NVL(p_ctr_rdg_rec.adjustment_reading,FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM THEN
1748: IF p_ctr_rdg_rec.adjustment_reading > l_prev_net_reading THEN
1749: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
1750: csi_ctr_gen_utility_pvt.put_line('Adjustment Reading cannot be greater than Previous Net Reading');
1751: END IF; -- 8214848 - dsingire
1798: END IF;
1799: -- For Change Counters Reset and Automatic rollover are not allowed
1800:
1801: IF l_reading_type = 2 THEN
1802: /* IF NVL(p_ctr_rdg_rec.reset_mode,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR THEN
1803: csi_ctr_gen_utility_pvt.put_line('Soft Reset is not allowed for Change Counters..');
1804: csi_ctr_gen_utility_pvt.ExitWithErrMsg
1805: ( p_msg_name => 'CSI_API_NO_RESET_CHG_CTR',
1806: p_token1_name => 'MODE',
1819: p_token1_val => l_mode
1820: );
1821: END IF;
1822: --
1823: /* IF NVL(p_ctr_rdg_rec.counter_reading,FND_API.G_MISS_NUM) < 0 THEN
1824: csi_ctr_gen_utility_pvt.put_line('Counter Reading cannot be negative for Change Counters...');
1825: csi_ctr_gen_utility_pvt.ExitWithErrMsg
1826: ( p_msg_name => 'CSI_API_CTR_NEG_RDG',
1827: p_token1_name => 'MODE',
1832: END IF;
1833: -- For Bi-Directionsl Counters Adjustments, Reset and Automatic rollover are not allowed
1834: IF l_direction = 'B' THEN
1835: --Commented by Anju for cMRO bug
1836: /* IF NVL(p_ctr_rdg_rec.reset_mode,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR THEN
1837: csi_ctr_gen_utility_pvt.put_line('Reset is not allowed for Bi-directional Counters..');
1838: csi_ctr_gen_utility_pvt.ExitWithErrMsg
1839: ( p_msg_name => 'CSI_API_NO_RESET_BID_CTR',
1840: p_token1_name => 'MODE',
1857: );
1858: END IF;
1859: --
1860:
1861: /* IF NVL(p_ctr_rdg_rec.adjustment_reading,FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM
1862: THEN
1863: csi_ctr_gen_utility_pvt.put_line('Adjustment Reading is' || p_ctr_rdg_rec.adjustment_reading);
1864: csi_ctr_gen_utility_pvt.put_line('Adjustment is not allowed for Bi-directional Counters..');
1865: csi_ctr_gen_utility_pvt.ExitWithErrMsg
1871:
1872: END IF;
1873: -- Automatic Rollover cannot be combined with other reading captures.
1874: IF NVL(p_ctr_rdg_rec.automatic_rollover_flag,'N') = 'Y' THEN
1875: IF NVL(p_ctr_rdg_rec.reset_mode,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR OR
1876: NVL(p_ctr_rdg_rec.adjustment_reading,FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM THEN
1877: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
1878: csi_ctr_gen_utility_pvt.put_line('Automatic Rollover cannot be combined with Reset or Adj...');
1879: END IF; -- 8214848 - dsingire
1872: END IF;
1873: -- Automatic Rollover cannot be combined with other reading captures.
1874: IF NVL(p_ctr_rdg_rec.automatic_rollover_flag,'N') = 'Y' THEN
1875: IF NVL(p_ctr_rdg_rec.reset_mode,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR OR
1876: NVL(p_ctr_rdg_rec.adjustment_reading,FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM THEN
1877: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
1878: csi_ctr_gen_utility_pvt.put_line('Automatic Rollover cannot be combined with Reset or Adj...');
1879: END IF; -- 8214848 - dsingire
1880: csi_ctr_gen_utility_pvt.ExitWithErrMsg('CSI_API_CTR_INVALID_AUTO_RDG');
1900: p_token1_val => to_char(l_next_value_timestamp,l_date_format)
1901: );
1902: END IF;
1903: -- Reset cannot happen in between. It has to be at the end
1904: IF NVL(p_ctr_rdg_rec.reset_mode,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR THEN
1905: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
1906: csi_ctr_gen_utility_pvt.put_line('Next counter reading exists. Cannot Reset in between...');
1907: END IF; -- 8214848 - dsingire
1908:
1913: );
1914: END IF;
1915: --
1916: -- Inbetween Adjustments cannot be clubbed with other readings
1917: IF NVL(p_ctr_rdg_rec.adjustment_type,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR OR
1918: NVL(p_ctr_rdg_rec.adjustment_reading,FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM THEN
1919: IF NVL(p_ctr_rdg_rec.counter_reading,FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM THEN
1920: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
1921: csi_ctr_gen_utility_pvt.put_line('Between readings adjustments cannot be clubbed with others...');
1914: END IF;
1915: --
1916: -- Inbetween Adjustments cannot be clubbed with other readings
1917: IF NVL(p_ctr_rdg_rec.adjustment_type,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR OR
1918: NVL(p_ctr_rdg_rec.adjustment_reading,FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM THEN
1919: IF NVL(p_ctr_rdg_rec.counter_reading,FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM THEN
1920: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
1921: csi_ctr_gen_utility_pvt.put_line('Between readings adjustments cannot be clubbed with others...');
1922: END IF; -- 8214848 - dsingire
1915: --
1916: -- Inbetween Adjustments cannot be clubbed with other readings
1917: IF NVL(p_ctr_rdg_rec.adjustment_type,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR OR
1918: NVL(p_ctr_rdg_rec.adjustment_reading,FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM THEN
1919: IF NVL(p_ctr_rdg_rec.counter_reading,FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM THEN
1920: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
1921: csi_ctr_gen_utility_pvt.put_line('Between readings adjustments cannot be clubbed with others...');
1922: END IF; -- 8214848 - dsingire
1923: csi_ctr_gen_utility_pvt.ExitWithErrMsg
1930: END IF; -- Look for Next Value
1931:
1932:
1933: -- Reset Counter reading cannot be greater than previous counter reading
1934: IF NVL(p_ctr_rdg_rec.reset_mode,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR THEN
1935: IF NVL(p_ctr_rdg_rec.counter_reading,FND_API.G_MISS_NUM) = FND_API.G_MISS_NUM THEN
1936: IF l_direction = 'D' THEN
1937: /* Validate that the reset reading is between the rollover if
1938: rollover attributes does exists */
1931:
1932:
1933: -- Reset Counter reading cannot be greater than previous counter reading
1934: IF NVL(p_ctr_rdg_rec.reset_mode,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR THEN
1935: IF NVL(p_ctr_rdg_rec.counter_reading,FND_API.G_MISS_NUM) = FND_API.G_MISS_NUM THEN
1936: IF l_direction = 'D' THEN
1937: /* Validate that the reset reading is between the rollover if
1938: rollover attributes does exists */
1939: IF nvl(l_auto_rollover,'N') = 'Y' THEN
2029: IF NVL(p_ctr_rdg_rec.automatic_rollover_flag,'N') <> 'Y' THEN
2030: IF l_reading_type = 1 THEN -- Absolute
2031: -- OR l_reading_type = 2 THEN -- Changed
2032: IF nvl(l_direction,'X') = 'A' THEN
2033: IF NVL(p_ctr_rdg_rec.counter_reading,FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM THEN
2034: IF ( (p_ctr_rdg_rec.counter_reading < nvl(l_prev_ctr_reading,p_ctr_rdg_rec.counter_reading)) OR
2035: ( l_next_ctr_reading IS NOT NULL AND
2036: p_ctr_rdg_rec.counter_reading > l_next_ctr_reading) ) THEN
2037: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
2049: );
2050: END IF;
2051: END IF;
2052: ELSIF nvl(l_direction,'X') = 'D' THEN
2053: IF NVL(p_ctr_rdg_rec.counter_reading,FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM THEN
2054: IF ( (p_ctr_rdg_rec.counter_reading > nvl(l_prev_ctr_reading,p_ctr_rdg_rec.counter_reading)) OR
2055: ( l_next_ctr_reading IS NOT NULL AND
2056: p_ctr_rdg_rec.counter_reading < l_next_ctr_reading) ) THEN
2057: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
2099: END IF;
2100: END IF; -- Rollover flag check
2101: --
2102: -- If counter reading is not entered then look for adjustments
2103: IF NVL(p_ctr_rdg_rec.counter_reading,FND_API.G_MISS_NUM) = FND_API.G_MISS_NUM THEN
2104: IF NVL(p_ctr_rdg_rec.adjustment_type,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR THEN
2105: IF l_reading_type = 1 THEN
2106: p_ctr_rdg_rec.counter_reading := l_prev_ctr_reading;
2107: ELSE
2100: END IF; -- Rollover flag check
2101: --
2102: -- If counter reading is not entered then look for adjustments
2103: IF NVL(p_ctr_rdg_rec.counter_reading,FND_API.G_MISS_NUM) = FND_API.G_MISS_NUM THEN
2104: IF NVL(p_ctr_rdg_rec.adjustment_type,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR THEN
2105: IF l_reading_type = 1 THEN
2106: p_ctr_rdg_rec.counter_reading := l_prev_ctr_reading;
2107: ELSE
2108: p_ctr_rdg_rec.counter_reading := 0;
2124:
2125: csi_ctr_gen_utility_pvt.put_line( 'p_ctr_rdg_rec.reset_counter_reading ' || p_ctr_rdg_rec.reset_counter_reading);
2126: END IF; -- 8214848 - dsingire
2127:
2128: IF NVL(p_ctr_rdg_rec.counter_reading,FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM THEN
2129: IF NVL(p_ctr_rdg_rec.reset_counter_reading,FND_API.G_MISS_NUM) = FND_API.G_MISS_NUM OR
2130: (NVL(p_ctr_rdg_rec.reset_counter_reading,FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM
2131: AND (p_ctr_rdg_rec.counter_reading <> p_ctr_rdg_rec.reset_counter_reading)) THEN
2132: -- check := true;
2125: csi_ctr_gen_utility_pvt.put_line( 'p_ctr_rdg_rec.reset_counter_reading ' || p_ctr_rdg_rec.reset_counter_reading);
2126: END IF; -- 8214848 - dsingire
2127:
2128: IF NVL(p_ctr_rdg_rec.counter_reading,FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM THEN
2129: IF NVL(p_ctr_rdg_rec.reset_counter_reading,FND_API.G_MISS_NUM) = FND_API.G_MISS_NUM OR
2130: (NVL(p_ctr_rdg_rec.reset_counter_reading,FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM
2131: AND (p_ctr_rdg_rec.counter_reading <> p_ctr_rdg_rec.reset_counter_reading)) THEN
2132: -- check := true;
2133: --csi_ctr_gen_utility_pvt.put_line( 'check' || check);
2126: END IF; -- 8214848 - dsingire
2127:
2128: IF NVL(p_ctr_rdg_rec.counter_reading,FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM THEN
2129: IF NVL(p_ctr_rdg_rec.reset_counter_reading,FND_API.G_MISS_NUM) = FND_API.G_MISS_NUM OR
2130: (NVL(p_ctr_rdg_rec.reset_counter_reading,FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM
2131: AND (p_ctr_rdg_rec.counter_reading <> p_ctr_rdg_rec.reset_counter_reading)) THEN
2132: -- check := true;
2133: --csi_ctr_gen_utility_pvt.put_line( 'check' || check);
2134: -- IF (p_ctr_rdg_rec.counter_reading <> p_ctr_rdg_rec.reset_counter_reading) THEN -- for cMRO resetTHEN
2152: );
2153:
2154: IF l_reading_type = 2 THEN
2155: IF nvl(l_direction,'X') = 'A' THEN
2156: IF NVL(p_ctr_rdg_rec.counter_reading,FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM THEN
2157: IF (l_ltd_reading < l_prev_ltd_reading) THEN
2158: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
2159: csi_ctr_gen_utility_pvt.put_line('3. LTD Reading should be in increasing orde for a CHANGE COUNTER...');
2160: END IF; -- 8214848 - dsingire
2170: );
2171: END IF;
2172: END IF;
2173: ELSIF nvl(l_direction,'X') = 'D' THEN
2174: IF NVL(p_ctr_rdg_rec.counter_reading,FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM THEN
2175: IF (l_ltd_reading > l_prev_ltd_reading) THEN
2176: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
2177: csi_ctr_gen_utility_pvt.put_line('4. LTD Reading should be in decreasing order for a CHANGE COUNTER...');
2178: END IF; -- 8214848 - dsingire
2208: --
2209: -- Call Table Handler to insert into CSI_COUNTER_READINGS
2210: -- Check and Generate Counter_value_id
2211: IF p_ctr_rdg_rec.counter_value_id IS NULL OR
2212: p_ctr_rdg_rec.counter_value_id = FND_API.G_MISS_NUM THEN
2213: WHILE l_process_flag LOOP
2214: select CSI_COUNTER_READINGS_S.nextval
2215: into p_ctr_rdg_rec.counter_value_id from dual;
2216: IF NOT Counter_Value_Exists(p_ctr_rdg_rec.counter_value_id) THEN
2296: --Add call to CSI_COUNTER_PVT.update_ctr_val_max_seq_no
2297: --for bug 7374316
2298: CSI_COUNTER_PVT.update_ctr_val_max_seq_no(
2299: p_api_version => 1.0
2300: ,p_commit => fnd_api.g_false
2301: ,p_init_msg_list => fnd_api.g_true
2302: ,p_validation_level => fnd_api.g_valid_level_full
2303: ,p_counter_id => p_ctr_rdg_rec.counter_id
2304: ,px_ctr_val_max_seq_no => p_ctr_rdg_rec.counter_value_id
2297: --for bug 7374316
2298: CSI_COUNTER_PVT.update_ctr_val_max_seq_no(
2299: p_api_version => 1.0
2300: ,p_commit => fnd_api.g_false
2301: ,p_init_msg_list => fnd_api.g_true
2302: ,p_validation_level => fnd_api.g_valid_level_full
2303: ,p_counter_id => p_ctr_rdg_rec.counter_id
2304: ,px_ctr_val_max_seq_no => p_ctr_rdg_rec.counter_value_id
2305: ,x_return_status => x_return_status
2298: CSI_COUNTER_PVT.update_ctr_val_max_seq_no(
2299: p_api_version => 1.0
2300: ,p_commit => fnd_api.g_false
2301: ,p_init_msg_list => fnd_api.g_true
2302: ,p_validation_level => fnd_api.g_valid_level_full
2303: ,p_counter_id => p_ctr_rdg_rec.counter_id
2304: ,px_ctr_val_max_seq_no => p_ctr_rdg_rec.counter_value_id
2305: ,x_return_status => x_return_status
2306: ,x_msg_count => x_msg_count
2305: ,x_return_status => x_return_status
2306: ,x_msg_count => x_msg_count
2307: ,x_msg_data => x_msg_data
2308: );
2309: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
2310: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
2311: csi_ctr_gen_utility_pvt.put_line('ERROR FROM CSI_COUNTER_PVT.update_ctr_val_max_seq_no');
2312: END IF; -- 8214848 - dsingire
2313: l_msg_index := 1;
2314: l_msg_count := x_msg_count;
2315: WHILE l_msg_count > 0 LOOP
2316: x_msg_data := FND_MSG_PUB.GET
2317: ( l_msg_index,
2318: FND_API.G_FALSE
2319: );
2320: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
2321: csi_ctr_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
2322: END IF; -- 8214848 - dsingire
2322: END IF; -- 8214848 - dsingire
2323: l_msg_index := l_msg_index + 1;
2324: l_msg_count := l_msg_count - 1;
2325: END LOOP;
2326: RAISE FND_API.G_EXC_ERROR;
2327: END IF;
2328: END IF;
2329: --
2330: BEGIN
2405: ,x_return_status => x_return_status
2406: ,x_msg_count => x_msg_count
2407: ,x_msg_data => x_msg_data
2408: );
2409: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
2410: csi_ctr_gen_utility_pvt.put_line('ERROR FROM Compute_Target_Counters API ');
2411: l_msg_index := 1;
2412: l_msg_count := x_msg_count;
2413: WHILE l_msg_count > 0 LOOP
2412: l_msg_count := x_msg_count;
2413: WHILE l_msg_count > 0 LOOP
2414: x_msg_data := FND_MSG_PUB.GET
2415: ( l_msg_index,
2416: FND_API.G_FALSE
2417: );
2418: csi_ctr_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
2419: l_msg_index := l_msg_index + 1;
2420: l_msg_count := l_msg_count - 1;
2418: csi_ctr_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
2419: l_msg_index := l_msg_index + 1;
2420: l_msg_count := l_msg_count - 1;
2421: END LOOP;
2422: RAISE FND_API.G_EXC_ERROR;
2423: END IF;
2424: END IF; -- l_target_ctr_exist check
2425: --
2426: -- Since Bi-Directional counter readings cannot impact Later readings no need to proceed further.
2445: -- Re-calculate Target counters irrespective of net reading changes.
2446:
2447: IF l_reading_type = 2 OR
2448: (p_ctr_rdg_rec.adjustment_reading IS NOT NULL AND
2449: p_ctr_rdg_rec.adjustment_reading <> FND_API.G_MISS_NUM AND
2450: p_ctr_rdg_rec.adjustment_reading <> 0) OR
2451: NVL(l_next_reset_mode,'X') = 'SOFT' THEN
2452: -- *
2453: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
2579: ,x_return_status => x_return_status
2580: ,x_msg_count => x_msg_count
2581: ,x_msg_data => x_msg_data
2582: );
2583: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
2584: csi_ctr_gen_utility_pvt.put_line('ERROR FROM Compute_Target_Counters API ');
2585: l_msg_index := 1;
2586: l_msg_count := x_msg_count;
2587: WHILE l_msg_count > 0 LOOP
2586: l_msg_count := x_msg_count;
2587: WHILE l_msg_count > 0 LOOP
2588: x_msg_data := FND_MSG_PUB.GET
2589: ( l_msg_index,
2590: FND_API.G_FALSE
2591: );
2592: csi_ctr_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
2593: l_msg_index := l_msg_index + 1;
2594: l_msg_count := l_msg_count - 1;
2592: csi_ctr_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
2593: l_msg_index := l_msg_index + 1;
2594: l_msg_count := l_msg_count - 1;
2595: END LOOP;
2596: RAISE FND_API.G_EXC_ERROR;
2597: END IF;
2598: END IF; -- End of Target counter call check
2599: --
2600: l_previous_rdg := later_rdg.counter_reading;
2654: ,x_return_status => x_return_status
2655: ,x_msg_count => x_msg_count
2656: ,x_msg_data => x_msg_data
2657: );
2658: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
2659: csi_ctr_gen_utility_pvt.put_line('ERROR FROM Compute_Target_Counters API ');
2660: l_msg_index := 1;
2661: l_msg_count := x_msg_count;
2662: WHILE l_msg_count > 0 LOOP
2661: l_msg_count := x_msg_count;
2662: WHILE l_msg_count > 0 LOOP
2663: x_msg_data := FND_MSG_PUB.GET
2664: ( l_msg_index,
2665: FND_API.G_FALSE
2666: );
2667: csi_ctr_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
2668: l_msg_index := l_msg_index + 1;
2669: l_msg_count := l_msg_count - 1;
2667: csi_ctr_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
2668: l_msg_index := l_msg_index + 1;
2669: l_msg_count := l_msg_count - 1;
2670: END LOOP;
2671: RAISE FND_API.G_EXC_ERROR;
2672: END IF;
2673: END IF; -- Added for bug 14155070
2674: END IF; -- End of Target counter call check
2675: --
2678: END IF; -- l_update_loop check
2679: END IF; -- Current counter reading not null check
2680: --
2681:
2682: IF NVL(p_ctr_rdg_rec.reset_mode,FND_API.G_MISS_CHAR) = 'SOFT' THEN
2683: -- Introduce a delay. Basically, value_timestamp of reset should be slightly > than the curr Reading
2684: -- For Reset Mode insert a separate record in CSI_COUNTER_READINGS with the Reset counter reading.
2685: -- Net and LTD readings are from the previous counter reading.
2686: -- If only Reset is performed then no need to introduce the delay.
2687: --
2688: l_reset_rdg_rec := l_temp_ctr_rdg_rec;
2689: --
2690:
2691: IF NVL(p_ctr_rdg_rec.counter_reading,FND_API.G_MISS_NUM) <> FND_API.G_MISS_NUM
2692: AND (p_ctr_rdg_rec.counter_reading <> p_ctr_rdg_rec.reset_counter_reading) THEN
2693: l_reset_timestamp := p_ctr_rdg_rec.value_timestamp + (1/(24*60*60)); -- Add 1 Sec
2694: ELSE -- Only Reset is performed
2695: l_reset_timestamp := p_ctr_rdg_rec.value_timestamp;
2710: --
2711: -- If counter reading had been captured along with the reset then net and ltd would take the
2712: -- calculated values stored in p_ctr_rdg_rec. Otherwise, use the previous values.
2713: --
2714: IF NVL(p_ctr_rdg_rec.net_reading,FND_API.G_MISS_NUM) = FND_API.G_MISS_NUM THEN
2715: -- added IF for Bug 9148094
2716: csi_ctr_gen_utility_pvt.put_line(' Update Net Reading Flag : '||l_update_net_flag);
2717: IF l_update_net_flag = 'Y' THEN
2718: l_reset_rdg_rec.net_reading := p_ctr_rdg_rec.reset_counter_reading;
2725: ELSE
2726: l_reset_rdg_rec.net_reading := p_ctr_rdg_rec.net_reading;
2727: END IF;
2728: END IF;
2729: IF NVL(p_ctr_rdg_rec.life_to_date_reading,FND_API.G_MISS_NUM) = FND_API.G_MISS_NUM THEN
2730: l_reset_rdg_rec.life_to_date_reading := l_prev_ltd_reading;
2731: ELSE
2732: l_reset_rdg_rec.life_to_date_reading := p_ctr_rdg_rec.life_to_date_reading;
2733: END IF;
2743: END LOOP;
2744: --
2745: -- If only Reset is captured then we need to pass the reset counter value_id to p_ctr_rdg_rec
2746: --
2747: IF NVL(p_ctr_rdg_rec.counter_value_id,FND_API.G_MISS_NUM) = FND_API.G_MISS_NUM THEN
2748: p_ctr_rdg_rec.counter_value_id := l_reset_rdg_rec.counter_value_id;
2749: END IF;
2750: -- Call the Table Handler to insert the Reset Reading into CSI_COUNTER_READINGS
2751: --
2817: --Add call to CSI_COUNTER_PVT.update_ctr_val_max_seq_no
2818: --for bug 7374316
2819: CSI_COUNTER_PVT.update_ctr_val_max_seq_no(
2820: p_api_version => 1.0
2821: ,p_commit => fnd_api.g_false
2822: ,p_init_msg_list => fnd_api.g_true
2823: ,p_validation_level => fnd_api.g_valid_level_full
2824: ,p_counter_id => l_reset_rdg_rec.counter_id
2825: ,px_ctr_val_max_seq_no => l_reset_rdg_rec.counter_value_id
2818: --for bug 7374316
2819: CSI_COUNTER_PVT.update_ctr_val_max_seq_no(
2820: p_api_version => 1.0
2821: ,p_commit => fnd_api.g_false
2822: ,p_init_msg_list => fnd_api.g_true
2823: ,p_validation_level => fnd_api.g_valid_level_full
2824: ,p_counter_id => l_reset_rdg_rec.counter_id
2825: ,px_ctr_val_max_seq_no => l_reset_rdg_rec.counter_value_id
2826: ,x_return_status => x_return_status
2819: CSI_COUNTER_PVT.update_ctr_val_max_seq_no(
2820: p_api_version => 1.0
2821: ,p_commit => fnd_api.g_false
2822: ,p_init_msg_list => fnd_api.g_true
2823: ,p_validation_level => fnd_api.g_valid_level_full
2824: ,p_counter_id => l_reset_rdg_rec.counter_id
2825: ,px_ctr_val_max_seq_no => l_reset_rdg_rec.counter_value_id
2826: ,x_return_status => x_return_status
2827: ,x_msg_count => x_msg_count
2826: ,x_return_status => x_return_status
2827: ,x_msg_count => x_msg_count
2828: ,x_msg_data => x_msg_data
2829: );
2830: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
2831: csi_ctr_gen_utility_pvt.put_line('ERROR FROM CSI_COUNTER_PVT.update_ctr_val_max_seq_no');
2832: l_msg_index := 1;
2833: l_msg_count := x_msg_count;
2834: WHILE l_msg_count > 0 LOOP
2833: l_msg_count := x_msg_count;
2834: WHILE l_msg_count > 0 LOOP
2835: x_msg_data := FND_MSG_PUB.GET
2836: ( l_msg_index,
2837: FND_API.G_FALSE
2838: );
2839: csi_ctr_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
2840: l_msg_index := l_msg_index + 1;
2841: l_msg_count := l_msg_count - 1;
2839: csi_ctr_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
2840: l_msg_index := l_msg_index + 1;
2841: l_msg_count := l_msg_count - 1;
2842: END LOOP;
2843: RAISE FND_API.G_EXC_ERROR;
2844: END IF;
2845: -- END IF;
2846: --
2847: --
2873: ,x_return_status => x_return_status
2874: ,x_msg_count => x_msg_count
2875: ,x_msg_data => x_msg_data
2876: );
2877: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
2878: csi_ctr_gen_utility_pvt.put_line('ERROR FROM Reset_Target_Counters API ');
2879: l_msg_index := 1;
2880: l_msg_count := x_msg_count;
2881: WHILE l_msg_count > 0 LOOP
2880: l_msg_count := x_msg_count;
2881: WHILE l_msg_count > 0 LOOP
2882: x_msg_data := FND_MSG_PUB.GET
2883: ( l_msg_index,
2884: FND_API.G_FALSE
2885: );
2886: csi_ctr_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
2887: l_msg_index := l_msg_index + 1;
2888: l_msg_count := l_msg_count - 1;
2886: csi_ctr_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
2887: l_msg_index := l_msg_index + 1;
2888: l_msg_count := l_msg_count - 1;
2889: END LOOP;
2890: RAISE FND_API.G_EXC_ERROR;
2891: END IF;
2892: END IF; -- Include Target Resets check
2893: --
2894: -- No need to compute Derived Filters for SOFT reset as it has the same net reading
2894: -- No need to compute Derived Filters for SOFT reset as it has the same net reading
2895: -- as the previous counter reading.
2896: END IF; -- Reset Mode check
2897: --
2898: IF FND_API.to_Boolean(nvl(p_commit,FND_API.G_FALSE)) THEN
2899: COMMIT WORK;
2900: END IF;
2901: --
2902: -- Standard call to get message count and IF count is get message info.
2905: p_data => x_msg_data
2906: );
2907: EXCEPTION
2908: WHEN Skip_Process THEN
2909: x_return_status := FND_API.G_RET_STS_SUCCESS;
2910: FND_MSG_PUB.Count_And_Get
2911: ( p_count => x_msg_count,
2912: p_data => x_msg_data
2913: );
2910: FND_MSG_PUB.Count_And_Get
2911: ( p_count => x_msg_count,
2912: p_data => x_msg_data
2913: );
2914: WHEN FND_API.G_EXC_ERROR THEN
2915: x_return_status := FND_API.G_RET_STS_ERROR ;
2916: ROLLBACK TO capture_counter_reading_pvt;
2917: FND_MSG_PUB.Count_And_Get
2918: ( p_count => x_msg_count,
2911: ( p_count => x_msg_count,
2912: p_data => x_msg_data
2913: );
2914: WHEN FND_API.G_EXC_ERROR THEN
2915: x_return_status := FND_API.G_RET_STS_ERROR ;
2916: ROLLBACK TO capture_counter_reading_pvt;
2917: FND_MSG_PUB.Count_And_Get
2918: ( p_count => x_msg_count,
2919: p_data => x_msg_data
2917: FND_MSG_PUB.Count_And_Get
2918: ( p_count => x_msg_count,
2919: p_data => x_msg_data
2920: );
2921: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2922: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2923: ROLLBACK TO capture_counter_reading_pvt;
2924: FND_MSG_PUB.Count_And_Get
2925: ( p_count => x_msg_count,
2918: ( p_count => x_msg_count,
2919: p_data => x_msg_data
2920: );
2921: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2922: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2923: ROLLBACK TO capture_counter_reading_pvt;
2924: FND_MSG_PUB.Count_And_Get
2925: ( p_count => x_msg_count,
2926: p_data => x_msg_data
2925: ( p_count => x_msg_count,
2926: p_data => x_msg_data
2927: );
2928: WHEN OTHERS THEN
2929: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2930: ROLLBACK TO capture_counter_reading_pvt;
2931: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2932: FND_MSG_PUB.Add_Exc_Msg
2933: ( G_PKG_NAME,
3024: BEGIN
3025: -- Standard Start of API savepoint
3026: SAVEPOINT compute_formula_counters;
3027: -- Standard call to check for call compatibility.
3028: IF NOT FND_API.Compatible_API_Call (l_api_version,
3029: p_api_version,
3030: l_api_name ,
3031: G_PKG_NAME ) THEN
3032: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3028: IF NOT FND_API.Compatible_API_Call (l_api_version,
3029: p_api_version,
3030: l_api_name ,
3031: G_PKG_NAME ) THEN
3032: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3033: END IF;
3034: -- Initialize message list if p_init_msg_list is set to TRUE.
3035: IF FND_API.to_Boolean(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
3036: FND_MSG_PUB.initialize;
3031: G_PKG_NAME ) THEN
3032: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3033: END IF;
3034: -- Initialize message list if p_init_msg_list is set to TRUE.
3035: IF FND_API.to_Boolean(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
3036: FND_MSG_PUB.initialize;
3037: END IF;
3038: -- Initialize API return status to success
3039: x_return_status := FND_API.G_RET_STS_SUCCESS;
3035: IF FND_API.to_Boolean(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
3036: FND_MSG_PUB.initialize;
3037: END IF;
3038: -- Initialize API return status to success
3039: x_return_status := FND_API.G_RET_STS_SUCCESS;
3040:
3041: -- Read the debug profiles values in to global variable 7197402
3042: IF (CSI_CTR_GEN_UTILITY_PVT.g_debug_level is null) THEN -- 8214848 - dsingire
3043: CSI_CTR_GEN_UTILITY_PVT.read_debug_profiles;
3047: --
3048: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
3049: csi_ctr_gen_utility_pvt.put_line( 'compute_formula_counters' ||'-'||
3050: p_api_version ||'-'||
3051: nvl(p_commit,FND_API.G_FALSE) ||'-'||
3052: nvl(p_init_msg_list,FND_API.G_FALSE) ||'-'||
3053: nvl(p_validation_level,FND_API.G_VALID_LEVEL_FULL) );
3054: csi_ctr_gen_utility_pvt.dump_counter_readings_rec(p_ctr_rdg_rec);
3055: END IF; -- 8214848 - dsingire
3048: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
3049: csi_ctr_gen_utility_pvt.put_line( 'compute_formula_counters' ||'-'||
3050: p_api_version ||'-'||
3051: nvl(p_commit,FND_API.G_FALSE) ||'-'||
3052: nvl(p_init_msg_list,FND_API.G_FALSE) ||'-'||
3053: nvl(p_validation_level,FND_API.G_VALID_LEVEL_FULL) );
3054: csi_ctr_gen_utility_pvt.dump_counter_readings_rec(p_ctr_rdg_rec);
3055: END IF; -- 8214848 - dsingire
3056: --
3049: csi_ctr_gen_utility_pvt.put_line( 'compute_formula_counters' ||'-'||
3050: p_api_version ||'-'||
3051: nvl(p_commit,FND_API.G_FALSE) ||'-'||
3052: nvl(p_init_msg_list,FND_API.G_FALSE) ||'-'||
3053: nvl(p_validation_level,FND_API.G_VALID_LEVEL_FULL) );
3054: csi_ctr_gen_utility_pvt.dump_counter_readings_rec(p_ctr_rdg_rec);
3055: END IF; -- 8214848 - dsingire
3056: --
3057:
3062: l_mode := 'Counter';
3063: END IF;
3064: --
3065: IF p_ctr_rdg_rec.counter_id IS NULL OR
3066: p_ctr_rdg_rec.counter_id = FND_API.G_MISS_NUM THEN
3067: csi_ctr_gen_utility_pvt.ExitWithErrMsg
3068: ( p_msg_name => 'CSI_API_CTR_INVALID',
3069: p_token1_name => 'MODE',
3070: p_token1_val => l_mode
3071: );
3072: END IF;
3073: --
3074: IF p_ctr_rdg_rec.disabled_flag IS NULL OR
3075: p_ctr_rdg_rec.disabled_flag = FND_API.G_MISS_CHAR THEN
3076: l_disabled_flag := 'N';
3077: ELSE
3078: l_disabled_flag := p_ctr_rdg_rec.disabled_flag;
3079: END IF;
3286: --Add call to CSI_COUNTER_PVT.update_ctr_val_max_seq_no
3287: --for bug 7374316
3288: CSI_COUNTER_PVT.update_ctr_val_max_seq_no(
3289: p_api_version => 1.0
3290: ,p_commit => fnd_api.g_false
3291: ,p_init_msg_list => fnd_api.g_true
3292: ,p_validation_level => fnd_api.g_valid_level_full
3293: ,p_counter_id => obj_cur.object_counter_id
3294: ,px_ctr_val_max_seq_no => l_ctr_value_id
3287: --for bug 7374316
3288: CSI_COUNTER_PVT.update_ctr_val_max_seq_no(
3289: p_api_version => 1.0
3290: ,p_commit => fnd_api.g_false
3291: ,p_init_msg_list => fnd_api.g_true
3292: ,p_validation_level => fnd_api.g_valid_level_full
3293: ,p_counter_id => obj_cur.object_counter_id
3294: ,px_ctr_val_max_seq_no => l_ctr_value_id
3295: ,x_return_status => x_return_status
3288: CSI_COUNTER_PVT.update_ctr_val_max_seq_no(
3289: p_api_version => 1.0
3290: ,p_commit => fnd_api.g_false
3291: ,p_init_msg_list => fnd_api.g_true
3292: ,p_validation_level => fnd_api.g_valid_level_full
3293: ,p_counter_id => obj_cur.object_counter_id
3294: ,px_ctr_val_max_seq_no => l_ctr_value_id
3295: ,x_return_status => x_return_status
3296: ,x_msg_count => x_msg_count
3295: ,x_return_status => x_return_status
3296: ,x_msg_count => x_msg_count
3297: ,x_msg_data => x_msg_data
3298: );
3299: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
3300: csi_ctr_gen_utility_pvt.put_line('ERROR FROM CSI_COUNTER_PVT.update_ctr_val_max_seq_no');
3301: l_msg_index := 1;
3302: l_msg_count := x_msg_count;
3303: WHILE l_msg_count > 0 LOOP
3302: l_msg_count := x_msg_count;
3303: WHILE l_msg_count > 0 LOOP
3304: x_msg_data := FND_MSG_PUB.GET
3305: ( l_msg_index,
3306: FND_API.G_FALSE
3307: );
3308: csi_ctr_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
3309: l_msg_index := l_msg_index + 1;
3310: l_msg_count := l_msg_count - 1;
3308: csi_ctr_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
3309: l_msg_index := l_msg_index + 1;
3310: l_msg_count := l_msg_count - 1;
3311: END LOOP;
3312: RAISE FND_API.G_EXC_ERROR;
3313: END IF;
3314: ELSE
3315: --Add call to CSI_COUNTER_PVT.update_ctr_val_max_seq_no
3316: --for bug 7374316
3316: --for bug 7374316
3317: l_tmp_ctr_value_id := NULL;
3318: CSI_COUNTER_PVT.update_ctr_val_max_seq_no(
3319: p_api_version => 1.0
3320: ,p_commit => fnd_api.g_false
3321: ,p_init_msg_list => fnd_api.g_true
3322: ,p_validation_level => fnd_api.g_valid_level_full
3323: ,p_counter_id => obj_cur.object_counter_id
3324: ,px_ctr_val_max_seq_no => l_tmp_ctr_value_id
3317: l_tmp_ctr_value_id := NULL;
3318: CSI_COUNTER_PVT.update_ctr_val_max_seq_no(
3319: p_api_version => 1.0
3320: ,p_commit => fnd_api.g_false
3321: ,p_init_msg_list => fnd_api.g_true
3322: ,p_validation_level => fnd_api.g_valid_level_full
3323: ,p_counter_id => obj_cur.object_counter_id
3324: ,px_ctr_val_max_seq_no => l_tmp_ctr_value_id
3325: ,x_return_status => x_return_status
3318: CSI_COUNTER_PVT.update_ctr_val_max_seq_no(
3319: p_api_version => 1.0
3320: ,p_commit => fnd_api.g_false
3321: ,p_init_msg_list => fnd_api.g_true
3322: ,p_validation_level => fnd_api.g_valid_level_full
3323: ,p_counter_id => obj_cur.object_counter_id
3324: ,px_ctr_val_max_seq_no => l_tmp_ctr_value_id
3325: ,x_return_status => x_return_status
3326: ,x_msg_count => x_msg_count
3325: ,x_return_status => x_return_status
3326: ,x_msg_count => x_msg_count
3327: ,x_msg_data => x_msg_data
3328: );
3329: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
3330: csi_ctr_gen_utility_pvt.put_line('ERROR FROM CSI_COUNTER_PVT.update_ctr_val_max_seq_no');
3331: l_msg_index := 1;
3332: l_msg_count := x_msg_count;
3333: WHILE l_msg_count > 0 LOOP
3332: l_msg_count := x_msg_count;
3333: WHILE l_msg_count > 0 LOOP
3334: x_msg_data := FND_MSG_PUB.GET
3335: ( l_msg_index,
3336: FND_API.G_FALSE
3337: );
3338: csi_ctr_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
3339: l_msg_index := l_msg_index + 1;
3340: l_msg_count := l_msg_count - 1;
3338: csi_ctr_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
3339: l_msg_index := l_msg_index + 1;
3340: l_msg_count := l_msg_count - 1;
3341: END LOOP;
3342: RAISE FND_API.G_EXC_ERROR;
3343: END IF;
3344: END IF;
3345: ELSE -- If source counter is disabled then the corresponding formula counter reading is updated
3346: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
3361: --for bug 7374316
3362: l_tmp_ctr_value_id := NULL;
3363: CSI_COUNTER_PVT.update_ctr_val_max_seq_no(
3364: p_api_version => 1.0
3365: ,p_commit => fnd_api.g_false
3366: ,p_init_msg_list => fnd_api.g_true
3367: ,p_validation_level => fnd_api.g_valid_level_full
3368: ,p_counter_id => obj_cur.object_counter_id
3369: ,px_ctr_val_max_seq_no => l_tmp_ctr_value_id
3362: l_tmp_ctr_value_id := NULL;
3363: CSI_COUNTER_PVT.update_ctr_val_max_seq_no(
3364: p_api_version => 1.0
3365: ,p_commit => fnd_api.g_false
3366: ,p_init_msg_list => fnd_api.g_true
3367: ,p_validation_level => fnd_api.g_valid_level_full
3368: ,p_counter_id => obj_cur.object_counter_id
3369: ,px_ctr_val_max_seq_no => l_tmp_ctr_value_id
3370: ,x_return_status => x_return_status
3363: CSI_COUNTER_PVT.update_ctr_val_max_seq_no(
3364: p_api_version => 1.0
3365: ,p_commit => fnd_api.g_false
3366: ,p_init_msg_list => fnd_api.g_true
3367: ,p_validation_level => fnd_api.g_valid_level_full
3368: ,p_counter_id => obj_cur.object_counter_id
3369: ,px_ctr_val_max_seq_no => l_tmp_ctr_value_id
3370: ,x_return_status => x_return_status
3371: ,x_msg_count => x_msg_count
3370: ,x_return_status => x_return_status
3371: ,x_msg_count => x_msg_count
3372: ,x_msg_data => x_msg_data
3373: );
3374: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
3375: csi_ctr_gen_utility_pvt.put_line('ERROR FROM CSI_COUNTER_PVT.update_ctr_val_max_seq_no');
3376: l_msg_index := 1;
3377: l_msg_count := x_msg_count;
3378: WHILE l_msg_count > 0 LOOP
3377: l_msg_count := x_msg_count;
3378: WHILE l_msg_count > 0 LOOP
3379: x_msg_data := FND_MSG_PUB.GET
3380: ( l_msg_index,
3381: FND_API.G_FALSE
3382: );
3383: csi_ctr_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
3384: l_msg_index := l_msg_index + 1;
3385: l_msg_count := l_msg_count - 1;
3383: csi_ctr_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
3384: l_msg_index := l_msg_index + 1;
3385: l_msg_count := l_msg_count - 1;
3386: END LOOP;
3387: RAISE FND_API.G_EXC_ERROR;
3388: END IF;
3389: END IF;
3390: END IF; -- Check for disabled_flag
3391: --
3477: null;
3478: End;
3479: END LOOP; -- Obj Cursor
3480: --
3481: IF FND_API.to_Boolean(nvl(p_commit,FND_API.G_FALSE)) THEN
3482: COMMIT WORK;
3483: END IF;
3484: --
3485: -- Standard call to get message count and IF count is get message info.
3487: ( p_count => x_msg_count,
3488: p_data => x_msg_data
3489: );
3490: EXCEPTION
3491: WHEN FND_API.G_EXC_ERROR THEN
3492: x_return_status := FND_API.G_RET_STS_ERROR ;
3493: ROLLBACK TO compute_formula_counters;
3494: FND_MSG_PUB.Count_And_Get
3495: ( p_count => x_msg_count,
3488: p_data => x_msg_data
3489: );
3490: EXCEPTION
3491: WHEN FND_API.G_EXC_ERROR THEN
3492: x_return_status := FND_API.G_RET_STS_ERROR ;
3493: ROLLBACK TO compute_formula_counters;
3494: FND_MSG_PUB.Count_And_Get
3495: ( p_count => x_msg_count,
3496: p_data => x_msg_data
3494: FND_MSG_PUB.Count_And_Get
3495: ( p_count => x_msg_count,
3496: p_data => x_msg_data
3497: );
3498: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3499: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3500: ROLLBACK TO compute_formula_counters;
3501: FND_MSG_PUB.Count_And_Get
3502: ( p_count => x_msg_count,
3495: ( p_count => x_msg_count,
3496: p_data => x_msg_data
3497: );
3498: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3499: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3500: ROLLBACK TO compute_formula_counters;
3501: FND_MSG_PUB.Count_And_Get
3502: ( p_count => x_msg_count,
3503: p_data => x_msg_data
3502: ( p_count => x_msg_count,
3503: p_data => x_msg_data
3504: );
3505: WHEN OTHERS THEN
3506: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3507: ROLLBACK TO compute_formula_counters;
3508: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3509: FND_MSG_PUB.Add_Exc_Msg
3510: ( G_PKG_NAME,
3614: BEGIN
3615: -- Standard Start of API savepoint
3616: SAVEPOINT compute_derive_counters;
3617: -- Initialize message list if p_init_msg_list is set to TRUE.
3618: IF FND_API.to_Boolean(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
3619: FND_MSG_PUB.initialize;
3620: END IF;
3621: x_return_status := FND_API.G_RET_STS_SUCCESS;
3622: --
3617: -- Initialize message list if p_init_msg_list is set to TRUE.
3618: IF FND_API.to_Boolean(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
3619: FND_MSG_PUB.initialize;
3620: END IF;
3621: x_return_status := FND_API.G_RET_STS_SUCCESS;
3622: --
3623:
3624: -- Read the debug profiles values in to global variable 7197402
3625: IF (CSI_CTR_GEN_UTILITY_PVT.g_debug_level is null) THEN -- 8214848 - dsingire
3959: --Add call to CSI_COUNTER_PVT.update_ctr_val_max_seq_no
3960: --for bug 7374316
3961: CSI_COUNTER_PVT.update_ctr_val_max_seq_no(
3962: p_api_version => 1.0
3963: ,p_commit => fnd_api.g_false
3964: ,p_init_msg_list => fnd_api.g_true
3965: ,p_validation_level => fnd_api.g_valid_level_full
3966: ,p_counter_id => l_ctr_in.counter_id
3967: ,px_ctr_val_max_seq_no => l_ctr_value_id
3960: --for bug 7374316
3961: CSI_COUNTER_PVT.update_ctr_val_max_seq_no(
3962: p_api_version => 1.0
3963: ,p_commit => fnd_api.g_false
3964: ,p_init_msg_list => fnd_api.g_true
3965: ,p_validation_level => fnd_api.g_valid_level_full
3966: ,p_counter_id => l_ctr_in.counter_id
3967: ,px_ctr_val_max_seq_no => l_ctr_value_id
3968: ,x_return_status => x_return_status
3961: CSI_COUNTER_PVT.update_ctr_val_max_seq_no(
3962: p_api_version => 1.0
3963: ,p_commit => fnd_api.g_false
3964: ,p_init_msg_list => fnd_api.g_true
3965: ,p_validation_level => fnd_api.g_valid_level_full
3966: ,p_counter_id => l_ctr_in.counter_id
3967: ,px_ctr_val_max_seq_no => l_ctr_value_id
3968: ,x_return_status => x_return_status
3969: ,x_msg_count => x_msg_count
3968: ,x_return_status => x_return_status
3969: ,x_msg_count => x_msg_count
3970: ,x_msg_data => x_msg_data
3971: );
3972: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
3973: csi_ctr_gen_utility_pvt.put_line('ERROR FROM CSI_COUNTER_PVT.update_ctr_val_max_seq_no');
3974: l_msg_index := 1;
3975: l_msg_count := x_msg_count;
3976: WHILE l_msg_count > 0 LOOP
3975: l_msg_count := x_msg_count;
3976: WHILE l_msg_count > 0 LOOP
3977: x_msg_data := FND_MSG_PUB.GET
3978: ( l_msg_index,
3979: FND_API.G_FALSE
3980: );
3981: csi_ctr_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
3982: l_msg_index := l_msg_index + 1;
3983: l_msg_count := l_msg_count - 1;
3981: csi_ctr_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
3982: l_msg_index := l_msg_index + 1;
3983: l_msg_count := l_msg_count - 1;
3984: END LOOP;
3985: RAISE FND_API.G_EXC_ERROR;
3986: END IF;
3987: END IF; -- p_mode check
3988: ELSE
3989: csi_ctr_gen_utility_pvt.put_line('No derive filters computed for '||to_char(ctrs.counter_id));
3992: -- Start fix bug 6852415, part 3 of 3
3993: END LOOP;
3994: -- End fix bug 6852415, part 3 of 3
3995: EXCEPTION
3996: WHEN FND_API.G_EXC_ERROR THEN
3997: x_return_status := FND_API.G_RET_STS_ERROR ;
3998: ROLLBACK TO compute_derive_counters;
3999: FND_MSG_PUB.Count_And_Get
4000: ( p_count => x_msg_count,
3993: END LOOP;
3994: -- End fix bug 6852415, part 3 of 3
3995: EXCEPTION
3996: WHEN FND_API.G_EXC_ERROR THEN
3997: x_return_status := FND_API.G_RET_STS_ERROR ;
3998: ROLLBACK TO compute_derive_counters;
3999: FND_MSG_PUB.Count_And_Get
4000: ( p_count => x_msg_count,
4001: p_data => x_msg_data
4000: ( p_count => x_msg_count,
4001: p_data => x_msg_data
4002: );
4003: WHEN OTHERS THEN
4004: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4005: ROLLBACK TO compute_derive_counters;
4006: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4007: FND_MSG_PUB.Add_Exc_Msg
4008: ( G_PKG_NAME,
4118: BEGIN
4119: -- Standard Start of API savepoint
4120: SAVEPOINT compute_target_counters;
4121: -- Standard call to check for call compatibility.
4122: IF NOT FND_API.Compatible_API_Call (l_api_version,
4123: p_api_version,
4124: l_api_name ,
4125: G_PKG_NAME ) THEN
4126: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4122: IF NOT FND_API.Compatible_API_Call (l_api_version,
4123: p_api_version,
4124: l_api_name ,
4125: G_PKG_NAME ) THEN
4126: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4127: END IF;
4128: -- Initialize message list if p_init_msg_list is set to TRUE.
4129: IF FND_API.to_Boolean(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
4130: FND_MSG_PUB.initialize;
4125: G_PKG_NAME ) THEN
4126: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4127: END IF;
4128: -- Initialize message list if p_init_msg_list is set to TRUE.
4129: IF FND_API.to_Boolean(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
4130: FND_MSG_PUB.initialize;
4131: END IF;
4132: -- Initialize API return status to success
4133: x_return_status := FND_API.G_RET_STS_SUCCESS;
4129: IF FND_API.to_Boolean(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
4130: FND_MSG_PUB.initialize;
4131: END IF;
4132: -- Initialize API return status to success
4133: x_return_status := FND_API.G_RET_STS_SUCCESS;
4134: --
4135:
4136: -- Read the debug profiles values in to global variable 7197402
4137: IF (CSI_CTR_GEN_UTILITY_PVT.g_debug_level is null) THEN -- 8214848 - dsingire
4143: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
4144: csi_ctr_gen_utility_pvt.put_line( 'compute_target_counters' ||'-'||
4145: p_api_version ||'-'||
4146: p_mode ||'-'||
4147: nvl(p_commit,FND_API.G_FALSE) ||'-'||
4148: nvl(p_init_msg_list,FND_API.G_FALSE) ||'-'||
4149: nvl(p_validation_level,FND_API.G_VALID_LEVEL_FULL) );
4150: csi_ctr_gen_utility_pvt.dump_counter_readings_rec(p_ctr_rdg_rec);
4151: END IF; -- 8214848 - dsingire
4144: csi_ctr_gen_utility_pvt.put_line( 'compute_target_counters' ||'-'||
4145: p_api_version ||'-'||
4146: p_mode ||'-'||
4147: nvl(p_commit,FND_API.G_FALSE) ||'-'||
4148: nvl(p_init_msg_list,FND_API.G_FALSE) ||'-'||
4149: nvl(p_validation_level,FND_API.G_VALID_LEVEL_FULL) );
4150: csi_ctr_gen_utility_pvt.dump_counter_readings_rec(p_ctr_rdg_rec);
4151: END IF; -- 8214848 - dsingire
4152: --
4145: p_api_version ||'-'||
4146: p_mode ||'-'||
4147: nvl(p_commit,FND_API.G_FALSE) ||'-'||
4148: nvl(p_init_msg_list,FND_API.G_FALSE) ||'-'||
4149: nvl(p_validation_level,FND_API.G_VALID_LEVEL_FULL) );
4150: csi_ctr_gen_utility_pvt.dump_counter_readings_rec(p_ctr_rdg_rec);
4151: END IF; -- 8214848 - dsingire
4152: --
4153:
4158: l_mode := 'Counter';
4159: END IF;
4160: --
4161: IF p_ctr_rdg_rec.counter_id IS NULL OR
4162: p_ctr_rdg_rec.counter_id = FND_API.G_MISS_NUM THEN
4163: csi_ctr_gen_utility_pvt.ExitWithErrMsg
4164: ( p_msg_name => 'CSI_API_CTR_INVALID',
4165: p_token1_name => 'MODE',
4166: p_token1_val => l_mode
4167: );
4168: END IF;
4169: --
4170: IF p_ctr_rdg_rec.value_timestamp IS NULL OR
4171: p_ctr_rdg_rec.value_timestamp = FND_API.G_MISS_DATE THEN
4172: csi_ctr_gen_utility_pvt.ExitWithErrMsg('CSI_API_CTR_INVALID_RDG_DATE');
4173: END IF;
4174: --
4175: -- Fundamental Assumption is, the direction of All Target counters should be same as the Source Counter
4599: END IF;
4600: --
4601: IF l_prev_ctr_reading IS NULL AND
4602: (p_ctr_rdg_rec.adjustment_type IS NOT NULL AND
4603: p_ctr_rdg_rec.adjustment_type <> FND_API.G_MISS_CHAR) THEN
4604: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
4605: csi_ctr_gen_utility_pvt.put_line('First reading of this Target Counter '||
4606: to_char(obj_cur.object_counter_id)||' cannot be an Adjustment reading. Ingoring it..');
4607: END IF; -- 8214848 - dsingire
4622: IF obj_cur.reading_type = 1 THEN
4623: IF l_source_direction = 'A' AND obj_cur.direction = 'D' THEN
4624: IF nvl(l_prev_ctr_reading, 0) = 0 THEN
4625: l_counter_reading := ((p_ctr_rdg_rec.counter_reading * l_uom_rate) * obj_cur.factor) * -1;
4626: IF p_ctr_rdg_rec.adjustment_reading is not null and p_ctr_rdg_rec.adjustment_reading <> FND_API.G_MISS_NUM then
4627: l_ctr_rdg_rec.adjustment_reading := ((p_ctr_rdg_rec.adjustment_reading * l_uom_rate) * obj_cur.factor) * -1;
4628: END IF;
4629: ELSE
4630: IF l_prev_ctr_reading < 0 THEN
4629: ELSE
4630: IF l_prev_ctr_reading < 0 THEN
4631: l_counter_reading := ((l_prev_ctr_reading * -1) - (((p_ctr_rdg_rec.counter_reading * -1) * l_uom_rate) * obj_cur.factor));
4632: l_counter_reading := l_counter_reading * -1;
4633: IF p_ctr_rdg_rec.adjustment_reading is not null and p_ctr_rdg_rec.adjustment_reading <> FND_API.G_MISS_NUM then
4634: l_ctr_rdg_rec.adjustment_reading := (p_ctr_rdg_rec.adjustment_reading * l_uom_rate) * obj_cur.factor;
4635: l_ctr_rdg_rec.adjustment_reading := l_ctr_rdg_rec.adjustment_reading * -1;
4636: END IF;
4637: ELSE
4635: l_ctr_rdg_rec.adjustment_reading := l_ctr_rdg_rec.adjustment_reading * -1;
4636: END IF;
4637: ELSE
4638: l_counter_reading := nvl(l_prev_ctr_reading,0) - ((p_ctr_rdg_rec.counter_reading * l_uom_rate) * obj_cur.factor);
4639: IF p_ctr_rdg_rec.adjustment_reading is not null and p_ctr_rdg_rec.adjustment_reading <> FND_API.G_MISS_NUM then
4640: l_ctr_rdg_rec.adjustment_reading := (p_ctr_rdg_rec.adjustment_reading * l_uom_rate) * obj_cur.factor;
4641: END IF;
4642: END IF;
4643: END IF;
4654: IF l_counter_reading < 0 THEN
4655: l_counter_reading := l_counter_reading * -1;
4656: END IF;
4657:
4658: IF p_ctr_rdg_rec.adjustment_reading is not null and p_ctr_rdg_rec.adjustment_reading <> FND_API.G_MISS_NUM then
4659: l_ctr_rdg_rec.adjustment_reading := ((p_ctr_rdg_rec.adjustment_reading * l_uom_rate) * obj_cur.factor);
4660:
4661: IF l_ctr_rdg_rec.adjustment_reading < 0 THEN
4662: l_ctr_rdg_rec.adjustment_reading := l_ctr_rdg_rec.adjustment_reading * -1;
4663: END IF;
4664: END IF;
4665: ELSE
4666: l_counter_reading := nvl(l_prev_ctr_reading,0) + ((p_ctr_rdg_rec.counter_reading * l_uom_rate) * obj_cur.factor);
4667: IF p_ctr_rdg_rec.adjustment_reading is not null and p_ctr_rdg_rec.adjustment_reading <> FND_API.G_MISS_NUM then
4668: l_ctr_rdg_rec.adjustment_reading := (p_ctr_rdg_rec.adjustment_reading * l_uom_rate) * obj_cur.factor;
4669: END IF;
4670: END IF;
4671: END IF;
4674: END IF; -- 8214848 - dsingire
4675:
4676: IF obj_cur.direction = 'A' and l_source_direction = 'A' THEN
4677: l_counter_reading := nvl(l_prev_ctr_reading,0) + ((p_ctr_rdg_rec.counter_reading * l_uom_rate) * obj_cur.factor);
4678: IF p_ctr_rdg_rec.adjustment_reading is not null and p_ctr_rdg_rec.adjustment_reading <> FND_API.G_MISS_NUM then
4679: l_ctr_rdg_rec.adjustment_reading := (p_ctr_rdg_rec.adjustment_reading * l_uom_rate) * obj_cur.factor;
4680: END IF;
4681: ELSIF obj_cur.direction = 'D' and l_source_direction = 'D' THEN
4682: IF nvl(l_prev_ctr_reading, 0) = 0 THEN
4680: END IF;
4681: ELSIF obj_cur.direction = 'D' and l_source_direction = 'D' THEN
4682: IF nvl(l_prev_ctr_reading, 0) = 0 THEN
4683: l_counter_reading := ((p_ctr_rdg_rec.counter_reading * l_uom_rate) * obj_cur.factor);
4684: IF p_ctr_rdg_rec.adjustment_reading is not null and p_ctr_rdg_rec.adjustment_reading <> FND_API.G_MISS_NUM then
4685: l_ctr_rdg_rec.adjustment_reading := ((p_ctr_rdg_rec.adjustment_reading * l_uom_rate) * obj_cur.factor);
4686: END IF;
4687: ELSE
4688: IF l_prev_ctr_reading < 0 THEN
4687: ELSE
4688: IF l_prev_ctr_reading < 0 THEN
4689: l_counter_reading := ((l_prev_ctr_reading * -1) - ((p_ctr_rdg_rec.counter_reading * l_uom_rate) * obj_cur.factor));
4690: l_counter_reading := l_counter_reading * -1;
4691: IF p_ctr_rdg_rec.adjustment_reading is not null and p_ctr_rdg_rec.adjustment_reading <> FND_API.G_MISS_NUM then
4692: l_ctr_rdg_rec.adjustment_reading := (p_ctr_rdg_rec.adjustment_reading * l_uom_rate) * obj_cur.factor;
4693: l_ctr_rdg_rec.adjustment_reading := l_ctr_rdg_rec.adjustment_reading * -1;
4694: END IF;
4695: ELSE
4703: csi_ctr_gen_utility_pvt.put_line('New target reading = '||to_char(l_counter_reading));
4704: END IF; -- 8214848 - dsingire
4705: ELSIF obj_cur.direction = 'B' and l_source_direction = 'B' THEN
4706: l_counter_reading := nvl(l_prev_ctr_reading,0) + ((p_ctr_rdg_rec.counter_reading * l_uom_rate) * obj_cur.factor);
4707: IF p_ctr_rdg_rec.adjustment_reading is not null and p_ctr_rdg_rec.adjustment_reading <> FND_API.G_MISS_NUM then
4708: l_ctr_rdg_rec.adjustment_reading := (p_ctr_rdg_rec.adjustment_reading * l_uom_rate) * obj_cur.factor;
4709: END IF;
4710: END IF;
4711: ELSE
4709: END IF;
4710: END IF;
4711: ELSE
4712: l_counter_reading := (p_ctr_rdg_rec.counter_reading * l_uom_rate) * obj_cur.factor;
4713: IF p_ctr_rdg_rec.adjustment_reading is not null and p_ctr_rdg_rec.adjustment_reading <> FND_API.G_MISS_NUM then
4714: l_ctr_rdg_rec.adjustment_reading := (p_ctr_rdg_rec.adjustment_reading * l_uom_rate) * obj_cur.factor;
4715: END IF;
4716: END IF;
4717: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
4781: END IF; -- 8214848 - dsingire
4782: Eam_Asset_Log_Pvt.Insert_Meter_Log
4783: (
4784: P_api_version => 1.0,
4785: P_init_msg_list => fnd_api.g_false,
4786: P_commit => fnd_api.g_false,
4787: P_validation_level => fnd_api.g_valid_level_full,
4788: P_event_date => l_ctr_rdg_rec.value_timestamp,
4789: P_instance_id => l_instance_id,
4782: Eam_Asset_Log_Pvt.Insert_Meter_Log
4783: (
4784: P_api_version => 1.0,
4785: P_init_msg_list => fnd_api.g_false,
4786: P_commit => fnd_api.g_false,
4787: P_validation_level => fnd_api.g_valid_level_full,
4788: P_event_date => l_ctr_rdg_rec.value_timestamp,
4789: P_instance_id => l_instance_id,
4790: P_ref_id => l_ctr_rdg_rec.counter_id,
4783: (
4784: P_api_version => 1.0,
4785: P_init_msg_list => fnd_api.g_false,
4786: P_commit => fnd_api.g_false,
4787: P_validation_level => fnd_api.g_valid_level_full,
4788: P_event_date => l_ctr_rdg_rec.value_timestamp,
4789: P_instance_id => l_instance_id,
4790: P_ref_id => l_ctr_rdg_rec.counter_id,
4791: X_return_status => x_return_status,
4794: );
4795: -- Since this is only for logging we are ignoring the x_return_status.
4796: -- Just report the API error and proceed.
4797: --
4798: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
4799: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
4800: csi_ctr_gen_utility_pvt.put_line('ERROR FROM Insert_Meter_Log API ');
4801: END IF; -- 8214848 - dsingire
4802: l_msg_index := 1;
4803: l_msg_count := x_msg_count;
4804: WHILE l_msg_count > 0 LOOP
4805: x_msg_data := FND_MSG_PUB.GET
4806: ( l_msg_index,
4807: FND_API.G_FALSE
4808: );
4809: csi_ctr_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
4810: l_msg_index := l_msg_index + 1;
4811: l_msg_count := l_msg_count - 1;
4843: X_msg_data => x_msg_data
4844: );
4845: END IF; --Bug 12536426
4846:
4847: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
4848: csi_ctr_gen_utility_pvt.put_line('ERROR FROM Update_Last_Service_Reading_Wo API ');
4849: l_msg_index := 1;
4850: l_msg_count := x_msg_count;
4851: WHILE l_msg_count > 0 LOOP
4850: l_msg_count := x_msg_count;
4851: WHILE l_msg_count > 0 LOOP
4852: x_msg_data := FND_MSG_PUB.GET
4853: ( l_msg_index,
4854: FND_API.G_FALSE
4855: );
4856: csi_ctr_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
4857: l_msg_index := l_msg_index + 1;
4858: l_msg_count := l_msg_count - 1;
4856: csi_ctr_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
4857: l_msg_index := l_msg_index + 1;
4858: l_msg_count := l_msg_count - 1;
4859: END LOOP;
4860: RAISE FND_API.G_EXC_ERROR;
4861: END IF;
4862: END IF; -- Call Update_Last_Service_Reading_WO check
4863:
4864: --
4939: --Add call to CSI_COUNTER_PVT.update_ctr_val_max_seq_no
4940: --for bug 7374316
4941: CSI_COUNTER_PVT.update_ctr_val_max_seq_no(
4942: p_api_version => 1.0
4943: ,p_commit => fnd_api.g_false
4944: ,p_init_msg_list => fnd_api.g_true
4945: ,p_validation_level => fnd_api.g_valid_level_full
4946: ,p_counter_id => l_ctr_rdg_rec.counter_id
4947: ,px_ctr_val_max_seq_no => l_ctr_rdg_rec.counter_value_id
4940: --for bug 7374316
4941: CSI_COUNTER_PVT.update_ctr_val_max_seq_no(
4942: p_api_version => 1.0
4943: ,p_commit => fnd_api.g_false
4944: ,p_init_msg_list => fnd_api.g_true
4945: ,p_validation_level => fnd_api.g_valid_level_full
4946: ,p_counter_id => l_ctr_rdg_rec.counter_id
4947: ,px_ctr_val_max_seq_no => l_ctr_rdg_rec.counter_value_id
4948: ,x_return_status => x_return_status
4941: CSI_COUNTER_PVT.update_ctr_val_max_seq_no(
4942: p_api_version => 1.0
4943: ,p_commit => fnd_api.g_false
4944: ,p_init_msg_list => fnd_api.g_true
4945: ,p_validation_level => fnd_api.g_valid_level_full
4946: ,p_counter_id => l_ctr_rdg_rec.counter_id
4947: ,px_ctr_val_max_seq_no => l_ctr_rdg_rec.counter_value_id
4948: ,x_return_status => x_return_status
4949: ,x_msg_count => x_msg_count
4948: ,x_return_status => x_return_status
4949: ,x_msg_count => x_msg_count
4950: ,x_msg_data => x_msg_data
4951: );
4952: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
4953: csi_ctr_gen_utility_pvt.put_line('ERROR FROM CSI_COUNTER_PVT.update_ctr_val_max_seq_no');
4954: l_msg_index := 1;
4955: l_msg_count := x_msg_count;
4956: WHILE l_msg_count > 0 LOOP
4955: l_msg_count := x_msg_count;
4956: WHILE l_msg_count > 0 LOOP
4957: x_msg_data := FND_MSG_PUB.GET
4958: ( l_msg_index,
4959: FND_API.G_FALSE
4960: );
4961: csi_ctr_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
4962: l_msg_index := l_msg_index + 1;
4963: l_msg_count := l_msg_count - 1;
4961: csi_ctr_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
4962: l_msg_index := l_msg_index + 1;
4963: l_msg_count := l_msg_count - 1;
4964: END LOOP;
4965: RAISE FND_API.G_EXC_ERROR;
4966: END IF;
4967: Exception
4968: when Process_next then
4969: null;
4970: End;
4971: END LOOP; -- Obj Cursor
4972: END IF; -- p_mode check
4973: --
4974: IF FND_API.to_Boolean(nvl(p_commit,FND_API.G_FALSE)) THEN
4975: COMMIT WORK;
4976: END IF;
4977: --
4978: -- Standard call to get message count and IF count is get message info.
4980: ( p_count => x_msg_count,
4981: p_data => x_msg_data
4982: );
4983: EXCEPTION
4984: WHEN FND_API.G_EXC_ERROR THEN
4985: x_return_status := FND_API.G_RET_STS_ERROR ;
4986: ROLLBACK TO compute_target_counters;
4987: FND_MSG_PUB.Count_And_Get
4988: ( p_count => x_msg_count,
4981: p_data => x_msg_data
4982: );
4983: EXCEPTION
4984: WHEN FND_API.G_EXC_ERROR THEN
4985: x_return_status := FND_API.G_RET_STS_ERROR ;
4986: ROLLBACK TO compute_target_counters;
4987: FND_MSG_PUB.Count_And_Get
4988: ( p_count => x_msg_count,
4989: p_data => x_msg_data
4987: FND_MSG_PUB.Count_And_Get
4988: ( p_count => x_msg_count,
4989: p_data => x_msg_data
4990: );
4991: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4992: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4993: ROLLBACK TO compute_target_counters;
4994: FND_MSG_PUB.Count_And_Get
4995: ( p_count => x_msg_count,
4988: ( p_count => x_msg_count,
4989: p_data => x_msg_data
4990: );
4991: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4992: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4993: ROLLBACK TO compute_target_counters;
4994: FND_MSG_PUB.Count_And_Get
4995: ( p_count => x_msg_count,
4996: p_data => x_msg_data
4995: ( p_count => x_msg_count,
4996: p_data => x_msg_data
4997: );
4998: WHEN OTHERS THEN
4999: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5000: ROLLBACK TO compute_target_counters;
5001: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
5002: FND_MSG_PUB.Add_Exc_Msg
5003: ( G_PKG_NAME,
5125:
5126: -- Standard Start of API savepoint
5127: SAVEPOINT update_counter_reading_pvt;
5128: -- Standard call to check for call compatibility.
5129: IF NOT FND_API.Compatible_API_Call (l_api_version,
5130: p_api_version,
5131: l_api_name ,
5132: G_PKG_NAME ) THEN
5133: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5129: IF NOT FND_API.Compatible_API_Call (l_api_version,
5130: p_api_version,
5131: l_api_name ,
5132: G_PKG_NAME ) THEN
5133: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5134: END IF;
5135: -- Initialize message list if p_init_msg_list is set to TRUE.
5136: IF FND_API.to_Boolean(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
5137: FND_MSG_PUB.initialize;
5132: G_PKG_NAME ) THEN
5133: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5134: END IF;
5135: -- Initialize message list if p_init_msg_list is set to TRUE.
5136: IF FND_API.to_Boolean(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
5137: FND_MSG_PUB.initialize;
5138: END IF;
5139: -- Initialize API return status to success
5140: x_return_status := FND_API.G_RET_STS_SUCCESS;
5136: IF FND_API.to_Boolean(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
5137: FND_MSG_PUB.initialize;
5138: END IF;
5139: -- Initialize API return status to success
5140: x_return_status := FND_API.G_RET_STS_SUCCESS;
5141: --
5142:
5143: -- Read the debug profiles values in to global variable 7197402
5144: IF (CSI_CTR_GEN_UTILITY_PVT.g_debug_level is null) THEN -- 8214848 - dsingire
5149:
5150: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
5151: csi_ctr_gen_utility_pvt.put_line( 'update_counter_reading_pvt' ||'-'||
5152: p_api_version ||'-'||
5153: nvl(p_commit,FND_API.G_FALSE) ||'-'||
5154: nvl(p_init_msg_list,FND_API.G_FALSE) ||'-'||
5155: nvl(p_validation_level,FND_API.G_VALID_LEVEL_FULL) );
5156: END IF; -- 8214848 - dsingire
5157: --
5150: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
5151: csi_ctr_gen_utility_pvt.put_line( 'update_counter_reading_pvt' ||'-'||
5152: p_api_version ||'-'||
5153: nvl(p_commit,FND_API.G_FALSE) ||'-'||
5154: nvl(p_init_msg_list,FND_API.G_FALSE) ||'-'||
5155: nvl(p_validation_level,FND_API.G_VALID_LEVEL_FULL) );
5156: END IF; -- 8214848 - dsingire
5157: --
5158: IF NVL(p_ctr_rdg_rec.counter_value_id,FND_API.G_MISS_NUM) = FND_API.G_MISS_NUM THEN
5151: csi_ctr_gen_utility_pvt.put_line( 'update_counter_reading_pvt' ||'-'||
5152: p_api_version ||'-'||
5153: nvl(p_commit,FND_API.G_FALSE) ||'-'||
5154: nvl(p_init_msg_list,FND_API.G_FALSE) ||'-'||
5155: nvl(p_validation_level,FND_API.G_VALID_LEVEL_FULL) );
5156: END IF; -- 8214848 - dsingire
5157: --
5158: IF NVL(p_ctr_rdg_rec.counter_value_id,FND_API.G_MISS_NUM) = FND_API.G_MISS_NUM THEN
5159: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
5154: nvl(p_init_msg_list,FND_API.G_FALSE) ||'-'||
5155: nvl(p_validation_level,FND_API.G_VALID_LEVEL_FULL) );
5156: END IF; -- 8214848 - dsingire
5157: --
5158: IF NVL(p_ctr_rdg_rec.counter_value_id,FND_API.G_MISS_NUM) = FND_API.G_MISS_NUM THEN
5159: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
5160: csi_ctr_gen_utility_pvt.put_line('Invalid Counter Value ID...');
5161: END IF; -- 8214848 - dsingire
5162: csi_ctr_gen_utility_pvt.ExitWithErrMsg('CSI_API_CTR_VALUE_ID_MISS');
5207: );
5208: END IF;
5209: END IF;
5210: --
5211: IF p_ctr_rdg_rec.counter_id <> FND_API.G_MISS_NUM AND
5212: p_ctr_rdg_rec.counter_id IS NOT NULL AND
5213: p_ctr_rdg_rec.counter_id <> l_curr_ctr_rdg_rec.counter_id THEN
5214: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
5215: csi_ctr_gen_utility_pvt.put_line('Cannot Update Counter ID...');
5317: p_token1_val => l_mode
5318: );
5319: END IF;
5320: --
5321: IF p_ctr_rdg_rec.value_timestamp <> FND_API.G_MISS_DATE AND
5322: p_ctr_rdg_rec.value_timestamp IS NOT NULL AND
5323: p_ctr_rdg_rec.value_timestamp <> l_curr_ctr_rdg_rec.value_timestamp THEN
5324: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
5325: csi_ctr_gen_utility_pvt.put_line('Cannot Update Value Timestamp...');
5330: p_token1_val => l_mode
5331: );
5332: END IF;
5333: --
5334: IF p_ctr_rdg_rec.counter_reading <> FND_API.G_MISS_NUM AND
5335: p_ctr_rdg_rec.counter_reading IS NOT NULL AND
5336: p_ctr_rdg_rec.counter_reading <> NVL(l_curr_ctr_rdg_rec.counter_reading,0) THEN
5337: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
5338: csi_ctr_gen_utility_pvt.put_line('Cannot Update Counter Reading...');
5343: p_token1_val => l_mode
5344: );
5345: END IF;
5346: --
5347: IF p_ctr_rdg_rec.adjustment_type <> FND_API.G_MISS_CHAR AND
5348: p_ctr_rdg_rec.adjustment_type IS NOT NULL AND
5349: p_ctr_rdg_rec.adjustment_type <> NVL(l_curr_ctr_rdg_rec.adjustment_type,'$#$') THEN
5350: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
5351: csi_ctr_gen_utility_pvt.put_line('Cannot Update Adjustment Type...');
5356: p_token1_val => l_mode
5357: );
5358: END IF;
5359: --
5360: IF p_ctr_rdg_rec.adjustment_reading <> FND_API.G_MISS_NUM AND
5361: p_ctr_rdg_rec.adjustment_reading IS NOT NULL AND
5362: p_ctr_rdg_rec.adjustment_reading <> NVL(l_curr_ctr_rdg_rec.adjustment_reading,0) THEN
5363: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
5364: csi_ctr_gen_utility_pvt.put_line('Cannot Update Adjustment Reading...');
5557: --Add call to CSI_COUNTER_PVT.update_ctr_val_max_seq_no
5558: --for bug 7374316
5559: CSI_COUNTER_PVT.update_ctr_val_max_seq_no(
5560: p_api_version => 1.0
5561: ,p_commit => fnd_api.g_false
5562: ,p_init_msg_list => fnd_api.g_true
5563: ,p_validation_level => fnd_api.g_valid_level_full
5564: ,p_counter_id => p_ctr_rdg_rec.counter_id
5565: ,px_ctr_val_max_seq_no => l_ctr_val_max_seq_no
5558: --for bug 7374316
5559: CSI_COUNTER_PVT.update_ctr_val_max_seq_no(
5560: p_api_version => 1.0
5561: ,p_commit => fnd_api.g_false
5562: ,p_init_msg_list => fnd_api.g_true
5563: ,p_validation_level => fnd_api.g_valid_level_full
5564: ,p_counter_id => p_ctr_rdg_rec.counter_id
5565: ,px_ctr_val_max_seq_no => l_ctr_val_max_seq_no
5566: ,x_return_status => x_return_status
5559: CSI_COUNTER_PVT.update_ctr_val_max_seq_no(
5560: p_api_version => 1.0
5561: ,p_commit => fnd_api.g_false
5562: ,p_init_msg_list => fnd_api.g_true
5563: ,p_validation_level => fnd_api.g_valid_level_full
5564: ,p_counter_id => p_ctr_rdg_rec.counter_id
5565: ,px_ctr_val_max_seq_no => l_ctr_val_max_seq_no
5566: ,x_return_status => x_return_status
5567: ,x_msg_count => x_msg_count
5567: ,x_msg_count => x_msg_count
5568: ,x_msg_data => x_msg_data
5569: );
5570:
5571: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
5572: l_msg_index := 1;
5573: l_msg_count := x_msg_count;
5574: WHILE l_msg_count > 0 LOOP
5575: x_msg_data := FND_MSG_PUB.GET
5573: l_msg_count := x_msg_count;
5574: WHILE l_msg_count > 0 LOOP
5575: x_msg_data := FND_MSG_PUB.GET
5576: (l_msg_index,
5577: FND_API.G_FALSE
5578: );
5579: csi_ctr_gen_utility_pvt.put_line('ERROR FROM CSI_COUNTER_PVT.update_ctr_val_max_seq_no');
5580: csi_ctr_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
5581: l_msg_index := l_msg_index + 1;
5580: csi_ctr_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
5581: l_msg_index := l_msg_index + 1;
5582: l_msg_count := l_msg_count - 1;
5583: END LOOP;
5584: RAISE FND_API.G_EXC_ERROR;
5585: END IF;
5586: END IF;
5587: --
5588: Disable_Target_Derive_Rdg
5588: Disable_Target_Derive_Rdg
5589: ( p_src_counter_value_id => p_ctr_rdg_rec.counter_value_id,
5590: x_return_status => x_return_status
5591: );
5592: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
5593: csi_ctr_gen_utility_pvt.put_line('ERROR FROM Disable_Target_Derive_Rdg API ');
5594: RAISE FND_API.G_EXC_ERROR;
5595: END IF;
5596: --
5590: x_return_status => x_return_status
5591: );
5592: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
5593: csi_ctr_gen_utility_pvt.put_line('ERROR FROM Disable_Target_Derive_Rdg API ');
5594: RAISE FND_API.G_EXC_ERROR;
5595: END IF;
5596: --
5597: -- Following variables will be set inside the loop
5598: l_previous_rdg := l_prev_ctr_reading;
5743: ,x_return_status => x_return_status
5744: ,x_msg_count => x_msg_count
5745: ,x_msg_data => x_msg_data
5746: );
5747: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
5748: l_msg_index := 1;
5749: l_msg_count := x_msg_count;
5750: WHILE l_msg_count > 0 LOOP
5751: x_msg_data := FND_MSG_PUB.GET
5749: l_msg_count := x_msg_count;
5750: WHILE l_msg_count > 0 LOOP
5751: x_msg_data := FND_MSG_PUB.GET
5752: ( l_msg_index,
5753: FND_API.G_FALSE
5754: );
5755: csi_ctr_gen_utility_pvt.put_line('ERROR FROM Compute_Target_Counters API ');
5756: csi_ctr_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
5757: l_msg_index := l_msg_index + 1;
5756: csi_ctr_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
5757: l_msg_index := l_msg_index + 1;
5758: l_msg_count := l_msg_count - 1;
5759: END LOOP;
5760: RAISE FND_API.G_EXC_ERROR;
5761: END IF;
5762: END IF; -- Target Counter call check
5763: --
5764: -- Re-compute Derive comunters.
5787: ,x_return_status => x_return_status
5788: ,x_msg_count => x_msg_count
5789: ,x_msg_data => x_msg_data
5790: );
5791: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
5792: csi_ctr_gen_utility_pvt.put_line('ERROR FROM Compute_Derive_Counters API ');
5793: l_msg_index := 1;
5794: l_msg_count := x_msg_count;
5795: WHILE l_msg_count > 0 LOOP
5794: l_msg_count := x_msg_count;
5795: WHILE l_msg_count > 0 LOOP
5796: x_msg_data := FND_MSG_PUB.GET
5797: ( l_msg_index,
5798: FND_API.G_FALSE
5799: );
5800: csi_ctr_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
5801: l_msg_index := l_msg_index + 1;
5802: l_msg_count := l_msg_count - 1;
5800: csi_ctr_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
5801: l_msg_index := l_msg_index + 1;
5802: l_msg_count := l_msg_count - 1;
5803: END LOOP;
5804: RAISE FND_API.G_EXC_ERROR;
5805: END IF;
5806: END IF; -- Derive Counters call check
5807: --
5808: l_previous_rdg := later_rdg.counter_reading;
5861: ,x_return_status => x_return_status
5862: ,x_msg_count => x_msg_count
5863: ,x_msg_data => x_msg_data
5864: );
5865: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
5866: l_msg_index := 1;
5867: l_msg_count := x_msg_count;
5868: WHILE l_msg_count > 0 LOOP
5869: x_msg_data := FND_MSG_PUB.GET
5867: l_msg_count := x_msg_count;
5868: WHILE l_msg_count > 0 LOOP
5869: x_msg_data := FND_MSG_PUB.GET
5870: ( l_msg_index,
5871: FND_API.G_FALSE
5872: );
5873: csi_ctr_gen_utility_pvt.put_line('ERROR FROM Compute_Target_Counters API ');
5874: csi_ctr_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
5875: l_msg_index := l_msg_index + 1;
5874: csi_ctr_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
5875: l_msg_index := l_msg_index + 1;
5876: l_msg_count := l_msg_count - 1;
5877: END LOOP;
5878: RAISE FND_API.G_EXC_ERROR;
5879: END IF;
5880: END IF; -- Target counter call check
5881: --
5882: -- Re-Compute Derive Counters
5903: ,x_return_status => x_return_status
5904: ,x_msg_count => x_msg_count
5905: ,x_msg_data => x_msg_data
5906: );
5907: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
5908: l_msg_index := 1;
5909: l_msg_count := x_msg_count;
5910: WHILE l_msg_count > 0 LOOP
5911: x_msg_data := FND_MSG_PUB.GET
5909: l_msg_count := x_msg_count;
5910: WHILE l_msg_count > 0 LOOP
5911: x_msg_data := FND_MSG_PUB.GET
5912: ( l_msg_index,
5913: FND_API.G_FALSE
5914: );
5915: csi_ctr_gen_utility_pvt.put_line('ERROR FROM Compute_Derive_Counters API ');
5916: csi_ctr_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
5917: l_msg_index := l_msg_index + 1;
5916: csi_ctr_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
5917: l_msg_index := l_msg_index + 1;
5918: l_msg_count := l_msg_count - 1;
5919: END LOOP;
5920: RAISE FND_API.G_EXC_ERROR;
5921: END IF;
5922: END IF; -- Derive counters call check
5923: --
5924: l_previous_rdg := later_rdg.counter_reading;
5953: ,x_return_status => x_return_status
5954: ,x_msg_count => x_msg_count
5955: ,x_msg_data => x_msg_data
5956: );
5957: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
5958: l_msg_index := 1;
5959: l_msg_count := x_msg_count;
5960: WHILE l_msg_count > 0 LOOP
5961: x_msg_data := FND_MSG_PUB.GET
5959: l_msg_count := x_msg_count;
5960: WHILE l_msg_count > 0 LOOP
5961: x_msg_data := FND_MSG_PUB.GET
5962: ( l_msg_index,
5963: FND_API.G_FALSE
5964: );
5965: csi_ctr_gen_utility_pvt.put_line('ERROR FROM Compute_Derive_Counters API ');
5966: csi_ctr_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
5967: l_msg_index := l_msg_index + 1;
5966: csi_ctr_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
5967: l_msg_index := l_msg_index + 1;
5968: l_msg_count := l_msg_count - 1;
5969: END LOOP;
5970: RAISE FND_API.G_EXC_ERROR;
5971: END IF;
5972: END IF; -- Derive counters call check
5973: END LOOP;
5974: END IF; -- l_direction check
5992: ,x_return_status => x_return_status
5993: ,x_msg_count => x_msg_count
5994: ,x_msg_data => x_msg_data
5995: );
5996: IF NOT(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
5997: csi_ctr_gen_utility_pvt.put_line('Error from Compute_Formula_Counters API...');
5998: l_msg_index := 1;
5999: l_msg_count := x_msg_count;
6000: WHILE l_msg_count > 0 LOOP
5999: l_msg_count := x_msg_count;
6000: WHILE l_msg_count > 0 LOOP
6001: x_msg_data := FND_MSG_PUB.GET
6002: ( l_msg_index,
6003: FND_API.G_FALSE
6004: );
6005: csi_ctr_gen_utility_pvt.put_line('ERROR FROM Compute_Formula_Counters API ');
6006: csi_ctr_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
6007: l_msg_index := l_msg_index + 1;
6006: csi_ctr_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
6007: l_msg_index := l_msg_index + 1;
6008: l_msg_count := l_msg_count - 1;
6009: END LOOP;
6010: RAISE FND_API.G_EXC_ERROR;
6011: END IF;
6012: --
6013: IF FND_API.to_Boolean(nvl(p_commit,FND_API.G_FALSE)) THEN
6014: COMMIT WORK;
6009: END LOOP;
6010: RAISE FND_API.G_EXC_ERROR;
6011: END IF;
6012: --
6013: IF FND_API.to_Boolean(nvl(p_commit,FND_API.G_FALSE)) THEN
6014: COMMIT WORK;
6015: END IF;
6016: --
6017: -- Standard call to get message count and IF count is get message info.
6019: ( p_count => x_msg_count,
6020: p_data => x_msg_data
6021: );
6022: EXCEPTION
6023: WHEN FND_API.G_EXC_ERROR THEN
6024: x_return_status := FND_API.G_RET_STS_ERROR ;
6025: ROLLBACK TO update_counter_reading_pvt;
6026: FND_MSG_PUB.Count_And_Get
6027: ( p_count => x_msg_count,
6020: p_data => x_msg_data
6021: );
6022: EXCEPTION
6023: WHEN FND_API.G_EXC_ERROR THEN
6024: x_return_status := FND_API.G_RET_STS_ERROR ;
6025: ROLLBACK TO update_counter_reading_pvt;
6026: FND_MSG_PUB.Count_And_Get
6027: ( p_count => x_msg_count,
6028: p_data => x_msg_data
6026: FND_MSG_PUB.Count_And_Get
6027: ( p_count => x_msg_count,
6028: p_data => x_msg_data
6029: );
6030: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6031: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6032: ROLLBACK TO update_counter_reading_pvt;
6033: FND_MSG_PUB.Count_And_Get
6034: ( p_count => x_msg_count,
6027: ( p_count => x_msg_count,
6028: p_data => x_msg_data
6029: );
6030: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6031: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6032: ROLLBACK TO update_counter_reading_pvt;
6033: FND_MSG_PUB.Count_And_Get
6034: ( p_count => x_msg_count,
6035: p_data => x_msg_data
6034: ( p_count => x_msg_count,
6035: p_data => x_msg_data
6036: );
6037: WHEN OTHERS THEN
6038: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6039: ROLLBACK TO update_counter_reading_pvt;
6040: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
6041: FND_MSG_PUB.Add_Exc_Msg
6042: ( G_PKG_NAME,
6086: BEGIN
6087: -- Standard Start of API savepoint
6088: SAVEPOINT capture_ctr_property_reading;
6089: -- Standard call to check for call compatibility.
6090: IF NOT FND_API.Compatible_API_Call (l_api_version,
6091: p_api_version,
6092: l_api_name ,
6093: G_PKG_NAME ) THEN
6094: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6090: IF NOT FND_API.Compatible_API_Call (l_api_version,
6091: p_api_version,
6092: l_api_name ,
6093: G_PKG_NAME ) THEN
6094: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6095: END IF;
6096: -- Initialize message list if p_init_msg_list is set to TRUE.
6097: IF FND_API.to_Boolean(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
6098: FND_MSG_PUB.initialize;
6093: G_PKG_NAME ) THEN
6094: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6095: END IF;
6096: -- Initialize message list if p_init_msg_list is set to TRUE.
6097: IF FND_API.to_Boolean(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
6098: FND_MSG_PUB.initialize;
6099: END IF;
6100: -- Initialize API return status to success
6101: x_return_status := FND_API.G_RET_STS_SUCCESS;
6097: IF FND_API.to_Boolean(nvl(p_init_msg_list,FND_API.G_FALSE)) THEN
6098: FND_MSG_PUB.initialize;
6099: END IF;
6100: -- Initialize API return status to success
6101: x_return_status := FND_API.G_RET_STS_SUCCESS;
6102: --
6103:
6104: -- Read the debug profiles values in to global variable 7197402
6105: IF (CSI_CTR_GEN_UTILITY_PVT.g_debug_level is null) THEN -- 8214848 - dsingire
6110:
6111: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
6112: csi_ctr_gen_utility_pvt.put_line( 'capture_ctr_property_reading' ||'-'||
6113: p_api_version ||'-'||
6114: nvl(p_commit,FND_API.G_FALSE) ||'-'||
6115: nvl(p_init_msg_list,FND_API.G_FALSE) ||'-'||
6116: nvl(p_validation_level,FND_API.G_VALID_LEVEL_FULL) );
6117: END IF; -- 8214848 - dsingire
6118: --
6111: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
6112: csi_ctr_gen_utility_pvt.put_line( 'capture_ctr_property_reading' ||'-'||
6113: p_api_version ||'-'||
6114: nvl(p_commit,FND_API.G_FALSE) ||'-'||
6115: nvl(p_init_msg_list,FND_API.G_FALSE) ||'-'||
6116: nvl(p_validation_level,FND_API.G_VALID_LEVEL_FULL) );
6117: END IF; -- 8214848 - dsingire
6118: --
6119: IF p_ctr_prop_rdg_rec.counter_value_id IS NULL OR
6112: csi_ctr_gen_utility_pvt.put_line( 'capture_ctr_property_reading' ||'-'||
6113: p_api_version ||'-'||
6114: nvl(p_commit,FND_API.G_FALSE) ||'-'||
6115: nvl(p_init_msg_list,FND_API.G_FALSE) ||'-'||
6116: nvl(p_validation_level,FND_API.G_VALID_LEVEL_FULL) );
6117: END IF; -- 8214848 - dsingire
6118: --
6119: IF p_ctr_prop_rdg_rec.counter_value_id IS NULL OR
6120: p_ctr_prop_rdg_rec.counter_value_id = FND_API.G_MISS_NUM THEN
6116: nvl(p_validation_level,FND_API.G_VALID_LEVEL_FULL) );
6117: END IF; -- 8214848 - dsingire
6118: --
6119: IF p_ctr_prop_rdg_rec.counter_value_id IS NULL OR
6120: p_ctr_prop_rdg_rec.counter_value_id = FND_API.G_MISS_NUM THEN
6121: csi_ctr_gen_utility_pvt.ExitWithErrMsg('CSI_API_CTR_VALUE_ID_MISS');
6122: END IF;
6123: --
6124: IF p_ctr_prop_rdg_rec.counter_property_id IS NULL OR
6121: csi_ctr_gen_utility_pvt.ExitWithErrMsg('CSI_API_CTR_VALUE_ID_MISS');
6122: END IF;
6123: --
6124: IF p_ctr_prop_rdg_rec.counter_property_id IS NULL OR
6125: p_ctr_prop_rdg_rec.counter_property_id = FND_API.G_MISS_NUM THEN
6126: csi_ctr_gen_utility_pvt.ExitWithErrMsg('CSI_API_CTR_PROP_INVALID');
6127: END IF;
6128: --
6129: IF p_ctr_prop_rdg_rec.value_timestamp IS NULL OR
6126: csi_ctr_gen_utility_pvt.ExitWithErrMsg('CSI_API_CTR_PROP_INVALID');
6127: END IF;
6128: --
6129: IF p_ctr_prop_rdg_rec.value_timestamp IS NULL OR
6130: p_ctr_prop_rdg_rec.value_timestamp = FND_API.G_MISS_DATE THEN
6131: csi_ctr_gen_utility_pvt.ExitWithErrMsg('CSI_API_CTR_INVALID_RDG_DATE');
6132: END IF;
6133: --
6134: Begin
6146: End;
6147: --
6148: IF l_is_nullable <> 'Y' THEN
6149: IF p_ctr_prop_rdg_rec.property_value IS NULL OR
6150: p_ctr_prop_rdg_rec.property_value = FND_API.G_MISS_CHAR THEN
6151: csi_ctr_gen_utility_pvt.ExitWithErrMsg('CSI_API_CTR_PROP_VALUE_MISSING');
6152: END IF;
6153: END IF;
6154: --
6218: END IF;
6219: --
6220: -- Generate Counter_Prop_Value_id
6221: IF p_ctr_prop_rdg_rec.counter_prop_value_id IS NULL OR
6222: p_ctr_prop_rdg_rec.counter_prop_value_id = FND_API.G_MISS_NUM THEN
6223: WHILE l_process_flag LOOP
6224: select CSI_CTR_PROPERTY_READINGS_S.nextval
6225: into p_ctr_prop_rdg_rec.counter_prop_value_id from dual;
6226: IF NOT Counter_Prop_Value_Exists(p_ctr_prop_rdg_rec.counter_prop_value_id) THEN
6269: ,p_ATTRIBUTE_CATEGORY => p_ctr_prop_rdg_rec.attribute_category
6270: ,p_MIGRATED_FLAG => 'N'
6271: );
6272: --
6273: IF FND_API.to_Boolean(nvl(p_commit,FND_API.G_FALSE)) THEN
6274: COMMIT WORK;
6275: END IF;
6276: --
6277: -- Standard call to get message count and IF count is get message info.
6279: ( p_count => x_msg_count,
6280: p_data => x_msg_data
6281: );
6282: EXCEPTION
6283: WHEN FND_API.G_EXC_ERROR THEN
6284: x_return_status := FND_API.G_RET_STS_ERROR ;
6285: ROLLBACK TO capture_ctr_property_reading;
6286: FND_MSG_PUB.Count_And_Get
6287: ( p_count => x_msg_count,
6280: p_data => x_msg_data
6281: );
6282: EXCEPTION
6283: WHEN FND_API.G_EXC_ERROR THEN
6284: x_return_status := FND_API.G_RET_STS_ERROR ;
6285: ROLLBACK TO capture_ctr_property_reading;
6286: FND_MSG_PUB.Count_And_Get
6287: ( p_count => x_msg_count,
6288: p_data => x_msg_data
6286: FND_MSG_PUB.Count_And_Get
6287: ( p_count => x_msg_count,
6288: p_data => x_msg_data
6289: );
6290: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6291: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6292: ROLLBACK TO capture_ctr_property_reading;
6293: FND_MSG_PUB.Count_And_Get
6294: ( p_count => x_msg_count,
6287: ( p_count => x_msg_count,
6288: p_data => x_msg_data
6289: );
6290: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6291: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6292: ROLLBACK TO capture_ctr_property_reading;
6293: FND_MSG_PUB.Count_And_Get
6294: ( p_count => x_msg_count,
6295: p_data => x_msg_data
6294: ( p_count => x_msg_count,
6295: p_data => x_msg_data
6296: );
6297: WHEN OTHERS THEN
6298: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6299: ROLLBACK TO capture_ctr_property_reading;
6300: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
6301: FND_MSG_PUB.Add_Exc_Msg
6302: ( G_PKG_NAME,
6400: l_debug_level NUMBER; -- 8214848 - dsingire
6401: BEGIN
6402: SAVEPOINT ESTIMATE_START_READINGS;
6403: -- Initialize message list if p_init_msg_list is set to TRUE.
6404: IF FND_API.to_Boolean( p_init_msg_list ) THEN
6405: FND_MSG_PUB.initialize;
6406: END IF;
6407: -- Initialize API return status to SUCCESS
6408: x_return_status := FND_API.G_RET_STS_SUCCESS;
6404: IF FND_API.to_Boolean( p_init_msg_list ) THEN
6405: FND_MSG_PUB.initialize;
6406: END IF;
6407: -- Initialize API return status to SUCCESS
6408: x_return_status := FND_API.G_RET_STS_SUCCESS;
6409: --
6410:
6411: -- Read the debug profiles values in to global variable 7197402
6412: IF (CSI_CTR_GEN_UTILITY_PVT.g_debug_level is null) THEN -- 8214848 - dsingire
6480: ELSE --_calculation_start_rdg not null
6481: x_calc_start_reading := round(l_calculation_start_rdg);
6482: END IF; --l_calculation_start_rdg null
6483: --
6484: IF FND_API.to_Boolean(nvl(p_commit,FND_API.G_FALSE)) THEN
6485: COMMIT WORK;
6486: END IF;
6487: --
6488: -- Standard call to get message count and IF count is get message info.
6491: p_data => x_msg_data
6492: );
6493:
6494: EXCEPTION
6495: WHEN FND_API.G_EXC_ERROR THEN
6496: ROLLBACK TO ESTIMATE_START_READINGS;
6497: x_return_status := FND_API.G_RET_STS_ERROR ;
6498: FND_MSG_PUB.Count_And_Get
6499: (p_count => x_msg_count,
6493:
6494: EXCEPTION
6495: WHEN FND_API.G_EXC_ERROR THEN
6496: ROLLBACK TO ESTIMATE_START_READINGS;
6497: x_return_status := FND_API.G_RET_STS_ERROR ;
6498: FND_MSG_PUB.Count_And_Get
6499: (p_count => x_msg_count,
6500: p_data => x_msg_data
6501: );
6498: FND_MSG_PUB.Count_And_Get
6499: (p_count => x_msg_count,
6500: p_data => x_msg_data
6501: );
6502: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6503: ROLLBACK TO ESTIMATE_START_READINGS;
6504: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6505: FND_MSG_PUB.Count_And_Get
6506: (
6500: p_data => x_msg_data
6501: );
6502: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6503: ROLLBACK TO ESTIMATE_START_READINGS;
6504: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6505: FND_MSG_PUB.Count_And_Get
6506: (
6507: p_count => x_msg_count,
6508: p_data => x_msg_data
6507: p_count => x_msg_count,
6508: p_data => x_msg_data
6509: );
6510: WHEN OTHERS THEN
6511: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6512: ROLLBACK TO ESTIMATE_START_READINGS;
6513: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
6514: FND_MSG_PUB.Add_Exc_Msg
6515: ( G_PKG_NAME,
6608: l_debug_level NUMBER; -- 8214848 - dsingire
6609: BEGIN
6610: SAVEPOINT EST_PERIOD_START_READINGS;
6611: -- Initialize message list if p_init_msg_list is set to TRUE.
6612: IF FND_API.to_Boolean( p_init_msg_list ) THEN
6613: FND_MSG_PUB.initialize;
6614: END IF;
6615: -- Initialize API return status to SUCCESS
6616: x_return_status := FND_API.G_RET_STS_SUCCESS;
6612: IF FND_API.to_Boolean( p_init_msg_list ) THEN
6613: FND_MSG_PUB.initialize;
6614: END IF;
6615: -- Initialize API return status to SUCCESS
6616: x_return_status := FND_API.G_RET_STS_SUCCESS;
6617: --
6618: -- Read the debug profiles values in to global variable 7197402
6619: IF (CSI_CTR_GEN_UTILITY_PVT.g_debug_level is null) THEN -- 8214848 - dsingire
6620: CSI_CTR_GEN_UTILITY_PVT.read_debug_profiles;
6625: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
6626: csi_ctr_gen_utility_pvt.put_line( 'Inside Est_Period_Start_Readings...');
6627: END IF; -- 8214848 - dsingire
6628: --
6629: IF FND_API.to_Boolean(nvl(p_commit,FND_API.G_FALSE)) THEN
6630: COMMIT WORK;
6631: END IF;
6632: --
6633: -- fetch the reading of the passed avg calculation start date
6698: X_Return_Status => X_Return_Status,
6699: X_Msg_Count => X_Msg_Count,
6700: X_Msg_Data => X_Msg_Data
6701: );
6702: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6703: csi_ctr_gen_utility_pvt.put_line('ERROR FROM Estimate_Start_Readings API ');
6704: l_msg_index := 1;
6705: l_msg_count := x_msg_count;
6706: WHILE l_msg_count > 0 LOOP
6705: l_msg_count := x_msg_count;
6706: WHILE l_msg_count > 0 LOOP
6707: x_msg_data := FND_MSG_PUB.GET
6708: ( l_msg_index,
6709: FND_API.G_FALSE
6710: );
6711: csi_ctr_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
6712: l_msg_index := l_msg_index + 1;
6713: l_msg_count := l_msg_count - 1;
6711: csi_ctr_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
6712: l_msg_index := l_msg_index + 1;
6713: l_msg_count := l_msg_count - 1;
6714: END LOOP;
6715: RAISE FND_API.G_EXC_ERROR;
6716: END IF;
6717: --
6718: OPEN PRIOR_RDG_VALUES(p_counter_id,p_calculation_start_date);
6719: FETCH PRIOR_RDG_VALUES
6768: p_data => x_msg_data
6769: );
6770:
6771: EXCEPTION
6772: WHEN FND_API.G_EXC_ERROR THEN
6773: ROLLBACK TO EST_PERIOD_START_READINGS;
6774: x_return_status := FND_API.G_RET_STS_ERROR ;
6775: FND_MSG_PUB.Count_And_Get
6776: (p_count => x_msg_count,
6770:
6771: EXCEPTION
6772: WHEN FND_API.G_EXC_ERROR THEN
6773: ROLLBACK TO EST_PERIOD_START_READINGS;
6774: x_return_status := FND_API.G_RET_STS_ERROR ;
6775: FND_MSG_PUB.Count_And_Get
6776: (p_count => x_msg_count,
6777: p_data => x_msg_data
6778: );
6775: FND_MSG_PUB.Count_And_Get
6776: (p_count => x_msg_count,
6777: p_data => x_msg_data
6778: );
6779: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6780: ROLLBACK TO EST_PERIOD_START_READINGS;
6781: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6782: FND_MSG_PUB.Count_And_Get
6783: (
6777: p_data => x_msg_data
6778: );
6779: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6780: ROLLBACK TO EST_PERIOD_START_READINGS;
6781: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6782: FND_MSG_PUB.Count_And_Get
6783: (
6784: p_count => x_msg_count,
6785: p_data => x_msg_data
6784: p_count => x_msg_count,
6785: p_data => x_msg_data
6786: );
6787: WHEN OTHERS THEN
6788: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6789: ROLLBACK TO EST_PERIOD_START_READINGS;
6790: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
6791: FND_MSG_PUB.Add_Exc_Msg
6792: ( G_PKG_NAME,
6898: l_debug_level NUMBER; -- 8214848 - dsingire
6899: BEGIN
6900: SAVEPOINT ESTIMATE_USAGE;
6901: -- Initialize message list if p_init_msg_list is set to TRUE.
6902: IF FND_API.to_Boolean( p_init_msg_list ) THEN
6903: FND_MSG_PUB.initialize;
6904: END IF;
6905: -- Initialize API return status to SUCCESS
6906: x_return_status := FND_API.G_RET_STS_SUCCESS;
6902: IF FND_API.to_Boolean( p_init_msg_list ) THEN
6903: FND_MSG_PUB.initialize;
6904: END IF;
6905: -- Initialize API return status to SUCCESS
6906: x_return_status := FND_API.G_RET_STS_SUCCESS;
6907: --
6908:
6909: -- Read the debug profiles values in to global variable 7197402
6910: IF (CSI_CTR_GEN_UTILITY_PVT.g_debug_level is null) THEN -- 8214848 - dsingire
6933: X_Return_Status => X_Return_Status,
6934: X_Msg_Count => X_Msg_Count,
6935: X_Msg_Data => X_Msg_Data
6936: );
6937: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
6938: l_msg_index := 1;
6939: l_msg_count := x_msg_count;
6940: WHILE l_msg_count > 0 LOOP
6941: x_msg_data := FND_MSG_PUB.GET
6939: l_msg_count := x_msg_count;
6940: WHILE l_msg_count > 0 LOOP
6941: x_msg_data := FND_MSG_PUB.GET
6942: ( l_msg_index,
6943: FND_API.G_FALSE
6944: );
6945: csi_ctr_gen_utility_pvt.put_line('ERROR FROM Estimate_Start_Readings API ');
6946: csi_ctr_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
6947: l_msg_index := l_msg_index + 1;
6946: csi_ctr_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
6947: l_msg_index := l_msg_index + 1;
6948: l_msg_count := l_msg_count - 1;
6949: END LOOP;
6950: RAISE FND_API.G_EXC_ERROR;
6951: END IF;
6952: END IF;
6953:
6954: IF p_estimation_period_start_date IS NOT NULL THEN
6968: X_Return_Status => X_Return_Status,
6969: X_Msg_Count => X_Msg_Count,
6970: X_Msg_Data => X_Msg_Data
6971: );
6972: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
6973: l_msg_index := 1;
6974: l_msg_count := x_msg_count;
6975: WHILE l_msg_count > 0 LOOP
6976: x_msg_data := FND_MSG_PUB.GET
6974: l_msg_count := x_msg_count;
6975: WHILE l_msg_count > 0 LOOP
6976: x_msg_data := FND_MSG_PUB.GET
6977: ( l_msg_index,
6978: FND_API.G_FALSE
6979: );
6980: csi_ctr_gen_utility_pvt.put_line('ERROR FROM Est_Period_Start_Readings API ');
6981: csi_ctr_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
6982: l_msg_index := l_msg_index + 1;
6981: csi_ctr_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
6982: l_msg_index := l_msg_index + 1;
6983: l_msg_count := l_msg_count - 1;
6984: END LOOP;
6985: RAISE FND_API.G_EXC_ERROR;
6986: END IF;
6987: END IF;
6988: -- estimation usage calculation
6989: -- fetch the reading of the passed estimation period end date
7214: x_estimated_meter_reading := round(l_estimated_meter_rdg);
7215: x_estimated_usage_qty := abs(round(l_estimated_usage));
7216: x_estimated_period_start_rdg := l_period_start_reading;
7217: --
7218: IF FND_API.to_Boolean(nvl(p_commit,FND_API.G_FALSE)) THEN
7219: COMMIT WORK;
7220: END IF;
7221: --
7222: -- Standard call to get message count and IF count is get message info.
7225: p_data => x_msg_data
7226: );
7227:
7228: EXCEPTION
7229: WHEN FND_API.G_EXC_ERROR THEN
7230: ROLLBACK TO ESTIMATE_USAGE;
7231: x_return_status := FND_API.G_RET_STS_ERROR ;
7232: FND_MSG_PUB.Count_And_Get
7233: (p_count => x_msg_count,
7227:
7228: EXCEPTION
7229: WHEN FND_API.G_EXC_ERROR THEN
7230: ROLLBACK TO ESTIMATE_USAGE;
7231: x_return_status := FND_API.G_RET_STS_ERROR ;
7232: FND_MSG_PUB.Count_And_Get
7233: (p_count => x_msg_count,
7234: p_data => x_msg_data
7235: );
7232: FND_MSG_PUB.Count_And_Get
7233: (p_count => x_msg_count,
7234: p_data => x_msg_data
7235: );
7236: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7237: ROLLBACK TO ESTIMATE_USAGE;
7238: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
7239: FND_MSG_PUB.Count_And_Get
7240: (
7234: p_data => x_msg_data
7235: );
7236: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7237: ROLLBACK TO ESTIMATE_USAGE;
7238: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
7239: FND_MSG_PUB.Count_And_Get
7240: (
7241: p_count => x_msg_count,
7242: p_data => x_msg_data
7241: p_count => x_msg_count,
7242: p_data => x_msg_data
7243: );
7244: WHEN OTHERS THEN
7245: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
7246: ROLLBACK TO ESTIMATE_USAGE;
7247: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
7248: FND_MSG_PUB.Add_Exc_Msg
7249: ( G_PKG_NAME,
7335: l_date_format VARCHAR2(50) := nvl(fnd_profile.value('ICX_DATE_FORMAT_MASK'),'DD-MON-YYYY HH24:MI:SS');
7336: BEGIN
7337: SAVEPOINT ESTIMATE_COUNTER_READING;
7338: -- Initialize message list if p_init_msg_list is set to TRUE.
7339: IF FND_API.to_Boolean( p_init_msg_list ) THEN
7340: FND_MSG_PUB.initialize;
7341: END IF;
7342: -- Initialize API return status to SUCCESS
7343: x_return_status := FND_API.G_RET_STS_SUCCESS;
7339: IF FND_API.to_Boolean( p_init_msg_list ) THEN
7340: FND_MSG_PUB.initialize;
7341: END IF;
7342: -- Initialize API return status to SUCCESS
7343: x_return_status := FND_API.G_RET_STS_SUCCESS;
7344: --
7345: -- Read the debug profiles values in to global variable 7197402
7346: IF (CSI_CTR_GEN_UTILITY_PVT.g_debug_level is null) THEN -- 8214848 - dsingire
7347: CSI_CTR_GEN_UTILITY_PVT.read_debug_profiles;
7353: csi_ctr_gen_utility_pvt.put_line( 'Inside Estimate_Counter_Reading...');
7354: END IF; -- 8214848 - dsingire
7355: --
7356: -- Standard call to check for call compatibility.
7357: IF NOT FND_API.Compatible_API_Call (l_api_version,
7358: p_api_version,
7359: l_api_name ,
7360: G_PKG_NAME ) THEN
7361: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7357: IF NOT FND_API.Compatible_API_Call (l_api_version,
7358: p_api_version,
7359: l_api_name ,
7360: G_PKG_NAME ) THEN
7361: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7362: END IF;
7363: --
7364: IF p_counter_id IS NULL or p_estimation_period_end_date IS NULL THEN
7365: csi_ctr_gen_utility_pvt.ExitWithErrMsg
7452: X_Return_Status => X_Return_Status,
7453: X_Msg_Count => X_Msg_Count,
7454: X_Msg_Data => X_Msg_Data
7455: );
7456: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7457: csi_ctr_gen_utility_pvt.put_line('ERROR FROM Estimate_fixed_values API ');
7458: l_msg_index := 1;
7459: l_msg_count := x_msg_count;
7460: WHILE l_msg_count > 0 LOOP
7459: l_msg_count := x_msg_count;
7460: WHILE l_msg_count > 0 LOOP
7461: x_msg_data := FND_MSG_PUB.GET
7462: ( l_msg_index,
7463: FND_API.G_FALSE
7464: );
7465: csi_ctr_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
7466: l_msg_index := l_msg_index + 1;
7467: l_msg_count := l_msg_count - 1;
7465: csi_ctr_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
7466: l_msg_index := l_msg_index + 1;
7467: l_msg_count := l_msg_count - 1;
7468: END LOOP;
7469: RAISE FND_API.G_EXC_ERROR;
7470: END IF;
7471:
7472: ELSIF l_est_rec.estimation_type = 'USAGE' THEN
7473: /********************
7495: X_Return_Status => X_Return_Status,
7496: X_Msg_Count => X_Msg_Count,
7497: X_Msg_Data => X_Msg_Data
7498: );
7499: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7500: csi_ctr_gen_utility_pvt.put_line('ERROR FROM Estimate_Usage API ');
7501: l_msg_index := 1;
7502: l_msg_count := x_msg_count;
7503: WHILE l_msg_count > 0 LOOP
7502: l_msg_count := x_msg_count;
7503: WHILE l_msg_count > 0 LOOP
7504: x_msg_data := FND_MSG_PUB.GET
7505: ( l_msg_index,
7506: FND_API.G_FALSE
7507: );
7508: csi_ctr_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
7509: l_msg_index := l_msg_index + 1;
7510: l_msg_count := l_msg_count - 1;
7508: csi_ctr_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
7509: l_msg_index := l_msg_index + 1;
7510: l_msg_count := l_msg_count - 1;
7511: END LOOP;
7512: RAISE FND_API.G_EXC_ERROR;
7513: END IF;
7514: ELSIF l_est_rec.estimation_type = 'REFCTR' THEN
7515: /********************
7516: Compute Usage of indirect counter Estimation
7547: X_Return_Status => X_Return_Status,
7548: X_Msg_Count => X_Msg_Count,
7549: X_Msg_Data => X_Msg_Data
7550: );
7551: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7552: csi_ctr_gen_utility_pvt.put_line('ERROR FROM Estimate_Usage API ');
7553: l_msg_index := 1;
7554: l_msg_count := x_msg_count;
7555: WHILE l_msg_count > 0 LOOP
7554: l_msg_count := x_msg_count;
7555: WHILE l_msg_count > 0 LOOP
7556: x_msg_data := FND_MSG_PUB.GET
7557: ( l_msg_index,
7558: FND_API.G_FALSE
7559: );
7560: csi_ctr_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
7561: l_msg_index := l_msg_index + 1;
7562: l_msg_count := l_msg_count - 1;
7560: csi_ctr_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
7561: l_msg_index := l_msg_index + 1;
7562: l_msg_count := l_msg_count - 1;
7563: END LOOP;
7564: RAISE FND_API.G_EXC_ERROR;
7565: END IF;
7566: END IF;
7567: --
7568: -- Generate the Value_id for insert
7611: ,p_OBJECT_VERSION_NUMBER => 1
7612: ,p_MIGRATED_FLAG => 'N'
7613: );
7614: --
7615: IF FND_API.to_Boolean(nvl(p_commit,FND_API.G_FALSE)) THEN
7616: COMMIT WORK;
7617: END IF;
7618: --
7619: -- Standard call to get message count and IF count is get message info.
7622: p_data => x_msg_data
7623: );
7624:
7625: EXCEPTION
7626: WHEN FND_API.G_EXC_ERROR THEN
7627: ROLLBACK TO ESTIMATE_COUNTER_READING;
7628: x_return_status := FND_API.G_RET_STS_ERROR ;
7629: FND_MSG_PUB.Count_And_Get
7630: (p_count => x_msg_count,
7624:
7625: EXCEPTION
7626: WHEN FND_API.G_EXC_ERROR THEN
7627: ROLLBACK TO ESTIMATE_COUNTER_READING;
7628: x_return_status := FND_API.G_RET_STS_ERROR ;
7629: FND_MSG_PUB.Count_And_Get
7630: (p_count => x_msg_count,
7631: p_data => x_msg_data
7632: );
7629: FND_MSG_PUB.Count_And_Get
7630: (p_count => x_msg_count,
7631: p_data => x_msg_data
7632: );
7633: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7634: ROLLBACK TO ESTIMATE_COUNTER_READING;
7635: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
7636: FND_MSG_PUB.Count_And_Get
7637: (
7631: p_data => x_msg_data
7632: );
7633: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7634: ROLLBACK TO ESTIMATE_COUNTER_READING;
7635: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
7636: FND_MSG_PUB.Count_And_Get
7637: (
7638: p_count => x_msg_count,
7639: p_data => x_msg_data
7638: p_count => x_msg_count,
7639: p_data => x_msg_data
7640: );
7641: WHEN OTHERS THEN
7642: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
7643: ROLLBACK TO ESTIMATE_COUNTER_READING;
7644: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
7645: FND_MSG_PUB.Add_Exc_Msg
7646: ( G_PKG_NAME,
7710: l_debug_level NUMBER; -- 8214848 - dsingire
7711: BEGIN
7712: SAVEPOINT ESTIMATE_FIXED_VALUES;
7713: -- Initialize message list if p_init_msg_list is set to TRUE.
7714: IF FND_API.to_Boolean( p_init_msg_list ) THEN
7715: FND_MSG_PUB.initialize;
7716: END IF;
7717: -- Initialize API return status to SUCCESS
7718: x_return_status := FND_API.G_RET_STS_SUCCESS;
7714: IF FND_API.to_Boolean( p_init_msg_list ) THEN
7715: FND_MSG_PUB.initialize;
7716: END IF;
7717: -- Initialize API return status to SUCCESS
7718: x_return_status := FND_API.G_RET_STS_SUCCESS;
7719: --
7720: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
7721: csi_ctr_gen_utility_pvt.put_line( 'Inside Estimate_Fixed_Values...');
7722: END IF; -- 8214848 - dsingire
7729:
7730: l_debug_level := CSI_CTR_GEN_UTILITY_PVT.g_debug_level; -- 8214848 - dsingire
7731:
7732: -- Standard call to check for call compatibility.
7733: IF NOT FND_API.Compatible_API_Call (l_api_version,
7734: p_api_version,
7735: l_api_name ,
7736: G_PKG_NAME ) THEN
7737: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7733: IF NOT FND_API.Compatible_API_Call (l_api_version,
7734: p_api_version,
7735: l_api_name ,
7736: G_PKG_NAME ) THEN
7737: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7738: END IF;
7739: --
7740: IF p_estimation_period_start_date IS NOT NULL THEN
7741: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
7754: X_Return_Status => X_Return_Status,
7755: X_Msg_Count => X_Msg_Count,
7756: X_Msg_Data => X_Msg_Data
7757: );
7758: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7759: csi_ctr_gen_utility_pvt.put_line('ERROR FROM Est_Period_Start_Readings API ');
7760: l_msg_index := 1;
7761: l_msg_count := x_msg_count;
7762: WHILE l_msg_count > 0 LOOP
7761: l_msg_count := x_msg_count;
7762: WHILE l_msg_count > 0 LOOP
7763: x_msg_data := FND_MSG_PUB.GET
7764: ( l_msg_index,
7765: FND_API.G_FALSE
7766: );
7767: csi_ctr_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
7768: l_msg_index := l_msg_index + 1;
7769: l_msg_count := l_msg_count - 1;
7767: csi_ctr_gen_utility_pvt.put_line('MESSAGE DATA = '||x_msg_data);
7768: l_msg_index := l_msg_index + 1;
7769: l_msg_count := l_msg_count - 1;
7770: END LOOP;
7771: RAISE FND_API.G_EXC_ERROR;
7772: END IF;
7773: END IF;
7774: -- fetch the reading of the passed estimation period end date
7775: OPEN PASSED_DT_RDG_VALUES(p_counter_id, p_estimation_period_end_date);
7798: --
7799: X_estimated_usage_qty := l_estimated_usage;
7800: x_estimated_period_start_rdg := l_period_start_reading;
7801: --
7802: IF FND_API.to_Boolean(nvl(p_commit,FND_API.G_FALSE)) THEN
7803: COMMIT WORK;
7804: END IF;
7805: --
7806: -- Standard call to get message count and IF count is get message info.
7809: p_data => x_msg_data
7810: );
7811:
7812: EXCEPTION
7813: WHEN FND_API.G_EXC_ERROR THEN
7814: ROLLBACK TO ESTIMATE_FIXED_VALUES;
7815: x_return_status := FND_API.G_RET_STS_ERROR ;
7816: FND_MSG_PUB.Count_And_Get
7817: (p_count => x_msg_count,
7811:
7812: EXCEPTION
7813: WHEN FND_API.G_EXC_ERROR THEN
7814: ROLLBACK TO ESTIMATE_FIXED_VALUES;
7815: x_return_status := FND_API.G_RET_STS_ERROR ;
7816: FND_MSG_PUB.Count_And_Get
7817: (p_count => x_msg_count,
7818: p_data => x_msg_data
7819: );
7816: FND_MSG_PUB.Count_And_Get
7817: (p_count => x_msg_count,
7818: p_data => x_msg_data
7819: );
7820: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7821: ROLLBACK TO ESTIMATE_FIXED_VALUES;
7822: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
7823: FND_MSG_PUB.Count_And_Get
7824: (
7818: p_data => x_msg_data
7819: );
7820: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7821: ROLLBACK TO ESTIMATE_FIXED_VALUES;
7822: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
7823: FND_MSG_PUB.Count_And_Get
7824: (
7825: p_count => x_msg_count,
7826: p_data => x_msg_data
7825: p_count => x_msg_count,
7826: p_data => x_msg_data
7827: );
7828: WHEN OTHERS THEN
7829: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
7830: ROLLBACK TO ESTIMATE_FIXED_VALUES;
7831: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
7832: FND_MSG_PUB.Add_Exc_Msg
7833: ( G_PKG_NAME,