[Home] [Help]
291: l_debug_level NUMBER; -- 8214848 - dsingire
292: BEGIN
293: -- For Bi-directional counters, Net and LTD will be same as Counter Reading
294: -- Read the debug profiles values in to global variable 7197402
295: IF (CSI_CTR_GEN_UTILITY_PVT.g_debug_level is null) THEN -- 8214848 - dsingire
296: CSI_CTR_GEN_UTILITY_PVT.read_debug_profiles;
297: END IF; -- 8214848 - dsingire
298:
299: l_debug_level := CSI_CTR_GEN_UTILITY_PVT.g_debug_level; -- 8214848 - dsingire
292: BEGIN
293: -- For Bi-directional counters, Net and LTD will be same as Counter Reading
294: -- Read the debug profiles values in to global variable 7197402
295: IF (CSI_CTR_GEN_UTILITY_PVT.g_debug_level is null) THEN -- 8214848 - dsingire
296: CSI_CTR_GEN_UTILITY_PVT.read_debug_profiles;
297: END IF; -- 8214848 - dsingire
298:
299: l_debug_level := CSI_CTR_GEN_UTILITY_PVT.g_debug_level; -- 8214848 - dsingire
300: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
295: IF (CSI_CTR_GEN_UTILITY_PVT.g_debug_level is null) THEN -- 8214848 - dsingire
296: CSI_CTR_GEN_UTILITY_PVT.read_debug_profiles;
297: END IF; -- 8214848 - dsingire
298:
299: l_debug_level := CSI_CTR_GEN_UTILITY_PVT.g_debug_level; -- 8214848 - dsingire
300: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
301: csi_ctr_gen_utility_pvt.put_line('Calculate Net Reading Procedure');
302: csi_ctr_gen_utility_pvt.put_line('6398254: p_prev_net_rdg' || p_prev_net_rdg);
303: csi_ctr_gen_utility_pvt.put_line('6398254: p_prev_ltd_rdg' || p_prev_ltd_rdg);
297: END IF; -- 8214848 - dsingire
298:
299: l_debug_level := CSI_CTR_GEN_UTILITY_PVT.g_debug_level; -- 8214848 - dsingire
300: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
301: csi_ctr_gen_utility_pvt.put_line('Calculate Net Reading Procedure');
302: csi_ctr_gen_utility_pvt.put_line('6398254: p_prev_net_rdg' || p_prev_net_rdg);
303: csi_ctr_gen_utility_pvt.put_line('6398254: p_prev_ltd_rdg' || p_prev_ltd_rdg);
304: csi_ctr_gen_utility_pvt.put_line('6398254: p_curr_rdg' || p_curr_rdg);
305: csi_ctr_gen_utility_pvt.put_line('6398254: p_prev_rdg' || p_prev_rdg);
298:
299: l_debug_level := CSI_CTR_GEN_UTILITY_PVT.g_debug_level; -- 8214848 - dsingire
300: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
301: csi_ctr_gen_utility_pvt.put_line('Calculate Net Reading Procedure');
302: csi_ctr_gen_utility_pvt.put_line('6398254: p_prev_net_rdg' || p_prev_net_rdg);
303: csi_ctr_gen_utility_pvt.put_line('6398254: p_prev_ltd_rdg' || p_prev_ltd_rdg);
304: csi_ctr_gen_utility_pvt.put_line('6398254: p_curr_rdg' || p_curr_rdg);
305: csi_ctr_gen_utility_pvt.put_line('6398254: p_prev_rdg' || p_prev_rdg);
306: csi_ctr_gen_utility_pvt.put_line(' p_curr_adj' || p_curr_adj);
299: l_debug_level := CSI_CTR_GEN_UTILITY_PVT.g_debug_level; -- 8214848 - dsingire
300: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
301: csi_ctr_gen_utility_pvt.put_line('Calculate Net Reading Procedure');
302: csi_ctr_gen_utility_pvt.put_line('6398254: p_prev_net_rdg' || p_prev_net_rdg);
303: csi_ctr_gen_utility_pvt.put_line('6398254: p_prev_ltd_rdg' || p_prev_ltd_rdg);
304: csi_ctr_gen_utility_pvt.put_line('6398254: p_curr_rdg' || p_curr_rdg);
305: csi_ctr_gen_utility_pvt.put_line('6398254: p_prev_rdg' || p_prev_rdg);
306: csi_ctr_gen_utility_pvt.put_line(' p_curr_adj' || p_curr_adj);
307: csi_ctr_gen_utility_pvt.put_line('6398254: p_rdg_type' || p_rdg_type);
300: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
301: csi_ctr_gen_utility_pvt.put_line('Calculate Net Reading Procedure');
302: csi_ctr_gen_utility_pvt.put_line('6398254: p_prev_net_rdg' || p_prev_net_rdg);
303: csi_ctr_gen_utility_pvt.put_line('6398254: p_prev_ltd_rdg' || p_prev_ltd_rdg);
304: csi_ctr_gen_utility_pvt.put_line('6398254: p_curr_rdg' || p_curr_rdg);
305: csi_ctr_gen_utility_pvt.put_line('6398254: p_prev_rdg' || p_prev_rdg);
306: csi_ctr_gen_utility_pvt.put_line(' p_curr_adj' || p_curr_adj);
307: csi_ctr_gen_utility_pvt.put_line('6398254: p_rdg_type' || p_rdg_type);
308: csi_ctr_gen_utility_pvt.put_line('p_direction' || p_direction);
301: csi_ctr_gen_utility_pvt.put_line('Calculate Net Reading Procedure');
302: csi_ctr_gen_utility_pvt.put_line('6398254: p_prev_net_rdg' || p_prev_net_rdg);
303: csi_ctr_gen_utility_pvt.put_line('6398254: p_prev_ltd_rdg' || p_prev_ltd_rdg);
304: csi_ctr_gen_utility_pvt.put_line('6398254: p_curr_rdg' || p_curr_rdg);
305: csi_ctr_gen_utility_pvt.put_line('6398254: p_prev_rdg' || p_prev_rdg);
306: csi_ctr_gen_utility_pvt.put_line(' p_curr_adj' || p_curr_adj);
307: csi_ctr_gen_utility_pvt.put_line('6398254: p_rdg_type' || p_rdg_type);
308: csi_ctr_gen_utility_pvt.put_line('p_direction' || p_direction);
309: csi_ctr_gen_utility_pvt.put_line('6398254: l_ctr_rdg_rec.reset_mode' || l_ctr_rdg_rec.reset_mode); -- added 6398254
302: csi_ctr_gen_utility_pvt.put_line('6398254: p_prev_net_rdg' || p_prev_net_rdg);
303: csi_ctr_gen_utility_pvt.put_line('6398254: p_prev_ltd_rdg' || p_prev_ltd_rdg);
304: csi_ctr_gen_utility_pvt.put_line('6398254: p_curr_rdg' || p_curr_rdg);
305: csi_ctr_gen_utility_pvt.put_line('6398254: p_prev_rdg' || p_prev_rdg);
306: csi_ctr_gen_utility_pvt.put_line(' p_curr_adj' || p_curr_adj);
307: csi_ctr_gen_utility_pvt.put_line('6398254: p_rdg_type' || p_rdg_type);
308: csi_ctr_gen_utility_pvt.put_line('p_direction' || p_direction);
309: csi_ctr_gen_utility_pvt.put_line('6398254: l_ctr_rdg_rec.reset_mode' || l_ctr_rdg_rec.reset_mode); -- added 6398254
310: csi_ctr_gen_utility_pvt.put_line('6398254: l_ctr_rdg_rec.reset_reason' || l_ctr_rdg_rec.reset_reason); -- added 6398254
303: csi_ctr_gen_utility_pvt.put_line('6398254: p_prev_ltd_rdg' || p_prev_ltd_rdg);
304: csi_ctr_gen_utility_pvt.put_line('6398254: p_curr_rdg' || p_curr_rdg);
305: csi_ctr_gen_utility_pvt.put_line('6398254: p_prev_rdg' || p_prev_rdg);
306: csi_ctr_gen_utility_pvt.put_line(' p_curr_adj' || p_curr_adj);
307: csi_ctr_gen_utility_pvt.put_line('6398254: p_rdg_type' || p_rdg_type);
308: csi_ctr_gen_utility_pvt.put_line('p_direction' || p_direction);
309: csi_ctr_gen_utility_pvt.put_line('6398254: l_ctr_rdg_rec.reset_mode' || l_ctr_rdg_rec.reset_mode); -- added 6398254
310: csi_ctr_gen_utility_pvt.put_line('6398254: l_ctr_rdg_rec.reset_reason' || l_ctr_rdg_rec.reset_reason); -- added 6398254
311: END IF; -- 8214848 - dsingire
304: csi_ctr_gen_utility_pvt.put_line('6398254: p_curr_rdg' || p_curr_rdg);
305: csi_ctr_gen_utility_pvt.put_line('6398254: p_prev_rdg' || p_prev_rdg);
306: csi_ctr_gen_utility_pvt.put_line(' p_curr_adj' || p_curr_adj);
307: csi_ctr_gen_utility_pvt.put_line('6398254: p_rdg_type' || p_rdg_type);
308: csi_ctr_gen_utility_pvt.put_line('p_direction' || p_direction);
309: csi_ctr_gen_utility_pvt.put_line('6398254: l_ctr_rdg_rec.reset_mode' || l_ctr_rdg_rec.reset_mode); -- added 6398254
310: csi_ctr_gen_utility_pvt.put_line('6398254: l_ctr_rdg_rec.reset_reason' || l_ctr_rdg_rec.reset_reason); -- added 6398254
311: END IF; -- 8214848 - dsingire
312: /* Only return if a Bi-directional counter AND a reset flow */
305: csi_ctr_gen_utility_pvt.put_line('6398254: p_prev_rdg' || p_prev_rdg);
306: csi_ctr_gen_utility_pvt.put_line(' p_curr_adj' || p_curr_adj);
307: csi_ctr_gen_utility_pvt.put_line('6398254: p_rdg_type' || p_rdg_type);
308: csi_ctr_gen_utility_pvt.put_line('p_direction' || p_direction);
309: csi_ctr_gen_utility_pvt.put_line('6398254: l_ctr_rdg_rec.reset_mode' || l_ctr_rdg_rec.reset_mode); -- added 6398254
310: csi_ctr_gen_utility_pvt.put_line('6398254: l_ctr_rdg_rec.reset_reason' || l_ctr_rdg_rec.reset_reason); -- added 6398254
311: END IF; -- 8214848 - dsingire
312: /* Only return if a Bi-directional counter AND a reset flow */
313:
306: csi_ctr_gen_utility_pvt.put_line(' p_curr_adj' || p_curr_adj);
307: csi_ctr_gen_utility_pvt.put_line('6398254: p_rdg_type' || p_rdg_type);
308: csi_ctr_gen_utility_pvt.put_line('p_direction' || p_direction);
309: csi_ctr_gen_utility_pvt.put_line('6398254: l_ctr_rdg_rec.reset_mode' || l_ctr_rdg_rec.reset_mode); -- added 6398254
310: csi_ctr_gen_utility_pvt.put_line('6398254: l_ctr_rdg_rec.reset_reason' || l_ctr_rdg_rec.reset_reason); -- added 6398254
311: END IF; -- 8214848 - dsingire
312: /* Only return if a Bi-directional counter AND a reset flow */
313:
314: --
334: -- Net Reading = Prev Net + Curr Rdg - Curr Adj -- For Ascending
335: -- Net Reading = Prev Net - Curr Rdg - Curr Adj -- For Descending
336: IF NVL(p_direction,'X') = 'A' or NVL(p_direction,'X') = 'B' THEN
337: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
338: csi_ctr_gen_utility_pvt.put_line('Inside the IF block');
339: END IF; -- 8214848 - dsingire
340: px_net_rdg := nvl(p_prev_net_rdg,0) + nvl(p_curr_rdg,0) - l_curr_adj;
341: px_ltd_rdg := nvl(p_prev_ltd_rdg,0) + nvl(p_curr_rdg,0);
342: ELSIF NVL(p_direction,'X') = 'D' THEN
340: px_net_rdg := nvl(p_prev_net_rdg,0) + nvl(p_curr_rdg,0) - l_curr_adj;
341: px_ltd_rdg := nvl(p_prev_ltd_rdg,0) + nvl(p_curr_rdg,0);
342: ELSIF NVL(p_direction,'X') = 'D' THEN
343: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
344: csi_ctr_gen_utility_pvt.put_line('Calculate Net Reading for Desc');
345: csi_ctr_gen_utility_pvt.put_line('Prev Reading = '||to_char(p_prev_rdg));
346: csi_ctr_gen_utility_pvt.put_line('Prev Net Reading = '||to_char(nvl(p_prev_net_rdg,0)));
347: csi_ctr_gen_utility_pvt.put_line('Prev LTD Reading = '||to_char(nvl(p_prev_ltd_rdg,0)));
348: csi_ctr_gen_utility_pvt.put_line('Current Reading = '||to_char(nvl(p_curr_rdg,0)));
341: px_ltd_rdg := nvl(p_prev_ltd_rdg,0) + nvl(p_curr_rdg,0);
342: ELSIF NVL(p_direction,'X') = 'D' THEN
343: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
344: csi_ctr_gen_utility_pvt.put_line('Calculate Net Reading for Desc');
345: csi_ctr_gen_utility_pvt.put_line('Prev Reading = '||to_char(p_prev_rdg));
346: csi_ctr_gen_utility_pvt.put_line('Prev Net Reading = '||to_char(nvl(p_prev_net_rdg,0)));
347: csi_ctr_gen_utility_pvt.put_line('Prev LTD Reading = '||to_char(nvl(p_prev_ltd_rdg,0)));
348: csi_ctr_gen_utility_pvt.put_line('Current Reading = '||to_char(nvl(p_curr_rdg,0)));
349: END IF; -- 8214848 - dsingire
342: ELSIF NVL(p_direction,'X') = 'D' THEN
343: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
344: csi_ctr_gen_utility_pvt.put_line('Calculate Net Reading for Desc');
345: csi_ctr_gen_utility_pvt.put_line('Prev Reading = '||to_char(p_prev_rdg));
346: csi_ctr_gen_utility_pvt.put_line('Prev Net Reading = '||to_char(nvl(p_prev_net_rdg,0)));
347: csi_ctr_gen_utility_pvt.put_line('Prev LTD Reading = '||to_char(nvl(p_prev_ltd_rdg,0)));
348: csi_ctr_gen_utility_pvt.put_line('Current Reading = '||to_char(nvl(p_curr_rdg,0)));
349: END IF; -- 8214848 - dsingire
350: IF nvl(p_prev_net_rdg,0) = 0 THEN
343: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
344: csi_ctr_gen_utility_pvt.put_line('Calculate Net Reading for Desc');
345: csi_ctr_gen_utility_pvt.put_line('Prev Reading = '||to_char(p_prev_rdg));
346: csi_ctr_gen_utility_pvt.put_line('Prev Net Reading = '||to_char(nvl(p_prev_net_rdg,0)));
347: csi_ctr_gen_utility_pvt.put_line('Prev LTD Reading = '||to_char(nvl(p_prev_ltd_rdg,0)));
348: csi_ctr_gen_utility_pvt.put_line('Current Reading = '||to_char(nvl(p_curr_rdg,0)));
349: END IF; -- 8214848 - dsingire
350: IF nvl(p_prev_net_rdg,0) = 0 THEN
351: /* Check if there is a previous reading */
344: csi_ctr_gen_utility_pvt.put_line('Calculate Net Reading for Desc');
345: csi_ctr_gen_utility_pvt.put_line('Prev Reading = '||to_char(p_prev_rdg));
346: csi_ctr_gen_utility_pvt.put_line('Prev Net Reading = '||to_char(nvl(p_prev_net_rdg,0)));
347: csi_ctr_gen_utility_pvt.put_line('Prev LTD Reading = '||to_char(nvl(p_prev_ltd_rdg,0)));
348: csi_ctr_gen_utility_pvt.put_line('Current Reading = '||to_char(nvl(p_curr_rdg,0)));
349: END IF; -- 8214848 - dsingire
350: IF nvl(p_prev_net_rdg,0) = 0 THEN
351: /* Check if there is a previous reading */
352: IF p_prev_rdg IS NOT NULL THEN
367: ELSE
368: px_ltd_rdg := nvl(p_prev_ltd_rdg,0) - nvl(p_curr_rdg,0);
369: END IF;
370: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
371: csi_ctr_gen_utility_pvt.put_line('New Net Reading = '||to_char(px_net_rdg));
372: csi_ctr_gen_utility_pvt.put_line('New LTD Reading = '||to_char(px_ltd_rdg));
373: END IF; -- 8214848 - dsingire
374: END IF;
375: END IF;
368: px_ltd_rdg := nvl(p_prev_ltd_rdg,0) - nvl(p_curr_rdg,0);
369: END IF;
370: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
371: csi_ctr_gen_utility_pvt.put_line('New Net Reading = '||to_char(px_net_rdg));
372: csi_ctr_gen_utility_pvt.put_line('New LTD Reading = '||to_char(px_ltd_rdg));
373: END IF; -- 8214848 - dsingire
374: END IF;
375: END IF;
376: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
374: END IF;
375: END IF;
376: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
377: /* added 6398254 */
378: csi_ctr_gen_utility_pvt.put_line('6398254: New Net Reading = '||to_char(px_net_rdg));
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
375: END IF;
376: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
377: /* added 6398254 */
378: csi_ctr_gen_utility_pvt.put_line('6398254: New Net Reading = '||to_char(px_net_rdg));
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
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);
390: -- Return;
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
478: CSI_CTR_GEN_UTILITY_PVT.read_debug_profiles;
479: END IF; -- 8214848 - dsingire
480:
481: l_debug_level := CSI_CTR_GEN_UTILITY_PVT.g_debug_level; -- 8214848 - dsingire
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
478: CSI_CTR_GEN_UTILITY_PVT.read_debug_profiles;
479: END IF; -- 8214848 - dsingire
480:
481: l_debug_level := CSI_CTR_GEN_UTILITY_PVT.g_debug_level; -- 8214848 - dsingire
482:
477: IF (CSI_CTR_GEN_UTILITY_PVT.g_debug_level is null) THEN -- 8214848 - dsingire
478: CSI_CTR_GEN_UTILITY_PVT.read_debug_profiles;
479: END IF; -- 8214848 - dsingire
480:
481: l_debug_level := CSI_CTR_GEN_UTILITY_PVT.g_debug_level; -- 8214848 - dsingire
482:
483: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
484: csi_ctr_gen_utility_pvt.put_line('6398254: Inside Reset_Target_Counters...');
485: csi_ctr_gen_utility_pvt.dump_counter_readings_rec(p_ctr_rdg_rec);
480:
481: l_debug_level := CSI_CTR_GEN_UTILITY_PVT.g_debug_level; -- 8214848 - dsingire
482:
483: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
484: csi_ctr_gen_utility_pvt.put_line('6398254: Inside Reset_Target_Counters...');
485: csi_ctr_gen_utility_pvt.dump_counter_readings_rec(p_ctr_rdg_rec);
486: END IF; -- 8214848 - dsingire
487: IF p_txn_rec.transaction_type_id in (88,91,92,94,95) THEN
488: l_mode := 'Meter';
481: l_debug_level := CSI_CTR_GEN_UTILITY_PVT.g_debug_level; -- 8214848 - dsingire
482:
483: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
484: csi_ctr_gen_utility_pvt.put_line('6398254: Inside Reset_Target_Counters...');
485: csi_ctr_gen_utility_pvt.dump_counter_readings_rec(p_ctr_rdg_rec);
486: END IF; -- 8214848 - dsingire
487: IF p_txn_rec.transaction_type_id in (88,91,92,94,95) THEN
488: l_mode := 'Meter';
489: ELSE
506: where counter_id = p_ctr_rdg_rec.counter_id
507: and nvl(end_date_active,(sysdate+1)) > sysdate;
508: Exception
509: when no_data_found then
510: csi_ctr_gen_utility_pvt.ExitWithErrMsg
511: ( p_msg_name => 'CSI_API_CTR_INVALID',
512: p_token1_name => 'MODE',
513: p_token1_val => l_mode
514: );
529: --l_prev_max_comments
530: FROM CSI_COUNTER_READINGS WHERE COUNTER_VALUE_ID = NVL(l_ctr_val_max,-1);
531:
532: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
533: csi_ctr_gen_utility_pvt.put_line('l_ctr_val_max - ' || l_ctr_val_max );
534: END IF; -- 8214848 - dsingire
535:
536: EXCEPTION
537: WHEN OTHERS THEN
550: --l_prev_value_timestamp := l_prev_value_max_timestamp;
551: --l_prev_comments := l_prev_max_comments;
552:
553: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
554: csi_ctr_gen_utility_pvt.put_line('Max Value counter id used');
555: END IF; -- 8214848 - dsingire
556: ELSE
557: OPEN PREV_READING_CUR(obj_cur.object_counter_id,p_ctr_rdg_rec.value_timestamp);
558: FETCH PREV_READING_CUR
563: END IF;
564: --
565: IF l_previous_ctr_rdg = NULL THEN
566: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
567: csi_ctr_gen_utility_pvt.put_line('Target Counter ID '||to_char(obj_cur.object_counter_id)||
568: ' does not have any prior readings. First reading cannot be reset');
569: END IF; -- 8214848 - dsingire
570: csi_ctr_gen_utility_pvt.ExitWithErrMsg
571: ( p_msg_name => 'CSI_API_CTR_INVALID_FIRST_RDG',
566: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
567: csi_ctr_gen_utility_pvt.put_line('Target Counter ID '||to_char(obj_cur.object_counter_id)||
568: ' does not have any prior readings. First reading cannot be reset');
569: END IF; -- 8214848 - dsingire
570: csi_ctr_gen_utility_pvt.ExitWithErrMsg
571: ( p_msg_name => 'CSI_API_CTR_INVALID_FIRST_RDG',
572: p_token1_name => 'MODE',
573: p_token1_val => l_mode
574: );
576: --
577: IF l_direction = 'A' THEN -- Added for bug#14561696
578: IF p_ctr_rdg_rec.counter_reading > l_previous_ctr_rdg THEN
579: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
580: csi_ctr_gen_utility_pvt.put_line('Reset counter reading has to be less than the previous reading');
581: END IF; -- 8214848 - dsingire
582: csi_ctr_gen_utility_pvt.ExitWithErrMsg
583: ( p_msg_name => 'CSI_API_CTR_LESS_RESET_RDG',
584: p_token1_name => 'PREV_RDG',
578: IF p_ctr_rdg_rec.counter_reading > l_previous_ctr_rdg THEN
579: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
580: csi_ctr_gen_utility_pvt.put_line('Reset counter reading has to be less than the previous reading');
581: END IF; -- 8214848 - dsingire
582: csi_ctr_gen_utility_pvt.ExitWithErrMsg
583: ( p_msg_name => 'CSI_API_CTR_LESS_RESET_RDG',
584: p_token1_name => 'PREV_RDG',
585: p_token1_val => to_char(l_previous_ctr_rdg),
586: p_token2_name => 'MODE',
604: l_ctr_rdg_rec.source_line_id := p_ctr_rdg_rec.source_line_id;
605: l_ctr_rdg_rec.comments := p_ctr_rdg_rec.comments;
606:
607: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
608: csi_ctr_gen_utility_pvt.put_line('6398254: reset reason' || l_ctr_rdg_rec.reset_reason);
609: csi_ctr_gen_utility_pvt.put_line('6398254: net reading' || l_ctr_rdg_rec.net_reading);
610: end IF; -- 8214848 - dsingire
611: --
612: -- Generate the Value_id for insert
605: l_ctr_rdg_rec.comments := p_ctr_rdg_rec.comments;
606:
607: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
608: csi_ctr_gen_utility_pvt.put_line('6398254: reset reason' || l_ctr_rdg_rec.reset_reason);
609: csi_ctr_gen_utility_pvt.put_line('6398254: net reading' || l_ctr_rdg_rec.net_reading);
610: end IF; -- 8214848 - dsingire
611: --
612: -- Generate the Value_id for insert
613: l_process_flag := TRUE;
636: OPEN get_uom_class(obj_cur.object_uom_code);
637: FETCH get_uom_class into l_object_uom_class;
638:
639: IF get_uom_class%notfound THEN
640: csi_ctr_gen_utility_pvt.ExitWithErrMsg('CSI_ALL_INVALID_UOM_CODE');
641: END IF;
642:
643: IF get_uom_class%ISOPEN THEN
644: CLOSE get_uom_class;
647: OPEN get_uom_class(l_source_uom_code);
648: FETCH get_uom_class into l_source_uom_class;
649:
650: IF get_uom_class%notfound THEN
651: csi_ctr_gen_utility_pvt.ExitWithErrMsg('CSI_ALL_INVALID_UOM_CODE');
652: END IF;
653:
654: IF get_uom_class%ISOPEN THEN
655: CLOSE get_uom_class;
661: ,obj_cur.object_uom_code
662: ,null
663: ,l_uom_rate);
664: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
665: csi_ctr_gen_utility_pvt.put_line('Object UOM Code = '||obj_cur.object_uom_code);
666: csi_ctr_gen_utility_pvt.put_line('Source UOM Code = '||l_source_uom_code);
667: csi_ctr_gen_utility_pvt.put_line('UOM Rate = '||to_char(l_uom_rate));
668: END IF; -- 8214848 - dsingire
669: IF l_uom_rate = -99999 then
662: ,null
663: ,l_uom_rate);
664: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
665: csi_ctr_gen_utility_pvt.put_line('Object UOM Code = '||obj_cur.object_uom_code);
666: csi_ctr_gen_utility_pvt.put_line('Source UOM Code = '||l_source_uom_code);
667: csi_ctr_gen_utility_pvt.put_line('UOM Rate = '||to_char(l_uom_rate));
668: END IF; -- 8214848 - dsingire
669: IF l_uom_rate = -99999 then
670: csi_ctr_gen_utility_pvt.put_line(' Error during the conversion of UOM');
663: ,l_uom_rate);
664: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
665: csi_ctr_gen_utility_pvt.put_line('Object UOM Code = '||obj_cur.object_uom_code);
666: csi_ctr_gen_utility_pvt.put_line('Source UOM Code = '||l_source_uom_code);
667: csi_ctr_gen_utility_pvt.put_line('UOM Rate = '||to_char(l_uom_rate));
668: END IF; -- 8214848 - dsingire
669: IF l_uom_rate = -99999 then
670: csi_ctr_gen_utility_pvt.put_line(' Error during the conversion of UOM');
671: END IF;
666: csi_ctr_gen_utility_pvt.put_line('Source UOM Code = '||l_source_uom_code);
667: csi_ctr_gen_utility_pvt.put_line('UOM Rate = '||to_char(l_uom_rate));
668: END IF; -- 8214848 - dsingire
669: IF l_uom_rate = -99999 then
670: csi_ctr_gen_utility_pvt.put_line(' Error during the conversion of UOM');
671: END IF;
672: ELSE
673: l_uom_rate := 1;
674: END IF;
701:
702: --
703: -- Call the Table Handler to insert into CSI_COUNTER_READINGS
704: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
705: csi_ctr_gen_utility_pvt.put_line('Resetting target Counter '||to_char(l_ctr_rdg_rec.counter_id));
706: END IF; -- 8214848 - dsingire
707: --
708: CSI_COUNTER_READINGS_PKG.Insert_Row(
709: px_COUNTER_VALUE_ID => l_ctr_rdg_rec.counter_value_id
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;
849: l_msg_count := l_msg_count - 1;
850: END LOOP;
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;
849: l_msg_count := l_msg_count - 1;
850: END LOOP;
851: RAISE FND_API.G_EXC_ERROR;
894: BEGIN
895: SAVEPOINT create_reading_transaction;
896: --
897: -- Read the debug profiles values in to global variable 7197402
898: IF (CSI_CTR_GEN_UTILITY_PVT.g_debug_level is null) THEN -- 8214848 - dsingire
899: CSI_CTR_GEN_UTILITY_PVT.read_debug_profiles;
900: END IF; -- 8214848 - dsingire
901:
902: l_debug_level := CSI_CTR_GEN_UTILITY_PVT.g_debug_level; -- 8214848 - dsingire
895: SAVEPOINT create_reading_transaction;
896: --
897: -- Read the debug profiles values in to global variable 7197402
898: IF (CSI_CTR_GEN_UTILITY_PVT.g_debug_level is null) THEN -- 8214848 - dsingire
899: CSI_CTR_GEN_UTILITY_PVT.read_debug_profiles;
900: END IF; -- 8214848 - dsingire
901:
902: l_debug_level := CSI_CTR_GEN_UTILITY_PVT.g_debug_level; -- 8214848 - dsingire
903:
898: IF (CSI_CTR_GEN_UTILITY_PVT.g_debug_level is null) THEN -- 8214848 - dsingire
899: CSI_CTR_GEN_UTILITY_PVT.read_debug_profiles;
900: END IF; -- 8214848 - dsingire
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;
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)
928: );
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
938: csi_ctr_gen_utility_pvt.ExitWithErrMsg('CSI_INVALID_TXN_TYPE_ID');
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
938: csi_ctr_gen_utility_pvt.ExitWithErrMsg('CSI_INVALID_TXN_TYPE_ID');
939: ELSE
940: Begin
941: SELECT 'x'
942: INTO l_dummy
943: FROM csi_txn_types
944: WHERE transaction_type_id = p_txn_rec.transaction_type_id;
945: Exception
946: when no_data_found THEN
947: csi_ctr_gen_utility_pvt.ExitWithErrMsg('CSI_INVALID_TXN_TYPE_ID');
948: End;
949: END IF;
950: END IF;
951: --
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
958: p_txn_rec.transaction_date = FND_API.G_MISS_DATE THEN
962: p_txn_rec.object_version_number := 1;
963: p_txn_rec.gl_interface_status_code := 1; -- Pending
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) );
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
1213: CSI_CTR_GEN_UTILITY_PVT.read_debug_profiles;
1214: END IF; -- 8214848 - dsingire
1215:
1216: l_debug_level := CSI_CTR_GEN_UTILITY_PVT.g_debug_level; -- 8214848 - dsingire
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
1213: CSI_CTR_GEN_UTILITY_PVT.read_debug_profiles;
1214: END IF; -- 8214848 - dsingire
1215:
1216: l_debug_level := CSI_CTR_GEN_UTILITY_PVT.g_debug_level; -- 8214848 - dsingire
1217:
1212: IF (CSI_CTR_GEN_UTILITY_PVT.g_debug_level is null) THEN -- 8214848 - dsingire
1213: CSI_CTR_GEN_UTILITY_PVT.read_debug_profiles;
1214: END IF; -- 8214848 - dsingire
1215:
1216: l_debug_level := CSI_CTR_GEN_UTILITY_PVT.g_debug_level; -- 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 ||'-'||
1215:
1216: l_debug_level := CSI_CTR_GEN_UTILITY_PVT.g_debug_level; -- 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) );
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: -- *
1228:
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: -- *
1228:
1229: --
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
1242: );
1252: where counter_id = p_ctr_rdg_rec.counter_id
1253: and nvl(end_date_active,(sysdate+1)) > sysdate;
1254: Exception
1255: when no_data_found then
1256: csi_ctr_gen_utility_pvt.ExitWithErrMsg
1257: ( p_msg_name => 'CSI_API_CTR_INVALID',
1258: p_token1_name => 'MODE',
1259: p_token1_val => l_mode
1260: );
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
1271: ( p_msg_name => 'CSI_API_CTR_RDG_MISSING',
1272: p_token1_name => 'MODE',
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
1271: ( p_msg_name => 'CSI_API_CTR_RDG_MISSING',
1272: p_token1_name => 'MODE',
1273: p_token1_val => l_mode
1274: );
1275: END IF;
1276: --
1277: IF nvl(l_direction,'X') NOT IN ('A','D','B') THEN
1278: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
1279: csi_ctr_gen_utility_pvt.put_line('Counter has invalid Direction...');
1280: END IF; -- 8214848 - dsingire
1281: csi_ctr_gen_utility_pvt.ExitWithErrMsg
1282: ( p_msg_name => 'CSI_API_CTR_INVALID_DIR',
1283: p_token1_name => 'MODE',
1277: IF nvl(l_direction,'X') NOT IN ('A','D','B') THEN
1278: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
1279: csi_ctr_gen_utility_pvt.put_line('Counter has invalid Direction...');
1280: END IF; -- 8214848 - dsingire
1281: csi_ctr_gen_utility_pvt.ExitWithErrMsg
1282: ( p_msg_name => 'CSI_API_CTR_INVALID_DIR',
1283: p_token1_name => 'MODE',
1284: p_token1_val => l_mode
1285: );
1286: END IF;
1287: --
1288: IF nvl(p_ctr_rdg_rec.disabled_flag,'N') = 'Y' THEN
1289: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
1290: csi_ctr_gen_utility_pvt.put_line('Cannot disable the value during Insert...');
1291: END IF; -- 8214848 - dsingire
1292: csi_ctr_gen_utility_pvt.ExitWithErrMsg
1293: ( p_msg_name => 'CSI_API_CTR_NO_RDG_DISABLE',
1294: p_token1_name => 'MODE',
1288: IF nvl(p_ctr_rdg_rec.disabled_flag,'N') = 'Y' THEN
1289: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
1290: csi_ctr_gen_utility_pvt.put_line('Cannot disable the value during Insert...');
1291: END IF; -- 8214848 - dsingire
1292: csi_ctr_gen_utility_pvt.ExitWithErrMsg
1293: ( p_msg_name => 'CSI_API_CTR_NO_RDG_DISABLE',
1294: p_token1_name => 'MODE',
1295: p_token1_val => l_mode
1296: );
1307: and ROWNUM = 1;
1308: --
1309: IF l_rec_count > 0 THEN
1310: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
1311: csi_ctr_gen_utility_pvt.put_line('Only First Reading can be captured for a Target Counter manually');
1312: END IF; -- 8214848 - dsingire
1313: csi_ctr_gen_utility_pvt.ExitWithErrMsg
1314: ( p_msg_name => 'CSI_API_NO_RDG_TARGET_CTR',
1315: p_token1_name => 'MODE',
1309: IF l_rec_count > 0 THEN
1310: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
1311: csi_ctr_gen_utility_pvt.put_line('Only First Reading can be captured for a Target Counter manually');
1312: END IF; -- 8214848 - dsingire
1313: csi_ctr_gen_utility_pvt.ExitWithErrMsg
1314: ( p_msg_name => 'CSI_API_NO_RDG_TARGET_CTR',
1315: p_token1_name => 'MODE',
1316: p_token1_val => l_mode
1317: );
1317: );
1318: END IF;
1319: ELSE
1320: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
1321: csi_ctr_gen_utility_pvt.put_line('Cannot Capture Reading for a Target Counter...');
1322: END IF; -- 8214848 - dsingire
1323: csi_ctr_gen_utility_pvt.ExitWithErrMsg
1324: ( p_msg_name => 'CSI_API_NO_RDG_TARGET_CTR',
1325: p_token1_name => 'MODE',
1319: ELSE
1320: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
1321: csi_ctr_gen_utility_pvt.put_line('Cannot Capture Reading for a Target Counter...');
1322: END IF; -- 8214848 - dsingire
1323: csi_ctr_gen_utility_pvt.ExitWithErrMsg
1324: ( p_msg_name => 'CSI_API_NO_RDG_TARGET_CTR',
1325: p_token1_name => 'MODE',
1326: p_token1_val => l_mode
1327: );
1330: --
1331: -- Cannot Capture Reading for Formula Counters
1332: IF Is_Formula_Counter(p_ctr_rdg_rec.counter_id) THEN
1333: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
1334: csi_ctr_gen_utility_pvt.put_line('Cannot Capture Reading for a Formula Counter...');
1335: END IF; -- 8214848 - dsingire
1336: csi_ctr_gen_utility_pvt.ExitWithErrMsg
1337: ( p_msg_name => 'CSI_API_NO_RDG_FORMULA_CTR',
1338: p_token1_name => 'MODE',
1332: IF Is_Formula_Counter(p_ctr_rdg_rec.counter_id) THEN
1333: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
1334: csi_ctr_gen_utility_pvt.put_line('Cannot Capture Reading for a Formula Counter...');
1335: END IF; -- 8214848 - dsingire
1336: csi_ctr_gen_utility_pvt.ExitWithErrMsg
1337: ( p_msg_name => 'CSI_API_NO_RDG_FORMULA_CTR',
1338: p_token1_name => 'MODE',
1339: p_token1_val => l_mode
1340: );
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: --
1349:
1350: Begin
1371: --Added for bug 9402292 - START
1372: IF p_txn_rec.transaction_type_id = 92 THEN
1373: FOR obj_cur IN OBJECT_CTR_CUR LOOP
1374: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
1375: csi_ctr_gen_utility_pvt.put_line('Calling Update_Last_Service_Reading_Wo for '|| obj_cur.object_counter_id );
1376: END IF; -- 8214848 - dsingire
1377: Eam_Meters_Util.Update_Last_Service_Reading_Wo
1378: (
1379: p_wip_entity_id => p_txn_rec.source_header_ref_id,
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
1392: x_msg_data := FND_MSG_PUB.GET
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;
1399: END LOOP;
1400: RAISE FND_API.G_EXC_ERROR;
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
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;
1451: l_msg_index := l_msg_index + 1;
1452: l_msg_count := l_msg_count - 1;
1453: END LOOP;
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',
1459: p_token1_name => 'VALUE_TIMESTAMP',
1460: p_token1_val => to_char(p_ctr_rdg_rec.value_timestamp,l_date_format),
1461: p_token2_name => 'MODE',
1464: END IF;
1465: END;
1466: ELSE
1467: /* end of return status fixes */
1468: csi_ctr_gen_utility_pvt.ExitWithErrMsg
1469: (p_msg_name => 'CSI_API_CTR_RDG_DATE_EXISTS',
1470: p_token1_name => 'VALUE_TIMESTAMP',
1471: p_token1_val => to_char(p_ctr_rdg_rec.value_timestamp,l_date_format),
1472: p_token2_name => 'MODE',
1478: null;
1479: End;
1480: --
1481: IF p_ctr_rdg_rec.value_timestamp > sysdate THEN
1482: csi_ctr_gen_utility_pvt.ExitWithErrMsg
1483: ( p_msg_name => 'CSI_API_CTR_FUTURE_RDG_DATE',
1484: p_token1_name => 'VALUE_TIMESTAMP',
1485: p_token1_val => to_char(p_ctr_rdg_rec.value_timestamp,l_date_format),
1486: p_token2_name => 'MODE',
1488: );
1489: END IF;
1490: -- *
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
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',
1500: p_token1_name => 'ADJ_TYPE',
1501: p_token1_val => p_ctr_rdg_rec.adjustment_type
1502: );
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
1511: csi_ctr_gen_utility_pvt.ExitWithErrMsg
1512: ( p_msg_name => 'CSI_API_CTR_INV_RESET_MODE',
1513: p_token1_name => 'RESET_MODE',
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
1523: ( p_msg_name => 'CSI_API_CTR_SOFT_RDG_MISS',
1524: p_token1_name => 'MODE',
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
1523: ( p_msg_name => 'CSI_API_CTR_SOFT_RDG_MISS',
1524: p_token1_name => 'MODE',
1525: p_token1_val => l_mode
1526: );
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
1536: );
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
1547: ( p_msg_name => 'CSI_API_CTR_ADJ_RDG_MISS',
1548: p_token1_name => 'MODE',
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
1547: ( p_msg_name => 'CSI_API_CTR_ADJ_RDG_MISS',
1548: p_token1_name => 'MODE',
1549: p_token1_val => l_mode
1550: );
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
1560: ( p_msg_name => 'CSI_API_CTR_ADJ_TYPE_MISS',
1561: p_token1_name => 'MODE',
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
1560: ( p_msg_name => 'CSI_API_CTR_ADJ_TYPE_MISS',
1561: p_token1_name => 'MODE',
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
1571: ( p_msg_name => 'CSI_API_CTR_POSITIVE_ADJ_RDG',
1572: p_token1_name => 'MODE',
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
1571: ( p_msg_name => 'CSI_API_CTR_POSITIVE_ADJ_RDG',
1572: p_token1_name => 'MODE',
1573: p_token1_val => l_mode
1574: );
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
1583: ( p_msg_name => 'CSI_API_CTR_RESET_MODE_MISS',
1584: p_token1_name => 'MODE',
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
1583: ( p_msg_name => 'CSI_API_CTR_RESET_MODE_MISS',
1584: p_token1_name => 'MODE',
1585: p_token1_val => l_mode
1586: );
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
1594: );
1595: END IF;
1596: END IF;
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
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
1607: ( p_msg_name => 'CSI_API_CTR_RESET_RDG_MISS',
1608: p_token1_name => 'MODE',
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
1607: ( p_msg_name => 'CSI_API_CTR_RESET_RDG_MISS',
1608: p_token1_name => 'MODE',
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
1618: ( p_msg_name => 'CSI_API_CTR_RESET_MODE_MISS',
1619: p_token1_name => 'MODE',
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
1618: ( p_msg_name => 'CSI_API_CTR_RESET_MODE_MISS',
1619: p_token1_name => 'MODE',
1620: p_token1_val => l_mode
1621: );
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
1633: ( p_msg_name => 'CSI_API_CTR_RDG_MISSING',
1634: p_token1_name => 'MODE',
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
1633: ( p_msg_name => 'CSI_API_CTR_RDG_MISSING',
1634: p_token1_name => 'MODE',
1635: p_token1_val => l_mode
1636: );
1652: --
1653: IF l_rdg_lock_date IS NOT NULL THEN
1654: IF p_ctr_rdg_rec.value_timestamp <= l_rdg_lock_date THEN
1655: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
1656: csi_ctr_gen_utility_pvt.put_line('Reading Date cannot be earlier than the Reading Lock Date...');
1657: END IF; -- 8214848 - dsingire
1658: csi_ctr_gen_utility_pvt.ExitWithErrMsg
1659: ( p_msg_name => 'CSI_API_CTR_RDG_DATE_LOCKED',
1660: p_token1_name => 'LOCKED_DATE',
1654: IF p_ctr_rdg_rec.value_timestamp <= l_rdg_lock_date THEN
1655: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
1656: csi_ctr_gen_utility_pvt.put_line('Reading Date cannot be earlier than the Reading Lock Date...');
1657: END IF; -- 8214848 - dsingire
1658: csi_ctr_gen_utility_pvt.ExitWithErrMsg
1659: ( p_msg_name => 'CSI_API_CTR_RDG_DATE_LOCKED',
1660: p_token1_name => 'LOCKED_DATE',
1661: p_token1_val => to_char(l_rdg_lock_date,l_date_format), --fix for bug 5435071
1662: p_token2_name => 'MODE',
1665: END IF;
1666: END IF;
1667: -- *
1668: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
1669: csi_ctr_gen_utility_pvt.put_line('Getting PREV Counter reading' || p_ctr_rdg_rec.value_timestamp );
1670: END IF; -- 8214848 - dsingire
1671:
1672: -- Get the last reading for this counter
1673: -- Bug 8214848
1684: --l_prev_max_comments
1685: FROM CSI_COUNTER_READINGS WHERE COUNTER_VALUE_ID = NVL(l_ctr_val_max,-1);
1686:
1687: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
1688: csi_ctr_gen_utility_pvt.put_line('l_ctr_val_max - ' || l_ctr_val_max );
1689: END IF; -- 8214848 - dsingire
1690:
1691: EXCEPTION
1692: WHEN OTHERS THEN
1705: l_prev_value_timestamp := l_prev_value_max_timestamp;
1706: --l_prev_comments := l_prev_max_comments;
1707:
1708: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
1709: csi_ctr_gen_utility_pvt.put_line('Max Value counter id used');
1710: END IF; -- 8214848 - dsingire
1711:
1712: ELSE
1713:
1723:
1724: -- End of modification for the bug 8214848
1725: -- *
1726: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
1727: csi_ctr_gen_utility_pvt.put_line('PREV Counter reading' || l_prev_ctr_reading );
1728: END IF; -- 8214848 - dsingire
1729:
1730:
1731: --
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
1740: csi_ctr_gen_utility_pvt.ExitWithErrMsg
1741: ( p_msg_name => 'CSI_API_CTR_INVALID_FIRST_RDG',
1742: p_token1_name => 'MODE',
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
1740: csi_ctr_gen_utility_pvt.ExitWithErrMsg
1741: ( p_msg_name => 'CSI_API_CTR_INVALID_FIRST_RDG',
1742: p_token1_name => 'MODE',
1743: p_token1_val => l_mode
1744: );
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
1752: csi_ctr_gen_utility_pvt.ExitWithErrMsg
1753: ( p_msg_name => 'CSI_API_CTR_INVALID_ADJ_RDG',
1754: p_token1_name => 'PREV_NET',
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
1752: csi_ctr_gen_utility_pvt.ExitWithErrMsg
1753: ( p_msg_name => 'CSI_API_CTR_INVALID_ADJ_RDG',
1754: p_token1_name => 'PREV_NET',
1755: p_token1_val => to_char(l_prev_net_reading)
1756: );
1759: END IF;
1760:
1761: -- *
1762: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
1763: csi_ctr_gen_utility_pvt.put_line('Getting LAST Counter reading' || to_char(p_ctr_rdg_rec.value_timestamp,'DD-MON-YYYY HH24:MI:SS'));
1764:
1765: csi_ctr_gen_utility_pvt.put_line('next value timestamp before fetch' || l_next_value_timestamp);
1766: END IF; -- 8214848 - dsingire
1767:
1761: -- *
1762: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
1763: csi_ctr_gen_utility_pvt.put_line('Getting LAST Counter reading' || to_char(p_ctr_rdg_rec.value_timestamp,'DD-MON-YYYY HH24:MI:SS'));
1764:
1765: csi_ctr_gen_utility_pvt.put_line('next value timestamp before fetch' || l_next_value_timestamp);
1766: END IF; -- 8214848 - dsingire
1767:
1768: -- Get the next reading for this counter
1769: OPEN NEXT_READING_CUR(p_ctr_rdg_rec.counter_id,p_ctr_rdg_rec.value_timestamp);
1775: CLOSE NEXT_READING_CUR;
1776:
1777: -- *
1778: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
1779: csi_ctr_gen_utility_pvt.put_line('LAST Counter reading' || l_next_ctr_reading );
1780: csi_ctr_gen_utility_pvt.put_line('LAST Counter reading' || to_char(l_next_value_timestamp,'DD-MON-YYYY HH24:MI:SS') );
1781: csi_ctr_gen_utility_pvt.put_line('Reading Type is' || l_reading_type );
1782: END IF; -- 8214848 - dsingire
1783: --
1776:
1777: -- *
1778: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
1779: csi_ctr_gen_utility_pvt.put_line('LAST Counter reading' || l_next_ctr_reading );
1780: csi_ctr_gen_utility_pvt.put_line('LAST Counter reading' || to_char(l_next_value_timestamp,'DD-MON-YYYY HH24:MI:SS') );
1781: csi_ctr_gen_utility_pvt.put_line('Reading Type is' || l_reading_type );
1782: END IF; -- 8214848 - dsingire
1783: --
1784: --
1777: -- *
1778: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
1779: csi_ctr_gen_utility_pvt.put_line('LAST Counter reading' || l_next_ctr_reading );
1780: csi_ctr_gen_utility_pvt.put_line('LAST Counter reading' || to_char(l_next_value_timestamp,'DD-MON-YYYY HH24:MI:SS') );
1781: csi_ctr_gen_utility_pvt.put_line('Reading Type is' || l_reading_type );
1782: END IF; -- 8214848 - dsingire
1783: --
1784: --
1785: IF NVL(p_ctr_rdg_rec.automatic_rollover_flag,'N') = 'Y' THEN
1786: IF NVL(l_auto_rollover,'N') <> 'Y' OR
1787: l_rollover_last_rdg IS NULL OR
1788: l_rollover_first_rdg IS NULL THEN
1789: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
1790: csi_ctr_gen_utility_pvt.put_line('Counter does not have automatic rollover attributes set...');
1791: END IF; -- 8214848 - dsingire
1792: csi_ctr_gen_utility_pvt.ExitWithErrMsg
1793: ( p_msg_name => 'CSI_API_CTR_ROLLOVER_ATTR_MISS',
1794: p_token1_name => 'MODE',
1788: l_rollover_first_rdg IS NULL THEN
1789: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
1790: csi_ctr_gen_utility_pvt.put_line('Counter does not have automatic rollover attributes set...');
1791: END IF; -- 8214848 - dsingire
1792: csi_ctr_gen_utility_pvt.ExitWithErrMsg
1793: ( p_msg_name => 'CSI_API_CTR_ROLLOVER_ATTR_MISS',
1794: p_token1_name => 'MODE',
1795: p_token1_val => l_mode
1796: );
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',
1807: p_token1_val => l_mode
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',
1807: p_token1_val => l_mode
1808: );
1810: */
1811: --
1812: IF NVL(p_ctr_rdg_rec.automatic_rollover_flag,'N') = 'Y' THEN
1813: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
1814: csi_ctr_gen_utility_pvt.put_line('Automatic Rollover is not allowed for Change Counters..');
1815: END IF; -- 8214848 - dsingire
1816: csi_ctr_gen_utility_pvt.ExitWithErrMsg
1817: ( p_msg_name => 'CSI_API_NO_AUTO_CHG_CTR',
1818: p_token1_name => 'MODE',
1812: IF NVL(p_ctr_rdg_rec.automatic_rollover_flag,'N') = 'Y' THEN
1813: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
1814: csi_ctr_gen_utility_pvt.put_line('Automatic Rollover is not allowed for Change Counters..');
1815: END IF; -- 8214848 - dsingire
1816: csi_ctr_gen_utility_pvt.ExitWithErrMsg
1817: ( p_msg_name => 'CSI_API_NO_AUTO_CHG_CTR',
1818: p_token1_name => 'MODE',
1819: p_token1_val => l_mode
1820: );
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',
1828: p_token1_val => l_mode
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',
1828: p_token1_val => l_mode
1829: );
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',
1841: p_token1_val => l_mode
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',
1841: p_token1_val => l_mode
1842: );
1843: END IF;*/
1844:
1845: --
1846: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
1847: csi_ctr_gen_utility_pvt.put_line( 'p_ctr_rdg_rec.reset_mode ' || p_ctr_rdg_rec.reset_mode);
1848: END IF; -- 8214848 - dsingire
1849: IF NVL(p_ctr_rdg_rec.automatic_rollover_flag,'N') = 'Y' THEN
1850: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
1851: csi_ctr_gen_utility_pvt.put_line('Automatic Rollover is not allowed for Bi-directional Counters..');
1847: csi_ctr_gen_utility_pvt.put_line( 'p_ctr_rdg_rec.reset_mode ' || p_ctr_rdg_rec.reset_mode);
1848: END IF; -- 8214848 - dsingire
1849: IF NVL(p_ctr_rdg_rec.automatic_rollover_flag,'N') = 'Y' THEN
1850: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
1851: csi_ctr_gen_utility_pvt.put_line('Automatic Rollover is not allowed for Bi-directional Counters..');
1852: END IF; -- 8214848 - dsingire
1853: csi_ctr_gen_utility_pvt.ExitWithErrMsg
1854: ( p_msg_name => 'CSI_API_NO_AUTO_BID_CTR',
1855: p_token1_name => 'MODE',
1849: IF NVL(p_ctr_rdg_rec.automatic_rollover_flag,'N') = 'Y' THEN
1850: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
1851: csi_ctr_gen_utility_pvt.put_line('Automatic Rollover is not allowed for Bi-directional Counters..');
1852: END IF; -- 8214848 - dsingire
1853: csi_ctr_gen_utility_pvt.ExitWithErrMsg
1854: ( p_msg_name => 'CSI_API_NO_AUTO_BID_CTR',
1855: p_token1_name => 'MODE',
1856: p_token1_val => l_mode
1857: );
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
1866: ( p_msg_name => 'CSI_API_NO_ADJ_BID_CTR',
1867: p_token1_name => 'MODE',
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
1866: ( p_msg_name => 'CSI_API_NO_ADJ_BID_CTR',
1867: p_token1_name => 'MODE',
1868: p_token1_val => l_mode
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
1866: ( p_msg_name => 'CSI_API_NO_ADJ_BID_CTR',
1867: p_token1_name => 'MODE',
1868: p_token1_val => l_mode
1869: );
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');
1881: END IF;
1882: END IF;
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');
1881: END IF;
1882: END IF;
1883: -- *
1884: --csi_ctr_gen_utility_pvt.put_line( '1'); -- 8214848 - dsingire
1880: csi_ctr_gen_utility_pvt.ExitWithErrMsg('CSI_API_CTR_INVALID_AUTO_RDG');
1881: END IF;
1882: END IF;
1883: -- *
1884: --csi_ctr_gen_utility_pvt.put_line( '1'); -- 8214848 - dsingire
1885: IF l_next_value_timestamp IS NOT NULL THEN
1886: -- *
1887: --csi_ctr_gen_utility_pvt.put_line( '2'); -- 8214848 - dsingire
1888: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
1883: -- *
1884: --csi_ctr_gen_utility_pvt.put_line( '1'); -- 8214848 - dsingire
1885: IF l_next_value_timestamp IS NOT NULL THEN
1886: -- *
1887: --csi_ctr_gen_utility_pvt.put_line( '2'); -- 8214848 - dsingire
1888: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
1889: csi_ctr_gen_utility_pvt.put_line( 'l_next_value_timestamp' || l_next_value_timestamp);
1890: END IF; -- 8214848 - dsingire
1891: -- Automatic Rollover Cannot occur inbetween readings
1885: IF l_next_value_timestamp IS NOT NULL THEN
1886: -- *
1887: --csi_ctr_gen_utility_pvt.put_line( '2'); -- 8214848 - dsingire
1888: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
1889: csi_ctr_gen_utility_pvt.put_line( 'l_next_value_timestamp' || l_next_value_timestamp);
1890: END IF; -- 8214848 - dsingire
1891: -- Automatic Rollover Cannot occur inbetween readings
1892: IF NVL(p_ctr_rdg_rec.automatic_rollover_flag,'N') = 'Y' THEN
1893: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
1890: END IF; -- 8214848 - dsingire
1891: -- Automatic Rollover Cannot occur inbetween readings
1892: IF NVL(p_ctr_rdg_rec.automatic_rollover_flag,'N') = 'Y' THEN
1893: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
1894: csi_ctr_gen_utility_pvt.put_line('Next counter reading exists. Cannot Rollover...'); ----- this point
1895: END IF; -- 8214848 - dsingire
1896:
1897: csi_ctr_gen_utility_pvt.ExitWithErrMsg
1898: ( p_msg_name => 'CSI_API_CTR_NEXT_RDG_DT_EXISTS',
1893: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
1894: csi_ctr_gen_utility_pvt.put_line('Next counter reading exists. Cannot Rollover...'); ----- this point
1895: END IF; -- 8214848 - dsingire
1896:
1897: csi_ctr_gen_utility_pvt.ExitWithErrMsg
1898: ( p_msg_name => 'CSI_API_CTR_NEXT_RDG_DT_EXISTS',
1899: p_token1_name => 'NEXT_DATE',
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:
1909: csi_ctr_gen_utility_pvt.ExitWithErrMsg
1910: ( p_msg_name => 'CSI_API_CTR_NEXT_RDG_DT_EXISTS',
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:
1909: csi_ctr_gen_utility_pvt.ExitWithErrMsg
1910: ( p_msg_name => 'CSI_API_CTR_NEXT_RDG_DT_EXISTS',
1911: p_token1_name => 'NEXT_DATE',
1912: p_token1_val => to_char(l_next_value_timestamp,l_date_format)
1913: );
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
1924: ( p_msg_name => 'CSI_API_CTR_ADJ_RDG_ONLY',
1925: p_token1_name => 'NEXT_DATE',
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
1924: ( p_msg_name => 'CSI_API_CTR_ADJ_RDG_ONLY',
1925: p_token1_name => 'NEXT_DATE',
1926: p_token1_val => to_char(l_next_value_timestamp,l_date_format)
1927: );
1939: IF nvl(l_auto_rollover,'N') = 'Y' THEN
1940: IF p_ctr_rdg_rec.reset_counter_reading < l_rollover_last_rdg OR
1941: p_ctr_rdg_rec.reset_counter_reading > l_rollover_first_rdg THEN
1942: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
1943: csi_ctr_gen_utility_pvt.put_line('Reset counter reading not in the range of valid rollover values ...D Dir ');
1944: END IF; -- 8214848 - dsingire
1945: csi_ctr_gen_utility_pvt.ExitWithErrMsg
1946: ( p_msg_name => 'CSI_API_CTR_DSC_ROLLOVER_RDG',
1947: p_token1_name => 'MODE',
1941: p_ctr_rdg_rec.reset_counter_reading > l_rollover_first_rdg THEN
1942: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
1943: csi_ctr_gen_utility_pvt.put_line('Reset counter reading not in the range of valid rollover values ...D Dir ');
1944: END IF; -- 8214848 - dsingire
1945: csi_ctr_gen_utility_pvt.ExitWithErrMsg
1946: ( p_msg_name => 'CSI_API_CTR_DSC_ROLLOVER_RDG',
1947: p_token1_name => 'MODE',
1948: p_token1_val => l_mode
1949: );
1952:
1953:
1954: IF p_ctr_rdg_rec.reset_counter_reading < l_prev_ctr_reading THEN
1955: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
1956: csi_ctr_gen_utility_pvt.put_line('Reset counter reading has to be greater than the previous reading ...D Dir ');
1957: END IF; -- 8214848 - dsingire
1958: csi_ctr_gen_utility_pvt.ExitWithErrMsg
1959: ( p_msg_name => 'CSI_API_CTR_MORE_RESET_RDG',
1960: p_token1_name => 'PREV_RDG',
1954: IF p_ctr_rdg_rec.reset_counter_reading < l_prev_ctr_reading THEN
1955: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
1956: csi_ctr_gen_utility_pvt.put_line('Reset counter reading has to be greater than the previous reading ...D Dir ');
1957: END IF; -- 8214848 - dsingire
1958: csi_ctr_gen_utility_pvt.ExitWithErrMsg
1959: ( p_msg_name => 'CSI_API_CTR_MORE_RESET_RDG',
1960: p_token1_name => 'PREV_RDG',
1961: p_token1_val => to_char(l_prev_ctr_reading),
1962: p_token2_name => 'MODE',
1968: IF p_ctr_rdg_rec.reset_counter_reading > l_rollover_last_rdg OR
1969: p_ctr_rdg_rec.reset_counter_reading < l_rollover_first_rdg THEN
1970:
1971: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
1972: csi_ctr_gen_utility_pvt.put_line('Reset counter reading not in the range of valid rollover values ...A Dir ');
1973: END IF; -- 8214848 - dsingire
1974: csi_ctr_gen_utility_pvt.ExitWithErrMsg
1975: ( p_msg_name => 'CSI_API_CTR_ASC_ROLLOVER_RDG',
1976: p_token1_name => 'MODE',
1970:
1971: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
1972: csi_ctr_gen_utility_pvt.put_line('Reset counter reading not in the range of valid rollover values ...A Dir ');
1973: END IF; -- 8214848 - dsingire
1974: csi_ctr_gen_utility_pvt.ExitWithErrMsg
1975: ( p_msg_name => 'CSI_API_CTR_ASC_ROLLOVER_RDG',
1976: p_token1_name => 'MODE',
1977: p_token1_val => l_mode
1978: );
1979: END IF;
1980: END IF;
1981: IF p_ctr_rdg_rec.reset_counter_reading > l_prev_ctr_reading THEN
1982: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
1983: csi_ctr_gen_utility_pvt.put_line('Reset counter reading has to be less than the previous reading ... A Dir');
1984: END IF; -- 8214848 - dsingire
1985: csi_ctr_gen_utility_pvt.ExitWithErrMsg
1986: ( p_msg_name => 'CSI_API_CTR_LESS_RESET_RDG',
1987: p_token1_name => 'PREV_RDG',
1981: IF p_ctr_rdg_rec.reset_counter_reading > l_prev_ctr_reading THEN
1982: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
1983: csi_ctr_gen_utility_pvt.put_line('Reset counter reading has to be less than the previous reading ... A Dir');
1984: END IF; -- 8214848 - dsingire
1985: csi_ctr_gen_utility_pvt.ExitWithErrMsg
1986: ( p_msg_name => 'CSI_API_CTR_LESS_RESET_RDG',
1987: p_token1_name => 'PREV_RDG',
1988: p_token1_val => to_char(l_prev_ctr_reading),
1989: p_token2_name => 'MODE',
1994: ELSE
1995: IF l_direction = 'D' THEN
1996: IF p_ctr_rdg_rec.reset_counter_reading < l_prev_ctr_reading THEN
1997: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
1998: csi_ctr_gen_utility_pvt.put_line('Reset counter reading has to be greater than the previous reading ...D Dir ');
1999: END IF; -- 8214848 - dsingire
2000: csi_ctr_gen_utility_pvt.ExitWithErrMsg
2001: ( p_msg_name => 'CSI_API_CTR_MORE_RESET_RDG',
2002: p_token1_name => 'PREV_RDG',
1996: IF p_ctr_rdg_rec.reset_counter_reading < l_prev_ctr_reading THEN
1997: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
1998: csi_ctr_gen_utility_pvt.put_line('Reset counter reading has to be greater than the previous reading ...D Dir ');
1999: END IF; -- 8214848 - dsingire
2000: csi_ctr_gen_utility_pvt.ExitWithErrMsg
2001: ( p_msg_name => 'CSI_API_CTR_MORE_RESET_RDG',
2002: p_token1_name => 'PREV_RDG',
2003: p_token1_val => to_char(l_prev_ctr_reading),
2004: p_token2_name => 'MODE',
2008: /* As in 11.5.10, ensure that Reset of Bidirection counter, reading is less than current reading */
2009: ELSIF l_direction = 'A' THEN
2010: IF p_ctr_rdg_rec.reset_counter_reading > l_prev_ctr_reading THEN
2011: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
2012: csi_ctr_gen_utility_pvt.put_line('Reset counter reading has to be less than the previous reading ... A Dir');
2013: END IF; -- 8214848 - dsingire
2014: csi_ctr_gen_utility_pvt.ExitWithErrMsg
2015: ( p_msg_name => 'CSI_API_CTR_LESS_RESET_RDG',
2016: p_token1_name => 'PREV_RDG',
2010: IF p_ctr_rdg_rec.reset_counter_reading > l_prev_ctr_reading THEN
2011: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
2012: csi_ctr_gen_utility_pvt.put_line('Reset counter reading has to be less than the previous reading ... A Dir');
2013: END IF; -- 8214848 - dsingire
2014: csi_ctr_gen_utility_pvt.ExitWithErrMsg
2015: ( p_msg_name => 'CSI_API_CTR_LESS_RESET_RDG',
2016: p_token1_name => 'PREV_RDG',
2017: p_token1_val => to_char(l_prev_ctr_reading),
2018: p_token2_name => 'MODE',
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
2038: csi_ctr_gen_utility_pvt.put_line('1. Reading should be in increasing order...');
2039: END IF; -- 8214848 - dsingire
2040: csi_ctr_gen_utility_pvt.ExitWithErrMsg
2041: ( p_msg_name => 'CSI_API_CTR_INV_RDG',
2042: p_token1_name => 'DIRECTION',
2036: p_ctr_rdg_rec.counter_reading > l_next_ctr_reading) ) THEN
2037: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
2038: csi_ctr_gen_utility_pvt.put_line('1. Reading should be in increasing order...');
2039: END IF; -- 8214848 - dsingire
2040: csi_ctr_gen_utility_pvt.ExitWithErrMsg
2041: ( p_msg_name => 'CSI_API_CTR_INV_RDG',
2042: p_token1_name => 'DIRECTION',
2043: -- p_token1_val => l_direction,
2044: p_token1_val => 'an Ascending',
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
2058: csi_ctr_gen_utility_pvt.put_line('2. Reading should be in decreasing order...');
2059: END IF; -- 8214848 - dsingire
2060: csi_ctr_gen_utility_pvt.ExitWithErrMsg
2061: ( p_msg_name => 'CSI_API_CTR_INV_RDG',
2062: p_token1_name => 'DIRECTION',
2056: p_ctr_rdg_rec.counter_reading < l_next_ctr_reading) ) THEN
2057: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
2058: csi_ctr_gen_utility_pvt.put_line('2. Reading should be in decreasing order...');
2059: END IF; -- 8214848 - dsingire
2060: csi_ctr_gen_utility_pvt.ExitWithErrMsg
2061: ( p_msg_name => 'CSI_API_CTR_INV_RDG',
2062: p_token1_name => 'DIRECTION',
2063: -- p_token1_val => l_direction,
2064: p_token1_val => 'a Descending',
2075: IF nvl(l_direction,'X') = 'A' THEN
2076: IF p_ctr_rdg_rec.counter_reading > l_rollover_last_rdg OR
2077: p_ctr_rdg_rec.counter_reading < l_rollover_first_rdg THEN
2078: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
2079: csi_ctr_gen_utility_pvt.put_line('Counter Reading has to be within Rollover From-To Rdgs..');
2080: END IF; -- 8214848 - dsingire
2081: csi_ctr_gen_utility_pvt.ExitWithErrMsg
2082: ( p_msg_name => 'CSI_API_CTR_ASC_ROLLOVER_RDG',
2083: p_token1_name => 'MODE',
2077: p_ctr_rdg_rec.counter_reading < l_rollover_first_rdg THEN
2078: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
2079: csi_ctr_gen_utility_pvt.put_line('Counter Reading has to be within Rollover From-To Rdgs..');
2080: END IF; -- 8214848 - dsingire
2081: csi_ctr_gen_utility_pvt.ExitWithErrMsg
2082: ( p_msg_name => 'CSI_API_CTR_ASC_ROLLOVER_RDG',
2083: p_token1_name => 'MODE',
2084: p_token1_val => l_mode
2085: );
2087: ELSIF nvl(l_direction,'X') = 'D' THEN
2088: IF p_ctr_rdg_rec.counter_reading < l_rollover_last_rdg OR
2089: p_ctr_rdg_rec.counter_reading > l_rollover_first_rdg THEN
2090: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
2091: csi_ctr_gen_utility_pvt.put_line('Counter Reading has to be within Rollover From-To Rdgs..');
2092: END IF; -- 8214848 - dsingire
2093: csi_ctr_gen_utility_pvt.ExitWithErrMsg
2094: ( p_msg_name => 'CSI_API_CTR_DSC_ROLLOVER_RDG',
2095: p_token1_name => 'MODE',
2089: p_ctr_rdg_rec.counter_reading > l_rollover_first_rdg THEN
2090: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
2091: csi_ctr_gen_utility_pvt.put_line('Counter Reading has to be within Rollover From-To Rdgs..');
2092: END IF; -- 8214848 - dsingire
2093: csi_ctr_gen_utility_pvt.ExitWithErrMsg
2094: ( p_msg_name => 'CSI_API_CTR_DSC_ROLLOVER_RDG',
2095: p_token1_name => 'MODE',
2096: p_token1_val => l_mode
2097: );
2114: --
2115: -- If counter_reading gets a user entered value or thru' adjustments (Previous value)
2116: -- Insert into CSI_COUNTER_READINGS
2117: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
2118: csi_ctr_gen_utility_pvt.put_line( 'l_reading_type ' || l_reading_type);
2119: csi_ctr_gen_utility_pvt.put_line( 'p_ctr_rdg_rec.counter_reading ' || p_ctr_rdg_rec.counter_reading);
2120: csi_ctr_gen_utility_pvt.put_line( 'p_ctr_rdg_rec.automatic_rollover_flag ' || p_ctr_rdg_rec.automatic_rollover_flag);
2121: csi_ctr_gen_utility_pvt.put_line( 'p_ctr_rdg_rec.reset_mode ' || p_ctr_rdg_rec.reset_mode);
2122:
2115: -- If counter_reading gets a user entered value or thru' adjustments (Previous value)
2116: -- Insert into CSI_COUNTER_READINGS
2117: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
2118: csi_ctr_gen_utility_pvt.put_line( 'l_reading_type ' || l_reading_type);
2119: csi_ctr_gen_utility_pvt.put_line( 'p_ctr_rdg_rec.counter_reading ' || p_ctr_rdg_rec.counter_reading);
2120: csi_ctr_gen_utility_pvt.put_line( 'p_ctr_rdg_rec.automatic_rollover_flag ' || p_ctr_rdg_rec.automatic_rollover_flag);
2121: csi_ctr_gen_utility_pvt.put_line( 'p_ctr_rdg_rec.reset_mode ' || p_ctr_rdg_rec.reset_mode);
2122:
2123: csi_ctr_gen_utility_pvt.put_line( 'p_ctr_rdg_rec.reset_reason ' || p_ctr_rdg_rec.reset_reason);
2116: -- Insert into CSI_COUNTER_READINGS
2117: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
2118: csi_ctr_gen_utility_pvt.put_line( 'l_reading_type ' || l_reading_type);
2119: csi_ctr_gen_utility_pvt.put_line( 'p_ctr_rdg_rec.counter_reading ' || p_ctr_rdg_rec.counter_reading);
2120: csi_ctr_gen_utility_pvt.put_line( 'p_ctr_rdg_rec.automatic_rollover_flag ' || p_ctr_rdg_rec.automatic_rollover_flag);
2121: csi_ctr_gen_utility_pvt.put_line( 'p_ctr_rdg_rec.reset_mode ' || p_ctr_rdg_rec.reset_mode);
2122:
2123: csi_ctr_gen_utility_pvt.put_line( 'p_ctr_rdg_rec.reset_reason ' || p_ctr_rdg_rec.reset_reason);
2124:
2117: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
2118: csi_ctr_gen_utility_pvt.put_line( 'l_reading_type ' || l_reading_type);
2119: csi_ctr_gen_utility_pvt.put_line( 'p_ctr_rdg_rec.counter_reading ' || p_ctr_rdg_rec.counter_reading);
2120: csi_ctr_gen_utility_pvt.put_line( 'p_ctr_rdg_rec.automatic_rollover_flag ' || p_ctr_rdg_rec.automatic_rollover_flag);
2121: csi_ctr_gen_utility_pvt.put_line( 'p_ctr_rdg_rec.reset_mode ' || p_ctr_rdg_rec.reset_mode);
2122:
2123: csi_ctr_gen_utility_pvt.put_line( 'p_ctr_rdg_rec.reset_reason ' || p_ctr_rdg_rec.reset_reason);
2124:
2125: csi_ctr_gen_utility_pvt.put_line( 'p_ctr_rdg_rec.reset_counter_reading ' || p_ctr_rdg_rec.reset_counter_reading);
2119: csi_ctr_gen_utility_pvt.put_line( 'p_ctr_rdg_rec.counter_reading ' || p_ctr_rdg_rec.counter_reading);
2120: csi_ctr_gen_utility_pvt.put_line( 'p_ctr_rdg_rec.automatic_rollover_flag ' || p_ctr_rdg_rec.automatic_rollover_flag);
2121: csi_ctr_gen_utility_pvt.put_line( 'p_ctr_rdg_rec.reset_mode ' || p_ctr_rdg_rec.reset_mode);
2122:
2123: csi_ctr_gen_utility_pvt.put_line( 'p_ctr_rdg_rec.reset_reason ' || p_ctr_rdg_rec.reset_reason);
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:
2121: csi_ctr_gen_utility_pvt.put_line( 'p_ctr_rdg_rec.reset_mode ' || p_ctr_rdg_rec.reset_mode);
2122:
2123: csi_ctr_gen_utility_pvt.put_line( 'p_ctr_rdg_rec.reset_reason ' || p_ctr_rdg_rec.reset_reason);
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
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
2135: IF NVL(p_ctr_rdg_rec.automatic_rollover_flag,'N') <> 'Y' THEN
2136:
2137: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
2134: -- IF (p_ctr_rdg_rec.counter_reading <> p_ctr_rdg_rec.reset_counter_reading) THEN -- for cMRO resetTHEN
2135: IF NVL(p_ctr_rdg_rec.automatic_rollover_flag,'N') <> 'Y' THEN
2136:
2137: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
2138: csi_ctr_gen_utility_pvt.put_line('Calculate Net Reading 1');
2139: END IF; -- 8214848 - dsingire
2140:
2141: Calculate_Net_Reading
2142: ( p_prev_net_rdg => l_prev_net_reading
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
2161: csi_ctr_gen_utility_pvt.ExitWithErrMsg
2162: ( p_msg_name => 'CSI_API_CTR_INV_RDG',
2163: p_token1_name => 'DIRECTION',
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
2161: csi_ctr_gen_utility_pvt.ExitWithErrMsg
2162: ( p_msg_name => 'CSI_API_CTR_INV_RDG',
2163: p_token1_name => 'DIRECTION',
2164: -- p_token1_val => l_direction,
2165: p_token1_val => 'an Ascending',
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
2179: csi_ctr_gen_utility_pvt.ExitWithErrMsg
2180: ( p_msg_name => 'CSI_API_CTR_INV_RDG',
2181: p_token1_name => 'DIRECTION',
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
2179: csi_ctr_gen_utility_pvt.ExitWithErrMsg
2180: ( p_msg_name => 'CSI_API_CTR_INV_RDG',
2181: p_token1_name => 'DIRECTION',
2182: -- p_token1_val => l_direction,
2183: p_token1_val => 'a Descending',
2218: END IF;
2219: END LOOP;
2220: ELSE
2221: IF Counter_Value_Exists(p_ctr_rdg_rec.counter_value_id) THEN
2222: csi_ctr_gen_utility_pvt.ExitWithErrMsg
2223: ( p_msg_name => 'CSI_API_CTR_VALUE_EXISTS',
2224: p_token1_name => 'CTR_NAME',
2225: p_token1_val => l_ctr_name,
2226: p_token2_name => 'CTR_VALUE_ID',
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
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
2323: l_msg_index := l_msg_index + 1;
2324: l_msg_count := l_msg_count - 1;
2325: END LOOP;
2384: l_target_ctr_rec.counter_reading := p_ctr_rdg_rec.counter_reading;
2385: END IF;
2386: END IF; -- Rollover flag check
2387: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
2388: csi_ctr_gen_utility_pvt.put_line('Target counter reading = '||to_char(l_target_ctr_rec.counter_reading));
2389: csi_ctr_gen_utility_pvt.put_line('Calling Compute_Target_Counters 1...');
2390: END IF; -- 8214848 - dsingire
2391:
2392: --
2385: END IF;
2386: END IF; -- Rollover flag check
2387: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
2388: csi_ctr_gen_utility_pvt.put_line('Target counter reading = '||to_char(l_target_ctr_rec.counter_reading));
2389: csi_ctr_gen_utility_pvt.put_line('Calling Compute_Target_Counters 1...');
2390: END IF; -- 8214848 - dsingire
2391:
2392: --
2393: -- Call Compute_Target_Counters
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
2414: x_msg_data := FND_MSG_PUB.GET
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;
2421: END LOOP;
2422: RAISE FND_API.G_EXC_ERROR;
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
2454: csi_ctr_gen_utility_pvt.put_line('Re-calculating target counters');
2455: END IF; -- 8214848 - dsingire
2456: l_update_loop := TRUE;
2457: FOR later_rdg IN LATER_READINGS_CUR(p_ctr_rdg_rec.counter_id,p_ctr_rdg_rec.value_timestamp)
2458: LOOP
2457: FOR later_rdg IN LATER_READINGS_CUR(p_ctr_rdg_rec.counter_id,p_ctr_rdg_rec.value_timestamp)
2458: LOOP
2459:
2460: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
2461: csi_ctr_gen_utility_pvt.put_line('Updating Later Readings for Ctr Value ID : '||to_char(later_rdg.counter_value_id));
2462: END IF; -- 8214848 - dsingire
2463:
2464: IF NVL(later_rdg.reset_mode,'X') = 'SOFT' THEN
2465: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
2462: END IF; -- 8214848 - dsingire
2463:
2464: IF NVL(later_rdg.reset_mode,'X') = 'SOFT' THEN
2465: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
2466: csi_ctr_gen_utility_pvt.put_line('SOFT and re-calculating net readings');
2467: END IF; -- 8214848 - dsingire
2468:
2469: -- added IF for Bug 9148094
2470:
2467: END IF; -- 8214848 - dsingire
2468:
2469: -- added IF for Bug 9148094
2470:
2471: csi_ctr_gen_utility_pvt.put_line(' Update Net Reading Flag : '||l_update_net_flag);
2472: IF l_update_net_flag = 'Y' THEN
2473: UPDATE CSI_COUNTER_READINGS
2474: set net_reading = later_rdg.counter_reading, -- l_previous_net
2475: life_to_date_reading = l_previous_ltd,
2564: l_target_ctr_rec.counter_reading := later_rdg.counter_reading;
2565: END IF;
2566: END IF;
2567: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
2568: csi_ctr_gen_utility_pvt.put_line('Calling Compute_Target_Counters for Update ...');
2569: END IF; -- 8214848 - dsingire
2570: Compute_Target_Counters
2571: (
2572: p_api_version => 1.0
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
2588: x_msg_data := FND_MSG_PUB.GET
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;
2595: END LOOP;
2596: RAISE FND_API.G_EXC_ERROR;
2609: IF NOT l_update_loop THEN
2610: FOR later_rdg IN LATER_READINGS_CUR(p_ctr_rdg_rec.counter_id,p_ctr_rdg_rec.value_timestamp)
2611: LOOP
2612: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
2613: csi_ctr_gen_utility_pvt.put_line('6398254: If not update_loop');
2614: END IF; -- 8214848 - dsingire
2615: -- Re-calculate Compute Target Counters
2616: -- For Resets which did not include Targets before, no need to Re-compute
2617: --
2639: END IF;
2640: END IF;
2641: IF l_reading_type <> 1 THEN -- Added for bug 14155070
2642: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
2643: csi_ctr_gen_utility_pvt.put_line('Calling Compute_Target_Counters for Update 2...');
2644: END IF; -- 8214848 - dsingire
2645: Compute_Target_Counters
2646: (
2647: p_api_version => 1.0
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
2663: x_msg_data := FND_MSG_PUB.GET
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;
2670: END LOOP;
2671: RAISE FND_API.G_EXC_ERROR;
2695: l_reset_timestamp := p_ctr_rdg_rec.value_timestamp;
2696: END IF;
2697: --
2698: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
2699: csi_ctr_gen_utility_pvt.put_line('Reset Timestamp is : '||to_char(l_reset_timestamp,'DD-MON-YYYY HH24:MI:SS'));
2700: END IF; -- 8214848 - dsingire
2701:
2702: --
2703: l_reset_rdg_rec.counter_id := p_ctr_rdg_rec.counter_id;
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;
2719: ELSE
2720: l_reset_rdg_rec.net_reading := l_prev_net_reading;
2749: END IF;
2750: -- Call the Table Handler to insert the Reset Reading into CSI_COUNTER_READINGS
2751: --
2752: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
2753: csi_ctr_gen_utility_pvt.put_line('Inserting Reset Record with Ctr Value ID '||to_char(l_reset_rdg_rec.counter_value_id));
2754: END IF; -- 8214848 - dsingire
2755:
2756: --
2757: CSI_COUNTER_READINGS_PKG.Insert_Row(
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
2835: x_msg_data := FND_MSG_PUB.GET
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;
2842: END LOOP;
2843: RAISE FND_API.G_EXC_ERROR;
2861: l_target_ctr_rec.comments := l_reset_rdg_rec.comments;
2862: --
2863: -- added 6398254
2864: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
2865: csi_ctr_gen_utility_pvt.put_line('6398254: l_reset_rdg_rec.reset_reason' || l_reset_rdg_rec.reset_reason);
2866: csi_ctr_gen_utility_pvt.put_line('Calling Reset_Target_Counters 1...');
2867: END IF; -- 8214848 - dsingire
2868: -- Call Re-Compute Target Counters
2869: Reset_Target_Counters
2862: --
2863: -- added 6398254
2864: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
2865: csi_ctr_gen_utility_pvt.put_line('6398254: l_reset_rdg_rec.reset_reason' || l_reset_rdg_rec.reset_reason);
2866: csi_ctr_gen_utility_pvt.put_line('Calling Reset_Target_Counters 1...');
2867: END IF; -- 8214848 - dsingire
2868: -- Call Re-Compute Target Counters
2869: Reset_Target_Counters
2870: (
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
2882: x_msg_data := FND_MSG_PUB.GET
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;
2889: END LOOP;
2890: RAISE FND_API.G_EXC_ERROR;
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;
3044: END IF; -- 8214848 - dsingire
3045:
3046: l_debug_level := CSI_CTR_GEN_UTILITY_PVT.g_debug_level; -- 8214848 - dsingire
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;
3044: END IF; -- 8214848 - dsingire
3045:
3046: l_debug_level := CSI_CTR_GEN_UTILITY_PVT.g_debug_level; -- 8214848 - dsingire
3047: --
3042: IF (CSI_CTR_GEN_UTILITY_PVT.g_debug_level is null) THEN -- 8214848 - dsingire
3043: CSI_CTR_GEN_UTILITY_PVT.read_debug_profiles;
3044: END IF; -- 8214848 - dsingire
3045:
3046: l_debug_level := CSI_CTR_GEN_UTILITY_PVT.g_debug_level; -- 8214848 - dsingire
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 ||'-'||
3045:
3046: l_debug_level := CSI_CTR_GEN_UTILITY_PVT.g_debug_level; -- 8214848 - dsingire
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) );
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:
3058: --
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: );
3098: Begin
3099: DBMS_SQL.PARSE(l_cursor_handle, l_formula_text, dbms_sql.native);
3100: Exception
3101: when others then
3102: csi_ctr_gen_utility_pvt.ExitWithErrMsg
3103: ( p_msg_name => 'CSI_API_CTR_FORMULA_DEF_INV',
3104: p_token1_name => 'FMLA_TEXT',
3105: p_token1_val => l_formula_text
3106: );
3157: INTO l_net_max_reading,
3158: l_value_max_timestamp
3159: FROM CSI_COUNTER_READINGS WHERE COUNTER_VALUE_ID = NVL(l_ctr_val_max,-1);
3160: IF (l_debug_level > 0) THEN
3161: csi_ctr_gen_utility_pvt.put_line('l_ctr_val_max - ' || l_ctr_val_max );
3162: END IF;
3163: EXCEPTION
3164: WHEN OTHERS THEN
3165: l_ctr_val_max := -1;
3169: -- The requested timestamp is greater than the timestamp of the
3170: -- CTR_VAL_MAX_SEQ_NO
3171: l_bind_var_value := l_net_max_reading;
3172: IF (l_debug_level > 0) THEN
3173: csi_ctr_gen_utility_pvt.put_line('Max Value counter id used');
3174: END IF;
3175: ELSE
3176: OPEN GET_NET_RDG_CUR(sub_cur.source_counter_id,p_ctr_rdg_rec.value_timestamp);
3177: FETCH GET_NET_RDG_CUR INTO l_bind_var_value;
3195: -- counter.
3196: --
3197: IF NVL(p_ctr_rdg_rec.disabled_flag,'N') <> 'Y' THEN
3198: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
3199: csi_ctr_gen_utility_pvt.put_line('Trying to Update Object Ctr : '||to_char(obj_cur.object_counter_id));
3200: END IF; -- 8214848 - dsingire
3201: Update CSI_COUNTER_READINGS
3202: set counter_reading = l_counter_reading,
3203: net_reading = l_counter_reading,
3219: END IF;
3220: END LOOP;
3221: --
3222: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
3223: csi_ctr_gen_utility_pvt.put_line('Unable to Update. Inserting Object Ctr : '||to_char(obj_cur.object_counter_id));
3224: END IF; -- 8214848 - dsingire
3225: -- Call the Table Handler to insert the new reading
3226: CSI_COUNTER_READINGS_PKG.Insert_Row(
3227: px_COUNTER_VALUE_ID => l_ctr_value_id
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
3304: x_msg_data := FND_MSG_PUB.GET
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;
3311: END LOOP;
3312: RAISE FND_API.G_EXC_ERROR;
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
3334: x_msg_data := FND_MSG_PUB.GET
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;
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
3347: csi_ctr_gen_utility_pvt.put_line('Disabling Obj Ctr '||to_char(obj_cur.object_counter_id));
3348: END IF; -- 8214848 - dsingire
3349: Update CSI_COUNTER_READINGS
3350: set counter_reading = l_counter_reading,
3351: net_reading = l_counter_reading,
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
3379: x_msg_data := FND_MSG_PUB.GET
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;
3386: END LOOP;
3387: RAISE FND_API.G_EXC_ERROR;
3400: Begin
3401: DBMS_SQL.PARSE(l_cursor_handle, l_formula_text, dbms_sql.native);
3402: Exception
3403: when others then
3404: csi_ctr_gen_utility_pvt.ExitWithErrMsg
3405: ( p_msg_name => 'CSI_API_CTR_FORMULA_DEF_INV',
3406: p_token1_name => 'FMLA_TEXT',
3407: p_token1_val => l_formula_text
3408: );
3426: INTO l_net_max_reading,
3427: l_value_max_timestamp
3428: FROM CSI_COUNTER_READINGS WHERE COUNTER_VALUE_ID = NVL(l_ctr_val_max,-1);
3429: IF (l_debug_level > 0) THEN
3430: csi_ctr_gen_utility_pvt.put_line('l_ctr_val_max - ' || l_ctr_val_max );
3431: END IF;
3432: EXCEPTION
3433: WHEN OTHERS THEN
3434: l_ctr_val_max := -1;
3438: -- The requested timestamp is greater than the timestamp of the
3439: -- CTR_VAL_MAX_SEQ_NO
3440: l_bind_var_value := l_net_max_reading;
3441: IF (l_debug_level > 0) THEN
3442: csi_ctr_gen_utility_pvt.put_line('Max Value counter id used');
3443: END IF;
3444: ELSE
3445: OPEN GET_NET_RDG_CUR(l_src_ctr_tbl(src_rec).source_counter_id,later_rec.value_timestamp);
3446: FETCH GET_NET_RDG_CUR INTO l_bind_var_value;
3456: IF dbms_sql.fetch_rows(l_cursor_handle) > 0 THEN
3457: dbms_sql.column_value(l_cursor_handle,1,l_counter_reading);
3458: -- Updating Formula Counter
3459: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
3460: csi_ctr_gen_utility_pvt.put_line('Re-computing later formula Ctr Value ID '||to_char(later_rec.counter_value_id));
3461: END IF; -- 8214848 - dsingire
3462: Update CSI_COUNTER_READINGS
3463: set counter_reading = l_counter_reading,
3464: net_reading = l_counter_reading,
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
3626: CSI_CTR_GEN_UTILITY_PVT.read_debug_profiles;
3627: END IF; -- 8214848 - dsingire
3628:
3629: l_debug_level := CSI_CTR_GEN_UTILITY_PVT.g_debug_level; -- 8214848 - dsingire
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
3626: CSI_CTR_GEN_UTILITY_PVT.read_debug_profiles;
3627: END IF; -- 8214848 - dsingire
3628:
3629: l_debug_level := CSI_CTR_GEN_UTILITY_PVT.g_debug_level; -- 8214848 - dsingire
3630:
3625: IF (CSI_CTR_GEN_UTILITY_PVT.g_debug_level is null) THEN -- 8214848 - dsingire
3626: CSI_CTR_GEN_UTILITY_PVT.read_debug_profiles;
3627: END IF; -- 8214848 - dsingire
3628:
3629: l_debug_level := CSI_CTR_GEN_UTILITY_PVT.g_debug_level; -- 8214848 - dsingire
3630:
3631: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
3632: csi_ctr_gen_utility_pvt.put_line('Inside Compute_Derive_Counters...');
3633: csi_ctr_gen_utility_pvt.dump_counter_readings_rec(p_ctr_rdg_rec);
3628:
3629: l_debug_level := CSI_CTR_GEN_UTILITY_PVT.g_debug_level; -- 8214848 - dsingire
3630:
3631: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
3632: csi_ctr_gen_utility_pvt.put_line('Inside Compute_Derive_Counters...');
3633: csi_ctr_gen_utility_pvt.dump_counter_readings_rec(p_ctr_rdg_rec);
3634: END IF; -- 8214848 - dsingire
3635: --
3636: -- Start fix for bug 6852415, part 2 of 3
3629: l_debug_level := CSI_CTR_GEN_UTILITY_PVT.g_debug_level; -- 8214848 - dsingire
3630:
3631: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
3632: csi_ctr_gen_utility_pvt.put_line('Inside Compute_Derive_Counters...');
3633: csi_ctr_gen_utility_pvt.dump_counter_readings_rec(p_ctr_rdg_rec);
3634: END IF; -- 8214848 - dsingire
3635: --
3636: -- Start fix for bug 6852415, part 2 of 3
3637: FOR base_ctr IN base_ctrs LOOP
3660: -- we don't have the previous net_reading in the same record.
3661: --
3662: IF nvl(ctrs.filter_reading_count,0) <= 0 THEN
3663: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
3664: csi_ctr_gen_utility_pvt.put_line('Invalid Filter Reading count for the Counter '||
3665: to_char(ctrs.counter_id));
3666: END IF; -- 8214848 - dsingire
3667: csi_ctr_gen_utility_pvt.ExitWithErrMsg
3668: ( p_msg_name => 'CSI_INVD_FILTER_READING_COUNT',
3663: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
3664: csi_ctr_gen_utility_pvt.put_line('Invalid Filter Reading count for the Counter '||
3665: to_char(ctrs.counter_id));
3666: END IF; -- 8214848 - dsingire
3667: csi_ctr_gen_utility_pvt.ExitWithErrMsg
3668: ( p_msg_name => 'CSI_INVD_FILTER_READING_COUNT',
3669: p_token1_name => 'COUNTER_ID',
3670: p_token1_val => to_char(ctrs.counter_id)
3671: );
3736: FETCH CTR_CUR_RDG INTO l_captured_rdg;
3737: CLOSE CTR_CUR_RDG;
3738: --
3739: IF l_time_uom IS NULL THEN
3740: csi_ctr_gen_utility_pvt.ExitWithErrMsg
3741: ( p_msg_name => 'CSI_API_CTR_INVALID_FILT_UOM',
3742: p_token1_name => 'UOM_CODE',
3743: p_token1_val => ctrs.filter_time_uom
3744: );
3844: end loop;
3845: end if;
3846: --
3847: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
3848: csi_ctr_gen_utility_pvt.put_line('SQL String is '||l_sqlstr);
3849: END IF; -- 8214848 - dsingire
3850: l_n_temp := dbms_sql.execute(l_cursor_handle);
3851: IF dbms_sql.fetch_rows(l_cursor_handle) > 0 THEN
3852: dbms_sql.column_value(l_cursor_handle,1,l_ctr_value);
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
3977: x_msg_data := FND_MSG_PUB.GET
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;
3984: END LOOP;
3985: RAISE FND_API.G_EXC_ERROR;
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));
3990: END IF; -- l_ctr_value check
3991: END LOOP;
3992: -- Start fix bug 6852415, part 3 of 3
3993: END LOOP;
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
4138: CSI_CTR_GEN_UTILITY_PVT.read_debug_profiles;
4139: END IF; -- 8214848 - dsingire
4140:
4141: l_debug_level := CSI_CTR_GEN_UTILITY_PVT.g_debug_level; -- 8214848 - dsingire
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
4138: CSI_CTR_GEN_UTILITY_PVT.read_debug_profiles;
4139: END IF; -- 8214848 - dsingire
4140:
4141: l_debug_level := CSI_CTR_GEN_UTILITY_PVT.g_debug_level; -- 8214848 - dsingire
4142:
4137: IF (CSI_CTR_GEN_UTILITY_PVT.g_debug_level is null) THEN -- 8214848 - dsingire
4138: CSI_CTR_GEN_UTILITY_PVT.read_debug_profiles;
4139: END IF; -- 8214848 - dsingire
4140:
4141: l_debug_level := CSI_CTR_GEN_UTILITY_PVT.g_debug_level; -- 8214848 - dsingire
4142:
4143: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
4144: csi_ctr_gen_utility_pvt.put_line( 'compute_target_counters' ||'-'||
4145: p_api_version ||'-'||
4140:
4141: l_debug_level := CSI_CTR_GEN_UTILITY_PVT.g_debug_level; -- 8214848 - dsingire
4142:
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) ||'-'||
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:
4154: --
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
4176: --
4175: -- Fundamental Assumption is, the direction of All Target counters should be same as the Source Counter
4176: --
4177: IF p_mode = 'UPDATE' THEN
4178: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
4179: csi_ctr_gen_utility_pvt.put_line(' Compute Target Counters - UPDATE');
4180: END IF; -- 8214848 - dsingire
4181: FOR obj_cur in UPD_OBJ_CUR LOOP
4182: IF NVL(obj_cur.direction,'X') NOT IN ('A','D','B') THEN
4183: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
4180: END IF; -- 8214848 - dsingire
4181: FOR obj_cur in UPD_OBJ_CUR LOOP
4182: IF NVL(obj_cur.direction,'X') NOT IN ('A','D','B') THEN
4183: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
4184: csi_ctr_gen_utility_pvt.put_line('Target Counter has Invalid Direction...');
4185: END IF; -- 8214848 - dsingire
4186: csi_ctr_gen_utility_pvt.ExitWithErrMsg
4187: ( p_msg_name => 'CSI_API_CTR_INVALID_DIR',
4188: p_token1_name => 'MODE',
4182: IF NVL(obj_cur.direction,'X') NOT IN ('A','D','B') THEN
4183: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
4184: csi_ctr_gen_utility_pvt.put_line('Target Counter has Invalid Direction...');
4185: END IF; -- 8214848 - dsingire
4186: csi_ctr_gen_utility_pvt.ExitWithErrMsg
4187: ( p_msg_name => 'CSI_API_CTR_INVALID_DIR',
4188: p_token1_name => 'MODE',
4189: p_token1_val => l_mode
4190: );
4201: END;
4202:
4203: /* Validate direction */
4204: IF obj_cur.direction = 'B' and l_source_direction <> 'B' THEN
4205: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_INV_REL_DIR');
4206: END IF;
4207:
4208: IF l_source_direction = 'B' and obj_cur.direction <> 'B' THEN
4209: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_INV_REL_DIR');
4205: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_INV_REL_DIR');
4206: END IF;
4207:
4208: IF l_source_direction = 'B' and obj_cur.direction <> 'B' THEN
4209: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_INV_REL_DIR');
4210: END IF;
4211:
4212: IF obj_cur.object_uom_code <> l_source_uom_code THEN
4213: /* Validate if same UOM class */
4214: OPEN get_uom_class(obj_cur.object_uom_code);
4215: FETCH get_uom_class into l_object_uom_class;
4216:
4217: IF get_uom_class%notfound THEN
4218: csi_ctr_gen_utility_pvt.ExitWithErrMsg('CSI_ALL_INVALID_UOM_CODE');
4219: END IF;
4220:
4221: IF get_uom_class%ISOPEN THEN
4222: CLOSE get_uom_class;
4225: OPEN get_uom_class(l_source_uom_code);
4226: FETCH get_uom_class into l_source_uom_class;
4227:
4228: IF get_uom_class%notfound THEN
4229: csi_ctr_gen_utility_pvt.ExitWithErrMsg('CSI_ALL_INVALID_UOM_CODE');
4230: END IF;
4231:
4232: IF get_uom_class%ISOPEN THEN
4233: CLOSE get_uom_class;
4239: ,obj_cur.object_uom_code
4240: ,null
4241: ,l_uom_rate);
4242: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
4243: csi_ctr_gen_utility_pvt.put_line('Object UOM Code = '||obj_cur.object_uom_code);
4244: csi_ctr_gen_utility_pvt.put_line('Source UOM Code = '||l_source_uom_code);
4245: csi_ctr_gen_utility_pvt.put_line('UOM Rate = '||to_char(l_uom_rate));
4246: END IF; -- 8214848 - dsingire
4247: IF l_uom_rate = -99999 THEN
4240: ,null
4241: ,l_uom_rate);
4242: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
4243: csi_ctr_gen_utility_pvt.put_line('Object UOM Code = '||obj_cur.object_uom_code);
4244: csi_ctr_gen_utility_pvt.put_line('Source UOM Code = '||l_source_uom_code);
4245: csi_ctr_gen_utility_pvt.put_line('UOM Rate = '||to_char(l_uom_rate));
4246: END IF; -- 8214848 - dsingire
4247: IF l_uom_rate = -99999 THEN
4248: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
4241: ,l_uom_rate);
4242: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
4243: csi_ctr_gen_utility_pvt.put_line('Object UOM Code = '||obj_cur.object_uom_code);
4244: csi_ctr_gen_utility_pvt.put_line('Source UOM Code = '||l_source_uom_code);
4245: csi_ctr_gen_utility_pvt.put_line('UOM Rate = '||to_char(l_uom_rate));
4246: END IF; -- 8214848 - dsingire
4247: IF l_uom_rate = -99999 THEN
4248: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
4249: csi_ctr_gen_utility_pvt.put_line(' Error during the conversion of UOM');
4245: csi_ctr_gen_utility_pvt.put_line('UOM Rate = '||to_char(l_uom_rate));
4246: END IF; -- 8214848 - dsingire
4247: IF l_uom_rate = -99999 THEN
4248: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
4249: csi_ctr_gen_utility_pvt.put_line(' Error during the conversion of UOM');
4250: END IF; -- 8214848 - dsingire
4251: END IF;
4252: ELSE
4253: l_uom_rate := 1;
4277: --l_prev_max_comments
4278: FROM CSI_COUNTER_READINGS WHERE COUNTER_VALUE_ID = NVL(l_ctr_val_max,-1);
4279:
4280: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
4281: csi_ctr_gen_utility_pvt.put_line('l_ctr_val_max - ' || l_ctr_val_max );
4282: END IF; -- 8214848 - dsingire
4283:
4284: EXCEPTION
4285: WHEN OTHERS THEN
4298: l_prev_value_timestamp := l_prev_value_max_timestamp;
4299: --l_prev_comments := l_prev_max_comments;
4300:
4301: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
4302: csi_ctr_gen_utility_pvt.put_line('Max Value counter id used');
4303: END IF; -- 8214848 - dsingire
4304:
4305: ELSE
4306:
4329: l_counter_reading := ((l_prev_ctr_reading * -1) - ((p_ctr_rdg_rec.counter_reading * l_uom_rate) * obj_cur.factor));
4330: l_counter_reading := l_counter_reading * -1;
4331: ELSE
4332: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
4333: csi_ctr_gen_utility_pvt.put_line('Source is A, Target is D');
4334: csi_ctr_gen_utility_pvt.put_line('l_prev_ctr_reading = '||to_char(l_prev_ctr_reading));
4335: csi_ctr_gen_utility_pvt.put_line('p_ctr_reading = '||to_char(p_ctr_rdg_rec.counter_reading));
4336: csi_ctr_gen_utility_pvt.put_line('l_uom_rate = '||to_char(l_uom_rate));
4337: csi_ctr_gen_utility_pvt.put_line('factor = '||to_char(obj_cur.factor));
4330: l_counter_reading := l_counter_reading * -1;
4331: ELSE
4332: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
4333: csi_ctr_gen_utility_pvt.put_line('Source is A, Target is D');
4334: csi_ctr_gen_utility_pvt.put_line('l_prev_ctr_reading = '||to_char(l_prev_ctr_reading));
4335: csi_ctr_gen_utility_pvt.put_line('p_ctr_reading = '||to_char(p_ctr_rdg_rec.counter_reading));
4336: csi_ctr_gen_utility_pvt.put_line('l_uom_rate = '||to_char(l_uom_rate));
4337: csi_ctr_gen_utility_pvt.put_line('factor = '||to_char(obj_cur.factor));
4338: END IF; -- 8214848 - dsingire
4331: ELSE
4332: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
4333: csi_ctr_gen_utility_pvt.put_line('Source is A, Target is D');
4334: csi_ctr_gen_utility_pvt.put_line('l_prev_ctr_reading = '||to_char(l_prev_ctr_reading));
4335: csi_ctr_gen_utility_pvt.put_line('p_ctr_reading = '||to_char(p_ctr_rdg_rec.counter_reading));
4336: csi_ctr_gen_utility_pvt.put_line('l_uom_rate = '||to_char(l_uom_rate));
4337: csi_ctr_gen_utility_pvt.put_line('factor = '||to_char(obj_cur.factor));
4338: END IF; -- 8214848 - dsingire
4339:
4332: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
4333: csi_ctr_gen_utility_pvt.put_line('Source is A, Target is D');
4334: csi_ctr_gen_utility_pvt.put_line('l_prev_ctr_reading = '||to_char(l_prev_ctr_reading));
4335: csi_ctr_gen_utility_pvt.put_line('p_ctr_reading = '||to_char(p_ctr_rdg_rec.counter_reading));
4336: csi_ctr_gen_utility_pvt.put_line('l_uom_rate = '||to_char(l_uom_rate));
4337: csi_ctr_gen_utility_pvt.put_line('factor = '||to_char(obj_cur.factor));
4338: END IF; -- 8214848 - dsingire
4339:
4340: l_counter_reading := nvl(l_prev_ctr_reading,0) - ((p_ctr_rdg_rec.counter_reading * l_uom_rate) * obj_cur.factor);
4333: csi_ctr_gen_utility_pvt.put_line('Source is A, Target is D');
4334: csi_ctr_gen_utility_pvt.put_line('l_prev_ctr_reading = '||to_char(l_prev_ctr_reading));
4335: csi_ctr_gen_utility_pvt.put_line('p_ctr_reading = '||to_char(p_ctr_rdg_rec.counter_reading));
4336: csi_ctr_gen_utility_pvt.put_line('l_uom_rate = '||to_char(l_uom_rate));
4337: csi_ctr_gen_utility_pvt.put_line('factor = '||to_char(obj_cur.factor));
4338: END IF; -- 8214848 - dsingire
4339:
4340: l_counter_reading := nvl(l_prev_ctr_reading,0) - ((p_ctr_rdg_rec.counter_reading * l_uom_rate) * obj_cur.factor);
4341: END IF;
4389: ,px_ltd_rdg => l_ltd_reading
4390: ,l_ctr_rdg_rec => p_ctr_rdg_rec -- added 6398254
4391: );
4392: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
4393: csi_ctr_gen_utility_pvt.put_line('Prev net reading = '||to_char(l_prev_net_reading));
4394: csi_ctr_gen_utility_pvt.put_line('Prev ltd reading = '||to_char(l_prev_ltd_reading));
4395: csi_ctr_gen_utility_pvt.put_line('Prev reading = '||to_char(l_prev_ctr_reading));
4396: csi_ctr_gen_utility_pvt.put_line('5. Current reading = '||to_char(l_counter_reading));
4397: END IF; -- 8214848 - dsingire
4390: ,l_ctr_rdg_rec => p_ctr_rdg_rec -- added 6398254
4391: );
4392: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
4393: csi_ctr_gen_utility_pvt.put_line('Prev net reading = '||to_char(l_prev_net_reading));
4394: csi_ctr_gen_utility_pvt.put_line('Prev ltd reading = '||to_char(l_prev_ltd_reading));
4395: csi_ctr_gen_utility_pvt.put_line('Prev reading = '||to_char(l_prev_ctr_reading));
4396: csi_ctr_gen_utility_pvt.put_line('5. Current reading = '||to_char(l_counter_reading));
4397: END IF; -- 8214848 - dsingire
4398: IF obj_cur.reading_type = 1 THEN -- Added condition for bug 10418370, Check on direct should be done for absolute counters alone
4391: );
4392: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
4393: csi_ctr_gen_utility_pvt.put_line('Prev net reading = '||to_char(l_prev_net_reading));
4394: csi_ctr_gen_utility_pvt.put_line('Prev ltd reading = '||to_char(l_prev_ltd_reading));
4395: csi_ctr_gen_utility_pvt.put_line('Prev reading = '||to_char(l_prev_ctr_reading));
4396: csi_ctr_gen_utility_pvt.put_line('5. Current reading = '||to_char(l_counter_reading));
4397: END IF; -- 8214848 - dsingire
4398: IF obj_cur.reading_type = 1 THEN -- Added condition for bug 10418370, Check on direct should be done for absolute counters alone
4399: IF obj_cur.direction = 'D' THEN
4392: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
4393: csi_ctr_gen_utility_pvt.put_line('Prev net reading = '||to_char(l_prev_net_reading));
4394: csi_ctr_gen_utility_pvt.put_line('Prev ltd reading = '||to_char(l_prev_ltd_reading));
4395: csi_ctr_gen_utility_pvt.put_line('Prev reading = '||to_char(l_prev_ctr_reading));
4396: csi_ctr_gen_utility_pvt.put_line('5. Current reading = '||to_char(l_counter_reading));
4397: END IF; -- 8214848 - dsingire
4398: IF obj_cur.reading_type = 1 THEN -- Added condition for bug 10418370, Check on direct should be done for absolute counters alone
4399: IF obj_cur.direction = 'D' THEN
4400: IF l_counter_reading > nvl(l_prev_ctr_reading, l_counter_reading) THEN
4397: END IF; -- 8214848 - dsingire
4398: IF obj_cur.reading_type = 1 THEN -- Added condition for bug 10418370, Check on direct should be done for absolute counters alone
4399: IF obj_cur.direction = 'D' THEN
4400: IF l_counter_reading > nvl(l_prev_ctr_reading, l_counter_reading) THEN
4401: csi_ctr_gen_utility_pvt.ExitWithErrMsg
4402: ( p_msg_name => 'CSI_API_CTR_INV_RDG',
4403: p_token1_name => 'DIRECTION',
4404: -- p_token1_val => obj_cur.direction,
4405: p_token1_val => 'a Descending',
4411: END IF;
4412: ELSIF obj_cur.direction = 'A' THEN
4413: IF l_counter_reading < nvl(l_prev_ctr_reading, l_counter_reading) THEN
4414: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
4415: csi_ctr_gen_utility_pvt.put_line('6. Current reading ');
4416: END IF; -- 8214848 - dsingire
4417: csi_ctr_gen_utility_pvt.ExitWithErrMsg
4418: ( p_msg_name => 'CSI_API_CTR_INV_RDG',
4419: p_token1_name => 'DIRECTION',
4413: IF l_counter_reading < nvl(l_prev_ctr_reading, l_counter_reading) THEN
4414: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
4415: csi_ctr_gen_utility_pvt.put_line('6. Current reading ');
4416: END IF; -- 8214848 - dsingire
4417: csi_ctr_gen_utility_pvt.ExitWithErrMsg
4418: ( p_msg_name => 'CSI_API_CTR_INV_RDG',
4419: p_token1_name => 'DIRECTION',
4420: -- p_token1_val => obj_cur.direction,
4421: p_token1_val => 'an Ascending',
4432: l_ltd_reading := l_prev_ltd_reading;
4433: END IF;
4434: --
4435: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
4436: csi_ctr_gen_utility_pvt.put_line('Updating Target Counter Value ID : '||to_char(obj_cur.counter_value_id));
4437: END IF; -- 8214848 - dsingire
4438:
4439: Update CSI_COUNTER_READINGS
4440: set counter_reading = l_counter_reading,
4445: where counter_value_id = obj_cur.counter_value_id;
4446: END LOOP;
4447: ELSIF p_mode = 'CREATE' THEN
4448: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
4449: csi_ctr_gen_utility_pvt.put_line(' Compute Target Counters - CREATE');
4450: END IF; -- 8214848 - dsingire
4451: FOR obj_cur IN OBJECT_CTR_CUR LOOP
4452: Begin
4453: IF NVL(obj_cur.direction,'X') NOT IN ('A','D','B') THEN
4451: FOR obj_cur IN OBJECT_CTR_CUR LOOP
4452: Begin
4453: IF NVL(obj_cur.direction,'X') NOT IN ('A','D','B') THEN
4454: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
4455: csi_ctr_gen_utility_pvt.put_line('Target Counter has Invalid Direction...');
4456: END IF; -- 8214848 - dsingire
4457: csi_ctr_gen_utility_pvt.ExitWithErrMsg
4458: ( p_msg_name => 'CSI_API_CTR_INVALID_DIR',
4459: p_token1_name => 'MODE',
4453: IF NVL(obj_cur.direction,'X') NOT IN ('A','D','B') THEN
4454: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
4455: csi_ctr_gen_utility_pvt.put_line('Target Counter has Invalid Direction...');
4456: END IF; -- 8214848 - dsingire
4457: csi_ctr_gen_utility_pvt.ExitWithErrMsg
4458: ( p_msg_name => 'CSI_API_CTR_INVALID_DIR',
4459: p_token1_name => 'MODE',
4460: p_token1_val => l_mode
4461: );
4472: END;
4473:
4474: /* Validate direction */
4475: IF obj_cur.direction = 'B' and l_source_direction <> 'B' THEN
4476: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_INV_REL_DIR');
4477: END IF;
4478:
4479: IF l_source_direction = 'B' and obj_cur.direction <> 'B' THEN
4480: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_INV_REL_DIR');
4476: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_INV_REL_DIR');
4477: END IF;
4478:
4479: IF l_source_direction = 'B' and obj_cur.direction <> 'B' THEN
4480: CSI_CTR_GEN_UTILITY_PVT.ExitWithErrMsg('CSI_API_CTR_INV_REL_DIR');
4481: END IF;
4482:
4483: IF obj_cur.object_uom_code <> l_source_uom_code THEN
4484: /* Validate if same UOM class */
4485: OPEN get_uom_class(obj_cur.object_uom_code);
4486: FETCH get_uom_class into l_object_uom_class;
4487:
4488: IF get_uom_class%notfound THEN
4489: csi_ctr_gen_utility_pvt.ExitWithErrMsg('CSI_ALL_INVALID_UOM_CODE');
4490: END IF;
4491:
4492: IF get_uom_class%ISOPEN THEN
4493: CLOSE get_uom_class;
4496: OPEN get_uom_class(l_source_uom_code);
4497: FETCH get_uom_class into l_source_uom_class;
4498:
4499: IF get_uom_class%notfound THEN
4500: csi_ctr_gen_utility_pvt.ExitWithErrMsg('CSI_ALL_INVALID_UOM_CODE');
4501: END IF;
4502:
4503: IF get_uom_class%ISOPEN THEN
4504: CLOSE get_uom_class;
4510: ,obj_cur.object_uom_code
4511: ,null
4512: ,l_uom_rate);
4513: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
4514: csi_ctr_gen_utility_pvt.put_line('Object UOM Code = '||obj_cur.object_uom_code);
4515: csi_ctr_gen_utility_pvt.put_line('Source UOM Code = '||l_source_uom_code);
4516: csi_ctr_gen_utility_pvt.put_line('UOM Rate = '||to_char(l_uom_rate));
4517: END IF; -- 8214848 - dsingire
4518: IF l_uom_rate = -99999 THEN
4511: ,null
4512: ,l_uom_rate);
4513: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
4514: csi_ctr_gen_utility_pvt.put_line('Object UOM Code = '||obj_cur.object_uom_code);
4515: csi_ctr_gen_utility_pvt.put_line('Source UOM Code = '||l_source_uom_code);
4516: csi_ctr_gen_utility_pvt.put_line('UOM Rate = '||to_char(l_uom_rate));
4517: END IF; -- 8214848 - dsingire
4518: IF l_uom_rate = -99999 THEN
4519: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
4512: ,l_uom_rate);
4513: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
4514: csi_ctr_gen_utility_pvt.put_line('Object UOM Code = '||obj_cur.object_uom_code);
4515: csi_ctr_gen_utility_pvt.put_line('Source UOM Code = '||l_source_uom_code);
4516: csi_ctr_gen_utility_pvt.put_line('UOM Rate = '||to_char(l_uom_rate));
4517: END IF; -- 8214848 - dsingire
4518: IF l_uom_rate = -99999 THEN
4519: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
4520: csi_ctr_gen_utility_pvt.put_line(' Error during the conversion of UOM');
4516: csi_ctr_gen_utility_pvt.put_line('UOM Rate = '||to_char(l_uom_rate));
4517: END IF; -- 8214848 - dsingire
4518: IF l_uom_rate = -99999 THEN
4519: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
4520: csi_ctr_gen_utility_pvt.put_line(' Error during the conversion of UOM');
4521: END IF; -- 8214848 - dsingire
4522: END IF;
4523: ELSE
4524: l_uom_rate := 1;
4561: --l_prev_max_comments
4562: FROM CSI_COUNTER_READINGS WHERE COUNTER_VALUE_ID = NVL(l_ctr_val_max,-1);
4563:
4564: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
4565: csi_ctr_gen_utility_pvt.put_line('l_ctr_val_max - ' || l_ctr_val_max );
4566: END IF; -- 8214848 - dsingire
4567:
4568: EXCEPTION
4569: WHEN OTHERS THEN
4582: l_prev_value_timestamp := l_prev_value_max_timestamp;
4583: --l_prev_comments := l_prev_max_comments;
4584:
4585: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
4586: csi_ctr_gen_utility_pvt.put_line('Max Value counter id used');
4587: END IF; -- 8214848 - dsingire
4588:
4589: ELSE
4590:
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
4608: Raise Process_next;
4609: END IF;
4610: --
4611: /* Check if the readings needed to be reverse based on the
4612: source and target direction combination */
4613: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
4614: csi_ctr_gen_utility_pvt.put_line('Reading Type = '||to_char(obj_cur.reading_type));
4615: csi_ctr_gen_utility_pvt.put_line('Source Direction = '||l_source_direction);
4616: csi_ctr_gen_utility_pvt.put_line('Object Direction = '||obj_cur.direction);
4617: csi_ctr_gen_utility_pvt.put_line('Factor = '||to_char(obj_cur.factor));
4618: csi_ctr_gen_utility_pvt.put_line('UOM Rate = '||to_char(l_uom_rate));
4611: /* Check if the readings needed to be reverse based on the
4612: source and target direction combination */
4613: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
4614: csi_ctr_gen_utility_pvt.put_line('Reading Type = '||to_char(obj_cur.reading_type));
4615: csi_ctr_gen_utility_pvt.put_line('Source Direction = '||l_source_direction);
4616: csi_ctr_gen_utility_pvt.put_line('Object Direction = '||obj_cur.direction);
4617: csi_ctr_gen_utility_pvt.put_line('Factor = '||to_char(obj_cur.factor));
4618: csi_ctr_gen_utility_pvt.put_line('UOM Rate = '||to_char(l_uom_rate));
4619: csi_ctr_gen_utility_pvt.put_line('target prev rdg = '||to_char(l_prev_ctr_reading));
4612: source and target direction combination */
4613: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
4614: csi_ctr_gen_utility_pvt.put_line('Reading Type = '||to_char(obj_cur.reading_type));
4615: csi_ctr_gen_utility_pvt.put_line('Source Direction = '||l_source_direction);
4616: csi_ctr_gen_utility_pvt.put_line('Object Direction = '||obj_cur.direction);
4617: csi_ctr_gen_utility_pvt.put_line('Factor = '||to_char(obj_cur.factor));
4618: csi_ctr_gen_utility_pvt.put_line('UOM Rate = '||to_char(l_uom_rate));
4619: csi_ctr_gen_utility_pvt.put_line('target prev rdg = '||to_char(l_prev_ctr_reading));
4620: csi_ctr_gen_utility_pvt.put_line('source prev rdg = '||to_char(p_ctr_rdg_rec.counter_reading));
4613: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
4614: csi_ctr_gen_utility_pvt.put_line('Reading Type = '||to_char(obj_cur.reading_type));
4615: csi_ctr_gen_utility_pvt.put_line('Source Direction = '||l_source_direction);
4616: csi_ctr_gen_utility_pvt.put_line('Object Direction = '||obj_cur.direction);
4617: csi_ctr_gen_utility_pvt.put_line('Factor = '||to_char(obj_cur.factor));
4618: csi_ctr_gen_utility_pvt.put_line('UOM Rate = '||to_char(l_uom_rate));
4619: csi_ctr_gen_utility_pvt.put_line('target prev rdg = '||to_char(l_prev_ctr_reading));
4620: csi_ctr_gen_utility_pvt.put_line('source prev rdg = '||to_char(p_ctr_rdg_rec.counter_reading));
4621: END IF; -- 8214848 - dsingire
4614: csi_ctr_gen_utility_pvt.put_line('Reading Type = '||to_char(obj_cur.reading_type));
4615: csi_ctr_gen_utility_pvt.put_line('Source Direction = '||l_source_direction);
4616: csi_ctr_gen_utility_pvt.put_line('Object Direction = '||obj_cur.direction);
4617: csi_ctr_gen_utility_pvt.put_line('Factor = '||to_char(obj_cur.factor));
4618: csi_ctr_gen_utility_pvt.put_line('UOM Rate = '||to_char(l_uom_rate));
4619: csi_ctr_gen_utility_pvt.put_line('target prev rdg = '||to_char(l_prev_ctr_reading));
4620: csi_ctr_gen_utility_pvt.put_line('source prev rdg = '||to_char(p_ctr_rdg_rec.counter_reading));
4621: END IF; -- 8214848 - dsingire
4622: IF obj_cur.reading_type = 1 THEN
4615: csi_ctr_gen_utility_pvt.put_line('Source Direction = '||l_source_direction);
4616: csi_ctr_gen_utility_pvt.put_line('Object Direction = '||obj_cur.direction);
4617: csi_ctr_gen_utility_pvt.put_line('Factor = '||to_char(obj_cur.factor));
4618: csi_ctr_gen_utility_pvt.put_line('UOM Rate = '||to_char(l_uom_rate));
4619: csi_ctr_gen_utility_pvt.put_line('target prev rdg = '||to_char(l_prev_ctr_reading));
4620: csi_ctr_gen_utility_pvt.put_line('source prev rdg = '||to_char(p_ctr_rdg_rec.counter_reading));
4621: END IF; -- 8214848 - dsingire
4622: IF obj_cur.reading_type = 1 THEN
4623: IF l_source_direction = 'A' AND obj_cur.direction = 'D' THEN
4616: csi_ctr_gen_utility_pvt.put_line('Object Direction = '||obj_cur.direction);
4617: csi_ctr_gen_utility_pvt.put_line('Factor = '||to_char(obj_cur.factor));
4618: csi_ctr_gen_utility_pvt.put_line('UOM Rate = '||to_char(l_uom_rate));
4619: csi_ctr_gen_utility_pvt.put_line('target prev rdg = '||to_char(l_prev_ctr_reading));
4620: csi_ctr_gen_utility_pvt.put_line('source prev rdg = '||to_char(p_ctr_rdg_rec.counter_reading));
4621: 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
4641: END IF;
4642: END IF;
4643: END IF;
4644: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
4645: csi_ctr_gen_utility_pvt.put_line('New target reading = '||to_char(l_counter_reading));
4646: END IF; -- 8214848 - dsingire
4647: END IF;
4648:
4649:
4669: END IF;
4670: END IF;
4671: END IF;
4672: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
4673: csi_ctr_gen_utility_pvt.put_line('New target reading = '||to_char(l_counter_reading));
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);
4699: END IF;
4700: END IF;
4701: END IF;
4702: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
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
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
4718: csi_ctr_gen_utility_pvt.put_line('New target reading = '||to_char(l_counter_reading));
4719: END IF; -- 8214848 - dsingire
4720: -- Calculate Net and LTD Readings
4721: Calculate_Net_Reading
4722: ( p_prev_net_rdg => l_prev_net_reading
4731: ,l_ctr_rdg_rec => p_ctr_rdg_rec -- added 6398254
4732: );
4733:
4734: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
4735: csi_ctr_gen_utility_pvt.put_line('Current reading = '||to_char(l_counter_reading));
4736: END IF; -- 8214848 - dsingire
4737: IF obj_cur.reading_type = 1 THEN -- Added condition for bug 10418370, Check on direct should be done for absolute counters alone
4738: IF obj_cur.direction = 'D' THEN
4739: IF l_counter_reading > nvl(l_prev_ctr_reading, l_counter_reading) THEN
4737: IF obj_cur.reading_type = 1 THEN -- Added condition for bug 10418370, Check on direct should be done for absolute counters alone
4738: IF obj_cur.direction = 'D' THEN
4739: IF l_counter_reading > nvl(l_prev_ctr_reading, l_counter_reading) THEN
4740: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
4741: csi_ctr_gen_utility_pvt.put_line('7. Current reading ');
4742: END IF; -- 8214848 - dsingire
4743: csi_ctr_gen_utility_pvt.ExitWithErrMsg
4744: ( p_msg_name => 'CSI_API_CTR_INV_RDG',
4745: p_token1_name => 'DIRECTION',
4739: IF l_counter_reading > nvl(l_prev_ctr_reading, l_counter_reading) THEN
4740: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
4741: csi_ctr_gen_utility_pvt.put_line('7. Current reading ');
4742: END IF; -- 8214848 - dsingire
4743: csi_ctr_gen_utility_pvt.ExitWithErrMsg
4744: ( p_msg_name => 'CSI_API_CTR_INV_RDG',
4745: p_token1_name => 'DIRECTION',
4746: -- p_token1_val => obj_cur.direction,
4747: p_token1_val => 'a Descending',
4753: END IF;
4754: ELSIF obj_cur.direction = 'A' THEN
4755: IF l_counter_reading < nvl(l_prev_ctr_reading, l_counter_reading) THEN
4756: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
4757: csi_ctr_gen_utility_pvt.put_line('8. Current reading ');
4758: END IF; -- 8214848 - dsingire
4759: csi_ctr_gen_utility_pvt.ExitWithErrMsg
4760: ( p_msg_name => 'CSI_API_CTR_INV_RDG',
4761: p_token1_name => 'DIRECTION',
4755: IF l_counter_reading < nvl(l_prev_ctr_reading, l_counter_reading) THEN
4756: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
4757: csi_ctr_gen_utility_pvt.put_line('8. Current reading ');
4758: END IF; -- 8214848 - dsingire
4759: csi_ctr_gen_utility_pvt.ExitWithErrMsg
4760: ( p_msg_name => 'CSI_API_CTR_INV_RDG',
4761: p_token1_name => 'DIRECTION',
4762: -- p_token1_val => obj_cur.direction,
4763: p_token1_val => 'an Ascending',
4776: ELSE
4777: l_instance_id := null;
4778: END IF;
4779: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
4780: csi_ctr_gen_utility_pvt.put_line('Calling Insert Meter Log...');
4781: END IF; -- 8214848 - dsingire
4782: Eam_Asset_Log_Pvt.Insert_Meter_Log
4783: (
4784: P_api_version => 1.0,
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;
4812: END LOOP;
4813: -- DO NOT RAISE ERROR
4815: END IF; -- EAM Logging Check
4816: --
4817: IF p_txn_rec.transaction_type_id = 92 THEN
4818: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
4819: csi_ctr_gen_utility_pvt.put_line('Calling Update_Last_Service_Reading_Wo...');
4820: END IF; -- 8214848 - dsingire
4821: -- Added condition for Bug 12536426
4822: -- For change counters, LifeToDate reading needs to be passed to Update_Last_Service_Reading_Wo
4823: IF obj_cur.reading_type = 2 THEN
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
4852: x_msg_data := FND_MSG_PUB.GET
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;
4859: END LOOP;
4860: RAISE FND_API.G_EXC_ERROR;
4872: END IF;
4873: END LOOP;
4874: --
4875: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
4876: csi_ctr_gen_utility_pvt.put_line('Inserting Target Counter ID : '||to_char(l_ctr_rdg_rec.counter_id));
4877: END IF; -- 8214848 - dsingire
4878: -- Call the Table Handler to insert into CSI_COUNTER_READINGS
4879: CSI_COUNTER_READINGS_PKG.Insert_Row(
4880: px_COUNTER_VALUE_ID => l_ctr_rdg_rec.counter_value_id
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
4957: x_msg_data := FND_MSG_PUB.GET
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;
4964: END LOOP;
4965: RAISE FND_API.G_EXC_ERROR;
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
5145: CSI_CTR_GEN_UTILITY_PVT.read_debug_profiles;
5146: END IF; -- 8214848 - dsingire
5147:
5148: l_debug_level := CSI_CTR_GEN_UTILITY_PVT.g_debug_level; -- 8214848 - dsingire
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
5145: CSI_CTR_GEN_UTILITY_PVT.read_debug_profiles;
5146: END IF; -- 8214848 - dsingire
5147:
5148: l_debug_level := CSI_CTR_GEN_UTILITY_PVT.g_debug_level; -- 8214848 - dsingire
5149:
5144: IF (CSI_CTR_GEN_UTILITY_PVT.g_debug_level is null) THEN -- 8214848 - dsingire
5145: CSI_CTR_GEN_UTILITY_PVT.read_debug_profiles;
5146: END IF; -- 8214848 - dsingire
5147:
5148: l_debug_level := CSI_CTR_GEN_UTILITY_PVT.g_debug_level; -- 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 ||'-'||
5147:
5148: l_debug_level := CSI_CTR_GEN_UTILITY_PVT.g_debug_level; -- 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: --
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');
5163: ELSE
5164: OPEN CURRENT_READING_CUR(p_ctr_rdg_rec.counter_value_id);
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');
5163: ELSE
5164: OPEN CURRENT_READING_CUR(p_ctr_rdg_rec.counter_value_id);
5165: FETCH CURRENT_READING_CUR INTO l_curr_ctr_rdg_rec;
5166: CLOSE CURRENT_READING_CUR;
5166: CLOSE CURRENT_READING_CUR;
5167: --
5168: IF l_curr_ctr_rdg_rec.counter_value_id IS NULL THEN
5169: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
5170: csi_ctr_gen_utility_pvt.put_line('Invalid Counter Value ID...');
5171: END IF; -- 8214848 - dsingire
5172: csi_ctr_gen_utility_pvt.ExitWithErrMsg('CSI_API_CTR_VALUE_ID_MISS');
5173: END IF;
5174: --
5168: IF l_curr_ctr_rdg_rec.counter_value_id IS NULL THEN
5169: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
5170: csi_ctr_gen_utility_pvt.put_line('Invalid Counter Value ID...');
5171: END IF; -- 8214848 - dsingire
5172: csi_ctr_gen_utility_pvt.ExitWithErrMsg('CSI_API_CTR_VALUE_ID_MISS');
5173: END IF;
5174: --
5175: Begin
5176: select transaction_type_id
5188: l_mode := 'Counter';
5189: END IF;
5190: --
5191: IF l_curr_ctr_rdg_rec.object_version_number <> NVL(p_ctr_rdg_rec.object_version_number,0) THEN
5192: csi_ctr_gen_utility_pvt.ExitWithErrMsg
5193: ( p_msg_name => 'CSI_API_CTR_OBJ_VER_MISMATCH',
5194: p_token1_name => 'MODE',
5195: p_token1_val => l_mode
5196: );
5197: END IF;
5198: --
5199: IF NVL(l_curr_ctr_rdg_rec.disabled_flag,'N') = 'Y' THEN
5200: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
5201: csi_ctr_gen_utility_pvt.put_line('Counter Reading is already disabled...');
5202: END IF; -- 8214848 - dsingire
5203: csi_ctr_gen_utility_pvt.ExitWithErrMsg
5204: ( p_msg_name => 'CSI_API_CTR_DISABLED_RDG',
5205: p_token1_name => 'MODE',
5199: IF NVL(l_curr_ctr_rdg_rec.disabled_flag,'N') = 'Y' THEN
5200: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
5201: csi_ctr_gen_utility_pvt.put_line('Counter Reading is already disabled...');
5202: END IF; -- 8214848 - dsingire
5203: csi_ctr_gen_utility_pvt.ExitWithErrMsg
5204: ( p_msg_name => 'CSI_API_CTR_DISABLED_RDG',
5205: p_token1_name => 'MODE',
5206: p_token1_val => l_mode
5207: );
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...');
5216: END IF; -- 8214848 - dsingire
5217: csi_ctr_gen_utility_pvt.ExitWithErrMsg
5218: ( p_msg_name => 'CSI_API_CTR_UPD_COUNTER_ID',
5219: p_token1_name => 'MODE',
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...');
5216: END IF; -- 8214848 - dsingire
5217: csi_ctr_gen_utility_pvt.ExitWithErrMsg
5218: ( p_msg_name => 'CSI_API_CTR_UPD_COUNTER_ID',
5219: p_token1_name => 'MODE',
5220: p_token1_val => l_mode
5221: );
5231: where counter_id = l_curr_ctr_rdg_rec.counter_id
5232: and nvl(end_date_active,(sysdate+1)) > sysdate;
5233: Exception
5234: when no_data_found then
5235: csi_ctr_gen_utility_pvt.ExitWithErrMsg
5236: ( p_msg_name => 'CSI_API_CTR_INVALID',
5237: p_token1_name => 'MODE',
5238: p_token1_val => l_mode
5239: );
5241: END IF;
5242: --
5243: IF nvl(p_ctr_rdg_rec.disabled_flag,'N') <> 'Y' THEN
5244: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
5245: csi_ctr_gen_utility_pvt.put_line('Disabled flag is not set...');
5246: END IF; -- 8214848 - dsingire
5247: csi_ctr_gen_utility_pvt.ExitWithErrMsg('CSI_API_CTR_INV_DISABLED_FLAG');
5248: END IF;
5249: --
5243: IF nvl(p_ctr_rdg_rec.disabled_flag,'N') <> 'Y' THEN
5244: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
5245: csi_ctr_gen_utility_pvt.put_line('Disabled flag is not set...');
5246: END IF; -- 8214848 - dsingire
5247: csi_ctr_gen_utility_pvt.ExitWithErrMsg('CSI_API_CTR_INV_DISABLED_FLAG');
5248: END IF;
5249: --
5250: IF NVL(l_direction,'X') NOT IN ('A','D','B') THEN
5251: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
5248: END IF;
5249: --
5250: IF NVL(l_direction,'X') NOT IN ('A','D','B') THEN
5251: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
5252: csi_ctr_gen_utility_pvt.put_line('This counter has an Invalid Direction...');
5253: END IF; -- 8214848 - dsingire
5254: csi_ctr_gen_utility_pvt.ExitWithErrMsg
5255: ( p_msg_name => 'CSI_API_CTR_INVALID_DIR',
5256: p_token1_name => 'MODE',
5250: IF NVL(l_direction,'X') NOT IN ('A','D','B') THEN
5251: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
5252: csi_ctr_gen_utility_pvt.put_line('This counter has an Invalid Direction...');
5253: END IF; -- 8214848 - dsingire
5254: csi_ctr_gen_utility_pvt.ExitWithErrMsg
5255: ( p_msg_name => 'CSI_API_CTR_INVALID_DIR',
5256: p_token1_name => 'MODE',
5257: p_token1_val => l_mode
5258: );
5272:
5273: IF l_next_ctr_reading IS NOT NULL THEN
5274: /* End of checking */
5275: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
5276: csi_ctr_gen_utility_pvt.put_line('Cannot Disable Reset Reading...');
5277: END IF; -- 8214848 - dsingire
5278: csi_ctr_gen_utility_pvt.ExitWithErrMsg
5279: ( p_msg_name => 'CSI_API_CTR_DISABLE_RESET',
5280: p_token1_name => 'MODE',
5274: /* End of checking */
5275: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
5276: csi_ctr_gen_utility_pvt.put_line('Cannot Disable Reset Reading...');
5277: END IF; -- 8214848 - dsingire
5278: csi_ctr_gen_utility_pvt.ExitWithErrMsg
5279: ( p_msg_name => 'CSI_API_CTR_DISABLE_RESET',
5280: p_token1_name => 'MODE',
5281: p_token1_val => l_mode
5282: );
5284: END IF;
5285: --
5286: IF NVL(l_curr_ctr_rdg_rec.automatic_rollover_flag,'N') = 'Y' THEN
5287: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
5288: csi_ctr_gen_utility_pvt.put_line('Cannot Disable Automatic Rollover Reading...');
5289: END IF; -- 8214848 - dsingire
5290: csi_ctr_gen_utility_pvt.ExitWithErrMsg
5291: ( p_msg_name => 'CSI_API_CTR_DISABLE_ROLLOVER',
5292: p_token1_name => 'MODE',
5286: IF NVL(l_curr_ctr_rdg_rec.automatic_rollover_flag,'N') = 'Y' THEN
5287: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
5288: csi_ctr_gen_utility_pvt.put_line('Cannot Disable Automatic Rollover Reading...');
5289: END IF; -- 8214848 - dsingire
5290: csi_ctr_gen_utility_pvt.ExitWithErrMsg
5291: ( p_msg_name => 'CSI_API_CTR_DISABLE_ROLLOVER',
5292: p_token1_name => 'MODE',
5293: p_token1_val => l_mode
5294: );
5296: --
5297: -- Cannot Disable Target Counters as they are driven by source counters
5298: IF Is_Target_Counter(l_curr_ctr_rdg_rec.counter_id) THEN
5299: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
5300: csi_ctr_gen_utility_pvt.put_line('Cannot Disable Target Counter...');
5301: END IF; -- 8214848 - dsingire
5302: csi_ctr_gen_utility_pvt.ExitWithErrMsg
5303: ( p_msg_name => 'CSI_API_CTR_DISABLE_TARGET',
5304: p_token1_name => 'MODE',
5298: IF Is_Target_Counter(l_curr_ctr_rdg_rec.counter_id) THEN
5299: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
5300: csi_ctr_gen_utility_pvt.put_line('Cannot Disable Target Counter...');
5301: END IF; -- 8214848 - dsingire
5302: csi_ctr_gen_utility_pvt.ExitWithErrMsg
5303: ( p_msg_name => 'CSI_API_CTR_DISABLE_TARGET',
5304: p_token1_name => 'MODE',
5305: p_token1_val => l_mode
5306: );
5308: --
5309: -- Cannot Disable Formula Counters Readings
5310: IF Is_Formula_Counter(l_curr_ctr_rdg_rec.counter_id) THEN
5311: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
5312: csi_ctr_gen_utility_pvt.put_line('Cannot Disable Formula Counter...');
5313: END IF; -- 8214848 - dsingire
5314: csi_ctr_gen_utility_pvt.ExitWithErrMsg
5315: ( p_msg_name => 'CSI_API_CTR_DISABLE_FORMULA',
5316: p_token1_name => 'MODE',
5310: IF Is_Formula_Counter(l_curr_ctr_rdg_rec.counter_id) THEN
5311: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
5312: csi_ctr_gen_utility_pvt.put_line('Cannot Disable Formula Counter...');
5313: END IF; -- 8214848 - dsingire
5314: csi_ctr_gen_utility_pvt.ExitWithErrMsg
5315: ( p_msg_name => 'CSI_API_CTR_DISABLE_FORMULA',
5316: p_token1_name => 'MODE',
5317: p_token1_val => l_mode
5318: );
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...');
5326: END IF; -- 8214848 - dsingire
5327: csi_ctr_gen_utility_pvt.ExitWithErrMsg
5328: ( p_msg_name => 'CSI_API_CTR_UPD_READING_DATE',
5329: p_token1_name => 'MODE',
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...');
5326: END IF; -- 8214848 - dsingire
5327: csi_ctr_gen_utility_pvt.ExitWithErrMsg
5328: ( p_msg_name => 'CSI_API_CTR_UPD_READING_DATE',
5329: p_token1_name => 'MODE',
5330: p_token1_val => l_mode
5331: );
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...');
5339: END IF; -- 8214848 - dsingire
5340: csi_ctr_gen_utility_pvt.ExitWithErrMsg
5341: ( p_msg_name => 'CSI_API_CTR_UPD_CTR_READING',
5342: p_token1_name => 'MODE',
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...');
5339: END IF; -- 8214848 - dsingire
5340: csi_ctr_gen_utility_pvt.ExitWithErrMsg
5341: ( p_msg_name => 'CSI_API_CTR_UPD_CTR_READING',
5342: p_token1_name => 'MODE',
5343: p_token1_val => l_mode
5344: );
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...');
5352: END IF; -- 8214848 - dsingire
5353: csi_ctr_gen_utility_pvt.ExitWithErrMsg
5354: ( p_msg_name => 'CSI_API_CTR_UPD_ADJ_TYPE',
5355: p_token1_name => 'MODE',
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...');
5352: END IF; -- 8214848 - dsingire
5353: csi_ctr_gen_utility_pvt.ExitWithErrMsg
5354: ( p_msg_name => 'CSI_API_CTR_UPD_ADJ_TYPE',
5355: p_token1_name => 'MODE',
5356: p_token1_val => l_mode
5357: );
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...');
5365: END IF; -- 8214848 - dsingire
5366: csi_ctr_gen_utility_pvt.ExitWithErrMsg('CSI_API_CTR_UPD_ADJ_RDG');
5367: END IF;
5368: --
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...');
5365: END IF; -- 8214848 - dsingire
5366: csi_ctr_gen_utility_pvt.ExitWithErrMsg('CSI_API_CTR_UPD_ADJ_RDG');
5367: END IF;
5368: --
5369: -- If the Source counter or its object counters have a reading lock date then
5370: -- the reading date cannot be earlier than the lock date (Max of all)
5381: --
5382: IF l_rdg_lock_date IS NOT NULL THEN
5383: IF l_curr_ctr_rdg_rec.value_timestamp <= l_rdg_lock_date THEN
5384: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
5385: csi_ctr_gen_utility_pvt.put_line('Reading Date cannot be earlier than the Reading Lock Date...');
5386: END IF; -- 8214848 - dsingire
5387: csi_ctr_gen_utility_pvt.ExitWithErrMsg
5388: ( p_msg_name => 'CSI_API_CTR_RDG_DATE_LOCKED',
5389: p_token1_name => 'LOCKED_DATE',
5383: IF l_curr_ctr_rdg_rec.value_timestamp <= l_rdg_lock_date THEN
5384: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
5385: csi_ctr_gen_utility_pvt.put_line('Reading Date cannot be earlier than the Reading Lock Date...');
5386: END IF; -- 8214848 - dsingire
5387: csi_ctr_gen_utility_pvt.ExitWithErrMsg
5388: ( p_msg_name => 'CSI_API_CTR_RDG_DATE_LOCKED',
5389: p_token1_name => 'LOCKED_DATE',
5390: p_token1_val => to_char(l_rdg_lock_date,l_date_format), --fix for bug 5435071
5391: p_token2_name => 'MODE',
5411: --l_prev_max_comments
5412: FROM CSI_COUNTER_READINGS WHERE COUNTER_VALUE_ID = NVL(l_ctr_val_max,-1);
5413:
5414: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
5415: csi_ctr_gen_utility_pvt.put_line('l_ctr_val_max - ' || l_ctr_val_max );
5416: END IF; -- 8214848 - dsingire
5417:
5418: EXCEPTION
5419: WHEN OTHERS THEN
5432: l_prev_value_timestamp := l_prev_value_max_timestamp;
5433: --l_prev_comments := l_prev_max_comments;
5434:
5435: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
5436: csi_ctr_gen_utility_pvt.put_line('Max Value counter id used');
5437: END IF; -- 8214848 - dsingire
5438:
5439: ELSE
5440:
5460: --
5461: IF l_prev_ctr_reading IS NULL AND
5462: l_next_reset_mode IS NOT NULL THEN
5463: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
5464: csi_ctr_gen_utility_pvt.put_line('Next Reading is a Reset. Disabling the current reading will cause the Reset Reading to be the first reading.');
5465: END IF; -- 8214848 - dsingire
5466: csi_ctr_gen_utility_pvt.ExitWithErrMsg('CSI_API_CTR_NEXT_RESET_RDG');
5467: END IF;
5468: --
5462: l_next_reset_mode IS NOT NULL THEN
5463: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
5464: csi_ctr_gen_utility_pvt.put_line('Next Reading is a Reset. Disabling the current reading will cause the Reset Reading to be the first reading.');
5465: END IF; -- 8214848 - dsingire
5466: csi_ctr_gen_utility_pvt.ExitWithErrMsg('CSI_API_CTR_NEXT_RESET_RDG');
5467: END IF;
5468: --
5469: IF l_prev_ctr_reading IS NULL AND
5470: l_next_adj_type IS NOT NULL THEN
5468: --
5469: IF l_prev_ctr_reading IS NULL AND
5470: l_next_adj_type IS NOT NULL THEN
5471: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
5472: csi_ctr_gen_utility_pvt.put_line('Next Reading is a Adjustment. Disabling the current reading will cause the Adjustment Reading to be the first reading.');
5473: END IF; -- 8214848 - dsingire
5474: csi_ctr_gen_utility_pvt.ExitWithErrMsg('CSI_API_CTR_NEXT_ADJ_RDG');
5475: END IF;
5476: --
5470: l_next_adj_type IS NOT NULL THEN
5471: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
5472: csi_ctr_gen_utility_pvt.put_line('Next Reading is a Adjustment. Disabling the current reading will cause the Adjustment Reading to be the first reading.');
5473: END IF; -- 8214848 - dsingire
5474: csi_ctr_gen_utility_pvt.ExitWithErrMsg('CSI_API_CTR_NEXT_ADJ_RDG');
5475: END IF;
5476: --
5477: IF l_prev_ctr_reading IS NULL AND
5478: nvl(l_next_auto_rollover,'N') = 'Y' THEN
5476: --
5477: IF l_prev_ctr_reading IS NULL AND
5478: nvl(l_next_auto_rollover,'N') = 'Y' THEN
5479: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
5480: csi_ctr_gen_utility_pvt.put_line('Next Reading is an Automatic Rollover. Disabling the current reading will cause the Automatic Rollover Reading to be the first reading.');
5481: END IF; -- 8214848 - dsingire
5482: csi_ctr_gen_utility_pvt.ExitWithErrMsg('CSI_API_CTR_NEXT_AUTO_RDG');
5483: END IF;
5484: --
5478: nvl(l_next_auto_rollover,'N') = 'Y' THEN
5479: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
5480: csi_ctr_gen_utility_pvt.put_line('Next Reading is an Automatic Rollover. Disabling the current reading will cause the Automatic Rollover Reading to be the first reading.');
5481: END IF; -- 8214848 - dsingire
5482: csi_ctr_gen_utility_pvt.ExitWithErrMsg('CSI_API_CTR_NEXT_AUTO_RDG');
5483: END IF;
5484: --
5485: p_ctr_rdg_rec.object_version_number := l_curr_ctr_rdg_rec.object_version_number + 1;
5486: --
5489: p_ctr_rdg_rec.value_timestamp := l_curr_ctr_rdg_rec.value_timestamp;
5490: --
5491: -- Call Table Handler to Update CSI_COUNTER_READINGS
5492: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
5493: csi_ctr_gen_utility_pvt.put_line('Calling Update Row to Disable the Reading...');
5494: END IF; -- 8214848 - dsingire
5495: CSI_COUNTER_READINGS_PKG.Update_Row(
5496: p_COUNTER_VALUE_ID => p_ctr_rdg_rec.counter_value_id
5497: ,p_COUNTER_ID => NULL
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;
5582: l_msg_count := l_msg_count - 1;
5583: END LOOP;
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;
5582: l_msg_count := l_msg_count - 1;
5583: END LOOP;
5584: RAISE FND_API.G_EXC_ERROR;
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: --
5597: -- Following variables will be set inside the loop
5612: NVL(l_next_reset_mode,'X') = 'SOFT' THEN
5613: l_update_loop := TRUE;
5614: l_adj_ctr := 0;
5615: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
5616: csi_ctr_gen_utility_pvt.put_line('Updating Later Readings for Ctr ID '||to_char(l_curr_ctr_rdg_rec.counter_id));
5617: END IF; -- 8214848 - dsingire
5618: FOR later_rdg IN LATER_READINGS_CUR(l_curr_ctr_rdg_rec.counter_id
5619: ,l_curr_ctr_rdg_rec.value_timestamp)
5620: LOOP
5652: l_later_ctr_reading := later_rdg.counter_reading;
5653: END IF;
5654: --
5655: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
5656: csi_ctr_gen_utility_pvt.put_line('Updating Counter Value ID '||to_char(later_rdg.counter_value_id));
5657: END IF; -- 8214848 - dsingire
5658: IF NVL(later_rdg.reset_mode,'X') = 'SOFT' THEN
5659: -- added IF for Bug 9148094
5660: csi_ctr_gen_utility_pvt.put_line(' Update Net Reading Flag : '||l_update_net_flag);
5656: csi_ctr_gen_utility_pvt.put_line('Updating Counter Value ID '||to_char(later_rdg.counter_value_id));
5657: END IF; -- 8214848 - dsingire
5658: IF NVL(later_rdg.reset_mode,'X') = 'SOFT' THEN
5659: -- added IF for Bug 9148094
5660: csi_ctr_gen_utility_pvt.put_line(' Update Net Reading Flag : '||l_update_net_flag);
5661: IF l_update_net_flag = 'Y' THEN
5662: UPDATE CSI_COUNTER_READINGS
5663: set net_reading = later_rdg.counter_reading,
5664: life_to_date_reading = l_previous_ltd,
5728: END IF;
5729: END IF;
5730: --
5731: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
5732: csi_ctr_gen_utility_pvt.put_line('Calling Compute_Target_Counters for Update...');
5733: END IF; -- 8214848 - dsingire
5734: Compute_Target_Counters
5735: (
5736: p_api_version => 1.0
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;
5758: l_msg_count := l_msg_count - 1;
5759: END LOOP;
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;
5758: l_msg_count := l_msg_count - 1;
5759: END LOOP;
5760: RAISE FND_API.G_EXC_ERROR;
5772: l_derive_ctr_rec.value_timestamp := later_rdg.value_timestamp;
5773: --
5774: -- Compute Derive Counters
5775: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
5776: csi_ctr_gen_utility_pvt.put_line('Calling Compute_Derive_Counters for Update...');
5777: END IF; -- 8214848 - dsingire
5778: Compute_Derive_Counters
5779: (
5780: p_api_version => 1.0
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
5796: x_msg_data := FND_MSG_PUB.GET
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;
5803: END LOOP;
5804: RAISE FND_API.G_EXC_ERROR;
5846: END IF;
5847: --
5848: -- Call Compute Target Counters
5849: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
5850: csi_ctr_gen_utility_pvt.put_line('Calling Compute_Target_Counters for Update...');
5851: END IF; -- 8214848 - dsingire
5852: Compute_Target_Counters
5853: (
5854: p_api_version => 1.0
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;
5876: l_msg_count := l_msg_count - 1;
5877: END LOOP;
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;
5876: l_msg_count := l_msg_count - 1;
5877: END LOOP;
5878: RAISE FND_API.G_EXC_ERROR;
5888: l_derive_ctr_rec.counter_id := l_curr_ctr_rdg_rec.counter_id;
5889: l_derive_ctr_rec.value_timestamp := later_rdg.value_timestamp;
5890: --
5891: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
5892: csi_ctr_gen_utility_pvt.put_line('Calling Compute_Derive_Counters for Update...');
5893: END IF; -- 8214848 - dsingire
5894: Compute_Derive_Counters
5895: (
5896: p_api_version => 1.0
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;
5918: l_msg_count := l_msg_count - 1;
5919: END LOOP;
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;
5918: l_msg_count := l_msg_count - 1;
5919: END LOOP;
5920: RAISE FND_API.G_EXC_ERROR;
5938: l_derive_ctr_rec.counter_id := l_curr_ctr_rdg_rec.counter_id;
5939: l_derive_ctr_rec.value_timestamp := later_rdg.value_timestamp;
5940: --
5941: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
5942: csi_ctr_gen_utility_pvt.put_line('Calling Compute_Derive_Counters for Update...');
5943: END IF; -- 8214848 - dsingire
5944: Compute_Derive_Counters
5945: (
5946: p_api_version => 1.0
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;
5968: l_msg_count := l_msg_count - 1;
5969: END LOOP;
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;
5968: l_msg_count := l_msg_count - 1;
5969: END LOOP;
5970: RAISE FND_API.G_EXC_ERROR;
5978: l_upd_fl_rdg_rec.disabled_flag := 'Y';
5979: --
5980: -- Call Compute Formula
5981: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
5982: csi_ctr_gen_utility_pvt.put_line('Calling Compute_Formula_Counters for Update...');
5983: END IF; -- 8214848 - dsingire
5984: Compute_Formula_Counters
5985: (
5986: p_api_version => 1.0
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
6001: x_msg_data := FND_MSG_PUB.GET
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;
6008: l_msg_count := l_msg_count - 1;
6009: END LOOP;
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;
6008: l_msg_count := l_msg_count - 1;
6009: END LOOP;
6010: RAISE FND_API.G_EXC_ERROR;
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
6106: CSI_CTR_GEN_UTILITY_PVT.read_debug_profiles;
6107: END IF; -- 8214848 - dsingire
6108:
6109: l_debug_level := CSI_CTR_GEN_UTILITY_PVT.g_debug_level; -- 8214848 - dsingire
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
6106: CSI_CTR_GEN_UTILITY_PVT.read_debug_profiles;
6107: END IF; -- 8214848 - dsingire
6108:
6109: l_debug_level := CSI_CTR_GEN_UTILITY_PVT.g_debug_level; -- 8214848 - dsingire
6110:
6105: IF (CSI_CTR_GEN_UTILITY_PVT.g_debug_level is null) THEN -- 8214848 - dsingire
6106: CSI_CTR_GEN_UTILITY_PVT.read_debug_profiles;
6107: END IF; -- 8214848 - dsingire
6108:
6109: l_debug_level := CSI_CTR_GEN_UTILITY_PVT.g_debug_level; -- 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 ||'-'||
6108:
6109: l_debug_level := CSI_CTR_GEN_UTILITY_PVT.g_debug_level; -- 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: --
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
6125: p_ctr_prop_rdg_rec.counter_property_id = FND_API.G_MISS_NUM THEN
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
6130: p_ctr_prop_rdg_rec.value_timestamp = FND_API.G_MISS_DATE THEN
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
6135: select property_lov_type,property_data_type,is_nullable
6139: and nvl(end_date_active,(sysdate+1)) > sysdate;
6140: Exception
6141: when no_data_found THEN
6142: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
6143: csi_ctr_gen_utility_pvt.put_line('Counter Property is Invalid or Expired...');
6144: END IF; -- 8214848 - dsingire
6145: csi_ctr_gen_utility_pvt.ExitWithErrMsg('CSI_API_CTR_PROP_INVALID');
6146: End;
6147: --
6141: when no_data_found THEN
6142: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
6143: csi_ctr_gen_utility_pvt.put_line('Counter Property is Invalid or Expired...');
6144: END IF; -- 8214848 - dsingire
6145: csi_ctr_gen_utility_pvt.ExitWithErrMsg('CSI_API_CTR_PROP_INVALID');
6146: End;
6147: --
6148: IF l_is_nullable <> 'Y' THEN
6149: IF p_ctr_prop_rdg_rec.property_value IS NULL OR
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: --
6155: IF NOT Valid_Ctr_Property_ID
6155: IF NOT Valid_Ctr_Property_ID
6156: (p_ctr_value_id => p_ctr_prop_rdg_rec.counter_value_id
6157: ,p_ctr_prop_id => p_ctr_prop_rdg_rec.counter_property_id) THEN
6158: -- Property does not belong to the captured counter
6159: csi_ctr_gen_utility_pvt.ExitWithErrMsg('CSI_API_CTR_PROP_INVALID');
6160: END IF;
6161: --
6162: IF Has_Property_Value(p_counter_property_id => p_ctr_prop_rdg_rec.counter_property_id,
6163: p_counter_value_id => p_ctr_prop_rdg_rec.counter_value_id) = 'T' THEN
6161: --
6162: IF Has_Property_Value(p_counter_property_id => p_ctr_prop_rdg_rec.counter_property_id,
6163: p_counter_value_id => p_ctr_prop_rdg_rec.counter_value_id) = 'T' THEN
6164: -- Property value already exists
6165: csi_ctr_gen_utility_pvt.ExitWithErrMsg('CSI_API_CTR_PROP_VALUE_EXISTS');
6166: END IF;
6167: --
6168: IF l_is_nullable <> 'Y' THEN
6169: IF l_prop_lov_type IS NOT NULL THEN
6178: END IF;
6179: --
6180: IF l_pval = 'F' THEN
6181: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
6182: csi_ctr_gen_utility_pvt.put_line('Property Value does not match with Property LOV Type...');
6183: END IF; -- 8214848 - dsingire
6184: csi_ctr_gen_utility_pvt.ExitWithErrMsg('CSI_API_CTR_PROP_LOV_MISMATCH');
6185: END IF;
6186: --
6180: IF l_pval = 'F' THEN
6181: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
6182: csi_ctr_gen_utility_pvt.put_line('Property Value does not match with Property LOV Type...');
6183: END IF; -- 8214848 - dsingire
6184: csi_ctr_gen_utility_pvt.ExitWithErrMsg('CSI_API_CTR_PROP_LOV_MISMATCH');
6185: END IF;
6186: --
6187: /***********************************************
6188: *Check if value is valid for property data type
6192: l_n_temp := TO_NUMBER(p_ctr_prop_rdg_rec.PROPERTY_VALUE);
6193: EXCEPTION
6194: WHEN OTHERS THEN
6195: IF (SQLCODE = -6502) THEN
6196: csi_ctr_gen_utility_pvt.ExitWithErrMsg('CSI_API_CTR_PROP_DATA_MISMATCH');
6197: ELSE
6198: RAISE;
6199: END IF;
6200: END;
6205: l_d_temp := to_date(p_ctr_prop_rdg_rec.PROPERTY_VALUE,'MM-DD-YYYY');
6206: EXCEPTION
6207: WHEN OTHERS THEN
6208: IF (SQLCODE BETWEEN -1899 AND -1800) THEN
6209: csi_ctr_gen_utility_pvt.ExitWithErrMsg('CSI_API_CTR_PROP_DATA_MISMATCH');
6210: ELSE
6211: RAISE;
6212: END IF;
6213: END;
6211: RAISE;
6212: END IF;
6213: END;
6214: ELSE
6215: csi_ctr_gen_utility_pvt.ExitWithErrMsg('CSI_API_CTR_PROP_DATA_MISMATCH');
6216: END IF;
6217:
6218: END IF;
6219: --
6228: END IF;
6229: END LOOP;
6230: ELSE
6231: IF Counter_Prop_Value_Exists(p_ctr_prop_rdg_rec.counter_prop_value_id) THEN
6232: csi_ctr_gen_utility_pvt.ExitWithErrMsg
6233: ( p_msg_name => 'CSI_API_CTR_PROP_VALUE_EXISTS',
6234: p_token1_name => 'PROP_VALUE_ID',
6235: p_token1_val => to_char(p_ctr_prop_rdg_rec.counter_prop_value_id)
6236: );
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
6413: CSI_CTR_GEN_UTILITY_PVT.read_debug_profiles;
6414: END IF; -- 8214848 - dsingire
6415:
6416: l_debug_level := CSI_CTR_GEN_UTILITY_PVT.g_debug_level; -- 8214848 - dsingire
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
6413: CSI_CTR_GEN_UTILITY_PVT.read_debug_profiles;
6414: END IF; -- 8214848 - dsingire
6415:
6416: l_debug_level := CSI_CTR_GEN_UTILITY_PVT.g_debug_level; -- 8214848 - dsingire
6417:
6412: IF (CSI_CTR_GEN_UTILITY_PVT.g_debug_level is null) THEN -- 8214848 - dsingire
6413: CSI_CTR_GEN_UTILITY_PVT.read_debug_profiles;
6414: END IF; -- 8214848 - dsingire
6415:
6416: l_debug_level := CSI_CTR_GEN_UTILITY_PVT.g_debug_level; -- 8214848 - dsingire
6417:
6418: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
6419: csi_ctr_gen_utility_pvt.put_line( 'Inside Estimate_Start_Readings...');
6420: END IF; -- 8214848 - dsingire
6415:
6416: l_debug_level := CSI_CTR_GEN_UTILITY_PVT.g_debug_level; -- 8214848 - dsingire
6417:
6418: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
6419: csi_ctr_gen_utility_pvt.put_line( 'Inside Estimate_Start_Readings...');
6420: END IF; -- 8214848 - dsingire
6421: --
6422: -- fetch the reading of the passed avg calculation start date
6423: OPEN PASSED_DT_RDG_VALUES(p_counter_id, p_calculation_start_date);
6448: CLOSE FIRST_RDG_VALUES;
6449: --
6450: IF (trunc(l_first_rdg_date) = trunc(l_prev_value_timestamp)) THEN
6451: IF p_default_Value IS NULL THEN
6452: csi_ctr_gen_utility_pvt.ExitWithErrMsg('CSI_API_CTR_EST_DEF_VAL_NULL');
6453: END IF;
6454: --
6455: l_calc_start_rdg := (trunc(p_calculation_start_date) - trunc(l_first_rdg_date)) * p_default_Value;
6456: -- get the next reading after the period start date to check for erroneous readings
6471: l_calc_start_rdg := l_prev_reading + l_calc_usage;
6472: END IF;
6473: END IF; --l_post_reading not null
6474: ELSE --prev reading is null
6475: csi_ctr_gen_utility_pvt.ExitWithErrMsg('CSI_API_CTR_NO_RDG_PR_CAL_STDT');
6476: END IF; --l_prev_reading not null
6477: --
6478: x_calc_start_reading := round(l_calc_start_rdg);
6479: --
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;
6621: END IF; -- 8214848 - dsingire
6622:
6623: l_debug_level := CSI_CTR_GEN_UTILITY_PVT.g_debug_level; -- 8214848 - dsingire
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;
6621: END IF; -- 8214848 - dsingire
6622:
6623: l_debug_level := CSI_CTR_GEN_UTILITY_PVT.g_debug_level; -- 8214848 - dsingire
6624:
6619: IF (CSI_CTR_GEN_UTILITY_PVT.g_debug_level is null) THEN -- 8214848 - dsingire
6620: CSI_CTR_GEN_UTILITY_PVT.read_debug_profiles;
6621: END IF; -- 8214848 - dsingire
6622:
6623: l_debug_level := CSI_CTR_GEN_UTILITY_PVT.g_debug_level; -- 8214848 - dsingire
6624:
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
6622:
6623: l_debug_level := CSI_CTR_GEN_UTILITY_PVT.g_debug_level; -- 8214848 - dsingire
6624:
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;
6658: CLOSE FIRST_RDG_VALUES;
6659: --
6660: IF (trunc(l_first_rdg_date) = trunc(l_prev_value_timestamp)) THEN
6661: IF p_default_Value IS NULL THEN
6662: csi_ctr_gen_utility_pvt.ExitWithErrMsg('CSI_API_CTR_EST_DEF_VAL_NULL');
6663: END IF;
6664: l_calc_start_rdg := (trunc(p_calculation_start_date) - trunc(l_first_rdg_date)) * p_default_Value;
6665: OPEN CTR_DIRECTION(p_counter_id);
6666: FETCH CTR_DIRECTION
6678: l_calc_start_rdg := l_prev_reading + l_calc_usage;
6679: END IF;
6680: END IF; --l_post_reading not null
6681: ELSE --prev reading is null
6682: csi_ctr_gen_utility_pvt.ExitWithErrMsg('CSI_API_CTR_NO_RDG_PR_PRD_STDT');
6683: END IF; --l_prev_reading not null
6684: ELSE --p avg calculation start date is not null
6685: -- get the avg calculation start reading.
6686: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
6683: END IF; --l_prev_reading not null
6684: ELSE --p avg calculation start date is not null
6685: -- get the avg calculation start reading.
6686: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
6687: csi_ctr_gen_utility_pvt.put_line('Calling Estimate_Start_Readings...');
6688: END IF; -- 8214848 - dsingire
6689: ESTIMATE_START_READINGS(
6690: P_api_version => 1.0,
6691: P_Init_Msg_List => P_Init_Msg_List,
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
6707: x_msg_data := FND_MSG_PUB.GET
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;
6714: END LOOP;
6715: RAISE FND_API.G_EXC_ERROR;
6736: l_calc_usage := (trunc(p_calculation_start_date) - trunc(l_prev_value_timestamp)) * l_calc_daily_avg;
6737: l_calc_start_rdg := l_prev_reading + l_calc_usage;
6738: ELSE
6739: IF p_default_Value IS NULL THEN
6740: csi_ctr_gen_utility_pvt.ExitWithErrMsg('CSI_API_CTR_EST_DEF_VAL_NULL');
6741: END IF;
6742: l_calc_start_rdg := (trunc(p_calculation_start_date) - trunc(p_avg_calculation_start_date)) * p_default_Value;
6743: OPEN CTR_DIRECTION(p_counter_id);
6744: FETCH CTR_DIRECTION INTO l_ctr_direction;
6751: END IF;
6752: END IF;
6753: END IF; --l_post_reading not null
6754: ELSE --prev reading is null
6755: csi_ctr_gen_utility_pvt.ExitWithErrMsg('CSI_API_CTR_NO_RDG_PR_PRD_STDT');
6756: END IF; --l_prev_reading not null
6757: END IF; -- p avg calculation start date is null
6758: --
6759: x_calc_start_reading := round(l_calc_start_rdg);
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
6911: CSI_CTR_GEN_UTILITY_PVT.read_debug_profiles;
6912: END IF; -- 8214848 - dsingire
6913:
6914: l_debug_level := CSI_CTR_GEN_UTILITY_PVT.g_debug_level; -- 8214848 - dsingire
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
6911: CSI_CTR_GEN_UTILITY_PVT.read_debug_profiles;
6912: END IF; -- 8214848 - dsingire
6913:
6914: l_debug_level := CSI_CTR_GEN_UTILITY_PVT.g_debug_level; -- 8214848 - dsingire
6915:
6910: IF (CSI_CTR_GEN_UTILITY_PVT.g_debug_level is null) THEN -- 8214848 - dsingire
6911: CSI_CTR_GEN_UTILITY_PVT.read_debug_profiles;
6912: END IF; -- 8214848 - dsingire
6913:
6914: l_debug_level := CSI_CTR_GEN_UTILITY_PVT.g_debug_level; -- 8214848 - dsingire
6915:
6916: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
6917: csi_ctr_gen_utility_pvt.put_line( 'Inside Estimate_Usage...');
6918: END IF; -- 8214848 - dsingire
6913:
6914: l_debug_level := CSI_CTR_GEN_UTILITY_PVT.g_debug_level; -- 8214848 - dsingire
6915:
6916: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
6917: csi_ctr_gen_utility_pvt.put_line( 'Inside Estimate_Usage...');
6918: END IF; -- 8214848 - dsingire
6919: --
6920: IF p_avg_calculation_start_date IS NOT NULL THEN
6921: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
6918: END IF; -- 8214848 - dsingire
6919: --
6920: IF p_avg_calculation_start_date IS NOT NULL THEN
6921: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
6922: csi_ctr_gen_utility_pvt.put_line('Calling Estimate_Start_Readings...');
6923: END IF; -- 8214848 - dsingire
6924: ESTIMATE_START_READINGS(
6925: P_api_version => 1.0,
6926: P_Init_Msg_List => P_Init_Msg_List,
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;
6948: l_msg_count := l_msg_count - 1;
6949: END LOOP;
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;
6948: l_msg_count := l_msg_count - 1;
6949: END LOOP;
6950: RAISE FND_API.G_EXC_ERROR;
6952: END IF;
6953:
6954: IF p_estimation_period_start_date IS NOT NULL THEN
6955: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
6956: csi_ctr_gen_utility_pvt.put_line('Calling Est_Period_Start_Readings...');
6957: END IF; -- 8214848 - dsingire
6958: EST_PERIOD_START_READINGS(
6959: P_api_version => 1.0,
6960: P_Init_Msg_List => P_Init_Msg_List,
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;
6983: l_msg_count := l_msg_count - 1;
6984: END LOOP;
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;
6983: l_msg_count := l_msg_count - 1;
6984: END LOOP;
6985: RAISE FND_API.G_EXC_ERROR;
7023: l_estimated_usage := l_estimated_meter_rdg - l_period_start_reading;
7024: END IF;
7025: ELSE
7026: IF p_default_Value IS NULL THEN
7027: csi_ctr_gen_utility_pvt.ExitWithErrMsg('CSI_API_CTR_EST_DEF_VAL_NULL');
7028: END IF;
7029: l_estimated_meter_rdg := (trunc(p_estimation_period_end_date) - trunc(p_avg_calculation_start_date)) * p_default_Value;
7030: l_estimated_meter_rdg := l_estimated_meter_rdg + ((nvl(p_usage_markup,0)/100) * (l_estimated_meter_rdg));
7031: -- get the next reading after the period start date to check for erroneous readings
7045: END IF;
7046: END IF; --l_prev_value_timestamp>p_avg_calculation_start_date
7047: END IF; --l_post_reading not null
7048: ELSE --l_prev_reading is null
7049: csi_ctr_gen_utility_pvt.ExitWithErrMsg('CSI_API_CTR_NO_RDG_PR_PRD_ENDT');
7050: END IF; --l_prev_reading not null
7051: ELSIF P_number_of_readings is not null then -- p_number of rdgs not null
7052: Declare
7053: n number;
7076: END LOOP;
7077: --
7078: IF J1 < 2 THEN
7079: lprdst_num_ctr_rdg := null;
7080: csi_ctr_gen_utility_pvt.ExitWithErrMsg
7081: ( p_msg_name => 'CSI_API_CTR_INVD_NUM_OF_RDGS',
7082: p_token1_name => 'P_NUMBER_OF_READINGS',
7083: p_token1_val => to_char(p_number_of_readings)
7084: );
7093: l_usage_for_est := (trunc(p_estimation_period_start_date) - trunc(l_prev_value_timestamp)) * l_daily_avg_for_est;
7094: lp_period_start_reading := l_prev_reading + l_usage_for_est;
7095: l_period_start_reading := round(lp_period_start_reading);
7096: ELSE
7097: csi_ctr_gen_utility_pvt.ExitWithErrMsg
7098: ( p_msg_name => 'CSI_API_CTR_INVD_NUM_OF_RDGS',
7099: p_token1_name => 'P_NUMBER_OF_READINGS',
7100: p_token1_val => to_char(p_number_of_readings)
7101: );
7118: END LOOP;
7119: --
7120: IF J < 2 THEN --J <> p_number_of_readings then
7121: l_num_ctr_rdg := null;
7122: csi_ctr_gen_utility_pvt.ExitWithErrMsg
7123: ( p_msg_name => 'CSI_API_CTR_INVD_NUM_OF_RDGS',
7124: p_token1_name => 'P_NUMBER_OF_READINGS',
7125: p_token1_val => to_char(p_number_of_readings)
7126: );
7138: IF p_estimation_period_start_date IS NOT NULL THEN
7139: l_estimated_usage := l_estimated_meter_rdg - lp_period_start_reading;
7140: END IF;
7141: ELSE
7142: csi_ctr_gen_utility_pvt.ExitWithErrMsg
7143: ( p_msg_name => 'CSI_API_CTR_INVD_NUM_OF_RDGS',
7144: p_token1_name => 'P_NUMBER_OF_READINGS',
7145: p_token1_val => to_char(p_number_of_readings)
7146: );
7172: CLOSE FIRST_RDG_VALUES;
7173: --
7174: IF trunc(l_prev_value_timestamp) = trunc(l_first_rdg_date) THEN
7175: IF p_default_Value IS NULL THEN
7176: csi_ctr_gen_utility_pvt.ExitWithErrMsg('CSI_API_CTR_EST_DEF_VAL_NULL');
7177: END IF;
7178: l_estimated_meter_rdg := (trunc(p_estimation_period_end_date) - trunc(l_first_rdg_date)) * p_default_Value;
7179: l_estimated_meter_rdg := l_estimated_meter_rdg + ((nvl(p_usage_markup,0)/100) * (l_estimated_meter_rdg));
7180: OPEN CTR_DIRECTION(p_counter_id);
7201: END IF;
7202: END IF; --l_post_reading not null
7203: ELSE --l_prev_reading is null
7204: --error out - not enough readings to calculate the estimation
7205: csi_ctr_gen_utility_pvt.ExitWithErrMsg('CSI_API_CTR_NO_RDG_PR_PRD_ENDT');
7206: END IF;
7207: END IF; --p_avg_calculation_start_date not null
7208: ELSE --l_estimated_meter_rdg is NOT NULL
7209: IF p_estimation_period_start_date IS NOT NULL THEN
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;
7348: END IF; -- 8214848 - dsingire
7349:
7350: l_debug_level := CSI_CTR_GEN_UTILITY_PVT.g_debug_level; -- 8214848 - dsingire
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;
7348: END IF; -- 8214848 - dsingire
7349:
7350: l_debug_level := CSI_CTR_GEN_UTILITY_PVT.g_debug_level; -- 8214848 - dsingire
7351:
7346: IF (CSI_CTR_GEN_UTILITY_PVT.g_debug_level is null) THEN -- 8214848 - dsingire
7347: CSI_CTR_GEN_UTILITY_PVT.read_debug_profiles;
7348: END IF; -- 8214848 - dsingire
7349:
7350: l_debug_level := CSI_CTR_GEN_UTILITY_PVT.g_debug_level; -- 8214848 - dsingire
7351:
7352: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
7353: csi_ctr_gen_utility_pvt.put_line( 'Inside Estimate_Counter_Reading...');
7354: END IF; -- 8214848 - dsingire
7349:
7350: l_debug_level := CSI_CTR_GEN_UTILITY_PVT.g_debug_level; -- 8214848 - dsingire
7351:
7352: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
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,
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
7366: ( p_msg_name => 'CSI_API_CTR_CTRID_PRD_ENDDT',
7367: p_token1_name => 'P_COUNTER_ID',
7368: p_token1_val => to_char(p_counter_id),
7369: p_token2_name => 'P_ESTIMATION_PERIOD_END_DATE',
7370: p_token2_val => to_char(p_estimation_period_end_date,l_date_format)
7371: );
7372: END IF;
7373: IF p_avg_calculation_start_date IS NOT NULL and p_number_of_readings IS NOT NULL THEN
7374: csi_ctr_gen_utility_pvt.ExitWithErrMsg
7375: ( p_msg_name => 'CSI_API_CTR_CAL_STDT_NUM_RDGS',
7376: p_token1_name => 'P_AVG_CALCULATION_START_DATE',
7377: p_token1_val => to_char(p_avg_calculation_start_date,l_date_format),
7378: p_token2_name => 'P_NUMBER_OF_READINGS',
7380: );
7381: END IF;
7382:
7383: IF NOT trunc(p_estimation_period_start_date) <= trunc(p_estimation_period_end_date) THEN
7384: csi_ctr_gen_utility_pvt.ExitWithErrMsg('CSI_API_CTR_INV_PRD_ST_END_DT');
7385: END IF;
7386:
7387: IF NOT trunc(p_avg_calculation_start_date) < trunc(p_estimation_period_start_date) THEN
7388: csi_ctr_gen_utility_pvt.ExitWithErrMsg('CSI_API_CTR_CAL_STDT_PRD_STDT');
7384: csi_ctr_gen_utility_pvt.ExitWithErrMsg('CSI_API_CTR_INV_PRD_ST_END_DT');
7385: END IF;
7386:
7387: IF NOT trunc(p_avg_calculation_start_date) < trunc(p_estimation_period_start_date) THEN
7388: csi_ctr_gen_utility_pvt.ExitWithErrMsg('CSI_API_CTR_CAL_STDT_PRD_STDT');
7389: END IF;
7390:
7391: IF NOT trunc(p_avg_calculation_start_date) < trunc(p_estimation_period_end_date) THEN
7392: csi_ctr_gen_utility_pvt.ExitWithErrMsg('CSI_API_CTR_CAL_STDT_PRD_ENDDT');
7388: csi_ctr_gen_utility_pvt.ExitWithErrMsg('CSI_API_CTR_CAL_STDT_PRD_STDT');
7389: END IF;
7390:
7391: IF NOT trunc(p_avg_calculation_start_date) < trunc(p_estimation_period_end_date) THEN
7392: csi_ctr_gen_utility_pvt.ExitWithErrMsg('CSI_API_CTR_CAL_STDT_PRD_ENDDT');
7393: END IF;
7394: --
7395: BEGIN
7396: select 'X' into l_dummy
7397: from CSI_COUNTERS_B
7398: where counter_id = p_Counter_id;
7399: EXCEPTION
7400: when no_data_found then
7401: csi_ctr_gen_utility_pvt.ExitWithErrMsg
7402: ( p_msg_name => 'CSI_API_CTR_INVALID',
7403: p_token1_name => 'MODE',
7404: p_token1_val => 'Counter'
7405: );
7423: OPEN CTR_RDGS_EXIST(p_counter_id);
7424: FETCH CTR_RDGS_EXIST into l_ctr_val_id;
7425: CLOSE CTR_RDGS_EXIST;
7426: IF l_ctr_val_id IS NULL THEN
7427: csi_ctr_gen_utility_pvt.ExitWithErrMsg('CSI_API_CTR_NO_RDGS_EXIST');
7428: END IF;
7429: END IF;
7430:
7431: IF l_est_rec.estimation_type = 'FIXED' THEN
7432: /********************
7433: Compute Fixed Value Estimation
7434: ********************/
7435: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
7436: csi_ctr_gen_utility_pvt.put_line('Calling Estimate_fixed_values...');
7437: END IF; -- 8214848 - dsingire
7438: --
7439: Estimate_fixed_values(
7440: P_api_version => 1.0,
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
7461: x_msg_data := FND_MSG_PUB.GET
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;
7468: END LOOP;
7469: RAISE FND_API.G_EXC_ERROR;
7473: /********************
7474: Compute Usage of direct counter Estimation
7475: *******************/
7476: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
7477: csi_ctr_gen_utility_pvt.put_line('Calling Estimate_Usage...');
7478: END IF; -- 8214848 - dsingire
7479: Estimate_Usage(
7480: P_api_version => 1.0,
7481: P_Init_Msg_List => P_Init_Msg_List,
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
7504: x_msg_data := FND_MSG_PUB.GET
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;
7511: END LOOP;
7512: RAISE FND_API.G_EXC_ERROR;
7524: FETCH CTR_RDGS_EXIST into l_ctr_val_id;
7525: close CTR_RDGS_EXIST;
7526: --
7527: IF l_ctr_val_id IS NULL THEN
7528: csi_ctr_gen_utility_pvt.ExitWithErrMsg('CSI_API_CTR_NO_RDGS_EXIST');
7529: END IF;
7530:
7531: Estimate_Usage(
7532: P_api_version => 1.0,
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
7556: x_msg_data := FND_MSG_PUB.GET
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;
7563: END LOOP;
7564: RAISE FND_API.G_EXC_ERROR;
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
7723: --
7724:
7725: -- Read the debug profiles values in to global variable 7197402
7722: END IF; -- 8214848 - dsingire
7723: --
7724:
7725: -- Read the debug profiles values in to global variable 7197402
7726: IF (CSI_CTR_GEN_UTILITY_PVT.g_debug_level is null) THEN -- 8214848 - dsingire
7727: CSI_CTR_GEN_UTILITY_PVT.read_debug_profiles;
7728: END IF; -- 8214848 - dsingire
7729:
7730: l_debug_level := CSI_CTR_GEN_UTILITY_PVT.g_debug_level; -- 8214848 - dsingire
7723: --
7724:
7725: -- Read the debug profiles values in to global variable 7197402
7726: IF (CSI_CTR_GEN_UTILITY_PVT.g_debug_level is null) THEN -- 8214848 - dsingire
7727: CSI_CTR_GEN_UTILITY_PVT.read_debug_profiles;
7728: END IF; -- 8214848 - dsingire
7729:
7730: l_debug_level := CSI_CTR_GEN_UTILITY_PVT.g_debug_level; -- 8214848 - dsingire
7731:
7726: IF (CSI_CTR_GEN_UTILITY_PVT.g_debug_level is null) THEN -- 8214848 - dsingire
7727: CSI_CTR_GEN_UTILITY_PVT.read_debug_profiles;
7728: 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,
7738: END IF;
7739: --
7740: IF p_estimation_period_start_date IS NOT NULL THEN
7741: IF (l_debug_level > 0) THEN -- 8214848 - dsingire
7742: csi_ctr_gen_utility_pvt.put_line('Calling Est_Period_Start_Readings...');
7743: END IF; -- 8214848 - dsingire
7744: EST_PERIOD_START_READINGS(
7745: P_api_version => 1.0,
7746: P_Init_Msg_List => P_Init_Msg_List,
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
7763: x_msg_data := FND_MSG_PUB.GET
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;
7770: END LOOP;
7771: RAISE FND_API.G_EXC_ERROR;
7783: close prior_rdg_values;
7784: --
7785: IF l_prev_reading IS NULL THEN
7786: -- raise error message - no readings to calculate
7787: csi_ctr_gen_utility_pvt.ExitWithErrMsg('CSI_API_CTR_NO_RDG_PR_PRD_ENDT');
7788: ELSE -- l_prev_reading IS not null
7789: l_period_days := trunc(p_estimation_period_end_date) - trunc(l_prev_value_timestamp) ;
7790: l_estimated_meter_reading:=(l_prev_reading +(P_fixed_value*l_period_days)) ;
7791: END IF;