1: PACKAGE BODY CSI_COUNTER_READINGS_PVT as
2: /* $Header: csivcrdb.pls 120.60.12020000.3 2012/10/11 10:39:16 mvaradam ship $ */
3: --
4: G_PKG_NAME CONSTANT VARCHAR2(30):= 'CSI_COUNTER_READINGS_PVT';
5: G_FILE_NAME CONSTANT VARCHAR2(12) := 'csivcrdb.pls';
1: PACKAGE BODY CSI_COUNTER_READINGS_PVT as
2: /* $Header: csivcrdb.pls 120.60.12020000.3 2012/10/11 10:39:16 mvaradam ship $ */
3: --
4: G_PKG_NAME CONSTANT VARCHAR2(30):= 'CSI_COUNTER_READINGS_PVT';
5: G_FILE_NAME CONSTANT VARCHAR2(12) := 'csivcrdb.pls';
6: CMRO_CALL VARCHAR(2);
7: --
8: FUNCTION get_reading_before_reset(p_counter_id NUMBER,
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;
918: IF NOT csi_counter_readings_pvt.Transaction_ID_Exists(p_txn_rec.transaction_id) THEN
919: l_process_flag := FALSE;
920: END IF;
921: END LOOP;
922: ELSE
919: l_process_flag := FALSE;
920: END IF;
921: END LOOP;
922: ELSE
923: IF csi_counter_readings_pvt.Transaction_ID_Exists(p_txn_rec.transaction_id) THEN
924: csi_ctr_gen_utility_pvt.ExitWithErrMsg
925: ( p_msg_name => 'CSI_TXN_ID_ALREADY_EXISTS'
926: ,p_token1_name => 'TRANSACTION_ID'
927: ,p_token1_val => to_char(p_txn_rec.transaction_id)
7839: p_data => x_msg_data
7840: );
7841: END ESTIMATE_FIXED_VALUES;
7842: --
7843: END CSI_COUNTER_READINGS_PVT;